1 PACKAGE gl_mc_info AUTHID CURRENT_USER AS
2 /* $Header: glmcinfs.pls 120.19.12010000.1 2008/07/28 13:27:46 appldev ship $ */
3 TYPE id_arr IS TABLE OF NUMBER(15);
4 TYPE var_arr1 IS TABLE OF VARCHAR2(1);
5 TYPE var_arr15 IS TABLE OF VARCHAR2(15);
6 TYPE var_arr20 IS TABLE OF VARCHAR2(20);
7 TYPE var_arr25 IS TABLE OF VARCHAR2(25);
8 TYPE var_arr30 IS TABLE OF VARCHAR2(30);
9 TYPE var_arr60 IS TABLE OF VARCHAR2(60);
10 TYPE date_arr IS TABLE OF DATE;
11
12 /* All attributes of this type of record are table of scalar type
13 (NUMBER/VARCHAR2), so we can use it for BULK COLLECT */
14 -- R11i.X Changes - Added r_alc_type, r_category, r_acct_method_code
15 -- r_mau and r_precision
16 TYPE r_sob_rec_col IS RECORD (r_sob_id id_arr,
17 r_sob_name var_arr30,
18 r_sob_short_name var_arr20,
19 r_sob_curr var_arr15,
20 r_alc_type var_arr30,
21 r_category var_arr30,
22 r_acct_method_code var_arr30,
23 r_mau id_arr,
24 r_precision id_arr,
25 r_sob_type var_arr1,
26 r_sob_user_type var_arr15,
27 r_sob_start_date date_arr,
28 r_sob_end_date date_arr);
29
30 -- R11i.X Changes - Added r_alc_type, r_category and r_acct_method_code
31 TYPE r_sob_rec IS RECORD (r_sob_id NUMBER(15),
32 r_sob_name VARCHAR2(30),
33 r_sob_short_name VARCHAR2(20),
34 r_sob_curr VARCHAR2(15),
35 r_alc_type VARCHAR2(30),
36 r_category VARCHAR2(30),
37 r_acct_method_code VARCHAR2(30),
38 r_mau NUMBER(15),
39 r_precision NUMBER(15),
40 r_sob_type VARCHAR2(1),
41 r_sob_user_type VARCHAR2(15),
42 r_sob_start_date DATE,
43 r_sob_end_date DATE);
44
45 TYPE r_sob_list IS TABLE OF r_sob_rec;
46
47 TYPE r_ael_sob_info IS RECORD (sob_id NUMBER(15),
48 sob_name VARCHAR2(30),
49 currency_code VARCHAR2(15),
50 accounting_method VARCHAR2(25),
51 sob_type VARCHAR2(1),
52 encumb_flag VARCHAR2(1),
53 start_date DATE,
54 end_date DATE);
55
56 TYPE t_ael_sob_info IS TABLE OF r_ael_sob_info
57 INDEX BY BINARY_INTEGER;
58
59 -- Data types added for 11i.X
60
61 -- Legal Entity/BSV List
62 TYPE le_bsv_rec_col IS RECORD (legal_entity_id id_arr,
63 legal_entity_name var_arr60,
64 bal_seg_value var_arr25);
65
66 TYPE le_bsv_rec_type IS RECORD (legal_entity_id NUMBER(15),
67 legal_entity_name VARCHAR2(60),
68 bal_seg_value VARCHAR2(25));
69
70 TYPE le_bsv_tbl_type IS TABLE OF le_bsv_rec_type;
71
72 -- Ledger List
73 TYPE ledger_rec_col IS RECORD (ledger_id id_arr,
74 ledger_name var_arr30,
75 ledger_short_name var_arr20,
76 ledger_currency var_arr15,
77 ledger_category var_arr30);
78
79 TYPE ledger_rec_type IS RECORD (ledger_id NUMBER(15),
80 ledger_name VARCHAR2(30),
81 ledger_short_name VARCHAR2(20),
82 ledger_currency VARCHAR2(15),
83 ledger_category VARCHAR2(30));
84
85 TYPE ledger_tbl_type IS TABLE OF ledger_rec_type;
86
87 TYPE t_alc_ledger_type_table IS TABLE OF VARCHAR2(30)
88 INDEX BY BINARY_INTEGER;
89 TYPE t_ledger_category_table IS TABLE OF VARCHAR2(30)
90 INDEX BY BINARY_INTEGER;
91 TYPE t_ledger_currency_table IS TABLE OF VARCHAR2(15)
92 INDEX BY BINARY_INTEGER;
93
94 -- Variables added for 11i.X
95 pg_alc_ledger_type_rec t_alc_ledger_type_table;
96 pg_ledger_category_rec t_ledger_category_table;
97 pg_ledger_currency_rec t_ledger_currency_table;
98
99 -- New 11i.X procedure
100 PROCEDURE get_ledger_currency (n_ledger_id IN NUMBER,
101 n_ledger_currency OUT NOCOPY VARCHAR2);
102
103 -- New 11i.X procedure
104 PROCEDURE get_alc_ledger_type (n_ledger_id IN NUMBER,
105 n_alc_ledger_type OUT NOCOPY VARCHAR2);
106
107 -- New 11i.X procedure
108 FUNCTION get_alc_ledger_type (n_ledger_id IN NUMBER) RETURN VARCHAR2;
109
110 PROCEDURE get_sob_type (n_sob_id IN NUMBER,
111 n_sob_type OUT NOCOPY VARCHAR2);
112
113 -- New 11i.X procedure
114 PROCEDURE get_ledger_category (n_ledger_id IN NUMBER,
115 n_ledger_category OUT NOCOPY VARCHAR2);
116
117 -- New 11i.X procedure
118 FUNCTION get_ledger_category (n_ledger_id IN NUMBER) RETURN VARCHAR2;
119
120 -- New 11i.X function
121 FUNCTION get_source_ledger_id
122 (n_ledger_id IN NUMBER,
123 n_appl_id IN NUMBER,
124 n_org_id IN NUMBER DEFAULT NULL,
125 n_fa_book_code IN VARCHAR2 DEFAULT NULL) RETURN NUMBER;
126
127 -- New 11i.X function
128 FUNCTION get_source_ledger_id
129 (n_ledger_id IN NUMBER) RETURN NUMBER;
130
131 FUNCTION get_primary_set_of_books_id
132 (n_rsob_id IN NUMBER) RETURN NUMBER;
133
134 -- New 11i.X function
135 FUNCTION get_primary_ledger_id
136 (n_ledger_id IN NUMBER,
137 n_appl_id IN NUMBER,
138 n_org_id IN NUMBER DEFAULT NULL) RETURN NUMBER;
139
140 -- New 11i.X function
141 FUNCTION get_primary_ledger_id
142 (n_ledger_id IN NUMBER) RETURN NUMBER;
143
144 -- New 11i.X function
145 FUNCTION init_ledger_le_bsv_gt (p_ledger_id IN NUMBER) RETURN VARCHAR2;
146
147 -- New 11i.X function
148 FUNCTION get_le_ledgers
149 (p_legal_entity_id IN NUMBER,
150 p_get_primary_flag IN VARCHAR2,
151 p_get_secondary_flag IN VARCHAR2,
152 p_get_alc_flag IN VARCHAR2,
153 x_ledger_list IN OUT NOCOPY ledger_tbl_type) RETURN BOOLEAN;
154
155 -- New 11i.X function
156 FUNCTION get_legal_entities
157 (p_ledger_id IN NUMBER,
158 x_le_list IN OUT NOCOPY le_bsv_tbl_type) RETURN BOOLEAN;
159
160 -- New 11i.X function
161 FUNCTION get_legal_entities
162 (p_ledger_id IN NUMBER,
163 p_bal_seg_value IN VARCHAR2,
164 p_bsv_eff_date IN DATE,
165 x_le_list IN OUT NOCOPY le_bsv_tbl_type) RETURN BOOLEAN;
166
167 -- New 11i.X function
168 FUNCTION get_bal_seg_values
169 (p_ledger_id IN NUMBER,
170 p_legal_entity_id IN NUMBER,
171 p_bsv_eff_date IN DATE,
172 x_allow_all_bsv_flag OUT NOCOPY VARCHAR2,
173 x_bsv_list IN OUT NOCOPY le_bsv_tbl_type) RETURN BOOLEAN;
174
175 -- New 11i.X function
176 FUNCTION get_bal_seg_values
177 (p_ledger_id IN NUMBER,
178 p_bsv_eff_date IN DATE,
179 x_allow_all_bsv_flag OUT NOCOPY VARCHAR2,
180 x_bsv_list IN OUT NOCOPY le_bsv_tbl_type) RETURN BOOLEAN;
181
182 -- New 11i.X procedure
183 PROCEDURE set_ledger (n_ledger_id IN NUMBER);
184
185 -- New 11i.X procedure
186 PROCEDURE set_org_id (n_org_id IN NUMBER);
187
188 PROCEDURE set_rsob (n_sob_id IN NUMBER);
189
190 PROCEDURE mrc_installed (mrc_install OUT NOCOPY VARCHAR2);
191
192 -- New 11i.X procedure
193 PROCEDURE alc_enabled (n_ledger_id IN NUMBER,
194 n_appl_id IN NUMBER,
195 n_org_id IN NUMBER DEFAULT NULL,
196 n_fa_book_code IN VARCHAR2 DEFAULT NULL,
197 n_alc_enabled OUT NOCOPY VARCHAR2);
198
199 -- New 11i.X procedure
200 FUNCTION alc_enabled (n_ledger_id IN NUMBER,
201 n_appl_id IN NUMBER,
202 n_org_id IN NUMBER DEFAULT NULL,
203 n_fa_book_code IN VARCHAR2 DEFAULT NULL) RETURN BOOLEAN;
204
205 -- New 11i.X procedure
206 FUNCTION alc_enabled(n_appl_id IN NUMBER) RETURN BOOLEAN;
207
208 PROCEDURE mrc_enabled (n_sob_id IN NUMBER,
209 n_appl_id IN NUMBER,
210 n_org_id IN NUMBER DEFAULT NULL,
211 n_fa_book_code IN VARCHAR2 DEFAULT NULL,
212 n_mrc_enabled OUT NOCOPY VARCHAR2);
213
214 -- New 11i.X procedure
215 PROCEDURE get_alc_ledger_id
216 (n_src_ledger_id IN NUMBER,
217 n_alc_id_list IN OUT NOCOPY id_arr);
218
219 -- R11i.X changes: rename the parameters
220 PROCEDURE get_reporting_set_of_books_id
221 (n_psob_id IN NUMBER,
222 n_rsob_id1 OUT NOCOPY NUMBER,
223 n_rsob_id2 OUT NOCOPY NUMBER,
224 n_rsob_id3 OUT NOCOPY NUMBER,
225 n_rsob_id4 OUT NOCOPY NUMBER,
226 n_rsob_id5 OUT NOCOPY NUMBER,
227 n_rsob_id6 OUT NOCOPY NUMBER,
228 n_rsob_id7 OUT NOCOPY NUMBER,
229 n_rsob_id8 OUT NOCOPY NUMBER);
230
231 -- New 11i.X procedure
232 PROCEDURE get_alc_associated_ledgers
233 (n_ledger_id IN NUMBER,
234 n_appl_id IN NUMBER,
235 n_org_id IN NUMBER DEFAULT NULL,
236 n_fa_book_code IN VARCHAR2 DEFAULT NULL,
237 -- Bug fix 3975695: Changed to default n_include_source_ledger to NULL
238 n_include_source_ledger IN VARCHAR2 DEFAULT NULL,
239 n_ledger_list IN OUT NOCOPY r_sob_list);
240
241 PROCEDURE get_associated_sobs
242 (n_sob_id IN NUMBER,
243 n_appl_id IN NUMBER,
244 n_org_id IN NUMBER DEFAULT NULL,
245 n_fa_book_code IN VARCHAR2 DEFAULT NULL,
246 n_sob_list IN OUT NOCOPY r_sob_list);
247
248 -- New 11i.X procedure
249 PROCEDURE get_alc_ledgers_scalar
250 (n_ledger_id IN NUMBER,
251 n_appl_id IN NUMBER,
252 n_org_id IN NUMBER DEFAULT NULL,
253 n_fa_book_code IN VARCHAR2 DEFAULT NULL,
254 n_ledger_id_1 OUT NOCOPY NUMBER,
255 n_ledger_name_1 OUT NOCOPY VARCHAR2,
256 n_alc_ledger_type_1 OUT NOCOPY VARCHAR2,
257 n_ledger_currency_1 OUT NOCOPY VARCHAR2,
258 n_ledger_category_1 OUT NOCOPY VARCHAR2,
259 n_ledger_short_name_1 OUT NOCOPY VARCHAR2,
260 n_acct_method_code_1 OUT NOCOPY VARCHAR2,
261 n_ledger_id_2 OUT NOCOPY NUMBER,
262 n_ledger_name_2 OUT NOCOPY VARCHAR2,
263 n_alc_ledger_type_2 OUT NOCOPY VARCHAR2,
264 n_ledger_currency_2 OUT NOCOPY VARCHAR2,
265 n_ledger_category_2 OUT NOCOPY VARCHAR2,
266 n_ledger_short_name_2 OUT NOCOPY VARCHAR2,
267 n_acct_method_code_2 OUT NOCOPY VARCHAR2,
268 n_ledger_id_3 OUT NOCOPY NUMBER,
269 n_ledger_name_3 OUT NOCOPY VARCHAR2,
270 n_alc_ledger_type_3 OUT NOCOPY VARCHAR2,
271 n_ledger_currency_3 OUT NOCOPY VARCHAR2,
272 n_ledger_category_3 OUT NOCOPY VARCHAR2,
273 n_ledger_short_name_3 OUT NOCOPY VARCHAR2,
274 n_acct_method_code_3 OUT NOCOPY VARCHAR2,
275 n_ledger_id_4 OUT NOCOPY NUMBER,
276 n_ledger_name_4 OUT NOCOPY VARCHAR2,
277 n_alc_ledger_type_4 OUT NOCOPY VARCHAR2,
278 n_ledger_currency_4 OUT NOCOPY VARCHAR2,
279 n_ledger_category_4 OUT NOCOPY VARCHAR2,
280 n_ledger_short_name_4 OUT NOCOPY VARCHAR2,
281 n_acct_method_code_4 OUT NOCOPY VARCHAR2,
282 n_ledger_id_5 OUT NOCOPY NUMBER,
283 n_ledger_name_5 OUT NOCOPY VARCHAR2,
284 n_alc_ledger_type_5 OUT NOCOPY VARCHAR2,
285 n_ledger_currency_5 OUT NOCOPY VARCHAR2,
286 n_ledger_category_5 OUT NOCOPY VARCHAR2,
287 n_ledger_short_name_5 OUT NOCOPY VARCHAR2,
288 n_acct_method_code_5 OUT NOCOPY VARCHAR2,
289 n_ledger_id_6 OUT NOCOPY NUMBER,
290 n_ledger_name_6 OUT NOCOPY VARCHAR2,
291 n_alc_ledger_type_6 OUT NOCOPY VARCHAR2,
292 n_ledger_currency_6 OUT NOCOPY VARCHAR2,
293 n_ledger_category_6 OUT NOCOPY VARCHAR2,
294 n_ledger_short_name_6 OUT NOCOPY VARCHAR2,
295 n_acct_method_code_6 OUT NOCOPY VARCHAR2,
296 n_ledger_id_7 OUT NOCOPY NUMBER,
297 n_ledger_name_7 OUT NOCOPY VARCHAR2,
298 n_alc_ledger_type_7 OUT NOCOPY VARCHAR2,
299 n_ledger_currency_7 OUT NOCOPY VARCHAR2,
300 n_ledger_category_7 OUT NOCOPY VARCHAR2,
301 n_ledger_short_name_7 OUT NOCOPY VARCHAR2,
305 n_alc_ledger_type_8 OUT NOCOPY VARCHAR2,
302 n_acct_method_code_7 OUT NOCOPY VARCHAR2,
303 n_ledger_id_8 OUT NOCOPY NUMBER,
304 n_ledger_name_8 OUT NOCOPY VARCHAR2,
306 n_ledger_currency_8 OUT NOCOPY VARCHAR2,
307 n_ledger_category_8 OUT NOCOPY VARCHAR2,
308 n_ledger_short_name_8 OUT NOCOPY VARCHAR2,
309 n_acct_method_code_8 OUT NOCOPY VARCHAR2);
310
311 PROCEDURE get_associated_sobs_scalar
312 (p_sob_id IN NUMBER,
313 p_appl_id IN NUMBER,
314 p_org_id IN NUMBER DEFAULT NULL,
315 p_fa_book_code IN VARCHAR2 DEFAULT NULL,
316 p_sob_id_1 OUT NOCOPY NUMBER,
317 p_sob_name_1 OUT NOCOPY VARCHAR2,
318 p_sob_type_1 OUT NOCOPY VARCHAR2,
319 p_sob_curr_1 OUT NOCOPY VARCHAR2,
320 p_sob_user_type_1 OUT NOCOPY VARCHAR2,
321 p_sob_short_name_1 OUT NOCOPY VARCHAR2,
322 p_sob_id_2 OUT NOCOPY NUMBER,
323 p_sob_name_2 OUT NOCOPY VARCHAR2,
324 p_sob_type_2 OUT NOCOPY VARCHAR2,
325 p_sob_curr_2 OUT NOCOPY VARCHAR2,
326 p_sob_user_type_2 OUT NOCOPY VARCHAR2,
327 p_sob_short_name_2 OUT NOCOPY VARCHAR2,
328 p_sob_id_3 OUT NOCOPY NUMBER,
329 p_sob_name_3 OUT NOCOPY VARCHAR2,
330 p_sob_type_3 OUT NOCOPY VARCHAR2,
331 p_sob_curr_3 OUT NOCOPY VARCHAR2,
332 p_sob_user_type_3 OUT NOCOPY VARCHAR2,
333 p_sob_short_name_3 OUT NOCOPY VARCHAR2,
334 p_sob_id_4 OUT NOCOPY NUMBER,
335 p_sob_name_4 OUT NOCOPY VARCHAR2,
336 p_sob_type_4 OUT NOCOPY VARCHAR2,
337 p_sob_curr_4 OUT NOCOPY VARCHAR2,
338 p_sob_user_type_4 OUT NOCOPY VARCHAR2,
339 p_sob_short_name_4 OUT NOCOPY VARCHAR2,
340 p_sob_id_5 OUT NOCOPY NUMBER,
341 p_sob_name_5 OUT NOCOPY VARCHAR2,
342 p_sob_type_5 OUT NOCOPY VARCHAR2,
343 p_sob_curr_5 OUT NOCOPY VARCHAR2,
344 p_sob_user_type_5 OUT NOCOPY VARCHAR2,
345 p_sob_short_name_5 OUT NOCOPY VARCHAR2,
346 p_sob_id_6 OUT NOCOPY NUMBER,
347 p_sob_name_6 OUT NOCOPY VARCHAR2,
348 p_sob_type_6 OUT NOCOPY VARCHAR2,
349 p_sob_curr_6 OUT NOCOPY VARCHAR2,
350 p_sob_user_type_6 OUT NOCOPY VARCHAR2,
351 p_sob_short_name_6 OUT NOCOPY VARCHAR2,
352 p_sob_id_7 OUT NOCOPY NUMBER,
353 p_sob_name_7 OUT NOCOPY VARCHAR2,
354 p_sob_type_7 OUT NOCOPY VARCHAR2,
355 p_sob_curr_7 OUT NOCOPY VARCHAR2,
356 p_sob_user_type_7 OUT NOCOPY VARCHAR2,
357 p_sob_short_name_7 OUT NOCOPY VARCHAR2,
358 p_sob_id_8 OUT NOCOPY NUMBER,
359 p_sob_name_8 OUT NOCOPY VARCHAR2,
360 p_sob_type_8 OUT NOCOPY VARCHAR2,
361 p_sob_curr_8 OUT NOCOPY VARCHAR2,
362 p_sob_user_type_8 OUT NOCOPY VARCHAR2,
363 p_sob_short_name_8 OUT NOCOPY VARCHAR2);
364
365 -- New 11i.X procedure
366 PROCEDURE get_sec_associated_ledgers
367 (n_ledger_id IN NUMBER,
368 n_appl_id IN NUMBER,
369 n_org_id IN NUMBER DEFAULT NULL,
370 -- Bug fix 3975695: Changed to default n_include_primary_ledger to NULL
371 n_include_primary_ledger IN VARCHAR2 DEFAULT NULL,
372 n_ledger_list IN OUT NOCOPY r_sob_list);
373
374 PROCEDURE ap_ael_sobs (ael_sob_info IN OUT NOCOPY t_ael_sob_info);
375
376 -- The codes of the following functions are moved to AP_MC_INFO but we still
377 -- keep them in here for backward compatible
378
379 PROCEDURE populate_ledger_bsv_gt
380 (n_ledger_id IN NUMBER);
381
382 FUNCTION get_conversion_type (
383 pk_id IN NUMBER,
384 sob_id IN NUMBER,
385 source IN VARCHAR2,
386 ptype IN VARCHAR2 DEFAULT NULL) RETURN VARCHAR2;
387
388 FUNCTION get_conversion_date (
389 pk_id IN NUMBER,
390 sob_id IN NUMBER,
394 FUNCTION get_conversion_rate (
391 source IN VARCHAR2,
392 ptype IN VARCHAR2 DEFAULT NULL) RETURN DATE;
393
395 pk_id IN NUMBER,
396 sob_id IN NUMBER,
397 source IN VARCHAR2,
398 ptype IN VARCHAR2 DEFAULT NULL) RETURN NUMBER;
399
400 FUNCTION get_acctd_amount(
401 pk_id IN NUMBER,
402 sob_id IN NUMBER,
403 source IN VARCHAR2,
404 amount_type IN VARCHAR2 DEFAULT NULL) RETURN NUMBER;
405
406 FUNCTION get_ccid(
407 pk_id IN NUMBER,
408 sob_id IN NUMBER,
409 source IN VARCHAR2,
410 ccid_type IN VARCHAR2 DEFAULT NULL) RETURN NUMBER;
411
412 -- The following APIs are deleted as no one is using:
413 /* PROCEDURE get_sec_associated_sobs
414 (n_sob_id IN NUMBER,
415 n_appl_id IN NUMBER,
416 n_org_id IN NUMBER,
417 n_fa_book_code IN VARCHAR2,
418 n_sob_list IN OUT NOCOPY r_sob_list);
419
420 FUNCTION ap_get_erv (n_pk_id NUMBER,
421 n_ledger_id NUMBER) RETURN NUMBER;
422 */
423 END;