From 2ea5da21bf7e23797a78e3960434989bc79aa0aa Mon Sep 17 00:00:00 2001 From: stephen waite Date: Mon, 24 Mar 2025 15:29:02 -0400 Subject: [PATCH 1/6] another reage --- nonrri/bills/ccc803.cob | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/nonrri/bills/ccc803.cob b/nonrri/bills/ccc803.cob index 2b993ee1..4521323a 100644 --- a/nonrri/bills/ccc803.cob +++ b/nonrri/bills/ccc803.cob @@ -89,22 +89,22 @@ GO TO P1 END-IF - IF CC-DATEYYYYMM-A < "202408" + IF CC-DATEYYYYMM-A < "202410" GO TO P1 END-IF - IF CC-DATEYYYYMM-A = "202408" - MOVE "20240930" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202410" + MOVE "20241231" TO CC-DATE-A GO TO A2 END-IF - IF CC-DATEYYYYMM-A = "202409" - MOVE "20241031" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202411" + MOVE "20250131" TO CC-DATE-A GO TO A2 END-IF - IF CC-DATEYYYYMM-A = "202410" - MOVE "20241130" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202412" + MOVE "20250228" TO CC-DATE-A GO TO A2 END-IF From 04d194ed252dc3bcfe9e5fde7856c12c04bb0e5f Mon Sep 17 00:00:00 2001 From: stephen waite Date: Mon, 24 Mar 2025 16:47:32 -0400 Subject: [PATCH 2/6] another reage --- nonrri/bills/ccc803.cob | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/nonrri/bills/ccc803.cob b/nonrri/bills/ccc803.cob index 4521323a..70373bd9 100644 --- a/nonrri/bills/ccc803.cob +++ b/nonrri/bills/ccc803.cob @@ -94,17 +94,17 @@ END-IF IF CC-DATEYYYYMM-A = "202410" - MOVE "20241231" TO CC-DATE-A + MOVE "20241130" TO CC-DATE-A GO TO A2 END-IF IF CC-DATEYYYYMM-A = "202411" - MOVE "20250131" TO CC-DATE-A + MOVE "20241231" TO CC-DATE-A GO TO A2 END-IF IF CC-DATEYYYYMM-A = "202412" - MOVE "20250228" TO CC-DATE-A + MOVE "20250131" TO CC-DATE-A GO TO A2 END-IF From 55146be5dc9204a3b5fee84de194999aa263a72b Mon Sep 17 00:00:00 2001 From: stephen waite Date: Sun, 1 Jun 2025 12:31:39 -0400 Subject: [PATCH 3/6] latest --- nonrri/bills/ccc803.cob | 14 +++++++------- rri/coding/xxx003c.cob | 24 +++++++++++++++++++++++- 2 files changed, 30 insertions(+), 8 deletions(-) diff --git a/nonrri/bills/ccc803.cob b/nonrri/bills/ccc803.cob index 70373bd9..5dd51b2e 100644 --- a/nonrri/bills/ccc803.cob +++ b/nonrri/bills/ccc803.cob @@ -89,22 +89,22 @@ GO TO P1 END-IF - IF CC-DATEYYYYMM-A < "202410" + IF CC-DATEYYYYMM-A < "202501" GO TO P1 END-IF - IF CC-DATEYYYYMM-A = "202410" - MOVE "20241130" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202501" + MOVE "20250228" TO CC-DATE-A GO TO A2 END-IF - IF CC-DATEYYYYMM-A = "202411" - MOVE "20241231" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202502" + MOVE "20250331" TO CC-DATE-A GO TO A2 END-IF - IF CC-DATEYYYYMM-A = "202412" - MOVE "20250131" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202503" + MOVE "20250430" TO CC-DATE-A GO TO A2 END-IF diff --git a/rri/coding/xxx003c.cob b/rri/coding/xxx003c.cob index 3a7f6d3b..8c353770 100644 --- a/rri/coding/xxx003c.cob +++ b/rri/coding/xxx003c.cob @@ -470,7 +470,29 @@ PERFORM RE-WRITE-CHARNEW THRU RE-WRITE-CHARNEW-EXIT GO TO P1 END-IF - END-IF. + END-IF + + * auto-code calcium screen + IF CD-PROC1 = "5270" + IF (CD-PAYCODE = "003" OR "028" OR "074" OR "141" + OR "200" OR "245" OR "270" or "697" OR "868" OR "912" + OR "409") + MOVE "GY" TO CD-MOD2 + PERFORM RE-WRITE-CHARNEW THRU RE-WRITE-CHARNEW-EXIT + END-IF + + DISPLAY "Autocode calcium screen?" + DISPLAY "Hit Y for Z136" + display " " + ACCEPT ANS1 + + IF ANS1 = "Y" + MOVE "Z136 " TO CD-DIAG + PERFORM RE-WRITE-CHARNEW THRU RE-WRITE-CHARNEW-EXIT + GO TO P1 + END-IF + END-IF. + P1-1. IF (CD-PAYCODE = "008" OR "009" OR "010" OR "011" OR "012" From 32c4fa725b785916afb22c1796f16e0c1ef4000f Mon Sep 17 00:00:00 2001 From: stephen waite Date: Sat, 30 Aug 2025 16:04:06 -0400 Subject: [PATCH 4/6] re-age --- nonrri/bills/ccc803.cob | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/nonrri/bills/ccc803.cob b/nonrri/bills/ccc803.cob index 5dd51b2e..536428c1 100644 --- a/nonrri/bills/ccc803.cob +++ b/nonrri/bills/ccc803.cob @@ -89,22 +89,22 @@ GO TO P1 END-IF - IF CC-DATEYYYYMM-A < "202501" + IF CC-DATEYYYYMM-A < "202504" GO TO P1 END-IF - IF CC-DATEYYYYMM-A = "202501" - MOVE "20250228" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202504" + MOVE "20250531" TO CC-DATE-A GO TO A2 END-IF - IF CC-DATEYYYYMM-A = "202502" - MOVE "20250331" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202505" + MOVE "20250630" TO CC-DATE-A GO TO A2 END-IF - IF CC-DATEYYYYMM-A = "202503" - MOVE "20250430" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202506" + MOVE "20250731" TO CC-DATE-A GO TO A2 END-IF From dea11d6b5cc7b3a05427641946d04e1cc387f774 Mon Sep 17 00:00:00 2001 From: stephen waite Date: Wed, 26 Nov 2025 09:14:22 -0500 Subject: [PATCH 5/6] reage --- nonrri/bills/ccc803.cob | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/nonrri/bills/ccc803.cob b/nonrri/bills/ccc803.cob index 536428c1..ee28cac9 100644 --- a/nonrri/bills/ccc803.cob +++ b/nonrri/bills/ccc803.cob @@ -89,22 +89,22 @@ GO TO P1 END-IF - IF CC-DATEYYYYMM-A < "202504" + IF CC-DATEYYYYMM-A < "202506" GO TO P1 END-IF - IF CC-DATEYYYYMM-A = "202504" - MOVE "20250531" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202506" + MOVE "20250731" TO CC-DATE-A GO TO A2 END-IF - IF CC-DATEYYYYMM-A = "202505" - MOVE "20250630" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202507" + MOVE "20250831" TO CC-DATE-A GO TO A2 END-IF - IF CC-DATEYYYYMM-A = "202506" - MOVE "20250731" TO CC-DATE-A + IF CC-DATEYYYYMM-A = "202508" + MOVE "20250930" TO CC-DATE-A GO TO A2 END-IF From 386bd6843f4da9f7ee58c691de8367231bfaf39c Mon Sep 17 00:00:00 2001 From: stephen waite Date: Tue, 2 Dec 2025 09:52:32 -0500 Subject: [PATCH 6/6] bump 1 month --- nonrri/bills/ccc803.cob | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/nonrri/bills/ccc803.cob b/nonrri/bills/ccc803.cob index ee28cac9..8ff89652 100644 --- a/nonrri/bills/ccc803.cob +++ b/nonrri/bills/ccc803.cob @@ -89,15 +89,10 @@ GO TO P1 END-IF - IF CC-DATEYYYYMM-A < "202506" + IF CC-DATEYYYYMM-A < "202507" GO TO P1 END-IF - IF CC-DATEYYYYMM-A = "202506" - MOVE "20250731" TO CC-DATE-A - GO TO A2 - END-IF - IF CC-DATEYYYYMM-A = "202507" MOVE "20250831" TO CC-DATE-A GO TO A2 @@ -108,6 +103,11 @@ GO TO A2 END-IF + IF CC-DATEYYYYMM-A = "202509" + MOVE "20251031" TO CC-DATE-A + GO TO A2 + END-IF + GO TO P1. A2. REWRITE CHARCUR01