ISReferral.RefereeDecision

Description

The referee decision on whether to decline the referral or accept it and make it a case to continue working with.

0	rdUnknown
1	rdPending
2	rdAccepted
3	rdCase
4	rdDecline

Syntax

object.RefereeDecision

Part	Attribute	Type	Description
`object`	Required	ISReferral	The `object` always implements the ISReferral interface

Return Value

int

Example

Display some information about the referral, including the referee decision on whether to decline the referral or accept it and make it a case to continue working with.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferral
Dim aMessage

Set aPatient = Profile.SelectPatient
set aReferralsFilter = Profile.CreateReferralsFilter

aReferralsFilter.Patient = aPatient.Id

set aReferrals = Profile.LoadReferrals(aReferralsFilter)
aMessage = aMessage & "Refferals Count = " & aReferrals.Count

aMessage = aMessage & vbNewLine &_
  "Referred On:" & vbTab & "Referred To:" & vbTab & "Referee Decision:"

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aReferral.RefereeDecision
next 

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Referee Decision can be found in Patient > Patient Referrals > Decision or Patient > Patient Referrals > Open selected Referral > General > Closure > Decision field.

Version information

Added in v7.8.0