ISReferral.ReferedToProvider

Example

Display some information about the referral, including the full name of the internal provider that the referral was for.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferral
Dim aReferedToProvider
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 To Provider:"

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

Profile.MsgBox (aMessage)