VPRDLR ;SLC/MKB -- Laboratory extract ;8/2/11 15:29
Source file <VPRDLR.m>
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 |
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
|
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 |
FileNo | Call Tags |
---|---|
^LAB(61 - [#61] | GET1^DIQ, GETS^DIQ |
^LAB(95.3 - [#95.3] | GET1^DIQ |
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 |
Name | Line Occurrences |
---|---|
$$ORDER | CH+21 |
@( | EN+18 |
ADD | XML+2, XML+3, XML+12, XML+13 |
XML | EN+18 |
Name | Field # of Occurrence |
---|---|
^( | EN+15, CH+6, ORDER+4 |
^("N" | CH+28, MI+21 |
^(0 | ORDER+4 |
>> | 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* |