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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Radiology Nuclear Medicine 2 (EN1,EN3)^RAO7PC1  EN3^RAO7PC3  
Virtual Patient Record 2 ($$ESC,$$FAC,$$PROVSPC,$$PROVTAGS)^VPRD  XML^VPRDTIU  
CPT HCPCS Codes 1 ($$CPT,$$CPTD)^ICPTCOD  
Order Entry Results Reporting 1 $$VALUE^ORX8  
VA FileMan 1 $$GET1^DIQ  

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: 3

Package Total Caller Graph
Virtual Patient Record 3 VPRDJ07  VPRDPROC  VPRDTIU  

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

External References

Name Field # of Occurrence
$$GET1^DIQ EN1+28, RPT1+18, RPT1+29
$$CPT^ICPTCOD CPT+2
$$CPTD^ICPTCOD CPT+4
$$VALUE^ORX8 EN1+25
EN1^RAO7PC1 EN+4, RPTS+4
EN3^RAO7PC1 EN1+29, RPT1+6
EN3^RAO7PC3 TEXT+3, RPT1+5
$$ESC^VPRD XML+13, XML+17, LOOP+2
$$FAC^VPRD EN1+16, RPT1+27
$$PROVSPC^VPRD EN1+31, RPT1+16, RPT1+19
$$PROVTAGS^VPRD XML+4
XML^VPRDTIU RPTS+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
70.03 GET1^DIQ
^RARPT - [#74] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^OR(100 - [#100] EN1+24
^RADPT("AO" EN+9, EN+10
^SC("B" EN1+15, RPT1+26
^TMP("VPRTEXT" ENQ+1!, EN1+3!, TEXT+4, RPTS+11!, RPT1+3!, RPT1+10
^TMP($J EN+4!, EN+15, ENQ+1!, EN1+4, EN1+21, EN1+30, TEXT+5, TEXT+6, TEXT+7!, RPTS+4!
, RPTS+5, RPTS+6, RPTS+11!, RPT1+7, RPT1+8, RPT1+11, RPT1+15, RPT1+17, RPT1+20, RPT1+31!
^VA(200 - [#200] EN1+31, RPT1+16, RPT1+19

Label References

Name Line Occurrences
$$CPT EN1+20
$$LOOP XML+9, XML+18
$$TEXT EN1+12
ADD XML+2, XML+3, XML+6, XML+10, XML+11, XML+12, XML+13, XML+14, XML+15, XML+19
EN1 EN+8, EN+11, EN+16
ENQ EN+7
RPT1 RPTS+9
XML EN+8, EN+12, EN+17

Naked Globals

Name Field # of Occurrence
^( EN1+4, TEXT+5, TEXT+6, RPTS+6, RPT1+7, RPT1+11
^("CMOD" EN1+21
^("ORD" RPT1+20

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ATT XML+1~, XML+3*, XML+4, XML+5, XML+6, XML+7, XML+8, XML+9, XML+10, XML+14
, XML+15, XML+16, XML+17, XML+18
BEG EN~, EN+3*, EN+4, RPTS~, RPTS+3*, RPTS+4
CASE TEXT+2~, TEXT+5*, TEXT+6, RPT1+2~, RPT1+7*, RPT1+11, RPT1+15, RPT1+17
CN EN+9~, EN+10*, EN+11
DATE EN1+2~, EN1+6*
DFN EN~, EN+2*, EN+4, EN+9, EN+10, EN+15, EN1+4, EN1+12, EN1+18, EN1+21
, EN1+29, EN1+30, TEXT+2~, RPTS~, RPTS+2*, RPTS+4, RPTS+5, RPTS+6, RPTS+9, RPT1~
, RPT1+1*, RPT1+4, RPT1+5~, RPT1+7, RPT1+8, RPT1+11, RPT1+15, RPT1+17, RPT1+20, RPT1+28
, RPT1+31
END EN~, EN+3*, EN+4, RPTS~, RPTS+3*, RPTS+4
EXAM EN1~, EN1+3!, TEXT+2~, TEXT+3*, RPT1+2~, RPT1+4*, RPT1+5, RPT1+6, XML~
EXAM( XML+3, XML+5, XML+7, XML+8, XML+10, XML+16
EXAM("case" EN1+5*
EXAM("category" EN1+32*
EXAM("dateTime" EN1+6*
EXAM("document" EN1+10*, EN1+12*
EXAM("encounter" EN1+28*
EXAM("facility" EN1+16*
EXAM("hasImages" EN1+26*
EXAM("id" EN1+5*
EXAM("imagingType" EN1+17*
EXAM("interpretation" EN1+27*
EXAM("location" EN1+15*
EXAM("modifier" EN1+21*
EXAM("name" EN1+5*
EXAM("order" EN1+23*
EXAM("provider" EN1+31*
EXAM("radOrderID" EN1+24*
EXAM("status" EN1+13*
EXAM("type" EN1+20*
EXAM("urgency" EN1+25*
>> FILTER("loinc" RPT1+30
I CPT+1~, CPT+6*, CPT+7*, TEXT+2~, TEXT+6*, RPT1+2~, RPT1+11*, XML+1~, XML+7*, XML+8
, XML+10
ID EN~, EN+7, EN+8, EN+9, EN+10, EN1~, EN1+4, EN1+5, EN1+6, EN1+10
, EN1+12, EN1+18, EN1+21, EN1+29*, EN1+30, TEXT~, TEXT+1*, TEXT+3, TEXT+4, RPT1~
, RPT1+1*, RPT1+4, RPT1+8, RPT1+10, RPT1+13, RPT1+14, RPT1+28
IDT EN+9~*, EN+10, EN+11
IEN CPT~, CPT+1*, CPT+2
IENS EN1+2~, EN1+18*, EN1+28, RPT1+2~, RPT1+28*, RPT1+29
J XML+1~, XML+13*
LOC EN1+2~, EN1+14*, EN1+15*, EN1+16, RPT1+2~, RPT1+25*, RPT1+26*, RPT1+27
MAX EN~, EN+3*, EN+4, RPTS~, RPTS+3*, RPTS+4
N CPT+1~, CPT+4*, CPT+5
NAMES XML+1~, XML+4*, LOOP+2
NM EN1+9~*, EN1+10
P LOOP+1~, LOOP+2*
PAT TEXT~, TEXT+1*, TEXT+3, TEXT+5, TEXT+6, TEXT+7
PROC EN1+2~, EN1+4*, EN1+5, EN1+9, EN1+23, EN1+30, TEXT+2~, TEXT+5*, TEXT+6, RPT1+2~
, RPT1+7*, RPT1+11, RPT1+15, RPT1+17, RPT1+20*, RPT1+21
PSET RPTS+1~, RPTS+6*, RPTS+8, RPTS+10
PSET( RPTS+8, RPTS+10*
RAE1 RPT1+2~, RPT1+8*, RPT1+18, RPT1+25
RAE3 RPT1+2~, RPT1+7*, RPT1+13
RPT RPT1~, RPT1+3!
RPT("category" RPT1+21*
RPT("clinician" RPT1+16*, RPT1+19*
RPT("content" RPT1+12*
RPT("encounter" RPT1+29*
RPT("facility" RPT1+27*
RPT("id" RPT1+13*
RPT("localTitle" RPT1+21*
RPT("loinc" RPT1+30*
RPT("nationalTitle" RPT1+22*
RPT("nationalTitleSubject" RPT1+23*
RPT("nationalTitleType" RPT1+24*
RPT("referenceDateTime" RPT1+14*
RPT("status" RPT1+13*
SET EN1+2~, EN1+4*, EN1+9, EN1+23
STR LOOP+1~*, LOOP+2*, LOOP+3
STS RPTS+1~, RPTS+6*, RPTS+7
TAG LOOP+1~, LOOP+2*
U EN1+4, EN1+5, EN1+7, EN1+8, EN1+9, EN1+10, EN1+13, EN1+14, EN1+15, EN1+17
, EN1+19, EN1+22, EN1+23, EN1+24, EN1+25, EN1+26, EN1+27, EN1+29, EN1+30, EN1+31
, CPT+3, CPT+4, CPT+8, TEXT+3, RPTS+6, RPTS+8, RPTS+10, RPT1+4, RPT1+13, RPT1+16
, RPT1+18, RPT1+19, RPT1+25, RPT1+30, LOOP+2
>> VPR ADD+2
>> VPRI ADD+1*, ADD+2
VPRITM EN+1~, EN+8, EN+11!, EN+12, EN+16!, EN+17, RPTS+1~, RPTS+9!
>> VPRTEXT EN1+12, RPT1+9
>> VPRTOTL XML+2*
VPRX CPT+1~
VPRX( CPT+7
VPRX(1 CPT+5, CPT+6
VPRXID EN+1~, EN+15*, EN+16, RPTS+1~, RPTS+5*, RPTS+6, RPTS+8, RPTS+9, RPTS+10
X EN1+2~, EN1+8*, EN1+10, EN1+14*, EN1+15, EN1+17*, EN1+19*, EN1+20, EN1+30*, EN1+31
, CPT+1~, CPT+6*, CPT+7*, CPT+8, TEXT+2~, TEXT+6*, RPT1+2~, RPT1+11*, RPT1+14*, RPT1+15*
, RPT1+16, RPT1+17*, RPT1+19, RPT1+25*, RPT1+26, XML+1~, XML+8*, XML+10*, XML+13, XML+16*
, XML+17, XML+18, LOOP+2, ADD~, ADD+2
X0 EN1+2~, EN1+4*, EN1+5, EN1+7, EN1+8, EN1+13, EN1+14, EN1+17, EN1+19, EN1+22
, EN1+23, EN1+24, EN1+25, EN1+26, EN1+27, CPT+1~, CPT+2*, CPT+3
Y EN1+2~, CPT+1~, CPT+3*, CPT+4, CPT+8*, CPT+9, TEXT+2~, TEXT+4*, TEXT+6, TEXT+8
, RPT1+2~, RPT1+10*, RPT1+11, RPT1+12, RPT1+18~*, RPT1+19, XML+1~, XML+3, XML+5*, XML+9*
, XML+10*, XML+11*, XML+12*, XML+13*, XML+16*, XML+17*, XML+18*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All