ISPatient.PreferredLanguage

Description

The language, preferred by the patient to communicate.

Syntax

object.PreferredLanguage

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

Return Value

ISShortCode

Example

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

Dim aPatient  
Dim aPreferredLanguage
Dim aPreferredLanguageName

Set aPatient = Profile.SelectPatient
Set aPreferredLanguage = aPatient.PreferredLanguage
If aPreferredLanguage is nothing then
  Profile.MsgBox("Preferred Language is nothing") 
Else
  aPreferredLanguageName = aPreferredLanguage.Description 
  Profile.MsgBox ("Preferred Language is " + aPreferredLanguageName)
End If

Note:

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

Version information

Added in v7.8.0