ISProviderGroup.Organisation

Example

Display the number of the provider groups loaded on the basis of the selected filter, their names, codes and the name of the organisation they belong to.

Dim aFilter
Dim aProviderGroups
Dim aProviderGroup
Dim aMessage
Dim i 

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 & "The provider group '" & aProviderGroup.Name &_
    " (" & aProviderGroup.Code & ")"
  
  if not aProviderGroup.Organisation is nothing then
    aMessage = aMessage & " belongs to " & aProviderGroup.Organisation.Name 
  end if       
next      

Profile.MsgBox(aMessage)