VPRDLRA ;SLC/MKB -- Laboratory extract by accession ;8/2/11 15:29
Source file <VPRDLRA.m>
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 |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Virtual Patient Record | 4 | VPRDJ06 VPRDJ08A VPRDTIU VPRSDAB |
VA FileMan | 1 | ITEM |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN(DFN,BEG,END,MAX,ID) | ; -- find patient's lab results
|
|
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
|
|
ORDER(LABORD,TEST) | ; -- return #100 order number for Lab order# & Test
|
|
NAME(X) | ; -- Return name of subscript X
|
|
AREA(ACCNUM) | ; -- Return name of accession area
|
|
RPTS(DFN,BEG,END,MAX) | ; -- find patient's lab reports
|
|
RPT1(DFN,ID,RPT) | ; -- return report as a TIU document
|
|
TEXT(DFN,SUB,IDT) | ; -- Get report text, return temp array name
|
|
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
|
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 |
FileNo | Call Tags |
---|---|
^LAB(61 - [#61] | GETS^DIQ |
^LRO(68 - [#68] | FIND^DIC |
^LAB(95.3 - [#95.3] | GET1^DIQ |
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 |
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 |
Name | Field # of Occurrence |
---|---|
^( | EN+17, AP+11, ORDER+4, RPTS+7, TEXT+7 |
^("N" | EN+41 |
^(0 | ORDER+4 |
>> | 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* |