ISPatientEmployment.Street

Description

The street where the patient's place of work is located.

Syntax

object.Street

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

Return Value

string

Example

Display some information about the patient's current and previous places of work, including the streets where these places of work are located.

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 Street can be found in Patient > Alter Patient > Social > Employment History > Edit Employment Record > Work Address.

Version information

Added in v8.5.0