problema con procedimiento de insercion

[forgencio]

Forista,

Tegno le siguiente proc alm, de insercion y me arroja error!!, me pueden ayudar


DELIMITER $$

DROP PROCEDURE IF EXISTS `escuela`.`insertaAlumno`$$

CREATE DEFINER=`root`@`localhost` PROCEDURE `insertaAlumno`(
in nom_al varchar(20),
in ape_al varchar(20),
in fecha_ing datetime,
in tipo_al char(18),
out cod_al char(13)
)
BEGIN

select cod_al = 0;
/*UPPER: retorna la cadena (str) con todos los caracrteres a mayusculas según el mapeo del conj de caracteres actual*/
if exists(
select nom_alumno from alumno where upper(nom_alumno) = upper(nom_al) and upper(ape_alumno) = upper(ape_al)
begin
select 'Los datos de este alumno estan registrado. Se cancela la operación!';
end;
else
begin
-- llamamos al procedimiento indicandole donde almacenara el resultado(@tot)
call nvoCodAlumno(@tot);
-- ahora podemos acceder a @tot cuadno queramos
cod_al = @tot;
insert into alumno values(cod_al, nom_al, ape_al, fecha_ing, tipo_al);
end;
end if;

END$$

DELIMITER ;