ISCDOFormTags.Count

Description

The number of CDO forms within the collection.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

Example

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

Dim aPatientId
Dim aCaseId
Dim aResult
Dim aCDOForms, aCDOForm
Dim aMessage
Dim i

aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
  "Select Case for search", true)
  
if not aResult then exit sub  

Set aCDOForms = Profile.LoadCDOFormTags(aPatientId, aCaseId)

aMessage = "CDO Forms Count = " & aCDOForms.Count & vbNewLine 

for i = 0 to aCDOForms.Count - 1
  set aCDOForm = aCDOForms.Item(i)  
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Description: " & aCDOForm.Description & vbNewLine &_
    "First Created: " & aCDOForm.FirstCreated & vbNewLine &_
    "ID: " & aCDOForm.ID & vbNewLine &_
    "URL: " & aCDOForm.URL & vbNewLine 
next                                             
                                     
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface CDO Forms can be found in Case Clinical > Forms.

Version information

Added in v7.8.0