ISProvider.SpecialityConcept

Example

Display the specialty of the provider.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aSpecialityConcept
Dim aMessage

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

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

for each aProvider in aProviders
  set aSpecialityConcept = aProvider.SpecialityConcept
  if aSpecialityConcept is nothing then 
    aMessage = aMessage & vbNewLine & "Speciality Not Defined"
  else
    aMessage = aMessage & vbNewLine & aProvider.FullName &_
      "'s speciality is " & aSpecialityConcept.Name
  end if   
next
 
Profile.MsgBox (aMessage)