VistA Analysis » VistA Reference » RPCs » ORWDX ORDITM

ORWDX ORDITM

Returns an array of orderable items in the format: Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name

Properties

Property Value
Label ORDITM
MUMPS Implementation ORWDX
Return Type ARRAY

MUMPS Method Description

Property Value
Method ORDITM^ORWDX
Method Comment Subset of orderable items
Input Parameters FROM, DIR, XREF, QOCALL
First Comment
 Y(n)=IEN^.01 Name^.01 Name  -or-  IEN^Synonym <.01 Name>^.01 Name
Code
 N I,IEN,CNT,X,DTXT,CURTM,DEFROUTE
S DEFROUTE=""
S QOCALL=+$G(QOCALL)
S I=0,CNT=44,CURTM=$$NOW^XLFDT
F Q:I' . S IEN="" F S IEN=$O(^ORD(101.43,XREF,FROM,IEN),DIR) Q:'IEN D
. . S X=^ORD(101.43,XREF,FROM,IEN)
. . I +$P(X,U,3),$P(X,U,3) . . I 'QOCALL,$P(X,U,5) 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/rODBase.pas


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