Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: MAGJEX1A

Package: Imaging

Routine: MAGJEX1A


Information

MAGJEX1A ;WIRMFO/JHC - VistARad RPCs, exam locking ; 10/17/2022

Source Information

Source file <MAGJEX1A.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Imaging 3 $$PSETLST^MAGJEX1  LOCKIN^MAGJEX1B  LOG^MAGJUTL3  
Kernel 1 $$EC^%ZOSV  
VA FileMan 1 DT^DICRW  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Imaging 5 MAGJ RADCASELOCKS  MAGJEX1  MAGJEX1B  MAGJLS2B  MAGJUPD1  

Entry Points

Name Comments DBIA/ICR reference
ERR
CASLOCK(MAGGRY,DATA) ; RPC Call: MAGJ RADCASELOCKS
; MAGGRY holds $NA reference to ^TMP for rpc reply; all ref's to MAGGRY use ss indirection
; input in DATA: OPEN_FLAG^RADFN^RADTI^RACNI^RARPT
; OPEN_FLAG = 3: Reserve-to-Lock; 4: Lock-to-Reserve; 5: Lock/Take
; RADFN^, etc--exam id
CASLOCKZ ;
PNAM(X) ; return pt name for input DFN
LOCKACT(RARPT,DAYCASE,REQUEST,RESULT,ACTREPLY,LOGDATA) ; determine if desired lock action is feasible
; Input: RARPT, DAYCASE, REQUEST, LOGDATA
; REQUESTed Action:
; 1-Lock; 2-Reserve; 3-ResToLock; 4-LockToRes; 5-TakeLock; 100-Status; 101-UNLOCK
; Note: 100 & 101 are special for internal use only
; LOGDATA--pass through for Image Access Log
; Output: RESULT, ACTREPLY
; RESULT: ACTION "allowed" = LOCK^RESERVE^ResToInt^IntToRes^Take^_"|"_ImgLst
; these are truth values; Imglst true =~ return Image File list to client
; RESULT is ultimately used at tag LOCKOUT
; ACTREPLY --reply message for client logic/display
LOCKACT1
LOCKACTZ
LOCKOUT(RARPT,DAYCASE,LOCKLEV,MYLOCK,ACTION,RESULT,LOGDATA) ; Record Locks and Clear Locks, as required
; Precursors are logic and data from tags LOCKIN^magjex1b and LOCKACT
END

External References

Name Field # of Occurrence
$$EC^%ZOSV ERR
DT^DICRW CASLOCK+9
$$PSETLST^MAGJEX1 CASLOCK+35
LOCKIN^MAGJEX1B LOCKACT+15, LOCKACT+17
LOG^MAGJUTL3 CASLOCK+35

Used in RPC

