ICD1837P.m

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 ---ICD1837P   495     printed  Apr 09, 2024@20:54:05                                                                                                                                                                                                     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