ISProfile.LoadProviders

Description

This function returns the collection of providers.

Syntax

object.LoadProviders( [aCategory = 100[, aType[, aCode = ""[, aPOSID = 0[, aOrgStructureID = 0[, aStatusFilter = 31]]]]]])

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aCategory`	Optional Default value is 100	TProviderCategory	The category of the provider
`aType`	Optional	string	The type of the provider
`aCode`	Optional Default value is ""	string	The code of the provider
`aPOSID`	Optional Default value is 0	int	ID of the place of service
`aOrgStructureID`	Optional Default value is 0	int	ID of the organisational structure
`aStatusFilter`	Optional Default value is 31	int	The provider status field in the filter that is computed as the sum of the required statuses of PPPU, which can be found in the enumeration TSIProviderStatus

Return Value

ISProviders

Returns the collection of providers.

Example

Display the number of providers, their full names and codes.

Dim aCategory
Dim aType
Dim aCode
Dim aPOSID
Dim aOrgStructureID
Dim aStatusFilter
Dim aProviders
Dim aProvider
Dim aMessage
Dim i

aCategory = 0
aType = 2 'pcProvider
aCode = "MM"
aPOSID = 0
aOrgStructureID = 0
aStatusFilter = 31 'prvstActive + prvstOnLeave + prvstInactive + prvstDeparted + prvstLocum 

Set aProviders = Profile.LoadProviders (aCategory, aType, aCode, aPOSID, aOrgStructureID, aStatusFilter)

aMessage = "Providers Count: "  & aProviders.Count & vbNewLine 

for i = 0 to aProviders.Count - 1 
  set aProvider = aProviders.Item(i)
  aMessage = aMessage & aProvider.FullName & " (" & aProvider.Code & ")" &_       
    vbNewLine 
next 

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Providers can be found in Organisation > People & Places > People and Places.

Version information

Added in v7.8.0