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

Package: Virtual Patient Record

Routine: VPRDLR


Information

VPRDLR ;SLC/MKB -- Laboratory extract ;8/2/11 15:29

Source Information

Source file <VPRDLR.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Lab Service 3 RR^LR7OR1  VALUE^LRPXAPI  ($$LRDN,$$LRIDT)^LRPXAPIU  
Kernel 2 $$TRIM^XLFSTR  ($$NAME,$$NS,$$STA)^XUAF4  
VA FileMan 1 ($$GET1,GETS)^DIQ  
Virtual Patient Record 1 ($$ESC,$$FAC,$$PROVSPC,$$PROVTAGS,$$STRING,$$VUID)^VPRD  

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

Package Total Caller Graph
Virtual Patient Record 2 VPRDJ06  VPRDOR  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID) ; -- find patient's lab results
CH(LAB) ; -- return a Chemistry result in LAB("attribute")=value
; Expects ^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRP),VPRN,LRDFN
ORDER(LABORD,TEST) ; -- return #100 order for Lab order# & Test
MI(LAB) ; -- return a Microbiology result in LAB("attribute")=value
; Expects ^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRP),LRDFN
AP(LAB) ; -- return a Pathology result in LAB("attribute")=value
LOINC(DFN,ORPK,TEST) ; -- return LOINC code for ordered TEST
XML(LAB) ; -- Return result as XML in @VPR@(#)
ADD(X) ; -- Add a line @VPR@(n)=X

External References

Name Field # of Occurrence
$$GET1^DIQ CH+19, CH+22, MI+16, LOINC+4
GETS^DIQ CH+17, MI+14
RR^LR7OR1 EN+12
VALUE^LRPXAPI LOINC+3
$$LRDN^LRPXAPIU EN+16
$$LRIDT^LRPXAPIU LOINC+2
$$ESC^VPRD XML+5, XML+7, XML+11
$$FAC^VPRD CH+27, MI+20
$$PROVSPC^VPRD CH+25, MI+17
$$PROVTAGS^VPRD XML+10
$$STRING^VPRD CH+28, MI+21
$$VUID^VPRD CH+23
$$TRIM^XLFSTR CH+12
$$NAME^XUAF4 CH+24
$$NS^XUAF4 CH+26, MI+19
$$STA^XUAF4 CH+26, MI+19

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+8
^LR - [#63] CH+6, MI+6
^LRO(69 - [#69] ORDER+2, ORDER+3, ORDER+4
^TMP("LRRR" EN+5!, EN+13, EN+14, EN+15, EN+19!, CH+3, CH+28, MI+3, MI+21
^VA(200 - [#200] CH+25, MI+17

Label References

Name Line Occurrences
$$ORDER CH+21
@( EN+18
ADD XML+2, XML+3, XML+12, XML+13
XML EN+18

Naked Globals

Name Field # of Occurrence
^( EN+15, CH+6, ORDER+4
^("N" CH+28, MI+21
^(0 ORDER+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ATT XML+1~, XML+3*, XML+4, XML+5, XML+7, XML+9, XML+10
BEG EN~, EN+3*, EN+10*, EN+12
CDT CH+2~, CH+5*, MI+2~, MI+5*
CMMT CH+2~, CH+28*, MI+2~, MI+21*
D ORDER+1~, ORDER+2*, ORDER+3, ORDER+4
DFN EN~, EN+2*, EN+4, EN+5, EN+12, EN+13, EN+14, EN+15, EN+19, CH+3
, CH+28, MI+3, MI+21, LOINC~, LOINC+3
END EN~, EN+3*, EN+10*, EN+12
>> FILTER("type" EN+4
ID EN~, EN+8, EN+9, EN+16, MI+2~
IENS CH+16~*, CH+17, CH+18, MI+13~*, MI+14, MI+15
LAB CH~, CH+2!, MI~, MI+2!, AP~, AP+1!, XML~
LAB( XML+3, XML+4
LAB("collected" CH+5*, MI+5*
LAB("comment" CH+28*, MI+21*
LAB("facility" CH+26*, CH+27*, MI+19*, MI+20*
LAB("groupName" CH+14*
LAB("high" CH+12*
LAB("id" CH+4*, MI+4*
LAB("interpretation" CH+11*, MI+10*
LAB("labOrderID" CH+20*
LAB("localName" CH+13*, MI+11*
LAB("loinc" CH+23*
LAB("low" CH+12*
LAB("orderID" CH+21*
LAB("performingLab" CH+24*
LAB("provider" CH+25*, MI+17*
LAB("result" CH+9*, MI+8*
LAB("resulted" CH+7*, MI+6*
LAB("sample" CH+19*, MI+16*
LAB("specimen" CH+18*, MI+15*
LAB("status" CH+7*, MI+4*, MI+7*
LAB("test" CH+8*, CH+13, MI+11*
LAB("type" CH+4*, MI+5*
LAB("units" CH+10*, MI+9*
LAB("vuid" CH+23*
LABORD ORDER~, ORDER+2, ORDER+3
LOINC CH+2~, CH+22*, CH+23
LR0 CH+2~, CH+6*, CH+7, CH+25, CH+26, MI+2~, MI+6*, MI+7, MI+17, MI+18
LRDFN EN+1~, EN+4*, CH+6, MI+6
LRDT LOINC+1~, LOINC+2*, LOINC+3
LRI CH+2~, CH+6*, CH+22, CH+24
LRN LOINC+1~, LOINC+3, LOINC+4
MAX EN~, EN+3*, EN+12
NAMES XML+1~, XML+9*, XML+10*, XML+11
ORD CH+2~, CH+20*, CH+21
ORPK LOINC~, LOINC+1, LOINC+2
P XML+1~, XML+11*
S ORDER+1~, ORDER+3*, ORDER+4
SUB EN+1~, EN+17*, EN+18
T ORDER+1~, ORDER+4*
TAG XML+1~, XML+11*
TEST ORDER~, ORDER+4, LOINC~, LOINC+3
U CH+7, CH+8, CH+9, CH+10, CH+11, CH+12, CH+13, CH+14, CH+15, CH+18
, CH+20, CH+22, CH+24, CH+25, CH+26, ORDER+4, MI+3, MI+6, MI+7, MI+8
, MI+9, MI+10, MI+11, MI+12, MI+15, MI+17, MI+18, MI+19, LOINC+4, XML+11
>> VPR ADD+2
>> VPRI ADD+1*, ADD+2
VPRIDT EN+1~, EN+9*, EN+10, EN+14*, EN+15, CH+3, CH+4, CH+5, CH+6, CH+28
, MI+3, MI+4, MI+5, MI+6, MI+21
VPRITM EN+1~, EN+17!, EN+18
VPRN EN+1~, EN+16*, CH+4, CH+6
VPRP EN+1~, EN+15*, CH+3, MI+3, MI+4
VPRSUB EN+1~, EN+4*, EN+9*, EN+12, EN+13*, EN+14, EN+15, EN+17
>> VPRTOTL XML+2*
VPRY CH+16~, MI+13~
VPRY(61 CH+18, MI+15
X EN+1~, EN+15*, EN+16, CH+2~, CH+12*, CH+15*, CH+16, CH+19, CH+21*, CH+22*
, CH+24*, CH+25*, CH+26*, CH+27, MI+2~, MI+12*, MI+13, MI+16, MI+17*, MI+18*
, MI+19, MI+20, LOINC+4*, XML+1~, XML+4*, XML+5, XML+7, XML+8, XML+11, ADD~
, ADD+2
X0 CH+2~, CH+3*, CH+8, CH+9, CH+10, CH+11, CH+12, CH+13, CH+14, CH+15
, CH+20, CH+21, MI+2~, MI+3*, MI+8, MI+9, MI+10, MI+11, MI+12
Y ORDER+1~*, ORDER+4*, ORDER+5, LOINC+1~, LOINC+2*, LOINC+4*, LOINC+5, XML+1~, XML+3, XML+4*
, XML+5*, XML+7*, XML+8*, XML+9*, XML+11*, XML+12*
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