ISCdoFormTemplateLoader.AddConcept

Description

This function loads the CDO form templates by the specified concept linked to them.

Syntax

object.AddConcept TermsetCode, ConceptCode

Part	Attribute	Type	Description
`object`	Required	ISCdoFormTemplateLoader	The `object` always implements the ISCdoFormTemplateLoader interface
`TermsetCode`	In, Required	string	The termset code of the concept
`ConceptCode`	In, Required	string	The code of the concept

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.AddConcept "IH", "zZ.0AS"
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 Concept can be found in Maintain > Templates > Health Record Collection Templates > Modify the selected template > Concept.

Version information

Added in v7.8.0