ISPatient.LoadAddresses

Description

This function returns additional addresses of the patient.

Syntax

object.LoadAddresses( [aActiveOnly = false])

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aActiveOnly`	In, Optional Default value is false	bool	If aActiveOnly = True, the function returns only active additional addresses of the patient. Otherwise, all the patient's additional addresses are returned.

Return Value

ISCollection

Returns additional addresses of the patient.

Example

Display the number and the type of all additional addresses of the patient.

Dim aPatient  
Dim aAddresses, aAddress
Dim aActiveOnly
Dim i
Dim aMessage

Set aPatient = Profile.SelectPatient
aActiveOnly = False
set aAddresses = aPatient.LoadAddresses(aActiveOnly)
aMessage = "Addresses Count = " & aAddresses.Count & vbNewLine  

for i = 0 to aAddresses.Count - 1
  set aAddress = aAddresses.Item(i)
  aMessage = aMessage & aAddress.AddressType.Description & ": " &_
    aAddress.AsLine & vbNewLine   
next 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Additional Address can be found in Patient > Alter Patient > Personal > Additional Addresses fields.

Version information

Added in v7.8.0