ISPatientInfoViewAudit.ExitTime

Example

Display the number of the patient audit records loaded on the basis of the selected filter, the number of Info Views Audit Items in each audit record, their description, their entry and exit time.

Dim aPatient
Dim aFilter
Dim aAuditColl
Dim aAudit 
Dim aViewsAuditColl
Dim aViewAudit
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/23/2019#

set aAuditColl = Profile.GetPatientInfoAuditCollection(aFilter)

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

'ISPatientInfoViewAudit, TSPatientOrPayerCentreView
for i = 0 to aAuditColl.Count - 1 
  set aAudit = aAuditColl.Item(i)
  set aViewsAuditColl = aAudit.LoadViewsAudit  
  
  aMessage = aMessage & vbNewLine &_
     "----------------- " & aViewsAuditColl.Count &_ 
     " View Items -----------------" & vbNewLine &_
     "(" & aAudit.Started & " - " & aAudit.Finished & ")" & vbNewLine 

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