drop table if exists dh.tmp_r;
select r.*, gen_random_uuid() as v_guid, 'Вид ОЭС' as v_vidOES, cast('20190301' as date) as v_rep_period,
  'ежемесячно' as v_period, 'ssa-asus' as pk_name, '2.0.2' as N_meta, cast('20200101' as date) as d_meta,
  '1.0.1' as n_pk, cast('20190101' as date) as d_pk
into dh.tmp_r from dh._report r where code = '118';

select concat('<?xml version="1.0" encoding="windows-1251"?>'::text, _xml_translated::text) as text_xml
from (
  select 
    xmlelement (name Ф0409118, XMLATTRIBUTES ( 
      delta_xmlns AS xmlns, 
      r.v_guid AS "УникИдОЭС", 
      r.v_vidOES AS "ВидОЭС",
      r.code AS "КодФормы",
      r.okud AS "ОКУД",
      'Вид отчета' AS "ВидОтчета",
      r.v_rep_period AS "ОтчДата",
      r.v_period AS "Периодичность",
      now() AS "ДатаВремяФормирования"
      ),
       xmlelement(name Составитель, XMLATTRIBUTES (
        'ВидОрг' as "ВидОрг",
        'КодОргТип' as "КодОрг",
        'КодТУ' as "КодТУ",
        'БИК' as "БИК",
        'ОКАТО' as "ОКАТО",
        'ОКПО' as "ОКПО",
        'ОГРН' as "ОГРН",
        'СокрНаимен' as "СокрНаимен",
        'Адрес' as "Адрес",
        'ДатаПодписания' as "ДатаПодписания"),
          XMLELEMENT(name Руководитель, XMLATTRIBUTES('РукДолжность' as "Должность", 'РукФИО' as "ФИО")),
          xmlelement(name ГлавБух, XMLATTRIBUTES('БухДолжность' as "Должность", 'БухФИО' as "ФИО")),
          xmlelement(name Исполнитель, XMLATTRIBUTES('ИспДолжность' as "ИсполнительДолжность", 'ИспФИО' as "ФИО",
            'Телефон' as "Телефон", 'Факс' as "Факс", 'ЭлПочта' as "ЭлПочта"))
        ),
        xmlelement(name Данные118, XMLATTRIBUTES('1' as "Ид")), --, query_to_xml(<запрос>)),                 
        xmlelement(name НетДанных,  XMLATTRIBUTES('1' as "КодНепредставления")),                 
        xmlelement(name Пояснение, '', 'СтрокаПояснения'),                 
        xmlelement(name ПротоколКонтроля, '', xmlelement(name Сообщение, '', 'СтрокаСообщения')),
        xmlelement(name ИнфПК, XMLATTRIBUTES (
          r.pk_name as "ИмяПК",
          r.n_meta as "НомерВерсииМета",
          r.d_meta as "ДатаВерсииМета",
          r.n_pk as "НомерВерсииПК",
          r.d_pk as "ДатаВерсииПК"
            )
          )
  ) 
from dh.tmp_r r
) x1(_xml)
  cross join xmlparse(content unistr(regexp_replace(x1._xml::text, '\&\#[xX](4[0-5][0-9a-fA-F])\;', '\\0\1', 'g'))) x2(_xml_translated);

query_to_xml(<запрос>)