ISPatientInfoViewAudit.ObjectsAudit

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 and Objects Audit Items.

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/25/2019 15:42#
aFilter.EndDate = #03/25/2019 16:53#

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 & " "  
     
    for k = 0 to aViewAudit.ObjectsAudit.Count - 1
      set aObjectAudit = aViewAudit.ObjectsAudit.Item(k)
      aMessage = aMessage & vbNewLine &_ 
      "       - " & aObjectAudit.Description & " " 
          
    next       
  next                                          
next
                                 
Profile.MsgBox(aMessage)