ISProfile.GetCaseAuditDetailCount

Description

This function returns the number of case audit details.

Syntax

object.GetCaseAuditDetailCount(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 number of case audit details.

Example

Display the number of the case audit details and some information about them.

Dim aPatientId
Dim aCaseId
Dim aResult
Dim aFilter 
Dim aCaseAuditDetails, aCaseAuditDetail 
Dim aMessage
Dim i 
Dim aCount

aResult = Profile.Lookup_PatientCaseSearch(aPatientId, aCaseId, _
  "Select Case for search", true)
  
if not aResult then exit sub  

Set aFilter = Profile.CreateCaseAuditFilter
aFilter.CaseID = aCaseId 

aCount = Profile.GetCaseAuditDetailCount(aFilter)
aMessage = "Case Audit Details Count = " & aCount 

if aCount > 0 then
  set aCaseAuditDetails = Profile.GetCaseAuditDetailsCollection(aFilter)
  for i = 0 to aCaseAuditDetails.Count - 1
    set aCaseAuditDetail = aCaseAuditDetails.Item(i)
    aMessage = aMessage & vbNewLine &_
      "Computer Name: " & aCaseAuditDetail.ComputerName & vbNewLine &_
      "Date: " & aCaseAuditDetail.Date & vbNewLine &_
      "Detail Description: " & aCaseAuditDetail.DetailDescription & vbNewLine &_
      "IP: " & aCaseAuditDetail.IP & vbNewLine &_
      "Master ID: " & aCaseAuditDetail.MasterID & vbNewLine &_
      "Person Info: " & aCaseAuditDetail.PersonInfo & vbNewLine &_
      "User Text: " & aCaseAuditDetail.UserText & vbNewLine 
  next 
end if      
                                
Profile.MsgBox(aMessage)

Note:

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

Version information