ISProfile.LoadCDOForm

Description

This function returns the clinical forms loaded on the basis of the selected filter.

Syntax

object.LoadCDOForm(aId)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aId`	In, Required	int	The object that defines conditions for filtering

Return Value

ISHRObservation

Returns the clinical forms loaded on the basis of the selected filter.

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 aFilter = Profile.CreateCdoFormFilter
aFilter.OnlyLatest = OnlyLatest
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.

Version information

Added in v7.8.0