Erro na procedure

[dominguesph]

Estou criando esta procedure, porém está exibindo este erro:

PLS-00103: Encontrado o símbolo ";" quando um dos seguintes símbolos era esperado: if

Procedure

Selecionar tudo

CREATE  OR  REPLACE
PROCEDURE CANCELA_ENTREGA (V_NUM_ENTREGA IN ENTREGA.NUMERO%TYPE)
IS
	V_EXISTE_ENTREGA BOOLEAN := TRUE;
BEGIN

-- VERIFICAR SE EXISTE A ENTREGA

IF (V_EXISTE_ENTREGA) THEN RAISE_APPLICATION_ERROR( -20203,'A entrega informada não existe');

IF (ENTREGA.DT_CANCELAMENTO IS NULL) THEN RAISE_APPLICATION_ERROR (-20203,'Entrega já Cancelada'); --VERIFICA SE A ENTREGA JÁ ESTÁ CANCELADA
	
		-- CANCELAR 
			--DEVOLVER AS QUANTIDADES
			-- DEFINIR A DATA DE CANCELAMENTO
END;
/

[schnu]

Esta faltando os dois

END IF;