ISProvidersFilter.SpecialityConcept

Description

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

Syntax

object.SpecialityConcept

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("Clerical", "Intrahealth")
if aConcepts.Count <> 1 then
  Profile.MsgBox("The Speciality Concept doesn't exists or is not unique")
  exit sub
end if   

set aConcept = aConcepts.Item(0)

set aFilter = Profile.CreateProvidersFilter
aFilter.SpecialityConcept = aConcept

set aProviders = Profile.LoadProvidersByFilter(aFilter)

aMessage = vbNewLine &_
  "The number of the PPPUs with the specified  concept (" &_
  aConcept.Code  & ") 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 Speciality Concept can be found in Organisation > People & Places > People and Places > Open the selected Provider > Basic > General > Specialty field.

Version information

Added in v7.8.0