ISAddresses.SourceRef

Example

Display source refs for the patient's additional addresses.

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

Set aPatient = Profile.SelectPatient 

set aAddressCollection = aPatient.LoadAddresses

if aAddressCollection.Count = 0 then
  Profile.MsgBox ("There is no adress")
  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 Source Ref" &_ 
    " for the additional address " &_
    aAddresses.AsLine & " is """ & aAddresses.SourceRef & """"
next 
Profile.MsgBox (aMessage)