[Home] [Help]
13513: E_ROUTINE_ERRORS EXCEPTION;
13514:
13515: BEGIN
13516:
13517: qp_debug_util.tstart('PERFORM_GROUPING','Perform Grouping');
13518: x_status_code := FND_API.G_RET_STS_SUCCESS;
13519:
13520: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13521: engine_debug('Grouping begin');
14277: AND LINE_INDEX = nvl(p_line_index,LINE_INDEX); */
14278: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14279: engine_debug('grouping ends');
14280: END IF;
14281: qp_debug_util.tstop('PERFORM_GROUPING');
14282: EXCEPTION
14283: WHEN OTHERS THEN
14284: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14285: engine_debug(SQLERRM);
16000: l_use_multi_currency VARCHAR2(1);
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);
16746: RAISE E_ROUTINE_ERRORS;
16747: END IF;
16748: END IF; --l_loop_count <> 0
16749:
16750: qp_debug_util.tstop('PERFORM_SECONDARY_SEARCH');
16751:
16752: EXCEPTION
16753: WHEN E_ROUTINE_ERRORS THEN
16754: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19270: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19271: ENGINE_DEBUG('Asked For List Header ID:'||L_LIST_HEADER_ID || 'Line : ' || J.LINE_INDEX);
19272: END IF;
19273:
19274: qp_debug_util.tstart('L_OTHER_LIST_CUR','Cursor Loop L_OTHER_LIST_CUR');
19275:
19276:
19277: FOR K IN L_OTHER_LIST_CUR (J.LINE_INDEX,
19278: L_LIST_HEADER_ID,
19391: END IF;
19392: l_loop_count := l_loop_count +1;
19393: END LOOP;
19394:
19395: qp_debug_util.tstop('L_OTHER_LIST_CUR');
19396:
19397: ELSE -- Asked for list line
19398:
19399: lq_line_index := -9999;
19405: ENGINE_DEBUG('Pricing Phase Id:'||p_pricing_phase_id );
19406:
19407: END IF;
19408:
19409: qp_debug_util.tstart('L_OTHER_LIST_LINE_CUR','Cursor Loop L_OTHER_LIST_LINE_CUR');
19410:
19411: FOR K IN L_OTHER_LIST_LINE_CUR (J.LINE_INDEX,
19412: L_LIST_LINE_ID,
19413: P_FREEZE_OVERRIDE_FLAG)
19528: END IF;
19529: l_loop_count := l_loop_count +1;
19530: END LOOP;
19531:
19532: qp_debug_util.tstop('L_OTHER_LIST_LINE_CUR');
19533:
19534:
19535: END IF; -- IF j.attribute = G_PROMOTION_ATTRIBUTE
19536:
19588: engine_debug('cursor open l_list_cur_currency-multi-currency TRUE');
19589:
19590: END IF;
19591: OPEN l_list_cur_currency;
19592: qp_debug_util.tstart('L_LIST_CUR_CURRENCY','Cursor Loop l_list_cur_currency');
19593: else -- vivek, multi currency not installed, not used
19594: OPEN l_list_cur;
19595: qp_debug_util.tstart('L_LIST_CUR','Cursor Loop l_list_cur');
19596: end if; -- vivek, multi currency installed
19591: OPEN l_list_cur_currency;
19592: qp_debug_util.tstart('L_LIST_CUR_CURRENCY','Cursor Loop l_list_cur_currency');
19593: else -- vivek, multi currency not installed, not used
19594: OPEN l_list_cur;
19595: qp_debug_util.tstart('L_LIST_CUR','Cursor Loop l_list_cur');
19596: end if; -- vivek, multi currency installed
19597:
19598: LOOP
19599: G_LINE_INDEX_TBL_P.delete;
19878: engine_debug('cursor close l_list_cur_currency-multi-currency TRUE');
19879: END IF;
19880: CLOSE l_list_cur_currency;
19881:
19882: qp_debug_util.tstop('L_LIST_CUR_CURRENCY');
19883: else -- vivek, multi currency not installed, not used
19884: CLOSE l_list_cur;
19885: qp_debug_util.tstop('L_LIST_CUR');
19886: end if; -- vivek, multi currency installed
19881:
19882: qp_debug_util.tstop('L_LIST_CUR_CURRENCY');
19883: else -- vivek, multi currency not installed, not used
19884: CLOSE l_list_cur;
19885: qp_debug_util.tstop('L_LIST_CUR');
19886: end if; -- vivek, multi currency installed
19887:
19888: END IF; -- p_pricing_phase_id <> G_PRICE_LIST_PHASE_ID
19889:
20017: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20018: engine_debug('cursor open l_list_qual_cur_currency-multi-currency TRUE');
20019: END IF;
20020: OPEN l_list_qual_cur_currency;
20021: qp_debug_util.tstart('L_LIST_QUAL_CUR_CURRENCY','Cursor Loop l_list_qual_cur_currency');
20022: else -- vivek, multi currency not installed, not used
20023: OPEN l_list_qual_cur;
20024: qp_debug_util.tstart('L_LIST_QUAL_CUR','Cursor Loop l_list_qual_cur');
20025: end if; -- vivek, multi currency installed
20020: OPEN l_list_qual_cur_currency;
20021: qp_debug_util.tstart('L_LIST_QUAL_CUR_CURRENCY','Cursor Loop l_list_qual_cur_currency');
20022: else -- vivek, multi currency not installed, not used
20023: OPEN l_list_qual_cur;
20024: qp_debug_util.tstart('L_LIST_QUAL_CUR','Cursor Loop l_list_qual_cur');
20025: end if; -- vivek, multi currency installed
20026:
20027: LOOP
20028: G_LINE_INDEX_TBL_P.delete;
20397: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20398: engine_debug('cursor close l_list_qual_cur_currency-multi-currency TRUE');
20399: END IF;
20400: CLOSE l_list_qual_cur_currency;
20401: qp_debug_util.tstop('L_LIST_QUAL_CUR_CURRENCY');
20402: else -- vivek, multi currency not installed, not used
20403: CLOSE l_list_qual_cur;
20404:
20405: qp_debug_util.tstop('L_LIST_QUAL_CUR');
20401: qp_debug_util.tstop('L_LIST_QUAL_CUR_CURRENCY');
20402: else -- vivek, multi currency not installed, not used
20403: CLOSE l_list_qual_cur;
20404:
20405: qp_debug_util.tstop('L_LIST_QUAL_CUR');
20406:
20407: end if; -- vivek, multi currency installed
20408:
20409: END IF; -- p_pricing_phase_id = G_PRICE_LIST_PHASE_ID
23243:
23244: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23245: engine_debug('Caching Header Qualifiers for phase : ' || p_pricing_phase_id);
23246: END IF;
23247: qp_debug_util.tstart('CACHE_HEADER_QUALIFIERS','Caching the header qualifiers');
23248: Cache_Header_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
23249: qp_debug_util.tstop('CACHE_HEADER_QUALIFIERS');
23250: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23251: RAISE E_ROUTINE_ERRORS;
23245: engine_debug('Caching Header Qualifiers for phase : ' || p_pricing_phase_id);
23246: END IF;
23247: qp_debug_util.tstart('CACHE_HEADER_QUALIFIERS','Caching the header qualifiers');
23248: Cache_Header_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
23249: qp_debug_util.tstop('CACHE_HEADER_QUALIFIERS');
23250: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23251: RAISE E_ROUTINE_ERRORS;
23252: END IF;
23253:
23251: RAISE E_ROUTINE_ERRORS;
23252: END IF;
23253:
23254: --Added call for 3520634
23255: qp_debug_util.tstart('DELETE_HDRS_WITH_NO_PRODATTR','Deleting the headers with no product attribute');
23256: Delete_Hdrs_With_No_ProdAttr(p_pricing_phase_id,l_status_code,l_status_text);
23257: qp_debug_util.tstop('DELETE_HDRS_WITH_NO_PRODATTR');
23258: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23259: RAISE E_ROUTINE_ERRORS;
23253:
23254: --Added call for 3520634
23255: qp_debug_util.tstart('DELETE_HDRS_WITH_NO_PRODATTR','Deleting the headers with no product attribute');
23256: Delete_Hdrs_With_No_ProdAttr(p_pricing_phase_id,l_status_code,l_status_text);
23257: qp_debug_util.tstop('DELETE_HDRS_WITH_NO_PRODATTR');
23258: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23259: RAISE E_ROUTINE_ERRORS;
23260: END IF;
23261:
23262:
23263: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23264: engine_debug('Caching Line Qualifiers for satisfied headers and pure line quals for phase : ' || p_pricing_phase_id);
23265: END IF;
23266: qp_debug_util.tstart('CACHE_LINE_QUALIFIERS','Caching the Line qualifiers');
23267: Cache_Line_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
23268: qp_debug_util.tstop('CACHE_LINE_QUALIFIERS');
23269: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23270: RAISE E_ROUTINE_ERRORS;
23264: engine_debug('Caching Line Qualifiers for satisfied headers and pure line quals for phase : ' || p_pricing_phase_id);
23265: END IF;
23266: qp_debug_util.tstart('CACHE_LINE_QUALIFIERS','Caching the Line qualifiers');
23267: Cache_Line_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
23268: qp_debug_util.tstop('CACHE_LINE_QUALIFIERS');
23269: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23270: RAISE E_ROUTINE_ERRORS;
23271: END IF;
23272:
23306: FETCH get_list_headers_with_ind2 INTO l_dummy;
23307: CLOSE get_list_headers_with_ind2;
23308:
23309: IF (l_dummy = 'x') THEN --Added if clause for 3520634
23310: qp_debug_util.tstart('MINI_CACHE_QUALIFIERS','Caching the qualifiers with search_ind=2');
23311: Mini_Cache_Qualifiers(-999 , -999 , -999, p_pricing_phase_id,l_status_code,l_status_text);
23312: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
23313: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23314: RAISE E_ROUTINE_ERRORS;
23308:
23309: IF (l_dummy = 'x') THEN --Added if clause for 3520634
23310: qp_debug_util.tstart('MINI_CACHE_QUALIFIERS','Caching the qualifiers with search_ind=2');
23311: Mini_Cache_Qualifiers(-999 , -999 , -999, p_pricing_phase_id,l_status_code,l_status_text);
23312: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
23313: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23314: RAISE E_ROUTINE_ERRORS;
23315: END IF;
23316: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23318:
23319: END IF;
23320: END IF;
23321: -- Qualifier Grouping
23322: qp_debug_util.tstart('MINI_CACHE_QUALIFIERS', 'Performing the Qualifier Grouping');
23323: Perform_Qualifier_Grouping(G_NO,p_pricing_phase_id,l_status_code,l_status_text);
23324: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
23325:
23326: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23320: END IF;
23321: -- Qualifier Grouping
23322: qp_debug_util.tstart('MINI_CACHE_QUALIFIERS', 'Performing the Qualifier Grouping');
23323: Perform_Qualifier_Grouping(G_NO,p_pricing_phase_id,l_status_code,l_status_text);
23324: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
23325:
23326: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23327: RAISE E_ROUTINE_ERRORS;
23328: END IF;
23696:
23697: END IF; --IF (G_QUALIFIER_TEMP <> 'E' OR G_LINE_QUALIFIER_TEMP <> 'E') THEN
23698:
23699: OPEN l_prod_qual_cur (p_pricing_phase_id, -99,-99,-99);
23700: qp_debug_util.tstart('L_PROD_QUAL_CUR','Cursor Loop l_prod_qual_cur');
23701:
23702: LOOP
23703: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23704: engine_debug('In l_prod_qual_cur loop fetch');
23911: engine_debug('Qualifiers for List Line Id : ' || l_satisfied_lst_line_id );
23912:
23913: END IF;
23914:
23915: qp_debug_util.tstart('L_GET_SATISFIED_QUALS','Cursor Loop L_GET_SATISFIED_QUALS');
23916:
23917: FOR V IN l_get_satisfied_quals(l_satisfied_list_header_id,l_satisfied_lst_line_id, l_satisfied_line_indx)
23918: LOOP
23919: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23963:
23964: END IF;
23965: END LOOP;
23966:
23967: qp_debug_util.tstop('L_GET_SATISFIED_QUALS');
23968:
23969: --Reset the satisfied list header and list line info
23970: l_satisfied_list_header_id := -9999;
23971: l_satisfied_lst_line_id := -9999;
23979: END LOOP;
23980: END IF;
23981: END LOOP;
23982:
23983: qp_debug_util.tstop('L_PROD_QUAL_CUR');
23984:
23985: CLOSE l_prod_qual_cur;
23986:
23987: lq_line_index := -9999;
23988: lq_list_line_id := -9999;
23989:
23990: OPEN l_prod_qual_pric_cur(p_pricing_phase_id, -99,-99,-99) ;
23991:
23992: qp_debug_util.tstart('L_PROD_QUAL_PRIC_CUR','Cursor Loop l_prod_qual_pric_cur');
23993: LOOP
23994: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23995: engine_debug('In l_prod_qual_pric_cur loop fetch');
23996: END IF;
24328: END LOOP;
24329: END IF;
24330: END LOOP;
24331:
24332: qp_debug_util.tstop('L_PROD_QUAL_PRIC_CUR');
24333:
24334: CLOSE l_prod_qual_pric_cur;
24335:
24336: OPEN l_inner_qual_cur (p_pricing_phase_id, -99,-99,-99,NULL,NULL,NULL,NULL);
24333:
24334: CLOSE l_prod_qual_pric_cur;
24335:
24336: OPEN l_inner_qual_cur (p_pricing_phase_id, -99,-99,-99,NULL,NULL,NULL,NULL);
24337: qp_debug_util.tstart('L_INNER_QUAL_CUR','Cursor Loop L_INNER_QUAL_CUR');
24338: LOOP
24339: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24340: engine_debug('In l_inner_qual_cur loop fetch');
24341:
24547: END LOOP;
24548: END IF;
24549: END LOOP;
24550:
24551: qp_debug_util.tstop('L_INNER_QUAL_CUR');
24552: CLOSE l_inner_qual_cur;
24553:
24554: lq_line_index := -9999;
24555: lq_list_line_id := -9999;
24558: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24559: engine_debug('Before l_prod_cur_mod');
24560: END IF;
24561: OPEN l_prod_cur(p_pricing_phase_id);
24562: qp_debug_util.tstart('L_PROD_CUR','Cursor Loop L_PROD_CUR');
24563:
24564: LOOP
24565: G_LIST_HEADER_ID_TBL_P.delete;
24566: G_LIST_LINE_ID_TBL_P.delete;
24767: END LOOP;
24768: END IF;
24769: END LOOP;
24770:
24771: qp_debug_util.tstop('L_PROD_CUR');
24772:
24773: CLOSE l_prod_cur;
24774: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24775: engine_debug('After l_prod_cur_mod');
24782: engine_debug('Before l_prod_pric_cur_mod');
24783: END IF;
24784: OPEN l_prod_pric_cur(p_pricing_phase_id);
24785:
24786: qp_debug_util.tstart('L_PROD_PRIC_CUR','Cursor Loop L_PROD_PRIC_CUR');
24787:
24788: LOOP
24789: G_LIST_HEADER_ID_TBL_P.delete;
24790: G_LIST_LINE_ID_TBL_P.delete;
25041: END LOOP;
25042: END IF;
25043: END LOOP;
25044:
25045: qp_debug_util.tstop('L_PROD_PRIC_CUR');
25046:
25047: CLOSE l_prod_pric_cur;
25048: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25049: engine_debug('After l_prod_pric_cur_mod');
25062: engine_debug('Before blind cursor');
25063: END IF;
25064: OPEN l_cur(p_pricing_phase_id);
25065:
25066: qp_debug_util.tstart('L_CUR','Cursor Loop L_CUR');
25067:
25068: LOOP
25069: G_LINE_INDEX_TBL_B.delete;
25070: G_LIST_HEADER_ID_TBL_B.delete;
25197: END LOOP;
25198: END IF; --IF
25199: END LOOP;
25200:
25201: qp_debug_util.tstop('L_CUR');
25202:
25203: CLOSE l_cur;
25204: END IF; --for blind discount
25205: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27787: engine_debug('cursor for l_prod_qual_cur_currency-multi-currency TRUE');
27788: END IF;
27789: OPEN l_prod_qual_cur_currency(p_pricing_phase_id);
27790:
27791: qp_debug_util.tstart('L_PROD_QUAL_CUR_CURRENCY','Cursor Loop l_prod_qual_cur_currency');
27792: LOOP
27793: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
27794: deleted here. There is no need to explicitly delete since BULK COLLECT
27795: will truncate the data before populating. */
27975: end loop;
27976: end if;
27977: END LOOP;
27978:
27979: qp_debug_util.tstop('L_PROD_QUAL_CUR_CURRENCY');
27980:
27981: CLOSE l_prod_qual_cur_currency;
27982:
27983: lq_line_index := -9999;
27988: END IF;
27989:
27990: OPEN l_prod_qual_pric_cur_currency(p_pricing_phase_id);
27991:
27992: qp_debug_util.tstart('L_PROD_QUAL_PRIC_CUR_CURRENCY','Cursor Loop l_prod_qual_pric_cur_currency');
27993: LOOP
27994: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
27995: deleted here. There is no need to explicitly delete since BULK COLLECT
27996: will truncate the data before populating. */
28204: end loop;
28205: end if;
28206: END LOOP;
28207:
28208: qp_debug_util.tstop('L_PROD_QUAL_PRIC_CUR_CURRENCY');
28209:
28210: CLOSE l_prod_qual_pric_cur_currency;
28211:
28212: lq_line_index := -9999;
28217: END IF;
28218:
28219: OPEN l_prod_cur_currency(p_pricing_phase_id);
28220:
28221: qp_debug_util.tstart('L_PROD_CUR_CURRENCY','Cursor Loop l_prod_cur_currency');
28222:
28223: LOOP
28224: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
28225: deleted here. There is no need to explicitly delete since BULK COLLECT
28350: end loop;
28351: end if;
28352: END LOOP;
28353:
28354: qp_debug_util.tstop('L_PROD_CUR_CURRENCY');
28355:
28356: CLOSE l_prod_cur_currency;
28357:
28358: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28360: END IF;
28361:
28362: OPEN l_prod_pric_cur_currency(p_pricing_phase_id);
28363:
28364: qp_debug_util.tstart('L_PROD_PRIC_CUR_CURRENCY','Cursor Loop l_prod_pric_cur_currency');
28365:
28366: LOOP
28367: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
28368: deleted here. There is no need to explicitly delete since BULK COLLECT
28536: END IF;
28537: end loop;
28538: end if;
28539: END LOOP;
28540: qp_debug_util.tstop('L_PROD_PRIC_CUR_CURRENCY');
28541: CLOSE l_prod_pric_cur_currency; -- 4331801/4365538
28542: else -- vivek, multi currency not installed, not used
28543: --selecting lists that match product and qualifiers attributes
28544:
28546: engine_debug('before l_prod_qual_cur...');
28547: END IF;
28548:
28549: OPEN l_prod_qual_cur(p_pricing_phase_id);
28550: qp_debug_util.tstart('L_PROD_QUAL_CUR','Cursor Loop l_prod_qual_cur');
28551: LOOP
28552: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
28553: deleted here. There is no need to explicitly delete since BULK COLLECT
28554: will truncate the data before populating. */
28711: END IF;
28712: end loop;
28713: end if;
28714: END LOOP;
28715: qp_debug_util.tstop('L_PROD_QUAL_CUR');
28716:
28717: CLOSE l_prod_qual_cur;
28718:
28719: lq_line_index := -9999;
28723: engine_debug('before l_prod_qual_pric_cur...');
28724: END IF;
28725:
28726: OPEN l_prod_qual_pric_cur(p_pricing_phase_id);
28727: qp_debug_util.tstart('L_PROD_QUAL_PRIC_CUR','Cursor Loop l_prod_qual_pric_cur');
28728: LOOP
28729: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
28730: deleted here. There is no need to explicitly delete since BULK COLLECT
28731: will truncate the data before populating. */
28930: end loop;
28931: end if;
28932: END LOOP;
28933:
28934: qp_debug_util.tstop('L_PROD_QUAL_PRIC_CUR');
28935: CLOSE l_prod_qual_pric_cur;
28936:
28937: lq_line_index := -9999;
28938: lq_list_line_id := -9999;
28941: engine_debug('before l_prod_cur...');
28942: END IF;
28943:
28944: OPEN l_prod_cur(p_pricing_phase_id);
28945: qp_debug_util.tstart('L_PROD_CUR','Cursor Loop l_prod_cur');
28946: LOOP
28947: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
28948: deleted here. There is no need to explicitly delete since BULK COLLECT
28949: will truncate the data before populating. */
29063: END IF;
29064: end loop;
29065: end if;
29066: END LOOP;
29067: qp_debug_util.tstop('L_PROD_CUR');
29068: CLOSE l_prod_cur;
29069:
29070: lq_line_index := -9999;
29071: lq_list_line_id := -9999;
29074: engine_debug('before l_prod_pric_cur...');
29075: END IF;
29076: OPEN l_prod_pric_cur(p_pricing_phase_id);
29077:
29078: qp_debug_util.tstart('L_PROD_PRIC_CUR','Cursor Loop l_prod_pric_cur');
29079: LOOP
29080: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
29081: deleted here. There is no need to explicitly delete since BULK COLLECT
29082: will truncate the data before populating. */
29241: end loop;
29242: end if;
29243: END LOOP;
29244:
29245: qp_debug_util.tstop('L_PROD_PRIC_CUR');
29246: CLOSE l_prod_pric_cur;
29247:
29248: --END IF;
29249: end if; -- vivek, multi currency installed
31065: AND vset.format_type = 'N');
31066:
31067: BEGIN
31068: x_status_code := FND_API.G_RET_STS_SUCCESS;
31069: qp_debug_util.tstart('FORMULA_PROCESSING','Processing Formulas');
31070: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31071: engine_debug('In ---'||l_routine||'---');
31072: engine_debug('PRICING_PHASE_ID: '||p_pricing_phase_id);
31073:
31554: null; -- Error in Formula Calculation
31555: END IF;
31556: END LOOP;
31557:
31558: qp_debug_util.tstop('FORMULA_PROCESSING');
31559:
31560: EXCEPTION
31561: WHEN E_ATTRIBUTE_NON_NUMERIC THEN
31562: G_INSERT_INTO_FORMULA_TMP := FALSE; --Reset Global Flag ( Change)
32431: l_request_id number;
32432: --added by yangli for Java Engine 3086881
32433:
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');
33164: END IF;
33165:
33166: IF (I.phase_sequence = G_PRICE_LIST_SEQUENCE AND G_MANUAL_ADJUSTMENTS_CALL_FLAG = G_NO AND l_price_flag_yes_only = G_YES) THEN
33167:
33168: qp_debug_util.tstart('L_PHASE_CUR_LIST_PRICE','List Line Phase(Id) : '||I.name||' ('||I.pricing_phase_id||') ', false, true);
33169: --Set Global Flag ( Change)
33170: G_INSERT_INTO_FORMULA_TMP := TRUE;
33171: --G_INSERT_INTO_FORMULA_TMP := 'Y';
33172:
33193: -- ********
33194: -- 4227047/4361975, the call to Update_Rounding_Factor that used to be here
33195: -- was moved to before this phase cursor
33196:
33197: qp_debug_util.tstart('PLL_LIST_HEADER_SEARCH','Price List Search - LIST_HEADER_SEARCH API');
33198: LIST_HEADER_SEARCH(p_pricing_phase_id => I.pricing_phase_id,
33199: p_is_price_list => TRUE,
33200: p_freeze_override_flag => I.freeze_override_flag,
33201: p_control_rec => p_control_rec,
33204: x_status_code => l_return_status,
33205: x_status_text => l_status_text
33206: );
33207:
33208: qp_debug_util.tstop('PLL_LIST_HEADER_SEARCH');
33209: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33210: RAISE E_ROUTINE_ERRORS;
33211: END IF;
33212:
33220:
33221: IF (l_further_search = G_YES and (I.SEARCH_FLAG = G_YES or
33222: nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) = G_YES)) -- price book
33223: THEN
33224: qp_debug_util.tstart('SELECT_PRICE_LIST_LINES','Select Price List Lines(Search Flag on) - SELECT_PRICE_LIST_LINES API');
33225:
33226: SELECT_PRICE_LIST_LINES(p_pricing_phase_id => I.pricing_phase_id,
33227: p_freeze_override_flag => I.freeze_override_flag,
33228: x_status_code => l_return_status,
33227: p_freeze_override_flag => I.freeze_override_flag,
33228: x_status_code => l_return_status,
33229: x_status_text => l_status_text,
33230: p_control_rec => p_control_rec); -- vivek\
33231: qp_debug_util.tstop('SELECT_PRICE_LIST_LINES');
33232: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33233: RAISE E_ROUTINE_ERRORS;
33234: END IF;
33235:
33391: --If it is a price list sequence we need to create this
33392: --list as a qualifier for next phase. Because price list itself
33393: --can be a qualifier for next phase.
33394:
33395: qp_debug_util.tstop('L_PHASE_CUR_LIST_PRICE');
33396:
33397: ELSE -- not a price list sequence
33398:
33399: qp_debug_util.tstart('L_PHASE_CUR_MODIFIERS','Modifiers Phase(Id) : '||I.name||' ('||I.pricing_phase_id||') ', false, true);
33395: qp_debug_util.tstop('L_PHASE_CUR_LIST_PRICE');
33396:
33397: ELSE -- not a price list sequence
33398:
33399: qp_debug_util.tstart('L_PHASE_CUR_MODIFIERS','Modifiers Phase(Id) : '||I.name||' ('||I.pricing_phase_id||') ', false, true);
33400:
33401: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33402: engine_debug ('Starting new a phase, pricing phase id :' || i.pricing_phase_id);
33403: END IF;
33476: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33477: engine_debug('#9999999999990');
33478:
33479: END IF;
33480: qp_debug_util.tstart('DIS_LIST_HEADER_SEARCH','Modifier Search - LIST_HEADER_SEARCH API');
33481: LIST_HEADER_SEARCH(p_pricing_phase_id => I.pricing_phase_id,
33482: p_is_price_list => FALSE,
33483: p_freeze_override_flag => I.freeze_override_flag,
33484: p_control_rec => p_control_rec,
33486: x_further_search => l_further_search,
33487: x_status_code => l_return_status,
33488: x_status_text => l_status_text
33489: );
33490: qp_debug_util.tstop('DIS_LIST_HEADER_SEARCH');
33491: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33492: RAISE E_ROUTINE_ERRORS;
33493: END IF;
33494:
33497: --only modifiers look at search flag
33498: IF (I.SEARCH_FLAG = G_YES) THEN
33499:
33500: l_disc_exist_flag := 'Y';
33501: qp_debug_util.tstart('SELECT_MODIFIERS','Modifier Selection - SELECT_MODIFIERS API');
33502: SELECT_MODIFIERS(p_pricing_phase_id => I.pricing_phase_id,
33503: p_freeze_override_flag => I.freeze_override_flag,
33504: x_status_code => l_return_status,
33505: x_status_text => l_status_text);
33503: p_freeze_override_flag => I.freeze_override_flag,
33504: x_status_code => l_return_status,
33505: x_status_text => l_status_text);
33506:
33507: qp_debug_util.tstop('SELECT_MODIFIERS');
33508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33509: RAISE E_ROUTINE_ERRORS;
33510: END IF;
33511: END IF;
33597: IF (I.INCOMPAT_RESOLVE_CODE = G_INCOMP_PRECEDENCE) THEN
33598: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33599: engine_debug('Precedence evaluation');
33600: END IF;
33601: qp_debug_util.tstart('RESOLVE_INCOMPATABILITY','Resolving Modifiers Incompatability - Resolve_Incompatability API');
33602: QP_Resolve_Incompatability_PVT.Resolve_Incompatability
33603: (I.pricing_phase_id,
33604: G_DISCOUNT_PROCESSING,
33605: l_list_price,
33605: l_list_price,
33606: J.LINE_INDEX,
33607: l_return_status,
33608: l_status_text);
33609: qp_debug_util.tstop('RESOLVE_INCOMPATABILITY');
33610: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33611: RAISE E_ROUTINE_ERRORS;
33612: END IF;
33613: ELSIF (I.INCOMPAT_RESOLVE_CODE = G_INCOMP_BEST_PRICE) THEN
33668: l_return_status,
33669: l_status_text);
33670: END IF;*/
33671: END IF; --end if for if l_exec_flag=G_YES
33672: qp_debug_util.tstop('L_PHASE_CUR_MODIFIERS');
33673: END IF; --end if for if price_list_sequence
33674: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33675: engine_debug('calling Set_Order_List_Rltd');
33676: END IF;
34021:
34022: END IF;
34023: --============END: Debug Viewer needed by Java and PL/SQL engine=============
34024:
34025: qp_debug_util.tstop('ENGINE_CALL_QPXGPREB');
34026:
34027: EXCEPTION
34028: WHEN E_SEARCH_FLAG_IS_NULL THEN
34029: x_return_status := FND_API.G_RET_STS_ERROR;