ISCDOFormTags.Item

Description

Each of CDO forms within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISCDOFormTags	The `object` always implements the ISCDOFormTags interface
`aIndex`	In, Required	int	The index of CDO form tag

Restriction: This property is readonly.

Return Value

ISCDOFormTag

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