ISConcept.Children

Example

Display the tree of concepts with the root in the defined concept.

sub main 
  Dim aConcepts
  Dim aConcept
  Dim aMessage
   
  set aConcepts = Profile.LoadConceptsByName("Body Shape and Form Observations", "intrahealth") 
  if aConcepts.Count <> 1 then
    Profile.MsgBox("The Concept with the defined description is not unique or does not exist ")
    exit sub
  end if 
  set aConcept = aConcepts.Item(0)
  aMessage = GetConceptInfo(aConcept, 0) 
  Profile.MsgBox(aMessage)  
end sub

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

  GetConceptInfo = aInfo  
end function