ICD1845P ;;ALB/EG/DHH - FY 2010 UPDATE ; 11/9/07 1:17pm
;;18.0;DRG Grouper;**45**;Oct 13,2000;Build 14
;
Q
EN ; START UPDATE
D DRG^ICD1845A ;CHANGES FOR DRGS
; ICD1845F-K CONTAIN THE DRG INFO NEEDED FOR THE GROUPER UPDATE
D DIAG^ICD1845B ; UPDATES FOR NEW DIAGNOSIS CODES
D PRO^ICD1845C ; UPDATES FOR NEW PROCEDURE CODES
;D DIAG^ICD1845D ; UPDATES TO EXISTING DIAGNOSIS CODES
;D PRO^ICD1845E ; UPDATES TO EXISTING PROCEDURE CODES
D ADDID^ICD1845L ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES
;D INACTDRG^ICD1845O ; INACTIVATE DRGS
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD1845P 563 printed Oct 16, 2024@17:49:32 Page 2
ICD1845P ;;ALB/EG/DHH - FY 2010 UPDATE ; 11/9/07 1:17pm
+1 ;;18.0;DRG Grouper;**45**;Oct 13,2000;Build 14
+2 ;
+3 QUIT
EN ; START UPDATE
+1 ;CHANGES FOR DRGS
DO DRG^ICD1845A
+2 ; ICD1845F-K CONTAIN THE DRG INFO NEEDED FOR THE GROUPER UPDATE
+3 ; UPDATES FOR NEW DIAGNOSIS CODES
DO DIAG^ICD1845B
+4 ; UPDATES FOR NEW PROCEDURE CODES
DO PRO^ICD1845C
+5 ;D DIAG^ICD1845D ; UPDATES TO EXISTING DIAGNOSIS CODES
+6 ;D PRO^ICD1845E ; UPDATES TO EXISTING PROCEDURE CODES
+7 ; UPDATES IDENTIFIER FIELD FOR DIAGNOSIS CODES
DO ADDID^ICD1845L
+8 ;D INACTDRG^ICD1845O ; INACTIVATE DRGS
+9 QUIT
