ISPatient.HomeLanguage

Description

The language, spoken by the patient at home.

Syntax

object.HomeLanguage

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

Return Value

ISShortCode

Example

Display the patient's home language, if any. Otherwise, display "Home Language is nothing".

Dim aPatient  
Dim aHomeLanguage
Dim aHomeLanguageName

Set aPatient = Profile.SelectPatient
Set aHomeLanguage = aPatient.HomeLanguage
If aHomeLanguage is nothing then
  Profile.MsgBox("Home Language is nothing") 
Else
  aHomeLanguageName = aHomeLanguage.Description 
  Profile.MsgBox ("Home Language is " + aHomeLanguageName)
End If

Note:

In Profile Client v8 on User Interface Home Language can be found in Patient > Alter Patient > Social > Home Language field.

Version information

Added in v7.8.0