[Home] [Help]
830: l_list_line_type QP_LIST_LINES.LIST_LINE_TYPE_CODE%TYPE :='XXX';
831: l_order_status_rec QP_UTIL_PUB.ORDER_LINES_STATUS_REC_TYPE;
832: l_dummy VARCHAR2(1);
833: x_pass_all_lines varchar2(1):='Y'; -- 9251187
834: l_QP_CUSTOM_HOOK4_ADV_MOD varchar2(1):=nvl(fnd_profile.value('QP_CUSTOM_HOOK_ADV_MOD'),'N'); -- 9251187
835: BEGIN
836:
837: IF (l_QP_CUSTOM_HOOK4_ADV_MOD='Y') THEN -- for profile 'ON' 9251187
838: QP_ADV_MOD_CUSTOM_HOOK.pass_all_lines(p_header_id ,p_line_id , x_pass_all_lines); -- custom hook call
971: FROM qp_event_phases
972: WHERE ROWNUM < 7)
973: AND ROWNUM = 1;
974:
975: l_manual_grpline_profile_value Varchar2(1):= Nvl(Fnd_Profile.Value('QP_MANUAL_LINEGROUP'),'N');
976: BEGIN
977: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
978:
979: IF l_debug = FND_API.G_TRUE THEN
1054: END IF;
1055:
1056: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
1057: -- bug 2943033
1058: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES') AND
1059: (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y') THEN
1060: IF l_debug = Fnd_Api.G_TRUE THEN
1061: Qp_Preq_Grp.engine_debug('validate price list - multi-currency');
1062:
1055:
1056: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
1057: -- bug 2943033
1058: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES') AND
1059: (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y') THEN
1060: IF l_debug = Fnd_Api.G_TRUE THEN
1061: Qp_Preq_Grp.engine_debug('validate price list - multi-currency');
1062:
1063: END IF;
1186:
1187:
1188: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
1189: -- bug 2943033
1190: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES')
1191: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y')
1192: AND l_price_list_id IS NOT NULL THEN
1193:
1194: -- Multi Currency is installed on and calling prog pass a price list
1187:
1188: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
1189: -- bug 2943033
1190: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES')
1191: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y')
1192: AND l_price_list_id IS NOT NULL THEN
1193:
1194: -- Multi Currency is installed on and calling prog pass a price list
1195: l_counter := 1;
1290: AND qdt.to_currency_code = l_currency_code
1291: AND qlhv.active_flag = 'Y'
1292: --added for MOAC
1293: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1294: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1295: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1296: AND qlhv.list_type_code = 'PRL'
1297: -- If there is a blanket reference show all standard pricelist and
1298: -- all shareable BSO PL's and all PL's attached to the referenced blanket.
1327: --AND qdt.to_currency_code = NVL(:order.transactional_curr_code, qdt.to_currency_code)
1328: --AND qdt.to_currency_code = NVL(l_order_transac_curr_code, qdt.to_currency_code)
1329: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1330: FROM qp_pte_source_systems qpss
1331: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1332: UNION
1333: SELECT DISTINCT qlhv.list_header_id price_list_id
1334: ,qlhv.name name
1335: ,qlhv.description description
1363: )
1364: ) -- Blanket Pricing
1365: --added for MOAC
1366: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1367: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1368: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1369: AND qlhv.currency_header_id = qdt.currency_header_id
1370: AND qdt.to_currency_code = l_currency_code
1371: --AND NVL(to_date(:parameter.lov_char_param1), TRUNC(sysdate))
1386: --AND qdt.to_currency_code = NVL(l_order_transac_curr_code, qdt.to_currency_code)
1387: AND qdt.to_currency_code = NVL(l_currency_code, qdt.to_currency_code)
1388: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1389: FROM qp_pte_source_systems qpss
1390: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1391: UNION
1392: SELECT DISTINCT qlhv.list_header_id price_list_id
1393: ,qlhv.name name
1394: ,qlhv.description description
1422: )
1423: ) -- Blanket Pricing
1424: --added for MOAC
1425: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1426: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1427: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1428: AND qlhv.currency_header_id = qdt.currency_header_id
1429: AND qdt.to_currency_code = l_currency_code
1430: AND l_temp_date
1447: WHERE r.related_cust_account_id = l_sold_to_org_id AND
1448: r.status = 'A' AND l_cust_relation_flag = 'Y'))
1449: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1450: FROM qp_pte_source_systems qpss
1451: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1452: ORDER BY name;
1453:
1454:
1455: CURSOR c_price_list_no_multi
1464: WHERE list_type_code = 'PRL'
1465: AND qlhv.active_flag = 'Y'
1466: --added for MOAC
1467: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1468: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1469: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1470: --AND NVL(to_date(:parameter.lov_char_param1), TRUNC(sysdate))
1471: -- If there is a blanket reference show all standard pricelist and
1472: -- all shareable BSO PL's and all PL's attached to the referenced blanket.
1495: --AND currency_code = NVL(l_order_transac_curr_code, currency_code)
1496: AND currency_code = NVL(l_currency_code, currency_code)
1497: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1498: FROM qp_pte_source_systems qpss
1499: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1500: UNION
1501: SELECT
1502: qlhv.list_header_id price_list_id
1503: ,qlhv.name name
1532: )
1533: ) -- Blanket Pricing
1534: --added for MOAC
1535: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1536: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1537: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1538: AND l_temp_date
1539: BETWEEN
1540: NVL(TRUNC(qlhv.start_date_active), l_temp_date) AND
1546: --AND currency_code = NVL(l_order_transac_curr_code, currency_code)
1547: AND currency_code = NVL(l_currency_code, currency_code)
1548: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1549: FROM qp_pte_source_systems qpss
1550: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1551: UNION
1552: SELECT
1553: qlhv.list_header_id price_list_id
1554: ,qlhv.name name
1582: )
1583: ) -- Blanket Pricing
1584: --added for MOAC
1585: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1586: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1587: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1588: AND l_temp_date
1589: BETWEEN
1590: NVL(TRUNC(qlhv.start_date_active), l_temp_date) AND
1601: WHERE r.related_cust_account_id = l_sold_to_org_id AND
1602: r.status = 'A' AND l_cust_relation_flag = 'Y'))
1603: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1604: FROM qp_pte_source_systems qpss
1605: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1606: ORDER BY name;
1607:
1608: l_price_list_multi c_price_list_multi%ROWTYPE;
1609: l_price_list_no_multi c_price_list_no_multi%ROWTYPE;
1632: END IF;
1633:
1634: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
1635: -- bug 2943033
1636: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES')
1637: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y')
1638: AND l_currency_code IS NOT NULL THEN
1639:
1640: -- Multi Currency is installed on and calling prog pass a currency_code
1633:
1634: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
1635: -- bug 2943033
1636: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES')
1637: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y')
1638: AND l_currency_code IS NOT NULL THEN
1639:
1640: -- Multi Currency is installed on and calling prog pass a currency_code
1641: l_counter := 1;
1730: WHERE list_type_code IN ('PRL' ,'AGR') AND
1731: NVL(active_flag,'N') ='Y'
1732: --added for MOAC
1733: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1734: -- (((nvl(global_flag,'Y') = 'Y' or orig_org_id = fnd_profile.Value('ORG_ID'))
1735: -- and qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1736: AND source_system_code IN (SELECT qpss.application_short_name
1737: FROM qp_pte_source_systems qpss
1738: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1734: -- (((nvl(global_flag,'Y') = 'Y' or orig_org_id = fnd_profile.Value('ORG_ID'))
1735: -- and qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1736: AND source_system_code IN (SELECT qpss.application_short_name
1737: FROM qp_pte_source_systems qpss
1738: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1739: ORDER BY name;
1740:
1741: CURSOR c_price_list_ttyp
1742: IS
1749: FROM qp_list_headers_vl
1750: WHERE currency_code = p_currency_code
1751: --added for MOAC
1752: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1753: -- (((nvl(global_flag,'Y') = 'Y' or orig_org_id = fnd_profile.Value('ORG_ID'))
1754: -- and qp_security.security_on = 'Y') or qp_security.security_on = 'N') and
1755: AND TRUNC(l_temp_date) BETWEEN NVL(TRUNC(start_date_active), TRUNC(l_temp_date)) AND
1756: NVL(TRUNC(end_date_active), TRUNC(l_temp_date)) AND
1757: list_type_code = 'PRL'
1756: NVL(TRUNC(end_date_active), TRUNC(l_temp_date)) AND
1757: list_type_code = 'PRL'
1758: AND source_system_code IN (SELECT qpss.application_short_name
1759: FROM qp_pte_source_systems qpss
1760: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1761: ORDER BY name;
1762:
1763: l_price_list_ttyp c_price_list_ttyp%ROWTYPE;
1764: l_price_list_blkt c_price_list_blkt%ROWTYPE;
1879: TRUNC(NVL(a.end_date_active, ADD_MONTHS(SYSDATE, +10000))) AND
1880: a.price_list_id = q.list_header_id
1881: --added for MOAC
1882: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1883: -- (((nvl(q.global_flag,'Y') = 'Y' or q.orig_org_id = fnd_profile.Value('ORG_ID')) and
1884: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N') and
1885: AND a.price_list_id = q.list_header_id AND
1886: -- q.language = userenv('LANG') and
1887: a.sold_to_org_id = c.cust_account_id(+) AND
1905: where l_temp_date between
1906: trunc(nvl(a.start_date_active, add_months(sysdate, -10000))) and
1907: trunc(nvl(a.end_date_active, add_months(sysdate, +10000))) and
1908: a.price_list_id = q.list_header_id and
1909: --(((nvl(l.global_flag,'Y') = 'Y' or l.orig_org_id = fnd_profile.Value('ORG_ID')) and
1910: --qp_security.security_on = 'Y') or qp_security.security_on = 'N') and
1911: --a.price_list_id = q.list_header_id and
1912: --q.language = userenv('LANG') and
1913: a.term_id = t.term_id(+) and
1936: l_temp_date between
1937: trunc(nvl(a.start_date_active, add_months(sysdate, -10000))) and
1938: trunc(nvl(a.end_date_active, add_months(sysdate, +10000))) and
1939: a.price_list_id = q.list_header_id and
1940: --(((nvl(l.global_flag,'Y') = 'Y' or l.orig_org_id = fnd_profile.Value('ORG_ID')) and
1941: --qp_security.security_on = 'Y') or qp_security.security_on = 'N') and
1942: --a.price_list_id = q.list_header_id and
1943: --q.language = userenv('LANG') and
1944: a.sold_to_org_id = c.cust_account_id(+) and
1961: TRUNC(NVL(a.end_date_active, ADD_MONTHS(SYSDATE, +10000))) AND
1962: a.price_list_id = q.list_header_id
1963: --added for MOAC
1964: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1965: -- (((nvl(q.global_flag,'Y') = 'Y' or q.orig_org_id = fnd_profile.Value('ORG_ID')) and
1966: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N') and
1967: AND a.price_list_id = q.list_header_id
1968: -- q.language = userenv('LANG')
1969: ORDER BY 1;
2211: RAISE Fnd_Api.G_EXC_ERROR;
2212: END IF;
2213:
2214: IF p_operand_type <> 'R' AND G_ROUNDING_OPTIONS IS NULL THEN
2215: G_ROUNDING_OPTIONS := NVL(Fnd_Profile.Value('QP_SELLING_PRICE_ROUNDING_OPTIONS'), 'NO_ROUND');
2216: END IF;
2217:
2218: l_rounding_options := G_ROUNDING_OPTIONS;
2219:
2224: -- check the Om profile for backward compatibility
2225: -- in scenario like this file is shipped to customer but the corresponding OM change is not shipped
2226: -- The OM change is to delete this OM profile and reply totally on QP_SELLING_PRICE_ROUNDING_OPTIONS
2227: IF p_operand_type <> 'R' AND G_OE_UNIT_PRICE_ROUNDING IS NULL THEN
2228: G_OE_UNIT_PRICE_ROUNDING := NVL(Fnd_Profile.Value('OE_UNIT_PRICE_ROUNDING'), 'N');
2229: END IF;
2230:
2231: l_oe_unit_price_rounding := G_OE_UNIT_PRICE_ROUNDING;
2232:
2264: l_pricing_effective_date IS NOT NULL THEN
2265: -- it means called by OM
2266:
2267: IF G_MULTI_CURRENCY IS NULL THEN
2268: Fnd_Profile.get('QP_MULTI_CURRENCY_INSTALLED', l_multi_currency_installed);
2269: l_multi_currency_installed := NVL(l_multi_currency_installed, 'N');
2270: G_MULTI_CURRENCY := l_multi_currency_installed;
2271: END IF;
2272:
2281: ELSE
2282: IF G_MULTI_CURRENCY_USAGE IS NULL THEN
2283: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'N' to maintain
2284: -- current behaviour,bug 2943033
2285: G_MULTI_CURRENCY_USAGE := NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'N');
2286: END IF;
2287: l_use_multi_currency := G_MULTI_CURRENCY_USAGE;
2288: END IF;
2289:
2443: --if there are only basic modifiers in setup
2444: FUNCTION Basic_Pricing_Setup RETURN VARCHAR2 IS
2445: x_basic_pricing_setup VARCHAR2(1) := 'N';
2446: BEGIN
2447: Fnd_Profile.Get('QP_BASIC_MODIFIERS_SETUP',x_basic_pricing_setup);
2448: RETURN x_basic_pricing_setup;
2449: END Basic_Pricing_Setup;
2450:
2451: PROCEDURE Reprice_Debug_Engine_Request(
2530: END IF;
2531: --dbms_output.put_line('Reprice_Debug_Engine_Request Begins');
2532:
2533: /* profile settings */
2534: Fnd_Profile.PUT('QP_DEBUG','Y');
2535: x_return_status := Fnd_Api.G_RET_STS_SUCCESS;
2536: x_return_status_text := 'Routine: QP_UTIL_PUB.Reprice_Debug_Engine_Request SUCCESS';
2537:
2538: IF ( p_request_id IS NULL) THEN
2815: WHERE qcd.currency_header_id = qlh.currency_header_id AND fnd.currency_code = qcd.to_currency_code
2816: AND qlh.list_type_code in (''PRL'', ''AGR'') and fnd.currency_flag = ''Y''
2817: AND fnd.enabled_flag = ''Y''';
2818: BEGIN
2819: IF NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED'), 'N') = 'Y'
2820: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y') THEN
2821: x_sql_string := l_multi_curr_sql;
2822:
2823: ELSE
2816: AND qlh.list_type_code in (''PRL'', ''AGR'') and fnd.currency_flag = ''Y''
2817: AND fnd.enabled_flag = ''Y''';
2818: BEGIN
2819: IF NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED'), 'N') = 'Y'
2820: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y') THEN
2821: x_sql_string := l_multi_curr_sql;
2822:
2823: ELSE
2824: x_sql_string := l_no_multi_curr_sql;
2840: FUNCTION HVOP_Pricing_Setup RETURN VARCHAR2 IS
2841: ret_val VARCHAR2(1) := 'N';
2842: BEGIN
2843: IF Qp_Java_Engine_Util_Pub.Java_Engine_Running = 'Y' THEN
2844: ret_val := NVL (Fnd_Profile.Value('QP_HVOP_PRICING_SETUP'), 'N');
2845: END IF;
2846: RETURN ret_val;
2847:
2848: EXCEPTION