ISProviderPOSInfos.Count

Description

The number of the links between the providers and the places of service.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the links between the providers and the places of service and some information about them.

Dim aProvider
Dim aPOSList
Dim aPOS
Dim aProv
Dim aPOSInfo
Dim aRefSystem
Dim aMessage

Set aProvider = Profile.LoadProvider ("PROV")
set aPOSList = aProvider.MemberOfPOSInfos
aMessage = aProvider.FullName &_
  " has " & aPOSList.Count & " places of service" & vbNewLine

aMessage = aMessage & vbNewLine & "POS Info: " & vbNewLine   
for each aPOSInfo in aPOSList
  set aPOS = Profile.LoadProviderById(aPOSInfo.PosID)
  set aProv = Profile.LoadProviderById(aPOSInfo.ProviderId)
  set aRefSystem = aPOSInfo.ReferenceSystem
  aMessage = aMessage &_
   "-  POS Code: " & aPOS.Code & vbNewLine &_
   "    Provider Code: " & aProv.Code & vbNewLine &_
   "    Reference System: " & aRefSystem.Description & vbNewLine &_
   "    Reference System ID: " & aPOSInfo.ReferenceSystemID & vbNewLine &_
   "    Service ID: " & aPOSInfo.ServiceID & vbNewLine &_
   "    Payee ID: " & aPOSInfo.PayeeID & vbNewLine    
next 
Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Provider POS Infos can be found in Organisation > People&Places > People and Places > Open the selected Provider > Member Of.

Version information

Added in v7.10.2