VistA Analysis » VistA Reference » RPCs » ORWDRA32 APPROVAL

ORWDRA32 APPROVAL

Properties

Property Value
Label APPROVAL
MUMPS Implementation ORWDRA32
Return Type ARRAY

MUMPS Method Description

Property Value
Method APPROVAL^ORWDRA32
Method Comment RETURNS LIST OF RADIOLOGISTS WHO MAY APPROVE A
Input Parameters DUMMY
First Comment 
                       PROCEDURE WHEN REQUIRED
Code 
 N ORX,I
 S I="" F  S I=$O(^VA(200,"ARC","S",I)) Q:I=""  D
 . ;I $P($G(^VA(200,I,"PS")),U,4),$P(^VA(200,I,"PS"),U,4)'>DT Q
 . I '$$ACTIVE^XUSER(I) Q
 . I $P($G(^VA(200,I,"RA")),U,3),$P(^VA(200,I,"RA"),U,3)'>DT Q
 . S ORX=$P($G(^VA(200,I,0)),U)
 . S Y(I)=I_U_ORX

CPRS

File Type Description
Pascal File Orders/rODRad.pas


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