ICD1872P.m

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

 ;;18.0;DRG Grouper;**72**;Oct 20, 2000;Build 4

 ;

 ;This routine will kick off Routines needed for 

 ;FY 2014 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^ICD1872A ;changes for DRGS

 ; ********************************************************************************

 ; *****routines ICD1872F-K contain the DRG info needed for the Grouper update*****

 ; ********************************************************************************

 ;D DIAG^ICD1872B ; UPDATES FOR NEW DIAGNOSIS CODES (no updates for FY2014)

 ;D PRO^ICD1872C ; UPDATES FOR NEW PROCEDURE CODES

 ; ************************************************************************************************ 

 ; *****for FY2014 four new procedure codes are being added via patch's ICD*18.0*73/LEX*2.0*93*****

 ; ************************************************************************************************

 ;D DIAG^ICD1872D ; UPDATES TO EXISTING DIAGNOSIS CODES IF ANY (no updates for FY2014)

 ;D PRO^ICD1872E ;  UPDATES TO EXISTING PROCEDURE CODES IF ANY (no updates for FY2014)

 D INACTDRG^ICD1872O ; INACTIVATE DRGs (no updates for FY2014; inactivated DRG119 since it was missed in FY2007)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ICD1872P   1335     printed  Apr 09, 2024@20:56:29                                                                                                                                                                                                    Page 2

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

 +1       ;;18.0;DRG Grouper;**72**;Oct 20, 2000;Build 4

 +2       ;

 +3       ;This routine will kick off Routines needed for 

 +4       ;FY 2014 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^ICD1872A

 +2       ; ********************************************************************************

 +3       ; *****routines ICD1872F-K contain the DRG info needed for the Grouper update*****

 +4       ; ********************************************************************************

 +5       ;D DIAG^ICD1872B ; UPDATES FOR NEW DIAGNOSIS CODES (no updates for FY2014)

 +6       ;D PRO^ICD1872C ; UPDATES FOR NEW PROCEDURE CODES

 +7       ; ************************************************************************************************ 

 +8       ; *****for FY2014 four new procedure codes are being added via patch's ICD*18.0*73/LEX*2.0*93*****

 +9       ; ************************************************************************************************

 +10      ;D DIAG^ICD1872D ; UPDATES TO EXISTING DIAGNOSIS CODES IF ANY (no updates for FY2014)

 +11      ;D PRO^ICD1872E ;  UPDATES TO EXISTING PROCEDURE CODES IF ANY (no updates for FY2014)

 +12      ; INACTIVATE DRGs (no updates for FY2014; inactivated DRG119 since it was missed in FY2007)

           DO INACTDRG^ICD1872O

 +13       QUIT