- ICD16PR ;ALB/ESD - DRG GROUPER 16 PRE-INSTALL ; 09-DEC-98
- ;;16.0;DRG Grouper;;Jan 15, 1999
- ;
- ; 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_16.GBL and ICD9_16.GBL")
- D MES^XPDUTL(" IMMEDIATELY after installing this package.")
- D MES^XPDUTL("")
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HICD16PR 888 printed Feb 18, 2025@23:14:03 Page 2
- ICD16PR ;ALB/ESD - DRG GROUPER 16 PRE-INSTALL ; 09-DEC-98
- +1 ;;16.0;DRG Grouper;;Jan 15, 1999
- +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_16.GBL and ICD9_16.GBL")
- +11 DO MES^XPDUTL(" IMMEDIATELY after installing this package.")
- +12 DO MES^XPDUTL("")
- +13 QUIT