ISPatientEmployments.Item

Description

The details of the patient's each employment.

Syntax

object.Item(aIndex)

Part	Attribute	Type	Description
`object`	Required	ISPatientEmployments	The `object` always implements the ISPatientEmployments interface
`aIndex`	In, Required	int	The index of the patient's employment

Restriction: This property is readonly.

Return Value

ISPatientEmployment

Example

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

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 Patient Employments can be found in Patient > Alter Patient > Social > Employment History.

Version information

Added in v8.5.0