- 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 Mar 13, 2025@20:53:31 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
