create or alter procedure SYSTEM_GET_ACCESS_RIGHTS (
   RELATION_NAME TYPE of COLUMN RDB$USER_PRIVILEGES.RDB$RELATION_NAME,
   OBJECT_TYPE TYPE of COLUMN RDB$USER_PRIVILEGES.RDB$OBJECT_TYPE default 0,
   FIELD_NAME TYPE of COLUMN RDB$USER_PRIVILEGES.RDB$FIELD_NAME default NULL,
   USER_NAME TYPE of COLUMN RDB$USER_PRIVILEGES.RDB$USER default NULL
)
returns
(
  PRIVILEGE CHAR(6)
)
as
begin
/*
RELATION_NAME: Имя объекта (таблица, роль, процедура) на который предоставляется полномочие.

OBJECT_TYPE: Идентифицирует тип объекта, к которому предоставляется привилегия:
• 0 – таблица;
• 1 – представление;
• 2 – триггер;
• 5 – процедура;
• 7 – исключение;
• 8 – пользователь;
• 9 – домен;
• 11 – набор символов;
• 13 – роль;
• 14 – генератор
(последовательность);
• 15 – функция;
• 16 – BLOB фильтр;
• 17 – сортировка;
• 18 – пакет.

PRIVILEGE: Привилегия, предоставляемая в полномочии
• A – all (все привилегии);
• S – select (выборка данных);
• I – insert (добавление данных);
• U – update (изменение данных);
• D – delete (удаление строк);
• R – reference (внешний ключ);
• X – execute (выполнение);
• G – usage (использование);
• M – membership (членство).
*/

 if (USER_NAME is NULL or (Trim(USER_NAME) = '') ) then
     USER_NAME = CURRENT_USER;

 SELECT RDB$PRIVILEGE FROM RDB$USER_PRIVILEGES
 WHERE  RDB$USER = :USER_NAME
 AND RDB$RELATION_NAME = :RELATION_NAME
 AND RDB$FIELD_NAME is NULL or (RDB$FIELD_NAME = :FIELD_NAME)
 AND RDB$OBJECT_TYPE = :OBJECT_TYPE
 into :PRIVILEGE;

 suspend;
end^

create or alter procedure SYSTEM_GET_ACCESS_RIGHTS (
   RELATION_NAME TYPE of COLUMN RDB$USER_PRIVILEGES.RDB$RELATION_NAME,
   OBJECT_TYPE TYPE of COLUMN RDB$USER_PRIVILEGES.RDB$OBJECT_TYPE default 0,
   FIELD_NAME TYPE of COLUMN RDB$USER_PRIVILEGES.RDB$FIELD_NAME default NULL,
   USER_NAME TYPE of COLUMN RDB$USER_PRIVILEGES.RDB$USER default NULL
)
returns
(
  PRIVILEGE CHAR(6)
)
as
begin
/*
RELATION_NAME: Имя объекта (таблица, роль, процедура) на который предоставляется полномочие.

OBJECT_TYPE: Идентифицирует тип объекта, к которому предоставляется привилегия:
• 0 – таблица;
• 1 – представление;
• 2 – триггер;
• 5 – процедура;
• 7 – исключение;
• 8 – пользователь;
• 9 – домен;
• 11 – набор символов;
• 13 – роль;
• 14 – генератор
(последовательность);
• 15 – функция;
• 16 – BLOB фильтр;
• 17 – сортировка;
• 18 – пакет.

PRIVILEGE: Привилегия, предоставляемая в полномочии
• A – all (все привилегии);
• S – select (выборка данных);
• I – insert (добавление данных);
• U – update (изменение данных);
• D – delete (удаление строк);
• R – reference (внешний ключ);
• X – execute (выполнение);
• G – usage (использование);
• M – membership (членство).
*/

 if (USER_NAME is NULL or (Trim(USER_NAME) = '') ) then
     USER_NAME = CURRENT_ROLE;
 for
 SELECT RDB$PRIVILEGE FROM RDB$USER_PRIVILEGES
 WHERE  RDB$USER = :USER_NAME
 AND RDB$RELATION_NAME = :RELATION_NAME
 AND RDB$FIELD_NAME is NULL or (RDB$FIELD_NAME = :FIELD_NAME)
 AND RDB$OBJECT_TYPE = :OBJECT_TYPE
 into :PRIVILEGE
 do
 begin
    suspend;
 end
end^