ICD1856P.m

ICD1856P ;ALB/MJB - YEARLY DRG UPDATE;8/9/2010

 ;;18.0;DRG Grouper;**56**;Oct 13, 2000;Build 7

 ;

 ;This routine will kick off Routines needed for 

 ;updates to the DRG Grouper.

 ;Depending on the year and type of updates needed, not

 ;all of the routines will be needed.

 ;

 Q

EN ; START UPDATE

 D DRG^ICD1856A ;CHANGES FOR DRGS

 ; ICD1856F-K CONTAIN THE DRG INFO NEEDED FOR THE GROUPER UPDATE

 D DIAG^ICD1856B ; UPDATES FOR NEW DIAGNOSIS CODES

 D PRO^ICD1856C ; UPDATES FOR NEW PROCEDURE CODES

 ;D DIAG^ICD1856D ; UPDATES TO EXISTING DIAGNOSIS CODES IF ANY

 D PRO^ICD1856E ;  UPDATES TO EXISTING PROCEDURE CODES IF ANY

 ;D ADDID^ICD1856L ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES

 D INACTDRG^ICD1856O ; INACTIVATE DRGS

 Q

ICD1856P  ;ALB/MJB - YEARLY DRG UPDATE;8/9/2010

 +1       ;;18.0;DRG Grouper;**56**;Oct 13, 2000;Build 7

 +2       ;

 +3       ;This routine will kick off Routines needed for 

 +4       ;updates to the DRG Grouper.

 +5       ;Depending on the year and type of updates needed, not

 +6       ;all of the routines will be needed.

 +7       ;

 +8        QUIT 

EN        ; START UPDATE

 +1       ;CHANGES FOR DRGS

           DO DRG^ICD1856A

 +2       ; ICD1856F-K CONTAIN THE DRG INFO NEEDED FOR THE GROUPER UPDATE

 +3       ; UPDATES FOR NEW DIAGNOSIS CODES

           DO DIAG^ICD1856B

 +4       ; UPDATES FOR NEW PROCEDURE CODES

           DO PRO^ICD1856C

 +5       ;D DIAG^ICD1856D ; UPDATES TO EXISTING DIAGNOSIS CODES IF ANY

 +6       ;  UPDATES TO EXISTING PROCEDURE CODES IF ANY

           DO PRO^ICD1856E

 +7       ;D ADDID^ICD1856L ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES

 +8       ; INACTIVATE DRGS

           DO INACTDRG^ICD1856O

 +9        QUIT