MAGJEX1B ;WIRMFO/JHC - Rad. Workstation RPC calls ; 10/17/2022
Source file <MAGJEX1B.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IMGLOOP | ; get data for all the images
; This subroutine is called from MAGJEX1 ; MAGGRY holds $NA reference to ^TMP where Broker return message is assembled; ; all references to MAGGRY use subscript indirection |
|
| IMGLOOPZ | ||
| LOCKIN(RARPT,LOCKLEV,MYLOCK,LOCKCHK) | ; init lock-related info B4 do any lock actions
; called from UTL3 & EX1A ; if LOCKCHK="STATUS", only return current status ; Input RARPT (required) and LOCKCHK (opt) ; Output: LOCKLEV & MYLOCK array; successful LOCKS left intact, unless LOCKCHK="STATUS" ; M LOCKS det. what Actions are possible by calling program modules ; MYLOCK(1/2)= Lock_is_Mine ^ DUZ ^ $J ^ User Name ^ User Init ^ Case # ; LOCKLEV=0:3--is/not 1-Lockable/2-Reservable/3-Both to user ; MYLOCK=0:3--is/not already 1-Locked/2-Reserved/3-Both by user |
|
| REMLOCK | ; Remove dangling exam locks; this is run only at Logon
; If a recorded lock is found that a new job (logon) can M-Lock ; then that is a dangling lock that must be removed |
|
| END | ;
|
