ISAppointment.ContainsAudit

Description

This function checks if the selected appointment contains an audit.

Syntax

object.ContainsAudit(aDescription)

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

Return Value

bool

Returns "True" if the selected appointment contains an audit.

Example

Display ContainsAudit for the appointment.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aAudit
Dim aDescription

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#


aDescription = "Appointment has been confirmed."
set aAppointments = Profile.LoadAppointments(aFilter)
Profile.MsgBox("App Count = " & aAppointments.Count)

if aAppointments.Count > 0 then
  set aFirstAppointment = aAppointments.Item(0)
  aAudit = aFirstAppointment.ContainsAudit(aDescription)
  Profile.MsgBox(aAudit)
else 
  Profile.MsgBox("No appointments") 
end if

Note:

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

Version information

Added in v7.8.0