|
Last change
on this file since 811 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
872 bytes
|
| Line | |
|---|
| 1 | ICD18PR ;ALB/ESD - DRG GROUPER 16 PRE-INSTALL ; 10/23/00 11:56am
|
|---|
| 2 | ;;18.0;DRG Grouper;;Oct 20, 2000
|
|---|
| 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.
