Beroende på dina behov kan detta vara tillräckligt (men förlitar sig på tillgång till v$session och 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
Enligt dokumenten:
PLSQL_ENTRY_OBJECT_ID - ID för det översta PL/SQL-underprogrammet i stacken; NULL om det inte finns något PL/SQL-underprogram i stacken
PLSQL_OBJECT_ID - Objekt-ID för det för närvarande exekverande PL/SQL-underprogrammet; NULL om du kör SQL