ISPatientEmployment.OccupationDescription

Description

The code description of the lookup list item of type 'lktAccOcupation'.

Syntax

object.OccupationDescription

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 the patient's occupations.

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 &_ 
    " 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 Occupation Description can be found in Patient > Alter Patient > Social > Employment History > Edit Employment Record > Occupation Descr field.

Version information

Added in v8.5.0