ISProfile.CDOFormUtils

Description

This property contains CDO form utils.

Syntax

object.CDOFormUtils

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

Restriction: This property is readonly.

Return Value

ISCDOFormUtils

Example

Display the number of the CDO forms of the selected patient and some information about them.

Dim aPatient
Dim aCDOFormUtils
Dim aCDOForms, aCDOForm
Dim i
Dim aMessage   

Set aPatient = Profile.SelectPatient
set aCDOFormUtils = Profile.CDOFormUtils
' TSCdoFormTemplateTypes_Base + TSCdoFormTemplateTypes_CEF + 
' TSCdoFormTemplateTypes_List + TSCdoFormTemplateTypes_HTML
set aCDOForms = aCDOFormUtils.LoadPatientForms(aPatient, 1 + 2 + 4 + 8) 
aMessage = "CDO Forms (Count = " & aCDOForms.Count & "):"
for i = 0 to aCDOForms.Count - 1
  set aCDOForm = aCDOForms.Item(i) 
  aMessage = aMessage & vbNewLine & (i + 1) & ") " & aCDOForm.Name
next 

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface CDO Form Utils cannot be found.

Version information

Added in v7.8.0