ISPatientViewAudit.View

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 viewed objects.

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/22/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 & " " & aViewAudit.View & vbNewLine  
  next                                          
next

Profile.MsgBox(aMessage)