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 ---[H[J[2J[HXOBUZAP1 1792 printed Sep 23, 2025@19:31:11 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 ;
