Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XDRPREI

XDRPREI.m

Go to the documentation of this file.
  1. XDRPREI ;SFISC/VYD - DELETE FILE 15 AND 15.1 DD ;07/12/93 15:07
  1. ;;7.3;TOOLKIT;;Apr 25, 1995
  1. ;This preinit routine will delete data dictionaries for file 15 and
  1. ;15.1. It is primarily intended for IHS.
  1. N XDRAGNCY,DIU
  1. S XDRAGNCY=$P($G(^XMB(1,1,0)),U,8) ;get the agency code
  1. D:"V"'[XDRAGNCY ;continue if not a VA site
  1. .S DIU(0)="" F DIU="^VA(15,","^VA(15.1," D EN^DIU2
  1. Q