ISAppointmentFilter.SeenDateTo

Description

This filter is used to load the patient's appointments seen to the specified date and time.

Syntax

object.SeenDateTo

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

Return Value

DateTime

Example

Display the number of the patient's appointments seen to the specified date and time.

Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aSeenDateFrom
Dim aSeenDateTo

Set aPatient = Profile.SelectPatient
set aProvider = Profile.LoadProvider("PROV")
set aFilter = Profile.CreateAppointmentFilter
  
aFilter.ProviderID = aProvider.Id
aFilter.PatientId = aPatient.Id
aFilter.SeenDateFrom = #01/01/2018 11:00:00#
aFilter.SeenDateTo = #01/01/2019 12:00:00#

 set aAppointments = Profile.LoadAppointments(aFilter)

Profile.MsgBox("The number of the appointments seen from " &_ 
  aFilter.SeenDateFrom & " to " & aFilter.SeenDateTo & " is " &_ 
  aAppointments.Count)

Note:

In Profile Client v8 on User Interface Seen Date can be found in Appointment Window > Attendance > Seen fields.

Version information

Added in v7.8.0