XOBUZAP0 ;; mjk/alb - Terminate Jobs Utility ; 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
;
; ------------------- ^XTMP Related Utilities -------------------------
;
GETREF(SUB,XOBJOB) ; -- get ^XTMP reference of $JOB or passed in job #
QUIT $NAME(^XTMP(SUB_" "_$$BOXVOL^XOBUZAP()_" "_$GET(XOBJOB,$JOB)))
;
KILL(XOBREF) ; -- kill @ ref
KILL @XOBREF
QUIT
;
SETVI(XOBREF,XOBDUZ,XOBIP,XOBDESC) ; -- Set VistA Info node
NEW XOBDT
SET XOBDT=$$DT^XLFDT()
SET @XOBREF@(0)=$$FMADD^XLFDT(XOBDT,7)_U_XOBDT_U_XOBDESC_" [$JOB ="_$JOB_"]"
SET @XOBREF@(1)=$GET(XOBDUZ)_U_$GET(XOBIP)
QUIT
;
GETDUZ(XOBREF) ; -- Get DUZ from VistA Info node
QUIT +$GET(@XOBREF@(1))
;
GETIP(XOBREF) ; -- Get Client IP from VistA Info node
QUIT $PIECE($GET(@XOBREF@(1)),U,2)
;
; --------------------------------------------------------------------
;
GETSTATE(CODE) ; -- get state
QUIT $TEXT(STATE+CODE)
;
; Note: 'State' table below derived from Cache documentation on $ZUTIL(67,4) function.
; Codes 19-21 are present in Cache v5+ but not applicable to version 4.1.
STATE ; -- get process STATE text
;;1;LOCK :: Job is in the lock code.
;;2;OPEN :: Job is opening a device.
;;3;CLOS :: Job is closing a device.
;;4;USE :: Job is in the USE command.
;;5;READ :: Job is reading from a device.
;;6;WRT :: Job is writing to a device.
;;7;GGET :: Job is in gget.
;;8;GSET :: Job is in gset.
;;9;GKILL :: Job is in gkill.
;;10;GORD :: Job is in gorder for $ORDER.
;;11;GQRY :: Job is in gorder for $QUERY.
;;12;GDEF :: Job is in gdefval.
;;13;ZF :: Job is in a $ZF function call.
;;14;HANG :: Job is in the HANG command.
;;15;JOB :: Job is jobbing a job.
;;16;EXAM :: Job is doing ^JOBEXAM.
;;17;BRD :: Job is in $ZUTIL(9) or $ZUTIL(94), broadcasting a message.
;;18;SUSP :: Job is suspended.
;;19;INCR :: Job is in a $INCREMENT function call.
;;20;BSET :: Job is setting a bit using the $BIT functions.
;;21;BGET :: Job is getting a bit using the $BIT functions.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXOBUZAP0 2123 printed Dec 13, 2024@01:55:07 Page 2
XOBUZAP0 ;; mjk/alb - Terminate Jobs Utility ; 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 ;
+5 ; ------------------- ^XTMP Related Utilities -------------------------
+6 ;
GETREF(SUB,XOBJOB) ; -- get ^XTMP reference of $JOB or passed in job #
+1 QUIT $NAME(^XTMP(SUB_" "_$$BOXVOL^XOBUZAP()_" "_$GET(XOBJOB,$JOB)))
+2 ;
KILL(XOBREF) ; -- kill @ ref
+1 KILL @XOBREF
+2 QUIT
+3 ;
SETVI(XOBREF,XOBDUZ,XOBIP,XOBDESC) ; -- Set VistA Info node
+1 NEW XOBDT
+2 SET XOBDT=$$DT^XLFDT()
+3 SET @XOBREF@(0)=$$FMADD^XLFDT(XOBDT,7)_U_XOBDT_U_XOBDESC_" [$JOB ="_$JOB_"]"
+4 SET @XOBREF@(1)=$GET(XOBDUZ)_U_$GET(XOBIP)
+5 QUIT
+6 ;
GETDUZ(XOBREF) ; -- Get DUZ from VistA Info node
+1 QUIT +$GET(@XOBREF@(1))
+2 ;
GETIP(XOBREF) ; -- Get Client IP from VistA Info node
+1 QUIT $PIECE($GET(@XOBREF@(1)),U,2)
+2 ;
+3 ; --------------------------------------------------------------------
+4 ;
GETSTATE(CODE) ; -- get state
+1 QUIT $TEXT(STATE+CODE)
+2 ;
+3 ; Note: 'State' table below derived from Cache documentation on $ZUTIL(67,4) function.
+4 ; Codes 19-21 are present in Cache v5+ but not applicable to version 4.1.
STATE ; -- get process STATE text
+1 ;;1;LOCK :: Job is in the lock code.
+2 ;;2;OPEN :: Job is opening a device.
+3 ;;3;CLOS :: Job is closing a device.
+4 ;;4;USE :: Job is in the USE command.
+5 ;;5;READ :: Job is reading from a device.
+6 ;;6;WRT :: Job is writing to a device.
+7 ;;7;GGET :: Job is in gget.
+8 ;;8;GSET :: Job is in gset.
+9 ;;9;GKILL :: Job is in gkill.
+10 ;;10;GORD :: Job is in gorder for $ORDER.
+11 ;;11;GQRY :: Job is in gorder for $QUERY.
+12 ;;12;GDEF :: Job is in gdefval.
+13 ;;13;ZF :: Job is in a $ZF function call.
+14 ;;14;HANG :: Job is in the HANG command.
+15 ;;15;JOB :: Job is jobbing a job.
+16 ;;16;EXAM :: Job is doing ^JOBEXAM.
+17 ;;17;BRD :: Job is in $ZUTIL(9) or $ZUTIL(94), broadcasting a message.
+18 ;;18;SUSP :: Job is suspended.
+19 ;;19;INCR :: Job is in a $INCREMENT function call.
+20 ;;20;BSET :: Job is setting a bit using the $BIT functions.
+21 ;;21;BGET :: Job is getting a bit using the $BIT functions.
