Routine: VPRDLRA

Information

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

Source file <VPRDLRA.m>

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