ISProvider.IsServiceProvider

Description

This function checks if the provider is a service provider, that is the provider with the codes 'PATIENT', 'INTRAHEALTH', 'EMERGENCY', 'ANONYMOUS', 'UNSPECIFIED', 'EXTPROV', 'MSODELEGATE'.

Syntax

object.IsServiceProvider()

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

Return Value

bool

Returns True if the provider is a service provider.

Example

Display IsServiceProvider for the provider.

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aMessage

Set aFilter = Profile.CreateProvidersFilter
aFilter.Code = "UNSPECIFIED" 
set aProviders = Profile.LoadProvidersByFilter(aFilter)

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

aMessage = aMessage & vbNewLine &_
  "Full Name:" & vbTab & "ID:" & vbTab & "Is Service Provider(True/False):"

for each aProvider in aProviders
  aMessage = aMessage & vbNewLine &_
    aProvider.FullName & vbTab &_
    aProvider.ID & vbTab &_
    aProvider.IsServiceProvider
next
 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Is Service Provider cannot be found.

Version information

Added in v7.8.0