ISHRISet.Count

Description

The number of Health Record Items with specified termset and concept codes.

Syntax

object.Count

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

Restriction: This property is readonly.

Return Value

int

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