[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.6.12000000.2 2007/07/12 07:57:34 pakumare 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 fnd_profile.get('LOGIN_ID',h_login_id);
167
168 /* Set boolean parameter */
169 h_cancelled_inv := Upper(argument11) LIKE 'Y%';
170 h_unapproved_inv := Upper(argument12) LIKE 'Y%';
171
172 /* Set other pramerters */
173 h_line_inv :='I';
174 h_set_of_book_id := to_number(argument3);
175 h_batch_id := to_number(argument6);
176 h_entry_person_id := to_number(argument7);
177 h_entered_date_low := to_date(argument8, 'YYYY/MM/DD HH24:MI:SS');
178 h_entered_date_high := to_date(argument9, 'YYYY/MM/DD HH24:MI:SS');
179
180 /* From Period name, get account date range */
181 if argument10 is not null then
182 SELECT start_date, end_date
183 INTO h_account_date_low, h_account_date_high
184 FROM gl_period_statuses
185 WHERE period_name = argument8
186 AND set_of_books_id = h_set_of_book_id
187 AND application_id = 200
188 AND NVL(adjustment_period_flag, 'N') = 'N';
189 end if;
190
191 /* From Set of book id, get chart of account id */
192 Select chart_of_accounts_id
193 into h_chart_of_acct_id
194 from GL_SETS_OF_BOOKS
195 Where SET_OF_BOOKS_ID = h_set_of_book_id;
196
197 JG_RX_IR_PKG.AP_RX_INVOICE_RUN (
198 errbuf => errbuf,
199 retcode => retcode,
200 p_request_id => h_request_id,
201 p_login_id => h_login_id,
202 p_reporting_level => h_reporting_level,
203 p_reporting_entity_id => h_reporting_entity_id,
204 p_set_of_book_id => h_set_of_book_id,
205 p_chart_of_acct_id => h_chart_of_acct_id,
206 p_line_inv => h_line_inv,
207 p_acct_date_min => h_account_date_low,
208 p_acct_date_max => h_account_date_high,
209 p_batch_id => h_batch_id,
210 p_invoice_type => argument5,
211 p_entry_person_id => h_entry_person_id,
212 p_doc_sequence_id => to_number(null),
213 p_doc_sequence_value_min => to_number(null),
214 p_doc_sequence_value_max => to_number(null),
215 p_supplier_min => argument4,
216 p_supplier_max => argument4,
217 p_liability_min => to_char(null),
218 p_liability_max => to_char(null),
219 p_dist_acct_min => to_char(null),
220 p_dist_acct_max => to_char(null),
221 p_inv_currency_code => to_char(null),
222 p_dist_amount_min => to_number(null),
223 p_dist_amount_max => to_number(null),
224 p_entered_date_min => h_entered_date_low,
225 p_entered_date_max => h_entered_date_high,
226 p_cancelled_inv => h_cancelled_inv,
227 p_unapproved_inv => h_unapproved_inv
228 );
229
230 END ap_rx_invoice_reg;
231
232 PROCEDURE ap_rx_invoice_reg_dtl (
233 errbuf out nocopy varchar2,
234 retcode out nocopy number,
235 argument1 in varchar2, -- Reporting Level (added for MOAC change)
236 argument2 in varchar2, -- Reporting Entity Id (Added for MOAC change)
237 argument3 in varchar2, -- Set of Books is
238 argument4 in varchar2, -- Chart of Accounts id
239 argument5 in varchar2, -- Line or Invoice
240 argument6 in varchar2, -- Account date low
241 argument7 in varchar2, -- Account Date high
242 argument8 in varchar2, -- Batch id
243 argument9 in varchar2, -- Invoice Type
244 argument10 in varchar2, -- Entered person id
245 argument11 in varchar2, -- Document sequence id
246 argument12 in varchar2, -- Document sequence value low
247 argument13 in varchar2, -- Document sequence value high
248 argument14 in varchar2, -- Supplier Name low
249 argument15 in varchar2, -- Supplier Name high
250 argument16 in varchar2, -- Liability account low
251 argument17 in varchar2, -- Liability account high
252 argument18 in varchar2, -- Distribution account low
253 argument19 in varchar2, -- Distribution account high
254 argument20 in varchar2, -- Invoice currency code
255 argument21 in varchar2, -- Distribution amount low
256 argument22 in varchar2, -- Distribution amount high
257 argument23 in varchar2, -- Debug
258 argument24 in varchar2,
259 argument25 in varchar2,
260 argument26 in varchar2,
261 argument27 in varchar2,
262 argument28 in varchar2,
263 argument29 in varchar2,
264 argument30 in varchar2,
265 argument31 in varchar2,
266 argument32 in varchar2,
267 argument33 in varchar2,
268 argument34 in varchar2,
269 argument35 in varchar2,
270 argument36 in varchar2,
271 argument37 in varchar2,
272 argument38 in varchar2,
273 argument39 in varchar2,
274 argument40 in varchar2,
275 argument41 in varchar2,
276 argument42 in varchar2,
277 argument43 in varchar2,
278 argument44 in varchar2,
279 argument45 in varchar2,
280 argument46 in varchar2,
281 argument47 in varchar2,
282 argument48 in varchar2,
283 argument49 in varchar2,
284 argument50 in varchar2,
285 argument51 in varchar2,
286 argument52 in varchar2,
287 argument53 in varchar2,
288 argument54 in varchar2,
289 argument55 in varchar2,
290 argument56 in varchar2,
291 argument57 in varchar2,
292 argument58 in varchar2,
293 argument59 in varchar2,
294 argument60 in varchar2,
295 argument61 in varchar2,
296 argument62 in varchar2,
297 argument63 in varchar2,
298 argument64 in varchar2,
299 argument65 in varchar2,
300 argument66 in varchar2,
301 argument67 in varchar2,
302 argument68 in varchar2,
303 argument69 in varchar2,
304 argument70 in varchar2,
305 argument71 in varchar2,
306 argument72 in varchar2,
307 argument73 in varchar2,
308 argument74 in varchar2,
309 argument75 in varchar2,
310 argument76 in varchar2,
311 argument77 in varchar2,
312 argument78 in varchar2,
313 argument79 in varchar2,
314 argument80 in varchar2,
315 argument81 in varchar2,
316 argument82 in varchar2,
317 argument83 in varchar2,
318 argument84 in varchar2,
319 argument85 in varchar2,
320 argument86 in varchar2,
321 argument87 in varchar2,
322 argument88 in varchar2,
323 argument89 in varchar2,
324 argument90 in varchar2,
325 argument91 in varchar2,
326 argument92 in varchar2,
327 argument93 in varchar2,
328 argument94 in varchar2,
329 argument95 in varchar2,
330 argument96 in varchar2,
331 argument97 in varchar2,
332 argument98 in varchar2,
333 argument99 in varchar2,
334 argument100 in varchar2) is
335
336 h_request_id NUMBER;
337 h_login_id NUMBER;
338 h_debug BOOLEAN;
339
340 /* Added for MOAC change */
341 h_reporting_level varchar2(30);
342 h_reporting_entity_id number;
343
344 h_set_of_book_id number;
345 h_chart_of_acct_id number;
346 h_account_date_low date;
347 h_account_date_high date;
348 h_batch_id number;
349 h_entry_person_id number;
350 h_doc_sequence_id number;
351 h_doc_sequence_value_min number;
352 h_doc_sequence_value_max number;
353 h_dist_amount_min number;
354 h_dist_amount_max number;
355
356 begin
357
358 /* Set debug mode */
359 h_debug := Upper(argument23) LIKE 'Y%';
360 IF h_debug THEN
361 fa_rx_util_pkg.enable_debug;
362 END IF;
363
364 fa_rx_util_pkg.debug('argument1:' ||argument1);
365 fa_rx_util_pkg.debug('argument2:' ||argument2);
366 fa_rx_util_pkg.debug('argument3:' ||argument3);
367 fa_rx_util_pkg.debug('argument4:' ||argument4);
368 fa_rx_util_pkg.debug('argument5:' ||argument5);
369 fa_rx_util_pkg.debug('argument6:' ||argument6);
370 fa_rx_util_pkg.debug('argument7:' ||argument7);
371 fa_rx_util_pkg.debug('argument8:' ||argument8);
372 fa_rx_util_pkg.debug('argument9:' ||argument9);
373 fa_rx_util_pkg.debug('argument10:' ||argument10);
374 fa_rx_util_pkg.debug('argument11:' ||argument11);
375 fa_rx_util_pkg.debug('argument12:' ||argument12);
376 fa_rx_util_pkg.debug('argument13:' ||argument13);
377 fa_rx_util_pkg.debug('argument14:' ||argument14);
378 fa_rx_util_pkg.debug('argument15:' ||argument15);
379 fa_rx_util_pkg.debug('argument16:' ||argument16);
380 fa_rx_util_pkg.debug('argument17:' ||argument17);
381 fa_rx_util_pkg.debug('argument18:' ||argument18);
382 fa_rx_util_pkg.debug('argument19:' ||argument19);
383 fa_rx_util_pkg.debug('argument20:' ||argument20);
384 fa_rx_util_pkg.debug('argument21:' ||argument21);
385 fa_rx_util_pkg.debug('argument22:' ||argument22);
386 fa_rx_util_pkg.debug('argument23:' ||argument23);
387
388 /* Set Reporting Level and Reporting Context ID */
389 if argument1 is null then
390 h_reporting_level := '3000'; -- Operating Units
391 else
392 h_reporting_level := argument1;
393 end if;
394
395 if argument2 is null then
396 h_reporting_entity_id := fnd_profile.value('DEFAULT_ORG_ID'); -- Get default OU ID.
397 else
398 h_reporting_entity_id := to_number(argument2);
399 end if;
400
401
402 fa_rx_util_pkg.debug('h_reporting_entity_id : ' ||h_reporting_entity_id);
403
404 /* Set request id and login id */
405 h_request_id := fnd_global.conc_request_id;
406 fnd_profile.get('LOGIN_ID',h_login_id);
407
408 /* Set other pramenters */
409 h_set_of_book_id := to_number(argument3);
410 h_chart_of_acct_id :=to_number(argument4);
411 h_account_date_low := to_date(argument6, 'YYYY/MM/DD HH24:MI:SS');
412 h_account_date_high := to_date(argument7, 'YYYY/MM/DD HH24:MI:SS');
413 h_batch_id := to_number(argument8);
414 h_entry_person_id := to_number(argument10);
415 h_doc_sequence_id := to_number(argument11);
416 h_doc_sequence_value_min := to_number(argument12);
417 h_doc_sequence_value_max := to_number(argument13);
418 h_dist_amount_min := to_number(argument21);
419 h_dist_amount_max := to_number(argument22);
420
421 JG_RX_IR_PKG.AP_RX_INVOICE_RUN (
422 errbuf => errbuf,
423 retcode => retcode,
424 p_request_id => h_request_id,
425 p_login_id => h_login_id,
426 p_reporting_level => h_reporting_level,
427 p_reporting_entity_id => h_reporting_entity_id,
428 p_set_of_book_id => h_set_of_book_id,
429 p_chart_of_acct_id => h_chart_of_acct_id,
430 p_line_inv => argument5,
431 p_acct_date_min => h_account_date_low,
432 p_acct_date_max => h_account_date_high,
433 p_batch_id => h_batch_id,
434 p_invoice_type => argument9,
435 p_entry_person_id => h_entry_person_id,
436 p_doc_sequence_id => h_doc_sequence_id,
437 p_doc_sequence_value_min => h_doc_sequence_value_min,
438 p_doc_sequence_value_max => h_doc_sequence_value_max,
439 p_supplier_min => argument14,
440 p_supplier_max => argument15,
441 p_liability_min => argument16,
442 p_liability_max => argument17,
443 p_dist_acct_min => argument18,
444 p_dist_acct_max => argument19,
445 p_inv_currency_code => argument20,
446 p_dist_amount_min => h_dist_amount_min,
447 p_dist_amount_max => h_dist_amount_max,
448 p_entered_date_min => to_date(null),
449 p_entered_date_max => to_date(null),
450 p_cancelled_inv => false,
451 p_unapproved_inv => false
452 );
453
454 END ap_rx_invoice_reg_dtl;
455
456 END JG_RX_C_IR_PKG;