This function returns the collection of Health Record Items with the specified termset and concept codes during the specified time span.
object.LoadHRISet(aConceptCode, aTSCode[, aDateFrom =
#12/30/1899#[, aDateTo = #12/30/1899#[, aLastN = 0[, aRemoveEmptyHRIs =
false]]]])
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISPatient interface |
|
aConceptCode |
In, Required | string |
The concept code |
aTSCode |
In, Required | string |
The termset code |
aDateFrom |
In, Optional Default value is
#12/30/1899# |
DateTime |
The date from when the HRISet is
loaded |
aDateTo |
In, Optional Default value is
#12/30/1899# |
DateTime |
The date till when the HRISet is
loaded |
aLastN |
In, Optional Default value is 0 |
int |
The number of last HRIs to load |
aRemoveEmptyHRIs |
In, Optional Default value is
false |
bool |
If aRemoveEmptyHRIs = True the function removes
empty HRIs |
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) In Profile Client v8 on User Interface HRI can be found in .