[Home] [Help]
1: package body jtf_menu_pub_w as
2: /* $Header: jtfmenwb.pls 120.2 2005/10/25 05:23:26 psanyal 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:
18: if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19: return d;
20: end;
21:
22: procedure rosetta_table_copy_in_p3(t OUT NOCOPY /* file.sql.39 change */ jtf_menu_pub.menu_table, a0 JTF_NUMBER_TABLE
23: , a1 JTF_VARCHAR2_TABLE_100
24: , a2 JTF_VARCHAR2_TABLE_300
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_VARCHAR2_TABLE_100
73: end loop;
74: end if;
75: end if;
76: end rosetta_table_copy_in_p3;
77: procedure rosetta_table_copy_out_p3(t jtf_menu_pub.menu_table, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
78: , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
79: , a2 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
80: , a3 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
81: , a4 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
187: end if;
188: end if;
189: end rosetta_table_copy_out_p3;
190:
191: procedure rosetta_table_copy_in_p4(t OUT NOCOPY /* file.sql.39 change */ jtf_menu_pub.number_table, a0 JTF_NUMBER_TABLE) as
192: ddindx binary_integer; indx binary_integer;
193: begin
194: if a0 is not null and a0.count > 0 then
195: if a0.count > 0 then
205: end loop;
206: end if;
207: end if;
208: end rosetta_table_copy_in_p4;
209: procedure rosetta_table_copy_out_p4(t jtf_menu_pub.number_table, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE) as
210: ddindx binary_integer; indx binary_integer;
211: begin
212: if t is null or t.count = 0 then
213: a0 := JTF_NUMBER_TABLE();
228: end if;
229: end if;
230: end rosetta_table_copy_out_p4;
231:
232: procedure rosetta_table_copy_in_p5(t OUT NOCOPY /* file.sql.39 change */ jtf_menu_pub.responsibility_table, a0 JTF_NUMBER_TABLE
233: , a1 JTF_VARCHAR2_TABLE_100
234: ) as
235: ddindx binary_integer; indx binary_integer;
236: begin
249: end loop;
250: end if;
251: end if;
252: end rosetta_table_copy_in_p5;
253: procedure rosetta_table_copy_out_p5(t jtf_menu_pub.responsibility_table, a0 OUT NOCOPY /* file.sql.39 change */ JTF_NUMBER_TABLE
254: , a1 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_100
255: ) as
256: ddindx binary_integer; indx binary_integer;
257: begin
330: , p8_a18 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
331: )
332:
333: as
334: ddp_responsibility_table jtf_menu_pub.responsibility_table;
335: ddp_root_menu_data jtf_menu_pub.root_menu_data;
336: ddp_root_menu_table jtf_menu_pub.menu_table;
337: ddp_kids_menu_ids jtf_menu_pub.number_table;
338: ddp_kids_menu_data jtf_menu_pub.menu_table;
331: )
332:
333: as
334: ddp_responsibility_table jtf_menu_pub.responsibility_table;
335: ddp_root_menu_data jtf_menu_pub.root_menu_data;
336: ddp_root_menu_table jtf_menu_pub.menu_table;
337: ddp_kids_menu_ids jtf_menu_pub.number_table;
338: ddp_kids_menu_data jtf_menu_pub.menu_table;
339: ddindx binary_integer; indx binary_integer;
332:
333: as
334: ddp_responsibility_table jtf_menu_pub.responsibility_table;
335: ddp_root_menu_data jtf_menu_pub.root_menu_data;
336: ddp_root_menu_table jtf_menu_pub.menu_table;
337: ddp_kids_menu_ids jtf_menu_pub.number_table;
338: ddp_kids_menu_data jtf_menu_pub.menu_table;
339: ddindx binary_integer; indx binary_integer;
340: begin
333: as
334: ddp_responsibility_table jtf_menu_pub.responsibility_table;
335: ddp_root_menu_data jtf_menu_pub.root_menu_data;
336: ddp_root_menu_table jtf_menu_pub.menu_table;
337: ddp_kids_menu_ids jtf_menu_pub.number_table;
338: ddp_kids_menu_data jtf_menu_pub.menu_table;
339: ddindx binary_integer; indx binary_integer;
340: begin
341:
334: ddp_responsibility_table jtf_menu_pub.responsibility_table;
335: ddp_root_menu_data jtf_menu_pub.root_menu_data;
336: ddp_root_menu_table jtf_menu_pub.menu_table;
337: ddp_kids_menu_ids jtf_menu_pub.number_table;
338: ddp_kids_menu_data jtf_menu_pub.menu_table;
339: ddindx binary_integer; indx binary_integer;
340: begin
341:
342: -- copy data to the local IN or IN-OUT args, if any
349:
350:
351:
352: -- here's the delegated call to the old PL/SQL routine
353: jtf_menu_pub.get_excl_entire_menu_tree_tl(p_lang,
354: p_respid,
355: p_appid,
356: p_max_depth,
357: ddp_responsibility_table,
364:
365:
366:
367:
368: jtf_menu_pub_w.rosetta_table_copy_out_p5(ddp_responsibility_table, p4_a0
369: , p4_a1
370: );
371:
372: p5_a0 := rosetta_g_miss_num_map(ddp_root_menu_data.menu_id);
373: p5_a1 := ddp_root_menu_data.menu_name;
374: p5_a2 := ddp_root_menu_data.prompt;
375: p5_a3 := ddp_root_menu_data.description;
376:
377: jtf_menu_pub_w.rosetta_table_copy_out_p3(ddp_root_menu_table, p6_a0
378: , p6_a1
379: , p6_a2
380: , p6_a3
381: , p6_a4
394: , p6_a17
395: , p6_a18
396: );
397:
398: jtf_menu_pub_w.rosetta_table_copy_out_p4(ddp_kids_menu_ids, p_kids_menu_ids);
399:
400: jtf_menu_pub_w.rosetta_table_copy_out_p3(ddp_kids_menu_data, p8_a0
401: , p8_a1
402: , p8_a2
396: );
397:
398: jtf_menu_pub_w.rosetta_table_copy_out_p4(ddp_kids_menu_ids, p_kids_menu_ids);
399:
400: jtf_menu_pub_w.rosetta_table_copy_out_p3(ddp_kids_menu_data, p8_a0
401: , p8_a1
402: , p8_a2
403: , p8_a3
404: , p8_a4
449: , p5_a18 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
450: )
451:
452: as
453: ddp_responsibility_table jtf_menu_pub.responsibility_table;
454: ddp_root_menu_data jtf_menu_pub.root_menu_data;
455: ddp_menu_table jtf_menu_pub.menu_table;
456: ddindx binary_integer; indx binary_integer;
457: begin
450: )
451:
452: as
453: ddp_responsibility_table jtf_menu_pub.responsibility_table;
454: ddp_root_menu_data jtf_menu_pub.root_menu_data;
455: ddp_menu_table jtf_menu_pub.menu_table;
456: ddindx binary_integer; indx binary_integer;
457: begin
458:
451:
452: as
453: ddp_responsibility_table jtf_menu_pub.responsibility_table;
454: ddp_root_menu_data jtf_menu_pub.root_menu_data;
455: ddp_menu_table jtf_menu_pub.menu_table;
456: ddindx binary_integer; indx binary_integer;
457: begin
458:
459: -- copy data to the local IN or IN-OUT args, if any
463:
464:
465:
466: -- here's the delegated call to the old PL/SQL routine
467: jtf_menu_pub.get_excluded_root_menu_tl(p_lang,
468: p_respid,
469: p_appid,
470: ddp_responsibility_table,
471: ddp_root_menu_data,
474: -- copy data back from the local variables to OUT or IN-OUT args, if any
475:
476:
477:
478: jtf_menu_pub_w.rosetta_table_copy_out_p5(ddp_responsibility_table, p3_a0
479: , p3_a1
480: );
481:
482: p4_a0 := rosetta_g_miss_num_map(ddp_root_menu_data.menu_id);
483: p4_a1 := ddp_root_menu_data.menu_name;
484: p4_a2 := ddp_root_menu_data.prompt;
485: p4_a3 := ddp_root_menu_data.description;
486:
487: jtf_menu_pub_w.rosetta_table_copy_out_p3(ddp_menu_table, p5_a0
488: , p5_a1
489: , p5_a2
490: , p5_a3
491: , p5_a4
536: , p5_a18 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
537: )
538:
539: as
540: ddp_responsibility_table jtf_menu_pub.responsibility_table;
541: ddp_root_menu_data jtf_menu_pub.root_menu_data;
542: ddp_menu_table jtf_menu_pub.menu_table;
543: ddindx binary_integer; indx binary_integer;
544: begin
537: )
538:
539: as
540: ddp_responsibility_table jtf_menu_pub.responsibility_table;
541: ddp_root_menu_data jtf_menu_pub.root_menu_data;
542: ddp_menu_table jtf_menu_pub.menu_table;
543: ddindx binary_integer; indx binary_integer;
544: begin
545:
538:
539: as
540: ddp_responsibility_table jtf_menu_pub.responsibility_table;
541: ddp_root_menu_data jtf_menu_pub.root_menu_data;
542: ddp_menu_table jtf_menu_pub.menu_table;
543: ddindx binary_integer; indx binary_integer;
544: begin
545:
546: -- copy data to the local IN or IN-OUT args, if any
550:
551:
552:
553: -- here's the delegated call to the old PL/SQL routine
554: jtf_menu_pub.get_root_menu_tl(p_lang,
555: p_respid,
556: p_appid,
557: ddp_responsibility_table,
558: ddp_root_menu_data,
561: -- copy data back from the local variables to OUT or IN-OUT args, if any
562:
563:
564:
565: jtf_menu_pub_w.rosetta_table_copy_out_p5(ddp_responsibility_table, p3_a0
566: , p3_a1
567: );
568:
569: p4_a0 := rosetta_g_miss_num_map(ddp_root_menu_data.menu_id);
570: p4_a1 := ddp_root_menu_data.menu_name;
571: p4_a2 := ddp_root_menu_data.prompt;
572: p4_a3 := ddp_root_menu_data.description;
573:
574: jtf_menu_pub_w.rosetta_table_copy_out_p3(ddp_menu_table, p5_a0
575: , p5_a1
576: , p5_a2
577: , p5_a3
578: , p5_a4
622: , p4_a18 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
623: )
624:
625: as
626: ddp_responsibility_table jtf_menu_pub.responsibility_table;
627: ddp_root_menu_data jtf_menu_pub.root_menu_data;
628: ddp_menu_table jtf_menu_pub.menu_table;
629: ddindx binary_integer; indx binary_integer;
630: begin
623: )
624:
625: as
626: ddp_responsibility_table jtf_menu_pub.responsibility_table;
627: ddp_root_menu_data jtf_menu_pub.root_menu_data;
628: ddp_menu_table jtf_menu_pub.menu_table;
629: ddindx binary_integer; indx binary_integer;
630: begin
631:
624:
625: as
626: ddp_responsibility_table jtf_menu_pub.responsibility_table;
627: ddp_root_menu_data jtf_menu_pub.root_menu_data;
628: ddp_menu_table jtf_menu_pub.menu_table;
629: ddindx binary_integer; indx binary_integer;
630: begin
631:
632: -- copy data to the local IN or IN-OUT args, if any
635:
636:
637:
638: -- here's the delegated call to the old PL/SQL routine
639: jtf_menu_pub.get_root_menu(p_respid,
640: p_appid,
641: ddp_responsibility_table,
642: ddp_root_menu_data,
643: ddp_menu_table);
644:
645: -- copy data back from the local variables to OUT or IN-OUT args, if any
646:
647:
648: jtf_menu_pub_w.rosetta_table_copy_out_p5(ddp_responsibility_table, p2_a0
649: , p2_a1
650: );
651:
652: p3_a0 := rosetta_g_miss_num_map(ddp_root_menu_data.menu_id);
653: p3_a1 := ddp_root_menu_data.menu_name;
654: p3_a2 := ddp_root_menu_data.prompt;
655: p3_a3 := ddp_root_menu_data.description;
656:
657: jtf_menu_pub_w.rosetta_table_copy_out_p3(ddp_menu_table, p4_a0
658: , p4_a1
659: , p4_a2
660: , p4_a3
661: , p4_a4
701: , p4_a18 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
702: )
703:
704: as
705: ddp_menu_table jtf_menu_pub.menu_table;
706: ddindx binary_integer; indx binary_integer;
707: begin
708:
709: -- copy data to the local IN or IN-OUT args, if any
712:
713:
714:
715: -- here's the delegated call to the old PL/SQL routine
716: jtf_menu_pub.get_excluded_menu_entries_tl(p_lang,
717: p_menu_id,
718: p_respid,
719: p_appid,
720: ddp_menu_table);
723:
724:
725:
726:
727: jtf_menu_pub_w.rosetta_table_copy_out_p3(ddp_menu_table, p4_a0
728: , p4_a1
729: , p4_a2
730: , p4_a3
731: , p4_a4
769: , p2_a18 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
770: )
771:
772: as
773: ddp_menu_table jtf_menu_pub.menu_table;
774: ddindx binary_integer; indx binary_integer;
775: begin
776:
777: -- copy data to the local IN or IN-OUT args, if any
778:
779:
780:
781: -- here's the delegated call to the old PL/SQL routine
782: jtf_menu_pub.get_menu_entries_tl(p_lang,
783: p_menu_id,
784: ddp_menu_table);
785:
786: -- copy data back from the local variables to OUT or IN-OUT args, if any
785:
786: -- copy data back from the local variables to OUT or IN-OUT args, if any
787:
788:
789: jtf_menu_pub_w.rosetta_table_copy_out_p3(ddp_menu_table, p2_a0
790: , p2_a1
791: , p2_a2
792: , p2_a3
793: , p2_a4
830: , p1_a18 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
831: )
832:
833: as
834: ddp_menu_table jtf_menu_pub.menu_table;
835: ddindx binary_integer; indx binary_integer;
836: begin
837:
838: -- copy data to the local IN or IN-OUT args, if any
838: -- copy data to the local IN or IN-OUT args, if any
839:
840:
841: -- here's the delegated call to the old PL/SQL routine
842: jtf_menu_pub.get_menu_entries(p_menu_id,
843: ddp_menu_table);
844:
845: -- copy data back from the local variables to OUT or IN-OUT args, if any
846:
843: ddp_menu_table);
844:
845: -- copy data back from the local variables to OUT or IN-OUT args, if any
846:
847: jtf_menu_pub_w.rosetta_table_copy_out_p3(ddp_menu_table, p1_a0
848: , p1_a1
849: , p1_a2
850: , p1_a3
851: , p1_a4
888: , p1_a18 OUT NOCOPY /* file.sql.39 change */ JTF_VARCHAR2_TABLE_300
889: )
890:
891: as
892: ddp_menu_table jtf_menu_pub.menu_table;
893: ddindx binary_integer; indx binary_integer;
894: begin
895:
896: -- copy data to the local IN or IN-OUT args, if any
896: -- copy data to the local IN or IN-OUT args, if any
897:
898:
899: -- here's the delegated call to the old PL/SQL routine
900: jtf_menu_pub.get_func_entries(p_menu_id,
901: ddp_menu_table);
902:
903: -- copy data back from the local variables to OUT or IN-OUT args, if any
904:
901: ddp_menu_table);
902:
903: -- copy data back from the local variables to OUT or IN-OUT args, if any
904:
905: jtf_menu_pub_w.rosetta_table_copy_out_p3(ddp_menu_table, p1_a0
906: , p1_a1
907: , p1_a2
908: , p1_a3
909: , p1_a4
923: , p1_a18
924: );
925: end;
926:
927: end jtf_menu_pub_w;