Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MAGJUTL2

Package: Imaging

Routine: MAGJUTL2


Information

MAGJUTL2 ;WIRMFO/JHC/DAC - VistRad subroutines for RPC calls ; 9 Jul 2018 4:05 PM

Source Information

Source file <MAGJUTL2.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Imaging 3 $$JBTOHD^MAGBAPI  $$GETSNUM^MAGDQR21  $$STUDYID^MAGJUPD2  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Imaging 6 MAGJEX1  MAGJEX2  MAGJLS3  MAGJLS4  MAGJLST1  MAGJRT  

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
;
  • ICR #7405
    • Status: Active
    • Usage: Private
    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

    External References

    Name Field # of Occurrence
    $$JBTOHD^MAGBAPI JBFETCH+27, JBFETCH+28
    $$GETSNUM^MAGDQR21 STANUM+5
    $$STUDYID^MAGJUPD2 IMGINFO+17

    Global Variables Directly Accessed

    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

    Label References

    Name Line Occurrences
    $$MULTMDL IMGINFO+32
    $$ONLCHK IMGINFO+24, IMGINFO+25, IMGINF2+28, IMGINF2+31
    $$PSIND IMGINF2+29, IMGINF2+32
    $$REMOTE IMGINFO+24, IMGINFO+25, IMGINF2+29, IMGINF2+32
    $$STANUM ONLCHK+30
    IMGINF2 JBFETCH+19
    IMGINF2Q IMGINF2+23
    IMGINFQ IMGINFO+16

    Naked Globals

    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

    Local Variables

    Legend:

    >> 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*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All