VistA Analysis » VistA Reference » RPCs » ORWDFH CURRENT MEALS

ORWDFH CURRENT MEALS

Properties

Property Value
Label CURMEALS
MUMPS Implementation ORWDFH
Return Type ARRAY

MUMPS Method Description

Property Value
Method CURMEALS^ORWDFH
Method Comment Return current list of recurring meals for AO and TF orders
Input Parameters ORDFN, ORMEAL
Code 
 N I,Y,X S I=0
 S ORMEAL=$G(ORMEAL,"")
 D EN2^FHWOR8(ORDFN,ORMEAL,.ORY)
 F  S I=$O(ORY(I)) Q:'I  D
 . S X=$P(ORY(I),U,2)
 . S Y=$P(ORY(I),U,1) D DD^%DT S $P(ORY(I),U,2)=Y
 . S $P(ORY(I),U,3)=$S(X="B":"Breakfast",X="N":"Noon",X="E":"Evening",1:"")

CPRS

File Type Description
Pascal File Orders/rODDiet.pas


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