1: package body pv_partner_program_pvt_w as
2: /* $Header: pvxwprgb.pls 120.1 2008/03/10 05:56:30 hekkiral 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_p2(t out nocopy pv_partner_program_pvt.partner_program_tbl_type, 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
147: end loop;
148: end if;
149: end if;
150: end rosetta_table_copy_in_p2;
151: procedure rosetta_table_copy_out_p2(t pv_partner_program_pvt.partner_program_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
152: , a1 out nocopy JTF_NUMBER_TABLE
153: , a2 out nocopy JTF_NUMBER_TABLE
154: , a3 out nocopy JTF_VARCHAR2_TABLE_100
155: , a4 out nocopy JTF_NUMBER_TABLE
532: , x_program_id out nocopy NUMBER
533: )
534:
535: as
536: ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
537: ddindx binary_integer; indx binary_integer;
538: begin
539:
540: -- copy data to the local IN or IN-OUT args, if any
607:
608:
609:
610: -- here's the delegated call to the old PL/SQL routine
611: pv_partner_program_pvt.create_partner_program(p_api_version_number,
612: p_init_msg_list,
613: p_commit,
614: p_validation_level,
615: ddp_ptr_prgm_rec,
699: , p7_a58 NUMBER
700: )
701:
702: as
703: ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
704: ddindx binary_integer; indx binary_integer;
705: begin
706:
707: -- copy data to the local IN or IN-OUT args, if any
772: ddp_ptr_prgm_rec.qsnr_footer := p7_a57;
773: ddp_ptr_prgm_rec.membership_fees := p7_a58;
774:
775: -- here's the delegated call to the old PL/SQL routine
776: pv_partner_program_pvt.update_partner_program(p_api_version_number,
777: p_init_msg_list,
778: p_commit,
779: p_validation_level,
780: x_return_status,
860: , x_msg_data out nocopy VARCHAR2
861: )
862:
863: as
864: ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
865: ddindx binary_integer; indx binary_integer;
866: begin
867:
868: -- copy data to the local IN or IN-OUT args, if any
933:
934:
935:
936: -- here's the delegated call to the old PL/SQL routine
937: pv_partner_program_pvt.validate_partner_program(p_api_version_number,
938: p_init_msg_list,
939: p_validation_level,
940: ddp_ptr_prgm_rec,
941: p_validation_mode,
1016: , x_return_status out nocopy VARCHAR2
1017: )
1018:
1019: as
1020: ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1021: ddindx binary_integer; indx binary_integer;
1022: begin
1023:
1024: -- copy data to the local IN or IN-OUT args, if any
1084:
1085:
1086:
1087: -- here's the delegated call to the old PL/SQL routine
1088: pv_partner_program_pvt.check_items(ddp_ptr_prgm_rec,
1089: p_validation_mode,
1090: x_return_status);
1091:
1092: -- copy data back from the local variables to OUT or IN-OUT args, if any
1161: , p_validation_mode VARCHAR2
1162: )
1163:
1164: as
1165: ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1166: ddindx binary_integer; indx binary_integer;
1167: begin
1168:
1169: -- copy data to the local IN or IN-OUT args, if any
1233: ddp_ptr_prgm_rec.membership_fees := p5_a58;
1234:
1235:
1236: -- here's the delegated call to the old PL/SQL routine
1237: pv_partner_program_pvt.validate_rec(p_api_version_number,
1238: p_init_msg_list,
1239: x_return_status,
1240: x_msg_count,
1241: x_msg_data,
1371: , p1_a58 out nocopy NUMBER
1372: )
1373:
1374: as
1375: ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1376: ddx_complete_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1377: ddindx binary_integer; indx binary_integer;
1378: begin
1379:
1372: )
1373:
1374: as
1375: ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1376: ddx_complete_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1377: ddindx binary_integer; indx binary_integer;
1378: begin
1379:
1380: -- copy data to the local IN or IN-OUT args, if any
1439: ddp_ptr_prgm_rec.membership_fees := p0_a58;
1440:
1441:
1442: -- here's the delegated call to the old PL/SQL routine
1443: pv_partner_program_pvt.complete_rec(ddp_ptr_prgm_rec,
1444: ddx_complete_rec);
1445:
1446: -- copy data back from the local variables to OUT or IN-OUT args, if any
1447:
1575: , x_msg_data out nocopy VARCHAR2
1576: )
1577:
1578: as
1579: ddp_ptr_prgm_rec pv_partner_program_pvt.ptr_prgm_rec_type;
1580: ddindx binary_integer; indx binary_integer;
1581: begin
1582:
1583: -- copy data to the local IN or IN-OUT args, if any
1649:
1650:
1651:
1652: -- here's the delegated call to the old PL/SQL routine
1653: pv_partner_program_pvt.create_pricelist_line(ddp_ptr_prgm_rec,
1654: p_inventory_item_id,
1655: p_operation,
1656: p_list_header_id,
1657: p_pricing_attribute_id,
1709:
1710:
1711:
1712: -- here's the delegated call to the old PL/SQL routine
1713: pv_partner_program_pvt.copy_program(p_api_version_number,
1714: p_init_msg_list,
1715: p_commit,
1716: p_validation_level,
1717: x_return_status,
1736:
1737:
1738: end;
1739:
1740: end pv_partner_program_pvt_w;