1288: l_cust_relation_flag := '';
1289: END IF;
1290: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1291: IF l_debug = Fnd_Api.G_TRUE THEN
1292: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Price_List BEGIN ');
1293: Oe_Debug_Pub.ADD('l_currency_code = ' || l_currency_code);
1294: Oe_Debug_Pub.ADD('l_pricing_effective_date = ' ||l_pricing_effective_date);
1295: Oe_Debug_Pub.ADD('l_agreement_id = ' || l_agreement_id);
1296:
1289: END IF;
1290: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1291: IF l_debug = Fnd_Api.G_TRUE THEN
1292: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Price_List BEGIN ');
1293: Oe_Debug_Pub.ADD('l_currency_code = ' || l_currency_code);
1294: Oe_Debug_Pub.ADD('l_pricing_effective_date = ' ||l_pricing_effective_date);
1295: Oe_Debug_Pub.ADD('l_agreement_id = ' || l_agreement_id);
1296:
1297: END IF;
1290: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1291: IF l_debug = Fnd_Api.G_TRUE THEN
1292: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Price_List BEGIN ');
1293: Oe_Debug_Pub.ADD('l_currency_code = ' || l_currency_code);
1294: Oe_Debug_Pub.ADD('l_pricing_effective_date = ' ||l_pricing_effective_date);
1295: Oe_Debug_Pub.ADD('l_agreement_id = ' || l_agreement_id);
1296:
1297: END IF;
1298: IF l_pricing_effective_date IS NULL THEN
1291: IF l_debug = Fnd_Api.G_TRUE THEN
1292: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Price_List BEGIN ');
1293: Oe_Debug_Pub.ADD('l_currency_code = ' || l_currency_code);
1294: Oe_Debug_Pub.ADD('l_pricing_effective_date = ' ||l_pricing_effective_date);
1295: Oe_Debug_Pub.ADD('l_agreement_id = ' || l_agreement_id);
1296:
1297: END IF;
1298: IF l_pricing_effective_date IS NULL THEN
1299: l_temp_date := TRUNC(SYSDATE);
1436: BEGIN
1437:
1438: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1439: IF l_debug = Fnd_Api.G_TRUE THEN
1440: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Price_Lists BEGIN ');
1441: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1442: END IF;
1443:
1444: l_temp_date := TRUNC(SYSDATE);
1437:
1438: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1439: IF l_debug = Fnd_Api.G_TRUE THEN
1440: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Price_Lists BEGIN ');
1441: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1442: END IF;
1443:
1444: l_temp_date := TRUNC(SYSDATE);
1445:
1641: l_agreement c_agreement%ROWTYPE;
1642: l_counter NUMBER := 0;
1643:
1644: BEGIN
1645: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Agreement BEGIN ');
1646: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' ||p_pricing_effective_date);
1647:
1648: IF p_pricing_effective_date IS NULL THEN
1649: l_temp_date := TRUNC(SYSDATE);
1642: l_counter NUMBER := 0;
1643:
1644: BEGIN
1645: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Get_Agreement BEGIN ');
1646: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' ||p_pricing_effective_date);
1647:
1648: IF p_pricing_effective_date IS NULL THEN
1649: l_temp_date := TRUNC(SYSDATE);
1650: ELSE
1653:
1654: IF p_sold_to_org_id IS NOT NULL AND p_transaction_type_id IS NOT NULL THEN
1655: -- calling program passed sold_to_org_id and transaction_type_id
1656:
1657: Oe_Debug_Pub.ADD('p_sold_to_org_id = ' || p_sold_to_org_id);
1658: Oe_Debug_Pub.ADD('p_transaction_type_id = ' || p_transaction_type_id);
1659:
1660:
1661: OPEN c_agreement;
1654: IF p_sold_to_org_id IS NOT NULL AND p_transaction_type_id IS NOT NULL THEN
1655: -- calling program passed sold_to_org_id and transaction_type_id
1656:
1657: Oe_Debug_Pub.ADD('p_sold_to_org_id = ' || p_sold_to_org_id);
1658: Oe_Debug_Pub.ADD('p_transaction_type_id = ' || p_transaction_type_id);
1659:
1660:
1661: OPEN c_agreement;
1662: LOOP
1681:
1682: ELSIF p_sold_to_org_id IS NULL and p_transaction_type_id IS NOT NULL THEN -- added condition for bug7192230
1683: -- calling program did not pass sold_to_org_id and passed only transaction_type_id
1684:
1685: oe_debug_pub.add('p_sold_to_org_id = ' || p_sold_to_org_id);
1686: oe_debug_pub.add('p_transaction_type_id = ' || p_transaction_type_id);
1687:
1688:
1689: OPEN c_agreement_no_org;
1682: ELSIF p_sold_to_org_id IS NULL and p_transaction_type_id IS NOT NULL THEN -- added condition for bug7192230
1683: -- calling program did not pass sold_to_org_id and passed only transaction_type_id
1684:
1685: oe_debug_pub.add('p_sold_to_org_id = ' || p_sold_to_org_id);
1686: oe_debug_pub.add('p_transaction_type_id = ' || p_transaction_type_id);
1687:
1688:
1689: OPEN c_agreement_no_org;
1690: LOOP
1709:
1710: ELSIF p_sold_to_org_id IS NOT NULL and p_transaction_type_id IS NULL THEN -- added condition for bug7192230
1711: -- calling program passed sold_to_org_id and did not pass transaction_type_id
1712:
1713: oe_debug_pub.add('p_sold_to_org_id = ' || p_sold_to_org_id);
1714: oe_debug_pub.add('p_transaction_type_id = ' || p_transaction_type_id);
1715:
1716:
1717: OPEN c_agreement_no_trtype;
1710: ELSIF p_sold_to_org_id IS NOT NULL and p_transaction_type_id IS NULL THEN -- added condition for bug7192230
1711: -- calling program passed sold_to_org_id and did not pass transaction_type_id
1712:
1713: oe_debug_pub.add('p_sold_to_org_id = ' || p_sold_to_org_id);
1714: oe_debug_pub.add('p_transaction_type_id = ' || p_transaction_type_id);
1715:
1716:
1717: OPEN c_agreement_no_trtype;
1718: LOOP
1801: l_status_code VARCHAR2(1);
1802: BEGIN
1803: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1804: IF l_debug = Fnd_Api.G_TRUE THEN
1805: Oe_Debug_Pub.ADD('BEGIN qp_util_pub.get_rounding_factor');
1806: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1807: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1808: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1809: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1802: BEGIN
1803: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1804: IF l_debug = Fnd_Api.G_TRUE THEN
1805: Oe_Debug_Pub.ADD('BEGIN qp_util_pub.get_rounding_factor');
1806: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1807: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1808: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1809: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1810:
1803: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1804: IF l_debug = Fnd_Api.G_TRUE THEN
1805: Oe_Debug_Pub.ADD('BEGIN qp_util_pub.get_rounding_factor');
1806: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1807: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1808: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1809: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1810:
1811: END IF;
1804: IF l_debug = Fnd_Api.G_TRUE THEN
1805: Oe_Debug_Pub.ADD('BEGIN qp_util_pub.get_rounding_factor');
1806: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1807: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1808: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1809: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1810:
1811: END IF;
1812: round_price(p_operand => NULL
1805: Oe_Debug_Pub.ADD('BEGIN qp_util_pub.get_rounding_factor');
1806: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1807: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1808: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1809: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1810:
1811: END IF;
1812: round_price(p_operand => NULL
1813: ,p_rounding_factor => NULL
1823: IF l_status_code = Fnd_Api.G_RET_STS_UNEXP_ERROR THEN
1824: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826: IF l_debug = Fnd_Api.G_TRUE THEN
1827: Oe_Debug_Pub.ADD('l_rounding_factor = ' || l_rounding_factor);
1828: Oe_Debug_Pub.ADD('l_status_code = ' || l_status_code);
1829: Oe_Debug_Pub.ADD('END qp_util_pub.get_rounding_factor');
1830:
1831: END IF;
1824: RAISE Fnd_Api.G_EXC_UNEXPECTED_ERROR;
1825: END IF;
1826: IF l_debug = Fnd_Api.G_TRUE THEN
1827: Oe_Debug_Pub.ADD('l_rounding_factor = ' || l_rounding_factor);
1828: Oe_Debug_Pub.ADD('l_status_code = ' || l_status_code);
1829: Oe_Debug_Pub.ADD('END qp_util_pub.get_rounding_factor');
1830:
1831: END IF;
1832: RETURN(l_rounding_factor);
1825: END IF;
1826: IF l_debug = Fnd_Api.G_TRUE THEN
1827: Oe_Debug_Pub.ADD('l_rounding_factor = ' || l_rounding_factor);
1828: Oe_Debug_Pub.ADD('l_status_code = ' || l_status_code);
1829: Oe_Debug_Pub.ADD('END qp_util_pub.get_rounding_factor');
1830:
1831: END IF;
1832: RETURN(l_rounding_factor);
1833:
1861:
1862: BEGIN
1863: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1864: IF l_debug = Fnd_Api.G_TRUE THEN
1865: Oe_Debug_Pub.ADD('BEGIN round_price');
1866: Oe_Debug_Pub.ADD('p_operand = ' || p_operand);
1867: Oe_Debug_Pub.ADD('p_rounding_factor = ' || p_rounding_factor);
1868: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1869: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1862: BEGIN
1863: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1864: IF l_debug = Fnd_Api.G_TRUE THEN
1865: Oe_Debug_Pub.ADD('BEGIN round_price');
1866: Oe_Debug_Pub.ADD('p_operand = ' || p_operand);
1867: Oe_Debug_Pub.ADD('p_rounding_factor = ' || p_rounding_factor);
1868: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1869: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1870: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1863: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
1864: IF l_debug = Fnd_Api.G_TRUE THEN
1865: Oe_Debug_Pub.ADD('BEGIN round_price');
1866: Oe_Debug_Pub.ADD('p_operand = ' || p_operand);
1867: Oe_Debug_Pub.ADD('p_rounding_factor = ' || p_rounding_factor);
1868: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1869: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1870: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1871: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1864: IF l_debug = Fnd_Api.G_TRUE THEN
1865: Oe_Debug_Pub.ADD('BEGIN round_price');
1866: Oe_Debug_Pub.ADD('p_operand = ' || p_operand);
1867: Oe_Debug_Pub.ADD('p_rounding_factor = ' || p_rounding_factor);
1868: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1869: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1870: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1871: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1872: Oe_Debug_Pub.ADD('p_operand_type = ' || p_operand_type);
1865: Oe_Debug_Pub.ADD('BEGIN round_price');
1866: Oe_Debug_Pub.ADD('p_operand = ' || p_operand);
1867: Oe_Debug_Pub.ADD('p_rounding_factor = ' || p_rounding_factor);
1868: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1869: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1870: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1871: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1872: Oe_Debug_Pub.ADD('p_operand_type = ' || p_operand_type);
1873:
1866: Oe_Debug_Pub.ADD('p_operand = ' || p_operand);
1867: Oe_Debug_Pub.ADD('p_rounding_factor = ' || p_rounding_factor);
1868: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1869: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1870: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1871: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1872: Oe_Debug_Pub.ADD('p_operand_type = ' || p_operand_type);
1873:
1874: END IF;
1867: Oe_Debug_Pub.ADD('p_rounding_factor = ' || p_rounding_factor);
1868: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1869: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1870: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1871: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1872: Oe_Debug_Pub.ADD('p_operand_type = ' || p_operand_type);
1873:
1874: END IF;
1875: IF p_operand_type <> 'R' AND p_operand IS NULL THEN
1868: Oe_Debug_Pub.ADD('p_use_multi_currency = ' || p_use_multi_currency);
1869: Oe_Debug_Pub.ADD('p_price_list_id = ' || p_price_list_id);
1870: Oe_Debug_Pub.ADD('p_currency_code = ' || p_currency_code);
1871: Oe_Debug_Pub.ADD('p_pricing_effective_date = ' || p_pricing_effective_date);
1872: Oe_Debug_Pub.ADD('p_operand_type = ' || p_operand_type);
1873:
1874: END IF;
1875: IF p_operand_type <> 'R' AND p_operand IS NULL THEN
1876: IF Oe_Msg_Pub.Check_Msg_Level(Oe_Msg_Pub.G_MSG_LVL_ERROR) THEN
1887:
1888: l_rounding_options := G_ROUNDING_OPTIONS;
1889:
1890: IF l_debug = Fnd_Api.G_TRUE THEN
1891: Oe_Debug_Pub.ADD('Profile : rounding options = ' || l_rounding_options);
1892:
1893: END IF;
1894: -- check the Om profile for backward compatibility
1895: -- in scenario like this file is shipped to customer but the corresponding OM change is not shipped
1900:
1901: l_oe_unit_price_rounding := G_OE_UNIT_PRICE_ROUNDING;
1902:
1903: IF l_debug = Fnd_Api.G_TRUE THEN
1904: Oe_Debug_Pub.ADD('Profile : OE unit price rounding = ' || l_oe_unit_price_rounding);
1905:
1906: END IF;
1907: IF ( (p_operand_type = 'A' AND l_rounding_options = 'ROUND_ADJ')
1908: OR
1914: OR
1915: (l_oe_unit_price_rounding = 'Y')
1916: ) THEN
1917: IF l_debug = Fnd_Api.G_TRUE THEN
1918: Oe_Debug_Pub.ADD('Do rounding ');
1919: END IF;
1920: --dbms_output.put_line('Do rounding ');
1921:
1922: IF p_rounding_factor IS NOT NULL THEN
1941: END IF;
1942:
1943: l_multi_currency_installed := G_MULTI_CURRENCY;
1944: IF l_debug = Fnd_Api.G_TRUE THEN
1945: Oe_Debug_Pub.ADD('l_multi_currency_installed = ' || l_multi_currency_installed);
1946:
1947: END IF;
1948:
1949: IF p_use_multi_currency = 'Y' THEN
1957: l_use_multi_currency := G_MULTI_CURRENCY_USAGE;
1958: END IF;
1959:
1960: IF l_debug = Fnd_Api.G_TRUE THEN
1961: Oe_Debug_Pub.ADD('l_use_multi_currency = ' || l_use_multi_currency);
1962: END IF;
1963:
1964: IF l_multi_currency_installed = 'Y' AND l_use_multi_currency = 'Y' THEN
1965: -- using rownum < 2 because there could be more than 1 effective records for a
1965: -- using rownum < 2 because there could be more than 1 effective records for a
1966: -- to_currency_code but note that selling_rounding_factor will be same
1967:
1968: IF l_debug = Fnd_Api.G_TRUE THEN
1969: Oe_Debug_Pub.ADD('round_price - multi-currency installed');
1970:
1971: END IF;
1972: -- cache the rounding_factor for price list id, currency and date
1973: IF p_price_list_id = G_PRICE_LIST_ID AND
1974: p_currency_code = G_CURRENCY_CODE AND
1975: l_pricing_effective_date = G_PRICING_EFF_DATE THEN
1976:
1977: IF l_debug = Fnd_Api.G_TRUE THEN
1978: Oe_Debug_Pub.ADD('round_price - getting rounding factor from cache');
1979: END IF;
1980: l_rounding_factor := G_ROUNDING_FACTOR;
1981: ELSE
1982: IF l_debug = Fnd_Api.G_TRUE THEN
1979: END IF;
1980: l_rounding_factor := G_ROUNDING_FACTOR;
1981: ELSE
1982: IF l_debug = Fnd_Api.G_TRUE THEN
1983: Oe_Debug_Pub.ADD('round_price - getting rounding factor from database');
1984:
1985: END IF;
1986: SELECT qcdt.selling_rounding_factor
1987: INTO l_rounding_factor
2003:
2004: ELSE -- multi_currency not installed, not used
2005:
2006: IF l_debug = Fnd_Api.G_TRUE THEN
2007: Oe_Debug_Pub.ADD('round_price - multi-currency NOT installed');
2008:
2009: END IF;
2010: -- cache the rounding_factor for price list id
2011: IF p_price_list_id = G_PRICE_LIST_ID THEN
2009: END IF;
2010: -- cache the rounding_factor for price list id
2011: IF p_price_list_id = G_PRICE_LIST_ID THEN
2012: IF l_debug = Fnd_Api.G_TRUE THEN
2013: Oe_Debug_Pub.ADD('round_price - getting rounding factor from cache');
2014: END IF;
2015: l_rounding_factor := G_ROUNDING_FACTOR;
2016: ELSE
2017: IF l_debug = Fnd_Api.G_TRUE THEN
2014: END IF;
2015: l_rounding_factor := G_ROUNDING_FACTOR;
2016: ELSE
2017: IF l_debug = Fnd_Api.G_TRUE THEN
2018: Oe_Debug_Pub.ADD('round_price - getting rounding factor from database');
2019:
2020: END IF;
2021: SELECT qb.rounding_factor
2022: INTO l_rounding_factor
2037:
2038: END IF; --p_price_list_id, p_currency_code values not null
2039:
2040: IF l_debug = Fnd_Api.G_TRUE THEN
2041: Oe_Debug_Pub.ADD('l_rounding_factor = ' || l_rounding_factor);
2042:
2043: END IF;
2044: IF l_rounding_factor IS NOT NULL THEN
2045: IF p_operand_type = 'R' THEN
2052: END IF;
2053:
2054: ELSE /* if p_operand_type = 'A' .......*/
2055: IF l_debug = Fnd_Api.G_TRUE THEN
2056: Oe_Debug_Pub.ADD('NO rounding');
2057: END IF;
2058: --dbms_output.put_line('NO rounding');
2059: x_rounded_operand := p_operand;
2060: END IF; /* p_operand_type */
2061:
2062: x_status_code := Fnd_Api.G_RET_STS_SUCCESS;
2063:
2064: IF l_debug = Fnd_Api.G_TRUE THEN
2065: Oe_Debug_Pub.ADD('x_rounded_operand = ' || x_rounded_operand);
2066: Oe_Debug_Pub.ADD('x_status_code = ' || x_status_code);
2067: Oe_Debug_Pub.ADD('END round_price');
2068: END IF;
2069: EXCEPTION
2062: x_status_code := Fnd_Api.G_RET_STS_SUCCESS;
2063:
2064: IF l_debug = Fnd_Api.G_TRUE THEN
2065: Oe_Debug_Pub.ADD('x_rounded_operand = ' || x_rounded_operand);
2066: Oe_Debug_Pub.ADD('x_status_code = ' || x_status_code);
2067: Oe_Debug_Pub.ADD('END round_price');
2068: END IF;
2069: EXCEPTION
2070: WHEN NO_DATA_FOUND THEN
2063:
2064: IF l_debug = Fnd_Api.G_TRUE THEN
2065: Oe_Debug_Pub.ADD('x_rounded_operand = ' || x_rounded_operand);
2066: Oe_Debug_Pub.ADD('x_status_code = ' || x_status_code);
2067: Oe_Debug_Pub.ADD('END round_price');
2068: END IF;
2069: EXCEPTION
2070: WHEN NO_DATA_FOUND THEN
2071: IF l_debug = Fnd_Api.G_TRUE THEN
2068: END IF;
2069: EXCEPTION
2070: WHEN NO_DATA_FOUND THEN
2071: IF l_debug = Fnd_Api.G_TRUE THEN
2072: Oe_Debug_Pub.ADD('round_price - NO_DATA_FOUND exception');
2073: END IF;
2074: x_status_code := Fnd_Api.G_RET_STS_ERROR;
2075: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_ERROR) THEN
2076: Fnd_Message.SET_NAME('QP','QP_NO_RECORD_FOR_ROUNDING');
2080:
2081: WHEN Fnd_Api.G_EXC_ERROR THEN
2082:
2083: IF l_debug = Fnd_Api.G_TRUE THEN
2084: Oe_Debug_Pub.ADD('round_price - EXPECTED exception');
2085: END IF;
2086: x_status_code := Fnd_Api.G_RET_STS_ERROR;
2087:
2088: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2086: x_status_code := Fnd_Api.G_RET_STS_ERROR;
2087:
2088: WHEN Fnd_Api.G_EXC_UNEXPECTED_ERROR THEN
2089: IF l_debug = Fnd_Api.G_TRUE THEN
2090: Oe_Debug_Pub.ADD('round_price - UNEXPECTED exception');
2091:
2092: END IF;
2093: x_status_code := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2094:
2093: x_status_code := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2094:
2095: WHEN OTHERS THEN
2096: IF l_debug = Fnd_Api.G_TRUE THEN
2097: Oe_Debug_Pub.ADD('round_price - OTHERS exception');
2098: END IF;
2099: x_status_code := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2100:
2101: IF Fnd_Msg_Pub.Check_Msg_Level(Fnd_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2194: I NUMBER;
2195: BEGIN
2196: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
2197: IF l_debug = Fnd_Api.G_TRUE THEN
2198: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Reprice_Debug_Engine_Request BEGIN');
2199: Oe_Debug_Pub.ADD('p_request_id = ' || p_request_id);
2200: END IF;
2201: --dbms_output.put_line('Reprice_Debug_Engine_Request Begins');
2202:
2195: BEGIN
2196: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
2197: IF l_debug = Fnd_Api.G_TRUE THEN
2198: Oe_Debug_Pub.ADD('QP_UTIL_PUB.Reprice_Debug_Engine_Request BEGIN');
2199: Oe_Debug_Pub.ADD('p_request_id = ' || p_request_id);
2200: END IF;
2201: --dbms_output.put_line('Reprice_Debug_Engine_Request Begins');
2202:
2203: /* profile settings */
2416: p_related_lines_tbl(i).STATUS_TEXT :=cl.PRICING_STATUS_TEXT;
2417: END LOOP;
2418:
2419: /* debug info */
2420: Oe_Debug_Pub.G_DIR :='/sqlcom/log';
2421: Oe_Debug_Pub.Initialize;
2422: Oe_Debug_Pub.debug_on;
2423: Oe_Debug_Pub.SetDebugLevel(10);
2424: IF l_debug = Fnd_Api.G_TRUE THEN
2417: END LOOP;
2418:
2419: /* debug info */
2420: Oe_Debug_Pub.G_DIR :='/sqlcom/log';
2421: Oe_Debug_Pub.Initialize;
2422: Oe_Debug_Pub.debug_on;
2423: Oe_Debug_Pub.SetDebugLevel(10);
2424: IF l_debug = Fnd_Api.G_TRUE THEN
2425: Oe_Debug_Pub.ADD('Before Process_Order',1);
2418:
2419: /* debug info */
2420: Oe_Debug_Pub.G_DIR :='/sqlcom/log';
2421: Oe_Debug_Pub.Initialize;
2422: Oe_Debug_Pub.debug_on;
2423: Oe_Debug_Pub.SetDebugLevel(10);
2424: IF l_debug = Fnd_Api.G_TRUE THEN
2425: Oe_Debug_Pub.ADD('Before Process_Order',1);
2426:
2419: /* debug info */
2420: Oe_Debug_Pub.G_DIR :='/sqlcom/log';
2421: Oe_Debug_Pub.Initialize;
2422: Oe_Debug_Pub.debug_on;
2423: Oe_Debug_Pub.SetDebugLevel(10);
2424: IF l_debug = Fnd_Api.G_TRUE THEN
2425: Oe_Debug_Pub.ADD('Before Process_Order',1);
2426:
2427: END IF;
2421: Oe_Debug_Pub.Initialize;
2422: Oe_Debug_Pub.debug_on;
2423: Oe_Debug_Pub.SetDebugLevel(10);
2424: IF l_debug = Fnd_Api.G_TRUE THEN
2425: Oe_Debug_Pub.ADD('Before Process_Order',1);
2426:
2427: END IF;
2428: --dbms_output.put_line('The File is'|| oe_debug_pub.Set_Debug_Mode('FILE'));
2429: --dbms_output.put_line('The debug is ' || oe_debug_pub.g_debug);
2424: IF l_debug = Fnd_Api.G_TRUE THEN
2425: Oe_Debug_Pub.ADD('Before Process_Order',1);
2426:
2427: END IF;
2428: --dbms_output.put_line('The File is'|| oe_debug_pub.Set_Debug_Mode('FILE'));
2429: --dbms_output.put_line('The debug is ' || oe_debug_pub.g_debug);
2430: --l_version := qp_preq_grp.GET_VERSION;
2431: --dbms_output.put_line('Testing version '||l_version);
2432: --dbms_output.put_line('Debug2: ' || oe_debug_pub.g_debug);
2425: Oe_Debug_Pub.ADD('Before Process_Order',1);
2426:
2427: END IF;
2428: --dbms_output.put_line('The File is'|| oe_debug_pub.Set_Debug_Mode('FILE'));
2429: --dbms_output.put_line('The debug is ' || oe_debug_pub.g_debug);
2430: --l_version := qp_preq_grp.GET_VERSION;
2431: --dbms_output.put_line('Testing version '||l_version);
2432: --dbms_output.put_line('Debug2: ' || oe_debug_pub.g_debug);
2433: --dbms_output.put_line('Debug2: ');
2428: --dbms_output.put_line('The File is'|| oe_debug_pub.Set_Debug_Mode('FILE'));
2429: --dbms_output.put_line('The debug is ' || oe_debug_pub.g_debug);
2430: --l_version := qp_preq_grp.GET_VERSION;
2431: --dbms_output.put_line('Testing version '||l_version);
2432: --dbms_output.put_line('Debug2: ' || oe_debug_pub.g_debug);
2433: --dbms_output.put_line('Debug2: ');
2434:
2435: /* call engine pub API */
2436: Qp_Preq_Pub.PRICE_REQUEST
2701: ( p_count => x_msg_count
2702: , p_data => x_msg_data
2703: );
2704:
2705: Oe_Debug_Pub.ADD('END Get_Blanket_Price in QPXRTCNB');
2706:
2707: WHEN OTHERS THEN
2708:
2709: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2722: ( p_count => x_msg_count
2723: , p_data => x_msg_data
2724: );
2725:
2726: Oe_Debug_Pub.ADD('END Get_Blanket_Pricelist_Modifier in QPXRTCNB');
2727: END Get_Blanket_Pricelist_Modifier;
2728:
2729: PROCEDURE Check_Pricing_Attributes (
2730: P_Api_Version_Number IN NUMBER := 1,
2988:
2989:
2990: EXCEPTION
2991: WHEN OTHERS THEN
2992: Oe_Debug_Pub.ADD('Error in Get_Pricing_attributes');
2993:
2994: END Check_Pricing_Attributes;
2995:
2996: