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

Package: Virtual Patient Record

Routine: VPRDLRA


Information

VPRDLRA ;SLC/MKB -- Laboratory extract by accession ;8/2/11 15:29

Source Information

Source file <VPRDLRA.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Lab Service 3 RR^LR7OR1  EN^LR7OSUM  $$LRDN^LRPXAPIU  
VA FileMan 2 FIND^DIC  ($$GET1,GETS)^DIQ  
Virtual Patient Record 2 ($$ESC,$$FAC,$$PROVSPC,$$PROVTAGS,$$STRING,$$VUID)^VPRD  ($$INFO,$$TEXT,EN1,XML)^VPRDTIU  
Kernel 1 ($$NAME,$$NS,$$STA)^XUAF4  
PCE Patient Care Encounter 1 $$GETENC^PXAPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Virtual Patient Record 4 VPRDJ06  VPRDJ08A  VPRDTIU  VPRSDA  
VA FileMan 1 ITEM  

Entry Points

Name Comments DBIA/ICR reference
AREA(ACCNUM) ; -- Return name of accession area
ORDER(LABORD,TEST) ; -- return #100 order number for Lab order# & Test
CH() ; -- return a Chemistry result as:
; id^test^result^interpretation^units^low^high^localName^loinc^vuid^order^performingLab
; Expects ^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRP),LRDFN
MI() ; -- return a Microbiology result as:
; id^test^result^interpretation^units
; Expects ^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRP)
AP(LAB) ; -- return a Pathology result in LAB("attribute")=value
SUB(X) ; -- return string of type(s) needed for LR api
RPT1(DFN,ID,RPT) ; -- return report as a TIU document
XML(LAB) ; -- Return result as XML in @VPR@(#)
ADD(X) ; -- Add a line @VPR@(n)=X
RPTS(DFN,BEG,END,MAX) ; -- find patient's lab reports
EN(DFN,BEG,END,MAX,ID) ; -- find patient's lab results
LOOP() ; -- build sub-items string from NAMES and X
TEXT(DFN,SUB,IDT) ; -- Get report text, return temp array name
NAME(X) ; -- Return name of subscript X

External References

Name Field # of Occurrence
FIND^DIC AREA+3
$$GET1^DIQ CH+10
GETS^DIQ EN+25
RR^LR7OR1 EN+14, RPTS+5
EN^LR7OSUM TEXT+4
$$LRDN^LRPXAPIU CH+4
$$GETENC^PXAPI RPT1+18
$$ESC^VPRD XML+13, XML+17, XML+18, LOOP+2
$$FAC^VPRD EN+32, AP+13, RPT1+15
$$PROVSPC^VPRD EN+30, AP+8, AP+9, RPT1+21, RPT1+25
$$PROVTAGS^VPRD XML+20
$$STRING^VPRD EN+41
$$VUID^VPRD CH+11
$$INFO^VPRDTIU AP+16, RPTS+17
$$TEXT^VPRDTIU AP+18
EN1^VPRDTIU RPTS+18
XML^VPRDTIU RPTS+14, RPTS+18
$$NAME^XUAF4 CH+13
$$NS^XUAF4 EN+31
$$STA^XUAF4 EN+31

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(61 - [#61] GETS^DIQ
^LRO(68 - [#68] FIND^DIC
^LAB(95.3 - [#95.3] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN+5, RPTS+4, RPT1+4
^LAB(60 - [#60] CH+6
^LR - [#63] EN+22, CH+5, AP+2, AP+3, AP+11, AP+14, RPTS+8, RPTS+9, RPT1+5
^LRO(69 - [#69] ORDER+3, ORDER+4
^SC("B" RPT1+14
^TMP("LRC" TEXT+2!, TEXT+7, TEXT+8!
^TMP("LRH" TEXT+2!, TEXT+6, TEXT+8!
^TMP("LRRR" EN+6!, EN+15, EN+17, EN+37, EN+41, EN+43!, CH+4, MI+4, RPTS+5!, RPTS+6
, RPTS+7, RPTS+19!
^TMP("LRT" TEXT+2!, TEXT+8!
^TMP("VPRTEXT" EN+18!, EN+43!, RPTS+19!, RPT1+3!, TEXT+5
^VA(200 - [#200] EN+30, AP+8, AP+9, RPT1+21, RPT1+25

Label References

Name Line Occurrences
$$AREA EN+28, AP+7
$$CH EN+38
$$LOOP XML+9, XML+21
$$MI EN+38
$$NAME AP+20, RPT1+7, TEXT+3
$$ORDER CH+12
$$SUB EN+5
$$TEXT EN+36, AP+21, RPT1+26
ADD XML+2, XML+3, XML+5, XML+10, XML+11, XML+12, XML+13, XML+14, XML+15, XML+21
, XML+22
AP EN+19
RPT1 RPTS+14
XML EN+19, EN+42

Naked Globals

Name Field # of Occurrence
^( EN+17, AP+11, ORDER+4, RPTS+7, TEXT+7
^("N" EN+41
^(0 ORDER+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACCNUM AREA~, AREA+2
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, XML+20, XML+21
AU AP+3~*, AP+4
BEG EN~, EN+3*, EN+11*, EN+14, RPTS~, RPTS+3*, RPTS+5
CDT RPT1+17~*, RPT1+18
CMMT EN+18!, EN+41*, CH+3~
D ORDER+1~, ORDER+2*, ORDER+3, ORDER+4
DA RPTS+1~, RPTS+16*, RPTS+17, RPTS+18
DATE TEXT+1~, TEXT+3*, TEXT+4
DFN EN~, EN+2*, EN+5, EN+6, EN+14, EN+15, EN+17, EN+36, EN+37, EN+41
, EN+43, CH+4, MI+4, AP+21, RPTS~, RPTS+2*, RPTS+4, RPTS+5, RPTS+6, RPTS+7
, RPTS+14, RPTS+19, RPT1~, RPT1+1*, RPT1+4, RPT1+18, RPT1+26, TEXT~, TEXT+4
END EN~, EN+3*, EN+11*, EN+14, RPTS~, RPTS+3*, RPTS+5
>> FILTER("loinc" RPT1+13
>> FILTER("type" EN+4
I EN+1~, EN+29*, AP+1~, AP+11*, AP+15*, AP+17, AP+18, TEXT+1~, TEXT+6*, TEXT+7*
, XML+1~, XML+7*, XML+8, XML+10
ID EN~, EN+9, EN+10, RPT1~, RPT1+1*, RPT1+4, RPT1+6
IDT RPT1+2~, RPT1+4*, RPT1+5, RPT1+6, RPT1+17, RPT1+26, TEXT~, TEXT+3, TEXT+5
IENS EN+24~*, EN+25, EN+26, EN+27
J XML+1~, XML+13*
LAB AP~, XML~
LAB( XML+3, XML+4, XML+7, XML+8, XML+10, XML+16
LAB("collected" AP+6*
LAB("document" AP+17*, AP+18*, AP+19, AP+20*, AP+21*
LAB("facility" AP+13*
LAB("groupName" AP+7*
LAB("id" AP+5*
LAB("name" AP+7*
LAB("pathologist" AP+8*
LAB("provider" AP+9*
LAB("resulted" AP+6*
LAB("specimen" AP+12*
LAB("status" AP+10*
LAB("type" AP+5*
LABORD ORDER~, ORDER+3
LOC RPT1+2~, RPT1+14*, RPT1+15, RPT1+16, RPT1+18
LOINC CH+3~, CH+10*, CH+11
LR0 EN+1~, EN+22*, EN+23, EN+28, EN+29, EN+31, EN+34, AP+1~, AP+2*, AP+4*
, AP+6, AP+7, AP+8, AP+9, AP+10, AP+19, RPTS+1~, RPTS+9*, RPTS+13, RPT1+2~
, RPT1+5*, RPT1+14, RPT1+20, RPT1+23
LRDFN EN+1~, EN+5*, EN+22, CH+5, AP+2, AP+3, AP+11, AP+14, RPTS+1~, RPTS+4*
, RPTS+8, RPTS+9, RPT1+2~, RPT1+4*, RPT1+5, TEXT+1~
MAX EN~, EN+3*, EN+14, RPTS~, RPTS+3*, RPTS+5
NAME TEXT+1~, TEXT+3*, TEXT+6
NAMES XML+1~, XML+6*, XML+20*, LOOP+2
NODE CH+3~, CH+5*, CH+10, CH+13, AP+1~, AP+14*, AP+15
ORD EN+1~, EN+18!, EN+40, CH+12*, MI+6*
P LOOP+1~, LOOP+2*
RPT RPT1~, RPT1+3!
RPT("clinician" RPT1+21*, RPT1+25*
RPT("content" RPT1+26*
RPT("documentClass" RPT1+8*
RPT("encounter" RPT1+19*
RPT("facility" RPT1+15*
RPT("id" RPT1+6*
RPT("localTitle" RPT1+7*
RPT("loinc" RPT1+13*
RPT("nationalTitle" RPT1+9*
RPT("nationalTitleSubject" RPT1+10*
RPT("nationalTitleType" RPT1+11*
RPT("referenceDateTime" RPT1+6*
RPT("status" RPT1+12*, RPT1+24*
RPT("type" RPT1+12*
S ORDER+1~, ORDER+3*, ORDER+4
STR LOOP+1~*, LOOP+2*, LOOP+3
SUB EN+1~, EN+5*, EN+10*, EN+12*, EN+14, RPT1+2~, RPT1+4*, RPT1+5, RPT1+7, RPT1+14
, RPT1+20, RPT1+23, RPT1+26, TEXT~, TEXT+3, TEXT+5
T ORDER+1~, ORDER+4*
TAG LOOP+1~, LOOP+2*
TEST ORDER~, ORDER+4
U EN+23, EN+26, EN+28, EN+29, EN+30, EN+31, EN+34, CH+6, CH+7, CH+8
, CH+9, CH+10, CH+11, CH+12, CH+13, MI+5, MI+6, AP+4, AP+6, AP+7
, AP+8, AP+9, AP+10, AP+11, AP+12, AP+15, AP+19, ORDER+4, RPTS+13, RPTS+16
, RPT1+13, RPT1+14, RPT1+20, RPT1+21, RPT1+23, RPT1+24, RPT1+25, XML+20, LOOP+2
>> VPR ADD+2
VPRA AREA+1~
VPRA("DILIST" AREA+4
>> VPRI ADD+1*, ADD+2
VPRIDT EN+1~, EN+10*, EN+11, EN+17*, EN+20, EN+21, EN+22, EN+35, EN+36, EN+37
, EN+41, CH+4, CH+5, CH+7, MI+4, MI+5, AP+2, AP+5, AP+6, AP+11
, AP+14, AP+20, AP+21, ORDER+2, RPTS+1~, RPTS+7*, RPTS+8, RPTS+9, RPTS+10
VPRITM EN+1~, EN+18!, EN+19, EN+42, RPTS+1~, RPTS+10!, RPTS+14, RPTS+16!, RPTS+18
VPRITM("collected" EN+21*
VPRITM("comment" EN+41*
VPRITM("document" EN+35*, EN+36*
VPRITM("facility" EN+31*, EN+32*
VPRITM("groupName" EN+28*
VPRITM("id" EN+20*
VPRITM("labOrderID" EN+40*
VPRITM("name" EN+28*
VPRITM("provider" EN+30*
VPRITM("resulted" EN+23*
VPRITM("sample" EN+27*
VPRITM("specimen" EN+26*
VPRITM("status" EN+21*, EN+34*
VPRITM("type" EN+20*
VPRITM("value" EN+39*
VPRN CH+3~, CH+4*, CH+5, CH+7, RPTS+1~, RPTS+15*, RPTS+16
VPRP EN+1~, EN+37*, EN+39, CH+4, MI+4, MI+5
VPRS TEXT+1~, TEXT+4
VPRS( TEXT+3*
VPRSUB EN+1~, EN+15*, EN+16, EN+17, EN+19, EN+20, EN+22, EN+29, EN+33, EN+35
, EN+36, EN+37, EN+38, EN+41, AP+2, AP+5, AP+11, AP+14, AP+20, AP+21
, RPTS+1~, RPTS+6*, RPTS+7, RPTS+8, RPTS+9, RPTS+10, RPTS+13
>> VPRTEXT EN+36, AP+18, AP+21, RPT1+26
VPRTIU RPTS+1~, RPTS+8*, RPTS+12, RPTS+15, RPTS+16
>> VPRTOTL XML+2*
VPRTYPE EN+1~, EN+4*, EN+5, EN+16
VPRXID RPTS+1~, RPTS+10*, RPTS+14
VPRY EN+24~, TEXT+1~, TEXT+4
VPRY(61 EN+26, EN+27
X EN+1~, EN+23*, EN+24, EN+28*, EN+29*, EN+30, EN+31*, EN+32, EN+38*, EN+39
, CH+3~, CH+6*, CH+7, CH+8*, CH+10*, CH+12*, CH+13*, AP+1~, AP+7*, AP+8*
, AP+9*, AP+11*, AP+12, AP+15*, AP+16, AP+18, SUB~, SUB+1*, SUB+2, SUB+3
, SUB+4, NAME~, NAME+1, NAME+2, NAME+3, NAME+4, NAME+5, NAME+6, NAME+7, AREA+1~
, AREA+2*, AREA+3, RPT1+2~, RPT1+14*, RPT1+18*, RPT1+19, RPT1+20*, RPT1+21, RPT1+23*, RPT1+24
, RPT1+25, TEXT+1~, TEXT+7*, XML+1~, XML+8*, XML+10*, XML+13, XML+16*, XML+17, XML+18
, XML+19, LOOP+2, ADD~, ADD+2
X0 CH+3~, CH+4*, CH+6, CH+7, CH+8, CH+9, CH+12, MI+3~, MI+4*, MI+5
, MI+6
Y CH+3~, CH+7*, CH+8*, CH+9*, CH+11*, CH+12*, CH+13*, CH+14, MI+3~, MI+4*
, MI+5*, MI+7, AP+16~*, AP+17, SUB+1~*, SUB+2*, SUB+3*, SUB+4*, SUB+5, ORDER+1~
, ORDER+2*, ORDER+3, ORDER+4*, ORDER+5, AREA+1~, AREA+2*, AREA+4*, AREA+5, RPT1+24~*, RPT1+25
, TEXT+1~, TEXT+5*, TEXT+7, TEXT+9, XML+1~, XML+3, XML+4*, XML+9*, XML+10*, XML+11*
, XML+12*, XML+13*, XML+16*, XML+17*, XML+18*, XML+19*, XML+21*
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