Função para cadastro de colaboradores de uma empresa

Boa tarde hoje muitas empresa não cadastram seus colaboradores com acento por problema na hora de cadastra o colaborador no ministerio do trabalho


Para isso fiz a função abaixo para troca os nome mais conhecido para nome certo

EX
nome_s = Joao
nome_c = João

Crie uma tabela de nome  ORTOGRAFICA_NOME com as coluna nome_s e nome_c

Me ajudo muito na hora de criar um relatório com o nome correto do colaborador

CREATE OR REPLACE FUNCTION NOME_ORTOGRAFICO (nome varchar) RETURN
varchar IS

  NOME_COR VARCHAR2(300);
CURSOR ORT_NOME IS
SELECT  ORT.NOME_S
        ,ORT.NOME_C
       FROM ORTOGRAFICA_NOME ORT;

BEGIN
  NOME_COR := nome;
  FOR r1 IN ORT_NOME LOOP
  
      IF (NOME_COR like '%'||R1.NOME_S||'%')  THEN
          NOME_COR := replace(NOME_COR,''||r1.NOME_S||'',''||r1.NOME_C||'');
      END IF;
    
  END LOOP;

RETURN NOME_COR;
END;