The text information of the template instruction line.
object.Instruction
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISInstructionTemplateLine interface |
string
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)
In Profile Client v8 on User Interface Instruction can be found in
.