Routine: MAGJUTL3

Package	Total	Call Graph
Imaging	7	LIST^MAGBRTLD (ACTION,LOGOFF,UPD)^MAGGTAU INFO^MAGGTPT1 REMLOCK^MAGJEX1B $$IMGSIT^MAGJUTL1 CHKVER^MAGJUTL5 ENTRY^MAGLOG
VA FileMan	4	(,NOW)^%DTC DT^DICRW DT^DILF ($$GET1,GETS)^DIQ
Kernel	3	$$EC^%ZOSV ($$PROD,PROD)^XUPROD OWNSKEY^XUSRB
Registration	2	PID^VADPT6 $$SITE^VASITE
Vendor - ISI	2	REMLOCK^ISIJRPT2 ($$MGRREV2,$$UJOCHECK)^ISIJUTL9

Package	Total	Caller Graph
Imaging	14	MAGJ CACHELOCATION MAGJ CUSTOM LISTS MAGJ LOGOFF MAGJ PT INFO MAGJ USER2 MAGJEX1 MAGJEX1A MAGJEX2 MAGJLS2 MAGJLS4 MAGJPRF1 MAGJRT MAGJUPD1 MAGJUTL1
Vendor - ISI	1	ISIJNOTE

Entry Points

Name	Comments	DBIA/ICR reference
LISTINF(MAGGRY)	; RPC: MAGJ CUSTOM LISTS ; get Exam List data ; Return in ^TMP($J,"MAGJLSTINF",0:N) ; 0)= # Entries below (0:n) ; 1:n)= Button Label^List #^Button Hints^List Type
LOG(ACTION,LOGDATA,PSETLST)	; Log exam access ; ACTION --- Action code string passed in (e.g. VR-VW for vrad view) ; LOGDATA - ^-delimited fields--see code immediately below ; PSETLST -- For Printset exams, has list of Rad Case Numbers included ;
LOGOFF(MAGGRY,DATA)	; RPC: MAGJ LOGOFF
CACHEQ(MAGGRY,DATA)	; RPC: MAGJ CACHELOCATION ; some logon inits & get alternate paths for Remote Reading ; input in DATA: ; - WSLOC = WS Loc'n ; - VRADVER = Client Vs -- p32 ONLY ; - OSVER = Client OS Vs -- p32 ONLY ; Return in ^TMP($J,"MAGJCACHE",0:N) (@MAGGRY) ; 0)= # Entries below (0:n) ; 1:n)= PhysName^Subdirectory^HashFlag^Username^Password^AltPath_IEN
CACHEQZ
MAGJOBNC	; EP for Prefetch/Bkgnd calls (NOT a Vrad Client)
MAGJOB	; Init magjob array
USERINF(DUZ,FLDS)	; get data from user file
USERKEYS	; Store Security Keys in MagJob
PINF1(MAGGRY,MAGDFN)	;RPC Call MAGJ PT INFO -- Get pt info
AGECALC(DOB)	; calculate age from DOB til now ; format for age-appropriate display ; Input DOB in Fileman format ; Note: assumes a previously validated date is passed in
USERINF2(MAGGRY,DATA)	; RPC: MAGJ USER2--get user info
USERIN2Z
MAMMOCHK(X)	; P133--now ignoring screen resolution, etc. ; note--as of ??/12 there are other sized displaysapproved for mammo ; now returns just a single disclaimer message, regardless of display ; keeping this structure for possible change in the future
UPCASE(X)	; strip spaces, and cx to uppercase
ERR1
ERR2
ERR3
ERR
END

Name	Field # of Occurrence
^%DTC	AGECALC+9
NOW^%DTC	AGECALC+8
$$EC^%ZOSV	ERR1, ERR2, ERR3
DT^DICRW	CACHEQ+28
DT^DILF	PINF1+8
$$GET1^DIQ	USERINF2+22, USERINF2+25, USERINF2+26
GETS^DIQ	USERINF+3
REMLOCK^ISIJRPT2	MAGJOB+32
$$MGRREV2^ISIJUTL9	LISTINF+23, LISTINF+28, USERINF2+44
$$UJOCHECK^ISIJUTL9	USERINF2+48
LIST^MAGBRTLD	CACHEQ+43
ACTION^MAGGTAU	LOG+28, LOG+29
LOGOFF^MAGGTAU	LOGOFF+3
UPD^MAGGTAU	MAGJOB+30
INFO^MAGGTPT1	PINF1+4
REMLOCK^MAGJEX1B	MAGJOB+31
$$IMGSIT^MAGJUTL1	MAGJOB+7
CHKVER^MAGJUTL5	USERINF2+6
ENTRY^MAGLOG	LOG+39, LOG+40
PID^VADPT6	PINF1+9
$$SITE^VASITE	USERINF2+27, USERINF2+28
$$PROD^XUPROD	USERINF2+62
PROD^XUPROD	USERINF2+62
OWNSKEY^XUSRB	USERKEYS+11

