ayuda URGENTE!!!! POR FA

[PRINCIPIPTO]

vereis tengo este ejercicio y no consigo depurarlo dice as:

diseñar una funcion llamada da_medico k dado el cod paciente devuelva el nombre de algun medico k lo visito, si no tiene visitas devolvera sin medico y en caso de no encontrarse devolvera no hay paciente no utilizar cursores explicitos


tengo esto

CREATE OR REPLACE FUNCTION DA_MEDICO(CODP IN VISITAS.P#%TYPE,
MED IN OUT MEDICOS.NOMBRE%TYPE)
RETURN VARCHAR
IS
MED2 MEDICOS.NOMBRE%TYPE;
BEGIN
SELECT NOMBRE INTO MED2 FROM MEDICOS WHERE M# IN(SELECT M# FROM VISITAS WHERE P#=CODP);
MED:=MED2;
EXCEPTION
WHEN NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('NO HAY PACIENTE');
WHEN OTHERS THEN
DBMS_OUTPUT.PUT_LINE('SIN MEDICO');
END;
/

DECLARE
ME MEDICOS.NOMBRE%TYPE;
BEGIN
DA_MEDICO('&CODP',ME);
DBMS_OUTPUT.PUT_LINE(ME.NOMBRE);
END;
/

k esta mal¿?¿

gracias