ISProfile.CreateInstructionTemplatesFilter

Description

This function is used to create the filter for loading instruction templates.

Syntax

object.CreateInstructionTemplatesFilter()

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

Return Value

ISInstructionTemplatesFilter

Returns the filter for loading instruction templates.

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

Added in v8.3.0