ISPatientOrCaseAudit.UserText

Description

The user text of the patient's or case audit record, which contain some additional details such as which object types were added, deleted or changed.

Syntax

object.UserText

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

Restriction: This property is readonly.

Return Value

string

Example

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

Dim aPatient
Dim aFilter
Dim aAuditColl
Dim aAudit 
Dim aProv
Dim aMessage 

Set aPatient = Profile.SelectPatient
set aFilter = Profile.CreatePatientAuditFilter
aFilter.PatientId = aPatient.Id
aFilter.MaxCount = 100
aFilter.StartDate = #01/01/2018#
aFilter.EndDate = #04/04/2019#

set aAuditColl = Profile.GetPatientAuditCollection(aFilter)

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

for each aAudit in aAuditColl 'ISPatientOrCaseAudit
  set aProv = Profile.LoadProviderById(aAudit.AccessedBy)

  aMessage = aMessage & vbNewLine & "---------------------------" & vbNewLine &_
    " AccessCode: '" & aAudit.AccessCode & "'" & vbNewLine &_
    " AccessedBy: " & aAudit.AccessedBy & " (" & aProv.Code & ")" & vbNewLine &_
    " AuditType: '" & aAudit.AuditType & "'" & vbNewLine &_
    " ComputerName: '" & aAudit.ComputerName & "'" & vbNewLine &_
    " Finished: '" & aAudit.Finished & "'" & vbNewLine &_
    " IP: '" & aAudit.IP & "'" & vbNewLine &_
    " MasterID: '" & aAudit.MasterID & "'" & vbNewLine &_
    " Started: '" & aAudit.Started & "'" & vbNewLine &_
    " UserText: '" & aAudit.UserText & "'" & vbNewLine &_
    " ValidateHash: '" & aAudit.ValidateHash & "'"                                          
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface User Text can be found in Clinical > Medical Record > Audit > User text or in Patient > Cases > Administrative > Audit > User text.

Version information

Added in v7.8.0