FUNCTION f_return_message (
      i_error_message   IN   VARCHAR2,
      i_error_code      IN   NUMBER DEFAULT -20001
   )
      RETURN VARCHAR2
   AS
      v_message   VARCHAR2 (300) := NULL;
   V_GUID NUMBER;
   V_P BINARY_INTEGER;
  
   CURSOR CC(I_P_GUID IN NUMBER) IS
      SELECT PARA FROM G_ERROR_CUSTOM_PARA WHERE P_GUID = I_P_GUID ORDER BY SEQ;
   BEGIN
      IF i_error_code < -20000 AND i_error_code > -21000
      THEN
         SELECT info,GUID
           INTO v_message,V_GUID
           FROM g_error_custom
          WHERE INSTR (UPPER (i_error_message), flag) > 0;
   
    IF PARA_LIST IS NOT NULL THEN
      V_P := PARA_LIST.FIRST;
   
     FOR C1 IN CC(V_GUID) LOOP
        EXIT WHEN V_P IS NULL;
        V_MESSAGE := REPLACE(V_MESSAGE,C1.PARA,PARA_LIST(V_P));
      V_P := PARA_LIST.NEXT(V_P);
     END LOOP;
    
    END IF;
      ELSE
         SELECT info
           INTO v_message
           FROM g_error_constraint
          WHERE INSTR (UPPER (i_error_message),
                       owner || '.' || constraint_name
                      ) > 0
            AND ROWNUM = 1;
      END IF;

      RETURN v_message;
   EXCEPTION
      WHEN NO_DATA_FOUND
      THEN
         RETURN NULL;
   END;