ISAppointment.ContainsAuditLast

Description

This function returns the date and time of the selected appointment audit that has been recently modified by the description field content.

Syntax

object.ContainsAuditLast(aDescription, aPartial)

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
`aPartial`	In, Required	bool	It's a search mode. It searches by substring if true, otherwise by full match

Return Value

DateTime

Returns the date and time of the selected appointment audit that has been recently modified by the description field content.

Example

Display the date and time of the selected appointment audit that has been recently modified by the description field content.

Dim aPatient
Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aAuditDate
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 = "ppointment has been confi"
set aAppointments = Profile.LoadAppointments(aFilter)
Profile.MsgBox("App Count = " & aAppointments.Count)

if aAppointments.Count > 0 then
  set aFirstAppointment = aAppointments.Item(0)  
  aAuditDate = aFirstAppointment.ContainsAuditLast(aDescription, true)
  Profile.MsgBox(aAuditDate)
  
  aAuditDate = aFirstAppointment.ContainsAuditLast(aDescription, false)
  Profile.MsgBox(aAuditDate)
  
else 
  Profile.MsgBox("No appointments") 
end if

Note:

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

Version information

Added in v7.8.0