MAGJEX1B ;WIRMFO/JHC - Rad. Workstation RPC calls ; 10/17/2022
Source file <MAGJEX1B.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 |
|---|---|---|
| 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 | ;
|
| Name | Line Occurrences |
|---|---|
| LOCKIN | REMLOCK+6 |
| Name | Field # of Occurrence |
|---|---|
| ^( | REMLOCK+9 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ACQSITE | IMGLOOP+22, IMGLOOP+23* |
| ACTION | REMLOCK+3~, REMLOCK+8*, REMLOCK+11*, REMLOCK+12*, REMLOCK+13, REMLOCK+16 |
| >> ALTPATH | IMGLOOP+29*, IMGLOOP+32*, IMGLOOP+33*, IMGLOOP+34 |
| CASENO | LOCKIN+10~, LOCKIN+22*, LOCKIN+23, LOCKIN+25 |
| CKMINE | LOCKIN+10~, LOCKIN+20*, LOCKIN+24 |
| >> CT | IMGLOOP+26* |
| >> CURPATHS( | IMGLOOP+16*, IMGLOOP+31 |
| DAYCASE | REMLOCK+3~, REMLOCK+8*, REMLOCK+10*, REMLOCK+13, REMLOCK+16, REMLOCK+17 |
| DFN | IMGLOOP+4~, IMGLOOP+7*, IMGLOOP+8, IMGLOOP+9* |
| DUZ | LOCKIN+20 |
| >> I | IMGLOOP+16*, IMGLOOP+18*, REMLOCK+18* |
| ILOCK | LOCKIN+10~, LOCKIN+21*, LOCKIN+22, LOCKIN+23, LOCKIN+24, LOCKIN+26, LOCKIN+27, REMLOCK+3~, REMLOCK+9*, REMLOCK+11 , REMLOCK+12 |
| >> IMAG | IMGLOOP+6*, IMGLOOP+7, IMGLOOP+10, IMGLOOP+13, IMGLOOP+15, IMGLOOP+18, IMGLOOP+21, IMGLOOP+23, IMGLOOP+25 |
| IMGREC | IMGLOOP+4~, IMGLOOP+17*, IMGLOOP+19*, IMGLOOP+26 |
| LOCKCHK | LOCKIN~, LOCKIN+11*, LOCKIN+28 |
| LOCKLEV | LOCKIN~, LOCKIN+12*, LOCKIN+14*, LOCKIN+16*, LOCKIN+18*, LOCKIN+28, LOCKIN+29, LOCKIN+30, REMLOCK+3~, REMLOCK+6 , REMLOCK+7, REMLOCK+11, REMLOCK+12, REMLOCK+14, REMLOCK+15, REMLOCK+16, REMLOCK+17! |
| >> MAGEND | IMGLOOP+6 |
| >> MAGFILE2 | IMGLOOP+17 |
| >> MAGGRY | IMGLOOP+26 |
| >> MAGIEN | IMGLOOP+6*, IMGLOOP+12, IMGLOOP+17 |
| >> MAGJOB("ALTPATH" | IMGLOOP+5*, IMGLOOP+15, IMGLOOP+19, IMGLOOP+29, IMGLOOP+33, IMGLOOP+34* |
| >> MAGJOB("LOC" | IMGLOOP+16, IMGLOOP+31 |
| >> MAGS( | IMGLOOP+6, IMGLOOP+7, IMGLOOP+10, IMGLOOP+13, IMGLOOP+15, IMGLOOP+18, IMGLOOP+21, IMGLOOP+23, IMGLOOP+25 |
| >> MAGSTRT | IMGLOOP+6 |
| >> MAGXX | IMGLOOP+12* |
| >> MDL | IMGLOOP+10*, IMGLOOP+11*, IMGLOOP+27 |
| >> MIXEDUP | IMGLOOP+9* |
| >> MIXEDUP( | IMGLOOP+8*, IMGLOOP+9* |
| >> MODALITY | IMGLOOP+27* |
| MYLOCK | LOCKIN~, LOCKIN+12!*, LOCKIN+27*, REMLOCK+3~, REMLOCK+6, REMLOCK+16, REMLOCK+17! |
| MYLOCK( | LOCKIN+24*, LOCKIN+26*, LOCKIN+27 |
| P18ALTP | IMGLOOP+4~, IMGLOOP+15*, IMGLOOP+16*, IMGLOOP+19 |
| >> PROCDT | IMGLOOP+20, IMGLOOP+21* |
| >> PSIND( | IMGLOOP+18 |
| >> RADFN | IMGLOOP+8 |
| RARPT | LOCKIN~, LOCKIN+13, LOCKIN+15, LOCKIN+17, LOCKIN+19, LOCKIN+22, LOCKIN+23, LOCKIN+29, LOCKIN+30, REMLOCK+3~ , REMLOCK+4*, REMLOCK+5*, REMLOCK+6, REMLOCK+9, REMLOCK+14, REMLOCK+15, REMLOCK+16, REMLOCK+17 |
| RESULT | REMLOCK+3~, REMLOCK+16, REMLOCK+17 |
| >> STANUM | IMGLOOP+24, IMGLOOP+25* |
| >> STARTNOD | IMGLOOP+26 |
| >> T | IMGLOOP+16*, IMGLOOP+18*, IMGLOOP+19, IMGLOOP+21*, IMGLOOP+31*, IMGLOOP+32 |
| TS | REMLOCK+3~, REMLOCK+18*, REMLOCK+19 |
| U | IMGLOOP+6, IMGLOOP+7, IMGLOOP+10, IMGLOOP+13, IMGLOOP+15, IMGLOOP+17, IMGLOOP+18, IMGLOOP+19, IMGLOOP+21, IMGLOOP+23 , IMGLOOP+25, IMGLOOP+33, IMGLOOP+34, LOCKIN+20, LOCKIN+24, LOCKIN+25, LOCKIN+26, REMLOCK+10, REMLOCK+11, REMLOCK+12 , REMLOCK+13, REMLOCK+18, REMLOCK+19 |
| >> X | IMGLOOP+15*, IMGLOOP+16, IMGLOOP+18*, IMGLOOP+21*, IMGLOOP+23*, IMGLOOP+25*, LOCKIN+24*, LOCKIN+25*, LOCKIN+26 |
| XX | LOCKIN+10~, LOCKIN+22*, LOCKIN+23*, LOCKIN+24, LOCKIN+25, REMLOCK+9*, REMLOCK+10 |
| XY | LOCKIN+10~, LOCKIN+22*, LOCKIN+23*, LOCKIN+25 |
