ISProvider.Specialty

Description

The specialty of the provider.

Category PPPU Specialty Concept Code
puctPractice = 1 spclCounsel = 33 ichPrPmS_Counsel = 'IH195'
puctPractice = 1 spclMid = 34 ichPrPmS_Mid = 'IH196'
puctPractice = 1 spclNurse = 35 ichPrPmS_Nurse = 'IH197'
puctPractice = 1 spclOptom = 36 ichPrPmS_Optom = 'IH198'
puctPractice = 1 spclPhysio = 37 ichPrPmS_Physio = 'IH199'
puctPractice = 1 spclPodiat = 38 ichPrPmS_Podiat = 'IH200'
puctProvider = 2, puctUser = 4 spclAE = 1 ichAE = 'IH027'
puctProvider = 2, puctUser = 4 spclAnaes = 2 ichAnaes = 'IH028'
puctProvider = 2, puctUser = 4 spclDental = 3 ichDental = 'IH029'
puctProvider = 2, puctUser = 4 spclDentist = 4 ichDentist = 'IH030'
puctProvider = 2, puctUser = 4 spclDerm = 5 ichDerm = 'IH031'
puctProvider = 2, puctUser = 4 spclFP = 6 ichFP = 'IH032'
puctProvider = 2, puctUser = 4 spclGastro = 7 ichGastro = 'IH033'
puctProvider = 2, puctUser = 4 spclGenSurg = 8 ichGenSurg = 'IH034'
puctProvider = 2, puctUser = 4 spclGeri = 9 ichGeri = 'IH035'
puctProvider = 2, puctUser = 4 spclGP = 10 ichGP = 'IH036'
puctProvider = 2, puctUser = 4 spclImmun = 11 ichImmun = 'IH037'
puctProvider = 2, puctUser = 4 spclIntens = 12 ichIntens = 'IH038'
puctProvider = 2, puctUser = 4 spclIntern = 13 ichIntern = 'IH039'
puctProvider = 2, puctUser = 4 spclNeurol = 14 ichNeurol = 'IH040'
puctProvider = 2, puctUser = 4 spclNeuros = 15 ichNeuros = 'IH041'
puctProvider = 2, puctUser = 4 spclObgyn = 16 ichObgyn = 'IH042'
puctProvider = 2, puctUser = 4 spclOncol = 17 ichOncol = 'IH043'
puctProvider = 2, puctUser = 4 spclOphthal = 18 ichOphthal = 'IH044'
puctProvider = 2, puctUser = 4 spclORL = 19 ichORL = 'IH045'
puctProvider = 2, puctUser = 4 spclOrtho = 20 ichOrtho = 'IH046'
puctProvider = 2, puctUser = 4 spclPaed = 21 ichPaed = 'IH047'
puctProvider = 2, puctUser = 4 spclPath = 22 ichPath = 'IH048'
puctProvider = 2, puctUser = 4 spclPhys = 23 ichPhys = 'IH049'
puctProvider = 2, puctUser = 4 spclPhysiol = 24 ichPhysiol = 'IH050'
puctProvider = 2, puctUser = 4 spclPlasticS = 25 ichPlasticS = 'IH051'
puctProvider = 2, puctUser = 4 spclRadiol = 26 ichRadiol = 'IH052'
puctProvider = 2, puctUser = 4 spclResident = 27 ichResident = 'IH053'
puctProvider = 2, puctUser = 4 spclRheum = 28 ichRheum = 'IH054'
puctProvider = 2, puctUser = 4 spclSpec = 29 ichSpec = 'IH055'
puctProvider = 2, puctUser = 4 spclStudent = 30 ichStudent = 'IH056'
puctProvider = 2, puctUser = 4 spclUrol = 31 ichUrol = 'IH057'
puctProvider = 2, puctUser = 4 spclOther = 32 ichPvT_Other = 'IH022'
puctProvider = 2, puctUser = 4 spclCounsel = 33 ichPrPmS_Counsel = 'IH195'
puctProvider = 2, puctUser = 4 spclMid = 34 ichPrPmS_Mid = 'IH196'
puctProvider = 2, puctUser = 4 spclNurse = 35 ichPrPmS_Nurse = 'IH197'
puctProvider = 2, puctUser = 4 spclOptom = 36 ichPrPmS_Optom = 'IH198'
puctProvider = 2, puctUser = 4 spclPhysio = 37 ichPrPmS_Physio = 'IH199'
puctProvider = 2, puctUser = 4 spclPodiat = 38 ichPrPmS_Podiat = 'IH200'
puctProvider = 2, puctUser = 4 spclFront = 39 ichFront = 'IH065'
puctProvider = 2, puctUser = 4 spclClerk = 40 ichClerk = 'IH066'
puctProvider = 2, puctUser = 4 spclManager = 41 ichManager = 'IH067'
puctProvider = 2, puctUser = 4 spclType = 42 ichType = 'IH068'
puctProvider = 2, puctUser = 4 spclRecept = 43 ichRecept = 'IH069'
puctProvider = 2, puctUser = 4 spclAdmin = 44 ichAdmin = 'IH070'
puctProvider = 2, puctUser = 4 spclCoord = 45 ichCoord = 'IH071'
puctProvider = 2, puctUser = 4 spclOralSurg = 60 ichOralSurg = 'IH120'
puctPOS = 3 spclCounsel = 33 ichPsPmS_Counsel = 'IH227'
puctPOS = 3 spclMid = 34 ichPsPmS_Mid = 'IH228'
puctPOS = 3 spclNurse = 35 ichPsPmS_Nurse = 'IH229'
puctPOS = 3 spclOptom = 36 ichPsPmS_Optom = 'IH230'
puctPOS = 3 spclPhysio = 37 ichPsPmS_Physio = 'IH231'
puctPOS = 3 spclPodiat = 38 ichPsPmS_Podiat = 'IH232'

Syntax

object.Specialty

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

Return Value

string

Example

Display the specialty of the provider.

Dim aFilter 
Dim aProviders
Dim aProvider
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
  aMessage = aMessage & vbNewLine & aProvider.FullName &_
    "'s specialty is " & aProvider.Specialty 
next
 
Profile.MsgBox (aMessage)   
Note: The property is obsolete. You should use ISProvider.SpecialityConcept. The mapping of the concept codes for provider's different categories is presented in the table above.

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

Version information

Added in v7.8.0