[Home] [Help]
1: PACKAGE BODY JG_JOURNAL_ALLOCATIONS_PKG AS
2: /* $Header: jgzztajb.pls 120.5 2006/06/06 12:38:35 vgadde ship $ */
3:
4: /* ---------------------------------------------------------------------
5: | PRIVATE PROCEDURE |
10: | Main |
11: --------------------------------------------------------------------- */
12: PROCEDURE get_source_and_category IS
13: BEGIN
14: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.get_source_and_category');
15: SELECT cat.user_je_category_name,
16: src.user_je_source_name,
17: usr.user_conversion_type
18: INTO JG_JOURNAL_ALLOCATIONS_PKG.G_user_je_category_name,
14: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.get_source_and_category');
15: SELECT cat.user_je_category_name,
16: src.user_je_source_name,
17: usr.user_conversion_type
18: INTO JG_JOURNAL_ALLOCATIONS_PKG.G_user_je_category_name,
19: JG_JOURNAL_ALLOCATIONS_PKG.G_user_je_source_name,
20: JG_JOURNAL_ALLOCATIONS_PKG.G_translated_user
21: FROM GL_JE_SOURCES src,
22: GL_JE_CATEGORIES cat,
15: SELECT cat.user_je_category_name,
16: src.user_je_source_name,
17: usr.user_conversion_type
18: INTO JG_JOURNAL_ALLOCATIONS_PKG.G_user_je_category_name,
19: JG_JOURNAL_ALLOCATIONS_PKG.G_user_je_source_name,
20: JG_JOURNAL_ALLOCATIONS_PKG.G_translated_user
21: FROM GL_JE_SOURCES src,
22: GL_JE_CATEGORIES cat,
23: GL_DAILY_CONVERSION_TYPES usr
16: src.user_je_source_name,
17: usr.user_conversion_type
18: INTO JG_JOURNAL_ALLOCATIONS_PKG.G_user_je_category_name,
19: JG_JOURNAL_ALLOCATIONS_PKG.G_user_je_source_name,
20: JG_JOURNAL_ALLOCATIONS_PKG.G_translated_user
21: FROM GL_JE_SOURCES src,
22: GL_JE_CATEGORIES cat,
23: GL_DAILY_CONVERSION_TYPES usr
24: WHERE src.je_source_name = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source AND
20: JG_JOURNAL_ALLOCATIONS_PKG.G_translated_user
21: FROM GL_JE_SOURCES src,
22: GL_JE_CATEGORIES cat,
23: GL_DAILY_CONVERSION_TYPES usr
24: WHERE src.je_source_name = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source AND
25: cat.je_category_name = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category AND
26: usr.conversion_type = 'User';
27: JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.get_source_and_category');
28: END get_source_and_category;
21: FROM GL_JE_SOURCES src,
22: GL_JE_CATEGORIES cat,
23: GL_DAILY_CONVERSION_TYPES usr
24: WHERE src.je_source_name = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source AND
25: cat.je_category_name = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category AND
26: usr.conversion_type = 'User';
27: JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.get_source_and_category');
28: END get_source_and_category;
29:
23: GL_DAILY_CONVERSION_TYPES usr
24: WHERE src.je_source_name = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source AND
25: cat.je_category_name = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category AND
26: usr.conversion_type = 'User';
27: JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.get_source_and_category');
28: END get_source_and_category;
29:
30: /* ---------------------------------------------------------------------
31: | PRIVATE PROCEDURE |
36: | Main |
37: --------------------------------------------------------------------- */
38: PROCEDURE get_set_of_books_name IS
39: BEGIN
40: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.get_set_of_books_name');
41: SELECT name
42: INTO JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_name -- for report displaying purposes
43: FROM gl_sets_of_books
44: WHERE set_of_books_id = JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_id;
38: PROCEDURE get_set_of_books_name IS
39: BEGIN
40: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.get_set_of_books_name');
41: SELECT name
42: INTO JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_name -- for report displaying purposes
43: FROM gl_sets_of_books
44: WHERE set_of_books_id = JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_id;
45: JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.get_set_of_books_name');
46: END get_set_of_books_name;
40: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.get_set_of_books_name');
41: SELECT name
42: INTO JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_name -- for report displaying purposes
43: FROM gl_sets_of_books
44: WHERE set_of_books_id = JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_id;
45: JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.get_set_of_books_name');
46: END get_set_of_books_name;
47:
48: /* ---------------------------------------------------------------------
41: SELECT name
42: INTO JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_name -- for report displaying purposes
43: FROM gl_sets_of_books
44: WHERE set_of_books_id = JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_id;
45: JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.get_set_of_books_name');
46: END get_set_of_books_name;
47:
48: /* ---------------------------------------------------------------------
49: | PRIVATE PROCEDURE |
80: p_debug_flag IN VARCHAR2) IS
81: l_ext_precision NUMBER;
82: l_min_acct_unit NUMBER;
83: BEGIN
84: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.set_parameters');
85: JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_id := p_set_of_books_id;
86: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
87: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
88: JG_JOURNAL_ALLOCATIONS_PKG.G_period_set_name := p_period_set_name;
81: l_ext_precision NUMBER;
82: l_min_acct_unit NUMBER;
83: BEGIN
84: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.set_parameters');
85: JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_id := p_set_of_books_id;
86: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
87: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
88: JG_JOURNAL_ALLOCATIONS_PKG.G_period_set_name := p_period_set_name;
89: JG_JOURNAL_ALLOCATIONS_PKG.G_rule_set_id := p_rule_set_id;
82: l_min_acct_unit NUMBER;
83: BEGIN
84: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.set_parameters');
85: JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_id := p_set_of_books_id;
86: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
87: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
88: JG_JOURNAL_ALLOCATIONS_PKG.G_period_set_name := p_period_set_name;
89: JG_JOURNAL_ALLOCATIONS_PKG.G_rule_set_id := p_rule_set_id;
90: JG_JOURNAL_ALLOCATIONS_PKG.G_period_name := p_period_name;
83: BEGIN
84: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.set_parameters');
85: JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_id := p_set_of_books_id;
86: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
87: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
88: JG_JOURNAL_ALLOCATIONS_PKG.G_period_set_name := p_period_set_name;
89: JG_JOURNAL_ALLOCATIONS_PKG.G_rule_set_id := p_rule_set_id;
90: JG_JOURNAL_ALLOCATIONS_PKG.G_period_name := p_period_name;
91: JG_JOURNAL_ALLOCATIONS_PKG.G_currency_code := p_currency_code;
84: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.set_parameters');
85: JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_id := p_set_of_books_id;
86: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
87: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
88: JG_JOURNAL_ALLOCATIONS_PKG.G_period_set_name := p_period_set_name;
89: JG_JOURNAL_ALLOCATIONS_PKG.G_rule_set_id := p_rule_set_id;
90: JG_JOURNAL_ALLOCATIONS_PKG.G_period_name := p_period_name;
91: JG_JOURNAL_ALLOCATIONS_PKG.G_currency_code := p_currency_code;
92: JG_JOURNAL_ALLOCATIONS_PKG.G_amount_type := p_amount_type;
85: JG_JOURNAL_ALLOCATIONS_PKG.G_set_of_books_id := p_set_of_books_id;
86: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
87: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
88: JG_JOURNAL_ALLOCATIONS_PKG.G_period_set_name := p_period_set_name;
89: JG_JOURNAL_ALLOCATIONS_PKG.G_rule_set_id := p_rule_set_id;
90: JG_JOURNAL_ALLOCATIONS_PKG.G_period_name := p_period_name;
91: JG_JOURNAL_ALLOCATIONS_PKG.G_currency_code := p_currency_code;
92: JG_JOURNAL_ALLOCATIONS_PKG.G_amount_type := p_amount_type;
93: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type := p_balance_type;
86: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
87: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
88: JG_JOURNAL_ALLOCATIONS_PKG.G_period_set_name := p_period_set_name;
89: JG_JOURNAL_ALLOCATIONS_PKG.G_rule_set_id := p_rule_set_id;
90: JG_JOURNAL_ALLOCATIONS_PKG.G_period_name := p_period_name;
91: JG_JOURNAL_ALLOCATIONS_PKG.G_currency_code := p_currency_code;
92: JG_JOURNAL_ALLOCATIONS_PKG.G_amount_type := p_amount_type;
93: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type := p_balance_type;
94: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type_id := p_balance_type_id;
87: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
88: JG_JOURNAL_ALLOCATIONS_PKG.G_period_set_name := p_period_set_name;
89: JG_JOURNAL_ALLOCATIONS_PKG.G_rule_set_id := p_rule_set_id;
90: JG_JOURNAL_ALLOCATIONS_PKG.G_period_name := p_period_name;
91: JG_JOURNAL_ALLOCATIONS_PKG.G_currency_code := p_currency_code;
92: JG_JOURNAL_ALLOCATIONS_PKG.G_amount_type := p_amount_type;
93: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type := p_balance_type;
94: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type_id := p_balance_type_id;
95: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_segment_value := p_balance_segment_value;
88: JG_JOURNAL_ALLOCATIONS_PKG.G_period_set_name := p_period_set_name;
89: JG_JOURNAL_ALLOCATIONS_PKG.G_rule_set_id := p_rule_set_id;
90: JG_JOURNAL_ALLOCATIONS_PKG.G_period_name := p_period_name;
91: JG_JOURNAL_ALLOCATIONS_PKG.G_currency_code := p_currency_code;
92: JG_JOURNAL_ALLOCATIONS_PKG.G_amount_type := p_amount_type;
93: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type := p_balance_type;
94: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type_id := p_balance_type_id;
95: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_segment_value := p_balance_segment_value;
96: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id := p_destn_set_of_books_id;
89: JG_JOURNAL_ALLOCATIONS_PKG.G_rule_set_id := p_rule_set_id;
90: JG_JOURNAL_ALLOCATIONS_PKG.G_period_name := p_period_name;
91: JG_JOURNAL_ALLOCATIONS_PKG.G_currency_code := p_currency_code;
92: JG_JOURNAL_ALLOCATIONS_PKG.G_amount_type := p_amount_type;
93: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type := p_balance_type;
94: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type_id := p_balance_type_id;
95: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_segment_value := p_balance_segment_value;
96: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id := p_destn_set_of_books_id;
97: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name := p_destn_period_name;
90: JG_JOURNAL_ALLOCATIONS_PKG.G_period_name := p_period_name;
91: JG_JOURNAL_ALLOCATIONS_PKG.G_currency_code := p_currency_code;
92: JG_JOURNAL_ALLOCATIONS_PKG.G_amount_type := p_amount_type;
93: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type := p_balance_type;
94: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type_id := p_balance_type_id;
95: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_segment_value := p_balance_segment_value;
96: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id := p_destn_set_of_books_id;
97: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name := p_destn_period_name;
98: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source := p_destn_journal_source;
91: JG_JOURNAL_ALLOCATIONS_PKG.G_currency_code := p_currency_code;
92: JG_JOURNAL_ALLOCATIONS_PKG.G_amount_type := p_amount_type;
93: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type := p_balance_type;
94: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type_id := p_balance_type_id;
95: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_segment_value := p_balance_segment_value;
96: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id := p_destn_set_of_books_id;
97: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name := p_destn_period_name;
98: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source := p_destn_journal_source;
99: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category := p_destn_journal_category;
92: JG_JOURNAL_ALLOCATIONS_PKG.G_amount_type := p_amount_type;
93: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type := p_balance_type;
94: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type_id := p_balance_type_id;
95: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_segment_value := p_balance_segment_value;
96: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id := p_destn_set_of_books_id;
97: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name := p_destn_period_name;
98: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source := p_destn_journal_source;
99: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category := p_destn_journal_category;
100: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method := p_destn_segment_method;
93: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type := p_balance_type;
94: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type_id := p_balance_type_id;
95: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_segment_value := p_balance_segment_value;
96: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id := p_destn_set_of_books_id;
97: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name := p_destn_period_name;
98: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source := p_destn_journal_source;
99: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category := p_destn_journal_category;
100: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method := p_destn_segment_method;
101: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_cost_center_grouping := p_destn_cost_center_grouping;
94: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_type_id := p_balance_type_id;
95: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_segment_value := p_balance_segment_value;
96: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id := p_destn_set_of_books_id;
97: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name := p_destn_period_name;
98: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source := p_destn_journal_source;
99: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category := p_destn_journal_category;
100: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method := p_destn_segment_method;
101: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_cost_center_grouping := p_destn_cost_center_grouping;
102: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := p_error_handling;
95: JG_JOURNAL_ALLOCATIONS_PKG.G_balance_segment_value := p_balance_segment_value;
96: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id := p_destn_set_of_books_id;
97: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name := p_destn_period_name;
98: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source := p_destn_journal_source;
99: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category := p_destn_journal_category;
100: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method := p_destn_segment_method;
101: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_cost_center_grouping := p_destn_cost_center_grouping;
102: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := p_error_handling;
103: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := p_validate_only;
96: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id := p_destn_set_of_books_id;
97: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name := p_destn_period_name;
98: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source := p_destn_journal_source;
99: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category := p_destn_journal_category;
100: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method := p_destn_segment_method;
101: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_cost_center_grouping := p_destn_cost_center_grouping;
102: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := p_error_handling;
103: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := p_validate_only;
104: JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import := p_run_journal_import;
97: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name := p_destn_period_name;
98: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source := p_destn_journal_source;
99: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category := p_destn_journal_category;
100: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method := p_destn_segment_method;
101: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_cost_center_grouping := p_destn_cost_center_grouping;
102: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := p_error_handling;
103: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := p_validate_only;
104: JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import := p_run_journal_import;
105: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level := p_destn_summary_level;
98: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source := p_destn_journal_source;
99: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category := p_destn_journal_category;
100: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method := p_destn_segment_method;
101: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_cost_center_grouping := p_destn_cost_center_grouping;
102: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := p_error_handling;
103: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := p_validate_only;
104: JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import := p_run_journal_import;
105: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level := p_destn_summary_level;
106: JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields := p_import_desc_flexfields;
99: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_category := p_destn_journal_category;
100: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method := p_destn_segment_method;
101: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_cost_center_grouping := p_destn_cost_center_grouping;
102: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := p_error_handling;
103: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := p_validate_only;
104: JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import := p_run_journal_import;
105: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level := p_destn_summary_level;
106: JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields := p_import_desc_flexfields;
107: JG_JOURNAL_ALLOCATIONS_PKG.G_post_errors_to_suspense := p_post_errors_to_suspense;
100: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method := p_destn_segment_method;
101: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_cost_center_grouping := p_destn_cost_center_grouping;
102: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := p_error_handling;
103: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := p_validate_only;
104: JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import := p_run_journal_import;
105: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level := p_destn_summary_level;
106: JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields := p_import_desc_flexfields;
107: JG_JOURNAL_ALLOCATIONS_PKG.G_post_errors_to_suspense := p_post_errors_to_suspense;
108: JG_JOURNAL_ALLOCATIONS_PKG.G_debug_flag := p_debug_flag;
101: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_cost_center_grouping := p_destn_cost_center_grouping;
102: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := p_error_handling;
103: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := p_validate_only;
104: JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import := p_run_journal_import;
105: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level := p_destn_summary_level;
106: JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields := p_import_desc_flexfields;
107: JG_JOURNAL_ALLOCATIONS_PKG.G_post_errors_to_suspense := p_post_errors_to_suspense;
108: JG_JOURNAL_ALLOCATIONS_PKG.G_debug_flag := p_debug_flag;
109: --
102: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := p_error_handling;
103: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := p_validate_only;
104: JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import := p_run_journal_import;
105: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level := p_destn_summary_level;
106: JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields := p_import_desc_flexfields;
107: JG_JOURNAL_ALLOCATIONS_PKG.G_post_errors_to_suspense := p_post_errors_to_suspense;
108: JG_JOURNAL_ALLOCATIONS_PKG.G_debug_flag := p_debug_flag;
109: --
110: -- Then initialize all the other variables
103: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := p_validate_only;
104: JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import := p_run_journal_import;
105: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level := p_destn_summary_level;
106: JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields := p_import_desc_flexfields;
107: JG_JOURNAL_ALLOCATIONS_PKG.G_post_errors_to_suspense := p_post_errors_to_suspense;
108: JG_JOURNAL_ALLOCATIONS_PKG.G_debug_flag := p_debug_flag;
109: --
110: -- Then initialize all the other variables
111: --
104: JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import := p_run_journal_import;
105: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level := p_destn_summary_level;
106: JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields := p_import_desc_flexfields;
107: JG_JOURNAL_ALLOCATIONS_PKG.G_post_errors_to_suspense := p_post_errors_to_suspense;
108: JG_JOURNAL_ALLOCATIONS_PKG.G_debug_flag := p_debug_flag;
109: --
110: -- Then initialize all the other variables
111: --
112: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
108: JG_JOURNAL_ALLOCATIONS_PKG.G_debug_flag := p_debug_flag;
109: --
110: -- Then initialize all the other variables
111: --
112: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
113: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
114: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
115: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
116: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
109: --
110: -- Then initialize all the other variables
111: --
112: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
113: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
114: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
115: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
116: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
117: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
110: -- Then initialize all the other variables
111: --
112: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
113: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
114: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
115: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
116: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
117: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
118: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
111: --
112: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
113: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
114: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
115: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
116: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
117: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
118: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
119: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
112: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
113: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
114: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
115: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
116: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
117: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
118: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
119: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
120: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
113: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
114: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
115: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
116: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
117: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
118: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
119: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
120: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
121: --
114: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
115: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
116: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
117: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
118: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
119: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
120: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
121: --
122: -- Get Functional Currency Format Mask
115: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
116: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
117: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
118: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
119: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
120: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
121: --
122: -- Get Functional Currency Format Mask
123: -- Bug 3482467 (2638803), changed G_func_currency_format_mask from 15 to 18
116: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
117: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
118: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
119: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
120: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
121: --
122: -- Get Functional Currency Format Mask
123: -- Bug 3482467 (2638803), changed G_func_currency_format_mask from 15 to 18
124: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask :=
120: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
121: --
122: -- Get Functional Currency Format Mask
123: -- Bug 3482467 (2638803), changed G_func_currency_format_mask from 15 to 18
124: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask :=
125: FND_CURRENCY.GET_FORMAT_MASK(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,18);
126: FND_CURRENCY.GET_INFO(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency
127: ,JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision
128: ,l_ext_precision
121: --
122: -- Get Functional Currency Format Mask
123: -- Bug 3482467 (2638803), changed G_func_currency_format_mask from 15 to 18
124: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask :=
125: FND_CURRENCY.GET_FORMAT_MASK(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,18);
126: FND_CURRENCY.GET_INFO(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency
127: ,JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision
128: ,l_ext_precision
129: ,l_min_acct_unit);
122: -- Get Functional Currency Format Mask
123: -- Bug 3482467 (2638803), changed G_func_currency_format_mask from 15 to 18
124: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask :=
125: FND_CURRENCY.GET_FORMAT_MASK(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,18);
126: FND_CURRENCY.GET_INFO(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency
127: ,JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision
128: ,l_ext_precision
129: ,l_min_acct_unit);
130:
123: -- Bug 3482467 (2638803), changed G_func_currency_format_mask from 15 to 18
124: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask :=
125: FND_CURRENCY.GET_FORMAT_MASK(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,18);
126: FND_CURRENCY.GET_INFO(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency
127: ,JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision
128: ,l_ext_precision
129: ,l_min_acct_unit);
130:
131: --
130:
131: --
132: -- Set the unallocation request id to NULL
133: --
134: JG_JOURNAL_ALLOCATIONS_PKG.G_unalloc_request_id := NULL;
135:
136: -- Initialize acct flex segments info array
137: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_flex_segmt_arr.DELETE;
138:
133: --
134: JG_JOURNAL_ALLOCATIONS_PKG.G_unalloc_request_id := NULL;
135:
136: -- Initialize acct flex segments info array
137: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_flex_segmt_arr.DELETE;
138:
139: -- Initialize allocated lines array
140: JG_CREATE_JOURNALS_PKG.alloc_lines_arr.DELETE;
141: JG_CREATE_JOURNALS_PKG.i := 0; -- num of rows in array
140: JG_CREATE_JOURNALS_PKG.alloc_lines_arr.DELETE;
141: JG_CREATE_JOURNALS_PKG.i := 0; -- num of rows in array
142:
143: -- Initialize zero fill array
144: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr.DELETE;
145:
146: -- Set to program status to SUCCESS
147: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := 0;
148:
143: -- Initialize zero fill array
144: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr.DELETE;
145:
146: -- Set to program status to SUCCESS
147: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := 0;
148:
149: JG_CREATE_JOURNALS_PKG.G_total_offset_accted_dr_amt := 0;
150: JG_CREATE_JOURNALS_PKG.G_total_offset_accted_cr_amt := 0;
151: JG_CREATE_JOURNALS_PKG.G_total_offset_entered_dr_amt := 0;
160: JG_CREATE_JOURNALS_PKG.G_Journal_Name := NULL;
161: JG_CREATE_JOURNALS_PKG.G_Journal_Description := NULL;
162: JG_CREATE_JOURNALS_PKG.G_Batch_Name := NULL;
163:
164: JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.set_parameters');
165: END set_parameters;
166:
167: /* ---------------------------------------------------------------------
168: | PRIVATE FUNCTION |
186: | level does not equal the total number of rule lines. |
187: | 6) Informs whether or not there is at least one offset account |
188: | defined at the account range level |
189: | CALLED BY |
190: | JG_JOURNAL_ALLOCATIONS_PKG.main |
191: | RETURNS |
192: | TRUE if valid rule set, FALSE otherwise. Error |
193: | Message Code returned if FALSE. |
194: --------------------------------------------------------------------- */
211: , jg_zz_ta_rule_sets rs
212: WHERE rs.rule_set_id = ccr.rule_set_id
213: AND ccr.cc_range_id = acr.cc_range_id
214: AND acr.account_range_id = rl.account_range_id (+)
215: AND rs.rule_set_id = JG_JOURNAL_ALLOCATIONS_PKG.G_rule_set_id
216: GROUP BY rs.partial_allocation
217: , ccr.cc_range_low
218: , ccr.cc_range_high
219: , acr.account_range_low
227: TYPE ACCOUNT_RANGE_TABLE IS TABLE OF ACCOUNT_RANGE_LINE INDEX BY BINARY_INTEGER;
228: l_acct_range_arr ACCOUNT_RANGE_TABLE;
229: arr_count BINARY_INTEGER; --:= 0; Default values not allowed in Init. -- running count of number of account ranges
230: BEGIN
231: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.valid_rule_set');
232: p_acct_rnge_offset := FALSE;
233: FOR c_rs_rec IN c_rule_set LOOP
234: --
235: -- No sum means that no allocation lines exist 2)
280: l_acct_range_arr(arr_count).account_range_low := c_rs_rec.account_range_low;
281: l_acct_range_arr(arr_count).account_range_high := c_rs_rec.account_range_high;
282: END LOOP;
283: p_err_msg_code := NULL;
284: JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.valid_rule_set');
285: RETURN TRUE;
286: -- Bug 1064357: The following line should be at before the return line
287: -- JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.valid_rule_set');
288: END valid_rule_set;
283: p_err_msg_code := NULL;
284: JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.valid_rule_set');
285: RETURN TRUE;
286: -- Bug 1064357: The following line should be at before the return line
287: -- JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.valid_rule_set');
288: END valid_rule_set;
289:
290: /* ---------------------------------------------------------------------
291: | PRIVATE PROCEDURE |
300: l_segment_type fnd_flex_key_api.segment_type;
301: l_vset fnd_vset.valueset_r;
302: l_fmt fnd_vset.valueset_dr;
303: BEGIN
304: JG_UTILITY_PKG.log( '> JG_JOURNAL_ALLOCATIONS_PKG.get_segments_info');
305: --
306: -- Below info required if the zero-fill option is used for the segment method
307: -- and we also need the value set id for the cost center and account number to determine
308: -- their format types: char, number etc. Value Set Id determined from the results below.
306: -- Below info required if the zero-fill option is used for the segment method
307: -- and we also need the value set id for the cost center and account number to determine
308: -- their format types: char, number etc. Value Set Id determined from the results below.
309: --
310: JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type :=
311: FND_FLEX_KEY_API.find_flexfield(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name,
312: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code);
313: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type :=
314: FND_FLEX_KEY_API.find_structure(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type ,
307: -- and we also need the value set id for the cost center and account number to determine
308: -- their format types: char, number etc. Value Set Id determined from the results below.
309: --
310: JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type :=
311: FND_FLEX_KEY_API.find_flexfield(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name,
312: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code);
313: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type :=
314: FND_FLEX_KEY_API.find_structure(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type ,
315: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id);
308: -- their format types: char, number etc. Value Set Id determined from the results below.
309: --
310: JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type :=
311: FND_FLEX_KEY_API.find_flexfield(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name,
312: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code);
313: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type :=
314: FND_FLEX_KEY_API.find_structure(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type ,
315: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id);
316: FND_FLEX_KEY_API.get_segments(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type,
309: --
310: JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type :=
311: FND_FLEX_KEY_API.find_flexfield(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name,
312: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code);
313: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type :=
314: FND_FLEX_KEY_API.find_structure(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type ,
315: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id);
316: FND_FLEX_KEY_API.get_segments(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type,
317: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type,
310: JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type :=
311: FND_FLEX_KEY_API.find_flexfield(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name,
312: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code);
313: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type :=
314: FND_FLEX_KEY_API.find_structure(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type ,
315: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id);
316: FND_FLEX_KEY_API.get_segments(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type,
317: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type,
318: TRUE,
311: FND_FLEX_KEY_API.find_flexfield(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name,
312: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code);
313: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type :=
314: FND_FLEX_KEY_API.find_structure(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type ,
315: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id);
316: FND_FLEX_KEY_API.get_segments(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type,
317: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type,
318: TRUE,
319: JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments,
312: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code);
313: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type :=
314: FND_FLEX_KEY_API.find_structure(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type ,
315: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id);
316: FND_FLEX_KEY_API.get_segments(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type,
317: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type,
318: TRUE,
319: JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments,
320: JG_JOURNAL_ALLOCATIONS_PKG.G_segment_list);
313: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type :=
314: FND_FLEX_KEY_API.find_structure(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type ,
315: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id);
316: FND_FLEX_KEY_API.get_segments(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type,
317: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type,
318: TRUE,
319: JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments,
320: JG_JOURNAL_ALLOCATIONS_PKG.G_segment_list);
321:
315: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id);
316: FND_FLEX_KEY_API.get_segments(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type,
317: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type,
318: TRUE,
319: JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments,
320: JG_JOURNAL_ALLOCATIONS_PKG.G_segment_list);
321:
322: --
323: -- Get the cc segment data
316: FND_FLEX_KEY_API.get_segments(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type,
317: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type,
318: TRUE,
319: JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments,
320: JG_JOURNAL_ALLOCATIONS_PKG.G_segment_list);
321:
322: --
323: -- Get the cc segment data
324: --
321:
322: --
323: -- Get the cc segment data
324: --
325: IF NOT (FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
326: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
327: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
328: 'FA_COST_CTR',
329: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num) ) THEN
322: --
323: -- Get the cc segment data
324: --
325: IF NOT (FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
326: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
327: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
328: 'FA_COST_CTR',
329: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num) ) THEN
330: --
323: -- Get the cc segment data
324: --
325: IF NOT (FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
326: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
327: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
328: 'FA_COST_CTR',
329: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num) ) THEN
330: --
331: -- No error as it is possible to define a chart of accounts without a
325: IF NOT (FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
326: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
327: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
328: 'FA_COST_CTR',
329: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num) ) THEN
330: --
331: -- No error as it is possible to define a chart of accounts without a
332: -- cost center segment.
333: --
330: --
331: -- No error as it is possible to define a chart of accounts without a
332: -- cost center segment.
333: --
334: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num := NULL;
335: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string := ', NULL cost_center ';
336: END IF;
337:
338: --
331: -- No error as it is possible to define a chart of accounts without a
332: -- cost center segment.
333: --
334: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num := NULL;
335: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string := ', NULL cost_center ';
336: END IF;
337:
338: --
339: -- Get the account segment data
337:
338: --
339: -- Get the account segment data
340: --
341: IF NOT FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
342: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
343: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
344: 'GL_ACCOUNT',
345: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num) THEN
338: --
339: -- Get the account segment data
340: --
341: IF NOT FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
342: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
343: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
344: 'GL_ACCOUNT',
345: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num) THEN
346: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_NATURAL_ACCT_SEG');
339: -- Get the account segment data
340: --
341: IF NOT FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
342: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
343: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
344: 'GL_ACCOUNT',
345: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num) THEN
346: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_NATURAL_ACCT_SEG');
347: RAISE APP_EXCEPTION.application_exception;
341: IF NOT FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
342: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
343: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
344: 'GL_ACCOUNT',
345: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num) THEN
346: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_NATURAL_ACCT_SEG');
347: RAISE APP_EXCEPTION.application_exception;
348: END IF;
349:
342: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
343: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
344: 'GL_ACCOUNT',
345: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num) THEN
346: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_NATURAL_ACCT_SEG');
347: RAISE APP_EXCEPTION.application_exception;
348: END IF;
349:
350: --
349:
350: --
351: -- Get the balancing segment data
352: --
353: IF NOT FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
354: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
355: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
356: 'GL_BALANCING',
357: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num) THEN
350: --
351: -- Get the balancing segment data
352: --
353: IF NOT FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
354: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
355: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
356: 'GL_BALANCING',
357: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num) THEN
358: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_BALANCING_SEGMENT');
351: -- Get the balancing segment data
352: --
353: IF NOT FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
354: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
355: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
356: 'GL_BALANCING',
357: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num) THEN
358: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_BALANCING_SEGMENT');
359: RAISE APP_EXCEPTION.application_exception;
353: IF NOT FND_FLEX_APIS.get_qualifier_segnum(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
354: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
355: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
356: 'GL_BALANCING',
357: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num) THEN
358: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_BALANCING_SEGMENT');
359: RAISE APP_EXCEPTION.application_exception;
360: END IF;
361:
354: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
355: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
356: 'GL_BALANCING',
357: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num) THEN
358: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_BALANCING_SEGMENT');
359: RAISE APP_EXCEPTION.application_exception;
360: END IF;
361:
362: --
361:
362: --
363: -- consider each segment separately
364: --
365: FOR j IN 1..JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments LOOP
366:
367: IF (NOT fnd_flex_apis.get_segment_info(x_application_id => JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
368: x_id_flex_code => JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
369: x_id_flex_num => JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
363: -- consider each segment separately
364: --
365: FOR j IN 1..JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments LOOP
366:
367: IF (NOT fnd_flex_apis.get_segment_info(x_application_id => JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
368: x_id_flex_code => JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
369: x_id_flex_num => JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
370: x_seg_num => j,
371: x_appcol_name => G_acct_flex_segmt_arr(j).segment_col_name,
364: --
365: FOR j IN 1..JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments LOOP
366:
367: IF (NOT fnd_flex_apis.get_segment_info(x_application_id => JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
368: x_id_flex_code => JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
369: x_id_flex_num => JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
370: x_seg_num => j,
371: x_appcol_name => G_acct_flex_segmt_arr(j).segment_col_name,
372: x_seg_name => G_acct_flex_segmt_arr(j).segment_name,
365: FOR j IN 1..JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments LOOP
366:
367: IF (NOT fnd_flex_apis.get_segment_info(x_application_id => JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id,
368: x_id_flex_code => JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code,
369: x_id_flex_num => JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id,
370: x_seg_num => j,
371: x_appcol_name => G_acct_flex_segmt_arr(j).segment_col_name,
372: x_seg_name => G_acct_flex_segmt_arr(j).segment_name,
373: x_prompt => G_acct_flex_segmt_arr(j).segment_prompt,
371: x_appcol_name => G_acct_flex_segmt_arr(j).segment_col_name,
372: x_seg_name => G_acct_flex_segmt_arr(j).segment_name,
373: x_prompt => G_acct_flex_segmt_arr(j).segment_prompt,
374: x_value_set_name => G_acct_flex_segmt_arr(j).segment_vset_name)) THEN
375: FND_MESSAGE.set_name(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_MISSING_SEGMENT_INFO');
376: FND_MESSAGE.set_token('SEGMENT_NUM', TO_CHAR(j));
377: RAISE APP_EXCEPTION.application_exception;
378: ELSE
379: --
380: -- Determine the format type of the value set associated with the segment. If it is numeric, then
381: -- the low and high range values should be converted to numeric also before
382: -- comparing against each journal line cost center
383: --
384: l_segment_type := FND_FLEX_KEY_API.find_segment(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type,
385: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type,
386: G_acct_flex_segmt_arr(j).segment_name);
387: G_acct_flex_segmt_arr(j).segment_vset_id := l_segment_type.value_set_id;
388: FND_VSET.get_valueset(G_acct_flex_segmt_arr(j).segment_vset_id,
381: -- the low and high range values should be converted to numeric also before
382: -- comparing against each journal line cost center
383: --
384: l_segment_type := FND_FLEX_KEY_API.find_segment(JG_JOURNAL_ALLOCATIONS_PKG.G_flexfield_type,
385: JG_JOURNAL_ALLOCATIONS_PKG.G_structure_type,
386: G_acct_flex_segmt_arr(j).segment_name);
387: G_acct_flex_segmt_arr(j).segment_vset_id := l_segment_type.value_set_id;
388: FND_VSET.get_valueset(G_acct_flex_segmt_arr(j).segment_vset_id,
389: l_vset,
392:
393: --
394: -- Need to store cc segment number string to substitute into the dynamic select string
395: --
396: IF j = JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num THEN
397: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string := ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' cost_center ';
398: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string);
399: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num THEN
400: JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string :=
393: --
394: -- Need to store cc segment number string to substitute into the dynamic select string
395: --
396: IF j = JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num THEN
397: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string := ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' cost_center ';
398: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string);
399: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num THEN
400: JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string :=
401: ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' account_number ';
394: -- Need to store cc segment number string to substitute into the dynamic select string
395: --
396: IF j = JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num THEN
397: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string := ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' cost_center ';
398: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string);
399: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num THEN
400: JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string :=
401: ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' account_number ';
402: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element :=
395: --
396: IF j = JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num THEN
397: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string := ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' cost_center ';
398: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string);
399: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num THEN
400: JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string :=
401: ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' account_number ';
402: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element :=
403: to_number( substr( G_acct_flex_segmt_arr(j).segment_col_name, 8));
396: IF j = JG_JOURNAL_ALLOCATIONS_PKG.G_cc_segment_num THEN
397: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string := ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' cost_center ';
398: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string);
399: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num THEN
400: JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string :=
401: ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' account_number ';
402: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element :=
403: to_number( substr( G_acct_flex_segmt_arr(j).segment_col_name, 8));
404: JG_UTILITY_PKG.debug( 'acct_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element));
398: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string);
399: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num THEN
400: JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string :=
401: ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' account_number ';
402: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element :=
403: to_number( substr( G_acct_flex_segmt_arr(j).segment_col_name, 8));
404: JG_UTILITY_PKG.debug( 'acct_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element));
405: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string);
406: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num THEN
400: JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string :=
401: ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' account_number ';
402: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element :=
403: to_number( substr( G_acct_flex_segmt_arr(j).segment_col_name, 8));
404: JG_UTILITY_PKG.debug( 'acct_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element));
405: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string);
406: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num THEN
407: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_key_element := to_number(substr(G_acct_flex_segmt_arr(j).segment_col_name,8));
408: JG_UTILITY_PKG.debug( 'l_bal_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_bal_key_element));
401: ', jlv.' || G_acct_flex_segmt_arr(j).segment_col_name || ' account_number ';
402: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element :=
403: to_number( substr( G_acct_flex_segmt_arr(j).segment_col_name, 8));
404: JG_UTILITY_PKG.debug( 'acct_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element));
405: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string);
406: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num THEN
407: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_key_element := to_number(substr(G_acct_flex_segmt_arr(j).segment_col_name,8));
408: JG_UTILITY_PKG.debug( 'l_bal_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_bal_key_element));
409: END IF;
402: JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element :=
403: to_number( substr( G_acct_flex_segmt_arr(j).segment_col_name, 8));
404: JG_UTILITY_PKG.debug( 'acct_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element));
405: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string);
406: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num THEN
407: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_key_element := to_number(substr(G_acct_flex_segmt_arr(j).segment_col_name,8));
408: JG_UTILITY_PKG.debug( 'l_bal_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_bal_key_element));
409: END IF;
410:
403: to_number( substr( G_acct_flex_segmt_arr(j).segment_col_name, 8));
404: JG_UTILITY_PKG.debug( 'acct_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element));
405: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string);
406: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num THEN
407: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_key_element := to_number(substr(G_acct_flex_segmt_arr(j).segment_col_name,8));
408: JG_UTILITY_PKG.debug( 'l_bal_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_bal_key_element));
409: END IF;
410:
411: END IF;
404: JG_UTILITY_PKG.debug( 'acct_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_acct_key_element));
405: JG_UTILITY_PKG.debug(JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string);
406: ELSIF j = JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num THEN
407: JG_JOURNAL_ALLOCATIONS_PKG.G_bal_key_element := to_number(substr(G_acct_flex_segmt_arr(j).segment_col_name,8));
408: JG_UTILITY_PKG.debug( 'l_bal_key_element = ' || to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_bal_key_element));
409: END IF;
410:
411: END IF;
412:
411: END IF;
412:
413: END LOOP;
414:
415: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.get_segments_info');
416: END get_segments_info;
417:
418: /* ---------------------------------------------------------------------
419: | PRIVATE FUNCTION |
436: l_vset fnd_vset.valueset_r;
437: l_fmt fnd_vset.valueset_dr;
438: l_value fnd_vset.value_dr;
439: BEGIN
440: JG_UTILITY_PKG.log('> JG_JOURNAL_ALLOCATIONS_PKG.validate_have_zero_fills');
441: --
442: -- consider each segment separately
443: --
444: FOR j IN 1..JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments LOOP
440: JG_UTILITY_PKG.log('> JG_JOURNAL_ALLOCATIONS_PKG.validate_have_zero_fills');
441: --
442: -- consider each segment separately
443: --
444: FOR j IN 1..JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments LOOP
445: --
446: -- Initialize array values to NULL
447: --
448: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr(j).zero_string := NULL;
444: FOR j IN 1..JG_JOURNAL_ALLOCATIONS_PKG.G_num_of_segments LOOP
445: --
446: -- Initialize array values to NULL
447: --
448: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr(j).zero_string := NULL;
449: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr(j).segment_col_name := NULL;
450: --
451: -- Don't substitute in zeros for either the natural account segment
452: -- or the balancing segment
445: --
446: -- Initialize array values to NULL
447: --
448: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr(j).zero_string := NULL;
449: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr(j).segment_col_name := NULL;
450: --
451: -- Don't substitute in zeros for either the natural account segment
452: -- or the balancing segment
453: --
450: --
451: -- Don't substitute in zeros for either the natural account segment
452: -- or the balancing segment
453: --
454: IF j NOT IN (JG_JOURNAL_ALLOCATIONS_PKG.G_acct_segment_num,JG_JOURNAL_ALLOCATIONS_PKG.G_bal_segment_num) THEN
455:
456: --
457: -- Need to retrieve the valueset record structure for the current segment as we cannot store
458: -- PLSQL tables of composite structures such as this one. Consequently, the table
469: FND_VSET.get_value_init(l_vset, TRUE);
470: FND_VSET.get_value(l_vset, l_row, l_found, l_value);
471: WHILE l_found LOOP
472: IF l_zero_value = l_value.value THEN
473: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr(j).zero_string := l_value.value;
474: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr(j).segment_col_name := G_acct_flex_segmt_arr(j).segment_col_name;
475: GOTO value_found;
476: ELSE
477: FND_VSET.get_value(l_vset, l_row, l_found, l_value);
470: FND_VSET.get_value(l_vset, l_row, l_found, l_value);
471: WHILE l_found LOOP
472: IF l_zero_value = l_value.value THEN
473: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr(j).zero_string := l_value.value;
474: JG_JOURNAL_ALLOCATIONS_PKG.G_zero_fill_arr(j).segment_col_name := G_acct_flex_segmt_arr(j).segment_col_name;
475: GOTO value_found;
476: ELSE
477: FND_VSET.get_value(l_vset, l_row, l_found, l_value);
478: END IF;
478: END IF;
479: END LOOP;
480: FND_VSET.get_value_end(l_vset);
481: END LOOP;
482: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_ZERO_FILL_INVALID');
483: RETURN FALSE;
484: <
485: JG_UTILITY_PKG.debug('value found for segment position num '|| TO_CHAR(j));
486:
485: JG_UTILITY_PKG.debug('value found for segment position num '|| TO_CHAR(j));
486:
487: END IF; -- Check for natural acct or balancing segment position
488: END LOOP; -- loop round for next segment
489: JG_UTILITY_PKG.log( '< JG_JOURNAL_ALLOCATIONS_PKG.validate_have_zero_fills');
490: RETURN TRUE;
491: END validate_have_zero_fills;
492:
493: /* ---------------------------------------------------------------------
520: -- Kai 5.1.1999, we need to replace this mask with FND_DATE based dynamic mack for R115.
521: --
522: -- l_date_mask VARCHAR2(40) DEFAULT 'YYYY/MM/DD'; Default vlaues not allowed in Init.
523: BEGIN
524: JG_UTILITY_PKG.log('> JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import');
525: --
526: -- Get print options from the original Allocation request
527: --
528: IF NOT FND_CONCURRENT.GET_REQUEST_PRINT_OPTIONS( JG_JOURNAL_ALLOCATIONS_PKG.G_request_id,
524: JG_UTILITY_PKG.log('> JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import');
525: --
526: -- Get print options from the original Allocation request
527: --
528: IF NOT FND_CONCURRENT.GET_REQUEST_PRINT_OPTIONS( JG_JOURNAL_ALLOCATIONS_PKG.G_request_id,
529: l_num_of_copies,
530: l_print_style,
531: l_printer,
532: l_save_output_flag) THEN
529: l_num_of_copies,
530: l_print_style,
531: l_printer,
532: l_save_output_flag) THEN
533: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_NO_PRINT_OPTIONS_FOUND');
534: RETURN FALSE;
535: ELSE
536: IF l_save_output_flag = 'Y' THEN
537: l_save_output_bool := TRUE;
544: IF NOT FND_REQUEST.SET_PRINT_OPTIONS( l_printer,
545: l_print_style,
546: l_num_of_copies,
547: l_save_output_bool) THEN
548: FND_MESSAGE.SET_NAME(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, 'JG_ZZ_SET_PRINT_OPTIONS_FAILED' );
549: RETURN FALSE;
550: END IF;
551: END IF;
552: --
559: --
560: SELECT MAX(group_id)
561: INTO l_group_id
562: FROM gl_interface_groups_v
563: WHERE set_of_books_id = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id
564: AND user_je_source_name = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source;
565:
566: --
567: -- Populate GL_Interface_Control table
560: SELECT MAX(group_id)
561: INTO l_group_id
562: FROM gl_interface_groups_v
563: WHERE set_of_books_id = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id
564: AND user_je_source_name = JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source;
565:
566: --
567: -- Populate GL_Interface_Control table
568: --
565:
566: --
567: -- Populate GL_Interface_Control table
568: --
569: GL_INTERFACE_CONTROL_PKG.Insert_Row(--JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id, Removed, ledger Arch. changes in package
570: l_interface_run_id,
571: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source,
572: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id,
573: l_group_id,
567: -- Populate GL_Interface_Control table
568: --
569: GL_INTERFACE_CONTROL_PKG.Insert_Row(--JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id, Removed, ledger Arch. changes in package
570: l_interface_run_id,
571: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source,
572: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id,
573: l_group_id,
574: NULL);
575: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level = 'D') THEN -- Detail
568: --
569: GL_INTERFACE_CONTROL_PKG.Insert_Row(--JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id, Removed, ledger Arch. changes in package
570: l_interface_run_id,
571: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source,
572: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id,
573: l_group_id,
574: NULL);
575: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level = 'D') THEN -- Detail
576: l_summary_journal_flag := 'N';
571: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_journal_source,
572: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id,
573: l_group_id,
574: NULL);
575: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level = 'D') THEN -- Detail
576: l_summary_journal_flag := 'N';
577: ELSE
578: l_summary_journal_flag := 'Y';
579: END IF;
581: --
582: -- Submit Journal Import Concurrent Request
583: --
584: l_ji_request_id := FND_REQUEST.Submit_Request(
585: application => JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name,
586: program => 'GLLEZL',
587: description => null,
588: start_time => null,
589: sub_request=>FALSE,
588: start_time => null,
589: sub_request=>FALSE,
590: argument1 => l_interface_run_id,
591: argument2 => fnd_profile.value('GL_ACCESS_SET_ID'),
592: argument3 => JG_JOURNAL_ALLOCATIONS_PKG.G_post_errors_to_suspense,
593: argument4 => to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_start_date,'YYYY/MM/DD'),
594: argument5 => to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_end_date,'YYYY/MM/DD'),
595: argument6 => l_summary_journal_flag,
596: argument7 => JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields,
589: sub_request=>FALSE,
590: argument1 => l_interface_run_id,
591: argument2 => fnd_profile.value('GL_ACCESS_SET_ID'),
592: argument3 => JG_JOURNAL_ALLOCATIONS_PKG.G_post_errors_to_suspense,
593: argument4 => to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_start_date,'YYYY/MM/DD'),
594: argument5 => to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_end_date,'YYYY/MM/DD'),
595: argument6 => l_summary_journal_flag,
596: argument7 => JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields,
597: argument8 => 'Y');
590: argument1 => l_interface_run_id,
591: argument2 => fnd_profile.value('GL_ACCESS_SET_ID'),
592: argument3 => JG_JOURNAL_ALLOCATIONS_PKG.G_post_errors_to_suspense,
593: argument4 => to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_start_date,'YYYY/MM/DD'),
594: argument5 => to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_end_date,'YYYY/MM/DD'),
595: argument6 => l_summary_journal_flag,
596: argument7 => JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields,
597: argument8 => 'Y');
598:
592: argument3 => JG_JOURNAL_ALLOCATIONS_PKG.G_post_errors_to_suspense,
593: argument4 => to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_start_date,'YYYY/MM/DD'),
594: argument5 => to_char(JG_JOURNAL_ALLOCATIONS_PKG.G_GL_end_date,'YYYY/MM/DD'),
595: argument6 => l_summary_journal_flag,
596: argument7 => JG_JOURNAL_ALLOCATIONS_PKG.G_import_desc_flexfields,
597: argument8 => 'Y');
598:
599: COMMIT;
600: IF (l_ji_request_id = 0) THEN
597: argument8 => 'Y');
598:
599: COMMIT;
600: IF (l_ji_request_id = 0) THEN
601: FND_MESSAGE.Set_Name(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name,'JG_ZZ_JOURNAL_IMPORT_FAILED');
602: RETURN FALSE;
603: END IF;
604:
605: --
606: -- If running journal import in Summary Mode, then JI gives the lines the description 'Journal Import Created'
607: -- by default. The below code overwrites this default description for all lines with the journal header
608: -- descriptions.
609: --
610: IF JG_JOURNAL_ALLOCATIONS_PKG.G_destn_summary_level = 'S' AND JG_JOURNAL_ALLOCATIONS_PKG.G_destn_cost_center_grouping = 'Y' THEN
611: l_journal_import_finished := FND_CONCURRENT.WAIT_FOR_REQUEST(l_ji_request_id
612: ,10
613: ,0
614: ,l_phase
635: 'WHERE l.je_header_id IN (SELECT h.je_header_id '||
636: 'FROM gl_je_headers h '||
637: ', gl_je_batches b '||
638: 'WHERE b.je_batch_id = h.je_batch_id '||
639: 'AND b.name LIKE '''||TO_CHAR(JG_JOURNAL_ALLOCATIONS_PKG.G_Request_Id)||'%'''||
640: ' AND b.default_period_name = '''||JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name||
641: ''' AND b.ledger_id = '||TO_CHAR(JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id)||')');
642: -- GC Ledger Architecture change
643: EXCEPTION
636: 'FROM gl_je_headers h '||
637: ', gl_je_batches b '||
638: 'WHERE b.je_batch_id = h.je_batch_id '||
639: 'AND b.name LIKE '''||TO_CHAR(JG_JOURNAL_ALLOCATIONS_PKG.G_Request_Id)||'%'''||
640: ' AND b.default_period_name = '''||JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name||
641: ''' AND b.ledger_id = '||TO_CHAR(JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id)||')');
642: -- GC Ledger Architecture change
643: EXCEPTION
644: -- Do nothing if there is an error in updating the lines
637: ', gl_je_batches b '||
638: 'WHERE b.je_batch_id = h.je_batch_id '||
639: 'AND b.name LIKE '''||TO_CHAR(JG_JOURNAL_ALLOCATIONS_PKG.G_Request_Id)||'%'''||
640: ' AND b.default_period_name = '''||JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name||
641: ''' AND b.ledger_id = '||TO_CHAR(JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id)||')');
642: -- GC Ledger Architecture change
643: EXCEPTION
644: -- Do nothing if there is an error in updating the lines
645: WHEN OTHERS THEN
649: END IF;
650: END IF;
651:
652:
653: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import');
654: RETURN TRUE;
655: EXCEPTION WHEN OTHERS THEN
656: FND_MESSAGE.Set_Name(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name,'JG_ZZ_JOURNAL_IMPORT_FAILED');
657: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import');
652:
653: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import');
654: RETURN TRUE;
655: EXCEPTION WHEN OTHERS THEN
656: FND_MESSAGE.Set_Name(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name,'JG_ZZ_JOURNAL_IMPORT_FAILED');
657: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import');
658: RETURN FALSE;
659: END run_journal_import;
660:
653: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import');
654: RETURN TRUE;
655: EXCEPTION WHEN OTHERS THEN
656: FND_MESSAGE.Set_Name(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name,'JG_ZZ_JOURNAL_IMPORT_FAILED');
657: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import');
658: RETURN FALSE;
659: END run_journal_import;
660:
661: /* ------------------------------------------------------------------------------
728: l_err_msg_code VARCHAR2(50);
729: l_acct_rnge_offset BOOLEAN;
730:
731: BEGIN
732: JG_UTILITY_PKG.log('> JG_JOURNAL_ALLOCATIONS_PKG.main');
733:
734: -- Bug 1064357: Session mode must be set
735: FND_FLEX_KEY_API.set_session_mode('customer_data');
736:
744: END IF;
745: --
746: -- Initialize the parameter globals
747: --
748: JG_JOURNAL_ALLOCATIONS_PKG.set_parameters( p_set_of_books_id,
749: p_chart_of_accounts_id,
750: p_functional_currency,
751: p_period_set_name,
752: p_rule_set_id,
773: --
774: -- Perform a number of validation checks on the rule set. If any errors found,
775: -- then the program should be aborted
776: --
777: IF NOT JG_JOURNAL_ALLOCATIONS_PKG.valid_rule_set(l_err_msg_code, l_acct_rnge_offset) THEN
778: FND_MESSAGE.set_name(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, l_err_msg_code);
779: RAISE APP_EXCEPTION.application_exception;
780: END IF;
781:
774: -- Perform a number of validation checks on the rule set. If any errors found,
775: -- then the program should be aborted
776: --
777: IF NOT JG_JOURNAL_ALLOCATIONS_PKG.valid_rule_set(l_err_msg_code, l_acct_rnge_offset) THEN
778: FND_MESSAGE.set_name(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, l_err_msg_code);
779: RAISE APP_EXCEPTION.application_exception;
780: END IF;
781:
782: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only = 'N') THEN
778: FND_MESSAGE.set_name(JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name, l_err_msg_code);
779: RAISE APP_EXCEPTION.application_exception;
780: END IF;
781:
782: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only = 'N') THEN
783: --
784: -- Get the translated meanings from source and category for gl_interface
785: --
786: JG_JOURNAL_ALLOCATIONS_PKG.get_source_and_category;
782: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only = 'N') THEN
783: --
784: -- Get the translated meanings from source and category for gl_interface
785: --
786: JG_JOURNAL_ALLOCATIONS_PKG.get_source_and_category;
787: --
788: -- Get Period Name's start and end dates for gl_interface
789: --
790: GL_INFO.gl_get_period_dates(JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id,
786: JG_JOURNAL_ALLOCATIONS_PKG.get_source_and_category;
787: --
788: -- Get Period Name's start and end dates for gl_interface
789: --
790: GL_INFO.gl_get_period_dates(JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id,
791: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name,
792: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_start_date,
793: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_end_date,
794: errbuf);
787: --
788: -- Get Period Name's start and end dates for gl_interface
789: --
790: GL_INFO.gl_get_period_dates(JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id,
791: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name,
792: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_start_date,
793: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_end_date,
794: errbuf);
795: IF (errbuf IS NOT NULL) THEN
788: -- Get Period Name's start and end dates for gl_interface
789: --
790: GL_INFO.gl_get_period_dates(JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id,
791: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name,
792: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_start_date,
793: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_end_date,
794: errbuf);
795: IF (errbuf IS NOT NULL) THEN
796: RAISE APP_EXCEPTION.application_exception;
789: --
790: GL_INFO.gl_get_period_dates(JG_JOURNAL_ALLOCATIONS_PKG.G_destn_set_of_books_id,
791: JG_JOURNAL_ALLOCATIONS_PKG.G_destn_period_name,
792: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_start_date,
793: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_end_date,
794: errbuf);
795: IF (errbuf IS NOT NULL) THEN
796: RAISE APP_EXCEPTION.application_exception;
797: END IF;
798: END IF;
799: --
800: -- Get set of books name from source set of books id for reporting purposes
801: --
802: JG_JOURNAL_ALLOCATIONS_PKG.get_set_of_books_name;
803: --
804: -- Get all the segment info of the acct key flexfield
805: --
806: JG_JOURNAL_ALLOCATIONS_PKG.get_segments_info;
802: JG_JOURNAL_ALLOCATIONS_PKG.get_set_of_books_name;
803: --
804: -- Get all the segment info of the acct key flexfield
805: --
806: JG_JOURNAL_ALLOCATIONS_PKG.get_segments_info;
807:
808: --
809: -- Check that zero fills are valid values for segments if chosen segment method.
810: -- Offset acct range totals are also zero-filled, so check for these also.
808: --
809: -- Check that zero fills are valid values for segments if chosen segment method.
810: -- Offset acct range totals are also zero-filled, so check for these also.
811: --
812: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method = 'ZF' OR l_acct_rnge_offset) THEN
813: IF (NOT JG_JOURNAL_ALLOCATIONS_PKG.validate_have_zero_fills) THEN
814: RAISE APP_EXCEPTION.application_exception;
815: END IF;
816: END IF;
809: -- Check that zero fills are valid values for segments if chosen segment method.
810: -- Offset acct range totals are also zero-filled, so check for these also.
811: --
812: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_destn_segment_method = 'ZF' OR l_acct_rnge_offset) THEN
813: IF (NOT JG_JOURNAL_ALLOCATIONS_PKG.validate_have_zero_fills) THEN
814: RAISE APP_EXCEPTION.application_exception;
815: END IF;
816: END IF;
817:
825: -- Submit the journal import if at least one allocation and not in validation mode
826: --
827: JG_UTILITY_PKG.debug(TO_CHAR(SYSDATE, 'HH24:MI:SS'));
828:
829: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import = 'Y' AND
830: JG_CREATE_JOURNALS_PKG.i <> 0 AND
831: JG_JOURNAL_ALLOCATIONS_PKG.G_Validate_Only = 'N') THEN
832: IF NOT JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import THEN
833: RAISE APP_EXCEPTION.application_exception;
827: JG_UTILITY_PKG.debug(TO_CHAR(SYSDATE, 'HH24:MI:SS'));
828:
829: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import = 'Y' AND
830: JG_CREATE_JOURNALS_PKG.i <> 0 AND
831: JG_JOURNAL_ALLOCATIONS_PKG.G_Validate_Only = 'N') THEN
832: IF NOT JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import THEN
833: RAISE APP_EXCEPTION.application_exception;
834: END IF;
835: END IF;
828:
829: IF (JG_JOURNAL_ALLOCATIONS_PKG.G_run_journal_import = 'Y' AND
830: JG_CREATE_JOURNALS_PKG.i <> 0 AND
831: JG_JOURNAL_ALLOCATIONS_PKG.G_Validate_Only = 'N') THEN
832: IF NOT JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import THEN
833: RAISE APP_EXCEPTION.application_exception;
834: END IF;
835: END IF;
836: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
832: IF NOT JG_JOURNAL_ALLOCATIONS_PKG.run_journal_import THEN
833: RAISE APP_EXCEPTION.application_exception;
834: END IF;
835: END IF;
836: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
837: JG_UTILITY_PKG.debug( 'retcode = '||retcode);
838: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.main');
839: EXCEPTION
840: WHEN APP_EXCEPTION.application_exception THEN
834: END IF;
835: END IF;
836: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
837: JG_UTILITY_PKG.debug( 'retcode = '||retcode);
838: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.main');
839: EXCEPTION
840: WHEN APP_EXCEPTION.application_exception THEN
841: JG_UTILITY_PKG.log('< Application_Exception clause');
842: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
838: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.main');
839: EXCEPTION
840: WHEN APP_EXCEPTION.application_exception THEN
841: JG_UTILITY_PKG.log('< Application_Exception clause');
842: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
843: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
844: IF JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf IS NULL THEN
845: errbuf := FND_MESSAGE.get;
846: ELSIF retcode = '2' THEN -- error
839: EXCEPTION
840: WHEN APP_EXCEPTION.application_exception THEN
841: JG_UTILITY_PKG.log('< Application_Exception clause');
842: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
843: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
844: IF JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf IS NULL THEN
845: errbuf := FND_MESSAGE.get;
846: ELSIF retcode = '2' THEN -- error
847: errbuf := JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf;
840: WHEN APP_EXCEPTION.application_exception THEN
841: JG_UTILITY_PKG.log('< Application_Exception clause');
842: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
843: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
844: IF JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf IS NULL THEN
845: errbuf := FND_MESSAGE.get;
846: ELSIF retcode = '2' THEN -- error
847: errbuf := JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf;
848: END IF;
843: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
844: IF JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf IS NULL THEN
845: errbuf := FND_MESSAGE.get;
846: ELSIF retcode = '2' THEN -- error
847: errbuf := JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf;
848: END IF;
849: JG_UTILITY_PKG.log(errbuf);
850: ROLLBACK;
851: WHEN OTHERS THEN
849: JG_UTILITY_PKG.log(errbuf);
850: ROLLBACK;
851: WHEN OTHERS THEN
852: JG_UTILITY_PKG.log('< Others Exception clause');
853: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
854: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
855: ROLLBACK;
856: RAISE;
857: END main;
850: ROLLBACK;
851: WHEN OTHERS THEN
852: JG_UTILITY_PKG.log('< Others Exception clause');
853: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
854: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
855: ROLLBACK;
856: RAISE;
857: END main;
858:
870: p_debug_flag IN VARCHAR2) IS
871: l_ext_precision NUMBER;
872: l_min_acct_unit NUMBER;
873: BEGIN
874: JG_UTILITY_PKG.log('> JG_JOURNAL_ALLOCATIONS_PKG.main');
875:
876: -- Bug 1064357: Session mode must be set
877: FND_FLEX_KEY_API.set_session_mode('customer_data');
878:
884: END IF;
885: --
886: -- Set the Global variables
887: --
888: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
889: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
890: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
891: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
892: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
885: --
886: -- Set the Global variables
887: --
888: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
889: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
890: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
891: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
892: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
893: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
886: -- Set the Global variables
887: --
888: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
889: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
890: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
891: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
892: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
893: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
894: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
887: --
888: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
889: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
890: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
891: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
892: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
893: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
894: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
895: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
888: JG_JOURNAL_ALLOCATIONS_PKG.G_JG_appln_short_name := 'JG';
889: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
890: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
891: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
892: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
893: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
894: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
895: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
896: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
889: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_appln_short_name := 'SQLGL';
890: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
891: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
892: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
893: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
894: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
895: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
896: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
897: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := 'N';
890: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_application_id := 101;
891: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
892: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
893: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
894: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
895: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
896: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
897: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := 'N';
898: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
891: JG_JOURNAL_ALLOCATIONS_PKG.G_GL_acct_flex_code := 'GL#';
892: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
893: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
894: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
895: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
896: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
897: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := 'N';
898: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
899: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
892: JG_JOURNAL_ALLOCATIONS_PKG.G_request_id := FND_GLOBAL.CONC_REQUEST_ID;
893: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
894: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
895: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
896: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
897: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := 'N';
898: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
899: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
900: --
893: JG_JOURNAL_ALLOCATIONS_PKG.G_progr_appl_id := FND_GLOBAL.PROG_APPL_ID;
894: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
895: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
896: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
897: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := 'N';
898: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
899: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
900: --
901: -- Initialized to segment1 and segment2 for unallocation process
894: JG_JOURNAL_ALLOCATIONS_PKG.G_conc_progr_id := FND_GLOBAL.CONC_PROGRAM_ID;
895: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
896: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
897: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := 'N';
898: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
899: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
900: --
901: -- Initialized to segment1 and segment2 for unallocation process
902: -- the cost center and account segment numbers are not required for unallocation
895: JG_JOURNAL_ALLOCATIONS_PKG.G_user_id := FND_GLOBAL.USER_ID;
896: JG_JOURNAL_ALLOCATIONS_PKG.G_login_id := FND_GLOBAL.LOGIN_ID;
897: JG_JOURNAL_ALLOCATIONS_PKG.G_validate_only := 'N';
898: JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency := p_functional_currency;
899: JG_JOURNAL_ALLOCATIONS_PKG.G_chart_of_accounts_id := p_chart_of_accounts_id;
900: --
901: -- Initialized to segment1 and segment2 for unallocation process
902: -- the cost center and account segment numbers are not required for unallocation
903: --
900: --
901: -- Initialized to segment1 and segment2 for unallocation process
902: -- the cost center and account segment numbers are not required for unallocation
903: --
904: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string := ', SEGMENT1';
905: JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string := ', SEGMENT2';
906: --
907: -- Unallocation can only fail in the table locking, set to Error out NOCOPY
908: --
901: -- Initialized to segment1 and segment2 for unallocation process
902: -- the cost center and account segment numbers are not required for unallocation
903: --
904: JG_JOURNAL_ALLOCATIONS_PKG.G_cc_seg_num_string := ', SEGMENT1';
905: JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string := ', SEGMENT2';
906: --
907: -- Unallocation can only fail in the table locking, set to Error out NOCOPY
908: --
909: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := 'E';
905: JG_JOURNAL_ALLOCATIONS_PKG.G_acc_seg_num_string := ', SEGMENT2';
906: --
907: -- Unallocation can only fail in the table locking, set to Error out NOCOPY
908: --
909: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := 'E';
910: --
911: -- Initialize retcode to 0 for successful completion
912: --
913: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := 0;
909: JG_JOURNAL_ALLOCATIONS_PKG.G_error_handling := 'E';
910: --
911: -- Initialize retcode to 0 for successful completion
912: --
913: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := 0;
914:
915: JG_ALLOCATE_JOURNALS_PKG.G_last_journal_qry_rec.offset_account := NULL;
916: --
917: -- Get Functional Currency Format Mask and precision
915: JG_ALLOCATE_JOURNALS_PKG.G_last_journal_qry_rec.offset_account := NULL;
916: --
917: -- Get Functional Currency Format Mask and precision
918: -- Bug 3482467 (2638803) , changed G_func_currency_format_mask from 15 to 18
919: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask :=
920: FND_CURRENCY.Get_Format_Mask(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,18);
921: FND_CURRENCY.get_info(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,
922: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision,
923: l_ext_precision,
916: --
917: -- Get Functional Currency Format Mask and precision
918: -- Bug 3482467 (2638803) , changed G_func_currency_format_mask from 15 to 18
919: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask :=
920: FND_CURRENCY.Get_Format_Mask(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,18);
921: FND_CURRENCY.get_info(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,
922: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision,
923: l_ext_precision,
924: l_min_acct_unit);
917: -- Get Functional Currency Format Mask and precision
918: -- Bug 3482467 (2638803) , changed G_func_currency_format_mask from 15 to 18
919: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask :=
920: FND_CURRENCY.Get_Format_Mask(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,18);
921: FND_CURRENCY.get_info(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,
922: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision,
923: l_ext_precision,
924: l_min_acct_unit);
925: JG_UTILITY_PKG.debug( 'func curr format mask = '||JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask);
918: -- Bug 3482467 (2638803) , changed G_func_currency_format_mask from 15 to 18
919: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask :=
920: FND_CURRENCY.Get_Format_Mask(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,18);
921: FND_CURRENCY.get_info(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,
922: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision,
923: l_ext_precision,
924: l_min_acct_unit);
925: JG_UTILITY_PKG.debug( 'func curr format mask = '||JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask);
926: JG_UTILITY_PKG.debug( 'func curr precision = '||JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision);
921: FND_CURRENCY.get_info(JG_JOURNAL_ALLOCATIONS_PKG.G_functional_currency,
922: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision,
923: l_ext_precision,
924: l_min_acct_unit);
925: JG_UTILITY_PKG.debug( 'func curr format mask = '||JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask);
926: JG_UTILITY_PKG.debug( 'func curr precision = '||JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision);
927: --
928: -- Initialize the parameter globals
929: --
922: JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision,
923: l_ext_precision,
924: l_min_acct_unit);
925: JG_UTILITY_PKG.debug( 'func curr format mask = '||JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_format_mask);
926: JG_UTILITY_PKG.debug( 'func curr precision = '||JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision);
927: --
928: -- Initialize the parameter globals
929: --
930: JG_JOURNAL_ALLOCATIONS_PKG.G_unalloc_request_id := p_request_id;
926: JG_UTILITY_PKG.debug( 'func curr precision = '||JG_JOURNAL_ALLOCATIONS_PKG.G_func_currency_precision);
927: --
928: -- Initialize the parameter globals
929: --
930: JG_JOURNAL_ALLOCATIONS_PKG.G_unalloc_request_id := p_request_id;
931: --
932: -- Call the next package, to allocate
933: --
934: JG_ALLOCATE_JOURNALS_PKG.allocate;
932: -- Call the next package, to allocate
933: --
934: JG_ALLOCATE_JOURNALS_PKG.allocate;
935:
936: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
937:
938: JG_UTILITY_PKG.debug('retcode = '||retcode);
939: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.main');
940: EXCEPTION
935:
936: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
937:
938: JG_UTILITY_PKG.debug('retcode = '||retcode);
939: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.main');
940: EXCEPTION
941: WHEN APP_EXCEPTION.application_exception THEN
942: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
943: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
938: JG_UTILITY_PKG.debug('retcode = '||retcode);
939: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.main');
940: EXCEPTION
941: WHEN APP_EXCEPTION.application_exception THEN
942: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
943: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
944: IF JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf IS NULL THEN
945: errbuf := FND_MESSAGE.get;
946: ELSIF retcode = '2' THEN -- error
939: JG_UTILITY_PKG.log('< JG_JOURNAL_ALLOCATIONS_PKG.main');
940: EXCEPTION
941: WHEN APP_EXCEPTION.application_exception THEN
942: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
943: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
944: IF JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf IS NULL THEN
945: errbuf := FND_MESSAGE.get;
946: ELSIF retcode = '2' THEN -- error
947: errbuf := JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf;
940: EXCEPTION
941: WHEN APP_EXCEPTION.application_exception THEN
942: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
943: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
944: IF JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf IS NULL THEN
945: errbuf := FND_MESSAGE.get;
946: ELSIF retcode = '2' THEN -- error
947: errbuf := JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf;
948: END IF;
943: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
944: IF JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf IS NULL THEN
945: errbuf := FND_MESSAGE.get;
946: ELSIF retcode = '2' THEN -- error
947: errbuf := JG_JOURNAL_ALLOCATIONS_PKG.G_errbuf;
948: END IF;
949: JG_UTILITY_PKG.log(errbuf);
950: ROLLBACK;
951: WHEN OTHERS THEN
948: END IF;
949: JG_UTILITY_PKG.log(errbuf);
950: ROLLBACK;
951: WHEN OTHERS THEN
952: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
953: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
954: ROLLBACK;
955: RAISE;
956: END main;
949: JG_UTILITY_PKG.log(errbuf);
950: ROLLBACK;
951: WHEN OTHERS THEN
952: JG_JOURNAL_ALLOCATIONS_PKG.G_retcode := '2';
953: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
954: ROLLBACK;
955: RAISE;
956: END main;
957: END JG_JOURNAL_ALLOCATIONS_PKG;
953: retcode := JG_JOURNAL_ALLOCATIONS_PKG.G_retcode;
954: ROLLBACK;
955: RAISE;
956: END main;
957: END JG_JOURNAL_ALLOCATIONS_PKG;