ISAppointment.Referral

Example

Display the diagnosis description, the creation date and the provider for the actual referral appointment.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aReferral
Dim aMessage
Dim aReferralDiagnosis

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("MM")
set aFilter = Profile.CreateAppointmentFilter

aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.DateFrom = #01/01/2018#
aFilter.DateTo = #01/01/2019#

set aAppointments = Profile.LoadAppointments(aFilter)

if aAppointments.Count > 0 then
  set aFirstAppointment = aAppointments.Item(0)
  set aReferral = aFirstAppointment.Referral
  aReferralDiagnosis = aFirstAppointment.Referral.DiagnosisDescription
  aMessage = aMessage & vbNewLine
  aMessage = aMessage & "Diagnosis description: " & aReferralDiagnosis & ", "
  aMessage = aMessage & "created on: " & aReferral.CreatedOn & ", "
  aMessage = aMessage & "referred to: " & aReferral.ReferedToAsString
  Profile.MsgBox(aMessage)
else
  Profile.MsgBox("aAppointments.Count = 0")
end if