dochash := getdocumenthash( doc );

      begin
         select commentary
         into   lbl
         from   supermag.smdatedocs
         where  id = doc.docid;
      exception
         when others then
            lbl := '';
      end;

      docid := doc.docid;
      locid := doc.locid;
      locname := doc.locname;
      createdat := doc.createdat;
      fc := doc.fc;
      headerinserttext :=
            'insert into exchange.'
         || doctable
         || 'h '
         || '           ( '
         || '             id, name, docnr, docdate, '
         || ( case doc.doctype
                when 'WI' then 'clientfcode, '
                when 'OR' then 'labels, '
                else ''
             end )
         || '              checksum'
         || '            ) '
         || '    values ( '
         || '             :locid, :locname, :docid, :createdat, '
         || ( case doc.doctype
                when 'WI' then ' :fc, '
                when 'OR' then ' :lbl, '
                else ''
             end )
         || '              :dochash)';

      execute immediate headerinserttext;