CREATE OR REPLACE PACKAGE pkg1 AUTHID DEFINER
IS 
   PROCEDURE proc1; 
END pkg1; 

Down to Subprogram Name!

CREATE OR REPLACE PACKAGE BODY pkg1 
IS 
   PROCEDURE proc1 
   IS 
      PROCEDURE nested_in_proc1 
      IS 
      BEGIN 
         DBMS_OUTPUT.put_line (
            '*** "Traditional" Call Stack using FORMAT_CALL_STACK');

         DBMS_OUTPUT.put_line (DBMS_UTILITY.format_call_stack);
 
         DBMS_OUTPUT.put_line (
            '*** Fully Qualified Nested Subprogram vis UTL_CALL_STACK'); 

         DBMS_OUTPUT.put_line ( 
            utl_call_stack.concatenate_subprogram ( 
               utl_call_stack.subprogram (1))); 
      END; 
   BEGIN 
      nested_in_proc1; 
   END; 
END pkg1; 

The Call Stack Output

BEGIN 
   pkg1.proc1; 
END; 

Backtrace Info, Too!

CREATE OR REPLACE FUNCTION backtrace_to 
   RETURN VARCHAR2 AUTHID DEFINER 
IS 
BEGIN 
   RETURN    
      utl_call_stack.backtrace_unit (
         utl_call_stack.backtrace_depth) 
      || ' line ' 
      || utl_call_stack.backtrace_line (
             utl_call_stack.backtrace_depth); 
END; 

CREATE OR REPLACE PACKAGE pkg1 AUTHID DEFINER 
IS 
   PROCEDURE proc1; 
 
   PROCEDURE proc2; 
END; 

CREATE OR REPLACE PACKAGE BODY pkg1 
IS 
   PROCEDURE proc1 
   IS 
      PROCEDURE nested_in_proc1 
      IS 
      BEGIN 
         RAISE VALUE_ERROR; 
      END; 
   BEGIN 
      nested_in_proc1; 
   END; 
 
   PROCEDURE proc2 
   IS 
   BEGIN 
      proc1; 
   EXCEPTION 
      WHEN OTHERS 
      THEN 
         RAISE NO_DATA_FOUND; 
   END; 
END pkg1; 

CREATE OR REPLACE PROCEDURE proc3 AUTHID DEFINER 
IS 
BEGIN 
   pkg1.proc2; 
END; 

BEGIN 
   proc3; 
EXCEPTION 
   WHEN OTHERS 
   THEN 
      DBMS_OUTPUT.put_line (backtrace_to); 
END;