ISPatientVers.PreferredLanguage

Description

The language, preferred by the patient in the selected patient version.

Syntax

object.PreferredLanguage

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

Restriction: This property is readonly.

Return Value

ISShortCode

Example

Display the patient's preferred language in the selected patient version.

Dim aPatient  
Dim aPatientVers
Dim aPreferredLanguage
Dim aPreferredLanguageName
Dim aMessage  

Set aPatient = Profile.SelectPatient

if aPatient.VersionOnDate(#01/01/2019#) is nothing then
  aMessage = "There are no patient versions for this date!" 
  
else

  set aPatientVers = aPatient.VersionOnDate(#01/01/2019#)
  set aPreferredLanguage = aPatientVers.PreferredLanguage
  
  if aPreferredLanguage is nothing then
    aMessage = "On 01/01/2019 the patient had no preferred language" 

  else

    aPreferredLanguageName = aPreferredLanguage.Description

    aMessage = aMessage & vbNewLine
    aMessage = aMessage & "On 01/01/2019 the patient's preferred language was "_
     & aPreferredLanguageName 
     
  end if  
end if

Profile.MsgBox(aMessage)

Note:

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

Version information

Added in v7.8.0