VistA Analysis » VistA Reference » RPCs » ORWDPS1 FORMALT

ORWDPS1 FORMALT

Properties

Property Value
Label FORMALT
MUMPS Implementation ORWDPS1
Return Type ARRAY

MUMPS Method Description

Property Value
Method FORMALT^ORWDPS1
Method Comment return a list of formulary alternatives
Input Parameters ORIEN, PSTYPE
Code 
 N PSID,I
 S ORIEN=+$P(^ORD(101.43,ORIEN,0),U,2)
 D EN1^PSSUTIL1(.ORIEN,PSTYPE)
 S PSID=0,I=0
 F  S PSID=$O(ORIEN(PSID)) Q:'PSID  D
 . S OI=+$O(^ORD(101.43,"ID",PSID_";99PSP",0))
 . I OI S I=I+1,ORLST(I)=OI,$P(ORLST(I),U,2)=$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