[Home] [Help]
PACKAGE BODY: APPS.OZF_CLAIM_ACCRUAL_PVT_W
Source
1 package body ozf_claim_accrual_pvt_w as
2 /* $Header: ozfwcacb.pls 120.5 2006/08/11 08:04:46 azahmed noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p1(t out nocopy ozf_claim_accrual_pvt.line_util_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_DATE_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_DATE_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_VARCHAR2_TABLE_100
27 , a11 JTF_VARCHAR2_TABLE_100
28 , a12 JTF_DATE_TABLE
29 , a13 JTF_NUMBER_TABLE
30 , a14 JTF_NUMBER_TABLE
31 , a15 JTF_NUMBER_TABLE
32 , a16 JTF_NUMBER_TABLE
33 , a17 JTF_NUMBER_TABLE
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_VARCHAR2_TABLE_100
36 , a20 JTF_NUMBER_TABLE
37 , a21 JTF_NUMBER_TABLE
38 , a22 JTF_NUMBER_TABLE
39 , a23 JTF_NUMBER_TABLE
40 , a24 JTF_NUMBER_TABLE
41 , a25 JTF_VARCHAR2_TABLE_100
42 ) as
43 ddindx binary_integer; indx binary_integer;
44 begin
45 if a0 is not null and a0.count > 0 then
46 if a0.count > 0 then
47 indx := a0.first;
48 ddindx := 1;
49 while true loop
50 t(ddindx).claim_line_util_id := a0(indx);
51 t(ddindx).object_version_number := a1(indx);
52 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
53 t(ddindx).last_updated_by := a3(indx);
54 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
55 t(ddindx).created_by := a5(indx);
56 t(ddindx).last_update_login := a6(indx);
57 t(ddindx).claim_line_id := a7(indx);
58 t(ddindx).utilization_id := a8(indx);
59 t(ddindx).amount := a9(indx);
60 t(ddindx).currency_code := a10(indx);
61 t(ddindx).exchange_rate_type := a11(indx);
62 t(ddindx).exchange_rate_date := rosetta_g_miss_date_in_map(a12(indx));
63 t(ddindx).exchange_rate := a13(indx);
64 t(ddindx).acctd_amount := a14(indx);
65 t(ddindx).util_curr_amount := a15(indx);
66 t(ddindx).plan_curr_amount := a16(indx);
67 t(ddindx).scan_unit := a17(indx);
68 t(ddindx).activity_product_id := a18(indx);
69 t(ddindx).uom_code := a19(indx);
70 t(ddindx).quantity := a20(indx);
71 t(ddindx).org_id := a21(indx);
72 t(ddindx).univ_curr_amount := a22(indx);
73 t(ddindx).fxgl_acctd_amount := a23(indx);
74 t(ddindx).utilized_acctd_amount := a24(indx);
75 t(ddindx).update_from_tbl_flag := a25(indx);
76 ddindx := ddindx+1;
77 if a0.last =indx
78 then exit;
79 end if;
80 indx := a0.next(indx);
81 end loop;
82 end if;
83 end if;
84 end rosetta_table_copy_in_p1;
85 procedure rosetta_table_copy_out_p1(t ozf_claim_accrual_pvt.line_util_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
86 , a1 out nocopy JTF_NUMBER_TABLE
87 , a2 out nocopy JTF_DATE_TABLE
88 , a3 out nocopy JTF_NUMBER_TABLE
89 , a4 out nocopy JTF_DATE_TABLE
90 , a5 out nocopy JTF_NUMBER_TABLE
91 , a6 out nocopy JTF_NUMBER_TABLE
92 , a7 out nocopy JTF_NUMBER_TABLE
93 , a8 out nocopy JTF_NUMBER_TABLE
94 , a9 out nocopy JTF_NUMBER_TABLE
95 , a10 out nocopy JTF_VARCHAR2_TABLE_100
96 , a11 out nocopy JTF_VARCHAR2_TABLE_100
97 , a12 out nocopy JTF_DATE_TABLE
98 , a13 out nocopy JTF_NUMBER_TABLE
99 , a14 out nocopy JTF_NUMBER_TABLE
100 , a15 out nocopy JTF_NUMBER_TABLE
101 , a16 out nocopy JTF_NUMBER_TABLE
102 , a17 out nocopy JTF_NUMBER_TABLE
103 , a18 out nocopy JTF_NUMBER_TABLE
104 , a19 out nocopy JTF_VARCHAR2_TABLE_100
105 , a20 out nocopy JTF_NUMBER_TABLE
106 , a21 out nocopy JTF_NUMBER_TABLE
107 , a22 out nocopy JTF_NUMBER_TABLE
108 , a23 out nocopy JTF_NUMBER_TABLE
109 , a24 out nocopy JTF_NUMBER_TABLE
110 , a25 out nocopy JTF_VARCHAR2_TABLE_100
111 ) as
112 ddindx binary_integer; indx binary_integer;
113 begin
114 if t is null or t.count = 0 then
115 a0 := JTF_NUMBER_TABLE();
116 a1 := JTF_NUMBER_TABLE();
117 a2 := JTF_DATE_TABLE();
118 a3 := JTF_NUMBER_TABLE();
119 a4 := JTF_DATE_TABLE();
120 a5 := JTF_NUMBER_TABLE();
121 a6 := JTF_NUMBER_TABLE();
122 a7 := JTF_NUMBER_TABLE();
123 a8 := JTF_NUMBER_TABLE();
124 a9 := JTF_NUMBER_TABLE();
125 a10 := JTF_VARCHAR2_TABLE_100();
126 a11 := JTF_VARCHAR2_TABLE_100();
127 a12 := JTF_DATE_TABLE();
128 a13 := JTF_NUMBER_TABLE();
129 a14 := JTF_NUMBER_TABLE();
130 a15 := JTF_NUMBER_TABLE();
131 a16 := JTF_NUMBER_TABLE();
132 a17 := JTF_NUMBER_TABLE();
133 a18 := JTF_NUMBER_TABLE();
134 a19 := JTF_VARCHAR2_TABLE_100();
135 a20 := JTF_NUMBER_TABLE();
136 a21 := JTF_NUMBER_TABLE();
137 a22 := JTF_NUMBER_TABLE();
138 a23 := JTF_NUMBER_TABLE();
139 a24 := JTF_NUMBER_TABLE();
140 a25 := JTF_VARCHAR2_TABLE_100();
141 else
142 a0 := JTF_NUMBER_TABLE();
143 a1 := JTF_NUMBER_TABLE();
144 a2 := JTF_DATE_TABLE();
145 a3 := JTF_NUMBER_TABLE();
146 a4 := JTF_DATE_TABLE();
147 a5 := JTF_NUMBER_TABLE();
148 a6 := JTF_NUMBER_TABLE();
149 a7 := JTF_NUMBER_TABLE();
150 a8 := JTF_NUMBER_TABLE();
151 a9 := JTF_NUMBER_TABLE();
152 a10 := JTF_VARCHAR2_TABLE_100();
153 a11 := JTF_VARCHAR2_TABLE_100();
154 a12 := JTF_DATE_TABLE();
155 a13 := JTF_NUMBER_TABLE();
156 a14 := JTF_NUMBER_TABLE();
157 a15 := JTF_NUMBER_TABLE();
158 a16 := JTF_NUMBER_TABLE();
159 a17 := JTF_NUMBER_TABLE();
160 a18 := JTF_NUMBER_TABLE();
161 a19 := JTF_VARCHAR2_TABLE_100();
162 a20 := JTF_NUMBER_TABLE();
163 a21 := JTF_NUMBER_TABLE();
164 a22 := JTF_NUMBER_TABLE();
165 a23 := JTF_NUMBER_TABLE();
166 a24 := JTF_NUMBER_TABLE();
167 a25 := JTF_VARCHAR2_TABLE_100();
168 if t.count > 0 then
169 a0.extend(t.count);
170 a1.extend(t.count);
171 a2.extend(t.count);
172 a3.extend(t.count);
173 a4.extend(t.count);
174 a5.extend(t.count);
175 a6.extend(t.count);
176 a7.extend(t.count);
177 a8.extend(t.count);
178 a9.extend(t.count);
179 a10.extend(t.count);
180 a11.extend(t.count);
181 a12.extend(t.count);
182 a13.extend(t.count);
183 a14.extend(t.count);
184 a15.extend(t.count);
185 a16.extend(t.count);
186 a17.extend(t.count);
187 a18.extend(t.count);
188 a19.extend(t.count);
189 a20.extend(t.count);
190 a21.extend(t.count);
191 a22.extend(t.count);
192 a23.extend(t.count);
193 a24.extend(t.count);
194 a25.extend(t.count);
195 ddindx := t.first;
196 indx := 1;
197 while true loop
198 a0(indx) := t(ddindx).claim_line_util_id;
199 a1(indx) := t(ddindx).object_version_number;
200 a2(indx) := t(ddindx).last_update_date;
201 a3(indx) := t(ddindx).last_updated_by;
202 a4(indx) := t(ddindx).creation_date;
203 a5(indx) := t(ddindx).created_by;
204 a6(indx) := t(ddindx).last_update_login;
205 a7(indx) := t(ddindx).claim_line_id;
206 a8(indx) := t(ddindx).utilization_id;
207 a9(indx) := t(ddindx).amount;
208 a10(indx) := t(ddindx).currency_code;
209 a11(indx) := t(ddindx).exchange_rate_type;
210 a12(indx) := t(ddindx).exchange_rate_date;
211 a13(indx) := t(ddindx).exchange_rate;
212 a14(indx) := t(ddindx).acctd_amount;
213 a15(indx) := t(ddindx).util_curr_amount;
214 a16(indx) := t(ddindx).plan_curr_amount;
215 a17(indx) := t(ddindx).scan_unit;
216 a18(indx) := t(ddindx).activity_product_id;
217 a19(indx) := t(ddindx).uom_code;
218 a20(indx) := t(ddindx).quantity;
219 a21(indx) := t(ddindx).org_id;
220 a22(indx) := t(ddindx).univ_curr_amount;
221 a23(indx) := t(ddindx).fxgl_acctd_amount;
222 a24(indx) := t(ddindx).utilized_acctd_amount;
223 a25(indx) := t(ddindx).update_from_tbl_flag;
224 indx := indx+1;
225 if t.last =ddindx
226 then exit;
227 end if;
228 ddindx := t.next(ddindx);
229 end loop;
230 end if;
231 end if;
232 end rosetta_table_copy_out_p1;
233
234 procedure rosetta_table_copy_in_p4(t out nocopy ozf_claim_accrual_pvt.offer_performance_tbl_type, a0 JTF_NUMBER_TABLE
235 , a1 JTF_NUMBER_TABLE
236 , a2 JTF_VARCHAR2_TABLE_100
237 , a3 JTF_VARCHAR2_TABLE_300
238 , a4 JTF_DATE_TABLE
239 , a5 JTF_DATE_TABLE
240 , a6 JTF_VARCHAR2_TABLE_100
241 , a7 JTF_NUMBER_TABLE
242 , a8 JTF_VARCHAR2_TABLE_100
243 ) as
244 ddindx binary_integer; indx binary_integer;
245 begin
246 if a0 is not null and a0.count > 0 then
247 if a0.count > 0 then
248 indx := a0.first;
249 ddindx := 1;
250 while true loop
251 t(ddindx).offer_id := a0(indx);
252 t(ddindx).offer_performance_id := a1(indx);
253 t(ddindx).product_attribute := a2(indx);
254 t(ddindx).product_attr_value := a3(indx);
255 t(ddindx).start_date := rosetta_g_miss_date_in_map(a4(indx));
256 t(ddindx).end_date := rosetta_g_miss_date_in_map(a5(indx));
257 t(ddindx).requirement_type := a6(indx);
258 t(ddindx).estimated_value := a7(indx);
259 t(ddindx).uom_code := a8(indx);
260 ddindx := ddindx+1;
261 if a0.last =indx
262 then exit;
263 end if;
264 indx := a0.next(indx);
265 end loop;
266 end if;
267 end if;
268 end rosetta_table_copy_in_p4;
269 procedure rosetta_table_copy_out_p4(t ozf_claim_accrual_pvt.offer_performance_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
270 , a1 out nocopy JTF_NUMBER_TABLE
271 , a2 out nocopy JTF_VARCHAR2_TABLE_100
272 , a3 out nocopy JTF_VARCHAR2_TABLE_300
273 , a4 out nocopy JTF_DATE_TABLE
274 , a5 out nocopy JTF_DATE_TABLE
275 , a6 out nocopy JTF_VARCHAR2_TABLE_100
276 , a7 out nocopy JTF_NUMBER_TABLE
277 , a8 out nocopy JTF_VARCHAR2_TABLE_100
278 ) as
279 ddindx binary_integer; indx binary_integer;
280 begin
281 if t is null or t.count = 0 then
282 a0 := JTF_NUMBER_TABLE();
283 a1 := JTF_NUMBER_TABLE();
284 a2 := JTF_VARCHAR2_TABLE_100();
285 a3 := JTF_VARCHAR2_TABLE_300();
286 a4 := JTF_DATE_TABLE();
287 a5 := JTF_DATE_TABLE();
288 a6 := JTF_VARCHAR2_TABLE_100();
289 a7 := JTF_NUMBER_TABLE();
290 a8 := JTF_VARCHAR2_TABLE_100();
291 else
292 a0 := JTF_NUMBER_TABLE();
293 a1 := JTF_NUMBER_TABLE();
294 a2 := JTF_VARCHAR2_TABLE_100();
295 a3 := JTF_VARCHAR2_TABLE_300();
296 a4 := JTF_DATE_TABLE();
297 a5 := JTF_DATE_TABLE();
298 a6 := JTF_VARCHAR2_TABLE_100();
299 a7 := JTF_NUMBER_TABLE();
300 a8 := JTF_VARCHAR2_TABLE_100();
301 if t.count > 0 then
302 a0.extend(t.count);
303 a1.extend(t.count);
304 a2.extend(t.count);
305 a3.extend(t.count);
306 a4.extend(t.count);
307 a5.extend(t.count);
308 a6.extend(t.count);
309 a7.extend(t.count);
310 a8.extend(t.count);
311 ddindx := t.first;
312 indx := 1;
313 while true loop
314 a0(indx) := t(ddindx).offer_id;
315 a1(indx) := t(ddindx).offer_performance_id;
316 a2(indx) := t(ddindx).product_attribute;
317 a3(indx) := t(ddindx).product_attr_value;
318 a4(indx) := t(ddindx).start_date;
319 a5(indx) := t(ddindx).end_date;
320 a6(indx) := t(ddindx).requirement_type;
321 a7(indx) := t(ddindx).estimated_value;
322 a8(indx) := t(ddindx).uom_code;
323 indx := indx+1;
324 if t.last =ddindx
325 then exit;
326 end if;
327 ddindx := t.next(ddindx);
328 end loop;
329 end if;
330 end if;
331 end rosetta_table_copy_out_p4;
332
333 procedure rosetta_table_copy_in_p6(t out nocopy ozf_claim_accrual_pvt.offer_earning_tbl_type, a0 JTF_NUMBER_TABLE
334 , a1 JTF_NUMBER_TABLE
335 ) as
336 ddindx binary_integer; indx binary_integer;
337 begin
338 if a0 is not null and a0.count > 0 then
339 if a0.count > 0 then
340 indx := a0.first;
341 ddindx := 1;
342 while true loop
343 t(ddindx).offer_id := a0(indx);
344 t(ddindx).acctd_amount_over := a1(indx);
345 ddindx := ddindx+1;
346 if a0.last =indx
347 then exit;
348 end if;
349 indx := a0.next(indx);
350 end loop;
351 end if;
352 end if;
353 end rosetta_table_copy_in_p6;
354 procedure rosetta_table_copy_out_p6(t ozf_claim_accrual_pvt.offer_earning_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
355 , a1 out nocopy JTF_NUMBER_TABLE
356 ) as
357 ddindx binary_integer; indx binary_integer;
358 begin
359 if t is null or t.count = 0 then
360 a0 := JTF_NUMBER_TABLE();
361 a1 := JTF_NUMBER_TABLE();
362 else
363 a0 := JTF_NUMBER_TABLE();
364 a1 := JTF_NUMBER_TABLE();
365 if t.count > 0 then
366 a0.extend(t.count);
367 a1.extend(t.count);
368 ddindx := t.first;
369 indx := 1;
370 while true loop
371 a0(indx) := t(ddindx).offer_id;
372 a1(indx) := t(ddindx).acctd_amount_over;
373 indx := indx+1;
374 if t.last =ddindx
375 then exit;
376 end if;
377 ddindx := t.next(ddindx);
378 end loop;
379 end if;
380 end if;
381 end rosetta_table_copy_out_p6;
382
383 procedure get_utiz_sql_stmt(p_api_version NUMBER
384 , p_init_msg_list VARCHAR2
385 , p_commit VARCHAR2
386 , p_validation_level NUMBER
387 , x_return_status out nocopy VARCHAR2
388 , x_msg_count out nocopy NUMBER
389 , x_msg_data out nocopy VARCHAR2
390 , p_summary_view VARCHAR2
391 , p8_a0 NUMBER
392 , p8_a1 NUMBER
393 , p8_a2 VARCHAR2
394 , p8_a3 NUMBER
395 , p8_a4 NUMBER
396 , p8_a5 NUMBER
397 , p8_a6 VARCHAR2
398 , p8_a7 VARCHAR2
399 , p8_a8 NUMBER
400 , p8_a9 VARCHAR2
401 , p8_a10 NUMBER
402 , p8_a11 VARCHAR2
403 , p8_a12 NUMBER
404 , p8_a13 VARCHAR2
405 , p8_a14 NUMBER
406 , p8_a15 NUMBER
407 , p8_a16 NUMBER
408 , p8_a17 NUMBER
409 , p8_a18 NUMBER
410 , p8_a19 NUMBER
411 , p8_a20 VARCHAR2
412 , p8_a21 NUMBER
413 , p8_a22 VARCHAR2
414 , p8_a23 NUMBER
415 , p8_a24 NUMBER
416 , p8_a25 NUMBER
417 , p8_a26 VARCHAR2
418 , p8_a27 VARCHAR2
419 , p8_a28 VARCHAR2
420 , p8_a29 NUMBER
421 , p8_a30 DATE
422 , p8_a31 VARCHAR2
423 , p8_a32 VARCHAR2
424 , p8_a33 VARCHAR2
425 , p8_a34 VARCHAR2
426 , p8_a35 VARCHAR2
427 , p_cust_account_id NUMBER
428 , x_utiz_sql_stmt out nocopy VARCHAR2
429 )
430
431 as
432 ddp_funds_util_flt ozf_claim_accrual_pvt.funds_util_flt_type;
433 ddindx binary_integer; indx binary_integer;
434 begin
435
436 -- copy data to the local IN or IN-OUT args, if any
437
438
439
440
441
442
443
444
445 ddp_funds_util_flt.claim_line_id := p8_a0;
446 ddp_funds_util_flt.fund_id := p8_a1;
447 ddp_funds_util_flt.activity_type := p8_a2;
448 ddp_funds_util_flt.activity_id := p8_a3;
449 ddp_funds_util_flt.activity_product_id := p8_a4;
450 ddp_funds_util_flt.schedule_id := p8_a5;
451 ddp_funds_util_flt.offer_type := p8_a6;
452 ddp_funds_util_flt.document_class := p8_a7;
453 ddp_funds_util_flt.document_id := p8_a8;
454 ddp_funds_util_flt.product_level_type := p8_a9;
455 ddp_funds_util_flt.product_id := p8_a10;
456 ddp_funds_util_flt.reference_type := p8_a11;
457 ddp_funds_util_flt.reference_id := p8_a12;
458 ddp_funds_util_flt.utilization_type := p8_a13;
459 ddp_funds_util_flt.total_amount := p8_a14;
460 ddp_funds_util_flt.old_total_amount := p8_a15;
461 if p8_a16 is null
462 then ddp_funds_util_flt.pay_over_all_flag := null;
463 elsif p8_a16 = 0
464 then ddp_funds_util_flt.pay_over_all_flag := false;
465 else ddp_funds_util_flt.pay_over_all_flag := true;
466 end if;
467 ddp_funds_util_flt.total_units := p8_a17;
468 ddp_funds_util_flt.old_total_units := p8_a18;
469 ddp_funds_util_flt.quantity := p8_a19;
470 ddp_funds_util_flt.uom_code := p8_a20;
471 ddp_funds_util_flt.cust_account_id := p8_a21;
472 ddp_funds_util_flt.relationship_type := p8_a22;
473 ddp_funds_util_flt.related_cust_account_id := p8_a23;
474 ddp_funds_util_flt.buy_group_cust_account_id := p8_a24;
475 ddp_funds_util_flt.buy_group_party_id := p8_a25;
476 ddp_funds_util_flt.select_cust_children_flag := p8_a26;
477 ddp_funds_util_flt.pay_to_customer := p8_a27;
478 ddp_funds_util_flt.prorate_earnings_flag := p8_a28;
479 ddp_funds_util_flt.adjustment_type_id := p8_a29;
480 ddp_funds_util_flt.end_date := rosetta_g_miss_date_in_map(p8_a30);
481 ddp_funds_util_flt.run_mode := p8_a31;
482 ddp_funds_util_flt.check_sales_rep_flag := p8_a32;
483 ddp_funds_util_flt.group_by_offer := p8_a33;
484 ddp_funds_util_flt.offer_payment_method := p8_a34;
485 ddp_funds_util_flt.utiz_currency_code := p8_a35;
486
487
488
489 -- here's the delegated call to the old PL/SQL routine
490 ozf_claim_accrual_pvt.get_utiz_sql_stmt(p_api_version,
491 p_init_msg_list,
492 p_commit,
493 p_validation_level,
494 x_return_status,
495 x_msg_count,
496 x_msg_data,
497 p_summary_view,
498 ddp_funds_util_flt,
499 p_cust_account_id,
500 x_utiz_sql_stmt);
501
502 -- copy data back from the local variables to OUT or IN-OUT args, if any
503
504
505
506
507
508
509
510
511
512
513 end;
514
515 procedure create_line_util_tbl(p_api_version NUMBER
516 , p_init_msg_list VARCHAR2
517 , p_commit VARCHAR2
518 , p_validation_level NUMBER
519 , x_return_status out nocopy VARCHAR2
520 , x_msg_data out nocopy VARCHAR2
521 , x_msg_count out nocopy NUMBER
522 , p7_a0 JTF_NUMBER_TABLE
523 , p7_a1 JTF_NUMBER_TABLE
524 , p7_a2 JTF_DATE_TABLE
525 , p7_a3 JTF_NUMBER_TABLE
526 , p7_a4 JTF_DATE_TABLE
527 , p7_a5 JTF_NUMBER_TABLE
528 , p7_a6 JTF_NUMBER_TABLE
529 , p7_a7 JTF_NUMBER_TABLE
530 , p7_a8 JTF_NUMBER_TABLE
531 , p7_a9 JTF_NUMBER_TABLE
532 , p7_a10 JTF_VARCHAR2_TABLE_100
533 , p7_a11 JTF_VARCHAR2_TABLE_100
534 , p7_a12 JTF_DATE_TABLE
535 , p7_a13 JTF_NUMBER_TABLE
536 , p7_a14 JTF_NUMBER_TABLE
537 , p7_a15 JTF_NUMBER_TABLE
538 , p7_a16 JTF_NUMBER_TABLE
539 , p7_a17 JTF_NUMBER_TABLE
540 , p7_a18 JTF_NUMBER_TABLE
541 , p7_a19 JTF_VARCHAR2_TABLE_100
542 , p7_a20 JTF_NUMBER_TABLE
543 , p7_a21 JTF_NUMBER_TABLE
544 , p7_a22 JTF_NUMBER_TABLE
545 , p7_a23 JTF_NUMBER_TABLE
546 , p7_a24 JTF_NUMBER_TABLE
547 , p7_a25 JTF_VARCHAR2_TABLE_100
548 , p_mode VARCHAR2
549 , x_error_index out nocopy NUMBER
550 )
551
552 as
553 ddp_line_util_tbl ozf_claim_accrual_pvt.line_util_tbl_type;
554 ddindx binary_integer; indx binary_integer;
555 begin
556
557 -- copy data to the local IN or IN-OUT args, if any
558
559
560
561
562
563
564
565 ozf_claim_accrual_pvt_w.rosetta_table_copy_in_p1(ddp_line_util_tbl, p7_a0
566 , p7_a1
567 , p7_a2
568 , p7_a3
569 , p7_a4
570 , p7_a5
571 , p7_a6
572 , p7_a7
573 , p7_a8
574 , p7_a9
575 , p7_a10
576 , p7_a11
577 , p7_a12
578 , p7_a13
579 , p7_a14
580 , p7_a15
581 , p7_a16
582 , p7_a17
583 , p7_a18
584 , p7_a19
585 , p7_a20
586 , p7_a21
587 , p7_a22
588 , p7_a23
589 , p7_a24
590 , p7_a25
591 );
592
593
594
595 -- here's the delegated call to the old PL/SQL routine
596 ozf_claim_accrual_pvt.create_line_util_tbl(p_api_version,
597 p_init_msg_list,
598 p_commit,
599 p_validation_level,
600 x_return_status,
601 x_msg_data,
602 x_msg_count,
603 ddp_line_util_tbl,
604 p_mode,
605 x_error_index);
606
607 -- copy data back from the local variables to OUT or IN-OUT args, if any
608
609
610
611
612
613
614
615
616
617 end;
618
619 procedure create_line_util(p_api_version NUMBER
620 , p_init_msg_list VARCHAR2
621 , p_commit VARCHAR2
622 , p_validation_level NUMBER
623 , x_return_status out nocopy VARCHAR2
624 , x_msg_count out nocopy NUMBER
625 , x_msg_data out nocopy VARCHAR2
626 , p7_a0 NUMBER
627 , p7_a1 NUMBER
628 , p7_a2 DATE
629 , p7_a3 NUMBER
630 , p7_a4 DATE
631 , p7_a5 NUMBER
632 , p7_a6 NUMBER
633 , p7_a7 NUMBER
634 , p7_a8 NUMBER
635 , p7_a9 NUMBER
636 , p7_a10 VARCHAR2
637 , p7_a11 VARCHAR2
638 , p7_a12 DATE
639 , p7_a13 NUMBER
640 , p7_a14 NUMBER
641 , p7_a15 NUMBER
642 , p7_a16 NUMBER
643 , p7_a17 NUMBER
644 , p7_a18 NUMBER
645 , p7_a19 VARCHAR2
646 , p7_a20 NUMBER
647 , p7_a21 NUMBER
648 , p7_a22 NUMBER
649 , p7_a23 NUMBER
650 , p7_a24 NUMBER
651 , p7_a25 VARCHAR2
652 , p_mode VARCHAR2
653 , x_line_util_id out nocopy NUMBER
654 )
655
656 as
657 ddp_line_util_rec ozf_claim_accrual_pvt.line_util_rec_type;
658 ddindx binary_integer; indx binary_integer;
659 begin
660
661 -- copy data to the local IN or IN-OUT args, if any
662
663
664
665
666
667
668
669 ddp_line_util_rec.claim_line_util_id := p7_a0;
670 ddp_line_util_rec.object_version_number := p7_a1;
671 ddp_line_util_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a2);
672 ddp_line_util_rec.last_updated_by := p7_a3;
673 ddp_line_util_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
674 ddp_line_util_rec.created_by := p7_a5;
675 ddp_line_util_rec.last_update_login := p7_a6;
676 ddp_line_util_rec.claim_line_id := p7_a7;
677 ddp_line_util_rec.utilization_id := p7_a8;
678 ddp_line_util_rec.amount := p7_a9;
679 ddp_line_util_rec.currency_code := p7_a10;
680 ddp_line_util_rec.exchange_rate_type := p7_a11;
681 ddp_line_util_rec.exchange_rate_date := rosetta_g_miss_date_in_map(p7_a12);
682 ddp_line_util_rec.exchange_rate := p7_a13;
683 ddp_line_util_rec.acctd_amount := p7_a14;
684 ddp_line_util_rec.util_curr_amount := p7_a15;
685 ddp_line_util_rec.plan_curr_amount := p7_a16;
686 ddp_line_util_rec.scan_unit := p7_a17;
687 ddp_line_util_rec.activity_product_id := p7_a18;
688 ddp_line_util_rec.uom_code := p7_a19;
689 ddp_line_util_rec.quantity := p7_a20;
690 ddp_line_util_rec.org_id := p7_a21;
691 ddp_line_util_rec.univ_curr_amount := p7_a22;
692 ddp_line_util_rec.fxgl_acctd_amount := p7_a23;
693 ddp_line_util_rec.utilized_acctd_amount := p7_a24;
694 ddp_line_util_rec.update_from_tbl_flag := p7_a25;
695
696
697
698 -- here's the delegated call to the old PL/SQL routine
699 ozf_claim_accrual_pvt.create_line_util(p_api_version,
700 p_init_msg_list,
701 p_commit,
702 p_validation_level,
703 x_return_status,
704 x_msg_count,
705 x_msg_data,
706 ddp_line_util_rec,
707 p_mode,
708 x_line_util_id);
709
710 -- copy data back from the local variables to OUT or IN-OUT args, if any
711
712
713
714
715
716
717
718
719
720 end;
721
722 procedure update_line_util_tbl(p_api_version NUMBER
723 , p_init_msg_list VARCHAR2
724 , p_commit VARCHAR2
725 , p_validation_level NUMBER
726 , x_return_status out nocopy VARCHAR2
727 , x_msg_data out nocopy VARCHAR2
728 , x_msg_count out nocopy NUMBER
729 , p7_a0 JTF_NUMBER_TABLE
730 , p7_a1 JTF_NUMBER_TABLE
731 , p7_a2 JTF_DATE_TABLE
732 , p7_a3 JTF_NUMBER_TABLE
733 , p7_a4 JTF_DATE_TABLE
734 , p7_a5 JTF_NUMBER_TABLE
735 , p7_a6 JTF_NUMBER_TABLE
736 , p7_a7 JTF_NUMBER_TABLE
737 , p7_a8 JTF_NUMBER_TABLE
738 , p7_a9 JTF_NUMBER_TABLE
739 , p7_a10 JTF_VARCHAR2_TABLE_100
740 , p7_a11 JTF_VARCHAR2_TABLE_100
741 , p7_a12 JTF_DATE_TABLE
742 , p7_a13 JTF_NUMBER_TABLE
743 , p7_a14 JTF_NUMBER_TABLE
744 , p7_a15 JTF_NUMBER_TABLE
745 , p7_a16 JTF_NUMBER_TABLE
746 , p7_a17 JTF_NUMBER_TABLE
747 , p7_a18 JTF_NUMBER_TABLE
748 , p7_a19 JTF_VARCHAR2_TABLE_100
749 , p7_a20 JTF_NUMBER_TABLE
750 , p7_a21 JTF_NUMBER_TABLE
751 , p7_a22 JTF_NUMBER_TABLE
752 , p7_a23 JTF_NUMBER_TABLE
753 , p7_a24 JTF_NUMBER_TABLE
754 , p7_a25 JTF_VARCHAR2_TABLE_100
755 , p_mode VARCHAR2
756 , x_error_index out nocopy NUMBER
757 )
758
759 as
760 ddp_line_util_tbl ozf_claim_accrual_pvt.line_util_tbl_type;
761 ddindx binary_integer; indx binary_integer;
762 begin
763
764 -- copy data to the local IN or IN-OUT args, if any
765
766
767
768
769
770
771
772 ozf_claim_accrual_pvt_w.rosetta_table_copy_in_p1(ddp_line_util_tbl, p7_a0
773 , p7_a1
774 , p7_a2
775 , p7_a3
776 , p7_a4
777 , p7_a5
778 , p7_a6
779 , p7_a7
780 , p7_a8
781 , p7_a9
782 , p7_a10
783 , p7_a11
784 , p7_a12
785 , p7_a13
786 , p7_a14
787 , p7_a15
788 , p7_a16
789 , p7_a17
790 , p7_a18
791 , p7_a19
792 , p7_a20
793 , p7_a21
794 , p7_a22
795 , p7_a23
796 , p7_a24
797 , p7_a25
798 );
799
800
801
802 -- here's the delegated call to the old PL/SQL routine
803 ozf_claim_accrual_pvt.update_line_util_tbl(p_api_version,
804 p_init_msg_list,
805 p_commit,
806 p_validation_level,
807 x_return_status,
808 x_msg_data,
809 x_msg_count,
810 ddp_line_util_tbl,
811 p_mode,
812 x_error_index);
813
814 -- copy data back from the local variables to OUT or IN-OUT args, if any
815
816
817
818
819
820
821
822
823
824 end;
825
826 procedure update_line_util(p_api_version NUMBER
827 , p_init_msg_list VARCHAR2
828 , p_commit VARCHAR2
829 , p_validation_level NUMBER
830 , x_return_status out nocopy VARCHAR2
831 , x_msg_count out nocopy NUMBER
832 , x_msg_data out nocopy VARCHAR2
833 , p7_a0 NUMBER
834 , p7_a1 NUMBER
835 , p7_a2 DATE
836 , p7_a3 NUMBER
837 , p7_a4 DATE
838 , p7_a5 NUMBER
839 , p7_a6 NUMBER
840 , p7_a7 NUMBER
841 , p7_a8 NUMBER
842 , p7_a9 NUMBER
843 , p7_a10 VARCHAR2
844 , p7_a11 VARCHAR2
845 , p7_a12 DATE
846 , p7_a13 NUMBER
847 , p7_a14 NUMBER
848 , p7_a15 NUMBER
849 , p7_a16 NUMBER
850 , p7_a17 NUMBER
851 , p7_a18 NUMBER
852 , p7_a19 VARCHAR2
853 , p7_a20 NUMBER
854 , p7_a21 NUMBER
855 , p7_a22 NUMBER
856 , p7_a23 NUMBER
857 , p7_a24 NUMBER
858 , p7_a25 VARCHAR2
859 , p_mode VARCHAR2
860 , x_object_version out nocopy NUMBER
861 )
862
863 as
864 ddp_line_util_rec ozf_claim_accrual_pvt.line_util_rec_type;
865 ddindx binary_integer; indx binary_integer;
866 begin
867
868 -- copy data to the local IN or IN-OUT args, if any
869
870
871
872
873
874
875
876 ddp_line_util_rec.claim_line_util_id := p7_a0;
877 ddp_line_util_rec.object_version_number := p7_a1;
878 ddp_line_util_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a2);
879 ddp_line_util_rec.last_updated_by := p7_a3;
880 ddp_line_util_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
881 ddp_line_util_rec.created_by := p7_a5;
882 ddp_line_util_rec.last_update_login := p7_a6;
883 ddp_line_util_rec.claim_line_id := p7_a7;
884 ddp_line_util_rec.utilization_id := p7_a8;
885 ddp_line_util_rec.amount := p7_a9;
886 ddp_line_util_rec.currency_code := p7_a10;
887 ddp_line_util_rec.exchange_rate_type := p7_a11;
888 ddp_line_util_rec.exchange_rate_date := rosetta_g_miss_date_in_map(p7_a12);
889 ddp_line_util_rec.exchange_rate := p7_a13;
890 ddp_line_util_rec.acctd_amount := p7_a14;
891 ddp_line_util_rec.util_curr_amount := p7_a15;
892 ddp_line_util_rec.plan_curr_amount := p7_a16;
893 ddp_line_util_rec.scan_unit := p7_a17;
894 ddp_line_util_rec.activity_product_id := p7_a18;
895 ddp_line_util_rec.uom_code := p7_a19;
896 ddp_line_util_rec.quantity := p7_a20;
897 ddp_line_util_rec.org_id := p7_a21;
898 ddp_line_util_rec.univ_curr_amount := p7_a22;
899 ddp_line_util_rec.fxgl_acctd_amount := p7_a23;
900 ddp_line_util_rec.utilized_acctd_amount := p7_a24;
901 ddp_line_util_rec.update_from_tbl_flag := p7_a25;
902
903
904
905 -- here's the delegated call to the old PL/SQL routine
906 ozf_claim_accrual_pvt.update_line_util(p_api_version,
907 p_init_msg_list,
908 p_commit,
909 p_validation_level,
910 x_return_status,
911 x_msg_count,
912 x_msg_data,
913 ddp_line_util_rec,
914 p_mode,
915 x_object_version);
916
917 -- copy data back from the local variables to OUT or IN-OUT args, if any
918
919
920
921
922
923
924
925
926
927 end;
928
929 procedure delete_line_util_tbl(p_api_version NUMBER
930 , p_init_msg_list VARCHAR2
931 , p_commit VARCHAR2
932 , p_validation_level NUMBER
933 , x_return_status out nocopy VARCHAR2
934 , x_msg_data out nocopy VARCHAR2
935 , x_msg_count out nocopy NUMBER
936 , p7_a0 JTF_NUMBER_TABLE
937 , p7_a1 JTF_NUMBER_TABLE
938 , p7_a2 JTF_DATE_TABLE
939 , p7_a3 JTF_NUMBER_TABLE
940 , p7_a4 JTF_DATE_TABLE
941 , p7_a5 JTF_NUMBER_TABLE
942 , p7_a6 JTF_NUMBER_TABLE
943 , p7_a7 JTF_NUMBER_TABLE
944 , p7_a8 JTF_NUMBER_TABLE
945 , p7_a9 JTF_NUMBER_TABLE
946 , p7_a10 JTF_VARCHAR2_TABLE_100
947 , p7_a11 JTF_VARCHAR2_TABLE_100
948 , p7_a12 JTF_DATE_TABLE
949 , p7_a13 JTF_NUMBER_TABLE
950 , p7_a14 JTF_NUMBER_TABLE
951 , p7_a15 JTF_NUMBER_TABLE
952 , p7_a16 JTF_NUMBER_TABLE
953 , p7_a17 JTF_NUMBER_TABLE
954 , p7_a18 JTF_NUMBER_TABLE
955 , p7_a19 JTF_VARCHAR2_TABLE_100
956 , p7_a20 JTF_NUMBER_TABLE
957 , p7_a21 JTF_NUMBER_TABLE
958 , p7_a22 JTF_NUMBER_TABLE
959 , p7_a23 JTF_NUMBER_TABLE
960 , p7_a24 JTF_NUMBER_TABLE
961 , p7_a25 JTF_VARCHAR2_TABLE_100
962 , p_mode VARCHAR2
963 , x_error_index out nocopy NUMBER
964 )
965
966 as
967 ddp_line_util_tbl ozf_claim_accrual_pvt.line_util_tbl_type;
968 ddindx binary_integer; indx binary_integer;
969 begin
970
971 -- copy data to the local IN or IN-OUT args, if any
972
973
974
975
976
977
978
979 ozf_claim_accrual_pvt_w.rosetta_table_copy_in_p1(ddp_line_util_tbl, p7_a0
980 , p7_a1
981 , p7_a2
982 , p7_a3
983 , p7_a4
984 , p7_a5
985 , p7_a6
986 , p7_a7
987 , p7_a8
988 , p7_a9
989 , p7_a10
990 , p7_a11
991 , p7_a12
992 , p7_a13
993 , p7_a14
994 , p7_a15
995 , p7_a16
996 , p7_a17
997 , p7_a18
998 , p7_a19
999 , p7_a20
1000 , p7_a21
1001 , p7_a22
1002 , p7_a23
1003 , p7_a24
1004 , p7_a25
1005 );
1006
1007
1008
1009 -- here's the delegated call to the old PL/SQL routine
1010 ozf_claim_accrual_pvt.delete_line_util_tbl(p_api_version,
1011 p_init_msg_list,
1012 p_commit,
1013 p_validation_level,
1014 x_return_status,
1015 x_msg_data,
1016 x_msg_count,
1017 ddp_line_util_tbl,
1018 p_mode,
1019 x_error_index);
1020
1021 -- copy data back from the local variables to OUT or IN-OUT args, if any
1022
1023
1024
1025
1026
1027
1028
1029
1030
1031 end;
1032
1033 procedure init_line_util_rec(p0_a0 out nocopy NUMBER
1034 , p0_a1 out nocopy NUMBER
1035 , p0_a2 out nocopy DATE
1036 , p0_a3 out nocopy NUMBER
1037 , p0_a4 out nocopy DATE
1038 , p0_a5 out nocopy NUMBER
1039 , p0_a6 out nocopy NUMBER
1040 , p0_a7 out nocopy NUMBER
1041 , p0_a8 out nocopy NUMBER
1042 , p0_a9 out nocopy NUMBER
1043 , p0_a10 out nocopy VARCHAR2
1044 , p0_a11 out nocopy VARCHAR2
1045 , p0_a12 out nocopy DATE
1046 , p0_a13 out nocopy NUMBER
1047 , p0_a14 out nocopy NUMBER
1048 , p0_a15 out nocopy NUMBER
1049 , p0_a16 out nocopy NUMBER
1050 , p0_a17 out nocopy NUMBER
1051 , p0_a18 out nocopy NUMBER
1052 , p0_a19 out nocopy VARCHAR2
1053 , p0_a20 out nocopy NUMBER
1054 , p0_a21 out nocopy NUMBER
1055 , p0_a22 out nocopy NUMBER
1056 , p0_a23 out nocopy NUMBER
1057 , p0_a24 out nocopy NUMBER
1058 , p0_a25 out nocopy VARCHAR2
1059 )
1060
1061 as
1062 ddx_line_util_rec ozf_claim_accrual_pvt.line_util_rec_type;
1063 ddindx binary_integer; indx binary_integer;
1064 begin
1065
1066 -- copy data to the local IN or IN-OUT args, if any
1067
1068 -- here's the delegated call to the old PL/SQL routine
1069 ozf_claim_accrual_pvt.init_line_util_rec(ddx_line_util_rec);
1070
1071 -- copy data back from the local variables to OUT or IN-OUT args, if any
1072 p0_a0 := ddx_line_util_rec.claim_line_util_id;
1073 p0_a1 := ddx_line_util_rec.object_version_number;
1074 p0_a2 := ddx_line_util_rec.last_update_date;
1075 p0_a3 := ddx_line_util_rec.last_updated_by;
1076 p0_a4 := ddx_line_util_rec.creation_date;
1077 p0_a5 := ddx_line_util_rec.created_by;
1078 p0_a6 := ddx_line_util_rec.last_update_login;
1079 p0_a7 := ddx_line_util_rec.claim_line_id;
1080 p0_a8 := ddx_line_util_rec.utilization_id;
1081 p0_a9 := ddx_line_util_rec.amount;
1082 p0_a10 := ddx_line_util_rec.currency_code;
1083 p0_a11 := ddx_line_util_rec.exchange_rate_type;
1084 p0_a12 := ddx_line_util_rec.exchange_rate_date;
1085 p0_a13 := ddx_line_util_rec.exchange_rate;
1086 p0_a14 := ddx_line_util_rec.acctd_amount;
1087 p0_a15 := ddx_line_util_rec.util_curr_amount;
1088 p0_a16 := ddx_line_util_rec.plan_curr_amount;
1089 p0_a17 := ddx_line_util_rec.scan_unit;
1090 p0_a18 := ddx_line_util_rec.activity_product_id;
1091 p0_a19 := ddx_line_util_rec.uom_code;
1092 p0_a20 := ddx_line_util_rec.quantity;
1093 p0_a21 := ddx_line_util_rec.org_id;
1094 p0_a22 := ddx_line_util_rec.univ_curr_amount;
1095 p0_a23 := ddx_line_util_rec.fxgl_acctd_amount;
1096 p0_a24 := ddx_line_util_rec.utilized_acctd_amount;
1097 p0_a25 := ddx_line_util_rec.update_from_tbl_flag;
1098 end;
1099
1100 procedure complete_line_util_rec(p0_a0 NUMBER
1101 , p0_a1 NUMBER
1102 , p0_a2 DATE
1103 , p0_a3 NUMBER
1104 , p0_a4 DATE
1105 , p0_a5 NUMBER
1106 , p0_a6 NUMBER
1107 , p0_a7 NUMBER
1108 , p0_a8 NUMBER
1109 , p0_a9 NUMBER
1110 , p0_a10 VARCHAR2
1111 , p0_a11 VARCHAR2
1112 , p0_a12 DATE
1113 , p0_a13 NUMBER
1114 , p0_a14 NUMBER
1115 , p0_a15 NUMBER
1116 , p0_a16 NUMBER
1117 , p0_a17 NUMBER
1118 , p0_a18 NUMBER
1119 , p0_a19 VARCHAR2
1120 , p0_a20 NUMBER
1121 , p0_a21 NUMBER
1122 , p0_a22 NUMBER
1123 , p0_a23 NUMBER
1124 , p0_a24 NUMBER
1125 , p0_a25 VARCHAR2
1126 , p1_a0 out nocopy NUMBER
1127 , p1_a1 out nocopy NUMBER
1128 , p1_a2 out nocopy DATE
1129 , p1_a3 out nocopy NUMBER
1130 , p1_a4 out nocopy DATE
1131 , p1_a5 out nocopy NUMBER
1132 , p1_a6 out nocopy NUMBER
1133 , p1_a7 out nocopy NUMBER
1134 , p1_a8 out nocopy NUMBER
1135 , p1_a9 out nocopy NUMBER
1136 , p1_a10 out nocopy VARCHAR2
1137 , p1_a11 out nocopy VARCHAR2
1138 , p1_a12 out nocopy DATE
1139 , p1_a13 out nocopy NUMBER
1140 , p1_a14 out nocopy NUMBER
1141 , p1_a15 out nocopy NUMBER
1142 , p1_a16 out nocopy NUMBER
1143 , p1_a17 out nocopy NUMBER
1144 , p1_a18 out nocopy NUMBER
1145 , p1_a19 out nocopy VARCHAR2
1146 , p1_a20 out nocopy NUMBER
1147 , p1_a21 out nocopy NUMBER
1148 , p1_a22 out nocopy NUMBER
1149 , p1_a23 out nocopy NUMBER
1150 , p1_a24 out nocopy NUMBER
1151 , p1_a25 out nocopy VARCHAR2
1152 )
1153
1154 as
1155 ddp_line_util_rec ozf_claim_accrual_pvt.line_util_rec_type;
1156 ddx_complete_rec ozf_claim_accrual_pvt.line_util_rec_type;
1157 ddindx binary_integer; indx binary_integer;
1158 begin
1159
1160 -- copy data to the local IN or IN-OUT args, if any
1161 ddp_line_util_rec.claim_line_util_id := p0_a0;
1162 ddp_line_util_rec.object_version_number := p0_a1;
1163 ddp_line_util_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a2);
1164 ddp_line_util_rec.last_updated_by := p0_a3;
1165 ddp_line_util_rec.creation_date := rosetta_g_miss_date_in_map(p0_a4);
1166 ddp_line_util_rec.created_by := p0_a5;
1167 ddp_line_util_rec.last_update_login := p0_a6;
1168 ddp_line_util_rec.claim_line_id := p0_a7;
1169 ddp_line_util_rec.utilization_id := p0_a8;
1170 ddp_line_util_rec.amount := p0_a9;
1171 ddp_line_util_rec.currency_code := p0_a10;
1172 ddp_line_util_rec.exchange_rate_type := p0_a11;
1173 ddp_line_util_rec.exchange_rate_date := rosetta_g_miss_date_in_map(p0_a12);
1174 ddp_line_util_rec.exchange_rate := p0_a13;
1175 ddp_line_util_rec.acctd_amount := p0_a14;
1176 ddp_line_util_rec.util_curr_amount := p0_a15;
1177 ddp_line_util_rec.plan_curr_amount := p0_a16;
1178 ddp_line_util_rec.scan_unit := p0_a17;
1179 ddp_line_util_rec.activity_product_id := p0_a18;
1180 ddp_line_util_rec.uom_code := p0_a19;
1181 ddp_line_util_rec.quantity := p0_a20;
1182 ddp_line_util_rec.org_id := p0_a21;
1183 ddp_line_util_rec.univ_curr_amount := p0_a22;
1184 ddp_line_util_rec.fxgl_acctd_amount := p0_a23;
1185 ddp_line_util_rec.utilized_acctd_amount := p0_a24;
1186 ddp_line_util_rec.update_from_tbl_flag := p0_a25;
1187
1188
1189 -- here's the delegated call to the old PL/SQL routine
1190 ozf_claim_accrual_pvt.complete_line_util_rec(ddp_line_util_rec,
1191 ddx_complete_rec);
1192
1193 -- copy data back from the local variables to OUT or IN-OUT args, if any
1194
1195 p1_a0 := ddx_complete_rec.claim_line_util_id;
1196 p1_a1 := ddx_complete_rec.object_version_number;
1197 p1_a2 := ddx_complete_rec.last_update_date;
1198 p1_a3 := ddx_complete_rec.last_updated_by;
1199 p1_a4 := ddx_complete_rec.creation_date;
1200 p1_a5 := ddx_complete_rec.created_by;
1201 p1_a6 := ddx_complete_rec.last_update_login;
1202 p1_a7 := ddx_complete_rec.claim_line_id;
1203 p1_a8 := ddx_complete_rec.utilization_id;
1204 p1_a9 := ddx_complete_rec.amount;
1205 p1_a10 := ddx_complete_rec.currency_code;
1206 p1_a11 := ddx_complete_rec.exchange_rate_type;
1207 p1_a12 := ddx_complete_rec.exchange_rate_date;
1208 p1_a13 := ddx_complete_rec.exchange_rate;
1209 p1_a14 := ddx_complete_rec.acctd_amount;
1210 p1_a15 := ddx_complete_rec.util_curr_amount;
1211 p1_a16 := ddx_complete_rec.plan_curr_amount;
1212 p1_a17 := ddx_complete_rec.scan_unit;
1213 p1_a18 := ddx_complete_rec.activity_product_id;
1214 p1_a19 := ddx_complete_rec.uom_code;
1215 p1_a20 := ddx_complete_rec.quantity;
1216 p1_a21 := ddx_complete_rec.org_id;
1217 p1_a22 := ddx_complete_rec.univ_curr_amount;
1218 p1_a23 := ddx_complete_rec.fxgl_acctd_amount;
1219 p1_a24 := ddx_complete_rec.utilized_acctd_amount;
1220 p1_a25 := ddx_complete_rec.update_from_tbl_flag;
1221 end;
1222
1223 procedure create_group_line_util(p_api_version NUMBER
1224 , p_init_msg_list VARCHAR2
1225 , p_commit VARCHAR2
1226 , p_validation_level NUMBER
1227 , x_return_status out nocopy VARCHAR2
1228 , x_msg_count out nocopy NUMBER
1229 , x_msg_data out nocopy VARCHAR2
1230 , p7_a0 NUMBER
1231 , p7_a1 NUMBER
1232 , p7_a2 VARCHAR2
1233 , p7_a3 NUMBER
1234 , p7_a4 NUMBER
1235 , p7_a5 NUMBER
1236 , p7_a6 VARCHAR2
1237 , p7_a7 VARCHAR2
1238 , p7_a8 NUMBER
1239 , p7_a9 VARCHAR2
1240 , p7_a10 NUMBER
1241 , p7_a11 VARCHAR2
1242 , p7_a12 NUMBER
1243 , p7_a13 VARCHAR2
1244 , p7_a14 NUMBER
1245 , p7_a15 NUMBER
1246 , p7_a16 NUMBER
1247 , p7_a17 NUMBER
1248 , p7_a18 NUMBER
1249 , p7_a19 NUMBER
1250 , p7_a20 VARCHAR2
1251 , p7_a21 NUMBER
1252 , p7_a22 VARCHAR2
1253 , p7_a23 NUMBER
1254 , p7_a24 NUMBER
1255 , p7_a25 NUMBER
1256 , p7_a26 VARCHAR2
1257 , p7_a27 VARCHAR2
1258 , p7_a28 VARCHAR2
1259 , p7_a29 NUMBER
1260 , p7_a30 DATE
1261 , p7_a31 VARCHAR2
1262 , p7_a32 VARCHAR2
1263 , p7_a33 VARCHAR2
1264 , p7_a34 VARCHAR2
1265 , p7_a35 VARCHAR2
1266 , p_mode VARCHAR2
1267 )
1268
1269 as
1270 ddp_fund_util_flt ozf_claim_accrual_pvt.funds_util_flt_type;
1271 ddindx binary_integer; indx binary_integer;
1272 begin
1273
1274 -- copy data to the local IN or IN-OUT args, if any
1275
1276
1277
1278
1279
1280
1281
1282 ddp_fund_util_flt.claim_line_id := p7_a0;
1283 ddp_fund_util_flt.fund_id := p7_a1;
1284 ddp_fund_util_flt.activity_type := p7_a2;
1285 ddp_fund_util_flt.activity_id := p7_a3;
1286 ddp_fund_util_flt.activity_product_id := p7_a4;
1287 ddp_fund_util_flt.schedule_id := p7_a5;
1288 ddp_fund_util_flt.offer_type := p7_a6;
1289 ddp_fund_util_flt.document_class := p7_a7;
1290 ddp_fund_util_flt.document_id := p7_a8;
1291 ddp_fund_util_flt.product_level_type := p7_a9;
1292 ddp_fund_util_flt.product_id := p7_a10;
1293 ddp_fund_util_flt.reference_type := p7_a11;
1294 ddp_fund_util_flt.reference_id := p7_a12;
1295 ddp_fund_util_flt.utilization_type := p7_a13;
1296 ddp_fund_util_flt.total_amount := p7_a14;
1297 ddp_fund_util_flt.old_total_amount := p7_a15;
1298 if p7_a16 is null
1299 then ddp_fund_util_flt.pay_over_all_flag := null;
1300 elsif p7_a16 = 0
1301 then ddp_fund_util_flt.pay_over_all_flag := false;
1302 else ddp_fund_util_flt.pay_over_all_flag := true;
1303 end if;
1304 ddp_fund_util_flt.total_units := p7_a17;
1305 ddp_fund_util_flt.old_total_units := p7_a18;
1306 ddp_fund_util_flt.quantity := p7_a19;
1307 ddp_fund_util_flt.uom_code := p7_a20;
1308 ddp_fund_util_flt.cust_account_id := p7_a21;
1309 ddp_fund_util_flt.relationship_type := p7_a22;
1310 ddp_fund_util_flt.related_cust_account_id := p7_a23;
1311 ddp_fund_util_flt.buy_group_cust_account_id := p7_a24;
1312 ddp_fund_util_flt.buy_group_party_id := p7_a25;
1313 ddp_fund_util_flt.select_cust_children_flag := p7_a26;
1314 ddp_fund_util_flt.pay_to_customer := p7_a27;
1315 ddp_fund_util_flt.prorate_earnings_flag := p7_a28;
1316 ddp_fund_util_flt.adjustment_type_id := p7_a29;
1317 ddp_fund_util_flt.end_date := rosetta_g_miss_date_in_map(p7_a30);
1318 ddp_fund_util_flt.run_mode := p7_a31;
1319 ddp_fund_util_flt.check_sales_rep_flag := p7_a32;
1320 ddp_fund_util_flt.group_by_offer := p7_a33;
1321 ddp_fund_util_flt.offer_payment_method := p7_a34;
1322 ddp_fund_util_flt.utiz_currency_code := p7_a35;
1323
1324
1325 -- here's the delegated call to the old PL/SQL routine
1326 ozf_claim_accrual_pvt.create_group_line_util(p_api_version,
1327 p_init_msg_list,
1328 p_commit,
1329 p_validation_level,
1330 x_return_status,
1331 x_msg_count,
1332 x_msg_data,
1333 ddp_fund_util_flt,
1334 p_mode);
1335
1336 -- copy data back from the local variables to OUT or IN-OUT args, if any
1337
1338
1339
1340
1341
1342
1343
1344
1345 end;
1346
1347 procedure update_group_line_util(p_api_version NUMBER
1348 , p_init_msg_list VARCHAR2
1349 , p_commit VARCHAR2
1350 , p_validation_level NUMBER
1351 , x_return_status out nocopy VARCHAR2
1352 , x_msg_count out nocopy NUMBER
1353 , x_msg_data out nocopy VARCHAR2
1354 , p_summary_view VARCHAR2
1355 , p8_a0 NUMBER
1356 , p8_a1 NUMBER
1357 , p8_a2 VARCHAR2
1358 , p8_a3 NUMBER
1359 , p8_a4 NUMBER
1360 , p8_a5 NUMBER
1361 , p8_a6 VARCHAR2
1362 , p8_a7 VARCHAR2
1363 , p8_a8 NUMBER
1364 , p8_a9 VARCHAR2
1365 , p8_a10 NUMBER
1366 , p8_a11 VARCHAR2
1367 , p8_a12 NUMBER
1368 , p8_a13 VARCHAR2
1369 , p8_a14 NUMBER
1370 , p8_a15 NUMBER
1371 , p8_a16 NUMBER
1372 , p8_a17 NUMBER
1373 , p8_a18 NUMBER
1374 , p8_a19 NUMBER
1375 , p8_a20 VARCHAR2
1376 , p8_a21 NUMBER
1377 , p8_a22 VARCHAR2
1378 , p8_a23 NUMBER
1379 , p8_a24 NUMBER
1380 , p8_a25 NUMBER
1381 , p8_a26 VARCHAR2
1382 , p8_a27 VARCHAR2
1383 , p8_a28 VARCHAR2
1384 , p8_a29 NUMBER
1385 , p8_a30 DATE
1386 , p8_a31 VARCHAR2
1387 , p8_a32 VARCHAR2
1388 , p8_a33 VARCHAR2
1389 , p8_a34 VARCHAR2
1390 , p8_a35 VARCHAR2
1391 , p_mode VARCHAR2
1392 )
1393
1394 as
1395 ddp_funds_util_flt ozf_claim_accrual_pvt.funds_util_flt_type;
1396 ddindx binary_integer; indx binary_integer;
1397 begin
1398
1399 -- copy data to the local IN or IN-OUT args, if any
1400
1401
1402
1403
1404
1405
1406
1407
1408 ddp_funds_util_flt.claim_line_id := p8_a0;
1409 ddp_funds_util_flt.fund_id := p8_a1;
1410 ddp_funds_util_flt.activity_type := p8_a2;
1411 ddp_funds_util_flt.activity_id := p8_a3;
1412 ddp_funds_util_flt.activity_product_id := p8_a4;
1413 ddp_funds_util_flt.schedule_id := p8_a5;
1414 ddp_funds_util_flt.offer_type := p8_a6;
1415 ddp_funds_util_flt.document_class := p8_a7;
1416 ddp_funds_util_flt.document_id := p8_a8;
1417 ddp_funds_util_flt.product_level_type := p8_a9;
1418 ddp_funds_util_flt.product_id := p8_a10;
1419 ddp_funds_util_flt.reference_type := p8_a11;
1420 ddp_funds_util_flt.reference_id := p8_a12;
1421 ddp_funds_util_flt.utilization_type := p8_a13;
1422 ddp_funds_util_flt.total_amount := p8_a14;
1423 ddp_funds_util_flt.old_total_amount := p8_a15;
1424 if p8_a16 is null
1425 then ddp_funds_util_flt.pay_over_all_flag := null;
1426 elsif p8_a16 = 0
1427 then ddp_funds_util_flt.pay_over_all_flag := false;
1428 else ddp_funds_util_flt.pay_over_all_flag := true;
1429 end if;
1430 ddp_funds_util_flt.total_units := p8_a17;
1431 ddp_funds_util_flt.old_total_units := p8_a18;
1432 ddp_funds_util_flt.quantity := p8_a19;
1433 ddp_funds_util_flt.uom_code := p8_a20;
1434 ddp_funds_util_flt.cust_account_id := p8_a21;
1435 ddp_funds_util_flt.relationship_type := p8_a22;
1436 ddp_funds_util_flt.related_cust_account_id := p8_a23;
1437 ddp_funds_util_flt.buy_group_cust_account_id := p8_a24;
1438 ddp_funds_util_flt.buy_group_party_id := p8_a25;
1439 ddp_funds_util_flt.select_cust_children_flag := p8_a26;
1440 ddp_funds_util_flt.pay_to_customer := p8_a27;
1441 ddp_funds_util_flt.prorate_earnings_flag := p8_a28;
1442 ddp_funds_util_flt.adjustment_type_id := p8_a29;
1443 ddp_funds_util_flt.end_date := rosetta_g_miss_date_in_map(p8_a30);
1444 ddp_funds_util_flt.run_mode := p8_a31;
1445 ddp_funds_util_flt.check_sales_rep_flag := p8_a32;
1446 ddp_funds_util_flt.group_by_offer := p8_a33;
1447 ddp_funds_util_flt.offer_payment_method := p8_a34;
1448 ddp_funds_util_flt.utiz_currency_code := p8_a35;
1449
1450
1451 -- here's the delegated call to the old PL/SQL routine
1452 ozf_claim_accrual_pvt.update_group_line_util(p_api_version,
1453 p_init_msg_list,
1454 p_commit,
1455 p_validation_level,
1456 x_return_status,
1457 x_msg_count,
1458 x_msg_data,
1459 p_summary_view,
1460 ddp_funds_util_flt,
1461 p_mode);
1462
1463 -- copy data back from the local variables to OUT or IN-OUT args, if any
1464
1465
1466
1467
1468
1469
1470
1471
1472
1473 end;
1474
1475 procedure delete_group_line_util(p_api_version NUMBER
1476 , p_init_msg_list VARCHAR2
1477 , p_commit VARCHAR2
1478 , p_validation_level NUMBER
1479 , x_return_status out nocopy VARCHAR2
1480 , x_msg_count out nocopy NUMBER
1481 , x_msg_data out nocopy VARCHAR2
1482 , p7_a0 NUMBER
1483 , p7_a1 NUMBER
1484 , p7_a2 VARCHAR2
1485 , p7_a3 NUMBER
1486 , p7_a4 NUMBER
1487 , p7_a5 NUMBER
1488 , p7_a6 VARCHAR2
1489 , p7_a7 VARCHAR2
1490 , p7_a8 NUMBER
1491 , p7_a9 VARCHAR2
1492 , p7_a10 NUMBER
1493 , p7_a11 VARCHAR2
1494 , p7_a12 NUMBER
1495 , p7_a13 VARCHAR2
1496 , p7_a14 NUMBER
1497 , p7_a15 NUMBER
1498 , p7_a16 NUMBER
1499 , p7_a17 NUMBER
1500 , p7_a18 NUMBER
1501 , p7_a19 NUMBER
1502 , p7_a20 VARCHAR2
1503 , p7_a21 NUMBER
1504 , p7_a22 VARCHAR2
1505 , p7_a23 NUMBER
1506 , p7_a24 NUMBER
1507 , p7_a25 NUMBER
1508 , p7_a26 VARCHAR2
1509 , p7_a27 VARCHAR2
1510 , p7_a28 VARCHAR2
1511 , p7_a29 NUMBER
1512 , p7_a30 DATE
1513 , p7_a31 VARCHAR2
1514 , p7_a32 VARCHAR2
1515 , p7_a33 VARCHAR2
1516 , p7_a34 VARCHAR2
1517 , p7_a35 VARCHAR2
1518 , p_mode VARCHAR2
1519 )
1520
1521 as
1522 ddp_funds_util_flt ozf_claim_accrual_pvt.funds_util_flt_type;
1523 ddindx binary_integer; indx binary_integer;
1524 begin
1525
1526 -- copy data to the local IN or IN-OUT args, if any
1527
1528
1529
1530
1531
1532
1533
1534 ddp_funds_util_flt.claim_line_id := p7_a0;
1535 ddp_funds_util_flt.fund_id := p7_a1;
1536 ddp_funds_util_flt.activity_type := p7_a2;
1537 ddp_funds_util_flt.activity_id := p7_a3;
1538 ddp_funds_util_flt.activity_product_id := p7_a4;
1539 ddp_funds_util_flt.schedule_id := p7_a5;
1540 ddp_funds_util_flt.offer_type := p7_a6;
1541 ddp_funds_util_flt.document_class := p7_a7;
1542 ddp_funds_util_flt.document_id := p7_a8;
1543 ddp_funds_util_flt.product_level_type := p7_a9;
1544 ddp_funds_util_flt.product_id := p7_a10;
1545 ddp_funds_util_flt.reference_type := p7_a11;
1546 ddp_funds_util_flt.reference_id := p7_a12;
1547 ddp_funds_util_flt.utilization_type := p7_a13;
1548 ddp_funds_util_flt.total_amount := p7_a14;
1549 ddp_funds_util_flt.old_total_amount := p7_a15;
1550 if p7_a16 is null
1551 then ddp_funds_util_flt.pay_over_all_flag := null;
1552 elsif p7_a16 = 0
1553 then ddp_funds_util_flt.pay_over_all_flag := false;
1554 else ddp_funds_util_flt.pay_over_all_flag := true;
1555 end if;
1556 ddp_funds_util_flt.total_units := p7_a17;
1557 ddp_funds_util_flt.old_total_units := p7_a18;
1558 ddp_funds_util_flt.quantity := p7_a19;
1559 ddp_funds_util_flt.uom_code := p7_a20;
1560 ddp_funds_util_flt.cust_account_id := p7_a21;
1561 ddp_funds_util_flt.relationship_type := p7_a22;
1562 ddp_funds_util_flt.related_cust_account_id := p7_a23;
1563 ddp_funds_util_flt.buy_group_cust_account_id := p7_a24;
1564 ddp_funds_util_flt.buy_group_party_id := p7_a25;
1565 ddp_funds_util_flt.select_cust_children_flag := p7_a26;
1566 ddp_funds_util_flt.pay_to_customer := p7_a27;
1567 ddp_funds_util_flt.prorate_earnings_flag := p7_a28;
1568 ddp_funds_util_flt.adjustment_type_id := p7_a29;
1569 ddp_funds_util_flt.end_date := rosetta_g_miss_date_in_map(p7_a30);
1570 ddp_funds_util_flt.run_mode := p7_a31;
1571 ddp_funds_util_flt.check_sales_rep_flag := p7_a32;
1572 ddp_funds_util_flt.group_by_offer := p7_a33;
1573 ddp_funds_util_flt.offer_payment_method := p7_a34;
1574 ddp_funds_util_flt.utiz_currency_code := p7_a35;
1575
1576
1577 -- here's the delegated call to the old PL/SQL routine
1578 ozf_claim_accrual_pvt.delete_group_line_util(p_api_version,
1579 p_init_msg_list,
1580 p_commit,
1581 p_validation_level,
1582 x_return_status,
1583 x_msg_count,
1584 x_msg_data,
1585 ddp_funds_util_flt,
1586 p_mode);
1587
1588 -- copy data back from the local variables to OUT or IN-OUT args, if any
1589
1590
1591
1592
1593
1594
1595
1596
1597 end;
1598
1599 procedure asso_accruals_to_claim(p_api_version NUMBER
1600 , p_init_msg_list VARCHAR2
1601 , p_commit VARCHAR2
1602 , p_validation_level NUMBER
1603 , x_return_status out nocopy VARCHAR2
1604 , x_msg_count out nocopy NUMBER
1605 , x_msg_data out nocopy VARCHAR2
1606 , p_claim_id NUMBER
1607 , p8_a0 NUMBER
1608 , p8_a1 NUMBER
1609 , p8_a2 VARCHAR2
1610 , p8_a3 NUMBER
1611 , p8_a4 NUMBER
1612 , p8_a5 NUMBER
1613 , p8_a6 VARCHAR2
1614 , p8_a7 VARCHAR2
1615 , p8_a8 NUMBER
1616 , p8_a9 VARCHAR2
1617 , p8_a10 NUMBER
1618 , p8_a11 VARCHAR2
1619 , p8_a12 NUMBER
1620 , p8_a13 VARCHAR2
1621 , p8_a14 NUMBER
1622 , p8_a15 NUMBER
1623 , p8_a16 NUMBER
1624 , p8_a17 NUMBER
1625 , p8_a18 NUMBER
1626 , p8_a19 NUMBER
1627 , p8_a20 VARCHAR2
1628 , p8_a21 NUMBER
1629 , p8_a22 VARCHAR2
1630 , p8_a23 NUMBER
1631 , p8_a24 NUMBER
1632 , p8_a25 NUMBER
1633 , p8_a26 VARCHAR2
1634 , p8_a27 VARCHAR2
1635 , p8_a28 VARCHAR2
1636 , p8_a29 NUMBER
1637 , p8_a30 DATE
1638 , p8_a31 VARCHAR2
1639 , p8_a32 VARCHAR2
1640 , p8_a33 VARCHAR2
1641 , p8_a34 VARCHAR2
1642 , p8_a35 VARCHAR2
1643 )
1644
1645 as
1646 ddp_funds_util_flt ozf_claim_accrual_pvt.funds_util_flt_type;
1647 ddindx binary_integer; indx binary_integer;
1648 begin
1649
1650 -- copy data to the local IN or IN-OUT args, if any
1651
1652
1653
1654
1655
1656
1657
1658
1659 ddp_funds_util_flt.claim_line_id := p8_a0;
1660 ddp_funds_util_flt.fund_id := p8_a1;
1661 ddp_funds_util_flt.activity_type := p8_a2;
1662 ddp_funds_util_flt.activity_id := p8_a3;
1663 ddp_funds_util_flt.activity_product_id := p8_a4;
1664 ddp_funds_util_flt.schedule_id := p8_a5;
1665 ddp_funds_util_flt.offer_type := p8_a6;
1666 ddp_funds_util_flt.document_class := p8_a7;
1667 ddp_funds_util_flt.document_id := p8_a8;
1668 ddp_funds_util_flt.product_level_type := p8_a9;
1669 ddp_funds_util_flt.product_id := p8_a10;
1670 ddp_funds_util_flt.reference_type := p8_a11;
1671 ddp_funds_util_flt.reference_id := p8_a12;
1672 ddp_funds_util_flt.utilization_type := p8_a13;
1673 ddp_funds_util_flt.total_amount := p8_a14;
1674 ddp_funds_util_flt.old_total_amount := p8_a15;
1675 if p8_a16 is null
1676 then ddp_funds_util_flt.pay_over_all_flag := null;
1677 elsif p8_a16 = 0
1678 then ddp_funds_util_flt.pay_over_all_flag := false;
1679 else ddp_funds_util_flt.pay_over_all_flag := true;
1680 end if;
1681 ddp_funds_util_flt.total_units := p8_a17;
1682 ddp_funds_util_flt.old_total_units := p8_a18;
1683 ddp_funds_util_flt.quantity := p8_a19;
1684 ddp_funds_util_flt.uom_code := p8_a20;
1685 ddp_funds_util_flt.cust_account_id := p8_a21;
1686 ddp_funds_util_flt.relationship_type := p8_a22;
1687 ddp_funds_util_flt.related_cust_account_id := p8_a23;
1688 ddp_funds_util_flt.buy_group_cust_account_id := p8_a24;
1689 ddp_funds_util_flt.buy_group_party_id := p8_a25;
1690 ddp_funds_util_flt.select_cust_children_flag := p8_a26;
1691 ddp_funds_util_flt.pay_to_customer := p8_a27;
1692 ddp_funds_util_flt.prorate_earnings_flag := p8_a28;
1693 ddp_funds_util_flt.adjustment_type_id := p8_a29;
1694 ddp_funds_util_flt.end_date := rosetta_g_miss_date_in_map(p8_a30);
1695 ddp_funds_util_flt.run_mode := p8_a31;
1696 ddp_funds_util_flt.check_sales_rep_flag := p8_a32;
1697 ddp_funds_util_flt.group_by_offer := p8_a33;
1698 ddp_funds_util_flt.offer_payment_method := p8_a34;
1699 ddp_funds_util_flt.utiz_currency_code := p8_a35;
1700
1701 -- here's the delegated call to the old PL/SQL routine
1702 ozf_claim_accrual_pvt.asso_accruals_to_claim(p_api_version,
1703 p_init_msg_list,
1704 p_commit,
1705 p_validation_level,
1706 x_return_status,
1707 x_msg_count,
1708 x_msg_data,
1709 p_claim_id,
1710 ddp_funds_util_flt);
1711
1712 -- copy data back from the local variables to OUT or IN-OUT args, if any
1713
1714
1715
1716
1717
1718
1719
1720
1721 end;
1722
1723 procedure create_claim_for_accruals(p_api_version NUMBER
1724 , p_init_msg_list VARCHAR2
1725 , p_commit VARCHAR2
1726 , p_validation_level NUMBER
1727 , x_return_status out nocopy VARCHAR2
1728 , x_msg_count out nocopy NUMBER
1729 , x_msg_data out nocopy VARCHAR2
1730 , p7_a0 NUMBER
1731 , p7_a1 NUMBER
1732 , p7_a2 DATE
1733 , p7_a3 NUMBER
1734 , p7_a4 DATE
1735 , p7_a5 NUMBER
1736 , p7_a6 NUMBER
1737 , p7_a7 NUMBER
1738 , p7_a8 NUMBER
1739 , p7_a9 DATE
1740 , p7_a10 NUMBER
1741 , p7_a11 VARCHAR2
1742 , p7_a12 NUMBER
1743 , p7_a13 VARCHAR2
1744 , p7_a14 NUMBER
1745 , p7_a15 VARCHAR2
1746 , p7_a16 DATE
1747 , p7_a17 DATE
1748 , p7_a18 NUMBER
1749 , p7_a19 VARCHAR2
1750 , p7_a20 DATE
1751 , p7_a21 VARCHAR2
1752 , p7_a22 NUMBER
1753 , p7_a23 NUMBER
1754 , p7_a24 DATE
1755 , p7_a25 NUMBER
1756 , p7_a26 NUMBER
1757 , p7_a27 NUMBER
1758 , p7_a28 NUMBER
1759 , p7_a29 NUMBER
1760 , p7_a30 NUMBER
1761 , p7_a31 NUMBER
1762 , p7_a32 NUMBER
1763 , p7_a33 NUMBER
1764 , p7_a34 NUMBER
1765 , p7_a35 VARCHAR2
1766 , p7_a36 VARCHAR2
1767 , p7_a37 VARCHAR2
1768 , p7_a38 VARCHAR2
1769 , p7_a39 DATE
1770 , p7_a40 NUMBER
1771 , p7_a41 NUMBER
1772 , p7_a42 DATE
1773 , p7_a43 NUMBER
1774 , p7_a44 VARCHAR2
1775 , p7_a45 NUMBER
1776 , p7_a46 VARCHAR2
1777 , p7_a47 NUMBER
1778 , p7_a48 NUMBER
1779 , p7_a49 NUMBER
1780 , p7_a50 NUMBER
1781 , p7_a51 VARCHAR2
1782 , p7_a52 NUMBER
1783 , p7_a53 NUMBER
1784 , p7_a54 VARCHAR2
1785 , p7_a55 NUMBER
1786 , p7_a56 NUMBER
1787 , p7_a57 VARCHAR2
1788 , p7_a58 NUMBER
1789 , p7_a59 NUMBER
1790 , p7_a60 VARCHAR2
1791 , p7_a61 NUMBER
1792 , p7_a62 NUMBER
1793 , p7_a63 NUMBER
1794 , p7_a64 NUMBER
1795 , p7_a65 NUMBER
1796 , p7_a66 NUMBER
1797 , p7_a67 DATE
1798 , p7_a68 VARCHAR2
1799 , p7_a69 NUMBER
1800 , p7_a70 NUMBER
1801 , p7_a71 VARCHAR2
1802 , p7_a72 NUMBER
1803 , p7_a73 NUMBER
1804 , p7_a74 DATE
1805 , p7_a75 VARCHAR2
1806 , p7_a76 NUMBER
1807 , p7_a77 VARCHAR2
1808 , p7_a78 NUMBER
1809 , p7_a79 VARCHAR2
1810 , p7_a80 DATE
1811 , p7_a81 VARCHAR2
1812 , p7_a82 VARCHAR2
1813 , p7_a83 DATE
1814 , p7_a84 NUMBER
1815 , p7_a85 DATE
1816 , p7_a86 NUMBER
1817 , p7_a87 DATE
1818 , p7_a88 NUMBER
1819 , p7_a89 NUMBER
1820 , p7_a90 NUMBER
1821 , p7_a91 NUMBER
1822 , p7_a92 VARCHAR2
1823 , p7_a93 VARCHAR2
1824 , p7_a94 VARCHAR2
1825 , p7_a95 VARCHAR2
1826 , p7_a96 VARCHAR2
1827 , p7_a97 VARCHAR2
1828 , p7_a98 VARCHAR2
1829 , p7_a99 VARCHAR2
1830 , p7_a100 VARCHAR2
1831 , p7_a101 VARCHAR2
1832 , p7_a102 VARCHAR2
1833 , p7_a103 VARCHAR2
1834 , p7_a104 VARCHAR2
1835 , p7_a105 VARCHAR2
1836 , p7_a106 VARCHAR2
1837 , p7_a107 VARCHAR2
1838 , p7_a108 VARCHAR2
1839 , p7_a109 VARCHAR2
1840 , p7_a110 VARCHAR2
1841 , p7_a111 VARCHAR2
1842 , p7_a112 VARCHAR2
1843 , p7_a113 VARCHAR2
1844 , p7_a114 VARCHAR2
1845 , p7_a115 VARCHAR2
1846 , p7_a116 VARCHAR2
1847 , p7_a117 VARCHAR2
1848 , p7_a118 VARCHAR2
1849 , p7_a119 VARCHAR2
1850 , p7_a120 VARCHAR2
1851 , p7_a121 VARCHAR2
1852 , p7_a122 VARCHAR2
1853 , p7_a123 VARCHAR2
1854 , p7_a124 VARCHAR2
1855 , p7_a125 NUMBER
1856 , p7_a126 NUMBER
1857 , p7_a127 VARCHAR2
1858 , p7_a128 NUMBER
1859 , p7_a129 VARCHAR2
1860 , p7_a130 VARCHAR2
1861 , p7_a131 NUMBER
1862 , p7_a132 NUMBER
1863 , p7_a133 NUMBER
1864 , p7_a134 VARCHAR2
1865 , p7_a135 NUMBER
1866 , p7_a136 NUMBER
1867 , p7_a137 VARCHAR2
1868 , p7_a138 VARCHAR2
1869 , p7_a139 VARCHAR2
1870 , p7_a140 VARCHAR2
1871 , p8_a0 NUMBER
1872 , p8_a1 NUMBER
1873 , p8_a2 VARCHAR2
1874 , p8_a3 NUMBER
1875 , p8_a4 NUMBER
1876 , p8_a5 NUMBER
1877 , p8_a6 VARCHAR2
1878 , p8_a7 VARCHAR2
1879 , p8_a8 NUMBER
1880 , p8_a9 VARCHAR2
1881 , p8_a10 NUMBER
1882 , p8_a11 VARCHAR2
1883 , p8_a12 NUMBER
1884 , p8_a13 VARCHAR2
1885 , p8_a14 NUMBER
1886 , p8_a15 NUMBER
1887 , p8_a16 NUMBER
1888 , p8_a17 NUMBER
1889 , p8_a18 NUMBER
1890 , p8_a19 NUMBER
1891 , p8_a20 VARCHAR2
1892 , p8_a21 NUMBER
1893 , p8_a22 VARCHAR2
1894 , p8_a23 NUMBER
1895 , p8_a24 NUMBER
1896 , p8_a25 NUMBER
1897 , p8_a26 VARCHAR2
1898 , p8_a27 VARCHAR2
1899 , p8_a28 VARCHAR2
1900 , p8_a29 NUMBER
1901 , p8_a30 DATE
1902 , p8_a31 VARCHAR2
1903 , p8_a32 VARCHAR2
1904 , p8_a33 VARCHAR2
1905 , p8_a34 VARCHAR2
1906 , p8_a35 VARCHAR2
1907 , x_claim_id out nocopy NUMBER
1908 )
1909
1910 as
1911 ddp_claim_rec ozf_claim_pvt.claim_rec_type;
1912 ddp_funds_util_flt ozf_claim_accrual_pvt.funds_util_flt_type;
1913 ddindx binary_integer; indx binary_integer;
1914 begin
1915
1916 -- copy data to the local IN or IN-OUT args, if any
1917
1918
1919
1920
1921
1922
1923
1924 ddp_claim_rec.claim_id := p7_a0;
1925 ddp_claim_rec.object_version_number := p7_a1;
1926 ddp_claim_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a2);
1927 ddp_claim_rec.last_updated_by := p7_a3;
1928 ddp_claim_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
1929 ddp_claim_rec.created_by := p7_a5;
1930 ddp_claim_rec.last_update_login := p7_a6;
1931 ddp_claim_rec.request_id := p7_a7;
1932 ddp_claim_rec.program_application_id := p7_a8;
1933 ddp_claim_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a9);
1934 ddp_claim_rec.program_id := p7_a10;
1935 ddp_claim_rec.created_from := p7_a11;
1936 ddp_claim_rec.batch_id := p7_a12;
1937 ddp_claim_rec.claim_number := p7_a13;
1938 ddp_claim_rec.claim_type_id := p7_a14;
1939 ddp_claim_rec.claim_class := p7_a15;
1940 ddp_claim_rec.claim_date := rosetta_g_miss_date_in_map(p7_a16);
1941 ddp_claim_rec.due_date := rosetta_g_miss_date_in_map(p7_a17);
1942 ddp_claim_rec.owner_id := p7_a18;
1943 ddp_claim_rec.history_event := p7_a19;
1944 ddp_claim_rec.history_event_date := rosetta_g_miss_date_in_map(p7_a20);
1945 ddp_claim_rec.history_event_description := p7_a21;
1946 ddp_claim_rec.split_from_claim_id := p7_a22;
1947 ddp_claim_rec.duplicate_claim_id := p7_a23;
1948 ddp_claim_rec.split_date := rosetta_g_miss_date_in_map(p7_a24);
1949 ddp_claim_rec.root_claim_id := p7_a25;
1950 ddp_claim_rec.amount := p7_a26;
1951 ddp_claim_rec.amount_adjusted := p7_a27;
1952 ddp_claim_rec.amount_remaining := p7_a28;
1953 ddp_claim_rec.amount_settled := p7_a29;
1954 ddp_claim_rec.acctd_amount := p7_a30;
1955 ddp_claim_rec.acctd_amount_remaining := p7_a31;
1956 ddp_claim_rec.acctd_amount_adjusted := p7_a32;
1957 ddp_claim_rec.acctd_amount_settled := p7_a33;
1958 ddp_claim_rec.tax_amount := p7_a34;
1959 ddp_claim_rec.tax_code := p7_a35;
1960 ddp_claim_rec.tax_calculation_flag := p7_a36;
1961 ddp_claim_rec.currency_code := p7_a37;
1962 ddp_claim_rec.exchange_rate_type := p7_a38;
1963 ddp_claim_rec.exchange_rate_date := rosetta_g_miss_date_in_map(p7_a39);
1964 ddp_claim_rec.exchange_rate := p7_a40;
1965 ddp_claim_rec.set_of_books_id := p7_a41;
1966 ddp_claim_rec.original_claim_date := rosetta_g_miss_date_in_map(p7_a42);
1967 ddp_claim_rec.source_object_id := p7_a43;
1968 ddp_claim_rec.source_object_class := p7_a44;
1969 ddp_claim_rec.source_object_type_id := p7_a45;
1970 ddp_claim_rec.source_object_number := p7_a46;
1971 ddp_claim_rec.cust_account_id := p7_a47;
1972 ddp_claim_rec.cust_billto_acct_site_id := p7_a48;
1973 ddp_claim_rec.cust_shipto_acct_site_id := p7_a49;
1974 ddp_claim_rec.location_id := p7_a50;
1975 ddp_claim_rec.pay_related_account_flag := p7_a51;
1976 ddp_claim_rec.related_cust_account_id := p7_a52;
1977 ddp_claim_rec.related_site_use_id := p7_a53;
1978 ddp_claim_rec.relationship_type := p7_a54;
1979 ddp_claim_rec.vendor_id := p7_a55;
1980 ddp_claim_rec.vendor_site_id := p7_a56;
1981 ddp_claim_rec.reason_type := p7_a57;
1982 ddp_claim_rec.reason_code_id := p7_a58;
1983 ddp_claim_rec.task_template_group_id := p7_a59;
1984 ddp_claim_rec.status_code := p7_a60;
1985 ddp_claim_rec.user_status_id := p7_a61;
1986 ddp_claim_rec.sales_rep_id := p7_a62;
1987 ddp_claim_rec.collector_id := p7_a63;
1988 ddp_claim_rec.contact_id := p7_a64;
1989 ddp_claim_rec.broker_id := p7_a65;
1990 ddp_claim_rec.territory_id := p7_a66;
1991 ddp_claim_rec.customer_ref_date := rosetta_g_miss_date_in_map(p7_a67);
1992 ddp_claim_rec.customer_ref_number := p7_a68;
1993 ddp_claim_rec.assigned_to := p7_a69;
1994 ddp_claim_rec.receipt_id := p7_a70;
1995 ddp_claim_rec.receipt_number := p7_a71;
1996 ddp_claim_rec.doc_sequence_id := p7_a72;
1997 ddp_claim_rec.doc_sequence_value := p7_a73;
1998 ddp_claim_rec.gl_date := rosetta_g_miss_date_in_map(p7_a74);
1999 ddp_claim_rec.payment_method := p7_a75;
2000 ddp_claim_rec.voucher_id := p7_a76;
2001 ddp_claim_rec.voucher_number := p7_a77;
2002 ddp_claim_rec.payment_reference_id := p7_a78;
2003 ddp_claim_rec.payment_reference_number := p7_a79;
2004 ddp_claim_rec.payment_reference_date := rosetta_g_miss_date_in_map(p7_a80);
2005 ddp_claim_rec.payment_status := p7_a81;
2006 ddp_claim_rec.approved_flag := p7_a82;
2007 ddp_claim_rec.approved_date := rosetta_g_miss_date_in_map(p7_a83);
2008 ddp_claim_rec.approved_by := p7_a84;
2009 ddp_claim_rec.settled_date := rosetta_g_miss_date_in_map(p7_a85);
2010 ddp_claim_rec.settled_by := p7_a86;
2011 ddp_claim_rec.effective_date := rosetta_g_miss_date_in_map(p7_a87);
2012 ddp_claim_rec.custom_setup_id := p7_a88;
2013 ddp_claim_rec.task_id := p7_a89;
2014 ddp_claim_rec.country_id := p7_a90;
2015 ddp_claim_rec.order_type_id := p7_a91;
2016 ddp_claim_rec.comments := p7_a92;
2017 ddp_claim_rec.attribute_category := p7_a93;
2018 ddp_claim_rec.attribute1 := p7_a94;
2019 ddp_claim_rec.attribute2 := p7_a95;
2020 ddp_claim_rec.attribute3 := p7_a96;
2021 ddp_claim_rec.attribute4 := p7_a97;
2022 ddp_claim_rec.attribute5 := p7_a98;
2023 ddp_claim_rec.attribute6 := p7_a99;
2024 ddp_claim_rec.attribute7 := p7_a100;
2025 ddp_claim_rec.attribute8 := p7_a101;
2026 ddp_claim_rec.attribute9 := p7_a102;
2027 ddp_claim_rec.attribute10 := p7_a103;
2028 ddp_claim_rec.attribute11 := p7_a104;
2029 ddp_claim_rec.attribute12 := p7_a105;
2030 ddp_claim_rec.attribute13 := p7_a106;
2031 ddp_claim_rec.attribute14 := p7_a107;
2032 ddp_claim_rec.attribute15 := p7_a108;
2033 ddp_claim_rec.deduction_attribute_category := p7_a109;
2034 ddp_claim_rec.deduction_attribute1 := p7_a110;
2035 ddp_claim_rec.deduction_attribute2 := p7_a111;
2036 ddp_claim_rec.deduction_attribute3 := p7_a112;
2037 ddp_claim_rec.deduction_attribute4 := p7_a113;
2038 ddp_claim_rec.deduction_attribute5 := p7_a114;
2039 ddp_claim_rec.deduction_attribute6 := p7_a115;
2040 ddp_claim_rec.deduction_attribute7 := p7_a116;
2041 ddp_claim_rec.deduction_attribute8 := p7_a117;
2042 ddp_claim_rec.deduction_attribute9 := p7_a118;
2043 ddp_claim_rec.deduction_attribute10 := p7_a119;
2044 ddp_claim_rec.deduction_attribute11 := p7_a120;
2045 ddp_claim_rec.deduction_attribute12 := p7_a121;
2046 ddp_claim_rec.deduction_attribute13 := p7_a122;
2047 ddp_claim_rec.deduction_attribute14 := p7_a123;
2048 ddp_claim_rec.deduction_attribute15 := p7_a124;
2049 ddp_claim_rec.org_id := p7_a125;
2050 ddp_claim_rec.legal_entity_id := p7_a126;
2051 ddp_claim_rec.write_off_flag := p7_a127;
2052 ddp_claim_rec.write_off_threshold_amount := p7_a128;
2053 ddp_claim_rec.under_write_off_threshold := p7_a129;
2054 ddp_claim_rec.customer_reason := p7_a130;
2055 ddp_claim_rec.ship_to_cust_account_id := p7_a131;
2056 ddp_claim_rec.amount_applied := p7_a132;
2057 ddp_claim_rec.applied_receipt_id := p7_a133;
2058 ddp_claim_rec.applied_receipt_number := p7_a134;
2059 ddp_claim_rec.wo_rec_trx_id := p7_a135;
2060 ddp_claim_rec.group_claim_id := p7_a136;
2061 ddp_claim_rec.appr_wf_item_key := p7_a137;
2062 ddp_claim_rec.cstl_wf_item_key := p7_a138;
2063 ddp_claim_rec.batch_type := p7_a139;
2064 ddp_claim_rec.tax_action := p7_a140;
2065
2066 ddp_funds_util_flt.claim_line_id := p8_a0;
2067 ddp_funds_util_flt.fund_id := p8_a1;
2068 ddp_funds_util_flt.activity_type := p8_a2;
2069 ddp_funds_util_flt.activity_id := p8_a3;
2070 ddp_funds_util_flt.activity_product_id := p8_a4;
2071 ddp_funds_util_flt.schedule_id := p8_a5;
2072 ddp_funds_util_flt.offer_type := p8_a6;
2073 ddp_funds_util_flt.document_class := p8_a7;
2074 ddp_funds_util_flt.document_id := p8_a8;
2075 ddp_funds_util_flt.product_level_type := p8_a9;
2076 ddp_funds_util_flt.product_id := p8_a10;
2077 ddp_funds_util_flt.reference_type := p8_a11;
2078 ddp_funds_util_flt.reference_id := p8_a12;
2079 ddp_funds_util_flt.utilization_type := p8_a13;
2080 ddp_funds_util_flt.total_amount := p8_a14;
2081 ddp_funds_util_flt.old_total_amount := p8_a15;
2082 if p8_a16 is null
2083 then ddp_funds_util_flt.pay_over_all_flag := null;
2084 elsif p8_a16 = 0
2085 then ddp_funds_util_flt.pay_over_all_flag := false;
2086 else ddp_funds_util_flt.pay_over_all_flag := true;
2087 end if;
2088 ddp_funds_util_flt.total_units := p8_a17;
2089 ddp_funds_util_flt.old_total_units := p8_a18;
2090 ddp_funds_util_flt.quantity := p8_a19;
2091 ddp_funds_util_flt.uom_code := p8_a20;
2092 ddp_funds_util_flt.cust_account_id := p8_a21;
2093 ddp_funds_util_flt.relationship_type := p8_a22;
2094 ddp_funds_util_flt.related_cust_account_id := p8_a23;
2095 ddp_funds_util_flt.buy_group_cust_account_id := p8_a24;
2096 ddp_funds_util_flt.buy_group_party_id := p8_a25;
2097 ddp_funds_util_flt.select_cust_children_flag := p8_a26;
2098 ddp_funds_util_flt.pay_to_customer := p8_a27;
2099 ddp_funds_util_flt.prorate_earnings_flag := p8_a28;
2100 ddp_funds_util_flt.adjustment_type_id := p8_a29;
2101 ddp_funds_util_flt.end_date := rosetta_g_miss_date_in_map(p8_a30);
2102 ddp_funds_util_flt.run_mode := p8_a31;
2103 ddp_funds_util_flt.check_sales_rep_flag := p8_a32;
2104 ddp_funds_util_flt.group_by_offer := p8_a33;
2105 ddp_funds_util_flt.offer_payment_method := p8_a34;
2106 ddp_funds_util_flt.utiz_currency_code := p8_a35;
2107
2108
2109 -- here's the delegated call to the old PL/SQL routine
2110 ozf_claim_accrual_pvt.create_claim_for_accruals(p_api_version,
2111 p_init_msg_list,
2112 p_commit,
2113 p_validation_level,
2114 x_return_status,
2115 x_msg_count,
2116 x_msg_data,
2117 ddp_claim_rec,
2118 ddp_funds_util_flt,
2119 x_claim_id);
2120
2121 -- copy data back from the local variables to OUT or IN-OUT args, if any
2122
2123
2124
2125
2126
2127
2128
2129
2130
2131 end;
2132
2133 procedure pay_claim_for_accruals(p_api_version NUMBER
2134 , p_init_msg_list VARCHAR2
2135 , p_commit VARCHAR2
2136 , p_validation_level NUMBER
2137 , x_return_status out nocopy VARCHAR2
2138 , x_msg_count out nocopy NUMBER
2139 , x_msg_data out nocopy VARCHAR2
2140 , p7_a0 NUMBER
2141 , p7_a1 NUMBER
2142 , p7_a2 DATE
2143 , p7_a3 NUMBER
2144 , p7_a4 DATE
2145 , p7_a5 NUMBER
2146 , p7_a6 NUMBER
2147 , p7_a7 NUMBER
2148 , p7_a8 NUMBER
2149 , p7_a9 DATE
2150 , p7_a10 NUMBER
2151 , p7_a11 VARCHAR2
2152 , p7_a12 NUMBER
2153 , p7_a13 VARCHAR2
2154 , p7_a14 NUMBER
2155 , p7_a15 VARCHAR2
2156 , p7_a16 DATE
2157 , p7_a17 DATE
2158 , p7_a18 NUMBER
2159 , p7_a19 VARCHAR2
2160 , p7_a20 DATE
2161 , p7_a21 VARCHAR2
2162 , p7_a22 NUMBER
2163 , p7_a23 NUMBER
2164 , p7_a24 DATE
2165 , p7_a25 NUMBER
2166 , p7_a26 NUMBER
2167 , p7_a27 NUMBER
2168 , p7_a28 NUMBER
2169 , p7_a29 NUMBER
2170 , p7_a30 NUMBER
2171 , p7_a31 NUMBER
2172 , p7_a32 NUMBER
2173 , p7_a33 NUMBER
2174 , p7_a34 NUMBER
2175 , p7_a35 VARCHAR2
2176 , p7_a36 VARCHAR2
2177 , p7_a37 VARCHAR2
2178 , p7_a38 VARCHAR2
2179 , p7_a39 DATE
2180 , p7_a40 NUMBER
2181 , p7_a41 NUMBER
2182 , p7_a42 DATE
2183 , p7_a43 NUMBER
2184 , p7_a44 VARCHAR2
2185 , p7_a45 NUMBER
2186 , p7_a46 VARCHAR2
2187 , p7_a47 NUMBER
2188 , p7_a48 NUMBER
2189 , p7_a49 NUMBER
2190 , p7_a50 NUMBER
2191 , p7_a51 VARCHAR2
2192 , p7_a52 NUMBER
2193 , p7_a53 NUMBER
2194 , p7_a54 VARCHAR2
2195 , p7_a55 NUMBER
2196 , p7_a56 NUMBER
2197 , p7_a57 VARCHAR2
2198 , p7_a58 NUMBER
2199 , p7_a59 NUMBER
2200 , p7_a60 VARCHAR2
2201 , p7_a61 NUMBER
2202 , p7_a62 NUMBER
2203 , p7_a63 NUMBER
2204 , p7_a64 NUMBER
2205 , p7_a65 NUMBER
2206 , p7_a66 NUMBER
2207 , p7_a67 DATE
2208 , p7_a68 VARCHAR2
2209 , p7_a69 NUMBER
2210 , p7_a70 NUMBER
2211 , p7_a71 VARCHAR2
2212 , p7_a72 NUMBER
2213 , p7_a73 NUMBER
2214 , p7_a74 DATE
2215 , p7_a75 VARCHAR2
2216 , p7_a76 NUMBER
2217 , p7_a77 VARCHAR2
2218 , p7_a78 NUMBER
2219 , p7_a79 VARCHAR2
2220 , p7_a80 DATE
2221 , p7_a81 VARCHAR2
2222 , p7_a82 VARCHAR2
2223 , p7_a83 DATE
2224 , p7_a84 NUMBER
2225 , p7_a85 DATE
2226 , p7_a86 NUMBER
2227 , p7_a87 DATE
2228 , p7_a88 NUMBER
2229 , p7_a89 NUMBER
2230 , p7_a90 NUMBER
2231 , p7_a91 NUMBER
2232 , p7_a92 VARCHAR2
2233 , p7_a93 VARCHAR2
2234 , p7_a94 VARCHAR2
2235 , p7_a95 VARCHAR2
2236 , p7_a96 VARCHAR2
2237 , p7_a97 VARCHAR2
2238 , p7_a98 VARCHAR2
2239 , p7_a99 VARCHAR2
2240 , p7_a100 VARCHAR2
2241 , p7_a101 VARCHAR2
2242 , p7_a102 VARCHAR2
2243 , p7_a103 VARCHAR2
2244 , p7_a104 VARCHAR2
2245 , p7_a105 VARCHAR2
2246 , p7_a106 VARCHAR2
2247 , p7_a107 VARCHAR2
2248 , p7_a108 VARCHAR2
2249 , p7_a109 VARCHAR2
2250 , p7_a110 VARCHAR2
2251 , p7_a111 VARCHAR2
2252 , p7_a112 VARCHAR2
2253 , p7_a113 VARCHAR2
2254 , p7_a114 VARCHAR2
2255 , p7_a115 VARCHAR2
2256 , p7_a116 VARCHAR2
2257 , p7_a117 VARCHAR2
2258 , p7_a118 VARCHAR2
2259 , p7_a119 VARCHAR2
2260 , p7_a120 VARCHAR2
2261 , p7_a121 VARCHAR2
2262 , p7_a122 VARCHAR2
2263 , p7_a123 VARCHAR2
2264 , p7_a124 VARCHAR2
2265 , p7_a125 NUMBER
2266 , p7_a126 NUMBER
2267 , p7_a127 VARCHAR2
2268 , p7_a128 NUMBER
2269 , p7_a129 VARCHAR2
2270 , p7_a130 VARCHAR2
2271 , p7_a131 NUMBER
2272 , p7_a132 NUMBER
2273 , p7_a133 NUMBER
2274 , p7_a134 VARCHAR2
2275 , p7_a135 NUMBER
2276 , p7_a136 NUMBER
2277 , p7_a137 VARCHAR2
2278 , p7_a138 VARCHAR2
2279 , p7_a139 VARCHAR2
2280 , p7_a140 VARCHAR2
2281 , p8_a0 NUMBER
2282 , p8_a1 NUMBER
2283 , p8_a2 VARCHAR2
2284 , p8_a3 NUMBER
2285 , p8_a4 NUMBER
2286 , p8_a5 NUMBER
2287 , p8_a6 VARCHAR2
2288 , p8_a7 VARCHAR2
2289 , p8_a8 NUMBER
2290 , p8_a9 VARCHAR2
2291 , p8_a10 NUMBER
2292 , p8_a11 VARCHAR2
2293 , p8_a12 NUMBER
2294 , p8_a13 VARCHAR2
2295 , p8_a14 NUMBER
2296 , p8_a15 NUMBER
2297 , p8_a16 NUMBER
2298 , p8_a17 NUMBER
2299 , p8_a18 NUMBER
2300 , p8_a19 NUMBER
2301 , p8_a20 VARCHAR2
2302 , p8_a21 NUMBER
2303 , p8_a22 VARCHAR2
2304 , p8_a23 NUMBER
2305 , p8_a24 NUMBER
2306 , p8_a25 NUMBER
2307 , p8_a26 VARCHAR2
2308 , p8_a27 VARCHAR2
2309 , p8_a28 VARCHAR2
2310 , p8_a29 NUMBER
2311 , p8_a30 DATE
2312 , p8_a31 VARCHAR2
2313 , p8_a32 VARCHAR2
2314 , p8_a33 VARCHAR2
2315 , p8_a34 VARCHAR2
2316 , p8_a35 VARCHAR2
2317 , x_claim_id out nocopy NUMBER
2318 )
2319
2320 as
2321 ddp_claim_rec ozf_claim_pvt.claim_rec_type;
2322 ddp_funds_util_flt ozf_claim_accrual_pvt.funds_util_flt_type;
2323 ddindx binary_integer; indx binary_integer;
2324 begin
2325
2326 -- copy data to the local IN or IN-OUT args, if any
2327
2328
2329
2330
2331
2332
2333
2334 ddp_claim_rec.claim_id := p7_a0;
2335 ddp_claim_rec.object_version_number := p7_a1;
2336 ddp_claim_rec.last_update_date := rosetta_g_miss_date_in_map(p7_a2);
2337 ddp_claim_rec.last_updated_by := p7_a3;
2338 ddp_claim_rec.creation_date := rosetta_g_miss_date_in_map(p7_a4);
2339 ddp_claim_rec.created_by := p7_a5;
2340 ddp_claim_rec.last_update_login := p7_a6;
2341 ddp_claim_rec.request_id := p7_a7;
2342 ddp_claim_rec.program_application_id := p7_a8;
2343 ddp_claim_rec.program_update_date := rosetta_g_miss_date_in_map(p7_a9);
2344 ddp_claim_rec.program_id := p7_a10;
2345 ddp_claim_rec.created_from := p7_a11;
2346 ddp_claim_rec.batch_id := p7_a12;
2347 ddp_claim_rec.claim_number := p7_a13;
2348 ddp_claim_rec.claim_type_id := p7_a14;
2349 ddp_claim_rec.claim_class := p7_a15;
2350 ddp_claim_rec.claim_date := rosetta_g_miss_date_in_map(p7_a16);
2351 ddp_claim_rec.due_date := rosetta_g_miss_date_in_map(p7_a17);
2352 ddp_claim_rec.owner_id := p7_a18;
2353 ddp_claim_rec.history_event := p7_a19;
2354 ddp_claim_rec.history_event_date := rosetta_g_miss_date_in_map(p7_a20);
2355 ddp_claim_rec.history_event_description := p7_a21;
2356 ddp_claim_rec.split_from_claim_id := p7_a22;
2357 ddp_claim_rec.duplicate_claim_id := p7_a23;
2358 ddp_claim_rec.split_date := rosetta_g_miss_date_in_map(p7_a24);
2359 ddp_claim_rec.root_claim_id := p7_a25;
2360 ddp_claim_rec.amount := p7_a26;
2361 ddp_claim_rec.amount_adjusted := p7_a27;
2362 ddp_claim_rec.amount_remaining := p7_a28;
2363 ddp_claim_rec.amount_settled := p7_a29;
2364 ddp_claim_rec.acctd_amount := p7_a30;
2365 ddp_claim_rec.acctd_amount_remaining := p7_a31;
2366 ddp_claim_rec.acctd_amount_adjusted := p7_a32;
2367 ddp_claim_rec.acctd_amount_settled := p7_a33;
2368 ddp_claim_rec.tax_amount := p7_a34;
2369 ddp_claim_rec.tax_code := p7_a35;
2370 ddp_claim_rec.tax_calculation_flag := p7_a36;
2371 ddp_claim_rec.currency_code := p7_a37;
2372 ddp_claim_rec.exchange_rate_type := p7_a38;
2373 ddp_claim_rec.exchange_rate_date := rosetta_g_miss_date_in_map(p7_a39);
2374 ddp_claim_rec.exchange_rate := p7_a40;
2375 ddp_claim_rec.set_of_books_id := p7_a41;
2376 ddp_claim_rec.original_claim_date := rosetta_g_miss_date_in_map(p7_a42);
2377 ddp_claim_rec.source_object_id := p7_a43;
2378 ddp_claim_rec.source_object_class := p7_a44;
2379 ddp_claim_rec.source_object_type_id := p7_a45;
2380 ddp_claim_rec.source_object_number := p7_a46;
2381 ddp_claim_rec.cust_account_id := p7_a47;
2382 ddp_claim_rec.cust_billto_acct_site_id := p7_a48;
2383 ddp_claim_rec.cust_shipto_acct_site_id := p7_a49;
2384 ddp_claim_rec.location_id := p7_a50;
2385 ddp_claim_rec.pay_related_account_flag := p7_a51;
2386 ddp_claim_rec.related_cust_account_id := p7_a52;
2387 ddp_claim_rec.related_site_use_id := p7_a53;
2388 ddp_claim_rec.relationship_type := p7_a54;
2389 ddp_claim_rec.vendor_id := p7_a55;
2390 ddp_claim_rec.vendor_site_id := p7_a56;
2391 ddp_claim_rec.reason_type := p7_a57;
2392 ddp_claim_rec.reason_code_id := p7_a58;
2393 ddp_claim_rec.task_template_group_id := p7_a59;
2394 ddp_claim_rec.status_code := p7_a60;
2395 ddp_claim_rec.user_status_id := p7_a61;
2396 ddp_claim_rec.sales_rep_id := p7_a62;
2397 ddp_claim_rec.collector_id := p7_a63;
2398 ddp_claim_rec.contact_id := p7_a64;
2399 ddp_claim_rec.broker_id := p7_a65;
2400 ddp_claim_rec.territory_id := p7_a66;
2401 ddp_claim_rec.customer_ref_date := rosetta_g_miss_date_in_map(p7_a67);
2402 ddp_claim_rec.customer_ref_number := p7_a68;
2403 ddp_claim_rec.assigned_to := p7_a69;
2404 ddp_claim_rec.receipt_id := p7_a70;
2405 ddp_claim_rec.receipt_number := p7_a71;
2406 ddp_claim_rec.doc_sequence_id := p7_a72;
2407 ddp_claim_rec.doc_sequence_value := p7_a73;
2408 ddp_claim_rec.gl_date := rosetta_g_miss_date_in_map(p7_a74);
2409 ddp_claim_rec.payment_method := p7_a75;
2410 ddp_claim_rec.voucher_id := p7_a76;
2411 ddp_claim_rec.voucher_number := p7_a77;
2412 ddp_claim_rec.payment_reference_id := p7_a78;
2413 ddp_claim_rec.payment_reference_number := p7_a79;
2414 ddp_claim_rec.payment_reference_date := rosetta_g_miss_date_in_map(p7_a80);
2415 ddp_claim_rec.payment_status := p7_a81;
2416 ddp_claim_rec.approved_flag := p7_a82;
2417 ddp_claim_rec.approved_date := rosetta_g_miss_date_in_map(p7_a83);
2418 ddp_claim_rec.approved_by := p7_a84;
2419 ddp_claim_rec.settled_date := rosetta_g_miss_date_in_map(p7_a85);
2420 ddp_claim_rec.settled_by := p7_a86;
2421 ddp_claim_rec.effective_date := rosetta_g_miss_date_in_map(p7_a87);
2422 ddp_claim_rec.custom_setup_id := p7_a88;
2423 ddp_claim_rec.task_id := p7_a89;
2424 ddp_claim_rec.country_id := p7_a90;
2425 ddp_claim_rec.order_type_id := p7_a91;
2426 ddp_claim_rec.comments := p7_a92;
2427 ddp_claim_rec.attribute_category := p7_a93;
2428 ddp_claim_rec.attribute1 := p7_a94;
2429 ddp_claim_rec.attribute2 := p7_a95;
2430 ddp_claim_rec.attribute3 := p7_a96;
2431 ddp_claim_rec.attribute4 := p7_a97;
2432 ddp_claim_rec.attribute5 := p7_a98;
2433 ddp_claim_rec.attribute6 := p7_a99;
2434 ddp_claim_rec.attribute7 := p7_a100;
2435 ddp_claim_rec.attribute8 := p7_a101;
2436 ddp_claim_rec.attribute9 := p7_a102;
2437 ddp_claim_rec.attribute10 := p7_a103;
2438 ddp_claim_rec.attribute11 := p7_a104;
2439 ddp_claim_rec.attribute12 := p7_a105;
2440 ddp_claim_rec.attribute13 := p7_a106;
2441 ddp_claim_rec.attribute14 := p7_a107;
2442 ddp_claim_rec.attribute15 := p7_a108;
2443 ddp_claim_rec.deduction_attribute_category := p7_a109;
2444 ddp_claim_rec.deduction_attribute1 := p7_a110;
2445 ddp_claim_rec.deduction_attribute2 := p7_a111;
2446 ddp_claim_rec.deduction_attribute3 := p7_a112;
2447 ddp_claim_rec.deduction_attribute4 := p7_a113;
2448 ddp_claim_rec.deduction_attribute5 := p7_a114;
2449 ddp_claim_rec.deduction_attribute6 := p7_a115;
2450 ddp_claim_rec.deduction_attribute7 := p7_a116;
2451 ddp_claim_rec.deduction_attribute8 := p7_a117;
2452 ddp_claim_rec.deduction_attribute9 := p7_a118;
2453 ddp_claim_rec.deduction_attribute10 := p7_a119;
2454 ddp_claim_rec.deduction_attribute11 := p7_a120;
2455 ddp_claim_rec.deduction_attribute12 := p7_a121;
2456 ddp_claim_rec.deduction_attribute13 := p7_a122;
2457 ddp_claim_rec.deduction_attribute14 := p7_a123;
2458 ddp_claim_rec.deduction_attribute15 := p7_a124;
2459 ddp_claim_rec.org_id := p7_a125;
2460 ddp_claim_rec.legal_entity_id := p7_a126;
2461 ddp_claim_rec.write_off_flag := p7_a127;
2462 ddp_claim_rec.write_off_threshold_amount := p7_a128;
2463 ddp_claim_rec.under_write_off_threshold := p7_a129;
2464 ddp_claim_rec.customer_reason := p7_a130;
2465 ddp_claim_rec.ship_to_cust_account_id := p7_a131;
2466 ddp_claim_rec.amount_applied := p7_a132;
2467 ddp_claim_rec.applied_receipt_id := p7_a133;
2468 ddp_claim_rec.applied_receipt_number := p7_a134;
2469 ddp_claim_rec.wo_rec_trx_id := p7_a135;
2470 ddp_claim_rec.group_claim_id := p7_a136;
2471 ddp_claim_rec.appr_wf_item_key := p7_a137;
2472 ddp_claim_rec.cstl_wf_item_key := p7_a138;
2473 ddp_claim_rec.batch_type := p7_a139;
2474 ddp_claim_rec.tax_action := p7_a140;
2475
2476 ddp_funds_util_flt.claim_line_id := p8_a0;
2477 ddp_funds_util_flt.fund_id := p8_a1;
2478 ddp_funds_util_flt.activity_type := p8_a2;
2479 ddp_funds_util_flt.activity_id := p8_a3;
2480 ddp_funds_util_flt.activity_product_id := p8_a4;
2481 ddp_funds_util_flt.schedule_id := p8_a5;
2482 ddp_funds_util_flt.offer_type := p8_a6;
2483 ddp_funds_util_flt.document_class := p8_a7;
2484 ddp_funds_util_flt.document_id := p8_a8;
2485 ddp_funds_util_flt.product_level_type := p8_a9;
2486 ddp_funds_util_flt.product_id := p8_a10;
2487 ddp_funds_util_flt.reference_type := p8_a11;
2488 ddp_funds_util_flt.reference_id := p8_a12;
2489 ddp_funds_util_flt.utilization_type := p8_a13;
2490 ddp_funds_util_flt.total_amount := p8_a14;
2491 ddp_funds_util_flt.old_total_amount := p8_a15;
2492 if p8_a16 is null
2493 then ddp_funds_util_flt.pay_over_all_flag := null;
2494 elsif p8_a16 = 0
2495 then ddp_funds_util_flt.pay_over_all_flag := false;
2496 else ddp_funds_util_flt.pay_over_all_flag := true;
2497 end if;
2498 ddp_funds_util_flt.total_units := p8_a17;
2499 ddp_funds_util_flt.old_total_units := p8_a18;
2500 ddp_funds_util_flt.quantity := p8_a19;
2501 ddp_funds_util_flt.uom_code := p8_a20;
2502 ddp_funds_util_flt.cust_account_id := p8_a21;
2503 ddp_funds_util_flt.relationship_type := p8_a22;
2504 ddp_funds_util_flt.related_cust_account_id := p8_a23;
2505 ddp_funds_util_flt.buy_group_cust_account_id := p8_a24;
2506 ddp_funds_util_flt.buy_group_party_id := p8_a25;
2507 ddp_funds_util_flt.select_cust_children_flag := p8_a26;
2508 ddp_funds_util_flt.pay_to_customer := p8_a27;
2509 ddp_funds_util_flt.prorate_earnings_flag := p8_a28;
2510 ddp_funds_util_flt.adjustment_type_id := p8_a29;
2511 ddp_funds_util_flt.end_date := rosetta_g_miss_date_in_map(p8_a30);
2512 ddp_funds_util_flt.run_mode := p8_a31;
2513 ddp_funds_util_flt.check_sales_rep_flag := p8_a32;
2514 ddp_funds_util_flt.group_by_offer := p8_a33;
2515 ddp_funds_util_flt.offer_payment_method := p8_a34;
2516 ddp_funds_util_flt.utiz_currency_code := p8_a35;
2517
2518
2519 -- here's the delegated call to the old PL/SQL routine
2520 ozf_claim_accrual_pvt.pay_claim_for_accruals(p_api_version,
2521 p_init_msg_list,
2522 p_commit,
2523 p_validation_level,
2524 x_return_status,
2525 x_msg_count,
2526 x_msg_data,
2527 ddp_claim_rec,
2528 ddp_funds_util_flt,
2529 x_claim_id);
2530
2531 -- copy data back from the local variables to OUT or IN-OUT args, if any
2532
2533
2534
2535
2536
2537
2538
2539
2540
2541 end;
2542
2543 procedure check_offer_performance(p_cust_account_id NUMBER
2544 , p_offer_id NUMBER
2545 , p_resale_flag VARCHAR2
2546 , p_check_all_flag VARCHAR2
2547 , x_performance_flag out nocopy VARCHAR2
2548 , p5_a0 out nocopy JTF_NUMBER_TABLE
2549 , p5_a1 out nocopy JTF_NUMBER_TABLE
2550 , p5_a2 out nocopy JTF_VARCHAR2_TABLE_100
2551 , p5_a3 out nocopy JTF_VARCHAR2_TABLE_300
2552 , p5_a4 out nocopy JTF_DATE_TABLE
2553 , p5_a5 out nocopy JTF_DATE_TABLE
2554 , p5_a6 out nocopy JTF_VARCHAR2_TABLE_100
2555 , p5_a7 out nocopy JTF_NUMBER_TABLE
2556 , p5_a8 out nocopy JTF_VARCHAR2_TABLE_100
2557 )
2558
2559 as
2560 ddx_offer_perf_tbl ozf_claim_accrual_pvt.offer_performance_tbl_type;
2561 ddindx binary_integer; indx binary_integer;
2562 begin
2563
2564 -- copy data to the local IN or IN-OUT args, if any
2565
2566
2567
2568
2569
2570
2571 -- here's the delegated call to the old PL/SQL routine
2572 ozf_claim_accrual_pvt.check_offer_performance(p_cust_account_id,
2573 p_offer_id,
2574 p_resale_flag,
2575 p_check_all_flag,
2576 x_performance_flag,
2577 ddx_offer_perf_tbl);
2578
2579 -- copy data back from the local variables to OUT or IN-OUT args, if any
2580
2581
2582
2583
2584
2585 ozf_claim_accrual_pvt_w.rosetta_table_copy_out_p4(ddx_offer_perf_tbl, p5_a0
2586 , p5_a1
2587 , p5_a2
2588 , p5_a3
2589 , p5_a4
2590 , p5_a5
2591 , p5_a6
2592 , p5_a7
2593 , p5_a8
2594 );
2595 end;
2596
2597 procedure check_offer_performance_tbl(p_claim_id NUMBER
2598 , p1_a0 out nocopy JTF_NUMBER_TABLE
2599 , p1_a1 out nocopy JTF_NUMBER_TABLE
2600 , p1_a2 out nocopy JTF_VARCHAR2_TABLE_100
2601 , p1_a3 out nocopy JTF_VARCHAR2_TABLE_300
2602 , p1_a4 out nocopy JTF_DATE_TABLE
2603 , p1_a5 out nocopy JTF_DATE_TABLE
2604 , p1_a6 out nocopy JTF_VARCHAR2_TABLE_100
2605 , p1_a7 out nocopy JTF_NUMBER_TABLE
2606 , p1_a8 out nocopy JTF_VARCHAR2_TABLE_100
2607 )
2608
2609 as
2610 ddx_offer_perf_tbl ozf_claim_accrual_pvt.offer_performance_tbl_type;
2611 ddindx binary_integer; indx binary_integer;
2612 begin
2613
2614 -- copy data to the local IN or IN-OUT args, if any
2615
2616
2617 -- here's the delegated call to the old PL/SQL routine
2618 ozf_claim_accrual_pvt.check_offer_performance_tbl(p_claim_id,
2619 ddx_offer_perf_tbl);
2620
2621 -- copy data back from the local variables to OUT or IN-OUT args, if any
2622
2623 ozf_claim_accrual_pvt_w.rosetta_table_copy_out_p4(ddx_offer_perf_tbl, p1_a0
2624 , p1_a1
2625 , p1_a2
2626 , p1_a3
2627 , p1_a4
2628 , p1_a5
2629 , p1_a6
2630 , p1_a7
2631 , p1_a8
2632 );
2633 end;
2634
2635 procedure check_offer_earning_tbl(p_claim_id NUMBER
2636 , p1_a0 out nocopy JTF_NUMBER_TABLE
2637 , p1_a1 out nocopy JTF_NUMBER_TABLE
2638 )
2639
2640 as
2641 ddx_offer_earn_tbl ozf_claim_accrual_pvt.offer_earning_tbl_type;
2642 ddindx binary_integer; indx binary_integer;
2643 begin
2644
2645 -- copy data to the local IN or IN-OUT args, if any
2646
2647
2648 -- here's the delegated call to the old PL/SQL routine
2649 ozf_claim_accrual_pvt.check_offer_earning_tbl(p_claim_id,
2650 ddx_offer_earn_tbl);
2651
2652 -- copy data back from the local variables to OUT or IN-OUT args, if any
2653
2654 ozf_claim_accrual_pvt_w.rosetta_table_copy_out_p6(ddx_offer_earn_tbl, p1_a0
2655 , p1_a1
2656 );
2657 end;
2658
2659 function calculate_fxgl_amount(p0_a0 NUMBER
2660 , p0_a1 NUMBER
2661 , p0_a2 DATE
2662 , p0_a3 NUMBER
2663 , p0_a4 DATE
2664 , p0_a5 NUMBER
2665 , p0_a6 NUMBER
2666 , p0_a7 NUMBER
2667 , p0_a8 NUMBER
2668 , p0_a9 NUMBER
2669 , p0_a10 VARCHAR2
2670 , p0_a11 VARCHAR2
2671 , p0_a12 DATE
2672 , p0_a13 NUMBER
2673 , p0_a14 NUMBER
2674 , p0_a15 NUMBER
2675 , p0_a16 NUMBER
2676 , p0_a17 NUMBER
2677 , p0_a18 NUMBER
2678 , p0_a19 VARCHAR2
2679 , p0_a20 NUMBER
2680 , p0_a21 NUMBER
2681 , p0_a22 NUMBER
2682 , p0_a23 NUMBER
2683 , p0_a24 NUMBER
2684 , p0_a25 VARCHAR2
2685 ) return number
2686
2687 as
2688 ddp_line_util_rec ozf_claim_accrual_pvt.line_util_rec_type;
2689 ddindx binary_integer; indx binary_integer;
2690 ddrosetta_retval number;
2691 begin
2692
2693 -- copy data to the local IN or IN-OUT args, if any
2694 ddp_line_util_rec.claim_line_util_id := p0_a0;
2695 ddp_line_util_rec.object_version_number := p0_a1;
2696 ddp_line_util_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a2);
2697 ddp_line_util_rec.last_updated_by := p0_a3;
2698 ddp_line_util_rec.creation_date := rosetta_g_miss_date_in_map(p0_a4);
2699 ddp_line_util_rec.created_by := p0_a5;
2700 ddp_line_util_rec.last_update_login := p0_a6;
2701 ddp_line_util_rec.claim_line_id := p0_a7;
2702 ddp_line_util_rec.utilization_id := p0_a8;
2703 ddp_line_util_rec.amount := p0_a9;
2704 ddp_line_util_rec.currency_code := p0_a10;
2705 ddp_line_util_rec.exchange_rate_type := p0_a11;
2706 ddp_line_util_rec.exchange_rate_date := rosetta_g_miss_date_in_map(p0_a12);
2707 ddp_line_util_rec.exchange_rate := p0_a13;
2708 ddp_line_util_rec.acctd_amount := p0_a14;
2709 ddp_line_util_rec.util_curr_amount := p0_a15;
2710 ddp_line_util_rec.plan_curr_amount := p0_a16;
2711 ddp_line_util_rec.scan_unit := p0_a17;
2712 ddp_line_util_rec.activity_product_id := p0_a18;
2713 ddp_line_util_rec.uom_code := p0_a19;
2714 ddp_line_util_rec.quantity := p0_a20;
2715 ddp_line_util_rec.org_id := p0_a21;
2716 ddp_line_util_rec.univ_curr_amount := p0_a22;
2717 ddp_line_util_rec.fxgl_acctd_amount := p0_a23;
2718 ddp_line_util_rec.utilized_acctd_amount := p0_a24;
2719 ddp_line_util_rec.update_from_tbl_flag := p0_a25;
2720
2721 -- here's the delegated call to the old PL/SQL routine
2722 ddrosetta_retval := ozf_claim_accrual_pvt.calculate_fxgl_amount(ddp_line_util_rec);
2723
2724 -- copy data back from the local variables to OUT or IN-OUT args, if any
2725
2726 return ddrosetta_retval;
2727 end;
2728
2729 end ozf_claim_accrual_pvt_w;