ISPatientMergeLog.CreatedOn

Example

Display the number of patient merge logs and some information about them, including the date and time when they were created.

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)