ISProfile.GetPatientMergeLogs

Description

This function returns the patient merge logs.

Syntax

object.GetPatientMergeLogs(aDateFrom, aDateTo)

Part	Attribute	Type	Description
`object`	Required	ISProfile	The `object` always implements the ISProfile interface
`aDateFrom`	In, Required	DateTime	The start date
`aDateTo`	In, Required	DateTime	The end date

Return Value

ISPatientMergeLogs

Returns the patient merge logs.

Example

Display the number of patient merge logs and some information about 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