MAGJUTL3 ;WIRMFO/JHC - VistARad subrtns & RPCs ; 10/17/2022
Source file <MAGJUTL3.m>
| 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 |
| 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 |
