Corrigir erro 00302

[Orlando cawende]

CREATE OR REPLACE TRIGGER T_GERA_ENDERECO_AFTER AFTER INSERT ON pessoa
 
DECLARE
   -- cria o tipo para variável que armazena o conteúdo do package
   TYPE tbPessoaPackage IS TABLE OF pessoa%ROWTYPE INDEX BY BINARY_INTEGER;
   tbPessoa   tbPessoaPackage;
   x           BINARY_INTEGER; --indice
 
 BEGIN
   -- atribui ao índice o primeiro valor do package
   x := pkg_pessoa.vPessoa.FIRST;
   -- limpa a var criada
   tbPessoa.DELETE;
 
   -- adiciona todos os registros do package na variável criada
   WHILE x IS NOT NULL LOOP
     tbPessoa(x).id_pessoa := pkg_pessoa.vPessoa(x).id_pessoa;
     tbPessoa(x).nome_pessoa := pkg_pessoa.vPessoa.nome_pessoa;
     tbPessoa(x).id_endereco := pkg_pessoa.vPessoa.id_endereco;
     x := pkg_pessoa.vPessoa.NEXT(x); -- incrementa o valor do índice
   END LOOP;
 
   pkg_pessoa.vPessoa.DELETE; -- limpa o package
   x := tbPessoa.FIRST; -- atribui ao índice o primeiro valor
 
   -- loop para percorrer todos os registros do package
   WHILE x IS NOT NULL LOOP
     -- insert na tabela endereco, com o nome da rua sendo Rua + nome da pessoa (ex: Rua do Felisberto)
     BEGIN
       INSERT INTO endereco (id_endereco,lograddouro) values (seq_endereco.nextval, 'Rua do ' || tbPessoa(x).nome_pessoa);
     EXCEPTION
       WHEN OTHERS THEN
         RAISE_APPLICATION_ERROR(-20001
                                ,'Não foi possível inserir os dados na tabela ENDERECO. Trigger: T_GERA_ENDERECO_AFTER ' || SQLERRM);
     END;
     -- update na tabela Pessoa, para setar o valor do id_endereco da Pessoa com o valor do id do endereço gerado no insert acima
     BEGIN
       UPDATE pessoa p SET p.id_endereco = seq_endereco.currval
        WHERE p.id_pessoa = tbPessoa(x).id_pessoa;
     EXCEPTION
       WHEN OTHERS THEN
         RAISE_APPLICATION_ERROR(-20002
                                ,'Não foi possível atualizar os dados na tabela PESSOA. Trigger: 
                                T_GERA_ENDERECO_AFTER ' || SQLERRM);
     END;
     -- atualiza valor do indice para o proximo registro
     x := tbPessoa.NEXT(x);
   END LOOP;
 
 END;