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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MAGJRT

Package: Imaging

Routine: MAGJRT


Information

MAGJRT ;WIRMFO/JHC VistaRad RPC calls for Demand Routing ; 13 Jan 2004 11:00 AM

Source Information

Source file <MAGJRT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Imaging 4 (DCMLIST,SEND)^MAGBRTUT  GETEXAM2^MAGJUTL1  $$JBFETCH^MAGJUTL2  USERKEYS^MAGJUTL3  
Kernel 1 $$EC^%ZOSV  
VA FileMan 1 DT^DICRW  

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 MAGJ ROUTE ENABLE  MAGJ ROUTE EXAMS  MAGJ ROUTE REQUEST  

Entry Points

Name Comments DBIA/ICR reference
ERR
RTENA(MAGGRY,DATA) ; RPC: MAGJ ROUTE ENABLE
; Enable if: 1) User has applicable security key and, 2) Routing Loc'n has usable entries
RTREQ(MAGGRY,DATA) ; RPC: MAGJ ROUTE REQUEST
; request to route exams; info returned in MAGGRY
; input in DATA(1:n): RADFN ^ RADTI ^ RACNI ^ RARPT
; - RADFN^RADTI^RACNI input to specify case of interest
; Returns: Exam Info for routable exams in ^TMP($J,"MAGJROUTE",1:N)
; Followed by Prompts for Routing Locations & Priority
; Then error messages, if any
;
; MAGGRY holds $NA reference to ^TMP where Broker return message is assembled;
; all references to MAGGRY use subscript indirection
RTREQZ
EXDAT(GET) ; Put routable exam info in output file, non-routable in NOGO(n)
EXDATZ
RTGET ;GET code for Demand Routing function
; get data for exams (DATAOUT), or reason for error (NOGO)
DTTIM(X) ; Format Image Date/Time
RTLOCS(CT) ; define prompts for Routing Locations
RTLOCS1(RET,OK) ; return:
; RET = array of loc'ns screened by sec key
; OK = Non-dcm ^ dcm Truth value for user may route respective routing types
RTPRIOR(CT) ; define prompts for Routing Priorities
NOGO(HDR,CT) ; output error msgs for exams
RTEXAM(MAGGRY,DATA) ; RPC: MAGJ ROUTE EXAMS
; queue images to route according to input requests
; input in DATA(1:n), list of exams to route:
; Destination Network Loc'n ^ Priority | RADFN ^ RADTI ^ RACNI ^ RARPT
; Returns: Reply status in ^TMP($J,"MAGJROUTE",1:N)
; Then error messages for each exam if applicable
;
; MAGGRY holds $NA reference to ^TMP where Broker return message is assembled;
; all references to MAGGRY use subscript indirection
RTEXAMZ
END

External References

Name Field # of Occurrence
$$EC^%ZOSV ERR
DT^DICRW RTREQ+15, RTEXAM+17
DCMLIST^MAGBRTUT RTLOCS1+15
SEND^MAGBRTUT RTEXAM+30
GETEXAM2^MAGJUTL1 EXDAT+3
$$JBFETCH^MAGJUTL2 RTGET+3, RTEXAM+28
USERKEYS^MAGJUTL3 RTENA+4

Used in RPC

