A description for the patient's additional address.
object.Name
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISAddresses interface |
string
Display the description for the patient's additional address.
Dim aPatient
Dim aAddresses, aAddress
Dim i
Dim aMessage
Dim aAddressCollection
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 &_
"The name for the patient's additional address (" & aAddress.AsLine &_
") is " & aAddresses.Name
next
Profile.MsgBox (aMessage)
In Profile Client v8 on User Interface Name can be found in
.