ISPatientEmployment.EmployerID

Description

ID of the patient's employer.

Syntax

object.EmployerID

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 the employers' names.

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 aEmployment.EmployerID > 0 then
    aMessage = aMessage & "; Employer: " &_ 
      Profile.LoadPatient(aEmployment.EmployerID).SurnameFirstName
  end if       
  aMessage = aMessage & "; 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 Employer ID cannot be found, but Employer can be found in Patient > Alter Patient > Social > Employment History > Edit Employment Record > Employer field.

Version information

Added in v8.5.0