ISService.GetProviderInfo

Description

This function returns the additional information about the service that would be helpful to a health care provider responsible for delivering the service. On User Provider Info can be found in Maintain/Services/Edit/Provider Info.

Syntax

object.GetProviderInfo()

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

Return Value

ISHelpInfo

Returns the additional information about the service that would be helpful to a health care provider responsible for delivering the service.

Example

Display the number of the services loaded on the basis of the selected filter, some information about them, including the additional information about the services that would be helpful to health care providers responsible for delivering the services.

Dim aFilter
Dim aService
Dim aServices
Dim aMessage
Dim aProviderInfo

Set aFilter = Profile.CreateServicesFilter
aFilter.Description = "Injection"
set aServices = Profile.LoadServicesByFilter(aFilter)

aMessage = "Services Count = " & aServices.Count & vbNewLine

for each aService in aServices
  set aProviderInfo = aService.GetProviderInfo
  if aProviderInfo is nothing then
    aMessage =  vbNewLine & "No Provider Info"
  else
    aMessage =  vbNewLine & "Information about the service '" &_
      aService.Description & "': " &_
      Profile.Rtf2Plain(aProviderInfo.GetBody)
  end if
next

Profile.MsgBox(aMessage)

Note:

Version information

Added in v7.8.0