ICD1855P.m

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

 ;;18.0;DRG Grouper;**55**;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^ICD1855L ;Updates to existing diagnosis codes

 D ICDPX^ICD1855L ;Updates to existing procedure code identifiers

 D ICDPX1^ICD1855L ;Updates to existing procedure codes Major O.R. procedure 

 Q

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

 +1       ;;18.0;DRG Grouper;**55**;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 ICDDX^ICD1855L

 +2       ;Updates to existing procedure code identifiers

           DO ICDPX^ICD1855L

 +3       ;Updates to existing procedure codes Major O.R. procedure 

           DO ICDPX1^ICD1855L

 +4        QUIT