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: MAGJLS2B

Package: Imaging

Routine: MAGJLS2B


Information

MAGJLS2B ;WIRMFO/JHC VistARad RPC calls ; 29 Jul 2003 9:59 AM

Source Information

Source file <MAGJLS2B.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Imaging 2 LOCKACT^MAGJEX1A  ($$CURLIST,LSTCOMP)^MAGJLS2  

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: 3

Package Total Caller Graph
Imaging 3 MAGJLS2  MAGJLS4  MAGJLST1  

Entry Points

Name Comments DBIA/ICR reference
PARAMS(X) ; Init some vars used for Exam Lists
SETVARS(LSTID) ;output control variables
LSTVAR(LSTID) ; build output columns string
SRTVAR(LSTID) ; build sort-vars string in SORTSS
; indirection used to ref string at list output (see LSTOUT)
SELVAR(LSTID) ; build selection logic executes in DIS array
CHKLOCK(RARPT,DAYCASE) ; return ini of locking user & truth flag for locking user = logon user
  • ICR #7402
    • Status: Active
    • Usage: Private
    SHOWPLAC(X) ; return list of places to show: all defined places NOT equal to user's logon place
    LSTOUT(MAGGRY,LSTID,MAGLST,LSTAGE,WRNMSG) ; Build output list, w/ sort & selection
    ; Input: LSTID=List def'n
    ; MAGLST=Indirect global ref for input records; all reads use subscript indirection
    ; the nodes in @MAGLST contain:
    ;
    ; Node 1 corresponds to IENs 1:17 from Data Elements dic:
    ; Acn# ^ Ex LOCK ^ PtName ^ Pt_ID ^ Priority ^ Proc ^ Img Date/Time ^ Status ^ # Images ^ Online?
    ; Img Loc'n ^ Remote Ind. ^ Images Exist? ^ Img Date/Time-sortable ^ Mdl ^ Status/Internal ^ ImgTypABB
    ; Node 2-- IEN's 18:28 from Data Elements dic:
    ; REQLOCAbb ^ REQLOCNm ^ Interp Rad'ists ^ Last4 SSN ^ Division ^ Site ^ Rist Is Me? ^ ProcMod ^ REQLOCTyp ^ CPT
    ; WARD
    ; Node 2 then appends 3 pipe-delim pieces that are passed through from list compiler (See svmag2a^magjls3)
    LSTOUTZ
    RISTISME(X) ; calculate truth value for Interpreting Rist = Logon Rist
    ; input zero to 2 DUZ values Rist1~Rist2
    ; output Y or N for truth value
    UPDR ; Add Newly Interp exams to Recent; called from magjls2
    UPDRZ
    END ;

    External References

    Name Field # of Occurrence
    LOCKACT^MAGJEX1A CHKLOCK+5
    $$CURLIST^MAGJLS2 UPDR+3
    LSTCOMP^MAGJLS2 UPDR+4

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^MAG(2005.2 - [#2005.2] LSTOUT+76
    ^MAG(2006.1 - [#2006.1] SHOWPLAC+2
    ^MAG(2006.631 - [#2006.631] PARAMS+2, PARAMS+4, LSTVAR+1, SRTVAR+2, SELVAR+2, SELVAR+3
    ^MAG(2006.69 - [#2006.69] PARAMS+9, LSTOUT+24
    ^RADPT("AS" LSTOUT+45
    ^TMP($J LSTOUT+30!, LSTOUT+31!*, LSTOUT+33*, LSTOUT+34*, LSTOUT+56*, LSTOUT+66*, LSTOUT+90*, LSTOUT+91*, LSTOUT+92*, LSTOUTZ!
    ^XTMP("MAGJ" CHKLOCK+4

    Label References

    Name Line Occurrences
    $$CHKLOCK LSTOUT+70
    $$RISTISME LSTOUT+38, LSTOUT+68
    $$SHOWPLAC LSTOUT+22
    LSTOUTZ LSTOUT+32
    LSTVAR SETVARS+1
    PARAMS UPDR+1
    SELVAR SETVARS+1
    SETVARS LSTOUT+28
    SRTVAR SETVARS+1

    Naked Globals

    Name Field # of Occurrence
    ^( LSTVAR+1, SELVAR+2, SELVAR+3, SHOWPLAC+2, LSTOUT+36
    ^(2 LSTOUT+36, LSTOUT+61

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> BKGND PARAMS+9*, PARAMS+10, PARAMS+12
    CX SELVAR+1~, SELVAR+7*, SELVAR+9
    DAYCASE CHKLOCK~, CHKLOCK+3, CHKLOCK+5, LSTOUT+18~, LSTOUT+69*, LSTOUT+70
    DC SELVAR+1~
    DC( SELVAR+2*, SELVAR+7
    DCX SELVAR+1~, SELVAR+7*, SELVAR+8, SELVAR+11
    >> DELTA PARAMS+9*, PARAMS+10*
    DIS SELVAR+5!, LSTOUT+17~
    DIS( SELVAR+6*, SELVAR+10*, LSTOUT+41
    DIS(0 SELVAR+5*, SELVAR+6*, SELVAR+10, LSTOUT+41
    DL SELVAR+1~
    DL( SELVAR+3*, SELVAR+6
    DLX SELVAR+1~, SELVAR+6*, SELVAR+7
    DUZ RISTISME+5
    EXP SELVAR+1~, SELVAR+8*, SELVAR+9*, SELVAR+10
    HAVEONE SRTVAR+3~, SRTVAR+4*, SRTVAR+8*, SRTVAR+12
    I LSTVAR+2~, LSTVAR+4*, LSTVAR+8, SRTVAR+3~, SRTVAR+5*, SELVAR+1~, SELVAR+3*, SELVAR+7*, LSTOUT+41*, LSTOUT+50*
    , LSTOUT+52*, LSTOUT+76~*, RISTISME+5~*
    IDL SELVAR+1~, SELVAR+6*
    IEN SHOWPLAC+1~, SHOWPLAC+2*
    ILST LSTOUT+17~, LSTOUT+35*, LSTOUT+36*, LSTOUT+53, LSTOUT+54, LSTOUT+61*, LSTOUT+62, LSTOUT+90
    IMD LSTOUT+17~, LSTOUT+73*, LSTOUT+84, LSTOUT+85
    LASTEDIT PARAMS+1~, PARAMS+6*
    LSTAGE LSTOUT~, LSTOUT+21*, LSTOUT+63, UPDR+3*
    LSTHDR LSTVAR+1*, LSTVAR+8, LSTVAR+9*, LSTOUT+19~, LSTOUT+91
    LSTID PARAMS+2*, PARAMS+3*, PARAMS+4, PARAMS+5*, PARAMS+11, SETVARS~, SETVARS+1, LSTVAR~, LSTVAR+1, SRTVAR~
    , SRTVAR+2, SELVAR~, SELVAR+2, SELVAR+3, LSTOUT~, LSTOUT+28, UPDR+2
    >> LSTNAM PARAMS+11*, PARAMS+12*, UPDR+3
    >> LSTNUM UPDR+3*
    >> LSTPARAM PARAMS+6*, PARAMS+8*
    >> LSTREQ PARAMS+6*, PARAMS+7, PARAMS+9, PARAMS+12, LSTOUT+27, LSTOUT+45, LSTOUT+46, LSTOUT+53, LSTOUT+82
    >> LSTTL PARAMS+6*, PARAMS+7*, LSTOUT+65
    MAGGRY LSTOUT~, LSTOUTZ!*
    >> MAGJOB("CONSOLIDATED" LSTOUT+46, LSTOUT+80
    >> MAGJOB("DIVSCRN" LSTOUT+46, LSTOUT+81
    >> MAGJOB("LOC" LSTOUT+50
    >> MAGJOB("P32" LSTOUT+26
    >> MAGJOB("REMOTE" LSTOUT+25
    >> MAGJOB("REMOTESCREEN" LSTOUT+27
    >> MAGJOB("SITEP" SHOWPLAC+2
    MAGLST LSTOUT~, LSTOUT+32, LSTOUT+36, LSTOUT+61
    MAGRACNT LSTOUT+17~, LSTOUT+29*, LSTOUT+55*, LSTOUT+56, LSTOUT+92
    MD LSTOUT+19~, LSTOUT+36!, LSTOUT+73*, LSTOUT+74, LSTOUT+76, LSTOUT+77*, LSTOUT+78, LSTOUT+79*, LSTOUT+80, LSTOUT+81*
    , LSTOUT+82, LSTOUT+83*, LSTOUT+84
    MD( LSTOUT+40*, LSTOUT+52*
    MDCVAR SELVAR+5!, LSTOUT+17~
    MDCVAR( SELVAR+11*, LSTOUT+40
    MDLVAR LSTVAR+1*, LSTVAR+4, LSTVAR+9*, LSTOUT+19~, LSTOUT+73
    MDSVAR SRTVAR+2*, SRTVAR+5, SRTVAR+14*, LSTOUT+19~, LSTOUT+52
    MODALITY LSTOUT+18~, LSTOUT+72*
    MYLOCK CHKLOCK+1~, CHKLOCK+2*, CHKLOCK+8*, CHKLOCK+11*, CHKLOCK+12, LSTOUT+18~, LSTOUT+70*, LSTOUT+87
    OUT LSTOUT+19~, LSTOUT+61*, LSTOUT+84*, LSTOUT+85*, LSTOUT+86*, LSTOUT+90
    QX LSTOUT+19~, LSTOUT+58*, LSTOUT+61*, LSTOUT+69
    RACNI LSTOUT+18~, LSTOUT+44*, LSTOUT+45
    RADFN LSTOUT+18~, LSTOUT+44*, LSTOUT+45
    >> RADIV LSTOUT+46*
    RADTI LSTOUT+18~, LSTOUT+44*, LSTOUT+45
    RARPT CHKLOCK~, CHKLOCK+3, CHKLOCK+4, CHKLOCK+5, LSTOUT+18~, LSTOUT+44*, LSTOUT+53, LSTOUT+54, LSTOUT+69*, LSTOUT+70
    RAST LSTOUT+18~, LSTOUT+43*, LSTOUT+45
    REMONLY LSTOUT+19~, LSTOUT+23*, LSTOUT+26*, LSTOUT+27*, LSTOUT+48, LSTOUT+49
    REMOTCAS LSTOUT+19~, LSTOUT+47*, LSTOUT+48, LSTOUT+49, LSTOUT+50
    RESULT CHKLOCK+1~, CHKLOCK+5, CHKLOCK+6
    RESULT(1 CHKLOCK+7
    RESULT(2 CHKLOCK+10
    SC LSTVAR+2~, LSTVAR+3*
    SELVAR SELVAR+1~
    SELVAR2 SELVAR+1~
    SHOWPLAC LSTVAR+6, SRTVAR+7, SHOWPLAC+1~*, SHOWPLAC+2*, SHOWPLAC+3*, SHOWPLAC+4, LSTOUT+20~, LSTOUT+22*, LSTOUT+78, LSTOUT+79
    SNDREMOT LSTVAR+5, SRTVAR+6, LSTOUT+17~, LSTOUT+24*, LSTOUT+74
    SORT LSTOUT+19~, LSTOUT+30*, LSTOUT+53, LSTOUT+54, LSTOUT+58, LSTOUT+61
    SORTLEN LSTOUT+20~, LSTOUT+30*, LSTOUT+61
    SORTSS SRTVAR+4*, SRTVAR+11*, SRTVAR+12*, SRTVAR+13*, LSTOUT+19~, LSTOUT+53, LSTOUT+54
    SS SELVAR+1~, SELVAR+2*, SELVAR+3*
    STATPRIORITY LSTOUT+20~, LSTOUT+72*, LSTOUT+82*, LSTOUT+88
    T LSTOUT+18~, LSTOUT+44*, LSTOUT+49, LSTOUT+50*, LSTOUT+63*, LSTOUT+64*, LSTOUT+65, LSTOUT+70*, LSTOUT+76~*, LSTOUT+77
    , LSTOUT+83*, LSTOUT+86*, LSTOUT+87*, LSTOUT+88*
    U PARAMS+5, PARAMS+6, PARAMS+8, PARAMS+9, LSTVAR+4, LSTVAR+7, LSTVAR+8, SRTVAR+5, SRTVAR+9, SRTVAR+12
    , SELVAR+7, SELVAR+8, CHKLOCK+7, CHKLOCK+10, CHKLOCK+12, SHOWPLAC+2, SHOWPLAC+3, LSTOUT+24, LSTOUT+26, LSTOUT+37
    , LSTOUT+38, LSTOUT+40, LSTOUT+43, LSTOUT+44, LSTOUT+46, LSTOUT+47, LSTOUT+52, LSTOUT+53, LSTOUT+54, LSTOUT+65
    , LSTOUT+67, LSTOUT+68, LSTOUT+69, LSTOUT+70, LSTOUT+71, LSTOUT+72, LSTOUT+73, LSTOUT+76, LSTOUT+84, LSTOUT+85
    , LSTOUT+87, LSTOUT+88, LSTOUT+91, LSTOUT+92, UPDR+3
    WHO CHKLOCK+1~, CHKLOCK+2*, CHKLOCK+7*, CHKLOCK+8, CHKLOCK+10*, CHKLOCK+11*, CHKLOCK+12
    WHOLOCK LSTOUT+18~, LSTOUT+70*, LSTOUT+71, LSTOUT+87
    WRNMSG LSTOUT~, LSTOUT+21*, LSTOUT+64
    X PARAMS~, PARAMS+2, PARAMS+4*, PARAMS+5, PARAMS+6, PARAMS+9*, CHKLOCK+1~, CHKLOCK+7*, CHKLOCK+8, CHKLOCK+10*
    , CHKLOCK+11, SHOWPLAC~, SHOWPLAC+2*, LSTOUT+32*, LSTOUT+33, LSTOUT+34, LSTOUT+40*, LSTOUT+52*, LSTOUT+73*, LSTOUT+74
    , LSTOUT+78, LSTOUT+80, LSTOUT+82, LSTOUT+83, RISTISME~, RISTISME+4, RISTISME+5, UPDR+3*
    XOUT LSTVAR+2~, LSTVAR+3*, LSTVAR+7*, LSTVAR+9, SRTVAR+3~, SRTVAR+4*, SRTVAR+9*, SRTVAR+12*, SRTVAR+14
    XOUT2 LSTVAR+2~, LSTVAR+3*, LSTVAR+8*, LSTVAR+9
    XX LSTVAR+2~, LSTVAR+4*, LSTVAR+5, LSTVAR+6, LSTVAR+7, SRTVAR+3~, SRTVAR+5*, SRTVAR+6, SRTVAR+7, SRTVAR+8
    , SRTVAR+9, SRTVAR+10*, SRTVAR+11, CHKLOCK+1~, CHKLOCK+12*, CHKLOCK+13, LSTOUT+18~, LSTOUT+24*, LSTOUT+26, LSTOUT+36*
    , LSTOUT+37*, LSTOUT+38*, LSTOUT+40, LSTOUT+43, LSTOUT+46, LSTOUT+47, LSTOUT+52, LSTOUT+61*, LSTOUT+65*, LSTOUT+66
    , LSTOUT+67*, LSTOUT+68*, LSTOUT+69, LSTOUT+71*, LSTOUT+72, LSTOUT+73
    >> XX2 LSTOUT+36*, LSTOUT+37*, LSTOUT+44, LSTOUT+61*, LSTOUT+67*, LSTOUT+85
    Y RISTISME+3~*, RISTISME+5*, RISTISME+6
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All