ICD1848P ;ALB/MJB - GROUPER UPDATES;11/9/07 1:17pm
;;18.0;DRG Grouper;**48**;Oct 13,2000;Build 17
;
Q
EN ; START UPDATE
;D DRG^ICD1848A ;YEARLY CHANGES FOR DRGS
;D DIAG^ICD1848B ;YEARLY UPDATES FOR NEW DIAGNOSIS CODES
;D PRO^ICD1848C ;YEARLY UPDATES FOR NEW PROCEDURE CODES
;D DIAG^ICD1848D ;YEARLY UPDATES TO EXISTING DIAGNOSIS CODES
;D PRO^ICD1848E ;YEARLY UPDATES TO EXISTING PROCEDURE CODES
D ADDID^ICD1848L ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES
D ID^ICD1848Y ; UPDATES IDENTIFIER FIELD FOR PROCEDURE CODES
D NEXT^ICD1848L ; UPDATES MAJOR OR CODE
;D INACTDRG^ICD1848O ; INACTIVATE DRGS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1848P 630 printed Nov 22, 2024@16:59:03 Page 2
ICD1848P ;ALB/MJB - GROUPER UPDATES;11/9/07 1:17pm
+1 ;;18.0;DRG Grouper;**48**;Oct 13,2000;Build 17
+2 ;
+3 QUIT
EN ; START UPDATE
+1 ;D DRG^ICD1848A ;YEARLY CHANGES FOR DRGS
+2 ;D DIAG^ICD1848B ;YEARLY UPDATES FOR NEW DIAGNOSIS CODES
+3 ;D PRO^ICD1848C ;YEARLY UPDATES FOR NEW PROCEDURE CODES
+4 ;D DIAG^ICD1848D ;YEARLY UPDATES TO EXISTING DIAGNOSIS CODES
+5 ;D PRO^ICD1848E ;YEARLY UPDATES TO EXISTING PROCEDURE CODES
+6 ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES
DO ADDID^ICD1848L
+7 ; UPDATES IDENTIFIER FIELD FOR PROCEDURE CODES
DO ID^ICD1848Y
+8 ; UPDATES MAJOR OR CODE
DO NEXT^ICD1848L
+9 ;D INACTDRG^ICD1848O ; INACTIVATE DRGS
+10 QUIT
