ISAppointment.IsMeeting

Description

This property is True if the appointment is for a group of patients.

Syntax

object.IsMeeting

Part Attribute Type Description
object Required
The object always implements the ISAppointment interface

Return Value

bool

Example

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 
Note:

In Profile Client v8 on User Interface the Meeting checkbox can be checked in Appointment Window.

Version information

Added in v7.8.0