В зависимост от вашите нужди това може да е достатъчно (но разчита на достъп до v$session и dba_objects):
select 'CALLED PLSQL', vs.username, d_o.object_name -- whatever info you need
from dba_objects d_o
inner join
v$session vs
on d_o.object_id = vs.plsql_entry_object_id
union all
select 'CURRENT PLSQL', vs.username, d_o.object_name
from dba_objects d_o
inner join
v$session vs
on d_o.object_id = vs.plsql_object_id
Според документите:
PLSQL_ENTRY_OBJECT_ID - ID на най-горната PL/SQL подпрограма в стека; NULL, ако няма PL/SQL подпрограма в стека
PLSQL_OBJECT_ID - Идентификатор на обект на текущо изпълняваната PL/SQL подпрограма; NULL, ако се изпълнява SQL