[Home] [Help]
PACKAGE BODY: APPS.JG_RX_C_IR_PKG
Source
1 PACKAGE BODY JG_RX_C_IR_PKG AS
2 /* $Header: jgrxcirb.pls 120.7.12010000.4 2009/12/01 04:59:05 gkumares ship $ */
3 PROCEDURE ap_rx_invoice_reg (
4 errbuf out nocopy varchar2,
5 retcode out nocopy number,
6 argument1 in varchar2, -- Reporting Level (for MOAC change)
7 argument2 in varchar2, -- Reporting Entity ID (for MOAC change)
8 argument3 in varchar2, -- Set of Books ID
9 argument4 in varchar2, -- Supplier Name
10 argument5 in varchar2, -- Invoice type
11 argument6 in varchar2, -- Batch id
12 argument7 in varchar2, -- Entry person id
13 argument8 in varchar2, -- First entered date
14 argument9 in varchar2, -- Last entered date
15 argument10 in varchar2, -- Accounting period
16 argument11 in varchar2, -- Cancelled invoices only
17 argument12 in varchar2, -- Unapproved Invoices only
18 argument13 in varchar2, -- Debug
19 argument14 in varchar2,
20 argument15 in varchar2,
21 argument16 in varchar2,
22 argument17 in varchar2,
23 argument18 in varchar2,
24 argument19 in varchar2,
25 argument20 in varchar2,
26 argument21 in varchar2,
27 argument22 in varchar2,
28 argument23 in varchar2,
29 argument24 in varchar2,
30 argument25 in varchar2,
31 argument26 in varchar2,
32 argument27 in varchar2,
33 argument28 in varchar2,
34 argument29 in varchar2,
35 argument30 in varchar2,
36 argument31 in varchar2,
37 argument32 in varchar2,
38 argument33 in varchar2,
39 argument34 in varchar2,
40 argument35 in varchar2,
41 argument36 in varchar2,
42 argument37 in varchar2,
43 argument38 in varchar2,
44 argument39 in varchar2,
45 argument40 in varchar2,
46 argument41 in varchar2,
47 argument42 in varchar2,
48 argument43 in varchar2,
49 argument44 in varchar2,
50 argument45 in varchar2,
51 argument46 in varchar2,
52 argument47 in varchar2,
53 argument48 in varchar2,
54 argument49 in varchar2,
55 argument50 in varchar2,
56 argument51 in varchar2,
57 argument52 in varchar2,
58 argument53 in varchar2,
59 argument54 in varchar2,
60 argument55 in varchar2,
61 argument56 in varchar2,
62 argument57 in varchar2,
63 argument58 in varchar2,
64 argument59 in varchar2,
65 argument60 in varchar2,
66 argument61 in varchar2,
67 argument62 in varchar2,
68 argument63 in varchar2,
69 argument64 in varchar2,
70 argument65 in varchar2,
71 argument66 in varchar2,
72 argument67 in varchar2,
73 argument68 in varchar2,
74 argument69 in varchar2,
75 argument70 in varchar2,
76 argument71 in varchar2,
77 argument72 in varchar2,
78 argument73 in varchar2,
79 argument74 in varchar2,
80 argument75 in varchar2,
81 argument76 in varchar2,
82 argument77 in varchar2,
83 argument78 in varchar2,
84 argument79 in varchar2,
85 argument80 in varchar2,
86 argument81 in varchar2,
87 argument82 in varchar2,
88 argument83 in varchar2,
89 argument84 in varchar2,
90 argument85 in varchar2,
91 argument86 in varchar2,
92 argument87 in varchar2,
93 argument88 in varchar2,
94 argument89 in varchar2,
95 argument90 in varchar2,
96 argument91 in varchar2,
97 argument92 in varchar2,
98 argument93 in varchar2,
99 argument94 in varchar2,
100 argument95 in varchar2,
101 argument96 in varchar2,
102 argument97 in varchar2,
103 argument98 in varchar2,
104 argument99 in varchar2,
105 argument100 in varchar2) is
106
107 h_request_id NUMBER;
108 h_login_id NUMBER;
109 h_debug BOOLEAN;
110
111 /* Added for MOAC change */
112 h_reporting_level varchar2(30);
113 h_reporting_entity_id number;
114
115 h_set_of_book_id number;
116 h_chart_of_acct_id number;
117 h_cancelled_inv BOOLEAN;
118 h_unapproved_inv BOOLEAN;
119 h_line_inv varchar2(1);
120 h_batch_id number;
121 h_entry_person_id number;
122 h_entered_date_low date;
123 h_entered_date_high date;
124 h_account_date_low date;
125 h_account_date_high date;
126
127 begin
128
129 /* Set debug mode */
130 h_debug := Upper(argument13) LIKE 'Y%';
131 IF h_debug THEN
132 fa_rx_util_pkg.enable_debug;
133 END IF;
134
135 fa_rx_util_pkg.debug('argument1:' ||argument1);
136 fa_rx_util_pkg.debug('argument2:' ||argument2);
137 fa_rx_util_pkg.debug('argument3:' ||argument3);
138 fa_rx_util_pkg.debug('argument4:' ||argument4);
139 fa_rx_util_pkg.debug('argument5:' ||argument5);
140 fa_rx_util_pkg.debug('argument6:' ||argument6);
141 fa_rx_util_pkg.debug('argument7:' ||argument7);
142 fa_rx_util_pkg.debug('argument8:' ||argument8);
143 fa_rx_util_pkg.debug('argument9:' ||argument9);
144 fa_rx_util_pkg.debug('argument10:' ||argument10);
145 fa_rx_util_pkg.debug('argument11:' ||argument11);
146 fa_rx_util_pkg.debug('argument12:' ||argument12);
147 fa_rx_util_pkg.debug('argument13:' ||argument13);
148
149 /* Set Reporting Level and Reporting Context ID */
150 if argument1 is null then
151 h_reporting_level := '3000'; -- Operating Units
152 else
153 h_reporting_level := argument1;
154 end if;
155
156 if argument2 is null then
157 h_reporting_entity_id := fnd_profile.value('DEFAULT_ORG_ID'); -- Get default OU ID.
158 else
159 h_reporting_entity_id := to_number(argument2);
160 end if;
161
162
163
164 /* Set request id and login id */
165 h_request_id := fnd_global.conc_request_id;
166
167 -- Bug#9056057 Start
168 --fnd_profile.get('LOGIN_ID',h_login_id);
169 h_login_id := nvl(fnd_profile.value('USER_ID'),1);
170 -- Bug#9056057 End
171 /* Set boolean parameter */
172 h_cancelled_inv := Upper(argument11) LIKE 'Y%';
173 h_unapproved_inv := Upper(argument12) LIKE 'Y%';
174
175 /* Set other pramerters */
176 h_line_inv :='I';
177 h_set_of_book_id := to_number(argument3);
178 h_batch_id := to_number(argument6);
179 h_entry_person_id := to_number(argument7);
180 h_entered_date_low := to_date(argument8, 'YYYY/MM/DD HH24:MI:SS');
181 h_entered_date_high := to_date(argument9, 'YYYY/MM/DD HH24:MI:SS');
182
183 /* From Period name, get account date range */
184 if argument10 is not null then
185 SELECT start_date, end_date
186 INTO h_account_date_low, h_account_date_high
187 FROM gl_period_statuses
188 WHERE period_name = argument8
189 AND set_of_books_id = h_set_of_book_id
190 AND application_id = 200
191 AND NVL(adjustment_period_flag, 'N') = 'N';
192 end if;
193
194 /* From Set of book id, get chart of account id */
195 Select chart_of_accounts_id
196 into h_chart_of_acct_id
197 from GL_SETS_OF_BOOKS
198 Where SET_OF_BOOKS_ID = h_set_of_book_id;
199
200 JG_RX_IR_PKG.AP_RX_INVOICE_RUN (
201 errbuf => errbuf,
202 retcode => retcode,
203 p_request_id => h_request_id,
204 p_login_id => h_login_id,
205 p_reporting_level => h_reporting_level,
206 p_reporting_entity_id => h_reporting_entity_id,
207 p_set_of_book_id => h_set_of_book_id,
208 p_chart_of_acct_id => h_chart_of_acct_id,
209 p_line_inv => h_line_inv,
210 p_acct_date_min => h_account_date_low,
211 p_acct_date_max => h_account_date_high,
212 p_batch_id => h_batch_id,
213 p_invoice_type => argument5,
214 p_entry_person_id => h_entry_person_id,
215 p_doc_sequence_id => to_number(null),
216 p_doc_sequence_value_min => to_number(null),
217 p_doc_sequence_value_max => to_number(null),
218 p_supplier_min => argument4,
219 p_supplier_max => argument4,
220 p_liability_min => to_char(null),
221 p_liability_max => to_char(null),
222 p_dist_acct_min => to_char(null),
223 p_dist_acct_max => to_char(null),
224 p_inv_currency_code => to_char(null),
225 p_dist_amount_min => to_number(null),
226 p_dist_amount_max => to_number(null),
227 p_entered_date_min => h_entered_date_low,
228 p_entered_date_max => h_entered_date_high,
229 p_cancelled_inv => h_cancelled_inv,
230 p_unapproved_inv => h_unapproved_inv
231 );
232
233 END ap_rx_invoice_reg;
234
235 PROCEDURE ap_rx_invoice_reg_dtl (
236 errbuf out nocopy varchar2,
237 retcode out nocopy number,
238 argument1 in varchar2, -- Reporting Level (added for MOAC change)
239 argument2 in varchar2, -- Reporting Entity Id (Added for MOAC change)
240 argument3 in varchar2, -- Set of Books is
241 argument4 in varchar2, -- Chart of Accounts id
242 argument5 in varchar2, -- Line or Invoice
243 argument6 in varchar2, -- Account date low
244 argument7 in varchar2, -- Account Date high
245 argument8 in varchar2, -- Batch id
246 argument9 in varchar2, -- Invoice Type
247 argument10 in varchar2, -- Entered person id
248 argument11 in varchar2, -- Document sequence id
249 argument12 in varchar2, -- Document sequence value low
250 argument13 in varchar2, -- Document sequence value high
251 argument14 in varchar2, -- Supplier Name low
252 argument15 in varchar2, -- Supplier Name high
253 argument16 in varchar2, -- Liability account low
254 argument17 in varchar2, -- Liability account high
255 argument18 in varchar2, -- Distribution account low
256 argument19 in varchar2, -- Distribution account high
257 argument20 in varchar2, -- Invoice currency code
258 argument21 in varchar2, -- Distribution amount low
259 argument22 in varchar2, -- Distribution amount high
260 argument23 in varchar2, -- Debug
261 argument24 in varchar2,
262 argument25 in varchar2,
263 argument26 in varchar2,
264 argument27 in varchar2,
265 argument28 in varchar2,
266 argument29 in varchar2,
267 argument30 in varchar2,
268 argument31 in varchar2,
269 argument32 in varchar2,
270 argument33 in varchar2,
271 argument34 in varchar2,
272 argument35 in varchar2,
273 argument36 in varchar2,
274 argument37 in varchar2,
275 argument38 in varchar2,
276 argument39 in varchar2,
277 argument40 in varchar2,
278 argument41 in varchar2,
279 argument42 in varchar2,
280 argument43 in varchar2,
281 argument44 in varchar2,
282 argument45 in varchar2,
283 argument46 in varchar2,
284 argument47 in varchar2,
285 argument48 in varchar2,
286 argument49 in varchar2,
287 argument50 in varchar2,
288 argument51 in varchar2,
289 argument52 in varchar2,
290 argument53 in varchar2,
291 argument54 in varchar2,
292 argument55 in varchar2,
293 argument56 in varchar2,
294 argument57 in varchar2,
295 argument58 in varchar2,
296 argument59 in varchar2,
297 argument60 in varchar2,
298 argument61 in varchar2,
299 argument62 in varchar2,
300 argument63 in varchar2,
301 argument64 in varchar2,
302 argument65 in varchar2,
303 argument66 in varchar2,
304 argument67 in varchar2,
305 argument68 in varchar2,
306 argument69 in varchar2,
307 argument70 in varchar2,
308 argument71 in varchar2,
309 argument72 in varchar2,
310 argument73 in varchar2,
311 argument74 in varchar2,
312 argument75 in varchar2,
313 argument76 in varchar2,
314 argument77 in varchar2,
315 argument78 in varchar2,
316 argument79 in varchar2,
317 argument80 in varchar2,
318 argument81 in varchar2,
319 argument82 in varchar2,
320 argument83 in varchar2,
321 argument84 in varchar2,
322 argument85 in varchar2,
323 argument86 in varchar2,
324 argument87 in varchar2,
325 argument88 in varchar2,
326 argument89 in varchar2,
327 argument90 in varchar2,
328 argument91 in varchar2,
329 argument92 in varchar2,
330 argument93 in varchar2,
331 argument94 in varchar2,
332 argument95 in varchar2,
333 argument96 in varchar2,
334 argument97 in varchar2,
335 argument98 in varchar2,
336 argument99 in varchar2,
337 argument100 in varchar2) is
338
339 h_request_id NUMBER;
340 h_login_id NUMBER;
341 h_debug BOOLEAN;
342
343 /* Added for MOAC change */
344 h_reporting_level varchar2(30);
345 h_reporting_entity_id number;
346
347 h_set_of_book_id number;
348 h_chart_of_acct_id number;
349 h_account_date_low date;
350 h_account_date_high date;
351 h_batch_id number;
352 h_entry_person_id number;
353 h_doc_sequence_id number;
354 h_doc_sequence_value_min number;
355 h_doc_sequence_value_max number;
356 h_dist_amount_min number;
357 h_dist_amount_max number;
358
359 begin
360
361 /* Set debug mode */
362 h_debug := Upper(argument23) LIKE 'Y%';
363 IF h_debug THEN
364 fa_rx_util_pkg.enable_debug;
365 END IF;
366
367 fa_rx_util_pkg.debug('argument1:' ||argument1);
368 fa_rx_util_pkg.debug('argument2:' ||argument2);
369 fa_rx_util_pkg.debug('argument3:' ||argument3);
370 fa_rx_util_pkg.debug('argument4:' ||argument4);
371 fa_rx_util_pkg.debug('argument5:' ||argument5);
372 fa_rx_util_pkg.debug('argument6:' ||argument6);
373 fa_rx_util_pkg.debug('argument7:' ||argument7);
374 fa_rx_util_pkg.debug('argument8:' ||argument8);
375 fa_rx_util_pkg.debug('argument9:' ||argument9);
376 fa_rx_util_pkg.debug('argument10:' ||argument10);
377 fa_rx_util_pkg.debug('argument11:' ||argument11);
378 fa_rx_util_pkg.debug('argument12:' ||argument12);
379 fa_rx_util_pkg.debug('argument13:' ||argument13);
380 fa_rx_util_pkg.debug('argument14:' ||argument14);
381 fa_rx_util_pkg.debug('argument15:' ||argument15);
382 fa_rx_util_pkg.debug('argument16:' ||argument16);
383 fa_rx_util_pkg.debug('argument17:' ||argument17);
384 fa_rx_util_pkg.debug('argument18:' ||argument18);
385 fa_rx_util_pkg.debug('argument19:' ||argument19);
386 fa_rx_util_pkg.debug('argument20:' ||argument20);
387 fa_rx_util_pkg.debug('argument21:' ||argument21);
388 fa_rx_util_pkg.debug('argument22:' ||argument22);
389 fa_rx_util_pkg.debug('argument23:' ||argument23);
390
391 /* Set Reporting Level and Reporting Context ID */
392 if argument1 is null then
393 h_reporting_level := '3000'; -- Operating Units
394 else
395 h_reporting_level := argument1;
396 end if;
397
398 if argument2 is null then
399 h_reporting_entity_id := fnd_profile.value('DEFAULT_ORG_ID'); -- Get default OU ID.
400 else
401 h_reporting_entity_id := to_number(argument2);
402 end if;
403
404
405 fa_rx_util_pkg.debug('h_reporting_entity_id : ' ||h_reporting_entity_id);
406
407 /* Set request id and login id */
408 h_request_id := fnd_global.conc_request_id;
409 -- Bug#9056057 Start
410 --fnd_profile.get('LOGIN_ID',h_login_id);
411 h_login_id := nvl(fnd_profile.value('USER_ID'),1);
412 -- Bug#9056057 End
413
414
415 /* Set other pramenters */
416 h_set_of_book_id := to_number(argument3);
417 h_chart_of_acct_id :=to_number(argument4);
418 h_account_date_low := to_date(argument6, 'YYYY/MM/DD HH24:MI:SS');
419 h_account_date_high := to_date(argument7, 'YYYY/MM/DD HH24:MI:SS');
420 h_batch_id := to_number(argument8);
421 h_entry_person_id := to_number(argument10);
422 h_doc_sequence_id := to_number(argument11);
423 h_doc_sequence_value_min := to_number(argument12);
424 h_doc_sequence_value_max := to_number(argument13);
425 h_dist_amount_min := to_number(argument21);
426 h_dist_amount_max := to_number(argument22);
427
428 JG_RX_IR_PKG.AP_RX_INVOICE_RUN (
429 errbuf => errbuf,
430 retcode => retcode,
431 p_request_id => h_request_id,
432 p_login_id => h_login_id,
433 p_reporting_level => h_reporting_level,
434 p_reporting_entity_id => h_reporting_entity_id,
435 p_set_of_book_id => h_set_of_book_id,
436 p_chart_of_acct_id => h_chart_of_acct_id,
437 p_line_inv => argument5,
438 p_acct_date_min => h_account_date_low,
439 p_acct_date_max => h_account_date_high,
440 p_batch_id => h_batch_id,
441 p_invoice_type => argument9,
442 p_entry_person_id => h_entry_person_id,
443 p_doc_sequence_id => h_doc_sequence_id,
444 p_doc_sequence_value_min => h_doc_sequence_value_min,
445 p_doc_sequence_value_max => h_doc_sequence_value_max,
446 p_supplier_min => argument14,
447 p_supplier_max => argument15,
448 p_liability_min => argument16,
449 p_liability_max => argument17,
450 p_dist_acct_min => argument18,
451 p_dist_acct_max => argument19,
452 p_inv_currency_code => argument20,
453 p_dist_amount_min => h_dist_amount_min,
454 p_dist_amount_max => h_dist_amount_max,
455 p_entered_date_min => to_date(null),
456 p_entered_date_max => to_date(null),
457 p_cancelled_inv => false,
458 p_unapproved_inv => false
459 );
460
461 END ap_rx_invoice_reg_dtl;
462
463 END JG_RX_C_IR_PKG;