ISReferral.ReferedByExternalProvider

Example

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

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferral
Dim aReferedByExtProvider
Dim aExtProviderInfo
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 External Provider:"

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

Profile.MsgBox (aMessage)