ICD1869P.m

ICD1869P ;ALB/JDG - YEARLY DRG UPDATE;8/9/2010 ; 10/5/11 3:21pm

 ;;18.0;DRG Grouper;**69**;Oct 20, 2000;Build 7

 ;

 ;This routine will kick off Routines needed for 

 ;updates to the DRG Grouper.

 ;Depending on the type of updates needed.

 ;

 Q

EN ; Start Update

 D ICDUPDDX^ICD1869L ;Updates to existing diagnosis codes

 D ICDUPDPX^ICD1869L ;Updates to existing procedure code identifiers

 D ICDECUP1^ICD1869L ;Updates PTF EXPANDED CODE (#45.89) file

 D ICDECUP2^ICD1869L ;Updates PTF EXPANDED CODE (#45.89) file

 Q

ICD1869P  ;ALB/JDG - YEARLY DRG UPDATE;8/9/2010 ; 10/5/11 3:21pm

 +1       ;;18.0;DRG Grouper;**69**;Oct 20, 2000;Build 7

 +2       ;

 +3       ;This routine will kick off Routines needed for 

 +4       ;updates to the DRG Grouper.

 +5       ;Depending on the type of updates needed.

 +6       ;

 +7        QUIT 

EN        ; Start Update

 +1       ;Updates to existing diagnosis codes

           DO ICDUPDDX^ICD1869L

 +2       ;Updates to existing procedure code identifiers

           DO ICDUPDPX^ICD1869L

 +3       ;Updates PTF EXPANDED CODE (#45.89) file

           DO ICDECUP1^ICD1869L

 +4       ;Updates PTF EXPANDED CODE (#45.89) file

           DO ICDECUP2^ICD1869L

 +5        QUIT