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 ---[H[J[2J[HICD1872P 1335 printed Sep 23, 2025@19:25:11 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
