[Home] [Help]
366: l_routine VARCHAR2(30) := 'Set_QP_Debug';
367: v_debug_switch CONSTANT VARCHAR2(30) := 'QP_DEBUG';
368:
369: BEGIN
370: G_QP_DEBUG_PROFILE_VALUE := FND_PROFILE.VALUE(v_debug_switch);
371: -- Introduced for facilitating debugging for non OM Applications
372: --IF (NOT OE_DEBUG_PUB.ISDebugOn) THEN --If om debug is not on , then only look at qp_debug
373: if oe_debug_pub.g_debug_level > 0 then
374: G_DEBUG_ENGINE:= FND_API.G_TRUE;
7511: END IF;
7512:
7513: -- bug 3572594 - round the multiplied value to profile QP_INV_DECIMAL_PRECISION
7514: if G_INV_DECIMAL_PRECISION is null then
7515: G_INV_DECIMAL_PRECISION := nvl(FND_PROFILE.Value('QP_INV_DECIMAL_PRECISION'),10);
7516: end if;
7517: /*
7518: INDX,QP_PREQ_GRP.source_vol_contexts_attributes.source_vol_contexts_attributes_upd4,qp_npreq_line_attrs_tmp_N2,PRICING_STATUS_CODE,1
7519: INDX,QP_PREQ_GRP.source_vol_contexts_attributes.source_vol_contexts_attributes_upd4,qp_npreq_line_attrs_tmp_N2,ATTRIBUTE_TYPE,2
8057: --added by yangli for Java Engine project
8058:
8059: -- begin declare shu fix bug 1728757
8060: l_list_header_id qp_qualifiers.list_header_id%type := NULL;
8061: --l_cascade_ask_for_profile VARCHAR2(2):= nvl(FND_PROFILE.value ('QP_CASCADE_ASK_FOR_PROMOTION'), G_NO);
8062: l_cascade_ask_for_profile VARCHAR2(2):= G_NO;
8063: l_ask_for_flag qp_list_headers_b.ask_for_flag%type := NULL;
8064:
8065: CURSOR get_ask_for_flag_cur (l_list_header_id IN NUMBER) IS
11754: --type refcur is ref cursor;
11755:
11756: --l_price_break_detail_cur refcur;
11757: l_total_item_quantity NUMBER; -- shu
11758: l_max_decimal_digits PLS_INTEGER := nvl(FND_PROFILE.Value ('QP_INV_DECIMAL_PRECISION'),10); --shu
11759:
11760: l_break_uom_code VARCHAR2(3); /* Proration */
11761: l_break_uom_context VARCHAR2(30); /* Proration */
11762: l_break_uom_attribute VARCHAR2(30); /* Proration */
11777:
11778: --product uom code is different than order uom code
11779: --and attribute is quantity than we need to do uom conversion
11780: if G_BREAK_UOM_PRORATION is null then
11781: G_BREAK_UOM_PRORATION := nvl(fnd_profile.value('QP_BREAK_UOM_PRORATION'), G_NULL_PROFILE_VALUE);
11782: end if;
11783:
11784: N := 1;
11785:
16001:
16002: E_ROUTINE_ERRORS EXCEPTION;
16003: BEGIN
16004: qp_debug_util.tstart('PERFORM_SECONDARY_SEARCH','Performing Secondary Price List Search');
16005: -- G_QUALIFY_SECONDARY := NVL(FND_PROFILE.VALUE('QP_QUALIFY_SECONDARY_PRICE_LISTS'),'N');--profile option
16006: -- Update the price list id , validated flag , and primary_qualifiers_match flag for sec search
16007: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN --4033618
16008: engine_debug ('QP_QUALIFY_SECONDARY_PRICE_LISTS:' || G_QUALIFY_SECONDARY);
16009: END IF;
23227: engine_debug('Before Big Select');
23228:
23229: END IF;
23230: --hw
23231: l_satis_quals_opt := nvl(fnd_profile.value('QP_SATIS_QUALS_OPT'), 'Y');
23232: --[julin/pricebook]
23233: IF nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) = G_YES THEN
23234: l_satis_quals_opt := 'N';
23235: END IF;
30065: l_line_unit_price NUMBER:= NULL; -- shu, default to null, fix bug 2354422, avoid division zero
30066: l_line_adjusted_unit_price NUMBER:= NULL;
30067: l_conversion_rate NUMBER:= NULL; -- shu, to fix bug 2354422
30068: l_order_uom_selling_price NUMBER:= NULL; -- bug 2693700
30069: v_price_round_options VARCHAR2(30):= FND_PROFILE.Value('QP_SELLING_PRICE_ROUNDING_OPTIONS'); --shu, new rounding
30070:
30071: E_CAL_ENGINE_ERROR EXCEPTION;
30072:
30073: BEGIN
30088: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30089: engine_debug( '-------------In call calculation engine-----------');
30090: END IF;
30091:
30092: l_GSA_Enabled_Flag := FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled);
30093:
30094: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30095: engine_debug ('GSA Enabled Flag : ' || l_GSA_Enabled_Flag);
30096: engine_debug ('Freeze_override_flag: '||p_freeze_override_flag);
30986: l_msg_context VARCHAR2(240);
30987: l_rows NATURAL := 5000;
30988:
30989: -- Bug 2772214
30990: l_pass_qualifiers varchar2(10) := FND_PROFILE.VALUE('QP_PASS_QUALIFIERS_TO_GET_CUSTOM');
30991:
30992: -- added for formula messages
30993: E_ATTRIBUTE_NON_NUMERIC EXCEPTION;
30994: CURSOR am_attr_cols_cur
31890: AND qs.PARTY_HIERARCHY_ENABLED_FLAG = 'Y'
31891: AND nvl(qs.user_format_type, qs.seeded_format_type) = G_NUMERIC
31892: AND hn.CHILD_ID = to_number(qnlat.VALUE_FROM)
31893: AND hn.child_table_name = 'HZ_PARTIES'
31894: AND hn.HIERARCHY_TYPE = FND_PROFILE.VALUE('QP_PRICING_PARTY_HIERARCHY_TYPE')
31895: AND trunc(nvl(hn.EFFECTIVE_START_DATE,sysdate)) <= trunc(sysdate)
31896: AND trunc(nvl(hn.EFFECTIVE_END_DATE,sysdate)) >= trunc(sysdate)
31897: AND hn.LEVEL_NUMBER > 0;
31898:
31986: l_time_stats VARCHAR2(240);
31987:
31988: -- Essilor Fix bug 2789138
31989: L_MANUAL_ADJUSTMENTS_CALL_FLAG VARCHAR2(1) := 'N';
31990: L_RETURN_MANUAL_DISCOUNT VARCHAR2(1) := nvl(FND_PROFILE.VALUE('QP_RETURN_MANUAL_DISCOUNTS'),'N');
31991:
31992: E_SEARCH_FLAG_IS_NULL EXCEPTION;
31993: E_INVALID_CONTROL_RECORD EXCEPTION;
31994: E_ROUTINE_ERRORS EXCEPTION;
32423: -- end changes
32424:
32425: l_trans VARCHAR2(1);
32426: l_install_status VARCHAR2(1);
32427: l_limits_installed VARCHAR2(1) := FND_PROFILE.VALUE('QP_LIMITS_INSTALLED');
32428: --added by yangli for Java Engine 3086881
32429: l_begin_time number;
32430: l_end_time number;
32431: l_request_id number;
32434: BEGIN
32435: qp_debug_util.tstart('ENGINE_CALL_QPXGPREB','QPXGPREB Price Engine Call');
32436:
32437: --==========START: Debug Viewere needed by JAVA and PL/SQL engine=======
32438: --G_QP_DEBUG_PROFILE_VALUE := FND_PROFILE.VALUE(v_debug_switch);
32439: G_PUBLIC_API_CALL_FLAG := nvl(p_control_rec.public_api_call_flag,'N');
32440:
32441: -- Set the G_DEBUG_ENGINE if the call is not from public API
32442: IF (G_PUBLIC_API_CALL_FLAG = G_NO) THEN
32527:
32528: --dbms_output.put_line('Final Debug: ' || oe_debug_pub.g_debug);
32529: --G_DEBUG_ENGINE := FND_API.G_TRUE;
32530: --G_LINE_DETAIL_INDEX := 0;
32531: G_MANUAL_DISCOUNT_FLAG := nvl(FND_PROFILE.VALUE(G_RETURN_MANUAL_DISCOUNTS),'Y'); --p_control_rec.manual_discount_flag;
32532: G_GSA_CHECK_FLAG := p_control_rec.gsa_check_flag;
32533: G_GSA_DUP_CHECK_FLAG := nvl(p_control_rec.gsa_dup_check_flag,'N');
32534: --moved to top for both PL/SQL and Java Engine
32535: --G_TEMP_TABLE_INSERT_FLAG := nvl(p_control_rec.temp_table_insert_flag,'Y');
32534: --moved to top for both PL/SQL and Java Engine
32535: --G_TEMP_TABLE_INSERT_FLAG := nvl(p_control_rec.temp_table_insert_flag,'Y');
32536: G_MANUAL_ADJUSTMENTS_CALL_FLAG := nvl(p_control_rec.manual_adjustments_call_flag,'N');
32537: G_INSERT_INTO_FORMULA_TMP := FALSE;
32538: G_INSERT_FORMULA_STEP_VALUES := nvl(FND_PROFILE.VALUE('QP_INSERT_FORMULA_STEP_VALUES'),'Y');
32539: G_BLIND_DISCOUNT_PROFILE := nvl(FND_PROFILE.VALUE(G_BLIND_DISCOUNT),'N');
32540: G_MULTI_CURRENCY_PROFILE := nvl(FND_PROFILE.VALUE(G_MULTI_CURRENCY),'N'); -- vivek
32541: G_QUALIFY_SECONDARY := NVL(FND_PROFILE.VALUE('QP_QUALIFY_SECONDARY_PRICE_LISTS'),'N');--profile option
32542: --G_USE_MULTI_CURRENCY := p_control_rec.use_multi_currency; -- Vivek
32535: --G_TEMP_TABLE_INSERT_FLAG := nvl(p_control_rec.temp_table_insert_flag,'Y');
32536: G_MANUAL_ADJUSTMENTS_CALL_FLAG := nvl(p_control_rec.manual_adjustments_call_flag,'N');
32537: G_INSERT_INTO_FORMULA_TMP := FALSE;
32538: G_INSERT_FORMULA_STEP_VALUES := nvl(FND_PROFILE.VALUE('QP_INSERT_FORMULA_STEP_VALUES'),'Y');
32539: G_BLIND_DISCOUNT_PROFILE := nvl(FND_PROFILE.VALUE(G_BLIND_DISCOUNT),'N');
32540: G_MULTI_CURRENCY_PROFILE := nvl(FND_PROFILE.VALUE(G_MULTI_CURRENCY),'N'); -- vivek
32541: G_QUALIFY_SECONDARY := NVL(FND_PROFILE.VALUE('QP_QUALIFY_SECONDARY_PRICE_LISTS'),'N');--profile option
32542: --G_USE_MULTI_CURRENCY := p_control_rec.use_multi_currency; -- Vivek
32543: G_ORDER_ID := null; -- accum range break
32536: G_MANUAL_ADJUSTMENTS_CALL_FLAG := nvl(p_control_rec.manual_adjustments_call_flag,'N');
32537: G_INSERT_INTO_FORMULA_TMP := FALSE;
32538: G_INSERT_FORMULA_STEP_VALUES := nvl(FND_PROFILE.VALUE('QP_INSERT_FORMULA_STEP_VALUES'),'Y');
32539: G_BLIND_DISCOUNT_PROFILE := nvl(FND_PROFILE.VALUE(G_BLIND_DISCOUNT),'N');
32540: G_MULTI_CURRENCY_PROFILE := nvl(FND_PROFILE.VALUE(G_MULTI_CURRENCY),'N'); -- vivek
32541: G_QUALIFY_SECONDARY := NVL(FND_PROFILE.VALUE('QP_QUALIFY_SECONDARY_PRICE_LISTS'),'N');--profile option
32542: --G_USE_MULTI_CURRENCY := p_control_rec.use_multi_currency; -- Vivek
32543: G_ORDER_ID := null; -- accum range break
32544:
32537: G_INSERT_INTO_FORMULA_TMP := FALSE;
32538: G_INSERT_FORMULA_STEP_VALUES := nvl(FND_PROFILE.VALUE('QP_INSERT_FORMULA_STEP_VALUES'),'Y');
32539: G_BLIND_DISCOUNT_PROFILE := nvl(FND_PROFILE.VALUE(G_BLIND_DISCOUNT),'N');
32540: G_MULTI_CURRENCY_PROFILE := nvl(FND_PROFILE.VALUE(G_MULTI_CURRENCY),'N'); -- vivek
32541: G_QUALIFY_SECONDARY := NVL(FND_PROFILE.VALUE('QP_QUALIFY_SECONDARY_PRICE_LISTS'),'N');--profile option
32542: --G_USE_MULTI_CURRENCY := p_control_rec.use_multi_currency; -- Vivek
32543: G_ORDER_ID := null; -- accum range break
32544:
32545: if p_control_rec.use_multi_currency = 'Y' then
32546: G_USE_MULTI_CURRENCY := p_control_rec.use_multi_currency;
32547: else
32548: -- Added new profile (QP_MULTI_CURRENCY_USAGE) with default value 'N' to maintain
32549: -- current behaviour,bug 2943033
32550: G_USE_MULTI_CURRENCY := nvl(fnd_profile.value('QP_MULTI_CURRENCY_USAGE'), 'N');
32551: end if;
32552:
32553: -- Essilor Fix bug 2789138
32554: L_MANUAL_ADJUSTMENTS_CALL_FLAG := nvl(p_control_rec.manual_adjustments_call_flag,NULL);
32558: G_MCURR_INSTALLED_USED := 'Y';
32559: ELSE
32560: G_MCURR_INSTALLED_USED := 'N';
32561: END IF;
32562: G_SECURITY_CONTROL := nvl(FND_PROFILE.VALUE('QP_SECURITY_CONTROL'), 'OFF'); --security
32563: G_CURRENT_USER_OP_UNIT := NVL(p_control_rec.org_id, QP_UTIL.GET_ORG_ID); --security
32564: -- [prarasto] changed to use get_org_id instead of profile for implementing MOAC
32565:
32566: --added for moac
32721:
32722: -- qp_number.canonical_mask := 'FM999999999999999999999.99999999999999999999999999999999999999';
32723:
32724:
32725: l_bypass_pricing := FND_PROFILE.VALUE(G_BYPASS_PRICING);
32726:
32727: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32728: engine_debug ('Pricing Bypass : ' || l_bypass_pricing);
32729:
32997: INDX,QP_PREQ_GRP.price_request.price_request_sel1,FND_DESCR_FLEX_COL_USAGES_U1,APPLICATION_COLUMN_NAME,4
32998:
32999: INDX,QP_PREQ_GRP.price_request.price_request_sel1,FND_FLEX_VALUE_SETS_U1,FLEX_VALUE_SET_ID,1
33000: */
33001: --G_AM_INSTALLED_PROFILE := nvl(FND_PROFILE.value('QP_ATTRIBUTE_MANAGER_INSTALLED'), G_YES); /* default is G_YES by yangli 03/12/2002*/
33002: G_AM_INSTALLED_PROFILE := QP_UTIL.Attrmgr_Installed;
33003: /* by yangli 05/02/02*/
33004:
33005: IF G_AM_INSTALLED_PROFILE = G_YES THEN