ICD18PR ;ALB/ESD - DRG GROUPER 16 PRE-INSTALL ; 10/23/00 11:56am
;;18.0;DRG Grouper;;Oct 20, 2000
;
; This routine kills the ICD9 and ICD0 globals
; (files #80 and #80.1)
;
; These files must be reloaded upon completion of the
; patch installation.
;
EN ;
N I,XPDIDTOT,ICDX
S I=""
D BMES^XPDUTL(">>> Deleting ICD OPERATION/PROCEDURE file (#80.1)...")
S XPDIDTOT=4140
F ICDX=1:1 S I=$O(^ICD0(I)) Q:I="" K ^(I) I '(ICDX#414) D UPDATE^XPDID(ICDX)
D BMES^XPDUTL(">>> Deleting ICD DIAGNOSIS file (#80)...")
S XPDIDTOT=14000
F ICDX=1:1 S I=$O(^ICD9(I)) Q:I="" K ^(I) I '(ICDX#700) D UPDATE^XPDID(ICDX)
D BMES^XPDUTL(">>> File deletion complete! Please use the appropriate global loader")
D MES^XPDUTL(" to restore the files from ICD0_18.GBL and ICD9_18.GBL")
D MES^XPDUTL(" IMMEDIATELY after installing this package.")
D MES^XPDUTL("")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD18PR 895 printed Nov 22, 2024@17:00:08 Page 2
ICD18PR ;ALB/ESD - DRG GROUPER 16 PRE-INSTALL ; 10/23/00 11:56am
+1 ;;18.0;DRG Grouper;;Oct 20, 2000
+2 ;
+3 ; This routine kills the ICD9 and ICD0 globals
+4 ; (files #80 and #80.1)
+5 ;
+6 ; These files must be reloaded upon completion of the
+7 ; patch installation.
+8 ;
EN ;
+1 NEW I,XPDIDTOT,ICDX
+2 SET I=""
+3 DO BMES^XPDUTL(">>> Deleting ICD OPERATION/PROCEDURE file (#80.1)...")
+4 SET XPDIDTOT=4140
+5 FOR ICDX=1:1
SET I=$ORDER(^ICD0(I))
if I=""
QUIT
KILL ^(I)
IF '(ICDX#414)
DO UPDATE^XPDID(ICDX)
+6 DO BMES^XPDUTL(">>> Deleting ICD DIAGNOSIS file (#80)...")
+7 SET XPDIDTOT=14000
+8 FOR ICDX=1:1
SET I=$ORDER(^ICD9(I))
if I=""
QUIT
KILL ^(I)
IF '(ICDX#700)
DO UPDATE^XPDID(ICDX)
+9 DO BMES^XPDUTL(">>> File deletion complete! Please use the appropriate global loader")
+10 DO MES^XPDUTL(" to restore the files from ICD0_18.GBL and ICD9_18.GBL")
+11 DO MES^XPDUTL(" IMMEDIATELY after installing this package.")
+12 DO MES^XPDUTL("")
+13 QUIT
