ISCDOForms.Count

Description

The number of the CDO forms.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the CDO forms of the selected patient and their names.

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 Forms can be found in Clinical > Review Forms.

Version information

Added in v7.8.0