This filter property is used to load the collection of the patient measures when the concept cross references are used.
object.UseConceptMatching
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISPatientMeasureFilter interface |
bool
Display the number of the patient measures loaded on the basis of the selected filter and some information about them.
Dim aPatient
Dim aPatientMeasureFilter
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
aPatientMeasureFilter.UseConceptMatching = true
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)