MAGJLST1 ;WIRMFO/JHC - VistARad RPC calls ; 10/17/2022
Source file <MAGJLST1.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 | MAGJ GET TREATING LIST MAGJ PT ALL EXAMS MAGJ PTRADEXAMS MAGNUTL2 |
Name | Comments | DBIA/ICR reference |
---|---|---|
ERR | ||
PTLSTALL(MAGGRY,DATA) | ; List ALL exams for a patient
; MAGGRY - indirect reference to return array of exams for a patient ; DATA -- DFN ^ BEGDT ^ ONESHOT ; --> see PTLIST comments ; RPC is MAGJ PT ALL EXAMS |
|
PTLIST(MAGGRY,DATA) | ; get list of exams for a patient
; ; MAGGRY - indirect reference to return array of exams for a patient ; DATA -- DFN ^ unused ^ unused ^ BEGDT ^ ONESHOT ; DFN--Required; Patient's DFN ; BEGDT--Optional; Begin date for exam fetch (see below) ; ONESHOT--Optional; Number days back to search, return all records in one fell swoop ; Returns data in ^TMP($J,"MAGRAEX",0:n) ; RPC Call: MAGJ PTRADEXAMS |
|
PTLOOP | ; loop through exam data & package it for VRAD use
|
|
STATN(X) | ; get station #, else return input value
|
|
FACLIST(MAGGRY,DATA) | ; get Treating Facility List for a patient
; RPC Call: MAGJ GET TREATING LIST ; MAGGRY -- return array--supplied by TFL^VAFCTFU1 ; Input: DATA -- Patient DFN ; Returns: ; Array; first entry contains result header with # lines to follow ; and reply message description. ; Entries 2:N (if any exist) contain data for each Treating facility ; up-caret delimited : A ^ B ^ C ^ D ^ E ; A: Institution IEN of the Facility ; B: Institution Name ; C: Current date on record for that institution ; D: ADT/HL7 event reason ; E: FACILITY TYPE ; Note--see TFL^VAFCTFU1 for further details ; |
|
FACLISTZ | ||
END |
Name | Field # of Occurrence |
---|---|
$$EC^%ZOSV | ERR |
DT^DICRW | PTLIST+26, FACLIST+17 |
GETS^DIQ | STATN+2 |
$$ASIGME^ISIJUTL1 | PTLOOP+23 |
$$CHKLOCK^MAGJLS2B | PTLOOP+15 |
GETEXAM3^MAGJUTL1 | PTLIST+44 |
IMGINFO^MAGJUTL2 | PTLOOP+4 |
PID^VADPT6 | PTLIST+34 |
TFL^VAFCTFU1 | FACLIST+23 |
$$FMADD^XLFDT | PTLIST+42, PTLIST+43 |
$$FMTE^XLFDT | PTLIST+53, PTLOOP+13 |
RPC Name | Call Tags |
---|---|
MAGJ PTRADEXAMS | PTLIST |
MAGJ PT ALL EXAMS | PTLSTALL |
MAGJ GET TREATING LIST | FACLIST |
FileNo | Call Tags |
---|---|
^DIC(4 - [#4] | GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^%ZOSF("ERRTN" | ERR+2 |
^DPT - [#2] | PTLIST+33 |
^MAG(2005.2 - [#2005.2] | PTLOOP+9 |
^MAG(2006.1 - [#2006.1] | PTLOOP+7 |
^MAG(2006.69 - [#2006.69] | PTLIST+29, PTLIST+30 |
^TMP($J | ERR*, ERR+1, PTLIST+31!, PTLIST+61*, PTLIST+63*, PTLIST+64, PTLIST+65!, PTLOOP+2, PTLOOP+33* |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ASIGDUZ | PTLIST+24~, PTLOOP+17*, PTLOOP+23 |
ASIGENA | PTLIST+24~, PTLIST+30*, PTLIST+61, PTLOOP+20, PTLOOP+22 |
ASIGINI | PTLIST+24~, PTLOOP+17*, PTLOOP+20, PTLOOP+23 |
BEGDT | PTLIST+21~, PTLIST+27*, PTLIST+36*, PTLIST+37*, PTLIST+38*, PTLIST+42, PTLIST+43*, PTLIST+44 |
CNT | PTLIST+19~, PTLIST+31*, PTLIST+51, PTLIST+58, PTLOOP+3* |
CPT | PTLIST+21~, PTLOOP+16*, PTLOOP+20, PTLOOP+33 |
CURPRIO | PTLIST+22~, PTLOOP+21*, PTLOOP+26*, PTLOOP+27*, PTLOOP+28*, PTLOOP+29*, PTLOOP+33 |
DATA | PTLSTALL~, PTLSTALL+6, PTLIST~, PTLIST+27, PTLIST+28, FACLIST~, FACLIST+19 |
DAYCASE | PTLIST+20~, PTLOOP+14*, PTLOOP+15, PTLOOP+18 |
DFN | PTLIST+19~, PTLIST+28*, PTLIST+33, PTLIST+44, FACLIST+18~, FACLIST+19*, FACLIST+21, FACLIST+23 |
DIQUIET | PTLIST+19~, PTLIST+26*, FACLIST+17* |
DIV | PTLIST+20~, PTLOOP+11* |
DT | PTLIST+38 |
DUZ(2 | PTLOOP+11 |
ENDDT | PTLIST+21~, PTLIST+42*, PTLIST+43, PTLIST+44 |
ENDLOOP | PTLIST+20~, PTLIST+36*, PTLIST+37, PTLIST+45* |
ERR | ERR~* |
EXCAT | PTLIST+20~, PTLOOP+21*, PTLOOP+25*, PTLOOP+26, PTLOOP+27, PTLOOP+30*, PTLOOP+31*, PTLOOP+33 |
>> I | PTLOOP+9* |
IMGCNT | PTLIST+23~, PTLOOP+5*, PTLOOP+18, PTLOOP+26 |
ISS | PTLIST+19~, PTLOOP+1*, PTLOOP+2*, PTLOOP+33 |
KEY | PTLIST+22~, PTLOOP+5*, PTLOOP+33 |
LIMDAYS | PTLIST+22~, PTLIST+40*, PTLIST+41*, PTLIST+43 |
LIMEXAMS | PTLIST+21~ |
LRFLAG | PTLIST+23~, PTLOOP+21*, PTLOOP+33 |
MAGDT | PTLIST+20~, PTLOOP+5*, PTLOOP+12*, PTLOOP+13*, PTLOOP+18 |
MAGGRY | ERR+1*, PTLSTALL~, PTLSTALL+7, PTLIST~, PTLIST+28!, PTLIST+64*, FACLIST~, FACLIST+19!, FACLIST+23, FACLIST+24 |
MAGGRY("" | FACLIST+26 |
MAGGRY(0 | FACLISTZ* |
MAGGRY(1 | FACLIST+25! |
>> MAGJOB("USER" | PTLIST+55 |
MAGRACNT | PTLIST+19~, PTLIST+31*, PTLIST+44, PTLIST+45, PTLIST+48, PTLIST+50 |
MAGRET | PTLIST+19~, PTLIST+44 |
MODALITY | PTLIST+20~, PTLOOP+5*, PTLOOP+20, PTLOOP+33 |
MORE | PTLIST+21~, PTLIST+37, PTLIST+40*, PTLIST+44, PTLIST+46, PTLIST+47, PTLIST+52, PTLIST+53* |
MSG | PTLIST+23~, PTLIST+52*, PTLIST+53*, PTLIST+58, PTLIST+59 |
MYLOCK | PTLIST+20~, PTLOOP+14*, PTLOOP+15*, PTLOOP+23*, PTLOOP+33 |
ONESHOT | PTLIST+22~, PTLIST+27*, PTLIST+41, PTLIST+45 |
ONL | PTLIST+23~, PTLOOP+5*, PTLOOP+18, PTLOOP+29 |
PARAM | PTLSTALL+5~, PTLSTALL+6*, PTLSTALL+7 |
PATNAME | PTLIST+19~, PTLIST+33*, PTLIST+50, PTLIST+56, PTLIST+58 |
PLACE | PTLIST+20~, PTLOOP+5*, PTLOOP+7*, PTLOOP+20 |
PROCMOD | PTLIST+23~, PTLOOP+16*, PTLOOP+18 |
PSSN | PTLIST+21~, PTLIST+34*, PTLIST+56*, PTLIST+57*, PTLIST+58 |
RARPT | PTLIST+22~, PTLOOP+3*, PTLOOP+4, PTLOOP+14, PTLOOP+33 |
RASTCAT | PTLIST+23~, PTLOOP+21*, PTLOOP+25 |
RASTORD | PTLIST+23~, PTLOOP+16*, PTLOOP+26, PTLOOP+30 |
RDRIST | PTLIST+21~, PTLOOP+16*, PTLOOP+20 |
REMOTE | PTLIST+19~, PTLOOP+5*, PTLOOP+6, PTLOOP+8, PTLOOP+9, PTLOOP+10*, PTLOOP+19 |
REMOTE2 | PTLIST+22~, PTLOOP+6*, PTLOOP+33 |
REPLY | PTLIST+19~, PTLIST+32*, PTLIST+49*, PTLIST+50*, PTLIST+51, PTLIST+58*, PTLIST+59*, PTLIST+62*, PTLIST+63, FACLIST+20* , FACLIST+22*, FACLIST+24*, FACLIST+25*, FACLIST+26*, FACLISTZ |
SAVBEGDT | PTLIST+21~, PTLIST+46*, PTLIST+47*, PTLIST+62 |
SNDREMOT | PTLIST+23~, PTLIST+29*, PTLIST+60, PTLOOP+19 |
STATPRIORITY | PTLIST+23~, PTLOOP+32*, PTLOOP+33 |
STATUS | PTLIST+22~, PTLOOP+21*, PTLOOP+24 |
T | PTLOOP+9*, PTLOOP+10, PTLOOP+15*, STATN+1~, STATN+2* |
T(4 | STATN+2 |
U | PTLSTALL+6, PTLIST+27, PTLIST+29, PTLIST+30, PTLIST+33, PTLOOP+3, PTLOOP+5, PTLOOP+7, PTLOOP+9, PTLOOP+11 , PTLOOP+12, PTLOOP+14, PTLOOP+15, PTLOOP+16, PTLOOP+17, PTLOOP+18, PTLOOP+19, PTLOOP+20, PTLOOP+21, PTLOOP+33 , FACLIST+25, FACLIST+26 |
>> VA("BID" | PTLIST+35! |
>> VA("PID" | PTLIST+34, PTLIST+35! |
VAERR | PTLIST+34, PTLIST+35! |
WHOLOCK | PTLIST+20~, PTLOOP+14*, PTLOOP+15*, PTLOOP+18, PTLOOP+33 |
X | PTLIST+55*, PTLIST+56, PTLIST+60*, PTLIST+61, PTLOOP+11*, STATN~, STATN+2*, STATN+3 |
X2 | PTLIST+22~, PTLIST+38*, PTLIST+39*, PTLIST+42 |
XX | PTLIST+20~, PTLOOP+2*, PTLOOP+3, PTLOOP+12, PTLOOP+14, PTLOOP+16, PTLOOP+18, PTLOOP+20, PTLOOP+21, PTLOOP+33 |
XX2 | PTLIST+20~, PTLOOP+2*, PTLOOP+11, PTLOOP+16, PTLOOP+21 |
XX9 | PTLIST+24~, PTLOOP+2*, PTLOOP+17 |
>> Y | PTLOOP+4, PTLOOP+5, PTLOOP+18*, PTLOOP+19*, PTLOOP+20*, PTLOOP+33 |