select * from T1
   where exists ( select 1
                      from T2
                      where exists (select 1
                                       from T3, T2 where T2.id = T3.id and T2.text = T3.text ))
   and T1.kateg = 'TPD'
;

select * from T1
   where exists ( select 1 from T3, T2 where T2.id = T3.id and T2.text = T3.text )
   and T1.kateg = 'TPD'
;

declare
 var1  number;
begin
 select Count(*) into var1 from T1
    where T1.id not in ( select 1 from T2, T3 
                           where T2.id = T3.id and T2.cid = T3.cid )
 and T1.text ='TPD'
 and id = :control_blk.id;
 
 if var1 = 1 then
  select max(id), max(desp), max(Sub), max(det)
  into :blk1.id, blk1.desp, blk1.sub, blk1.det
  from T3 where exists (select 1 from T1 
                                 where T1.id = T3.id 
                                 and T1.cid = T3.cid 
                                 and T1.text in ('TPD')
  and id = :control_blk.id
end if;
end;