XOBUZAP1.m

XOBUZAP1 ;; mjk/alb - VistALink Connection Manager ; 08/4/2005  13:00

 ;;1.6;Foundations;;May 08, 2009;Build 15

 ;Per VHA directive 2004-038, this routine should not be modified.

 QUIT

 ;

VLEN ; -- List Manager interactive entry point for VistALink connection socket

 ;        job cleanup

 NEW XOBSEL

 DO VLSEL(.XOBSEL)

 DO EN^XOBUZAP(.XOBSEL)

 QUIT

 ;

VLQUICK ; -- Interactive that just zaps all for VistALink connection socket jobs

 ;

 IF $$ASK^XOBUZAP("Terminate all VistALink socket connection jobs") DO

 . WRITE !,"Count of socket jobs terminated: ",$$VLZAP()

 ELSE  DO

 . WRITE !,"No jobs terminated."

 QUIT

 ;

VLZAP() ; -- callable non-interactive for VistALink connection socket job cleanup

 ;    o  BE CAREFUL because this call just does it!

 ;    o  If in programmer's mode, it is recommended that the VLQUICK tag be used   

 ;  Input: None

 ; Return: Count of how many jobs terminated or

 ;         -1 is XOBSEL arrary is not passed in or is invalid.

 ;            

 NEW XOBSEL

 DO VLSEL(.XOBSEL)

 QUIT $$ZAP^XOBUZAP(.XOBSEL)

 ;

VLSEL(XOBSEL) ; -- setup VistALink connection socket job selection criteria

 ; -- routine name the job should be executing

 SET XOBSEL("ROUTINE")="XOBVSKT"

 ; -- state the routine should be in

 SET XOBSEL("STATE")=5 ; READ state

 ; -- optional title to be used by ListManager

 SET XOBSEL("TITLE")="VL/J2M Connection Manager"

 ; -- optional reference to VistA info for PIDs

 SET XOBSEL("VISTA INFO REF")=$$GETSUB()

 QUIT

 ;

GETSUB() ; -- get ^XTMP namespaced subscript beginning

 QUIT "XOB VISTA INFO"

 ;

GETREF() ; -- get ^XTMP reference of $JOB for Connection Mgr

 QUIT $$GETREF^XOBUZAP0($$GETSUB())

 ;

GETDESC() ; -- get description for 0th node of ^XTMP

 QUIT "VistALink Connection Information"

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XOBUZAP1   1792     printed  Sep 02, 2024@18:40:23                                                                                                                                                                                                    Page 2

XOBUZAP1  ;; mjk/alb - VistALink Connection Manager ; 08/4/2005  13:00

 +1       ;;1.6;Foundations;;May 08, 2009;Build 15

 +2       ;Per VHA directive 2004-038, this routine should not be modified.

 +3        QUIT 

 +4       ;

VLEN      ; -- List Manager interactive entry point for VistALink connection socket

 +1       ;        job cleanup

 +2        NEW XOBSEL

 +3        DO VLSEL(.XOBSEL)

 +4        DO EN^XOBUZAP(.XOBSEL)

 +5        QUIT 

 +6       ;

VLQUICK   ; -- Interactive that just zaps all for VistALink connection socket jobs

 +1       ;

 +2        IF $$ASK^XOBUZAP("Terminate all VistALink socket connection jobs")

               Begin DoDot:1

 +3                WRITE !,"Count of socket jobs terminated: ",$$VLZAP()

               End DoDot:1

 +4       IF '$TEST

               Begin DoDot:1

 +5                WRITE !,"No jobs terminated."

               End DoDot:1

 +6        QUIT 

 +7       ;

VLZAP()   ; -- callable non-interactive for VistALink connection socket job cleanup

 +1       ;    o  BE CAREFUL because this call just does it!

 +2       ;    o  If in programmer's mode, it is recommended that the VLQUICK tag be used   

 +3       ;  Input: None

 +4       ; Return: Count of how many jobs terminated or

 +5       ;         -1 is XOBSEL arrary is not passed in or is invalid.

 +6       ;            

 +7        NEW XOBSEL

 +8        DO VLSEL(.XOBSEL)

 +9        QUIT $$ZAP^XOBUZAP(.XOBSEL)

 +10      ;

VLSEL(XOBSEL) ; -- setup VistALink connection socket job selection criteria

 +1       ; -- routine name the job should be executing

 +2        SET XOBSEL("ROUTINE")="XOBVSKT"

 +3       ; -- state the routine should be in

 +4       ; READ state

           SET XOBSEL("STATE")=5

 +5       ; -- optional title to be used by ListManager

 +6        SET XOBSEL("TITLE")="VL/J2M Connection Manager"

 +7       ; -- optional reference to VistA info for PIDs

 +8        SET XOBSEL("VISTA INFO REF")=$$GETSUB()

 +9        QUIT 

 +10      ;

GETSUB()  ; -- get ^XTMP namespaced subscript beginning

 +1        QUIT "XOB VISTA INFO"

 +2       ;

GETREF()  ; -- get ^XTMP reference of $JOB for Connection Mgr

 +1        QUIT $$GETREF^XOBUZAP0($$GETSUB())

 +2       ;

GETDESC() ; -- get description for 0th node of ^XTMP

 +1        QUIT "VistALink Connection Information"

 +2       ;