ISProfile.CreateCdoFormFilter

Description

This function creates the filter for loading clinical forms.

Syntax

object.CreateCdoFormFilter()

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

Return Value

ISCdoFormFilter

Returns the filter for loading clinical forms.

Example

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

Dim aFilter
Dim aCdoForms
Dim aCdoForm
Dim aMessage

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateCdoFormFilter
aFilter.PatientId = aPatient.Id
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 CDO Forms can be found in Clinical > Review Forms > Forms.

Version information

Added in v7.8.0