16: G_ROUNDING_PROFILE CONSTANT VARCHAR2(1) := 'Q';
17:
18: G_POST_ROUND CONSTANT VARCHAR2(30) := 'POST'; --[prarasto:Post Round] constant for post rounding
19:
20: G_LIMITS_INSTALLED CONSTANT VARCHAR2(1) := FND_PROFILE.VALUE('QP_LIMITS_INSTALLED');
21:
22: --prg processing pl/sql tbl
23: G_PRG_UNCH_CALC_PRICE_TBL QP_PREQ_GRP.NUMBER_TYPE;
24: G_PRG_UNCH_LINE_ID_TBL QP_PREQ_GRP.NUMBER_TYPE;
157:
158: END IF;
159:
160:
161: l_bypass_pricing := FND_PROFILE.VALUE(G_BYPASS_PRICING);
162:
163: --pricing event can be null when applying manual adjustments
164: --IF(p_control_rec.PRICING_EVENT IS NULL
165: IF (p_control_rec.calculate_flag = NULL
13228:
13229: --===============START: Pre-pricing process needed by JAVA and PL/SQL engine====
13230: -- Set the debug variable G_DEBUG_ENGINE in QP_PREQ_GRP
13231: QP_PREQ_GRP.Set_QP_Debug;
13232: G_QP_DEBUG := FND_PROFILE.VALUE(l_debug_switch); --3085171
13233:
13234: --Setting current event in debug util
13235: qp_debug_util.setCurrentEvent(p_control_rec.PRICING_EVENT);
13236: --QP_PREQ_GRP.G_CURR_PRICE_EVENT := p_control_rec.PRICING_EVENT;
13325:
13326:
13327: IF G_REQUEST_TYPE_CODE IN ('PO', 'ICX') THEN
13328: IF G_LICENSED_FOR_PRODUCT IS NULL THEN
13329: G_LICENSED_FOR_PRODUCT := nvl(fnd_profile.VALUE('QP_LICENSED_FOR_PRODUCT'), 'ZZZZZZ');
13330: /*Added for bug 8865594*/
13331: --l_qp_license_product := FND_PROFILE.VALUE_SPECIFIC(NAME => 'QP_LICENSED_FOR_PRODUCT',application_id => 201);
13332:
13333: END IF;
13327: IF G_REQUEST_TYPE_CODE IN ('PO', 'ICX') THEN
13328: IF G_LICENSED_FOR_PRODUCT IS NULL THEN
13329: G_LICENSED_FOR_PRODUCT := nvl(fnd_profile.VALUE('QP_LICENSED_FOR_PRODUCT'), 'ZZZZZZ');
13330: /*Added for bug 8865594*/
13331: --l_qp_license_product := FND_PROFILE.VALUE_SPECIFIC(NAME => 'QP_LICENSED_FOR_PRODUCT',application_id => 201);
13332:
13333: END IF;
13334:
13335: -- bug9285924
13332:
13333: END IF;
13334:
13335: -- bug9285924
13336: l_qp_license_product := FND_PROFILE.VALUE_SPECIFIC(NAME => 'QP_LICENSED_FOR_PRODUCT',application_id => 201);
13337:
13338: IF l_debug = FND_API.G_TRUE THEN
13339: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13340: QP_PREQ_GRP.engine_debug('l_qp_license_product = ' || l_qp_license_product);
13353:
13354: -- for QP-CMRO integration
13355: IF G_REQUEST_TYPE_CODE = 'AHL' THEN
13356: IF G_LICENSED_FOR_PRODUCT IS NULL THEN
13357: G_LICENSED_FOR_PRODUCT := nvl(fnd_profile.VALUE('QP_LICENSED_FOR_PRODUCT'), 'ZZZZZZ');
13358: END IF;
13359:
13360: IF l_debug = FND_API.G_TRUE THEN
13361: QP_PREQ_GRP.engine_debug('G_LICENSED_FOR_PRODUCT = ' || G_LICENSED_FOR_PRODUCT);
13427: -- U - NO_ROUND_ADJ
13428: -- Q - look at the QP profile
13429: --Change for 2635440 - pass 'Q' as default value for OC if request_type is 'ASO'
13430: ----------------------------------------------------
13431: G_ROUNDING_OPTIONS := FND_PROFILE.VALUE('QP_SELLING_PRICE_ROUNDING_OPTIONS');
13432: IF (l_debug = FND_API.G_TRUE) THEN
13433: QP_PREQ_GRP.engine_debug('Rounding profile value '|| G_ROUNDING_OPTIONS);
13434: END IF;
13435:
13455: -- current behaviour,bug 2943033
13456: IF p_control_rec.use_multi_currency = 'Y' THEN
13457: G_USE_MULTI_CURRENCY_PUB := p_control_rec.use_multi_currency;
13458: ELSE
13459: G_USE_MULTI_CURRENCY_PUB := nvl(fnd_profile.VALUE('QP_MULTI_CURRENCY_USAGE'), 'N');
13460: l_control_rec.use_multi_currency := G_USE_MULTI_CURRENCY_PUB;
13461: END IF;
13462:
13463: IF nvl(p_control_rec.rounding_flag, G_YES) = G_ROUNDING_PROFILE
13490: -- The below code is replaced with QP_PREQ_GRP.Set_QP_Debug
13491:
13492: --getting debug profilE
13493: ----------------------------------------------------
13494: --G_QP_DEBUG := FND_PROFILE.VALUE(l_debug_switch); --3085171
13495: ----------------------------------------------------
13496:
13497: /* ----------------------------------------------------
13498:
13545: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '|| G_GSA_ENABLED_FLAG);
13546:
13547: END IF;
13548: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13549: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13550:
13551:
13552: IF l_debug = FND_API.G_TRUE THEN
13553: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '|| G_REQUEST_TYPE_CODE);
13583: QP_PREQ_GRP.ENGINE_DEBUG('PRICE REQUEST PUB: GSA_profile '||G_GSA_ENABLED_FLAG);
13584:
13585: END IF;
13586: G_GSA_CHECK_FLAG := nvl(p_control_rec.GSA_CHECK_FLAG, G_YES);
13587: G_GSA_ENABLED_FLAG := nvl(FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled), G_NO);
13588:
13589:
13590: IF l_debug = FND_API.G_TRUE THEN
13591: QP_PREQ_GRP.ENGINE_DEBUG('BEGIN PRICE REQUEST PUB: request_type_code '||G_REQUEST_TYPE_CODE);
13706: WHERE name = 'optimizer_dynamic_sampling';
13707: IF l_debug = FND_API.G_TRUE THEN
13708: QP_PREQ_GRP.engine_debug('Default Dynamic sampling Level :'|| l_old_dynamic_sampling_level);
13709: END IF;
13710: l_dynamic_sampling_level := TO_NUMBER(NVL(FND_PROFILE.VALUE(G_DYNAMIC_SAMPLING_LEVEL),1));
13711: IF l_debug = FND_API.G_TRUE THEN
13712: QP_PREQ_GRP.engine_debug('QP Profile Dynamic sampling level :'|| l_dynamic_sampling_level);
13713: END If;
13714: EXCEPTION