MAGJRT ;WIRMFO/JHC VistaRad RPC calls for Demand Routing ; 13 Jan 2004 11:00 AM
Source file <MAGJRT.m>
| 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 |
| RPC Name | Call Tags |
|---|---|
| MAGJ ROUTE ENABLE | RTENA |
| MAGJ ROUTE REQUEST | RTREQ |
| MAGJ ROUTE EXAMS | RTEXAM |
