Problem with validation process

Question

I am creating a precedent to validate whether the field discount (%) receives a percentage less than zero (negative value) or greater than 100%.

But when executing appears an error that I am not able to solve. I searched several places and each speaks a different reason and even following I could not solve.

Could someone help me?

The error is as follows:

PLS-00306: Wrong number or types of Arguments in call to 'MV_VALIDA_DESCONTO_NEGATIVO'

CREATE OR REPLACE PROCEDURE TESTE."MV_VALIDA_DESCONTO_NEGATIVO" (

       P_NUNOTA  INT,
       P_SUCESSO OUT VARCHAR2,
       P_MENSAGEM OUT VARCHAR2     
) AS
  
       P_PERCDESC FLOAT ;
      
BEGIN  
           SELECT ITE.PERCDESC INTO P_PERCDESC FROM TGFITE ITE
           WHERE ITE.NUNOTA = P_NUNOTA;
      
       
    /* VERIFICA SE O CAMPO PERCENTUAL DE DESCONTO RECEBE VALOR NEGATIVO */
       IF (P_PERCDESC < 0) THEN 
        P_SUCESSO  := 'N';          
P_MENSAGEM := ' PERCENTUAL NÃO PODE SER NEGATIVO!';

    /* VERIFICA SE O CAMPO PERCENTUAL DE DESCONTO RECEBE MAIOR DO QUE 100% */
      ELSIF (P_PERCDESC > 100) THEN 
        P_SUCESSO := 'N';
        P_MENSAGEM := 'DESCONTO ULRAPASSOU LIMITE DE 100%';
    ELSE 
        P_SUCESSO := 'S';
    END IF;
  
        P_SUCESSO := 'S';
  
END ;