Триггер на ограничение вставки в таблицу данных

CREATE OR REPLACE TRIGGER "VP"
BEFORE
INSERT OR UPDATE ON VIDPRI
FOR each ROW
DECLARE id NUMBER;
id_vp NUMBER;
cou NUMBER;
i NUMBER;
inv NUMBER;
j NUMBER;
 
cursor c1 IS SELECT idvp FROM vidpri;
vrm c1%ROWTYPE;
 
BEGIN
 
IF ((:NEW.dateBack IS NOT NULL) AND (:NEW.dateGive>:NEW.dateBack)) THEN
 
raise_application_error(-20001,'Невозможно указать дату возврата раньше, чем дату выдачи');
END IF;
 
SELECT ekz.spisat INTO id FROM ekz WHERE idekz=:NEW.idekz;
IF (id = 1) THEN
raise_application_error(-20001,'Книга списана');
END IF;
 
OPEN c1;
loop
fetch c1 INTO vrm;
SELECT idEkz INTO inv FROM vidpri WHERE idvp = vrm.idvp AND dateBack IS NULL;
SELECT COUNT(idEkz) INTO cou FROM vidpri WHERE idvp = vrm.idvp AND dateBack IS NULL;
IF (cou > 0) THEN
BEGIN
IF ( :NEW.idEkz = inv ) THEN
BEGIN
 
raise_application_error(-20001,'Книга уже выдана');
END;
END IF;
END;
END IF;
END loop;
close c1;
END;

EXIT WHEN c1%NOTFOUND;