XOBVPRE.m

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

 ;

XOBVPRE   ;; mjk/alb - VistaLimk Pre-Init ; 07/27/2002  13:00

 +1       ;;1.5;VistALink;;Sep 09, 2005

 +2       ;;Foundations Toolbox Release v1.5 [Build: 1.5.0.026]

 +3       ;

 +4        QUIT 

 +5       ;

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      ;