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

ICD18PR.m

Go to the documentation of this file.
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