1: package body ozf_offer_pvt_w as
2: /* $Header: ozfwofrb.pls 120.14 2006/07/08 00:42:17 rssharma 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');
21: if n=b then return a; end if;
22: return n;
23: end;
24:
25: procedure rosetta_table_copy_in_p1(t out nocopy ozf_offer_pvt.ozf_qp_reln_tbl_type, a0 JTF_NUMBER_TABLE
26: , a1 JTF_NUMBER_TABLE
27: , a2 JTF_NUMBER_TABLE
28: , a3 JTF_NUMBER_TABLE
29: ) as
46: end loop;
47: end if;
48: end if;
49: end rosetta_table_copy_in_p1;
50: procedure rosetta_table_copy_out_p1(t ozf_offer_pvt.ozf_qp_reln_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
51: , a1 out nocopy JTF_NUMBER_TABLE
52: , a2 out nocopy JTF_NUMBER_TABLE
53: , a3 out nocopy JTF_NUMBER_TABLE
54: ) as
85: end if;
86: end if;
87: end rosetta_table_copy_out_p1;
88:
89: procedure rosetta_table_copy_in_p4(t out nocopy ozf_offer_pvt.modifier_line_tbl_type, a0 JTF_VARCHAR2_TABLE_100
90: , a1 JTF_VARCHAR2_TABLE_100
91: , a2 JTF_NUMBER_TABLE
92: , a3 JTF_NUMBER_TABLE
93: , a4 JTF_VARCHAR2_TABLE_100
244: end loop;
245: end if;
246: end if;
247: end rosetta_table_copy_in_p4;
248: procedure rosetta_table_copy_out_p4(t ozf_offer_pvt.modifier_line_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
249: , a1 out nocopy JTF_VARCHAR2_TABLE_100
250: , a2 out nocopy JTF_NUMBER_TABLE
251: , a3 out nocopy JTF_NUMBER_TABLE
252: , a4 out nocopy JTF_VARCHAR2_TABLE_100
618: end if;
619: end if;
620: end rosetta_table_copy_out_p4;
621:
622: procedure rosetta_table_copy_in_p6(t out nocopy ozf_offer_pvt.pricing_attr_tbl_type, a0 JTF_NUMBER_TABLE
623: , a1 JTF_VARCHAR2_TABLE_100
624: , a2 JTF_NUMBER_TABLE
625: , a3 JTF_VARCHAR2_TABLE_100
626: , a4 JTF_VARCHAR2_TABLE_100
661: end loop;
662: end if;
663: end if;
664: end rosetta_table_copy_in_p6;
665: procedure rosetta_table_copy_out_p6(t ozf_offer_pvt.pricing_attr_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
666: , a1 out nocopy JTF_VARCHAR2_TABLE_100
667: , a2 out nocopy JTF_NUMBER_TABLE
668: , a3 out nocopy JTF_VARCHAR2_TABLE_100
669: , a4 out nocopy JTF_VARCHAR2_TABLE_100
745: end if;
746: end if;
747: end rosetta_table_copy_out_p6;
748:
749: procedure rosetta_table_copy_in_p8(t out nocopy ozf_offer_pvt.qualifiers_tbl_type, a0 JTF_VARCHAR2_TABLE_100
750: , a1 JTF_VARCHAR2_TABLE_100
751: , a2 JTF_VARCHAR2_TABLE_300
752: , a3 JTF_VARCHAR2_TABLE_300
753: , a4 JTF_VARCHAR2_TABLE_100
820: end loop;
821: end if;
822: end if;
823: end rosetta_table_copy_in_p8;
824: procedure rosetta_table_copy_out_p8(t ozf_offer_pvt.qualifiers_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_100
825: , a1 out nocopy JTF_VARCHAR2_TABLE_100
826: , a2 out nocopy JTF_VARCHAR2_TABLE_300
827: , a3 out nocopy JTF_VARCHAR2_TABLE_300
828: , a4 out nocopy JTF_VARCHAR2_TABLE_100
1152: , p7_a84 NUMBER := 0-1962.0724
1153: )
1154:
1155: as
1156: ddp_modifier_list_rec ozf_offer_pvt.modifier_list_rec_type;
1157: ddp_modifier_line_tbl ozf_offer_pvt.modifier_line_tbl_type;
1158: ddindx binary_integer; indx binary_integer;
1159: begin
1160:
1153: )
1154:
1155: as
1156: ddp_modifier_list_rec ozf_offer_pvt.modifier_list_rec_type;
1157: ddp_modifier_line_tbl ozf_offer_pvt.modifier_line_tbl_type;
1158: ddindx binary_integer; indx binary_integer;
1159: begin
1160:
1161: -- copy data to the local IN or IN-OUT args, if any
1251: ddp_modifier_list_rec.orig_org_id := rosetta_g_miss_num_map(p7_a82);
1252: ddp_modifier_list_rec.na_qualifier_type := p7_a83;
1253: ddp_modifier_list_rec.na_qualifier_id := rosetta_g_miss_num_map(p7_a84);
1254:
1255: ozf_offer_pvt_w.rosetta_table_copy_in_p4(ddp_modifier_line_tbl, p8_a0
1256: , p8_a1
1257: , p8_a2
1258: , p8_a3
1259: , p8_a4
1327:
1328:
1329:
1330: -- here's the delegated call to the old PL/SQL routine
1331: ozf_offer_pvt.process_modifiers(p_init_msg_list,
1332: p_api_version,
1333: p_commit,
1334: x_return_status,
1335: x_msg_count,
1433: , x_error_location out nocopy NUMBER
1434: )
1435:
1436: as
1437: ddp_modifier_line_tbl ozf_offer_pvt.modifier_line_tbl_type;
1438: ddindx binary_integer; indx binary_integer;
1439: begin
1440:
1441: -- copy data to the local IN or IN-OUT args, if any
1444:
1445:
1446:
1447:
1448: ozf_offer_pvt_w.rosetta_table_copy_in_p4(ddp_modifier_line_tbl, p6_a0
1449: , p6_a1
1450: , p6_a2
1451: , p6_a3
1452: , p6_a4
1519: );
1520:
1521:
1522: -- here's the delegated call to the old PL/SQL routine
1523: ozf_offer_pvt.create_offer_tiers(p_init_msg_list,
1524: p_api_version,
1525: p_commit,
1526: x_return_status,
1527: x_msg_count,
1577: , x_error_location out nocopy NUMBER
1578: )
1579:
1580: as
1581: ddp_qualifiers_tbl ozf_offer_pvt.qualifiers_tbl_type;
1582: ddindx binary_integer; indx binary_integer;
1583: begin
1584:
1585: -- copy data to the local IN or IN-OUT args, if any
1588:
1589:
1590:
1591:
1592: ozf_offer_pvt_w.rosetta_table_copy_in_p8(ddp_qualifiers_tbl, p6_a0
1593: , p6_a1
1594: , p6_a2
1595: , p6_a3
1596: , p6_a4
1621: );
1622:
1623:
1624: -- here's the delegated call to the old PL/SQL routine
1625: ozf_offer_pvt.process_market_qualifiers(p_init_msg_list,
1626: p_api_version,
1627: p_commit,
1628: x_return_status,
1629: x_msg_count,
1663: , x_error_location out nocopy NUMBER
1664: )
1665:
1666: as
1667: ddp_pricing_attr_tbl ozf_offer_pvt.pricing_attr_tbl_type;
1668: ddindx binary_integer; indx binary_integer;
1669: begin
1670:
1671: -- copy data to the local IN or IN-OUT args, if any
1674:
1675:
1676:
1677:
1678: ozf_offer_pvt_w.rosetta_table_copy_in_p6(ddp_pricing_attr_tbl, p6_a0
1679: , p6_a1
1680: , p6_a2
1681: , p6_a3
1682: , p6_a4
1691: );
1692:
1693:
1694: -- here's the delegated call to the old PL/SQL routine
1695: ozf_offer_pvt.process_exclusions(p_init_msg_list,
1696: p_api_version,
1697: p_commit,
1698: x_return_status,
1699: x_msg_count,
1733: , p6_a13 NUMBER := 0-1962.0724
1734: )
1735:
1736: as
1737: ddp_advanced_options_rec ozf_offer_pvt.advanced_option_rec_type;
1738: ddindx binary_integer; indx binary_integer;
1739: begin
1740:
1741: -- copy data to the local IN or IN-OUT args, if any
1760: ddp_advanced_options_rec.autopay_party_attr := p6_a12;
1761: ddp_advanced_options_rec.autopay_party_id := rosetta_g_miss_num_map(p6_a13);
1762:
1763: -- here's the delegated call to the old PL/SQL routine
1764: ozf_offer_pvt.process_adv_options(p_init_msg_list,
1765: p_api_version,
1766: p_commit,
1767: x_return_status,
1768: x_msg_count,
1873: , p7_a84 NUMBER := 0-1962.0724
1874: )
1875:
1876: as
1877: ddp_offer_rec ozf_offer_pvt.modifier_list_rec_type;
1878: ddindx binary_integer; indx binary_integer;
1879: begin
1880:
1881: -- copy data to the local IN or IN-OUT args, if any
1973: ddp_offer_rec.na_qualifier_id := rosetta_g_miss_num_map(p7_a84);
1974:
1975:
1976: -- here's the delegated call to the old PL/SQL routine
1977: ozf_offer_pvt.activate_offer_over(p_init_msg_list,
1978: p_api_version,
1979: p_commit,
1980: x_return_status,
1981: x_msg_count,
2086: , p4_a84 NUMBER := 0-1962.0724
2087: )
2088:
2089: as
2090: ddp_modifier_list_rec ozf_offer_pvt.modifier_list_rec_type;
2091: ddindx binary_integer; indx binary_integer;
2092: begin
2093:
2094: -- copy data to the local IN or IN-OUT args, if any
2182: ddp_modifier_list_rec.na_qualifier_type := p4_a83;
2183: ddp_modifier_list_rec.na_qualifier_id := rosetta_g_miss_num_map(p4_a84);
2184:
2185: -- here's the delegated call to the old PL/SQL routine
2186: ozf_offer_pvt.update_offer_status(p_commit,
2187: x_return_status,
2188: x_msg_count,
2189: x_msg_data,
2190: ddp_modifier_list_rec);
2290: , p7_a84 NUMBER := 0-1962.0724
2291: )
2292:
2293: as
2294: ddp_offer_rec ozf_offer_pvt.modifier_list_rec_type;
2295: ddindx binary_integer; indx binary_integer;
2296: begin
2297:
2298: -- copy data to the local IN or IN-OUT args, if any
2389: ddp_offer_rec.na_qualifier_type := p7_a83;
2390: ddp_offer_rec.na_qualifier_id := rosetta_g_miss_num_map(p7_a84);
2391:
2392: -- here's the delegated call to the old PL/SQL routine
2393: ozf_offer_pvt.process_offer_activation(p_api_version_number,
2394: p_init_msg_list,
2395: p_commit,
2396: p_validation_level,
2397: x_return_status,
2408:
2409:
2410: end;
2411:
2412: end ozf_offer_pvt_w;