1: PACKAGE BODY gl_drm_integration_pkg AS
2: /* $Header: gldrmpkb.pls 120.9 2011/04/21 07:42:56 vnetan noship $ */
3: -- global variables
4: g_debug_mode BOOLEAN DEFAULT TRUE;
5: g_value_set_name FND_FLEX_VALUE_SETS.flex_value_set_name%TYPE;
6: g_value_set_id FND_FLEX_VALUE_SETS.flex_value_set_id%TYPE;
7:
8: -- table types to pass values to GL API
9: g_flex_values_tbl GL_COA_SEG_VAL_IMP_PUB.gl_flex_values_tbl_type;
2: /* $Header: gldrmpkb.pls 120.9 2011/04/21 07:42:56 vnetan noship $ */
3: -- global variables
4: g_debug_mode BOOLEAN DEFAULT TRUE;
5: g_value_set_name FND_FLEX_VALUE_SETS.flex_value_set_name%TYPE;
6: g_value_set_id FND_FLEX_VALUE_SETS.flex_value_set_id%TYPE;
7:
8: -- table types to pass values to GL API
9: g_flex_values_tbl GL_COA_SEG_VAL_IMP_PUB.gl_flex_values_tbl_type;
10: g_norm_hierarchy_tbl GL_COA_SEG_VAL_IMP_PUB.gl_flex_values_nh_tbl_type;
536: ORDER BY assignment_date, value_attribute_type;
537:
538:
539: -- variables for value set attributes
540: l_vset_format FND_FLEX_VALUE_SETS.format_type%TYPE;
541: l_max_length FND_FLEX_VALUE_SETS.maximum_size%TYPE;
542: l_precision FND_FLEX_VALUE_SETS.number_precision%TYPE;
543: l_alpha_allowed FND_FLEX_VALUE_SETS.alphanumeric_allowed_flag%TYPE;
544: l_uppercase_only FND_FLEX_VALUE_SETS.uppercase_only_flag%TYPE;
537:
538:
539: -- variables for value set attributes
540: l_vset_format FND_FLEX_VALUE_SETS.format_type%TYPE;
541: l_max_length FND_FLEX_VALUE_SETS.maximum_size%TYPE;
542: l_precision FND_FLEX_VALUE_SETS.number_precision%TYPE;
543: l_alpha_allowed FND_FLEX_VALUE_SETS.alphanumeric_allowed_flag%TYPE;
544: l_uppercase_only FND_FLEX_VALUE_SETS.uppercase_only_flag%TYPE;
545: l_zero_fill FND_FLEX_VALUE_SETS.numeric_mode_enabled_flag%TYPE;
538:
539: -- variables for value set attributes
540: l_vset_format FND_FLEX_VALUE_SETS.format_type%TYPE;
541: l_max_length FND_FLEX_VALUE_SETS.maximum_size%TYPE;
542: l_precision FND_FLEX_VALUE_SETS.number_precision%TYPE;
543: l_alpha_allowed FND_FLEX_VALUE_SETS.alphanumeric_allowed_flag%TYPE;
544: l_uppercase_only FND_FLEX_VALUE_SETS.uppercase_only_flag%TYPE;
545: l_zero_fill FND_FLEX_VALUE_SETS.numeric_mode_enabled_flag%TYPE;
546: l_min_value FND_FLEX_VALUE_SETS.minimum_value%TYPE;
539: -- variables for value set attributes
540: l_vset_format FND_FLEX_VALUE_SETS.format_type%TYPE;
541: l_max_length FND_FLEX_VALUE_SETS.maximum_size%TYPE;
542: l_precision FND_FLEX_VALUE_SETS.number_precision%TYPE;
543: l_alpha_allowed FND_FLEX_VALUE_SETS.alphanumeric_allowed_flag%TYPE;
544: l_uppercase_only FND_FLEX_VALUE_SETS.uppercase_only_flag%TYPE;
545: l_zero_fill FND_FLEX_VALUE_SETS.numeric_mode_enabled_flag%TYPE;
546: l_min_value FND_FLEX_VALUE_SETS.minimum_value%TYPE;
547: l_max_value FND_FLEX_VALUE_SETS.maximum_value%TYPE;
540: l_vset_format FND_FLEX_VALUE_SETS.format_type%TYPE;
541: l_max_length FND_FLEX_VALUE_SETS.maximum_size%TYPE;
542: l_precision FND_FLEX_VALUE_SETS.number_precision%TYPE;
543: l_alpha_allowed FND_FLEX_VALUE_SETS.alphanumeric_allowed_flag%TYPE;
544: l_uppercase_only FND_FLEX_VALUE_SETS.uppercase_only_flag%TYPE;
545: l_zero_fill FND_FLEX_VALUE_SETS.numeric_mode_enabled_flag%TYPE;
546: l_min_value FND_FLEX_VALUE_SETS.minimum_value%TYPE;
547: l_max_value FND_FLEX_VALUE_SETS.maximum_value%TYPE;
548: l_storage_value FND_FLEX_VALUES.flex_value%TYPE;
541: l_max_length FND_FLEX_VALUE_SETS.maximum_size%TYPE;
542: l_precision FND_FLEX_VALUE_SETS.number_precision%TYPE;
543: l_alpha_allowed FND_FLEX_VALUE_SETS.alphanumeric_allowed_flag%TYPE;
544: l_uppercase_only FND_FLEX_VALUE_SETS.uppercase_only_flag%TYPE;
545: l_zero_fill FND_FLEX_VALUE_SETS.numeric_mode_enabled_flag%TYPE;
546: l_min_value FND_FLEX_VALUE_SETS.minimum_value%TYPE;
547: l_max_value FND_FLEX_VALUE_SETS.maximum_value%TYPE;
548: l_storage_value FND_FLEX_VALUES.flex_value%TYPE;
549: l_display_value FND_FLEX_VALUES.flex_value%TYPE;
542: l_precision FND_FLEX_VALUE_SETS.number_precision%TYPE;
543: l_alpha_allowed FND_FLEX_VALUE_SETS.alphanumeric_allowed_flag%TYPE;
544: l_uppercase_only FND_FLEX_VALUE_SETS.uppercase_only_flag%TYPE;
545: l_zero_fill FND_FLEX_VALUE_SETS.numeric_mode_enabled_flag%TYPE;
546: l_min_value FND_FLEX_VALUE_SETS.minimum_value%TYPE;
547: l_max_value FND_FLEX_VALUE_SETS.maximum_value%TYPE;
548: l_storage_value FND_FLEX_VALUES.flex_value%TYPE;
549: l_display_value FND_FLEX_VALUES.flex_value%TYPE;
550:
543: l_alpha_allowed FND_FLEX_VALUE_SETS.alphanumeric_allowed_flag%TYPE;
544: l_uppercase_only FND_FLEX_VALUE_SETS.uppercase_only_flag%TYPE;
545: l_zero_fill FND_FLEX_VALUE_SETS.numeric_mode_enabled_flag%TYPE;
546: l_min_value FND_FLEX_VALUE_SETS.minimum_value%TYPE;
547: l_max_value FND_FLEX_VALUE_SETS.maximum_value%TYPE;
548: l_storage_value FND_FLEX_VALUES.flex_value%TYPE;
549: l_display_value FND_FLEX_VALUES.flex_value%TYPE;
550:
551: -- counters
588: l_uppercase_only,
589: l_zero_fill,
590: l_min_value,
591: l_max_value
592: FROM fnd_flex_value_sets
593: WHERE flex_value_set_name = g_value_set_name;
594:
595: EXCEPTION
596: WHEN NO_DATA_FOUND THEN
1262: c_drm_false CONSTANT VARCHAR2(10) := 'False';
1263: c_drm_node_type CONSTANT VARCHAR2(20) := 'OracleGL.NodeType';
1264:
1265: -- version level properties
1266: l_value_set_details fnd_flex_value_sets%ROWTYPE;
1267: l_natural_account VARCHAR2(10);
1268:
1269: -- node level properties
1270: l_flex_value_id FND_FLEX_VALUES.flex_value_id%TYPE;
1387:
1388: log_message('Getting Value Set details');
1389: SELECT *
1390: INTO l_value_set_details
1391: FROM fnd_flex_value_sets
1392: WHERE flex_value_set_name = p_value_set_name;
1393:
1394: -- check for natural account
1395: BEGIN
1394: -- check for natural account
1395: BEGIN
1396: SELECT c_drm_true
1397: INTO l_natural_account
1398: FROM fnd_flex_value_sets vs
1399: WHERE vs.flex_value_set_id = l_value_set_details.flex_value_set_id
1400: AND EXISTS
1401: (SELECT 'X'
1402: FROM fnd_flex_validation_qualifiers vq