1921: IF (value_error_set) THEN
1922: l_ssv_enc_message := fnd_message.get_encoded;
1923: END IF;
1924:
1925: fnd_flex_val_util.validate_value_ssv
1926: (p_value => user_value,
1927: p_is_displayed => p_is_displayed,
1928: p_vset_name => vs_name,
1929: p_vset_format => vs_format,
1938: x_display_value => l_display_value,
1939: x_success => l_success);
1940:
1941: IF (fnd_flex_server1.g_debug_level > 0) THEN
1942: add_debug(Rtrim(Substr(fnd_flex_val_util.get_debug,1,2000), chr_newline));
1943: END IF;
1944: IF (l_success = fnd_flex_val_util.g_ret_no_error) THEN
1945: --
1946: -- No error case.
1940:
1941: IF (fnd_flex_server1.g_debug_level > 0) THEN
1942: add_debug(Rtrim(Substr(fnd_flex_val_util.get_debug,1,2000), chr_newline));
1943: END IF;
1944: IF (l_success = fnd_flex_val_util.g_ret_no_error) THEN
1945: --
1946: -- No error case.
1947: --
1948: l_return := FF_VVALID;
1956: -- Since this is an error case, get the message.
1957: --
1958: l_utv_enc_message := fnd_message.get_encoded;
1959:
1960: IF ((l_success = fnd_flex_val_util.g_ret_value_too_long) OR
1961: (l_success = fnd_flex_val_util.g_ret_invalid_number) OR
1962: (l_success = fnd_flex_val_util.g_ret_invalid_date)) THEN
1963: --
1964: -- Format Errors.
1957: --
1958: l_utv_enc_message := fnd_message.get_encoded;
1959:
1960: IF ((l_success = fnd_flex_val_util.g_ret_value_too_long) OR
1961: (l_success = fnd_flex_val_util.g_ret_invalid_number) OR
1962: (l_success = fnd_flex_val_util.g_ret_invalid_date)) THEN
1963: --
1964: -- Format Errors.
1965: --
1958: l_utv_enc_message := fnd_message.get_encoded;
1959:
1960: IF ((l_success = fnd_flex_val_util.g_ret_value_too_long) OR
1961: (l_success = fnd_flex_val_util.g_ret_invalid_number) OR
1962: (l_success = fnd_flex_val_util.g_ret_invalid_date)) THEN
1963: --
1964: -- Format Errors.
1965: --
1966: l_return := FF_VFORMAT;
1968: fnd_message.set_encoded(l_ssv_enc_message);
1969: ELSE
1970: fnd_message.set_encoded(l_utv_enc_message);
1971: END IF;
1972: ELSIF ((l_success = fnd_flex_val_util.g_ret_vs_bad_precision) OR
1973: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1974: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1975: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1976: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1969: ELSE
1970: fnd_message.set_encoded(l_utv_enc_message);
1971: END IF;
1972: ELSIF ((l_success = fnd_flex_val_util.g_ret_vs_bad_precision) OR
1973: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1974: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1975: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1976: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1977: (l_success = fnd_flex_val_util.g_ret_exception_others)) THEN
1970: fnd_message.set_encoded(l_utv_enc_message);
1971: END IF;
1972: ELSIF ((l_success = fnd_flex_val_util.g_ret_vs_bad_precision) OR
1973: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1974: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1975: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1976: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1977: (l_success = fnd_flex_val_util.g_ret_exception_others)) THEN
1978: --
1971: END IF;
1972: ELSIF ((l_success = fnd_flex_val_util.g_ret_vs_bad_precision) OR
1973: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1974: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1975: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1976: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1977: (l_success = fnd_flex_val_util.g_ret_exception_others)) THEN
1978: --
1979: -- Serious errors.
1972: ELSIF ((l_success = fnd_flex_val_util.g_ret_vs_bad_precision) OR
1973: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1974: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1975: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1976: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1977: (l_success = fnd_flex_val_util.g_ret_exception_others)) THEN
1978: --
1979: -- Serious errors.
1980: --
1973: (l_success = fnd_flex_val_util.g_ret_vs_bad_format) OR
1974: (l_success = fnd_flex_val_util.g_ret_vs_bad_numrange) OR
1975: (l_success = fnd_flex_val_util.g_ret_vs_bad_daterange) OR
1976: (l_success = fnd_flex_val_util.g_ret_vs_bad_date) OR
1977: (l_success = fnd_flex_val_util.g_ret_exception_others)) THEN
1978: --
1979: -- Serious errors.
1980: --
1981: l_return := FF_VERROR;
1980: --
1981: l_return := FF_VERROR;
1982: fnd_message.set_encoded(l_utv_enc_message);
1983:
1984: ELSIF (l_success = fnd_flex_val_util.g_ret_val_out_of_range) THEN
1985: --
1986: -- Bound Check Error.
1987: --
1988: l_return := FF_VBOUNDS;
4103:
4104: l_format_in VARCHAR2(500);
4105: l_format_out VARCHAR2(500);
4106: BEGIN
4107: IF (fnd_flex_val_util.get_display_format
4108: (p_vset_format => flex_data_type,
4109: p_max_length => string_length,
4110: p_precision => NULL,
4111: x_format_in => l_format_in,
4135: string_length IN NUMBER) RETURN VARCHAR2 IS
4136:
4137: l_format VARCHAR2(500);
4138: BEGIN
4139: IF (fnd_flex_val_util.get_storage_format(p_vset_format => flex_data_type,
4140: p_max_length => string_length,
4141: p_precision => NULL,
4142: x_format => l_format)) THEN
4143: RETURN(l_format);
4678: ELSIF (p_debug_mode = 'STATEMENT') THEN
4679: fnd_flex_server1.g_debug_level := 5;
4680: ELSIF (p_debug_mode = 'ALL') THEN
4681: fnd_flex_server1.g_debug_level := 6;
4682: fnd_flex_val_util.set_debugging(TRUE);
4683: ELSE
4684: fnd_flex_server1.g_debug_level := 0;
4685: END IF;
4686: EXCEPTION
5308:
5309: --
5310: -- Decimal separators.
5311: --
5312: IF (fnd_flex_val_util.get_mask('CANONICAL_NUMERIC_CHARS',tmp_varchar2)) THEN
5313: m_nc := Substr(tmp_varchar2,1,1);
5314: ELSE
5315: m_nc := '.';
5316: END IF;
5314: ELSE
5315: m_nc := '.';
5316: END IF;
5317:
5318: IF (fnd_flex_val_util.get_mask('DB_NUMERIC_CHARS',tmp_varchar2)) THEN
5319: m_nb := Substr(tmp_varchar2,1,1);
5320: ELSE
5321: m_nb := '.';
5322: END IF;
5320: ELSE
5321: m_nb := '.';
5322: END IF;
5323:
5324: IF (fnd_flex_val_util.get_mask('NLS_NUMERIC_CHARS_OUT',tmp_varchar2)) THEN
5325: m_nd := Substr(tmp_varchar2,1,1);
5326: ELSE
5327: m_nd := '.';
5328: END IF;