ISProvider.ExtraSpecialities

Description

Some extra specialities of the provider.

Syntax

object.ExtraSpecialities

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

Restriction: This property is readonly.

Return Value

ISSpecialities

Example

Display the extra specialities of the provider.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aExtraSpecialities
Dim aExtraSpeciality
Dim aExtraSpecialityInfo
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider 
set aProviders = Profile.LoadProvidersByFilter(aFilter)

aMessage = aMessage & vbNewLine &_
  "The number of the providers is " & aProviders.Count

for each aProvider in aProviders
  set aExtraSpecialities = aProvider.ExtraSpecialities 'ISSpecialities
  aMessage = aMessage & vbNewLine & aProvider.FullName &_
      " has " & aExtraSpecialities.Count & " extra specialities"
   
  aExtraSpecialityInfo = ""
  for i = 0 to aExtraSpecialities.Count - 1
    set aExtraSpeciality = aExtraSpecialities.Items(i) 'ISConcept
    aExtraSpecialityInfo = aExtraSpecialityInfo & aExtraSpeciality.Name & ", "
  next
  
  if aExtraSpecialityInfo <> "" then
    aMessage = aMessage & vbNewLine & "    " & aExtraSpecialityInfo
  end if   
next 'aProvider
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Extra Specialities can be found in Organisation > People&Places > People and Places > Open the selected Provider > General > Specialty fields.

Version information

Added in v7.8.0