Tùy thuộc vào nhu cầu của bạn, điều này có thể đủ (nhưng phụ thuộc vào quyền truy cập vào v $ session và 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
Theo tài liệu:
PLSQL_ENTRY_OBJECT_ID - ID của chương trình con PL / SQL cao nhất trên ngăn xếp; NULL nếu không có chương trình con PL / SQL trên ngăn xếp
PLSQL_OBJECT_ID - ID đối tượng của chương trình con PL / SQL hiện đang thực thi; NULL nếu thực thi SQL