XOBUZAP0 ;; mjk/alb - Terminate Jobs Utility ; 08/4/2005 13:00
Source file <XOBUZAP0.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETREF(SUB,XOBJOB) | ; -- get ^XTMP reference of $JOB or passed in job #
|
|
| KILL(XOBREF) | ; -- kill @ ref
|
|
| SETVI(XOBREF,XOBDUZ,XOBIP,XOBDESC) | ; -- Set VistA Info node
|
|
| GETDUZ(XOBREF) | ; -- Get DUZ from VistA Info node
|
|
| GETIP(XOBREF) | ; -- Get Client IP from VistA Info node
|
|
| GETSTATE(CODE) | ; -- get state
|
|
| STATE | ; -- get process STATE text
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP( | GETREF+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | GETSTATE~ |
| SUB | GETREF~, GETREF+1 |
| U | SETVI+3, SETVI+4, GETIP+1 |
| XOBDESC | SETVI~, SETVI+3 |
| XOBDT | SETVI+1~, SETVI+2*, SETVI+3 |
| XOBDUZ | SETVI~, SETVI+4 |
| XOBIP | SETVI~, SETVI+4 |
| XOBJOB | GETREF~, GETREF+1 |
| XOBREF | KILL~, KILL+1, SETVI~, SETVI+3, SETVI+4, GETDUZ~, GETDUZ+1, GETIP~, GETIP+1 |
| Name | Field # of Occurrence |
|---|---|
| $T(STATE+CODE | GETSTATE+1 |
