ISPatientEmployment.WorkPhone

Description

The telephone number of the patient's place of work.

Syntax

object.WorkPhone

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

Return Value

string

Example

Display some information about the patient's current and previous places of work, including their telephone numbers.

Dim aPatient
Dim aEmployments, aEmployment  
Dim i
Dim aMessage
  
Set aPatient = Profile.SelectPatient
set aEmployments = aPatient.LoadPatientEmployments
aMessage = "Employments Count = " & aEmployments.Count & vbNewLine & vbNewLine

for i = 0 to aEmployments.Count - 1 
  set aEmployment = aEmployments.Item(i)
  aMessage = aMessage & aEmployment.DateFrom & " - " & aEmployment.DateTo &_ 
    vbNewLine & " Work Name: " & aEmployment.WorkName & "; Position: " &_ 
    aEmployment.Position & "; Occupation: " & aEmployment.OccupationDescription &_ 
    vbNewLine & " Work Adress: " & vbNewLine &_ 
    "   -Street: " & aEmployment.Street & vbNewLine &_
    "   -Postal: " & aEmployment.StreetCode & vbNewLine &_
    "   -Suburb: " & aEmployment.Suburb & vbNewLine &_  
    "   -City: " & aEmployment.City & vbNewLine &_  
    "   -Building: " & aEmployment.Building & vbNewLine &_   
    "   -Country: " & aEmployment.CountryCode & vbNewLine &_  
    "   -State: " & aEmployment.State & vbNewLine &_ 
    "   -Work phone: " & aEmployment.WorkPhone & vbNewLine & vbNewLine       

next 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Work Phone can be found in Patient > Alter Patient > Social > Employment History > Edit Employment Record > Work Phone field.

Version information

Added in v8.5.0