1: package body ozf_supp_trade_profile_pvt_w as
2: /* $Header: ozfwstpb.pls 120.8 2012/01/03 16:38:08 nirprasa 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 ozf_supp_trade_profile_pvt.supp_trade_profile_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
247: end loop;
248: end if;
249: end if;
250: end rosetta_table_copy_in_p3;
251: procedure rosetta_table_copy_out_p3(t ozf_supp_trade_profile_pvt.supp_trade_profile_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
252: , a1 out nocopy JTF_NUMBER_TABLE
253: , a2 out nocopy JTF_DATE_TABLE
254: , a3 out nocopy JTF_NUMBER_TABLE
255: , a4 out nocopy JTF_DATE_TABLE
931: , x_supp_trade_profile_id out nocopy NUMBER
932: )
933:
934: as
935: ddp_supp_trade_profile_rec ozf_supp_trade_profile_pvt.supp_trade_profile_rec_type;
936: ddindx binary_integer; indx binary_integer;
937: begin
938:
939: -- copy data to the local IN or IN-OUT args, if any
1055: ddp_supp_trade_profile_rec.ssd_imd_claim_flag := p7_a108;
1056:
1057:
1058: -- here's the delegated call to the old PL/SQL routine
1059: ozf_supp_trade_profile_pvt.create_supp_trade_profile(p_api_version_number,
1060: p_init_msg_list,
1061: p_commit,
1062: p_validation_level,
1063: x_return_status,
1196: , x_object_version_number out nocopy NUMBER
1197: )
1198:
1199: as
1200: ddp_supp_trade_profile_rec ozf_supp_trade_profile_pvt.supp_trade_profile_rec_type;
1201: ddindx binary_integer; indx binary_integer;
1202: begin
1203:
1204: -- copy data to the local IN or IN-OUT args, if any
1320: ddp_supp_trade_profile_rec.ssd_imd_claim_flag := p7_a108;
1321:
1322:
1323: -- here's the delegated call to the old PL/SQL routine
1324: ozf_supp_trade_profile_pvt.update_supp_trade_profile(p_api_version_number,
1325: p_init_msg_list,
1326: p_commit,
1327: p_validation_level,
1328: x_return_status,
1459: , x_msg_data out nocopy VARCHAR2
1460: )
1461:
1462: as
1463: ddp_supp_trade_profile_rec ozf_supp_trade_profile_pvt.supp_trade_profile_rec_type;
1464: ddindx binary_integer; indx binary_integer;
1465: begin
1466:
1467: -- copy data to the local IN or IN-OUT args, if any
1581:
1582:
1583:
1584: -- here's the delegated call to the old PL/SQL routine
1585: ozf_supp_trade_profile_pvt.validate_supp_trade_profile(p_api_version_number,
1586: p_init_msg_list,
1587: p_validation_level,
1588: ddp_supp_trade_profile_rec,
1589: x_return_status,
1712: , x_return_status out nocopy VARCHAR2
1713: )
1714:
1715: as
1716: ddp_supp_trade_profile_rec ozf_supp_trade_profile_pvt.supp_trade_profile_rec_type;
1717: ddindx binary_integer; indx binary_integer;
1718: begin
1719:
1720: -- copy data to the local IN or IN-OUT args, if any
1830:
1831:
1832:
1833: -- here's the delegated call to the old PL/SQL routine
1834: ozf_supp_trade_profile_pvt.check_supp_trd_prfl_items(ddp_supp_trade_profile_rec,
1835: p_validation_mode,
1836: x_return_status);
1837:
1838: -- copy data back from the local variables to OUT or IN-OUT args, if any
1956: , p5_a108 VARCHAR2
1957: )
1958:
1959: as
1960: ddp_supp_trade_profile_rec ozf_supp_trade_profile_pvt.supp_trade_profile_rec_type;
1961: ddindx binary_integer; indx binary_integer;
1962: begin
1963:
1964: -- copy data to the local IN or IN-OUT args, if any
2077: ddp_supp_trade_profile_rec.supplier_neg_batch_flag := p5_a107;
2078: ddp_supp_trade_profile_rec.ssd_imd_claim_flag := p5_a108;
2079:
2080: -- here's the delegated call to the old PL/SQL routine
2081: ozf_supp_trade_profile_pvt.validate_supp_trd_prfl_rec(p_api_version_number,
2082: p_init_msg_list,
2083: x_return_status,
2084: x_msg_count,
2085: x_msg_data,
2092:
2093:
2094: end;
2095:
2096: end ozf_supp_trade_profile_pvt_w;