source: FOIAVistA/tag/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRPREI.m@ 636

Last change on this file since 636 was 628, checked in by George Lilly, 14 years ago

initial load of FOIAVistA 6/30/08 version

File size: 379 bytes
Line 
1XDRPREI ;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.