ISInstructionTemplateLines.Count

Example

Display the number of the instruction templates and some information about them, including the instruction template lines.

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)