ISPatient.WorkPhoneExtension

Description

The patient's work phone extension.

Syntax

object.WorkPhoneExtension

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

Return Value

string

Example

Display the patient's work phone extension.

Dim aPatient  
Dim aWorkPhoneExtension

Set aPatient = Profile.SelectPatient
aWorkPhoneExtension = aPatient.WorkPhoneExtension
Profile.MsgBox (aWorkPhoneExtension)

Note:

In Profile Client v8 on User Interface Work Phone Extension can be found in Patient > Alter Patient > General > Work Phone Ext field or in Patient > Alter Patient > Social > Work Phone Ext field.

Version information

Added in v7.11.0