VistA Analysis » VistA Reference » RPCs » ORWDXVB RAW

ORWDXVB RAW

Return raw Lab Test Results associated with Blood Bank orderrequest.

Properties

Property Value
Label RAW
MUMPS Implementation ORWDXVB
Return Type GLOBAL ARRAY

MUMPS Method Description

Property Value
Method RAW^ORWDXVB
Method Comment Get RAW test results
Input Parameters DFN, ORX
Code
 Q:'$O(ORX(0))  ;ORX contains a list of tests to retrieve results for
N ORCOM,ORT,ORTST,ORTDT,ORTMP,GCNT,CCNT,GIOSL,GIOM,I
S GCNT=0,CCNT=1,GIOSL=999999,GIOM=80
S OROOT=$NA(^TMP("ORVBEC",$J))
K ^TMP("ORVBEC",$J)
S ORT=0 F S ORT=$O(ORX(ORT)) Q:'ORT S ORTST=$P(ORX(ORT),"^",1) D
. K ^TMP("LRRR",$J) D RR^LR7OR1(DFN,,,,,ORTST,,1)
. S ORTMP="^TMP(""LRRR"",$J,DFN)",ORTMP=$Q(@ORTMP)
. Q:$P(ORTMP,",",1,3)'=("^TMP(""LRRR"","_$J_","_DFN)
. S ORTDT=9999999-+$P(ORTMP,",",5),ORZ=@ORTMP
. D LN
. S ^TMP("ORVBEC",$J,GCNT,0)=$P(ORZ,"^",1,6)_"^"_ORTDT
K ^TMP("LRRR",$J)

CPRS

File Type Description
Pascal File Orders/rODLab.pas


Document generated on August 31st 2022, 2:55:43 pm