ISCdoFormFilter.TermsetCode

Description

This filter property is used to load the CDO forms with the specified termset code.

Syntax

object.TermsetCode

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

Return Value

string

Example

Display the number of the clinical forms loaded on the basis of the selected filter and their names.

Dim aPatient
Dim aFilter
Dim aCdoForms, aCdoForm
Dim aMessage
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCdoFormFilter
aFilter.PatientId = aPatient.Id
aFilter.ConceptCodes.Add("z..0J")
aFilter.TermsetCode = "IH"
set aCdoForms = Profile.LoadCdoForms(aFilter) 

aMessage = "CDO Forms Count = " & aCdoForms.Count
for i = 0 to aCdoForms.Count - 1
  set aCdoForm = aCdoForms.Item(i)
  aMessage = aMessage & vbNewLine & "The name of CDO Form is " & aCdoForm.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 Concept > Termset.

Version information

Added in v7.8.0