MAGJUTL2 ;WIRMFO/JHC/DAC - VistRad subroutines for RPC calls ; 10/17/2022
Source file <MAGJUTL2.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 |
|---|---|---|
| IMGINFO(RARPT,RET) | ; Fetch info from Image File for input RARPT:
; Input: RARPT: Rad Report pointer ; RET contents delimited by ^: ; CT = # of images for case ; ONL = Image Storage status (Y=On Magnetic disk, N=Jukebox ; "n/a" for not available, e.g., film only) ; note -- if last image in group is Online, considers ALL online ; MAGDT = Date/Time of Image Capture ; REMOTE = 1/0 to Indicate images were remotely cached ; MODALITY = Modality abbrev ; PLACE = Image storage PLace (ptr to 2006.1 entry) ; KEY = 1/0 ind. Key Images exist for this exam ; |
|
| IMGINFQ | ||
| MULTMDL(MDLS,DLM) | ; return multiple modality codes in a preferred sequence for HP lookups
; input: MDLS: list of modality codes, delimited by DLM ; return: "normalized" list delimited by DLM |
|
| ONLCHK(MAGIEN,USETGA) | ;
; Input: MAGIEN: Image pointer ; USETGA: 1/0 -- if 1, forces return of TGA (not .big) file |
|
| REMOTE(MAGIEN) | ;Return list of remote Cache Locations
; else, return "" if none |
|
| STANUM(NETLOC) | ; Return Station Number for input Network Location
|
|
| IMGINF2(RARPT,RET,USETGA) | ; Fetch info from Image File for input RARPT:
; Input: RARPT: Rad Report pointer ; RET: see below ; USETGA: 1/0 -- if 1, forces return of TGA (not .big) file ; RET holds array of return values: ; RET = # Images stored for the case ; RET(1:n) = ^-delimited pieces: ; 1 - 1/0 for Full-Res image on Mag. Disk that is Online ; 2 - FULL/BIG ; 3 - Modality ; 4 - Image IEN ; 5 - Station # ; 6 - Routed-to Locations (IENs) ; 7 - PLACE ; 8 - DFN ; 9 - FileName (if OffLine) ; 10 - PS_Indicator -- 1=Image is on Magnetic Disk ; ; * This subroutine may be called by other VistARad routines |
|
| IMGINF2Q | ;
|
|
| PSIND(MAGIEN) | ; return Presentation State Indicator(s) for image
; K=Key Image PStype; I=Interpretation PStyp; U=User PStyp |
|
| JBFETCH(RARPT,MAGS,USETGA,NOFETCH) | ; fetch this case's images from Jukebox, if necessary
; Input: RARPT: Rad Report pointer ; MAGS: see below ; USETGA: 1/0 -- if 1, forces return of TGA (not .big) file ; NOFETCH: 1/0 -- if 1, metadata get only so do NOT issue Jukebox retrieve ; This is a function that returns a string containing: ; # Images fetched from JB ^ Total # Images for Case ^ # Low Res Imgs ; The MAGS array will be returned to the calling ; routine if MAGS is provided as an input parameter ; MAGS is populated by call to IMGINF2. ; IF any images are stored OffLine, then this node is set here: ; MAGS("OFFLN",JBOFFLN)="" JBOFFLN = Platter ID from file 2006.033 |
|
| JBFETCHQ | ||
| END |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MAG(2005 - [#2005] | IMGINFO+18, IMGINFO+20, IMGINFO+22, IMGINFO+24, ONLCHK+20, ONLCHK+21, ONLCHK+22, REMOTE+4, REMOTE+5, IMGINF2+26 , IMGINF2+27, IMGINF2+30, PSIND+4 |
| ^MAG(2005.2 - [#2005.2] | ONLCHK+30, ONLCHK+36, STANUM+4 |
| ^MAGQUEUE(2006.033 - [#2006.033] | JBFETCH+26 |
| ^RARPT - [#74] | IMGINFO+16, IMGINFO+19, IMGINF2+24 |
| Name | Field # of Occurrence |
|---|---|
| ^( | IMGINFO+19, IMGINFO+24, IMGINF2+24, IMGINF2+30, PSIND+4, JBFETCH+26 |
| ^("FBIG" | ONLCHK+20 |
| ^(0 | IMGINFO+24, ONLCHK+30 |
| ^(2 | IMGINFO+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACQSITE | ONLCHK+17~, ONLCHK+19*, ONLCHK+22*, ONLCHK+37 |
| BIG | ONLCHK+17~, ONLCHK+20*, ONLCHK+24, ONLCHK+25*, ONLCHK+27, ONLCHK+35, ONLCHK+37, IMGINF2+20~ |
| CT | IMGINFO+14~, IMGINFO+15*, IMGINFO+24*, IMGINFO+25*, IMGINFQ+1 |
| DFN | ONLCHK+17~, ONLCHK+26*, ONLCHK+37 |
| DLM | MULTMDL~, MULTMDL+9, MULTMDL+13, MULTMDL+14 |
| FETCH | JBFETCH+15~, JBFETCH+18*, JBFETCH+23*, JBFETCHQ |
| FILNAM | ONLCHK+17~, ONLCHK+32*, ONLCHK+34*, ONLCHK+37, JBFETCH+15~, JBFETCH+25*, JBFETCH+26 |
| I | MULTMDL+10~, MULTMDL+12*, MULTMDL+13*, MULTMDL+14* |
| IEN | PSIND+2~, PSIND+3*, PSIND+4* |
| IMAG | JBFETCH+15~, JBFETCH+20* |
| IMG | IMGINF2+20~, IMGINF2+23*, IMGINF2+24* |
| IRPT | IMGINFO+13~, IMGINFO+19* |
| JBOFFLN | JBFETCH+15~, JBFETCH+26* |
| KEY | IMGINFO+14~, IMGINFO+15*, IMGINFO+18*, IMGINFQ+1 |
| LOC | REMOTE+2~, REMOTE+4*, REMOTE+5* |
| LORESCT | JBFETCH+15~, JBFETCH+18*, JBFETCH+21*, JBFETCHQ |
| MAG0 | ONLCHK+17~, ONLCHK+20*, ONLCHK+25, ONLCHK+26, ONLCHK+34 |
| MAG100 | ONLCHK+17~, ONLCHK+22* |
| MAG2 | ONLCHK+17~, ONLCHK+21* |
| MAGDT | IMGINFO+14~, IMGINFO+15*, IMGINFO+23*, IMGINFQ+1 |
| MAGIEN | IMGINFO+13~, IMGINFO+19*, IMGINFO+20, IMGINFO+22, IMGINFO+24, IMGINFO+25, ONLCHK~, ONLCHK+20, ONLCHK+21, ONLCHK+22 , REMOTE~, REMOTE+4, REMOTE+5, IMGINF2+20~, IMGINF2+24*, IMGINF2+26, IMGINF2+27, IMGINF2+28, IMGINF2+29, IMGINF2+30 , PSIND~, PSIND+4, JBFETCH+15~ |
| MAGIEN2 | IMGINFO+13~, IMGINFO+24*, IMGINF2+20~, IMGINF2+30*, IMGINF2+31, IMGINF2+32 |
| >> MAGJOB("CONSOLIDATED" | JBFETCH+27 |
| MAGPTR | IMGINF2+20~, IMGINF2+26*, IMGINF2+27, IMGINF2+30* |
| MAGS | JBFETCH~, JBFETCH+19, JBFETCH+20, JBFETCHQ |
| MAGS( | JBFETCH+20 |
| MAGS("OFFLN" | JBFETCH+26* |
| MD | MULTMDL+10~ |
| MD( | MULTMDL+12*, MULTMDL+13 |
| MDLS | MULTMDL~, MULTMDL+9, MULTMDL+13, MULTMDL+14*, MULTMDL+15*, MULTMDL+16 |
| MDLS( | MULTMDL+13* |
| MODALITY | IMGINFO+14~, IMGINFO+15*, IMGINFO+29*, IMGINFO+30*, IMGINFO+32*, IMGINFQ+1, ONLCHK+17~, ONLCHK+19*, ONLCHK+26*, ONLCHK+37 |
| NETLOC | IMGINFO+13~, STANUM~, STANUM+3, STANUM+4, IMGINF2+20~ |
| NETLOC( | ONLCHK+30*, ONLCHK+31 |
| NOD | ONLCHK+17~, ONLCHK+20*, ONLCHK+25*, ONLCHK+27, ONLCHK+28, ONLCHK+35 |
| NOFETCH | JBFETCH~, JBFETCH+17*, JBFETCH+24 |
| ONL | IMGINFO+14~, IMGINFO+15*, IMGINFO+26*, IMGINFQ*, IMGINFQ+1 |
| ONLCHK | IMGINFO+13~, IMGINFO+24*, IMGINFO+25*, IMGINFO+26, IMGINFO+28, IMGINFO+31 |
| ORD | MULTMDL+10~, MULTMDL+13* |
| PLACE | IMGINFO+14~, IMGINFO+15*, IMGINFO+31*, IMGINFQ+1, ONLCHK+17~, ONLCHK+19*, ONLCHK+31*, ONLCHK+36*, ONLCHK+37 |
| PROCDT | ONLCHK+17~, ONLCHK+21*, ONLCHK+37 |
| RARPT | IMGINFO~, IMGINFO+16, IMGINFO+17, IMGINFO+19, IMGINF2~, IMGINF2+23, IMGINF2+24, JBFETCH~, JBFETCH+19 |
| REMCHK | IMGINFO+14~, IMGINFO+24*, IMGINFO+25*, IMGINFO+27 |
| REMOTE | IMGINFO+14~, IMGINFO+15*, IMGINFO+27*, IMGINFQ+1 |
| RET | IMGINFO~, IMGINFO+15*, IMGINFQ+1*, ONLCHK+17~, ONLCHK+19*, ONLCHK+31*, ONLCHK+34*, ONLCHK+37*, ONLCHK+38, REMOTE+2~ , REMOTE+3*, REMOTE+5*, REMOTE+6, IMGINF2~, IMGINF2+21!*, IMGINF2+29*, IMGINF2+32* |
| RET( | IMGINF2+29*, IMGINF2+32* |
| RSL | PSIND+2~, PSIND+3*, PSIND+4*, PSIND+5 |
| STANUM | ONLCHK+17~, ONLCHK+19*, ONLCHK+31*, ONLCHK+37, STANUM+1~, STANUM+2*, STANUM+5*, STANUM+6 |
| STIEN | IMGINFO+13~, IMGINFO+17*, IMGINFO+18 |
| STR | MULTMDL+10~, MULTMDL+11*, MULTMDL+12 |
| T | IMGINFO+18*, MULTMDL+10~, MULTMDL+13*, ONLCHK+35*, ONLCHK+36, IMGINF2+28*, IMGINF2+29, IMGINF2+31*, IMGINF2+32, JBFETCH+26* |
| TDT | IMGINFO+14~, IMGINFO+22*, IMGINFO+23 |
| U | IMGINFO+19, IMGINFO+22, IMGINFO+24, IMGINFO+28, IMGINFO+31, IMGINFQ+1, MULTMDL+12, ONLCHK+21, ONLCHK+22, ONLCHK+26 , ONLCHK+27, ONLCHK+28, ONLCHK+30, ONLCHK+31, ONLCHK+34, ONLCHK+35, ONLCHK+36, ONLCHK+37, IMGINF2+24, IMGINF2+29 , IMGINF2+30, IMGINF2+32, PSIND+4, JBFETCH+21, JBFETCH+25, JBFETCH+26, JBFETCH+27, JBFETCH+28, JBFETCHQ |
| USETGA | ONLCHK~, ONLCHK+18*, ONLCHK+23, ONLCHK+24*, ONLCHK+37, IMGINF2~, IMGINF2+22*, IMGINF2+28, IMGINF2+31, JBFETCH~ , JBFETCH+16*, JBFETCH+19, JBFETCH+21 |
| X | IMGINFO+28*, IMGINFO+29, IMGINFO+30, MULTMDL+10~, MULTMDL+12*, MULTMDL+14*, ONLCHK+17~, ONLCHK+27*, ONLCHK+28*, ONLCHK+29 , ONLCHK+30, ONLCHK+31, STANUM+1~, STANUM+4*, STANUM+5, PSIND+2~, PSIND+4*, JBFETCH+20*, JBFETCH+21, JBFETCH+22 , JBFETCH+25, JBFETCH+27*, JBFETCH+28* |
| >> Y | IMGINFO+24* |
