ISInstructionTemplateLines.Item

Description

Each of the instruction template lines within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISInstructionTemplateLines	The `object` always implements the ISInstructionTemplateLines interface
`aIndex`	In, Required	int	The index of the instruction template line

Restriction: This property is readonly.

Return Value

ISInstructionTemplateLine

Example

Display the number of the instruction templates and some information about them, including the instruction template lines.

Dim aFilter 
Dim aInstructionTemplates, aInstructionTemplate
Dim aMessage 
Dim i, j
Dim aInstructionLines, aInstructionLine
    
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)
  set aInstructionLines = aInstructionTemplate.Lines 
  aMessage = aMessage & vbNewLine &_
    (i + 1) & ")  " & aInstructionTemplate.Title
  
  for j = 0 to aInstructionLines.Count - 1
    set aInstructionLine = aInstructionLines.Item(j)
    aMessage = aMessage & vbNewLine & "Instruction: " &_
      Profile.RTF2Plain(aInstructionLine.Instruction) &  vbNewLine & "Measure Value: " &_
      Profile.RTF2Plain(aInstructionLine.MeasureValue)      
  next

next         
                                                 
Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v8.3.0