VistA Analysis » VistA Reference » RPCs » ORWDRA32 RAORDITM

ORWDRA32 RAORDITM

Properties

Property Value
Label RAORDITM
MUMPS Implementation ORWDRA32
Return Type ARRAY

MUMPS Method Description

Property Value
Method RAORDITM^ORWDRA32
Method Comment Return a subset of orderable items
Input Parameters FROM, DIR, IMGTYP
First Comment 
 .Return Array, Starting Text, Direction, Cross Reference (S.xxx)
Code 
 N I,IEN,CNT,ORX,DTXT,REQDET,REQAPPR,XREF S I=0,CNT=44
 S XREF="S."_$$IMTYPE(IMGTYP)
 F  Q:I' . S IEN=0 F  S IEN=$O(^ORD(101.43,XREF,FROM,IEN)) Q:'IEN  D
 . . I $$REQDET,$P($G(^ORD(101.43,IEN,"RA")),U,2)="B" Q
 . . S ORX=^ORD(101.43,XREF,FROM,IEN)
 . . I +$P(ORX,U,3),$P(ORX,U,3)
 . . S I=I+1
 . . I 'ORX S Y(I)=IEN_U_$P(ORX,U,2)_U_$P(ORX,U,2)_U_$$REQAPPR(IEN)
 . . E  S Y(I)=IEN_U_$P(ORX,U,2)_" <"_$P(ORX,U,4)_">"_U_$P(ORX,U,4)_U_$$REQAPPR(IEN)

CPRS

File Type Description
Pascal File Orders/rODRad.pas


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