Routine: VPRDLRO

Information

VPRDLRO ;SLC/MKB -- Lab extract by order/panel ;8/2/11 15:29

Source file <VPRDLRO.m>

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,IFN)	; -- find a patient's lab orders
ENQ	; end
EN1(NUM,ORD)	; -- return an order in ORD("attribute")=value ; from EN: expects ^TMP("ORR",$J,ORLIST,VPRN),LRDFN
CH(X0)	; -- return a Chemistry result as: ; id^test^result^interpretation^units^low^high^loinc^vuid^performingLab ; Expects X0=^TMP("LRRR",$J,DFN,"CH",VPRIDT,VPRL),LRDFN
MI(X0)	; -- return a Microbiology result as: ; id^test^result^interpretation^units ; Expects X0=^TMP("LRRR",$J,DFN,"MI",VPRIDT,VPRL)
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
LAB(ORIFN)	; -- is order really a lab (non-LR order in display group)