ICD1865P.m

ICD1865P ;ALB/JDG - YEARLY DRG UPDATE;8/9/2010

 ;;18.0;DRG Grouper;**65**;Oct 20, 2000;Build 12

 ;

 ;This routine will kick off Routines needed for 

 ;FY 2013 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^ICD1865A ;changes for DRGS

 ;D DIAG^ICD1865B ; UPDATES FOR NEW DIAGNOSIS CODES

 D PRO^ICD1865C ; UPDATES FOR NEW PROCEDURE CODES

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

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

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

 D CODENOCC^ICD1865L ; UPDATES CODE NOT CC WITH FIELD FOR EXISTING DIAGNOSIS CODE

 ;D INACTDRG^ICD1865O ; INACTIVATE DRGS

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICD1865P   779     printed  Apr 09, 2024@20:53:45                                                                                                                                                                                                     Page 2

ICD1865P  ;ALB/JDG - YEARLY DRG UPDATE;8/9/2010

 +1       ;;18.0;DRG Grouper;**65**;Oct 20, 2000;Build 12

 +2       ;

 +3       ;This routine will kick off Routines needed for 

 +4       ;FY 2013 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 

 +9       ;

EN        ; start update

 +1       ;changes for DRGS

           DO DRG^ICD1865A

 +2       ;D DIAG^ICD1865B ; UPDATES FOR NEW DIAGNOSIS CODES

 +3       ; UPDATES FOR NEW PROCEDURE CODES

           DO PRO^ICD1865C

 +4       ;D DIAG^ICD1865D ; UPDATES TO EXISTING DIAGNOSIS CODES IF ANY

 +5       ;  UPDATES TO EXISTING PROCEDURE CODES IF ANY

           DO PRO^ICD1865E

 +6       ; ICD1865F-K CONTAIN THE DRG INFO NEEDED FOR THE GROUPER UPDATE

 +7       ; UPDATES CODE NOT CC WITH FIELD FOR EXISTING DIAGNOSIS CODE

           DO CODENOCC^ICD1865L

 +8       ;D INACTDRG^ICD1865O ; INACTIVATE DRGS

 +9        QUIT