ICD1861P.m

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

 ;;18.0;DRG Grouper;**61**;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 ICDDX^ICD1861L ;Updates to existing diagnosis code identifiers

 D ICDPX^ICD1861L ;Updates to existing procedure code identifiers 

 Q

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

 +1       ;;18.0;DRG Grouper;**61**;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 code identifiers

           DO ICDDX^ICD1861L

 +2       ;Updates to existing procedure code identifiers 

           DO ICDPX^ICD1861L

 +3        QUIT