ISProfile.LanguageUtils

Description

This property contains language utils.

Syntax

object.LanguageUtils()

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

Return Value

ISLanguageUtils

Example

Display the specified text translated by the dictionary.

sub Main()
  Dim aLanguageUtils
  Dim aPatient
  Dim aLangCode
  Dim aMessage

  Set aLanguageUtils = Profile.LanguageUtils
  set aPatient = Profile.SelectPatient
  aLangCode = Profile.LanguageUtils.GetUILanguage
  set keeper = Profile.LanguageUtils.GetLanguageKeeper(aLangCode)
  
  aMessage = t("Age") & ": " & aPatient.Age & vbNewLine &_
    t("DOB") & ": " & aPatient.DOB & vbNewLine &_
    t("Patient ID Title") & ": " & Profile.CountryInfo.PatientIDTitle  
   
  Profile.MsgBox(aMessage)
  set keeper = Nothing
end Sub

function t(aText)
  
  t =  Profile.LanguageUtils.TranslateByDict(1, aText)
end function

Note:

Version information

Added in v7.9.0