ISPatientViewAudit.ObjectsAudit

Example

Display the number of the patient audit records loaded on the basis of the selected filter, the number of Views Audit Items in each audit record, their descriptions 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/20/2019#
aFilter.EndDate = #03/21/2019#

set aAuditColl = Profile.GetPatientAuditCollection(aFilter)

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

'ISPatientOrCaseAudit, ISPatientViewAudit, TSPatientInfoCenterView
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 & " " 
          
    next        
  next                                          
next

Profile.MsgBox(aMessage)