ISPatientAuditFilter.SortMethod

Description

This filter is used to load the collection of the patient audit records and to sort them by the selected method.

Syntax

object.SortMethod

Part	Attribute	Type	Description
`object`	Required	ISPatientAuditFilter	The `object` always implements the ISPatientAuditFilter interface

Return Value

TSAuditSortMethod

Example

Display the number of the patient audit records loaded on the basis of the selected filter and some information they contain.

Dim aPatient
Dim aFilter
Dim aAuditColl
Dim aAudit 
Dim aProvider 
Dim aMessage 

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePatientAuditFilter
aFilter.PatientId = aPatient.Id
aFilter.MaxCount = 100
aFilter.SortDirection = 1  'sasoDesc
aFilter.SortMethod = 0  'sasmByStartDate  
aFilter.StartDate = #01/01/2019#
aFilter.EndDate = #01/01/2020#

set aAuditColl = Profile.GetPatientAuditCollection(aFilter)

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

for each aAudit in aAuditColl 'ISPatientOrCaseAudit
  set aProvider = Profile.LoadProviderById(aAudit.AccessedBy)
  aMessage = aMessage & vbNewLine & "---------------------------" & vbNewLine &_
    " Accessed By: " & aProvider.FullName & vbNewLine &_
    " Computer Name: '" & aAudit.ComputerName & "'" & vbNewLine &_
    " Started: " & aAudit.Started & vbNewLine &_
    " Finished: " & aAudit.Finished & vbNewLine &_
    " IP: " & aAudit.IP                                           
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Patient Audit can be found in Clinical > Medical Record > Audit.

Version information

Added in v7.8.0