Routine: MAGJLST1

Information

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

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

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