XDRPREI ;SFISC/VYD - DELETE FILE 15 AND 15.1 DD ;07/12/93 15:07
;;7.3;TOOLKIT;;Apr 25, 1995
;This preinit routine will delete data dictionaries for file 15 and
;15.1. It is primarily intended for IHS.
N XDRAGNCY,DIU
S XDRAGNCY=$P($G(^XMB(1,1,0)),U,8) ;get the agency code
D:"V"'[XDRAGNCY ;continue if not a VA site
.S DIU(0)="" F DIU="^VA(15,","^VA(15.1," D EN^DIU2
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXDRPREI 388 printed Dec 13, 2024@02:39:39 Page 2
XDRPREI ;SFISC/VYD - DELETE FILE 15 AND 15.1 DD ;07/12/93 15:07
+1 ;;7.3;TOOLKIT;;Apr 25, 1995
+2 ;This preinit routine will delete data dictionaries for file 15 and
+3 ;15.1. It is primarily intended for IHS.
+4 NEW XDRAGNCY,DIU
+5 ;get the agency code
SET XDRAGNCY=$PIECE($GET(^XMB(1,1,0)),U,8)
+6 ;continue if not a VA site
if "V"'[XDRAGNCY
Begin DoDot:1
+7 SET DIU(0)=""
FOR DIU="^VA(15,","^VA(15.1,"
DO EN^DIU2
End DoDot:1
+8 QUIT
