ISPatientMergeLogs.Item

Description

Each of the patient merge logs within the collection.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISPatientMergeLogs	The `object` always implements the ISPatientMergeLogs interface
`aIndex`	In, Required	int	The index of the patient merge log

Restriction: This property is readonly.

Return Value

ISPatientMergeLog

Example

Display the number of patient merge logs and some information about each of them.

Dim aDateFrom, aDateTo
Dim aPatientMergeLogs, aPatientMergeLog
Dim aMessage
Dim i
Dim aMasterPatient, aSubPatient     

aDateFrom = #01/01/2000#
aDateTo = #01/01/2020#

Set aPatientMergeLogs = Profile.GetPatientMergeLogs(aDateFrom, aDateTo)

aMessage = "Patient Merge Logs Count = " & aPatientMergeLogs.Count & vbNewLine

for i = 0 to aPatientMergeLogs.Count - 1
  set aPatientMergeLog = aPatientMergeLogs.Item(i)
  
  set aMasterPatient = Profile.LoadPatient(aPatientMergeLog.MasterPatientId)
  set aSubPatient = Profile.LoadPatient(aPatientMergeLog.SubPatientId)
   
  aMessage = aMessage & vbNewLine & (i + 1) & ". " &_
    "Created on: " & aPatientMergeLog.CreatedOn & vbNewLine &_
    "ID: " & aPatientMergeLog.ID & vbNewLine &_  
    "Master Patient: " & aMasterPatient.SurnameFirstName & vbNewLine &_
    "Sub Patient: " & aSubPatient.SurnameFirstName & vbNewLine 
next

Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Patient Merge Logs cannot be found.

Version information

Added in v7.8.0