ISPatient.WorkPhonePlusExt

Description

The patient's work phone and work phone extension.

Syntax

object.WorkPhonePlusExt

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

Restriction: This property is readonly.

Return Value

string

Example

Display the patient's work phone and work phone extension.

Dim aPatient  
Dim aWorkPhonePlusExt

Set aPatient = Profile.SelectPatient
aWorkPhonePlusExt = aPatient.WorkPhonePlusExt
Profile.MsgBox (aWorkPhonePlusExt)

Note:

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

Version information

Added in v7.11.0