ISAppointmentFilter.StartFromId

Description

This filter is used to load the appointments by ID of the first appointment in the collection.

Syntax

object.StartFromId

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

Return Value

int

Example

Display the number of the appointments filtered by ID of the first appointment in the collection.

Dim aProvider
Dim aFilter 
Dim aAppointments
Dim aFirstAppointment
Dim aStartFromId

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
  Profile.MsgBox("There is no appointment")
  exit sub
end if

set aLastAppointment = aAppointments.Item(aAppointments.Count - 1)
aLastAppointmentId = aLastAppointment.Id  

aFilter.DateFrom = #01/01/2018# 
aFilter.DateTo = #01/01/2020#
aFilter.StartFromId = aLastAppointmentId
set aAppointments = Profile.LoadAppointments(aFilter)

Profile.MsgBox("The number of the appointments is " &_ 
  aAppointments.Count)

Note:

In Profile Client v8 on User Interface ID of the appointment cannot be found.

Version information

Added in v8.2.0