ISReferral.LinkedReferral

Example

Display ID of the referral linked to another referral of the selected patient.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferral
Dim aLinkedReferral
Dim aReferralInfo
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 & "Refferred to:" & vbTab & "Linked Referral:"

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  set aLinkedReferral = aReferral.LinkedReferral
  if aLinkedReferral is nothing then
    aReferralInfo = " - "
  else 
    aReferralInfo = aLinkedReferral.ID
  end if
        
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & "   " & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aReferralInfo
next 

Profile.MsgBox (aMessage)