ISInstructionTemplate.Lines

Description

The instruction template lines.

Syntax

object.Lines

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

Restriction: This property is readonly.

Return Value

ISInstructionTemplateLines

Example

Display the number of the instruction templates loaded on the basis of the selected filter and some information about them.

Dim aFilter 
Dim aInstructionTemplates, aInstructionTemplate
Dim aMessage 
Dim i, j
Dim aInstructionLines, aInstructionLine
    
Set aFilter = Profile.CreateInstructionTemplatesFilter
aFilter.DiseaseTermsetCode = "IH"
aFilter.DiseaseConceptCode = "zZ..Y2"               
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 Lines can be found in Maintain > Templates > Instructions > Open Instruction Template > Add lines.

Version information

Added in v8.3.0