Routine: VPRDLRO

Package	Total	Call Graph
Lab Service	3	RR^LR7OR1 EXPAND^LR7OU1 $$LRDN^LRPXAPIU
Order Entry Results Reporting	3	EN^ORQ1 GET^ORQ12 ($$OI,$$PKGID)^ORX8
Kernel	1	($$NAME,$$NS,$$STA)^XUAF4
VA FileMan	1	($$GET1,GETS)^DIQ
Virtual Patient Record	1	($$ESC,$$FAC,$$PROVSPC,$$PROVTAGS,$$STRING,$$VUID)^VPRD

Entry Points

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,IFN)	; -- find a patient's lab orders
ENQ	; end
EN1(NUM,ORD)	; -- return an order in ORD("attribute")=value ; from EN: expects ^TMP("ORR",$J,ORLIST,VPRN),LRDFN
CH(X0)	; -- return a Chemistry result as: ; id^test^result^interpretation^units^low^high^loinc^vuid^performingLab ; Expects X0=^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRL),LRDFN
MI(X0)	; -- return a Microbiology result as: ; id^test^result^interpretation^units ; Expects X0=^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRL)
XML(LAB)	; -- Return result as XML in @VPR@(#)
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; -- Add a line @VPR@(n)=X
LAB(ORIFN)	; -- is order really a lab (non-LR order in display group)

External References

Name	Field # of Occurrence
$$GET1^DIQ	EN1+25, CH+9, LAB+2
GETS^DIQ	EN1+23
RR^LR7OR1	EN1+13
EXPAND^LR7OU1	EN1+32
$$LRDN^LRPXAPIU	CH+4
EN^ORQ1	EN+18
GET^ORQ12	EN+10
$$OI^ORX8	EN1+9
$$PKGID^ORX8	EN1+7
$$ESC^VPRD	XML+12, XML+13, LOOP+2
$$FAC^VPRD	EN1+28
$$PROVSPC^VPRD	EN1+30
$$PROVTAGS^VPRD	XML+14
$$STRING^VPRD	EN1+37
$$VUID^VPRD	CH+10
$$NAME^XUAF4	CH+11
$$NS^XUAF4	EN1+27
$$STA^XUAF4	EN1+27

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LAB(61 - [#61]	GET1^DIQ, GETS^DIQ
^DIC(9.4 - [#9.4]	GET1^DIQ
^LAB(95.3 - [#95.3]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	EN+4
^LAB(60 - [#60]	CH+6
^LR - [#63]	EN1+19, CH+5
^OR(100 - [#100]	EN+22, EN1+6, LAB+2
^ORD(100.98 - [#100.98]	EN+15
^TMP("LRRR"	ENQ+1!, EN1+13!, EN1+15, EN1+33, EN1+37
^TMP("ORGOTIT"	EN+12!
^TMP("ORR"	EN+19, ENQ+1!, EN1+4
^TMP("VPRTEXT"	ENQ+1!, EN1+3!
^VA(200 - [#200]	EN1+30

Label References

Name	Line Occurrences
$$CH	EN1+35
$$LAB	EN1+5
$$LOOP	XML+9, XML+15
$$MI	EN1+36
ADD	XML+2, XML+3, XML+5, XML+9, XML+10, XML+16
EN1	EN+11, EN+24
ENQ	EN+7
XML	EN+11, EN+25

Naked Globals

Name	Field # of Occurrence
^(	EN+19, EN1+33
^("N"	EN1+37

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+8, XML+9, XML+10, XML+11, XML+12 , XML+13, XML+14, XML+15
BEG	EN~, EN+3*, EN+18, EN+23
CDT	EN+1~, EN+23*
CMMT	EN1+37!*
DFN	EN~, EN+2*, EN+4, EN+18, ENQ+1, EN1+6, EN1+13, EN1+15, EN1+33, EN1+37
END	EN~, EN+3*, EN+18, EN+23
>> FILTER("type"	EN+4
I	EN1+2~, EN1+29, XML+1~, XML+8, XML+9
IENS	EN1+22~*, EN1+23, EN1+24
IFN	EN~, EN+7, EN+10, EN1+2~, EN1+4*, EN1+5, EN1+6, EN1+7, EN1+8, EN1+9 , EN1+10
J	XML+1~
LAB	XML~
LAB(	XML+3, XML+4, XML+8, XML+9, XML+11
LOINC	CH+3~, CH+9*, CH+10
LR0	EN1+2~, EN1+19*, EN1+20, EN1+21, EN1+26, EN1+29
LRDFN	EN+1~, EN+4*, EN1+19, CH+5
LRSUB	EN+1~, EN+4*, EN+22
MAX	EN~, EN+3*, EN+19
NAMES	XML+1~, XML+6, XML+7, XML+14*, LOOP+2
NODE	CH+3~, CH+5*, CH+9, CH+11
NUM	EN1~, EN1+4
OI	EN1+2~, EN1+9*, EN1+10, EN1+32
ORD	EN1~, EN1+3!
ORD("collected"	EN1+18*
ORD("comment"	EN1+37*
ORD("facility"	EN1+27, EN1+28
ORD("groupName"	EN1+26*
ORD("id"	EN1+8*
ORD("labOrderID"	EN1+8*
ORD("name"	EN1+9*
ORD("order"	EN1+10*
ORD("ordered"	EN1+11*
ORD("provider"	EN1+30*
ORD("resulted"	EN1+21*
ORD("sample"	EN1+25*
ORD("specimen"	EN1+24*
ORD("status"	EN1+17, EN1+20
ORD("type"	EN1+17*
ORD("value"	EN1+35, EN1+36
ORDER	EN+1~, EN+19*, EN+20, EN+21, EN+22, EN+23
ORDG	EN+1~, EN+15*, EN+18
ORFLG	EN+1~, EN+16*, EN+18
ORIFN	LAB~, LAB+2
ORIGVIEW	EN+1~, EN+9, EN+17
ORLIST	EN+1~, EN+8*, EN+10, EN+19, EN1+4
ORLST	EN+8~*, EN+10
ORPK	EN1+2~, EN1+7*, EN1+8, EN1+13, EN1+14, EN1+15
P	CH+3~, CH+4, CH+5, CH+7, XML+1~, LOOP+1~, LOOP+2
PKG	LAB+1~, LAB+2*, LAB+3
STR	LOOP+1~, LOOP+2, LOOP+3
TAG	XML+1~, LOOP+1~, LOOP+2*
U	EN+20, EN+21, EN+23, EN1+6, EN1+9, EN1+10, EN1+11, EN1+20, EN1+21, EN1+24 , EN1+26, EN1+27, EN1+29, EN1+30, EN1+32, CH+6, CH+7, CH+8, CH+9, CH+10 , CH+11, MI+4, XML+14, LOOP+2, LAB+2
>> VPR	ADD+2
VPRCNT	EN+1~, EN+18, EN+19, EN+25
>> VPRI	ADD+1*, ADD+2
VPRIDT	EN1+2~, EN1+15*, EN1+18, EN1+19, EN1+33, EN1+37, CH+5, CH+7, MI+4
VPRITM	EN+1~, EN+11, EN+24!, EN+25
VPRL	EN1+2~, EN1+33*, EN1+35, EN1+36, MI+4
VPRN	EN+1~, EN+10, EN+11, EN+19, EN+24
VPRSUB	EN1+2~, EN1+14*, EN1+15, EN1+17, EN1+19, EN1+20, EN1+29, EN1+33, EN1+35, EN1+36 , EN1+37
VPRT	EN1+2~, EN1+32!
VPRT(	EN1+34
>> VPRTOTL	XML+2*
VPRY	EN1+22~
VPRY(61	EN1+24
X	EN1+2~, EN1+20, EN1+21, EN1+22, EN1+25, EN1+26, EN1+27, EN1+28, EN1+29, EN1+30 , EN1+33, EN1+34, EN1+35, EN1+36, CH+3~, CH+6, CH+7, CH+8, CH+9, CH+11* , XML+1~, XML+9, XML+11, XML+12, XML+13, XML+15, LOOP+2, ADD~, ADD+2, LAB+1~ , LAB+2*
X0	EN1+2~, EN1+4*, EN1+11, CH~, CH+4, CH+6, CH+7, CH+8, MI~, MI+4
Y	CH+3~, CH+7, CH+8, CH+10, CH+11, CH+12, MI+3~, MI+4, MI+5, XML+1~ , XML+3, XML+4, XML+9, XML+11, XML+12, XML+13, XML+15, LAB+1~, LAB+3, LAB+4

Customize PDF page

Package: Virtual Patient Record

Routine: VPRDLRO

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: