ISReferral.Appointment

Example

Display some information about the referral, including the booked date and time of the linked appointment.

Dim aPatient
Dim aReferralsFilter
Dim aReferrals
Dim aReferral
Dim aRefApp
Dim aAppInfo
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 & "App Book Time:"

for i = 0 to aReferrals.Count - 1 
  set aReferral = aReferrals.Item(i)
  set aRefApp = aReferral.Appointment
  if aRefApp is nothing then
    aAppInfo = " - "
  else 
    aAppInfo = aRefApp.BookTime
  end if
        
  aMessage = aMessage & vbNewLine &_
    aReferral.ReferredOn & "   " & vbTab &_
    aReferral.ReferedToAsString & vbTab &_
    aAppInfo
next 

Profile.MsgBox (aMessage)