ICD1856P ;ALB/MJB - YEARLY DRG UPDATE;8/9/2010
;;18.0;DRG Grouper;**56**;Oct 13, 2000;Build 18
;
;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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1856P 749 printed Nov 22, 2024@16:59:10 Page 2
ICD1856P ;ALB/MJB - YEARLY DRG UPDATE;8/9/2010
+1 ;;18.0;DRG Grouper;**56**;Oct 13, 2000;Build 18
+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
