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 ---[H[J[2J[HICD1865P 779 printed Sep 23, 2025@19:25:07 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
