ISProfile.CreateConceptsFilter

Description

This function creates the filter for loading concepts.

Syntax

object.CreateConceptsFilter()

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface

Return Value

ISConceptsFilter

Returns the filter for loading concepts.

Example

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

Dim aFilter
Dim aConcepts
Dim aConcept
Dim aMessage

Set aFilter = Profile.CreateConceptsFilter
aFilter.AddConceptRef "IH", "z..UB", True
aFilter.AddConceptRef "IH", "z..2B", True
aFilter.AddConceptRef "IH", "z..2R", True
aFilter.ConceptRefConceptCode(2) = "z..2B"
            
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 Concepts can be found in Maintain > Termset Maintenance or in Special > Terms.

Version information

Added in v7.8.0