ISPatientMergeDetails.Item

Description

Each of the patient merge details within the collection.

Syntax

object.Item(aIndex)

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

Restriction: This property is readonly.

Return Value

ISPatientMergeDetail

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 & (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)

Note:

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

Version information

Added in v7.8.0