set term ! ;
create or alter package TestPackage
as
begin
  function TestFunction (aParam integer) returns integer;
  procedure TestProcedure (aParam integer) returns (aOutParam integer);
end!

recreate package body TestPackage
as
begin
  function TestFunction (aParam integer) returns integer
  as
  begin
    return 0;
  end

  procedure TestProcedure (aParam integer)
  returns (aOutParam integer)
  as
  begin
    :aOutParam = :aParam + 1;
    suspend;
  end
end!
set term ; !
comment on function TestPackage.TestFunction is 'TestFunction';
comment on parameter TestPackage.TestFunction.aParam is 'TestFunction.aParam';
comment on procedure TestPackage.TestProcedure is 'TestProcedure';
comment on parameter TestPackage.TestProcedure.aParam is 'TestProcedure.aParam';
comment on parameter TestPackage.TestProcedure.aOutParam is 'TestProcedure.aOutParam';

set term ! ;
create or alter package TestPackage
as
begin
  function TestFunction1 (aParam integer) returns integer;
  function TestFunction2 (aParam integer) returns integer;
end!

recreate package body TestPackage
as
begin
  function TestFunction1 (aParam integer) returns integer
  as
  begin
    return aParam;
  end

  function TestFunction2 (aParam integer) returns integer
  as
  begin
    return TestPackage.TestFunction1(:aParam);
  end
end!
set term ; !

set term ! ;
create or alter procedure test$$$proc (aParam integer) returns (aValue integer)
as
begin
  :aValue  = testpackage.testfunction1(:aParam);
  suspend;
end!
set term ; !

grant execute on package TestPackage to procedure test$$$proc;
grant execute on package TestPackage to package TestPackage;