ISReferral.ReferedToExternalProvider

Example

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

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

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

Profile.MsgBox (aMessage)