[Home] [Help]
PACKAGE BODY: APPS.PA_DEDUCTIONS_W
Source
1 package body pa_deductions_w as
2 /* $Header: PADCTNRB.pls 120.0.12010000.1 2009/07/21 10:59:25 sosharma noship $ */
3 procedure rosetta_table_copy_in_p0(t out nocopy pa_deductions.g_dctn_hdrid, a0 JTF_NUMBER_TABLE) as
4 ddindx binary_integer; indx binary_integer;
5 begin
6 if a0 is not null and a0.count > 0 then
7 if a0.count > 0 then
8 indx := a0.first;
9 ddindx := 1;
10 while true loop
11 t(ddindx) := a0(indx);
12 ddindx := ddindx+1;
13 if a0.last =indx
14 then exit;
15 end if;
16 indx := a0.next(indx);
17 end loop;
18 end if;
19 end if;
20 end rosetta_table_copy_in_p0;
21 procedure rosetta_table_copy_out_p0(t pa_deductions.g_dctn_hdrid, a0 out nocopy JTF_NUMBER_TABLE) as
22 ddindx binary_integer; indx binary_integer;
23 begin
24 if t is null or t.count = 0 then
25 a0 := JTF_NUMBER_TABLE();
26 else
27 a0 := JTF_NUMBER_TABLE();
28 if t.count > 0 then
29 a0.extend(t.count);
30 ddindx := t.first;
31 indx := 1;
32 while true loop
33 a0(indx) := t(ddindx);
34 indx := indx+1;
35 if t.last =ddindx
36 then exit;
37 end if;
38 ddindx := t.next(ddindx);
39 end loop;
40 end if;
41 end if;
42 end rosetta_table_copy_out_p0;
43
44 procedure rosetta_table_copy_in_p1(t out nocopy pa_deductions.g_dctn_txnid, a0 JTF_NUMBER_TABLE) as
45 ddindx binary_integer; indx binary_integer;
46 begin
47 if a0 is not null and a0.count > 0 then
48 if a0.count > 0 then
49 indx := a0.first;
50 ddindx := 1;
51 while true loop
52 t(ddindx) := a0(indx);
53 ddindx := ddindx+1;
54 if a0.last =indx
55 then exit;
56 end if;
57 indx := a0.next(indx);
58 end loop;
59 end if;
60 end if;
61 end rosetta_table_copy_in_p1;
62 procedure rosetta_table_copy_out_p1(t pa_deductions.g_dctn_txnid, a0 out nocopy JTF_NUMBER_TABLE) as
63 ddindx binary_integer; indx binary_integer;
64 begin
65 if t is null or t.count = 0 then
66 a0 := JTF_NUMBER_TABLE();
67 else
68 a0 := JTF_NUMBER_TABLE();
69 if t.count > 0 then
70 a0.extend(t.count);
71 ddindx := t.first;
72 indx := 1;
73 while true loop
74 a0(indx) := t(ddindx);
75 indx := indx+1;
76 if t.last =ddindx
77 then exit;
78 end if;
79 ddindx := t.next(ddindx);
80 end loop;
81 end if;
82 end if;
83 end rosetta_table_copy_out_p1;
84
85 procedure rosetta_table_copy_in_p4(t out nocopy pa_deductions.g_dctn_hdrtbl, a0 JTF_NUMBER_TABLE
86 , a1 JTF_NUMBER_TABLE
87 , a2 JTF_NUMBER_TABLE
88 , a3 JTF_NUMBER_TABLE
89 , a4 JTF_VARCHAR2_TABLE_100
90 , a5 JTF_VARCHAR2_TABLE_100
91 , a6 JTF_NUMBER_TABLE
92 , a7 JTF_VARCHAR2_TABLE_100
93 , a8 JTF_NUMBER_TABLE
94 , a9 JTF_VARCHAR2_TABLE_100
95 , a10 JTF_VARCHAR2_TABLE_100
96 , a11 JTF_VARCHAR2_TABLE_100
97 , a12 JTF_VARCHAR2_TABLE_100
98 , a13 JTF_DATE_TABLE
99 , a14 JTF_NUMBER_TABLE
100 , a15 JTF_NUMBER_TABLE
101 , a16 JTF_DATE_TABLE
102 , a17 JTF_DATE_TABLE
103 , a18 JTF_VARCHAR2_TABLE_4000
104 , a19 JTF_VARCHAR2_TABLE_100
105 , a20 JTF_NUMBER_TABLE
106 ) as
107 ddindx binary_integer; indx binary_integer;
108 begin
109 if a0 is not null and a0.count > 0 then
110 if a0.count > 0 then
111 indx := a0.first;
112 ddindx := 1;
113 while true loop
114 t(ddindx).deduction_req_id := a0(indx);
115 t(ddindx).project_id := a1(indx);
116 t(ddindx).vendor_id := a2(indx);
117 t(ddindx).vendor_site_id := a3(indx);
118 t(ddindx).change_doc_num := a4(indx);
119 t(ddindx).change_doc_type := a5(indx);
120 t(ddindx).ci_id := a6(indx);
121 t(ddindx).po_number := a7(indx);
122 t(ddindx).po_header_id := a8(indx);
123 t(ddindx).deduction_req_num := a9(indx);
124 t(ddindx).debit_memo_num := a10(indx);
125 t(ddindx).currency_code := a11(indx);
126 t(ddindx).conversion_ratetype := a12(indx);
127 t(ddindx).conversion_ratedate := a13(indx);
128 t(ddindx).conversion_rate := a14(indx);
129 t(ddindx).total_amount := a15(indx);
130 t(ddindx).deduction_req_date := a16(indx);
131 t(ddindx).debit_memo_date := a17(indx);
132 t(ddindx).description := a18(indx);
133 t(ddindx).status := a19(indx);
134 t(ddindx).org_id := a20(indx);
135 ddindx := ddindx+1;
136 if a0.last =indx
137 then exit;
138 end if;
139 indx := a0.next(indx);
140 end loop;
141 end if;
142 end if;
143 end rosetta_table_copy_in_p4;
144 procedure rosetta_table_copy_out_p4(t pa_deductions.g_dctn_hdrtbl, a0 out nocopy JTF_NUMBER_TABLE
145 , a1 out nocopy JTF_NUMBER_TABLE
146 , a2 out nocopy JTF_NUMBER_TABLE
147 , a3 out nocopy JTF_NUMBER_TABLE
148 , a4 out nocopy JTF_VARCHAR2_TABLE_100
149 , a5 out nocopy JTF_VARCHAR2_TABLE_100
150 , a6 out nocopy JTF_NUMBER_TABLE
151 , a7 out nocopy JTF_VARCHAR2_TABLE_100
152 , a8 out nocopy JTF_NUMBER_TABLE
153 , a9 out nocopy JTF_VARCHAR2_TABLE_100
154 , a10 out nocopy JTF_VARCHAR2_TABLE_100
155 , a11 out nocopy JTF_VARCHAR2_TABLE_100
156 , a12 out nocopy JTF_VARCHAR2_TABLE_100
157 , a13 out nocopy JTF_DATE_TABLE
158 , a14 out nocopy JTF_NUMBER_TABLE
159 , a15 out nocopy JTF_NUMBER_TABLE
160 , a16 out nocopy JTF_DATE_TABLE
161 , a17 out nocopy JTF_DATE_TABLE
162 , a18 out nocopy JTF_VARCHAR2_TABLE_4000
163 , a19 out nocopy JTF_VARCHAR2_TABLE_100
164 , a20 out nocopy JTF_NUMBER_TABLE
165 ) as
166 ddindx binary_integer; indx binary_integer;
167 begin
168 if t is null or t.count = 0 then
169 a0 := JTF_NUMBER_TABLE();
170 a1 := JTF_NUMBER_TABLE();
171 a2 := JTF_NUMBER_TABLE();
172 a3 := JTF_NUMBER_TABLE();
173 a4 := JTF_VARCHAR2_TABLE_100();
174 a5 := JTF_VARCHAR2_TABLE_100();
175 a6 := JTF_NUMBER_TABLE();
176 a7 := JTF_VARCHAR2_TABLE_100();
177 a8 := JTF_NUMBER_TABLE();
178 a9 := JTF_VARCHAR2_TABLE_100();
179 a10 := JTF_VARCHAR2_TABLE_100();
180 a11 := JTF_VARCHAR2_TABLE_100();
181 a12 := JTF_VARCHAR2_TABLE_100();
182 a13 := JTF_DATE_TABLE();
183 a14 := JTF_NUMBER_TABLE();
184 a15 := JTF_NUMBER_TABLE();
185 a16 := JTF_DATE_TABLE();
186 a17 := JTF_DATE_TABLE();
187 a18 := JTF_VARCHAR2_TABLE_4000();
188 a19 := JTF_VARCHAR2_TABLE_100();
189 a20 := JTF_NUMBER_TABLE();
190 else
191 a0 := JTF_NUMBER_TABLE();
192 a1 := JTF_NUMBER_TABLE();
193 a2 := JTF_NUMBER_TABLE();
194 a3 := JTF_NUMBER_TABLE();
195 a4 := JTF_VARCHAR2_TABLE_100();
196 a5 := JTF_VARCHAR2_TABLE_100();
197 a6 := JTF_NUMBER_TABLE();
198 a7 := JTF_VARCHAR2_TABLE_100();
199 a8 := JTF_NUMBER_TABLE();
200 a9 := JTF_VARCHAR2_TABLE_100();
201 a10 := JTF_VARCHAR2_TABLE_100();
202 a11 := JTF_VARCHAR2_TABLE_100();
203 a12 := JTF_VARCHAR2_TABLE_100();
204 a13 := JTF_DATE_TABLE();
205 a14 := JTF_NUMBER_TABLE();
206 a15 := JTF_NUMBER_TABLE();
207 a16 := JTF_DATE_TABLE();
208 a17 := JTF_DATE_TABLE();
209 a18 := JTF_VARCHAR2_TABLE_4000();
210 a19 := JTF_VARCHAR2_TABLE_100();
211 a20 := JTF_NUMBER_TABLE();
212 if t.count > 0 then
213 a0.extend(t.count);
214 a1.extend(t.count);
215 a2.extend(t.count);
216 a3.extend(t.count);
217 a4.extend(t.count);
218 a5.extend(t.count);
219 a6.extend(t.count);
220 a7.extend(t.count);
221 a8.extend(t.count);
222 a9.extend(t.count);
223 a10.extend(t.count);
224 a11.extend(t.count);
225 a12.extend(t.count);
226 a13.extend(t.count);
227 a14.extend(t.count);
228 a15.extend(t.count);
229 a16.extend(t.count);
230 a17.extend(t.count);
231 a18.extend(t.count);
232 a19.extend(t.count);
233 a20.extend(t.count);
234 ddindx := t.first;
235 indx := 1;
236 while true loop
237 a0(indx) := t(ddindx).deduction_req_id;
238 a1(indx) := t(ddindx).project_id;
239 a2(indx) := t(ddindx).vendor_id;
240 a3(indx) := t(ddindx).vendor_site_id;
241 a4(indx) := t(ddindx).change_doc_num;
242 a5(indx) := t(ddindx).change_doc_type;
243 a6(indx) := t(ddindx).ci_id;
244 a7(indx) := t(ddindx).po_number;
245 a8(indx) := t(ddindx).po_header_id;
246 a9(indx) := t(ddindx).deduction_req_num;
247 a10(indx) := t(ddindx).debit_memo_num;
248 a11(indx) := t(ddindx).currency_code;
249 a12(indx) := t(ddindx).conversion_ratetype;
250 a13(indx) := t(ddindx).conversion_ratedate;
251 a14(indx) := t(ddindx).conversion_rate;
252 a15(indx) := t(ddindx).total_amount;
253 a16(indx) := t(ddindx).deduction_req_date;
254 a17(indx) := t(ddindx).debit_memo_date;
255 a18(indx) := t(ddindx).description;
256 a19(indx) := t(ddindx).status;
257 a20(indx) := t(ddindx).org_id;
258 indx := indx+1;
259 if t.last =ddindx
260 then exit;
261 end if;
262 ddindx := t.next(ddindx);
263 end loop;
264 end if;
265 end if;
266 end rosetta_table_copy_out_p4;
267
268 procedure rosetta_table_copy_in_p5(t out nocopy pa_deductions.g_dctn_txntbl, a0 JTF_NUMBER_TABLE
269 , a1 JTF_NUMBER_TABLE
270 , a2 JTF_NUMBER_TABLE
271 , a3 JTF_NUMBER_TABLE
272 , a4 JTF_VARCHAR2_TABLE_100
273 , a5 JTF_DATE_TABLE
274 , a6 JTF_DATE_TABLE
275 , a7 JTF_NUMBER_TABLE
276 , a8 JTF_NUMBER_TABLE
277 , a9 JTF_NUMBER_TABLE
278 , a10 JTF_NUMBER_TABLE
279 , a11 JTF_VARCHAR2_TABLE_100
280 , a12 JTF_NUMBER_TABLE
281 , a13 JTF_NUMBER_TABLE
282 , a14 JTF_VARCHAR2_TABLE_100
283 , a15 JTF_DATE_TABLE
284 , a16 JTF_NUMBER_TABLE
285 , a17 JTF_NUMBER_TABLE
286 , a18 JTF_VARCHAR2_TABLE_4000
287 , a19 JTF_VARCHAR2_TABLE_100
288 ) as
289 ddindx binary_integer; indx binary_integer;
290 begin
291 if a0 is not null and a0.count > 0 then
292 if a0.count > 0 then
293 indx := a0.first;
294 ddindx := 1;
295 while true loop
296 t(ddindx).deduction_req_id := a0(indx);
297 t(ddindx).deduction_req_tran_id := a1(indx);
298 t(ddindx).project_id := a2(indx);
299 t(ddindx).task_id := a3(indx);
300 t(ddindx).expenditure_type := a4(indx);
301 t(ddindx).expenditure_item_date := a5(indx);
302 t(ddindx).gl_date := a6(indx);
303 t(ddindx).expenditure_org_id := a7(indx);
304 t(ddindx).quantity := a8(indx);
305 t(ddindx).override_quantity := a9(indx);
306 t(ddindx).expenditure_item_id := a10(indx);
307 t(ddindx).projfunc_currency_code := a11(indx);
308 t(ddindx).orig_projfunc_amount := a12(indx);
309 t(ddindx).override_projfunc_amount := a13(indx);
310 t(ddindx).conversion_ratetype := a14(indx);
311 t(ddindx).conversion_ratedate := a15(indx);
312 t(ddindx).conversion_rate := a16(indx);
313 t(ddindx).amount := a17(indx);
314 t(ddindx).description := a18(indx);
315 t(ddindx).status := a19(indx);
316 ddindx := ddindx+1;
317 if a0.last =indx
318 then exit;
319 end if;
320 indx := a0.next(indx);
321 end loop;
322 end if;
323 end if;
324 end rosetta_table_copy_in_p5;
325 procedure rosetta_table_copy_out_p5(t pa_deductions.g_dctn_txntbl, a0 out nocopy JTF_NUMBER_TABLE
326 , a1 out nocopy JTF_NUMBER_TABLE
327 , a2 out nocopy JTF_NUMBER_TABLE
328 , a3 out nocopy JTF_NUMBER_TABLE
329 , a4 out nocopy JTF_VARCHAR2_TABLE_100
330 , a5 out nocopy JTF_DATE_TABLE
331 , a6 out nocopy JTF_DATE_TABLE
332 , a7 out nocopy JTF_NUMBER_TABLE
333 , a8 out nocopy JTF_NUMBER_TABLE
334 , a9 out nocopy JTF_NUMBER_TABLE
335 , a10 out nocopy JTF_NUMBER_TABLE
336 , a11 out nocopy JTF_VARCHAR2_TABLE_100
337 , a12 out nocopy JTF_NUMBER_TABLE
338 , a13 out nocopy JTF_NUMBER_TABLE
339 , a14 out nocopy JTF_VARCHAR2_TABLE_100
340 , a15 out nocopy JTF_DATE_TABLE
341 , a16 out nocopy JTF_NUMBER_TABLE
342 , a17 out nocopy JTF_NUMBER_TABLE
343 , a18 out nocopy JTF_VARCHAR2_TABLE_4000
344 , a19 out nocopy JTF_VARCHAR2_TABLE_100
345 ) as
346 ddindx binary_integer; indx binary_integer;
347 begin
348 if t is null or t.count = 0 then
349 a0 := JTF_NUMBER_TABLE();
350 a1 := JTF_NUMBER_TABLE();
351 a2 := JTF_NUMBER_TABLE();
352 a3 := JTF_NUMBER_TABLE();
353 a4 := JTF_VARCHAR2_TABLE_100();
354 a5 := JTF_DATE_TABLE();
355 a6 := JTF_DATE_TABLE();
356 a7 := JTF_NUMBER_TABLE();
357 a8 := JTF_NUMBER_TABLE();
358 a9 := JTF_NUMBER_TABLE();
359 a10 := JTF_NUMBER_TABLE();
360 a11 := JTF_VARCHAR2_TABLE_100();
361 a12 := JTF_NUMBER_TABLE();
362 a13 := JTF_NUMBER_TABLE();
363 a14 := JTF_VARCHAR2_TABLE_100();
364 a15 := JTF_DATE_TABLE();
365 a16 := JTF_NUMBER_TABLE();
366 a17 := JTF_NUMBER_TABLE();
367 a18 := JTF_VARCHAR2_TABLE_4000();
368 a19 := JTF_VARCHAR2_TABLE_100();
369 else
370 a0 := JTF_NUMBER_TABLE();
371 a1 := JTF_NUMBER_TABLE();
372 a2 := JTF_NUMBER_TABLE();
373 a3 := JTF_NUMBER_TABLE();
374 a4 := JTF_VARCHAR2_TABLE_100();
375 a5 := JTF_DATE_TABLE();
376 a6 := JTF_DATE_TABLE();
377 a7 := JTF_NUMBER_TABLE();
378 a8 := JTF_NUMBER_TABLE();
379 a9 := JTF_NUMBER_TABLE();
380 a10 := JTF_NUMBER_TABLE();
381 a11 := JTF_VARCHAR2_TABLE_100();
382 a12 := JTF_NUMBER_TABLE();
383 a13 := JTF_NUMBER_TABLE();
384 a14 := JTF_VARCHAR2_TABLE_100();
385 a15 := JTF_DATE_TABLE();
386 a16 := JTF_NUMBER_TABLE();
387 a17 := JTF_NUMBER_TABLE();
388 a18 := JTF_VARCHAR2_TABLE_4000();
389 a19 := JTF_VARCHAR2_TABLE_100();
390 if t.count > 0 then
391 a0.extend(t.count);
392 a1.extend(t.count);
393 a2.extend(t.count);
394 a3.extend(t.count);
395 a4.extend(t.count);
396 a5.extend(t.count);
397 a6.extend(t.count);
398 a7.extend(t.count);
399 a8.extend(t.count);
400 a9.extend(t.count);
401 a10.extend(t.count);
402 a11.extend(t.count);
403 a12.extend(t.count);
404 a13.extend(t.count);
405 a14.extend(t.count);
406 a15.extend(t.count);
407 a16.extend(t.count);
408 a17.extend(t.count);
409 a18.extend(t.count);
410 a19.extend(t.count);
411 ddindx := t.first;
412 indx := 1;
413 while true loop
414 a0(indx) := t(ddindx).deduction_req_id;
415 a1(indx) := t(ddindx).deduction_req_tran_id;
416 a2(indx) := t(ddindx).project_id;
417 a3(indx) := t(ddindx).task_id;
418 a4(indx) := t(ddindx).expenditure_type;
419 a5(indx) := t(ddindx).expenditure_item_date;
420 a6(indx) := t(ddindx).gl_date;
421 a7(indx) := t(ddindx).expenditure_org_id;
422 a8(indx) := t(ddindx).quantity;
423 a9(indx) := t(ddindx).override_quantity;
424 a10(indx) := t(ddindx).expenditure_item_id;
425 a11(indx) := t(ddindx).projfunc_currency_code;
426 a12(indx) := t(ddindx).orig_projfunc_amount;
427 a13(indx) := t(ddindx).override_projfunc_amount;
428 a14(indx) := t(ddindx).conversion_ratetype;
429 a15(indx) := t(ddindx).conversion_ratedate;
430 a16(indx) := t(ddindx).conversion_rate;
431 a17(indx) := t(ddindx).amount;
432 a18(indx) := t(ddindx).description;
433 a19(indx) := t(ddindx).status;
434 indx := indx+1;
435 if t.last =ddindx
436 then exit;
437 end if;
438 ddindx := t.next(ddindx);
439 end loop;
440 end if;
441 end if;
442 end rosetta_table_copy_out_p5;
443
444 procedure create_deduction_hdr(p0_a0 in out nocopy JTF_NUMBER_TABLE
445 , p0_a1 in out nocopy JTF_NUMBER_TABLE
446 , p0_a2 in out nocopy JTF_NUMBER_TABLE
447 , p0_a3 in out nocopy JTF_NUMBER_TABLE
448 , p0_a4 in out nocopy JTF_VARCHAR2_TABLE_100
449 , p0_a5 in out nocopy JTF_VARCHAR2_TABLE_100
450 , p0_a6 in out nocopy JTF_NUMBER_TABLE
451 , p0_a7 in out nocopy JTF_VARCHAR2_TABLE_100
452 , p0_a8 in out nocopy JTF_NUMBER_TABLE
453 , p0_a9 in out nocopy JTF_VARCHAR2_TABLE_100
454 , p0_a10 in out nocopy JTF_VARCHAR2_TABLE_100
455 , p0_a11 in out nocopy JTF_VARCHAR2_TABLE_100
456 , p0_a12 in out nocopy JTF_VARCHAR2_TABLE_100
457 , p0_a13 in out nocopy JTF_DATE_TABLE
458 , p0_a14 in out nocopy JTF_NUMBER_TABLE
459 , p0_a15 in out nocopy JTF_NUMBER_TABLE
460 , p0_a16 in out nocopy JTF_DATE_TABLE
461 , p0_a17 in out nocopy JTF_DATE_TABLE
462 , p0_a18 in out nocopy JTF_VARCHAR2_TABLE_4000
463 , p0_a19 in out nocopy JTF_VARCHAR2_TABLE_100
464 , p0_a20 in out nocopy JTF_NUMBER_TABLE
465 , p_msg_count out nocopy NUMBER
466 , p_msg_data out nocopy VARCHAR2
467 , p_return_status out nocopy VARCHAR2
468 , p_calling_mode VARCHAR2
469 )
470
471 as
472 ddp_dctn_hdr pa_deductions.g_dctn_hdrtbl;
473 ddindx binary_integer; indx binary_integer;
474 begin
475
476 -- copy data to the local IN or IN-OUT args, if any
477 pa_deductions_w.rosetta_table_copy_in_p4(ddp_dctn_hdr, p0_a0
478 , p0_a1
479 , p0_a2
480 , p0_a3
481 , p0_a4
482 , p0_a5
483 , p0_a6
484 , p0_a7
485 , p0_a8
486 , p0_a9
487 , p0_a10
488 , p0_a11
489 , p0_a12
490 , p0_a13
491 , p0_a14
492 , p0_a15
493 , p0_a16
494 , p0_a17
495 , p0_a18
496 , p0_a19
497 , p0_a20
498 );
499
500
501
502
503
504 -- here's the delegated call to the old PL/SQL routine
505 pa_deductions.create_deduction_hdr(ddp_dctn_hdr,
506 p_msg_count,
507 p_msg_data,
508 p_return_status,
509 p_calling_mode);
510
511 -- copy data back from the local variables to OUT or IN-OUT args, if any
512 pa_deductions_w.rosetta_table_copy_out_p4(ddp_dctn_hdr, p0_a0
513 , p0_a1
514 , p0_a2
515 , p0_a3
516 , p0_a4
517 , p0_a5
518 , p0_a6
519 , p0_a7
520 , p0_a8
521 , p0_a9
522 , p0_a10
523 , p0_a11
524 , p0_a12
525 , p0_a13
526 , p0_a14
527 , p0_a15
528 , p0_a16
529 , p0_a17
530 , p0_a18
531 , p0_a19
532 , p0_a20
533 );
534
535
536
537
538 end;
539
540 procedure create_deduction_txn(p0_a0 in out nocopy JTF_NUMBER_TABLE
541 , p0_a1 in out nocopy JTF_NUMBER_TABLE
542 , p0_a2 in out nocopy JTF_NUMBER_TABLE
543 , p0_a3 in out nocopy JTF_NUMBER_TABLE
544 , p0_a4 in out nocopy JTF_VARCHAR2_TABLE_100
545 , p0_a5 in out nocopy JTF_DATE_TABLE
546 , p0_a6 in out nocopy JTF_DATE_TABLE
547 , p0_a7 in out nocopy JTF_NUMBER_TABLE
548 , p0_a8 in out nocopy JTF_NUMBER_TABLE
549 , p0_a9 in out nocopy JTF_NUMBER_TABLE
550 , p0_a10 in out nocopy JTF_NUMBER_TABLE
551 , p0_a11 in out nocopy JTF_VARCHAR2_TABLE_100
552 , p0_a12 in out nocopy JTF_NUMBER_TABLE
553 , p0_a13 in out nocopy JTF_NUMBER_TABLE
554 , p0_a14 in out nocopy JTF_VARCHAR2_TABLE_100
555 , p0_a15 in out nocopy JTF_DATE_TABLE
556 , p0_a16 in out nocopy JTF_NUMBER_TABLE
557 , p0_a17 in out nocopy JTF_NUMBER_TABLE
558 , p0_a18 in out nocopy JTF_VARCHAR2_TABLE_4000
559 , p0_a19 in out nocopy JTF_VARCHAR2_TABLE_100
560 , p_msg_count out nocopy NUMBER
561 , p_msg_data out nocopy VARCHAR2
562 , p_return_status out nocopy VARCHAR2
563 , p_calling_mode VARCHAR2
564 )
565
566 as
567 ddp_dctn_dtl pa_deductions.g_dctn_txntbl;
568 ddindx binary_integer; indx binary_integer;
569 begin
570
571 -- copy data to the local IN or IN-OUT args, if any
572 pa_deductions_w.rosetta_table_copy_in_p5(ddp_dctn_dtl, p0_a0
573 , p0_a1
574 , p0_a2
575 , p0_a3
576 , p0_a4
577 , p0_a5
578 , p0_a6
579 , p0_a7
580 , p0_a8
581 , p0_a9
582 , p0_a10
583 , p0_a11
584 , p0_a12
585 , p0_a13
586 , p0_a14
587 , p0_a15
588 , p0_a16
589 , p0_a17
590 , p0_a18
591 , p0_a19
592 );
593
594
595
596
597
598 -- here's the delegated call to the old PL/SQL routine
599 pa_deductions.create_deduction_txn(ddp_dctn_dtl,
600 p_msg_count,
601 p_msg_data,
602 p_return_status,
603 p_calling_mode);
604
605 -- copy data back from the local variables to OUT or IN-OUT args, if any
606 pa_deductions_w.rosetta_table_copy_out_p5(ddp_dctn_dtl, p0_a0
607 , p0_a1
608 , p0_a2
609 , p0_a3
610 , p0_a4
611 , p0_a5
612 , p0_a6
613 , p0_a7
614 , p0_a8
615 , p0_a9
616 , p0_a10
617 , p0_a11
618 , p0_a12
619 , p0_a13
620 , p0_a14
621 , p0_a15
622 , p0_a16
623 , p0_a17
624 , p0_a18
625 , p0_a19
626 );
627
628
629
630
631 end;
632
633 procedure update_deduction_hdr(p0_a0 in out nocopy JTF_NUMBER_TABLE
634 , p0_a1 in out nocopy JTF_NUMBER_TABLE
635 , p0_a2 in out nocopy JTF_NUMBER_TABLE
636 , p0_a3 in out nocopy JTF_NUMBER_TABLE
637 , p0_a4 in out nocopy JTF_VARCHAR2_TABLE_100
638 , p0_a5 in out nocopy JTF_VARCHAR2_TABLE_100
639 , p0_a6 in out nocopy JTF_NUMBER_TABLE
640 , p0_a7 in out nocopy JTF_VARCHAR2_TABLE_100
641 , p0_a8 in out nocopy JTF_NUMBER_TABLE
642 , p0_a9 in out nocopy JTF_VARCHAR2_TABLE_100
643 , p0_a10 in out nocopy JTF_VARCHAR2_TABLE_100
644 , p0_a11 in out nocopy JTF_VARCHAR2_TABLE_100
645 , p0_a12 in out nocopy JTF_VARCHAR2_TABLE_100
646 , p0_a13 in out nocopy JTF_DATE_TABLE
647 , p0_a14 in out nocopy JTF_NUMBER_TABLE
648 , p0_a15 in out nocopy JTF_NUMBER_TABLE
649 , p0_a16 in out nocopy JTF_DATE_TABLE
650 , p0_a17 in out nocopy JTF_DATE_TABLE
651 , p0_a18 in out nocopy JTF_VARCHAR2_TABLE_4000
652 , p0_a19 in out nocopy JTF_VARCHAR2_TABLE_100
653 , p0_a20 in out nocopy JTF_NUMBER_TABLE
654 , p_msg_count out nocopy NUMBER
655 , p_msg_data out nocopy VARCHAR2
656 , p_return_status out nocopy VARCHAR2
657 , p_calling_mode VARCHAR2
658 )
659
660 as
661 ddp_dctn_hdr pa_deductions.g_dctn_hdrtbl;
662 ddindx binary_integer; indx binary_integer;
663 begin
664
665 -- copy data to the local IN or IN-OUT args, if any
666 pa_deductions_w.rosetta_table_copy_in_p4(ddp_dctn_hdr, p0_a0
667 , p0_a1
668 , p0_a2
669 , p0_a3
670 , p0_a4
671 , p0_a5
672 , p0_a6
673 , p0_a7
674 , p0_a8
675 , p0_a9
676 , p0_a10
677 , p0_a11
678 , p0_a12
679 , p0_a13
680 , p0_a14
681 , p0_a15
682 , p0_a16
683 , p0_a17
684 , p0_a18
685 , p0_a19
686 , p0_a20
687 );
688
689
690
691
692
693 -- here's the delegated call to the old PL/SQL routine
694 pa_deductions.update_deduction_hdr(ddp_dctn_hdr,
695 p_msg_count,
696 p_msg_data,
697 p_return_status,
698 p_calling_mode);
699
700 -- copy data back from the local variables to OUT or IN-OUT args, if any
701 pa_deductions_w.rosetta_table_copy_out_p4(ddp_dctn_hdr, p0_a0
702 , p0_a1
703 , p0_a2
704 , p0_a3
705 , p0_a4
706 , p0_a5
707 , p0_a6
708 , p0_a7
709 , p0_a8
710 , p0_a9
711 , p0_a10
712 , p0_a11
713 , p0_a12
714 , p0_a13
715 , p0_a14
716 , p0_a15
717 , p0_a16
718 , p0_a17
719 , p0_a18
720 , p0_a19
721 , p0_a20
722 );
723
724
725
726
727 end;
728
729 procedure update_deduction_txn(p0_a0 in out nocopy JTF_NUMBER_TABLE
730 , p0_a1 in out nocopy JTF_NUMBER_TABLE
731 , p0_a2 in out nocopy JTF_NUMBER_TABLE
732 , p0_a3 in out nocopy JTF_NUMBER_TABLE
733 , p0_a4 in out nocopy JTF_VARCHAR2_TABLE_100
734 , p0_a5 in out nocopy JTF_DATE_TABLE
735 , p0_a6 in out nocopy JTF_DATE_TABLE
736 , p0_a7 in out nocopy JTF_NUMBER_TABLE
737 , p0_a8 in out nocopy JTF_NUMBER_TABLE
738 , p0_a9 in out nocopy JTF_NUMBER_TABLE
739 , p0_a10 in out nocopy JTF_NUMBER_TABLE
740 , p0_a11 in out nocopy JTF_VARCHAR2_TABLE_100
741 , p0_a12 in out nocopy JTF_NUMBER_TABLE
742 , p0_a13 in out nocopy JTF_NUMBER_TABLE
743 , p0_a14 in out nocopy JTF_VARCHAR2_TABLE_100
744 , p0_a15 in out nocopy JTF_DATE_TABLE
745 , p0_a16 in out nocopy JTF_NUMBER_TABLE
746 , p0_a17 in out nocopy JTF_NUMBER_TABLE
747 , p0_a18 in out nocopy JTF_VARCHAR2_TABLE_4000
748 , p0_a19 in out nocopy JTF_VARCHAR2_TABLE_100
749 , p_msg_count out nocopy NUMBER
750 , p_msg_data out nocopy VARCHAR2
751 , p_return_status out nocopy VARCHAR2
752 , p_calling_mode VARCHAR2
753 )
754
755 as
756 ddp_dctn_dtl pa_deductions.g_dctn_txntbl;
757 ddindx binary_integer; indx binary_integer;
758 begin
759
760 -- copy data to the local IN or IN-OUT args, if any
761 pa_deductions_w.rosetta_table_copy_in_p5(ddp_dctn_dtl, p0_a0
762 , p0_a1
763 , p0_a2
764 , p0_a3
765 , p0_a4
766 , p0_a5
767 , p0_a6
768 , p0_a7
769 , p0_a8
770 , p0_a9
771 , p0_a10
772 , p0_a11
773 , p0_a12
774 , p0_a13
775 , p0_a14
776 , p0_a15
777 , p0_a16
778 , p0_a17
779 , p0_a18
780 , p0_a19
781 );
782
783
784
785
786
787 -- here's the delegated call to the old PL/SQL routine
788 pa_deductions.update_deduction_txn(ddp_dctn_dtl,
789 p_msg_count,
790 p_msg_data,
791 p_return_status,
792 p_calling_mode);
793
794 -- copy data back from the local variables to OUT or IN-OUT args, if any
795 pa_deductions_w.rosetta_table_copy_out_p5(ddp_dctn_dtl, p0_a0
796 , p0_a1
797 , p0_a2
798 , p0_a3
799 , p0_a4
800 , p0_a5
801 , p0_a6
802 , p0_a7
803 , p0_a8
804 , p0_a9
805 , p0_a10
806 , p0_a11
807 , p0_a12
808 , p0_a13
809 , p0_a14
810 , p0_a15
811 , p0_a16
812 , p0_a17
813 , p0_a18
814 , p0_a19
815 );
816
817
818
819
820 end;
821
822 procedure delete_deduction_hdr(p_dctn_hdrid JTF_NUMBER_TABLE
823 , p_msg_count out nocopy NUMBER
824 , p_msg_data out nocopy VARCHAR2
825 , p_return_status out nocopy VARCHAR2
826 )
827
828 as
829 ddp_dctn_hdrid pa_deductions.g_dctn_hdrid;
830 ddindx binary_integer; indx binary_integer;
831 begin
832
833 -- copy data to the local IN or IN-OUT args, if any
834 pa_deductions_w.rosetta_table_copy_in_p0(ddp_dctn_hdrid, p_dctn_hdrid);
835
836
837
838
839 -- here's the delegated call to the old PL/SQL routine
840 pa_deductions.delete_deduction_hdr(ddp_dctn_hdrid,
841 p_msg_count,
842 p_msg_data,
843 p_return_status);
844
845 -- copy data back from the local variables to OUT or IN-OUT args, if any
846
847
848
849 end;
850
851 procedure delete_deduction_txn(p_dctn_txnid JTF_NUMBER_TABLE
852 , p_msg_count out nocopy NUMBER
853 , p_msg_data out nocopy VARCHAR2
854 , p_return_status out nocopy VARCHAR2
855 )
856
857 as
858 ddp_dctn_txnid pa_deductions.g_dctn_txnid;
859 ddindx binary_integer; indx binary_integer;
860 begin
861
862 -- copy data to the local IN or IN-OUT args, if any
863 pa_deductions_w.rosetta_table_copy_in_p1(ddp_dctn_txnid, p_dctn_txnid);
864
865
866
867
868 -- here's the delegated call to the old PL/SQL routine
869 pa_deductions.delete_deduction_txn(ddp_dctn_txnid,
870 p_msg_count,
871 p_msg_data,
872 p_return_status);
873
874 -- copy data back from the local variables to OUT or IN-OUT args, if any
875
876
877
878 end;
879
880 procedure validate_deduction_hdr(p0_a0 in out nocopy JTF_NUMBER_TABLE
881 , p0_a1 in out nocopy JTF_NUMBER_TABLE
882 , p0_a2 in out nocopy JTF_NUMBER_TABLE
883 , p0_a3 in out nocopy JTF_NUMBER_TABLE
884 , p0_a4 in out nocopy JTF_VARCHAR2_TABLE_100
885 , p0_a5 in out nocopy JTF_VARCHAR2_TABLE_100
886 , p0_a6 in out nocopy JTF_NUMBER_TABLE
887 , p0_a7 in out nocopy JTF_VARCHAR2_TABLE_100
888 , p0_a8 in out nocopy JTF_NUMBER_TABLE
889 , p0_a9 in out nocopy JTF_VARCHAR2_TABLE_100
890 , p0_a10 in out nocopy JTF_VARCHAR2_TABLE_100
891 , p0_a11 in out nocopy JTF_VARCHAR2_TABLE_100
892 , p0_a12 in out nocopy JTF_VARCHAR2_TABLE_100
893 , p0_a13 in out nocopy JTF_DATE_TABLE
894 , p0_a14 in out nocopy JTF_NUMBER_TABLE
895 , p0_a15 in out nocopy JTF_NUMBER_TABLE
896 , p0_a16 in out nocopy JTF_DATE_TABLE
897 , p0_a17 in out nocopy JTF_DATE_TABLE
898 , p0_a18 in out nocopy JTF_VARCHAR2_TABLE_4000
899 , p0_a19 in out nocopy JTF_VARCHAR2_TABLE_100
900 , p0_a20 in out nocopy JTF_NUMBER_TABLE
901 , p_msg_count out nocopy NUMBER
902 , p_msg_data out nocopy VARCHAR2
903 , p_return_status out nocopy VARCHAR2
904 , p_calling_mode VARCHAR2
905 , ddrosetta_retval_bool OUT NOCOPY NUMBER
906 )
907
908 as
909 ddp_dctn_hdr pa_deductions.g_dctn_hdrtbl;
910 ddindx binary_integer; indx binary_integer;
911 ddrosetta_retval boolean;
912 begin
913
914 -- copy data to the local IN or IN-OUT args, if any
915 pa_deductions_w.rosetta_table_copy_in_p4(ddp_dctn_hdr, p0_a0
916 , p0_a1
917 , p0_a2
918 , p0_a3
919 , p0_a4
920 , p0_a5
921 , p0_a6
922 , p0_a7
923 , p0_a8
924 , p0_a9
925 , p0_a10
926 , p0_a11
927 , p0_a12
928 , p0_a13
929 , p0_a14
930 , p0_a15
931 , p0_a16
932 , p0_a17
933 , p0_a18
934 , p0_a19
935 , p0_a20
936 );
937
938
939
940
941
942 -- here's the delegated call to the old PL/SQL routine
943 ddrosetta_retval := pa_deductions.validate_deduction_hdr(ddp_dctn_hdr,
944 p_msg_count,
945 p_msg_data,
946 p_return_status,
947 p_calling_mode);
948
949 -- copy data back from the local variables to OUT or IN-OUT args, if any
950 if ddrosetta_retval is null
951 then ddrosetta_retval_bool := null;
952 elsif ddrosetta_retval
953 then ddrosetta_retval_bool := 1;
954 else ddrosetta_retval_bool := 0;
955 end if;
956 pa_deductions_w.rosetta_table_copy_out_p4(ddp_dctn_hdr, p0_a0
957 , p0_a1
958 , p0_a2
959 , p0_a3
960 , p0_a4
961 , p0_a5
962 , p0_a6
963 , p0_a7
964 , p0_a8
965 , p0_a9
966 , p0_a10
967 , p0_a11
968 , p0_a12
969 , p0_a13
970 , p0_a14
971 , p0_a15
972 , p0_a16
973 , p0_a17
974 , p0_a18
975 , p0_a19
976 , p0_a20
977 );
978
979
980
981
982 end;
983
984 procedure validate_deduction_txn(p0_a0 in out nocopy JTF_NUMBER_TABLE
985 , p0_a1 in out nocopy JTF_NUMBER_TABLE
986 , p0_a2 in out nocopy JTF_NUMBER_TABLE
987 , p0_a3 in out nocopy JTF_NUMBER_TABLE
988 , p0_a4 in out nocopy JTF_VARCHAR2_TABLE_100
989 , p0_a5 in out nocopy JTF_DATE_TABLE
990 , p0_a6 in out nocopy JTF_DATE_TABLE
991 , p0_a7 in out nocopy JTF_NUMBER_TABLE
992 , p0_a8 in out nocopy JTF_NUMBER_TABLE
993 , p0_a9 in out nocopy JTF_NUMBER_TABLE
994 , p0_a10 in out nocopy JTF_NUMBER_TABLE
995 , p0_a11 in out nocopy JTF_VARCHAR2_TABLE_100
996 , p0_a12 in out nocopy JTF_NUMBER_TABLE
997 , p0_a13 in out nocopy JTF_NUMBER_TABLE
998 , p0_a14 in out nocopy JTF_VARCHAR2_TABLE_100
999 , p0_a15 in out nocopy JTF_DATE_TABLE
1000 , p0_a16 in out nocopy JTF_NUMBER_TABLE
1001 , p0_a17 in out nocopy JTF_NUMBER_TABLE
1002 , p0_a18 in out nocopy JTF_VARCHAR2_TABLE_4000
1003 , p0_a19 in out nocopy JTF_VARCHAR2_TABLE_100
1004 , p_msg_count out nocopy NUMBER
1005 , p_msg_data out nocopy VARCHAR2
1006 , p_return_status out nocopy VARCHAR2
1007 , p_calling_mode VARCHAR2
1008 , ddrosetta_retval_bool OUT NOCOPY NUMBER
1009 )
1010
1011 as
1012 ddp_dctn_dtl pa_deductions.g_dctn_txntbl;
1013 ddindx binary_integer; indx binary_integer;
1014 ddrosetta_retval boolean;
1015 begin
1016
1017 -- copy data to the local IN or IN-OUT args, if any
1018 pa_deductions_w.rosetta_table_copy_in_p5(ddp_dctn_dtl, p0_a0
1019 , p0_a1
1020 , p0_a2
1021 , p0_a3
1022 , p0_a4
1023 , p0_a5
1024 , p0_a6
1025 , p0_a7
1026 , p0_a8
1027 , p0_a9
1028 , p0_a10
1029 , p0_a11
1030 , p0_a12
1031 , p0_a13
1032 , p0_a14
1033 , p0_a15
1034 , p0_a16
1035 , p0_a17
1036 , p0_a18
1037 , p0_a19
1038 );
1039
1040
1041
1042
1043
1044 -- here's the delegated call to the old PL/SQL routine
1045 ddrosetta_retval := pa_deductions.validate_deduction_txn(ddp_dctn_dtl,
1046 p_msg_count,
1047 p_msg_data,
1048 p_return_status,
1049 p_calling_mode);
1050
1051 -- copy data back from the local variables to OUT or IN-OUT args, if any
1052 if ddrosetta_retval is null
1053 then ddrosetta_retval_bool := null;
1054 elsif ddrosetta_retval
1055 then ddrosetta_retval_bool := 1;
1056 else ddrosetta_retval_bool := 0;
1057 end if;
1058 pa_deductions_w.rosetta_table_copy_out_p5(ddp_dctn_dtl, p0_a0
1059 , p0_a1
1060 , p0_a2
1061 , p0_a3
1062 , p0_a4
1063 , p0_a5
1064 , p0_a6
1065 , p0_a7
1066 , p0_a8
1067 , p0_a9
1068 , p0_a10
1069 , p0_a11
1070 , p0_a12
1071 , p0_a13
1072 , p0_a14
1073 , p0_a15
1074 , p0_a16
1075 , p0_a17
1076 , p0_a18
1077 , p0_a19
1078 );
1079
1080
1081
1082
1083 end;
1084
1085 end pa_deductions_w;