VistA Analysis » VistA Reference » RPCs » ORWDFH DIETS

ORWDFH DIETS

Returns active diets (including NPO) in the format: IEN^NAME or IEN^SYNONYM ^NAME

Properties

Property Value
Label DIETS
MUMPS Implementation ORWDFH
Return Type ARRAY

MUMPS Method Description

Property Value
Method DIETS^ORWDFH
Method Comment Return a subset of active diets, including NPO
Input Parameters FROM, DIR
First Comment 
 Y(n)=IEN^.01 Name^.01 Name  -or-  IEN^Synonym <.01 Name>^.01 Name
Code 
 N I,IEN,CNT,X,CURTM
 S I=0,CNT=44,CURTM=$$NOW^XLFDT
 F  Q:I' . S IEN=0 F  S IEN=$O(^ORD(101.43,"S.DIET",FROM,IEN)) Q:'IEN  D
 . . S X=^ORD(101.43,"S.DIET",FROM,IEN)
 . . I +$P(X,U,3),$P(X,U,3) . . I $P($G(^ORD(101.43,IEN,"FH")),U)'="D",($P($G(^(0)),U)'="NPO") Q
 . . S I=I+1
 . . I 'X S Y(I)=IEN_U_$P(X,U,2)_U_$P(X,U,2)
 . . E  S Y(I)=IEN_U_$P(X,U,2)_$C(9)_"<"_$P(X,U,4)_">"_U_$P(X,U,4)

CPRS

File Type Description
Pascal File Orders/rODDiet.pas


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