VistA Analysis » VistA Reference » RPCs » ORWDFH TFPROD

ORWDFH TFPROD

Returns a list of active tubefeeding products.

Properties

Property Value
Label TFPROD
MUMPS Implementation ORWDFH
Return Type ARRAY

MUMPS Method Description

Property Value
Method TFPROD^ORWDFH
Method Comment Return a list of active tubefeeding products
Code
 N I,IEN,NAM,X,CURTM
S I=0,NAM="",CURTM=$$NOW^XLFDT
F S NAM=$O(^ORD(101.43,"S.TF",NAM)) Q:NAM="" D
. S IEN=0 F S IEN=$O(^ORD(101.43,"S.TF",NAM,IEN)) Q:'IEN D
. . S X=^ORD(101.43,"S.TF",NAM,IEN)
. . I +$P(X,U,3),$P(X,U,3) . . 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