ISConceptsFilter.IncludeCrossReferenced

Description

This filter property is used to load cross referenced concepts.

Syntax

object.IncludeCrossReferenced

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

Return Value

TSCrossReferencedConceptRelation

Example

Display the cross referenced 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.AddConceptRef "IH", "z..2S", False
aFilter.IncludeCrossReferenced = 2 ' crAll                            
            
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 &_   
    aConcept.Termset & vbTab & aConcept.Code & vbTab & aConcept.Name   
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Cross Referenced Concepts can be found in Maintain > Term Cross References.

Version information

Added in v7.8.0