diff --git a/nonrri/bills/ccc803.cob b/nonrri/bills/ccc803.cob
index 2b993ee1..8ff89652 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 < "202507"
                GO TO P1
            END-IF
 
-           IF CC-DATEYYYYMM-A = "202408"
-               MOVE "20240930" TO CC-DATE-A
+           IF CC-DATEYYYYMM-A = "202507"
+               MOVE "20250831" TO CC-DATE-A
                GO TO A2
            END-IF
 
-           IF CC-DATEYYYYMM-A = "202409"
-               MOVE "20241031" TO CC-DATE-A
+           IF CC-DATEYYYYMM-A = "202508"
+               MOVE "20250930" TO CC-DATE-A
                GO TO A2
            END-IF
 
-           IF CC-DATEYYYYMM-A = "202410"
-               MOVE "20241130" TO CC-DATE-A
+           IF CC-DATEYYYYMM-A = "202509"
+               MOVE "20251031" 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"