[Home] [Help]
PACKAGE: APPS.JG_JOURNAL_ALLOCATIONS_PKG
Source
1 PACKAGE JG_JOURNAL_ALLOCATIONS_PKG AUTHID CURRENT_USER AS
2 /* $Header: jgzztajs.pls 115.5 2002/11/15 17:09:36 arimai ship $ */
3 --
4 -- procedure to allocate
5 --
6 PROCEDURE main(errbuf IN OUT NOCOPY VARCHAR2,
7 retcode IN OUT NOCOPY VARCHAR2,
8 p_set_of_books_id IN NUMBER,
9 p_chart_of_accounts_id IN NUMBER,
10 p_functional_currency IN VARCHAR2,
11 p_period_set_name IN VARCHAR2,
12 p_rule_set_id IN NUMBER,
13 p_period_name IN VARCHAR2,
14 p_currency_code IN VARCHAR2,
15 p_amount_type IN VARCHAR2,
16 p_balance_type IN VARCHAR2,
17 p_balance_type_id IN NUMBER,
18 p_balance_segment_value IN VARCHAR2,
19 p_destn_set_of_books_id IN NUMBER,
20 p_destn_period_name IN VARCHAR2,
21 p_destn_journal_source IN VARCHAR2,
22 p_destn_journal_category IN VARCHAR2,
23 p_destn_segment_method IN VARCHAR2,
24 p_destn_cost_center_grouping IN VARCHAR2,
25 p_error_handling IN VARCHAR2,
26 p_validate_only IN VARCHAR2,
27 p_run_journal_import IN VARCHAR2,
28 p_destn_summary_level IN VARCHAR2,
29 p_import_desc_flexfields IN VARCHAR2,
30 p_post_errors_to_suspense IN VARCHAR2,
31 p_debug_flag IN VARCHAR2);
32 --
33 -- procedure to unallocate
34 --
35 PROCEDURE main(errbuf IN OUT NOCOPY VARCHAR2,
36 retcode IN OUT NOCOPY VARCHAR2,
37 p_chart_of_accounts_id IN NUMBER,
38 p_functional_currency IN VARCHAR2,
39 p_request_id IN NUMBER,
40 p_debug_flag IN VARCHAR2);
41
42 /* -------------------------------------------------------------------
43 | PRIVATE PROCEDURE |
44 | set_parameters |
45 | DESCRIPTION |
46 | Sets the concurrent programs parameter values to package |
47 | Global variables |
48 -------------------------------------------------------------------- */
49 PROCEDURE set_parameters (p_set_of_books_id IN NUMBER,
50 p_chart_of_accounts_id IN NUMBER,
51 p_functional_currency IN VARCHAR2,
52 p_period_set_name IN VARCHAR2,
53 p_rule_set_id IN NUMBER,
54 p_period_name IN VARCHAR2,
55 p_currency_code IN VARCHAR2,
56 p_amount_type IN VARCHAR2,
57 p_balance_type IN VARCHAR2,
58 p_balance_type_id IN NUMBER,
59 p_balance_segment_value IN VARCHAR2,
60 p_destn_set_of_books_id IN NUMBER,
61 p_destn_period_name IN VARCHAR2,
62 p_destn_journal_source IN VARCHAR2,
63 p_destn_journal_category IN VARCHAR2,
64 p_destn_segment_method IN VARCHAR2,
65 p_destn_cost_center_grouping IN VARCHAR2,
66 p_error_handling IN VARCHAR2,
67 p_validate_only IN VARCHAR2,
68 p_run_journal_import IN VARCHAR2,
69 p_destn_summary_level IN VARCHAR2,
70 p_import_desc_flexfields IN VARCHAR2,
71 p_post_errors_to_suspense IN VARCHAR2,
72 p_debug_flag IN VARCHAR2);
73
74 --
75 -- Globals for parameters
76 --
77 G_set_of_books_id GL_SETS_OF_BOOKS.set_of_books_id%TYPE;
78 G_chart_of_accounts_id GL_SETS_OF_BOOKS.chart_of_accounts_id%TYPE;
79 G_rule_set_id JG_ZZ_TA_RULE_SETS.rule_set_id%TYPE;
80 G_period_name GL_PERIODS.period_name%TYPE;
81 G_currency_code FND_CURRENCIES.currency_code%TYPE;
82 G_amount_type FND_LOOKUPS.lookup_code%TYPE;
83 G_balance_type FND_LOOKUPS.lookup_code%TYPE;
84 G_balance_type_id GL_BUDGET_VERSIONS.budget_version_id%TYPE;
85 G_balance_segment_value VARCHAR2(100);
86 G_destn_set_of_books_id GL_SETS_OF_BOOKS.set_of_books_id%TYPE;
87 G_destn_period_name GL_PERIODS.period_name%TYPE;
88 G_destn_journal_source GL_JE_SOURCES.je_source_name%TYPE;
89 G_destn_journal_category GL_JE_CATEGORIES.je_category_name%TYPE;
90 G_destn_segment_method FND_LOOKUPS.lookup_code%TYPE;
91 G_destn_cost_center_grouping FND_LOOKUPS.lookup_code%TYPE;
92 G_error_handling FND_LOOKUPS.lookup_code%TYPE;
93 G_validate_only FND_LOOKUPS.lookup_code%TYPE;
94 G_destn_summary_level FND_LOOKUPS.lookup_code%TYPE;
95 G_import_desc_flexfields FND_LOOKUPS.lookup_code%TYPE;
96 G_post_errors_to_suspense FND_LOOKUPS.lookup_code%TYPE;
97 G_run_journal_import FND_LOOKUPS.lookup_code%TYPE;
98 G_debug_flag FND_LOOKUPS.lookup_code%TYPE;
99 G_functional_currency FND_CURRENCIES.currency_code%TYPE;
100 G_period_set_name GL_PERIOD_SETS.period_set_name%TYPE;
101 G_unalloc_request_id FND_CONCURRENT_REQUESTS.request_id%TYPE;
102 --
103 -- Globals for other variables
104 --
105 G_func_currency_format_mask VARCHAR2(100);
106 G_func_currency_precision FND_CURRENCIES.PRECISION%TYPE;
107 G_JG_appln_short_name FND_APPLICATION.application_short_name%TYPE;
108 G_GL_appln_short_name FND_APPLICATION.application_short_name%TYPE;
109 G_GL_application_id FND_APPLICATION.application_id%TYPE;
110 G_GL_acct_flex_code VARCHAR2(100);
111 G_GL_start_date GL_PERIODS.start_date%TYPE;
112 G_GL_end_date GL_PERIODS.end_date%TYPE;
113 G_retcode VARCHAR2(1) := 0;
114 G_errbuf VARCHAR2(500) := NULL;
115 G_user_je_source_name GL_JE_SOURCES.user_je_source_name%TYPE;
116 G_user_je_category_name GL_JE_CATEGORIES.user_je_category_name%TYPE;
117 G_translated_user GL_DAILY_CONVERSION_TYPES.user_conversion_type%TYPE;
118 G_set_of_books_name GL_SETS_OF_BOOKS.name%TYPE;
119 --
120 -- Globals for AOL conc. program variables
121 --
122 G_request_id FND_CONCURRENT_REQUESTS.request_id%TYPE;
123 G_progr_appl_id NUMBER;
124 G_conc_progr_id NUMBER;
125 G_user_id NUMBER;
126 G_login_id NUMBER;
127 --
128 -- Globals for accounting flexfield
129 --
130 G_num_of_segments NUMBER;
131 G_flexfield_type FND_FLEX_KEY_API.flexfield_type;
132 G_structure_type FND_FLEX_KEY_API.structure_type;
133 G_segment_list FND_FLEX_KEY_API.segment_list;
134
135 --
136 -- Array for storing information about every segment in the Accounting
137 -- Flexfield Structure.
138 --
139 TYPE ACCT_FLEX_SEGMT_RECORD IS RECORD
140 (segment_col_name fnd_id_flex_segments.application_column_name%TYPE
141 ,segment_name fnd_id_flex_segments.segment_name%TYPE
142 ,segment_prompt VARCHAR2(80)
143 ,segment_vset_id fnd_flex_value_sets.flex_value_set_id%TYPE
144 ,segment_vset_name fnd_flex_value_sets.flex_value_set_name%TYPE
145 ,segment_vset_fmt_type fnd_flex_value_sets.format_type%TYPE);
146 TYPE ACCT_FLEX_SEGMT_TABLE IS TABLE OF ACCT_FLEX_SEGMT_RECORD
147 INDEX BY BINARY_INTEGER;
148 G_acct_flex_segmt_arr ACCT_FLEX_SEGMT_TABLE;
149
150 --
151 -- Array for storing valid zero strings for the accounting flexfield segments
152 -- Stored in their position order for displaying. Also stores the actual
153 -- column name e.g. SEGMENT1
154 --
155 TYPE ZERO_FILL_RECORD IS RECORD
156 (zero_string gl_code_combinations.segment1%TYPE
157 ,segment_col_name VARCHAR2(30));
158 TYPE ZERO_FILL_TABLE IS TABLE OF ZERO_FILL_RECORD
159 INDEX BY BINARY_INTEGER;
160 G_zero_fill_arr ZERO_FILL_TABLE;
161
162 --
163 -- Globals for Cost Center Segment
164 --
165 G_cc_seg_num_string VARCHAR2(100) := NULL;
166 G_cc_segment_num NUMBER;
167
168 --
169 -- Globals for Account Segment
170 --
171 G_acc_seg_num_string VARCHAR2(100) := NULL;
172 G_acct_segment_num NUMBER;
173 G_acct_key_element binary_integer; -- Variable to hold the account segment number
174
175 --
176 -- Globals for Balancing Segment
177 --
178 G_bal_segment_num NUMBER;
179 G_bal_key_element binary_integer; -- Variable to hold the balancing segment number
180
181 END JG_JOURNAL_ALLOCATIONS_PKG;