[Home] [Help]
4:
5: chr_newline CONSTANT VARCHAR2(8) := fnd_global.newline;
6:
7: SUBTYPE vset_type IS fnd_flex_value_sets%ROWTYPE;
8: SUBTYPE value_type IS fnd_flex_values_vl%ROWTYPE;
9: SUBTYPE noview_value_type IS fnd_flex_values%ROWTYPE;
10:
11: TYPE bind_record_type IS RECORD
12: (pos number,
2146: x_success := g_ret_others;
2147: RETURN;
2148: END;
2149: ELSIF (l_vset.validation_type IN ('I','D')) THEN
2150: l_tvset.application_table_name := 'FND_FLEX_VALUES_VL';
2151:
2152: l_tvset.value_column_name := 'FLEX_VALUE';
2153: l_tvset.value_column_type := 'V';
2154: l_tvset.value_column_size := 150;
2799:
2800: /*-------------------------------------------------------------------
2801: When a value record exists in fnd_flex_values table, but not in
2802: fnd_flex_values_tl, the record also does not exist in the view,
2803: fnd_flex_values_vl. We read the existing value from fnd_flex_values,
2804: then copy the column contents to the view record for further processing
2805: --------------------------------------------------------------------*/
2806: PROCEDURE copy_to_px_value(v_value IN noview_value_type,
2807: px_value IN OUT nocopy value_type)
2895: IF (p_vset.validation_type = 'I') THEN
2896: BEGIN
2897: SELECT *
2898: INTO px_value
2899: FROM fnd_flex_values_vl
2900: WHERE flex_value_set_id = p_vset.flex_value_set_id
2901: AND flex_value = p_flex_value;
2902: EXCEPTION
2903: WHEN no_data_found THEN
2922: ELSIF (p_vset.validation_type = 'D') THEN
2923: BEGIN
2924: SELECT *
2925: INTO px_value
2926: FROM fnd_flex_values_vl
2927: WHERE flex_value_set_id = p_vset.flex_value_set_id
2928: AND parent_flex_value_low = p_parent_value
2929: AND flex_value = p_flex_value;
2930: EXCEPTION