declare
 parent_id integer;
 dquery_user varchar2( 15 );
 dquery_grant_id integer;
begin
if :new.dquery_grant_id is null then
 select sq_sm_dquery_grant_id.nextval into :new.dquery_grant_id from dual; 
end if; 

 /* Необходимо написать хэндлер для каскадного изменения вверх */ 
 /* Для этого мы должны узнать PARENT_ID от :new.dquery_id и если на него грант 
   не установлен, то его надо будет установить   */ 
select a.DQUERY_PARENT_ID, a.DQUERY_USER into parent_id,dquery_user from SM_DQUERY a where a.DQUERY_ID=:new.DQUERY_ID;
 /* Если у родителя таких привелегий не имеется, то устанавливаем их в случае, если я являюсь создателем */ 
if parent_id is not null and dquery_user=USER then 
 select  a.DQUERY_GRANT_ID into dquery_grant_id from  SM_DQUERY_GRANT a where a.DQUERY_ID=parent_id and a.DQUERY_USER = :new.DQUERY_USER;
 if dquery_grant_id is null then
  insert into SM_DQUERY_GRANT  (DQUERY_ID,DQUERY_USER)  VALUES (parent_id,:new.DQUERY_USER);
 end if; 
end if;
   

end;

declare
 parent_id integer;
 dquery_user varchar2( 15 );
 dquery_grant_id integer;
begin
if :new.dquery_grant_id is null then
 select sq_sm_dquery_grant_id.nextval into :new.dquery_grant_id from dual; 
end if; 

 /* Необходимо написать хэндлер для каскадного изменения вверх */ 
 /* Для этого мы должны узнать PARENT_ID от :new.dquery_id и если на него грант 
   не установлен, то его надо будет установить   */ 
 select a.DQUERY_PARENT_ID, a.DQUERY_USER into parent_id,dquery_user from SM_DQUERY a where a.DQUERY_ID=:new.DQUERY_ID;
  /* Если у родителя таких привелегий не имеется, то устанавливаем их в случае, если я являюсь создателем */ 
 if parent_id is not null and dquery_user=USER then 
  begin
   select  a.DQUERY_GRANT_ID into dquery_grant_id from  SM_DQUERY_GRANT a where a.DQUERY_ID=parent_id and a.DQUERY_USER = :new.DQUERY_USER;
   EXCEPTION 
    WHEN NO_DATA_FOUND THEN
     insert into SM_DQUERY_GRANT  (DQUERY_ID,DQUERY_USER)  VALUES (parent_id,:new.DQUERY_USER);
  end;
 end if; 

end;