ISHRObservationFilter.PatientId

Description

This filter property is used to load the HR Observations of the patient with the specified ID.

Syntax

object.PatientId

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

Return Value

int

Example

Display the number of the observations loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aFilter
Dim aHRObservations, aHRObservation
Dim aMessage
Dim i   

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreateObservationFilter
aFilter.PatientId = aPatient.ID 
aFilter.DateFrom = #01/01/2019#
aFilter.DateTo = #01/01/2020#
set aHRObservations = aFilter.Load

aMessage = "HR Observations Count = " & aHRObservations.Count & vbNewLine

for i = 0 to aHRObservations.Count - 1
  set aHRObservation = aHRObservations.Item(i)
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Name: " & aHRObservation.Name & vbNewLine &_
    "   As string: " & aHRObservation.AsString & vbNewLine &_
    "   Parent Trans: " & aHRObservation.ParentTrans.CreatedOn & vbNewLine &_
    "   Code: " & aHRObservation.Code & vbNewLine &_
    "   Concept Code: " & aHRObservation.ConceptCode & vbNewLine &_
    "   IS HRI: " & aHRObservation.ISHRI & vbNewLine &_
    "   Is Deleted: " & aHRObservation.IsDeleted & vbNewLine &_
    "   Term Code: " & aHRObservation.TermCode & vbNewLine &_
    "   Term Description: " & aHRObservation.TermDescription & vbNewLine &_
    "   Termset Code: " & aHRObservation.TermsetCode & vbNewLine &_
    "   GUID: " & aHRObservation.GUID & vbNewLine &_
    "   ID: " & aHRObservation.ID & vbNewLine 
next
    
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Patient Id cannot be found, but HR Observations can be found in Organisation > Work Centre > Work > Manual Trans > Edit the selected transaction > Item and in Clinical > Medical Record > Measures.

Version information

Added in v8.4.0