ISProfile.CreateCdoFormTemplateLoader

Description

This function creates the Cdo Form Template loader.

Syntax

object.CreateCdoFormTemplateLoader()

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

Return Value

ISCdoFormTemplateLoader

Returns the created Cdo Form Template loader.

Example

Display the number of the CDO form templates and their names.

Dim aCdoFormTemplateLoader
Dim aFormTemplates, aFormTemplate 
Dim aMessage
Dim i

Set aCdoFormTemplateLoader = Profile.CreateCdoFormTemplateLoader
aCdoFormTemplateLoader.TemplateTypes = 1  'TSCdoFormTemplateTypes_Base
aCdoFormTemplateLoader.Name = "Antenatal Form" 
set aFormTemplates = aCdoFormTemplateLoader.Load 

aMessage = "Form Templates Count = " & aFormTemplates.Count & vbNewLine 

for i = 0 to aFormTemplates.Count - 1
  set aFormTemplate = aFormTemplates.Item(i) 
  aMessage = aMessage & (i + 1) & ". " &_
    "Name: " & aFormTemplate.Name & vbNewLine     
next   

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Cdo Form Templates can be found in Maintain > Templates > Health Record Collection Templates.

Version information

Added in v7.8.0