Routine: MAGJLS2B

Package	Total	Call Graph
Imaging	2	LOCKACT^MAGJEX1A ($$CURLIST,LSTCOMP)^MAGJLS2
Vendor - ISI	2	SETVARS^ISIJLS2 $$ASIGME^ISIJUTL1

Package	Total	Caller Graph
Imaging	3	MAGJLS2 MAGJLS4 MAGJLST1
Vendor - ISI	1	ISIJRPT

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
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	;

Name	Field # of Occurrence
SETVARS^ISIJLS2	LSTOUT+33
$$ASIGME^ISIJUTL1	LSTOUT+47, LSTOUT+80
LOCKACT^MAGJEX1A	CHKLOCK+5
$$CURLIST^MAGJLS2	UPDR+3
LSTCOMP^MAGJLS2	UPDR+4

Name	Line Occurrences (* Changed, ! Killed)
^MAG(2005.2 - [#2005.2]	LSTOUT+88
^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+27, LSTOUT+31
^RADPT("AS"	LSTOUT+55
^TMP($J	LSTOUT+35!, LSTOUT+36!, LSTOUT+38, LSTOUT+39, LSTOUT+67, LSTOUT+77, LSTOUT+102, LSTOUT+103, LSTOUT+104, LSTOUTZ!
^XTMP("MAGJ"	CHKLOCK+4

Name	Line Occurrences
$$CHKLOCK	LSTOUT+82
$$RISTISME	LSTOUT+46, LSTOUT+79
$$SHOWPLAC	LSTOUT+25
LSTOUTZ	LSTOUT+37
LSTVAR	SETVARS+1
PARAMS	UPDR+1
SELVAR	SETVARS+1
SETVARS	LSTOUT+32
SRTVAR	SETVARS+1

Name	Field # of Occurrence
^(	LSTVAR+1, SELVAR+2, SELVAR+3, SHOWPLAC+2, LSTOUT+41
^("ISI"	LSTOUT+41, LSTOUT+72
^(2	LSTOUT+41, LSTOUT+72

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ASIGENA	LSTVAR+7, SRTVAR+8, LSTOUT+23~, LSTOUT+31*
>> BKGND	PARAMS+9*, PARAMS+10, PARAMS+12
CX	SELVAR+1~, SELVAR+7*, SELVAR+9
>> DATA01	LSTOUT+33, LSTOUT+47, LSTOUT+80
DAYCASE	CHKLOCK~, CHKLOCK+3, CHKLOCK+5, LSTOUT+20~, LSTOUT+81*, LSTOUT+82
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+19~, LSTOUT+33
DIS(	SELVAR+6, SELVAR+10, LSTOUT+52
DIS(0	SELVAR+5, SELVAR+6, SELVAR+10, LSTOUT+52
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+9, SRTVAR+13
I	LSTVAR+2~, LSTVAR+4, LSTVAR+9, SRTVAR+3~, SRTVAR+5, SELVAR+1~, SELVAR+3, SELVAR+7, LSTOUT+52, LSTOUT+59 , LSTOUT+61, LSTOUT+88~, RISTISME+5~*
IDL	SELVAR+1~, SELVAR+6*
IEN	SHOWPLAC+1~, SHOWPLAC+2*
ILST	LSTOUT+19~, LSTOUT+40, LSTOUT+41, LSTOUT+64, LSTOUT+65, LSTOUT+72*, LSTOUT+73, LSTOUT+102
IMD	LSTOUT+19~, LSTOUT+85*, LSTOUT+96, LSTOUT+97
LASTEDIT	PARAMS+1~, PARAMS+6*
LSTAGE	LSTOUT~, LSTOUT+24, LSTOUT+74, UPDR+3
LSTHDR	LSTVAR+1, LSTVAR+9, LSTVAR+10, LSTOUT+21~, LSTOUT+33, LSTOUT+103
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+32, 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+30, LSTOUT+33, LSTOUT+43, LSTOUT+54, LSTOUT+55, LSTOUT+64 , LSTOUT+94
>> LSTTL	PARAMS+6, PARAMS+7, LSTOUT+76
MAGGRY	LSTOUT~, LSTOUTZ!*
>> MAGJOB("CONSOLIDATED"	LSTOUT+43, LSTOUT+92
>> MAGJOB("DIVSCRN"	LSTOUT+43, LSTOUT+93
>> MAGJOB("LOC"	LSTOUT+59
>> MAGJOB("REMOTE"	LSTOUT+28
>> MAGJOB("REMOTESCREEN"	LSTOUT+30
>> MAGJOB("SITEP"	SHOWPLAC+2
MAGLST	LSTOUT~, LSTOUT+37, LSTOUT+41, LSTOUT+72
MAGRACNT	LSTOUT+19~, LSTOUT+34, LSTOUT+66, LSTOUT+67, LSTOUT+104
MD	LSTOUT+21~, LSTOUT+41!, LSTOUT+85, LSTOUT+86, LSTOUT+88, LSTOUT+89, LSTOUT+90, LSTOUT+91, LSTOUT+92, LSTOUT+93 , LSTOUT+94, LSTOUT+95*, LSTOUT+96
MD(	LSTOUT+50, LSTOUT+51, LSTOUT+62, LSTOUT+63
MDCVAR	SELVAR+5!, LSTOUT+19~, LSTOUT+33
MDCVAR(	SELVAR+11*, LSTOUT+49
MDLVAR	LSTVAR+1, LSTVAR+4, LSTVAR+10, LSTOUT+21~, LSTOUT+33, LSTOUT+85
MDSVAR	SRTVAR+2, SRTVAR+5, SRTVAR+15, LSTOUT+21~, LSTOUT+61
MODALITY	LSTOUT+20~, LSTOUT+84*
MYLOCK	CHKLOCK+1~, CHKLOCK+2, CHKLOCK+8, CHKLOCK+11, CHKLOCK+12, LSTOUT+20~, LSTOUT+82, LSTOUT+99
OUT	LSTOUT+21~, LSTOUT+72, LSTOUT+96, LSTOUT+97, LSTOUT+98, LSTOUT+102
QX	LSTOUT+21~, LSTOUT+69, LSTOUT+72, LSTOUT+81
RACNI	LSTOUT+20~, LSTOUT+44*, LSTOUT+55
RADFN	LSTOUT+20~, LSTOUT+44*, LSTOUT+55
>> RADIV	LSTOUT+43*
RADTI	LSTOUT+20~, LSTOUT+44*, LSTOUT+55
RARPT	CHKLOCK~, CHKLOCK+3, CHKLOCK+4, CHKLOCK+5, LSTOUT+20~, LSTOUT+44, LSTOUT+64, LSTOUT+65, LSTOUT+81, LSTOUT+82
RAST	LSTOUT+20~, LSTOUT+45*, LSTOUT+47, LSTOUT+55
REMONLY	LSTOUT+21~, LSTOUT+26, LSTOUT+30, LSTOUT+57, LSTOUT+58
REMOTCAS	LSTOUT+21~, LSTOUT+56*, LSTOUT+57, LSTOUT+58, LSTOUT+59
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+22~, LSTOUT+25, LSTOUT+90, LSTOUT+91
SNDREMOT	LSTVAR+5, SRTVAR+6, LSTOUT+19~, LSTOUT+27*, LSTOUT+86
SORT	LSTOUT+21~, LSTOUT+35*, LSTOUT+64, LSTOUT+65, LSTOUT+69, LSTOUT+72
SORTLEN	LSTOUT+22~, LSTOUT+35*, LSTOUT+72
SORTSS	SRTVAR+4, SRTVAR+12, SRTVAR+13, SRTVAR+14, LSTOUT+21~, LSTOUT+64, LSTOUT+65
SS	SELVAR+1~, SELVAR+2, SELVAR+3
STATPRIORITY	LSTOUT+22~, LSTOUT+84, LSTOUT+94, LSTOUT+100
T	LSTOUT+20~, LSTOUT+23~, LSTOUT+44, LSTOUT+58, LSTOUT+59, LSTOUT+74, LSTOUT+75, LSTOUT+76, LSTOUT+82, LSTOUT+88~ , LSTOUT+89, LSTOUT+95, LSTOUT+98, LSTOUT+99, LSTOUT+100
U	PARAMS+5, PARAMS+6, PARAMS+8, PARAMS+9, LSTVAR+4, LSTVAR+8, LSTVAR+9, SRTVAR+5, SRTVAR+10, SRTVAR+13 , SELVAR+7, SELVAR+8, CHKLOCK+7, CHKLOCK+10, CHKLOCK+12, SHOWPLAC+2, SHOWPLAC+3, LSTOUT+27, LSTOUT+31, LSTOUT+42 , LSTOUT+43, LSTOUT+44, LSTOUT+45, LSTOUT+46, LSTOUT+47, LSTOUT+50, LSTOUT+51, LSTOUT+54, LSTOUT+56, LSTOUT+61 , LSTOUT+62, LSTOUT+63, LSTOUT+64, LSTOUT+65, LSTOUT+76, LSTOUT+78, LSTOUT+79, LSTOUT+80, LSTOUT+81, LSTOUT+82 , LSTOUT+83, LSTOUT+84, LSTOUT+85, LSTOUT+88, LSTOUT+96, LSTOUT+97, LSTOUT+99, LSTOUT+100, LSTOUT+103, LSTOUT+104 , UPDR+3
WHO	CHKLOCK+1~, CHKLOCK+2, CHKLOCK+7, CHKLOCK+8, CHKLOCK+10, CHKLOCK+11, CHKLOCK+12
WHOLOCK	LSTOUT+20~, LSTOUT+82*, LSTOUT+83, LSTOUT+99
WRNMSG	LSTOUT~, LSTOUT+24*, LSTOUT+75
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+37, LSTOUT+38, LSTOUT+39, LSTOUT+49, LSTOUT+50, LSTOUT+51, LSTOUT+61 , LSTOUT+62, LSTOUT+63, LSTOUT+85, LSTOUT+86, LSTOUT+90, LSTOUT+92, LSTOUT+94, LSTOUT+95, RISTISME~, RISTISME+4 , RISTISME+5, UPDR+3
XOUT	LSTVAR+2~, LSTVAR+3, LSTVAR+8, LSTVAR+10, SRTVAR+3~, SRTVAR+4, SRTVAR+10, SRTVAR+13*, SRTVAR+15
XOUT2	LSTVAR+2~, LSTVAR+3, LSTVAR+9, LSTVAR+10
XX	LSTVAR+2~, LSTVAR+4, LSTVAR+5, LSTVAR+6, LSTVAR+7, LSTVAR+8, SRTVAR+3~, SRTVAR+5, SRTVAR+6, SRTVAR+7 , SRTVAR+8, SRTVAR+9, SRTVAR+10, SRTVAR+11, SRTVAR+12, CHKLOCK+1~, CHKLOCK+12, CHKLOCK+13, LSTOUT+20~, LSTOUT+27* , LSTOUT+31, LSTOUT+41, LSTOUT+42, LSTOUT+43, LSTOUT+45, LSTOUT+46, LSTOUT+50, LSTOUT+56, LSTOUT+62, LSTOUT+72* , LSTOUT+76, LSTOUT+77, LSTOUT+78, LSTOUT+79, LSTOUT+81, LSTOUT+83, LSTOUT+84, LSTOUT+85
XX2	LSTOUT+23~, LSTOUT+41, LSTOUT+42, LSTOUT+44, LSTOUT+72, LSTOUT+78, LSTOUT+97
XX9	LSTOUT+23~, LSTOUT+41, LSTOUT+47, LSTOUT+51, LSTOUT+54, LSTOUT+63, LSTOUT+72, LSTOUT+80, LSTOUT+85
Y	RISTISME+3~, RISTISME+5, RISTISME+6

Customize PDF page

Package: Imaging

Routine: MAGJLS2B

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 4

Entry Points

External References

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: