ISProvider.MemberOfPOSInfos

Example

Display some information about the places of service the provider is a member of (the number of POSes and their codes).

Dim aFilter 
Dim aProviders
Dim aProvider
Dim aPOSList
Dim aPOS
Dim aMemberOfPOSInfo
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 & vbNewLine

for each aProvider in aProviders
  set aPOSList = aProvider.MemberOfPOSInfos
  aMessage = aMessage & vbNewLine & aProvider.FullName &_
    " has " & aPOSList.Count & " places of service:"

  aMemberOfPOSInfo = "  "  
  for each aPOSInfo in aPOSList
    set aPOS = Profile.LoadProviderById(aPOSInfo.PosID)
    if not aPOS is nothing then
      aMemberOfPOSInfo = aMemberOfPOSInfo & aPOS.Code & ", "
    end if  
  next 
  aMessage = aMessage & vbNewLine & aMemberOfPOSInfo
  
next
 
Profile.MsgBox (aMessage)