Удобно на tcl писать процедуры с использованием сохраненных планов запросов, формируемых динамически. Например, есть словарь с описанием неких сущностей, которые хранятся в разных таблицах. На tcl пишем процедуру выборки собственно сущностей по их типу и коду:

create or replace function GetOneTSName(integer, integer) returns varchar as '
global GD
# как параметры приходят тип источника и код
if {![ info exists GD(GetTSStatement$1) ]} then {
# построение оператора выборки имени источника текущего типа
set ststatement " "
spi_exec "select coalesce(''select '' || fn_description || '' as a_describe from '' || rtrim(tablename, '' '') || '' where id = \$'' || ''1'', ''select '''''' || name || '''''' as a_describe'')::varchar as ststatement from transaction_sources where tscode = $1"
# исполнение оператора (если он есть) подготовки к выборке имени источника текущего типа и запоминание идентификатора
if {$ststatement == " "} then {
# тип источника не описан
set GD(GetTSStatement$1) " "
} else {
set GD(GetTSStatement$1) [spi_prepare ${ststatement} int4]
}
}
# по умолчанию имя - пустая строка
set a_describe " "
if {$GD(GetTSStatement$1) != " "} then {
# исполнение подготовленного оператора выборки
spi_execp $GD(GetTSStatement$1) $2
}
return $a_describe
' language 'pltcl';