[Home] [Help]
1: package body ahl_vwp_visit_cst_pr_pvt_w as
2: /* $Header: AHLWVCPB.pls 120.2.12020000.2 2012/12/11 05:56:58 prakkum 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_vwp_visit_cst_pr_pvt.cost_price_tbl_type, a0 JTF_NUMBER_TABLE
17: , a1 JTF_NUMBER_TABLE
18: , a2 JTF_NUMBER_TABLE
19: , a3 JTF_NUMBER_TABLE
20: , a4 JTF_NUMBER_TABLE
159: end loop;
160: end if;
161: end if;
162: end rosetta_table_copy_in_p1;
163: procedure rosetta_table_copy_out_p1(t ahl_vwp_visit_cst_pr_pvt.cost_price_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
164: , a1 out nocopy JTF_NUMBER_TABLE
165: , a2 out nocopy JTF_NUMBER_TABLE
166: , a3 out nocopy JTF_NUMBER_TABLE
167: , a4 out nocopy JTF_NUMBER_TABLE
579: , x_msg_data out nocopy VARCHAR2
580: )
581:
582: as
583: ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
584: ddindx binary_integer; indx binary_integer;
585: begin
586:
587: -- copy data to the local IN or IN-OUT args, if any
659:
660:
661:
662: -- here's the delegated call to the old PL/SQL routine
663: ahl_vwp_visit_cst_pr_pvt.get_visit_cost_details(p_api_version,
664: p_init_msg_list,
665: p_commit,
666: p_validation_level,
667: p_module_type,
821: , x_msg_data out nocopy VARCHAR2
822: )
823:
824: as
825: ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
826: ddindx binary_integer; indx binary_integer;
827: begin
828:
829: -- copy data to the local IN or IN-OUT args, if any
901:
902:
903:
904: -- here's the delegated call to the old PL/SQL routine
905: ahl_vwp_visit_cst_pr_pvt.estimate_visit_cost(p_api_version,
906: p_init_msg_list,
907: p_commit,
908: p_validation_level,
909: p_module_type,
1063: , x_msg_data out nocopy VARCHAR2
1064: )
1065:
1066: as
1067: ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
1068: ddindx binary_integer; indx binary_integer;
1069: begin
1070:
1071: -- copy data to the local IN or IN-OUT args, if any
1143:
1144:
1145:
1146: -- here's the delegated call to the old PL/SQL routine
1147: ahl_vwp_visit_cst_pr_pvt.estimate_visit_price(p_api_version,
1148: p_init_msg_list,
1149: p_commit,
1150: p_validation_level,
1151: p_module_type,
1305: , x_msg_data out nocopy VARCHAR2
1306: )
1307:
1308: as
1309: ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
1310: ddindx binary_integer; indx binary_integer;
1311: begin
1312:
1313: -- copy data to the local IN or IN-OUT args, if any
1385:
1386:
1387:
1388: -- here's the delegated call to the old PL/SQL routine
1389: ahl_vwp_visit_cst_pr_pvt.create_cost_snapshot(p_api_version,
1390: p_init_msg_list,
1391: p_commit,
1392: p_validation_level,
1393: p_module_type,
1547: , x_msg_data out nocopy VARCHAR2
1548: )
1549:
1550: as
1551: ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
1552: ddindx binary_integer; indx binary_integer;
1553: begin
1554:
1555: -- copy data to the local IN or IN-OUT args, if any
1627:
1628:
1629:
1630: -- here's the delegated call to the old PL/SQL routine
1631: ahl_vwp_visit_cst_pr_pvt.update_visit_cost_details(p_api_version,
1632: p_init_msg_list,
1633: p_commit,
1634: p_validation_level,
1635: p_module_type,
1854: , p9_a64 out nocopy JTF_VARCHAR2_TABLE_200
1855: )
1856:
1857: as
1858: ddp_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
1859: ddx_cost_price_tbl ahl_vwp_visit_cst_pr_pvt.cost_price_tbl_type;
1860: ddindx binary_integer; indx binary_integer;
1861: begin
1862:
1855: )
1856:
1857: as
1858: ddp_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
1859: ddx_cost_price_tbl ahl_vwp_visit_cst_pr_pvt.cost_price_tbl_type;
1860: ddindx binary_integer; indx binary_integer;
1861: begin
1862:
1863: -- copy data to the local IN or IN-OUT args, if any
1936: ddp_cost_price_rec.attribute15 := p8_a64;
1937:
1938:
1939: -- here's the delegated call to the old PL/SQL routine
1940: ahl_vwp_visit_cst_pr_pvt.get_visit_items_no_price(p_api_version,
1941: p_init_msg_list,
1942: p_commit,
1943: p_validation_level,
1944: p_module_type,
1957:
1958:
1959:
1960:
1961: ahl_vwp_visit_cst_pr_pvt_w.rosetta_table_copy_out_p1(ddx_cost_price_tbl, p9_a0
1962: , p9_a1
1963: , p9_a2
1964: , p9_a3
1965: , p9_a4
2102: , x_msg_data out nocopy VARCHAR2
2103: )
2104:
2105: as
2106: ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
2107: ddindx binary_integer; indx binary_integer;
2108: begin
2109:
2110: -- copy data to the local IN or IN-OUT args, if any
2183:
2184:
2185:
2186: -- here's the delegated call to the old PL/SQL routine
2187: ahl_vwp_visit_cst_pr_pvt.bg_estimate_visit_cost(p_api_version,
2188: p_init_msg_list,
2189: p_commit,
2190: p_validation_level,
2191: p_module_type,
2271:
2272:
2273: end;
2274:
2275: end ahl_vwp_visit_cst_pr_pvt_w;