ISProfile.GetCaseAuditTotalCount

Description

This function returns the total number of case audits on the basis of the selected filter.

Syntax

object.GetCaseAuditTotalCount(aFilter)

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

Return Value

int

Returns the total number of case audits.

Example

Display the total number of the case audits loaded on the basis of the selected filter and some information about them.

Dim aFilter 
Dim aCaseAudits
Dim aCaseAudit
Dim aMessage 
Dim i

Set aFilter = Profile.CreateCaseAuditFilter
aFilter.StartDate = #09/09/2019#
set aCaseAudits = Profile.GetCaseAuditCollection(aFilter)

aMessage = "Case Audits Total Count = " & Profile.GetCaseAuditTotalCount(aFilter)
for i = 0 to aCaseAudits.Count - 1
  set aCaseAudit = aCaseAudits.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Computer Name: " & aCaseAudit.ComputerName & vbNewLine &_
    "Access Code: " & aCaseAudit.AccessCode & vbNewLine &_
    "Finished: " & aCaseAudit.Finished & vbNewLine &_
    "IP: " & aCaseAudit.IP & vbNewLine &_
    "Master ID: " & aCaseAudit.MasterID & vbNewLine &_
    "Started: " & aCaseAudit.Started & vbNewLine &_
    "User Text: " & aCaseAudit.UserText & vbNewLine 
next      

Profile.MsgBox(aMessage)

Note:

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

Version information