[Home] [Help]
PACKAGE BODY: APPS.CN_MULTI_RATE_SCHEDULES_PVT_W
Source
1 package body cn_multi_rate_schedules_pvt_w as
2 /* $Header: cnwrschb.pls 120.4 2006/01/18 16:13 jxsingh ship $ */
3 procedure rosetta_table_copy_in_p5(t out nocopy cn_multi_rate_schedules_pvt.rate_table_tbl_type, a0 JTF_NUMBER_TABLE
4 , a1 JTF_VARCHAR2_TABLE_100
5 , a2 JTF_VARCHAR2_TABLE_100
6 , a3 JTF_NUMBER_TABLE
7 , a4 JTF_NUMBER_TABLE
8 ) as
9 ddindx binary_integer; indx binary_integer;
10 begin
11 if a0 is not null and a0.count > 0 then
12 if a0.count > 0 then
13 indx := a0.first;
14 ddindx := 1;
15 while true loop
16 t(ddindx).rate_schedule_id := a0(indx);
17 t(ddindx).name := a1(indx);
18 t(ddindx).type := a2(indx);
19 t(ddindx).number_dim := a3(indx);
20 t(ddindx).object_version_number := a4(indx);
21 ddindx := ddindx+1;
22 if a0.last =indx
23 then exit;
24 end if;
25 indx := a0.next(indx);
26 end loop;
27 end if;
28 end if;
29 end rosetta_table_copy_in_p5;
30 procedure rosetta_table_copy_out_p5(t cn_multi_rate_schedules_pvt.rate_table_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
31 , a1 out nocopy JTF_VARCHAR2_TABLE_100
32 , a2 out nocopy JTF_VARCHAR2_TABLE_100
33 , a3 out nocopy JTF_NUMBER_TABLE
34 , a4 out nocopy JTF_NUMBER_TABLE
35 ) as
36 ddindx binary_integer; indx binary_integer;
37 begin
38 if t is null or t.count = 0 then
39 a0 := JTF_NUMBER_TABLE();
40 a1 := JTF_VARCHAR2_TABLE_100();
41 a2 := JTF_VARCHAR2_TABLE_100();
42 a3 := JTF_NUMBER_TABLE();
43 a4 := JTF_NUMBER_TABLE();
44 else
45 a0 := JTF_NUMBER_TABLE();
46 a1 := JTF_VARCHAR2_TABLE_100();
47 a2 := JTF_VARCHAR2_TABLE_100();
48 a3 := JTF_NUMBER_TABLE();
49 a4 := JTF_NUMBER_TABLE();
50 if t.count > 0 then
51 a0.extend(t.count);
52 a1.extend(t.count);
53 a2.extend(t.count);
54 a3.extend(t.count);
55 a4.extend(t.count);
56 ddindx := t.first;
57 indx := 1;
58 while true loop
59 a0(indx) := t(ddindx).rate_schedule_id;
60 a1(indx) := t(ddindx).name;
61 a2(indx) := t(ddindx).type;
62 a3(indx) := t(ddindx).number_dim;
63 a4(indx) := t(ddindx).object_version_number;
64 indx := indx+1;
65 if t.last =ddindx
66 then exit;
67 end if;
68 ddindx := t.next(ddindx);
69 end loop;
70 end if;
71 end if;
72 end rosetta_table_copy_out_p5;
73
74 procedure rosetta_table_copy_in_p6(t out nocopy cn_multi_rate_schedules_pvt.dims_tbl_type, a0 JTF_NUMBER_TABLE
75 , a1 JTF_NUMBER_TABLE
76 , a2 JTF_NUMBER_TABLE
77 , a3 JTF_NUMBER_TABLE
78 , a4 JTF_VARCHAR2_TABLE_100
79 , a5 JTF_NUMBER_TABLE
80 , a6 JTF_VARCHAR2_TABLE_100
81 , a7 JTF_NUMBER_TABLE
82 ) as
83 ddindx binary_integer; indx binary_integer;
84 begin
85 if a0 is not null and a0.count > 0 then
86 if a0.count > 0 then
87 indx := a0.first;
88 ddindx := 1;
89 while true loop
90 t(ddindx).rate_sch_dim_id := a0(indx);
91 t(ddindx).rate_dimension_id := a1(indx);
92 t(ddindx).rate_schedule_id := a2(indx);
93 t(ddindx).rate_dim_sequence := a3(indx);
94 t(ddindx).rate_dim_name := a4(indx);
95 t(ddindx).number_tier := a5(indx);
96 t(ddindx).dim_unit_code := a6(indx);
97 t(ddindx).object_version_number := a7(indx);
98 ddindx := ddindx+1;
99 if a0.last =indx
100 then exit;
101 end if;
102 indx := a0.next(indx);
103 end loop;
104 end if;
105 end if;
106 end rosetta_table_copy_in_p6;
107 procedure rosetta_table_copy_out_p6(t cn_multi_rate_schedules_pvt.dims_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
108 , a1 out nocopy JTF_NUMBER_TABLE
109 , a2 out nocopy JTF_NUMBER_TABLE
110 , a3 out nocopy JTF_NUMBER_TABLE
111 , a4 out nocopy JTF_VARCHAR2_TABLE_100
112 , a5 out nocopy JTF_NUMBER_TABLE
113 , a6 out nocopy JTF_VARCHAR2_TABLE_100
114 , a7 out nocopy JTF_NUMBER_TABLE
115 ) as
116 ddindx binary_integer; indx binary_integer;
117 begin
118 if t is null or t.count = 0 then
119 a0 := JTF_NUMBER_TABLE();
120 a1 := JTF_NUMBER_TABLE();
121 a2 := JTF_NUMBER_TABLE();
122 a3 := JTF_NUMBER_TABLE();
123 a4 := JTF_VARCHAR2_TABLE_100();
124 a5 := JTF_NUMBER_TABLE();
125 a6 := JTF_VARCHAR2_TABLE_100();
126 a7 := JTF_NUMBER_TABLE();
127 else
128 a0 := JTF_NUMBER_TABLE();
129 a1 := JTF_NUMBER_TABLE();
130 a2 := JTF_NUMBER_TABLE();
131 a3 := JTF_NUMBER_TABLE();
132 a4 := JTF_VARCHAR2_TABLE_100();
133 a5 := JTF_NUMBER_TABLE();
134 a6 := JTF_VARCHAR2_TABLE_100();
135 a7 := JTF_NUMBER_TABLE();
136 if t.count > 0 then
137 a0.extend(t.count);
138 a1.extend(t.count);
139 a2.extend(t.count);
140 a3.extend(t.count);
141 a4.extend(t.count);
142 a5.extend(t.count);
143 a6.extend(t.count);
144 a7.extend(t.count);
145 ddindx := t.first;
146 indx := 1;
147 while true loop
148 a0(indx) := t(ddindx).rate_sch_dim_id;
149 a1(indx) := t(ddindx).rate_dimension_id;
150 a2(indx) := t(ddindx).rate_schedule_id;
151 a3(indx) := t(ddindx).rate_dim_sequence;
152 a4(indx) := t(ddindx).rate_dim_name;
153 a5(indx) := t(ddindx).number_tier;
154 a6(indx) := t(ddindx).dim_unit_code;
155 a7(indx) := t(ddindx).object_version_number;
156 indx := indx+1;
157 if t.last =ddindx
158 then exit;
159 end if;
160 ddindx := t.next(ddindx);
161 end loop;
162 end if;
163 end if;
164 end rosetta_table_copy_out_p6;
165
166 procedure rosetta_table_copy_in_p7(t out nocopy cn_multi_rate_schedules_pvt.parents_tbl_type, a0 JTF_VARCHAR2_TABLE_100) as
167 ddindx binary_integer; indx binary_integer;
168 begin
169 if a0 is not null and a0.count > 0 then
170 if a0.count > 0 then
171 indx := a0.first;
172 ddindx := 1;
173 while true loop
174 t(ddindx) := a0(indx);
175 ddindx := ddindx+1;
176 if a0.last =indx
177 then exit;
178 end if;
179 indx := a0.next(indx);
180 end loop;
181 end if;
182 end if;
183 end rosetta_table_copy_in_p7;
184 procedure rosetta_table_copy_out_p7(t cn_multi_rate_schedules_pvt.parents_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100) as
185 ddindx binary_integer; indx binary_integer;
186 begin
187 if t is null or t.count = 0 then
188 a0 := JTF_VARCHAR2_TABLE_100();
189 else
190 a0 := JTF_VARCHAR2_TABLE_100();
191 if t.count > 0 then
192 a0.extend(t.count);
193 ddindx := t.first;
194 indx := 1;
195 while true loop
196 a0(indx) := t(ddindx);
197 indx := indx+1;
198 if t.last =ddindx
199 then exit;
200 end if;
201 ddindx := t.next(ddindx);
202 end loop;
203 end if;
204 end if;
205 end rosetta_table_copy_out_p7;
206
207 procedure rosetta_table_copy_in_p8(t out nocopy cn_multi_rate_schedules_pvt.num_tbl_type, a0 JTF_NUMBER_TABLE) as
208 ddindx binary_integer; indx binary_integer;
209 begin
210 if a0 is not null and a0.count > 0 then
211 if a0.count > 0 then
212 indx := a0.first;
213 ddindx := 1;
214 while true loop
215 t(ddindx) := a0(indx);
216 ddindx := ddindx+1;
217 if a0.last =indx
218 then exit;
219 end if;
220 indx := a0.next(indx);
221 end loop;
222 end if;
223 end if;
224 end rosetta_table_copy_in_p8;
225 procedure rosetta_table_copy_out_p8(t cn_multi_rate_schedules_pvt.num_tbl_type, a0 out nocopy JTF_NUMBER_TABLE) as
226 ddindx binary_integer; indx binary_integer;
227 begin
228 if t is null or t.count = 0 then
229 a0 := JTF_NUMBER_TABLE();
230 else
231 a0 := JTF_NUMBER_TABLE();
232 if t.count > 0 then
233 a0.extend(t.count);
234 ddindx := t.first;
235 indx := 1;
236 while true loop
237 a0(indx) := t(ddindx);
238 indx := indx+1;
239 if t.last =ddindx
240 then exit;
241 end if;
242 ddindx := t.next(ddindx);
243 end loop;
244 end if;
245 end if;
246 end rosetta_table_copy_out_p8;
247
248 procedure rosetta_table_copy_in_p9(t out nocopy cn_multi_rate_schedules_pvt.plan_elt_tbl_type, a0 JTF_NUMBER_TABLE
249 , a1 JTF_VARCHAR2_TABLE_100
250 , a2 JTF_VARCHAR2_TABLE_100
251 , a3 JTF_NUMBER_TABLE
252 , a4 JTF_VARCHAR2_TABLE_100
253 , a5 JTF_DATE_TABLE
254 , a6 JTF_DATE_TABLE
255 ) as
256 ddindx binary_integer; indx binary_integer;
257 begin
258 if a0 is not null and a0.count > 0 then
259 if a0.count > 0 then
260 indx := a0.first;
261 ddindx := 1;
262 while true loop
263 t(ddindx).quota_id := a0(indx);
264 t(ddindx).quota_name := a1(indx);
265 t(ddindx).incentive_type := a2(indx);
266 t(ddindx).calc_formula_id := a3(indx);
267 t(ddindx).formula_name := a4(indx);
268 t(ddindx).start_date := a5(indx);
269 t(ddindx).end_date := a6(indx);
270 ddindx := ddindx+1;
271 if a0.last =indx
272 then exit;
273 end if;
274 indx := a0.next(indx);
275 end loop;
276 end if;
277 end if;
278 end rosetta_table_copy_in_p9;
279 procedure rosetta_table_copy_out_p9(t cn_multi_rate_schedules_pvt.plan_elt_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
280 , a1 out nocopy JTF_VARCHAR2_TABLE_100
281 , a2 out nocopy JTF_VARCHAR2_TABLE_100
282 , a3 out nocopy JTF_NUMBER_TABLE
283 , a4 out nocopy JTF_VARCHAR2_TABLE_100
284 , a5 out nocopy JTF_DATE_TABLE
285 , a6 out nocopy JTF_DATE_TABLE
286 ) as
287 ddindx binary_integer; indx binary_integer;
288 begin
289 if t is null or t.count = 0 then
290 a0 := JTF_NUMBER_TABLE();
291 a1 := JTF_VARCHAR2_TABLE_100();
292 a2 := JTF_VARCHAR2_TABLE_100();
293 a3 := JTF_NUMBER_TABLE();
294 a4 := JTF_VARCHAR2_TABLE_100();
295 a5 := JTF_DATE_TABLE();
296 a6 := JTF_DATE_TABLE();
297 else
298 a0 := JTF_NUMBER_TABLE();
299 a1 := JTF_VARCHAR2_TABLE_100();
300 a2 := JTF_VARCHAR2_TABLE_100();
301 a3 := JTF_NUMBER_TABLE();
302 a4 := JTF_VARCHAR2_TABLE_100();
303 a5 := JTF_DATE_TABLE();
304 a6 := JTF_DATE_TABLE();
305 if t.count > 0 then
306 a0.extend(t.count);
307 a1.extend(t.count);
308 a2.extend(t.count);
309 a3.extend(t.count);
310 a4.extend(t.count);
311 a5.extend(t.count);
312 a6.extend(t.count);
313 ddindx := t.first;
314 indx := 1;
315 while true loop
316 a0(indx) := t(ddindx).quota_id;
317 a1(indx) := t(ddindx).quota_name;
318 a2(indx) := t(ddindx).incentive_type;
319 a3(indx) := t(ddindx).calc_formula_id;
320 a4(indx) := t(ddindx).formula_name;
321 a5(indx) := t(ddindx).start_date;
322 a6(indx) := t(ddindx).end_date;
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_p9;
332
333 procedure rosetta_table_copy_in_p10(t out nocopy cn_multi_rate_schedules_pvt.formula_tbl_type, a0 JTF_NUMBER_TABLE
334 , a1 JTF_VARCHAR2_TABLE_100
335 , a2 JTF_VARCHAR2_TABLE_100
336 , a3 JTF_DATE_TABLE
337 , a4 JTF_DATE_TABLE
338 ) as
339 ddindx binary_integer; indx binary_integer;
340 begin
341 if a0 is not null and a0.count > 0 then
342 if a0.count > 0 then
343 indx := a0.first;
344 ddindx := 1;
345 while true loop
346 t(ddindx).calc_formula_id := a0(indx);
347 t(ddindx).formula_name := a1(indx);
348 t(ddindx).formula_type := a2(indx);
349 t(ddindx).start_date := a3(indx);
350 t(ddindx).end_date := a4(indx);
351 ddindx := ddindx+1;
352 if a0.last =indx
353 then exit;
354 end if;
355 indx := a0.next(indx);
356 end loop;
357 end if;
358 end if;
359 end rosetta_table_copy_in_p10;
360 procedure rosetta_table_copy_out_p10(t cn_multi_rate_schedules_pvt.formula_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
361 , a1 out nocopy JTF_VARCHAR2_TABLE_100
362 , a2 out nocopy JTF_VARCHAR2_TABLE_100
363 , a3 out nocopy JTF_DATE_TABLE
364 , a4 out nocopy JTF_DATE_TABLE
365 ) as
366 ddindx binary_integer; indx binary_integer;
367 begin
368 if t is null or t.count = 0 then
369 a0 := JTF_NUMBER_TABLE();
370 a1 := JTF_VARCHAR2_TABLE_100();
371 a2 := JTF_VARCHAR2_TABLE_100();
372 a3 := JTF_DATE_TABLE();
373 a4 := JTF_DATE_TABLE();
374 else
375 a0 := JTF_NUMBER_TABLE();
376 a1 := JTF_VARCHAR2_TABLE_100();
377 a2 := JTF_VARCHAR2_TABLE_100();
378 a3 := JTF_DATE_TABLE();
379 a4 := JTF_DATE_TABLE();
380 if t.count > 0 then
381 a0.extend(t.count);
382 a1.extend(t.count);
383 a2.extend(t.count);
384 a3.extend(t.count);
385 a4.extend(t.count);
386 ddindx := t.first;
387 indx := 1;
388 while true loop
389 a0(indx) := t(ddindx).calc_formula_id;
390 a1(indx) := t(ddindx).formula_name;
391 a2(indx) := t(ddindx).formula_type;
392 a3(indx) := t(ddindx).start_date;
393 a4(indx) := t(ddindx).end_date;
394 indx := indx+1;
395 if t.last =ddindx
396 then exit;
397 end if;
398 ddindx := t.next(ddindx);
399 end loop;
400 end if;
401 end if;
402 end rosetta_table_copy_out_p10;
403
404 procedure rosetta_table_copy_in_p11(t out nocopy cn_multi_rate_schedules_pvt.comm_tbl_type, a0 JTF_NUMBER_TABLE
405 , a1 JTF_NUMBER_TABLE
406 , a2 JTF_NUMBER_TABLE
407 , a3 JTF_NUMBER_TABLE
408 ) as
409 ddindx binary_integer; indx binary_integer;
410 begin
411 if a0 is not null and a0.count > 0 then
412 if a0.count > 0 then
413 indx := a0.first;
414 ddindx := 1;
415 while true loop
416 t(ddindx).p_rate_sequence := a0(indx);
417 t(ddindx).p_commission_amount := a1(indx);
418 t(ddindx).p_object_version_number := a2(indx);
419 t(ddindx).p_org_id := a3(indx);
420 ddindx := ddindx+1;
421 if a0.last =indx
422 then exit;
423 end if;
424 indx := a0.next(indx);
425 end loop;
426 end if;
427 end if;
428 end rosetta_table_copy_in_p11;
429 procedure rosetta_table_copy_out_p11(t cn_multi_rate_schedules_pvt.comm_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
430 , a1 out nocopy JTF_NUMBER_TABLE
431 , a2 out nocopy JTF_NUMBER_TABLE
432 , a3 out nocopy JTF_NUMBER_TABLE
433 ) as
434 ddindx binary_integer; indx binary_integer;
435 begin
436 if t is null or t.count = 0 then
437 a0 := JTF_NUMBER_TABLE();
438 a1 := JTF_NUMBER_TABLE();
439 a2 := JTF_NUMBER_TABLE();
440 a3 := JTF_NUMBER_TABLE();
441 else
442 a0 := JTF_NUMBER_TABLE();
443 a1 := JTF_NUMBER_TABLE();
444 a2 := JTF_NUMBER_TABLE();
445 a3 := JTF_NUMBER_TABLE();
446 if t.count > 0 then
447 a0.extend(t.count);
448 a1.extend(t.count);
449 a2.extend(t.count);
450 a3.extend(t.count);
451 ddindx := t.first;
452 indx := 1;
453 while true loop
454 a0(indx) := t(ddindx).p_rate_sequence;
455 a1(indx) := t(ddindx).p_commission_amount;
456 a2(indx) := t(ddindx).p_object_version_number;
457 a3(indx) := t(ddindx).p_org_id;
458 indx := indx+1;
459 if t.last =ddindx
460 then exit;
461 end if;
462 ddindx := t.next(ddindx);
463 end loop;
464 end if;
465 end if;
466 end rosetta_table_copy_out_p11;
467
468 procedure create_schedule(p_api_version NUMBER
469 , p_init_msg_list VARCHAR2
470 , p_commit VARCHAR2
471 , p_validation_level NUMBER
472 , p_name VARCHAR2
473 , p_commission_unit_code VARCHAR2
474 , p_number_dim NUMBER
475 , p7_a0 JTF_NUMBER_TABLE
476 , p7_a1 JTF_NUMBER_TABLE
477 , p7_a2 JTF_NUMBER_TABLE
478 , p7_a3 JTF_NUMBER_TABLE
479 , p7_a4 JTF_VARCHAR2_TABLE_100
480 , p7_a5 JTF_NUMBER_TABLE
481 , p7_a6 JTF_VARCHAR2_TABLE_100
482 , p7_a7 JTF_NUMBER_TABLE
483 , p_org_id NUMBER
484 , x_rate_schedule_id in out nocopy NUMBER
485 , x_return_status out nocopy VARCHAR2
486 , x_msg_count out nocopy NUMBER
487 , x_msg_data out nocopy VARCHAR2
488 )
489
490 as
491 ddp_dims_tbl cn_multi_rate_schedules_pvt.dims_tbl_type;
492 ddindx binary_integer; indx binary_integer;
493 begin
494
495 -- copy data to the local IN or IN-OUT args, if any
496
497
498
499
500
501
502
503 cn_multi_rate_schedules_pvt_w.rosetta_table_copy_in_p6(ddp_dims_tbl, p7_a0
504 , p7_a1
505 , p7_a2
506 , p7_a3
507 , p7_a4
508 , p7_a5
509 , p7_a6
510 , p7_a7
511 );
512
513
514
515
516
517
518 -- here's the delegated call to the old PL/SQL routine
519 cn_multi_rate_schedules_pvt.create_schedule(p_api_version,
520 p_init_msg_list,
521 p_commit,
522 p_validation_level,
523 p_name,
524 p_commission_unit_code,
525 p_number_dim,
526 ddp_dims_tbl,
527 p_org_id,
528 x_rate_schedule_id,
529 x_return_status,
530 x_msg_count,
531 x_msg_data);
532
533 -- copy data back from the local variables to OUT or IN-OUT args, if any
534
535
536
537
538
539
540
541
542
543
544
545
546 end;
547
548 procedure update_schedule(p_api_version NUMBER
549 , p_init_msg_list VARCHAR2
550 , p_commit VARCHAR2
551 , p_validation_level NUMBER
552 , p_rate_schedule_id NUMBER
553 , p_name VARCHAR2
554 , p_commission_unit_code VARCHAR2
555 , p_number_dim NUMBER
556 , p_org_id NUMBER
557 , p_object_version_number in out nocopy NUMBER
558 , p10_a0 JTF_NUMBER_TABLE
559 , p10_a1 JTF_NUMBER_TABLE
560 , p10_a2 JTF_NUMBER_TABLE
561 , p10_a3 JTF_NUMBER_TABLE
562 , p10_a4 JTF_VARCHAR2_TABLE_100
563 , p10_a5 JTF_NUMBER_TABLE
564 , p10_a6 JTF_VARCHAR2_TABLE_100
565 , p10_a7 JTF_NUMBER_TABLE
566 , x_return_status out nocopy VARCHAR2
567 , x_msg_count out nocopy NUMBER
568 , x_msg_data out nocopy VARCHAR2
569 )
570
571 as
572 ddp_dims_tbl cn_multi_rate_schedules_pvt.dims_tbl_type;
573 ddindx binary_integer; indx binary_integer;
574 begin
575
576 -- copy data to the local IN or IN-OUT args, if any
577
578
579
580
581
582
583
584
585
586
587 cn_multi_rate_schedules_pvt_w.rosetta_table_copy_in_p6(ddp_dims_tbl, p10_a0
588 , p10_a1
589 , p10_a2
590 , p10_a3
591 , p10_a4
592 , p10_a5
593 , p10_a6
594 , p10_a7
595 );
596
597
598
599
600 -- here's the delegated call to the old PL/SQL routine
601 cn_multi_rate_schedules_pvt.update_schedule(p_api_version,
602 p_init_msg_list,
603 p_commit,
604 p_validation_level,
605 p_rate_schedule_id,
606 p_name,
607 p_commission_unit_code,
608 p_number_dim,
609 p_org_id,
610 p_object_version_number,
611 ddp_dims_tbl,
612 x_return_status,
613 x_msg_count,
614 x_msg_data);
615
616 -- copy data back from the local variables to OUT or IN-OUT args, if any
617
618
619
620
621
622
623
624
625
626
627
628
629
630 end;
631
632 procedure get_rate_tier_info(p_rate_schedule_id NUMBER
633 , p_rate_dim_tier_id_tbl JTF_NUMBER_TABLE
634 , x_rate_tier_id out nocopy NUMBER
635 , x_rate_sequence out nocopy NUMBER
636 , x_commission_amount out nocopy NUMBER
637 , x_object_version_number out nocopy NUMBER
638 )
639
640 as
641 ddp_rate_dim_tier_id_tbl cn_multi_rate_schedules_pvt.num_tbl_type;
642 ddindx binary_integer; indx binary_integer;
643 begin
644
645 -- copy data to the local IN or IN-OUT args, if any
646
647 cn_multi_rate_schedules_pvt_w.rosetta_table_copy_in_p8(ddp_rate_dim_tier_id_tbl, p_rate_dim_tier_id_tbl);
648
649
650
651
652
653 -- here's the delegated call to the old PL/SQL routine
654 cn_multi_rate_schedules_pvt.get_rate_tier_info(p_rate_schedule_id,
655 ddp_rate_dim_tier_id_tbl,
656 x_rate_tier_id,
657 x_rate_sequence,
658 x_commission_amount,
659 x_object_version_number);
660
661 -- copy data back from the local variables to OUT or IN-OUT args, if any
662
663
664
665
666
667 end;
668
669 procedure update_comm_rate(p_rate_schedule_id NUMBER
670 , p1_a0 JTF_NUMBER_TABLE
671 , p1_a1 JTF_NUMBER_TABLE
672 , p1_a2 JTF_NUMBER_TABLE
673 , p1_a3 JTF_NUMBER_TABLE
674 , p_org_id NUMBER
675 )
676
677 as
678 ddx_result_tbl cn_multi_rate_schedules_pvt.comm_tbl_type;
679 ddindx binary_integer; indx binary_integer;
680 begin
681
682 -- copy data to the local IN or IN-OUT args, if any
683
684 cn_multi_rate_schedules_pvt_w.rosetta_table_copy_in_p11(ddx_result_tbl, p1_a0
685 , p1_a1
686 , p1_a2
687 , p1_a3
688 );
689
690
691 -- here's the delegated call to the old PL/SQL routine
692 cn_multi_rate_schedules_pvt.update_comm_rate(p_rate_schedule_id,
693 ddx_result_tbl,
694 p_org_id);
695
696 -- copy data back from the local variables to OUT or IN-OUT args, if any
697
698
699 end;
700
701 end cn_multi_rate_schedules_pvt_w;