ISHRObservation.GetParentCollection

Example

Display the number of the observations loaded on the basis of the selected filter and some information about them, including the names of their parent HRCs.

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)