[Home] [Help]
13: IS
14: PRAGMA AUTONOMOUS_TRANSACTION;
15: BEGIN
16:
17: IF l_debug = Fnd_Api.G_TRUE THEN
18: Qp_Preq_Grp.engine_debug('***Begin Update_Balance***');
19:
20: END IF;
21: UPDATE qp_limit_balances
26: WHERE limit_balance_id = p_limit_balance_id;
27:
28: COMMIT;
29:
30: IF l_debug = Fnd_Api.G_TRUE THEN
31: Qp_Preq_Grp.engine_debug('***End Update_Balance***');
32:
33: END IF;
34: END Update_Balance;
62:
63: BEGIN
64:
65: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
66: IF l_debug = Fnd_Api.G_TRUE THEN
67: Qp_Preq_Grp.engine_debug('***Begin Procedure Reverse_Limit *** ');
68:
69: END IF;
70: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
66: IF l_debug = Fnd_Api.G_TRUE THEN
67: Qp_Preq_Grp.engine_debug('***Begin Procedure Reverse_Limit *** ');
68:
69: END IF;
70: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
71:
72: --Price Request Code corresponding to the consuming order line is mandatory.
73: IF p_cons_price_request_code IS NULL THEN
74: Fnd_Message.SET_NAME('QP','QP_PARAMETER_REQUIRED');
73: IF p_cons_price_request_code IS NULL THEN
74: Fnd_Message.SET_NAME('QP','QP_PARAMETER_REQUIRED');
75: Fnd_Message.SET_TOKEN('PARAMETER',p_cons_price_request_code);
76: x_return_message := Fnd_Message.GET;
77: RAISE Fnd_Api.G_EXC_ERROR;
78:
79: END IF;
80:
81: --Action Code is mandatory.
83:
84: Fnd_Message.SET_NAME('QP','QP_PARAMETER_REQUIRED');
85: Fnd_Message.SET_TOKEN('PARAMETER',p_action_code);
86: x_return_message := Fnd_Message.GET;
87: RAISE Fnd_Api.G_EXC_ERROR;
88:
89: END IF;
90:
91: --Originally ordered qty must be not-null and non-zero.
94:
95: Fnd_Message.SET_NAME('QP','QP_NONZERO_PARAMETER_REQD');
96: Fnd_Message.SET_TOKEN('PARAMETER',p_orig_ordered_qty);
97: x_return_message := Fnd_Message.GET;
98: RAISE Fnd_Api.G_EXC_ERROR;
99:
100: END IF;
101:
102: --If Action Code is 'RETURN' then the returned qty must be not null.
104:
105: Fnd_Message.SET_NAME('QP','QP_PARAMETER_REQUIRED');
106: Fnd_Message.SET_TOKEN('PARAMETER',p_returned_qty);
107: x_return_message := Fnd_Message.GET;
108: RAISE Fnd_Api.G_EXC_ERROR;
109:
110: END IF;
111:
112: --If Action Code is 'RETURN' then the price_request_code of the return
115:
116: Fnd_Message.SET_NAME('QP','QP_PARAMETER_REQUIRED');
117: Fnd_Message.SET_TOKEN('PARAMETER',p_ret_price_request_code);
118: x_return_message := Fnd_Message.GET;
119: RAISE Fnd_Api.G_EXC_ERROR;
120:
121: END IF;
122:
123: --If Action Code is 'AMEND' then the amended qty must be not null.
125:
126: Fnd_Message.SET_NAME('QP','QP_PARAMETER_REQUIRED');
127: Fnd_Message.SET_TOKEN('PARAMETER',p_amended_qty);
128: x_return_message := Fnd_Message.GET;
129: RAISE Fnd_Api.G_EXC_ERROR;
130:
131: END IF;
132:
133: --If Action Code is 'AMEND' then the amended qty must not be greater
137: Fnd_Message.SET_NAME('QP','QP_PARAMETER_MUST_BE_LESSER');
138: Fnd_Message.SET_TOKEN('PARAMETER1',p_amended_qty);
139: Fnd_Message.SET_TOKEN('PARAMETER2',p_orig_ordered_qty);
140: x_return_message := Fnd_Message.GET;
141: RAISE Fnd_Api.G_EXC_ERROR;
142:
143: END IF;
144:
145: --Proration Ratio Calculation
157: --bug#7540503
158: ELSE
159: Fnd_Message.SET_NAME('QP','QP_INVALID_ACTION_CODE');
160: x_return_message := Fnd_Message.GET;
161: RAISE Fnd_Api.G_EXC_ERROR;
162: END IF;
163:
164:
165: --For each Limit Transaction Record for Consuming line's price_request_code,
255: EXCEPTION
256: WHEN NO_DATA_FOUND THEN
257: Fnd_Message.SET_NAME('QP','QP_LIMIT_TXN_NOT_FOUND');
258: x_return_message := Fnd_Message.GET;
259: RAISE Fnd_Api.G_EXC_ERROR;
260: END;
261:
262: --Transaction Record to be cancelled/amended exists. Update trxn amount.
263: UPDATE qp_limit_transactions
344: EXCEPTION
345: WHEN NO_DATA_FOUND THEN
346: FND_MESSAGE.SET_NAME('QP','QP_LIMIT_TXN_NOT_FOUND');
347: x_return_message := FND_MESSAGE.GET;
348: RAISE FND_API.G_EXC_ERROR;
349: END;
350:
351: --Transaction Record to be updated exists. Update trxn amount.
352: UPDATE qp_limit_transactions
369: <
370: NULL;
371: END LOOP;--Loop over limit trxn records of consuming price_request_code
372:
373: IF l_debug = Fnd_Api.G_TRUE THEN
374: Qp_Preq_Grp.engine_debug('***End Procedure Reverse_Limit*** ');
375:
376: END IF;
377: EXCEPTION
374: Qp_Preq_Grp.engine_debug('***End Procedure Reverse_Limit*** ');
375:
376: END IF;
377: EXCEPTION
378: WHEN Fnd_Api.G_EXC_ERROR THEN
379: x_return_status := Fnd_Api.G_RET_STS_ERROR;
380:
381: WHEN OTHERS THEN
382: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
375:
376: END IF;
377: EXCEPTION
378: WHEN Fnd_Api.G_EXC_ERROR THEN
379: x_return_status := Fnd_Api.G_RET_STS_ERROR;
380:
381: WHEN OTHERS THEN
382: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
383: x_return_message := SUBSTR(SQLERRM,1,2000);
378: WHEN Fnd_Api.G_EXC_ERROR THEN
379: x_return_status := Fnd_Api.G_RET_STS_ERROR;
380:
381: WHEN OTHERS THEN
382: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
383: x_return_message := SUBSTR(SQLERRM,1,2000);
384:
385: END Reverse_Limits;
386:
597: x_order_status_rec := l_order_status_rec;
598:
599: EXCEPTION
600: WHEN OTHERS THEN
601: IF l_debug = Fnd_Api.G_TRUE THEN
602: Qp_Preq_Grp.engine_debug('Error in Procedure Get_Order_Lines_Status');
603:
604: END IF;
605: END Get_Order_Lines_Status;
649:
650: BEGIN
651: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
652:
653: IF l_debug = FND_API.G_TRUE THEN
654: QP_PREQ_GRP.engine_debug(' Inside Get_Manual_All_Lines_Status ');
655: END IF;
656:
657: x_manual_all_lines_status := 'N';
659: OPEN l_manual_all_lines_info_cur(p_event_code || ',') ;
660: FETCH l_manual_all_lines_info_cur INTO x_manual_all_lines_status;
661: CLOSE l_manual_all_lines_info_cur;
662:
663: IF l_debug = FND_API.G_TRUE THEN
664: QP_PREQ_GRP.engine_debug(' x_manual_all_lines_status :'||x_manual_all_lines_status);
665: QP_PREQ_GRP.engine_debug(' Leaving Get_Manual_All_Lines_Status ');
666: END IF;
667:
667:
668: EXCEPTION
669: WHEN OTHERS THEN
670:
671: IF l_debug = FND_API.G_TRUE THEN
672: QP_PREQ_GRP.engine_debug('Error in Procedure Get_Manual_All_Lines_Status');
673: END IF;
674:
675: END Get_Manual_All_Lines_Status;
726: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
727: -- bug 2943033
728: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES') AND
729: (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y') THEN
730: IF l_debug = Fnd_Api.G_TRUE THEN
731: Qp_Preq_Grp.engine_debug('validate price list - multi-currency');
732:
733: END IF;
734:
748: END IF;
749:
750: ELSE --Multi-Currency is not installed
751:
752: IF l_debug = Fnd_Api.G_TRUE THEN
753: Qp_Preq_Grp.engine_debug('validate price list - no multi-currency');
754:
755: END IF;
756: OPEN c_validate_pl_curr_no_multi;
769:
770: END IF; --Multi-Currency is installed
771:
772:
773: IF l_debug = Fnd_Api.G_TRUE THEN
774: Qp_Preq_Grp.engine_debug('validate price list - result is ' || l_validate_result);
775:
776: END IF;
777: EXCEPTION
1287: ELSE
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);
1435:
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:
1800: l_rounding_factor NUMBER;
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);
1819: ,x_status_code => l_status_code
1820: ,p_operand_type => 'R'
1821: );
1822:
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);
1820: ,p_operand_type => 'R'
1821: );
1822:
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);
1822:
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:
1860: l_oe_unit_price_rounding VARCHAR2(30);
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);
1877: Fnd_Message.SET_NAME('QP','QP_ATTRIBUTE_REQUIRED');
1878: Fnd_Message.SET_TOKEN('ATTRIBUTE','Operand');
1879: Oe_Msg_Pub.ADD;
1880: END IF;
1881: RAISE Fnd_Api.G_EXC_ERROR;
1882: END IF;
1883:
1884: IF p_operand_type <> 'R' AND G_ROUNDING_OPTIONS IS NULL THEN
1885: G_ROUNDING_OPTIONS := NVL(Fnd_Profile.Value('QP_SELLING_PRICE_ROUNDING_OPTIONS'), 'NO_ROUND');
1886: END IF;
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
1899: END IF;
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')
1913: (p_operand_type = 'R')
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:
1940: G_MULTI_CURRENCY := l_multi_currency_installed;
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:
1956: END IF;
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
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
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
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
1983: Oe_Debug_Pub.ADD('round_price - getting rounding factor from database');
1984:
1985: END IF;
1986: SELECT qcdt.selling_rounding_factor
2002: END IF;
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
2008:
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
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
2018: Oe_Debug_Pub.ADD('round_price - getting rounding factor from database');
2019:
2020: END IF;
2021: SELECT qb.rounding_factor
2036: END IF;
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
2051: x_rounded_operand := p_operand;
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;
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);
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;
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
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
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');
2077: Fnd_Message.SET_TOKEN('PRICE_LIST', p_price_list_id);
2078: Fnd_Message.SET_TOKEN('CURRENCY', p_currency_code);
2077: Fnd_Message.SET_TOKEN('PRICE_LIST', p_price_list_id);
2078: Fnd_Message.SET_TOKEN('CURRENCY', p_currency_code);
2079: END IF;
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;
2079: END IF;
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:
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
2089: IF l_debug = Fnd_Api.G_TRUE THEN
2090: Oe_Debug_Pub.ADD('round_price - UNEXPECTED exception');
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
2089: IF l_debug = Fnd_Api.G_TRUE THEN
2090: Oe_Debug_Pub.ADD('round_price - UNEXPECTED exception');
2091:
2092: END IF;
2085: END IF;
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;
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:
2095: WHEN OTHERS THEN
2096: IF l_debug = Fnd_Api.G_TRUE THEN
2097: Oe_Debug_Pub.ADD('round_price - OTHERS exception');
2092: END IF;
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:
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)
2102: THEN
2103: Fnd_Msg_Pub.Add_Exc_Msg
2193:
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');
2201: --dbms_output.put_line('Reprice_Debug_Engine_Request Begins');
2202:
2203: /* profile settings */
2204: Fnd_Profile.PUT('QP_DEBUG','Y');
2205: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2206: x_return_status_text := 'Routine: QP_UTIL_PUB.Reprice_Debug_Engine_Request SUCCESS';
2207:
2208: IF ( p_request_id IS NULL) THEN
2209: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2205: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2206: x_return_status_text := 'Routine: QP_UTIL_PUB.Reprice_Debug_Engine_Request SUCCESS';
2207:
2208: IF ( p_request_id IS NULL) THEN
2209: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2210: x_return_status_text := 'Need request_id for Reprice_Debug_Engine_Request API';
2211: RETURN;
2212: END IF;
2213:
2216: FETCH cl_req_dbg INTO l_dbg_req_rec;
2217: CLOSE cl_req_dbg;
2218:
2219: IF (l_dbg_req_rec.request_id IS NULL) THEN
2220: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2221: x_return_status_text := 'No debug record exists for request_id'||p_request_id;
2222: RETURN;
2223: END IF;
2224:
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;
2428: --dbms_output.put_line('The File is'|| oe_debug_pub.Set_Debug_Mode('FILE'));
2454: --dbms_output.put_line('Return Status l_return_status '|| l_return_status);
2455: --dbms_output.put_line('Return Status text l_return_status_text '|| l_return_status_text);
2456: --dbms_output.put_line('+-----Information returned to caller:----------+ ');
2457:
2458: IF l_return_status <> Fnd_Api.G_RET_STS_SUCCESS THEN
2459: x_return_status := l_return_status;
2460: x_return_status_text := l_return_status_text;
2461: END IF;
2462:
2463: x_request_id := Qp_Copy_Debug_Pvt.REQUEST_ID;
2464:
2465: EXCEPTION
2466: WHEN OTHERS THEN
2467: x_return_status := Fnd_Api.G_RET_STS_ERROR;
2468: x_return_status_text := 'Routine: QP_UTIL_PUB.Reprice_Debug_Engine_Request ERROR'||SQLERRM;
2469: END Reprice_Debug_Engine_Request;
2470:
2471: -- New procedure as per bug 2943038, required by Quoting
2538: PROCEDURE RESET_HVOP_PRICING_ON IS
2539: BEGIN
2540: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
2541: IF HVOP_Pricing_ON = 'Y' THEN
2542: IF l_debug = Fnd_Api.G_TRUE THEN
2543: Qp_Preq_Grp.Engine_debug('HVOP_Pricing_On is: '||Qp_Bulk_Preq_Grp.G_HVOP_pricing_ON);
2544: Qp_Preq_Grp.Engine_debug('Resetting HVOP_Pricing_On at the end');
2545: END IF;--l_debug
2546: Qp_Bulk_Preq_Grp.G_HVOP_pricing_ON := 'N';
2543: Qp_Preq_Grp.Engine_debug('HVOP_Pricing_On is: '||Qp_Bulk_Preq_Grp.G_HVOP_pricing_ON);
2544: Qp_Preq_Grp.Engine_debug('Resetting HVOP_Pricing_On at the end');
2545: END IF;--l_debug
2546: Qp_Bulk_Preq_Grp.G_HVOP_pricing_ON := 'N';
2547: IF l_debug = Fnd_Api.G_TRUE THEN
2548: Qp_Preq_Grp.Engine_debug('HVOP_Pricing_On Now Reset to: '||Qp_Bulk_Preq_Grp.G_HVOP_pricing_ON);
2549: END IF;--l_debug
2550: END IF;--HVOP_Pricing_ON
2551: EXCEPTION
2672: x_MODIFIER_LIST_tbl := l_MODIFIER_LIST_tbl;
2673:
2674: -- Set return status.
2675:
2676: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2677:
2678: -- Get message count and data
2679:
2680: Oe_Msg_Pub.Count_And_Get
2684:
2685:
2686: EXCEPTION
2687: WHEN NO_DATA_FOUND THEN
2688: x_return_status := Fnd_Api.G_RET_STS_UNEXP_ERROR;
2689:
2690: IF Oe_Msg_Pub.Check_Msg_Level(Oe_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2691: THEN
2692: Oe_Msg_Pub.Add_Exc_Msg
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;
2710:
2711: IF Oe_Msg_Pub.Check_Msg_Level(Oe_Msg_Pub.G_MSG_LVL_UNEXP_ERROR)
2712: THEN
2713: Oe_Msg_Pub.Add_Exc_Msg
2727: END Get_Blanket_Pricelist_Modifier;
2728:
2729: PROCEDURE Check_Pricing_Attributes (
2730: P_Api_Version_Number IN NUMBER := 1,
2731: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
2732: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2733: P_Inventory_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2734: P_Price_List_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2735: X_Check_Return_Status_qp OUT NOCOPY VARCHAR2,
2728:
2729: PROCEDURE Check_Pricing_Attributes (
2730: P_Api_Version_Number IN NUMBER := 1,
2731: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
2732: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2733: P_Inventory_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2734: P_Price_List_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2735: X_Check_Return_Status_qp OUT NOCOPY VARCHAR2,
2736: x_msg_count OUT NOCOPY NUMBER,
2729: PROCEDURE Check_Pricing_Attributes (
2730: P_Api_Version_Number IN NUMBER := 1,
2731: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
2732: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2733: P_Inventory_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2734: P_Price_List_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2735: X_Check_Return_Status_qp OUT NOCOPY VARCHAR2,
2736: x_msg_count OUT NOCOPY NUMBER,
2737: x_msg_data OUT NOCOPY VARCHAR2)
2730: P_Api_Version_Number IN NUMBER := 1,
2731: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
2732: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2733: P_Inventory_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2734: P_Price_List_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2735: X_Check_Return_Status_qp OUT NOCOPY VARCHAR2,
2736: x_msg_count OUT NOCOPY NUMBER,
2737: x_msg_data OUT NOCOPY VARCHAR2)
2738: IS
2774: l_list_line_id NUMBER;
2775: c_check_qpprc_atr_rec c_check_qpprc_atr%ROWTYPE;
2776:
2777: BEGIN
2778: X_Check_Return_Status_qp := Fnd_Api.G_FALSE;
2779:
2780: OPEN c_check_qpprc_atr;
2781: FETCH c_check_qpprc_atr INTO c_check_qpprc_atr_rec;
2782: IF c_check_qpprc_atr%FOUND THEN
2779:
2780: OPEN c_check_qpprc_atr;
2781: FETCH c_check_qpprc_atr INTO c_check_qpprc_atr_rec;
2782: IF c_check_qpprc_atr%FOUND THEN
2783: X_Check_Return_Status_qp := Fnd_Api.G_TRUE;
2784: END IF;
2785: CLOSE c_check_qpprc_atr;
2786:
2787: END Check_Pricing_Attributes;
2788:
2789:
2790: PROCEDURE Check_Pricing_Attributes (
2791: P_Api_Version_Number IN NUMBER := 1,
2792: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
2793: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2794: P_Inventory_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2795: P_Price_List_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2796: X_Check_Return_Status_qp OUT NOCOPY VARCHAR2,
2789:
2790: PROCEDURE Check_Pricing_Attributes (
2791: P_Api_Version_Number IN NUMBER := 1,
2792: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
2793: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2794: P_Inventory_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2795: P_Price_List_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2796: X_Check_Return_Status_qp OUT NOCOPY VARCHAR2,
2797: x_return_status OUT NOCOPY VARCHAR2,
2790: PROCEDURE Check_Pricing_Attributes (
2791: P_Api_Version_Number IN NUMBER := 1,
2792: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
2793: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2794: P_Inventory_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2795: P_Price_List_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2796: X_Check_Return_Status_qp OUT NOCOPY VARCHAR2,
2797: x_return_status OUT NOCOPY VARCHAR2,
2798: x_msg_count OUT NOCOPY NUMBER,
2791: P_Api_Version_Number IN NUMBER := 1,
2792: P_Init_Msg_List IN VARCHAR2 := Fnd_Api.G_FALSE,
2793: P_Commit IN VARCHAR2 := Fnd_Api.G_FALSE,
2794: P_Inventory_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2795: P_Price_List_Id IN NUMBER := Fnd_Api.G_MISS_NUM,
2796: X_Check_Return_Status_qp OUT NOCOPY VARCHAR2,
2797: x_return_status OUT NOCOPY VARCHAR2,
2798: x_msg_count OUT NOCOPY NUMBER,
2799: x_msg_data OUT NOCOPY VARCHAR2)
2922:
2923: BEGIN
2924:
2925:
2926: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2927: X_Check_Return_Status_qp := Fnd_Api.G_FALSE;
2928:
2929: OPEN c_check_qpprc_atr;
2930: FETCH c_check_qpprc_atr INTO c_check_qpprc_atr_rec;
2923: BEGIN
2924:
2925:
2926: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2927: X_Check_Return_Status_qp := Fnd_Api.G_FALSE;
2928:
2929: OPEN c_check_qpprc_atr;
2930: FETCH c_check_qpprc_atr INTO c_check_qpprc_atr_rec;
2931: IF c_check_qpprc_atr%FOUND THEN
2928:
2929: OPEN c_check_qpprc_atr;
2930: FETCH c_check_qpprc_atr INTO c_check_qpprc_atr_rec;
2931: IF c_check_qpprc_atr%FOUND THEN
2932: X_Check_Return_Status_qp := Fnd_Api.G_TRUE;
2933: END IF;
2934: CLOSE c_check_qpprc_atr;
2935:
2936:
2933: END IF;
2934: CLOSE c_check_qpprc_atr;
2935:
2936:
2937: IF X_Check_Return_Status_qp = Fnd_Api.G_TRUE THEN
2938: l_found := 0;
2939: OPEN l_pricing_attribs;
2940: LOOP
2941: FETCH l_pricing_attribs INTO v_pricing_attr_ctxt, v_pricing_attr;
2983: X_Check_Return_Status_qp := 'NOT_SOURCED';
2984: END IF;
2985: ELSE
2986: X_Check_Return_Status_qp := 'NO_ATTRIBUTES';
2987: END IF;-- IF X_Check_Return_Status_qp = FND_API.G_TRUE
2988:
2989:
2990: EXCEPTION
2991: WHEN OTHERS THEN
3002: p_line_index IN NUMBER, p_priced_quantity IN NUMBER) IS
3003: BEGIN
3004: l_debug := Qp_Preq_Grp.G_DEBUG_ENGINE;
3005: IF Qp_Java_Engine_Util_Pub.Java_Engine_Running = 'N' THEN
3006: IF l_debug = Fnd_Api.G_TRUE THEN
3007: Qp_Preq_Grp.engine_debug('Java engine not installed '
3008: ||' line_id '||p_line_id||' line_index '||p_line_index
3009: ||' p_priced_quantity '||p_priced_quantity||' p_update_type '||p_update_type);
3010: END IF;
3024: WHERE line_id = p_line_id;
3025: END IF;--p_line_id IS NOT NULL
3026: END IF;
3027: ELSE
3028: IF l_debug = Fnd_Api.G_TRUE THEN
3029: Qp_Preq_Grp.engine_debug('Java engine installed '
3030: ||' line_id '||p_line_id||' line_index '||p_line_index
3031: ||' p_priced_quantity '||p_priced_quantity||' p_update_type '||p_update_type);
3032: END IF;