ISInstructionTemplates.Count

Description

The number of the instruction templates.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

Example

Display the number of the instruction templates and some information about them.

Dim aFilter 
Dim aInstructionTemplates
Dim aInstructionTemplate
Dim aMessage 
Dim i
    
Set aFilter = Profile.CreateInstructionTemplatesFilter
aFilter.DiseaseConceptCode = "z..2e"            
set aInstructionTemplates = Profile.LoadInstructionTemplates(aFilter)

aMessage = "Instruction Templates Count = " & aInstructionTemplates.Count
for i = 0 to aInstructionTemplates.Count - 1
  set aInstructionTemplate = aInstructionTemplates.Item(i) 
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ")  " & aInstructionTemplate.Title
  if not aInstructionTemplate.Disease is nothing then
    aMessage = aMessage & vbNewLine & " - Disease: " & aInstructionTemplate.Disease.Name
  end if       
next         
                                                 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Instruction Templates can be found in Maintain > Templates > Instructions.

Version information

Added in v8.3.0