- 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 Apr 23, 2025@18:09:34 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.
