|
Last change
on this file since 703 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
379 bytes
|
| Line | |
|---|
| 1 | XDRPREI ;SFISC/VYD - DELETE FILE 15 AND 15.1 DD ;07/12/93 15:07
|
|---|
| 2 | ;;7.3;TOOLKIT;;Apr 25, 1995
|
|---|
| 3 | ;This preinit routine will delete data dictionaries for file 15 and
|
|---|
| 4 | ;15.1. It is primarily intended for IHS.
|
|---|
| 5 | N XDRAGNCY,DIU
|
|---|
| 6 | S XDRAGNCY=$P($G(^XMB(1,1,0)),U,8) ;get the agency code
|
|---|
| 7 | D:"V"'[XDRAGNCY ;continue if not a VA site
|
|---|
| 8 | .S DIU(0)="" F DIU="^VA(15,","^VA(15.1," D EN^DIU2
|
|---|
| 9 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
