ISObjectAudit.IsPreview

Example

Display IsPreview for the Objects Audit records in each Views Audit record.

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#
aFilter.EndDate = #03/26/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.IsPreview & ")"
          
    next        
  next                                          
next

Profile.MsgBox(aMessage)