ISProvider.LoadAppointments

Description

This function returns a collection of appointments for the provider, with the specified date and at the specified place of service.

Syntax

object.LoadAppointments(aDate[, aPOS = ""])

Part	Attribute	Type	Description
`object`	Required	ISProvider	The `object` always implements the ISProvider interface
`aDate`	In, Required	DateTime	The date of the appointment
`aPOS`	In, Optional Default value is ""	string	The code of the POS for the appointment

Return Value

ISAppointments

Returns a collection of appointments for the provider, with the specified date and at the specified place of service.

Example

Display the number of the appointments for the provider, with the specified date and at the specified place of service.

Dim aFilter 
Dim aProviders, aProvider
Dim aDate
Dim aPos
Dim aMessage
Dim aLoadedAppointments

aDate = #05/25/2019#
aPos = "LONSDALE"

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider  

set aProviders = Profile.LoadProvidersByFilter(aFilter)

for each aProvider in aProviders 
  set aLoadedAppointments = aProvider.LoadAppointments(aDate, aPos)
  aMessage = aMessage & vbNewLine & aProvider.FullName & " has " &_    
    aLoadedAppointments.Count & " linked appointment(s)"   
next  
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Appointments for the selected provider can be found in Organisation > Work Centre > Appointments if the POS field and the Date field are specified.

Version information

Added in v7.8.0