[Home] [Help]
1: package body ahl_ltp_matrl_aval_pub_w as
2: /* $Header: AHLWMTAB.pls 120.2 2008/02/25 11:36:54 rnahata 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: rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
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_p3(t out nocopy ahl_ltp_matrl_aval_pub.material_availability_tbl, a0 JTF_NUMBER_TABLE
17: , a1 JTF_NUMBER_TABLE
18: , a2 JTF_NUMBER_TABLE
19: , a3 JTF_VARCHAR2_TABLE_100
20: , a4 JTF_NUMBER_TABLE
67: end loop;
68: end if;
69: end if;
70: end rosetta_table_copy_in_p3;
71: procedure rosetta_table_copy_out_p3(t ahl_ltp_matrl_aval_pub.material_availability_tbl, a0 out nocopy JTF_NUMBER_TABLE
72: , a1 out nocopy JTF_NUMBER_TABLE
73: , a2 out nocopy JTF_NUMBER_TABLE
74: , a3 out nocopy JTF_VARCHAR2_TABLE_100
75: , a4 out nocopy JTF_NUMBER_TABLE
181: end if;
182: end if;
183: end rosetta_table_copy_out_p3;
184:
185: procedure rosetta_table_copy_in_p4(t out nocopy ahl_ltp_matrl_aval_pub.task_req_matrl_tbl, a0 JTF_NUMBER_TABLE
186: , a1 JTF_NUMBER_TABLE
187: , a2 JTF_NUMBER_TABLE
188: , a3 JTF_VARCHAR2_TABLE_100
189: , a4 JTF_VARCHAR2_TABLE_100
230: end loop;
231: end if;
232: end if;
233: end rosetta_table_copy_in_p4;
234: procedure rosetta_table_copy_out_p4(t ahl_ltp_matrl_aval_pub.task_req_matrl_tbl, a0 out nocopy JTF_NUMBER_TABLE
235: , a1 out nocopy JTF_NUMBER_TABLE
236: , a2 out nocopy JTF_NUMBER_TABLE
237: , a3 out nocopy JTF_VARCHAR2_TABLE_100
238: , a4 out nocopy JTF_VARCHAR2_TABLE_100
329: end if;
330: end if;
331: end rosetta_table_copy_out_p4;
332:
333: procedure rosetta_table_copy_in_p5(t out nocopy ahl_ltp_matrl_aval_pub.planned_matrl_tbl, a0 JTF_NUMBER_TABLE
334: , a1 JTF_NUMBER_TABLE
335: , a2 JTF_NUMBER_TABLE
336: , a3 JTF_VARCHAR2_TABLE_100
337: , a4 JTF_NUMBER_TABLE
386: end loop;
387: end if;
388: end if;
389: end rosetta_table_copy_in_p5;
390: procedure rosetta_table_copy_out_p5(t ahl_ltp_matrl_aval_pub.planned_matrl_tbl, a0 out nocopy JTF_NUMBER_TABLE
391: , a1 out nocopy JTF_NUMBER_TABLE
392: , a2 out nocopy JTF_NUMBER_TABLE
393: , a3 out nocopy JTF_VARCHAR2_TABLE_100
394: , a4 out nocopy JTF_NUMBER_TABLE
535: , x_msg_data out nocopy VARCHAR2
536: )
537:
538: as
539: ddp_x_material_avl_tbl ahl_ltp_matrl_aval_pub.material_availability_tbl;
540: ddindx binary_integer; indx binary_integer;
541: begin
542:
543: -- copy data to the local IN or IN-OUT args, if any
545:
546:
547:
548:
549: ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_in_p3(ddp_x_material_avl_tbl, p5_a0
550: , p5_a1
551: , p5_a2
552: , p5_a3
553: , p5_a4
570:
571:
572:
573: -- here's the delegated call to the old PL/SQL routine
574: ahl_ltp_matrl_aval_pub.check_material_aval(p_api_version,
575: p_init_msg_list,
576: p_commit,
577: p_validation_level,
578: p_module_type,
586:
587:
588:
589:
590: ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_out_p3(ddp_x_material_avl_tbl, p5_a0
591: , p5_a1
592: , p5_a2
593: , p5_a3
594: , p5_a4
639: , x_msg_data out nocopy VARCHAR2
640: )
641:
642: as
643: ddx_task_req_matrl_tbl ahl_ltp_matrl_aval_pub.task_req_matrl_tbl;
644: ddindx binary_integer; indx binary_integer;
645: begin
646:
647: -- copy data to the local IN or IN-OUT args, if any
655:
656:
657:
658: -- here's the delegated call to the old PL/SQL routine
659: ahl_ltp_matrl_aval_pub.get_visit_task_materials(p_api_version,
660: p_init_msg_list,
661: p_commit,
662: p_validation_level,
663: p_module_type,
673:
674:
675:
676:
677: ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_out_p4(ddx_task_req_matrl_tbl, p6_a0
678: , p6_a1
679: , p6_a2
680: , p6_a3
681: , p6_a4
726: , x_msg_data out nocopy VARCHAR2
727: )
728:
729: as
730: ddx_task_matrl_aval_tbl ahl_ltp_matrl_aval_pub.material_availability_tbl;
731: ddindx binary_integer; indx binary_integer;
732: begin
733:
734: -- copy data to the local IN or IN-OUT args, if any
742:
743:
744:
745: -- here's the delegated call to the old PL/SQL routine
746: ahl_ltp_matrl_aval_pub.check_materials_for_all(p_api_version,
747: p_init_msg_list,
748: p_commit,
749: p_validation_level,
750: p_module_type,
760:
761:
762:
763:
764: ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_out_p3(ddx_task_matrl_aval_tbl, p6_a0
765: , p6_a1
766: , p6_a2
767: , p6_a3
768: , p6_a4
816: , x_msg_data out nocopy VARCHAR2
817: )
818:
819: as
820: ddp_x_planned_matrl_tbl ahl_ltp_matrl_aval_pub.planned_matrl_tbl;
821: ddindx binary_integer; indx binary_integer;
822: begin
823:
824: -- copy data to the local IN or IN-OUT args, if any
826:
827:
828:
829:
830: ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_in_p5(ddp_x_planned_matrl_tbl, p5_a0
831: , p5_a1
832: , p5_a2
833: , p5_a3
834: , p5_a4
852:
853:
854:
855: -- here's the delegated call to the old PL/SQL routine
856: ahl_ltp_matrl_aval_pub.schedule_planned_matrls(p_api_version,
857: p_init_msg_list,
858: p_commit,
859: p_validation_level,
860: p_module_type,
868:
869:
870:
871:
872: ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_out_p5(ddp_x_planned_matrl_tbl, p5_a0
873: , p5_a1
874: , p5_a2
875: , p5_a3
876: , p5_a4
926: , x_msg_data out nocopy VARCHAR2
927: )
928:
929: as
930: ddx_planned_matrl_tbl ahl_ltp_matrl_aval_pub.planned_matrl_tbl;
931: ddindx binary_integer; indx binary_integer;
932: begin
933:
934: -- copy data to the local IN or IN-OUT args, if any
942:
943:
944:
945: -- here's the delegated call to the old PL/SQL routine
946: ahl_ltp_matrl_aval_pub.schedule_all_materials(p_api_version,
947: p_init_msg_list,
948: p_commit,
949: p_validation_level,
950: p_module_type,
960:
961:
962:
963:
964: ahl_ltp_matrl_aval_pub_w.rosetta_table_copy_out_p5(ddx_planned_matrl_tbl, p6_a0
965: , p6_a1
966: , p6_a2
967: , p6_a3
968: , p6_a4
986:
987:
988: end;
989:
990: end ahl_ltp_matrl_aval_pub_w;