RPC Name Call Tags
MAGJ ROUTE ENABLE RTENA
MAGJ ROUTE REQUEST RTREQ
MAGJ ROUTE EXAMS RTEXAM

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("ERRTN" ERR+1
^MAG(2005.2 - [#2005.2] RTLOCS1+6
^TMP($J RTREQ+19, EXDAT+5!, RTEXAM+20

Label References

Name Line Occurrences
$$DTTIM RTGET+12
@( ERR+1, EXDAT+7
EXDAT RTREQ+21
EXDATZ EXDAT+4
NOGO RTREQZ, RTEXAMZ
RTLOCS RTREQ+26
RTLOCS1 RTENA+7, RTLOCS+8
RTPRIOR RTREQ+26

Naked Globals

Name Field # of Occurrence
^( RTLOCS1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUTOFILL RTLOCS+2~, RTLOCS+3*, RTLOCS+5, RTPRIOR+2~, RTPRIOR+3*, RTPRIOR+5
CT RTREQ+13~, RTREQ+16*, RTREQ+24*, RTREQ+26, RTREQZ, EXDATZ+4*, RTLOCS~, RTLOCS+4*, RTLOCS+5*, RTLOCS+7*
, RTLOCS+9*, RTLOCS+10*, RTPRIOR~, RTPRIOR+4*, RTPRIOR+5*, RTPRIOR+6*, RTPRIOR+7*, RTPRIOR+8*, RTPRIOR+9*, RTPRIOR+10*
, NOGO~, NOGO+2*, NOGO+3*, NOGO+4*, NOGO+5*, RTEXAM+15~, RTEXAM+19*, RTEXAMZ, RTEXAMZ+1
DATA RTENA~, RTREQ~, RTREQ+21*, EXDAT+1, EXDAT+2, RTEXAM~, RTEXAM+23*, RTEXAM+26
DATA( RTREQ+21, RTEXAM+22, RTEXAM+23, RTEXAM+27, RTEXAM+32
DATAOUT RTREQ+13~, RTREQ+16*, EXDAT+7*, EXDATZ+3*, EXDATZ+4, RTGET+11*, RTGET+12*
DAYCASE RTREQ+13~, RTREQ+16*, EXDAT+6*, RTGET+4, RTGET+5, RTGET+11
DCM RTLOCS1+14~, RTLOCS1+15
DCM( RTLOCS1+17
DCM(1 RTLOCS1+16, RTLOCS1+17
DIQUIET RTREQ+13~, RTREQ+15*, RTEXAM+16~, RTEXAM+17*
DUM RTENA+6~, RTENA+7
DUZ(2 RTLOCS1+15
ERR ERR~*
GET EXDAT~, EXDAT+7
HDR NOGO~, NOGO+3
>> I RTLOCS+9*, RTLOCS1+17*, NOGO+4*
IDATA RTREQ+14~, RTREQ+20*, RTREQ+21*, RTEXAM+15~, RTEXAM+21*, RTEXAM+22*, RTEXAM+23, RTEXAM+27, RTEXAM+32
IEXAM RTEXAM+15~
IMAG RTGET+2~, RTGET+6*, RTGET+7, RTEXAM+16~, RTEXAM+29*, RTEXAM+31
MAGEND RTREQ+13~
MAGGRY ERR, RTENA~, RTENA+3*, RTENA+7*, RTREQ~, RTREQ+19!*, RTREQ+23, RTREQ+24, RTREQZ+1, EXDATZ+4
, RTLOCS+4, RTLOCS+5, RTLOCS+7, RTLOCS+9, RTLOCS+10, RTPRIOR+4, RTPRIOR+5, RTPRIOR+6, RTPRIOR+7, RTPRIOR+8
, RTPRIOR+9, RTPRIOR+10, NOGO+2, NOGO+3, NOGO+4, NOGO+5, RTEXAM~, RTEXAM+20!*, RTEXAMZ+1
MAGIEN RTGET+2~, RTGET+6*, RTEXAM+16~, RTEXAM+29*, RTEXAM+30
>> MAGJOB("KEYS" RTENA+4, RTENA+5, RTLOCS1+4, RTLOCS1+13
MAGLST RTREQ+18*, RTREQ+19, RTEXAM+16~, RTEXAM+19*, RTEXAM+20
MAGS RTREQ+13~, RTGET+2~, RTGET+3, RTEXAM+15~, RTEXAM+28
MAGS( RTGET+6, RTGET+7, RTEXAM+29
MAGSTRT RTREQ+13~
MDL RTGET+2~, RTGET+6, RTGET+7*, RTGET+8*, RTGET+12
NEXAM RTREQ+13~, RTREQ+16*, RTREQ+22, RTREQZ+1, EXDATZ+4*, RTLOCS+3, RTPRIOR+3, RTEXAM+15~, RTEXAM+19*, RTEXAM+31*
, RTEXAM+33
NOGO RTREQ+14~, EXDAT+1*, EXDAT+4*, EXDATZ, EXDATZ+1, RTGET+4*, RTGET+5*, RTEXAM+15~, RTEXAM+18!
NOGO( EXDATZ+1*, NOGO+4, RTEXAM+27*, RTEXAM+32*
NOGO(0 RTREQ+17*, RTREQZ, EXDATZ+1*, NOGO+1, NOGO+3, NOGO+4, RTEXAM+18*, RTEXAM+27*, RTEXAM+32*, RTEXAMZ
, RTEXAMZ+1
OK RTENA+6~, RTENA+7*, RTLOCS+2~, RTLOCS+8, RTLOCS1~, RTLOCS1+3*, RTLOCS1+10*, RTLOCS1+16*
RACNI RTREQ+12~, EXDAT+2*, EXDAT+3, EXDAT+4, EXDATZ+3
RADATA RTREQ+13~, EXDAT+5*, EXDAT+6, RTGET+11, RTGET+12
RADFN RTREQ+12~, EXDAT+2*, EXDAT+3, EXDAT+4, EXDATZ+3
RADTI RTREQ+12~, EXDAT+2*, EXDAT+3, EXDAT+4, EXDATZ+3
RARPT RTREQ+12~, EXDAT+1*, EXDAT+4, EXDAT+6*, EXDATZ+3, RTGET+3, RTEXAM+15~, RTEXAM+26*, RTEXAM+28
REPLY RTREQ+13~, RTREQ+25*, RTREQ+28*, RTREQZ+1, RTEXAM+15~, RTEXAM+33*, RTEXAM+34*, RTEXAMZ+1
RET RTLOCS1~, RTLOCS1+3*, RTLOCS1+11*, RTLOCS1+17*
RET( RTLOCS1+11*, RTLOCS1+17*
RTLOC RTEXAM+15~, RTEXAM+23*, RTEXAM+24*, RTEXAM+25, RTEXAM+30
RTPRI RTEXAM+15~, RTEXAM+23*, RTEXAM+30
RTTYP RTEXAM+16~, RTEXAM+24*, RTEXAM+30
STARTNOD RTREQ+13~, RTREQ+18*, RTREQ+23, RTREQ+24, EXDATZ+4, RTLOCS+4, RTLOCS+5, RTLOCS+7, RTLOCS+9, RTLOCS+10
, RTPRIOR+4, RTPRIOR+5, RTPRIOR+6, RTPRIOR+7, RTPRIOR+8, RTPRIOR+9, RTPRIOR+10, NOGO+2, NOGO+3, NOGO+4
, NOGO+5, RTEXAM+15~, RTEXAM+19*
T DTTIM+1~*, RTLOCS+2~, RTLOCS+6*, RTLOCS1+5~*, RTLOCS1+6*, RTLOCS1+11
TMP RTLOCS+2~, RTLOCS+8!*, RTLOCS+9
TMP( RTLOCS+9
U RTENA+7, RTREQZ+1, EXDAT+1, EXDAT+2, EXDAT+4, EXDAT+6, EXDATZ+3, RTGET+5, RTGET+6, RTGET+7
, RTGET+11, RTGET+12, RTLOCS1+7, RTLOCS1+8, RTLOCS1+9, RTLOCS1+10, RTLOCS1+11, RTLOCS1+16, RTLOCS1+17, RTEXAM+23
, RTEXAM+26, RTEXAM+29, RTEXAMZ+1
X RTENA+5*, EXDAT+2*, EXDAT+3, EXDAT+4, RTGET+3*, RTGET+4, RTGET+5, DTTIM~, DTTIM+1*, DTTIM+2
, RTLOCS+2~, RTLOCS1+6*, RTLOCS1+7, RTLOCS1+8, RTLOCS1+9, RTLOCS1+10*, RTLOCS1+11, RTLOCS1+17*, RTEXAM+23*, RTEXAM+28*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All