ISInstructionTemplateLine.Instruction

Description

The text information of the template instruction line.

Syntax

object.Instruction

Part Attribute Type Description
object Required
The object always implements the ISInstructionTemplateLine interface
Restriction: This property is readonly.

Return Value

string

Example

Display the instruction template lines and some information about them.

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 can be found in Maintain > Templates > Instructions > Open Instruction Template > Instructions.

Version information

Added in v8.3.0