ISHRISet.Item

Description

Each of Health Record Items within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISHRISet	The `object` always implements the ISHRISet interface
`aIndex`	In, Required	int	The index of health record item

Restriction: This property is readonly.

Return Value

ISHRI

Example

Display the number of Health Record Items with the specified termset and concept codes during the specified time span, then display their value and date.

Dim aPatient
Dim aTSCode  
Dim aConceptCode
Dim aDateFrom
Dim aDateTo
Dim aLastN
Dim aRemoveEmptyHRIs
Dim aHRISet 
Dim aHRI
Dim aMessage

Set aPatient = Profile.SelectPatient
aConceptCode = "z..2T" 
aTSCode = "IH" 
aDateFrom = #01/01/2000#
aDateTo = #01/01/2020#
aLastN = 100
aRemoveEmptyHRIs = False 
set aHRISet = aPatient.LoadHRISet(aConceptCode, aTSCode, aDateFrom, aDateTo,_ 
 aLastN, aRemoveEmptyHRIs)

for i = 0 to aHRISet.Count - 1 
  set aHRI = aHRISet.Item(i) 
  aMessage = aMessage & vbNewLine & aHRI.AsString & " " & aHRI.ObservedOn
next 

Profile.MsgBox("Items count = " & aHRISet.Count & vbNewLine & aMessage)

Note:

In Profile Client v8 on User Interface HRI can be found in Clinical > Medical Record > Measures.

Version information

Added in v7.8.0