create or replace FUNCTION ROTULO_PRODUTO(
   P_CDPRODUTO IN PRODUTO.CDPRODUTO%TYPE) RETURN VARCHAR2 IS

   V_CDRELMODEROTULO VARCHAR2(250);
BEGIN
   SELECT MAX(CDRELMODEROTULO)
     INTO V_CDRELMODEROTULO
     FROM MODELOROTULO
    WHERE CDPRODUTO =(SELECT MAX(CDPRODUTO)
                        FROM MODELOROTULO
                       WHERE (INSTR(NVL(P_CDPRODUTO,'_'),NVL(CDPRODUTO,'_')) = 1));

   RETURN(V_CDRELMODEROTULO);
END;