ISPatientEmployment.DateTo

Example

Display some information about the patient's current and previous places of work, including both the employment start and employment end dates.

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)