ISPatientMergeLog.GetDetails

Example

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

Dim aDateFrom, aDateTo
Dim aPatientMergeLogs, aPatientMergeLog
Dim aMessage
Dim aPatientMergeDetails, aPatientMergeDetail  
Dim i, j

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 aPatientMergeDetails = aPatientMergeLog.GetDetails
  aMessage = aMessage & vbNewLine & (i + 1) & ") " &_
    "Created on: " & aPatientMergeLog.CreatedOn & vbNewLine &_
    "Patient Merge Details Count = " & aPatientMergeDetails.Count & vbNewLine   
     
  for j = 0 to aPatientMergeDetails.Count - 1
  set aPatientMergeDetail = aPatientMergeDetails.Item(j)
  aMessage = aMessage & (i + 1) & "." & (j + 1) &_
    " -Attribute Name: " & aPatientMergeDetail.AttributeName & vbNewLine &_
    " -CID: " & aPatientMergeDetail.CID & vbNewLine &_
    " -ID: " & aPatientMergeDetail.ID & vbNewLine &_
    " -Value: " & aPatientMergeDetail.Value & vbNewLine   
  next 'j   
next 'i

Profile.MsgBox(aMessage)