[Home] [Help]
PACKAGE BODY: APPS.AMV_CATEGORY_PVT_W
Source
1 package body amv_category_pvt_w as
2 /* $Header: amvwcatb.pls 120.2 2005/06/30 07:45 appldev ship $ */
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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure rosetta_table_copy_in_p2(t out nocopy amv_category_pvt.amv_char_varray_type, a0 JTF_VARCHAR2_TABLE_4000) as
23 ddindx binary_integer; indx binary_integer;
24 begin
25 if a0 is null then
26 t := null;
27 elsif a0.count = 0 then
28 t := amv_category_pvt.amv_char_varray_type();
29 else
30 if a0.count > 0 then
31 t := amv_category_pvt.amv_char_varray_type();
32 t.extend(a0.count);
33 indx := a0.first;
34 ddindx := 1;
35 while true loop
36 t(ddindx) := a0(indx);
37 ddindx := ddindx+1;
38 if a0.last =indx
39 then exit;
40 end if;
41 indx := a0.next(indx);
42 end loop;
43 end if;
44 end if;
45 end rosetta_table_copy_in_p2;
46 procedure rosetta_table_copy_out_p2(t amv_category_pvt.amv_char_varray_type, a0 out nocopy JTF_VARCHAR2_TABLE_4000) as
47 ddindx binary_integer; indx binary_integer;
48 begin
49 if t is null then
50 a0 := null;
51 elsif t.count = 0 then
52 a0 := JTF_VARCHAR2_TABLE_4000();
53 else
54 a0 := JTF_VARCHAR2_TABLE_4000();
55 if t.count > 0 then
56 a0.extend(t.count);
57 ddindx := t.first;
58 indx := 1;
59 while true loop
60 a0(indx) := t(ddindx);
61 indx := indx+1;
62 if t.last =ddindx
63 then exit;
64 end if;
65 ddindx := t.next(ddindx);
66 end loop;
67 end if;
68 end if;
69 end rosetta_table_copy_out_p2;
70
71 procedure rosetta_table_copy_in_p3(t out nocopy amv_category_pvt.amv_number_varray_type, a0 JTF_NUMBER_TABLE) as
72 ddindx binary_integer; indx binary_integer;
73 begin
74 if a0 is null then
75 t := null;
76 elsif a0.count = 0 then
77 t := amv_category_pvt.amv_number_varray_type();
78 else
79 if a0.count > 0 then
80 t := amv_category_pvt.amv_number_varray_type();
81 t.extend(a0.count);
82 indx := a0.first;
83 ddindx := 1;
84 while true loop
85 t(ddindx) := rosetta_g_miss_num_map(a0(indx));
86 ddindx := ddindx+1;
87 if a0.last =indx
88 then exit;
89 end if;
90 indx := a0.next(indx);
91 end loop;
92 end if;
93 end if;
94 end rosetta_table_copy_in_p3;
95 procedure rosetta_table_copy_out_p3(t amv_category_pvt.amv_number_varray_type, a0 out nocopy JTF_NUMBER_TABLE) as
96 ddindx binary_integer; indx binary_integer;
97 begin
98 if t is null then
99 a0 := null;
100 elsif t.count = 0 then
101 a0 := JTF_NUMBER_TABLE();
102 else
103 a0 := JTF_NUMBER_TABLE();
104 if t.count > 0 then
105 a0.extend(t.count);
106 ddindx := t.first;
107 indx := 1;
108 while true loop
109 a0(indx) := rosetta_g_miss_num_map(t(ddindx));
110 indx := indx+1;
111 if t.last =ddindx
112 then exit;
113 end if;
114 ddindx := t.next(ddindx);
115 end loop;
116 end if;
117 end if;
118 end rosetta_table_copy_out_p3;
119
120 procedure rosetta_table_copy_in_p7(t out nocopy amv_category_pvt.amv_category_varray_type, a0 JTF_NUMBER_TABLE
121 , a1 JTF_NUMBER_TABLE
122 , a2 JTF_NUMBER_TABLE
123 , a3 JTF_NUMBER_TABLE
124 , a4 JTF_NUMBER_TABLE
125 , a5 JTF_VARCHAR2_TABLE_100
126 , a6 JTF_VARCHAR2_TABLE_2000
127 , a7 JTF_NUMBER_TABLE
128 ) as
129 ddindx binary_integer; indx binary_integer;
130 begin
131 if a0 is not null and a0.count=0 then
132 t := amv_category_pvt.amv_category_varray_type();
133 elsif a0 is not null and a0.count > 0 then
134 if a0.count > 0 then
135 t := amv_category_pvt.amv_category_varray_type();
136 t.extend(a0.count);
137 indx := a0.first;
138 ddindx := 1;
139 while true loop
140 t(ddindx).category_id := rosetta_g_miss_num_map(a0(indx));
141 t(ddindx).object_version_number := rosetta_g_miss_num_map(a1(indx));
142 t(ddindx).parent_category_id := rosetta_g_miss_num_map(a2(indx));
143 t(ddindx).category_order := rosetta_g_miss_num_map(a3(indx));
144 t(ddindx).channel_count := rosetta_g_miss_num_map(a4(indx));
145 t(ddindx).category_name := a5(indx);
146 t(ddindx).description := a6(indx);
147 t(ddindx).count := rosetta_g_miss_num_map(a7(indx));
148 ddindx := ddindx+1;
149 if a0.last =indx
150 then exit;
151 end if;
152 indx := a0.next(indx);
153 end loop;
154 end if;
155 end if;
156 end rosetta_table_copy_in_p7;
157 procedure rosetta_table_copy_out_p7(t amv_category_pvt.amv_category_varray_type, a0 out nocopy JTF_NUMBER_TABLE
158 , a1 out nocopy JTF_NUMBER_TABLE
159 , a2 out nocopy JTF_NUMBER_TABLE
160 , a3 out nocopy JTF_NUMBER_TABLE
161 , a4 out nocopy JTF_NUMBER_TABLE
162 , a5 out nocopy JTF_VARCHAR2_TABLE_100
163 , a6 out nocopy JTF_VARCHAR2_TABLE_2000
164 , a7 out nocopy JTF_NUMBER_TABLE
165 ) as
166 ddindx binary_integer; indx binary_integer;
167 begin
168 if t is null then
169 a0 := null;
170 a1 := null;
171 a2 := null;
172 a3 := null;
173 a4 := null;
174 a5 := null;
175 a6 := null;
176 a7 := null;
177 elsif t.count = 0 then
178 a0 := JTF_NUMBER_TABLE();
179 a1 := JTF_NUMBER_TABLE();
180 a2 := JTF_NUMBER_TABLE();
181 a3 := JTF_NUMBER_TABLE();
182 a4 := JTF_NUMBER_TABLE();
183 a5 := JTF_VARCHAR2_TABLE_100();
184 a6 := JTF_VARCHAR2_TABLE_2000();
185 a7 := JTF_NUMBER_TABLE();
186 else
187 a0 := JTF_NUMBER_TABLE();
188 a1 := JTF_NUMBER_TABLE();
189 a2 := JTF_NUMBER_TABLE();
190 a3 := JTF_NUMBER_TABLE();
191 a4 := JTF_NUMBER_TABLE();
192 a5 := JTF_VARCHAR2_TABLE_100();
193 a6 := JTF_VARCHAR2_TABLE_2000();
194 a7 := JTF_NUMBER_TABLE();
195 if t.count > 0 then
196 a0.extend(t.count);
197 a1.extend(t.count);
198 a2.extend(t.count);
199 a3.extend(t.count);
200 a4.extend(t.count);
201 a5.extend(t.count);
202 a6.extend(t.count);
203 a7.extend(t.count);
204 ddindx := t.first;
205 indx := 1;
206 while true loop
207 a0(indx) := rosetta_g_miss_num_map(t(ddindx).category_id);
208 a1(indx) := rosetta_g_miss_num_map(t(ddindx).object_version_number);
209 a2(indx) := rosetta_g_miss_num_map(t(ddindx).parent_category_id);
210 a3(indx) := rosetta_g_miss_num_map(t(ddindx).category_order);
211 a4(indx) := rosetta_g_miss_num_map(t(ddindx).channel_count);
212 a5(indx) := t(ddindx).category_name;
213 a6(indx) := t(ddindx).description;
214 a7(indx) := rosetta_g_miss_num_map(t(ddindx).count);
215 indx := indx+1;
216 if t.last =ddindx
217 then exit;
218 end if;
219 ddindx := t.next(ddindx);
220 end loop;
221 end if;
222 end if;
223 end rosetta_table_copy_out_p7;
224
225 procedure rosetta_table_copy_in_p10(t out nocopy amv_category_pvt.amv_cat_hierarchy_varray_type, a0 JTF_NUMBER_TABLE
226 , a1 JTF_NUMBER_TABLE
227 , a2 JTF_VARCHAR2_TABLE_300
228 ) as
229 ddindx binary_integer; indx binary_integer;
230 begin
231 if a0 is not null and a0.count=0 then
232 t := amv_category_pvt.amv_cat_hierarchy_varray_type();
233 elsif a0 is not null and a0.count > 0 then
234 if a0.count > 0 then
235 t := amv_category_pvt.amv_cat_hierarchy_varray_type();
236 t.extend(a0.count);
237 indx := a0.first;
238 ddindx := 1;
239 while true loop
240 t(ddindx).hierarchy_level := rosetta_g_miss_num_map(a0(indx));
241 t(ddindx).id := rosetta_g_miss_num_map(a1(indx));
242 t(ddindx).name := a2(indx);
243 ddindx := ddindx+1;
244 if a0.last =indx
245 then exit;
246 end if;
247 indx := a0.next(indx);
248 end loop;
249 end if;
250 end if;
251 end rosetta_table_copy_in_p10;
252 procedure rosetta_table_copy_out_p10(t amv_category_pvt.amv_cat_hierarchy_varray_type, a0 out nocopy JTF_NUMBER_TABLE
253 , a1 out nocopy JTF_NUMBER_TABLE
254 , a2 out nocopy JTF_VARCHAR2_TABLE_300
255 ) as
256 ddindx binary_integer; indx binary_integer;
257 begin
258 if t is null then
259 a0 := null;
260 a1 := null;
261 a2 := null;
262 elsif t.count = 0 then
263 a0 := JTF_NUMBER_TABLE();
264 a1 := JTF_NUMBER_TABLE();
265 a2 := JTF_VARCHAR2_TABLE_300();
266 else
267 a0 := JTF_NUMBER_TABLE();
268 a1 := JTF_NUMBER_TABLE();
269 a2 := JTF_VARCHAR2_TABLE_300();
270 if t.count > 0 then
271 a0.extend(t.count);
272 a1.extend(t.count);
273 a2.extend(t.count);
274 ddindx := t.first;
275 indx := 1;
276 while true loop
277 a0(indx) := rosetta_g_miss_num_map(t(ddindx).hierarchy_level);
278 a1(indx) := rosetta_g_miss_num_map(t(ddindx).id);
279 a2(indx) := t(ddindx).name;
280 indx := indx+1;
281 if t.last =ddindx
282 then exit;
283 end if;
284 ddindx := t.next(ddindx);
285 end loop;
286 end if;
287 end if;
288 end rosetta_table_copy_out_p10;
289
290 procedure reorder_category(p_api_version NUMBER
291 , p_init_msg_list VARCHAR2
292 , p_commit VARCHAR2
293 , p_validation_level NUMBER
294 , x_return_status out nocopy VARCHAR2
295 , x_msg_count out nocopy NUMBER
296 , x_msg_data out nocopy VARCHAR2
297 , p_check_login_user VARCHAR2
298 , p_application_id NUMBER
299 , p_category_id_array JTF_NUMBER_TABLE
300 , p_category_new_order JTF_NUMBER_TABLE
301 )
302
303 as
304 ddp_category_id_array amv_category_pvt.amv_number_varray_type;
305 ddp_category_new_order amv_category_pvt.amv_number_varray_type;
306 ddindx binary_integer; indx binary_integer;
307 begin
308
309 -- copy data to the local IN or IN-OUT args, if any
310
311
312
313
314
315
316
317
318
319 amv_category_pvt_w.rosetta_table_copy_in_p3(ddp_category_id_array, p_category_id_array);
320
321 amv_category_pvt_w.rosetta_table_copy_in_p3(ddp_category_new_order, p_category_new_order);
322
323 -- here's the delegated call to the old PL/SQL routine
324 amv_category_pvt.reorder_category(p_api_version,
325 p_init_msg_list,
326 p_commit,
327 p_validation_level,
328 x_return_status,
329 x_msg_count,
330 x_msg_data,
331 p_check_login_user,
332 p_application_id,
333 ddp_category_id_array,
334 ddp_category_new_order);
335
336 -- copy data back from the local variables to OUT or IN-OUT args, if any
337
338
339
340
341
342
343
344
345
346
347 end;
348
349 procedure find_categories(p_api_version NUMBER
350 , p_init_msg_list VARCHAR2
351 , p_validation_level NUMBER
352 , x_return_status out nocopy VARCHAR2
353 , x_msg_count out nocopy NUMBER
354 , x_msg_data out nocopy VARCHAR2
355 , p_check_login_user VARCHAR2
356 , p_application_id NUMBER
357 , p_category_name VARCHAR2
358 , p_parent_category_id NUMBER
359 , p_parent_category_name VARCHAR2
360 , p_ignore_hierarchy VARCHAR2
361 , p13_a0 out nocopy NUMBER
362 , p13_a1 out nocopy NUMBER
363 , p13_a2 out nocopy NUMBER
364 , p14_a0 out nocopy JTF_NUMBER_TABLE
365 , p14_a1 out nocopy JTF_NUMBER_TABLE
366 , p14_a2 out nocopy JTF_NUMBER_TABLE
367 , p14_a3 out nocopy JTF_NUMBER_TABLE
368 , p14_a4 out nocopy JTF_NUMBER_TABLE
369 , p14_a5 out nocopy JTF_VARCHAR2_TABLE_100
370 , p14_a6 out nocopy JTF_VARCHAR2_TABLE_2000
371 , p14_a7 out nocopy JTF_NUMBER_TABLE
372 , p12_a0 NUMBER := 0-1962.0724
373 , p12_a1 NUMBER := 0-1962.0724
374 , p12_a2 VARCHAR2 := fnd_api.g_miss_char
375 )
376
377 as
378 ddp_request_obj amv_category_pvt.amv_request_obj_type;
379 ddx_return_obj amv_category_pvt.amv_return_obj_type;
380 ddx_chan_category_rec_array amv_category_pvt.amv_category_varray_type;
381 ddindx binary_integer; indx binary_integer;
382 begin
383
384 -- copy data to the local IN or IN-OUT args, if any
385
386
387
388
389
390
391
392
393
394
395
396
397 ddp_request_obj.records_requested := rosetta_g_miss_num_map(p12_a0);
398 ddp_request_obj.start_record_position := rosetta_g_miss_num_map(p12_a1);
399 ddp_request_obj.return_total_count_flag := p12_a2;
400
401
402
403 -- here's the delegated call to the old PL/SQL routine
404 amv_category_pvt.find_categories(p_api_version,
405 p_init_msg_list,
406 p_validation_level,
407 x_return_status,
408 x_msg_count,
409 x_msg_data,
410 p_check_login_user,
411 p_application_id,
412 p_category_name,
413 p_parent_category_id,
414 p_parent_category_name,
415 p_ignore_hierarchy,
416 ddp_request_obj,
417 ddx_return_obj,
418 ddx_chan_category_rec_array);
419
420 -- copy data back from the local variables to OUT or IN-OUT args, if any
421
422
423
424
425
426
427
428
429
430
431
432
433
434 p13_a0 := rosetta_g_miss_num_map(ddx_return_obj.returned_record_count);
435 p13_a1 := rosetta_g_miss_num_map(ddx_return_obj.next_record_position);
436 p13_a2 := rosetta_g_miss_num_map(ddx_return_obj.total_record_count);
437
438 amv_category_pvt_w.rosetta_table_copy_out_p7(ddx_chan_category_rec_array, p14_a0
439 , p14_a1
440 , p14_a2
441 , p14_a3
442 , p14_a4
443 , p14_a5
444 , p14_a6
445 , p14_a7
446 );
447 end;
448
449 procedure get_channelspercategory(p_api_version NUMBER
450 , p_init_msg_list VARCHAR2
451 , p_validation_level NUMBER
452 , x_return_status out nocopy VARCHAR2
456 , p_category_id NUMBER
453 , x_msg_count out nocopy NUMBER
454 , x_msg_data out nocopy VARCHAR2
455 , p_check_login_user VARCHAR2
457 , p_include_subcats VARCHAR2
458 , p9_a0 out nocopy JTF_NUMBER_TABLE
459 , p9_a1 out nocopy JTF_NUMBER_TABLE
460 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_300
461 )
462
463 as
464 ddx_content_chan_array amv_category_pvt.amv_cat_hierarchy_varray_type;
465 ddindx binary_integer; indx binary_integer;
466 begin
467
468 -- copy data to the local IN or IN-OUT args, if any
469
470
471
472
473
474
475
476
477
478
479 -- here's the delegated call to the old PL/SQL routine
480 amv_category_pvt.get_channelspercategory(p_api_version,
481 p_init_msg_list,
482 p_validation_level,
483 x_return_status,
484 x_msg_count,
485 x_msg_data,
486 p_check_login_user,
487 p_category_id,
488 p_include_subcats,
489 ddx_content_chan_array);
490
491 -- copy data back from the local variables to OUT or IN-OUT args, if any
492
493
494
495
496
497
498
499
500
501 amv_category_pvt_w.rosetta_table_copy_out_p10(ddx_content_chan_array, p9_a0
502 , p9_a1
503 , p9_a2
504 );
505 end;
506
507 procedure get_itemspercategory(p_api_version NUMBER
508 , p_init_msg_list VARCHAR2
509 , p_validation_level NUMBER
510 , x_return_status out nocopy VARCHAR2
511 , x_msg_count out nocopy NUMBER
512 , x_msg_data out nocopy VARCHAR2
513 , p_check_login_user VARCHAR2
514 , p_category_id NUMBER
515 , p_include_subcats VARCHAR2
516 , p9_a0 out nocopy JTF_NUMBER_TABLE
517 , p9_a1 out nocopy JTF_NUMBER_TABLE
518 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_300
519 )
520
521 as
522 ddx_items_array amv_category_pvt.amv_cat_hierarchy_varray_type;
523 ddindx binary_integer; indx binary_integer;
524 begin
525
526 -- copy data to the local IN or IN-OUT args, if any
527
528
529
530
531
532
533
534
535
536
537 -- here's the delegated call to the old PL/SQL routine
538 amv_category_pvt.get_itemspercategory(p_api_version,
539 p_init_msg_list,
540 p_validation_level,
541 x_return_status,
542 x_msg_count,
543 x_msg_data,
544 p_check_login_user,
545 p_category_id,
546 p_include_subcats,
547 ddx_items_array);
548
549 -- copy data back from the local variables to OUT or IN-OUT args, if any
550
551
552
553
554
555
556
557
558
559 amv_category_pvt_w.rosetta_table_copy_out_p10(ddx_items_array, p9_a0
560 , p9_a1
561 , p9_a2
562 );
563 end;
564
565 procedure get_itemspercategory(p_api_version NUMBER
566 , p_init_msg_list VARCHAR2
567 , p_validation_level NUMBER
568 , x_return_status out nocopy VARCHAR2
569 , x_msg_count out nocopy NUMBER
570 , x_msg_data out nocopy VARCHAR2
571 , p_check_login_user VARCHAR2
572 , p_category_id NUMBER
573 , p_include_subcats VARCHAR2
574 , p11_a0 out nocopy NUMBER
575 , p11_a1 out nocopy NUMBER
576 , p11_a2 out nocopy NUMBER
577 , p12_a0 out nocopy JTF_NUMBER_TABLE
578 , p12_a1 out nocopy JTF_NUMBER_TABLE
579 , p12_a2 out nocopy JTF_VARCHAR2_TABLE_300
580 , p9_a0 NUMBER := 0-1962.0724
581 , p9_a1 NUMBER := 0-1962.0724
582 , p9_a2 VARCHAR2 := fnd_api.g_miss_char
583 , p10_a0 VARCHAR2 := fnd_api.g_miss_char
584 , p10_a1 VARCHAR2 := fnd_api.g_miss_char
585 )
586
587 as
588 ddp_request_obj amv_category_pvt.amv_request_obj_type;
589 ddp_category_sort amv_category_pvt.amv_sort_obj_type;
590 ddx_return_obj amv_category_pvt.amv_return_obj_type;
591 ddx_items_array amv_category_pvt.amv_cat_hierarchy_varray_type;
592 ddindx binary_integer; indx binary_integer;
593 begin
594
595 -- copy data to the local IN or IN-OUT args, if any
596
597
598
599
600
601
602
603
604
605 ddp_request_obj.records_requested := rosetta_g_miss_num_map(p9_a0);
606 ddp_request_obj.start_record_position := rosetta_g_miss_num_map(p9_a1);
607 ddp_request_obj.return_total_count_flag := p9_a2;
608
609 ddp_category_sort.sort_col := p10_a0;
610 ddp_category_sort.sort_dir := p10_a1;
611
612
613
614 -- here's the delegated call to the old PL/SQL routine
615 amv_category_pvt.get_itemspercategory(p_api_version,
616 p_init_msg_list,
617 p_validation_level,
618 x_return_status,
619 x_msg_count,
620 x_msg_data,
621 p_check_login_user,
622 p_category_id,
623 p_include_subcats,
624 ddp_request_obj,
625 ddp_category_sort,
626 ddx_return_obj,
627 ddx_items_array);
628
632
629 -- copy data back from the local variables to OUT or IN-OUT args, if any
630
631
633
634
635
636
637
638
639
640
641 p11_a0 := rosetta_g_miss_num_map(ddx_return_obj.returned_record_count);
642 p11_a1 := rosetta_g_miss_num_map(ddx_return_obj.next_record_position);
643 p11_a2 := rosetta_g_miss_num_map(ddx_return_obj.total_record_count);
644
645 amv_category_pvt_w.rosetta_table_copy_out_p10(ddx_items_array, p12_a0
646 , p12_a1
647 , p12_a2
648 );
649 end;
650
651 procedure get_catparentshierarchy(p_api_version NUMBER
652 , p_init_msg_list VARCHAR2
653 , p_validation_level NUMBER
654 , x_return_status out nocopy VARCHAR2
655 , x_msg_count out nocopy NUMBER
656 , x_msg_data out nocopy VARCHAR2
657 , p_check_login_user VARCHAR2
658 , p_category_id NUMBER
659 , p8_a0 out nocopy JTF_NUMBER_TABLE
660 , p8_a1 out nocopy JTF_NUMBER_TABLE
661 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_300
662 )
663
664 as
665 ddx_category_hierarchy amv_category_pvt.amv_cat_hierarchy_varray_type;
666 ddindx binary_integer; indx binary_integer;
667 begin
668
669 -- copy data to the local IN or IN-OUT args, if any
670
671
672
673
674
675
676
677
678
679 -- here's the delegated call to the old PL/SQL routine
680 amv_category_pvt.get_catparentshierarchy(p_api_version,
681 p_init_msg_list,
682 p_validation_level,
683 x_return_status,
684 x_msg_count,
685 x_msg_data,
686 p_check_login_user,
687 p_category_id,
688 ddx_category_hierarchy);
689
690 -- copy data back from the local variables to OUT or IN-OUT args, if any
691
692
693
694
695
696
697
698
699 amv_category_pvt_w.rosetta_table_copy_out_p10(ddx_category_hierarchy, p8_a0
700 , p8_a1
701 , p8_a2
702 );
703 end;
704
705 procedure get_catchildrenhierarchy(p_api_version NUMBER
706 , p_init_msg_list VARCHAR2
707 , p_validation_level NUMBER
708 , x_return_status out nocopy VARCHAR2
709 , x_msg_count out nocopy NUMBER
710 , x_msg_data out nocopy VARCHAR2
711 , p_check_login_user VARCHAR2
712 , p_category_id NUMBER
713 , p8_a0 out nocopy JTF_NUMBER_TABLE
714 , p8_a1 out nocopy JTF_NUMBER_TABLE
715 , p8_a2 out nocopy JTF_VARCHAR2_TABLE_300
716 )
717
718 as
719 ddx_category_hierarchy amv_category_pvt.amv_cat_hierarchy_varray_type;
720 ddindx binary_integer; indx binary_integer;
721 begin
722
723 -- copy data to the local IN or IN-OUT args, if any
724
725
726
727
728
729
730
731
732
733 -- here's the delegated call to the old PL/SQL routine
734 amv_category_pvt.get_catchildrenhierarchy(p_api_version,
735 p_init_msg_list,
736 p_validation_level,
737 x_return_status,
738 x_msg_count,
739 x_msg_data,
740 p_check_login_user,
741 p_category_id,
742 ddx_category_hierarchy);
743
744 -- copy data back from the local variables to OUT or IN-OUT args, if any
745
746
747
748
749
750
751
752
753 amv_category_pvt_w.rosetta_table_copy_out_p10(ddx_category_hierarchy, p8_a0
754 , p8_a1
755 , p8_a2
756 );
757 end;
758
759 procedure get_chncategoryhierarchy(p_api_version NUMBER
760 , p_init_msg_list VARCHAR2
761 , p_validation_level NUMBER
762 , x_return_status out nocopy VARCHAR2
763 , x_msg_count out nocopy NUMBER
764 , x_msg_data out nocopy VARCHAR2
765 , p_check_login_user VARCHAR2
766 , p_channel_id NUMBER
767 , x_channel_name out nocopy VARCHAR2
768 , p9_a0 out nocopy JTF_NUMBER_TABLE
769 , p9_a1 out nocopy JTF_NUMBER_TABLE
770 , p9_a2 out nocopy JTF_VARCHAR2_TABLE_300
771 )
772
773 as
774 ddx_category_hierarchy amv_category_pvt.amv_cat_hierarchy_varray_type;
775 ddindx binary_integer; indx binary_integer;
776 begin
777
778 -- copy data to the local IN or IN-OUT args, if any
779
780
781
782
783
784
785
786
787
788
789 -- here's the delegated call to the old PL/SQL routine
790 amv_category_pvt.get_chncategoryhierarchy(p_api_version,
791 p_init_msg_list,
792 p_validation_level,
793 x_return_status,
794 x_msg_count,
795 x_msg_data,
796 p_check_login_user,
797 p_channel_id,
798 x_channel_name,
799 ddx_category_hierarchy);
800
801 -- copy data back from the local variables to OUT or IN-OUT args, if any
802
803
804
805
806
807
808
809
810
811 amv_category_pvt_w.rosetta_table_copy_out_p10(ddx_category_hierarchy, p9_a0
812 , p9_a1
813 , p9_a2
814 );
815 end;
816
817 end amv_category_pvt_w;