ISInstructionTemplate.Disease

Description

The disease the instruction template is associated with.

Syntax

object.Disease

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

Restriction: This property is readonly.

Return Value

ISConcept

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
    
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)

Note:

In Profile Client v8 on User Interface Disease can be found in Maintain > Templates > Instructions > Disease.

Version information

Added in v8.3.0