[Home] [Help]
7626: l_ia_attribute_tbl VARCHAR_TYPE;
7627: l_ia_bulk_count NUMBER := 0;
7628: l_lin_qty_exists number:=0;
7629: BEGIN
7630: qp_debug_util.tstart('SOURCE_VOL_CONTEXTS_ATTRIBUTES','Procedure SOURCE_VOL_CONTEXTS_ATTRIBUTES');
7631: -- julin [3805113]: bulk fetch request lines
7632: OPEN get_request_lines_cur;
7633: LOOP
7634: FETCH get_request_lines_cur BULK COLLECT INTO
7971: END IF;
7972:
7973: END LOOP;
7974: CLOSE get_request_lines_cur;
7975: qp_debug_util.tstop('SOURCE_VOL_CONTEXTS_ATTRIBUTES');
7976: EXCEPTION
7977: WHEN OTHERS THEN
7978: x_status_code := FND_API.G_RET_STS_ERROR;
7979: x_status_text := l_routine ||': '||SQLERRM;
7979: x_status_text := l_routine ||': '||SQLERRM;
7980: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7981: engine_debug(x_status_text);
7982: END IF;
7983: qp_debug_util.tstop('SOURCE_VOL_CONTEXTS_ATTRIBUTES');
7984: END Source_Vol_Contexts_Attributes;
7985:
7986: PROCEDURE Update_Distinct_Qualifier_Flag( x_status_code OUT NOCOPY VARCHAR2,
7987: x_status_text OUT NOCOPY VARCHAR2) AS
7987: x_status_text OUT NOCOPY VARCHAR2) AS
7988:
7989: l_routine VARCHAR2(40) := 'Update_Distinct_Qualifier_Flag';
7990: BEGIN
7991: qp_debug_util.tstart('UPDATE_DISTINCT_QUALIFIER_FLAG','Procedure UPDATE_DISTINCT_QUALIFIER_FLAG');
7992: /*
7993: INDX,QP_PREQ_GRP.update_distinct_qualifier_flag.sel1,qp_npreq_line_attrs_tmp_N2,PRICING_STATUS_CODE,1
7994: INDX,QP_PREQ_GRP.update_distinct_qualifier_flag.sel1,qp_npreq_line_attrs_tmp_N2,ATTRIBUTE_TYPE,2
7995: INDX,QP_PREQ_GRP.update_distinct_qualifier_flag.sel1,qp_npreq_line_attrs_tmp_N2,CONTEXT,3
8018: FROM qp_npreq_line_attrs_tmp b
8019: WHERE b.attribute_type = G_QUALIFIER_TYPE
8020: AND b.pricing_status_code = G_STATUS_UNCHANGED
8021: GROUP BY b.context , b.attribute , b.value_from); */
8022: qp_debug_util.tstop('UPDATE_DISTINCT_QUALIFIER_FLAG');
8023: EXCEPTION
8024: WHEN OTHERS THEN
8025: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8026: engine_debug(l_routine||' '||SQLERRM);
8026: engine_debug(l_routine||' '||SQLERRM);
8027: END IF;
8028: x_status_code := FND_API.G_RET_STS_ERROR;
8029: x_status_text := 'Error in '||l_routine||SQLERRM;
8030: qp_debug_util.tstop('UPDATE_DISTINCT_QUALIFIER_FLAG');
8031: END Update_Distinct_Qualifier_Flag;
8032:
8033:
8034: /*+-----------------------------------------------------------------------
10431:
10432: E_ROUTINE_ERRORS EXCEPTION;
10433:
10434: BEGIN
10435: qp_debug_util.tstart('Eliminate_Multiple_Hierarchies','Procedure Eliminate_Multiple_Hierarchies');
10436: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10437: engine_debug('In procedure Eliminate_Multiple_Hierarchies');
10438:
10439: END IF;
10521: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
10522: RAISE E_ROUTINE_ERRORS;
10523: END IF;
10524: END IF;
10525: qp_debug_util.tstop('Eliminate_Multiple_Hierarchies');
10526: EXCEPTION
10527: WHEN E_ROUTINE_ERRORS THEN
10528: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10529: engine_debug(l_routine||': '||l_status_text);
10529: engine_debug(l_routine||': '||l_status_text);
10530: END IF;
10531: x_status_code := FND_API.G_RET_STS_ERROR;
10532: x_status_text := l_routine||': '||l_status_text;
10533: qp_debug_util.tstop('Eliminate_Multiple_Hierarchies');
10534: WHEN OTHERS THEN
10535: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10536: engine_debug(l_routine||' '||SQLERRM);
10537: END IF;
10536: engine_debug(l_routine||' '||SQLERRM);
10537: END IF;
10538: x_status_code := FND_API.G_RET_STS_ERROR;
10539: x_status_text := 'Error in '||l_routine||SQLERRM;
10540: qp_debug_util.tstop('Eliminate_Multiple_Hierarchies');
10541: END Eliminate_Multiple_Hierarchies;
10542:
10543: /*+--------------------------------------------------------
10544: |PROCEDURE PROCESS_LINE_GROUP
10885: l_routine VARCHAR2(240):='Routine:QP_PREQ_GRP.Update_Request_Line_Status';
10886: l_rounding_factor NUMBER:= NULL;
10887:
10888: BEGIN
10889: qp_debug_util.tstart('UPDATE_REQUEST_LINE_STATUS','Procedure UPDATE_REQUEST_LINE_STATUS');
10890: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10891: engine_debug('In Update Request Line Status : ' || p_status_code);
10892: END IF;
10893:
11021: AND (price_flag = G_YES OR --[julin/4708044]
11022: (price_flag = G_PHASE AND p_freeze_override_flag = G_YES));
11023:
11024: END IF;
11025: qp_debug_util.tstop('UPDATE_REQUEST_LINE_STATUS');
11026: EXCEPTION
11027: WHEN OTHERS THEN
11028: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11029: engine_debug(l_routine || ' ' || SQLERRM);
11029: engine_debug(l_routine || ' ' || SQLERRM);
11030: END IF;
11031: x_status_code := FND_API.G_RET_STS_ERROR;
11032: x_status_text := l_routine||' '||SQLERRM;
11033: qp_debug_util.tstop('UPDATE_REQUEST_LINE_STATUS');
11034: END Update_Request_Line_Status;
11035:
11036: /*+----------------------------------------------------------
11037: |Evaluate_Between
11234: l_selected_volume_attr VARCHAR2(1); -- 2388011_new
11235:
11236: l_routine VARCHAR2(30) := 'Evaluate_Between';
11237: BEGIN
11238: qp_debug_util.tstart('Evaluate_Between','Procedure Evaluate_Between');
11239: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11240: QP_PREQ_GRP.engine_debug('In Evaluate Between' );
11241:
11242: END IF;
11668: */
11669: UPDATE qp_npreq_ldets_tmp --upd4
11670: SET PRICING_STATUS_CODE = G_DELETED_BETWEEN
11671: WHERE LINE_DETAIL_INDEX = l_line_detail_tbl(i);
11672: qp_debug_util.tstop('Evaluate_Between');
11673: EXCEPTION
11674: WHEN OTHERS THEN
11675: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11676: engine_debug(l_routine||' '||SQLERRM);
11676: engine_debug(l_routine||' '||SQLERRM);
11677: END IF;
11678: x_status_code := FND_API.G_RET_STS_ERROR;
11679: x_status_text := l_routine||': '||SQLERRM;
11680: qp_debug_util.tstop('Evaluate_Between');
11681: END Evaluate_Between;
11682:
11683: /*+---------------------------------------------------------
11684: |PROCEDURE handle_break called by get_eligible_break_lines
13215: nROWS CONSTANT NUMBER := 1000;
13216: E_ROUTINE_ERRORS EXCEPTION;
13217:
13218: BEGIN
13219: qp_debug_util.tstart('GET_ELIGIBLE_PRICE_BREAK','Procedure GET_ELIGIBLE_PRICE_BREAK');
13220: OPEN l_price_break_parent_cur;
13221:
13222: LOOP
13223:
13298: AND b.pricing_phase_id = G_PRICE_LIST_PHASE_ID)
13299: AND line_type_code <> G_ORDER_LEVEL;
13300:
13301: END IF;
13302: qp_debug_util.tstop('GET_ELIGIBLE_PRICE_BREAK');
13303: EXCEPTION
13304: WHEN E_ROUTINE_ERRORS THEN
13305: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13306: engine_debug(l_routine || ': ' ||l_status_text);
13306: engine_debug(l_routine || ': ' ||l_status_text);
13307: END IF;
13308: x_status_code := FND_API.G_RET_STS_ERROR;
13309: x_status_text := l_routine || ': ' ||l_status_text;
13310: qp_debug_util.tstop('GET_ELIGIBLE_PRICE_BREAK');
13311: WHEN OTHERS THEN
13312: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13313: engine_debug(l_routine || ' ' || SQLERRM);
13314: END IF;
13313: engine_debug(l_routine || ' ' || SQLERRM);
13314: END IF;
13315: x_status_code := FND_API.G_RET_STS_ERROR;
13316: x_status_text := l_routine||' '||SQLERRM;
13317: qp_debug_util.tstop('GET_ELIGIBLE_PRICE_BREAK');
13318: END Get_Eligible_Price_Break;
13319:
13320: /*+--------------------------------------------------------
13321: | PROCEDURE PERFORM_GROUPING
13809: E_ROUTINE_ERRORS EXCEPTION;
13810:
13811: BEGIN
13812:
13813: qp_debug_util.tstart('PERFORM_GROUPING','Perform Grouping');
13814: x_status_code := FND_API.G_RET_STS_SUCCESS;
13815:
13816: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13817: engine_debug('Grouping begin');
14574: AND LINE_INDEX = nvl(p_line_index,LINE_INDEX); */
14575: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14576: engine_debug('grouping ends');
14577: END IF;
14578: qp_debug_util.tstop('PERFORM_GROUPING');
14579: EXCEPTION
14580: WHEN OTHERS THEN
14581: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14582: engine_debug(SQLERRM);
16297: l_use_multi_currency VARCHAR2(1);
16298:
16299: E_ROUTINE_ERRORS EXCEPTION;
16300: BEGIN
16301: qp_debug_util.tstart('PERFORM_SECONDARY_SEARCH','Performing Secondary Price List Search');
16302: -- G_QUALIFY_SECONDARY := NVL(FND_PROFILE.VALUE('QP_QUALIFY_SECONDARY_PRICE_LISTS'),'N');--profile option
16303: -- Update the price list id , validated flag , and primary_qualifiers_match flag for sec search
16304: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN --4033618
16305: engine_debug ('QP_QUALIFY_SECONDARY_PRICE_LISTS:' || G_QUALIFY_SECONDARY);
16380: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16381: engine_debug('cursor l_sec_list_cur_currency-multi-currency TRUE');
16382: END IF;
16383: l_use_multi_currency := 'Y';
16384: qp_debug_util.tstart('L_SEC_LIST_CUR_CURRENCY','CURSOR LOOP L_SEC_LIST_CUR_CURRENCY');
16385: OPEN l_sec_list_cur_currency;
16386: ELSE
16387: qp_debug_util.tstart('L_USE_MULTI_CURRENCY','CURSOR LOOP L_USE_MULTI_CURRENCY');
16388: l_use_multi_currency := 'N';
16383: l_use_multi_currency := 'Y';
16384: qp_debug_util.tstart('L_SEC_LIST_CUR_CURRENCY','CURSOR LOOP L_SEC_LIST_CUR_CURRENCY');
16385: OPEN l_sec_list_cur_currency;
16386: ELSE
16387: qp_debug_util.tstart('L_USE_MULTI_CURRENCY','CURSOR LOOP L_USE_MULTI_CURRENCY');
16388: l_use_multi_currency := 'N';
16389: OPEN l_sec_list_cur;
16390: END IF;
16391: qp_debug_util.tstart('L_SEC_LIST_CUR/CURRENCY_FETCH','CURSOR LOOP L_SEC_LIST_CUR/CURRENCY_FETCH');
16387: qp_debug_util.tstart('L_USE_MULTI_CURRENCY','CURSOR LOOP L_USE_MULTI_CURRENCY');
16388: l_use_multi_currency := 'N';
16389: OPEN l_sec_list_cur;
16390: END IF;
16391: qp_debug_util.tstart('L_SEC_LIST_CUR/CURRENCY_FETCH','CURSOR LOOP L_SEC_LIST_CUR/CURRENCY_FETCH');
16392: LOOP
16393: IF l_use_multi_currency = 'Y' THEN
16394: FETCH l_sec_list_cur_currency BULK COLLECT INTO
16395: l_h_line_index_tbl,
16837: end if; -- vivek, multi currency installed
16838:
16839: -- julin [3805113]: bulk insert into qp_npreq_ldets_tmp
16840: IF (D>1) THEN
16841: qp_debug_util.tstart('QP_NPREQ_LDETS_TMP','Inserting into ldets QP_NPREQ_LDETS_TMP');
16842: FORALL i in G_line_index_tbl.FIRST..G_line_index_tbl.LAST
16843: INSERT INTO qp_npreq_ldets_tmp
16844: (LINE_DETAIL_INDEX,
16845: LINE_DETAIL_TYPE_CODE,
16906: G_BREAK_UOM_tbl(i), /* Proration */
16907: G_BREAK_CONTEXT_tbl(i), /* Proration */
16908: G_BREAK_ATTRIBUTE_tbl(i) /* Proration */
16909: );
16910: qp_debug_util.tstop('QP_NPREQ_LDETS_TMP');
16911: END IF;
16912:
16913: IF (M>1) THEN
16914: qp_debug_util.tstart('INSERT_PRICE_LIST_ATTRS','Inserting into lin attrs INSERT_PRICE_LIST_ATTRS');
16910: qp_debug_util.tstop('QP_NPREQ_LDETS_TMP');
16911: END IF;
16912:
16913: IF (M>1) THEN
16914: qp_debug_util.tstart('INSERT_PRICE_LIST_ATTRS','Inserting into lin attrs INSERT_PRICE_LIST_ATTRS');
16915: INSERT_PRICE_LIST_ATTRS
16916: ( p_LINE_INDEX_tbl =>G_LINE_INDEX_TBL_A,
16917: p_LINE_DETAIL_INDEX_tbl =>G_LINE_DETAIL_INDEX_TBL_A,
16918: p_ATTRIBUTE_LEVEL_tbl =>G_ATTRIBUTE_LEVEL_tbl,
16942: p_MODIFIER_LEVEL_CODE_TBL =>G_MODIFIER_LEVEL_CODE_TBL_A,
16943: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
16944: x_status_code =>l_status_code,
16945: x_status_text =>l_status_text);
16946: qp_debug_util.tstop('INSERT_PRICE_LIST_ATTRS');
16947: END IF;
16948:
16949: END LOOP;
16950: qp_debug_util.tstop('L_SEC_LIST_CUR/CURRENCY_FETCH');
16946: qp_debug_util.tstop('INSERT_PRICE_LIST_ATTRS');
16947: END IF;
16948:
16949: END LOOP;
16950: qp_debug_util.tstop('L_SEC_LIST_CUR/CURRENCY_FETCH');
16951: IF l_use_multi_currency = 'Y' THEN
16952: qp_debug_util.tstop('L_SEC_LIST_CUR_CURRENCY');
16953: CLOSE l_sec_list_cur_currency;
16954: ELSE
16948:
16949: END LOOP;
16950: qp_debug_util.tstop('L_SEC_LIST_CUR/CURRENCY_FETCH');
16951: IF l_use_multi_currency = 'Y' THEN
16952: qp_debug_util.tstop('L_SEC_LIST_CUR_CURRENCY');
16953: CLOSE l_sec_list_cur_currency;
16954: ELSE
16955: qp_debug_util.tstop('L_USE_MULTI_CURRENCY');
16956: CLOSE l_sec_list_cur;
16951: IF l_use_multi_currency = 'Y' THEN
16952: qp_debug_util.tstop('L_SEC_LIST_CUR_CURRENCY');
16953: CLOSE l_sec_list_cur_currency;
16954: ELSE
16955: qp_debug_util.tstop('L_USE_MULTI_CURRENCY');
16956: CLOSE l_sec_list_cur;
16957: END IF;
16958:
16959: IF (l_loop_count <> 0) THEN
17052: RAISE E_ROUTINE_ERRORS;
17053: END IF;
17054: END IF; --l_loop_count <> 0
17055:
17056: qp_debug_util.tstop('PERFORM_SECONDARY_SEARCH');
17057:
17058: EXCEPTION
17059: WHEN E_ROUTINE_ERRORS THEN
17060: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19572:
19573: IF (nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) <> G_YES) THEN -- price book
19574: -- Validated List Headers / List Lines
19575:
19576: qp_debug_util.tstart('L_VALIDATED_CUR_EXT','Cursor Loop L_VALIDATED_CUR exterior');
19577:
19578: FOR J IN L_VALIDATED_CUR LOOP
19579:
19580:
19587: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19588: ENGINE_DEBUG('Asked For List Header ID:'||L_LIST_HEADER_ID || 'Line : ' || J.LINE_INDEX);
19589: END IF;
19590:
19591: qp_debug_util.tstart('L_OTHER_LIST_CUR','Cursor Loop L_OTHER_LIST_CUR');
19592:
19593:
19594: FOR K IN L_OTHER_LIST_CUR (J.LINE_INDEX,
19595: L_LIST_HEADER_ID,
19600: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19601: engine_debug('List line id selected from asked for prom l_other_list_cur : '||K.list_line_id );
19602: END IF;
19603: L_LINE_DETAIL_INDEX := GET_LINE_DETAIL_INDEX;
19604: qp_debug_util.tstart('INSERT_LDETS','Inserting the ldets INSERT_LDETS');
19605: INSERT_LDETS(P_LINE_DETAIL_INDEX => L_LINE_DETAIL_INDEX,
19606: P_LINE_DETAIL_TYPE_CODE => 'NULL',
19607: P_LINE_INDEX => J.LINE_INDEX,
19608: P_CREATED_FROM_LIST_HEADER_ID => L_LIST_HEADER_ID,
19637: P_ASK_FOR_FLAG => K.ASK_FOR_FLAG,
19638: P_ROUNDING_FACTOR => K.ROUNDING_FACTOR,
19639: X_STATUS_CODE => L_STATUS_CODE,
19640: X_STATUS_TEXT => L_STATUS_TEXT);
19641: qp_debug_util.tstop('INSERT_LDETS');
19642: lq_line_index := j.line_index;
19643: lq_list_line_id := k.list_line_id;
19644:
19645: END IF;
19710: END IF;
19711: l_loop_count := l_loop_count +1;
19712: END LOOP;
19713:
19714: qp_debug_util.tstop('L_OTHER_LIST_CUR');
19715:
19716: ELSE -- Asked for list line
19717:
19718: lq_line_index := -9999;
19724: ENGINE_DEBUG('Pricing Phase Id:'||p_pricing_phase_id );
19725:
19726: END IF;
19727:
19728: qp_debug_util.tstart('L_OTHER_LIST_LINE_CUR','Cursor Loop L_OTHER_LIST_LINE_CUR');
19729:
19730: FOR K IN L_OTHER_LIST_LINE_CUR (J.LINE_INDEX,
19731: L_LIST_LINE_ID,
19732: P_FREEZE_OVERRIDE_FLAG)
19735: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19736: engine_debug('List line id selected from asked for prom l_other_list_cur : '||K.list_line_id );
19737: END IF;
19738: L_LINE_DETAIL_INDEX := GET_LINE_DETAIL_INDEX;
19739: qp_debug_util.tstart('INSERT_LDETS','Inserting the ldets INSERT_LDETS');
19740: INSERT_LDETS(P_LINE_DETAIL_INDEX => L_LINE_DETAIL_INDEX,
19741: P_LINE_DETAIL_TYPE_CODE => 'NULL',
19742: P_LINE_INDEX => J.LINE_INDEX,
19743: P_CREATED_FROM_LIST_HEADER_ID => K.LIST_HEADER_ID,
19772: P_ASK_FOR_FLAG => K.ASK_FOR_FLAG,
19773: P_ROUNDING_FACTOR => K.ROUNDING_FACTOR,
19774: X_STATUS_CODE => L_STATUS_CODE,
19775: X_STATUS_TEXT => L_STATUS_TEXT);
19776: qp_debug_util.tstop('INSERT_LDETS');
19777: lq_line_index := j.line_index;
19778: lq_list_line_id := k.list_line_id;
19779:
19780: END IF;
19849: END IF;
19850: l_loop_count := l_loop_count +1;
19851: END LOOP;
19852:
19853: qp_debug_util.tstop('L_OTHER_LIST_LINE_CUR');
19854:
19855:
19856: END IF; -- IF j.attribute = G_PROMOTION_ATTRIBUTE
19857:
19855:
19856: END IF; -- IF j.attribute = G_PROMOTION_ATTRIBUTE
19857:
19858: IF (M>1) THEN
19859: qp_debug_util.tstart('INSERT_LINE_ATTRS2','Inserting the line attrs INSERT_LINE_ATTRS2');
19860: INSERT_LINE_ATTRS2
19861: (p_LINE_INDEX_tbl =>G_LINE_INDEX_tbl,
19862: p_LINE_DETAIL_INDEX_tbl =>G_LINE_DETAIL_INDEX_tbl,
19863: p_ATTRIBUTE_LEVEL_tbl =>G_ATTRIBUTE_LEVEL_tbl,
19889: p_MODIFIER_LEVEL_CODE_TBL =>G_MODIFIER_LEVEL_CODE_TBL_A,
19890: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
19891: x_status_code =>l_status_code,
19892: x_status_text =>l_status_text);
19893: qp_debug_util.tstop('INSERT_LINE_ATTRS2');
19894: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
19895: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19896: END IF;
19897:
19898: END IF;
19899: M:=1;
19900:
19901: END LOOP;
19902: qp_debug_util.tstop('L_VALIDATED_CUR_EXT');
19903: -- End Validated List Headers / List Lines
19904: END IF; -- if not price book
19905:
19906: ELSE -- is a price list phase
19912: engine_debug('cursor open l_list_cur_currency-multi-currency TRUE');
19913:
19914: END IF;
19915: OPEN l_list_cur_currency;
19916: qp_debug_util.tstart('L_LIST_CUR_CURRENCY','Cursor Loop l_list_cur_currency');
19917: else -- vivek, multi currency not installed, not used
19918: OPEN l_list_cur;
19919: qp_debug_util.tstart('L_LIST_CUR','Cursor Loop l_list_cur');
19920: end if; -- vivek, multi currency installed
19915: OPEN l_list_cur_currency;
19916: qp_debug_util.tstart('L_LIST_CUR_CURRENCY','Cursor Loop l_list_cur_currency');
19917: else -- vivek, multi currency not installed, not used
19918: OPEN l_list_cur;
19919: qp_debug_util.tstart('L_LIST_CUR','Cursor Loop l_list_cur');
19920: end if; -- vivek, multi currency installed
19921: qp_debug_util.tstart('L_LIST_CUR/CURRENCY_FETCH','Cursor Loop L_LIST_CUR/CURRENCY_FETCH');
19922: LOOP
19923: G_LINE_INDEX_TBL_P.delete;
19917: else -- vivek, multi currency not installed, not used
19918: OPEN l_list_cur;
19919: qp_debug_util.tstart('L_LIST_CUR','Cursor Loop l_list_cur');
19920: end if; -- vivek, multi currency installed
19921: qp_debug_util.tstart('L_LIST_CUR/CURRENCY_FETCH','Cursor Loop L_LIST_CUR/CURRENCY_FETCH');
19922: LOOP
19923: G_LINE_INDEX_TBL_P.delete;
19924: G_LIST_LINE_ID_TBL_P.delete;
19925: G_LIST_HEADER_ID_TBL_P.delete;
20196: END LOOP;
20197: END IF ;
20198:
20199: END LOOP;
20200: qp_debug_util.tstop('L_LIST_CUR/CURRENCY_FETCH');
20201: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20202: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20203: engine_debug('cursor close l_list_cur_currency-multi-currency TRUE');
20204: END IF;
20203: engine_debug('cursor close l_list_cur_currency-multi-currency TRUE');
20204: END IF;
20205: CLOSE l_list_cur_currency;
20206:
20207: qp_debug_util.tstop('L_LIST_CUR_CURRENCY');
20208: else -- vivek, multi currency not installed, not used
20209: CLOSE l_list_cur;
20210: qp_debug_util.tstop('L_LIST_CUR');
20211: end if; -- vivek, multi currency installed
20206:
20207: qp_debug_util.tstop('L_LIST_CUR_CURRENCY');
20208: else -- vivek, multi currency not installed, not used
20209: CLOSE l_list_cur;
20210: qp_debug_util.tstop('L_LIST_CUR');
20211: end if; -- vivek, multi currency installed
20212:
20213: END IF; -- p_pricing_phase_id <> G_PRICE_LIST_PHASE_ID
20214:
20212:
20213: END IF; -- p_pricing_phase_id <> G_PRICE_LIST_PHASE_ID
20214:
20215: IF M > 1 THEN
20216: qp_debug_util.tstart('INSERT_LDETS_PRICE_LIST_MULT/NON_MULTI','Inserting INSERT_LDETS_PRICE_LIST_MULT/NON_MULTI');
20217: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20218: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20219: engine_debug('cursor l_list_cur_currency-multi-currency TRUE - insert_ldets2');
20220: END IF;
20288: x_status_code =>l_status_code,
20289: x_status_text =>l_status_text
20290: );
20291: end if; -- vivek, multi currency installed
20292: qp_debug_util.tstop('INSERT_LDETS_PRICE_LIST_MULT/NON_MULTI');
20293: END IF;
20294: M := 1;
20295:
20296:
20295:
20296:
20297:
20298: IF (K>1) THEN
20299: qp_debug_util.tstart('INSERT_PRICE_LIST_ATTRS','Inserting INSERT_PRICE_LIST_ATTRS');
20300: INSERT_PRICE_LIST_ATTRS
20301: ( p_LINE_INDEX_tbl =>G_LINE_INDEX_tbl,
20302: p_LINE_DETAIL_INDEX_tbl =>G_LINE_DETAIL_INDEX_tbl,
20303: p_ATTRIBUTE_LEVEL_tbl =>G_ATTRIBUTE_LEVEL_tbl,
20327: p_MODIFIER_LEVEL_CODE_TBL =>G_MODIFIER_LEVEL_CODE_TBL_A,
20328: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
20329: x_status_code =>l_status_code,
20330: x_status_text =>l_status_text);
20331: qp_debug_util.tstop('INSERT_PRICE_LIST_ATTRS');
20332: END IF;
20333: K:=1;
20334:
20335:
20346: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20347: engine_debug('cursor open l_list_qual_cur_currency-multi-currency TRUE');
20348: END IF;
20349: OPEN l_list_qual_cur_currency;
20350: qp_debug_util.tstart('L_LIST_QUAL_CUR_CURRENCY','Cursor Loop l_list_qual_cur_currency');
20351: else -- vivek, multi currency not installed, not used
20352: OPEN l_list_qual_cur;
20353: qp_debug_util.tstart('L_LIST_QUAL_CUR','Cursor Loop l_list_qual_cur');
20354: end if; -- vivek, multi currency installed
20349: OPEN l_list_qual_cur_currency;
20350: qp_debug_util.tstart('L_LIST_QUAL_CUR_CURRENCY','Cursor Loop l_list_qual_cur_currency');
20351: else -- vivek, multi currency not installed, not used
20352: OPEN l_list_qual_cur;
20353: qp_debug_util.tstart('L_LIST_QUAL_CUR','Cursor Loop l_list_qual_cur');
20354: end if; -- vivek, multi currency installed
20355: qp_debug_util.tstart('L_LIST_QUAL_CUR_CURRENCY_FETCH','Cursor Loop L_LIST_QUAL_CUR_CURRENCY_FETCH');
20356: LOOP
20357: G_LINE_INDEX_TBL_P.delete;
20351: else -- vivek, multi currency not installed, not used
20352: OPEN l_list_qual_cur;
20353: qp_debug_util.tstart('L_LIST_QUAL_CUR','Cursor Loop l_list_qual_cur');
20354: end if; -- vivek, multi currency installed
20355: qp_debug_util.tstart('L_LIST_QUAL_CUR_CURRENCY_FETCH','Cursor Loop L_LIST_QUAL_CUR_CURRENCY_FETCH');
20356: LOOP
20357: G_LINE_INDEX_TBL_P.delete;
20358: G_LIST_LINE_ID_TBL_P.delete;
20359: G_OPER_CALCULATION_CODE_TBL_P.delete;
20720: END LOOP;
20721: END IF;
20722:
20723: END LOOP;
20724: qp_debug_util.tstop('L_LIST_QUAL_CUR_CURRENCY_FETCH');
20725: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20726: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20727: engine_debug('cursor close l_list_qual_cur_currency-multi-currency TRUE');
20728: END IF;
20726: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20727: engine_debug('cursor close l_list_qual_cur_currency-multi-currency TRUE');
20728: END IF;
20729: CLOSE l_list_qual_cur_currency;
20730: qp_debug_util.tstop('L_LIST_QUAL_CUR_CURRENCY');
20731: else -- vivek, multi currency not installed, not used
20732: CLOSE l_list_qual_cur;
20733:
20734: qp_debug_util.tstop('L_LIST_QUAL_CUR');
20730: qp_debug_util.tstop('L_LIST_QUAL_CUR_CURRENCY');
20731: else -- vivek, multi currency not installed, not used
20732: CLOSE l_list_qual_cur;
20733:
20734: qp_debug_util.tstop('L_LIST_QUAL_CUR');
20735:
20736: end if; -- vivek, multi currency installed
20737:
20738: END IF; -- p_pricing_phase_id = G_PRICE_LIST_PHASE_ID
20741: engine_debug('#106');
20742:
20743: END IF;
20744: IF M > 1 THEN
20745: qp_debug_util.tstart('INSERT_LDETS_PRICE_LIST_MULT_NON_MULTI','Inserting ldets INSERT_LDETS_PRICE_LIST_MULT_NON_MULTI');
20746: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20747: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20748: engine_debug('cursor l_list_qual_cur_currency-multi-currency TRUE - insert_ldets2');
20749:
20817: x_status_code =>l_status_code,
20818: x_status_text =>l_status_text
20819: );
20820: end if; -- vivek, multi currency installed
20821: qp_debug_util.tstop('INSERT_LDETS_PRICE_LIST_MULT_NON_MULTI');
20822: END IF;
20823: M :=1;
20824:
20825:
20823: M :=1;
20824:
20825:
20826: IF (K>1) THEN
20827: qp_debug_util.tstart('INSERT_PRICE_LIST_ATTRS','Inserting line attrs INSERT_PRICE_LIST_ATTRS');
20828: INSERT_PRICE_LIST_ATTRS
20829: ( p_LINE_INDEX_tbl =>G_LINE_INDEX_tbl,
20830: p_LINE_DETAIL_INDEX_tbl =>G_LINE_DETAIL_INDEX_tbl,
20831: p_ATTRIBUTE_LEVEL_tbl =>G_ATTRIBUTE_LEVEL_tbl,
20855: p_MODIFIER_LEVEL_CODE_TBL =>G_MODIFIER_LEVEL_CODE_TBL_A,
20856: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
20857: x_status_code =>l_status_code,
20858: x_status_text =>l_status_text);
20859: qp_debug_util.tstop('INSERT_PRICE_LIST_ATTRS');
20860: END IF;
20861: K:=1;
20862:
20863:
22048:
22049: --G_CURRENT_USER_OP_UNIT := NVL(p_control_rec.PRICING_ORG_ID, FND_PROFILE.VALUE('ORG_ID')); -- security
22050: x_status_code := fnd_api.g_ret_sts_success;
22051:
22052: qp_debug_util.tstart('PERFORM_SECONDARY_PAT_SEARCH','Performing Secondary Price List Pattern Search', false, true);
22053:
22054: Update_Sec_Price_List_Info(x_status_code,x_status_text);
22055:
22056: IF g_debug_engine = fnd_api.g_true THEN
22075: engine_debug('cursor l_sec_list_cur_currency-multi-currency TRUE');
22076: END IF;
22077:
22078: OPEN L_SEC_LST_HDR_P1_QLFY_Y_CURR;
22079: qp_debug_util.tstart('L_SEC_LST_HDR_P1_QLFY_Y_CURR', 'L_SEC_LST_HDR_P1_QLFY_Y_CURR');
22080: ELSE
22081: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
22082: engine_debug('cursor l_sec_list_cur multi-currency FALSE');
22083: END IF;
22082: engine_debug('cursor l_sec_list_cur multi-currency FALSE');
22083: END IF;
22084:
22085: OPEN L_SEC_LST_HDR_P1_QLFY_SEC_Y;
22086: qp_debug_util.tstart('L_SEC_LST_HDR_P1_QLFY_SEC_Y', 'L_SEC_LST_HDR_P1_QLFY_SEC_Y');
22087:
22088: END IF;
22089:
22090: LOOP
22257: engine_debug('cursor close l_list_cur_currency-multi-currency TRUE');
22258: END IF;
22259:
22260: CLOSE L_SEC_LST_HDR_P1_QLFY_Y_CURR;
22261: qp_debug_util.tstop('L_SEC_LST_HDR_P1_QLFY_Y_CURR');
22262: else
22263: CLOSE L_SEC_LST_HDR_P1_QLFY_SEC_Y;
22264: qp_debug_util.tstop('L_SEC_LST_HDR_P1_QLFY_SEC_Y');
22265: end if;
22260: CLOSE L_SEC_LST_HDR_P1_QLFY_Y_CURR;
22261: qp_debug_util.tstop('L_SEC_LST_HDR_P1_QLFY_Y_CURR');
22262: else
22263: CLOSE L_SEC_LST_HDR_P1_QLFY_SEC_Y;
22264: qp_debug_util.tstop('L_SEC_LST_HDR_P1_QLFY_SEC_Y');
22265: end if;
22266:
22267: ELSE ----profile no
22268: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
22270: engine_debug('cursor l_sec_list_cur_currency-multi-currency TRUE');
22271: END IF;
22272: IF p_search_path = 1 THEN
22273: OPEN L_SEC_LST_HDR_P1_QLFY_N_CURR;
22274: qp_debug_util.tstart('L_SEC_LST_HDR_P1_QLFY_N_CURR', 'L_SEC_LST_HDR_P1_QLFY_N_CURR');
22275: ELSE
22276: OPEN L_SEC_SRCH_BOTH_P2_QLFY_N_CURR;
22277: qp_debug_util.tstart('L_SEC_SRCH_BOTH_P2_QLFY_N_CURR', 'L_SEC_SRCH_BOTH_P2_QLFY_N_CURR');
22278: END IF;
22273: OPEN L_SEC_LST_HDR_P1_QLFY_N_CURR;
22274: qp_debug_util.tstart('L_SEC_LST_HDR_P1_QLFY_N_CURR', 'L_SEC_LST_HDR_P1_QLFY_N_CURR');
22275: ELSE
22276: OPEN L_SEC_SRCH_BOTH_P2_QLFY_N_CURR;
22277: qp_debug_util.tstart('L_SEC_SRCH_BOTH_P2_QLFY_N_CURR', 'L_SEC_SRCH_BOTH_P2_QLFY_N_CURR');
22278: END IF;
22279: ELSE
22280: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
22281: engine_debug('cursor l_sec_list_cur multi-currency FALSE');
22281: engine_debug('cursor l_sec_list_cur multi-currency FALSE');
22282: END IF;
22283: IF p_search_path = 1 THEN
22284: OPEN L_SEC_LST_HDR_P1_QLFY_SEC_N;
22285: qp_debug_util.tstart('L_SEC_LST_HDR_P1_QLFY_SEC_N', 'L_SEC_LST_HDR_P1_QLFY_SEC_N');
22286: ELSE
22287: OPEN L_SEC_SRCH_BOTH_P2_QLFY_N;
22288: qp_debug_util.tstart('L_SEC_SRCH_BOTH_P2_QLFY_N', 'L_SEC_SRCH_BOTH_P2_QLFY_N');
22289: END IF;
22284: OPEN L_SEC_LST_HDR_P1_QLFY_SEC_N;
22285: qp_debug_util.tstart('L_SEC_LST_HDR_P1_QLFY_SEC_N', 'L_SEC_LST_HDR_P1_QLFY_SEC_N');
22286: ELSE
22287: OPEN L_SEC_SRCH_BOTH_P2_QLFY_N;
22288: qp_debug_util.tstart('L_SEC_SRCH_BOTH_P2_QLFY_N', 'L_SEC_SRCH_BOTH_P2_QLFY_N');
22289: END IF;
22290: END IF;
22291:
22292: LOOP
22641: engine_debug('cursor close l_list_cur_currency-multi-currency TRUE');
22642: END IF;
22643: IF p_search_path = 1 THEN
22644: CLOSE L_SEC_LST_HDR_P1_QLFY_N_CURR;
22645: qp_debug_util.tstop('L_SEC_LST_HDR_P1_QLFY_N_CURR');
22646: ELSE
22647: CLOSE L_SEC_SRCH_BOTH_P2_QLFY_N_CURR;
22648: qp_debug_util.tstop('L_SEC_SRCH_BOTH_P2_QLFY_N_CURR');
22649: END IF;
22644: CLOSE L_SEC_LST_HDR_P1_QLFY_N_CURR;
22645: qp_debug_util.tstop('L_SEC_LST_HDR_P1_QLFY_N_CURR');
22646: ELSE
22647: CLOSE L_SEC_SRCH_BOTH_P2_QLFY_N_CURR;
22648: qp_debug_util.tstop('L_SEC_SRCH_BOTH_P2_QLFY_N_CURR');
22649: END IF;
22650: else
22651: IF p_search_path = 1 THEN
22652: CLOSE L_SEC_LST_HDR_P1_QLFY_SEC_N;
22649: END IF;
22650: else
22651: IF p_search_path = 1 THEN
22652: CLOSE L_SEC_LST_HDR_P1_QLFY_SEC_N;
22653: qp_debug_util.tstop('L_SEC_LST_HDR_P1_QLFY_SEC_N');
22654: ELSE
22655: CLOSE L_SEC_SRCH_BOTH_P2_QLFY_N;
22656: qp_debug_util.tstop('L_SEC_SRCH_BOTH_P2_QLFY_N');
22657: END IF;
22652: CLOSE L_SEC_LST_HDR_P1_QLFY_SEC_N;
22653: qp_debug_util.tstop('L_SEC_LST_HDR_P1_QLFY_SEC_N');
22654: ELSE
22655: CLOSE L_SEC_SRCH_BOTH_P2_QLFY_N;
22656: qp_debug_util.tstop('L_SEC_SRCH_BOTH_P2_QLFY_N');
22657: END IF;
22658: end if;
22659: END IF;
22660: IF G_QUALIFY_SECONDARY = G_YES THEN
22667: l_stage := G_STAGE_CACHE_SEC_PL_LIN_SRCH2;
22668: END IF;
22669: END IF;
22670:
22671: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_SEC_LIST_CUR', 'Populate_Temp_Tables_NEQ_BTW_SEC_LIST_CUR');
22672: Populate_Temp_Tables_NEQ_BTW(
22673: G_PRICE_LIST_PHASE_ID ,
22674: l_stage ,
22675: x_status_code ,
22677: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
22678: RAISE E_ROUTINE_ERRORS;
22679: END IF;
22680:
22681: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_SEC_LIST_CUR');
22682: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR', 'QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR');
22683:
22684: QP_EVALUATE_OTHER_OPERATORS(
22685: G_PRICE_LIST_PHASE_ID ,
22678: RAISE E_ROUTINE_ERRORS;
22679: END IF;
22680:
22681: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_SEC_LIST_CUR');
22682: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR', 'QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR');
22683:
22684: QP_EVALUATE_OTHER_OPERATORS(
22685: G_PRICE_LIST_PHASE_ID ,
22686: l_stage,
22690: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
22691: RAISE E_ROUTINE_ERRORS;
22692: END IF;
22693:
22694: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR');
22695:
22696: qp_debug_util.tstart('SEC_SRCH_PATRN_LIST_CUR_DEL_HDR_TCA', 'Header deletion for TCA');
22697:
22698: UPDATE qp_preq_patrn_qual_tmp a
22692: END IF;
22693:
22694: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR');
22695:
22696: qp_debug_util.tstart('SEC_SRCH_PATRN_LIST_CUR_DEL_HDR_TCA', 'Header deletion for TCA');
22697:
22698: UPDATE qp_preq_patrn_qual_tmp a
22699: SET pricing_status_code = G_DELETED_TCA
22700: WHERE pricing_status_code = g_status_unchanged
22714: AND c.segment_id = b.segment_id
22715: AND c.line_index = a.line_index
22716: AND c.derived_qualifier_flag = 'Y');
22717:
22718: qp_debug_util.tstop('SEC_SRCH_PATRN_LIST_CUR_DEL_HDR_TCA');
22719:
22720: IF l_stage = G_STAGE_CACHE_SEC_PL_LIN_SRCH2 THEN
22721: -- Deleting line if headers is not qualified in not=/Between evaluation
22722: -- header_quals_exist_flag will be Y only if Not=/Bet header level
22720: IF l_stage = G_STAGE_CACHE_SEC_PL_LIN_SRCH2 THEN
22721: -- Deleting line if headers is not qualified in not=/Between evaluation
22722: -- header_quals_exist_flag will be Y only if Not=/Bet header level
22723: -- qualifiers are present for that line.
22724: qp_debug_util.tstart('SEC_SRCH_PATRN_LIST_CUR_DEL_HDR', 'Line deletion');
22725:
22726: UPDATE qp_preq_patrn_qual_tmp a
22727: SET pricing_status_code = G_DELETED_LINE
22728: WHERE pricing_phase_id = G_PRICE_LIST_PHASE_ID
22740: AND pricing_status_code = g_status_unchanged
22741: AND b.stage = l_stage );
22742:
22743:
22744: qp_debug_util.tstop('SEC_SRCH_PATRN_LIST_CUR_DEL_HDR');
22745:
22746: END IF;
22747:
22748: /************/
22753: engine_debug('cursor l_sec_list_cur_currency-multi-currency TRUE');
22754: END IF;
22755:
22756: OPEN L_SEC_LST_LIN_P1_QLFY_Y_CURR;
22757: qp_debug_util.tstart('L_SEC_LST_LIN_P1_QLFY_Y_CURR', 'L_SEC_LST_LIN_P1_QLFY_Y_CURR');
22758:
22759: ELSE
22760: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
22761: engine_debug('cursor l_sec_list_cur multi-currency FALSE');
22761: engine_debug('cursor l_sec_list_cur multi-currency FALSE');
22762: END IF;
22763:
22764: OPEN L_SEC_LST_LIN_P1_QLFY_SEC_Y;
22765: qp_debug_util.tstart('L_SEC_LST_LIN_P1_QLFY_SEC_Y', 'L_SEC_LST_LIN_P1_QLFY_SEC_Y');
22766: END IF;
22767:
22768: LOOP
22769: l_list_header_id_tbl.DELETE;
23008: engine_debug('cursor close l_list_cur_currency-multi-currency TRUE');
23009: END IF;
23010:
23011: CLOSE L_SEC_LST_LIN_P1_QLFY_Y_CURR;
23012: qp_debug_util.tstop('L_SEC_LST_LIN_P1_QLFY_Y_CURR');
23013: else
23014: CLOSE L_SEC_LST_LIN_P1_QLFY_SEC_Y;
23015: qp_debug_util.tstop('L_SEC_LST_LIN_P1_QLFY_SEC_Y');
23016: end if;
23011: CLOSE L_SEC_LST_LIN_P1_QLFY_Y_CURR;
23012: qp_debug_util.tstop('L_SEC_LST_LIN_P1_QLFY_Y_CURR');
23013: else
23014: CLOSE L_SEC_LST_LIN_P1_QLFY_SEC_Y;
23015: qp_debug_util.tstop('L_SEC_LST_LIN_P1_QLFY_SEC_Y');
23016: end if;
23017:
23018: ELSE ----profile no
23019: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
23021: engine_debug('cursor l_sec_list_cur_currency-multi-currency TRUE');
23022: END IF;
23023:
23024: OPEN L_SEC_LST_LIN_P1_QLFY_N_CURR;
23025: qp_debug_util.tstart('L_SEC_LST_LIN_P1_QLFY_N_CURR', 'L_SEC_LST_LIN_P1_QLFY_N_CURR');
23026: ELSE
23027: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23028: engine_debug('cursor l_sec_list_cur multi-currency FALSE');
23029: END IF;
23028: engine_debug('cursor l_sec_list_cur multi-currency FALSE');
23029: END IF;
23030:
23031: OPEN L_SEC_LST_LIN_P1_QLFY_SEC_N;
23032: qp_debug_util.tstart('L_SEC_LST_LIN_P1_QLFY_SEC_N', 'L_SEC_LST_LIN_P1_QLFY_SEC_N');
23033: END IF;
23034:
23035: LOOP
23036: l_list_header_id_tbl.DELETE;
23268: engine_debug('cursor close l_list_cur_currency-multi-currency TRUE');
23269: END IF;
23270:
23271: CLOSE L_SEC_LST_LIN_P1_QLFY_N_CURR;
23272: qp_debug_util.tstop('L_SEC_LST_LIN_P1_QLFY_N_CURR');
23273: else
23274: CLOSE L_SEC_LST_LIN_P1_QLFY_SEC_N;
23275: qp_debug_util.tstop('L_SEC_LST_LIN_P1_QLFY_SEC_N');
23276: end if;
23271: CLOSE L_SEC_LST_LIN_P1_QLFY_N_CURR;
23272: qp_debug_util.tstop('L_SEC_LST_LIN_P1_QLFY_N_CURR');
23273: else
23274: CLOSE L_SEC_LST_LIN_P1_QLFY_SEC_N;
23275: qp_debug_util.tstop('L_SEC_LST_LIN_P1_QLFY_SEC_N');
23276: end if;
23277: END IF;
23278:
23279: l_stage :=G_STAGE_CACHE_SEC_PL_LIN_SRCH;
23277: END IF;
23278:
23279: l_stage :=G_STAGE_CACHE_SEC_PL_LIN_SRCH;
23280:
23281: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_SEC_LIST_CUR', 'Populate_Temp_Tables_NEQ_BTW_SEC_LIST_CUR');
23282: Populate_Temp_Tables_NEQ_BTW(
23283: G_PRICE_LIST_PHASE_ID ,
23284: l_stage ,
23285: x_status_code ,
23287: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23288: RAISE E_ROUTINE_ERRORS;
23289: END IF;
23290:
23291: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_SEC_LIST_CUR');
23292: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR', 'QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR');
23293:
23294: QP_EVALUATE_OTHER_OPERATORS(
23295: G_PRICE_LIST_PHASE_ID ,
23288: RAISE E_ROUTINE_ERRORS;
23289: END IF;
23290:
23291: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_SEC_LIST_CUR');
23292: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR', 'QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR');
23293:
23294: QP_EVALUATE_OTHER_OPERATORS(
23295: G_PRICE_LIST_PHASE_ID ,
23296: l_stage,
23300: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23301: RAISE E_ROUTINE_ERRORS;
23302: END IF;
23303:
23304: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR');
23305:
23306: qp_debug_util.tstart('SEC_SRCH_PATRN_LIST_CUR_DEL_LIN_TCA', 'Line deletion for TCA');
23307:
23308: UPDATE qp_preq_patrn_qual_tmp a
23302: END IF;
23303:
23304: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_SEC_LIST_CUR');
23305:
23306: qp_debug_util.tstart('SEC_SRCH_PATRN_LIST_CUR_DEL_LIN_TCA', 'Line deletion for TCA');
23307:
23308: UPDATE qp_preq_patrn_qual_tmp a
23309: SET pricing_status_code = G_DELETED_TCA
23310: WHERE pricing_status_code = g_status_unchanged
23324: AND c.segment_id = b.segment_id
23325: AND c.line_index = a.line_index
23326: AND c.derived_qualifier_flag = 'Y');
23327:
23328: qp_debug_util.tstop('SEC_SRCH_PATRN_LIST_CUR_DEL_LIN_TCA');
23329:
23330: qp_debug_util.tstart('PATRN_SEC_LIST_CUR_POPULATE_PAT_TEMP_TABLES', 'Populate_Pat_Temp_Tables');
23331:
23332: Populate_Pat_Temp_Tables(G_PRICE_LIST_PHASE_ID,
23326: AND c.derived_qualifier_flag = 'Y');
23327:
23328: qp_debug_util.tstop('SEC_SRCH_PATRN_LIST_CUR_DEL_LIN_TCA');
23329:
23330: qp_debug_util.tstart('PATRN_SEC_LIST_CUR_POPULATE_PAT_TEMP_TABLES', 'Populate_Pat_Temp_Tables');
23331:
23332: Populate_Pat_Temp_Tables(G_PRICE_LIST_PHASE_ID,
23333: G_STAGE_CACHE_SEC_PL_LIN_SRCH,
23334: x_status_code,
23337: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23338: RAISE E_ROUTINE_ERRORS;
23339: END IF;
23340:
23341: qp_debug_util.tstop('PATRN_SEC_LIST_CUR_POPULATE_PAT_TEMP_TABLES');
23342:
23343: IF g_debug_engine = fnd_api.g_true THEN
23344: engine_debug('x_status_code-' || x_status_code);
23345: engine_debug('x_status_text-' || x_status_text);
23344: engine_debug('x_status_code-' || x_status_code);
23345: engine_debug('x_status_text-' || x_status_text);
23346: END IF;
23347: ELSE
23348: qp_debug_util.tstart('PATRN_SEC_LIST_CUR_POPULATE_PAT_TEMP_TABLES', 'Populate_Pat_Temp_Tables');
23349: /*IF G_QUALIFY_SECONDARY = G_YES THEN
23350: l_stage :=G_STAGE_CACHE_SEC_PL_HDR_SRCH;
23351: ELSE
23352: l_stage := G_STAGE_CACHE_SEC_PL_LIN_SRCH2;
23359: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23360: RAISE E_ROUTINE_ERRORS;
23361: END IF;
23362:
23363: qp_debug_util.tstop('PATRN_SEC_LIST_CUR_POPULATE_PAT_TEMP_TABLES');
23364:
23365: END IF; ---path = 1
23366: IF l_loop_count <> 0 THEN
23367: QP_Resolve_Incompatability_PVT.Determine_Pricing_UOM_And_Qty
23425: RAISE E_ROUTINE_ERRORS;
23426: END IF;
23427: END IF;
23428:
23429: qp_debug_util.tstop('PERFORM_SECONDARY_PAT_SEARCH');
23430:
23431: EXCEPTION
23432: WHEN E_ROUTINE_ERRORS THEN
23433: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24036: BEGIN
24037:
24038: x_status_code := fnd_api.g_ret_sts_success;
24039:
24040: qp_debug_util.tstart('LIST_HEADER_PATTERN_SEARCH', 'List Header Search Pattern', false, true);
24041:
24042: IF g_debug_engine = fnd_api.g_true THEN
24043: engine_debug('L_LIST_CUR');
24044: END IF;
24048: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24049: engine_debug('cursor L_LIST_CUR_CURRENCY TRUE');
24050: END IF;
24051:
24052: qp_debug_util.tstart('PAT_LST_LIN_SRCH_1', 'List Header Search - Cursor L_LIN_CACHE_CURR');
24053:
24054: OPEN l_pat_cache_both_curr;
24055: ELSE
24056: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24056: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24057: engine_debug('cursor l_sec_list_cur multi-currency FALSE');
24058: END IF;
24059:
24060: qp_debug_util.tstart('PAT_LST_LIN_SRCH_1', 'List Header Search - Cursor L_LIN_CACHE');
24061:
24062: OPEN l_pat_cache_both;
24063: END IF;
24064:
24311: END IF;
24312:
24313: CLOSE l_pat_cache_both_curr;
24314:
24315: qp_debug_util.tstop('PAT_LST_LIN_SRCH_1');
24316: ELSE
24317: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24318: engine_debug('cursor l_sec_list_cur multi-currency FALSE');
24319: END IF;
24319: END IF;
24320:
24321: CLOSE l_pat_cache_both;
24322:
24323: qp_debug_util.tstop('PAT_LST_LIN_SRCH_1');
24324: END IF;
24325:
24326: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_AFT_LIN', 'Populate_Temp_Tables_NEQ_BTW After Line Cache');
24327: Populate_Temp_Tables_NEQ_BTW(
24322:
24323: qp_debug_util.tstop('PAT_LST_LIN_SRCH_1');
24324: END IF;
24325:
24326: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_AFT_LIN', 'Populate_Temp_Tables_NEQ_BTW After Line Cache');
24327: Populate_Temp_Tables_NEQ_BTW(
24328: p_pricing_phase_id ,
24329: G_STAGE_CACHE_LST_HDR_LIN_SRCH,
24330: x_status_code ,
24333: RAISE E_ROUTINE_ERRORS;
24334: END IF;
24335:
24336:
24337: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_AFT_LIN');
24338: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_AFT_LIN', 'QP_EVALUATE_OTHER_OPERATORS After Line Cache');
24339:
24340: QP_EVALUATE_OTHER_OPERATORS(
24341: p_pricing_phase_id ,
24334: END IF;
24335:
24336:
24337: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_AFT_LIN');
24338: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_AFT_LIN', 'QP_EVALUATE_OTHER_OPERATORS After Line Cache');
24339:
24340: QP_EVALUATE_OTHER_OPERATORS(
24341: p_pricing_phase_id ,
24342: G_STAGE_CACHE_LST_HDR_LIN_SRCH,
24346: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
24347: RAISE E_ROUTINE_ERRORS;
24348: END IF;
24349:
24350: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_AFT_LIN');
24351:
24352:
24353:
24354: -- Deleting modifiers line picked up because of TCA
24352:
24353:
24354: -- Deleting modifiers line picked up because of TCA
24355:
24356: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_LIN_TCA', 'Line deletion for TCA');
24357:
24358: UPDATE qp_preq_patrn_qual_tmp a
24359: SET pricing_status_code = G_DELETED_TCA
24360: WHERE pricing_status_code = g_status_unchanged
24374: AND c.segment_id = b.segment_id
24375: AND c.line_index = a.line_index
24376: AND c.derived_qualifier_flag = 'Y');
24377:
24378: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_LIN_TCA');
24379:
24380:
24381: -- Deleting line if headers is not qualified in not=/Between evaluation
24382: -- header_quals_exist_flag will be Y only if Not=/Bet header level
24380:
24381: -- Deleting line if headers is not qualified in not=/Between evaluation
24382: -- header_quals_exist_flag will be Y only if Not=/Bet header level
24383: -- qualifiers are present for that line.
24384: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_HDR', 'Line deletion');
24385:
24386: UPDATE qp_preq_patrn_qual_tmp a
24387: SET pricing_status_code = G_DELETED_LINE
24388: WHERE pricing_phase_id = p_pricing_phase_id
24400: AND pricing_status_code = g_status_unchanged
24401: AND b.stage = G_STAGE_CACHE_LST_HDR_LIN_SRCH);
24402:
24403:
24404: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_HDR');
24405:
24406: qp_debug_util.tstart('PATRN_LIST_CUR_POPULATE_PAT_TEMP_TABLES', 'Populate_Pat_Temp_Tables');
24407:
24408: Populate_Pat_Temp_Tables(p_pricing_phase_id,
24402:
24403:
24404: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_HDR');
24405:
24406: qp_debug_util.tstart('PATRN_LIST_CUR_POPULATE_PAT_TEMP_TABLES', 'Populate_Pat_Temp_Tables');
24407:
24408: Populate_Pat_Temp_Tables(p_pricing_phase_id,
24409: G_STAGE_CACHE_LST_HDR_LIN_SRCH,
24410: x_status_code,
24414: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
24415: RAISE E_ROUTINE_ERRORS;
24416: END IF;
24417:
24418: qp_debug_util.tstop('PATRN_LIST_CUR_POPULATE_PAT_TEMP_TABLES');
24419:
24420: IF g_debug_engine = fnd_api.g_true THEN
24421: engine_debug('x_status_code-' || x_status_code);
24422: engine_debug('x_status_text-' || x_status_text);
24486: RAISE E_ROUTINE_ERRORS;
24487: END IF;
24488: END IF;
24489:
24490: qp_debug_util.tstop('LIST_HEADER_PATTERN_SEARCH');
24491:
24492: EXCEPTION
24493: WHEN E_ROUTINE_ERRORS THEN
24494:
24491:
24492: EXCEPTION
24493: WHEN E_ROUTINE_ERRORS THEN
24494:
24495: qp_debug_util.tstop('LIST_HEADER_PATTERN_SEARCH');
24496:
24497: x_status_code := FND_API.G_RET_STS_ERROR;
24498: x_status_text := 'Expected Error in ' || l_routine || sqlerrm;
24499:
24515:
24516: END IF;
24517:
24518: WHEN OTHERS THEN
24519: qp_debug_util.tstop('LIST_HEADER_PATTERN_SEARCH');
24520:
24521: IF G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN
24522:
24523: IF l_pat_cache_both_curr%ISOPEN THEN
27082:
27083: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27084: engine_debug('Caching Header Qualifiers for phase : ' || p_pricing_phase_id);
27085: END IF;
27086: qp_debug_util.tstart('CACHE_HEADER_QUALIFIERS','Caching the header qualifiers');
27087: Cache_Header_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
27088: qp_debug_util.tstop('CACHE_HEADER_QUALIFIERS');
27089: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27090: RAISE E_ROUTINE_ERRORS;
27084: engine_debug('Caching Header Qualifiers for phase : ' || p_pricing_phase_id);
27085: END IF;
27086: qp_debug_util.tstart('CACHE_HEADER_QUALIFIERS','Caching the header qualifiers');
27087: Cache_Header_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
27088: qp_debug_util.tstop('CACHE_HEADER_QUALIFIERS');
27089: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27090: RAISE E_ROUTINE_ERRORS;
27091: END IF;
27092:
27090: RAISE E_ROUTINE_ERRORS;
27091: END IF;
27092:
27093: --Added call for 3520634
27094: qp_debug_util.tstart('DELETE_HDRS_WITH_NO_PRODATTR','Deleting the headers with no product attribute');
27095: Delete_Hdrs_With_No_ProdAttr(p_pricing_phase_id,l_status_code,l_status_text);
27096: qp_debug_util.tstop('DELETE_HDRS_WITH_NO_PRODATTR');
27097: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27098: RAISE E_ROUTINE_ERRORS;
27092:
27093: --Added call for 3520634
27094: qp_debug_util.tstart('DELETE_HDRS_WITH_NO_PRODATTR','Deleting the headers with no product attribute');
27095: Delete_Hdrs_With_No_ProdAttr(p_pricing_phase_id,l_status_code,l_status_text);
27096: qp_debug_util.tstop('DELETE_HDRS_WITH_NO_PRODATTR');
27097: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27098: RAISE E_ROUTINE_ERRORS;
27099: END IF;
27100:
27101:
27102: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27103: engine_debug('Caching Line Qualifiers for satisfied headers and pure line quals for phase : ' || p_pricing_phase_id);
27104: END IF;
27105: qp_debug_util.tstart('CACHE_LINE_QUALIFIERS','Caching the Line qualifiers');
27106: Cache_Line_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
27107: qp_debug_util.tstop('CACHE_LINE_QUALIFIERS');
27108: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27109: RAISE E_ROUTINE_ERRORS;
27103: engine_debug('Caching Line Qualifiers for satisfied headers and pure line quals for phase : ' || p_pricing_phase_id);
27104: END IF;
27105: qp_debug_util.tstart('CACHE_LINE_QUALIFIERS','Caching the Line qualifiers');
27106: Cache_Line_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
27107: qp_debug_util.tstop('CACHE_LINE_QUALIFIERS');
27108: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27109: RAISE E_ROUTINE_ERRORS;
27110: END IF;
27111:
27145: FETCH get_list_headers_with_ind2 INTO l_dummy;
27146: CLOSE get_list_headers_with_ind2;
27147:
27148: IF (l_dummy = 'x') THEN --Added if clause for 3520634
27149: qp_debug_util.tstart('MINI_CACHE_QUALIFIERS','Caching the qualifiers with search_ind=2');
27150: Mini_Cache_Qualifiers(-999 , -999 , -999, p_pricing_phase_id,l_status_code,l_status_text);
27151: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
27152: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27153: RAISE E_ROUTINE_ERRORS;
27147:
27148: IF (l_dummy = 'x') THEN --Added if clause for 3520634
27149: qp_debug_util.tstart('MINI_CACHE_QUALIFIERS','Caching the qualifiers with search_ind=2');
27150: Mini_Cache_Qualifiers(-999 , -999 , -999, p_pricing_phase_id,l_status_code,l_status_text);
27151: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
27152: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27153: RAISE E_ROUTINE_ERRORS;
27154: END IF;
27155: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27157:
27158: END IF;
27159: END IF;
27160: -- Qualifier Grouping
27161: qp_debug_util.tstart('MINI_CACHE_QUALIFIERS', 'Performing the Qualifier Grouping');
27162: Perform_Qualifier_Grouping(G_NO,p_pricing_phase_id,l_status_code,l_status_text);
27163: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
27164:
27165: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27159: END IF;
27160: -- Qualifier Grouping
27161: qp_debug_util.tstart('MINI_CACHE_QUALIFIERS', 'Performing the Qualifier Grouping');
27162: Perform_Qualifier_Grouping(G_NO,p_pricing_phase_id,l_status_code,l_status_text);
27163: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
27164:
27165: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27166: RAISE E_ROUTINE_ERRORS;
27167: END IF;
27377:
27378: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27379: engine_debug('hw: l_get_line_index_for_quals path');
27380: END IF;
27381: qp_debug_util.tstart('L_GET_LINE_INDEX_FOR_QUALS','Cursor L_GET_LINE_INDEX_FOR_QUALS');
27382: OPEN l_get_line_index_for_quals;
27383:
27384: LOOP
27385: G_LIST_HEADER_ID_TBL_Q.delete;
27475: --G_QUALIFIER_TEMP := G_QUALIFIER_TEMP_UPDATED;
27476: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27477: engine_debug('Inserting rows into qp_preq_qual_tmp for each line index: ' || G_LIST_HEADER_ID_TBL_Q.COUNT);
27478: END IF;
27479: qp_debug_util.tstart('INSERT_QUAL','Cursor INSERT_QUAL');
27480: INSERT_QUAL(
27481: G_LIST_HEADER_ID_TBL_Q
27482: , G_LIST_LINE_ID_TBL_Q
27483: , G_VALIDATED_FLAG_TBL_Q
27520: , G_HEADER_LIMIT_EXISTS_TBL_Q
27521: , G_DERIVED_QUALIFIER_FLAG_TBL_Q
27522: , l_status_code
27523: , l_status_text);
27524: qp_debug_util.tstop('INSERT_QUAL');
27525: END IF;
27526: END LOOP;
27527: qp_debug_util.tstop('L_GET_LINE_INDEX_FOR_QUALS');
27528: CLOSE l_get_line_index_for_quals;
27523: , l_status_text);
27524: qp_debug_util.tstop('INSERT_QUAL');
27525: END IF;
27526: END LOOP;
27527: qp_debug_util.tstop('L_GET_LINE_INDEX_FOR_QUALS');
27528: CLOSE l_get_line_index_for_quals;
27529:
27530: -- Qualifier Grouping For Each Line Index
27531: Perform_Qualifier_Grouping(G_YES,p_pricing_phase_id,l_status_code,l_status_text);
27536: RAISE E_ROUTINE_ERRORS;
27537: END IF;
27538:
27539: END IF; --IF (G_QUALIFIER_TEMP <> 'E' OR G_LINE_QUALIFIER_TEMP <> 'E') THEN
27540: qp_debug_util.tstart('L_PROD_QUAL_CUR','Cursor Loop l_prod_qual_cur');
27541: OPEN l_prod_qual_cur (p_pricing_phase_id, -99,-99,-99);
27542:
27543:
27544: LOOP
27759: engine_debug('Qualifiers for List Line Id : ' || l_satisfied_lst_line_id );
27760:
27761: END IF;
27762:
27763: qp_debug_util.tstart('L_GET_SATISFIED_QUALS','Cursor Loop L_GET_SATISFIED_QUALS');
27764:
27765: FOR V IN l_get_satisfied_quals(l_satisfied_list_header_id,l_satisfied_lst_line_id, l_satisfied_line_indx)
27766: LOOP
27767: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27811:
27812: END IF;
27813: END LOOP;
27814:
27815: qp_debug_util.tstop('L_GET_SATISFIED_QUALS');
27816:
27817: --Reset the satisfied list header and list line info
27818: l_satisfied_list_header_id := -9999;
27819: l_satisfied_lst_line_id := -9999;
27827: END LOOP;
27828: END IF;
27829: END LOOP;
27830:
27831: qp_debug_util.tstop('L_PROD_QUAL_CUR');
27832:
27833: CLOSE l_prod_qual_cur;
27834:
27835: lq_line_index := -9999;
27833: CLOSE l_prod_qual_cur;
27834:
27835: lq_line_index := -9999;
27836: lq_list_line_id := -9999;
27837: qp_debug_util.tstart('L_PROD_QUAL_PRIC_CUR','Cursor Loop l_prod_qual_pric_cur');
27838: OPEN l_prod_qual_pric_cur(p_pricing_phase_id, -99,-99,-99) ;
27839:
27840:
27841: LOOP
28182: END LOOP;
28183: END IF;
28184: END LOOP;
28185:
28186: qp_debug_util.tstop('L_PROD_QUAL_PRIC_CUR');
28187:
28188: CLOSE l_prod_qual_pric_cur;
28189: qp_debug_util.tstart('L_INNER_QUAL_CUR','Cursor Loop L_INNER_QUAL_CUR');
28190: OPEN l_inner_qual_cur (p_pricing_phase_id, -99,-99,-99,NULL,NULL,NULL,NULL);
28185:
28186: qp_debug_util.tstop('L_PROD_QUAL_PRIC_CUR');
28187:
28188: CLOSE l_prod_qual_pric_cur;
28189: qp_debug_util.tstart('L_INNER_QUAL_CUR','Cursor Loop L_INNER_QUAL_CUR');
28190: OPEN l_inner_qual_cur (p_pricing_phase_id, -99,-99,-99,NULL,NULL,NULL,NULL);
28191:
28192: LOOP
28193: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28407: END LOOP;
28408: END IF;
28409: END LOOP;
28410:
28411: qp_debug_util.tstop('L_INNER_QUAL_CUR');
28412: CLOSE l_inner_qual_cur;
28413:
28414: lq_line_index := -9999;
28415: lq_list_line_id := -9999;
28417: --selecting lists that match product qttributes only
28418: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28419: engine_debug('Before l_prod_cur_mod');
28420: END IF;
28421: qp_debug_util.tstart('L_PROD_CUR','Cursor Loop L_PROD_CUR');
28422: OPEN l_prod_cur(p_pricing_phase_id);
28423:
28424:
28425: LOOP
28634: END LOOP;
28635: END IF;
28636: END LOOP;
28637:
28638: qp_debug_util.tstop('L_PROD_CUR');
28639:
28640: CLOSE l_prod_cur;
28641: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28642: engine_debug('After l_prod_cur_mod');
28647:
28648: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28649: engine_debug('Before l_prod_pric_cur_mod');
28650: END IF;
28651: qp_debug_util.tstart('L_PROD_PRIC_CUR','Cursor Loop L_PROD_PRIC_CUR');
28652: OPEN l_prod_pric_cur(p_pricing_phase_id);
28653:
28654:
28655:
28915: END LOOP;
28916: END IF;
28917: END LOOP;
28918:
28919: qp_debug_util.tstop('L_PROD_PRIC_CUR');
28920:
28921: CLOSE l_prod_pric_cur;
28922: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28923: engine_debug('After l_prod_pric_cur_mod');
28934: --Select the lists that are good for anything
28935: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28936: engine_debug('Before blind cursor');
28937: END IF;
28938: qp_debug_util.tstart('L_CUR','Cursor Loop L_CUR');
28939: OPEN l_cur(p_pricing_phase_id);
28940:
28941:
28942:
29078: END LOOP;
29079: END IF; --IF
29080: END LOOP;
29081:
29082: qp_debug_util.tstop('L_CUR');
29083:
29084: CLOSE l_cur;
29085: END IF; --for blind discount
29086: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29142: END IF;
29143: End Loop; */
29144:
29145: IF M > 1 THEN
29146: qp_debug_util.tstart('INSERT_LDETS_PVT','Inserting into ldets INSERT_LDETS_PVT');
29147: INSERT_LDETS_PVT( p_LINE_DETAIL_index => G_LINE_DETAIL_INDEX_LD_TBL,
29148: p_LINE_DETAIL_TYPE_CODE => G_LINE_DETAIL_TYPE_CODE_TBL,
29149: p_PRICE_BREAK_TYPE_CODE => G_PRICE_BREAK_TYPE_CODE_TBL,
29150: p_LINE_INDEX => G_LINE_INDEX_LD_TBL,
29187: p_ACCUM_FLAG =>G_ACCUM_FLAG_TBL, -- accum range break
29188: x_status_code =>l_status_code,
29189: x_status_text =>l_status_text
29190: );
29191: qp_debug_util.tstop('INSERT_LDETS_PVT');
29192: END IF;
29193:
29194: IF K > 1 THEN
29195: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29194: IF K > 1 THEN
29195: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29196: engine_debug('hw: k = ' || k);
29197: END IF;
29198: qp_debug_util.tstart('INSERT_LINE_ATTRS2','Inserting into line attrs INSERT_LINE_ATTRS2');
29199: INSERT_LINE_ATTRS2
29200: ( p_LINE_INDEX_tbl =>G_LINE_INDEX_tbl,
29201: p_LINE_DETAIL_INDEX_tbl =>G_LINE_DETAIL_INDEX_tbl,
29202: p_ATTRIBUTE_LEVEL_tbl =>G_ATTRIBUTE_LEVEL_tbl,
29232:
29233: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
29234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
29235: END IF;
29236: qp_debug_util.tstop('INSERT_LINE_ATTRS2');
29237: END IF;
29238:
29239: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29240: engine_debug('Before Inserting attributes in excluded cursor');
29259: */
29260:
29261: -- Delete Excluded Line Details Directly if the inner select returns an excluded row
29262:
29263: qp_debug_util.tstart('D_EXCLUDER','Update statement D_EXCLUDER');
29264: UPDATE qp_npreq_ldets_tmp a
29265: SET pricing_status_code = 'D_EXCLUDER'
29266: WHERE pricing_phase_id = p_pricing_phase_id
29267: AND pricing_status_code = G_STATUS_NEW
29276: AND b.product_attr_value = c.value_from
29277: AND c.attribute_type = G_PRODUCT_TYPE
29278: AND c.pricing_status_code = G_STATUS_UNCHANGED
29279: AND c.line_index = a.line_index);
29280: qp_debug_util.tstop('D_EXCLUDER');
29281: --selecting list line attributes that match excluder flag
29282: /* OPEN l_get_excluded_prods_cur(p_pricing_phase_id);
29283:
29284: LOOP
29362: CLOSE l_get_excluded_prods_cur; */
29363:
29364:
29365: IF K > 1 THEN
29366: qp_debug_util.tstart('INSERT_LINE_ATTRS2','Inserting into line attrs INSERT_LINE_ATTRS2');
29367: INSERT_LINE_ATTRS2
29368: ( p_LINE_INDEX_tbl =>G_LINE_INDEX_tbl,
29369: p_LINE_DETAIL_INDEX_tbl =>G_LINE_DETAIL_INDEX_tbl,
29370: p_ATTRIBUTE_LEVEL_tbl =>G_ATTRIBUTE_LEVEL_tbl,
29399: x_status_text =>l_status_text);
29400: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
29401: RAISE E_ROUTINE_ERRORS;
29402: END IF;
29403: qp_debug_util.tstop('INSERT_LINE_ATTRS2');
29404: END IF;
29405:
29406: --Reset_all_tbls;
29407: Reset_All_Tbls(l_status_code ,l_status_text );
30051: l_routine VARCHAR2(40) := 'QP_PREQ_GRP.SELECT_PRICE_LIST_LINES_PAT';
30052:
30053: BEGIN
30054:
30055: qp_debug_util.tstart('SEL_PRICE_LIST_LINES_PAT','Big Search Call Pattern - SELECT_PRICE_LIST_LINES_PAT API', false, true);
30056:
30057: x_status_code := fnd_api.g_ret_sts_success;
30058:
30059: IF G_MULTI_CURRENCY_PROFILE = 'Y' AND G_USE_MULTI_CURRENCY = 'Y' THEN
30085:
30086: -- Line check
30087:
30088: IF l_use_multi_curr THEN
30089: qp_debug_util.tstart('BIG_SRCH_LIN_CACH_P2','Line Cache Path 2 - l_pat_line_curr_p2');
30090: OPEN l_pat_line_curr_p2;
30091: ELSE
30092: qp_debug_util.tstart('BIG_SRCH_LIN_CACH_P2','Line Cache Path 2 - l_pat_line_p2');
30093: OPEN l_pat_line_p2;
30088: IF l_use_multi_curr THEN
30089: qp_debug_util.tstart('BIG_SRCH_LIN_CACH_P2','Line Cache Path 2 - l_pat_line_curr_p2');
30090: OPEN l_pat_line_curr_p2;
30091: ELSE
30092: qp_debug_util.tstart('BIG_SRCH_LIN_CACH_P2','Line Cache Path 2 - l_pat_line_p2');
30093: OPEN l_pat_line_p2;
30094: -- write logic for non multi curr case
30095: END IF;
30096:
30332:
30333: l_loop_count := l_loop_count + 1;
30334: END LOOP;
30335:
30336: qp_debug_util.tstop('BIG_SRCH_LIN_CACH_P2');
30337:
30338: IF l_use_multi_curr THEN
30339: close l_pat_line_curr_p2;
30340: ELSE
30340: ELSE
30341: close l_pat_line_p2;
30342: END IF;
30343:
30344: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_LIN','Populating BNQ Operators after line cache');
30345:
30346: Populate_Temp_Tables_NEQ_BTW(
30347: p_pricing_phase_id ,
30348: G_STAGE_CACHE_PL_LIN2 ,
30348: G_STAGE_CACHE_PL_LIN2 ,
30349: x_status_code ,
30350: x_status_text );
30351:
30352: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_LIN');
30353:
30354:
30355: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
30356: RAISE E_ROUTINE_ERRORS;
30355: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
30356: RAISE E_ROUTINE_ERRORS;
30357: END IF;
30358:
30359: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_LIN','Evaluating other operators after line cache');
30360:
30361: QP_EVALUATE_OTHER_OPERATORS(
30362: p_pricing_phase_id ,
30363: G_STAGE_CACHE_PL_LIN2,
30363: G_STAGE_CACHE_PL_LIN2,
30364: x_status_code ,
30365: x_status_text );
30366:
30367: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_LIN');
30368:
30369: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
30370: RAISE E_ROUTINE_ERRORS;
30371: END IF;
30369: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
30370: RAISE E_ROUTINE_ERRORS;
30371: END IF;
30372:
30373: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_LIN_TCA_P2', 'Header/Line deletion for TCA');
30374:
30375: UPDATE qp_preq_patrn_qual_tmp a
30376: SET pricing_status_code = G_DELETED_TCA
30377: WHERE pricing_status_code = g_status_unchanged
30391: AND c.segment_id = b.segment_id
30392: AND c.line_index = a.line_index
30393: AND c.derived_qualifier_flag = 'Y');
30394:
30395: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_LIN_TCA_P2');
30396:
30397:
30398: qp_debug_util.tstart('DEL_LIN_HDR_QUAL_FAILED','Deleting lines failed in header qualiifiers');
30399:
30394:
30395: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_LIN_TCA_P2');
30396:
30397:
30398: qp_debug_util.tstart('DEL_LIN_HDR_QUAL_FAILED','Deleting lines failed in header qualiifiers');
30399:
30400: -- Deleting lines if header is not satisfied.
30401:
30402: UPDATE qp_preq_patrn_qual_tmp a
30415: AND b.pricing_phase_id = a.pricing_phase_id
30416: AND pricing_status_code = g_status_unchanged
30417: and b.stage = G_STAGE_CACHE_PL_LIN2);
30418:
30419: qp_debug_util.tstop('DEL_LIN_HDR_QUAL_FAILED');
30420:
30421: qp_debug_util.tstart('BIG_SRCH_POPULATE_TMP_TBLS','Populating Temp Tables - Populate_Pat_Temp_Tables API');
30422:
30423: Populate_Pat_Temp_Tables(p_pricing_phase_id,
30417: and b.stage = G_STAGE_CACHE_PL_LIN2);
30418:
30419: qp_debug_util.tstop('DEL_LIN_HDR_QUAL_FAILED');
30420:
30421: qp_debug_util.tstart('BIG_SRCH_POPULATE_TMP_TBLS','Populating Temp Tables - Populate_Pat_Temp_Tables API');
30422:
30423: Populate_Pat_Temp_Tables(p_pricing_phase_id,
30424: G_STAGE_CACHE_PL_LIN2,
30425: x_status_code,
30424: G_STAGE_CACHE_PL_LIN2,
30425: x_status_code,
30426: x_status_text);
30427:
30428: qp_debug_util.tstop('BIG_SRCH_POPULATE_TMP_TBLS');
30429:
30430:
30431: ELSIF p_search_path = 1 THEN -- Header First - Line Next
30432:
30430:
30431: ELSIF p_search_path = 1 THEN -- Header First - Line Next
30432:
30433: IF l_use_multi_curr THEN
30434: qp_debug_util.tstart('BIG_SRCH_HDR_CACH_P1','Header Cache Path 1 - l_pat_header_cache_curr_p1');
30435: OPEN l_pat_header_cache_curr_p1;
30436: ELSE
30437: qp_debug_util.tstart('BIG_SRCH_HDR_CACH_P1','Header Cache Path 1 - l_pat_header_cache_p1');
30438: OPEN l_pat_header_cache_p1;
30433: IF l_use_multi_curr THEN
30434: qp_debug_util.tstart('BIG_SRCH_HDR_CACH_P1','Header Cache Path 1 - l_pat_header_cache_curr_p1');
30435: OPEN l_pat_header_cache_curr_p1;
30436: ELSE
30437: qp_debug_util.tstart('BIG_SRCH_HDR_CACH_P1','Header Cache Path 1 - l_pat_header_cache_p1');
30438: OPEN l_pat_header_cache_p1;
30439: END IF;
30440:
30441: LOOP
30597: ELSE
30598: CLOSE l_pat_header_cache_p1;
30599: END IF;
30600:
30601: qp_debug_util.tstop('BIG_SRCH_HDR_CACH_P1');
30602:
30603: --doing between/ not = operator check
30604:
30605: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_HDR','Populating BNQ Operators after header cache');
30601: qp_debug_util.tstop('BIG_SRCH_HDR_CACH_P1');
30602:
30603: --doing between/ not = operator check
30604:
30605: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_HDR','Populating BNQ Operators after header cache');
30606:
30607: Populate_Temp_Tables_NEQ_BTW(
30608: p_pricing_phase_id ,
30609: G_STAGE_CACHE_PL_HDR,
30609: G_STAGE_CACHE_PL_HDR,
30610: x_status_code ,
30611: x_status_text );
30612:
30613: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_HDR');
30614:
30615: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
30616: RAISE E_ROUTINE_ERRORS;
30617: END IF;
30615: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
30616: RAISE E_ROUTINE_ERRORS;
30617: END IF;
30618:
30619: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_HDR','Evaluating other operators after header cache');
30620:
30621: QP_EVALUATE_OTHER_OPERATORS(
30622: p_pricing_phase_id ,
30623: G_STAGE_CACHE_PL_HDR,
30623: G_STAGE_CACHE_PL_HDR,
30624: x_status_code ,
30625: x_status_text );
30626:
30627: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_HDR');
30628:
30629:
30630: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_HDR_TCA_P1', 'Header deletion for TCA');
30631:
30626:
30627: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_HDR');
30628:
30629:
30630: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_HDR_TCA_P1', 'Header deletion for TCA');
30631:
30632: UPDATE qp_preq_patrn_qual_tmp a
30633: SET pricing_status_code = G_DELETED_TCA
30634: WHERE pricing_status_code = g_status_unchanged
30648: AND c.segment_id = b.segment_id
30649: AND c.line_index = a.line_index
30650: AND c.derived_qualifier_flag = 'Y');
30651:
30652: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_HDR_TCA_P1');
30653:
30654:
30655: -- Line check
30656:
30654:
30655: -- Line check
30656:
30657: IF l_use_multi_curr THEN
30658: qp_debug_util.tstart('BIG_SRCH_LIN_CACH_P1','Line Cache Path 1 - l_pat_line_cache_curr_p1');
30659: OPEN l_pat_line_cache_curr_p1;
30660: ELSE
30661: qp_debug_util.tstart('BIG_SRCH_LIN_CACH_P1','Line Cache Path 1 - l_pat_line_cache_p1');
30662: OPEN l_pat_line_cache_p1;
30657: IF l_use_multi_curr THEN
30658: qp_debug_util.tstart('BIG_SRCH_LIN_CACH_P1','Line Cache Path 1 - l_pat_line_cache_curr_p1');
30659: OPEN l_pat_line_cache_curr_p1;
30660: ELSE
30661: qp_debug_util.tstart('BIG_SRCH_LIN_CACH_P1','Line Cache Path 1 - l_pat_line_cache_p1');
30662: OPEN l_pat_line_cache_p1;
30663: END if;
30664:
30665: LOOP
30841: ELSE
30842: CLOSE l_pat_line_cache_p1;
30843: END IF;
30844:
30845: qp_debug_util.tstop('BIG_SRCH_LIN_CACH_P1');
30846:
30847: --doing between/ not = operator check
30848:
30849: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_LIN','Populating BNQ Operators after line cache');
30845: qp_debug_util.tstop('BIG_SRCH_LIN_CACH_P1');
30846:
30847: --doing between/ not = operator check
30848:
30849: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_LIN','Populating BNQ Operators after line cache');
30850:
30851: Populate_Temp_Tables_NEQ_BTW(
30852: p_pricing_phase_id ,
30853: G_STAGE_CACHE_PL_LIN,
30853: G_STAGE_CACHE_PL_LIN,
30854: x_status_code ,
30855: x_status_text );
30856:
30857: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_LIN');
30858:
30859: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
30860: RAISE E_ROUTINE_ERRORS;
30861: END IF;
30859: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
30860: RAISE E_ROUTINE_ERRORS;
30861: END IF;
30862:
30863: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_LIN','Evaluating other operators after line cache');
30864:
30865: QP_EVALUATE_OTHER_OPERATORS(
30866: p_pricing_phase_id ,
30867: G_STAGE_CACHE_PL_LIN,
30867: G_STAGE_CACHE_PL_LIN,
30868: x_status_code ,
30869: x_status_text );
30870:
30871: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_LIN');
30872:
30873: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
30874: RAISE E_ROUTINE_ERRORS;
30875: END IF;
30873: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
30874: RAISE E_ROUTINE_ERRORS;
30875: END IF;
30876:
30877: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_LIN_TCA_P1', 'Line deletion for TCA');
30878:
30879: UPDATE qp_preq_patrn_qual_tmp a
30880: SET pricing_status_code = G_DELETED_TCA
30881: WHERE pricing_status_code = g_status_unchanged
30895: AND c.segment_id = b.segment_id
30896: AND c.line_index = a.line_index
30897: AND c.derived_qualifier_flag = 'Y');
30898:
30899: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_LIN_TCA_P1');
30900:
30901: qp_debug_util.tstart('BIG_SRCH_POPULATE_TMP_TBLS','Populating Temp Tables - Populate_Pat_Temp_Tables API');
30902:
30903: Populate_Pat_Temp_Tables(p_pricing_phase_id,
30897: AND c.derived_qualifier_flag = 'Y');
30898:
30899: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_LIN_TCA_P1');
30900:
30901: qp_debug_util.tstart('BIG_SRCH_POPULATE_TMP_TBLS','Populating Temp Tables - Populate_Pat_Temp_Tables API');
30902:
30903: Populate_Pat_Temp_Tables(p_pricing_phase_id,
30904: G_STAGE_CACHE_PL_LIN,
30905: x_status_code,
30904: G_STAGE_CACHE_PL_LIN,
30905: x_status_code,
30906: x_status_text);
30907:
30908: qp_debug_util.tstop('BIG_SRCH_POPULATE_TMP_TBLS');
30909:
30910: END IF;
30911:
30912: --- Existing logic
30912: --- Existing logic
30913:
30914: IF l_loop_count > 0 THEN
30915:
30916: qp_debug_util.tstart('BIG_SRCH_RESLV_INCMPTBLTY','Resolve Incompatability - Determine_Pricing_UOM_And_Qty API');
30917:
30918: QP_Resolve_Incompatability_PVT.Determine_Pricing_UOM_And_Qty
30919: (p_line_index => NULL,
30920: p_order_uom_code => NULL,
30924: x_list_line_id => l_list_line_id,
30925: x_return_status => l_return_status,
30926: x_return_status_txt => l_status_text);
30927:
30928: qp_debug_util.tstop('BIG_SRCH_RESLV_INCMPTBLTY');
30929:
30930: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
30931: RAISE E_ROUTINE_ERRORS;
30932: END IF;
30947: PRICE_FLAG = G_PHASE and p_freeze_override_flag = G_YES)
30948: and rownum = 1;
30949: -- //Shankar need to put this
30950:
30951: qp_debug_util.tstart('BIG_SRCH_EVAL_BET','Evaluate Between');
30952:
30953: Evaluate_Between(p_pricing_phase_id,NULL,NULL,l_return_status,l_status_text);
30954:
30955: qp_debug_util.tstop('BIG_SRCH_EVAL_BET');
30951: qp_debug_util.tstart('BIG_SRCH_EVAL_BET','Evaluate Between');
30952:
30953: Evaluate_Between(p_pricing_phase_id,NULL,NULL,l_return_status,l_status_text);
30954:
30955: qp_debug_util.tstop('BIG_SRCH_EVAL_BET');
30956:
30957: exception
30958: when no_data_found then
30959: null;
30960: end;
30961:
30962: -- Update the request line status for lines which got valid price list
30963:
30964: qp_debug_util.tstart('BIG_SRCH_UPD_REQ_LIN_STATUS','Updating Request Lines Status - Update_Request_Line_Status API');
30965:
30966: Update_Request_Line_Status(p_control_rec,'SUCCESS',p_freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
30967:
30968: qp_debug_util.tstop('BIG_SRCH_UPD_REQ_LIN_STATUS');
30964: qp_debug_util.tstart('BIG_SRCH_UPD_REQ_LIN_STATUS','Updating Request Lines Status - Update_Request_Line_Status API');
30965:
30966: Update_Request_Line_Status(p_control_rec,'SUCCESS',p_freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
30967:
30968: qp_debug_util.tstop('BIG_SRCH_UPD_REQ_LIN_STATUS');
30969:
30970: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
30971: RAISE E_ROUTINE_ERRORS;
30972: END IF;
30978: --By doing this we will get the right price in the PRICE event on change of UOM on the order line
30979: --for price based on price break
30980: -- //Shankar need to put this
30981:
30982: qp_debug_util.tstart('BIG_SRCH_GET_ELGBLE_PRICE_BRK','Getting eligible Price Breaks - Get_Eligible_Price_Break API');
30983:
30984: Get_Eligible_Price_Break(p_pricing_phase_id,NULL,l_return_status,l_status_text);
30985:
30986: qp_debug_util.tstop('BIG_SRCH_GET_ELGBLE_PRICE_BRK');
30982: qp_debug_util.tstart('BIG_SRCH_GET_ELGBLE_PRICE_BRK','Getting eligible Price Breaks - Get_Eligible_Price_Break API');
30983:
30984: Get_Eligible_Price_Break(p_pricing_phase_id,NULL,l_return_status,l_status_text);
30985:
30986: qp_debug_util.tstop('BIG_SRCH_GET_ELGBLE_PRICE_BRK');
30987:
30988: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
30989: RAISE E_ROUTINE_ERRORS;
30990: END IF;
30997: END IF;
30998:
30999: END IF;
31000:
31001: qp_debug_util.tstop('SEL_PRICE_LIST_LINES_PAT');
31002:
31003: EXCEPTION
31004: WHEN E_ROUTINE_ERRORS THEN
31005:
31002:
31003: EXCEPTION
31004: WHEN E_ROUTINE_ERRORS THEN
31005:
31006: qp_debug_util.tstop('SEL_PRICE_LIST_LINES_PAT');
31007:
31008: IF l_use_multi_curr THEN
31009: IF l_pat_line_cache_curr_p1%ISOPEN THEN
31010: CLOSE l_pat_line_cache_curr_p1;
31041: END IF;
31042:
31043: WHEN OTHERS THEN
31044:
31045: qp_debug_util.tstop('SEL_PRICE_LIST_LINES_PAT');
31046:
31047: IF l_use_multi_curr THEN
31048: IF l_pat_line_cache_curr_p1%ISOPEN THEN
31049: CLOSE l_pat_line_cache_curr_p1;
33349: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33350: engine_debug('cursor for l_prod_qual_cur_currency-multi-currency TRUE');
33351: END IF;
33352:
33353: qp_debug_util.tstart('L_PROD_QUAL_CUR_CURRENCY','Cursor Loop l_prod_qual_cur_currency');
33354:
33355: OPEN l_prod_qual_cur_currency(p_pricing_phase_id);
33356:
33357:
33541: end loop;
33542: end if;
33543: END LOOP;
33544:
33545: qp_debug_util.tstop('L_PROD_QUAL_CUR_CURRENCY');
33546:
33547: CLOSE l_prod_qual_cur_currency;
33548:
33549: lq_line_index := -9999;
33552: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33553: engine_debug('before l_prod_qual_pric_cur_currency... ');
33554: END IF;
33555:
33556: qp_debug_util.tstart('L_PROD_QUAL_PRIC_CUR_CURRENCY','Cursor Loop l_prod_qual_pric_cur_currency');
33557: OPEN l_prod_qual_pric_cur_currency(p_pricing_phase_id);
33558:
33559: LOOP
33560: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
33770: end loop;
33771: end if;
33772: END LOOP;
33773:
33774: qp_debug_util.tstop('L_PROD_QUAL_PRIC_CUR_CURRENCY');
33775:
33776: CLOSE l_prod_qual_pric_cur_currency;
33777:
33778: lq_line_index := -9999;
33781: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33782: engine_debug('before l_prod_cur_currency... ');
33783: END IF;
33784:
33785: qp_debug_util.tstart('L_PROD_CUR_CURRENCY','Cursor Loop l_prod_cur_currency');
33786: OPEN l_prod_cur_currency(p_pricing_phase_id);
33787:
33788: LOOP
33789: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
33915: end loop;
33916: end if;
33917: END LOOP;
33918:
33919: qp_debug_util.tstop('L_PROD_CUR_CURRENCY');
33920:
33921: CLOSE l_prod_cur_currency;
33922:
33923: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33923: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33924: engine_debug('before l_prod_pric_cur_currency...');
33925: END IF;
33926:
33927: qp_debug_util.tstart('L_PROD_PRIC_CUR_CURRENCY','Cursor Loop l_prod_pric_cur_currency');
33928: OPEN l_prod_pric_cur_currency(p_pricing_phase_id);
33929:
33930:
33931:
34102: END IF;
34103: end loop;
34104: end if;
34105: END LOOP;
34106: qp_debug_util.tstop('L_PROD_PRIC_CUR_CURRENCY');
34107: CLOSE l_prod_pric_cur_currency; -- 4331801/4365538
34108: else -- vivek, multi currency not installed, not used
34109: --selecting lists that match product and qualifiers attributes
34110:
34110:
34111: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34112: engine_debug('before l_prod_qual_cur...');
34113: END IF;
34114: qp_debug_util.tstart('L_PROD_QUAL_CUR','Cursor Loop l_prod_qual_cur');
34115: OPEN l_prod_qual_cur(p_pricing_phase_id);
34116:
34117: LOOP
34118: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
34277: END IF;
34278: end loop;
34279: end if;
34280: END LOOP;
34281: qp_debug_util.tstop('L_PROD_QUAL_CUR');
34282:
34283: CLOSE l_prod_qual_cur;
34284:
34285: lq_line_index := -9999;
34287:
34288: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34289: engine_debug('before l_prod_qual_pric_cur...');
34290: END IF;
34291: qp_debug_util.tstart('L_PROD_QUAL_PRIC_CUR','Cursor Loop l_prod_qual_pric_cur');
34292: OPEN l_prod_qual_pric_cur(p_pricing_phase_id);
34293:
34294: LOOP
34295: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
34496: end loop;
34497: end if;
34498: END LOOP;
34499:
34500: qp_debug_util.tstop('L_PROD_QUAL_PRIC_CUR');
34501: CLOSE l_prod_qual_pric_cur;
34502:
34503: lq_line_index := -9999;
34504: lq_list_line_id := -9999;
34505:
34506: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34507: engine_debug('before l_prod_cur...');
34508: END IF;
34509: qp_debug_util.tstart('L_PROD_CUR','Cursor Loop l_prod_cur');
34510: OPEN l_prod_cur(p_pricing_phase_id);
34511:
34512: LOOP
34513: /* 4331801/4365538: The PL/SQL tables used for BULK COLLECT were previously
34629: END IF;
34630: end loop;
34631: end if;
34632: END LOOP;
34633: qp_debug_util.tstop('L_PROD_CUR');
34634: CLOSE l_prod_cur;
34635:
34636: lq_line_index := -9999;
34637: lq_list_line_id := -9999;
34638:
34639: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34640: engine_debug('before l_prod_pric_cur...');
34641: END IF;
34642: qp_debug_util.tstart('L_PROD_PRIC_CUR','Cursor Loop l_prod_pric_cur');
34643: OPEN l_prod_pric_cur(p_pricing_phase_id);
34644:
34645:
34646: LOOP
34808: end loop;
34809: end if;
34810: END LOOP;
34811:
34812: qp_debug_util.tstop('L_PROD_PRIC_CUR');
34813: CLOSE l_prod_pric_cur;
34814:
34815: --END IF;
34816: end if; -- vivek, multi currency installed
34815: --END IF;
34816: end if; -- vivek, multi currency installed
34817:
34818: IF M > 1 THEN
34819: qp_debug_util.tstart('INSERT_LDETS_PRICE_LIST_MULT_NON_MULTI','Inserting into ldets INSERT_LDETS_PRICE_LIST_MULT_NON_MULTI');
34820: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
34821: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34822: engine_debug('last 4 cursors- multi-currency TRUE - insert_ldets2');
34823: END IF;
34890: x_status_code =>l_status_code,
34891: x_status_text =>l_status_text
34892: );
34893: end if; -- vivek, multi currency installed
34894: qp_debug_util.tstop('INSERT_LDETS_PRICE_LIST_MULT_NON_MULTI');
34895: END IF;
34896:
34897: IF K > 1 THEN
34898: qp_debug_util.tstart('INSERT_PRICE_LIST_ATTRS','Inserting into line attrs INSERT_PRICE_LIST_ATTRS');
34894: qp_debug_util.tstop('INSERT_LDETS_PRICE_LIST_MULT_NON_MULTI');
34895: END IF;
34896:
34897: IF K > 1 THEN
34898: qp_debug_util.tstart('INSERT_PRICE_LIST_ATTRS','Inserting into line attrs INSERT_PRICE_LIST_ATTRS');
34899: INSERT_PRICE_LIST_ATTRS
34900: ( p_LINE_INDEX_tbl =>G_LINE_INDEX_tbl,
34901: p_LINE_DETAIL_INDEX_tbl =>G_LINE_DETAIL_INDEX_tbl,
34902: p_ATTRIBUTE_LEVEL_tbl =>G_ATTRIBUTE_LEVEL_tbl,
34926: p_MODIFIER_LEVEL_CODE_TBL =>G_MODIFIER_LEVEL_CODE_TBL_A,
34927: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
34928: x_status_code =>l_status_code,
34929: x_status_text =>l_status_text);
34930: qp_debug_util.tstop('INSERT_PRICE_LIST_ATTRS');
34931: END IF;
34932:
34933: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
34934: RAISE E_ROUTINE_ERRORS;
35142: l_c_PRICING_STATUS_TEXT_tbl VARCHAR_TYPE;
35143:
35144:
35145: BEGIN
35146: qp_debug_util.tstart('CREATE_QUALIFIER_FROM_LIST','Procedure CREATE_QUALIFIER_FROM_LIST');
35147: --po integration start
35148: UPDATE qp_npreq_lines_tmp a
35149: SET pricing_status_code = G_STATUS_UPDATED
35150: Where list_price_override_flag in ('Y', 'O') --po integration
35296:
35297: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
35298: RAISE E_ROUTINE_ERRORS;
35299: END IF;
35300: qp_debug_util.tstop('CREATE_QUALIFIER_FROM_LIST');
35301: EXCEPTION
35302: WHEN E_ROUTINE_ERRORS THEN
35303: x_status_code := FND_API.G_RET_STS_ERROR;
35304: x_status_text := l_routine||': '||l_status_text;
35309: engine_debug('Error in QP_PREQ_GRP.create_qualifier_from_list: '||SQLERRM);
35310: END IF;
35311: x_status_code := FND_API.G_RET_STS_ERROR;
35312: x_status_text := l_routine||': '||SQLERRM;
35313: qp_debug_util.tstop('CREATE_QUALIFIER_FROM_LIST');
35314: END Create_Qualifier_From_List;
35315:
35316:
35317: /*+------------------------------------------------------------
36643: AND vset.format_type = 'N');
36644:
36645: BEGIN
36646: x_status_code := FND_API.G_RET_STS_SUCCESS;
36647: qp_debug_util.tstart('FORMULA_PROCESSING','Processing Formulas');
36648: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36649: engine_debug('In ---'||l_routine||'---');
36650: engine_debug('PRICING_PHASE_ID: '||p_pricing_phase_id);
36651:
37132: null; -- Error in Formula Calculation
37133: END IF;
37134: END LOOP;
37135:
37136: qp_debug_util.tstop('FORMULA_PROCESSING');
37137:
37138: EXCEPTION
37139: WHEN E_ATTRIBUTE_NON_NUMERIC THEN
37140: G_INSERT_INTO_FORMULA_TMP := FALSE; --Reset Global Flag ( Change)
37485: lower_limit NUMBER;
37486: upper_limit NUMBER;
37487:
37488: BEGIN
37489: QP_DEBUG_UTIL.tstart('populate_segment_id', 'populate_segment_id');
37490:
37491:
37492: IF l_debug = FND_API.G_TRUE
37493: THEN
37555: engine_debug(l_routine || 'Updated segment_id of ' || SQL%ROWCOUNT || ' rows of qp_npreq_line_attrs_tmp');
37556: engine_debug(l_routine || 'Ends Succesfully ***********');
37557: END IF;
37558:
37559: QP_DEBUG_UTIL.tstop('populate_segment_id');
37560: EXCEPTION
37561: WHEN OTHERS
37562: THEN
37563: IF l_debug = FND_API.G_TRUE
37586:
37587: x_status_code := FND_API.G_RET_STS_SUCCESS;
37588: x_status_text := 'Success';
37589:
37590: QP_DEBUG_UTIL.tstart('create_pattern', 'create_pattern');
37591:
37592: QP_DEBUG_UTIL.tstart('insert_patrn_phases', 'insert_patrn_phases');
37593: INSERT INTO qp_npreq_patrn_phases_tmp(pattern_id, segment_id, pricing_phase_id, segment_index, segment_count)
37594: SELECT qp.pattern_id,
37588: x_status_text := 'Success';
37589:
37590: QP_DEBUG_UTIL.tstart('create_pattern', 'create_pattern');
37591:
37592: QP_DEBUG_UTIL.tstart('insert_patrn_phases', 'insert_patrn_phases');
37593: INSERT INTO qp_npreq_patrn_phases_tmp(pattern_id, segment_id, pricing_phase_id, segment_index, segment_count)
37594: SELECT qp.pattern_id,
37595: qp.segment_id,
37596: p_pricing_phase_id,
37609: WHERE qp.pattern_id = qp1.pattern_id
37610: AND ROWNUM < 2
37611: );
37612:
37613: QP_DEBUG_UTIL.tstop('insert_patrn_phases');
37614:
37615: IF l_debug = FND_API.G_TRUE
37616: THEN
37617: engine_debug(l_routine || 'inserted ' || SQL%ROWCOUNT || ' rows into qp_npreq_patrn_phases_tmp'
37616: THEN
37617: engine_debug(l_routine || 'inserted ' || SQL%ROWCOUNT || ' rows into qp_npreq_patrn_phases_tmp'
37618: || ' pricing_phase_id = ' || p_pricing_phase_id);
37619: END IF;
37620: qp_debug_util.tstart('insert_line_patrns', 'insert_line_patrns');
37621:
37622: lower_limit := G_MIN_LINE_INDEX;
37623:
37624: WHILE lower_limit <= G_MAX_LINE_INDEX
37668:
37669: Dbms_Output.put_line('inserted = ' || SQL%ROWCOUNT);
37670: END IF; */
37671:
37672: QP_DEBUG_UTIL.tstop('insert_line_patrns');
37673:
37674:
37675: /*IF l_debug = FND_API.G_TRUE
37676: THEN
37677: engine_debug(l_routine || 'inserted ' || SQL%ROWCOUNT || ' rows to qp_npreq_line_patrns_tmp'
37678: || ' pricing_phase_id = ' || p_pricing_phase_id);
37679: END IF; */
37680:
37681: qp_debug_util.tstart('def_patrns', 'Default Patterns');
37682:
37683: IF NVL(G_PATRNS_TWO_THREE_INSERTED, 'N') = 'N'
37684: THEN
37685: IF l_debug = FND_API.G_TRUE
37705: G_PATRNS_TWO_THREE_INSERTED := 'Y';
37706:
37707: END IF;
37708:
37709: qp_debug_util.tstop('def_patrns');
37710:
37711: QP_DEBUG_UTIL.tstop('create_pattern');
37712:
37713: IF l_debug = FND_API.G_TRUE
37707: END IF;
37708:
37709: qp_debug_util.tstop('def_patrns');
37710:
37711: QP_DEBUG_UTIL.tstop('create_pattern');
37712:
37713: IF l_debug = FND_API.G_TRUE
37714: THEN
37715: engine_debug(l_routine || 'Ends---------');
38296: /* Header Caching*/
38297: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38298: qp_preq_grp.engine_debug('Caching Header Qualifiers for phase : ' || p_pricing_phase_id);
38299: END IF;
38300: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_HDR_CACHE_CUR', 'l_header_cache_cur');
38301:
38302: OPEN l_header_cache_cur(p_pricing_phase_id);
38303: LOOP
38304: l_list_header_id_tbl.DELETE;
38395: --exit when l_header_cache_cur%rowcount < l_limit;
38396: END LOOP;
38397:
38398: CLOSE l_header_cache_cur;
38399: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_HDR_CACHE_CUR');
38400:
38401: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P1_H', 'Populate_Temp_Tables_NEQ_BTW_P1_H');
38402: Populate_Temp_Tables_NEQ_BTW(
38403: p_pricing_phase_id ,
38397:
38398: CLOSE l_header_cache_cur;
38399: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_HDR_CACHE_CUR');
38400:
38401: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P1_H', 'Populate_Temp_Tables_NEQ_BTW_P1_H');
38402: Populate_Temp_Tables_NEQ_BTW(
38403: p_pricing_phase_id ,
38404: G_STAGE_CACHE_MOD_HDR ,
38405: x_status_code ,
38407: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
38408: RAISE E_ROUTINE_ERRORS;
38409: END IF;
38410:
38411: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P1_H');
38412: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_P1_H', 'QP_EVALUATE_OTHER_OPERATORS_P1_H');
38413:
38414: QP_EVALUATE_OTHER_OPERATORS(
38415: p_pricing_phase_id ,
38408: RAISE E_ROUTINE_ERRORS;
38409: END IF;
38410:
38411: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P1_H');
38412: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_P1_H', 'QP_EVALUATE_OTHER_OPERATORS_P1_H');
38413:
38414: QP_EVALUATE_OTHER_OPERATORS(
38415: p_pricing_phase_id ,
38416: G_STAGE_CACHE_MOD_HDR,
38420: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
38421: RAISE E_ROUTINE_ERRORS;
38422: END IF;
38423:
38424: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_P1_H');
38425:
38426: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38427: qp_preq_grp.engine_debug('Caching Line Qualifiers for satisfied headers, pure line quals, only prod and only prod-pric for phase : ' || p_pricing_phase_id);
38428: END IF;
38426: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38427: qp_preq_grp.engine_debug('Caching Line Qualifiers for satisfied headers, pure line quals, only prod and only prod-pric for phase : ' || p_pricing_phase_id);
38428: END IF;
38429:
38430: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_HDR_TCA', 'Header deletion for TCA');
38431:
38432: UPDATE qp_preq_patrn_qual_tmp a
38433: SET pricing_status_code = G_DELETED_TCA
38434: WHERE pricing_status_code = g_status_unchanged
38448: AND c.segment_id = b.segment_id
38449: AND c.line_index = a.line_index
38450: AND c.derived_qualifier_flag = 'Y');
38451:
38452: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_HDR_TCA');
38453:
38454:
38455: /* Line Caching*/
38456:
38453:
38454:
38455: /* Line Caching*/
38456:
38457: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_LINE_CACHE_CUR', 'l_line_cache_cur');
38458:
38459: OPEN l_line_cache_cur(p_pricing_phase_id);
38460:
38461: LOOP
38559:
38560: END LOOP;
38561: CLOSE l_line_cache_cur;
38562:
38563: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_LINE_CACHE_CUR');
38564:
38565:
38566: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P1_L', 'Populate_Temp_Tables_NEQ_BTW_P1_L');
38567:
38562:
38563: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_LINE_CACHE_CUR');
38564:
38565:
38566: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P1_L', 'Populate_Temp_Tables_NEQ_BTW_P1_L');
38567:
38568: Populate_Temp_Tables_NEQ_BTW(
38569: p_pricing_phase_id ,
38570: G_STAGE_CACHE_MOD_LIN ,
38574: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
38575: RAISE E_ROUTINE_ERRORS;
38576: END IF;
38577:
38578: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P1_L');
38579:
38580: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_P1_L', 'QP_EVALUATE_OTHER_OPERATORS_P1_L');
38581:
38582: QP_EVALUATE_OTHER_OPERATORS(
38576: END IF;
38577:
38578: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P1_L');
38579:
38580: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_P1_L', 'QP_EVALUATE_OTHER_OPERATORS_P1_L');
38581:
38582: QP_EVALUATE_OTHER_OPERATORS(
38583: p_pricing_phase_id ,
38584: G_STAGE_CACHE_MOD_LIN,
38588: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
38589: RAISE E_ROUTINE_ERRORS;
38590: END IF;
38591:
38592: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_P1_L');
38593:
38594: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_LIN_TCA', 'Line deletion for TCA');
38595:
38596: UPDATE qp_preq_patrn_qual_tmp a
38590: END IF;
38591:
38592: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_P1_L');
38593:
38594: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_LIN_TCA', 'Line deletion for TCA');
38595:
38596: UPDATE qp_preq_patrn_qual_tmp a
38597: SET pricing_status_code = G_DELETED_TCA
38598: WHERE pricing_status_code = g_status_unchanged
38612: AND c.segment_id = b.segment_id
38613: AND c.line_index = a.line_index
38614: AND c.derived_qualifier_flag = 'Y');
38615:
38616: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_LIN_TCA');
38617:
38618: ELSE --- for the path 2
38619: /*
38620: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_BOTH_CACHE_CUR_PATH2', 'l_both_cache_path2_cur');
38616: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_LIN_TCA');
38617:
38618: ELSE --- for the path 2
38619: /*
38620: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_BOTH_CACHE_CUR_PATH2', 'l_both_cache_path2_cur');
38621:
38622: OPEN l_both_cache_path2_cur(p_pricing_phase_id);
38623: LOOP
38624:
38767:
38768: --exit when l_header_cache_cur%rowcount < l_limit;
38769: END LOOP;
38770: CLOSE l_both_cache_path2_cur;
38771: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_BOTH_CACHE_CUR_PATH2');
38772:
38773: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38774: qp_debug_util.print_table_data_csv('QP_PREQ_PATRN_QUAL_TMP','SEL_MOD_QUAL_AFT_LIN_CACH_P2_'||p_pricing_phase_id);
38775: END IF;
38770: CLOSE l_both_cache_path2_cur;
38771: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_BOTH_CACHE_CUR_PATH2');
38772:
38773: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38774: qp_debug_util.print_table_data_csv('QP_PREQ_PATRN_QUAL_TMP','SEL_MOD_QUAL_AFT_LIN_CACH_P2_'||p_pricing_phase_id);
38775: END IF;
38776:
38777: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P2_L', 'Populate_Temp_Tables_NEQ_BTW_P2_L');
38778:
38773: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38774: qp_debug_util.print_table_data_csv('QP_PREQ_PATRN_QUAL_TMP','SEL_MOD_QUAL_AFT_LIN_CACH_P2_'||p_pricing_phase_id);
38775: END IF;
38776:
38777: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P2_L', 'Populate_Temp_Tables_NEQ_BTW_P2_L');
38778:
38779: Populate_Temp_Tables_NEQ_BTW(
38780: p_pricing_phase_id ,
38781: G_STAGE_CACHE_MOD_LIN2,
38786: RAISE E_ROUTINE_ERRORS;
38787: END IF;
38788:
38789: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38790: qp_debug_util.print_table_data_csv('QP_NPREQ_LINE_ATTRS_TMP','SEL_MOD_ATTRS_AFT_LIN_POP_NEQ_BTW_P2_'||p_pricing_phase_id);
38791: END IF;
38792:
38793: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P2_L');
38794:
38789: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38790: qp_debug_util.print_table_data_csv('QP_NPREQ_LINE_ATTRS_TMP','SEL_MOD_ATTRS_AFT_LIN_POP_NEQ_BTW_P2_'||p_pricing_phase_id);
38791: END IF;
38792:
38793: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P2_L');
38794:
38795: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_P2_L', 'QP_EVALUATE_OTHER_OPERATORS_P2_L');
38796:
38797: QP_EVALUATE_OTHER_OPERATORS(
38791: END IF;
38792:
38793: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P2_L');
38794:
38795: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_P2_L', 'QP_EVALUATE_OTHER_OPERATORS_P2_L');
38796:
38797: QP_EVALUATE_OTHER_OPERATORS(
38798: p_pricing_phase_id ,
38799: G_STAGE_CACHE_MOD_LIN2,
38803: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
38804: RAISE E_ROUTINE_ERRORS;
38805: END IF;
38806:
38807: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_P2_L');
38808:
38809: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38810: qp_debug_util.print_table_data_csv('QP_PREQ_PATRN_QUAL_TMP','SEL_MOD_QUAL_AFT_LIN_EVL_OTH_OPR_P2_'||p_pricing_phase_id);
38811: END IF;
38806:
38807: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_P2_L');
38808:
38809: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38810: qp_debug_util.print_table_data_csv('QP_PREQ_PATRN_QUAL_TMP','SEL_MOD_QUAL_AFT_LIN_EVL_OTH_OPR_P2_'||p_pricing_phase_id);
38811: END IF;
38812:
38813: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38814: qp_preq_grp.engine_debug('Caching Header Qualifiers for satisfied Lines, pure Header quals, only prod, only prod-pric for phase : ' || p_pricing_phase_id);
38813: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38814: qp_preq_grp.engine_debug('Caching Header Qualifiers for satisfied Lines, pure Header quals, only prod, only prod-pric for phase : ' || p_pricing_phase_id);
38815: END IF;
38816:
38817: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_DEL_HDR_PATH2', 'Line deletion');
38818:
38819: UPDATE qp_preq_patrn_qual_tmp a
38820: SET pricing_status_code = G_DELETED_LINE
38821: WHERE pricing_phase_id = p_pricing_phase_id
38830: AND b.pricing_phase_id = a.pricing_phase_id
38831: AND b.pricing_status_code = qp_preq_grp.g_status_unchanged
38832: AND b.line_index = a.line_index);
38833:
38834: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_DEL_HDR_PATH2');*/
38835:
38836: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_LIN_CACHE_CUR_PATH2', 'l_line_cache_path2_cur');
38837:
38838: qp_preq_grp.engine_debug('path 2 phase : ' || p_pricing_phase_id);
38832: AND b.line_index = a.line_index);
38833:
38834: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_DEL_HDR_PATH2');*/
38835:
38836: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_LIN_CACHE_CUR_PATH2', 'l_line_cache_path2_cur');
38837:
38838: qp_preq_grp.engine_debug('path 2 phase : ' || p_pricing_phase_id);
38839:
38840: OPEN l_line_cache_path2_cur(p_pricing_phase_id);
38938:
38939: --exit when l_header_cache_cur%rowcount < l_limit;
38940: END LOOP;
38941: CLOSE l_line_cache_path2_cur;
38942: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_LIN_CACHE_CUR_PATH2');
38943:
38944: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P2_L', 'Populate_Temp_Tables_NEQ_BTW_P2_L');
38945:
38946: Populate_Temp_Tables_NEQ_BTW(
38940: END LOOP;
38941: CLOSE l_line_cache_path2_cur;
38942: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_LIN_CACHE_CUR_PATH2');
38943:
38944: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P2_L', 'Populate_Temp_Tables_NEQ_BTW_P2_L');
38945:
38946: Populate_Temp_Tables_NEQ_BTW(
38947: p_pricing_phase_id ,
38948: G_STAGE_CACHE_MOD_LIN ,
38952: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
38953: RAISE E_ROUTINE_ERRORS;
38954: END IF;
38955:
38956: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P2_L');
38957:
38958: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_P2_L', 'QP_EVALUATE_OTHER_OPERATORS_P2_L');
38959:
38960: QP_EVALUATE_OTHER_OPERATORS(
38954: END IF;
38955:
38956: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P2_L');
38957:
38958: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_P2_L', 'QP_EVALUATE_OTHER_OPERATORS_P2_L');
38959:
38960: QP_EVALUATE_OTHER_OPERATORS(
38961: p_pricing_phase_id ,
38962: G_STAGE_CACHE_MOD_LIN,
38966: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
38967: RAISE E_ROUTINE_ERRORS;
38968: END IF;
38969:
38970: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_P2_L');
38971:
38972: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38973: qp_preq_grp.engine_debug('Caching Header Qualifiers for satisfied Lines, pure Header quals, only prod, only prod-pric for phase : ' || p_pricing_phase_id);
38974: END IF;
38974: END IF;
38975:
38976: /* Line Caching*/
38977:
38978: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_HDR_CACHE_CUR_PATH2', 'l_hdr_cache_cur_path2');
38979:
38980: OPEN l_hdr_cache_cur_path2(p_pricing_phase_id);
38981:
38982: LOOP
39075:
39076: END LOOP;
39077: CLOSE l_hdr_cache_cur_path2;
39078:
39079: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_HDR_CACHE_CUR_PATH2');
39080:
39081: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P2_H', 'Populate_Temp_Tables_NEQ_BTW_P2_H');
39082:
39083: Populate_Temp_Tables_NEQ_BTW(
39077: CLOSE l_hdr_cache_cur_path2;
39078:
39079: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_HDR_CACHE_CUR_PATH2');
39080:
39081: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P2_H', 'Populate_Temp_Tables_NEQ_BTW_P2_H');
39082:
39083: Populate_Temp_Tables_NEQ_BTW(
39084: p_pricing_phase_id ,
39085: G_STAGE_CACHE_MOD_HDR ,
39090: RAISE E_ROUTINE_ERRORS;
39091: END IF;
39092:
39093:
39094: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P2_H');
39095:
39096: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_P2_H', 'QP_EVALUATE_OTHER_OPERATORS_P2_H');
39097:
39098: QP_EVALUATE_OTHER_OPERATORS(
39092:
39093:
39094: qp_debug_util.tstop('Populate_Temp_Tables_NEQ_BTW_P2_H');
39095:
39096: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_P2_H', 'QP_EVALUATE_OTHER_OPERATORS_P2_H');
39097:
39098: QP_EVALUATE_OTHER_OPERATORS(
39099: p_pricing_phase_id ,
39100: G_STAGE_CACHE_MOD_HDR,
39103: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
39104: RAISE E_ROUTINE_ERRORS;
39105: END IF;
39106:
39107: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_P2_H');
39108:
39109: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_LIN_TCA', 'Line/Header deletion for TCA');
39110:
39111: UPDATE qp_preq_patrn_qual_tmp a
39105: END IF;
39106:
39107: qp_debug_util.tstop('QP_EVALUATE_OTHER_OPERATORS_P2_H');
39108:
39109: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_LIN_TCA', 'Line/Header deletion for TCA');
39110:
39111: UPDATE qp_preq_patrn_qual_tmp a
39112: SET pricing_status_code = G_DELETED_TCA
39113: WHERE pricing_status_code = g_status_unchanged
39129: AND c.derived_qualifier_flag = 'Y');
39130:
39131:
39132:
39133: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_LIN_TCA');
39134:
39135: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_DEL_HDR_PATH2', 'Line deletion');
39136:
39137: UPDATE qp_preq_patrn_qual_tmp a
39131:
39132:
39133: qp_debug_util.tstop('PATRN_LIST_CUR_DEL_LIN_TCA');
39134:
39135: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_DEL_HDR_PATH2', 'Line deletion');
39136:
39137: UPDATE qp_preq_patrn_qual_tmp a
39138: SET pricing_status_code = G_DELETED_LINE
39139: WHERE pricing_phase_id = p_pricing_phase_id
39150: AND b.pricing_phase_id = a.pricing_phase_id
39151: AND pricing_status_code = qp_preq_grp.g_status_unchanged
39152: AND b.stage = G_STAGE_CACHE_MOD_HDR);
39153:
39154: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_DEL_HDR_PATH2');
39155:
39156: END IF;
39157:
39158:
39155:
39156: END IF;
39157:
39158:
39159: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_UPD_EXCLUDER', 'Delete Excluder rows');
39160:
39161: -- Delete Excluded Line Details Directly if the inner select returns an excluded row
39162:
39163: UPDATE qp_preq_patrn_qual_tmp a
39177: AND c.attribute_type = qp_preq_grp.g_product_type
39178: AND c.pricing_status_code = qp_preq_grp.g_status_unchanged
39179: AND c.line_index = a.line_index);
39180:
39181: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_UPD_EXCLUDER');
39182:
39183: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_POPULATE_PAT_TEMP_TABLES', 'Populate_Pat_Temp_Tables');
39184:
39185: /*IF l_search_path = 1 THEN
39179: AND c.line_index = a.line_index);
39180:
39181: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_UPD_EXCLUDER');
39182:
39183: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_POPULATE_PAT_TEMP_TABLES', 'Populate_Pat_Temp_Tables');
39184:
39185: /*IF l_search_path = 1 THEN
39186:
39187: Populate_Pat_Temp_Tables(p_pricing_phase_id,
39203: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
39204: RAISE E_ROUTINE_ERRORS;
39205: END IF;
39206:
39207: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS_POPULATE_PAT_TEMP_TABLES');
39208:
39209:
39210: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
39211: qp_preq_grp.engine_debug('x_status_code-' || x_status_code);
39476:
39477: l_start_line_index := G_MIN_LINE_INDEX;
39478: l_end_line_index := G_MIN_LINE_INDEX+G_CHUNK_SIZE;
39479:
39480: qp_debug_util.tstart('POPULATE_PAT_TEMP_TABLES_QR1','Populate_Pat_Temp_Tables inserting LDETS');
39481:
39482: FOR i IN 1..l_cnt_iter
39483: LOOP
39484:
39611: l_end_line_index := l_end_line_index + G_CHUNK_SIZE;
39612:
39613: END LOOP;
39614:
39615: qp_debug_util.tstop('POPULATE_PAT_TEMP_TABLES_QR1');
39616:
39617:
39618: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
39619: qp_preq_grp.engine_debug('Successfully inserted data in table qp_npreq_ldets_tmp');
39618: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
39619: qp_preq_grp.engine_debug('Successfully inserted data in table qp_npreq_ldets_tmp');
39620: END IF;
39621:
39622: qp_debug_util.tstart('POPULATE_PAT_TEMP_TABLES_QR3','Populate_Pat_Temp_Tables Inserting line attrs temp');
39623:
39624: /*
39625: Populating table qp_npreq_line_attrs_tmp with details of Pricing and Product
39626: Attributes for selected modifier lines.
39765: l_end_line_index := l_end_line_index + G_CHUNK_SIZE;
39766:
39767: END LOOP;
39768:
39769: qp_debug_util.tstop('POPULATE_PAT_TEMP_TABLES_QR3');
39770:
39771: l_satis_quals_opt := nvl(fnd_profile.value('QP_SATIS_QUALS_OPT'), G_NO);
39772:
39773: --[julin/pricebook] -- pat impact
39803: IF l_satis_quals_opt = G_YES
39804: OR p_stage NOT IN (G_STAGE_CACHE_MOD_LIN, G_STAGE_CACHE_MOD_LIN2) --Bug 10216430
39805: THEN
39806:
39807: qp_debug_util.tstart('POPULATE_PAT_TEMP_TABLES_QR4','Insert Header Qualifiers in Attrs Table');
39808:
39809: /*
39810: Populating table qp_npreq_line_attrs_tmp with details of header level
39811: Qualifier Attributes for selected qualifier groups of selected modifier lines.
39959: l_end_line_index := l_end_line_index + G_CHUNK_SIZE;
39960:
39961: END LOOP;
39962:
39963: qp_debug_util.tstop('POPULATE_PAT_TEMP_TABLES_QR4');
39964:
39965: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
39966: qp_preq_grp.engine_debug('Successfully inserted header level qualifiers in table qp_npreq_line_attrs_tmp');
39967: END IF;
39967: END IF;
39968:
39969: IF p_stage IN (G_STAGE_CACHE_MOD_LIN, G_STAGE_CACHE_MOD_LIN2) THEN
39970:
39971: qp_debug_util.tstart('POPULATE_PAT_TEMP_TABLES_QR5','Insert Line Qualifiers in Attrs Table');
39972:
39973: /*
39974: Populating table qp_npreq_line_attrs_tmp with details of line level qualifier
39975: attributes for selected qualifier groups of selected modifier lines.
40121: l_end_line_index := l_end_line_index + G_CHUNK_SIZE;
40122:
40123: END LOOP;
40124:
40125: qp_debug_util.tstop('POPULATE_PAT_TEMP_TABLES_QR5');
40126:
40127: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40128: qp_preq_grp.engine_debug('Successfully inserted line level qualifiers in table qp_npreq_line_attrs_tmp');
40129: END IF;
41226: END IF;
41227:
41228: --KDURGASI changes for pattern based select modifiers
41229:
41230: IF qp_debug_util.IsTimeLogDebugOn THEN
41231: SELECT COUNT(*) INTO l_lines_cnt FROM qp_npreq_lines_tmp;
41232: END IF;
41233:
41234: qp_debug_util.addSummaryTimeLog('Event: ' || p_control_rec.PRICING_EVENT, 0,1,0);
41230: IF qp_debug_util.IsTimeLogDebugOn THEN
41231: SELECT COUNT(*) INTO l_lines_cnt FROM qp_npreq_lines_tmp;
41232: END IF;
41233:
41234: qp_debug_util.addSummaryTimeLog('Event: ' || p_control_rec.PRICING_EVENT, 0,1,0);
41235: qp_debug_util.addSummaryTimeLog('Number of lines: ' || l_lines_cnt, 0,1,0);
41236: qp_debug_util.addSummaryTimeLog('PROFILE Pattern Search: ' || l_patrn_srch_prof_desc, 0,1,0);
41237: qp_debug_util.addSummaryTimeLog('PROFILE Search Path: ' || l_patrn_srch_path_desc, 0,1,0);
41238:
41231: SELECT COUNT(*) INTO l_lines_cnt FROM qp_npreq_lines_tmp;
41232: END IF;
41233:
41234: qp_debug_util.addSummaryTimeLog('Event: ' || p_control_rec.PRICING_EVENT, 0,1,0);
41235: qp_debug_util.addSummaryTimeLog('Number of lines: ' || l_lines_cnt, 0,1,0);
41236: qp_debug_util.addSummaryTimeLog('PROFILE Pattern Search: ' || l_patrn_srch_prof_desc, 0,1,0);
41237: qp_debug_util.addSummaryTimeLog('PROFILE Search Path: ' || l_patrn_srch_path_desc, 0,1,0);
41238:
41239: qp_debug_util.tstart('ENGINE_CALL_QPXGPREB','QPXGPREB Price Engine Call (Lines - '||l_lines_cnt||')');
41232: END IF;
41233:
41234: qp_debug_util.addSummaryTimeLog('Event: ' || p_control_rec.PRICING_EVENT, 0,1,0);
41235: qp_debug_util.addSummaryTimeLog('Number of lines: ' || l_lines_cnt, 0,1,0);
41236: qp_debug_util.addSummaryTimeLog('PROFILE Pattern Search: ' || l_patrn_srch_prof_desc, 0,1,0);
41237: qp_debug_util.addSummaryTimeLog('PROFILE Search Path: ' || l_patrn_srch_path_desc, 0,1,0);
41238:
41239: qp_debug_util.tstart('ENGINE_CALL_QPXGPREB','QPXGPREB Price Engine Call (Lines - '||l_lines_cnt||')');
41240:
41233:
41234: qp_debug_util.addSummaryTimeLog('Event: ' || p_control_rec.PRICING_EVENT, 0,1,0);
41235: qp_debug_util.addSummaryTimeLog('Number of lines: ' || l_lines_cnt, 0,1,0);
41236: qp_debug_util.addSummaryTimeLog('PROFILE Pattern Search: ' || l_patrn_srch_prof_desc, 0,1,0);
41237: qp_debug_util.addSummaryTimeLog('PROFILE Search Path: ' || l_patrn_srch_path_desc, 0,1,0);
41238:
41239: qp_debug_util.tstart('ENGINE_CALL_QPXGPREB','QPXGPREB Price Engine Call (Lines - '||l_lines_cnt||')');
41240:
41241: --==========START: Debug Viewere needed by JAVA and PL/SQL engine=======
41235: qp_debug_util.addSummaryTimeLog('Number of lines: ' || l_lines_cnt, 0,1,0);
41236: qp_debug_util.addSummaryTimeLog('PROFILE Pattern Search: ' || l_patrn_srch_prof_desc, 0,1,0);
41237: qp_debug_util.addSummaryTimeLog('PROFILE Search Path: ' || l_patrn_srch_path_desc, 0,1,0);
41238:
41239: qp_debug_util.tstart('ENGINE_CALL_QPXGPREB','QPXGPREB Price Engine Call (Lines - '||l_lines_cnt||')');
41240:
41241: --==========START: Debug Viewere needed by JAVA and PL/SQL engine=======
41242: --G_QP_DEBUG_PROFILE_VALUE := FND_PROFILE.VALUE(v_debug_switch);
41243: G_PUBLIC_API_CALL_FLAG := nvl(p_control_rec.public_api_call_flag,'N');
41318: --======moved here by yangli, needed by JAVA and PL/SQL engine=============
41319: G_TEMP_TABLE_INSERT_FLAG := nvl(p_control_rec.temp_table_insert_flag,'Y');
41320:
41321: --Setting current event in debug util
41322: qp_debug_util.setCurrentEvent(p_control_rec.PRICING_EVENT);
41323: --G_CURR_PRICE_EVENT := p_control_rec.PRICING_EVENT;
41324:
41325: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
41326: --=====START: Specific to PL/SQL engine =======================
41991: END IF;
41992: -- end if;
41993:
41994: IF (p_control_rec.calculate_flag = G_CALCULATE_ONLY) THEN
41995: qp_debug_util.tstart('CALL_CALCULATION_ENGINE_A','Procedure stage A call CALL_CALCULATION_ENGINE');
41996: CALL_CALCULATION_ENGINE(p_is_direct_call => TRUE,
41997: x_status_code =>l_return_status,
41998: x_status_text =>l_status_text);
41999: qp_debug_util.tstop('CALL_CALCULATION_ENGINE_A');
41995: qp_debug_util.tstart('CALL_CALCULATION_ENGINE_A','Procedure stage A call CALL_CALCULATION_ENGINE');
41996: CALL_CALCULATION_ENGINE(p_is_direct_call => TRUE,
41997: x_status_code =>l_return_status,
41998: x_status_text =>l_status_text);
41999: qp_debug_util.tstop('CALL_CALCULATION_ENGINE_A');
42000: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
42001: RAISE E_ROUTINE_ERRORS;
42002: END IF;
42003:
42024: END IF;
42025: l_gone_in_phase_cur_loop := 'N';
42026: --KDURGASI changes for pattern based select modifiers
42027: IF G_QP_PATTERN_SEARCH IN (G_QP_PATTERN_MOD_SEARCH,G_QP_PATTERN_PRL_SEARCH,G_QP_PATTERN_BOTH_SEARCH) THEN
42028: qp_debug_util.tstart('populate_attr_values','Populate Hash Key Values');
42029: -- populate_attr_values(x_status_code => l_return_status,x_status_text => l_status_text);
42030: populate_segment_id(x_status_code => l_return_status,x_status_text => l_status_text);
42031: G_PATRNS_TWO_THREE_INSERTED := 'N'; --smuhamme, whethe pattern_id -2 and -3 inserted or not
42032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
42031: G_PATRNS_TWO_THREE_INSERTED := 'N'; --smuhamme, whethe pattern_id -2 and -3 inserted or not
42032: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
42033: RAISE E_ROUTINE_ERRORS;
42034: END IF;
42035: qp_debug_util.tstop('populate_attr_values');
42036: END IF;
42037: --KDURGASI changes for pattern based select modifiers
42038:
42039: qp_debug_util.addSummaryTimeLog('Search time in each Phase:',1,1,0);
42035: qp_debug_util.tstop('populate_attr_values');
42036: END IF;
42037: --KDURGASI changes for pattern based select modifiers
42038:
42039: qp_debug_util.addSummaryTimeLog('Search time in each Phase:',1,1,0);
42040:
42041: FOR I IN l_phase_cur(l_event_code => p_control_rec.pricing_event,
42042: l_event_code1 => p_control_rec.pricing_event || ',') LOOP
42043: l_gone_in_phase_cur_loop := 'Y';
42052: END IF;
42053:
42054: 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
42055:
42056: qp_debug_util.tstart('L_PHASE_CUR_LIST_PRICE','List Line Phase(Id) : '||I.name||' ('||I.pricing_phase_id||') ', false, true);
42057: --Set Global Flag ( Change)
42058: G_INSERT_INTO_FORMULA_TMP := TRUE;
42059: --G_INSERT_INTO_FORMULA_TMP := 'Y';
42060:
42141:
42142: CLOSE l_check_no_list_passed;
42143:
42144: ELSE --G_QP_PATTERN_SEARCH
42145: qp_debug_util.tstart('PLL_LIST_HEADER_SEARCH','Price List Search - LIST_HEADER_SEARCH API');
42146: LIST_HEADER_SEARCH(p_pricing_phase_id => I.pricing_phase_id,
42147: p_is_price_list => TRUE,
42148: p_freeze_override_flag => I.freeze_override_flag,
42149: p_control_rec => p_control_rec,
42152: x_status_code => l_return_status,
42153: x_status_text => l_status_text
42154: );
42155:
42156: qp_debug_util.tstop('PLL_LIST_HEADER_SEARCH');
42157: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42158: RAISE E_ROUTINE_ERRORS;
42159: END IF;
42160:
42168:
42169: IF (l_further_search = G_YES and (I.SEARCH_FLAG = G_YES or
42170: nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) = G_YES)) -- price book
42171: THEN
42172: qp_debug_util.tstart('SELECT_PRICE_LIST_LINES','Select Price List Lines(Search Flag on) - SELECT_PRICE_LIST_LINES API');
42173:
42174: SELECT_PRICE_LIST_LINES(p_pricing_phase_id => I.pricing_phase_id,
42175: p_freeze_override_flag => I.freeze_override_flag,
42176: x_status_code => l_return_status,
42175: p_freeze_override_flag => I.freeze_override_flag,
42176: x_status_code => l_return_status,
42177: x_status_text => l_status_text,
42178: p_control_rec => p_control_rec); -- vivek\
42179: qp_debug_util.tstop('SELECT_PRICE_LIST_LINES');
42180: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42181: RAISE E_ROUTINE_ERRORS;
42182: END IF;
42183:
42325: -- RAISE E_ROUTINE_ERRORS;
42326: --END IF;
42327:
42328: -- IF p_control_rec.calculate_flag = G_SEARCH_N_CALCULATE THEN
42329: qp_debug_util.tstart('CALL_CALCULATION_ENGINE_B','Procedure stage B call CALL_CALCULATION_ENGINE');
42330: Call_Calculation_Engine(p_phase_sequence => I.phase_sequence,
42331: p_freeze_override_flag => I.freeze_override_flag,
42332: x_status_code =>l_return_status,
42333: x_status_text =>l_status_text);
42330: Call_Calculation_Engine(p_phase_sequence => I.phase_sequence,
42331: p_freeze_override_flag => I.freeze_override_flag,
42332: x_status_code =>l_return_status,
42333: x_status_text =>l_status_text);
42334: qp_debug_util.tstop('CALL_CALCULATION_ENGINE_B');
42335: -- END IF;
42336:
42337: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42338: RAISE E_ROUTINE_ERRORS;
42341: --If it is a price list sequence we need to create this
42342: --list as a qualifier for next phase. Because price list itself
42343: --can be a qualifier for next phase.
42344:
42345: qp_debug_util.tstop('L_PHASE_CUR_LIST_PRICE',l_tot_phase_time);
42346: qp_debug_util.addSummaryTimeLog(I.name || ' : ' ||i.pattern_search_path_desc || ' : ' || l_tot_phase_time || 'ms',0,2,0);
42347: ELSE -- not a price list sequence
42348: --KDURGASI changes for pattern based select modifiers
42349: qp_debug_util.tstart('L_PHASE_CUR_MODIFIERS','Modifiers Phase(Id) : '||I.name||' ('||I.pricing_phase_id||') ', false, true);
42342: --list as a qualifier for next phase. Because price list itself
42343: --can be a qualifier for next phase.
42344:
42345: qp_debug_util.tstop('L_PHASE_CUR_LIST_PRICE',l_tot_phase_time);
42346: qp_debug_util.addSummaryTimeLog(I.name || ' : ' ||i.pattern_search_path_desc || ' : ' || l_tot_phase_time || 'ms',0,2,0);
42347: ELSE -- not a price list sequence
42348: --KDURGASI changes for pattern based select modifiers
42349: qp_debug_util.tstart('L_PHASE_CUR_MODIFIERS','Modifiers Phase(Id) : '||I.name||' ('||I.pricing_phase_id||') ', false, true);
42350:
42345: qp_debug_util.tstop('L_PHASE_CUR_LIST_PRICE',l_tot_phase_time);
42346: qp_debug_util.addSummaryTimeLog(I.name || ' : ' ||i.pattern_search_path_desc || ' : ' || l_tot_phase_time || 'ms',0,2,0);
42347: ELSE -- not a price list sequence
42348: --KDURGASI changes for pattern based select modifiers
42349: qp_debug_util.tstart('L_PHASE_CUR_MODIFIERS','Modifiers Phase(Id) : '||I.name||' ('||I.pricing_phase_id||') ', false, true);
42350:
42351: IF G_QP_PATTERN_SEARCH IN (G_QP_PATTERN_MOD_SEARCH, G_QP_PATTERN_BOTH_SEARCH) then
42352: create_pattern(i.pricing_phase_id, x_status_code =>l_return_status, x_status_text=>l_status_text);
42353: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42448: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42449: engine_debug('#9999999999990');
42450:
42451: END IF;
42452: qp_debug_util.tstart('DIS_LIST_HEADER_SEARCH','Modifier Search - LIST_HEADER_SEARCH API');
42453: LIST_HEADER_SEARCH(p_pricing_phase_id => I.pricing_phase_id,
42454: p_is_price_list => FALSE,
42455: p_freeze_override_flag => I.freeze_override_flag,
42456: p_control_rec => p_control_rec,
42458: x_further_search => l_further_search,
42459: x_status_code => l_return_status,
42460: x_status_text => l_status_text
42461: );
42462: qp_debug_util.tstop('DIS_LIST_HEADER_SEARCH');
42463: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42464: RAISE E_ROUTINE_ERRORS;
42465: END IF;
42466:
42471:
42472: l_disc_exist_flag := 'Y';
42473: --KDURGASI changes for pattern based select modifiers
42474: IF G_QP_PATTERN_SEARCH IN (G_QP_PATTERN_MOD_SEARCH, G_QP_PATTERN_BOTH_SEARCH) THEN
42475: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS','Modifier Selection - SELECT_MODIFIERS API');
42476: Select_modifiers_patrn (p_pricing_phase_id => I.pricing_phase_id,
42477: p_freeze_override_flag => I.freeze_override_flag,
42478: p_search_path => I.pattern_search_path,
42479: x_status_code => l_return_status,
42478: p_search_path => I.pattern_search_path,
42479: x_status_code => l_return_status,
42480: x_status_text => l_status_text);
42481: engine_debug('Select_modifiers_patrn-success-'||l_return_status);
42482: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS');
42483:
42484: ELSE --KDURGASI changes for pattern based select modifiers
42485:
42486: qp_debug_util.tstart('SELECT_MODIFIERS','Modifier Selection - SELECT_MODIFIERS API');
42482: qp_debug_util.tstop('PATRN_SELECT_MODIFIERS');
42483:
42484: ELSE --KDURGASI changes for pattern based select modifiers
42485:
42486: qp_debug_util.tstart('SELECT_MODIFIERS','Modifier Selection - SELECT_MODIFIERS API');
42487: SELECT_MODIFIERS(p_pricing_phase_id => I.pricing_phase_id,
42488: p_freeze_override_flag => I.freeze_override_flag,
42489: x_status_code => l_return_status,
42490: x_status_text => l_status_text);
42488: p_freeze_override_flag => I.freeze_override_flag,
42489: x_status_code => l_return_status,
42490: x_status_text => l_status_text);
42491:
42492: qp_debug_util.tstop('SELECT_MODIFIERS');
42493: END IF;
42494: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42495: RAISE E_ROUTINE_ERRORS;
42496: END IF;
42599: IF (I.INCOMPAT_RESOLVE_CODE = G_INCOMP_PRECEDENCE) THEN
42600: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42601: engine_debug('Precedence evaluation');
42602: END IF;
42603: --qp_debug_util.tstart('RESOLVE_INCOMPATABILITY','Resolving Modifiers Incompatability - Resolve_Incompatability API');
42604: QP_Resolve_Incompatability_PVT.Resolve_Incompatability
42605: (I.pricing_phase_id,
42606: G_DISCOUNT_PROCESSING,
42607: l_list_price,
42607: l_list_price,
42608: J.LINE_INDEX,
42609: l_return_status,
42610: l_status_text);
42611: --qp_debug_util.tstop('RESOLVE_INCOMPATABILITY');
42612: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42613: RAISE E_ROUTINE_ERRORS;
42614: END IF;
42615: ELSIF (I.INCOMPAT_RESOLVE_CODE = G_INCOMP_BEST_PRICE) THEN
42677: l_return_status,
42678: l_status_text);
42679: END IF;*/
42680: END IF; --end if for if l_exec_flag=G_YES
42681: qp_debug_util.tstop('L_PHASE_CUR_MODIFIERS',l_tot_phase_time);
42682: qp_debug_util.addSummaryTimeLog(I.name || ' : ' ||i.pattern_search_path_desc || ' : ' || l_tot_phase_time || 'ms',0,2,0);
42683: END IF; --end if for if price_list_sequence
42684: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42685: engine_debug('calling Set_Order_List_Rltd');
42678: l_status_text);
42679: END IF;*/
42680: END IF; --end if for if l_exec_flag=G_YES
42681: qp_debug_util.tstop('L_PHASE_CUR_MODIFIERS',l_tot_phase_time);
42682: qp_debug_util.addSummaryTimeLog(I.name || ' : ' ||i.pattern_search_path_desc || ' : ' || l_tot_phase_time || 'ms',0,2,0);
42683: END IF; --end if for if price_list_sequence
42684: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42685: engine_debug('calling Set_Order_List_Rltd');
42686: END IF;
42698:
42699: IF G_QP_PATTERN_SEARCH IN (G_QP_PATTERN_MOD_SEARCH, G_QP_PATTERN_BOTH_SEARCH, G_QP_PATTERN_PRL_SEARCH) THEN
42700: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42701: l_devlp_log_dumped := 'Y';
42702: qp_Debug_util.print_development_csv;
42703: END IF;
42704: END IF;
42705:
42706: --Bug fix 3963888 - Call UPDATE_ROUNDING_FACTOR if l_phase_cur cursor did not return any record
42750: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42751: engine_debug('------Advanced Pricing and Limits Profile is Set-----------');
42752: END IF;
42753: --IF p_control_rec.calculate_flag = G_SEARCH_N_CALCULATE THEN -- check not needed once limits are installed
42754: qp_debug_util.tstart('CALL_CALCULATION_ENGINE_C','Procedure stage C call CALL_CALCULATION_ENGINE');
42755: Call_Calculation_Engine(x_status_code =>l_return_status,
42756: x_status_text =>l_status_text);
42757: qp_debug_util.tstop('CALL_CALCULATION_ENGINE_C');
42758: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
42753: --IF p_control_rec.calculate_flag = G_SEARCH_N_CALCULATE THEN -- check not needed once limits are installed
42754: qp_debug_util.tstart('CALL_CALCULATION_ENGINE_C','Procedure stage C call CALL_CALCULATION_ENGINE');
42755: Call_Calculation_Engine(x_status_code =>l_return_status,
42756: x_status_text =>l_status_text);
42757: qp_debug_util.tstop('CALL_CALCULATION_ENGINE_C');
42758: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
42759: RAISE E_ROUTINE_ERRORS;
42760: END IF;
42761:
42774: IF (l_install_status = 'I' and l_limits_installed = G_YES and
42775: UPPER(p_control_rec.simulation_flag) = 'N' and
42776: nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) <> G_YES) -- price book
42777: THEN
42778: qp_debug_util.tstart('LIMITS_CALCULATION','Inside LIMITS_CALCULATION');
42779: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42780: engine_debug('------Advanced Pricing and Limits Profile is Set 2 -----------');
42781:
42782: END IF;
42861: --end fix for bug 4765137
42862:
42863:
42864: END IF ;
42865: qp_debug_util.tstop('LIMITS_CALCULATION');
42866: END IF; --l_install_status = 'I' and l_limits_installed = G_YES
42867:
42868: -- Do not Call Calculation Engine if it is from public API Call
42869: -- l_disc_exist_flag will be G_YES when there are discounts. Make a second calculation engine call
42871: IF (G_PUBLIC_API_CALL_FLAG = G_NO and l_disc_exist_flag = G_YES) THEN
42872: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42873: engine_debug('------Calling Calculation Engine as the call is from Group Engine Call-----------');
42874: END IF;
42875: qp_debug_util.tstart('CALL_CALCULATION_ENGINE_D','Procedure stage D call CALL_CALCULATION_ENGINE');
42876: Call_Calculation_Engine(x_status_code =>l_return_status,
42877: x_status_text =>l_status_text);
42878: qp_debug_util.tstop('CALL_CALCULATION_ENGINE_D');
42879: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
42874: END IF;
42875: qp_debug_util.tstart('CALL_CALCULATION_ENGINE_D','Procedure stage D call CALL_CALCULATION_ENGINE');
42876: Call_Calculation_Engine(x_status_code =>l_return_status,
42877: x_status_text =>l_status_text);
42878: qp_debug_util.tstop('CALL_CALCULATION_ENGINE_D');
42879: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
42880: RAISE E_ROUTINE_ERRORS;
42881: END IF;
42882: ELSE
42884: engine_debug('------Not Calling Calculation Engine as the call is from Public Engine Call-----------');
42885: END IF;
42886: END IF;
42887:
42888: qp_debug_util.tstart('REDEEM_COUPONS','Procedure QP_COUPON_PVT.REDEEM_COUPONS');
42889: l_status_text:='QP_COUPON_PVT.REDEEM_COUPONS';
42890: QP_COUPON_PVT.REDEEM_COUPONS(p_control_rec.simulation_flag, l_return_status, l_status_text);
42891: qp_debug_util.tstop('REDEEM_COUPONS');
42892: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
42887:
42888: qp_debug_util.tstart('REDEEM_COUPONS','Procedure QP_COUPON_PVT.REDEEM_COUPONS');
42889: l_status_text:='QP_COUPON_PVT.REDEEM_COUPONS';
42890: QP_COUPON_PVT.REDEEM_COUPONS(p_control_rec.simulation_flag, l_return_status, l_status_text);
42891: qp_debug_util.tstop('REDEEM_COUPONS');
42892: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
42893: l_status_text:= 'QP_COUPON_PVT.REDEEM_COUPONS'||l_status_text;
42894: RAISE E_ROUTINE_ERRORS;
42895: END IF;
43046:
43047: END IF;
43048: --============END: Debug Viewer needed by Java and PL/SQL engine=============
43049:
43050: qp_debug_util.tstop('ENGINE_CALL_QPXGPREB');
43051:
43052: /*qp_debug_util.tdump;
43053: qp_debug_util.tflush;*/
43054:
43048: --============END: Debug Viewer needed by Java and PL/SQL engine=============
43049:
43050: qp_debug_util.tstop('ENGINE_CALL_QPXGPREB');
43051:
43052: /*qp_debug_util.tdump;
43053: qp_debug_util.tflush;*/
43054:
43055: EXCEPTION
43056: WHEN E_SEARCH_FLAG_IS_NULL THEN
43049:
43050: qp_debug_util.tstop('ENGINE_CALL_QPXGPREB');
43051:
43052: /*qp_debug_util.tdump;
43053: qp_debug_util.tflush;*/
43054:
43055: EXCEPTION
43056: WHEN E_SEARCH_FLAG_IS_NULL THEN
43057: x_return_status := FND_API.G_RET_STS_ERROR;
43115:
43116: -- Changes for pattern
43117: IF G_QP_PATTERN_SEARCH IN (G_QP_PATTERN_MOD_SEARCH, G_QP_PATTERN_BOTH_SEARCH, G_QP_PATTERN_PRL_SEARCH) THEN
43118: IF G_DEBUG_ENGINE = FND_API.G_TRUE AND l_devlp_log_dumped = 'N' THEN
43119: qp_Debug_util.print_development_csv;
43120: END IF;
43121: END IF;
43122: WHEN E_INVALID_PHASE THEN
43123: x_return_status := FND_API.G_RET_STS_ERROR;