1935: IF (value_error_set) THEN
1936: l_ssv_enc_message := fnd_message.get_encoded;
1937: END IF;
1938:
1939: fnd_flex_val_util.validate_value_ssv
1940: (p_value => user_value,
1941: p_is_displayed => p_is_displayed,
1942: p_vset_name => vs_name,
1943: p_vset_format => vs_format,
1952: x_display_value => l_display_value,
1953: x_success => l_success);
1954:
1955: IF (fnd_flex_server1.g_debug_level > 0) THEN
1956: add_debug(Rtrim(Substr(fnd_flex_val_util.get_debug,1,2000), chr_newline));
1957: END IF;
1958: IF (l_success = fnd_flex_val_util.g_ret_no_error) THEN
1959: --
1960: -- No error case.
1954:
1955: IF (fnd_flex_server1.g_debug_level > 0) THEN
1956: add_debug(Rtrim(Substr(fnd_flex_val_util.get_debug,1,2000), chr_newline));
1957: END IF;
1958: IF (l_success = fnd_flex_val_util.g_ret_no_error) THEN
1959: --
1960: -- No error case.
1961: --
1962: l_return := FF_VVALID;
1970: -- Since this is an error case, get the message.
1971: --
1972: l_utv_enc_message := fnd_message.get_encoded;
1973:
1974: IF ((l_success = fnd_flex_val_util.g_ret_value_too_long) OR
1975: (l_success = fnd_flex_val_util.g_ret_invalid_number) OR
1976: (l_success = fnd_flex_val_util.g_ret_invalid_date)) THEN
1977: --
1978: -- Format Errors.
1971: --
1972: l_utv_enc_message := fnd_message.get_encoded;
1973:
1974: IF ((l_success = fnd_flex_val_util.g_ret_value_too_long) OR
1975: (l_success = fnd_flex_val_util.g_ret_invalid_number) OR
1976: (l_success = fnd_flex_val_util.g_ret_invalid_date)) THEN
1977: --
1978: -- Format Errors.
1979: --
1972: l_utv_enc_message := fnd_message.get_encoded;
1973:
1974: IF ((l_success = fnd_flex_val_util.g_ret_value_too_long) OR
1975: (l_success = fnd_flex_val_util.g_ret_invalid_number) OR
1976: (l_success = fnd_flex_val_util.g_ret_invalid_date)) THEN
1977: --
1978: -- Format Errors.
1979: --
1980: l_return := FF_VFORMAT;
1982: fnd_message.set_encoded(l_ssv_enc_message);
1983: ELSE
1984: fnd_message.set_encoded(l_utv_enc_message);
1985: END IF;
1986: ELSIF ((l_success = fnd_flex_val_util.g_ret_vs_bad_precision) OR
1987: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1988: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1989: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1990: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1983: ELSE
1984: fnd_message.set_encoded(l_utv_enc_message);
1985: END IF;
1986: ELSIF ((l_success = fnd_flex_val_util.g_ret_vs_bad_precision) OR
1987: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1988: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1989: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1990: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1991: (l_success = fnd_flex_val_util.g_ret_exception_others)) THEN
1984: fnd_message.set_encoded(l_utv_enc_message);
1985: END IF;
1986: ELSIF ((l_success = fnd_flex_val_util.g_ret_vs_bad_precision) OR
1987: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1988: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1989: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1990: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1991: (l_success = fnd_flex_val_util.g_ret_exception_others)) THEN
1992: --
1985: END IF;
1986: ELSIF ((l_success = fnd_flex_val_util.g_ret_vs_bad_precision) OR
1987: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1988: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1989: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1990: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1991: (l_success = fnd_flex_val_util.g_ret_exception_others)) THEN
1992: --
1993: -- Serious errors.
1986: ELSIF ((l_success = fnd_flex_val_util.g_ret_vs_bad_precision) OR
1987: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1988: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1989: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1990: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1991: (l_success = fnd_flex_val_util.g_ret_exception_others)) THEN
1992: --
1993: -- Serious errors.
1994: --
1987: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1988: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1989: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1990: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1991: (l_success = fnd_flex_val_util.g_ret_exception_others)) THEN
1992: --
1993: -- Serious errors.
1994: --
1995: l_return := FF_VERROR;
1994: --
1995: l_return := FF_VERROR;
1996: fnd_message.set_encoded(l_utv_enc_message);
1997:
1998: ELSIF (l_success = fnd_flex_val_util.g_ret_val_out_of_range) THEN
1999: --
2000: -- Bound Check Error.
2001: --
2002: l_return := FF_VBOUNDS;
4123:
4124: l_format_in VARCHAR2(500);
4125: l_format_out VARCHAR2(500);
4126: BEGIN
4127: IF (fnd_flex_val_util.get_display_format
4128: (p_vset_format => flex_data_type,
4129: p_max_length => string_length,
4130: p_precision => NULL,
4131: x_format_in => l_format_in,
4155: string_length IN NUMBER) RETURN VARCHAR2 IS
4156:
4157: l_format VARCHAR2(500);
4158: BEGIN
4159: IF (fnd_flex_val_util.get_storage_format(p_vset_format => flex_data_type,
4160: p_max_length => string_length,
4161: p_precision => NULL,
4162: x_format => l_format)) THEN
4163: RETURN(l_format);
4698: ELSIF (p_debug_mode = 'STATEMENT') THEN
4699: fnd_flex_server1.g_debug_level := 5;
4700: ELSIF (p_debug_mode = 'ALL') THEN
4701: fnd_flex_server1.g_debug_level := 6;
4702: fnd_flex_val_util.set_debugging(TRUE);
4703: ELSE
4704: fnd_flex_server1.g_debug_level := 0;
4705: END IF;
4706: EXCEPTION
5328:
5329: --
5330: -- Decimal separators.
5331: --
5332: IF (fnd_flex_val_util.get_mask('CANONICAL_NUMERIC_CHARS',tmp_varchar2)) THEN
5333: m_nc := Substr(tmp_varchar2,1,1);
5334: ELSE
5335: m_nc := '.';
5336: END IF;
5334: ELSE
5335: m_nc := '.';
5336: END IF;
5337:
5338: IF (fnd_flex_val_util.get_mask('DB_NUMERIC_CHARS',tmp_varchar2)) THEN
5339: m_nb := Substr(tmp_varchar2,1,1);
5340: ELSE
5341: m_nb := '.';
5342: END IF;
5340: ELSE
5341: m_nb := '.';
5342: END IF;
5343:
5344: IF (fnd_flex_val_util.get_mask('NLS_NUMERIC_CHARS_OUT',tmp_varchar2)) THEN
5345: m_nd := Substr(tmp_varchar2,1,1);
5346: ELSE
5347: m_nd := '.';
5348: END IF;