ISConceptRefs.ConceptCode

Description

The concept code of the concept reference.

Syntax

object.ConceptCode(aIndex)

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

Restriction: This property is readonly.

Return Value

string

Example

Display the number of the concept references and some information about them.

Dim aPatient
Dim aParams
Dim aConceptRef
Dim aConceptRefs
Dim i
Dim aMessage

set aPatient = Profile.SelectPatient
set aParams = aPatient.CreateLoadPatientObservatonsParams
set aConceptRef = aParams.ConceptRefs
aConceptRef.AddConceptRef "z..2T", "IH", 2 'crAll 
set aConceptRefs = aParams.ConceptRefs
aMessage = "Concept Cross Ref Count = " &  aConceptRefs.Count
for i = 0 to aConceptRefs.Count - 1
  aMessage = aMessage & vbNewLine &_
    "Termset: " & aConceptRefs.TermsetCode(i) & vbNewLine &_
    "Concept: " & aConceptRefs.ConceptCode(i) & vbNewLine &_
    "Use Cross Ref: " & aConceptRefs.UseCrossRef(i)
next 

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Concept Code can be found in Maintain > Term Cross References > Double click on the reference > Base concept.

Version information

Added in v7.8.0