ISPatientEmployment.GetDTModified

Example

Display some information about the patient's current and previous places of work, including the date and time this information for each place of work was last modified.

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 &_ 
    " (last modified on " & aEmployment.GetDTModified & ")" & 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)