ISAddresses.GeoInfo

Example

Display the patient's additional address and its set of latitude and longitude coordinates.

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

Set aPatient = Profile.SelectPatient 

set aAddressCollection = aPatient.LoadAddresses

for i = 0 to aAddressCollection.Count - 1
  set aAddress = aAddressCollection.Item(i)  
  set aAddresses = Profile.LoadAdditionalAddress(aAddress.Id)
  
  aMessage = aMessage & vbNewLine &_
    " Address: " & aAddresses.AsLine   
  
  set aGeoInfo = aAddresses.GeoInfo
  if not aGeoInfo is nothing then
    aMessage = aMessage & vbNewLine & "GeoInfo: " &_ 
      aGeoInfo.Latitude & "; " & aGeoInfo.Longitude  
  end if   
next 
Profile.MsgBox (aMessage)