This property is True if the appointment is for a group of patients.
object.IsMeeting
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISAppointment interface |
bool
Display IsMeeting for the appointment.
Dim aPatient
Dim aProvider
Dim aFilter
Dim aAppointments
Dim aFirstAppointment
Dim aIsMeeting
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)
aIsMeeting = aFirstAppointment.IsMeeting
Profile.MsgBox(aIsMeeting)
else
Profile.MsgBox("aAppointments.Count = 0")
end if
In Profile Client v8 on User Interface the Meeting checkbox can be checked in
.