ISExternalProvider.SpecialtyConcept

Description

The concept which specifies the external provider's specialty.

Syntax

object.SpecialtyConcept

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

Return Value

ISConcept

Example

Display the name and code of the concept which specifies the provider's specialty.

Dim aExtProvider 
Dim aCode
Dim aConcept
Dim aMessage

aCode = "1"
Set aExtProvider = Profile.LoadExternalProvider(aCode)

if aExtProvider.ID = 0  then 
  aMessage = "No external provider with the specified code" 
else
  set aConcept = aExtProvider.SpecialtyConcept
  aMessage = aMessage & vbNewLine &_
    "FULL NAME:  " & aExtProvider.FullName & vbNewLine &_
    "Specialty: " & aConcept.Name & " (" & aConcept.Code & ")" 
end if
 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Specialty Concept can be found in Organisation > External Providers > Basic > General > Specialty field.

Version information

Added in v7.8.0