source: WorldVistAEHR/trunk/r/DRG_GROUPER-ICD--ICPT/ICD18PR.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 880 bytes
RevLine 
[613]1ICD18PR ;ALB/ESD - DRG GROUPER 16 PRE-INSTALL ; 10/23/00 11:56am
2 ;;18.0;DRG Grouper;;Oct 20, 2000;Build 1
3 ;
4 ; This routine kills the ICD9 and ICD0 globals
5 ; (files #80 and #80.1)
6 ;
7 ; These files must be reloaded upon completion of the
8 ; patch installation.
9 ;
10EN ;
11 N I,XPDIDTOT,ICDX
12 S I=""
13 D BMES^XPDUTL(">>> Deleting ICD OPERATION/PROCEDURE file (#80.1)...")
14 S XPDIDTOT=4140
15 F ICDX=1:1 S I=$O(^ICD0(I)) Q:I="" K ^(I) I '(ICDX#414) D UPDATE^XPDID(ICDX)
16 D BMES^XPDUTL(">>> Deleting ICD DIAGNOSIS file (#80)...")
17 S XPDIDTOT=14000
18 F ICDX=1:1 S I=$O(^ICD9(I)) Q:I="" K ^(I) I '(ICDX#700) D UPDATE^XPDID(ICDX)
19 D BMES^XPDUTL(">>> File deletion complete! Please use the appropriate global loader")
20 D MES^XPDUTL(" to restore the files from ICD0_18.GBL and ICD9_18.GBL")
21 D MES^XPDUTL(" IMMEDIATELY after installing this package.")
22 D MES^XPDUTL("")
23 Q
Note: See TracBrowser for help on using the repository browser.