ISHRObservation.GetDTModified

Example

Display the number of observations loaded on the basis of the selected filter and some information about them, including the date and time when they were modified.

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)