ISOrgMember.Children

Example

Display the tree of the organisation nodes.

sub main
  Dim aOrgMembers
  Dim aOrgMember
  Dim aMessage
  
  set aOrgMembers = Profile.LoadOrgMembersByNameAndSubTypeCode("Test Clinics Inc.", "")
  if aOrgMembers.Count <> 1 then
    Profile.MsgBox("The Org Member with defined description is not unique or does not exist")
    exit sub  
  end if 
  set aOrgMember = aOrgMembers.Item(0)
  aMessage = GetOrgMemberInfo(aOrgMember, 0) 
  Profile.MsgBox(aMessage)  
end sub

function GetOrgMemberInfo(aOrgMember, aLevel)
  Dim aInfo
  Dim aChildMember
  Dim aMemberChildren
  
  set aMemberChildren = aOrgMember.Children
  aInfo = Space(4 * aLevel) & aLevel & " - " & aOrgMember.Name &_
  " (" & aMemberChildren.Count & ")"
  
  for each aChildMember in aMemberChildren
    aInfo = aInfo & vbNewLine & GetOrgMemberInfo(aChildMember, aLevel + 1)
  next 

  GetOrgMemberInfo = aInfo  
end function