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 |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: MAGJUTL3

Package: Imaging

Routine: MAGJUTL3


Information

MAGJUTL3 ;WIRMFO/JHC - VistARad subrtns & RPCs ; 10/17/2022

Source Information

Source file <MAGJUTL3.m>

Call Graph

Call Graph

Call Graph Total: 18

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  

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

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

External References

Name Field # of Occurrence
^%DTC AGECALC+9
NOW^%DTC AGECALC+8
$$EC^%ZOSV ERR1ERR2ERR3
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

Used in RPC

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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~

Marked Items

Name Field # of Occurrence
$T(PROD^XUPROD USERINF2+62
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All