ISConceptRefs.AddConceptRef

Description

This function adds the concept reference.

Syntax

object.AddConceptRef aConceptCode, aTermsetCode, aUseCrossRef

Part	Attribute	Type	Description
`object`	Required	ISConceptRefs	The `object` always implements the ISConceptRefs interface
`aConceptCode`	In, Required	string	The concept code of the concept reference
`aTermsetCode`	In, Required	string	The termset code of the concept reference
`aUseCrossRef`	In, Required	TSCrossReferencedConceptRelation	The use of cross references

Example

Add the concept reference and 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 Ref can be found and added in Maintain > Term Cross References > New Reference.

Version information

Added in v7.8.0