ISHRObservation.ParentTrans

Example

Display the number of the observations loaded on the basis of the selected filter, including their parent transactions.

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 Transaction: " & aHRObservation.ParentTrans.CreatedOn & vbNewLine &_
    "   Code: " & aHRObservation.Code & vbNewLine &_
    "   Concept Code: " & aHRObservation.ConceptCode & vbNewLine &_
    "   Is Deleted: " & aHRObservation.IsDeleted & vbNewLine &_
    "   Termset Code: " & aHRObservation.TermsetCode & vbNewLine &_
    "   GUID: " & aHRObservation.GUID & vbNewLine &_
    "   ID: " & aHRObservation.ID & vbNewLine 
next
    
Profile.MsgBox(aMessage)