DROP TABLE rgr_сruises;
DROP TABLE rgr_ports;

drop sequence rgr_seq_p;
drop sequence rgr_seq_c;

create sequence rgr_seq_p start with 1 increment by 1;
create sequence rgr_seq_c start with 1 increment by 1;

CREATE TABLE rgr_cruises
(
    cr_id INTEGER NOT NULL, 
    c_name VARCHAR2(50) NOT NULL, 
    c_ship VARCHAR2(20) NOT NULL,
    c_departure_date DATE NOT NULL, 
    c_return_date DATE NOT NULL,
    --p_id INTEGER NOT NULL,
    --dest_port_id INTEGER NOT NULL

    CONSTRAINT rgr_cr_id_pk PRIMARY KEY(cr_id)
);

CREATE TABLE rgr_ports
 (
    p_id INTEGER NOT NULL,
    p_name VARCHAR2(20) NOT NULL,
    p_country VARCHAR2(20) NOT NULL,
    p_capacity INTEGER(30) NOT NULL,
    p_dest INTEGER NOT NULL,

    CONSTRAINT rgr_p_id_pk PRIMARY KEY(p_id),
    CONSTRAINT rgr_p_dest_fk FOREIGN KEY(p_dest) REFERENCES rgr_ports
    (cr_id) ON DELETE CASCADE
);


CREATE OR REPLACE PACKAGE dataPack AS
    PROCEDURE filling;
    PROCEDURE cleaning;
END;
/

CREATE OR REPLACE PACKAGE BODY dataPack AS
    PROCEDURE filling IS
    BEGIN
        dataPack.cleaning;
        INSERT INTO rgr_cruises
         VALUES(rgr_seq_c.NEXTVAL, 'Средиземноморские жемчужины', 'Costa Diadema', to_date('15.06.2022', 'dd.mm.yyyy'), to_date('30.06.2022', 'dd.mm.yyyy'));
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Барселона', 'Испания', '20000', rgr_seq_c.CURRVAL);
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Рим', 'Италия', '40000', rgr_seq_c.CURRVAL);
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Неаполь', 'Италия', '30000', rgr_seq_c.CURRVAL);

        INSERT INTO rgr_cruises
         VALUES(rgr_seq_c.NEXTVAL, 'Карибские приключения', 'Harmony of the Seas', to_date('01.06.2023', 'dd.mm.yyyy'), to_date('10.06.2023', 'dd.mm.yyyy'));
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Майями', 'США', '20000', rgr_seq_c.CURRVAL);
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Ямайка', 'Ямайка', '10000', rgr_seq_c.CURRVAL);

        INSERT INTO rgr_cruises
         VALUES(rgr_seq_c.NEXTVAL, 'Северное сияние', 'Hurtigruten MS Roald Amundsen', to_date('20.09.2023', 'dd.mm.yyyy'), to_date('05.10.2023', 'dd.mm.yyyy'));
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Осло', 'Норвегия', '20000', rgr_seq_c.CURRVAL);
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Тромсе', 'Норвегия', '15000', rgr_seq_c.CURRVAL);

        INSERT INTO rgr_cruises
         VALUES(rgr_seq_c.NEXTVAL, 'Австралийские просторы', 'Pacific Explorer', to_date('10.10.2023', 'dd.mm.yyyy'), to_date('25.10.2023', 'dd.mm.yyyy'));
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Сидней', 'Австралия', '50000', rgr_seq_c.CURRVAL);
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Мельбурн', 'Австралия', '15000', rgr_seq_c.CURRVAL)

        INSERT INTO rgr_cruises
         VALUES(rgr_seq_c.NEXTVAL, 'Южная Америка', 'Empress of the Seas', to_date('01.02.2024', 'dd.mm.yyyy'), to_date('15.02.2024', 'dd.mm.yyyy'));
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Рио-де-Жанейро', 'Бразилия', '40000', rgr_seq_c.CURRVAL);
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Буэнос-Айрес', 'Аргентина', '25000', rgr_seq_c.CURRVAL)

        INSERT INTO rgr_cruises
         VALUES(rgr_seq_c.NEXTVAL, 'Азиатские тайны', 'Diamond Princess', to_date('10.05.2024', 'dd.mm.yyyy'), to_date('25.05.2024', 'dd.mm.yyyy'));
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Токио', 'Япония', '25000', rgr_seq_c.CURRVAL);
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Шанхай', 'Китай', '40000', rgr_seq_c.CURRVAL);
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Сингапур', 'Сингапур', '30000', rgr_seq_c.CURRVAL);

       INSERT INTO rgr_cruises
         VALUES(rgr_seq_c.NEXTVAL, 'Полярное сияние', 'MS Spitsbergen', to_date('15.08.2024', 'dd.mm.yyyy'), to_date('30.08.2024', 'dd.mm.yyyy'));
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Лонгйир', 'Норвегия', '25000', rgr_seq_c.CURRVAL);
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Свальбард', 'Норвегия', '40000', rgr_seq_c.CURRVAL);
        INSERT INTO rgr_ports VALUES(rgr_seq_p.NEXTVAL, 'Хоннинсгвог', 'Норвегия', '30000', rgr_seq_c.CURRVAL);

    EXCEPTION WHEN OTHERS THEN
        ROLLBACK;
        RAISE_APPLICATION_ERROR(-20001, 'Не удалось заполнить таблицы данными', TRUE);
    END filling;              Error at line 1/14: ORA-00955: name is already used by an existing object  В чем ошибка в данном коде?