ISProfile.LoadInstructionTemplates

Description

This function returns the instruction templates loaded on the basis of the selected filter.

Syntax

object.LoadInstructionTemplates(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISInstructionTemplatesFilter	The object that defines conditions for filtering

Return Value

ISInstructionTemplates

Returns the instruction templates loaded on the basis of the selected filter.

Example

Display the number of the instruction templates loaded on the basis of the selected filter and their titles.

Dim aFilter 
Dim aInstructionTemplates, 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
     
next         
                                                 
Profile.MsgBox(aMessage)

Note:

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

Version information