ISPatient.AddAdditionalAddress

Description

This function adds an additional address of the patient.

Syntax

object.AddAdditionalAddress(aAddressType)

Part	Attribute	Type	Description
`object`	Required	ISPatient	The `object` always implements the ISPatient interface
`aAddressType`	In, Required	ISShortCode	The type of the address, that will be added

Return Value

ISAddresses

Returns the added additional address.

Example

Add an additional address of the patient.

Dim aPatient  
Dim aNewAdditionalAddress
Dim aShortCode
Dim aCode
Dim aSCTName
Dim aMessage

Set aPatient = Profile.SelectPatient
aCode = "SEC"
aSCTName = "Address Type"
set aShortCode = Profile.LoadShortCodebyCodeSCTName(aCode, aSCTName)
set aNewAdditionalAddress = aPatient.AddAdditionalAddress(aShortCode)

aMessage = aMessage & vbNewLine
aMessage = aMessage & "Additional address was added successfully!" 

Profile.MsgBox (aMessage)

Note:

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

Version information

Added in v7.8.0