ISCdoFormFilter.ConceptCodes

Description

This filter property is used to load the CDO forms with the specified concept codes.

Syntax

object.ConceptCodes

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

Restriction: This property is readonly.

Return Value

ISItems

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 Concept Code can be found in Maintain > Termset Maintenance > Details of Concept > Code or in Special > Terms > Details of Concept > Code.

Version information

Added in v7.8.0