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 |