ISPatient.GetLatestHRI

Description

This function returns the latest Health Record Item with the specified termset and concept codes during the specified time span.

Syntax

object.GetLatestHRI(aTermsetCode, aConceptCode, aDateFrom, aDateTo, aUseCrossRefs)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aTermsetCode`	In, Required	string	The termset code
`aConceptCode`	In, Required	string	The concept code
`aDateFrom`	In, Required	DateTime	The date from when the latest HRI is searched
`aDateTo`	In, Required	DateTime	The date till when the latest HRI is searched
`aUseCrossRefs`	In, Required	bool	If aUseCrossRefs = True the function uses cross-references during the search

Return Value

ISHRI

Returns the latest HRI with the specified termset and concept codes during the specified time span.

Example

Display the latest HRI with the specified termset and concept codes during the specified time span.

Dim aPatient
Dim aTermsetCode  
Dim aConceptCode
Dim aDateFrom
Dim aDateTo
Dim aUseCrossRefs
Dim aLatestHRI 

Set aPatient = Profile.SelectPatient
aConceptCode =  "z..2T" 
aTermsetCode = "IH" 
aDateFrom = #01/01/2000#
aDateTo = #01/01/2020#
aUseCrossRefs = False 
set aLatestHRI = aPatient.GetLatestHRI(aTermsetCode, aConceptCode, aDateFrom, aDateTo, aUseCrossRefs)
if aLatestHRI is nothing then
  Profile.MsgBox("There is no latest HRI")
else
  Profile.MsgBox(aLatestHRI.AsString)
end if

Note:

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

Version information

Added in v7.8.0