Routine: NHINVLRO

Information

NHINVLRO ;SLC/MKB -- Laboratory extract by order/panel

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID)	; -- find patient's lab results
SORT	; -- return NHLRO(PANEL) = CPRS order# ^ panel/test name ^ Lab Order string ; NHLRO(PANEL,NHI) = result node
EXPAND(TEST,ARAY)	;Expand a lab test panel [LR7OU1]
EX(TST)	;
ACC(NUM,ODT,SN)	; -- Return 1 or 0, if Specimen entry matches accession
CH(X0)	; -- return a Chemistry result as: ; id^test^result^interpretation^units^low^high^loinc^vuid ; Expects X0=^TMP("LRRR",$J,DFN,"CH",NHIDT,NHI),LRDFN
LOINC(TEST,SPEC)	; -- Look up LOINC code, if not mapped
MI(X0)	; -- return a Microbiology result as: ; id^test^result^interpretation^units ; Expects X0=^TMP("LRRR",$J,DFN,"MI",NHIDT,NHI)
XML(LAB)	; -- Return result as XML in @NHIN@(#)
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; -- Add a line @NHIN@(n)=X