MAGJUTL2 ;WIRMFO/JHC/DAC - VistRad subroutines for RPC calls ; 10/17/2022
Source file <MAGJUTL2.m>
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 |