ISHriData.Concept

Description

The concept linked to the HRI template.

Syntax

object.Concept

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

Restriction: This property is readonly.

Return Value

ISConcept

Example

Display the number of the HRI templates within the collection and some information about them, including the types and the names of the linked concepts.

Dim aHRITemplates, aHRITemplate 
Dim aHRIData
Dim i
Dim aMessage
       
set aHRITemplates = Profile.GetHRITemplates

aMessage = "There are " & aHRITemplates.Count & " HRI Templates: "

for i = 0 to aHRITemplates.Count - 1 
  set aHRITemplate = aHRITemplates.Item(i)
  set aHRIData = aHRITemplate.HRI
 
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    aHRIData.Concept.Name & vbTab   
   
  select case aHRIData.TypingType
    case 1 'tshtQuantity 
       aMessage = aMessage & " - Quantity"  
    case 2 'tshtRange  
       aMessage = aMessage & " - Range"   
    case 3 'tshtRatio   
       aMessage = aMessage & " - Ratio"   
    case 4 'tshtText    
       aMessage = aMessage & " - Text"
    case else   
       aMessage = aMessage & " - Unknown"
  end select
next 'i

Profile.MsgBox(aMessage)

Note: In Profile Client v8 on User Interface Concepts can be found in Maintain > Templates > Health Record Collection Templates > Reference > Embedded Observations.

Version information

Added in v7.8.0