ISPatient.WorkPhone

Description

The patient's work telephone number.

Syntax

object.WorkPhone

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

Return Value

string

Example

Display the patient's work telephone number.

Dim aPatient  
Dim aWorkPhone   

Set aPatient = Profile.SelectPatient
aWorkPhone = aPatient.WorkPhone
Profile.MsgBox (aWorkPhone)

Note:

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

Version information

Added in v7.8.0