MAGJEX2 ;WIRMFO/JHC,NST - Rad. Workstation RPC calls ; 10/17/2022
Source file <MAGJEX2.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Imaging | 4 | MAGBRTE5 MAGJ PREFETCH/SEND ORM MAGJ PRIOREXAMS MAGNUTL2 |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ERR | ||
PREFETCH | ; Entry point from HL7 processing, to initiate prefetch at
; time of radiology "Register Patient for Exam" function ; Do not process if the exam is being Canceled (RACANC true) |
|
PREFQ | ;
|
|
PRIOR1(MAGGRY,DATA) | ; review all exams for a patient to find "related" exams
; This ep also called as subroutine from routing software (P51) ; MAGGRY - return array of exams to PreFetch or Auto-route ; DATA: - input params for the Current Exam ; 1) ACTION = P -- Pre-fetch Exams (from Jukebox to Magnetic Disk) ; = A -- Auto-route priors ; = C -- Pre-cache exams ; 2) RADFN = Case pointers to Rad/Nuc Med Patient file ; 3) RADTI = "" "" "" "" ; 4) RACNI = "" "" "" "" ; 5) RARPT - Case pointer to ^RARPT global |
|
PRIOR1Z | ;
|
|
SRCH(RADFN) | ; Traverse all exams for a patient, up to limits of age & total
; numbers of exams to consider |
|
SVMAG2A | ; 2A and 2B used by subroutine at tag PRIOR1
; Find all the patient's exams whose CPT codes are related to the ; Current exam's CPT code, according to dictionary 2006.65 |
|
SVMAG2B | ; For exams whose CPTs match, select a subset that are within defined
; limits with respect to time interval & maximum # exams to retrieve ; Return MAGGRY(0) = count ^ message ; MAGGRY(1:N) = "M08" | RADFN ^ RADTI ^ RACNI ^ RARPT |
|
END | ;
|
RPC Name | Call Tags |
---|---|
MAGJ PRIOREXAMS | PRIOR1 |
HL7 Protocol Name | Call Tags |
---|---|
MAGJ PREFETCH/SEND ORM | PREFETCH |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("ERRTN" | ERR+1 |
^DPT - [#2] | PRIOR1+25 |
^MAG(2006.65 - [#2006.65] | SVMAG2A+20, SVMAG2A+24, SVMAG2A+27, SVMAG2A+28 |
^MAG(2006.69 - [#2006.69] | PREFETCH+5 |
^RA(79.2 - [#79.2] | SVMAG2A+46 |
^RADPT - [#70] | PRIOR1+26 |
^RARPT - [#74] | SVMAG2A+8 |
^TMP($J | PRIOR1+33, PRIOR1Z+4!, SRCH+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTION | PRIOR1+15~, PRIOR1+16*, PRIOR1+17, PRIOR1+18, PRIOR1+24, SVMAG2A+8, SVMAG2A+28, SVMAG2B+15, SVMAG2B+16, SVMAG2B+17 |
BEGDT | SRCH+2~, SRCH+4*, SRCH+5*, SRCH+6 |
CPT | PRIOR1+15~, SVMAG2A+4~, SVMAG2A+12*, SVMAG2A+13, SVMAG2A+14, SVMAG2A+21, SVMAG2A+27*, SVMAG2A+29, SVMAG2B+4~, SVMAG2B+6* , SVMAG2B+8, SVMAG2B+9, SVMAG2B+11*, SVMAG2B+12*, SVMAG2B+13, SVMAG2B+14 |
CPT3 | SVMAG2A+4~, SVMAG2A+14*, SVMAG2A+20 |
CPT4 | SVMAG2A+4~, SVMAG2A+14*, SVMAG2A+20 |
CPT5 | SVMAG2A+4~, SVMAG2A+14*, SVMAG2A+20 |
CT | SVMAG2B+4~, SVMAG2B+11*, SVMAG2B+13*, SVMAG2B+14, SVMAG2B+18 |
CURCPTS | SVMAG2A+4~, SVMAG2A+23*, SVMAG2A+24* |
CURCPTX | SVMAG2A+4~, SVMAG2A+24*, SVMAG2A+27, SVMAG2A+28 |
CURDAT | SVMAG2B+4~, SVMAG2B+5*, SVMAG2B+7 |
DATA | PRIOR1~, PRIOR1+16, PRIOR1+19, PRIOR1+21 |
DAYCASE | PRIOR1+15~, PRIOR1+33*, PRIOR1+35 |
DIQUIET | PRIOR1+15~, PRIOR1+22* |
DT | SRCH+4 |
ERR | ERR~* |
GO | SVMAG2B+4~, SVMAG2B+11 |
GO( | SVMAG2B+8, SVMAG2B+9*, SVMAG2B+12, SVMAG2B+13 |
HDR | PRIOR1+15~, PRIOR1+24*, PRIOR1+35*, SVMAG2B+18, SVMAG2B+19 |
HIT | SVMAG2A+4~, SVMAG2A+23*, SVMAG2A+24, SVMAG2A+27* |
I | SVMAG2A+4~, SVMAG2A+29* |
ICPT | SVMAG2B+4~, SVMAG2B+12*, SVMAG2B+13 |
IDAT | SRCH+7~*, SRCH+8* |
IREC | SVMAG2B+4~, SVMAG2B+6* |
LIMEXAMS | SRCH+2~, SRCH+3*, SRCH+6 |
LIMYRS | SRCH+2~, SRCH+3*, SRCH+4 |
MAGCNI | PRIOR1+15~, PRIOR1+19*, PRIOR1+20, PRIOR1+26, PRIOR1+27, PRIOR1+30, PRIOR1+31, SRCH+10 |
MAGDFN | PRIOR1+15~, PRIOR1+19*, PRIOR1+20, PRIOR1+25, PRIOR1+26, PRIOR1+30, PRIOR1+31, PRIOR1+36 |
MAGDTH | SVMAG2A+4~, SVMAG2A+44*, SVMAG2A+47 |
MAGDTI | PRIOR1+15~, PRIOR1+19*, PRIOR1+20, PRIOR1+26, PRIOR1+30, PRIOR1+31, SRCH+10 |
MAGGRY | PRIOR1~, PRIOR1+13!, SVMAG2B+10! |
MAGGRY( | SVMAG2A+47*, SVMAG2B+6!, SVMAG2B+14* |
MAGGRY(0 | ERR*, PRIOR1+18*, PRIOR1+21*, PRIOR1+25*, PRIOR1+27*, PRIOR1+29*, PRIOR1+32*, PRIOR1+34*, PRIOR1Z+1*, PRIOR1Z+2* , SVMAG2A+7, SVMAG2A+16, SVMAG2A+21, SVMAG2A+47*, SVMAG2B+6, SVMAG2B+18*, SVMAG2B+19* |
MAGGRY(1 | PRIOR1Z+2!, SVMAG2A+7, SVMAG2A+23, SVMAG2B+5 |
MAGJOB | PRIOR1+23~ |
MAGMATCH | SVMAG2A+4~, SVMAG2A+15*, SVMAG2A+16, SVMAG2A+20*, SVMAG2A+29*, SVMAG2A+39, SVMAG2A+47 |
MAGRACNT | PRIOR1+15~, PRIOR1+28*, SRCH+6* |
MAGRET | PRIOR1+15~, PRIOR1+30, PRIOR1+32, SRCH+6, SRCH+7 |
>> RACANC | PREFETCH+6 |
RACNI | PREFETCH+6, PREFETCH+7, PRIOR1+14~, PRIOR1+31*, SRCH+9*, SRCH+10, SVMAG2A+47 |
RADATA | PRIOR1+14~, PRIOR1+33*, SRCH+8*, SRCH+9, SVMAG2A+5, SVMAG2A+9, SVMAG2A+12, SVMAG2A+44, SVMAG2A+45, SVMAG2A+47 |
RADATA2 | PRIOR1+14~, PRIOR1+33*, SRCH+8*, SVMAG2A+6 |
RADFN | PREFETCH+6, PREFETCH+7, PRIOR1+14~, PRIOR1+31*, SRCH~, SRCH+6, SVMAG2A+47 |
RADTI | PREFETCH+6, PREFETCH+7, PRIOR1+14~, PRIOR1+31*, SRCH+9*, SRCH+10, SVMAG2A+47 |
RAIMGTYP | SVMAG2A+3~, SVMAG2A+46*, SVMAG2A+47 |
RARPT | PRIOR1+14~, SVMAG2A+5*, SVMAG2A+8, SVMAG2A+47, SVMAG2B+13*, SVMAG2B+15, SVMAG2B+16, SVMAG2B+17 |
RASTCAT | SVMAG2A+3~, SVMAG2A+6*, SVMAG2A+9 |
RET | PREFETCH+4~*, PREFETCH+7 |
U | PREFETCH+5, PREFETCH+7, PRIOR1+16, PRIOR1+19, PRIOR1+33, SRCH+9, SVMAG2A+5, SVMAG2A+6, SVMAG2A+7, SVMAG2A+9 , SVMAG2A+12, SVMAG2A+20, SVMAG2A+23, SVMAG2A+28, SVMAG2A+29, SVMAG2A+44, SVMAG2A+45, SVMAG2A+47, SVMAG2B+5, SVMAG2B+7 , SVMAG2B+8, SVMAG2B+13, SVMAG2B+14 |
X | SVMAG2A+3~, SVMAG2A+20*, SVMAG2A+27*, SVMAG2A+28*, SVMAG2A+29, SVMAG2A+45*, SVMAG2A+46, SVMAG2B+6*, SVMAG2B+7, SVMAG2B+8 , SVMAG2B+9, SVMAG2B+13*, SVMAG2B+14 |
Y | SVMAG2A+17*, SVMAG2A+20*, SVMAG2A+28*, SVMAG2A+47*, SVMAG2B+4~, SVMAG2B+7*, SVMAG2B+8*, SVMAG2B+9, SVMAG2B+15*, SVMAG2B+16* , SVMAG2B+17* |
Name | Field # of Occurrence |
---|---|
$T(^ISINUTL2 | SVMAG2B+17 |