ISConceptsFilter.AddConceptRef

Description

This method is used to put the concept with the specified code on the place of the other one with the specified index.

Syntax

object.AddConceptRef(aTermsetCode, aConceptCode, aIncludeChildren)

Part	Attribute	Type	Description
`object`	Required	ISConceptsFilter	The `object` always implements the ISConceptsFilter interface
`aTermsetCode`	In, Required	string	The termset code of the concept
`aConceptCode`	In, Required	string	The concept code of the concept
`aIncludeChildren`	In, Required	bool	If aIncludeChildren = True both the parent and children concepts will be loaded. Otherwise, only the parent concepts will be loaded.

Return Value

int

Example

Display the number and the names of the concepts loaded on the basis of the selected filter.

Dim aFilter
Dim aConcepts
Dim aConcept
Dim aMessage

Set aFilter = Profile.CreateConceptsFilter
aFilter.AddConceptRef "IH", "z..UB", False
aFilter.AddConceptRef "IH", "z..2B", False
aFilter.AddConceptRef "IH", "z..2R", False
aFilter.IncludeChildren(0) = True
            
set aConcepts = Profile.LoadConcepts(aFilter)

aMessage = "Concepts Count = " & aConcepts.Count & vbNewLine

for i = 0 to aConcepts.Count - 1
  set aConcept = aConcepts.Item(i)
  aMessage = aMessage & vbNewLine & "The name of the concept is " &_ 
    aConcept.Name 
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Termset Сode can be found in Maintain > Termset Maintenance > Details of Concept > Termset or in Special > Terms > Details of ConceptTermset, Сoncept Сode can be found in Maintain > Termset Maintenance > Details of Concept > Code or in Special > Terms > Details of Concept > Code.

Version information

Added in v7.8.0