The title of the instruction template.
object.Title
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISInstructionTemplate interface |
string
Display the number of the instruction templates and some information about them, including their titles.
Dim aFilter
Dim aInstructionTemplates
Dim aInstructionTemplate
Dim aMessage
Dim i
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)
aMessage = aMessage & vbNewLine &_
(i + 1) & ") " & aInstructionTemplate.Title
if not aInstructionTemplate.Disease is nothing then
aMessage = aMessage & vbNewLine & " - Disease: " & aInstructionTemplate.Disease.Name
end if
next
Profile.MsgBox(aMessage)
In Profile Client v8 on User Interface Instruction Title can be found in
.