ISAppointment.Comment

Example

Display the comment of the appointment.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments, aAppointment
Dim aMessage
Dim i

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/2020#

set aAppointments = Profile.LoadAppointments(aFilter)

aMessage = "There are " & aAppointments.Count & " appointments" 
for i = 0 to aAppointments.Count - 1
  set aAppointment = aAppointments.Item(i)
  aMessage = aMessage &  vbNewLine & (i + 1) & ") " &_
    "Book Time: " & aAppointment.BookTime & vbNewLine &_
    "    Comment: " &  aAppointment.Comment & vbNewLine
next 'i 

Profile.MsgBox(aMessage)