MAGJEX1A ;WIRMFO/JHC - VistARad RPCs, exam locking ; 10/17/2022
Source file <MAGJEX1A.m>
| 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 |
| RPC Name | Call Tags |
|---|---|
| MAGJ RADCASELOCKS | CASLOCK |
