ISAddresses.Delete

Example

If the patient has additional addresses, delete them. Otherwise, display "This patient has no additional addresses!".

Dim aPatient  
Dim aAddresses, aAddress
Dim i
Dim aAddressCollection   
Dim aMessage

Set aPatient = Profile.SelectPatient 

set aAddressCollection = aPatient.LoadAddresses

if aAddressCollection.Count < 1 then 
  Profile.MsgBox ("This patient has no additional addresses!")
  exit sub
end if 

for i = 0 to aAddressCollection.Count - 1
  set aAddress = aAddressCollection.Item(i)  
  set aAddresses = Profile.LoadAdditionalAddress(aAddress.Id)
  aMessage = aMessage & vbNewLine &_
    "The additional address " & aAddresses.AsLine &_ 
    " was deleted successfully "
  aAddresses.Delete
next
Profile.MsgBox (aMessage)