RPC Name Call Tags
MAGJ RADCASELOCKS CASLOCK

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("ERRTN" ERR+1
^DPT - [#2] PNAM+1
^MAG(2006.69 - [#2006.69] LOCKACT+14
^RA(72 - [#72] CASLOCK+24, CASLOCK+28
^RADPT - [#70] CASLOCK+18
^TMP($J CASLOCK+11
^XTMP("MAGJ" CASLOCK+36*, LOCKOUT+11!, LOCKOUT+13, LOCKOUT+17*, LOCKOUT+18*, LOCKOUT+20

Label References

Name Line Occurrences
$$PNAM LOCKACT+32, LOCKACT+36, LOCKACT+53
@( ERR+1
CASLOCKZ CASLOCK+15, CASLOCK+17, CASLOCK+24
LOCKACT CASLOCK+26, CASLOCK+27, CASLOCK+29, CASLOCK+31
LOCKACT1 LOCKACT+18, LOCKACT+20
LOCKACTZ LOCKACT+15
LOCKOUT LOCKACT1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTION LOCKACT+12~, LOCKACT+13*, LOCKACT+16*, LOCKACT+21*, LOCKACT+27*, LOCKACT+29*, LOCKACT+30*, LOCKACT+32*, LOCKACT+33*, LOCKACT+34*
, LOCKACT+36*, LOCKACT+37*, LOCKACT+43*, LOCKACT+44*, LOCKACT+46*, LOCKACT+47*, LOCKACT+51*, LOCKACT+52*, LOCKACT+53*, LOCKACT+57*
, LOCKACT+59*, LOCKACT1, LOCKOUT~, LOCKOUT+10, LOCKOUT+16, LOCKOUT+20
ACTREPLY LOCKACT~, LOCKACT+13*, LOCKACT+19*, LOCKACT+21*, LOCKACT+22*, LOCKACT+27*, LOCKACT+29*, LOCKACT+30*, LOCKACT+32*, LOCKACT+33*
, LOCKACT+34*, LOCKACT+36*, LOCKACT+37*, LOCKACT+38*, LOCKACT+43*, LOCKACT+44*, LOCKACT+46*, LOCKACT+47*, LOCKACT+51*, LOCKACT+52*
, LOCKACT+53*, LOCKACT+54*, LOCKACT+57*, LOCKACT+59*, LOCKACT+60*
CT CASLOCK+7~, CASLOCK+10*, CASLOCKZ+1
CURCASE CASLOCK+7~, CASLOCK+12*, CASLOCK+14, CASLOCK+29, CASLOCK+32, CASLOCK+34
DATA CASLOCK~, CASLOCK+12, CASLOCK+13, CASLOCK+15, CASLOCK+17
DATAOUT CASLOCK+7~, CASLOCK+10*, CASLOCK+37*, CASLOCKZ+1
DAYCASE CASLOCK+8~, CASLOCK+10*, CASLOCK+21*, CASLOCK+22*, CASLOCK+26, CASLOCK+27, CASLOCK+28, CASLOCK+29, CASLOCK+31, CASLOCK+36
, LOCKACT~, LOCKACT+21, LOCKACT+32, LOCKACT+36, LOCKACT+37, LOCKACT+51, LOCKACT+52, LOCKACT+53, LOCKACT+57, LOCKACT+59
LOCKACT1, LOCKOUT~, LOCKOUT+17, LOCKOUT+18
DIQUIET CASLOCK+7~, CASLOCK+9*
DUZ LOCKOUT+17
ERR ERR~*
GOTLOCK CASLOCK+8~, CASLOCK+30*, CASLOCK+32
ILOCK LOCKOUT+4~, LOCKOUT+5*, LOCKOUT+6, LOCKOUT+7, LOCKOUT+9, LOCKOUT+10, LOCKOUT+11, LOCKOUT+12, LOCKOUT+13, LOCKOUT+16
, LOCKOUT+17, LOCKOUT+18, LOCKOUT+19, LOCKOUT+20
LOCKED CASLOCK+8~
LOCKLEV LOCKACT+12~, LOCKACT+15, LOCKACT+17, LOCKACT+20, LOCKACT+23, LOCKACT+39, LOCKACT+55, LOCKACT1, LOCKOUT~, LOCKOUT+3
, LOCKOUT+6, LOCKOUT+7
LOGDATA CASLOCK+8~, CASLOCK+33*, CASLOCK+34*, CASLOCK+35, CASLOCK+36, LOCKACT~, LOCKACT+13*, LOCKACT1, LOCKOUT~, LOCKOUT+2*
, LOCKOUT+17
LONGACN CASLOCK+8~, CASLOCK+19*, CASLOCK+22
MAGGRY ERR, CASLOCK~, CASLOCK+11!*, CASLOCKZ+1
>> MAGJOB("REMOTE" CASLOCK+34
>> MAGJOB("USER" LOCKACT+32, LOCKACT+36, LOCKACT+53, LOCKOUT+17
MAGLST CASLOCK+7~, CASLOCK+10*, CASLOCK+11
MAGS CASLOCK+8~
MYLOCK CASLOCK+8~, CASLOCK+31, LOCKACT+12~, LOCKACT+17, LOCKACT+19, LOCKACT+48, LOCKACT+58, LOCKACT1, LOCKOUT~
MYLOCK( LOCKOUT+9, LOCKOUT+16
MYLOCK(1 CASLOCK+32, CASLOCK+37, LOCKACT+21, LOCKACT+24, LOCKACT+27, LOCKACT+40, LOCKACT+43, LOCKACT+44, LOCKACT+57, LOCKACT+59
MYLOCK(2 CASLOCK+33, CASLOCK+37, LOCKACT+27, LOCKACT+30, LOCKACT+31, LOCKACT+33, LOCKACT+46, LOCKACT+51, LOCKACT+52, LOCKACT+56
RACN CASLOCK+8~, CASLOCK+19*, CASLOCK+21
RACNI CASLOCK+7~, CASLOCK+13*, CASLOCK+16, CASLOCK+18, CASLOCK+35, CASLOCKZ+1
RADFN CASLOCK+7~, CASLOCK+13*, CASLOCK+16, CASLOCK+18, CASLOCK+35, CASLOCKZ+1, LOCKACT+32, LOCKACT+36, LOCKACT+53
RADTE CASLOCK+8~, CASLOCK+20*, CASLOCK+21
RADTI CASLOCK+7~, CASLOCK+13*, CASLOCK+16, CASLOCK+18, CASLOCK+20, CASLOCK+35, CASLOCKZ+1
RARPT CASLOCK+7~, CASLOCK+13*, CASLOCK+16, CASLOCK+26, CASLOCK+27, CASLOCK+29, CASLOCK+31, CASLOCK+36, CASLOCKZ+1, LOCKACT~
, LOCKACT+15, LOCKACT+17, LOCKACT1, LOCKOUT~, LOCKOUT+11, LOCKOUT+13, LOCKOUT+17, LOCKOUT+18, LOCKOUT+20
REPLY CASLOCK+7~, CASLOCK+15*, CASLOCK+17*, CASLOCK+28*, CASLOCK+29, CASLOCKZ+1
REQUEST LOCKACT~, LOCKACT+15, LOCKACT+18, LOCKACT+21, LOCKACT+22, LOCKACT+25, LOCKACT+28, LOCKACT+30, LOCKACT+32, LOCKACT+33
, LOCKACT+34, LOCKACT+36, LOCKACT+37, LOCKACT+38, LOCKACT+41, LOCKACT+44, LOCKACT+46, LOCKACT+47, LOCKACT+49, LOCKACT+52
, LOCKACT+53, LOCKACT+54, LOCKACT+59, LOCKACT+60
RESULT CASLOCK+8~, CASLOCK+26, CASLOCK+27, CASLOCK+29, CASLOCK+30, LOCKACT~, LOCKACT+13!*, LOCKACT+15, LOCKACT1, LOCKOUT~
, LOCKOUT+2*, LOCKOUT+12*, LOCKOUT+19*
RESULT(1 CASLOCK+27
RESULT(2 CASLOCK+27
STS CASLOCK+25~*, CASLOCK+28
U CASLOCK+12, CASLOCK+13, CASLOCK+14, CASLOCK+19, CASLOCK+23, CASLOCK+28, CASLOCK+34, CASLOCKZ+1, PNAM+1, LOCKACT+14
, LOCKACT+21, LOCKACT+27, LOCKACT+29, LOCKACT+30, LOCKACT+32, LOCKACT+33, LOCKACT+34, LOCKACT+36, LOCKACT+37, LOCKACT+43
, LOCKACT+44, LOCKACT+46, LOCKACT+47, LOCKACT+51, LOCKACT+52, LOCKACT+53, LOCKACT+57, LOCKACT+59, LOCKOUT+10, LOCKOUT+12
, LOCKOUT+16, LOCKOUT+17, LOCKOUT+19, LOCKOUT+20
X CASLOCK+23*, CASLOCK+24, CASLOCK+25, PNAM~, PNAM+1*, PNAM+2*, PNAM+3
XX CASLOCK+7~, CASLOCK+18*, CASLOCK+19, CASLOCK+23
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Local Variables  | All