ISAppointment.Save

Description

This function saves the selected appointment.

Syntax

object.Save

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

Example

Display ID of the saved appointment.

Dim aPatient
Dim aProvider
Dim aNewAppointment

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
set aNewAppointment = Profile.CreateAppointment
aNewAppointment.ProviderID = aProvider.Id
aNewAppointment.PatientId = aPatient.Id
aNewAppointment.BookTime = #1/1/2018 12:15:00 AM#
aNewAppointment.Duration = 15
aNewAppointment.ReasonDescription = "New Test Appointment"
aNewAppointment.Save
MsgBox("New Appointment Id = " & aNewAppointment.Id)

Note:

In Profile Client v8 on User Interface Save cannot be found.

Version information

Added in v7.8.0