CREATE OR REPLACE PACKAGE emp_test1 IS
 g_variable number(10);
 PROCEDURE emp_proc1 (v_empno NUMBER);
 PROCEDURE emp_proc2 (v_empno NUMBER);
 END;

  CREATE OR REPLACE PACKAGE BODY emp_test1 IS
 function chk_empno(v_empno number) Return boolean;
  PROCEDURE emp_proc1(v_empno NUMBER) IS
  BEGIN
   chk_empno(v_empno);
   INSERT INTO emp(empno) VALUES (v_empno);
   END;
 function chk_empno(v_empno number) Return boolean is
 begin
  if v_empno<7000 then
  raise_application_error(-20001,'Missed');
  else
  return(true);
 end if;
 end;
  PROCEDURE emp_proc2(v_empno NUMBER) IS
  BEGIN
   INSERT INTO emp(empno) VALUES (v_empno);
   END;
   END emp_test1;

CREATE OR REPLACE PACKAGE BODY emp_test1 
IS
  FUNCTION chk_empno(v_empno number) RETURN BOOLEAN;
  
  PROCEDURE emp_proc1(v_empno NUMBER) 
  IS
    v_dummy BOOLEAN;
  BEGIN
  -- You need to catch THE RETURN VALUE because otherwise 'chk_empno'
  -- will be interpreted as a procedure -> undefined!
   v_dummy := chk_empno(v_empno);
   INSERT INTO emp(empno) VALUES (v_empno);
  END;
 
  FUNCTION chk_empno(v_empno number) 
  RETURN BOOLEAN 
  IS
  BEGIN
    if v_empno<7000 then
      raise_application_error(-20001,'Missed');
    else
      return(true);
    end if;
  END;
  
  PROCEDURE emp_proc2(v_empno NUMBER) IS
  BEGIN
   INSERT INTO emp(empno) VALUES (v_empno);
  END;
END emp_test1;
/