VistA Analysis » VistA Reference » RPCs » ORWDPS32 IVAMT

ORWDPS32 IVAMT

Returns return UNITS^AMOUNT ^AMOUNT^AMOUNT… for IV solutions.

Properties

Property Value
Label IVAMT
MUMPS Implementation ORWDPS33
Return Type SINGLE VALUE

MUMPS Method Description

Property Value    
Method IVAMT^ORWDPS33    
Method Comment return UNITS^AMOUNT ^AMOUNT^AMOUNT… for IV soln
Input Parameters OI, ORWTYP    
Code
 N I,PSOI,ORWY,AMT
S PSOI=+$P($G(^ORD(101.43,OI,0)),U,2)_ORWTYP,VAL=""
D ENVOL^PSJORUT2(PSOI,.ORWY)
I ORWTYP="B" D
. S I=0 F S I=$O(ORWY(I)) Q:I'>0 S AMT(+ORWY(I))="" D
. . I ORWY(I)<1 D ;SBR
. . . K AMT(+ORWY(I))
. . . S AMT(0_+ORWY(I))=""
. S AMT=0,VAL="ML" F S AMT=$O(AMT(AMT)) Q:AMT'>0 S VAL=VAL_U_AMT
I ORWTYP="A" D
. S I=+$O(ORWY(0)) S VAL=$P($G(ORWY(I)),U,2)
. I '$L(VAL) S VAL="ML^LITER^MCG^MG^GM^UNITS^IU^MEQ^MM^MU^THOUU^MG-PE^NANOGRAM^MMOL"
   

CPRS

File Type Description
Pascal File Orders/rODBase.pas


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