This filter property is used to load the collection of the patient measures by the specified linked concept.
object.Concept
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientMeasureFilter interface |
Display the number of the patient measures loaded on the basis of the selected filter and some information about them.
Dim aPatient
Dim aPatientMeasureFilter, aPhysQuantity
Dim aConcept
Dim aMeasures, aMeasure
Dim i
Dim aMessage
set aPatient = Profile.SelectPatient
set aPatientMeasureFilter = Profile.CreatePatientMeasureFilter
set aConcept = Profile.Concept("IH", "z..2T")
aPatientMeasureFilter.Concept = aConcept
set aMeasures = aPatient.GetMeasuresByFilter(aPatientMeasureFilter, aPhysQuantity)
aMessage = "Measures Count = " & aMeasures.Count & vbNewLine &_
"Measure" & vbTab & vbTab & vbTab & "GUID"
for i = 0 to aMeasures.Count - 1
set aMeasure = aMeasures.Item(i) 'ISHRI
aMessage = aMessage & vbNewLine & (i + 1) & ") " & aMeasure.AsString & vbTab & vbTab &_
aMeasure.GUID
next
Profile.MsgBox(aMessage)