When Validate iten

[LeloStyleParticipante]

Galera, tinha feitooo uma lagum tempo atras, creio que é nesse caminho, só que da erro falando tipo para declarar as proc
declare
v_digito_antn varchar2(2); --variável criada para validar o digito pela ci recebida pela central_bonus_pergunta
v_digiton number; --variável criada para trazer da procedure que calcula o digito para comparar com o anterior
p_mens varchar2(2000);
v_digito_antold varchar2(2); --variável criada para validar o digito pela ci recebida pela central_bonus_pergunta
v_digito number;--variável criada para trazer da procedure que calcula o digito para comparar com o anterior
v_ci varchar2(13);
begin
if :pitcau.id_codigo_identificacao is not null then
--validação do dígito do ci solicitado pelo rogério segundo a os 456/2007, apenas como informativo (Eliana Oliveira)
if length(:pitcau.id_codigo_identificacao) = 14 then
v_digito_antn := substr(:pitcau.id_codigo_identificacao,14,1);
prod1703_003(:pitcau.id_codigo_identificacao,v_digiton,p_mens);
if to_char(v_digiton) v_digito_antn then
v_digito_antold := substr(:pitcau.id_codigo_identificacao,14,1);
v_ci := substr(:pitcau.id_codigo_identificacao,1,13);
prod1703_002(v_ci,v_digito,p_mens);
if to_char(v_digito) v_digito_antold then
mensagem('Digito Verificador Inválido. ');
end if;
end if;
else
mensagem('Digito Verificador Inválido. ');
end if;
end if;
exception
when others then
p_mens := 'Problemas ao validar o dígito de CI.'||sqlerrm;
end;

C alguém puder dar uma ajuda

grato