Не получается поставить триггер

DECLARE
I NUMBER;

CREATE OR REPLACE TRIGGER "SCHEMA"."OILCOMPANY_T1"
BEFORE
INSERT ON "SCHEMA"."OILCOMPANY"
FOR each ROW
DECLARE
I NUMBER;
BEGIN
SELECT COUNT(*) INTO I FROM "SCHEMA".OilCompany;
IF I>5 THEN
ERROR(-20001, 'Add deny, the table has more than 5 companies!');
END IF;
END;

CREATE OR REPLACE PACKAGE BODY PARAM AS
 
PROCEDURE INSERT_COMPANY
(ID IN NUMBER, NAME IN VARCHAR2, COUNTRY IN VARCHAR2, PRODUCTION IN NUMBER) IS
 
BEGIN
INSERT INTO OilCompany
VALUES (ID, NAME, COUNTRY, PRODUCTION);
DBMS_OUTPUT.PUT_LINE('Add data to the table OilCompany!');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('When adding data OilCompany to a table the error occurred!');
END INSERT_COMPANY;
 
PROCEDURE INSERT_PIPELINE
(PID IN NUMBER, PNAME IN VARCHAR2, LENGTH IN NUMBER, ID IN NUMBER) IS
BEGIN
INSERT INTO OilPipeline
VALUES (PID, PNAME, LENGTH, ID);
DBMS_OUTPUT.PUT_LINE('Add data to the table OilPipeline!');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('When adding data OilPipeline to a table the error occurred!');
END INSERT_PIPELINE;
 
PROCEDURE CLEAR_DATA IS
BEGIN
DELETE FROM OilPipeline;
DELETE FROM OilCompany;
DBMS_OUTPUT.PUT_LINE ('From table delete all data!');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE ('When you delete an error occurred!');
END CLEAR_DATA; 
 
PROCEDURE SELECT_DATA
(MIN_SUM_LENGTH IN NUMBER) IS
CURSOR C_COMP (P_LENGTH NUMBER) IS
SELECT C.NAME FROM OilCompany C,
(SELECT ID, SUM (LENGTH) FROM OilPipeline
GROUP BY ID
HAVING SUM (LENGTH) > P_LENGTH) T
WHERE T.ID=C.ID; 
BEGIN
DBMS_OUTPUT.PUT_LINE ('The company with the total length of pipelines not less than '||MIN_SUM_LENGTH);
FOR V_COMP IN C_COMP (MIN_SUM_LENGTH) LOOP
DBMS_OUTPUT.PUT_LINE (V_COMP.NAME);
END LOOP;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE ('When retrieving data error occurred!');
END SELECT_DATA;
END PARAM;

CREATE OR REPLACE PACKAGE PARAM AS
 
PROCEDURE INSERT_COMPANY
(ID IN NUMBER, NAME IN VARCHAR2, COUNTRY IN VARCHAR2, PRODUCTION IN NUMBER);
 
PROCEDURE INSERT_PIPELINE
(PID IN NUMBER, PNAME IN VARCHAR2, LENGTH IN NUMBER, ID IN NUMBER);
 
PROCEDURE CLEAR_DATA;
 
PROCEDURE SELECT_DATA(MIN_SUM_LENGTH IN NUMBER);
 
END PARAM;

CREATE OR REPLACE PACKAGE BODY PARAM AS
PROCEDURE INSERT_COMPANY(ID IN NUMBER,NAME IN VARCHAR2,COUNTRY IN VARCHAR2,PRODUCTION IN NUMBER) IS
BEGIN
INSERT INTO OilCompany
VALUES (ID, NAME, COUNTRY, PRODUCTION);
DBMS_OUTPUT.PUT_LINE('Add data to the table OilCompany!');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('When adding data OilCompany to a table the error occurred!');
END INSERT_COMPANY;
PROCEDURE INSERT_PIPELINE(PID IN NUMBER, PNAME IN VARCHAR2, LENGTH IN NUMBER, ID IN NUMBER) IS
BEGIN
INSERT INTO OilPipeline
VALUES (PID, PNAME, LENGTH, ID);
DBMS_OUTPUT.PUT_LINE('Add data to the table OilPipeline!');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('When adding data OilPipeline to a table the error occurred!');
END INSERT_PIPELINE;
PROCEDURE CLEAR_DATA IS
BEGIN
DELETE FROM OilPipeline;
DELETE FROM OilCompany;
DBMS_OUTPUT.PUT_LINE('From table delete all data!');
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('When you delete an error occurred!');
END CLEAR_DATA; 
PROCEDURE SELECT_DATA(MIN_SUM_LENGTH IN NUMBER) IS
CURSOR c_COMP (p_LENGTH NUMBER) IS
SELECT c.NAME FROM OilCompany c,
(SELECT ID, SUM(LENGTH) FROM OilPipeline
GROUP BY ID
HAVING SUM(LENGTH) > p_LENGTH) t
WHERE t.ID=c.ID; 
BEGIN
DBMS_OUTPUT.PUT_LINE('The company with the total length of pipelines not less than '|| MIN_SUM_LENGTH);
FOR v_COMP IN C_COMP (MIN_SUM_LENGTH) LOOP
DBMS_OUTPUT.PUT_LINE (v_COMP.NAME);
END LOOP;
EXCEPTION
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('When retrieving data error occurred!');
END SELECT_DATA;
END PARAM;