VistA Analysis » VistA Reference » RPCs » ORWDPS1 DOSEALT

ORWDPS1 DOSEALT

Properties

Property Value
Label DOSEALT
MUMPS Implementation ORWDPS1
Return Type ARRAY

MUMPS Method Description

Property Value
Method DOSEALT^ORWDPS1
Method Comment return a list of formulary alternatives for dose
Input Parameters DDRUG, CUROI, PSTYPE
Code 
 N I,OI,ORWLST,ILST S ILST=0
 D ENRFA^PSJORUTL(DDRUG,PSTYPE,.ORWLST)
 S I=0 F  S I=$O(ORWLST(I)) Q:'I  D
 . S OI=+$O(^ORD(101.43,"ID",+$P(ORWLST(I),U,4)_";99PSP",0))
 . I OI,OI'=CUROI S ILST=ILST+1,LST(ILST)=OI_U_$P(^ORD(101.43,OI,0),U)

CPRS

File Type Description
Pascal File Orders/rODMeds.pas


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