ICD1850P ;ALB/MJB - YEARLY DRG UPDATE;8/9/2010
;;18.0;DRG Grouper;**50**;Oct 13, 2000;Build 8
;
;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^ICD1850A ;CHANGES FOR DRGS
; ICD1850F-K CONTAIN THE DRG INFO NEEDED FOR THE GROUPER UPDATE
D DIAG^ICD1850B ; UPDATES FOR NEW DIAGNOSIS CODES
D PRO^ICD1850C ; UPDATES FOR NEW PROCEDURE CODES
;D DIAG^ICD1850D ; UPDATES TO EXISTING DIAGNOSIS CODES IF ANY
;D PRO^ICD1850E ; UPDATES TO EXISTING PROCEDURE CODES IF ANY
;D ADDID^ICD1850L ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES
D INACTDRG^ICD1850O ; INACTIVATE DRGS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1850P 749 printed Dec 13, 2024@01:48:55 Page 2
ICD1850P ;ALB/MJB - YEARLY DRG UPDATE;8/9/2010
+1 ;;18.0;DRG Grouper;**50**;Oct 13, 2000;Build 8
+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^ICD1850A
+2 ; ICD1850F-K CONTAIN THE DRG INFO NEEDED FOR THE GROUPER UPDATE
+3 ; UPDATES FOR NEW DIAGNOSIS CODES
DO DIAG^ICD1850B
+4 ; UPDATES FOR NEW PROCEDURE CODES
DO PRO^ICD1850C
+5 ;D DIAG^ICD1850D ; UPDATES TO EXISTING DIAGNOSIS CODES IF ANY
+6 ;D PRO^ICD1850E ; UPDATES TO EXISTING PROCEDURE CODES IF ANY
+7 ;D ADDID^ICD1850L ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES
+8 ; INACTIVATE DRGS
DO INACTDRG^ICD1850O
+9 QUIT
