ISAppointment.AddAudit

Description

This function adds an additional audit for the appointment.

Syntax

object.AddAudit aDescription, AToTime

Part	Attribute	Type	Description
`object`	Required	ISAppointment	The `object` always implements the ISAppointment interface
`aDescription`	In, Required	string	The string to search in the audit description
`AToTime`	In, Required	DateTime	The date and time of the latest audit change

Example

Add an additional audit for the appointment.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aNewAudit

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
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)
  aFirstAppointment.AddAudit "Description", #01/01/2019#
  Profile.MsgBox("New Audit was created successfully")
else
  Profile.MsgBox("aAppointments.Count = 0")
end if

Note:

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

Version information

Added in v7.8.0