RPC Name	Call Tags
MAGJ CACHELOCATION	CACHEQ
MAGJ CUSTOM LISTS	LISTINF
MAGJ PT INFO	PINF1
MAGJ LOGOFF	LOGOFF
MAGJ USER2	USERINF2

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ, GETS^DIQ
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("ERRTN"	ERR
^%ZOSF("TRAP"	LISTINF+12, CACHEQ+25, PINF1+2, USERINF2+1
^MAG(2005.2 - [#2005.2]	USERINF2+35, USERINF2+36
^MAG(2006.1 - [#2006.1]	CACHEQ+40, MAGJOB+6, MAGJOB+17, MAGJOB+18, MAGJOB+20, USERINF2+32, USERINF2+59
^MAG(2006.631 - [#2006.631]	LISTINF+17
^MAG(2006.69 - [#2006.69]	LISTINF+25, LISTINF+27, CACHEQ+38, USERINF2+19, USERINF2+21, USERINF2+45, USERINF2+46
^TMP($J	LISTINF+16, CACHEQ+30
^VA(200 - [#200]	MAGJOB+8, USERINF2+18
^XUSEC(	USERKEYS+8

Name	Line Occurrences
$$AGECALC	PINF1+8
$$MAMMOCHK	USERINF2+66
$$UPCASE	CACHEQ+31
$$USERINF	MAGJOB+10
@(	ERR
ERR	ERR1, ERR2
MAGJOB	CACHEQ+35, MAGJOBNC+2, USERINF2+13
USERIN2Z	USERINF2+7
USERKEYS	MAGJOB+5

Name	Field # of Occurrence
^(	LISTINF+33*
^(0	LISTINF+33*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%I	AGECALC+8!
ACTION	LOG~, LOG+15, LOG+16, LOG+17, LOG+18, LOG+36, LOG+39, LOG+40
AGE	PINF1+1~, PINF1+3, PINF1+8, PINF1+11, AGECALC+4~, AGECALC+5, AGECALC+11, AGECALC+12, AGECALC+13, AGECALC+14* , AGECALC+15*, AGECALC+16
ALTIEN	CACHEQ+27~, CACHEQ+45*, CACHEQ+47, CACHEQ+48
D0	LISTINF+13~, LISTINF+18, LISTINF+19, LISTINF+21
DATA	LOGOFF~, CACHEQ~, CACHEQ+31, USERINF2~, USERINF2+5, USERINF2+11
DFN	PINF1+1~, PINF1+9*
DICTPREF	USERINF2+4~, USERINF2+21*, USERINF2+22
DIQUIET	CACHEQ+27~, CACHEQ+28*
>> DIV	MAGJOB+15, MAGJOB+18, MAGJOB+20*
DOB	PINF1+1~, PINF1+7, PINF1+8, AGECALC~, AGECALC+6, AGECALC+7, AGECALC+9
DUZ	LOG+39, LOG+40, MAGJOB+8, MAGJOB+10, USERINF~, USERINF+1, USERINF+3, USERINF+4, USERINF2+3, USERINF2+18 , USERINF2+22, USERINF2+25
DUZ(2	MAGJOB+7, MAGJOB+14, MAGJOB+16, MAGJOB+17, USERINF2+26
ERR	ERR1~, ERR2~, ERR3~*
FLDS	USERINF~, USERINF+1, USERINF+3, USERINF+5
GLB	LISTINF+13~, LISTINF+17*, LISTINF+18, LISTINF+19, LISTINF+21
I	LISTINF+31, LOG+14~, LOG+26~, LOG+27, LOG+28, LOG+37~, LOG+38, LOG+39, CACHEQ+27~, CACHEQ+44* , CACHEQ+45, CACHEQ+46, CACHEQ+48, USERINF+2~, USERINF+5, USERKEYS+1~, USERKEYS+6, USERKEYS+9, USERKEYS+12, USERINF2+4~
ICNT	USERINF2+4~, USERINF2+63, USERINF2+64, USERINF2+65, USERINF2+67, USERINF2+68
>> IEN	MAGJOB+17*, MAGJOB+18
IMPLVARIANT	USERINF2+42~, USERINF2+43, USERINF2+49, USERINF2+55
INF	LISTINF+13~, LISTINF+31*, LISTINF+33
IO("CLNM"	MAGJOB+11
ISIDICTENA	USERINF2+42~, USERINF2+46*, USERINF2+54
J	USERINF2+4~
K	USERINF2+4~
LOGDATA	LOG~, LOG+6
LSTNUM	LISTINF+14~, LISTINF+22, LISTINF+23, LISTINF+24, LISTINF+25, LISTINF+26, LISTINF+27, LISTINF+28, LISTINF+29
MAGDFN	PINF1~, PINF1+4, PINF1+9
MAGGRY	LISTINF~, LISTINF+16!, LISTINF+33, LOGOFF~, LOGOFF+3, CACHEQ~, CACHEQ+30!, CACHEQ+48, CACHEQ+50, PINF1~ , PINF1+4, PINF1+5, PINF1+7, PINF1+11, USERINF2~, USERINF2+2!, ERR1, ERR3
MAGGRY(	USERINF2+63, USERINF2+64, USERINF2+65, USERINF2+67, USERINF2+68*
MAGGRY(0	USERINF2+2, USERINF2+3, USERINF2+7, USERINF2+22, USERINF2+25, USERINF2+26, USERINF2+27, USERINF2+28, USERINF2+37, USERINF2+38 , USERINF2+50, USERINF2+51, USERINF2+52, USERINF2+53, USERINF2+54, USERINF2+55, ERR2*
MAGGRY(1	USERINF2+2, USERINF2+7, USERINF2+59, USERINF2+61, USERINF2+62*
MAGGRY(2	USERINF2+63*
MAGIEN	LOG+5~, LOG+6*, LOG+18, LOG+39, LOG+40
>> MAGJOB("ALTPATH"	CACHEQ+44, CACHEQ+49
>> MAGJOB("CONSOLIDATED"	MAGJOB+6*, MAGJOB+12
>> MAGJOB("DIVSCRN"	MAGJOB+12!, MAGJOB+14, MAGJOB+18, MAGJOB+20*
>> MAGJOB("KEYS"	LISTINF+29, USERKEYS+5!, USERKEYS+12*, USERINF2+61, USERINF2+63
>> MAGJOB("LASTPT"	LOG+16, LOG+17*
>> MAGJOB("LOC"	CACHEQ+48*
>> MAGJOB("OSVER"	CACHEQ+32, CACHEQ+33, MAGJOB+27, USERINF2+9
>> MAGJOB("REMOTE"	CACHEQ+37, CACHEQ+41
>> MAGJOB("REMOTESCREEN"	CACHEQ+38*
>> MAGJOB("SITEP"	CACHEQ+40, MAGJOB+7*, MAGJOB+16, MAGJOB+17, MAGJOB+18, MAGJOB+20, USERINF2+32, USERINF2+38
>> MAGJOB("USER"	LOG+19, MAGJOB+10*, MAGJOB+21, USERINF2+17, USERINF2+60
>> MAGJOB("VRBLDDTTM"	MAGJOB+29, USERINF2+11*
>> MAGJOB("VRVERSION"	LOG+39, LOG+40, CACHEQ+34, MAGJOB+2, MAGJOB+28, USERINF2+10, USERINF2+44
>> MAGJOB("VSVERSION"	USERINF2+12*
>> MAGJOB("WRKSIEN"	MAGJOB+22
>> MAGJOB("WSLOC"	CACHEQ+37*
>> MAGJOB("WSLOCTYP"	MAGJOB+21*, MAGJOB+25
>> MAGJOB("WSNAME"	MAGJOB+11*, MAGJOB+24
MAGKG	USERKEYS+4~, USERKEYS+11
MAGKG(	USERKEYS+12
MAGKS	USERKEYS+3~, USERKEYS+10, USERKEYS+11
MAGKS(	USERKEYS+9*, USERKEYS+12
MAGLST	LISTINF+13~, LISTINF+15, LISTINF+16, CACHEQ+27~, CACHEQ+29, CACHEQ+30
MAGSSN	PINF1+1~, PINF1+3, PINF1+9, PINF1+11
MAMMORES	USERINF2+4~, USERINF2+5*, USERINF2+66
MATCH	USERKEYS+2~, USERKEYS+7*, USERKEYS+8
MSG	USERINF2+4~, USERINF2+66, USERINF2+67, MAMMOCHK+4~, MAMMOCHK+5, MAMMOCHK+6
NAM	LISTINF+13~, LISTINF+17, LISTINF+18, LISTINF+19
NDAYS	AGECALC+4~, AGECALC+9*, AGECALC+10, AGECALC+11, AGECALC+12, AGECALC+13, AGECALC+14, AGECALC+15
NIMGS	LOG+5~, LOG+6, LOG+18, LOG+38, LOG+39, LOG+40
NOTCLIEN	MAGJOBNC+1~*, MAGJOB+23
NOTESENA	USERINF2+42~, USERINF2+45*, USERINF2+52
OSVER	CACHEQ+27~, CACHEQ+31, CACHEQ+33, USERINF2+4~, USERINF2+5, USERINF2+9
PLACE	USERINF2+4~, USERINF2+6, USERINF2+59
PRTSET	LOG+5~, LOG+12*, LOG+13, LOG+14, LOG+26, LOG+37
PRTSET(	LOG+14*, LOG+28, LOG+39
PSETLST	LOG~, LOG+11*, LOG+12, LOG+14
PTCT	LOG+5~, LOG+16*, LOG+17, LOG+19
RADFN	LOG+5~, LOG+6*, LOG+16, LOG+17, LOG+18, LOG+39, LOG+40
RADTECH	USERINF2+4~, USERINF2+8, USERINF2+18, USERINF2+60
REMOTE	LOG+5~, LOG+6*, LOG+19, LOG+36
REPLY	CACHEQ+27~, CACHEQ+29, CACHEQ+44, CACHEQ+50, USERINF2+4~, USERINF2+6, USERINF2+7, USERINF2+22
REQFLAG	USERINF2+4~, USERINF2+16, USERINF2+20, USERINF2+22
REV2	USERINF2+42~, USERINF2+43, USERINF2+44, USERINF2+50
RIST	MAGJOB+1~, MAGJOB+8, MAGJOB+9, MAGJOB+10
RSL	USERINF+2~, USERINF+5, USERINF+6
SENDAPP	USERINF2+42~, USERINF2+47, USERINF2+48, USERINF2+53
SSUNC	USERINF2+31~, USERINF2+36*, USERINF2+37
>> SVERSION	USERINF2+6, USERINF2+12, USERINF2+22
T	LISTINF+13~, LISTINF+31, LISTINF+32, LISTINF+33, LOG+14~, MAGJOB+1~, USERINF+2~, USERINF+4, USERINF+5, USERINF2+42~
T(200	USERINF+5
TMP	CACHEQ+27~, CACHEQ+43, CACHEQ+44
TMP(	CACHEQ+45, CACHEQ+46, CACHEQ+48
TXT	LOG+5~, LOG+18, LOG+19, LOG+27*, LOG+28, LOG+29
U	LISTINF+21, LISTINF+22, LISTINF+25, LISTINF+26, LISTINF+27, LISTINF+31, LOG+6, LOG+12, LOG+14, LOG+18 , LOG+19, LOG+27, CACHEQ+31, CACHEQ+38, CACHEQ+40, CACHEQ+45, CACHEQ+46, CACHEQ+47, CACHEQ+48, MAGJOB+10 , MAGJOB+16, MAGJOB+25, MAGJOB+26, MAGJOB+27, MAGJOB+28, MAGJOB+29, USERINF+5, PINF1+7, PINF1+11, USERINF2+5 , USERINF2+11, USERINF2+19, USERINF2+21, USERINF2+22, USERINF2+25, USERINF2+26, USERINF2+27, USERINF2+28, USERINF2+37, USERINF2+38 , USERINF2+45, USERINF2+46, USERINF2+50, USERINF2+51, USERINF2+52, USERINF2+53, USERINF2+54, USERINF2+55, USERINF2+59, USERINF2+61 , USERINF2+62
>> VA("BID"	PINF1+10!
>> VA("PID"	PINF1+9, PINF1+10!
VAERR	PINF1+9, PINF1+10!
VIXPTR	USERINF2+31~, USERINF2+32*, USERINF2+35, USERINF2+36
VRADVER	CACHEQ+27~, CACHEQ+31, CACHEQ+34, USERINF2+4~, USERINF2+5, USERINF2+6, USERINF2+10
WSLOC	CACHEQ+27~, CACHEQ+31*, CACHEQ+37, CACHEQ+39, CACHEQ+41, CACHEQ+43
X	LISTINF+12, LISTINF+21, LISTINF+22, LISTINF+31, CACHEQ+25, CACHEQ+40, CACHEQ+41, CACHEQ+46, CACHEQ+47, MAGJOB+2* , MAGJOB+3, MAGJOB+8, MAGJOB+11, MAGJOB+24, MAGJOB+25, MAGJOB+26, MAGJOB+27, MAGJOB+28, MAGJOB+29, MAGJOB+30 , USERKEYS+1~, USERKEYS+7, USERKEYS+8, USERKEYS+9, PINF1+1~, PINF1+2, PINF1+8, AGECALC+4~, AGECALC+8, AGECALC+9 , USERINF2+1, USERINF2+19, USERINF2+20, USERINF2+44, USERINF2+60, USERINF2+61, USERINF2+63*, MAMMOCHK~, UPCASE~, UPCASE+1
X1	AGECALC+4~, AGECALC+8*
X2	AGECALC+4~, AGECALC+9*
XX	CACHEQ+27~, CACHEQ+46, CACHEQ+47, CACHEQ+48
Y	LISTINF+31*, MAGJOB+30, USERKEYS+1~, USERINF2+4~

Customize PDF page

Package: Imaging

Routine: MAGJUTL3

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 15

Entry Points

External References

Used in RPC

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items