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

Package: Virtual Patient Record

Routine: VPRDLRO


Information

VPRDLRO ;SLC/MKB -- Lab extract by order/panel ;8/2/11 15:29

Source Information

Source file <VPRDLRO.m>

Call Graph

Call Graph

Call Graph Total: 9

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
MI(X0) ; -- return a Microbiology result as:
; id^test^result^interpretation^units
; Expects X0=^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRL)
EN(DFN,BEG,END,MAX,IFN) ; -- find a patient's lab orders
ENQ ; end
XML(LAB) ; -- Return result as XML in @VPR@(#)
ADD(X) ; -- Add a line @VPR@(n)=X
EN1(NUM,ORD) ; -- return an order in ORD("attribute")=value
; from EN: expects ^TMP("ORR",$J,ORLIST,VPRN),LRDFN
LOOP() ; -- build sub-items string from NAMES and X
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

External References

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61 - [#61] GET1^DIQ,  GETS^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+17, CH+5
^OR(100 - [#100] EN+22
^ORD(100.98 - [#100.98] EN+15
^TMP("LRRR" ENQ+1!, EN1+11!, EN1+13, EN1+31, EN1+35
^TMP("ORGOTIT" EN+12!
^TMP("ORR" EN+19, ENQ+1!, EN1+4
^TMP("VPRTEXT" ENQ+1!, EN1+3!
^VA(200 - [#200] EN1+28

Label References

Name Line Occurrences
$$CH EN1+33
$$LOOP XML+9, XML+15
$$MI EN1+34
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+31
^("N" EN1+35

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+35!*
DFN EN~, EN+2*, EN+4, EN+18, ENQ+1, EN1+11, EN1+13, EN1+31, EN1+35
END EN~, EN+3*, EN+18, EN+23
>> FILTER("type" EN+4
I EN1+2~, EN1+27*, XML+1~, XML+8*, XML+9
IENS EN1+20~*, EN1+21, EN1+22
IFN EN~, EN+7, EN+10, EN1+2~, EN1+4*, EN1+5, EN1+6, EN1+7, EN1+8
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+17*, EN1+18, EN1+19, EN1+24, EN1+27
LRDFN EN+1~, EN+4*, EN1+17, 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+7*, EN1+8, EN1+30
ORD EN1~, EN1+3!
ORD("collected" EN1+16*
ORD("comment" EN1+35*
ORD("facility" EN1+25*, EN1+26*
ORD("groupName" EN1+24*
ORD("id" EN1+6*
ORD("labOrderID" EN1+6*
ORD("name" EN1+7*
ORD("order" EN1+8*
ORD("ordered" EN1+9*
ORD("provider" EN1+28*
ORD("resulted" EN1+19*
ORD("sample" EN1+23*
ORD("specimen" EN1+22*
ORD("status" EN1+15*, EN1+18*
ORD("type" EN1+15*
ORD("value" EN1+33*, EN1+34*
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
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+5*, EN1+6, EN1+11, EN1+12, EN1+13
P CH+3~, CH+4*, CH+5, CH+7, XML+1~, LOOP+1~, LOOP+2*
STR LOOP+1~*, LOOP+2*, LOOP+3
TAG XML+1~, LOOP+1~, LOOP+2*
U EN+20, EN+21, EN+23, EN1+7, EN1+8, EN1+9, EN1+18, EN1+19, EN1+22, EN1+24
, EN1+25, EN1+27, EN1+28, EN1+30, CH+6, CH+7, CH+8, CH+9, CH+10, CH+11
, MI+4, XML+14, LOOP+2
>> VPR ADD+2
VPRCNT EN+1~, EN+18*, EN+19, EN+25*
>> VPRI ADD+1*, ADD+2
VPRIDT EN1+2~, EN1+13*, EN1+16, EN1+17, EN1+31, EN1+35, CH+5, CH+7, MI+4
VPRITM EN+1~, EN+11, EN+24!, EN+25
VPRL EN1+2~, EN1+31*, EN1+33, EN1+34, MI+4
VPRN EN+1~, EN+10*, EN+11, EN+19*, EN+24
VPRSUB EN1+2~, EN1+12*, EN1+13, EN1+15, EN1+17, EN1+18, EN1+27, EN1+31, EN1+33, EN1+34
, EN1+35
VPRT EN1+2~, EN1+30!
VPRT( EN1+32
>> VPRTOTL XML+2*
VPRY EN1+20~
VPRY(61 EN1+22
X EN1+2~, EN1+18*, EN1+19*, EN1+20, EN1+23, EN1+24*, EN1+25, EN1+26, EN1+27*, EN1+28
, EN1+31*, EN1+32, EN1+33, EN1+34, 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
X0 EN1+2~, EN1+4*, EN1+9, 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*
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All