Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: MAGJUTL2

Package: Imaging

Routine: MAGJUTL2


Information

MAGJUTL2 ;WIRMFO/JHC/DAC - VistRad subroutines for RPC calls ; 10/17/2022

Source Information

Source file <MAGJUTL2.m>

Entry Points

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
Info |  Source |  Entry Points