Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ICD16PR

ICD16PR.m

Go to the documentation of this file.
  1. ICD16PR ;ALB/ESD - DRG GROUPER 16 PRE-INSTALL ; 09-DEC-98
  1. ;;16.0;DRG Grouper;;Jan 15, 1999
  1. ;
  1. ; This routine kills the ICD9 and ICD0 globals
  1. ; (files #80 and #80.1)
  1. ;
  1. ; These files must be reloaded upon completion of the
  1. ; patch installation.
  1. ;
  1. EN ;
  1. N I,XPDIDTOT,ICDX
  1. S I=""
  1. D BMES^XPDUTL(">>> Deleting ICD OPERATION/PROCEDURE file (#80.1)...")
  1. S XPDIDTOT=4140
  1. F ICDX=1:1 S I=$O(^ICD0(I)) Q:I="" K ^(I) I '(ICDX#414) D UPDATE^XPDID(ICDX)
  1. D BMES^XPDUTL(">>> Deleting ICD DIAGNOSIS file (#80)...")
  1. S XPDIDTOT=14000
  1. F ICDX=1:1 S I=$O(^ICD9(I)) Q:I="" K ^(I) I '(ICDX#700) D UPDATE^XPDID(ICDX)
  1. D BMES^XPDUTL(">>> File deletion complete! Please use the appropriate global loader")
  1. D MES^XPDUTL(" to restore the files from ICD0_16.GBL and ICD9_16.GBL")
  1. D MES^XPDUTL(" IMMEDIATELY after installing this package.")
  1. D MES^XPDUTL("")
  1. Q