ISOrgMember.ChildrenForProvider

Description

This function returns the children of the organisation node which are the places of service for the selected provider.

Syntax

object.ChildrenForProvider(aProviderID)

Part	Attribute	Type	Description
`object`	Required	ISOrgMember	The `object` always implements the ISOrgMember interface
`aProviderID`	In, Required	int	ID of the provider

Return Value

ISOrgMembers

Returns the children of the organisation node which are the places of service for the selected provider.

Example

Display the number of the children of the organisation node which are the places of service for the selected provider.

Dim aFilter
Dim aOrgMember
Dim aOrgMembers
Dim aProvider
Dim aProviderID
Dim aChildrenForProvider
Dim aMessage

Set aFilter = Profile.CreateOrgMembersFilter
set aOrgMembers = Profile.LoadOrgMembers(aFilter)
set aProvider = Profile.LoadProvider("PROV")
aProviderID = aProvider.ID

aMessage = "Org Nodes Count = " & aOrgMembers.Count
for each aOrgMember in aOrgMembers
  set aChildrenForProvider = aOrgMember.ChildrenForProvider (aProviderID)
  if aChildrenForProvider is nothing then
    aMessage = aMessage & vbNewLine &_
      aOrgMember.Name & " (" & aOrgMember.PosId & ") " &_    
      " has no children members"
  else 
    aMessage = aMessage & vbNewLine & "Org node '" &_
      aOrgMember.Name & " (" & aOrgMember.PosId & ") " &_
      "' has " & aChildrenForProvider.Count & " child (children)" 
  end if
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Children For Provider can be found in Organisation > People & Places > Organisational Structure.

Version information

Added in v7.8.0