ISProviderGroup.PPPUMembers

Example

Display the number of the provider groups loaded on the basis of the selected filter, their names, codes and PPPU members.

Dim aFilter
Dim aProviderGroups
Dim aProviderGroup
Dim aMessage
Dim i 
Dim aProvider
Dim aProviders

Set aFilter = Profile.CreateProviderGroupFilter
aFilter.ID = 154
set aProviderGroups = Profile.LoadProviderGroups(aFilter)

aMessage = "Provider Groups Count = " & aProviderGroups.Count

for i = 0 to aProviderGroups.Count - 1
  set aProviderGroup = aProviderGroups.Items(i)
  aMessage = aMessage & vbNewLine & aProviderGroup.Name & " (" & aProviderGroup.Code & ")"
  
  if not aProviderGroup.Organisation is nothing then
    aMessage = aMessage & vbNewLine & "PPPU Members Count = " & aProviderGroup.PPPUMembers.Count
  end if       
next   

set aFilter = Profile.CreateProvidersFilter
aFilter.Category = 2 'pcProvider  
set aProviders = Profile.LoadProvidersByFilter(aFilter)

aMessage = aMessage & vbNewLine & "Providers Count = " &_ 
  aProviders.Count & vbNewLine 
for each aProvider in aProviders 
  aMessage = aMessage & vbNewLine & aProvider.FullName 
next   

Profile.MsgBox(aMessage)