ISProfile.LoadCdoForms

Description

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

Syntax

object.LoadCdoForms(aFilter)

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

Return Value

ISHRObservations

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 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