Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: MAGJLST1

Package: Imaging

Routine: MAGJLST1


Information

MAGJLST1 ;WIRMFO/JHC - VistARad RPC calls ; 10/17/2022

Source Information

Source file <MAGJLST1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Imaging 3 $$CHKLOCK^MAGJLS2B  GETEXAM3^MAGJUTL1  IMGINFO^MAGJUTL2  
Kernel 2 $$EC^%ZOSV  ($$FMADD,$$FMTE)^XLFDT  
Registration 2 PID^VADPT6  TFL^VAFCTFU1  
VA FileMan 2 DT^DICRW  GETS^DIQ  
Vendor - ISI 1 $$ASIGME^ISIJUTL1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Imaging 5 MAGJ GET TREATING LIST  MAGJ PT ALL EXAMS  MAGJ PTRADEXAMS  MAGNUTL2  MAGNUTL3  

Entry Points

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

External References

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

Used in RPC

RPC Name Call Tags
MAGJ PTRADEXAMS PTLIST
MAGJ PT ALL EXAMS PTLSTALL
MAGJ GET TREATING LIST FACLIST

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GETS^DIQ

Global Variables Directly Accessed

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*

Label References

Name Line Occurrences
$$STATN PTLOOP+11
@( ERR+2
FACLISTZ FACLIST+22, FACLIST+24, FACLIST+25
PTLIST PTLSTALL+7
PTLOOP PTLIST+48

Naked Globals

Name Field # of Occurrence
^( PTLOOP+2
^("ISI" PTLOOP+2
^("MAGRAEX" PTLIST+65!
^("MAGRAEX2" PTLIST+31!
^(0 PTLIST+33
^(2 PTLOOP+2

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All