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 ; 30 Dec 2011 1:36 PM

Source Information

Source file <MAGJLST1.m>

Call Graph

Call Graph

Call Graph Total: 9

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

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

Entry Points

Name Comments DBIA/ICR reference
END
STATN(X) ; get station #, else return input value
ERR
PTLOOP ; loop through exam data & package it for VRAD use
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
;
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
FACLISTZ
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

External References

Name Field # of Occurrence
$$EC^%ZOSV ERR
DT^DICRW PTLIST+25, FACLIST+17
GETS^DIQ STATN+2
$$CHKLOCK^MAGJLS2B PTLOOP+15
GETEXAM3^MAGJUTL1 PTLIST+42
IMGINFO^MAGJUTL2 PTLOOP+4
PID^VADPT6 PTLIST+32
TFL^VAFCTFU1 FACLIST+23
$$FMADD^XLFDT PTLIST+40, PTLIST+41
$$FMTE^XLFDT PTLIST+51, 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+31
^MAG(2005.2 - [#2005.2] PTLOOP+9
^MAG(2006.1 - [#2006.1] PTLOOP+7
^MAG(2006.69 - [#2006.69] PTLIST+28
^TMP($J ERR*, ERR+1, PTLIST+29!, PTLIST+58*, PTLIST+60*, PTLIST+61, PTLIST+62!, PTLOOP+2, PTLOOP+30*

Label References

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

Naked Globals

Name Field # of Occurrence
^( PTLOOP+2
^("MAGRAEX" PTLIST+62!
^("MAGRAEX2" PTLIST+29!
^(0 PTLIST+31
^(2 PTLOOP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BEGDT PTLIST+21~, PTLIST+26*, PTLIST+34*, PTLIST+35*, PTLIST+36*, PTLIST+40, PTLIST+41*, PTLIST+42
CNT PTLIST+19~, PTLIST+29*, PTLIST+49, PTLIST+56, PTLOOP+3*
CPT PTLIST+21~, PTLOOP+16*, PTLOOP+19, PTLOOP+30
CURPRIO PTLIST+22~, PTLOOP+20*, PTLOOP+23*, PTLOOP+24*, PTLOOP+25*, PTLOOP+26*, PTLOOP+30
DATA PTLSTALL~, PTLSTALL+6, PTLIST~, PTLIST+26, PTLIST+27, FACLIST~, FACLIST+19
DAYCASE PTLIST+20~, PTLOOP+14*, PTLOOP+15, PTLOOP+17
DFN PTLIST+19~, PTLIST+27*, PTLIST+31, PTLIST+42, FACLIST+18~, FACLIST+19*, FACLIST+21, FACLIST+23
DIQUIET PTLIST+19~, PTLIST+25*, FACLIST+17*
DIV PTLIST+20~, PTLOOP+11*
DT PTLIST+36
DUZ(2 PTLOOP+11
ENDDT PTLIST+21~, PTLIST+40*, PTLIST+41, PTLIST+42
ENDLOOP PTLIST+20~, PTLIST+34*, PTLIST+35, PTLIST+43*
ERR ERR~*
EXCAT PTLIST+20~, PTLOOP+20*, PTLOOP+22*, PTLOOP+23, PTLOOP+24, PTLOOP+27*, PTLOOP+28*, PTLOOP+30
>> I PTLOOP+9*
IMGCNT PTLIST+23~, PTLOOP+5*, PTLOOP+17, PTLOOP+23
ISS PTLIST+19~, PTLOOP+1*, PTLOOP+2*, PTLOOP+30
KEY PTLIST+22~, PTLOOP+5*, PTLOOP+30
LIMDAYS PTLIST+22~, PTLIST+38*, PTLIST+39*, PTLIST+41
LIMEXAMS PTLIST+21~
LRFLAG PTLIST+23~, PTLOOP+20*, PTLOOP+30
MAGDT PTLIST+20~, PTLOOP+5*, PTLOOP+12*, PTLOOP+13*, PTLOOP+17
MAGGRY ERR+1*, PTLSTALL~, PTLSTALL+7, PTLIST~, PTLIST+27!, PTLIST+61*, FACLIST~, FACLIST+19!, FACLIST+23, FACLIST+24
MAGGRY("" FACLIST+26
MAGGRY(0 FACLISTZ*
MAGGRY(1 FACLIST+25!
>> MAGJOB("USER" PTLIST+53
MAGRACNT PTLIST+19~, PTLIST+29*, PTLIST+42, PTLIST+43, PTLIST+46, PTLIST+48
MAGRET PTLIST+19~, PTLIST+42
MODALITY PTLIST+20~, PTLOOP+5*, PTLOOP+19, PTLOOP+30
MORE PTLIST+21~, PTLIST+35, PTLIST+38*, PTLIST+42, PTLIST+44, PTLIST+45, PTLIST+50, PTLIST+51*
MSG PTLIST+23~, PTLIST+50*, PTLIST+51*, PTLIST+56, PTLIST+57
MYLOCK PTLIST+20~, PTLOOP+14*, PTLOOP+15*, PTLOOP+30
ONESHOT PTLIST+22~, PTLIST+26*, PTLIST+39, PTLIST+43
ONL PTLIST+23~, PTLOOP+5*, PTLOOP+17, PTLOOP+26
PARAM PTLSTALL+5~, PTLSTALL+6*, PTLSTALL+7
PATNAME PTLIST+19~, PTLIST+31*, PTLIST+48, PTLIST+54, PTLIST+56
PLACE PTLIST+20~, PTLOOP+5*, PTLOOP+7*, PTLOOP+19
PROCMOD PTLIST+23~, PTLOOP+16*, PTLOOP+17
PSSN PTLIST+21~, PTLIST+32*, PTLIST+54*, PTLIST+55*, PTLIST+56
RARPT PTLIST+22~, PTLOOP+3*, PTLOOP+4, PTLOOP+14, PTLOOP+30
RASTCAT PTLIST+23~, PTLOOP+20*, PTLOOP+22
RASTORD PTLIST+23~, PTLOOP+16*, PTLOOP+23, PTLOOP+27
RDRIST PTLIST+21~, PTLOOP+16*, PTLOOP+19
REMOTE PTLIST+19~, PTLOOP+5*, PTLOOP+6, PTLOOP+8, PTLOOP+9, PTLOOP+10*, PTLOOP+18
REMOTE2 PTLIST+22~, PTLOOP+6*, PTLOOP+30
REPLY PTLIST+19~, PTLIST+30*, PTLIST+47*, PTLIST+48*, PTLIST+49, PTLIST+56*, PTLIST+57*, PTLIST+59*, PTLIST+60, FACLIST+20*
, FACLIST+22*, FACLIST+24*, FACLIST+25*, FACLIST+26*, FACLISTZ
SAVBEGDT PTLIST+21~, PTLIST+44*, PTLIST+45*, PTLIST+59
SNDREMOT PTLIST+23~, PTLIST+28*, PTLIST+58, PTLOOP+18
STATPRIORITY PTLIST+23~, PTLOOP+29*, PTLOOP+30
STATUS PTLIST+22~, PTLOOP+20*, PTLOOP+21
T PTLOOP+9*, PTLOOP+10, PTLOOP+15*, STATN+1~, STATN+2*
T(4 STATN+2
U PTLSTALL+6, PTLIST+26, PTLIST+28, PTLIST+31, 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+30, FACLIST+25, FACLIST+26
>> VA("BID" PTLIST+33!
>> VA("PID" PTLIST+32, PTLIST+33!
VAERR PTLIST+32, PTLIST+33!
WHOLOCK PTLIST+20~, PTLOOP+14*, PTLOOP+15*, PTLOOP+17, PTLOOP+30
X PTLIST+53*, PTLIST+54, PTLOOP+11*, STATN~, STATN+2*, STATN+3
X2 PTLIST+22~, PTLIST+36*, PTLIST+37*, PTLIST+40
XX PTLIST+20~, PTLOOP+2*, PTLOOP+3, PTLOOP+12, PTLOOP+14, PTLOOP+16, PTLOOP+17, PTLOOP+19, PTLOOP+20, PTLOOP+30
XX2 PTLIST+20~, PTLOOP+2*, PTLOOP+11, PTLOOP+16, PTLOOP+20
>> Y PTLOOP+4, PTLOOP+5, PTLOOP+17*, PTLOOP+18*, PTLOOP+19*, PTLOOP+30
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