ISAppointment.RemoveMeetingPatient

Description

This function removes the selected patient from the appointment that is for a group of patients.

Syntax

object.RemoveMeetingPatient aPatientID

Part	Attribute	Type	Description
`object`	Required	ISAppointment	The `object` always implements the ISAppointment interface
`aPatientID`	In, Required	int	ID of the patient

Example

Remove the selected patient from the meeting appointments loaded on the basis of the selected filter.

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

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

aFilter.ProviderID = aProvider.Id
aFilter.DateFrom = #01/01/2019#
aFilter.DateTo = #01/01/2020#

set aAppointments = Profile.LoadAppointments(aFilter)

for i = 0 to aAppointments.Count - 1 
  set aAppointment = aAppointments.Item(i)
  aAppointment.RemoveMeetingPatient (aPatient.ID)
  aMessage = aMessage & vbNewLine &_
    "New Meeting Patient was successfully removed from the appointment with ID = " &_
    aAppointment.Id
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Meeting Patient can be found and removed in Appointment Window > Meeting.

Version information

Added in v8.5.0