ISAppointment.AddMeetingPatient

Description

This function adds the selected patient to the appointment that is for a group of patients.

Syntax

object.AddMeetingPatient aPatientID[, aCaseID]

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

Example

Add the selected patient to 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.IsMeeting = true
  aAppointment.AddMeetingPatient (aPatient.ID)
  aMessage = aMessage & vbNewLine &_
    "The patient was successfully added to the appointment with Id = " &_
    aAppointment.Id
next

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v8.2.12