1  create or replace
  2   procedure p_test is
  3   begin
  4    dbms_output.put_line($$PLSQL_UNIT);
  5*  end;
  6  /

Procedure created.

SQL> exec p_test;
P_TEST

PL/SQL procedure successfully completed.

SQL>

declare
 function get_proc_name(p_depth pls_integer) return varchar2 is
begin
    return utl_call_stack.concatenate_subprogram(utl_call_stack.subprogram(p_depth));
end;
begin
  for i in 1..20 loop
    dbms_output.put_line(i||' '||get_proc_name(i) );
  end loop;
end;

1 __anonymous_block.GET_PROC_NAME
2 __anonymous_block
3 DBMS_SQL.EXECUTE
4 WWV_FLOW_SW_API.RUN_SQL_ARR
5 WWV_FLOW_SW_API.RUN_SQL
6 WWV_FLOW_SW_PAGE_CALLS.SQL_RESULTS
7 __anonymous_block
8 DBMS_SQL.EXECUTE
9 WWV_FLOW_DYNAMIC_EXEC.RUN_BLOCK5
10 WWV_FLOW_DYNAMIC_EXEC.EXECUTE_PLSQL_CODE
11 WWV_FLOW_REGION_NATIVE.RENDER_PLSQL
12 WWV_FLOW_REGION_NATIVE.RENDER_REGION
13 WWV_FLOW_PLUGIN.RENDER_REGION
14 WWV_FLOW_DISP_PAGE_PLUGS.DISPLAY_PLUG_BODY
15 WWV_FLOW_DISP_PAGE_PLUGS.DISPLAY_PLUG
16 WWV_FLOW_DISP_PAGE_PLUGS.DISPLAY_PAGE_PLUGS
17 WWV_FLOW_PAGE.EMIT_BODY
18 WWV_FLOW_PAGE.RENDER
19 WWV_FLOW.SHOW
20 __anonymous_block

Statement processed.

0.00 seconds