ISConceptsFilter.ConceptRefTermsetCode

Description

This filter property is used to load the termset code of the concept.

Syntax

object.ConceptRefTermsetCode(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISConceptsFilter	The `object` always implements the ISConceptsFilter interface
`aIndex`	In, Required	int	The index of the concept

Return Value

string

Example

Display the name and termset code of the selected concept.

Dim aFilter
Dim aTermsets
Dim aTermset
Dim aMessage

Set aFilter = Profile.CreateConceptsFilter
aFilter.AddConceptRef "IH", "z..UB", True
aFilter.AddConceptRef "IH", "z..2B", True
aFilter.AddConceptRef "ICD9CM", "513.0", True
aFilter.ConceptRefTermsetCode(0) = "ICD9CM"            
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 Code can be found in Maintain > Termset Maintenance > Details of Concept > Termset or in Special > Terms > Details of ConceptTermset.

Version information

Added in v7.8.0