create or replace package test is

  -------------------------------------------------------
  function package_name return varchar2;

  -------------------------------------------------------
  function test1 return varchar2;

end test;

create or replace package body test is

  -------------------------------------------------------
  function package_name return varchar2
    is
  begin
    return utl_call_stack.concatenate_subprogram(utl_call_stack.subprogram(1));
  end;


  -------------------------------------------------------
  function test1 return varchar2
    is
  begin
    return package_name;
  end;


end test;

return utl_call_stack.concatenate_subprogram(utl_call_stack.subprogram(1));