Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: VPRDRA

Package: Virtual Patient Record

Routine: VPRDRA


Information

VPRDRA ;SLC/MKB -- Radiology extract ;8/2/11 15:29

Source Information

Source file <VPRDRA.m>

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID) ; -- find patient's radiology exams
ENQ ; end
EN1(ID,EXAM) ; -- return an exam in EXAM("attribute")=value
; Expects ^TMP($J,"RAE1",DFN,ID) from EN1^RAO7PC1
CPT(IEN) ; -- return code^description for CPT code, or "^" if error
TEXT(PAT,ID) ; -- Get report text, return temp array name
RPTS(DFN,BEG,END,MAX) ; -- find patient's radiology reports
RPT1(DFN,ID,RPT) ; -- return report as a TIU document
XML(EXAM) ; -- Return exams as XML
LOOP() ; -- build sub-items string from NAMES and X
ADD(X) ; -- Add a line @VPR@(n)=X

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
70.03 GET1^DIQ
^RARPT - [#74] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call