ICD1837P ;;ALB/EG/DHH - FY 2008 UPDATE ; 11/9/07 1:17pm
;;18.0;DRG Grouper;**37**;Oct 13,2000;Build 20
;
Q
EN ; START UPDATE
D DRG^ICD1837A ;CHANGES FOR DRGS
D DIAG^ICD1837B ; UPDATES FOR NEW DIAGNOSIS CODES
D PRO^ICD1837C ; UPDATES FOR NEW PROCEDURE CODES
D DIAG^ICD1837D ; UPDATES TO EXISTING DIAGNOSIS CODES
D PRO^ICD1837E ; UPDATES TO EXISTING PROCEDURE CODES
D ADDID^ICD1837L ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES
;D INACTDRG^ICD1837O ; INACTIVATE DRGS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1837P 495 printed Sep 23, 2025@19:24:47 Page 2
ICD1837P ;;ALB/EG/DHH - FY 2008 UPDATE ; 11/9/07 1:17pm
+1 ;;18.0;DRG Grouper;**37**;Oct 13,2000;Build 20
+2 ;
+3 QUIT
EN ; START UPDATE
+1 ;CHANGES FOR DRGS
DO DRG^ICD1837A
+2 ; UPDATES FOR NEW DIAGNOSIS CODES
DO DIAG^ICD1837B
+3 ; UPDATES FOR NEW PROCEDURE CODES
DO PRO^ICD1837C
+4 ; UPDATES TO EXISTING DIAGNOSIS CODES
DO DIAG^ICD1837D
+5 ; UPDATES TO EXISTING PROCEDURE CODES
DO PRO^ICD1837E
+6 ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES
DO ADDID^ICD1837L
+7 ;D INACTDRG^ICD1837O ; INACTIVATE DRGS
+8 QUIT
