ISPatientDuplicates.SecondaryIDs

Example

Display IDs of the patients with duplicate copies and IDs of these duplicates.

sub main()
  Dim aDuplicates 
  Dim aMessage, aIdList 

  set aDuplicates = Profile.LoadPatientDuplications

  aMessage = "Duplicates Count = " & aDuplicates.Count

  for i = 0 to aDuplicates.Count - 1
    set aDuplicate = aDuplicates.Item(i)
    aMessage = aMessage & vbNewLine
    aMessage = aMessage & "For master ID " & aDuplicate.MasterID & " secondary IDs are: " 
  
    aIdList = ""
    for j = 0 to aDuplicate.SecondaryIDs.Count - 1
      aSecondaryID = aDuplicate.SecondaryIDs.Item(j)
      call StrSep(aIdList, aSecondaryID)  
    next
    aMessage = aMessage & aIdList
  next
  
  Profile.MsgBox(aMessage)
end sub


sub StrSep(ByRef string, value) 
  if (string <> "") and (value <> "") then
    separator = ", "
  else
    separator = ""
  end if
  string = string & separator & value
end sub