6445: l_nsegments NUMBER;
6446: l_message VARCHAR2(1000);
6447: l_validation_type VARCHAR2(1000);
6448: l_format_type VARCHAR2(1000);
6449: l_flextype FND_FLEX_KEY_API.FLEXFIELD_TYPE;
6450: l_strctype FND_FLEX_KEY_API.STRUCTURE_TYPE;
6451: l_segtype FND_FLEX_KEY_API.SEGMENT_TYPE;
6452: l_seglist FND_FLEX_KEY_API.SEGMENT_LIST;
6453: l_vset_r FND_VSET.VALUESET_R;
6446: l_message VARCHAR2(1000);
6447: l_validation_type VARCHAR2(1000);
6448: l_format_type VARCHAR2(1000);
6449: l_flextype FND_FLEX_KEY_API.FLEXFIELD_TYPE;
6450: l_strctype FND_FLEX_KEY_API.STRUCTURE_TYPE;
6451: l_segtype FND_FLEX_KEY_API.SEGMENT_TYPE;
6452: l_seglist FND_FLEX_KEY_API.SEGMENT_LIST;
6453: l_vset_r FND_VSET.VALUESET_R;
6454: l_vset_dr FND_VSET.VALUESET_DR;
6447: l_validation_type VARCHAR2(1000);
6448: l_format_type VARCHAR2(1000);
6449: l_flextype FND_FLEX_KEY_API.FLEXFIELD_TYPE;
6450: l_strctype FND_FLEX_KEY_API.STRUCTURE_TYPE;
6451: l_segtype FND_FLEX_KEY_API.SEGMENT_TYPE;
6452: l_seglist FND_FLEX_KEY_API.SEGMENT_LIST;
6453: l_vset_r FND_VSET.VALUESET_R;
6454: l_vset_dr FND_VSET.VALUESET_DR;
6455:
6448: l_format_type VARCHAR2(1000);
6449: l_flextype FND_FLEX_KEY_API.FLEXFIELD_TYPE;
6450: l_strctype FND_FLEX_KEY_API.STRUCTURE_TYPE;
6451: l_segtype FND_FLEX_KEY_API.SEGMENT_TYPE;
6452: l_seglist FND_FLEX_KEY_API.SEGMENT_LIST;
6453: l_vset_r FND_VSET.VALUESET_R;
6454: l_vset_dr FND_VSET.VALUESET_DR;
6455:
6456: PROCEDURE compute_segment_warnings (p_application_column_name IN VARCHAR2)
6459: l_num_binds NUMBER;
6460: i NUMBER;
6461: BEGIN
6462:
6463: l_segtype := fnd_flex_key_api.find_segment(l_flextype, l_strctype, p_application_column_name);
6464:
6465: if (l_segtype.value_set_id is not null) then
6466:
6467: fnd_vset.get_valueset(l_segtype.value_set_id, l_vset_r, l_vset_dr);
6560: BEGIN
6561:
6562: g_non_forms_warnings_count := 0;
6563:
6564: fnd_flex_key_api.set_session_mode(session_mode => 'customer_data');
6565:
6566: select application_short_name, application_name
6567: into l_application_short_name, l_application_name
6568: from fnd_application_vl
6573: where application_id=p_application_id
6574: and id_flex_code=p_id_flex_code
6575: and id_flex_num=p_id_flex_num;
6576:
6577: l_flextype := fnd_flex_key_api.find_flexfield(appl_short_name => l_application_short_name, flex_code => p_id_flex_code);
6578:
6579: l_strctype := fnd_flex_key_api.find_structure(l_flextype, l_id_flex_structure_code);
6580:
6581: fnd_flex_key_api.get_segments(l_flextype, l_strctype, TRUE, l_nsegments, l_seglist);
6575: and id_flex_num=p_id_flex_num;
6576:
6577: l_flextype := fnd_flex_key_api.find_flexfield(appl_short_name => l_application_short_name, flex_code => p_id_flex_code);
6578:
6579: l_strctype := fnd_flex_key_api.find_structure(l_flextype, l_id_flex_structure_code);
6580:
6581: fnd_flex_key_api.get_segments(l_flextype, l_strctype, TRUE, l_nsegments, l_seglist);
6582:
6583: for i in 1..l_nsegments loop
6577: l_flextype := fnd_flex_key_api.find_flexfield(appl_short_name => l_application_short_name, flex_code => p_id_flex_code);
6578:
6579: l_strctype := fnd_flex_key_api.find_structure(l_flextype, l_id_flex_structure_code);
6580:
6581: fnd_flex_key_api.get_segments(l_flextype, l_strctype, TRUE, l_nsegments, l_seglist);
6582:
6583: for i in 1..l_nsegments loop
6584:
6585: compute_segment_warnings(l_seglist(i));