ISReferral.ReferedByProvider

Example

Display some information about the referral, including the full name of the provider that initiated the referral.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferral
Dim aReferedByProvider
Dim aProviderInfo
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 & "Refered By Provider:"

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  set aReferedByProvider = aReferral.ReferedByProvider
  if aReferedByProvider is nothing then
    aProviderInfo = " - "
  else 
    aProviderInfo = aReferedByProvider.FullName
  end if
        
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & "   " & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aProviderInfo
next 

Profile.MsgBox (aMessage)