[Home] [Help]
1: package body ahl_rm_rt_oper_resource_pvt_w as
2: /* $Header: AHLWRORB.pls 120.1.12010000.2 2008/12/29 14:23:26 bachandr 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_p1(t out nocopy ahl_rm_rt_oper_resource_pvt.rt_oper_resource_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
111: end loop;
112: end if;
113: end if;
114: end rosetta_table_copy_in_p1;
115: procedure rosetta_table_copy_out_p1(t ahl_rm_rt_oper_resource_pvt.rt_oper_resource_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
116: , a1 out nocopy JTF_NUMBER_TABLE
117: , a2 out nocopy JTF_DATE_TABLE
118: , a3 out nocopy JTF_NUMBER_TABLE
119: , a4 out nocopy JTF_DATE_TABLE
335: end if;
336: end if;
337: end rosetta_table_copy_out_p1;
338:
339: procedure rosetta_table_copy_in_p4(t out nocopy ahl_rm_rt_oper_resource_pvt.alt_resource_tbl_type, a0 JTF_NUMBER_TABLE
340: , a1 JTF_NUMBER_TABLE
341: , a2 JTF_DATE_TABLE
342: , a3 JTF_NUMBER_TABLE
343: , a4 JTF_DATE_TABLE
408: end loop;
409: end if;
410: end if;
411: end rosetta_table_copy_in_p4;
412: procedure rosetta_table_copy_out_p4(t ahl_rm_rt_oper_resource_pvt.alt_resource_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
413: , a1 out nocopy JTF_NUMBER_TABLE
414: , a2 out nocopy JTF_DATE_TABLE
415: , a3 out nocopy JTF_NUMBER_TABLE
416: , a4 out nocopy JTF_DATE_TABLE
622: , p_object_id NUMBER
623: )
624:
625: as
626: ddp_x_rt_oper_resource_tbl ahl_rm_rt_oper_resource_pvt.rt_oper_resource_tbl_type;
627: ddindx binary_integer; indx binary_integer;
628: begin
629:
630: -- copy data to the local IN or IN-OUT args, if any
636:
637:
638:
639:
640: ahl_rm_rt_oper_resource_pvt_w.rosetta_table_copy_in_p1(ddp_x_rt_oper_resource_tbl, p9_a0
641: , p9_a1
642: , p9_a2
643: , p9_a3
644: , p9_a4
682:
683:
684:
685: -- here's the delegated call to the old PL/SQL routine
686: ahl_rm_rt_oper_resource_pvt.process_rt_oper_resource(p_api_version,
687: p_init_msg_list,
688: p_commit,
689: p_validation_level,
690: p_default,
705:
706:
707:
708:
709: ahl_rm_rt_oper_resource_pvt_w.rosetta_table_copy_out_p1(ddp_x_rt_oper_resource_tbl, p9_a0
710: , p9_a1
711: , p9_a2
712: , p9_a3
713: , p9_a4
775: , p9_a11 in out nocopy VARCHAR2
776: )
777:
778: as
779: ddp_x_rt_oper_cost_rec ahl_rm_rt_oper_resource_pvt.rt_oper_cost_rec_type;
780: ddindx binary_integer; indx binary_integer;
781: begin
782:
783: -- copy data to the local IN or IN-OUT args, if any
803: ddp_x_rt_oper_cost_rec.standard_rate_flag := p9_a10;
804: ddp_x_rt_oper_cost_rec.standard_rate := p9_a11;
805:
806: -- here's the delegated call to the old PL/SQL routine
807: ahl_rm_rt_oper_resource_pvt.define_cost_parameter(p_api_version,
808: p_init_msg_list,
809: p_commit,
810: p_validation_level,
811: p_default,
879: , p10_a27 in out nocopy JTF_VARCHAR2_TABLE_100
880: )
881:
882: as
883: ddp_x_alt_resource_tbl ahl_rm_rt_oper_resource_pvt.alt_resource_tbl_type;
884: ddindx binary_integer; indx binary_integer;
885: begin
886:
887: -- copy data to the local IN or IN-OUT args, if any
894:
895:
896:
897:
898: ahl_rm_rt_oper_resource_pvt_w.rosetta_table_copy_in_p4(ddp_x_alt_resource_tbl, p10_a0
899: , p10_a1
900: , p10_a2
901: , p10_a3
902: , p10_a4
925: , p10_a27
926: );
927:
928: -- here's the delegated call to the old PL/SQL routine
929: ahl_rm_rt_oper_resource_pvt.process_alternate_resource(p_api_version,
930: p_init_msg_list,
931: p_commit,
932: p_validation_level,
933: p_default,
948:
949:
950:
951:
952: ahl_rm_rt_oper_resource_pvt_w.rosetta_table_copy_out_p4(ddp_x_alt_resource_tbl, p10_a0
953: , p10_a1
954: , p10_a2
955: , p10_a3
956: , p10_a4
979: , p10_a27
980: );
981: end;
982:
983: end ahl_rm_rt_oper_resource_pvt_w;