VistA Analysis » VistA Reference » RPCs » ORWDRA32 RADSRC

ORWDRA32 RADSRC

Properties

Property Value
Label RADSRC
MUMPS Implementation ORWDRA32
Return Type ARRAY

MUMPS Method Description

Property Value
Method RADSRC^ORWDRA32
Method Comment return list of available contract/sharing/research sources
Input Parameters SRCTYPE
Code 
 S ORX=0
 F I=1:1 S ORX=$O(^DIC(34,ORX)) Q:+ORX=0  D
 . Q:($P(^DIC(34,ORX,0),U,2)'=SRCTYPE)
 . I $D(^DIC(34,ORX,"I")),(^DIC(34,ORX,"I")<$$NOW^XLFDT) Q
 . S Y(I)=ORX_U_$P(^DIC(34,ORX,0),U,1)

CPRS

File Type Description
Pascal File Orders/rODRad.pas


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