ISProfile.GetPatientAuditDetailCount

Description

This function returns the number of the patient audit details.

Syntax

object.GetPatientAuditDetailCount(aFilter)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aFilter`	In, Required	ISPatientAuditFilter	The object that defines conditions for filtering

Return Value

int

Returns the number of the patient audit details.

Example

Display the number of the patient audit details loaded on the basis of the selected filter and some information about them.

Dim aPatient
Dim aFilter 
Dim aPatientAuditDetail, aPatientAuditDetails
Dim aProvider
Dim aMessage 
Dim aCount
Dim i

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePatientAuditFilter
aFilter.PatientId = aPatient.Id 

aCount = Profile.GetPatientAuditDetailCount(aFilter) 
aMessage = "Patient Audit Details Count = " & aCount 

if aCount > 0 then
  set aPatientAuditDetails = Profile.GetPatientAuditDetailsCollection(aFilter)
  for i = 0 to aPatientAuditDetails.Count - 1
    set aPatientAuditDetail = aPatientAuditDetails.Item(i)
    set aProvider = Profile.LoadProviderById(aPatientAuditDetail.AccessedBy)
    aMessage = aMessage & vbNewLine &_
      "Computer Name: " & aPatientAuditDetail.ComputerName & vbNewLine &_
      "Accessed By: " & aProvider.FullName & vbNewLine &_
      "Date: " & aPatientAuditDetail.Date & vbNewLine &_
      "Detail Description: " & aPatientAuditDetail.DetailDescription & vbNewLine &_
      "IP: " & aPatientAuditDetail.IP & vbNewLine &_
      "Master ID: " & aPatientAuditDetail.MasterID & vbNewLine &_
      "Person Info: " & aPatientAuditDetail.PersonInfo & vbNewLine &_
      "User Text: " & aPatientAuditDetail.UserText & vbNewLine 
  next
end if        
                                
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Patient Audit Details can be found in Case Admin > General > Audit > Extended Case Audit.

Version information