ISConceptRefs.RemoveConceptRef

Description

This function removes the concept references.

Syntax

object.RemoveConceptRef aConceptCode, aTermsetCode

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

Example

Display the number of the concept references before and after removing.

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
aConceptRef.AddConceptRef "zZ..H9", "IH", 2 'crAll 
set aConceptRefs = aParams.ConceptRefs

aMessage = "The number of concept refs before removing is " &  aConceptRefs.Count & vbNewLine

aConceptRefs.RemoveConceptRef "z..2T", "IH"

aMessage = aMessage & "The number of concept refs after removing is " & aConceptRefs.Count & vbNewLine

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 Refs can be found and removed in Maintain > Term Cross References.

Version information

Added in v7.8.0