ISAddresses.WorkPhonePlusExt

Description

The patient's work phone and work phone extension for the additional address.

Syntax

object.WorkPhonePlusExt

Part	Attribute	Type	Description
`object`	Required	ISAddresses	The `object` always implements the ISAddresses interface

Restriction: This property is readonly.

Return Value

string

Example

Display the patient's work phone and work phone extension for the 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 work phone and " &_ 
    "work phone extension for the patient's " &_
    "additional address " & aAddresses.AsLine &_  
    " is " & aAddresses.WorkPhonePlusExt
next 

Profile.MsgBox (aMessage)

Note:

In Profile Client v8 on User Interface Work Phone Plus Ext can be found in Patient > Alter Patient > Personal > Additional Addresses > Edit Address > Connectivity > Work Phone field > Extension field.

Version information

Added in v7.11.0