[Home] [Help]
724: END IF;
725:
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:
725:
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;
856:
857:
858: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
859: -- bug 2943033
860: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES')
861: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y')
862: AND l_price_list_id IS NOT NULL THEN
863:
864: -- Multi Currency is installed on and calling prog pass a price list
857:
858: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
859: -- bug 2943033
860: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES')
861: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y')
862: AND l_price_list_id IS NOT NULL THEN
863:
864: -- Multi Currency is installed on and calling prog pass a price list
865: l_counter := 1;
960: AND qdt.to_currency_code = l_currency_code
961: AND qlhv.active_flag = 'Y'
962: --added for MOAC
963: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
964: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
965: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
966: AND qlhv.list_type_code = 'PRL'
967: -- If there is a blanket reference show all standard pricelist and
968: -- all shareable BSO PL's and all PL's attached to the referenced blanket.
997: --AND qdt.to_currency_code = NVL(:order.transactional_curr_code, qdt.to_currency_code)
998: --AND qdt.to_currency_code = NVL(l_order_transac_curr_code, qdt.to_currency_code)
999: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1000: FROM qp_pte_source_systems qpss
1001: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1002: UNION
1003: SELECT DISTINCT qlhv.list_header_id price_list_id
1004: ,qlhv.name name
1005: ,qlhv.description description
1033: )
1034: ) -- Blanket Pricing
1035: --added for MOAC
1036: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1037: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1038: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1039: AND qlhv.currency_header_id = qdt.currency_header_id
1040: AND qdt.to_currency_code = l_currency_code
1041: --AND NVL(to_date(:parameter.lov_char_param1), TRUNC(sysdate))
1056: --AND qdt.to_currency_code = NVL(l_order_transac_curr_code, qdt.to_currency_code)
1057: AND qdt.to_currency_code = NVL(l_currency_code, qdt.to_currency_code)
1058: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1059: FROM qp_pte_source_systems qpss
1060: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1061: UNION
1062: SELECT DISTINCT qlhv.list_header_id price_list_id
1063: ,qlhv.name name
1064: ,qlhv.description description
1092: )
1093: ) -- Blanket Pricing
1094: --added for MOAC
1095: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1096: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1097: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1098: AND qlhv.currency_header_id = qdt.currency_header_id
1099: AND qdt.to_currency_code = l_currency_code
1100: AND l_temp_date
1117: WHERE r.related_cust_account_id = l_sold_to_org_id AND
1118: r.status = 'A' AND l_cust_relation_flag = 'Y'))
1119: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1120: FROM qp_pte_source_systems qpss
1121: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1122: ORDER BY name;
1123:
1124:
1125: CURSOR c_price_list_no_multi
1134: WHERE list_type_code = 'PRL'
1135: AND qlhv.active_flag = 'Y'
1136: --added for MOAC
1137: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1138: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1139: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1140: --AND NVL(to_date(:parameter.lov_char_param1), TRUNC(sysdate))
1141: -- If there is a blanket reference show all standard pricelist and
1142: -- all shareable BSO PL's and all PL's attached to the referenced blanket.
1165: --AND currency_code = NVL(l_order_transac_curr_code, currency_code)
1166: AND currency_code = NVL(l_currency_code, currency_code)
1167: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1168: FROM qp_pte_source_systems qpss
1169: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1170: UNION
1171: SELECT
1172: qlhv.list_header_id price_list_id
1173: ,qlhv.name name
1202: )
1203: ) -- Blanket Pricing
1204: --added for MOAC
1205: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1206: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1207: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1208: AND l_temp_date
1209: BETWEEN
1210: NVL(TRUNC(qlhv.start_date_active), l_temp_date) AND
1216: --AND currency_code = NVL(l_order_transac_curr_code, currency_code)
1217: AND currency_code = NVL(l_currency_code, currency_code)
1218: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1219: FROM qp_pte_source_systems qpss
1220: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1221: UNION
1222: SELECT
1223: qlhv.list_header_id price_list_id
1224: ,qlhv.name name
1252: )
1253: ) -- Blanket Pricing
1254: --added for MOAC
1255: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1256: --AND (((nvl(qlhv.global_flag,'Y') = 'Y' or qlhv.orig_org_id = fnd_profile.Value('ORG_ID')) and
1257: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1258: AND l_temp_date
1259: BETWEEN
1260: NVL(TRUNC(qlhv.start_date_active), l_temp_date) AND
1271: WHERE r.related_cust_account_id = l_sold_to_org_id AND
1272: r.status = 'A' AND l_cust_relation_flag = 'Y'))
1273: AND qlhv.source_system_code IN (SELECT qpss.application_short_name
1274: FROM qp_pte_source_systems qpss
1275: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1276: ORDER BY name;
1277:
1278: l_price_list_multi c_price_list_multi%ROWTYPE;
1279: l_price_list_no_multi c_price_list_no_multi%ROWTYPE;
1302: END IF;
1303:
1304: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
1305: -- bug 2943033
1306: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES')
1307: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y')
1308: AND l_currency_code IS NOT NULL THEN
1309:
1310: -- Multi Currency is installed on and calling prog pass a currency_code
1303:
1304: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'Y' to maintain current behaviour,
1305: -- bug 2943033
1306: IF UPPER(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED')) IN ('Y', 'YES')
1307: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y')
1308: AND l_currency_code IS NOT NULL THEN
1309:
1310: -- Multi Currency is installed on and calling prog pass a currency_code
1311: l_counter := 1;
1400: WHERE list_type_code IN ('PRL' ,'AGR') AND
1401: NVL(active_flag,'N') ='Y'
1402: --added for MOAC
1403: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1404: -- (((nvl(global_flag,'Y') = 'Y' or orig_org_id = fnd_profile.Value('ORG_ID'))
1405: -- and qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1406: AND source_system_code IN (SELECT qpss.application_short_name
1407: FROM qp_pte_source_systems qpss
1408: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1404: -- (((nvl(global_flag,'Y') = 'Y' or orig_org_id = fnd_profile.Value('ORG_ID'))
1405: -- and qp_security.security_on = 'Y') or qp_security.security_on = 'N')
1406: AND source_system_code IN (SELECT qpss.application_short_name
1407: FROM qp_pte_source_systems qpss
1408: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1409: ORDER BY name;
1410:
1411: CURSOR c_price_list_ttyp
1412: IS
1419: FROM qp_list_headers_vl
1420: WHERE currency_code = p_currency_code
1421: --added for MOAC
1422: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1423: -- (((nvl(global_flag,'Y') = 'Y' or orig_org_id = fnd_profile.Value('ORG_ID'))
1424: -- and qp_security.security_on = 'Y') or qp_security.security_on = 'N') and
1425: AND TRUNC(l_temp_date) BETWEEN NVL(TRUNC(start_date_active), TRUNC(l_temp_date)) AND
1426: NVL(TRUNC(end_date_active), TRUNC(l_temp_date)) AND
1427: list_type_code = 'PRL'
1426: NVL(TRUNC(end_date_active), TRUNC(l_temp_date)) AND
1427: list_type_code = 'PRL'
1428: AND source_system_code IN (SELECT qpss.application_short_name
1429: FROM qp_pte_source_systems qpss
1430: WHERE qpss.pte_code = Fnd_Profile.value('QP_PRICING_TRANSACTION_ENTITY'))
1431: ORDER BY name;
1432:
1433: l_price_list_ttyp c_price_list_ttyp%ROWTYPE;
1434: l_price_list_blkt c_price_list_blkt%ROWTYPE;
1549: TRUNC(NVL(a.end_date_active, ADD_MONTHS(SYSDATE, +10000))) AND
1550: a.price_list_id = q.list_header_id
1551: --added for MOAC
1552: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1553: -- (((nvl(q.global_flag,'Y') = 'Y' or q.orig_org_id = fnd_profile.Value('ORG_ID')) and
1554: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N') and
1555: AND a.price_list_id = q.list_header_id AND
1556: -- q.language = userenv('LANG') and
1557: a.sold_to_org_id = c.cust_account_id(+) AND
1575: where l_temp_date between
1576: trunc(nvl(a.start_date_active, add_months(sysdate, -10000))) and
1577: trunc(nvl(a.end_date_active, add_months(sysdate, +10000))) and
1578: a.price_list_id = q.list_header_id and
1579: --(((nvl(l.global_flag,'Y') = 'Y' or l.orig_org_id = fnd_profile.Value('ORG_ID')) and
1580: --qp_security.security_on = 'Y') or qp_security.security_on = 'N') and
1581: --a.price_list_id = q.list_header_id and
1582: --q.language = userenv('LANG') and
1583: a.term_id = t.term_id(+) and
1606: l_temp_date between
1607: trunc(nvl(a.start_date_active, add_months(sysdate, -10000))) and
1608: trunc(nvl(a.end_date_active, add_months(sysdate, +10000))) and
1609: a.price_list_id = q.list_header_id and
1610: --(((nvl(l.global_flag,'Y') = 'Y' or l.orig_org_id = fnd_profile.Value('ORG_ID')) and
1611: --qp_security.security_on = 'Y') or qp_security.security_on = 'N') and
1612: --a.price_list_id = q.list_header_id and
1613: --q.language = userenv('LANG') and
1614: a.sold_to_org_id = c.cust_account_id(+) and
1631: TRUNC(NVL(a.end_date_active, ADD_MONTHS(SYSDATE, +10000))) AND
1632: a.price_list_id = q.list_header_id
1633: --added for MOAC
1634: --commented out below 2 lines for MOAC as the ORG_ID check is built into the view qp_list_headers_vl
1635: -- (((nvl(q.global_flag,'Y') = 'Y' or q.orig_org_id = fnd_profile.Value('ORG_ID')) and
1636: -- qp_security.security_on = 'Y') or qp_security.security_on = 'N') and
1637: AND a.price_list_id = q.list_header_id
1638: -- q.language = userenv('LANG')
1639: ORDER BY 1;
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:
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
1896: -- The OM change is to delete this OM profile and reply totally on QP_SELLING_PRICE_ROUNDING_OPTIONS
1897: IF p_operand_type <> 'R' AND G_OE_UNIT_PRICE_ROUNDING IS NULL THEN
1898: G_OE_UNIT_PRICE_ROUNDING := NVL(Fnd_Profile.Value('OE_UNIT_PRICE_ROUNDING'), 'N');
1899: END IF;
1900:
1901: l_oe_unit_price_rounding := G_OE_UNIT_PRICE_ROUNDING;
1902:
1934: l_pricing_effective_date IS NOT NULL THEN
1935: -- it means called by OM
1936:
1937: IF G_MULTI_CURRENCY IS NULL THEN
1938: Fnd_Profile.get('QP_MULTI_CURRENCY_INSTALLED', l_multi_currency_installed);
1939: l_multi_currency_installed := NVL(l_multi_currency_installed, 'N');
1940: G_MULTI_CURRENCY := l_multi_currency_installed;
1941: END IF;
1942:
1951: ELSE
1952: IF G_MULTI_CURRENCY_USAGE IS NULL THEN
1953: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'N' to maintain
1954: -- current behaviour,bug 2943033
1955: G_MULTI_CURRENCY_USAGE := NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'N');
1956: END IF;
1957: l_use_multi_currency := G_MULTI_CURRENCY_USAGE;
1958: END IF;
1959:
2113: --if there are only basic modifiers in setup
2114: FUNCTION Basic_Pricing_Setup RETURN VARCHAR2 IS
2115: x_basic_pricing_setup VARCHAR2(1) := 'N';
2116: BEGIN
2117: Fnd_Profile.Get('QP_BASIC_MODIFIERS_SETUP',x_basic_pricing_setup);
2118: RETURN x_basic_pricing_setup;
2119: END Basic_Pricing_Setup;
2120:
2121: PROCEDURE Reprice_Debug_Engine_Request(
2200: END IF;
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
2485: WHERE qcd.currency_header_id = qlh.currency_header_id AND fnd.currency_code = qcd.to_currency_code
2486: AND qlh.list_type_code in (''PRL'', ''AGR'') and fnd.currency_flag = ''Y''
2487: AND fnd.enabled_flag = ''Y''';
2488: BEGIN
2489: IF NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED'), 'N') = 'Y'
2490: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y') THEN
2491: x_sql_string := l_multi_curr_sql;
2492:
2493: ELSE
2486: AND qlh.list_type_code in (''PRL'', ''AGR'') and fnd.currency_flag = ''Y''
2487: AND fnd.enabled_flag = ''Y''';
2488: BEGIN
2489: IF NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_INSTALLED'), 'N') = 'Y'
2490: AND (NVL(Fnd_Profile.value('QP_MULTI_CURRENCY_USAGE'), 'Y') = 'Y') THEN
2491: x_sql_string := l_multi_curr_sql;
2492:
2493: ELSE
2494: x_sql_string := l_no_multi_curr_sql;
2510: FUNCTION HVOP_Pricing_Setup RETURN VARCHAR2 IS
2511: ret_val VARCHAR2(1) := 'N';
2512: BEGIN
2513: IF Qp_Java_Engine_Util_Pub.Java_Engine_Running = 'Y' THEN
2514: ret_val := NVL (Fnd_Profile.Value('QP_HVOP_PRICING_SETUP'), 'N');
2515: END IF;
2516: RETURN ret_val;
2517:
2518: EXCEPTION