ISProfile.CreateObservationFilter

Description

This function creates the filter for loading observations.

Syntax

object.CreateObservationFilter()

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

Return Value

ISHRObservationFilter

Returns the filter for loading observations.

Example

Display the number of the observations loaded on the basis of the selected filter and their termset and concept codes.

Dim aFilter
Dim aPatient
Dim aObservations
Dim aObservation
Dim aMessage

Set aFilter = Profile.CreateObservationFilter
set aPatient = Profile.SelectPatient
aFilter.PatientId = aPatient.Id
set aObservations = aFilter.Load ' ISHRObservations

aMessage = "Observations Count = " & aObservations.Count
for i = 0 to aObservations.Count - 1
  set aObservation = aObservations.Item(i)
  aMessage = aMessage & vbNewLine &_
    (i + 1) &  ") " &_
    aObservation.ConceptCode & " (" & aObservation.TermsetCode & ")  --- " & _
    aObservation.AsString
next      

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Observation can be found in Clinical > Measures.

Version information

Added in v8.4.0