Tergantung pada kebutuhan Anda, ini mungkin cukup (tetapi bergantung pada akses ke v$session dan 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
Sesuai dengan dokumen:
PLSQL_ENTRY_OBJECT_ID - ID dari subprogram PL/SQL paling atas di tumpukan; NULL jika tidak ada subprogram PL/SQL di tumpukan
PLSQL_OBJECT_ID - ID Objek dari subprogram PL/SQL yang sedang dijalankan; NULL jika menjalankan SQL