create or replace FUNCTION schemaDinamica(MatriculaMedico in number,  nomeSchema in varchar2 ) return varchar is

     retorno varchar2(10);
     Script CLOB;
begin
 Script := 'Declare' || chr(10) ||
           'MATMEDICO '||nomeSchema||'.Tmedico.MATMEDICO%type;' || chr(10) ||
           'begin'|| chr(10) ||
           'matmedico:= '||MatriculaMedico||';'|| chr(10) ||
           ':Retorno:=matmedico;'|| chr(10) ||
           'end;';

 /*corpo da função*/

  execute immediate Script
    using out retorno;

 RETURN retorno||'-'||nomeSchema;

end;