ISProvidersFilter.ExtraSpecialityConcept

Description

This filter property is used to load the collection of providers with the specified extra speciality.

Syntax

object.ExtraSpecialityConcept

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

Return Value

ISConcept

Example

Display the number of the providers loaded on the basis of the selected filter, their full names and IDs.

Dim aFilter 
Dim aConcepts
Dim aConcept
Dim aProviders
Dim aProvider
Dim aMessage

Set aConcepts = Profile.LoadConceptsByName("Intensive Care Medicine", "Intrahealth")
if aConcepts.Count <> 1 then
  Profile.MsgBox("The Extra Speciality Concept doesn't exists or is not unique")
  exit sub
end if   

set aConcept = aConcepts.Item(0)

set aFilter = Profile.CreateProvidersFilter
aFilter.ExtraSpecialityConcept = aConcept

set aProviders = Profile.LoadProvidersByFilter(aFilter)

aMessage = vbNewLine &_
  "The number of the PPPUs with the specified ID (" &_
  aFilter.PosID  & ") is " & aProviders.Count
  
aMessage = aMessage & vbNewLine & vbNewLine &_
  "Full Name:" & vbTab & "ID:"  

for each aProvider in aProviders 
  aMessage = aMessage & vbNewLine &_
    aProvider.FullName & vbTab &_
    aProvider.ID  
next
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 > Basic > General > Specialty fields.

Version information

Added in v7.8.0