ISPatientEmployment.OccupationID

Description

ID of the lookup list item of type 'lktAccOcupation'.

Syntax

object.OccupationID

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

Return Value

int

Example

Display some information about the patient's current and previous places of work, including IDs of the Occupation objects.

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 
    
  if not aEmployment.OccupationObj is nothing then
    aMessage = aMessage & "; Occupation: " &_ 
      aEmployment.OccupationObj.Description & " (occupation ID: " &_ 
      aEmployment.OccupationID & ")"
  end if 
        
  aMessage = aMessage & "; Position: " &_ 
    aEmployment.Position &_ 
    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 ID cannot be found, but Occupation Obj can be found in Patient > Alter Patient > Social > Employment History > Edit Employment Record > Occupation Code field.

Version information

Added in v8.5.0