ISObjectAudit.EntryTime

Example

Display the Views Audit records in each patient audit item and the Objects Audit records in each Views Audit record with their entry and exit time.

Dim aPatient
Dim aFilter
Dim aAuditColl
Dim aAudit
Dim aViewsAuditColl 
Dim aViewAudit
Dim aObjectAudit
Dim aMessage 

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePatientAuditFilter
aFilter.PatientId = aPatient.Id
aFilter.MaxCount = 10
aFilter.StartDate = #03/20/2019#
aFilter.EndDate = #03/21/2019#

set aAuditColl = Profile.GetPatientAuditCollection(aFilter)

aMessage = "Audit Collection Items count = " & aAuditColl.Count & vbNewLine 

for i = 0 to aAuditColl.Count - 1 
  set aAudit  = aAuditColl.Item(i)
  set aViewsAuditColl = aAudit.LoadViewsAudit 

  aMessage = aMessage & vbNewLine &_
     "----------------- " & aViewsAuditColl.Count &_ 
     " Audit View Items -----------------" & vbNewLine &_
     "(" & aAudit.Started & " - " & aAudit.Finished & ")"  

  for j = 0 to aViewsAuditColl.Count - 1
    set aViewAudit = aViewsAuditColl.Item(j) 
    aMessage = aMessage & vbNewLine &_ 
      "   - " & aViewAudit.Description & " " 
           
    for k = 0 to aViewAudit.ObjectsAudit.Count - 1
      set aObjectAudit = aViewAudit.ObjectsAudit.Item(k)
      aMessage = aMessage & vbNewLine &_ 
      "       - " & aObjectAudit.Description &_
      " (" & aObjectAudit.EntryTime & " - " & aObjectAudit.ExitTime & ")"
          
    next        
  next                                          
next

Profile.MsgBox(aMessage)