Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
880 bytes
|
Line | |
---|
1 | ICD18PR ;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 | ;
|
---|
10 | EN ;
|
---|
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.