ISProfile.CreateAppointment

Description

This function adds a new appointment.

Syntax

object.CreateAppointment()

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

Return Value

ISAppointment

Returns the created appointment.

Example

Add a new appointment and display the patient it was booked for, the date of the appointment and the provider it is assigned to.

Dim aPatient
Dim aAppointment
Dim aProviderName
Dim aMessage

Set aPatient = Profile.SelectPatient
set aAppointment = Profile.CreateAppointment
aAppointment.BookTime = #09/28/2018#
aAppointment.ProviderID = Profile.CurrentUserId 
aAppointment.PosID = Profile.CurrentPOSId 
aAppointment.PatientId = aPatient.ID      
aAppointment.Save
aMessage = vbNewLine & "The appointment with " & aAppointment.ProviderName &_
 " was booked for " & aPatient.SurnameFirstName & " on " & aAppointment.BookTime     

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Appointments can be found in Special > Appointments or in Patient > Alter Patient > Appointments.

Version information

Added in v7.8.0