source: FOIAVistA/trunk/r/VISTALINK-XOBV/XOBVPRE.m@ 1015

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

initial load of FOIAVistA 6/30/08 version

File size: 516 bytes
Line 
1XOBVPRE ;; mjk/alb - VistaLimk Pre-Init ; 07/27/2002 13:00
2 ;;1.5;VistALink;;Sep 09, 2005
3 ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]
4 ;
5 QUIT
6 ;
7EN ; -- add pre-init code here
8 ; -- delete VISTALINK MESSAGE TYPE file (18.05)
9 DO DEL(18.05)
10 ;
11 QUIT
12 ;
13DEL(XOBFILE) ; -- delete file
14 NEW DIU,XOBRES
15 ;
16 DO FILE^DID(XOBFILE,"","NAME","XOBRES")
17 ;
18 ; -- if file present then delete
19 IF $GET(XOBRES("NAME"))'="" DO
20 . ; -- delete security provider file
21 . SET DIU=XOBFILE,DIU(0)="TD" DO EN^DIU2
22 ;
23 QUIT
24 ;
Note: See TracBrowser for help on using the repository browser.