ISHRObservation.GetContextComment

Description

This function returns the context comment on the HR Observation.

Syntax

object.GetContextComment()

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

Return Value

string

Returns the context comment on the HR Observation.

Example

Display the number of the observations loaded on the basis of the selected filter and some information about them, including their context comments.

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 &_
    "   Parent Trans: " & aHRObservation.ParentTrans.CreatedOn & vbNewLine &_
    "   Code: " & aHRObservation.Code & vbNewLine &_
    "   GUID: " & aHRObservation.GUID & vbNewLine &_
    "   ID: " & aHRObservation.ID & vbNewLine &_
    "   Get DT Modified: " & aHRObservation.GetDTModified & vbNewLine &_
    "   Get Context Comment: " & aHRObservation.GetContextComment & vbNewLine &_
    "   Get Parent Collection: " & aHRObservation.GetParentCollection.Name & vbNewLine
next
    
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Context Comment cannot be found, but HR Observations can be found in Organisation > Work Centre > Work > Manual Trans and in Clinical > Medical Record > Measures.

Version information

Added in v8.5.0