XOBVPRE ;; mjk/alb - VistaLimk Pre-Init ; 07/27/2002 13:00
;;1.6;VistALink;;May 08, 2009;Build 15
;Per VHA directive 2004-038, this routine should not be modified.
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
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXOBVPRE 557 printed Dec 13, 2024@02:44:47 Page 2
XOBVPRE ;; mjk/alb - VistaLimk Pre-Init ; 07/27/2002 13:00
+1 ;;1.6;VistALink;;May 08, 2009;Build 15
+2 ;Per VHA directive 2004-038, this routine should not be modified.
+3 QUIT
+4 ;
EN ; -- add pre-init code here
+1 ; -- delete VISTALINK MESSAGE TYPE file (18.05)
+2 DO DEL(18.05)
+3 ;
+4 QUIT
+5 ;
DEL(XOBFILE) ; -- delete file
+1 NEW DIU,XOBRES
+2 ;
+3 DO FILE^DID(XOBFILE,"","NAME","XOBRES")
+4 ;
+5 ; -- if file present then delete
+6 IF $GET(XOBRES("NAME"))'=""
Begin DoDot:1
+7 ; -- delete security provider file
+8 SET DIU=XOBFILE
SET DIU(0)="TD"
DO EN^DIU2
End DoDot:1
+9 ;
+10 QUIT
+11 ;
