XOBVPRE ;; mjk/alb - VistaLimk Pre-Init ; 07/27/2002  13:00
 ;;1.5;VistALink;;Sep 09, 2005
 ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]
 ;
 QUIT
 ;
EN ; -- add pre-init code here
 ; -- delete VISTALINK MESSAGE TYPE file (18.05)
 DO DEL(18.05)
 ;
 QUIT
 ;
DEL(XOBFILE) ; -- delete file
 NEW DIU,XOBRES
 ;
 DO FILE^DID(XOBFILE,"","NAME","XOBRES")
 ;
 ; -- if file present then delete
 IF $GET(XOBRES("NAME"))'="" DO
 . ; -- delete security provider file
 . SET DIU=XOBFILE,DIU(0)="TD" DO EN^DIU2
 ;
 QUIT
 ;