source:
WorldVistAEHR/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRPREI.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 379 bytes |
Rev | Line | |
---|---|---|
[613] | 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.