ICD1848P.m

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 ---ICD1848P   630     printed  Apr 09, 2024@20:56                                                                                                                                                                                                        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