[Home] [Help]
392: oe_debug_pub.Initialize;
393: oe_debug_pub.debug_on;
394:
395: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
396: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
397: engine_debug ('The output file is : ' || l_output_file );
398: END IF;
399: ELSIF FND_PROFILE.VALUE('ONT_DEBUG_LEVEL') = 5 THEN
400: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
397: engine_debug ('The output file is : ' || l_output_file );
398: END IF;
399: ELSIF FND_PROFILE.VALUE('ONT_DEBUG_LEVEL') = 5 THEN
400: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
401: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
402: engine_debug ('The output file is : ' || l_output_file );
403: END IF;
404: END IF;
405:
405:
406: -- Introduced for facilitating debugging for non OM Applications
407: --IF (NOT OE_DEBUG_PUB.ISDebugOn) THEN --If om debug is not on , then only look at qp_debug
408: if oe_debug_pub.g_debug_level > 0 then
409: G_DEBUG_ENGINE:= FND_API.G_TRUE;
410: else
411: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
412: (G_QP_DEBUG_PROFILE_VALUE = G_DONT_WRITE_TO_DEBUG) THEN -- If qp debug is on
413: oe_debug_pub.SetDebugLevel(10);
413: oe_debug_pub.SetDebugLevel(10);
414: oe_debug_pub.Initialize;
415: oe_debug_pub.debug_on;
416: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
417: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
418: engine_debug ('The output file is : ' || l_output_file );
419: END IF;
420: G_DEBUG_ENGINE:= FND_API.G_TRUE;
421: ELSE
416: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
417: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
418: engine_debug ('The output file is : ' || l_output_file );
419: END IF;
420: G_DEBUG_ENGINE:= FND_API.G_TRUE;
421: ELSE
422: G_DEBUG_ENGINE:= FND_API.G_FALSE;
423: END IF;
424: END IF;
418: engine_debug ('The output file is : ' || l_output_file );
419: END IF;
420: G_DEBUG_ENGINE:= FND_API.G_TRUE;
421: ELSE
422: G_DEBUG_ENGINE:= FND_API.G_FALSE;
423: END IF;
424: END IF;
425:
426: EXCEPTION
424: END IF;
425:
426: EXCEPTION
427: WHEN OTHERS THEN
428: --x_status_code := FND_API.G_RET_STS_ERROR;
429: --x_status_text :=l_routine||' '||SQLERRM;
430: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
431: engine_debug(l_routine||' '||SQLERRM);
432: END IF;
426: EXCEPTION
427: WHEN OTHERS THEN
428: --x_status_code := FND_API.G_RET_STS_ERROR;
429: --x_status_text :=l_routine||' '||SQLERRM;
430: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
431: engine_debug(l_routine||' '||SQLERRM);
432: END IF;
433:
434: END Set_QP_Debug;
482: IF (p_price_list_id_tbl.COUNT > 0) THEN
483:
484: v_count := p_price_list_id_tbl.count;
485:
486: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
487: engine_debug('Calling Round Factor function for : '||v_count|| ' price list,currency,pricing date combinations');
488: END IF;
489:
490: FOR i in p_price_list_id_tbl.FIRST .. p_price_list_id_tbl.LAST
489:
490: FOR i in p_price_list_id_tbl.FIRST .. p_price_list_id_tbl.LAST
491: LOOP
492:
493: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
494: engine_debug('Price List Id : ' || p_price_list_id_tbl(i));
495: engine_debug('Currency Code : ' || p_currency_code_tbl(i));
496: engine_debug('Pricing Date : ' || p_pricing_eff_date_tbl(i));
497: END IF;
501: p_price_list_id_tbl(i),
502: p_currency_code_tbl(i),
503: p_pricing_eff_date_tbl(i));
504:
505: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
506: engine_debug('Rounding factor in QP_PREQ_GRP after the function call : ' || p_rounding_factor_tbl(i));
507: END IF;
508:
509: END LOOP;
515: AND PRICE_LIST_HEADER_ID = p_price_list_id_tbl(i)
516: AND CURRENCY_CODE = p_currency_code_tbl(i)
517: AND trunc(PRICING_EFFECTIVE_DATE) = p_pricing_eff_date_tbl(i); -- bug 3364978
518:
519: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
520: engine_debug('Number of lines updated with rounding factor : ' || SQL%ROWCOUNT);
521: END IF;
522:
523: END IF;
526: CLOSE get_price_lists_cur;
527:
528: EXCEPTION
529: WHEN OTHERS THEN
530: x_status_code := FND_API.G_RET_STS_ERROR;
531: x_status_text :=l_routine||' '||SQLERRM;
532: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
533: engine_debug(l_routine||' '||SQLERRM);
534: END IF;
528: EXCEPTION
529: WHEN OTHERS THEN
530: x_status_code := FND_API.G_RET_STS_ERROR;
531: x_status_text :=l_routine||' '||SQLERRM;
532: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
533: engine_debug(l_routine||' '||SQLERRM);
534: END IF;
535: END;
536:
543: PROCEDURE ENGINE_DEBUG(p_text IN VARCHAR2) AS
544: l_return_status VARCHAR2(240);
545: l_status_text VARCHAR2(240);
546: BEGIN
547: --IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
548: oe_debug_pub.add(p_text,3);
549:
550: -- Debug Screen related change
551: -- Irrespective of om debug if qp debug is on debug information is captured into qp debug tables
708: , p_HEADER_LIMIT_EXISTS(i)
709: , p_DERIVED_QUALIFIER_FLAG(i)); -- Added for TCA
710: EXCEPTION
711: WHEN OTHERS THEN
712: x_status_code := FND_API.G_RET_STS_ERROR;
713: x_status_text :=l_routine||' '||SQLERRM;
714: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
715: engine_debug(l_routine||' '||SQLERRM);
716: END IF;
710: EXCEPTION
711: WHEN OTHERS THEN
712: x_status_code := FND_API.G_RET_STS_ERROR;
713: x_status_text :=l_routine||' '||SQLERRM;
714: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
715: engine_debug(l_routine||' '||SQLERRM);
716: END IF;
717: END;
718:
1712: , G_DERIVED_QUALIFIER_FLAG_TBL_Q -- Added for TCA
1713: , l_status_code
1714: , l_status_text);
1715:
1716: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
1717: RAISE E_ROUTINE_ERRORS;
1718: END IF;
1719:
1720: END IF;
1723: CLOSE l_mini_outer_qual_cur;
1724:
1725: EXCEPTION
1726: WHEN OTHERS THEN
1727: x_status_code := FND_API.G_RET_STS_ERROR;
1728: x_status_text :=l_routine||' '||SQLERRM;
1729: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
1730: engine_debug(l_routine||' '||SQLERRM);
1731: END IF;
1725: EXCEPTION
1726: WHEN OTHERS THEN
1727: x_status_code := FND_API.G_RET_STS_ERROR;
1728: x_status_text :=l_routine||' '||SQLERRM;
1729: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
1730: engine_debug(l_routine||' '||SQLERRM);
1731: END IF;
1732:
1733: END Mini_Cache_Qualifiers;
2408: , G_HEADER_LIMIT_EXISTS_TBL_Q
2409: , G_DERIVED_QUALIFIER_FLAG_TBL_Q -- Added for TCA
2410: , l_status_code
2411: , l_status_text);
2412: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
2413: RAISE FND_API.G_EXC_ERROR;
2414: END IF;
2415: END IF;
2416:
2409: , G_DERIVED_QUALIFIER_FLAG_TBL_Q -- Added for TCA
2410: , l_status_code
2411: , l_status_text);
2412: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
2413: RAISE FND_API.G_EXC_ERROR;
2414: END IF;
2415: END IF;
2416:
2417: END LOOP;
2441: where
2442: pricing_phase_id = p_pricing_phase_id
2443: and qualifier_flag = 'Y');
2444:
2445: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2446: engine_debug('Nitin - Delete headers - rows deleted '||sql%rowcount);
2447:
2448: END IF;
2449: EXCEPTION
2447:
2448: END IF;
2449: EXCEPTION
2450: WHEN OTHERS THEN
2451: x_status_code := FND_API.G_RET_STS_ERROR;
2452: x_status_text :=l_routine||' '||SQLERRM;
2453: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2454: engine_debug(l_routine||' '||SQLERRM);
2455: END IF;
2449: EXCEPTION
2450: WHEN OTHERS THEN
2451: x_status_code := FND_API.G_RET_STS_ERROR;
2452: x_status_text :=l_routine||' '||SQLERRM;
2453: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2454: engine_debug(l_routine||' '||SQLERRM);
2455: END IF;
2456: END Cache_Line_Qualifiers;
2457:
3060: END LOOP;
3061: CLOSE l_outer_qual_cur;
3062: EXCEPTION
3063: WHEN OTHERS THEN
3064: x_status_code := FND_API.G_RET_STS_ERROR;
3065: x_status_text :=l_routine||' '||SQLERRM;
3066: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3067: engine_debug(l_routine||' '||SQLERRM);
3068:
3062: EXCEPTION
3063: WHEN OTHERS THEN
3064: x_status_code := FND_API.G_RET_STS_ERROR;
3065: x_status_text :=l_routine||' '||SQLERRM;
3066: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3067: engine_debug(l_routine||' '||SQLERRM);
3068:
3069: END IF;
3070: END Cache_Header_Qualifiers;
3350: G_PRIMARY_UOM_FLAG_TBL_A.delete;
3351:
3352: EXCEPTION
3353: WHEN OTHERS THEN
3354: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3355: engine_debug(l_routine||': '||SQLERRM);
3356: END IF;
3357: x_status_code := FND_API.G_RET_STS_ERROR;
3358: x_status_text := l_routine || ': ' || SQLERRM;
3353: WHEN OTHERS THEN
3354: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3355: engine_debug(l_routine||': '||SQLERRM);
3356: END IF;
3357: x_status_code := FND_API.G_RET_STS_ERROR;
3358: x_status_text := l_routine || ': ' || SQLERRM;
3359: END Reset_All_Tbls;
3360:
3361: /*+---------------------------------------------------------------------
3388: l_line_index_tbl NUMBER_TYPE;
3389: l_related_line_index_tbl NUMBER_TYPE;
3390:
3391: BEGIN
3392: x_status_code := FND_API.G_RET_STS_SUCCESS;
3393: /*
3394: INDX,QP_PREQ_GRP.Update_Processing_Order.Update_Processing_Order_upd1,qp_npreq_lines_tmp_U1,LINE_INDEX,1
3395: */
3396:
3430: and (contract_start_date is not null or contract_end_date is not null)
3431: and uom_quantity is null)
3432: loop
3433: G_service_line_ind_tbl(cl.line_index) := cl.line_index;
3434: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3435: IF G_service_line_ind_tbl.exists(cl.line_index) THEN
3436: engine_debug('service line with uom_qty as null line_index: '||G_service_line_ind_tbl(cl.line_index));
3437: END IF;--G_service_line_ind_tbl.exists
3438: END IF;--G_DEBUG_ENGINE
3439: end loop;
3440:
3441: EXCEPTION
3442: WHEN OTHERS THEN
3443: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3444: engine_debug(l_routine||' '||SQLERRM);
3445: END IF;
3446: x_status_code := FND_API.G_RET_STS_ERROR;
3447: x_status_text := 'Error in '||l_routine||SQLERRM;
3442: WHEN OTHERS THEN
3443: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3444: engine_debug(l_routine||' '||SQLERRM);
3445: END IF;
3446: x_status_code := FND_API.G_RET_STS_ERROR;
3447: x_status_text := 'Error in '||l_routine||SQLERRM;
3448: END;
3449:
3450: /*+----------------------------------------------------------------------
3495: WHERE LINE_INDEX = p_line_index
3496: AND PRICING_STATUS_CODE <> G_STATUS_UNCHANGED;
3497: ELSIF (p_temp_table = 'ATTRS' AND p_line_index IS NOT NULL
3498: AND p_line_detail_index IS NULL) THEN
3499: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3500: engine_debug('----Updating status code for LDETS---------');
3501: END IF;
3502: /*
3503: INDX,QP_PREQ_GRP.set_status_code.set_status_code_upd3,qp_npreq_line_attrs_tmp_N1,LINE_INDEX,1
3511: AND PRICING_STATUS_CODE <> G_STATUS_UNCHANGED;
3512: END IF;
3513: EXCEPTION
3514: WHEN OTHERS THEN
3515: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3516: engine_debug(l_routine||' '||SQLERRM);
3517: END IF;
3518: x_status_code := FND_API.G_RET_STS_ERROR;
3519: x_status_text := l_routine||': '||SQLERRM;
3514: WHEN OTHERS THEN
3515: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3516: engine_debug(l_routine||' '||SQLERRM);
3517: END IF;
3518: x_status_code := FND_API.G_RET_STS_ERROR;
3519: x_status_text := l_routine||': '||SQLERRM;
3520:
3521: END SET_STATUS_CODE;
3522:
3542: SET PROCESSED_CODE = p_processed_code
3543: WHERE LINE_INDEX = p_line_index;
3544: ELSIF (p_temp_table = 'ATTRS' AND p_line_index IS NOT NULL
3545: AND p_line_detail_index IS NULL) THEN
3546: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3547: engine_debug('----Updating status code for LDETS---------');
3548: END IF;
3549: /*
3550: INDX,QP_PREQ_GRP.set_processed_code.set_processed_code_upd2,qp_npreq_line_attrs_tmp_N1,LINE_INDEX,1
3554: WHERE LINE_INDEX = p_line_index;
3555: END IF;
3556: EXCEPTION
3557: WHEN OTHERS THEN
3558: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3559: engine_debug(l_routine||' '||SQLERRM);
3560: END IF;
3561: x_status_code := FND_API.G_RET_STS_ERROR;
3562: x_status_text := l_routine||': '||SQLERRM;
3557: WHEN OTHERS THEN
3558: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3559: engine_debug(l_routine||' '||SQLERRM);
3560: END IF;
3561: x_status_code := FND_API.G_RET_STS_ERROR;
3562: x_status_text := l_routine||': '||SQLERRM;
3563:
3564: END SET_PROCESSED_CODE;
3565:
3595: 'LINES',
3596: l_error_status_code,
3597: l_error_status_text);
3598:
3599: IF (l_error_status_code = FND_API.G_RET_STS_ERROR) THEN
3600: RAISE E_ROUTINE_ERRORS;
3601: END IF;
3602:
3603: SET_STATUS_CODE(G_STATUS_DELETED,
3607: 'ATTRS',
3608: l_error_status_code,
3609: l_error_status_text);
3610:
3611: IF (l_error_status_code = FND_API.G_RET_STS_ERROR) THEN
3612: RAISE E_ROUTINE_ERRORS;
3613: END IF;
3614:
3615: SET_STATUS_CODE(G_STATUS_DELETED,
3619: 'LDETS',
3620: l_error_status_code,
3621: l_error_status_text);
3622:
3623: IF (l_error_status_code = FND_API.G_RET_STS_ERROR) THEN
3624: RAISE E_ROUTINE_ERRORS;
3625: END IF;
3626:
3627: EXCEPTION
3625: END IF;
3626:
3627: EXCEPTION
3628: WHEN E_ROUTINE_ERRORS THEN
3629: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3630: engine_debug(l_routine||': '||l_error_status_text);
3631: END IF;
3632: x_status_code := FND_API.G_RET_STS_ERROR;
3633: x_status_text := l_routine||': '||l_error_status_text;
3628: WHEN E_ROUTINE_ERRORS THEN
3629: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3630: engine_debug(l_routine||': '||l_error_status_text);
3631: END IF;
3632: x_status_code := FND_API.G_RET_STS_ERROR;
3633: x_status_text := l_routine||': '||l_error_status_text;
3634: WHEN OTHERS THEN
3635: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3636: engine_debug(l_routine||' '||SQLERRM);
3631: END IF;
3632: x_status_code := FND_API.G_RET_STS_ERROR;
3633: x_status_text := l_routine||': '||l_error_status_text;
3634: WHEN OTHERS THEN
3635: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3636: engine_debug(l_routine||' '||SQLERRM);
3637: END IF;
3638: x_status_code := FND_API.G_RET_STS_ERROR;
3639: x_status_text := 'Error in '||l_routine||SQLERRM;
3634: WHEN OTHERS THEN
3635: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3636: engine_debug(l_routine||' '||SQLERRM);
3637: END IF;
3638: x_status_code := FND_API.G_RET_STS_ERROR;
3639: x_status_text := 'Error in '||l_routine||SQLERRM;
3640: END DELETE_LINES;
3641:
3642: /*+----------------------------------------------------------------------
3660: l_routine VARCHAR2(240):= 'Routine:QP_PREQ_GRP.INSERT_LINE_ATTRS2_AT';
3661: l_request_id number;
3662:
3663: BEGIN
3664: x_status_code := FND_API.G_RET_STS_SUCCESS;
3665: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
3666:
3667: FORALL i in p_line_index_tbl.FIRST..p_line_index_tbl.LAST
3668: INSERT INTO QP_INT_LINE_ATTRS_T
3702: p_VALUE_TO_tbl(i),
3703: p_VALIDATED_FLAG_tbl(i));
3704: */
3705: QP_PREQ_GRP.G_INT_ATTRS_NO := QP_PREQ_GRP.G_INT_ATTRS_NO + p_LINE_INDEX_tbl.count;
3706: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3707: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_ATTRS_NO='||QP_PREQ_GRP.G_INT_ATTRS_NO);
3708: END IF;
3709: COMMIT;
3710: EXCEPTION
3708: END IF;
3709: COMMIT;
3710: EXCEPTION
3711: WHEN OTHERS THEN
3712: x_status_code := FND_API.G_RET_STS_ERROR;
3713: x_status_text :=l_routine||' '||SQLERRM;
3714: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3715: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
3716: END IF;
3710: EXCEPTION
3711: WHEN OTHERS THEN
3712: x_status_code := FND_API.G_RET_STS_ERROR;
3713: x_status_text :=l_routine||' '||SQLERRM;
3714: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3715: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
3716: END IF;
3717: END;
3718:
3746: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3747:
3748: --added by yangli for Java Engine project
3749: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
3750: IF l_debug = FND_API.G_TRUE THEN
3751: ENGINE_DEBUG('Java Engine not Installed ----------');
3752: END IF;
3753: --added by yangli for Java Engine 3086881
3754: x_status_code := FND_API.G_RET_STS_SUCCESS;
3750: IF l_debug = FND_API.G_TRUE THEN
3751: ENGINE_DEBUG('Java Engine not Installed ----------');
3752: END IF;
3753: --added by yangli for Java Engine 3086881
3754: x_status_code := FND_API.G_RET_STS_SUCCESS;
3755:
3756: FORALL i in p_line_index_tbl.FIRST..p_line_index_tbl.LAST
3757: INSERT INTO qp_npreq_line_attrs_tmp
3758: (LINE_INDEX,
3772: p_VALUE_TO_tbl(i),
3773: p_VALIDATED_FLAG_tbl(i));
3774: --added by yangli for Java Engine 3086881
3775: ELSE
3776: IF l_debug = FND_API.G_TRUE THEN
3777: ENGINE_DEBUG('Java Engine Installed ----------');
3778: END IF;
3779: QP_PREQ_GRP.INSERT_LINE_ATTRS2_AT(
3780: p_LINE_INDEX_tbl ,
3793: --added by yangli for Java Engine 3086881
3794:
3795: EXCEPTION
3796: WHEN OTHERS THEN
3797: x_status_code := FND_API.G_RET_STS_ERROR;
3798: x_status_text :=l_routine||' '||SQLERRM;
3799: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3800: engine_debug(l_routine||' '||SQLERRM);
3801: END IF;
3795: EXCEPTION
3796: WHEN OTHERS THEN
3797: x_status_code := FND_API.G_RET_STS_ERROR;
3798: x_status_text :=l_routine||' '||SQLERRM;
3799: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3800: engine_debug(l_routine||' '||SQLERRM);
3801: END IF;
3802: END;
3803:
3836: x_status_text OUT NOCOPY VARCHAR2)
3837: AS
3838: l_routine VARCHAR2(240):= 'Routine:QP_PREQ_GRP.INSERT_LINE_ATTRS';
3839: BEGIN
3840: x_status_code := FND_API.G_RET_STS_SUCCESS;
3841: INSERT INTO qp_npreq_line_attrs_tmp
3842: (LINE_INDEX,
3843: LINE_DETAIL_INDEX,
3844: ATTRIBUTE_LEVEL,
3890: p_EXCLUDER_FLAG
3891: );
3892: EXCEPTION
3893: WHEN OTHERS THEN
3894: x_status_code := FND_API.G_RET_STS_ERROR;
3895: x_status_text :=l_routine||' '||SQLERRM;
3896: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3897: engine_debug(l_routine||' '||SQLERRM);
3898: END IF;
3892: EXCEPTION
3893: WHEN OTHERS THEN
3894: x_status_code := FND_API.G_RET_STS_ERROR;
3895: x_status_text :=l_routine||' '||SQLERRM;
3896: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3897: engine_debug(l_routine||' '||SQLERRM);
3898: END IF;
3899: END;
3900:
3937:
3938:
3939: l_routine VARCHAR2(240):= 'Routine:QP_PREQ_GRP.INSERT_PRICE_LIST_ATTRS';
3940: BEGIN
3941: x_status_code := FND_API.G_RET_STS_SUCCESS;
3942:
3943: FORALL i in p_line_index_tbl.FIRST..p_line_index_tbl.LAST
3944: INSERT INTO qp_npreq_line_attrs_tmp
3945: (LINE_INDEX,
4001: p_PRIMARY_UOM_FLAG_TBL(i)
4002: );
4003: EXCEPTION
4004: WHEN OTHERS THEN
4005: x_status_code := FND_API.G_RET_STS_ERROR;
4006: x_status_text :=l_routine||' '||SQLERRM;
4007: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4008: engine_debug(l_routine||' '||SQLERRM);
4009: END IF;
4003: EXCEPTION
4004: WHEN OTHERS THEN
4005: x_status_code := FND_API.G_RET_STS_ERROR;
4006: x_status_text :=l_routine||' '||SQLERRM;
4007: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4008: engine_debug(l_routine||' '||SQLERRM);
4009: END IF;
4010: END;
4011:
4050: PRAGMA AUTONOMOUS_TRANSACTION;
4051: l_routine VARCHAR2(240):= 'Routine:QP_PREQ_GRP.INSERT_LINE_ATTRS2_AT';
4052: l_request_id number;
4053: BEGIN
4054: x_status_code := FND_API.G_RET_STS_SUCCESS;
4055: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
4056:
4057: FORALL i in p_line_index_tbl.FIRST..p_line_index_tbl.LAST
4058: /*INSERT INTO QP_INT_LINE_ATTRS
4183: p_PRIMARY_UOM_FLAG_TBL(i),
4184: l_request_id
4185: );
4186: QP_PREQ_GRP.G_INT_ATTRS_NO := QP_PREQ_GRP.G_INT_ATTRS_NO + p_LINE_INDEX_tbl.count;
4187: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4188: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_ATTRS_NO='||QP_PREQ_GRP.G_INT_ATTRS_NO);
4189: END IF;
4190:
4191: COMMIT;
4190:
4191: COMMIT;
4192: EXCEPTION
4193: WHEN OTHERS THEN
4194: x_status_code := FND_API.G_RET_STS_ERROR;
4195: x_status_text :=l_routine||' '||SQLERRM;
4196: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4197: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
4198: END IF;
4192: EXCEPTION
4193: WHEN OTHERS THEN
4194: x_status_code := FND_API.G_RET_STS_ERROR;
4195: x_status_text :=l_routine||' '||SQLERRM;
4196: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4197: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
4198: END IF;
4199: END;
4200:
4248:
4249: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4250:
4251: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
4252: IF l_debug = FND_API.G_TRUE THEN
4253: ENGINE_DEBUG('Java Engine not Installed ----------');
4254: END IF;
4255: --added by yangli for Java Engine 3086881
4256:
4253: ENGINE_DEBUG('Java Engine not Installed ----------');
4254: END IF;
4255: --added by yangli for Java Engine 3086881
4256:
4257: x_status_code := FND_API.G_RET_STS_SUCCESS;
4258:
4259: FORALL i in p_line_index_tbl.FIRST..p_line_index_tbl.LAST
4260: INSERT INTO qp_npreq_line_attrs_tmp
4261: (LINE_INDEX,
4321: p_PRIMARY_UOM_FLAG_TBL(i)
4322: );
4323: --added by yangli for Java Engine 3086881
4324: ELSE
4325: IF l_debug = FND_API.G_TRUE THEN
4326: ENGINE_DEBUG('Java Engine Installed ----------');
4327: END IF;
4328: QP_PREQ_GRP.INSERT_LINE_ATTRS2_AT
4329: ( p_LINE_INDEX_tbl ,
4363: --added by yangli for Java Engine 3086881
4364:
4365: EXCEPTION
4366: WHEN OTHERS THEN
4367: x_status_code := FND_API.G_RET_STS_ERROR;
4368: x_status_text :=l_routine||' '||SQLERRM;
4369: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4370: engine_debug(l_routine||' '||SQLERRM);
4371: END IF;
4365: EXCEPTION
4366: WHEN OTHERS THEN
4367: x_status_code := FND_API.G_RET_STS_ERROR;
4368: x_status_text :=l_routine||' '||SQLERRM;
4369: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4370: engine_debug(l_routine||' '||SQLERRM);
4371: END IF;
4372: END;
4373:
4406: x_status_text OUT NOCOPY VARCHAR2 )
4407: AS
4408: l_routine VARCHAR2(240):='Routine:QP_PREQ_GRP.INSERT_LINES';
4409: BEGIN
4410: x_status_code := FND_API.G_RET_STS_SUCCESS;
4411: INSERT INTO qp_npreq_lines_tmp
4412: (LINE_INDEX,
4413: LINE_TYPE_CODE,
4414: PRICING_EFFECTIVE_DATE,
4463: p_CHARGE_PERIODICITY_CODE
4464: );
4465: EXCEPTION
4466: WHEN OTHERS THEN
4467: x_status_code := FND_API.G_RET_STS_ERROR;
4468: x_status_text :=l_routine||' '||SQLERRM;
4469: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4470: engine_debug(l_routine||' '||SQLERRM);
4471: engine_debug(SQLERRM);
4465: EXCEPTION
4466: WHEN OTHERS THEN
4467: x_status_code := FND_API.G_RET_STS_ERROR;
4468: x_status_text :=l_routine||' '||SQLERRM;
4469: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4470: engine_debug(l_routine||' '||SQLERRM);
4471: engine_debug(SQLERRM);
4472: END IF;
4473: END;
4514: PRAGMA AUTONOMOUS_TRANSACTION;
4515: l_routine VARCHAR2(240):='Routine:QP_PREQ_GRP.INSERT_LINES2_AT';
4516: l_request_id number;
4517: BEGIN
4518: x_status_code := FND_API.G_RET_STS_SUCCESS;
4519: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
4520:
4521: FORALL i in p_line_index.FIRST..p_line_index.LAST
4522: /*INSERT INTO QP_INT_LINES
4651: p_CHARGE_PERIODICITY_CODE(i),
4652: l_request_id
4653: );
4654: QP_PREQ_GRP.G_INT_LINES_NO := QP_PREQ_GRP.G_INT_LINES_NO + p_LINE_INDEX.count;
4655: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4656: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_LINES_NO='||QP_PREQ_GRP.G_INT_LINES_NO);
4657: END IF;
4658: COMMIT;
4659: EXCEPTION
4657: END IF;
4658: COMMIT;
4659: EXCEPTION
4660: WHEN OTHERS THEN
4661: x_status_code := FND_API.G_RET_STS_ERROR;
4662: x_status_text :=l_routine||' '||SQLERRM;
4663: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4664: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
4665: END IF;
4659: EXCEPTION
4660: WHEN OTHERS THEN
4661: x_status_code := FND_API.G_RET_STS_ERROR;
4662: x_status_text :=l_routine||' '||SQLERRM;
4663: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4664: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
4665: END IF;
4666: END ;
4667:
4716:
4717: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4718:
4719: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
4720: IF l_debug = FND_API.G_TRUE THEN
4721: ENGINE_DEBUG('Java Engine not Installed ----------');
4722: END IF;
4723: --added by yangli for Java Engine project 3086881
4724:
4721: ENGINE_DEBUG('Java Engine not Installed ----------');
4722: END IF;
4723: --added by yangli for Java Engine project 3086881
4724:
4725: x_status_code := FND_API.G_RET_STS_SUCCESS;
4726:
4727: FORALL i in p_line_index.FIRST..p_line_index.LAST
4728: INSERT INTO qp_npreq_lines_tmp
4729: (LINE_INDEX,
4800:
4801: ); --po integration
4802: --added by yangli for Java Engine project 3086881
4803: ELSE
4804: IF l_debug = FND_API.G_TRUE THEN
4805: ENGINE_DEBUG('Java Engine Installed ----------');
4806: END IF;
4807: QP_PREQ_GRP.INSERT_LINES2_AT
4808: (p_LINE_INDEX ,
4842: --added by yangli for Java Engine project 3086881
4843:
4844: EXCEPTION
4845: WHEN OTHERS THEN
4846: x_status_code := FND_API.G_RET_STS_ERROR;
4847: x_status_text :=l_routine||' '||SQLERRM;
4848: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4849: engine_debug(l_routine||' '||SQLERRM);
4850: END IF;
4844: EXCEPTION
4845: WHEN OTHERS THEN
4846: x_status_code := FND_API.G_RET_STS_ERROR;
4847: x_status_text :=l_routine||' '||SQLERRM;
4848: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4849: engine_debug(l_routine||' '||SQLERRM);
4850: END IF;
4851: END ;
4852:
4901: PRAGMA AUTONOMOUS_TRANSACTION;
4902: l_routine VARCHAR2(240):='Routine:QP_PREQ_GRP.INSERT_LINES2_AT';
4903: l_request_id number;
4904: BEGIN
4905: x_status_code := FND_API.G_RET_STS_SUCCESS;
4906: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
4907: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4908: QP_PREQ_GRP.engine_debug('Before bulk inserting lines...');
4909: QP_PREQ_GRP.engine_debug('line index size:'||p_line_index.count());
4903: l_request_id number;
4904: BEGIN
4905: x_status_code := FND_API.G_RET_STS_SUCCESS;
4906: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
4907: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4908: QP_PREQ_GRP.engine_debug('Before bulk inserting lines...');
4909: QP_PREQ_GRP.engine_debug('line index size:'||p_line_index.count());
4910: END IF;
4911:
5080: p_UNIT_PRICE(i),
5081: l_request_id
5082: );
5083: QP_PREQ_GRP.G_INT_LINES_NO := QP_PREQ_GRP.G_INT_LINES_NO + p_LINE_INDEX.count;
5084: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5085: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_LINES_NO='||QP_PREQ_GRP.G_INT_LINES_NO);
5086: END IF;
5087:
5088: COMMIT;
5088: COMMIT;
5089:
5090: EXCEPTION
5091: WHEN OTHERS THEN
5092: x_status_code := FND_API.G_RET_STS_ERROR;
5093: x_status_text :=l_routine||' '||SQLERRM;
5094: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5095: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
5096: QP_PREQ_GRP.engine_debug(SQLERRM);
5090: EXCEPTION
5091: WHEN OTHERS THEN
5092: x_status_code := FND_API.G_RET_STS_ERROR;
5093: x_status_text :=l_routine||' '||SQLERRM;
5094: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5095: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
5096: QP_PREQ_GRP.engine_debug(SQLERRM);
5097: END IF;
5098: END;
5158:
5159: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
5160: --added by yangli for Java Engine project
5161:
5162: x_status_code := FND_API.G_RET_STS_SUCCESS;
5163:
5164: -- Defaulting
5165: IF (p_line_category.count = 0) THEN -- p_line_category not passed at all
5166: FOR i in p_line_index.FIRST .. p_line_index.LAST
5262: END IF;
5263:
5264: --added by yangli for Java Engine project
5265: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
5266: IF l_debug = FND_API.G_TRUE THEN
5267: ENGINE_DEBUG('Java Engine not Installed ----------');
5268: END IF;
5269: --added by yangli for Java Engine project
5270:
5359: p_ADJUSTED_UNIT_PRICE(i)*nvl(p_PRICED_QUANTITY(i),p_LINE_QUANTITY(i))/p_LINE_QUANTITY(i)) --8370238
5360: );
5361: --added by yangli for Java Engine project
5362: ELSE
5363: IF l_debug = FND_API.G_TRUE THEN
5364: ENGINE_DEBUG('Java Engine Installed ----------');
5365: END IF;
5366: QP_PREQ_GRP.INSERT_LINES2_AT(
5367: p_LINE_INDEX,
5420: G_CHARGE_PERIODICITY_CODE_TBL.delete;
5421:
5422: EXCEPTION
5423: WHEN OTHERS THEN
5424: x_status_code := FND_API.G_RET_STS_ERROR;
5425: x_status_text :=l_routine||' '||SQLERRM;
5426: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5427: engine_debug(l_routine||' '||SQLERRM);
5428: engine_debug(SQLERRM);
5422: EXCEPTION
5423: WHEN OTHERS THEN
5424: x_status_code := FND_API.G_RET_STS_ERROR;
5425: x_status_text :=l_routine||' '||SQLERRM;
5426: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5427: engine_debug(l_routine||' '||SQLERRM);
5428: engine_debug(SQLERRM);
5429: END IF;
5430: END;
5625: ,p_BREAK_UOM_ATTRIBUTE /* Proration */
5626: );
5627: EXCEPTION
5628: WHEN OTHERS THEN
5629: x_status_code := FND_API.G_RET_STS_ERROR;
5630: x_status_text :=l_routine||' '||SQLERRM;
5631: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5632: engine_debug(l_routine||' '||SQLERRM);
5633: engine_debug(SQLERRM);
5627: EXCEPTION
5628: WHEN OTHERS THEN
5629: x_status_code := FND_API.G_RET_STS_ERROR;
5630: x_status_text :=l_routine||' '||SQLERRM;
5631: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5632: engine_debug(l_routine||' '||SQLERRM);
5633: engine_debug(SQLERRM);
5634: END IF;
5635: END;
5737: ,p_BREAK_UOM_ATTRIBUTE(i) /* Proration */
5738: );
5739: EXCEPTION
5740: WHEN OTHERS THEN
5741: x_status_code := FND_API.G_RET_STS_ERROR;
5742: x_status_text :=l_routine||' '||SQLERRM;
5743: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5744: engine_debug(l_routine||' '||SQLERRM);
5745: engine_debug(SQLERRM);
5739: EXCEPTION
5740: WHEN OTHERS THEN
5741: x_status_code := FND_API.G_RET_STS_ERROR;
5742: x_status_text :=l_routine||' '||SQLERRM;
5743: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5744: engine_debug(l_routine||' '||SQLERRM);
5745: engine_debug(SQLERRM);
5746: END IF;
5747: END;
5868: );
5869:
5870: EXCEPTION
5871: WHEN OTHERS THEN
5872: x_status_code := FND_API.G_RET_STS_ERROR;
5873: x_status_text :=l_routine||' '||SQLERRM;
5874: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5875: engine_debug(l_routine||' '||SQLERRM);
5876: engine_debug(SQLERRM);
5870: EXCEPTION
5871: WHEN OTHERS THEN
5872: x_status_code := FND_API.G_RET_STS_ERROR;
5873: x_status_text :=l_routine||' '||SQLERRM;
5874: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5875: engine_debug(l_routine||' '||SQLERRM);
5876: engine_debug(SQLERRM);
5877: END IF;
5878: END;
6112: ,p_BREAK_UOM_ATTRIBUTE(i), /* Proration */
6113: l_request_id
6114: );
6115: QP_PREQ_GRP.G_INT_LDETS_NO := QP_PREQ_GRP.G_INT_LDETS_NO + p_LINE_DETAIL_INDEX.count;
6116: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6117: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_LDETS_NO='||QP_PREQ_GRP.G_INT_LDETS_NO);
6118: END IF;
6119:
6120: COMMIT;
6119:
6120: COMMIT;
6121: EXCEPTION
6122: WHEN OTHERS THEN
6123: x_status_code := FND_API.G_RET_STS_ERROR;
6124: x_status_text :=l_routine||' '||SQLERRM;
6125: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6126: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
6127: QP_PREQ_GRP.engine_debug(SQLERRM);
6121: EXCEPTION
6122: WHEN OTHERS THEN
6123: x_status_code := FND_API.G_RET_STS_ERROR;
6124: x_status_text :=l_routine||' '||SQLERRM;
6125: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6126: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
6127: QP_PREQ_GRP.engine_debug(SQLERRM);
6128: END IF;
6129: END;
6191:
6192: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
6193:
6194: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
6195: IF l_debug = FND_API.G_TRUE THEN
6196: ENGINE_DEBUG('Java Engine not Installed ----------');
6197: END IF;
6198: --added by yangli for Java Engine project
6199:
6293: ,p_BREAK_UOM_ATTRIBUTE(i) /* Proration */
6294: );
6295: --added by yangli for Java Engine project
6296: ELSE
6297: IF l_debug = FND_API.G_TRUE THEN
6298: ENGINE_DEBUG('Java Engine Installed ----------');
6299: END IF;
6300: QP_PREQ_GRP.INSERT_LDETS2_AT
6301: (p_LINE_DETAIL_INDEX ,
6348: --added by yangli for Java Engine project
6349:
6350: EXCEPTION
6351: WHEN OTHERS THEN
6352: x_status_code := FND_API.G_RET_STS_ERROR;
6353: x_status_text :=l_routine||' '||SQLERRM;
6354: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6355: engine_debug(l_routine||' '||SQLERRM);
6356: engine_debug(SQLERRM);
6350: EXCEPTION
6351: WHEN OTHERS THEN
6352: x_status_code := FND_API.G_RET_STS_ERROR;
6353: x_status_text :=l_routine||' '||SQLERRM;
6354: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6355: engine_debug(l_routine||' '||SQLERRM);
6356: engine_debug(SQLERRM);
6357: END IF;
6358: END;
6497: p_ACCUM_ATTRIBUTE(i),
6498: p_ACCUM_FLAG(i));
6499: EXCEPTION
6500: WHEN OTHERS THEN
6501: x_status_code := FND_API.G_RET_STS_ERROR;
6502: x_status_text :=l_routine||' '||SQLERRM;
6503: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6504: engine_debug(l_routine||' '||SQLERRM);
6505: engine_debug(SQLERRM);
6499: EXCEPTION
6500: WHEN OTHERS THEN
6501: x_status_code := FND_API.G_RET_STS_ERROR;
6502: x_status_text :=l_routine||' '||SQLERRM;
6503: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6504: engine_debug(l_routine||' '||SQLERRM);
6505: engine_debug(SQLERRM);
6506: END IF;
6507: END;
6579: PRAGMA AUTONOMOUS_TRANSACTION;
6580: l_request_id number;
6581: l_routine VARCHAR2(240):= 'Routine:QP_PREQ_GRP.INSERT_LDETS2';
6582: BEGIN
6583: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6584: QP_PREQ_GRP.engine_debug('G_LINE_DETAIL_INDEX b4 insert_ldets2 '||G_LINE_DETAIL_INDEX);
6585: QP_PREQ_GRP.engine_debug('current request_id: '||sys_context('qp_context','request_id'));
6586: END IF;
6587: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
6714: p_BREAK_UOM_ATTRIBUTE(i), /* Proration */
6715: l_request_id
6716: );
6717: QP_PREQ_GRP.G_INT_LDETS_NO := QP_PREQ_GRP.G_INT_LDETS_NO + p_LINE_DETAIL_INDEX.count;
6718: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6719: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_LDETS_NO='||QP_PREQ_GRP.G_INT_LDETS_NO);
6720: END IF;
6721: COMMIT;
6722:
6721: COMMIT;
6722:
6723: EXCEPTION
6724: WHEN OTHERS THEN
6725: x_status_code := FND_API.G_RET_STS_ERROR;
6726: x_status_text :=l_routine||' '||SQLERRM;
6727: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6728: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
6729: QP_PREQ_GRP.engine_debug(SQLERRM);
6723: EXCEPTION
6724: WHEN OTHERS THEN
6725: x_status_code := FND_API.G_RET_STS_ERROR;
6726: x_status_text :=l_routine||' '||SQLERRM;
6727: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6728: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
6729: QP_PREQ_GRP.engine_debug(SQLERRM);
6730: END IF;
6731: END;
6813:
6814: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
6815: --added by yangli for Java Engine project
6816:
6817: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6818: engine_debug('G_LINE_DETAIL_INDEX b4 insert_ldets2 '||G_LINE_DETAIL_INDEX);
6819:
6820: engine_debug('current request_id: '||sys_context('qp_context','request_id'));
6821:
7060: END IF;
7061: -- SERVICE PROJECT
7062: --added by yangli for Java Engine project
7063: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
7064: IF l_debug = FND_API.G_TRUE THEN
7065: ENGINE_DEBUG('Java Engine not Installed ----------');
7066: END IF;
7067:
7068: --added by yangli for Java Engine project
7197: G_BREAK_UOM_ATTRIBUTE_DEF_TBL(i) /* Proration */
7198: );
7199: --added by yangli for Java Engine project
7200: ELSE
7201: IF l_debug = FND_API.G_TRUE THEN
7202: ENGINE_DEBUG('Java Engine Installed ----------');
7203: END IF;
7204: QP_PREQ_GRP.INSERT_LDETS2_AT
7205: (p_LINE_DETAIL_index ,
7293:
7294:
7295: EXCEPTION
7296: WHEN OTHERS THEN
7297: x_status_code := FND_API.G_RET_STS_ERROR;
7298: x_status_text :=l_routine||' '||SQLERRM;
7299: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7300: engine_debug(l_routine||' '||SQLERRM);
7301: engine_debug(SQLERRM);
7295: EXCEPTION
7296: WHEN OTHERS THEN
7297: x_status_code := FND_API.G_RET_STS_ERROR;
7298: x_status_text :=l_routine||' '||SQLERRM;
7299: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7300: engine_debug(l_routine||' '||SQLERRM);
7301: engine_debug(SQLERRM);
7302: END IF;
7303: END;
7349: p_pricing_status_text(i),
7350: l_request_id
7351: );
7352: QP_PREQ_GRP.G_INT_RELS_NO := QP_PREQ_GRP.G_INT_RELS_NO + p_LINE_INDEX.count;
7353: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7354: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_RELS_NO='||QP_PREQ_GRP.G_INT_RELS_NO);
7355: END IF;
7356: COMMIT;
7357: EXCEPTION
7355: END IF;
7356: COMMIT;
7357: EXCEPTION
7358: WHEN OTHERS THEN
7359: x_status_code := FND_API.G_RET_STS_ERROR;
7360: x_status_text :=l_routine||' '||SQLERRM;
7361: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7362: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
7363: QP_PREQ_GRP.engine_debug(SQLERRM);
7357: EXCEPTION
7358: WHEN OTHERS THEN
7359: x_status_code := FND_API.G_RET_STS_ERROR;
7360: x_status_text :=l_routine||' '||SQLERRM;
7361: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7362: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
7363: QP_PREQ_GRP.engine_debug(SQLERRM);
7364: END IF;
7365: END;
7431: END LOOP;
7432: END IF;
7433:
7434: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
7435: IF l_debug = FND_API.G_TRUE THEN
7436: ENGINE_DEBUG('Java Engine not Installed ----------');
7437: END IF;
7438: --added by yangli for Java Engine project
7439:
7461: G_RLTD_LIST_LINE_ID_DEF_TBL(i)
7462: );
7463: --added by yangli for Java Engine project
7464: ELSE
7465: IF l_debug = FND_API.G_TRUE THEN
7466: ENGINE_DEBUG('Java Engine Installed ----------');
7467: END IF;
7468: QP_PREQ_GRP.INSERT_RLTD_LINES2_AT
7469: (p_LINE_INDEX ,
7484: --added by yangli for Java Engine project
7485: G_PRICING_STATUS_TEXT_DEF_TBL.delete;
7486: EXCEPTION
7487: WHEN OTHERS THEN
7488: x_status_code := FND_API.G_RET_STS_ERROR;
7489: x_status_text :=l_routine||' '||SQLERRM;
7490: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7491: engine_debug(l_routine||' '||SQLERRM);
7492: engine_debug(SQLERRM);
7486: EXCEPTION
7487: WHEN OTHERS THEN
7488: x_status_code := FND_API.G_RET_STS_ERROR;
7489: x_status_text :=l_routine||' '||SQLERRM;
7490: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7491: engine_debug(l_routine||' '||SQLERRM);
7492: engine_debug(SQLERRM);
7493: END IF;
7494: END INSERT_RLTD_LINES2; -- public version
7662: AND ATTRIBUTE_TYPE = G_PRICING_TYPE
7663: AND PRICING_STATUS_CODE = G_STATUS_UNCHANGED;
7664:
7665: IF SQL%ROWCOUNT = 0 THEN
7666: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7667: engine_debug('No volume context in temp table, inserting one');
7668: END IF;
7669: INSERT_LINE_ATTRS
7670: (p_LINE_INDEX =>I.LINE_INDEX,
7679: P_PRICING_ATTR_FLAG =>G_PRICING_YES,
7680: x_status_code =>l_status_code,
7681: x_status_text =>l_status_text);
7682:
7683: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
7684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7685: END IF;
7686: END IF;
7687: -- Reset the unit price if price event occurs
7680: x_status_code =>l_status_code,
7681: x_status_text =>l_status_text);
7682:
7683: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
7684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7685: END IF;
7686: END IF;
7687: -- Reset the unit price if price event occurs
7688: IF (i.PRICE_FLAG = G_YES OR (i.PRICE_FLAG = G_PHASE AND p_freeze_override_flag = G_YES)) THEN
7695:
7696: -- PRICED QUANTITY(Discounts Sequence)
7697: -- bug 3572594 - update the cross order volume period qty even if there is no price phase in the current engine call
7698: IF (p_pricing_phase_seq <> G_PRICE_LIST_SEQUENCE AND l_l_line_type_code_tbl(I) = G_LINE_LEVEL ) THEN
7699: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7700: engine_debug('Trying to update cross order volume period qty in temp table');
7701:
7702: END IF;
7703: -- Cross Order Quantities
7712: v_uom_rate);
7713:
7714: -- Update Period1 Item Qty, Period2 Item Qty , Period3 Item Qty with conversion from order uom to pricing uom
7715: IF (v_uom_rate = -99999) THEN
7716: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7717: engine_debug('Uom Rate cannot be -99999');
7718: END IF;
7719: ELSE
7720: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7716: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7717: engine_debug('Uom Rate cannot be -99999');
7718: END IF;
7719: ELSE
7720: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7721: engine_debug('Uom Rate Is: ' || v_uom_rate );
7722: END IF;
7723:
7724: -- bug 3572594 - round the multiplied value to profile QP_INV_DECIMAL_PRECISION
7740: END IF;
7741:
7742: -- ITEM AMOUNT(Discounts Sequence)
7743: IF (p_pricing_phase_seq <> G_PRICE_LIST_SEQUENCE AND l_l_line_type_code_tbl(I) = G_LINE_LEVEL AND G_PRICE_PHASE_FLAG = TRUE) THEN
7744: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7745: engine_debug ('Trying to update line quantity and line amount in temp table');
7746:
7747: END IF;
7748: /*
7804: END;
7805: END IF;
7806:
7807: /* IF SQL%ROWCOUNT = 0 THEN
7808: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7809: engine_debug('No volume context in temp table, inserting one');
7810: END IF;
7811: INSERT_LINE_ATTRS
7812: (p_LINE_INDEX =>I.LINE_INDEX,
7836: l_ia_attribute_tbl(l_ia_bulk_count) := G_LINE_AMT_ATTRIBUTE;
7837: l_ia_bulk_count := l_ia_bulk_count + 1;
7838:
7839: /* IF SQL%ROWCOUNT = 0 THEN
7840: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7841: engine_debug('No volume context and line amt in temp table, inserting one');
7842: END IF;
7843: INSERT_LINE_ATTRS
7844: (p_LINE_INDEX =>I.LINE_INDEX,
7891: END IF;
7892:
7893: -- ORDER AMOUNT(Discounts Sequence) only for BATCH event
7894: IF (p_pricing_phase_seq <> G_PRICE_LIST_SEQUENCE and p_ordr_amt_flag = G_YES) THEN
7895: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7896: engine_debug ('Trying to update order amount in temp table');
7897:
7898: END IF;
7899: OPEN order_amount_cur;
7899: OPEN order_amount_cur;
7900: FETCH order_amount_cur INTO v_order_amt;
7901: CLOSE order_amount_cur;
7902:
7903: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7904: engine_debug ('v_order_amt = ' || v_order_amt);
7905: engine_debug ('G_BEFORE_PRICING_ORD_AMT = ' || G_BEFORE_PRICING_ORD_AMT);
7906: END IF;
7907:
7923: AND ATTRIBUTE_TYPE = G_QUALIFIER_TYPE
7924: AND PRICING_STATUS_CODE = G_STATUS_UNCHANGED;
7925:
7926: IF SQL%ROWCOUNT = 0 THEN
7927: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7928: engine_debug('No volume context and order amt in temp table, inserting one');
7929:
7930: END IF;
7931: INSERT INTO qp_npreq_line_attrs_tmp
7945: FROM qp_npreq_lines_tmp;
7946:
7947: END IF;
7948:
7949: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7950: declare
7951: l_value_from varchar2(240);
7952: begin
7953: select value_from
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;
7980: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7981: engine_debug(x_status_text);
7982: END IF;
7976: EXCEPTION
7977: WHEN OTHERS THEN
7978: x_status_code := FND_API.G_RET_STS_ERROR;
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;
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);
8027: END IF;
8028: x_status_code := FND_API.G_RET_STS_ERROR;
8029: x_status_text := 'Error in '||l_routine||SQLERRM;
8024: WHEN OTHERS THEN
8025: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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:
8055: l_count NUMBER := 0;
8056:
8057: BEGIN
8058:
8059: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8060: engine_debug('In Delete Duplicate List Lines procedure');
8061:
8062: END IF;
8063: OPEN get_duplicate_list_lines_count;
8063: OPEN get_duplicate_list_lines_count;
8064: FETCH get_duplicate_list_lines_count INTO l_count;
8065: CLOSE get_duplicate_list_lines_count;
8066:
8067: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8068: engine_debug('Duplicate List Lines Count : ' || l_count);
8069: END IF;
8070:
8071: IF (l_count > 0) THEN
8080: GROUP BY line_index,created_from_list_line_id);
8081: END IF;
8082: EXCEPTION
8083: WHEN OTHERS THEN
8084: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8085: engine_debug(l_routine||' '||SQLERRM);
8086: END IF;
8087: x_status_code := FND_API.G_RET_STS_ERROR;
8088: x_status_text := 'Error in '||l_routine||SQLERRM;
8083: WHEN OTHERS THEN
8084: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8085: engine_debug(l_routine||' '||SQLERRM);
8086: END IF;
8087: x_status_code := FND_API.G_RET_STS_ERROR;
8088: x_status_text := 'Error in '||l_routine||SQLERRM;
8089:
8090: END Delete_Duplicate_List_Lines;
8091: --Added new procedure Delete_Hdrs_With_No_ProdAttr for 3520634
8101: l_routine VARCHAR2(40) := 'Delete_Hdrs_With_No_ProdAttr';
8102:
8103: BEGIN
8104:
8105: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8106: engine_debug('Entering '||l_routine);
8107: END IF;
8108: UPDATE /*+ index(a qpprod QP_PREQ_QUAL_TMP_N1) dynamic_sampling(1) */ qp_preq_qual_tmp a --5658579
8109: --UPDATE qp_preq_qual_tmp a
8158: AND d.qualification_ind in (G_YES_HDR_LINE_QUAL_IND,G_YES_HDR_QUAL_IND)
8159: AND d.pricing_phase_id = p_pricing_phase_id
8160: AND rownum=1);
8161:
8162: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8163: engine_debug('No of headers deleted from qual tmp due to non-matching of product : ' || l_routine || ' ' || SQL%ROWCOUNT);
8164: END IF;
8165:
8166: EXCEPTION
8164: END IF;
8165:
8166: EXCEPTION
8167: WHEN OTHERS THEN
8168: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8169: engine_debug(l_routine||' '||SQLERRM);
8170: END IF;
8171: x_status_code := FND_API.G_RET_STS_ERROR;
8172: x_status_text := 'Error in '||l_routine||SQLERRM;
8167: WHEN OTHERS THEN
8168: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8169: engine_debug(l_routine||' '||SQLERRM);
8170: END IF;
8171: x_status_code := FND_API.G_RET_STS_ERROR;
8172: x_status_text := 'Error in '||l_routine||SQLERRM;
8173:
8174: END Delete_Hdrs_With_No_ProdAttr;
8175:
8230: QP_PREQ_GRP.G_QUAL_ATTRIBUTE1,to_char(a.CREATED_FROM_LIST_HEADER_ID),
8231: QP_PREQ_GRP.G_QUAL_ATTRIBUTE2,to_char(a.CREATED_FROM_LIST_LINE_ID),
8232: QP_PREQ_GRP.G_QUAL_ATTRIBUTE6,to_char(a.CREATED_FROM_LIST_HEADER_ID)));
8233:
8234: IF l_debug = FND_API.G_TRUE THEN
8235: QP_PREQ_GRP.engine_debug ('Deleted Un Asked for promotions:'||l_pricing_status_code);
8236: END IF;
8237:
8238: EXCEPTION
8236: END IF;
8237:
8238: EXCEPTION
8239: WHEN OTHERS THEN
8240: x_return_status := FND_API.G_RET_STS_ERROR;
8241: x_return_status_txt := 'Unexpected error in QP_PREQ_GRP.Delete_Un_Asked_For_Promotions: ' || SQLERRM;
8242: END Delete_Un_Asked_For_Promotions;
8243:
8244:
8336:
8337: -- end shu fix bug 1728757
8338:
8339: BEGIN
8340: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8341: engine_debug('Rounding Flag: '||p_rounding_flag);
8342: engine_debug ('Passed in Attribute Count : ' || p_line_attr_tbl.count);
8343: engine_debug ('Passed in Qualifier Count : ' || p_qual_tbl.count);
8344: engine_debug ('Passed in Lines Count : ' || p_line_tbl.count);
8355:
8356:
8357: --Reset_all_tbls;
8358: Reset_All_Tbls(l_status_code ,l_status_text );
8359: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
8360: RAISE E_ROUTINE_ERRORS;
8361: END IF;
8362:
8363: K:=1;
8364: WHILE I IS NOT NULL LOOP
8365:
8366:
8367: IF ( p_line_tbl(I).CURRENCY_CODE IS NULL or
8368: p_line_tbl(I).CURRENCY_CODE = FND_API.G_MISS_CHAR ) THEN
8369: RAISE E_CURRENCY_CODE_IS_NULL;
8370: ELSE
8371: --IF (G_CURRENCY_CODE IS NULL) THEN
8372: G_CURRENCY_CODE := p_line_tbl(I).CURRENCY_CODE;
8410: l_order_header_id := to_char(p_line_tbl(I).LINE_ID);
8411: G_ORDER_ID := p_line_tbl(I).LINE_ID; -- accum range break
8412: --Global variable for limits
8413: G_ORDER_PRICE_REQUEST_CODE := p_line_tbl(I).REQUEST_TYPE_CODE || '-' || l_order_header_id;
8414: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8415: engine_debug( ' Order Price Request Code : ' || G_ORDER_PRICE_REQUEST_CODE);
8416: END IF;
8417: END IF;
8418:
8435: END IF;
8436:
8437: --IF (l_not_insert_order_line_flag = TRUE and p_line_tbl(I).LINE_TYPE_CODE <> G_ORDER_LEVEL or
8438: -- l_not_insert_order_line_flag = FALSE) THEN
8439: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8440: engine_debug (' Loading the line info into plsql tables');
8441:
8442: END IF;
8443: G_LINE_INDEX_TBL(K) := p_line_tbl(I).LINE_INDEX;
8525: K:=K+1;
8526: END LOOP;
8527:
8528: IF K > 1 THEN
8529: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8530: engine_debug ('Bulk Inserting the actual lines : ' || G_PRICE_LIST_ID_TBL(1));
8531: END IF;
8532: INSERT_LINES2
8533: (p_LINE_INDEX => G_LINE_INDEX_TBL,
8572: p_SERVICE_PERIOD => G_SERVICE_PERIOD_DEF_TBL, -- SERVICE PROJECT
8573: x_status_code =>l_status_code,
8574: x_status_text =>l_status_text);
8575:
8576: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
8577: RAISE E_ROUTINE_ERRORS;
8578: END IF;
8579: END IF;
8580:
8581: /*************************populating line attributes *****************************/
8582:
8583: --Reset_all_tbls;
8584: Reset_All_Tbls(l_status_code ,l_status_text );
8585: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
8586: RAISE E_ROUTINE_ERRORS;
8587: END IF;
8588:
8589: I:= p_qual_tbl.FIRST;
8643: FROM qp_list_lines
8644: WHERE list_line_id = to_number(p_qual_tbl(I).QUALIFIER_ATTR_VALUE_FROM);
8645: EXCEPTION
8646: WHEN NO_DATA_FOUND THEN
8647: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8648: engine_debug('Error in Finding List Header Id for List Line : '||
8649: p_qual_tbl(I).QUALIFIER_ATTR_VALUE_FROM);
8650: END IF;
8651: l_status_code := FND_API.G_RET_STS_ERROR;
8647: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8648: engine_debug('Error in Finding List Header Id for List Line : '||
8649: p_qual_tbl(I).QUALIFIER_ATTR_VALUE_FROM);
8650: END IF;
8651: l_status_code := FND_API.G_RET_STS_ERROR;
8652: l_status_text := 'Error in Finding List Header Id for List Line : '||
8653: p_qual_tbl(I).QUALIFIER_ATTR_VALUE_FROM;
8654: RAISE E_ROUTINE_ERRORS;
8655: END ;
8659: IF p_qual_tbl(I).QUALIFIER_CONTEXT = 'MODLIST' AND
8660: p_qual_tbl(I).QUALIFIER_ATTRIBUTE = 'QUALIFIER_ATTRIBUTE1' -- promotion no.
8661: THEN
8662: l_list_header_id := p_qual_tbl(I).QUALIFIER_ATTR_VALUE_FROM; -- promotion hdr id
8663: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8664: engine_debug ('promotion hdr id: '|| l_list_header_id);
8665: END IF;
8666:
8667: -- get ask_for_flag of this promotion
8669: FETCH get_ask_for_flag_cur INTO l_ask_for_flag;
8670: CLOSE get_ask_for_flag_cur;
8671:
8672: IF ( l_cascade_ask_for_profile = G_YES AND l_ask_for_flag = G_YES) THEN
8673: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8674: engine_debug ('perform cascading ask for pormotion to ask for deals...');
8675: END IF;
8676: -- cascade ask_for_promotion to ask_for_deals
8677:
8676: -- cascade ask_for_promotion to ask_for_deals
8677:
8678: --cursor gets ask for deals' list_header_ids
8679: for l_ask_for_child_ids_data in l_ask_for_child_ids (l_list_header_id) loop
8680: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8681: engine_debug ('cascaded ask for deals: ' || l_ask_for_child_ids_data.list_header_id);
8682: END IF;
8683: K:= K+1;
8684: G_LINE_INDEX_tbl(K) := p_qual_tbl(I).LINE_INDEX;
8763: I:= p_line_attr_tbl.NEXT(I);
8764: END LOOP;
8765:
8766:
8767: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8768: engine_debug('Before Sourcing Volume Attributes');
8769:
8770: END IF;
8771: l_source_qty_flag := QP_BUILD_SOURCING_PVT.Is_Attribute_Used('VOLUME','PRICING_ATTRIBUTE10');
8772: l_source_amt_flag := QP_BUILD_SOURCING_PVT.Is_Attribute_Used('VOLUME','PRICING_ATTRIBUTE12');
8773:
8774: IF (l_source_qty_flag = G_YES) THEN
8775:
8776: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8777: engine_debug('Sourcing Quantity Attribute');
8778:
8779: END IF;
8780: FOR G IN p_line_tbl.first .. p_line_tbl.last
8780: FOR G IN p_line_tbl.first .. p_line_tbl.last
8781: LOOP
8782:
8783: IF (p_price_phase_flag = TRUE) THEN
8784: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8785: engine_debug('Pricing Phase Exists.. Sourcing Line Quantity');
8786: END IF;
8787: l_line_quantity := nvl(p_line_tbl(G).LINE_QUANTITY,0);
8788: ELSE
8785: engine_debug('Pricing Phase Exists.. Sourcing Line Quantity');
8786: END IF;
8787: l_line_quantity := nvl(p_line_tbl(G).LINE_QUANTITY,0);
8788: ELSE
8789: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8790: engine_debug('Pricing Phase Does not Exist.. Sourcing Priced Quantity');
8791: END IF;
8792: l_line_quantity := nvl(nvl(p_line_tbl(G).PRICED_QUANTITY,p_line_tbl(G).LINE_QUANTITY),0);
8793: END IF;
8832: END IF;
8833:
8834: IF (l_source_amt_flag = G_YES) THEN
8835:
8836: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8837: engine_debug('Sourcing Amount Attribute');
8838:
8839: END IF;
8840: FOR G IN p_line_tbl.first .. p_line_tbl.last
8840: FOR G IN p_line_tbl.first .. p_line_tbl.last
8841: LOOP
8842:
8843: IF (p_price_phase_flag = TRUE) THEN
8844: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8845: engine_debug('Pricing Phase Exists.. Sourcing Line Quantity');
8846: END IF;
8847: l_line_amount := nvl(p_line_tbl(G).LINE_QUANTITY * p_line_tbl(G).UNIT_PRICE,0);
8848: ELSE
8845: engine_debug('Pricing Phase Exists.. Sourcing Line Quantity');
8846: END IF;
8847: l_line_amount := nvl(p_line_tbl(G).LINE_QUANTITY * p_line_tbl(G).UNIT_PRICE,0);
8848: ELSE
8849: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8850: engine_debug('Pricing Phase Does not Exist.. ,l_status_textSourcing Priced Quantity');
8851: END IF;
8852: l_line_amount := nvl(nvl(p_line_tbl(G).PRICED_QUANTITY,p_line_tbl(G).LINE_QUANTITY) * p_line_tbl(G).UNIT_PRICE,0);
8853: END IF;
8926: G_PRIMARY_UOM_FLAG_TBL_A ,
8927: l_status_code ,
8928: l_status_text );
8929:
8930: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
8931: RAISE E_ROUTINE_ERRORS;
8932: END IF;
8933:
8934: END IF;
8935:
8936: /* begin bulk insert ldets -- 3215497 */
8937: -- first reset global tables
8938: Reset_All_Tbls(l_status_code, l_status_text);
8939: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
8940: RAISE E_ROUTINE_ERRORS;
8941: END IF;
8942:
8943: I := p_LINE_DETAIL_tbl.FIRST;
9069: p_PROCESS_CODE => G_PROCESS_CODE_TBL,
9070: x_status_code => l_status_code,
9071: x_status_text => l_status_text
9072: );
9073: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
9074: RAISE E_ROUTINE_ERRORS;
9075: END IF;
9076: END IF;
9077: /* end bulk insert ldets */
9079:
9080: /* begin bulk insert ldet qualifiers -- 3215497 */
9081: -- first reset global tables
9082: Reset_All_Tbls(l_status_code, l_status_text);
9083: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
9084: RAISE E_ROUTINE_ERRORS;
9085: END IF;
9086:
9087: I := p_LINE_DETAIL_qual_tbl.FIRST;
9213: p_PRIMARY_UOM_FLAG_TBL => G_PRIMARY_UOM_FLAG_tbl,
9214: x_status_code => l_status_code,
9215: x_status_text => l_status_text
9216: );
9217: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
9218: RAISE E_ROUTINE_ERRORS;
9219: END IF;
9220: END IF;
9221: /* end bulk insert ldet line attributes */
9223:
9224: /* begin bulk insert rltd lines -- 3215497 */
9225: -- first reset global tables
9226: Reset_All_Tbls(l_status_code, l_status_text);
9227: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
9228: RAISE E_ROUTINE_ERRORS;
9229: END IF;
9230:
9231: I := p_rltd_lines_tbl.FIRST;
9229: END IF;
9230:
9231: I := p_rltd_lines_tbl.FIRST;
9232: K := 1;
9233: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9234: engine_debug('RLTD first in populate_temp_table: '||I);
9235: END IF;
9236: WHILE I IS NOT NULL LOOP
9237: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9233: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9234: engine_debug('RLTD first in populate_temp_table: '||I);
9235: END IF;
9236: WHILE I IS NOT NULL LOOP
9237: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9238: engine_debug('Collecting in rltd table');
9239: END IF;
9240: -- populate relevant tables
9241: G_LINE_INDEX_tbl(K) := p_rltd_lines_tbl(I).LINE_INDEX;
9258: p_RELATED_LINE_DETAIL_INDEX => G_RLTD_LINE_DETAIL_INDEX_TBL,
9259: x_status_code => l_status_code,
9260: x_status_text => l_status_text
9261: );
9262: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
9263: RAISE E_ROUTINE_ERRORS;
9264: END IF;
9265: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9266: engine_debug('after bulk insert rltd lines');
9261: );
9262: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
9263: RAISE E_ROUTINE_ERRORS;
9264: END IF;
9265: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9266: engine_debug('after bulk insert rltd lines');
9267: END IF;
9268: END IF;
9269: /* end bulk insert rltd lines */
9269: /* end bulk insert rltd lines */
9270:
9271:
9272:
9273: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9274: OPEN l_get_count_cur;
9275: FETCH l_get_count_cur INTO l_count;
9276: CLOSE l_get_count_cur;
9277: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9273: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9274: OPEN l_get_count_cur;
9275: FETCH l_get_count_cur INTO l_count;
9276: CLOSE l_get_count_cur;
9277: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9278: engine_debug ('Culprit Attribute Count :' || l_count);
9279: END IF;
9280: END IF;
9281:
9278: engine_debug ('Culprit Attribute Count :' || l_count);
9279: END IF;
9280: END IF;
9281:
9282: --x_status_code := FND_API.G_RET_STS_SUCCESS;
9283:
9284:
9285: --Reset_all_tbls;
9286: Reset_All_Tbls(l_status_code ,l_status_text );
9283:
9284:
9285: --Reset_all_tbls;
9286: Reset_All_Tbls(l_status_code ,l_status_text );
9287: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
9288: RAISE E_ROUTINE_ERRORS;
9289: END IF;
9290:
9291: EXCEPTION
9289: END IF;
9290:
9291: EXCEPTION
9292: WHEN E_ROUTINE_ERRORS THEN
9293: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9294: engine_debug(l_routine||': '||l_status_text);
9295: END IF;
9296: x_status_text := l_status_text;
9297: x_status_code := FND_API.G_RET_STS_ERROR;
9293: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9294: engine_debug(l_routine||': '||l_status_text);
9295: END IF;
9296: x_status_text := l_status_text;
9297: x_status_code := FND_API.G_RET_STS_ERROR;
9298: WHEN E_DATE_IS_NULL THEN
9299: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9300: engine_debug('Date or date type is null');
9301: engine_debug('Date or date type is null');
9295: END IF;
9296: x_status_text := l_status_text;
9297: x_status_code := FND_API.G_RET_STS_ERROR;
9298: WHEN E_DATE_IS_NULL THEN
9299: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9300: engine_debug('Date or date type is null');
9301: engine_debug('Date or date type is null');
9302: END IF;
9303: x_status_code := FND_API.G_RET_STS_ERROR;
9299: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9300: engine_debug('Date or date type is null');
9301: engine_debug('Date or date type is null');
9302: END IF;
9303: x_status_code := FND_API.G_RET_STS_ERROR;
9304: x_status_text := 'Error in QP_PREQ_GRP.populate_temp_tables: One of the three dates is null';
9305: WHEN E_CURRENCY_CODE_IS_NULL THEN
9306: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9307: engine_debug('Currency code can not be null');
9302: END IF;
9303: x_status_code := FND_API.G_RET_STS_ERROR;
9304: x_status_text := 'Error in QP_PREQ_GRP.populate_temp_tables: One of the three dates is null';
9305: WHEN E_CURRENCY_CODE_IS_NULL THEN
9306: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9307: engine_debug('Currency code can not be null');
9308: engine_debug('Currency code can not be null');
9309: END IF;
9310: x_status_code := FND_API.G_RET_STS_ERROR;
9306: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9307: engine_debug('Currency code can not be null');
9308: engine_debug('Currency code can not be null');
9309: END IF;
9310: x_status_code := FND_API.G_RET_STS_ERROR;
9311: x_status_text := 'Error in QP_PREQ_GRP.populate_temp_tables: Currency can not be null';
9312: WHEN OTHERS THEN
9313: v_error_code :=SQLCODE;
9314: v_error_message:=SQLERRM;
9311: x_status_text := 'Error in QP_PREQ_GRP.populate_temp_tables: Currency can not be null';
9312: WHEN OTHERS THEN
9313: v_error_code :=SQLCODE;
9314: v_error_message:=SQLERRM;
9315: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9316: engine_debug('Error in QP_PREQ_GRP.populate_temp_tables: '||SQLERRM);
9317: END IF;
9318: x_status_code := FND_API.G_RET_STS_ERROR;
9319: x_status_text :='Error in QP_PREQ_GRP.populate_temp_tables:'||SQLERRM;
9314: v_error_message:=SQLERRM;
9315: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9316: engine_debug('Error in QP_PREQ_GRP.populate_temp_tables: '||SQLERRM);
9317: END IF;
9318: x_status_code := FND_API.G_RET_STS_ERROR;
9319: x_status_text :='Error in QP_PREQ_GRP.populate_temp_tables:'||SQLERRM;
9320:
9321: END Populate_Temp_Tables;
9322:
9357: FROM qp_int_lines
9358: WHERE line_index = p_line_index;
9359:
9360: BEGIN
9361: x_status_code := FND_API.G_RET_STS_SUCCESS;
9362:
9363: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9364: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9365: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
9362:
9363: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9364: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9365: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
9366: IF l_debug = FND_API.G_TRUE THEN
9367: QP_PREQ_GRP.ENGINE_DEBUG('Populate_Price_Adj_ID: Java Engine not Installed ----------');
9368: END IF;
9369: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9370: OPEN l_get_pricing_effective_date (p_line_index);
9370: OPEN l_get_pricing_effective_date (p_line_index);
9371: FETCH l_get_pricing_effective_date into l_pricing_effective_date;
9372: CLOSE l_get_pricing_effective_date;
9373: ELSE
9374: IF l_debug = FND_API.G_TRUE THEN
9375: QP_PREQ_GRP.ENGINE_DEBUG('Set_Expiration_Dates: Java Engine is Installed ----------');
9376: END IF;
9377: OPEN l_int_pricing_effective_date (p_line_index);
9378: FETCH l_int_pricing_effective_date into l_pricing_effective_date;
9387: l_pricing_effective_date,
9388: l_status_code,
9389: l_status_text);
9390:
9391: IF (l_status_code <> FND_API.G_RET_STS_SUCCESS) Then
9392: Raise E_Coupon_Error;
9393: END IF;
9394:
9395: x_expiration_period_end_date := l_expiration_period_end_date;
9396:
9397: EXCEPTION
9398:
9399: WHEN E_Coupon_Error THEN
9400: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9401: engine_debug('Error returned by QP_COUPON_PVT.Set_Expiration_Dates');
9402: END IF;
9403: x_status_code := FND_API.G_RET_STS_ERROR;
9404: x_status_text :=l_routine||':'||l_status_text;
9399: WHEN E_Coupon_Error THEN
9400: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9401: engine_debug('Error returned by QP_COUPON_PVT.Set_Expiration_Dates');
9402: END IF;
9403: x_status_code := FND_API.G_RET_STS_ERROR;
9404: x_status_text :=l_routine||':'||l_status_text;
9405: WHEN OTHERS THEN
9406: x_status_code := FND_API.G_RET_STS_ERROR;
9407: x_status_code := l_routine||':'||SQLERRM;
9402: END IF;
9403: x_status_code := FND_API.G_RET_STS_ERROR;
9404: x_status_text :=l_routine||':'||l_status_text;
9405: WHEN OTHERS THEN
9406: x_status_code := FND_API.G_RET_STS_ERROR;
9407: x_status_code := l_routine||':'||SQLERRM;
9408: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9409: engine_debug(l_routine||':'||SQLERRM);
9410: END IF;
9404: x_status_text :=l_routine||':'||l_status_text;
9405: WHEN OTHERS THEN
9406: x_status_code := FND_API.G_RET_STS_ERROR;
9407: x_status_code := l_routine||':'||SQLERRM;
9408: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9409: engine_debug(l_routine||':'||SQLERRM);
9410: END IF;
9411: END;
9412:
9785:
9786: BEGIN
9787: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9788:
9789: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9790: engine_debug('----Before populate l_line_tbl-----');
9791: engine_debug('----Line information return back to caller----');
9792: END IF;
9793:
9792: END IF;
9793:
9794: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9795: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
9796: IF l_debug = FND_API.G_TRUE THEN
9797: QP_PREQ_GRP.ENGINE_DEBUG('Populate_output: Java Engine not Installed ----------');
9798: END IF;
9799: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9800:
9832: --x_line_tbl(I).EXTENDED_SELLING_PRICE_UR := l_line.EXTENDED_SELLING_PRICE_UR; --[prarasto:Post Round], [julin/postround] redesign
9833: --x_line_tbl(I).ORDER_UOM_SELLING_PRICE_UR := l_line.ORDER_UOM_SELLING_PRICE_UR; --[prarasto:Post Round]
9834: --x_line_tbl(I).ADJUSTED_UNIT_PRICE_UR := l_line.ADJUSTED_UNIT_PRICE_UR; --[prarasto:Post Round]
9835:
9836: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9837: engine_debug('LINE_INDEX :='||l_line.LINE_INDEX);
9838: engine_debug('LINE_ID :='||l_line.LINE_ID);
9839: engine_debug('PRICE_LIST_HEADER_ID :='||l_line.PRICE_LIST_HEADER_ID); -- shu, print out this
9840: engine_debug('LINE_TYPE_CODE :='||l_line.LINE_TYPE_CODE);
9870: I:=1;
9871:
9872:
9873: --Populate Line detail
9874: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9875: engine_debug('----Line detail information return back to caller----');
9876: END IF;
9877: FOR l_dets IN l_ldets_cur LOOP
9878: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9874: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9875: engine_debug('----Line detail information return back to caller----');
9876: END IF;
9877: FOR l_dets IN l_ldets_cur LOOP
9878: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9879: engine_debug('----populating line detail output------');
9880: END IF;
9881:
9882: --requirement by Jay, will cause holes in pl/sql tbl
9952: l_status_code,
9953: l_status_text);
9954: END IF;
9955:
9956: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
9957: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9958: engine_debug(l_routine||':'||substr(l_status_text,1,240));
9959: END IF;
9960: END IF;
9953: l_status_text);
9954: END IF;
9955:
9956: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
9957: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9958: engine_debug(l_routine||':'||substr(l_status_text,1,240));
9959: END IF;
9960: END IF;
9961:
9959: END IF;
9960: END IF;
9961:
9962: x_line_detail_tbl(I).EXPIRATION_DATE :=l_expiration_period_end_date;
9963: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9964: engine_debug('LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
9965: engine_debug('LINE_DETAIL_TYPE_CODE:='||l_dets.LINE_DETAIL_TYPE_CODE);
9966: engine_debug('LINE_INDEX:='||l_dets.LINE_INDEX);
9967: engine_debug('LIST_HEADER_ID:='||l_dets.LIST_HEADER_ID);
9988: engine_debug('ESTIM_GL_VALUE:='||l_dets.ESTIM_GL_VALUE);
9989: engine_debug('ACCRUAL_CONVERSION_RATE:='||l_dets.ACCRUAL_CONVERSION_RATE);
9990: END IF;
9991: --Pass throuh components
9992: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9993: engine_debug('OVERRIDE_FLAG:='|| l_dets.OVERRIDE_FLAG);
9994: engine_debug('INVENTORY_ITEM_ID:='||l_dets.INVENTORY_ITEM_ID);
9995: engine_debug('ORGANIZATION_ID:='||l_dets.ORGANIZATION_ID);
9996: engine_debug('RELATED_ITEM_ID:='|| l_dets.RELATED_ITEM_ID);
10023: END LOOP;
10024: I:=1;
10025:
10026: --Populate Qualifier detail
10027: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10028: engine_debug('----Before populate x_qual_tbl-----');
10029: END IF;
10030: FOR l_qual IN l_qual_cur(G_DETAIL_LEVEL) LOOP
10031: x_line_detail_qual_tbl(I).LINE_DETAIL_INDEX := l_qual.LINE_DETAIL_INDEX;
10041: END LOOP;
10042: I:=1;
10043:
10044: --LINE ATTRIBUTE DETAIL NEEDED
10045: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10046: engine_debug('----Before populate attr_tbl-----');
10047: END IF;
10048: FOR l_prc IN l_pricing_attr_cur LOOP
10049: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10045: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10046: engine_debug('----Before populate attr_tbl-----');
10047: END IF;
10048: FOR l_prc IN l_pricing_attr_cur LOOP
10049: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10050: engine_debug('--------populating x_line_detail_attr----------');
10051: engine_debug('Line Detail Index: '||l_prc.LINE_DETAIL_INDEX);
10052: END IF;
10053: x_line_detail_attr_tbl(I).LINE_DETAIL_INDEX := l_prc.LINE_DETAIL_INDEX;
10062: END LOOP;
10063:
10064: I:=1;
10065:
10066: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10067: engine_debug('----Before populate l_rltd_lines_tbl-----');
10068: END IF;
10069: FOR l_rltd IN l_rltd_lines_cur LOOP
10070: x_related_lines_tbl(I).LINE_INDEX := l_rltd.Line_index;
10076: x_related_lines_tbl(I).STATUS_TEXT :=l_rltd.PRICING_STATUS_TEXT;
10077: I:=I+1;
10078: END LOOP;
10079: ELSE
10080: IF l_debug = FND_API.G_TRUE THEN
10081: QP_PREQ_GRP.ENGINE_DEBUG('Populate_output: Java Engine is Installed ----------');
10082: END IF;
10083: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
10084:
10113: x_line_tbl(I).PRICE_REQUEST_CODE := l_line.PRICE_REQUEST_CODE;
10114: x_line_tbl(I).PRICING_EFFECTIVE_DATE := l_line.PRICING_EFFECTIVE_DATE;
10115: x_line_tbl(I).EXTENDED_PRICE := l_line.EXTENDED_PRICE; -- block pricing
10116:
10117: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10118: engine_debug('LINE_INDEX :='||l_line.LINE_INDEX);
10119: engine_debug('LINE_ID :='||l_line.LINE_ID);
10120: engine_debug('PRICE_LIST_HEADER_ID :='||l_line.PRICE_LIST_HEADER_ID); -- shu, print out this
10121: engine_debug('LINE_TYPE_CODE :='||l_line.LINE_TYPE_CODE);
10148: I:=1;
10149:
10150:
10151: --Populate Line detail
10152: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10153: engine_debug('----Line detail information return back to caller----');
10154: END IF;
10155: FOR l_dets IN l_int_ldets_cur LOOP
10156: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10152: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10153: engine_debug('----Line detail information return back to caller----');
10154: END IF;
10155: FOR l_dets IN l_int_ldets_cur LOOP
10156: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10157: engine_debug('----populating line detail output------');
10158: END IF;
10159:
10160: --requirement by Jay, will cause holes in pl/sql tbl
10227: l_status_code,
10228: l_status_text);
10229: END IF;
10230:
10231: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
10232: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10233: engine_debug(l_routine||':'||substr(l_status_text,1,240));
10234: END IF;
10235: END IF;
10228: l_status_text);
10229: END IF;
10230:
10231: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
10232: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10233: engine_debug(l_routine||':'||substr(l_status_text,1,240));
10234: END IF;
10235: END IF;
10236:
10234: END IF;
10235: END IF;
10236:
10237: x_line_detail_tbl(I).EXPIRATION_DATE :=l_expiration_period_end_date;
10238: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10239: engine_debug('LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
10240: engine_debug('LINE_DETAIL_TYPE_CODE:='||l_dets.LINE_DETAIL_TYPE_CODE);
10241: engine_debug('LINE_INDEX:='||l_dets.LINE_INDEX);
10242: engine_debug('LIST_HEADER_ID:='||l_dets.LIST_HEADER_ID);
10263: engine_debug('ESTIM_GL_VALUE:='||l_dets.ESTIM_GL_VALUE);
10264: engine_debug('ACCRUAL_CONVERSION_RATE:='||l_dets.ACCRUAL_CONVERSION_RATE);
10265: END IF;
10266: --Pass throuh components
10267: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10268: engine_debug('OVERRIDE_FLAG:='|| l_dets.OVERRIDE_FLAG);
10269: engine_debug('INVENTORY_ITEM_ID:='||l_dets.INVENTORY_ITEM_ID);
10270: engine_debug('ORGANIZATION_ID:='||l_dets.ORGANIZATION_ID);
10271: engine_debug('RELATED_ITEM_ID:='|| l_dets.RELATED_ITEM_ID);
10296: END LOOP;
10297: I:=1;
10298:
10299: --Populate Qualifier detail
10300: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10301: engine_debug('----Before populate x_qual_tbl-----');
10302: END IF;
10303: FOR l_qual IN l_int_qual_cur(G_DETAIL_LEVEL) LOOP
10304: x_line_detail_qual_tbl(I).LINE_DETAIL_INDEX := l_qual.LINE_DETAIL_INDEX;
10314: END LOOP;
10315: I:=1;
10316:
10317: --LINE ATTRIBUTE DETAIL NEEDED
10318: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10319: engine_debug('----Before populate attr_tbl-----');
10320: END IF;
10321: FOR l_prc IN l_int_pricing_attr_cur LOOP
10322: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10318: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10319: engine_debug('----Before populate attr_tbl-----');
10320: END IF;
10321: FOR l_prc IN l_int_pricing_attr_cur LOOP
10322: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10323: engine_debug('--------populating x_line_detail_attr----------');
10324: engine_debug('Line Detail Index: '||l_prc.LINE_DETAIL_INDEX);
10325: END IF;
10326: x_line_detail_attr_tbl(I).LINE_DETAIL_INDEX := l_prc.LINE_DETAIL_INDEX;
10335: END LOOP;
10336:
10337: I:=1;
10338:
10339: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10340: engine_debug('----Before populate l_rltd_lines_tbl-----');
10341: END IF;
10342: FOR l_rltd IN l_int_rltd_lines_cur LOOP
10343: x_related_lines_tbl(I).LINE_INDEX := l_rltd.Line_index;
10352: END IF;
10353:
10354: EXCEPTION
10355: WHEN E_ROUTINE_ERROR THEN
10356: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10357: engine_debug(l_routine||':'||substr(l_status_text,1,240));
10358: END IF;
10359:
10360: END;
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;
10440: FOR i IN l_get_multiple_exclude_cur
10449: --l_setup_context := i.context;
10450: --l_setup_attribute := i.attribute;
10451: --l_setup_value_from := i.setup_value_from;
10452:
10453: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10454: engine_debug('EMH Context:' || i.context || ' EMH Attribute:' || i.attribute || ' EMH Passed Value : '||i.setup_value_from);
10455: engine_debug('EMH Excluded Passed Value From Setup: ' || i.setup_value_from);
10456:
10457: END IF;
10458: OPEN l_get_passed_hierarchy_cur(i.line_index,i.context,i.attribute,i.setup_value_from);
10459: FETCH l_get_passed_hierarchy_cur INTO l_passed_value_from;
10460: CLOSE l_get_passed_hierarchy_cur;
10461:
10462: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10463: engine_debug('EMH Excluded Passed Value From Sourcing: ' || l_passed_value_from);
10464:
10465: END IF;
10466: IF (l_passed_value_from IS NOT NULL) THEN
10463: engine_debug('EMH Excluded Passed Value From Sourcing: ' || l_passed_value_from);
10464:
10465: END IF;
10466: IF (l_passed_value_from IS NOT NULL) THEN
10467: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10468: engine_debug('EMH Deleted Flag is True');
10469: END IF;
10470: l_del_ind := l_del_ind + 1;
10471: l_del_list_line_tbl(l_del_ind) := i.list_line_id;
10484: END LOOP;
10485:
10486: -- Delete the multiple hierarchies
10487: IF (l_del_list_line_tbl.COUNT > 0) THEN
10488: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10489: engine_debug('Actually Deleting');
10490: END IF;
10491: FORALL j IN l_del_list_line_tbl.FIRST .. l_del_list_line_tbl.LAST
10492: /*
10517: -- shu fix bug 1915355
10518: -- To delete duplicate list lines selected by ask for and regular cursors
10519: IF (p_pricing_phase_id <> G_PRICE_LIST_PHASE_ID) THEN
10520: Delete_Duplicate_List_Lines(p_pricing_phase_id,l_status_code,l_status_text);
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');
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);
10530: END IF;
10531: x_status_code := FND_API.G_RET_STS_ERROR;
10532: x_status_text := l_routine||': '||l_status_text;
10527: WHEN E_ROUTINE_ERRORS THEN
10528: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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
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;
10538: x_status_code := FND_API.G_RET_STS_ERROR;
10539: x_status_text := 'Error in '||l_routine||SQLERRM;
10534: WHEN OTHERS THEN
10535: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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:
10618:
10619: --If no data has LINE_GROUP Modifier
10620: --don't bother to proceed
10621:
10622: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10623: engine_debug('Starting process linegroup');
10624:
10625: END IF;
10626: FOR J IN line_grp_cur LOOP
10632: l_group_amount := J.group_value;
10633: l_group_quantity := NULL;
10634: END IF;
10635:
10636: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10637: engine_debug('J.context : '||J.context);
10638: engine_debug('J.product_attribute : '||J.attribute);
10639: engine_debug('J.value_from : '||J.group_value);
10640: engine_debug('l_GROUP_QUANTITY: '||l_group_quantity);
10643:
10644: END IF;
10645: IF (j.attribute = G_QUANTITY_ATTRIBUTE) THEN
10646:
10647: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10648: engine_debug('Updating Quantity Attribute');
10649:
10650: END IF;
10651:
10665: SELECTED_VOLUME_ATTR = G_QUANTITY -- 2388011_latest
10666: WHERE CREATED_FROM_LIST_LINE_ID = j.list_line_id;
10667:
10668: ELSE
10669: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10670: engine_debug('Updating Amount Attribute');
10671: END IF;
10672:
10673: -- begin shu, fix group of lines lumpsum based on ITEM_AMOUNT, 2388011
10685:
10686: IF (G_LINE_INDEX_TBL_G.COUNT > 0) THEN
10687: FOR I in G_LINE_INDEX_TBL_G.FIRST .. G_LINE_INDEX_TBL_G.LAST
10688: LOOP
10689: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10690: engine_debug('Line Index : ' ||g_line_index_tbl_g(I));
10691: engine_debug('Unit Price : ' ||g_unit_price_tbl_g(I));
10692: END IF; -- 4033618
10693: IF (G_UNIT_PRICE_TBL_G(I) IS NOT NULL and G_UNIT_PRICE_TBL_G(I) <> 0) THEN -- avoid division by zero
10698: ELSE -- unit price is NULL
10699: G_GROUP_AMOUNT_PER_UNIT_TBL_G(I) :=l_group_amount; -- ASK RAVI? why not 0
10700: END IF;
10701: END IF;
10702: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10703: engine_debug('Group Amount Per Unit: ' ||g_group_amount_per_unit_tbl_g(I));
10704: END IF; -- 4033618
10705: END LOOP;
10706: END IF;
10723: END IF;
10724:
10725: END LOOP;
10726:
10727: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10728: engine_debug('End process line group');
10729:
10730: END IF;
10731: EXCEPTION
10729:
10730: END IF;
10731: EXCEPTION
10732: WHEN NO_DATA_FOUND THEN
10733: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10734: engine_debug('No line group data');
10735: engine_debug('End process line group');
10736: END IF;
10737: RETURN;
10735: engine_debug('End process line group');
10736: END IF;
10737: RETURN;
10738: WHEN OTHERS THEN
10739: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10740: engine_debug(l_routine||' '||SQLERRM);
10741: END IF;
10742: x_status_code := FND_API.G_RET_STS_ERROR;
10743: x_status_text := l_routine||': '||SQLERRM;
10738: WHEN OTHERS THEN
10739: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10740: engine_debug(l_routine||' '||SQLERRM);
10741: END IF;
10742: x_status_code := FND_API.G_RET_STS_ERROR;
10743: x_status_text := l_routine||': '||SQLERRM;
10744: END PROCESS_LINE_GROUP;
10745:
10746: /*+----------------------------------------------------------
10794:
10795: l_dummy VARCHAR2(1);
10796:
10797: BEGIN
10798: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10799: engine_debug('p_line_index : '||p_line_index);
10800: engine_debug('p_product_uom_code: '||nvl(p_product_uom_code,'Null'));
10801: END IF;
10802: /*
10838: l_uom_rate NUMBER;
10839: l_routine VARCHAR2(240):= 'QP_PREQ_GRP.Convert_Uom';
10840: BEGIN
10841:
10842: x_status_code := FND_API.G_RET_STS_SUCCESS;
10843:
10844: INV_CONVERT.INV_UM_CONVERSION(p_order_uom_code,
10845: p_primary_uom_code,
10846: l_item_id,
10846: l_item_id,
10847: l_uom_rate);
10848:
10849: IF (l_uom_rate >= 0) THEN
10850: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10851: engine_debug ('conversion rate: '||l_uom_rate);
10852: END IF;
10853: x_converted_value := p_value * l_uom_rate;
10854: ELSE
10858:
10859: EXCEPTION
10860:
10861: WHEN E_INVALID_UOM THEN
10862: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10863: engine_debug('Invalid UOM');
10864: END IF;
10865: x_status_code := FND_API.G_RET_STS_ERROR;
10866: x_status_text := 'Invalid UOM';
10861: WHEN E_INVALID_UOM THEN
10862: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10863: engine_debug('Invalid UOM');
10864: END IF;
10865: x_status_code := FND_API.G_RET_STS_ERROR;
10866: x_status_text := 'Invalid UOM';
10867: WHEN OTHERS THEN
10868: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10869: engine_debug(l_routine||': '||SQLERRM);
10864: END IF;
10865: x_status_code := FND_API.G_RET_STS_ERROR;
10866: x_status_text := 'Invalid UOM';
10867: WHEN OTHERS THEN
10868: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10869: engine_debug(l_routine||': '||SQLERRM);
10870: END IF;
10871: x_status_code := FND_API.G_RET_STS_ERROR;
10872: x_status_text := l_routine||': '||SQLERRM;
10867: WHEN OTHERS THEN
10868: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10869: engine_debug(l_routine||': '||SQLERRM);
10870: END IF;
10871: x_status_code := FND_API.G_RET_STS_ERROR;
10872: x_status_text := l_routine||': '||SQLERRM;
10873: END Convert_Uom;
10874:
10875: /*+----------------------------------------------------------
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:
10894: /* --po integration start
10944: CURSOR tmp_data IS
10945: SELECT rounding_factor FROM qp_npreq_lines_tmp;
10946: BEGIN
10947:
10948: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10949: engine_debug ('G_MCURR_PROFILE: '||G_MULTI_CURRENCY_PROFILE);
10950: engine_debug ('p_control_rec.use_multi_currency: '||p_control_rec.use_multi_currency);
10951: END IF;
10952: -- cannot use IF G_MCURR_INSTALLED_USED here, it is null
10951: END IF;
10952: -- cannot use IF G_MCURR_INSTALLED_USED here, it is null
10953: IF G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN
10954:
10955: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10956: engine_debug ('get rounding_factor from qp_currency_details table...');
10957: END IF;
10958:
10959: UPDATE qp_npreq_lines_tmp a
10969: WHERE ROUNDING_FACTOR IS NULL;
10970:
10971: ELSE -- multi curr not installed not used, obtain rounding_factor from qp_list_headers_b
10972:
10973: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10974: engine_debug('get rounding factor from qp_list_headers_b...');
10975: END IF;
10976: UPDATE qp_npreq_lines_tmp a
10977: SET ROUNDING_FACTOR = (SELECT qhdr.rounding_factor
10982: END IF; -- END IF G_MCURR_INSTALLED_USED = G_YES
10983:
10984:
10985: FOR i IN tmp_data LOOP
10986: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10987: engine_debug ('final rounding_factor ' ||i.rounding_factor);
10988: END IF;
10989: end LOOP;
10990:
10990:
10991:
10992: EXCEPTION
10993: WHEN no_data_found THEN
10994: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10995: engine_debug ('no_data_found occurred while obtaining rounding_factor');
10996: END IF;
10997: WHEN others THEN
10998: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10994: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10995: engine_debug ('no_data_found occurred while obtaining rounding_factor');
10996: END IF;
10997: WHEN others THEN
10998: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10999: engine_debug ('error obtaining_rounding_factor: ' || SQLERRM);
11000: END IF;
11001: END; -- end declare
11002: END IF; -- end p_rounding_flag = 'Y' */
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);
11030: END IF;
11031: x_status_code := FND_API.G_RET_STS_ERROR;
11032: x_status_text := l_routine||' '||SQLERRM;
11027: WHEN OTHERS THEN
11028: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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:
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;
11243: --Evaluate Between operator
11244: IF (p_line_group_flag IS NULL) THEN
11245:
11246: --Character and date between
11247: IF (p_pricing_phase_id = G_PRICE_LIST_PHASE_ID) THEN
11248: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11249: QP_PREQ_GRP.engine_debug('Before Opening Price List Character Date Between Cur');
11250: END IF;
11251: FOR I IN l_pric_character_between_cur LOOP
11252: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11248: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11249: QP_PREQ_GRP.engine_debug('Before Opening Price List Character Date Between Cur');
11250: END IF;
11251: FOR I IN l_pric_character_between_cur LOOP
11252: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11253: QP_PREQ_GRP.engine_debug('In Price List Character Date Between Cur');
11254: END IF;
11255: IF (I.value_from NOT BETWEEN nvl(I.setup_value_from,I.value_from) and nvl(I.setup_value_to,I.value_from)) THEN
11256:
11265: END IF;
11266: END IF;
11267: END LOOP;
11268: ELSE
11269: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11270: QP_PREQ_GRP.engine_debug('Before Opening Modifiers Character Date Between Cur');
11271: END IF;
11272: FOR I IN l_mod_character_between_cur LOOP
11273: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11269: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11270: QP_PREQ_GRP.engine_debug('Before Opening Modifiers Character Date Between Cur');
11271: END IF;
11272: FOR I IN l_mod_character_between_cur LOOP
11273: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11274: QP_PREQ_GRP.engine_debug('In Modifiers Character Date Between Cur');
11275: END IF;
11276: IF (I.value_from NOT BETWEEN nvl(I.setup_value_from,I.value_from) and nvl(I.setup_value_to,I.value_from)) THEN
11277:
11292:
11293: --Handle between with numeric data type
11294:
11295: IF (p_pricing_phase_id = G_PRICE_LIST_PHASE_ID) THEN
11296: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11297: QP_PREQ_GRP.engine_debug('Before Opening Price List Numeric Between Cur');
11298:
11299: END IF;
11300: FOR I IN l_pric_between_cur(p_datatype => G_NUMERIC) LOOP
11298:
11299: END IF;
11300: FOR I IN l_pric_between_cur(p_datatype => G_NUMERIC) LOOP
11301:
11302: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11303: QP_PREQ_GRP.engine_debug('In Price List Numeric Between Cur');
11304:
11305: END IF;
11306: l_deleted_between := 'F';
11306: l_deleted_between := 'F';
11307:
11308: IF I.context = G_PRIC_VOLUME_CONTEXT THEN
11309: IF(Is_Line_Group(p_line_detail_index => I.line_detail_index) = TRUE) THEN
11310: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11311: QP_PREQ_GRP.engine_debug('Is Line Group #100');
11312:
11313: END IF;
11314: l_is_line_group_flag := 'T';
11328: ELSE -- Make it a success,because line group between is done again,so do not delete
11329: l_value_from_num := NULL;
11330: END IF;
11331:
11332: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11333: engine_debug('Is line group');
11334: engine_debug('Group Quantity : ' || l_value_from_num);
11335: engine_debug('Line detail index: '||I.line_detail_index);
11336: END IF;
11364: ELSE
11365: l_setup_value_to_num := qp_number.canonical_to_number(I.setup_value_to);
11366: END IF;
11367:
11368: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11369: engine_debug('1VALUE: '||l_value_from_num);
11370: engine_debug('2VALUE_FROM: '||l_setup_value_from_num);
11371: engine_debug('3VALUE_TO: '||l_setup_value_to_num);
11372:
11372:
11373: END IF;
11374: IF (l_value_from_num NOT BETWEEN l_setup_value_from_num and l_setup_value_to_num) and l_value_from_num IS NOT NULL THEN
11375:
11376: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11377: engine_debug('4NOT BETWEEN');
11378:
11379: END IF;
11380: -- If it is a pricing attribute and it fails on between we can delete it right away
11402: AND LINE_DETAIL_INDEX = i.line_detail_index;
11403: END IF;
11404:
11405: -- shu debug msg
11406: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11407: QP_PREQ_GRP.engine_debug('check condition...');
11408: QP_PREQ_GRP.engine_debug('i.group_amount: : '||i.group_amount);
11409: QP_PREQ_GRP.engine_debug('l_value_from_num: '||l_value_from_num);
11410: QP_PREQ_GRP.engine_debug('p_line_group_flag: '||p_line_group_flag);
11435: l_group_amount :=I.group_amount;
11436: end if;
11437: END IF;
11438:
11439: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11440: QP_PREQ_GRP.engine_debug('line_index: '||i.line_index);
11441: QP_PREQ_GRP.engine_debug('list price: '||l_list_price);
11442: QP_PREQ_GRP.engine_debug('i.group_amount: '||i.group_amount);
11443: QP_PREQ_GRP.engine_debug('group_value: '||l_group_amount);
11454: --Need the LINE_QUANTITY column to be updated for regular lines with volume attributes, for Calculation purposes
11455: IF (p_line_group_flag IS NULL and l_is_line_group_flag = 'F'
11456: and i.context = G_PRIC_VOLUME_CONTEXT) -- added for [5005328/4911264]
11457: THEN
11458: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11459: QP_PREQ_GRP.engine_debug('Line Index: ' || i.line_index || ' LD Index : ' || i.line_detail_index ||
11460: ' '||l_value_from_num);
11461: END IF;
11462: /*
11470:
11471: END IF;
11472: END LOOP;
11473: ELSE
11474: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11475: QP_PREQ_GRP.engine_debug('Before Opening Modifiers Numeric Between Cur');
11476: END IF;
11477: FOR I IN l_mod_between_cur(p_datatype => G_NUMERIC) LOOP
11478:
11475: QP_PREQ_GRP.engine_debug('Before Opening Modifiers Numeric Between Cur');
11476: END IF;
11477: FOR I IN l_mod_between_cur(p_datatype => G_NUMERIC) LOOP
11478:
11479: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11480: QP_PREQ_GRP.engine_debug('In Modifiers Numeric Between Cur');
11481:
11482: END IF;
11483: l_deleted_between := 'F';
11483: l_deleted_between := 'F';
11484:
11485: IF I.context = G_PRIC_VOLUME_CONTEXT THEN
11486: IF(Is_Line_Group(p_line_detail_index => I.line_detail_index) = TRUE) THEN
11487: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11488: QP_PREQ_GRP.engine_debug('Is Line Group #100');
11489:
11490: END IF;
11491: l_is_line_group_flag := 'T';
11503: ELSE -- Make it a success,because line group between is done again,so do not delete
11504: l_value_from_num := NULL;
11505: END IF;
11506:
11507: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11508: engine_debug('Is line group');
11509: engine_debug('Group Quantity : ' || l_value_from_num);
11510: engine_debug('Line detail index: '||I.line_detail_index);
11511: END IF;
11530: ELSE
11531: l_setup_value_to_num := qp_number.canonical_to_number(I.setup_value_to);
11532: END IF;
11533:
11534: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11535: engine_debug('1VALUE: '||l_value_from_num);
11536: engine_debug('2VALUE_FROM: '||l_setup_value_from_num);
11537: engine_debug('3VALUE_TO: '||l_setup_value_to_num);
11538:
11538:
11539: END IF;
11540: IF (l_value_from_num NOT BETWEEN l_setup_value_from_num and l_setup_value_to_num) and l_value_from_num IS NOT NULL THEN
11541:
11542: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11543: engine_debug('4NOT BETWEEN');
11544:
11545: END IF;
11546: -- If it is a pricing attribute and it fails on between we can delete it right away
11569: AND LINE_DETAIL_INDEX = i.line_detail_index;
11570: END IF;
11571:
11572: -- shu debug msg
11573: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11574: QP_PREQ_GRP.engine_debug('for modifiers...');
11575: QP_PREQ_GRP.engine_debug('check condition...');
11576: QP_PREQ_GRP.engine_debug('i.group_amount: : '||i.group_amount);
11577: QP_PREQ_GRP.engine_debug('l_value_from_num: '||l_value_from_num);
11619: END IF;
11620: END IF;
11621:
11622: -- shu, for modifiers
11623: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11624: QP_PREQ_GRP.engine_debug('for modifiers...');
11625: QP_PREQ_GRP.engine_debug('line_index: '||i.line_index);
11626: QP_PREQ_GRP.engine_debug('list price: '||l_list_price);
11627: QP_PREQ_GRP.engine_debug('i.group_amount: '||i.group_amount);
11638: --Need the LINE_QUANTITY column to be updated for regular lines with volume attributes, for Calculation purposes
11639: IF (p_line_group_flag IS NULL and l_is_line_group_flag = 'F'
11640: and i.context = G_PRIC_VOLUME_CONTEXT) -- added for [5005328/4911264]
11641: THEN
11642: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11643: QP_PREQ_GRP.engine_debug('Line Index: ' || i.line_index || ' LD Index : ' || i.line_detail_index ||
11644: ' '||l_value_from_num);
11645: END IF;
11646: /*
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);
11677: END IF;
11678: x_status_code := FND_API.G_RET_STS_ERROR;
11679: x_status_text := l_routine||': '||SQLERRM;
11674: WHEN OTHERS THEN
11675: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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:
12075: else
12076: l_reduced_pbh_processing := G_NO;
12077: end if;
12078:
12079: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12080: engine_debug('G_BREAK_UOM_PRORATION ' || G_BREAK_UOM_PRORATION);
12081: engine_debug('p_list_type_code ' || p_list_type_code);
12082: engine_debug('G_REQUEST_TYPE_CODE ' || G_REQUEST_TYPE_CODE);
12083: engine_debug('l_reduced_pbh_processing ' || l_reduced_pbh_processing);
12091:
12092: -- julin [3805113]: bulk fetch
12093: IF (p_pricing_phase_id = 1 and G_MULTI_CURRENCY_PROFILE = G_YES
12094: and G_USE_MULTI_CURRENCY = G_YES) THEN
12095: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12096: engine_debug ('Multi-Currency Pricing Phase Price Break');
12097: END IF;
12098: OPEN l_price_break_detail_multi_cur(l_reduced_pbh_processing);
12099: FETCH l_price_break_detail_multi_cur BULK COLLECT INTO
12147: l_h_contract_start_date_tbl, -- R12 partial period pricing
12148: l_h_contract_end_date_tbl; -- R12 partial period pricing
12149: CLOSE l_price_break_detail_multi_cur;
12150: ELSE
12151: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12152: engine_debug ('Discounts Based Price Break');
12153: END IF;
12154: OPEN l_price_break_detail_cur(l_reduced_pbh_processing);
12155: FETCH l_price_break_detail_cur BULK COLLECT INTO
12208: IF (l_h_list_line_id_tbl.COUNT > 0) THEN
12209: FOR I in l_h_list_line_id_tbl.FIRST .. l_h_list_line_id_tbl.LAST
12210: LOOP
12211:
12212: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12213: engine_debug('Modifier_level_code: '||l_h_modifier_level_code_tbl(i));
12214: engine_debug('Attribute: '||l_h_ATTRIBUTE_tbl(i));
12215:
12216: END IF;
12218: l_h_modifier_level_code_tbl(i) = G_LINE_GROUP) THEN --since 0 value is now being considered in the cursor l_price_break_detail_cur --9475080 added
12219: IF l_h_modifier_level_code_tbl(i) = G_LINE_GROUP THEN
12220: IF l_h_attribute_tbl(i) = G_QUANTITY_ATTRIBUTE THEN
12221: l_quantity := p_group_quantity;
12222: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12223: engine_debug('l_quantity :'||l_quantity);
12224: END IF;
12225: l_selected_volume_attr := G_QUANTITY;
12226: ELSE
12229: END IF;
12230:
12231: IF (p_group_quantity <> l_quantity) THEN
12232:
12233: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12234: engine_debug('UOM l_quantity : '||l_quantity);
12235: engine_debug('UOM p_group_quantity :'||p_group_quantity);
12236:
12237: END IF;
12266: l_selected_volume_attr := G_QUANTITY;
12267:
12268: -- begin, shu fix
12269: ELSIF l_h_ATTRIBUTE_tbl(i) = 'PRICING_ATTRIBUTE20' THEN -- shulin, for fte total_item_quantity uom conversion
12270: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12271: engine_debug ('TOTAL_ITEM_QUANTITY...');
12272: END IF;
12273: IF (l_h_line_uom_code_tbl(i) = l_h_order_uom_code_tbl(i) ) THEN -- no uom conversion if pricing_uom_code is same as order_uom_code
12274: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12270: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12271: engine_debug ('TOTAL_ITEM_QUANTITY...');
12272: END IF;
12273: IF (l_h_line_uom_code_tbl(i) = l_h_order_uom_code_tbl(i) ) THEN -- no uom conversion if pricing_uom_code is same as order_uom_code
12274: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12275: engine_debug ('no uom conversion, pricing_uom_code is same as order_uom_code: '||l_h_line_uom_code_tbl(i));
12276: END IF;
12277: l_quantity := qp_number.canonical_to_number(l_h_value_from_tbl(i));
12278: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12274: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12275: engine_debug ('no uom conversion, pricing_uom_code is same as order_uom_code: '||l_h_line_uom_code_tbl(i));
12276: END IF;
12277: l_quantity := qp_number.canonical_to_number(l_h_value_from_tbl(i));
12278: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12279: engine_debug ('l_quantity: '||l_quantity);
12280: END IF;
12281: ELSE -- uom conversion
12282: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12278: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12279: engine_debug ('l_quantity: '||l_quantity);
12280: END IF;
12281: ELSE -- uom conversion
12282: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12283: engine_debug ('uom conversion...');
12284: engine_debug ('order_uom_code: '||l_h_order_uom_code_tbl(i));
12285: engine_debug ('primary_uom_code: '||l_h_product_uom_code_tbl(i));
12286: END IF;
12284: engine_debug ('order_uom_code: '||l_h_order_uom_code_tbl(i));
12285: engine_debug ('primary_uom_code: '||l_h_product_uom_code_tbl(i));
12286: END IF;
12287: l_total_item_quantity := qp_number.canonical_to_number(l_h_value_from_tbl(i));
12288: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12289: engine_debug ('l_quantity before uom convertion: '||l_total_item_quantity );
12290: END IF;
12291:
12292: convert_uom ( l_h_order_uom_code_tbl(i),
12294: l_total_item_quantity, --total_item_qty
12295: l_quantity, -- qty_after_uom_conversion
12296: l_status_code,
12297: l_status_text);
12298: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
12299: raise E_INVALID_UOM_CONVERSION;
12300: END IF;
12301:
12302: -- shu, fix bug2368445
12299: raise E_INVALID_UOM_CONVERSION;
12300: END IF;
12301:
12302: -- shu, fix bug2368445
12303: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12304: engine_debug ('l_quantity before rounded by inv_decimal_precision: '||l_quantity);
12305: engine_debug ('inv_decimal_precision: '||l_max_decimal_digits);
12306: END IF;
12307: IF (l_quantity IS NOT NULL AND l_max_decimal_digits IS NOT NULL) THEN -- it will have sql err if null
12305: engine_debug ('inv_decimal_precision: '||l_max_decimal_digits);
12306: END IF;
12307: IF (l_quantity IS NOT NULL AND l_max_decimal_digits IS NOT NULL) THEN -- it will have sql err if null
12308: l_quantity := round (l_quantity, l_max_decimal_digits);
12309: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12310: engine_debug ('l_quantity after rounded by inv_decimal_precision: '||l_quantity);
12311: END IF;
12312: END IF;
12313: END IF;
12353: ELSE
12354: l_value_to := qp_number.canonical_to_number(l_h_pricing_attr_val_to_tbl(i));
12355: END IF;
12356:
12357: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12358: engine_debug(l_routine||' Line quantity: '||l_quantity);
12359: engine_debug(l_routine||' value from: '||l_setup_value_from);
12360: engine_debug(l_routine||' value to : '||l_value_to);
12361: engine_debug(l_routine||' usage pricing type: '||l_h_usage_pricing_type_tbl(i));
12362:
12363: END IF;
12364:
12365: /* Proration Changes START */
12366: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12367: engine_debug(l_routine||' QP_CODE_CONTROL.CODE_RELEASE_LEVEL : '|| QP_CODE_CONTROL.CODE_RELEASE_LEVEL);
12368: engine_debug(l_routine||' profile QP_BREAK_UOM_PRORATION : '|| G_BREAK_UOM_PRORATION);
12369: engine_debug(l_routine||' G_REGULAR_USAGE_TYPE : '|| G_REGULAR_USAGE_TYPE);
12370: END IF;
12378: and G_BREAK_UOM_PRORATION = 'Y'
12379: and l_h_usage_pricing_type_tbl(i) = G_REGULAR_USAGE_TYPE
12380: then
12381:
12382: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12383: engine_debug(l_routine||' Proration allowed profile is set ');
12384: END IF;
12385:
12386: -- feb 22 toi comment start
12394: into l_break_uom_code, l_break_uom_context, l_break_uom_attribute
12395: from qp_npreq_ldets_tmp
12396: where line_detail_index = p_line_detail_index;
12397:
12398: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12399: engine_debug(l_routine||' l_break_uom_code = ' || l_break_uom_code);
12400: engine_debug(l_routine||' l_break_uom_context = ' || l_break_uom_context);
12401: engine_debug(l_routine||' l_break_uom_attribute = ' || l_break_uom_attribute);
12402: END IF;
12408: -- if break_uom is not set up, then no proration and proceed with normal price break evaluation
12409: -- feb 22 toi comment end
12410: -- price book
12411: IF nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) = G_YES THEN
12412: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12413: engine_debug('call from price book with proration ==> skip this break entirely');
12414: END IF;
12415: EXIT; -- exit big loop to stop processing remaining child lines
12416: END IF;
12426: and pricing_status_code = G_STATUS_UNCHANGED
12427: and attribute_type = G_PRICING_TYPE;
12428: end if; --l_first_time_flag = 'Y'
12429:
12430: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12431: engine_debug(l_routine||' l_passed_break_uom = '|| l_passed_break_uom);
12432: END IF;
12433:
12434: -- break uom has been passed, do the proration
12438: -- changed for R12 partial period pricing
12439: if (l_h_contract_start_date_tbl(i) is not null and
12440: l_h_contract_end_date_tbl(i) is not null)
12441: then
12442: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12443: engine_debug(l_routine||' OKS UOM conversion ');
12444: END IF;
12445:
12446: -- get the conversion factor by calling oks api
12463: raise e_proration_fac_oks_error;
12464: END IF;
12465: end if;
12466:
12467: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12468: engine_debug(l_routine||' l_proration_factor = '|| l_proration_factor);
12469: END IF;
12470:
12471: if l_proration_factor is not null then
12528: l_value_to := trunc(l_value_to * l_proration_factor);
12529: l_prev_prorated_to_value := l_value_to; -- store the prorated to value to determine prorated value from for next break if setup gap is 1
12530: else -- second break onwards
12531: l_gap := l_setup_value_from - l_prev_setup_to_value;
12532: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12533: engine_debug(l_routine||' l_gap = '|| l_gap);
12534: END IF;
12535: if l_gap = 0 then
12536: -- 4061138, only for continuous breaks
12535: if l_gap = 0 then
12536: -- 4061138, only for continuous breaks
12537: l_continuous_flag := TRUE;
12538: l_setup_value_from := l_setup_value_from * l_proration_factor;
12539: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12540: engine_debug(l_routine||' * continuous price break');
12541: END IF;
12542: elsif l_gap = 1 then
12543: -- non-continuous breaks with gap 1
12555: END IF;
12556: l_prev_prorated_to_value := l_value_to;
12557: end if; -- if l_first_time_flag
12558: end if; -- if l_proration_factor is not null
12559: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12560: engine_debug(l_routine||' l_setup_value_from = '|| l_setup_value_from);
12561: engine_debug(l_routine||' l_value_to = '|| l_value_to);
12562: END IF;
12563:
12561: engine_debug(l_routine||' l_value_to = '|| l_value_to);
12562: END IF;
12563:
12564: else
12565: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12566: engine_debug(l_routine||' Standard UOM conversion ');
12567: END IF;
12568:
12569: -- OKS profile is not set, do standard uom conversion
12573: l_setup_value_from, -- before conversion
12574: l_value_temp, -- after conversion
12575: l_status_code,
12576: l_status_text);
12577: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
12578: raise E_INVALID_UOM_CONVERSION;
12579: END IF;
12580:
12581: -- 4061138 continuous break
12585: END IF;
12586:
12587: l_setup_value_from := trunc(l_value_temp);
12588:
12589: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12590: engine_debug(l_routine||' l_setup_value_from = '|| l_setup_value_from);
12591: END IF;
12592:
12593: l_prev_setup_to_value := l_value_to; -- store the un-prorated to value to determine setup gap
12597: l_value_to, -- before conversion
12598: l_value_temp, -- after conversion
12599: l_status_code,
12600: l_status_text);
12601: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
12602: raise E_INVALID_UOM_CONVERSION;
12603: END IF;
12604:
12605: -- 4061138, rewritten for continuous break logic
12614: l_value_to := trunc(l_value_temp);
12615: END IF;
12616:
12617: l_prev_prorated_to_value := l_value_to; -- store the prorated to value to determine prorated value from for next break if setup gap is 1
12618: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12619: engine_debug(l_routine||' l_value_to = '|| l_value_to);
12620: END IF;
12621: else -- second breaks onwards
12622: l_gap := l_setup_value_from - l_prev_setup_to_value;
12619: engine_debug(l_routine||' l_value_to = '|| l_value_to);
12620: END IF;
12621: else -- second breaks onwards
12622: l_gap := l_setup_value_from - l_prev_setup_to_value;
12623: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12624: engine_debug(l_routine||' l_gap = '|| l_gap);
12625: END IF;
12626:
12627: if l_gap = 1 then
12635: l_setup_value_from, -- before conversion
12636: l_value_temp, -- after conversion
12637: l_status_code,
12638: l_status_text);
12639: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
12640: raise E_INVALID_UOM_CONVERSION;
12641: END IF;
12642:
12643: -- 4061138 continuous breaks
12643: -- 4061138 continuous breaks
12644: IF l_gap = 0 THEN
12645: l_continuous_flag := TRUE;
12646: l_setup_value_from := l_value_temp;
12647: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12648: engine_debug(l_routine||' * continuous price break');
12649: END IF;
12650: ELSE
12651: l_setup_value_from := trunc(l_value_temp);
12652: END IF;
12653:
12654: end if; -- if l_gap = 1
12655:
12656: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12657: engine_debug(l_routine||' l_setup_value_from = '|| l_setup_value_from);
12658: END IF;
12659:
12660: l_prev_setup_to_value := l_value_to;
12664: l_value_to, -- before conversion
12665: l_value_temp, -- after conversion
12666: l_status_code,
12667: l_status_text);
12668: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
12669: raise E_INVALID_UOM_CONVERSION;
12670: END IF;
12671:
12672: l_value_to := l_value_temp;
12674: l_value_to := trunc(l_value_to);
12675: END IF;
12676:
12677: l_prev_prorated_to_value := l_value_to; -- store the prorated to value to determine prorated value from for next break if setup gap is 1
12678: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12679: engine_debug(l_routine||' l_value_to = '|| l_value_to);
12680: END IF;
12681: end if; -- if l_first_time_flag
12682:
12684:
12685: exception
12686: when no_data_found then
12687: -- if proration attribute is not passed, then no proration
12688: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12689: engine_debug(l_routine||' no proration attribute passed ');
12690: END IF;
12691: null;
12692:
12691: null;
12692:
12693: when others then
12694: -- if proration attribute is not passed, then no proration
12695: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12696: engine_debug(l_routine||' others exception, trying to find whether proration attr passed');
12697: END IF;
12698: null;
12699: end;
12714: (l_h_usage_pricing_type_tbl(i) = G_AUTHORING_TYPE) OR -- for AUTHORING call
12715: (nvl(l_net_amount_flag, 'N') <> 'N')) --[julin/4671446] all net amount breaks pass here, to be qualified during calculation
12716: THEN
12717: l_VALID_PBH_FLAG := G_YES;
12718: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12719: engine_debug('In price break detail');
12720: END IF;
12721: END IF;
12722:
12770: IF (l_quantity BETWEEN l_h_pricing_attr_val_from_tbl(i-1)
12771: AND l_h_pricing_attr_val_to_tbl(i-1))
12772: THEN
12773: l_VALID_PBH_FLAG := G_YES;
12774: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12775: engine_debug(l_routine||' * passed between check after continuous break remapping');
12776: END IF;
12777: END IF;
12778: END IF;
12837: IF (l_VALID_PBH_FLAG = G_YES) THEN
12838: --FOR J IN 1..N-1 LOOP
12839:
12840:
12841: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12842: engine_debug('Inserting line_detail');
12843: END IF;
12844:
12845: -- julin [3805113]: bulk insert into qp_npreq_ldets_tmp
12935: UPDATE qp_npreq_ldets_tmp --upd3
12936: SET processed_flag = G_PROCESSED -- indicates that this PBH is processed
12937: WHERE line_detail_index = p_line_detail_index;
12938:
12939: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
12940: engine_debug('#L1');
12941: END IF;
12942:
12943: -- julin [3805113]: bulk insert into qp_npreq_line_attrs_tmp
12973: l_l_G_STATUS_NEW_tbl(J)
12974: );
12975: END IF;
12976:
12977: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
12978: engine_debug('#L2');
12979: END IF;
12980:
12981: -- julin [3805113]: bulk insert into qp_npreq_rltd_lines_tmp
13018: qp_number.canonical_to_number(l_h_pricing_attr_val_to_tbl(J)),
13019: l_l_quantity_tbl(J));
13020: END IF;
13021:
13022: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
13023: engine_debug('#L3');
13024: END IF;
13025: --END LOOP; --END J LOOP
13026:
13023: engine_debug('#L3');
13024: END IF;
13025: --END LOOP; --END J LOOP
13026:
13027: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
13028: engine_debug('#L4');
13029: END IF;
13030: ELSE
13031: --None of the child price break statifies, hence parent is disqualified
13028: engine_debug('#L4');
13029: END IF;
13030: ELSE
13031: --None of the child price break statifies, hence parent is disqualified
13032: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13033: engine_debug(l_routine||' CHILD LINES ARE NOT SATISFIED');
13034:
13035: END IF;
13036: x_is_break_satisfy := FALSE;
13036: x_is_break_satisfy := FALSE;
13037:
13038: END IF;
13039:
13040: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
13041: engine_debug('#L5');
13042: END IF;
13043:
13044: l_VALID_PBH_FLAG := 'N';
13046: l_quantity := NULL; --shu, reset
13047:
13048: EXCEPTION
13049: WHEN E_INVALID_PRICE_BREAK_TYPE THEN
13050: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13051: engine_debug('PRICE BREAK TYPE CODE IS NULL OR INVALID');
13052: END IF;
13053: SET_STATUS_CODE(G_STATUS_OTHER_ERRORS,
13054: 'PRICE BREAK TYPE CODE IS EITHER NULL OR INVALID: '||l_h_price_break_type_code_tbl(J)||'list_line_id: '|| l_h_list_line_id_tbl(J),
13057: 'LINES',
13058: l_status_code,
13059: l_status_text);
13060: WHEN E_INVALID_UOM_CONVERSION THEN-- shulin
13061: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13062: engine_debug('INVALID UOM CONVERSION FOR TOTAL_ITEM_QUANTITY');
13063: END IF;
13064: SET_STATUS_CODE(G_STATUS_OTHER_ERRORS,
13065: 'INVALID UOM CONVERSION FOR TOTAL_ITEM_QUANTITY : '||l_status_text,
13069: l_status_code,
13070: l_status_text);
13071: -- Proration Start
13072: WHEN e_proration_fac_oks_error then
13073: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13074: engine_debug('Error while calling oks api to get proration factor');
13075: END IF;
13076: SET_STATUS_CODE(G_STATUS_OTHER_ERRORS,
13077: 'Error while calling oks api to get proration factor',
13083:
13084: -- Proration End
13085:
13086: WHEN OTHERS THEN
13087: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13088: engine_debug('#Exception L6');
13089: engine_debug(l_routine || ' ' || SQLERRM);
13090: END IF;
13091: x_status_code := FND_API.G_RET_STS_ERROR;
13087: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13088: engine_debug('#Exception L6');
13089: engine_debug(l_routine || ' ' || SQLERRM);
13090: END IF;
13091: x_status_code := FND_API.G_RET_STS_ERROR;
13092: x_status_text := l_routine||': '||SQLERRM;
13093:
13094: END Handle_Break; --end procedure
13095:
13118: AND nvl(updated_flag,'N') = 'N'; -- to not delete passed adj by the calling app since updated_flag='Y'
13119:
13120: l_routine VARCHAR2(240):='QP_PREQ_GRP.Delete_invalid_PBH_Children';
13121: BEGIN
13122: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13123: engine_debug('in Delete_Invalid_PBH_Children');
13124: END IF;
13125: FOR I IN l_check_deleted_pbh_cur(p_line_index) LOOP
13126: /*
13145: END LOOP;
13146:
13147: EXCEPTION
13148: WHEN OTHERS THEN
13149: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13150: engine_debug(l_routine||' '||SQLERRM);
13151: END IF;
13152: x_status_code := FND_API.G_RET_STS_ERROR;
13153: x_status_text := l_routine||': '||SQLERRM;
13148: WHEN OTHERS THEN
13149: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13150: engine_debug(l_routine||' '||SQLERRM);
13151: END IF;
13152: x_status_code := FND_API.G_RET_STS_ERROR;
13153: x_status_text := l_routine||': '||SQLERRM;
13154: END Delete_Invalid_PBH_Children;
13155:
13156: /*+------------------------------------------------------------
13244: IF (G_LINE_INDEX_TBL_G.COUNT > 0) THEN
13245: FOR I in G_LINE_INDEX_TBL_G.FIRST .. G_LINE_INDEX_TBL_G.LAST
13246: LOOP
13247:
13248: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13249: engine_debug('Checking break for: '||g_list_line_id_tbl_g(i) || ' Line Index : ' || g_line_index_tbl_g(i));
13250: END IF;
13251:
13252: l_is_break_satisfy := TRUE;
13262: p_list_type_code => g_list_type_code_tbl_g(i),
13263: x_is_break_satisfy => l_is_break_satisfy,
13264: x_status_code => l_status_code,
13265: x_status_text => l_status_text);
13266: IF l_status_code=FND_API.G_RET_STS_ERROR THEN
13267: RAISE E_ROUTINE_ERRORS;
13268: END IF;
13269:
13270: IF(l_is_break_satisfy = FALSE) THEN
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);
13307: END IF;
13308: x_status_code := FND_API.G_RET_STS_ERROR;
13309: x_status_text := l_routine || ': ' ||l_status_text;
13304: WHEN E_ROUTINE_ERRORS THEN
13305: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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
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;
13315: x_status_code := FND_API.G_RET_STS_ERROR;
13316: x_status_text := l_routine||' '||SQLERRM;
13311: WHEN OTHERS THEN
13312: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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:
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');
13818: engine_debug('Pricing phase id: ' || p_pricing_phase_id);
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');
13818: engine_debug('Pricing phase id: ' || p_pricing_phase_id);
13819:
13820: END IF;
13821: -- Header Level Qualifiers Grouping
13822: --grouping for the records with header level qualifies
13823: -- +/- line level qualifiers.
13824:
13825: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13826: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13827: engine_debug('In grouping');
13828: END IF;
13829: FOR i IN header_level_qual_attrs_cur LOOP
13822: --grouping for the records with header level qualifies
13823: -- +/- line level qualifiers.
13824:
13825: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13826: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13827: engine_debug('In grouping');
13828: END IF;
13829: FOR i IN header_level_qual_attrs_cur LOOP
13830: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13826: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13827: engine_debug('In grouping');
13828: END IF;
13829: FOR i IN header_level_qual_attrs_cur LOOP
13830: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13831: engine_debug('-----------------------');
13832: engine_debug('list_header_id:'||i.list_header_id);
13833: engine_debug('list_line_id:'||i.list_line_id);
13834: engine_debug('line_index:'||i.line_index);
13844: IF (p_pricing_phase_id = G_PRICE_LIST_PHASE_ID) THEN
13845:
13846: FOR i IN header_level_qual_attrs_cur LOOP
13847: v_line_index := i.LINE_INDEX;
13848: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13849: engine_debug('Header Level Qualifier Attributes Passed');
13850:
13851: END IF;
13852: --this group is an AND condition for all qualifiers under the same header
13898: CLOSE hdr_lvl_setup_pl_quals_cur;
13899:
13900: l_setup_grp_count:= l_setup_grp_count - v_price_list_count ;
13901:
13902: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13903: engine_debug('Checking header lvl qualifier count');
13904: engine_debug('Header Level Qualifiers in setup: '||l_setup_grp_count);
13905:
13906: END IF;
13912: OPEN get_excluded_hdr_quals(i.line_index,i.list_header_id,i.grouping_number);
13913: FETCH get_excluded_hdr_quals into l_excluded_count;
13914: CLOSE get_excluded_hdr_quals;
13915:
13916: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13917: engine_debug('Excluded quals : '||l_excluded_count || ' Grouping Number:' || i.grouping_number);
13918:
13919: END IF;
13920: -- l_null_excl_count is applicable when NOT= , or BETWEEN is there on the NULL grouping number
13929: ELSE
13930: l_passed_in_cnt := l_passed_in_cnt - nvl(l_excluded_count,0) - nvl(l_null_excl_count,0);
13931: END IF;
13932:
13933: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13934: engine_debug('Null Excluded quals : '||l_null_excl_count);
13935: engine_debug('Header Level Qualifiers passsed in: '||l_passed_in_cnt);
13936:
13937: END IF;
13950: OPEN is_not_null_grp_passed2(i.line_index,i.list_header_id);
13951: FETCH is_not_null_grp_passed2 into l_dummy;
13952: IF is_not_null_grp_passed2%NOTFOUND THEN
13953: -- other required grp is not passed
13954: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13955: engine_debug('Update #7');
13956: END IF;
13957: l_deleted_flag := TRUE;
13958: l_ind := l_ind+1;
13959: l_del_tbl(l_ind):= i.LINE_DETAIL_INDEX;
13960: END IF;
13961: CLOSE is_not_null_grp_passed2;
13962: ELSE
13963: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13964: engine_debug ('Successful on Header Level Quals Success Flag');
13965: END IF;
13966: l_success_ind_flag := G_YES; -- Mark it as success , for line level quals evaluation
13967: --l_success_ind := l_success_ind+1;
13968: --l_success_tbl(l_success_ind):= i.LINE_DETAIL_INDEX;
13969: END IF; --is a pure null grp
13970: CLOSE is_not_null_grp_exists2;
13971: ELSE
13972: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13973: engine_debug ('Successful on Header Level Quals Success Flag Not null Group');
13974: END IF;
13975: l_success_ind_flag := G_YES;
13976: --l_success_ind := l_success_ind+1;
13976: --l_success_ind := l_success_ind+1;
13977: --l_success_tbl(l_success_ind):= i.LINE_DETAIL_INDEX;
13978: END IF;
13979:
13980: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13981: engine_debug('Line Level Quals LH Id :' || i.list_header_id);
13982: engine_debug('Line Level Quals LL Id :' || i.list_line_id);
13983:
13984: END IF;
13987: l_has_setup_line_lvl := FALSE;
13988: l_has_passed_in_line_lvl := FALSE;
13989:
13990: IF line_lvl_setup_exist_cur%FOUND AND l_deleted_flag = FALSE THEN --has line level qualifiers
13991: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13992: engine_debug('Has Line Level Qualifiers');
13993: END IF;
13994: l_has_setup_line_lvl := TRUE;
13995: FOR k IN line_level_qual_attrs_cur(i.LIST_HEADER_ID,i.list_line_id) LOOP
14021: IF k.grouping_number = -1 THEN
14022: OPEN line_setup_null_group_cur(K.list_header_id,K.list_line_id);
14023: FETCH line_setup_null_group_cur INTO l_setup_grp_count2;
14024: CLOSE line_setup_null_group_cur;
14025: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14026: engine_debug('Setup grp null cnt: '||l_setup_grp_count2);
14027: END IF;
14028: ELSE
14029: OPEN line_setup_null_group_cur(K.list_header_id,K.list_line_id);
14033: OPEN line_level_setup_quals_cur(K.list_header_id,K.list_line_id,K.grouping_number);
14034: FETCH line_level_setup_quals_cur INTO l_setup_grp_count2;
14035: CLOSE line_level_setup_quals_cur;
14036:
14037: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14038: engine_debug('setup grp cnt: '||l_setup_grp_count2);
14039: END IF;
14040: l_setup_grp_count2 := l_setup_grp_count2 + l_setup_null_grp_cnt2;
14041: END IF;
14046: CLOSE line_level_setup_pl_quals_cur;
14047:
14048: l_setup_grp_count2 := l_setup_grp_count2 - v_price_list_count;
14049:
14050: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14051: engine_debug('Null Line Level Quals count in Setup: '||l_setup_null_grp_cnt2);
14052: engine_debug('Passed in null line level quals count: '|| l_null_grp_cnt2);
14053:
14054: END IF;
14060: OPEN get_excluded_line_quals(k.line_index,k.list_header_id,k.list_line_id,k.grouping_number);
14061: FETCH get_excluded_line_quals into l_excluded_count;
14062: CLOSE get_excluded_line_quals;
14063:
14064: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14065: engine_debug('Excluded Line quals : '||l_excluded_count);
14066:
14067: END IF;
14068: IF (i.grouping_number = -1) THEN
14071: ELSE
14072: l_passed_in_cnt2 := l_passed_in_cnt2 - nvl(l_excluded_count,0) - nvl(l_null_excl_count1,0);
14073: END IF;
14074:
14075: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14076: engine_debug('Passed in line lvl count: '||l_passed_in_cnt2);
14077: engine_debug('Line Level Quals count in Setup: '||l_setup_grp_count2);
14078:
14079: END IF;
14078:
14079: END IF;
14080: IF(l_passed_in_cnt2 >= l_setup_grp_count2) THEN
14081: IF k.grouping_number = -1 THEN
14082: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14083: engine_debug('Line Level Quals #123');
14084: END IF;
14085: --check if this is a pure null grp, if no, and other
14086: OPEN is_not_null_grp_exists(k.list_header_id,k.list_line_id);
14090: OPEN is_not_null_grp_passed(k.line_index,k.list_line_id,k.list_header_id);
14091: FETCH is_not_null_grp_passed into l_dummy;
14092: IF is_not_null_grp_passed%NOTFOUND THEN
14093: --no other required grp passed
14094: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14095: engine_debug('Update #7');
14096: END IF;
14097: l_ind := l_ind+1;
14098: l_del_tbl(l_ind):= k.LINE_DETAIL_INDEX;
14098: l_del_tbl(l_ind):= k.LINE_DETAIL_INDEX;
14099: END IF;
14100: CLOSE is_not_null_grp_passed;
14101: ELSE
14102: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14103: engine_debug('Pure Null Line Level Quals #124');
14104: END IF;
14105: l_success_ind := l_success_ind+1;
14106: l_success_tbl(l_success_ind):= i.line_detail_index;
14110: l_success_ind := l_success_ind+1;
14111: l_success_tbl(l_success_ind):= k.LINE_DETAIL_INDEX;
14112: END IF;
14113: ELSE -- Count did not match
14114: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14115: engine_debug ('Not successful on the Line Level Qualifiers Count Mismatch: ' || k.LIST_LINE_ID);
14116: engine_debug('The whole List Line is getting deleted');
14117: engine_debug('Update #1');
14118: END IF;
14121: END IF;
14122: END LOOP; --end K loop
14123: --we need to delete lists that has line lvl qualifier but not passed in.
14124: IF (l_has_passed_in_line_lvl = FALSE) THEN
14125: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14126: engine_debug ('Fails in line lvl bcause exists in Setup but Not Passed');
14127: engine_debug('List header id that has line level qualifier:'|| i.list_header_id);
14128: engine_debug('The whole List Line is getting deleted#1');
14129: engine_debug('Update #2');
14133: END IF;
14134: ELSE
14135: -- No line level qualifiers exist , but header level quals satisfied
14136: IF(l_success_ind_flag = G_YES) THEN
14137: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14138: engine_debug('Header Level Quals satisfied and no line level quals exist');
14139: END IF;
14140: l_success_ind := l_success_ind+1;
14141: l_success_tbl(l_success_ind):= i.line_detail_index;
14143: END IF; -- end if for line_lvl_setup_exist_cur%FOUND
14144: CLOSE line_lvl_setup_exist_cur;
14145: ELSE --else for if (i.NO_OF_QUALIFIER_IN_GRP + l_null_grp_cnt >= l_setup_grp_count)
14146: --grouping count did not match for header level qualifier
14147: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14148: engine_debug('Header lvl qualifier doesn''t match');
14149: engine_debug('Update #3');
14150: END IF;
14151: l_ind := l_ind+1;
14153: END IF; --end if for if (i.NO_OF_QUALIFIER_IN_GRP + l_null_grp_cnt >= l_setup_grp_count)
14154: END LOOP; --end i loop
14155: l_status_text := '#2';
14156:
14157: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14158: engine_debug('Deleted Line Details in Table');
14159: END IF;
14160: FOR i in 1..l_del_tbl.count
14161: LOOP
14158: engine_debug('Deleted Line Details in Table');
14159: END IF;
14160: FOR i in 1..l_del_tbl.count
14161: LOOP
14162: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14163: engine_debug('Line Detail Index: ' || l_del_tbl(i));
14164: END IF;
14165: END LOOP;
14166:
14163: engine_debug('Line Detail Index: ' || l_del_tbl(i));
14164: END IF;
14165: END LOOP;
14166:
14167: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14168: engine_debug('Successful Line Details in Table');
14169: END IF;
14170: FOR i in 1..l_success_tbl.count
14171: LOOP
14168: engine_debug('Successful Line Details in Table');
14169: END IF;
14170: FOR i in 1..l_success_tbl.count
14171: LOOP
14172: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14173: engine_debug('Line Detail Index: ' || l_success_tbl(i));
14174: END IF;
14175: END LOOP;
14176:
14216: l_ind:=0;
14217: l_success_ind:=0;
14218: l_status_text :='#3';
14219:
14220: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14221: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14222: engine_debug('In Pure Line Level grouping');
14223: END IF;
14224: FOR k IN line_level_qual_attrs_cur2 LOOP
14217: l_success_ind:=0;
14218: l_status_text :='#3';
14219:
14220: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14221: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14222: engine_debug('In Pure Line Level grouping');
14223: END IF;
14224: FOR k IN line_level_qual_attrs_cur2 LOOP
14225: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14221: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14222: engine_debug('In Pure Line Level grouping');
14223: END IF;
14224: FOR k IN line_level_qual_attrs_cur2 LOOP
14225: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14226: engine_debug('-----------------------');
14227: engine_debug('list_header_id:'||k.list_header_id);
14228: engine_debug('list_line_id:'||k.list_line_id);
14229: engine_debug('line_index:'||k.line_index);
14293: OPEN get_excluded_line_quals(k.line_index,k.list_header_id,k.list_line_id,k.grouping_number);
14294: FETCH get_excluded_line_quals into l_excluded_count;
14295: CLOSE get_excluded_line_quals;
14296:
14297: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14298: engine_debug('Excluded Pure Line Level quals : '||l_excluded_count);
14299:
14300: END IF;
14301: -- l_null_excl_count is applicable when NOT= is there on the NULL grouping number and that gets D_EXCL
14323: OPEN is_not_null_grp_passed(k.line_index,k.list_line_id,k.list_header_id);
14324: FETCH is_not_null_grp_passed into l_dummy;
14325: IF is_not_null_grp_passed%NOTFOUND THEN
14326: --no other required grp passed
14327: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14328: engine_debug('Update #6');
14329: END IF;
14330: l_ind := l_ind+1;
14331: l_del_tbl(l_ind):= k.LINE_DETAIL_INDEX;
14347: --previous header_level +/- line level check operation. It didn't get updated
14348: --that means no header level qualifier has passed in, hence we need to eliminate this
14349: --list line
14350: IF header_level_quals_exist_cur%NOTFOUND THEN
14351: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14352: engine_debug('--------------------------------------');
14353: engine_debug('Deleting list line id:'||K.list_line_id);
14354: engine_debug('Update #4');
14355: END IF;
14367: CLOSE hdr_lvl_setup_quals_exist_cur;
14368: END IF;
14369:
14370: ELSE -- Count did not match
14371: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14372: engine_debug ('Not successful on the Line Level Qualifiers Count Mismatch: ' || k.LIST_LINE_ID);
14373: engine_debug('The whole List Line is getting deleted');
14374: engine_debug('Update #5');
14375:
14380: END IF;
14381: END LOOP; --end K loop
14382: l_status_text := '#4';
14383:
14384: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14385: engine_debug('Deleted Line Details in Pure Line Grouping Table');
14386: END IF;
14387: FOR i in 1..l_del_tbl.count
14388: LOOP
14385: engine_debug('Deleted Line Details in Pure Line Grouping Table');
14386: END IF;
14387: FOR i in 1..l_del_tbl.count
14388: LOOP
14389: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14390: engine_debug('Line Detail Index: ' || l_del_tbl(i));
14391: END IF;
14392: END LOOP;
14393:
14409: AND ATTRIBUTE_TYPE = G_QUALIFIER_TYPE; */
14410:
14411: END IF;
14412:
14413: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14414: engine_debug('Successful Line Details in Pure Line Grouping Table');
14415: END IF;
14416: FOR i in 1..l_success_tbl.count
14417: LOOP
14414: engine_debug('Successful Line Details in Pure Line Grouping Table');
14415: END IF;
14416: FOR i in 1..l_success_tbl.count
14417: LOOP
14418: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14419: engine_debug('Line Detail Index: ' || l_success_tbl(i));
14420: END IF;
14421: END LOOP;
14422:
14464:
14465: IF (G_LINE_INDEX_TBL_G.COUNT > 0) THEN
14466: FOR I in G_LINE_INDEX_TBL_G.FIRST .. G_LINE_INDEX_TBL_G.LAST
14467: LOOP
14468: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14469: engine_debug('Went into product grouping');
14470:
14471: END IF;
14472: OPEN get_excluded_prods_between(G_LINE_INDEX_TBL_G(I),G_LIST_HEADER_ID_TBL_G(I),G_LIST_LINE_ID_TBL_G(I));
14472: OPEN get_excluded_prods_between(G_LINE_INDEX_TBL_G(I),G_LIST_HEADER_ID_TBL_G(I),G_LIST_LINE_ID_TBL_G(I));
14473: FETCH get_excluded_prods_between INTO l_excl_prod_count;
14474: CLOSE get_excluded_prods_between;
14475:
14476: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14477: engine_debug('Product list line id:'||G_LIST_LINE_ID_TBL_G(I));
14478: engine_debug('Product Between Exclude Count:'||l_excl_prod_count);
14479:
14480: END IF;
14479:
14480: END IF;
14481: -- If this line already got deleted as part of between , then delete this line
14482: IF (l_excl_prod_count > 0 ) THEN
14483: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14484: engine_debug('Getting Deleted in Product Grouping');
14485:
14486: END IF;
14487: /*
14512: ELSE
14513: FOR j IN product_level_setup_attrs_cur(G_LIST_LINE_ID_TBL_G(I))
14514: LOOP
14515:
14516: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14517: engine_debug('product level attrs no '||g_no_of_patts_in_grp_tbl_g(I));
14518: engine_debug('product level set up attrs no '||j.no_of_patts_in_grp);
14519:
14520: END IF;
14518: engine_debug('product level set up attrs no '||j.no_of_patts_in_grp);
14519:
14520: END IF;
14521: IF (G_NO_OF_PATTS_IN_GRP_TBL_G(I) = j.NO_OF_PATTS_IN_GRP) THEN
14522: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14523: engine_debug ('Successful on the product grouping: ' || G_LIST_LINE_ID_TBL_G(I));
14524: END IF;
14525: ELSE
14526: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14522: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14523: engine_debug ('Successful on the product grouping: ' || G_LIST_LINE_ID_TBL_G(I));
14524: END IF;
14525: ELSE
14526: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14527: engine_debug('Getting Deleted in Product Grouping');
14528: END IF;
14529: /*
14530: INDX,QP_PREQ_GRP.perform_grouping.upd6,qp_npreq_ldets_tmp_N1,LINE_INDEX,1
14571: SET PRICING_STATUS_CODE = G_STATUS_NEW
14572: WHERE PRICING_PHASE_ID = p_pricing_phase_id
14573: AND PRICING_STATUS_CODE = G_STATUS_NEW
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
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);
14583: END IF;
14584: x_status_code:= FND_API.G_RET_STS_ERROR;
14585: x_status_text:= 'In perform grouping '||SQLERRM||' '||l_status_text;
14580: WHEN OTHERS THEN
14581: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14582: engine_debug(SQLERRM);
14583: END IF;
14584: x_status_code:= FND_API.G_RET_STS_ERROR;
14585: x_status_text:= 'In perform grouping '||SQLERRM||' '||l_status_text;
14586: END PERFORM_GROUPING;
14587:
14588: /*+--------------------------------------------------------
14600: BEGIN
14601:
14602: --Update The Request Lines That Have
14603: --No List Header Passed , so that big search can look at it
14604: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14605: engine_debug ('In Procedure Update_Price_List_Information...');
14606: END IF;
14607: /*
14608: INDX,QP_PREQ_GRP.update_price_list_information.update_price_list_information_sel1,qp_npreq_line_attrs_tmp_N1,LINE_INDEX,1
14623: AND (price_flag = G_YES OR --[julin/4708044]
14624: (price_flag = G_PHASE AND p_freeze_override_flag = G_YES));
14625: END IF;
14626:
14627: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14628: engine_debug ('after update1...');
14629: END IF;
14630:
14631: /*
14659: --AND a.PRICE_LIST_HEADER_ID < 0 )
14660: --WHERE a.PRICE_LIST_HEADER_ID < 0;
14661: END IF;
14662:
14663: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14664: engine_debug ('after update2');
14665: END IF;
14666:
14667: -- To clear the unit_price if the call is from public API
14665: END IF;
14666:
14667: -- To clear the unit_price if the call is from public API
14668: IF (G_PUBLIC_API_CALL_FLAG = G_YES) THEN
14669: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14670: engine_debug('Call from Public API , Update_Price_List_Information');
14671: END IF;
14672: IF (G_PRICE_PHASE_FLAG = TRUE AND G_MANUAL_ADJUSTMENTS_CALL_FLAG = G_NO) THEN
14673: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14669: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14670: engine_debug('Call from Public API , Update_Price_List_Information');
14671: END IF;
14672: IF (G_PRICE_PHASE_FLAG = TRUE AND G_MANUAL_ADJUSTMENTS_CALL_FLAG = G_NO) THEN
14673: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14674: engine_debug('Trying to Update Unit Price To Null');
14675: END IF;
14676: UPDATE qp_npreq_lines_tmp a
14677: SET unit_price = NULL
14683: AND list_price_override_flag = 'N';
14684: END IF;
14685: END IF;
14686:
14687: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14688: engine_debug ('after update3');
14689: END IF;
14690:
14691: /*
14721: WHERE LIST_HEADER_ID = a.PRICE_LIST_HEADER_ID
14722: AND QUALIFICATION_IND IN (QP_PREQ_GRP.G_YES_PROD_PRIC_HDR_QUAL_IND,QP_PREQ_GRP.G_YES_PROD_PRIC_IND)
14723: AND ROWNUM = 1) ;
14724: END IF;
14725: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14726: engine_debug ('after update4');
14727: END IF;
14728:
14729: EXCEPTION
14728:
14729: EXCEPTION
14730:
14731: WHEN OTHERS THEN
14732: x_status_code:= FND_API.G_RET_STS_ERROR;
14733: x_status_text:= 'QP_PREQ_GRP.Update_Price_List_Information: '||SQLERRM;
14734: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14735: engine_debug(l_routine||' '||SQLERRM);
14736: END IF;
14730:
14731: WHEN OTHERS THEN
14732: x_status_code:= FND_API.G_RET_STS_ERROR;
14733: x_status_text:= 'QP_PREQ_GRP.Update_Price_List_Information: '||SQLERRM;
14734: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14735: engine_debug(l_routine||' '||SQLERRM);
14736: END IF;
14737:
14738: END Update_Price_List_Information;
14831: AND c.VALIDATED_FLAG = G_NO ;
14832:
14833: EXCEPTION
14834: WHEN OTHERS THEN
14835: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14836: engine_debug(l_routine||' '||SQLERRM);
14837: END IF;
14838: x_status_code := FND_API.G_RET_STS_ERROR;
14839: x_status_text := 'Error in '||l_routine||SQLERRM;
14834: WHEN OTHERS THEN
14835: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14836: engine_debug(l_routine||' '||SQLERRM);
14837: END IF;
14838: x_status_code := FND_API.G_RET_STS_ERROR;
14839: x_status_text := 'Error in '||l_routine||SQLERRM;
14840: END Update_Sec_Price_List_Info;
14841:
14842: /*+--------------------------------------------------------
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);
16306: END IF;
16307:
16308:
16306: END IF;
16307:
16308:
16309: Update_Sec_Price_List_Info(l_status_code,l_status_text);
16310: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
16311: RAISE E_ROUTINE_ERRORS;
16312: END IF;
16313:
16314: -- julin [3805113]: prepare global tables for INSERT_LDETS2
16376: G_PRIMARY_UOM_FLAG_TBL_A.delete;
16377:
16378: -- julin [3805113]: bulk fetch
16379: IF G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
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');
16453: EXIT WHEN l_h_line_index_tbl.COUNT = 0;
16454:
16455: FOR I in l_h_line_index_tbl.first .. l_h_line_index_tbl.last
16456: LOOP
16457: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16458: engine_debug('item found in secondary list');
16459: END IF;
16460: IF (ls_line_index <> l_h_line_index_tbl(I) OR ls_list_line_id <> l_h_list_line_id_tbl(I)) THEN
16461: l_line_detail_index := GET_LINE_DETAIL_INDEX;
16458: engine_debug('item found in secondary list');
16459: END IF;
16460: IF (ls_line_index <> l_h_line_index_tbl(I) OR ls_list_line_id <> l_h_list_line_id_tbl(I)) THEN
16461: l_line_detail_index := GET_LINE_DETAIL_INDEX;
16462: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16463: engine_debug('Inserting Secondary Price List Detail');
16464: END IF;
16465: G_LINE_DETAIL_INDEX_TBL(D) := l_line_detail_index;
16466: G_LINE_DETAIL_TYPE_CODE_TBL(D) := 'NULL';
16499: ls_line_index := l_h_line_index_tbl(I);
16500: ls_list_line_id := l_h_list_line_id_tbl(I);
16501: END IF;
16502:
16503: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16504: engine_debug('----BEFORE INSERTING SECONDARY PRODUCT ATTRS -------');
16505: engine_debug('Qualifier Precedence : ' || l_h_qual_precedence_tbl(I));
16506: END IF;
16507:
16537: M:= M+1;
16538:
16539: --INSERT PRICING ATTRIBUTES
16540: IF (l_h_pric_ATTR_CONTEXT_tbl(I) IS NOT NULL) THEN
16541: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16542: engine_debug('----BEFORE INSERTING SECONDARY PRICING ATTRS -------');
16543: END IF;
16544: G_LINE_INDEX_TBL_A(M) := l_h_LINE_INDEX_tbl(I);
16545: G_LINE_DETAIL_INDEX_TBL_A(M) := L_LINE_DETAIL_INDEX;
16606: G_PRIMARY_UOM_FLAG_TBL_A(M) := l_h_PRIMARY_UOM_FLAG_tbl(I);
16607: M:= M+1;
16608: END IF;
16609:
16610: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16611: engine_debug('AFTER END IF SECONDARY PRICE_LIST');
16612: END IF;
16613: l_loop_count := l_loop_count +1;
16614: END LOOP; -- K
16672: EXIT WHEN l_h_line_index_tbl.COUNT = 0;
16673:
16674: FOR I in l_h_line_index_tbl.first .. l_h_line_index_tbl.last
16675: LOOP
16676: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16677: engine_debug('item found in secondary list');
16678: END IF;
16679:
16680: IF (ls_line_index <> l_h_line_index_tbl(I) OR ls_list_line_id <> l_h_list_line_id_tbl(I)) THEN
16678: END IF;
16679:
16680: IF (ls_line_index <> l_h_line_index_tbl(I) OR ls_list_line_id <> l_h_list_line_id_tbl(I)) THEN
16681: l_line_detail_index := GET_LINE_DETAIL_INDEX;
16682: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16683: engine_debug('Inserting Secondary Price List Detail');
16684: END IF;
16685: G_LINE_DETAIL_INDEX_TBL(D) := l_line_detail_index;
16686: G_LINE_DETAIL_TYPE_CODE_TBL(D) := 'NULL';
16720: ls_list_line_id := l_h_list_line_id_tbl(I);
16721: END IF;
16722:
16723:
16724: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16725: engine_debug('----BEFORE INSERTING SECONDARY PRODUCT ATTRS -------');
16726: engine_debug('Qualifier Precedence : ' || l_h_qual_precedence_tbl(I));
16727: END IF;
16728:
16758: M:= M+1;
16759:
16760: --INSERT PRICING ATTRIBUTES
16761: IF (l_h_pric_ATTR_CONTEXT_tbl(I) IS NOT NULL) THEN
16762: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16763: engine_debug('----BEFORE INSERTING SECONDARY PRICING ATTRS -------');
16764: END IF;
16765: G_LINE_INDEX_TBL_A(M) := l_h_LINE_INDEX_tbl(I);
16766: G_LINE_DETAIL_INDEX_TBL_A(M) := L_LINE_DETAIL_INDEX;
16827: G_PRIMARY_UOM_FLAG_TBL_A(M) := l_h_PRIMARY_UOM_FLAG_tbl(I);
16828: M:= M+1;
16829: END IF;
16830:
16831: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16832: engine_debug('AFTER END IF SECONDARY PRICE_LIST');
16833: END IF;
16834: l_loop_count := l_loop_count +1;
16835: END LOOP; -- K
16960:
16961: --Evaluating between operator for both qualifiers and pricing attributes
16962: Evaluate_Between(G_PRICE_LIST_PHASE_ID,NULL,NULL,l_status_code,l_status_text);
16963:
16964: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16965: RAISE E_ROUTINE_ERRORS;
16966: END IF;
16967:
16968: -- Check for multiple item categories and customer classes
16967:
16968: -- Check for multiple item categories and customer classes
16969: Eliminate_Multiple_Hierarchies(G_PRICE_LIST_PHASE_ID,l_status_code,l_status_text);
16970:
16971: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16972: RAISE E_ROUTINE_ERRORS;
16973: END IF;
16974:
16975: --Handle_Excluder(G_PRICE_LIST_PHASE_ID,NULL,l_status_code,l_status_text);
16975: --Handle_Excluder(G_PRICE_LIST_PHASE_ID,NULL,l_status_code,l_status_text);
16976:
16977: Perform_Grouping(G_PRICE_LIST_PHASE_ID, NULL, l_status_code, l_status_text);
16978:
16979: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16980: RAISE E_ROUTINE_ERRORS;
16981: END IF;
16982:
16983: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16979: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16980: RAISE E_ROUTINE_ERRORS;
16981: END IF;
16982:
16983: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16984: engine_debug('Secondary Price List Grouping Return Status : ' || l_status_code);
16985:
16986:
16987: END IF;
16994: x_list_line_id => l_list_line_id,
16995: x_return_status => l_status_code,
16996: x_return_status_txt => l_status_text);
16997:
16998: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16999: RAISE E_ROUTINE_ERRORS;
17000: END IF;
17001:
17002: -- 3773652
17018:
17019: -- Update the request line status for lines which got valid price list
17020: Update_Request_Line_Status(p_control_rec,'SUCCESS',p_freeze_override_flag,l_status_code,l_status_text); --[julin/4708044]
17021:
17022: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
17023: RAISE E_ROUTINE_ERRORS;
17024: END IF;
17025:
17026: --bug# 2091386 not reflecting the right price on change on UOM on the order line . Since
17030: --By doing this we will get the right price in the PRICE event on change of UOM on the order line
17031: --for price based on price break
17032: Get_Eligible_Price_Break(G_PRICE_LIST_PHASE_ID,NULL,l_status_code,l_status_text);
17033:
17034: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
17035: RAISE E_ROUTINE_ERRORS;
17036: END IF;
17037:
17038:
17047: CLOSE l_chk_deleted_pbh_cur; */
17048: ELSE
17049: -- Update the request line status for lines which got valid price list
17050: Update_Request_Line_Status(p_control_rec,'FAILURE',p_freeze_override_flag,l_status_code,l_status_text); --[juiln/4708044]
17051: IF(l_status_code = FND_API.G_RET_STS_ERROR) 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
17061: engine_debug(l_routine||': '||l_status_text);
17062: END IF;
17063: x_status_code := FND_API.G_RET_STS_ERROR;
17064: x_status_text := l_routine||': '||l_status_text;
17059: WHEN E_ROUTINE_ERRORS THEN
17060: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
17061: engine_debug(l_routine||': '||l_status_text);
17062: END IF;
17063: x_status_code := FND_API.G_RET_STS_ERROR;
17064: x_status_text := l_routine||': '||l_status_text;
17065: WHEN OTHERS THEN
17066: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
17067: engine_debug(SQLERRM);
17062: END IF;
17063: x_status_code := FND_API.G_RET_STS_ERROR;
17064: x_status_text := l_routine||': '||l_status_text;
17065: WHEN OTHERS THEN
17066: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
17067: engine_debug(SQLERRM);
17068: END IF;
17069: x_status_code := FND_API.G_RET_STS_ERROR;
17070: x_status_text := l_routine||' '||SQLERRM;
17065: WHEN OTHERS THEN
17066: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
17067: engine_debug(SQLERRM);
17068: END IF;
17069: x_status_code := FND_API.G_RET_STS_ERROR;
17070: x_status_text := l_routine||' '||SQLERRM;
17071:
17072: END Perform_Secondary_Search;
17073:
19560:
19561: E_ROUTINE_ERRORS EXCEPTION;
19562: BEGIN
19563:
19564: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19565: engine_debug('IN '|| L_ROUTINE);
19566:
19567: END IF;
19568:
19565: engine_debug('IN '|| L_ROUTINE);
19566:
19567: END IF;
19568:
19569: x_status_code := FND_API.G_RET_STS_SUCCESS;
19570:
19571: IF (p_pricing_phase_id <> G_PRICE_LIST_PHASE_ID) THEN -- Only for modifiers ask for list headers/lines
19572:
19573: IF (nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) <> G_YES) THEN -- price book
19583: lq_line_index := -9999;
19584: lq_list_line_id := -9999;
19585:
19586: L_LIST_HEADER_ID := TO_NUMBER(J.VALUE_FROM);
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');
19596: P_FREEZE_OVERRIDE_FLAG)
19597: LOOP
19598: IF (lq_line_index <> j.line_index OR lq_list_line_id <> k.list_line_id) THEN
19599:
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');
19718: lq_line_index := -9999;
19719: lq_list_line_id := -9999;
19720:
19721: L_LIST_LINE_ID := to_number(J.VALUE_FROM);
19722: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19723: ENGINE_DEBUG('Asked For List Line ID:'||L_LIST_LINE_ID || 'Line : ' || J.LINE_INDEX);
19724: ENGINE_DEBUG('Pricing Phase Id:'||p_pricing_phase_id );
19725:
19726: END IF;
19731: L_LIST_LINE_ID,
19732: P_FREEZE_OVERRIDE_FLAG)
19733: LOOP
19734: IF (lq_line_index <> j.line_index OR lq_list_line_id <> k.list_line_id) THEN
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');
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;
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;
19907: lq_line_index := -9999;
19908: lq_list_line_id := -9999;
19909:
19910: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
19911: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19912: engine_debug('cursor open l_list_cur_currency-multi-currency TRUE');
19913:
19914: END IF;
19915: OPEN l_list_cur_currency;
19960: G_DERIVED_QUALIFIER_FLAG_TBL_Q.delete; -- Added for TCA
19961: G_PRICE_BREAK_TYPE_CODE_TBL_P.delete;
19962:
19963: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
19964: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19965: engine_debug('cursor l_list_cur_currency-multi-currency TRUE - delete tables');
19966: END IF;
19967: G_CURRENCY_DETAIL_ID_TBL_P.delete; /* sunilpandey */
19968: G_CURRENCY_HEADER_ID_TBL_P.delete; /* vivek */
19972: G_BASE_CURRENCY_CODE_TBL_P.delete; /* vivek */
19973: end if; /* vivek */
19974:
19975: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
19976: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19977: engine_debug('cursor l_list_cur_currency-multi-currency TRUE - bulk fetch');
19978:
19979: END IF;
19980:
20106: G_BREAK_CONTEXT_TBL(M) :=G_BREAK_CONTEXT_TBL_P(I); /* Proration */
20107: G_BREAK_ATTRIBUTE_TBL(M) :=G_BREAK_ATTRIBUTE_TBL_P(I); /* Proration */
20108: if G_MULTI_CURRENCY_PROFILE = 'Y' and
20109: G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20110: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20111: engine_debug('cursor l_list_cur_currency-multi-currency TRUE - populate tables');
20112: END IF;
20113: G_CURRENCY_DETAIL_ID_TBL(M) := G_CURRENCY_DETAIL_ID_TBL_P(I); /* sunilpandey */
20114: G_CURRENCY_HEADER_ID_TBL(M) := G_CURRENCY_HEADER_ID_TBL_P(I); /* vivek */
20119: end if; /* vivek */
20120: M := M + 1;
20121: lq_line_index := g_line_index_tbl_p(I);
20122: lq_list_line_id := g_list_line_id_tbl_p(I);
20123: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20124: engine_debug('Rounding Factor: ' || g_rounding_factor_tbl_p(i));
20125: END IF;
20126: END IF;
20127:
20189: K:= K+1;
20190: END IF;
20191:
20192: l_loop_count := l_loop_count +1;
20193: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20194: engine_debug('Primary List Validated Search Count : ' || l_loop_count);
20195: END IF;
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;
20205: CLOSE l_list_cur_currency;
20206:
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;
20221: INSERT_LDETS_PRICE_LIST_MULT( p_LINE_DETAIL_index => G_LINE_DETAIL_INDEX_LD_TBL,
20222: p_LINE_DETAIL_TYPE_CODE => G_LINE_DETAIL_TYPE_CODE_TBL,
20332: END IF;
20333: K:=1;
20334:
20335:
20336: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20337: engine_debug('#100');
20338:
20339: END IF;
20340: IF (p_pricing_phase_id = G_PRICE_LIST_PHASE_ID) THEN
20342: lq_line_index := -9999;
20343: lq_list_line_id := -9999;
20344:
20345: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
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');
20406: G_BREAK_ATTRIBUTE_TBL_P.delete; /* Proration */
20407: G_PRICE_BREAK_TYPE_CODE_TBL_P.delete; --[julin] for price book
20408:
20409: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20410: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20411: engine_debug('cursor l_list_qual_cur_currency-multi-currency TRUE - delete tables');
20412: END IF;
20413: G_CURRENCY_DETAIL_ID_TBL_P.delete; /* sunilpandey */
20414: G_CURRENCY_HEADER_ID_TBL_P.delete; /* vivek */
20418: G_BASE_CURRENCY_CODE_TBL_P.delete; /* vivek */
20419: end if; /* vivek */
20420:
20421: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20422: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20423: engine_debug('cursor l_list_qual_cur_currency-multi-currency TRUE - bulk collect');
20424:
20425: END IF;
20426: FETCH l_list_qual_cur_currency BULK COLLECT INTO
20541: IF (G_LINE_INDEX_TBL_P.COUNT > 0 ) THEN
20542:
20543: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
20544:
20545: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20546: engine_debug('#101');
20547:
20548: engine_debug('List Line Id : ' || g_list_line_id_tbl_p(I));
20549: engine_debug('Line Index : ' || g_line_index_tbl_P(I));
20550:
20551: END IF;
20552: IF (lq_line_index <> g_line_index_tbl_p(I) OR lq_list_line_id <> g_list_line_id_tbl_p(I)) THEN
20553:
20554: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20555: engine_debug('Inserting List Line #102');
20556:
20557: END IF;
20558: L_LINE_DETAIL_INDEX := GET_LINE_DETAIL_INDEX;
20555: engine_debug('Inserting List Line #102');
20556:
20557: END IF;
20558: L_LINE_DETAIL_INDEX := GET_LINE_DETAIL_INDEX;
20559: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20560: engine_debug('Line Detail Index : ' || l_line_detail_index);
20561:
20562: END IF;
20563: G_LINE_INDEX_LD_TBL(M) :=G_LINE_INDEX_TBL_P(I);
20589: G_BREAK_CONTEXT_TBL(M) :=G_BREAK_CONTEXT_TBL_P(I); /* Proration */
20590: G_BREAK_ATTRIBUTE_TBL(M) :=G_BREAK_ATTRIBUTE_TBL_P(I); /* Proration */
20591: if G_MULTI_CURRENCY_PROFILE = 'Y' and
20592: G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20593: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20594: engine_debug('cursor l_list_qual_cur_currency-multi-currency TRUE - populate tables');
20595: END IF;
20596: G_CURRENCY_DETAIL_ID_TBL(M) := G_CURRENCY_DETAIL_ID_TBL_P(I); /* sunilpandey */
20597: G_CURRENCY_HEADER_ID_TBL(M) := G_CURRENCY_HEADER_ID_TBL_P(I); /* vivek */
20604: lq_line_index := g_line_index_tbl_p(I);
20605: lq_list_line_id := g_list_line_id_tbl_p(I);
20606: END IF;
20607:
20608: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20609: engine_debug('#103');
20610: END IF;
20611: IF (G_CONTEXT_TBL_Q(I) IS NOT NULL) THEN
20612: --Qualifiers attributes
20640: G_PRIMARY_UOM_FLAG_TBL_A(K) := G_PRIMARY_UOM_FLAG_TBL_P(I);
20641: K:= K+1;
20642: END IF;
20643:
20644: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20645: engine_debug('#1031');
20646:
20647: END IF;
20648: --INSERT PRODUCT ATTRIBUTES
20675: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
20676: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
20677: K:= K+1;
20678:
20679: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20680: engine_debug('#105');
20681: END IF;
20682:
20683: --INSERT PRICING ATTRIBUTES
20713: K:= K+1;
20714: END IF;
20715:
20716: l_loop_count := l_loop_count +1;
20717: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20718: engine_debug('Primary List Non Validated Search Count : ' || l_loop_count);
20719: END IF;
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;
20729: CLOSE l_list_qual_cur_currency;
20730: qp_debug_util.tstop('L_LIST_QUAL_CUR_CURRENCY');
20736: end if; -- vivek, multi currency installed
20737:
20738: END IF; -- p_pricing_phase_id = G_PRICE_LIST_PHASE_ID
20739:
20740: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20741: engine_debug('#106');
20742:
20743: END IF;
20744: IF M > 1 THEN
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:
20750: END IF;
20751: INSERT_LDETS_PRICE_LIST_MULT( p_LINE_DETAIL_index => G_LINE_DETAIL_INDEX_LD_TBL,
20866: IF (l_loop_count <> 0 ) THEN
20867:
20868: Evaluate_Between(p_pricing_phase_id,NULL,NULL,l_return_status , l_status_text);
20869:
20870: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20871: RAISE E_ROUTINE_ERRORS;
20872: END IF;
20873:
20874: -- Check for multiple item categories and customer classes
20873:
20874: -- Check for multiple item categories and customer classes
20875: Eliminate_Multiple_Hierarchies(p_pricing_phase_id,l_return_status,l_status_text);
20876:
20877: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20878: RAISE E_ROUTINE_ERRORS;
20879: END IF;
20880:
20881: --Handle_Excluder(p_pricing_phase_id,NULL,l_return_status,l_status_text);
20880:
20881: --Handle_Excluder(p_pricing_phase_id,NULL,l_return_status,l_status_text);
20882:
20883: Perform_Grouping(p_pricing_phase_id, NULL, l_return_status, l_status_text);
20884: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20885: RAISE E_ROUTINE_ERRORS;
20886: END IF;
20887:
20888: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20884: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20885: RAISE E_ROUTINE_ERRORS;
20886: END IF;
20887:
20888: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20889: engine_debug('Non Validated Price List Grouping Return Status : ' || l_return_status);
20890:
20891:
20892: engine_debug('Calling Incomp Routine in Non Validated Price List');
20901: x_list_line_id => l_list_line_id,
20902: x_return_status => l_return_status,
20903: x_return_status_txt => l_status_text);
20904:
20905: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20906: RAISE E_ROUTINE_ERRORS;
20907: END IF;
20908:
20909: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20905: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20906: RAISE E_ROUTINE_ERRORS;
20907: END IF;
20908:
20909: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20910: engine_debug('Incomp Return Status Non Validated QP_PREQ_GRP: ' || l_return_status);
20911:
20912: END IF;
20913:
20930:
20931: -- Update the request line status for lines which got valid price list
20932: Update_Request_Line_Status(p_control_rec,'SUCCESS',p_freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
20933:
20934: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20935: RAISE E_ROUTINE_ERRORS;
20936: END IF;
20937:
20938: --bug# 2091386 not reflecting the right price on change on UOM on the order line . Since
20941: --after QP_Resolve_Incompatability_PVT.Determine_Pricing_UOM_And_Qty.
20942: --By doing this we will get the right price in the PRICE event on change of UOM on the order line
20943: --for price based on price break
20944: Get_Eligible_Price_Break(p_pricing_phase_id,NULL,l_return_status,l_status_text);
20945: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20946: RAISE E_ROUTINE_ERRORS;
20947: END IF;
20948:
20949:
20950: OPEN l_check_secondary_search;
20951: FETCH l_check_secondary_search INTO l_dummy;
20952:
20953: IF l_check_secondary_search%FOUND THEN
20954: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20955: engine_debug('Trying to Perform Secondary Search ');
20956: END IF;
20957: Perform_Secondary_Search(p_freeze_override_flag,p_control_rec,l_return_status,l_status_text);
20958: END IF;
20966: Delete_Invalid_PBH_Children(J.line_index,G_PRICE_LIST_PHASE_ID);
20967: END IF;
20968: CLOSE l_chk_deleted_pbh_cur;*/
20969: ELSE
20970: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20971: engine_debug('LOOOOOOOOOOOP Count : ' || l_loop_count);
20972: END IF;
20973: -- Update the request line status for lines which got valid price list
20974: Update_Request_Line_Status(p_control_rec,'FAILURE',p_freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
20971: engine_debug('LOOOOOOOOOOOP Count : ' || l_loop_count);
20972: END IF;
20973: -- Update the request line status for lines which got valid price list
20974: Update_Request_Line_Status(p_control_rec,'FAILURE',p_freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
20975: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20976: RAISE E_ROUTINE_ERRORS;
20977: END IF;
20978:
20979: OPEN l_check_secondary_search;
20979: OPEN l_check_secondary_search;
20980: FETCH l_check_secondary_search INTO l_dummy;
20981:
20982: IF l_check_secondary_search%FOUND THEN
20983: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20984: engine_debug('Trying to Perform Secondary Search ');
20985: END IF;
20986: Perform_Secondary_Search(p_freeze_override_flag,p_control_rec,l_return_status,l_status_text);
20987: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20983: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20984: engine_debug('Trying to Perform Secondary Search ');
20985: END IF;
20986: Perform_Secondary_Search(p_freeze_override_flag,p_control_rec,l_return_status,l_status_text);
20987: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20988: RAISE E_ROUTINE_ERRORS;
20989: END IF;
20990: END IF;
20991: CLOSE l_check_secondary_search;
20998: IF (p_pricing_phase_id = G_PRICE_LIST_PHASE_ID) THEN
20999: OPEN l_check_no_list_passed;
21000: FETCH l_check_no_list_passed INTO l_dummy;
21001:
21002: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21003: engine_debug('DUMMMMMMMMMMMMMMY: ' || l_dummy);
21004:
21005: END IF;
21006: IF l_check_no_list_passed%FOUND THEN
21003: engine_debug('DUMMMMMMMMMMMMMMY: ' || l_dummy);
21004:
21005: END IF;
21006: IF l_check_no_list_passed%FOUND THEN
21007: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21008: engine_debug('DUMMMMMMMMMMMMMMY1000: ' || l_dummy);
21009: END IF;
21010: x_further_search := G_YES;
21011: ELSE
21016: END IF; --p_pricing_phase_id = G_PRICE_LIST_PHASE_ID
21017:
21018: --Reset_all_tbls;
21019: Reset_All_Tbls(l_return_status ,l_status_text );
21020: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
21021: RAISE E_ROUTINE_ERRORS;
21022: END IF;
21023:
21024: EXCEPTION
21022: END IF;
21023:
21024: EXCEPTION
21025: WHEN E_ROUTINE_ERRORS THEN
21026: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21027: engine_debug(l_routine||': '||l_status_text);
21028: END IF;
21029: x_status_code := FND_API.G_RET_STS_ERROR;
21030: x_status_text := l_routine||': '||l_status_text;
21025: WHEN E_ROUTINE_ERRORS THEN
21026: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21027: engine_debug(l_routine||': '||l_status_text);
21028: END IF;
21029: x_status_code := FND_API.G_RET_STS_ERROR;
21030: x_status_text := l_routine||': '||l_status_text;
21031: WHEN E_NO_LIST_FOUND THEN
21032: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21033: engine_debug('No list found for a given item even after secondary fetch');
21028: END IF;
21029: x_status_code := FND_API.G_RET_STS_ERROR;
21030: x_status_text := l_routine||': '||l_status_text;
21031: WHEN E_NO_LIST_FOUND THEN
21032: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21033: engine_debug('No list found for a given item even after secondary fetch');
21034: END IF;
21035: WHEN TOO_MANY_ROWS THEN
21036: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21032: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21033: engine_debug('No list found for a given item even after secondary fetch');
21034: END IF;
21035: WHEN TOO_MANY_ROWS THEN
21036: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21037: engine_debug('In LIST_HEADER_SEARCH procedure');
21038: engine_debug('Conflict in price list detected');
21039: engine_debug(SQLERRM);
21040: END IF;
21039: engine_debug(SQLERRM);
21040: END IF;
21041: null;
21042: WHEN NO_DATA_FOUND THEN
21043: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21044: engine_debug('In LIST_HEADER_SEARCH procedure');
21045: engine_debug('Item is not in the price list');
21046: END IF;
21047: null;
21045: engine_debug('Item is not in the price list');
21046: END IF;
21047: null;
21048: WHEN OTHERS THEN
21049: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21050: engine_debug(l_routine||' '||SQLERRM);
21051: END IF;
21052: x_status_code := FND_API.G_RET_STS_ERROR;
21053: x_status_text := l_routine||' '||SQLERRM;
21048: WHEN OTHERS THEN
21049: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21050: engine_debug(l_routine||' '||SQLERRM);
21051: END IF;
21052: x_status_code := FND_API.G_RET_STS_ERROR;
21053: x_status_text := l_routine||' '||SQLERRM;
21054: END LIST_HEADER_SEARCH;
21055:
21056:
22046:
22047: BEGIN
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);
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
22057: engine_debug('Entering into pattern PERFORM_SECONDARY_SEARCH');
22058: END IF;
22059:
22060: -- Update the price list id , validated flag , and primary_qualifiers_match flag for sec search
22057: engine_debug('Entering into pattern PERFORM_SECONDARY_SEARCH');
22058: END IF;
22059:
22060: -- Update the price list id , validated flag , and primary_qualifiers_match flag for sec search
22061: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN --bug 4103259
22062: engine_debug ('QP_QUALIFY_SECONDARY_PRICE_LISTS:' || G_QUALIFY_SECONDARY);
22063: END IF;
22064:
22065:
22063: END IF;
22064:
22065:
22066:
22067: IF (x_status_code = FND_API.G_RET_STS_ERROR) THEN
22068: RAISE E_ROUTINE_ERRORS;
22069: END IF;
22070:
22071:
22070:
22071:
22072: IF G_QUALIFY_SECONDARY = G_YES THEN
22073: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN
22074: 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;
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;
22084:
22085: OPEN L_SEC_LST_HDR_P1_QLFY_SEC_Y;
22252: l_loop_count:=l_loop_count+1;
22253: --exit when l_header_cache_cur%rowcount < l_limit;
22254: END LOOP;
22255: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
22256: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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;
22265: end if;
22266:
22267: ELSE ----profile no
22268: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
22269: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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;
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');
22282: END IF;
22283: IF p_search_path = 1 THEN
22284: OPEN L_SEC_LST_HDR_P1_QLFY_SEC_N;
22636: l_loop_count:=l_loop_count+1;
22637: --exit when l_header_cache_cur%rowcount < l_limit;
22638: END LOOP;
22639: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
22640: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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;
22673: G_PRICE_LIST_PHASE_ID ,
22674: l_stage ,
22675: x_status_code ,
22676: x_status_text );
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');
22686: l_stage,
22687: x_status_code ,
22688: x_status_text );
22689:
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');
22748: /************/
22749: IF (p_search_path = 1) OR (p_search_path = 2 AND G_QUALIFY_SECONDARY = G_YES) THEN
22750: IF G_QUALIFY_SECONDARY = G_YES THEN
22751: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN
22752: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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;
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');
22762: END IF;
22763:
22764: OPEN L_SEC_LST_LIN_P1_QLFY_SEC_Y;
23003: l_loop_count:=l_loop_count+1;
23004: --exit when l_header_cache_cur%rowcount < l_limit;
23005: END LOOP;
23006: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
23007: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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;
23016: end if;
23017:
23018: ELSE ----profile no
23019: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
23020: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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;
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;
23030:
23031: OPEN L_SEC_LST_LIN_P1_QLFY_SEC_N;
23263: l_loop_count:=l_loop_count+1;
23264: --exit when l_header_cache_cur%rowcount < l_limit;
23265: END LOOP;
23266: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
23267: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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;
23283: G_PRICE_LIST_PHASE_ID ,
23284: l_stage ,
23285: x_status_code ,
23286: x_status_text );
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');
23296: l_stage,
23297: x_status_code ,
23298: x_status_text );
23299:
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');
23333: G_STAGE_CACHE_SEC_PL_LIN_SRCH,
23334: x_status_code,
23335: x_status_text);
23336:
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');
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);
23346: END IF;
23347: ELSE
23355: G_STAGE_CACHE_SEC_PL_LIN_SRCH2,
23356: x_status_code,
23357: x_status_text);
23358:
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');
23373: x_list_line_id => l_list_line_id,
23374: x_return_status => x_status_code,
23375: x_return_status_txt => x_status_text);
23376:
23377: IF(x_status_code = FND_API.G_RET_STS_ERROR) THEN
23378: RAISE E_ROUTINE_ERRORS;
23379: END IF;
23380:
23381: -- 3773652
23390: and rownum = 1;
23391:
23392: Evaluate_Between(G_PRICE_LIST_PHASE_ID,NULL,NULL,x_status_code,x_status_text);
23393:
23394: IF(x_status_code = FND_API.G_RET_STS_ERROR) THEN
23395: RAISE E_ROUTINE_ERRORS;
23396: END IF;
23397:
23398: exception
23402:
23403: -- Update the request line status for lines which got valid price list
23404: Update_Request_Line_Status(p_control_rec,'SUCCESS',p_freeze_override_flag,x_status_code,x_status_text); --[julin/4708044]
23405:
23406: IF(x_status_code = FND_API.G_RET_STS_ERROR) THEN
23407: RAISE E_ROUTINE_ERRORS;
23408: END IF;
23409:
23410: --bug# 2091386 not reflecting the right price on change on UOM on the order line . Since
23414: --By doing this we will get the right price in the PRICE event on change of UOM on the order line
23415: --for price based on price break
23416: Get_Eligible_Price_Break(G_PRICE_LIST_PHASE_ID,NULL,x_status_code,x_status_text);
23417:
23418: IF(x_status_code = FND_API.G_RET_STS_ERROR) THEN
23419: RAISE E_ROUTINE_ERRORS;
23420: END IF;
23421: ELSE
23422: -- Update the request line status for lines which got valid price list
23420: END IF;
23421: ELSE
23422: -- Update the request line status for lines which got valid price list
23423: Update_Request_Line_Status(p_control_rec,'FAILURE',p_freeze_override_flag,x_status_code,x_status_text); --[juiln/4708044]
23424: IF(x_status_code = FND_API.G_RET_STS_ERROR) THEN
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
23434: engine_debug(l_routine||': '||x_status_text);
23435: END IF;
23436: x_status_code := FND_API.G_RET_STS_ERROR;
23437: x_status_text := l_routine||': '||x_status_text;
23432: WHEN E_ROUTINE_ERRORS THEN
23433: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23434: engine_debug(l_routine||': '||x_status_text);
23435: END IF;
23436: x_status_code := FND_API.G_RET_STS_ERROR;
23437: x_status_text := l_routine||': '||x_status_text;
23438:
23439: IF G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN
23440: IF L_SEC_LST_HDR_P1_QLFY_Y_CURR%ISOPEN THEN
23480: END IF;
23481:
23482:
23483: WHEN OTHERS THEN
23484: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23485: engine_debug(SQLERRM);
23486: END IF;
23487: x_status_code := FND_API.G_RET_STS_ERROR;
23488: x_status_text := l_routine||' '||SQLERRM;
23483: WHEN OTHERS THEN
23484: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23485: engine_debug(SQLERRM);
23486: END IF;
23487: x_status_code := FND_API.G_RET_STS_ERROR;
23488: x_status_text := l_routine||' '||SQLERRM;
23489:
23490: IF G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN
23491: IF L_SEC_LST_HDR_P1_QLFY_Y_CURR%ISOPEN THEN
24034: L_DUMMY VARCHAR2(1);
24035:
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
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;
24045: -- Line Cache Start
24046:
24044: END IF;
24045: -- Line Cache Start
24046:
24047: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
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');
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
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');
24305: END LOOP;
24306:
24307:
24308: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
24309: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24310: engine_debug('cursor l_sec_list_cur_currency-multi-currency TRUE');
24311: END IF;
24312:
24313: CLOSE l_pat_cache_both_curr;
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;
24320:
24321: CLOSE l_pat_cache_both;
24328: p_pricing_phase_id ,
24329: G_STAGE_CACHE_LST_HDR_LIN_SRCH,
24330: x_status_code ,
24331: x_status_text );
24332: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
24333: RAISE E_ROUTINE_ERRORS;
24334: END IF;
24335:
24336:
24342: G_STAGE_CACHE_LST_HDR_LIN_SRCH,
24343: x_status_code ,
24344: x_status_text );
24345:
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');
24410: x_status_code,
24411: x_status_text);
24412:
24413:
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');
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);
24423: END IF;
24424:
24433: x_list_line_id => l_list_line_id,
24434: x_return_status => l_return_status,
24435: x_return_status_txt => l_status_text);
24436:
24437: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
24438: RAISE E_ROUTINE_ERRORS;
24439: END IF;
24440:
24441: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24437: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
24438: RAISE E_ROUTINE_ERRORS;
24439: END IF;
24440:
24441: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24442: engine_debug('Incomp Return Status Non Validated QP_PREQ_GRP: ' || l_return_status);
24443:
24444: END IF;
24445:
24462:
24463:
24464: Update_Request_Line_Status(p_control_rec,'SUCCESS',p_freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
24465:
24466: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
24467: RAISE E_ROUTINE_ERRORS;
24468: END IF;
24469:
24470: --bug# 2091386 not reflecting the right price on change on UOM on the order line . Since
24474: --By doing this we will get the right price in the PRICE event on change of UOM on the order line
24475: --for price based on price break
24476:
24477: Get_Eligible_Price_Break(p_pricing_phase_id,NULL,l_return_status,l_status_text);
24478: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
24479: RAISE E_ROUTINE_ERRORS;
24480: END IF;
24481: ELSE
24482:
24481: ELSE
24482:
24483: -- Update the request line status for lines which got valid price list
24484: Update_Request_Line_Status(p_control_rec,'FAILURE',p_freeze_override_flag,x_status_code,x_status_text); --[juiln/4708044]
24485: IF(x_status_code = FND_API.G_RET_STS_ERROR) THEN
24486: RAISE E_ROUTINE_ERRORS;
24487: END IF;
24488: END IF;
24489:
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:
24500: IF g_debug_engine = fnd_api.g_true THEN
24501: engine_debug(x_status_text);
24496:
24497: x_status_code := FND_API.G_RET_STS_ERROR;
24498: x_status_text := 'Expected Error in ' || l_routine || sqlerrm;
24499:
24500: IF g_debug_engine = fnd_api.g_true THEN
24501: engine_debug(x_status_text);
24502: END IF;
24503:
24504: IF G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN
24531: END if;
24532:
24533: END IF;
24534:
24535: IF g_debug_engine = fnd_api.g_true THEN
24536: engine_debug(l_routine || ' ' || sqlerrm);
24537: END IF;
24538:
24539: x_status_code := fnd_api.g_ret_sts_error;
24535: IF g_debug_engine = fnd_api.g_true THEN
24536: engine_debug(l_routine || ' ' || sqlerrm);
24537: END IF;
24538:
24539: x_status_code := fnd_api.g_ret_sts_error;
24540: x_status_text := 'Error in ' || l_routine || sqlerrm;
24541:
24542: END LIST_HEADER_PATTERN_SEARCH;
24543:
24785: l_null_unique_key VARCHAR2(2000);
24786:
24787: BEGIN
24788:
24789: x_status_code := FND_API.G_RET_STS_SUCCESS;
24790:
24791: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24792: engine_debug('Qualifier Grouping begin');
24793:
24787: BEGIN
24788:
24789: x_status_code := FND_API.G_RET_STS_SUCCESS;
24790:
24791: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24792: engine_debug('Qualifier Grouping begin');
24793:
24794: END IF;
24795: IF (p_line_index_based_flag = G_NO) THEN
24793:
24794: END IF;
24795: IF (p_line_index_based_flag = G_NO) THEN
24796:
24797: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24798: engine_debug('#QG1 Phase');
24799:
24800: END IF;
24801: FOR i IN header_level_qual_attrs_cur LOOP
24799:
24800: END IF;
24801: FOR i IN header_level_qual_attrs_cur LOOP
24802:
24803: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24804: engine_debug('Header Qualifier Grouping No: ' || i.QUALIFIER_GROUPING_NO);
24805: engine_debug('Passed Hdr Quals : '||i.no_of_qualifiers_in_grp||'Hdr id : '||i.list_header_id);
24806: engine_debug('Header Null Group Count : ' || v_header_null_grp_count);
24807:
24829: OPEN chk_other_hdr_quals_exist_cur(i.list_header_id);
24830: FETCH chk_other_hdr_quals_exist_cur INTO l_other_list_header_id;
24831: CLOSE chk_other_hdr_quals_exist_cur;
24832:
24833: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24834: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
24835:
24836: END IF;
24837: -- If there are no other groups , then it is a failure on pure null group,else it is not
24839: l_other_grp_exists_flag := FALSE;
24840: l_null_unique_key := NULL;
24841: l_hdr_del_ind := l_hdr_del_ind + 1;
24842: l_hdr_del_tbl(l_hdr_del_ind) := i.unique_key;
24843: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24844: engine_debug('Deleted Hdr id : '||i.list_header_id||' Unique Key : ' || i.unique_key);
24845: END IF;
24846: ELSE
24847: --l_null_unique_key := i.unique_key;
24853: OPEN chk_other_hdr_quals_exist_cur(i.list_header_id);
24854: FETCH chk_other_hdr_quals_exist_cur INTO l_other_list_header_id;
24855: CLOSE chk_other_hdr_quals_exist_cur;
24856:
24857: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24858: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
24859: END IF;
24860:
24861: IF (l_other_list_header_id IS NOT NULL) THEN
24858: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
24859: END IF;
24860:
24861: IF (l_other_list_header_id IS NOT NULL) THEN
24862: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24863: engine_debug('Other groups exist');
24864: END IF; -- 4033618
24865: l_other_grp_exists_flag := TRUE;
24866: END IF; -- end 3259922
24867: END IF;
24868:
24869: v_header_null_grp_count := i.NO_OF_QUALIFIERS_IN_GRP;
24870:
24871: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24872: engine_debug('Header Null Group Count : ' || v_header_null_grp_count);
24873:
24874: END IF;
24875: ELSE
24878: IF (i.NO_OF_QUALIFIERS_IN_GRP + v_header_null_grp_count < i.QUALIFIER_GROUP_CNT) THEN
24879: --l_other_grp_satisfied_flag := FALSE; do not make it false if it is already TRUE because some grp is satisfied
24880: l_hdr_del_ind := l_hdr_del_ind + 1;
24881: l_hdr_del_tbl(l_hdr_del_ind) := i.unique_key;
24882: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24883: engine_debug('Deleted Hdr id : '||i.list_header_id|| ' Unique Key : ' || i.unique_key);
24884: END IF;
24885: ELSE
24886: l_other_grp_satisfied_flag := TRUE;
24901: END IF;
24902: END IF;
24903: END IF;
24904:
24905: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24906: engine_debug('#QG2');
24907:
24908: END IF;
24909: IF (l_hdr_del_tbl.count > 0) THEN
24907:
24908: END IF;
24909: IF (l_hdr_del_tbl.count > 0) THEN
24910: FOR m in 1 .. l_hdr_del_tbl.count LOOP
24911: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24912: engine_debug('Deleted Headers : ' || l_hdr_del_tbl(m));
24913: END IF;
24914: END LOOP;
24915: END IF;
24913: END IF;
24914: END LOOP;
24915: END IF;
24916:
24917: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24918: engine_debug('#QG3');
24919:
24920: END IF;
24921: IF (l_hdr_del_tbl.count > 0) THEN
24936:
24937: l_other_grp_exists_flag := FALSE;
24938: l_other_grp_satisfied_flag := FALSE;
24939:
24940: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24941: engine_debug('#QG4');
24942:
24943: END IF;
24944: FOR j IN line_level_qual_attrs_cur LOOP
24942:
24943: END IF;
24944: FOR j IN line_level_qual_attrs_cur LOOP
24945:
24946: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24947: engine_debug('Line Qualifier Grouping No: ' || j.QUALIFIER_GROUPING_NO || ' List Header Id : ' || j.list_header_id);
24948: engine_debug('Passed Line Quals : ' || j.no_of_qualifiers_in_grp || 'List Line id : ' || j.list_line_id);
24949: engine_debug('Line Null Group Count : ' || v_line_null_grp_count);
24950:
24973: OPEN chk_other_line_quals_exist_cur(j.list_line_id);
24974: FETCH chk_other_line_quals_exist_cur INTO l_other_list_line_id;
24975: CLOSE chk_other_line_quals_exist_cur;
24976:
24977: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24978: engine_debug('Other Groups Exist in this Line id : '||l_other_list_line_id);
24979:
24980: END IF;
24981: -- If there are no other groups , then it is a failure on pure null group,else it is not
24983: l_other_grp_exists_flag := FALSE;
24984: l_null_unique_key := NULL;
24985: l_line_del_ind := l_line_del_ind + 1;
24986: l_line_del_tbl(l_line_del_ind) := j.unique_key;
24987: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24988: engine_debug('Deleted Line id : '||j.list_line_id|| ' Unique Key : ' || j.unique_key);
24989: END IF;
24990: ELSE
24991: l_other_grp_exists_flag := TRUE;
24995: --l_null_unique_key := j.unique_key;
24996: END IF;
24997:
24998: v_line_null_grp_count := j.NO_OF_QUALIFIERS_IN_GRP;
24999: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25000: engine_debug('Line Null Group Count : ' || v_line_null_grp_count);
25001:
25002: END IF;
25003: ELSE
25007: --l_other_grp_satisfied_flag := FALSE;
25008: l_line_del_ind := l_line_del_ind + 1;
25009: l_line_del_tbl(l_line_del_ind) := j.unique_key;
25010: --l_line_del_tbl(l_line_del_ind) := j.list_line_id;
25011: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25012: engine_debug('Deleted Line id : '||j.list_line_id|| ' Unique Key : ' || j.unique_key);
25013: END IF;
25014: ELSE
25015: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25011: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25012: engine_debug('Deleted Line id : '||j.list_line_id|| ' Unique Key : ' || j.unique_key);
25013: END IF;
25014: ELSE
25015: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25016: engine_debug('Line Quals for : ' || j.list_header_id || ' ' || j.list_line_id );
25017: END IF;
25018: l_line_level_quals_satisfied := TRUE;
25019: l_other_grp_satisfied_flag := TRUE;
25020: END IF;
25021:
25022: END IF;
25023:
25024: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25025: engine_debug('#QG5');
25026:
25027: END IF;
25028: -- Check if header level quals are satisfied.If there is a hdr lvl qualifier in setup and it is not selected
25027: END IF;
25028: -- Check if header level quals are satisfied.If there is a hdr lvl qualifier in setup and it is not selected
25029: IF (l_line_level_quals_satisfied = TRUE) THEN
25030:
25031: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25032: engine_debug('Line Level Quals Satisfied , but checking whether header level qual satisfied');
25033:
25034: END IF;
25035: IF (j.HEADER_QUALS_EXIST_FLAG = G_YES) THEN
25032: engine_debug('Line Level Quals Satisfied , but checking whether header level qual satisfied');
25033:
25034: END IF;
25035: IF (j.HEADER_QUALS_EXIST_FLAG = G_YES) THEN
25036: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25037: engine_debug('Header level quals exist' );
25038: END IF;
25039: v_list_header_id := NULL;
25040:
25042: FETCH check_hdr_quals_cur INTO v_list_header_id;
25043: CLOSE check_hdr_quals_cur;
25044:
25045: IF (v_list_header_id IS NULL) THEN
25046: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25047: engine_debug('Line Level Quals Not Satisfied , as Header Id is : ' || nvl(v_list_header_id,-99999));
25048: END IF;
25049: l_line_del_ind := l_line_del_ind + 1;
25050: l_line_del_tbl(l_line_del_ind) := j.unique_key;
25047: engine_debug('Line Level Quals Not Satisfied , as Header Id is : ' || nvl(v_list_header_id,-99999));
25048: END IF;
25049: l_line_del_ind := l_line_del_ind + 1;
25050: l_line_del_tbl(l_line_del_ind) := j.unique_key;
25051: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25052: engine_debug('Deleted Line id : '||j.list_line_id|| ' Unique Key : ' || j.unique_key);
25053: END IF;
25054: ELSE
25055: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25051: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25052: engine_debug('Deleted Line id : '||j.list_line_id|| ' Unique Key : ' || j.unique_key);
25053: END IF;
25054: ELSE
25055: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25056: engine_debug('Line Level Quals Satisfied , Header Id : ' || nvl(v_list_header_id,-99999));
25057: END IF;
25058: END IF;
25059: ELSE
25056: engine_debug('Line Level Quals Satisfied , Header Id : ' || nvl(v_list_header_id,-99999));
25057: END IF;
25058: END IF;
25059: ELSE
25060: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25061: engine_debug('Header level quals do not exist' );
25062: END IF;
25063: END IF;
25064:
25079: END IF;
25080: END IF;
25081: END IF;
25082:
25083: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25084: engine_debug('#QG6');
25085:
25086: END IF;
25087: IF (l_line_del_tbl.count > 0 ) THEN
25085:
25086: END IF;
25087: IF (l_line_del_tbl.count > 0 ) THEN
25088: FOR m in 1 .. l_line_del_tbl.count LOOP
25089: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25090: engine_debug('Deleted Lines : ' || l_line_del_tbl(m));
25091: END IF;
25092: END LOOP;
25093: END IF;
25109: l_line_del_ind:=0;
25110:
25111: ELSIF (p_line_index_based_flag = G_YES) THEN
25112:
25113: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25114: engine_debug('#QG1');
25115:
25116: END IF;
25117: FOR i IN hdr_lvl_qual_attrs_req_line LOOP
25115:
25116: END IF;
25117: FOR i IN hdr_lvl_qual_attrs_req_line LOOP
25118:
25119: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25120: engine_debug('Header Qualifier Grouping No: ' || i.QUALIFIER_GROUPING_NO);
25121: engine_debug('Passed Hdr Quals : '||i.no_of_qualifiers_in_grp||'Hdr id : '||i.list_header_id||' Line Indx: '||i.line_index);
25122: engine_debug('Header Null Group Count : ' || v_header_null_grp_count);
25123:
25148: OPEN chk_other_hdr_quals_exist_cur(i.list_header_id);
25149: FETCH chk_other_hdr_quals_exist_cur INTO l_other_list_header_id;
25150: CLOSE chk_other_hdr_quals_exist_cur;
25151:
25152: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25153: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
25154:
25155: END IF;
25156: -- If there are no other groups , then it is a failure on pure null group,else it is not
25158: l_other_grp_exists_flag := FALSE;
25159: l_null_unique_key := NULL;
25160: l_hdr_del_ind := l_hdr_del_ind + 1;
25161: l_hdr_del_tbl(l_hdr_del_ind) := i.unique_key;
25162: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25163: engine_debug('Deleted Hdr id : '||i.list_header_id||' Line Indx: '||i.line_index || ' Unique Key : ' || i.unique_key);
25164: END IF;
25165: ELSE
25166: l_null_unique_key := i.unique_key;
25172: OPEN chk_other_hdr_quals_exist_cur(i.list_header_id);
25173: FETCH chk_other_hdr_quals_exist_cur INTO l_other_list_header_id;
25174: CLOSE chk_other_hdr_quals_exist_cur;
25175:
25176: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25177: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
25178: END IF;
25179:
25180: IF (l_other_list_header_id IS NOT NULL) THEN
25177: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
25178: END IF;
25179:
25180: IF (l_other_list_header_id IS NOT NULL) THEN
25181: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25182: engine_debug('Other groups exist');
25183: END IF; -- 4033618
25184: l_other_grp_exists_flag := TRUE;
25185: END IF; -- end 3273669
25187: END IF;
25188:
25189: v_header_null_grp_count := i.NO_OF_QUALIFIERS_IN_GRP;
25190:
25191: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25192: engine_debug('Header Null Group Count : ' || v_header_null_grp_count);
25193:
25194: END IF;
25195: ELSE
25197: IF (i.NO_OF_QUALIFIERS_IN_GRP + v_header_null_grp_count < i.QUALIFIER_GROUP_CNT) THEN
25198: --l_other_grp_satisfied_flag := FALSE;
25199: l_hdr_del_ind := l_hdr_del_ind + 1;
25200: l_hdr_del_tbl(l_hdr_del_ind) := i.unique_key;
25201: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25202: engine_debug('Deleted Hdr id : '||i.list_header_id||' Line Indx: '||i.line_index || ' Unique Key : ' || i.unique_key);
25203: END IF;
25204: ELSE
25205: l_other_grp_satisfied_flag := TRUE;
25221: END IF;
25222: END IF;
25223: END IF;
25224:
25225: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25226: engine_debug('#QG2');
25227:
25228: END IF;
25229: IF (l_hdr_del_tbl.count > 0) THEN
25227:
25228: END IF;
25229: IF (l_hdr_del_tbl.count > 0) THEN
25230: FOR m in 1 .. l_hdr_del_tbl.count LOOP
25231: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25232: engine_debug('Deleted Headers : ' || l_hdr_del_tbl(m));
25233: END IF;
25234: END LOOP;
25235: END IF;
25233: END IF;
25234: END LOOP;
25235: END IF;
25236:
25237: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25238: engine_debug('#QG3');
25239:
25240: END IF;
25241: IF (l_hdr_del_tbl.count > 0) THEN
25256:
25257: l_other_grp_exists_flag := FALSE;
25258: l_other_grp_satisfied_flag := FALSE;
25259:
25260: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25261: engine_debug('#QG4');
25262:
25263: END IF;
25264: FOR j IN line_lvl_qual_attrs_req_line LOOP
25262:
25263: END IF;
25264: FOR j IN line_lvl_qual_attrs_req_line LOOP
25265:
25266: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25267: engine_debug('Line Qualifier Grouping No: ' || j.QUALIFIER_GROUPING_NO || ' List Header Id : ' || j.list_header_id);
25268: engine_debug('Passed Line Quals : ' || j.no_of_qualifiers_in_grp || 'List Line id : ' || j.list_line_id);
25269: engine_debug('Line Null Group Count : ' || v_line_null_grp_count);
25270:
25294: OPEN chk_other_line_quals_exist_cur(j.list_line_id);
25295: FETCH chk_other_line_quals_exist_cur INTO l_other_list_line_id;
25296: CLOSE chk_other_line_quals_exist_cur;
25297:
25298: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25299: engine_debug('Other Groups Exist in this Line id : '||l_other_list_line_id);
25300:
25301: END IF;
25302: -- If there are no other groups , then it is a failure on pure null group,else it is not
25304: l_other_grp_exists_flag := FALSE;
25305: l_null_unique_key := NULL;
25306: l_line_del_ind := l_line_del_ind + 1;
25307: l_line_del_tbl(l_line_del_ind) := j.unique_key;
25308: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25309: engine_debug('Deleted Line id : '||j.list_line_id||' Line Indx: '||j.line_index || ' Unique Key : ' || j.unique_key);
25310: END IF;
25311: ELSE
25312: l_other_grp_exists_flag := TRUE;
25316: l_null_unique_key := j.unique_key;
25317: END IF;
25318:
25319: v_line_null_grp_count := j.NO_OF_QUALIFIERS_IN_GRP;
25320: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25321: engine_debug('Line Null Group Count : ' || v_line_null_grp_count);
25322:
25323: END IF;
25324: ELSE
25327: --l_other_grp_satisfied_flag := FALSE;
25328: l_line_del_ind := l_line_del_ind + 1;
25329: l_line_del_tbl(l_line_del_ind) := j.unique_key;
25330: --l_line_del_tbl(l_line_del_ind) := j.list_line_id;
25331: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25332: engine_debug('Deleted Line id : '||j.list_line_id||' Line Indx: '||j.line_index || ' Unique Key : ' || j.unique_key);
25333: END IF;
25334: ELSE
25335: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25331: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25332: engine_debug('Deleted Line id : '||j.list_line_id||' Line Indx: '||j.line_index || ' Unique Key : ' || j.unique_key);
25333: END IF;
25334: ELSE
25335: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25336: engine_debug('Line Quals for : ' || j.list_header_id || ' ' || j.list_line_id );
25337: END IF;
25338: l_line_level_quals_satisfied := TRUE;
25339: l_other_grp_satisfied_flag := TRUE;
25340: END IF;
25341:
25342: END IF;
25343:
25344: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25345: engine_debug('#QG5');
25346:
25347: END IF;
25348: -- Check if header level quals are satisfied.If there is a hdr lvl qualifier in setup and it is not selected
25347: END IF;
25348: -- Check if header level quals are satisfied.If there is a hdr lvl qualifier in setup and it is not selected
25349: IF (l_line_level_quals_satisfied = TRUE) THEN
25350:
25351: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25352: engine_debug('Line Level Quals Satisfied , but checking whether header level qual satisfied');
25353:
25354: END IF;
25355: IF (j.HEADER_QUALS_EXIST_FLAG = G_YES) THEN
25352: engine_debug('Line Level Quals Satisfied , but checking whether header level qual satisfied');
25353:
25354: END IF;
25355: IF (j.HEADER_QUALS_EXIST_FLAG = G_YES) THEN
25356: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25357: engine_debug('Header level quals exist' );
25358: END IF;
25359: v_list_header_id := NULL;
25360:
25362: FETCH check_hdr_quals_cur_req_line INTO v_list_header_id;
25363: CLOSE check_hdr_quals_cur_req_line;
25364:
25365: IF (v_list_header_id IS NULL) THEN
25366: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25367: engine_debug('Line Level Quals Not Satisfied , as Header Id is : ' || nvl(v_list_header_id,-99999));
25368: END IF;
25369: l_line_del_ind := l_line_del_ind + 1;
25370: l_line_del_tbl(l_line_del_ind) := j.unique_key;
25367: engine_debug('Line Level Quals Not Satisfied , as Header Id is : ' || nvl(v_list_header_id,-99999));
25368: END IF;
25369: l_line_del_ind := l_line_del_ind + 1;
25370: l_line_del_tbl(l_line_del_ind) := j.unique_key;
25371: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25372: engine_debug('Deleted Line id : '||j.list_line_id||' Line Indx: '||j.line_index || ' Unique Key : ' || j.unique_key);
25373: END IF;
25374: ELSE
25375: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25371: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25372: engine_debug('Deleted Line id : '||j.list_line_id||' Line Indx: '||j.line_index || ' Unique Key : ' || j.unique_key);
25373: END IF;
25374: ELSE
25375: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25376: engine_debug('Line Level Quals Satisfied , Header Id : ' || nvl(v_list_header_id,-99999));
25377: END IF;
25378: END IF;
25379:
25377: END IF;
25378: END IF;
25379:
25380: ELSE
25381: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25382: engine_debug('Header level quals do not exist' );
25383: END IF;
25384: END IF;
25385:
25393: END LOOP;
25394:
25395: -- This code is to delete the -1 group if none of the other groups are satisfied on last list header or list line or line index
25396:
25397: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25398: engine_debug ('#1000');
25399: END IF;
25400: IF (l_other_grp_exists_flag = TRUE) THEN
25401: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25397: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25398: engine_debug ('#1000');
25399: END IF;
25400: IF (l_other_grp_exists_flag = TRUE) THEN
25401: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25402: engine_debug ('#1001');
25403: END IF;
25404: IF (l_other_grp_satisfied_flag = FALSE) THEN
25405: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25401: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25402: engine_debug ('#1001');
25403: END IF;
25404: IF (l_other_grp_satisfied_flag = FALSE) THEN
25405: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25406: engine_debug ('#1002');
25407: END IF;
25408: IF (l_null_unique_key IS NOT NULL) THEN
25409: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25405: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25406: engine_debug ('#1002');
25407: END IF;
25408: IF (l_null_unique_key IS NOT NULL) THEN
25409: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25410: engine_debug ('#1003');
25411: engine_debug ('Null Unique Key : ' || l_null_unique_key);
25412: END IF;
25413: l_line_del_ind := l_line_del_ind + 1;
25416: END IF;
25417: END IF;
25418:
25419:
25420: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25421: engine_debug('#QG6');
25422:
25423: END IF;
25424: IF (l_line_del_tbl.count > 0 ) THEN
25422:
25423: END IF;
25424: IF (l_line_del_tbl.count > 0 ) THEN
25425: FOR m in 1 .. l_line_del_tbl.count LOOP
25426: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25427: engine_debug('Deleted Lines : ' || l_line_del_tbl(m));
25428: END IF;
25429: END LOOP;
25430: END IF;
25448: END IF;
25449:
25450: EXCEPTION
25451: WHEN OTHERS THEN
25452: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25453: engine_debug(SQLERRM);
25454: END IF;
25455: x_status_code:= FND_API.G_RET_STS_ERROR;
25456: x_status_text:= 'In perform qualifier grouping '||SQLERRM;
25451: WHEN OTHERS THEN
25452: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25453: engine_debug(SQLERRM);
25454: END IF;
25455: x_status_code:= FND_API.G_RET_STS_ERROR;
25456: x_status_text:= 'In perform qualifier grouping '||SQLERRM;
25457: END Perform_Qualifier_Grouping;
25458:
25459: /*+----------------------------------------------------------
27060: nROWS CONSTANT NUMBER := 1000;
27061:
27062: BEGIN
27063:
27064: x_status_code := FND_API.G_RET_STS_SUCCESS;
27065: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27066: engine_debug('Before Big Select');
27067:
27068: END IF;
27061:
27062: BEGIN
27063:
27064: x_status_code := FND_API.G_RET_STS_SUCCESS;
27065: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27066: engine_debug('Before Big Select');
27067:
27068: END IF;
27069: --hw
27072: IF nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) = G_YES THEN
27073: l_satis_quals_opt := 'N';
27074: END IF;
27075:
27076: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27077: engine_debug('QP_SATIS_QUALS_OPT: ' || l_satis_quals_opt);
27078:
27079: END IF;
27080: --l_prod_qual_count := 0;
27079: END IF;
27080: --l_prod_qual_count := 0;
27081: l_prod_cur_count := 0;
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);
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:
27093: --Added call for 3520634
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:
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);
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:
27112: IF (G_QUALIFIER_TEMP <> 'E' OR G_LINE_QUALIFIER_TEMP <> 'E') THEN
27109: RAISE E_ROUTINE_ERRORS;
27110: END IF;
27111:
27112: IF (G_QUALIFIER_TEMP <> 'E' OR G_LINE_QUALIFIER_TEMP <> 'E') THEN
27113: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27114: engine_debug('Caching Qualifiers for phase : ' || p_pricing_phase_id || ' Successful');
27115: END IF;
27116: -- For each primary search list header , list line and qualifier grouping no
27117: /*
27121: from qp_preq_qual_tmp
27122: where pricing_status_code = G_STATUS_UNCHANGED
27123: and pricing_phase_id = p_pricing_phase_id
27124: order by list_header_id,list_line_id,qualifier_grouping_no) LOOP
27125: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27126: engine_debug('Executing Mini Caching Qualifiers for phase : ' || p_pricing_phase_id ||
27127: 'List Header id : ' || c1.list_header_id || ' List Line Id : ' || c1.list_line_id ||
27128: 'Grouping No: ' || c1.qualifier_grouping_no);
27129: END IF;
27128: 'Grouping No: ' || c1.qualifier_grouping_no);
27129: END IF;
27130: Mini_Cache_Qualifiers(c1.list_header_id , c1.list_line_id , c1.qualifier_grouping_no,
27131: p_pricing_phase_id,l_status_code,l_status_text);
27132: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27133: RAISE E_ROUTINE_ERRORS;
27134: END IF;
27135: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27136: engine_debug('Executing Mini Caching Qualifiers for phase : ' || p_pricing_phase_id || ' Successful');
27131: p_pricing_phase_id,l_status_code,l_status_text);
27132: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27133: RAISE E_ROUTINE_ERRORS;
27134: END IF;
27135: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27136: engine_debug('Executing Mini Caching Qualifiers for phase : ' || p_pricing_phase_id || ' Successful');
27137: END IF;
27138: END LOOP; */
27139:
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
27156: engine_debug('Executing Mini Caching Qualifiers for phase : ' || p_pricing_phase_id || ' Successful');
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
27156: engine_debug('Executing Mini Caching Qualifiers for phase : ' || p_pricing_phase_id || ' Successful');
27157:
27158: END IF;
27159: END IF;
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;
27168:
27169: --hw
27170: --if QP_PERF_PVT.enabled = 'Y' then
27171: --if l_perf_pvt_enabled = 'Y' then
27172: /*
27173:
27174: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27175: engine_debug('hw: l_get_line_index_for_quals_n path');
27176:
27177: END IF;
27178: -- update null group count
27205: where qpqt1.pricing_phase_id = p_pricing_phase_id
27206: and qpqt1.pricing_status_code = G_STATUS_UNCHANGED
27207: and qpqt1.qualifier_grouping_no <> -1;
27208:
27209: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
27210: for i in (select list_header_id,list_line_id,qualifier_grouping_no,null_group_cnt,other_group_cnt,search_ind,
27211: qualifier_group_cnt,others_group_cnt,qualifier_attribute_context,qualifier_attribute,qualifier_attribute_value
27212: from qp_preq_qual_tmp
27213: where pricing_phase_id = p_pricing_phase_id
27313: , G_ACTIVE_DATE_SEC_TYPE_TBL_Q
27314: , G_HEADER_LIMIT_EXISTS_TBL_Q LIMIT nROWS;
27315: EXIT WHEN G_LIST_HEADER_ID_TBL_Q.COUNT = 0;
27316:
27317: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27318: engine_debug('Inserting no rows into qp_preq_qual_tmp for each line index');
27319: END IF;
27320: IF (G_LIST_HEADER_ID_TBL_Q.COUNT > 0) THEN
27321:
27319: END IF;
27320: IF (G_LIST_HEADER_ID_TBL_Q.COUNT > 0) THEN
27321:
27322: --G_QUALIFIER_TEMP := G_QUALIFIER_TEMP_UPDATED;
27323: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27324: engine_debug('Inserting rows into qp_preq_qual_tmp for each line index: ' || G_LIST_HEADER_ID_TBL_Q.COUNT);
27325:
27326: END IF;
27327: INSERT_QUAL(
27374: */
27375:
27376: /* else */
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;
27466: , G_HEADER_LIMIT_EXISTS_TBL_Q
27467: , G_DERIVED_QUALIFIER_FLAG_TBL_Q LIMIT nROWS; -- Added for TCA
27468: EXIT WHEN G_LIST_HEADER_ID_TBL_Q.COUNT = 0;
27469:
27470: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27471: engine_debug('Inserting no rows into qp_preq_qual_tmp for each line index');
27472: END IF;
27473: IF (G_LIST_HEADER_ID_TBL_Q.COUNT > 0) THEN
27474:
27472: END IF;
27473: IF (G_LIST_HEADER_ID_TBL_Q.COUNT > 0) THEN
27474:
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(
27531: Perform_Qualifier_Grouping(G_YES,p_pricing_phase_id,l_status_code,l_status_text);
27532:
27533: /* end if; */
27534:
27535: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
27536: RAISE E_ROUTINE_ERRORS;
27537: END IF;
27538:
27539: END IF; --IF (G_QUALIFIER_TEMP <> 'E' OR G_LINE_QUALIFIER_TEMP <> 'E') THEN
27541: OPEN l_prod_qual_cur (p_pricing_phase_id, -99,-99,-99);
27542:
27543:
27544: LOOP
27545: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27546: engine_debug('In l_prod_qual_cur loop fetch');
27547: END IF;
27548: G_LIST_HEADER_ID_TBL_P.delete;
27549: G_LIST_LINE_ID_TBL_P.delete;
27645:
27646: IF (G_LINE_INDEX_TBL_P.COUNT > 0) THEN
27647: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
27648:
27649: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27650: engine_debug(' Prod Qual List line id selected from big select: '||G_LIST_LINE_ID_TBL_P(I));
27651:
27652: END IF;
27653: IF (lq_line_index <> G_LINE_INDEX_TBL_P(I) OR lq_list_line_id <> G_LIST_LINE_ID_TBL_P(I)) THEN
27711: --4029027 commented out by 4455344/4489224
27712: --bug 4029027
27713: --IF (l_satis_quals_opt <> 'N' or (l_satis_quals_opt = 'N' and g_context_tbl_p(i) <> G_QUALIFIER_TYPE)) THEN
27714:
27715: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27716: engine_debug(' #2 ' );
27717: END IF;
27718: --PRODUCT ATTRIBUTES
27719: G_LINE_INDEX_tbl(K) :=G_LINE_INDEX_TBL_P(I);
27746: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
27747: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
27748: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
27749: K:= K+1;
27750: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27751: engine_debug('The value of K : ' || K);
27752: END IF;
27753:
27754: IF l_satis_quals_opt = 'Y' THEN -- [4455344/4489224] {
27753:
27754: IF l_satis_quals_opt = 'Y' THEN -- [4455344/4489224] {
27755: IF (l_satisfied_list_header_id <> -9999) THEN
27756:
27757: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27758: engine_debug('Qualifiers for List Header Id : ' || l_satisfied_list_header_id );
27759: engine_debug('Qualifiers for List Line Id : ' || l_satisfied_lst_line_id );
27760:
27761: END IF;
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
27768: engine_debug(' Qual #3 ' );
27769: END IF;
27770: --Qualifier attributes
27771: G_LINE_INDEX_tbl(K) :=l_satisfied_line_indx;
27799: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=l_satisfied_modifier_lvl_code;
27800: G_PRIMARY_UOM_FLAG_TBL_A(K) :=l_satisfied_primary_uom_flag;
27801: K:= K+1;
27802:
27803: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27804: engine_debug('The value of K : ' || K);
27805: engine_debug('Qualifier Context : ' || v.qualifier_attribute_context);
27806: engine_debug('Qualifier Attribute : ' || v.qualifier_attribute);
27807: engine_debug('Qualifier Value : ' || v.qualifier_attribute_value);
27838: OPEN l_prod_qual_pric_cur(p_pricing_phase_id, -99,-99,-99) ;
27839:
27840:
27841: LOOP
27842: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27843: engine_debug('In l_prod_qual_pric_cur loop fetch');
27844: END IF;
27845: G_LIST_HEADER_ID_TBL_P.delete;
27846: G_LIST_LINE_ID_TBL_P.delete;
27959:
27960: IF (G_LINE_INDEX_TBL_P.COUNT > 0) THEN
27961: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
27962:
27963: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27964: engine_debug(' Prod Qual Pric List line id selected from big select: '||G_LIST_LINE_ID_TBL_P(I) );
27965: engine_debug(' #1');
27966: END IF;
27967:
27965: engine_debug(' #1');
27966: END IF;
27967:
27968:
27969: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27970: engine_debug(' #2');
27971:
27972: END IF;
27973: IF (lq_line_index <> G_LINE_INDEX_TBL_P(I) OR lq_list_line_id <> G_LIST_LINE_ID_TBL_P(I)) THEN
28014: G_ACCUM_CONTEXT_TBL(M) :=G_ACCUM_CONTEXT_TBL_P(I); -- accum range break
28015: G_ACCUM_ATTRIBUTE_TBL(M) :=G_ACCUM_ATTRIBUTE_TBL_P(I); -- accum range break
28016: G_ACCUM_FLAG_TBL(M) :=G_ACCUM_FLAG_TBL_P(I); -- accum range break
28017: M:=M+1;
28018: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28019: engine_debug(' #4');
28020: END IF;
28021: l_satisfied_list_header_id := G_LIST_HEADER_ID_TBL_P(I);
28022: l_satisfied_lst_line_id := G_LIST_LINE_ID_TBL_P(I);
28065: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
28066: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
28067: K:= K+1;
28068:
28069: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28070: engine_debug('The value of K : ' || K);
28071: END IF;
28072:
28073: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28069: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28070: engine_debug('The value of K : ' || K);
28071: END IF;
28072:
28073: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28074: engine_debug(' #5');
28075:
28076: END IF;
28077: --INSERT PRICING ATTRIBUTES
28106: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
28107: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
28108: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
28109: K:= K+1;
28110: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28111: engine_debug('The value of K : ' || K);
28112: END IF;
28113: END IF;
28114:
28113: END IF;
28114:
28115: IF (l_satisfied_list_header_id <> -9999) THEN
28116:
28117: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28118: engine_debug('Qualifiers for List Header Id : ' || l_satisfied_list_header_id );
28119: engine_debug('Qualifiers for List Line Id : ' || l_satisfied_lst_line_id );
28120:
28121: END IF;
28120:
28121: END IF;
28122: FOR V IN l_get_satisfied_quals(l_satisfied_list_header_id,l_satisfied_lst_line_id, l_satisfied_line_indx)
28123: LOOP
28124: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28125: engine_debug(' Qual #3 ' );
28126: END IF;
28127: --Qualifier attributes
28128: G_LINE_INDEX_tbl(K) :=l_satisfied_line_indx;
28156: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=l_satisfied_modifier_lvl_code;
28157: G_PRIMARY_UOM_FLAG_TBL_A(K) :=l_satisfied_primary_uom_flag;
28158: K:= K+1;
28159:
28160: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28161: engine_debug('The value of K : ' || K);
28162: engine_debug('Qualifier Context : ' || v.qualifier_attribute_context);
28163: engine_debug('Qualifier Attribute : ' || v.qualifier_attribute);
28164: engine_debug('Qualifier Value : ' || v.qualifier_attribute_value);
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
28194: engine_debug('In l_inner_qual_cur loop fetch');
28195:
28196: END IF;
28197: G_LIST_HEADER_ID_TBL_Q.delete;
28268: G_ACCUM_FLAG_TBL_P LIMIT nROWS;
28269:
28270: EXIT WHEN G_LINE_INDEX_TBL_Q.COUNT = 0;
28271:
28272: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28273: engine_debug(' In l_inner_qual_cur Count : '||G_LIST_LINE_ID_TBL_Q.count );
28274:
28275: END IF;
28276: IF (G_LINE_INDEX_TBL_Q.COUNT > 0) THEN
28274:
28275: END IF;
28276: IF (G_LINE_INDEX_TBL_Q.COUNT > 0) THEN
28277: FOR I in G_LINE_INDEX_TBL_Q.FIRST .. G_LINE_INDEX_TBL_Q.LAST LOOP
28278: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28279: engine_debug(' In l_inner_qual_cur : '||G_LIST_LINE_ID_TBL_Q(I) );
28280:
28281: END IF;
28282: IF (lq_line_index <> G_LINE_INDEX_TBL_Q(I) OR lq_list_line_id <> G_LIST_LINE_ID_TBL_Q(I)) THEN
28338: if l_satis_quals_opt <> 'N' then
28339:
28340: IF (l_satisfied_list_header_id <> -9999) THEN
28341:
28342: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28343: engine_debug('Qualifiers for List Header Id : ' || l_satisfied_list_header_id );
28344: engine_debug('Qualifiers for List Line Id : ' || l_satisfied_lst_line_id );
28345:
28346: END IF;
28345:
28346: END IF;
28347: FOR V IN l_get_satisfied_quals(l_satisfied_list_header_id,l_satisfied_lst_line_id, l_satisfied_line_indx)
28348: LOOP
28349: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28350: engine_debug(' Qual #3 ' );
28351: END IF;
28352: --Qualifier attributes
28353: G_LINE_INDEX_tbl(K) :=l_satisfied_line_indx;
28381: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=l_satisfied_modifier_lvl_code;
28382: G_PRIMARY_UOM_FLAG_TBL_A(K) :=l_satisfied_primary_uom_flag;
28383: K:= K+1;
28384:
28385: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28386: engine_debug('The value of K : ' || K);
28387: engine_debug('Qualifier Context : ' || v.qualifier_attribute_context);
28388: engine_debug('Qualifier Attribute : ' || v.qualifier_attribute);
28389: engine_debug('Qualifier Value : ' || v.qualifier_attribute_value);
28414: lq_line_index := -9999;
28415: lq_list_line_id := -9999;
28416:
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);
28525: EXIT WHEN G_LINE_INDEX_TBL_P.COUNT = 0;
28526:
28527: IF (G_LINE_INDEX_TBL_P.COUNT > 0) THEN
28528: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
28529: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28530: engine_debug('Before dup tbl loop');
28531: END IF;
28532:
28533: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28529: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28530: engine_debug('Before dup tbl loop');
28531: END IF;
28532:
28533: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28534: engine_debug('List line id selected from l_prod_cur_mod: '||g_list_line_id_TBL_P(I));
28535: engine_debug('Excluder Flag selected from big select1: '||g_excluder_flag_TBL_P(I));
28536:
28537: END IF;
28612: G_NO_QUALIFIERS_IN_GRP_tbl(K) :=NULL;
28613: G_PRICING_STATUS_TEXT_tbl(K) :='PRODUCT_ONLY';
28614: G_QUALIFIER_PRECEDENCE_tbl(K) :=G_QUALIFIER_PRECEDENCE_TBL_P(I);
28615: G_DATATYPE_tbl(K) :=NULL;
28616: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28617: engine_debug('Before Insert Excluder Flag selected from big select1: '||g_excluder_flag_TBL_P(I));
28618: END IF;
28619: G_EXCLUDER_FLAG_TBL(K) :=G_EXCLUDER_FLAG_TBL_P(I);
28620: G_PRODUCT_UOM_CODE_TBL(K) :=G_PRODUCT_UOM_CODE_TBL_P(I);
28624: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
28625: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
28626: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
28627: K:= K+1;
28628: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28629: engine_debug('The value of K : ' || K);
28630: END IF;
28631:
28632: -- end if; [4455344/4489224]
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');
28643:
28644: END IF;
28645: lq_line_index := -9999;
28644: END IF;
28645: lq_line_index := -9999;
28646: lq_list_line_id := -9999;
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);
28776:
28777: --selecting lists that match product and pricing attributes only
28778: IF (G_LINE_INDEX_TBL_P.COUNT > 0) THEN
28779: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
28780: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28781: engine_debug('List line id selected from l_prod_pric_cur_mod: '||G_LIST_LINE_ID_TBL_P(I) );
28782: END IF;
28783: IF (lq_line_index <> g_line_index_tbl_p(I) OR lq_list_line_id <> g_list_line_id_tbl_p(I)) THEN
28784: L_LINE_DETAIL_INDEX := GET_LINE_DETAIL_INDEX;
28867: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
28868: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
28869: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
28870: K:= K+1;
28871: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28872: engine_debug('The value of K : ' || K);
28873:
28874: END IF;
28875: --INSERT PRICING ATTRIBUTES
28904: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
28905: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
28906: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
28907: K:= K+1;
28908: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28909: engine_debug('The value of K : ' || K);
28910: END IF;
28911: END IF;
28912:
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');
28924:
28925: END IF;
28926: IF(G_BLIND_DISCOUNT_PROFILE = G_YES) THEN
28923: engine_debug('After l_prod_pric_cur_mod');
28924:
28925: END IF;
28926: IF(G_BLIND_DISCOUNT_PROFILE = G_YES) THEN
28927: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28928: engine_debug('In blind discount mode');
28929:
28930: END IF;
28931: lq_line_index := -9999;
28931: lq_line_index := -9999;
28932: lq_list_line_id := -9999;
28933:
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);
29018:
29019: IF (G_LINE_INDEX_TBL_B.COUNT > 0) THEN
29020: FOR I in G_LINE_INDEX_TBL_B.FIRST .. G_LINE_INDEX_TBL_B.LAST LOOP
29021:
29022: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29023: engine_debug('List line id selected from blind cur: '||G_LIST_LINE_ID_TBL_B(I) );
29024: END IF;
29025: IF (lq_line_index <> g_line_index_tbl_b(I) OR lq_list_line_id <> g_list_line_id_tbl_b(I)) THEN
29026: l_line_detail_index :=GET_LINE_DETAIL_INDEX;
29023: engine_debug('List line id selected from blind cur: '||G_LIST_LINE_ID_TBL_B(I) );
29024: END IF;
29025: IF (lq_line_index <> g_line_index_tbl_b(I) OR lq_list_line_id <> g_list_line_id_tbl_b(I)) THEN
29026: l_line_detail_index :=GET_LINE_DETAIL_INDEX;
29027: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29028: engine_debug('Getting new line detail index2 '||l_line_detail_index);
29029: END IF;
29030:
29031: G_LINE_INDEX_LD_TBL(M) :=G_LINE_INDEX_TBL_B(I);
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
29087: engine_debug('After blind cursor');
29088:
29089:
29090: END IF;
29087: engine_debug('After blind cursor');
29088:
29089:
29090: END IF;
29091: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
29092: --RAISE OTHERS;
29093: NULL;
29094: END IF;
29095:
29095:
29096: -- Keep it for debugging purposes
29097: /* FOR Z In 1 .. g_line_detail_index_ld_tbl.count
29098: Loop
29099: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29100: engine_debug( '1: ' || G_LINE_DETAIL_INDEX_LD_TBL(Z));
29101: engine_debug( '2: ' || G_LINE_DETAIL_TYPE_CODE_TBL(Z));
29102: engine_debug( '3: ' || G_PRICE_BREAK_TYPE_CODE_TBL(Z));
29103: engine_debug( '5: ' || G_LINE_INDEX_LD_TBL(Z) );
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
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
29229: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
29230: x_status_code =>l_status_code,
29231: x_status_text =>l_status_text);
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;
29230: x_status_code =>l_status_code,
29231: x_status_text =>l_status_text);
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:
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');
29241:
29242: END IF;
29243: K := 1;
29321:
29322: IF (G_LINE_INDEX_TBL_P.COUNT > 0) THEN
29323: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
29324: --INSERT PRODUCT ATTRIBUTES
29325: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29326: engine_debug('Inserting attributes in excluded cursor : ' || G_LINE_INDEX_TBL_P(I));
29327: END IF;
29328: G_LINE_INDEX_tbl(K) := G_LINE_INDEX_TBL_P(I);
29329: G_ATTRIBUTE_LEVEL_tbl(K) := G_ATTRIBUTE_LEVEL_TBL_P(I);
29396: p_MODIFIER_LEVEL_CODE_TBL =>G_MODIFIER_LEVEL_CODE_TBL_A,
29397: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
29398: x_status_code =>l_status_code,
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;
29404: END IF;
29405:
29406: --Reset_all_tbls;
29407: Reset_All_Tbls(l_status_code ,l_status_text );
29408: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
29409: RAISE E_ROUTINE_ERRORS;
29410: END IF;
29411:
29412:
29411:
29412:
29413: EXCEPTION
29414: WHEN E_ROUTINE_ERRORS THEN
29415: x_status_code := FND_API.G_RET_STS_ERROR;
29416: x_status_text := l_status_text;
29417: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29418: engine_debug(l_status_text);
29419: END IF;
29413: EXCEPTION
29414: WHEN E_ROUTINE_ERRORS THEN
29415: x_status_code := FND_API.G_RET_STS_ERROR;
29416: x_status_text := l_status_text;
29417: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29418: engine_debug(l_status_text);
29419: END IF;
29420: WHEN OTHERS THEN
29421: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29417: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29418: engine_debug(l_status_text);
29419: END IF;
29420: WHEN OTHERS THEN
29421: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29422: engine_debug('< In Select_modifiers>: '||SQLERRM);
29423: END IF;
29424: x_status_code := FND_API.G_RET_STS_ERROR;
29425: x_status_text := l_routine||' '||SQLERRM;
29420: WHEN OTHERS THEN
29421: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29422: engine_debug('< In Select_modifiers>: '||SQLERRM);
29423: END IF;
29424: x_status_code := FND_API.G_RET_STS_ERROR;
29425: x_status_text := l_routine||' '||SQLERRM;
29426: END SELECT_MODIFIERS;
29427:
29428: procedure SELECT_PRICE_LIST_LINES_PAT(
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
30060: l_use_multi_curr := TRUE;
30061: END IF;
30059: IF G_MULTI_CURRENCY_PROFILE = 'Y' AND G_USE_MULTI_CURRENCY = 'Y' THEN
30060: l_use_multi_curr := TRUE;
30061: END IF;
30062:
30063: IF g_debug_engine = fnd_api.g_true THEN
30064: engine_debug('Path selected - '||p_search_path);
30065:
30066: IF l_use_multi_curr THEN
30067: engine_debug('Multi Currency Enabled ');
30070: END IF;
30071:
30072: END IF;
30073:
30074: IF g_debug_engine = fnd_api.g_true THEN
30075: engine_debug('Entering into procedure select_price_list_lines_pat');
30076: END IF;
30077:
30078: -- Take path value from the profile.
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;
30357: END IF;
30358:
30359: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_LIN','Evaluating other operators after line cache');
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;
30372:
30373: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_LIN_TCA_P2', 'Header/Line deletion for TCA');
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;
30618:
30619: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_HDR','Evaluating other operators after header cache');
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;
30862:
30863: qp_debug_util.tstart('QP_EVALUATE_OTHER_OPERATORS_LIN','Evaluating other operators after line cache');
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;
30876:
30877: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_LIN_TCA_P1', 'Line deletion for TCA');
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;
30933:
30934: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30930: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
30931: RAISE E_ROUTINE_ERRORS;
30932: END IF;
30933:
30934: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30935: engine_debug('Incomp Return Status Non Validated QP_PREQ_GRP: ' || l_return_status);
30936:
30937: END IF;
30938:
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;
30973:
30974: --bug# 2091386 not reflecting the right price on change on UOM on the order line . Since
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;
30991:
30992: ELSE
30991:
30992: ELSE
30993: -- Update the request line status for lines which got valid price list
30994: Update_Request_Line_Status(p_control_rec,'FAILURE',p_freeze_override_flag,x_status_code,x_status_text); --[juiln/4708044]
30995: IF(x_status_code = FND_API.G_RET_STS_ERROR) THEN
30996: RAISE E_ROUTINE_ERRORS;
30997: END IF;
30998:
30999: END IF;
31032: END if;
31033:
31034: END IF;
31035:
31036: x_status_code := FND_API.G_RET_STS_ERROR;
31037: x_status_text := 'Expected Error in ' || l_routine || sqlerrm;
31038:
31039: IF g_debug_engine = fnd_api.g_true THEN
31040: engine_debug(x_status_text);
31035:
31036: x_status_code := FND_API.G_RET_STS_ERROR;
31037: x_status_text := 'Expected Error in ' || l_routine || sqlerrm;
31038:
31039: IF g_debug_engine = fnd_api.g_true THEN
31040: engine_debug(x_status_text);
31041: END IF;
31042:
31043: WHEN OTHERS THEN
31070: CLOSE l_pat_line_p2;
31071: END if;
31072:
31073: END IF;
31074: IF g_debug_engine = fnd_api.g_true THEN
31075: engine_debug(l_routine || ' ' || sqlerrm);
31076: END IF;
31077:
31078: x_status_code := fnd_api.g_ret_sts_error;
31074: IF g_debug_engine = fnd_api.g_true THEN
31075: engine_debug(l_routine || ' ' || sqlerrm);
31076: END IF;
31077:
31078: x_status_code := fnd_api.g_ret_sts_error;
31079: x_status_text := 'Error in ' || l_routine || sqlerrm;
31080:
31081:
31082: END select_price_list_lines_pat;
33333: E_ROUTINE_ERRORS EXCEPTION;
33334:
33335: BEGIN
33336:
33337: x_status_code := FND_API.G_RET_STS_SUCCESS;
33338: l_prod_qual_count :=0;
33339: l_prod_cur_count :=0;
33340:
33341: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33337: x_status_code := FND_API.G_RET_STS_SUCCESS;
33338: l_prod_qual_count :=0;
33339: l_prod_cur_count :=0;
33340:
33341: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33342: engine_debug('Before Big Select');
33343: engine_debug('p_pricing_phase_id: '||p_pricing_phase_id);
33344: engine_debug('p_freeze_override_flag: '||p_freeze_override_flag);
33345:
33345:
33346: END IF;
33347: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
33348: --selecting lists that match product and qualifiers attributes
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');
33409: LIMIT nROWS;
33410:
33411: EXIT WHEN G_LINE_INDEX_TBL_P.COUNT = 0;
33412:
33413: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33414: engine_debug('shu dbg, after bulk insert');
33415: END IF;
33416:
33417: if (G_LINE_INDEX_TBL_P.COUNT > 0) then
33459: G_BREAK_ATTRIBUTE_TBL(M) := G_BREAK_ATTRIBUTE_TBL_P(i); /* Proration */
33460:
33461: M:=M+1;
33462:
33463: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33464: engine_debug('M: '|| M);
33465: END IF;
33466:
33467:
33500: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
33501: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
33502:
33503: K:= K+1;
33504: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33505: engine_debug('The value of K1: ' || K);
33506: END IF;
33507: -- set qualifier attributes
33508: G_LINE_INDEX_tbl(K) := G_LINE_INDEX_TBL_P(i);
33533: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) := 'NULL';
33534: G_MODIFIER_LEVEL_CODE_TBL_A(K) := G_MODIFIER_LEVEL_CODE_TBL_P(i);
33535: G_PRIMARY_UOM_FLAG_TBL_A(K) := G_PRIMARY_UOM_FLAG_TBL_P(i);
33536: K:= K+1;
33537: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33538: engine_debug('The value of K2: ' || K);
33539:
33540: END IF;
33541: end loop;
33548:
33549: lq_line_index := -9999;
33550: lq_list_line_id := -9999;
33551:
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');
33695: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
33696: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
33697: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
33698: K:= K+1;
33699: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33700: engine_debug('The value of K: ' || K);
33701:
33702: END IF;
33703: -- set qualifier attributes
33762: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
33763: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
33764: K:= K+1;
33765: END IF;
33766: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33767: engine_debug('The value of K: ' || K);
33768:
33769: END IF;
33770: end loop;
33777:
33778: lq_line_index := -9999;
33779: lq_list_line_id := -9999;
33780:
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');
33908: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
33909: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
33910: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
33911: K:= K+1;
33912: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33913: engine_debug('The value of K: ' || K);
33914: END IF;
33915: end loop;
33916: end if;
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
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');
34060: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
34061: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
34062: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
34063: K:= K+1;
34064: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34065: engine_debug('The value of K: ' || K);
34066:
34067: END IF;
34068: --set pricing attributes
34096: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
34097: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
34098: K:= K+1;
34099: END IF;
34100: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34101: engine_debug('The value of K: ' || K);
34102: END IF;
34103: end loop;
34104: end if;
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:
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);
34165:
34166: if (G_LINE_INDEX_TBL_P.COUNT > 0) then
34167: for i in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST loop
34168: if (lq_line_index <> G_LINE_INDEX_TBL_P(i) or lq_list_line_id <> G_LIST_LINE_ID_TBL_P(i)) then
34169: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34170: engine_debug('Product_Qualifier');
34171: END IF;
34172: l_prod_qual_count := l_prod_qual_count + 1;
34173: L_LINE_DETAIL_INDEX :=GET_LINE_DETAIL_INDEX;
34236: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
34237: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
34238: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
34239: K:= K+1;
34240: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34241: engine_debug('The value of K: ' || K);
34242:
34243: END IF;
34244: -- set qualifier attributes
34270: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) := 'NULL';
34271: G_MODIFIER_LEVEL_CODE_TBL_A(K) := G_MODIFIER_LEVEL_CODE_TBL_P(i);
34272: G_PRIMARY_UOM_FLAG_TBL_A(K) := G_PRIMARY_UOM_FLAG_TBL_P(i);
34273: K:= K+1;
34274: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34275: engine_debug('The value of K: ' || K);
34276:
34277: END IF;
34278: end loop;
34284:
34285: lq_line_index := -9999;
34286: lq_list_line_id := -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);
34350:
34351: if (G_LINE_INDEX_TBL_P.COUNT > 0) then
34352: for i in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST loop
34353: if (lq_line_index <> G_LINE_INDEX_TBL_P(i) or lq_list_line_id <> G_LIST_LINE_ID_TBL_P(i)) then
34354: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34355: engine_debug('Product_Qualifier_Pricing');
34356: END IF;
34357: l_prod_qual_count := l_prod_qual_count + 1;
34358: L_LINE_DETAIL_INDEX :=GET_LINE_DETAIL_INDEX;
34421: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
34422: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
34423: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
34424: K:= K+1;
34425: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34426: engine_debug('The value of K: ' || K);
34427:
34428: END IF;
34429: -- set qualifier attributes
34488: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
34489: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
34490: K:= K+1;
34491: END IF;
34492: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34493: engine_debug('The value of K: ' || K);
34494:
34495: END IF;
34496: end loop;
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);
34551:
34552: if (G_LINE_INDEX_TBL_P.COUNT > 0) then
34553: for i in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST loop
34554: if (lq_line_index <> G_LINE_INDEX_TBL_P(i) or lq_list_line_id <> G_LIST_LINE_ID_TBL_P(i)) then
34555: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34556: engine_debug('Product Only');
34557: END IF;
34558: l_prod_qual_count := l_prod_qual_count + 1;
34559: L_LINE_DETAIL_INDEX :=GET_LINE_DETAIL_INDEX;
34622: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
34623: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
34624: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
34625: K:= K+1;
34626: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34627: engine_debug('The value of K: ' || K);
34628:
34629: END IF;
34630: end loop;
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);
34693:
34694: if (G_LINE_INDEX_TBL_P.COUNT > 0) then
34695: for i in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST loop
34696: if (lq_line_index <> G_LINE_INDEX_TBL_P(i) or lq_list_line_id <> G_LIST_LINE_ID_TBL_P(i)) then
34697: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34698: engine_debug('Product Pricing Only');
34699: END IF;
34700: l_prod_qual_count := l_prod_qual_count + 1;
34701: L_LINE_DETAIL_INDEX :=GET_LINE_DETAIL_INDEX;
34764: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
34765: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
34766: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
34767: K:= K+1;
34768: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34769: engine_debug('The value of K: ' || K);
34770:
34771: END IF;
34772: --set pricing attributes
34800: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
34801: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
34802: K:= K+1;
34803: END IF;
34804: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34805: engine_debug('The value of K: ' || K);
34806:
34807: END IF;
34808: end loop;
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;
34824: INSERT_LDETS_PRICE_LIST_MULT(
34825: p_LINE_DETAIL_INDEX => G_LINE_DETAIL_INDEX_LD_TBL,
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;
34935: END IF;
34936:
34937: --Reset_all_tbls;
34935: END IF;
34936:
34937: --Reset_all_tbls;
34938: Reset_All_Tbls(l_status_code ,l_status_text );
34939: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
34940: RAISE E_ROUTINE_ERRORS;
34941: END IF;
34942:
34943: EXCEPTION
34941: END IF;
34942:
34943: EXCEPTION
34944: WHEN E_ROUTINE_ERRORS THEN
34945: x_status_code := FND_API.G_RET_STS_ERROR;
34946: x_status_text := l_routine||': '||l_status_text;
34947: WHEN OTHERS THEN
34948: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34949: engine_debug('< In Select_Price_List_Lines>: '||SQLERRM);
34944: WHEN E_ROUTINE_ERRORS THEN
34945: x_status_code := FND_API.G_RET_STS_ERROR;
34946: x_status_text := l_routine||': '||l_status_text;
34947: WHEN OTHERS THEN
34948: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34949: engine_debug('< In Select_Price_List_Lines>: '||SQLERRM);
34950: -- Keep it for debugging purposes
34951: /*
34952: FOR Z In 1 .. G_LIST_HEADER_ID_TBL_P.count
34996:
34997: End Loop;
34998: */
34999: END IF;
35000: x_status_code := FND_API.G_RET_STS_ERROR;
35001: x_status_text := l_routine||': '||SQLERRM;
35002: END SELECT_PRICE_LIST_LINES;
35003:
35004: /*+------------------------------------------------------------
35231: CLOSE l_check_modlist_exists_cur;
35232: --END IF;
35233: --CLOSE l_check_modlist_cur;
35234:
35235: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
35236: RAISE E_ROUTINE_ERRORS;
35237: END IF;
35238: l_list_header_id := null; -- Bug No: 7323621
35239: END LOOP;
35293: l_status_code,
35294: l_status_text);
35295: END IF; -- end if rounding_flag
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
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;
35305: WHEN OTHERS THEN
35306: v_error_code :=SQLCODE;
35307: v_error_message:=SQLERRM;
35304: x_status_text := l_routine||': '||l_status_text;
35305: WHEN OTHERS THEN
35306: v_error_code :=SQLCODE;
35307: v_error_message:=SQLERRM;
35308: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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;
35307: v_error_message:=SQLERRM;
35308: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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:
35343: END LOOP;
35344:
35345: EXCEPTION
35346: WHEN OTHERS THEN
35347: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35348: engine_debug(l_routine||': '||SQLERRM);
35349: END IF;
35350: x_status_code := FND_API.G_RET_STS_ERROR;
35351: x_status_text := l_routine||': '||SQLERRM;
35346: WHEN OTHERS THEN
35347: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35348: engine_debug(l_routine||': '||SQLERRM);
35349: END IF;
35350: x_status_code := FND_API.G_RET_STS_ERROR;
35351: x_status_text := l_routine||': '||SQLERRM;
35352: END Get_Reason;
35353:
35354: /*+------------------------------------------------------------
35645:
35646: BEGIN
35647:
35648:
35649: x_status_code := FND_API.G_RET_STS_SUCCESS;
35650:
35651: --For manual discount, we want pricing_group sequence to be NULL
35652: /*
35653: -- This update is not needed as it is taken care of by the setup
35657: SET PRICING_GROUP_SEQUENCE = NULL
35658: WHERE AUTOMATIC_FLAG = G_NO; */
35659:
35660:
35661: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35662: engine_debug( '-------------In call calculation engine-----------');
35663: END IF;
35664:
35665: l_GSA_Enabled_Flag := FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled);
35663: END IF;
35664:
35665: l_GSA_Enabled_Flag := FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled);
35666:
35667: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35668: engine_debug ('GSA Enabled Flag : ' || l_GSA_Enabled_Flag);
35669: engine_debug ('Freeze_override_flag: '||p_freeze_override_flag);
35670: END IF;
35671:
35694: G_ADJUSTMENT_AMOUNT_TBL_R.delete;
35695: G_LINE_DETAIL_INDEX_TBL_R.delete;
35696: G_PARENT_PRICE_TBL_P.delete;
35697:
35698: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35699: engine_debug (' G_REQUEST_TYPE_CODE: ' ||G_REQUEST_TYPE_CODE); -- shu, aso rounding
35700: engine_debug (' G_ROUNDING_FLAG: ' ||G_ROUNDING_FLAG); -- shu, aso rounding
35701: END IF; -- END IF DEBUG
35702:
35701: END IF; -- END IF DEBUG
35702:
35703: FOR I IN l_request_line_cur LOOP
35704:
35705: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35706: engine_debug('-----l_request_line_cur I loop ------');
35707: engine_debug (' line_index: ' ||i.line_index);
35708: engine_debug (' line_type_code: ' ||i.line_type_code);
35709: engine_debug (' rounding_factor: ' ||i.rounding_factor);
35762: ELSE
35763: p_cal_req_line_rec.RELATED_ITEM_PRICE := nvl(l_parent_line_unit_price, l_parent_unit_price);
35764: END IF; -- END IF (g_parent_price_tbl_p.count > 0)
35765:
35766: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35767: engine_debug(' l_parent_line index : '|| l_parent_line_index);
35768: engine_debug(' p_cal_req_line_rec.RELATED_ITEM_PRICE: '|| p_cal_req_line_rec.RELATED_ITEM_PRICE);
35769: END IF; -- END IF DEBUG
35770:
35770:
35771: ELSE -- l_parent_line_index is null
35772: -- Error Condition
35773: null;
35774: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35775: engine_debug('Unable to find parent line for a service item');
35776: END IF;
35777: l_err_line_index := I.LINE_INDEX;
35778: DELETE_LINES(l_err_line_index,
35785:
35786: END IF; -- END IF (I.PROCESSING_ORDER > 1)
35787:
35788: FOR K IN l_request_line_detail_cur(I.LINE_INDEX,I.PRICE_FLAG) LOOP
35789: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35790: engine_debug('-----l_request_line_detail_cur K loop------');
35791: END IF;
35792:
35793: l_line_details_exist_flag := TRUE;
35824: p_cal_req_ldets_tbl(J).ROUNDING_FACTOR := k.ROUNDING_FACTOR; --10093463
35825:
35826:
35827:
35828: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35829: engine_debug('List Line Id for Qualifier Value: ' || k.created_from_list_line_id);
35830:
35831: END IF;
35832: -- This is not needed as in Process_Line_Group procedure we are populating the right attibute
35835: /* OPEN l_list_line_attribute_cur(K.created_from_list_line_id);
35836: FETCH l_list_line_attribute_cur INTO l_attribute;
35837: CLOSE l_list_line_attribute_cur; */
35838:
35839: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35840: engine_debug('Modifier Level Code: ' || K.modifier_level_code);
35841: END IF;
35842:
35843: IF (K.MODIFIER_LEVEL_CODE = G_LINE_GROUP) THEN
35863: -- end 2388011_latest
35864: l_value := null;
35865: END IF;
35866:
35867: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35868: engine_debug('Qualifier Value for loading: ' || p_cal_req_ldets_tbl(J).qualifier_value);
35869:
35870: END IF;
35871: p_cal_req_ldets_tbl(J).operand_calculation_code:=K.operand_calculation_code;
35870: END IF;
35871: p_cal_req_ldets_tbl(J).operand_calculation_code:=K.operand_calculation_code;
35872: p_cal_req_ldets_tbl(J).operand_value:=K.operand_value;
35873:
35874: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35875: engine_debug('accrual_flag: '||p_cal_req_ldets_tbl(J).accrual_flag);
35876: engine_debug('estim_accrual_rate: '||p_cal_req_ldets_tbl(J).estim_accrual_rate);
35877: engine_debug('accrual_conversion_rate: '||p_cal_req_ldets_tbl(J).accrual_conversion_rate);
35878:
35878:
35879: END IF;
35880: J:=J+1;
35881:
35882: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35883: engine_debug('+--------------------------------+');
35884: engine_debug('| In Parent Line |');
35885: engine_debug('+--------------------------------+');
35886: engine_debug('LINE_DETAIL_INDEX: '||K.line_detail_index);
35920: */
35921: --p_cal_req_rltd_tbl(N).line_detail_index is actually parent line detail index
35922: p_cal_req_rltd_tbl(N).line_detail_index := TO_NUMBER(G_PARENT_LINE_DETAIL_INDEX_TBL(k.line_detail_index));
35923:
35924: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35925: engine_debug('----IN Children line------------');
35926: engine_debug('value from: '||p_cal_req_rltd_tbl(N).value_from);
35927: engine_debug('value to: ' ||p_cal_req_rltd_tbl(N).value_to);
35928: engine_debug('LINE_INDEX: '||I.LINE_INDEX);
35942:
35943: END IF;
35944: <
35945: IF(K.AUTOMATIC_FLAG = G_NO AND p_is_direct_call = FALSE) THEN
35946: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35947: engine_debug('Not calling cal engine for child break line because automatic_flag was set to ''N''');
35948: END IF;
35949: null;
35950: END IF;
35951:
35952: END LOOP; --END K loop
35953:
35954:
35955: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35956: engine_debug(l_routine||' Before calling cal engine');
35957:
35958: END IF;
35959: QP_Calculate_Price_PUB.Calculate_Price
35962: p_cal_req_rltd_tbl,
35963: l_status_code,
35964: l_status_text);
35965:
35966: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
35967: l_err_line_index := I.LINE_INDEX;
35968: DELETE_LINES(l_err_line_index,
35969: G_STATUS_OTHER_ERRORS,
35970: 'Error returned by QP_Calculate_Price_PUB.Calculate_Price',
35969: G_STATUS_OTHER_ERRORS,
35970: 'Error returned by QP_Calculate_Price_PUB.Calculate_Price',
35971: l_status_code,
35972: l_status_text);
35973: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35974: engine_debug('Error text '||l_status_text);
35975: END IF;
35976: GOTO E_LOOP;
35977:
35983: G_PARENT_PRICE_TBL_P(i.line_index) := p_cal_req_line_rec.UNIT_PRICE;
35984: END IF;
35985: */
35986: -- Indicating that there was a GSA Violation
35987: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35988: engine_debug ('GSA Status Code : ' || l_status_code);
35989: END IF;
35990: IF (l_status_code = G_STATUS_GSA_VIOLATION) THEN
35991: l_gsa_violation_flag := 'Y';
35994: ELSE
35995: l_gsa_violation_flag := 'N';
35996: END IF;
35997:
35998: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
35999: engine_debug ('In Line Update Information100');
36000: END IF;
36001: -- Load Line Information
36002: IF (l_line_details_exist_flag = TRUE) THEN --Change
36015:
36016: -- begin shu, round line unit price (unit price by order uom)
36017: -- shu, fix bug 2354422, avoid division zero if i.LINE_QUANTITY is zero
36018:
36019: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36020: engine_debug ('parent_qty: '|| l_parent_priced_quantity);
36021: engine_debug ('unit_price: '|| p_cal_req_line_rec.UNIT_PRICE);
36022: engine_debug ('priced_qty: '|| i.PRICED_QUANTITY);
36023: engine_debug ('line_qty: '|| i.LINE_QUANTITY);
36098: END IF;
36099: END IF;
36100:
36101: END IF;
36102: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36103: engine_debug ('line_unit_price bfe round: '||l_line_unit_price);
36104: engine_debug ('rounding_factor:'|| i.rounding_factor);
36105: engine_debug (' order_uom_selling_price bfe round : ' || l_order_uom_selling_price); -- bug 2693700
36106: END IF;
36165: END IF;
36166: */
36167: --===[prarasto:Post Round] End : Calculate rounded values ==--
36168:
36169: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36170: engine_debug (' final line_unit_price : '||l_line_unit_price);
36171: engine_debug (' order_uom_selling_price : ' || l_order_uom_selling_price); -- bug 2693700
36172: engine_debug ('G_LINE_UNIT_PRICE_TBL_C(U) : '||G_LINE_UNIT_PRICE_TBL_C(U)); --[prarasto:Post Round]
36173: engine_debug ('l_unit_selling_price(U) : '||l_unit_selling_price(U)); --[prarasto:Post Round]
36178: l_order_uom_selling_price := NULL; -- bug 2693700
36179: l_conversion_rate := NULL; -- shu
36180: END IF;
36181:
36182: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36183: engine_debug ('In Line Update Information200');
36184: END IF;
36185: --Load Line Detail Information
36186: IF (p_cal_req_ldets_tbl.COUNT > 0) THEN
36205: G_LINE_DETAIL_INDEX_TBL_D(Y) := p_cal_req_ldets_tbl(X).line_detail_index;
36206: END LOOP;
36207: END IF;
36208:
36209: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36210: engine_debug ('In Line Update Information300');
36211: engine_debug ('Related Pl/sql table count : ' || p_cal_req_rltd_tbl.count);
36212:
36213: END IF;
36214: -- Load Related Lines Information
36215: IF (p_cal_req_rltd_tbl.COUNT > 0) THEN
36216: FOR X IN p_cal_req_rltd_tbl.FIRST .. p_cal_req_rltd_tbl.LAST
36217: LOOP
36218: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36219: engine_debug ('In Line Update Information3001');
36220: engine_debug ('Line Qty : ' || p_cal_req_rltd_tbl(X).line_qty);
36221: engine_debug ('Adjustment Amt : ' || p_cal_req_rltd_tbl(X).adjustment_amount);
36222: engine_debug ('Line Detail : ' || p_cal_req_rltd_tbl(X).child_line_detail_index);
36230:
36231: --Need to change it when have more time. Using bulk binding features.
36232: --to imporve performance
36233:
36234: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36235: engine_debug ('In Line Update Information400');
36236: engine_debug('#7');
36237: END IF;
36238: --Bug# 1372485
36242: AND I.line_type_code <> G_ORDER_LEVEL
36243: AND I.price_flag <> G_NO) THEN
36244:
36245: -- begin shu, fix bug 2425027
36246: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36247: engine_debug ('percent price: '||p_cal_req_line_rec.PERCENT_PRICE);
36248: engine_debug ('related item price: '||p_cal_req_line_rec.RELATED_ITEM_PRICE);
36249: END IF;
36250:
36249: END IF;
36250:
36251: IF p_cal_req_line_rec.PERCENT_PRICE IS NOT NULL AND p_cal_req_line_rec.RELATED_ITEM_PRICE IS NULL THEN
36252: l_message := ' No refernce of parent item or parent price is null for percent-based pricing.';
36253: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36254: engine_debug ('line_index: '||i.line_index);
36255: END IF;
36256: UPDATE qp_npreq_lines_tmp qplines
36257: SET
36266: l_status_text);
36267: ELSE
36268: -- end shu, fix bug 2425027
36269:
36270: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36271: engine_debug('#8');
36272:
36273: END IF;
36274: -- begin shulin bug 1605829 fix
36353: <
36354: null;
36355: END LOOP; --end loop for I
36356:
36357: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36358: engine_debug ('In Line Update Information500');
36359: END IF;
36360: -- Update All the Line Information at 1 shot
36361: IF (G_LINE_INDEX_TBL_C.COUNT > 0 ) THEN
36358: engine_debug ('In Line Update Information500');
36359: END IF;
36360: -- Update All the Line Information at 1 shot
36361: IF (G_LINE_INDEX_TBL_C.COUNT > 0 ) THEN
36362: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36363: engine_debug ('In Line Update Information');
36364: END IF;
36365: FORALL M IN G_LINE_INDEX_TBL_C.FIRST.. G_LINE_INDEX_TBL_C.LAST
36366: UPDATE qp_npreq_lines_tmp qplines
36389: AND (qplines.PRICING_STATUS_CODE <> G_STATUS_INVALID_PRICE_LIST
36390: OR qplines.LIST_PRICE_OVERRIDE_FLAG IN ('Y', 'O')); --po integration
36391: END IF;
36392:
36393: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36394: engine_debug ('In Line Update Information600');
36395: END IF;
36396: IF (p_is_direct_call = TRUE) THEN
36397: -- Update All the Line Details Information at 1 Shot for all Lines
36394: engine_debug ('In Line Update Information600');
36395: END IF;
36396: IF (p_is_direct_call = TRUE) THEN
36397: -- Update All the Line Details Information at 1 Shot for all Lines
36398: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36399: engine_debug ('In Line Detail Update Information1');
36400: END IF;
36401: IF (G_LINE_DETAIL_INDEX_TBL_D.COUNT > 0) THEN
36402: FORALL O IN G_LINE_DETAIL_INDEX_TBL_D.FIRST .. G_LINE_DETAIL_INDEX_TBL_D.LAST
36410: ,OPERAND_CALCULATION_CODE = G_OPR_CALC_CODE_TBL_D(O) --bug#12916970
36411: WHERE LINE_DETAIL_INDEX = G_LINE_DETAIL_INDEX_TBL_D(O);
36412: END IF;
36413: ELSE
36414: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36415: engine_debug ('In Line Detail Update Information2');
36416: END IF;
36417: -- Update All the Line Details Information at 1 Shot for all Lines
36418: IF (G_LINE_DETAIL_INDEX_TBL_D.COUNT > 0) THEN
36429: WHERE LINE_DETAIL_INDEX = G_LINE_DETAIL_INDEX_TBL_D(O);
36430: END IF;
36431: END IF;
36432:
36433: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36434: engine_debug ('In Line Detail Update Information3');
36435: END IF;
36436: -- Update All the Related Line Details Information at 1 Shot for all Lines
36437: IF (G_LINE_DETAIL_INDEX_TBL_R.COUNT > 0) THEN
36450: SET PRICING_STATUS_CODE = G_STATUS_GSA_VIOLATION,
36451: PRICING_STATUS_TEXT = l_status_text
36452: WHERE LINE_INDEX = G_GSA_LINE_INDEX_TBL_C(K);
36453: END IF;
36454: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36455: engine_debug ('In End Update Information');
36456:
36457: END IF;
36458: -- Reset All tables
36479: G_LINE_DETAIL_INDEX_TBL_R.delete;
36480:
36481: EXCEPTION
36482: WHEN E_CAL_ENGINE_ERROR THEN
36483: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36484: engine_debug(l_routine||' '||l_status_text);
36485: END IF;
36486: DELETE_LINES(l_err_line_index,
36487: G_STATUS_OTHER_ERRORS,
36488: 'Error returned by QP_Calculate_Price_PUB.Calculate_Price',
36489: l_status_code,
36490: l_status_text);
36491: WHEN OTHERS THEN
36492: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36493: engine_debug('Exception in internal procedure CALL_CALCULATION_ENGINE ' || SQLERRM);
36494: END IF;
36495: x_status_code := FND_API.G_RET_STS_ERROR;
36496: x_status_text :=l_routine||' '||SQLERRM;
36491: WHEN OTHERS THEN
36492: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
36493: engine_debug('Exception in internal procedure CALL_CALCULATION_ENGINE ' || SQLERRM);
36494: END IF;
36495: x_status_code := FND_API.G_RET_STS_ERROR;
36496: x_status_text :=l_routine||' '||SQLERRM;
36497: null;
36498: END;
36499:
36642: AND dflex.application_column_name = lattr.attribute
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);
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:
36652: END IF;
37015: CLOSE l_get_list_price_cur;
37016: l_modifier_value := I.operand_value; -- This value needs to be passed eventually
37017: END IF;
37018:
37019: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37020: engine_debug('Processing Formula ID :'||i.PRICE_FORMULA_ID);
37021: engine_debug('Line Index: '||i.line_index);
37022:
37023: END IF;
37033: i.CREATED_FROM_LIST_LINE_TYPE,
37034: l_return_status,
37035: l_modifier_value);
37036:
37037: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37038: engine_debug('Formula return status: '||l_return_status);
37039: engine_debug ('Formula Base Price : '|| l_formula_based_price);
37040:
37041: END IF;
37039: engine_debug ('Formula Base Price : '|| l_formula_based_price);
37040:
37041: END IF;
37042: IF l_return_status IS NULL THEN
37043: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37044: engine_debug('Formula return status is NULL');
37045: engine_debug('FND_API.G_RET_STS_ERROR: '|| FND_API.G_RET_STS_ERROR);
37046: END IF;
37047: null;
37041: END IF;
37042: IF l_return_status IS NULL THEN
37043: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37044: engine_debug('Formula return status is NULL');
37045: engine_debug('FND_API.G_RET_STS_ERROR: '|| FND_API.G_RET_STS_ERROR);
37046: END IF;
37047: null;
37048: END IF;
37049:
37046: END IF;
37047: null;
37048: END IF;
37049:
37050: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
37051: -- OR l_formula_based_price IS NOT NULL) THEN
37052: IF (i.OPERAND_CALCULATION_CODE in ('UNIT_PRICE','LIST_PRICE')) THEN
37053: /*
37054: INDX,QP_PREQ_GRP.formula_processing.upd1,qp_npreq_ldets_tmp_N1,LINE_INDEX,1
37116:
37117: END IF;
37118: END IF;
37119: ELSE
37120: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37121: engine_debug('Error returned by QP_FORMULA_PRICE_CALC_PVT.Calculate');
37122: END IF;
37123:
37124: -- Commented raise and added following for Bug 2722477
37142: G_STATUS_FORMULA_ERROR,
37143: FND_MESSAGE.GET,
37144: l_status_code,
37145: l_status_text);
37146: x_status_code := FND_API.G_RET_STS_ERROR;
37147:
37148: WHEN E_Formula_Call_Error THEN
37149: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37150: engine_debug('In Formula Integration');
37145: l_status_text);
37146: x_status_code := FND_API.G_RET_STS_ERROR;
37147:
37148: WHEN E_Formula_Call_Error THEN
37149: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37150: engine_debug('In Formula Integration');
37151: engine_debug('Error returned by QP_FORMULA_PRICE_CALC_PVT.Calculate');
37152: END IF;
37153: G_INSERT_INTO_FORMULA_TMP := FALSE; --Reset Global Flag ( Change)
37157: FND_MESSAGE.GET,
37158: l_status_code,
37159: l_status_text);
37160: WHEN OTHERS THEN
37161: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37162: engine_debug('In Formula Integration');
37163: engine_debug(SQLERRM);
37164: END IF;
37165: G_INSERT_INTO_FORMULA_TMP := FALSE; --Reset Global Flag ( Change)
37168: G_STATUS_FORMULA_ERROR,
37169: FND_MESSAGE.GET,
37170: l_status_code,
37171: l_status_text);
37172: x_status_code := FND_API.G_RET_STS_ERROR;
37173: x_status_text := l_routine||' '|| ' Formula Not Found ';
37174: END Formula_Processing;
37175:
37176: /*+-----------------------------------------------------------
37182: IS
37183: l_routine VARCHAR2(240):= 'Procedure Truncate_Temp_Tables';
37184: l_count number;
37185: Begin
37186: x_status_code := FND_API.G_RET_STS_SUCCESS;
37187: --added by yangli for Java Engine project
37188: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
37189: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37190: ENGINE_DEBUG('Truncate_Temp_tables: Java Engine not Installed ----------');
37185: Begin
37186: x_status_code := FND_API.G_RET_STS_SUCCESS;
37187: --added by yangli for Java Engine project
37188: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
37189: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37190: ENGINE_DEBUG('Truncate_Temp_tables: Java Engine not Installed ----------');
37191: END IF;
37192: --added by yangli for Java Engine project
37193: --Delete from qp_npreq_lines_tmp;
37198: --Delete From qp_nformula_step_values_tmp;
37199: --Delete From QP_PREQ_LINE_ATTRS_FORMULA_TMP;
37200:
37201:
37202: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37203: select count(*) into l_count from qp_npreq_lines_tmp;
37204: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37205: engine_debug('qp_npreq_lines_tmp '||l_count);
37206: END IF;
37200:
37201:
37202: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37203: select count(*) into l_count from qp_npreq_lines_tmp;
37204: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37205: engine_debug('qp_npreq_lines_tmp '||l_count);
37206: END IF;
37207: select count(*) into l_count from qp_npreq_line_attrs_tmp;
37208: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37204: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37205: engine_debug('qp_npreq_lines_tmp '||l_count);
37206: END IF;
37207: select count(*) into l_count from qp_npreq_line_attrs_tmp;
37208: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37209: engine_debug('qp_npreq_line_attrs_tmp '||l_count);
37210: END IF;
37211: select count(*) into l_count from qp_npreq_ldets_tmp;
37212: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37208: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37209: engine_debug('qp_npreq_line_attrs_tmp '||l_count);
37210: END IF;
37211: select count(*) into l_count from qp_npreq_ldets_tmp;
37212: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37213: engine_debug('qp_npreq_ldets_tmp '||l_count);
37214: END IF;
37215: END IF;
37216: --added by yangli for Java Engine project
37214: END IF;
37215: END IF;
37216: --added by yangli for Java Engine project
37217: ELSE
37218: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37219: ENGINE_DEBUG('Truncate_Temp_tables: Java Engine is Installed ----------');
37220: END IF;
37221: --Delete from qp_int_lines;
37222: --Delete from qp_int_line_attrs;
37223: --Delete From qp_int_ldets;
37224: --Delete From qp_int_rltd_lines;
37225: --Delete From qp_int_formula_step_values;
37226:
37227: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37228: select count(*) into l_count from qp_int_lines;
37229: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37230: engine_debug('qp_int_lines '||l_count);
37231: END IF;
37225: --Delete From qp_int_formula_step_values;
37226:
37227: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37228: select count(*) into l_count from qp_int_lines;
37229: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37230: engine_debug('qp_int_lines '||l_count);
37231: END IF;
37232: select count(*) into l_count from qp_int_line_attrs;
37233: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37229: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37230: engine_debug('qp_int_lines '||l_count);
37231: END IF;
37232: select count(*) into l_count from qp_int_line_attrs;
37233: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37234: engine_debug('qp_int_line_attrs '||l_count);
37235: END IF;
37236: select count(*) into l_count from qp_int_ldets;
37237: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37233: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37234: engine_debug('qp_int_line_attrs '||l_count);
37235: END IF;
37236: select count(*) into l_count from qp_int_ldets;
37237: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37238: engine_debug('qp_int_ldets '||l_count);
37239: END IF;
37240: END IF;
37241:
37241:
37242: END IF;
37243: EXCEPTION
37244: WHEN OTHERS THEN
37245: x_status_code := FND_API.G_RET_STS_ERROR;
37246: x_status_text :=l_routine||' '||SQLERRM;
37247: End Truncate_Temp_tables;
37248:
37249: /*+------------------------------------------------------------
37299: l_line_detail_index_tbl1 number_type;
37300: J NUMBER:=0;
37301: l_routine VARCHAR2(240):= 'QP_PREQ_GRP.Set_Order_Level_Rltd';
37302: BEGIN
37303: x_status_code := FND_API.G_RET_STS_SUCCESS;
37304:
37305: FOR I IN l_line_detail_index_cur LOOP
37306: J:=J+1;
37307: l_line_detail_index_tbl(J):=I.line_detail_index;
37329: END IF;
37330:
37331: EXCEPTION
37332: WHEN OTHERS THEN
37333: x_status_code := FND_API.G_RET_STS_ERROR;
37334: x_status_text := SQLERRM;
37335: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37336: engine_debug(l_routine||' :'||SQLERRM);
37337: END IF;
37331: EXCEPTION
37332: WHEN OTHERS THEN
37333: x_status_code := FND_API.G_RET_STS_ERROR;
37334: x_status_text := SQLERRM;
37335: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37336: engine_debug(l_routine||' :'||SQLERRM);
37337: END IF;
37338: END;
37339:
37354: FROM QP_PRICING_PHASES
37355: WHERE LIST_TYPE_CODE = 'PRL'
37356: AND ROWNUM < 2;
37357:
37358: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37359: engine_debug('G_PRICE_LIST_SEQUENCE: '|| G_PRICE_LIST_SEQUENCE );
37360: END IF;
37361: EXCEPTION
37362: WHEN OTHERS THEN
37359: engine_debug('G_PRICE_LIST_SEQUENCE: '|| G_PRICE_LIST_SEQUENCE );
37360: END IF;
37361: EXCEPTION
37362: WHEN OTHERS THEN
37363: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37364: engine_debug(l_routine||' '||SQLERRM);
37365: END IF;
37366: x_status_code := FND_API.G_RET_STS_ERROR;
37367: x_status_text := 'Error in '||l_routine||SQLERRM;
37362: WHEN OTHERS THEN
37363: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
37364: engine_debug(l_routine||' '||SQLERRM);
37365: END IF;
37366: x_status_code := FND_API.G_RET_STS_ERROR;
37367: x_status_text := 'Error in '||l_routine||SQLERRM;
37368: end Get_Price_List_Sequence;
37369:
37370: /*+----------------------------------------------------------------------------------------------------
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
37494: engine_debug(l_routine || ' Starts ----------------');
37495: END IF;
37496:
37493: THEN
37494: engine_debug(l_routine || ' Starts ----------------');
37495: END IF;
37496:
37497: x_status_code := FND_API.G_RET_STS_SUCCESS;
37498: x_status_text := 'Success';
37499:
37500: lower_limit := G_MIN_LINE_INDEX;
37501:
37549: GROUP BY line_index, segment_id
37550: HAVING count(segment_id) > 1
37551: );*/
37552:
37553: IF l_debug = FND_API.G_TRUE
37554: 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;
37559: QP_DEBUG_UTIL.tstop('populate_segment_id');
37560: EXCEPTION
37561: WHEN OTHERS
37562: THEN
37563: IF l_debug = FND_API.G_TRUE
37564: THEN
37565: engine_debug(l_routine || 'Exception - ' || SQLERRM);
37566: END IF;
37567: x_status_code := FND_API.G_RET_STS_ERROR;
37563: IF l_debug = FND_API.G_TRUE
37564: THEN
37565: engine_debug(l_routine || 'Exception - ' || SQLERRM);
37566: END IF;
37567: x_status_code := FND_API.G_RET_STS_ERROR;
37568: x_status_text := l_routine || SQLERRM;
37569: END populate_segment_id;
37570:
37571: --------------------------------------------------------------------------------
37578: upper_limit NUMBER;
37579: lower_limit NUMBER;
37580:
37581: BEGIN
37582: IF l_debug = FND_API.G_TRUE
37583: THEN
37584: engine_debug(l_routine || 'Starts ----');
37585: END IF;
37586:
37583: THEN
37584: engine_debug(l_routine || 'Starts ----');
37585: END IF;
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:
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'
37618: || ' pricing_phase_id = ' || p_pricing_phase_id);
37619: 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; */
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
37686: THEN
37687: engine_debug(l_routine || 'inseting pattern_id -2 and -3');
37688: END IF;
37689:
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---------');
37716: END IF;
37717: EXCEPTION
37716: END IF;
37717: EXCEPTION
37718: WHEN OTHERS
37719: THEN
37720: x_status_code := FND_API.G_RET_STS_ERROR;
37721: x_status_text := l_routine || SQLERRM;
37722: IF l_debug = FND_API.G_TRUE
37723: THEN
37724: engine_debug(l_routine || 'Exception: ' || SQLERRM);
37718: WHEN OTHERS
37719: THEN
37720: x_status_code := FND_API.G_RET_STS_ERROR;
37721: x_status_text := l_routine || SQLERRM;
37722: IF l_debug = FND_API.G_TRUE
37723: THEN
37724: engine_debug(l_routine || 'Exception: ' || SQLERRM);
37725: END IF;
37726: END create_pattern;
38285: l_search_path NUMBER(1);
38286:
38287: BEGIN
38288:
38289: x_status_code := fnd_api.g_ret_sts_success;
38290: l_search_path := p_search_path;
38291: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38292: qp_preq_grp.engine_debug('Entering into pattern Select_modifiers_patrn');
38293: qp_preq_grp.engine_debug('Pattern search is going in Path : ' || l_search_path);
38287: BEGIN
38288:
38289: x_status_code := fnd_api.g_ret_sts_success;
38290: l_search_path := p_search_path;
38291: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38292: qp_preq_grp.engine_debug('Entering into pattern Select_modifiers_patrn');
38293: qp_preq_grp.engine_debug('Pattern search is going in Path : ' || l_search_path);
38294: END IF;
38295: IF l_search_path = 1 THEN -- for the Path 1
38293: qp_preq_grp.engine_debug('Pattern search is going in Path : ' || l_search_path);
38294: END IF;
38295: IF l_search_path = 1 THEN -- for the Path 1
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:
38403: p_pricing_phase_id ,
38404: G_STAGE_CACHE_MOD_HDR ,
38405: x_status_code ,
38406: x_status_text );
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');
38416: G_STAGE_CACHE_MOD_HDR,
38417: x_status_code ,
38418: x_status_text );
38419:
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');
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;
38429:
38430: qp_debug_util.tstart('PATRN_LIST_CUR_DEL_HDR_TCA', 'Header deletion for TCA');
38570: G_STAGE_CACHE_MOD_LIN ,
38571: x_status_code ,
38572: x_status_text );
38573:
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');
38584: G_STAGE_CACHE_MOD_LIN,
38585: x_status_code ,
38586: x_status_text );
38587:
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');
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;
38776:
38777: qp_debug_util.tstart('Populate_Temp_Tables_NEQ_BTW_P2_L', 'Populate_Temp_Tables_NEQ_BTW_P2_L');
38781: G_STAGE_CACHE_MOD_LIN2,
38782: x_status_code ,
38783: x_status_text );
38784:
38785: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
38786: RAISE E_ROUTINE_ERRORS;
38787: END IF;
38788:
38789: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
38785: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
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');
38799: G_STAGE_CACHE_MOD_LIN2,
38800: x_status_code ,
38801: x_status_text );
38802:
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');
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;
38812:
38813: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
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);
38815: END IF;
38816:
38817: qp_debug_util.tstart('PATRN_SELECT_MODIFIERS_DEL_HDR_PATH2', 'Line deletion');
38948: G_STAGE_CACHE_MOD_LIN ,
38949: x_status_code ,
38950: x_status_text );
38951:
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');
38962: G_STAGE_CACHE_MOD_LIN,
38963: x_status_code ,
38964: x_status_text );
38965:
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');
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;
38975:
38976: /* Line Caching*/
39085: G_STAGE_CACHE_MOD_HDR ,
39086: x_status_code ,
39087: x_status_text );
39088:
39089: IF x_status_code <> FND_API.G_RET_STS_SUCCESS THEN
39090: RAISE E_ROUTINE_ERRORS;
39091: END IF;
39092:
39093:
39099: p_pricing_phase_id ,
39100: G_STAGE_CACHE_MOD_HDR,
39101: x_status_code ,
39102: x_status_text );
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');
39199: x_status_code,
39200: x_status_text);
39201:
39202: --END IF;
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');
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);
39212: qp_preq_grp.engine_debug('x_status_text-' || x_status_text);
39213: END IF;
39214:
39214:
39215: EXCEPTION
39216: WHEN E_ROUTINE_ERRORS THEN
39217:
39218: x_status_code := FND_API.G_RET_STS_ERROR;
39219: x_status_text := 'Expected Error in ' || l_routine || sqlerrm;
39220:
39221: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
39222: qp_preq_grp.engine_debug(x_status_text);
39217:
39218: x_status_code := FND_API.G_RET_STS_ERROR;
39219: x_status_text := 'Expected Error in ' || l_routine || sqlerrm;
39220:
39221: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
39222: qp_preq_grp.engine_debug(x_status_text);
39223: END IF;
39224:
39225: IF l_header_cache_cur%ISOPEN THEN
39243: END IF;*/
39244:
39245: WHEN OTHERS THEN
39246:
39247: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
39248: qp_preq_grp.engine_debug(l_routine || ' ' || sqlerrm);
39249: END IF;
39250:
39251: IF l_header_cache_cur%ISOPEN THEN
39266:
39267: /*IF l_both_cache_path2_cur%ISOPEN THEN
39268: CLOSE l_both_cache_path2_cur;
39269: END IF;*/
39270: x_status_code := fnd_api.g_ret_sts_error;
39271: x_status_text := 'Error in ' || l_routine || sqlerrm;
39272:
39273: END Select_modifiers_patrn;
39274:
39279: x_status_code OUT nocopy VARCHAR2,
39280: x_status_text OUT nocopy VARCHAR2) as
39281:
39282: BEGIN
39283: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
39284: qp_preq_grp.engine_debug('Entering QP_EVALUATE_OTHER_OPERATORS');
39285: END IF;
39286:
39287: UPDATE /*+ index(a qp_preq_patrn_qual_t_n3) */
39346: AND a.pricing_status_code = p_stage
39347: AND a.pricing_phase_id = p_pricing_phase_id
39348: AND a.line_index > 0
39349: AND a.grouping_number = -1
39350: AND NVL(a.setup_value_from,FND_API.G_MISS_CHAR) = a.value_from
39351: UNION ALL
39352: SELECT distinct a.line_index , a.list_header_id , a.list_line_id
39353: FROM qp_npreq_line_attrs_tmp a
39354: WHERE a.comparison_operator_type_code = G_OPERATOR_BETWEEN
39369: AND a.pricing_phase_id = p_pricing_phase_id
39370: AND a.line_index > 0
39371: AND datatype = QP_PREQ_GRP.G_NUMERIC
39372: --AND a.MODIFIER_LEVEL_CODE <> G_LINE_GROUP
39373: AND NOT (NVL(a.MODIFIER_LEVEL_CODE,FND_API.G_MISS_CHAR) = G_LINE_GROUP
39374: AND a.CONTEXT = G_PRIC_VOLUME_CONTEXT
39375: AND a.attribute in (G_QUANTITY_ATTRIBUTE,G_LINE_AMT_ATTRIBUTE))
39376: AND fnd_number.canonical_to_number(DECODE(datatype,QP_PREQ_GRP.G_NUMERIC,a.value_from,null))
39377: NOT BETWEEN nvl(fnd_number.canonical_to_number(a.setup_value_from),fnd_number.canonical_to_number(a.value_from))
39390: AND a.pricing_status_code = p_stage
39391: AND a.pricing_phase_id = p_pricing_phase_id
39392: AND a.line_index > 0
39393: AND a.grouping_number <> -1
39394: AND NVL(a.setup_value_from,FND_API.G_MISS_CHAR) = a.value_from
39395: UNION ALL
39396: SELECT distinct a.line_index , a.list_header_id , a.list_line_id ,a.grouping_number grouping_no
39397: FROM qp_npreq_line_attrs_tmp a
39398: WHERE a.comparison_operator_type_code = G_OPERATOR_BETWEEN
39413: AND a.pricing_phase_id = p_pricing_phase_id
39414: AND a.line_index > 0
39415: AND datatype = QP_PREQ_GRP.G_NUMERIC
39416: --AND a.MODIFIER_LEVEL_CODE <> G_LINE_GROUP
39417: AND NOT (NVL(a.MODIFIER_LEVEL_CODE,FND_API.G_MISS_CHAR) = G_LINE_GROUP
39418: AND a.CONTEXT = G_PRIC_VOLUME_CONTEXT
39419: AND a.attribute in (G_QUANTITY_ATTRIBUTE,G_LINE_AMT_ATTRIBUTE))
39420: AND fnd_number.canonical_to_number(DECODE(datatype,QP_PREQ_GRP.G_NUMERIC,a.value_from,null))
39421: NOT BETWEEN nvl(fnd_number.canonical_to_number(a.setup_value_from),fnd_number.canonical_to_number(a.value_from))
39422: AND nvl(fnd_number.canonical_to_number(a.setup_value_to),fnd_number.canonical_to_number(a.value_from))
39423: AND a.grouping_number <> -1);
39424:
39425:
39426: IF qp_preq_grp.g_debug_engine = fnd_api.g_true THEN
39427: qp_preq_grp.engine_debug('Number of rows deleted during NOT = and B/W operator evaluation for the non -1 groups-'||sql%rowcount);
39428: END IF;
39429:
39430: EXCEPTION
39429:
39430: EXCEPTION
39431:
39432: WHEN OTHERS THEN
39433: x_status_code := FND_API.G_RET_STS_ERROR;
39434: x_status_text :='QP_EVALUATE_OTHER_OPERATORS '||SQLERRM;
39435: IF (qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
39436: qp_preq_grp.engine_debug('QP_EVALUATE_OTHER_OPERATORS '||SQLERRM);
39437: END IF;
39431:
39432: WHEN OTHERS THEN
39433: x_status_code := FND_API.G_RET_STS_ERROR;
39434: x_status_text :='QP_EVALUATE_OTHER_OPERATORS '||SQLERRM;
39435: IF (qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
39436: qp_preq_grp.engine_debug('QP_EVALUATE_OTHER_OPERATORS '||SQLERRM);
39437: END IF;
39438: END QP_EVALUATE_OTHER_OPERATORS;
39439:
39459:
39460: --G_CHUNK_SIZE
39461: BEGIN
39462:
39463: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
39464: qp_preq_grp.engine_debug('Entering ' || l_routine);
39465: qp_preq_grp.engine_debug('p_pricing_phase_id => '||p_pricing_phase_id);
39466: END IF;
39467:
39466: END IF;
39467:
39468: l_cnt_iter := ((G_MAX_LINE_INDEX-G_MIN_LINE_INDEX)/G_CHUNK_SIZE)+1;
39469:
39470: x_status_code := FND_API.G_RET_STS_SUCCESS;
39471:
39472: /*
39473: Populating table qp_npreq_ldets_tmp with details of all selected modifier
39474: lines after Pattern matching.
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');
39620: END IF;
39621:
39622: qp_debug_util.tstart('POPULATE_PAT_TEMP_TABLES_QR3','Populate_Pat_Temp_Tables Inserting line attrs temp');
39774: IF nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) = G_YES THEN
39775: l_satis_quals_opt := G_NO;
39776: END IF;
39777:
39778: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
39779: qp_preq_grp.engine_debug('Successfully inserted data in table qp_npreq_line_attrs_tmp');
39780: qp_preq_grp.engine_debug('Profile value QP_SATIS_QUALS_OPT => '||l_satis_quals_opt);
39781: END IF;
39782:
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;
39968:
39969: IF p_stage IN (G_STAGE_CACHE_MOD_LIN, G_STAGE_CACHE_MOD_LIN2) THEN
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;
40130:
40131: END IF; -- IF p_stage IN (
40169: AND a.pricing_status_code = G_STATUS_NEW
40170: AND a.LINE_DETAIL_INDEX IS NOT NULL;
40171: END IF;
40172:
40173: x_status_code := FND_API.G_RET_STS_SUCCESS;
40174:
40175: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40176: qp_preq_grp.engine_debug('Exiting ' || l_routine);
40177: END IF;
40171: END IF;
40172:
40173: x_status_code := FND_API.G_RET_STS_SUCCESS;
40174:
40175: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40176: qp_preq_grp.engine_debug('Exiting ' || l_routine);
40177: END IF;
40178:
40179: EXCEPTION
40177: END IF;
40178:
40179: EXCEPTION
40180: WHEN OTHERS THEN
40181: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40182: qp_preq_grp.engine_debug('Exception occured - '||sqlerrm);
40183: END IF;
40184: x_status_text := l_routine||' '||SQLERRM;
40185: x_status_code := FND_API.G_RET_STS_ERROR;
40181: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40182: qp_preq_grp.engine_debug('Exception occured - '||sqlerrm);
40183: END IF;
40184: x_status_text := l_routine||' '||SQLERRM;
40185: x_status_code := FND_API.G_RET_STS_ERROR;
40186:
40187: END Populate_Pat_Temp_Tables;
40188:
40189: PROCEDURE Populate_Temp_Tables_NEQ_BTW(
40196: l_routine VARCHAR2(240):='Routine : QP_PREQ_GRP.Populate_Temp_Tables_NEQ_BTW';
40197:
40198: BEGIN
40199:
40200: x_status_code := FND_API.G_RET_STS_SUCCESS;
40201:
40202: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40203: qp_preq_grp.engine_debug('Entering ' || l_routine);
40204: qp_preq_grp.engine_debug('p_pricing_phase_id => '||p_pricing_phase_id);
40198: BEGIN
40199:
40200: x_status_code := FND_API.G_RET_STS_SUCCESS;
40201:
40202: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40203: qp_preq_grp.engine_debug('Entering ' || l_routine);
40204: qp_preq_grp.engine_debug('p_pricing_phase_id => '||p_pricing_phase_id);
40205: qp_preq_grp.engine_debug('p_stage => '||p_stage);
40206: END IF;
40336: AND qppatq.eq_flag = G_NO
40337: AND ((nvl(qplines.DERIVED_QUALIFIER_FLAG,'N')='N')
40338: OR (qplines.DERIVED_QUALIFIER_FLAG = 'Y' AND QPQ.QUALIFY_HIER_DESCENDENTS_FLAG = 'Y')); -- Added for TCA
40339:
40340: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40341: qp_preq_grp.engine_debug('Successfully inserted Line level BETWEEN , Not = Qualifiers Attributes in table qp_npreq_line_attrs_tmp');
40342: END IF;
40343:
40344: END IF;
40441: AND qplaptr.LINE_INDEX = qppat.LINE_INDEX
40442: AND qplaptr.segment_id = qppatr.PRICING_SEGMENT_ID
40443: AND qplaptr.attribute_type = G_PRICING_TYPE;
40444:
40445: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40446: qp_preq_grp.engine_debug('Successfully inserted BETWEEN , Not = Pricing Attributes in table qp_npreq_line_attrs_tmp');
40447: END IF;
40448:
40449: END if;
40590: AND qppatq.eq_flag = G_NO
40591: AND ((nvl(qplines.DERIVED_QUALIFIER_FLAG,'N')='N')
40592: OR (qplines.DERIVED_QUALIFIER_FLAG = 'Y' AND QPQ.QUALIFY_HIER_DESCENDENTS_FLAG = 'Y')); -- Added for TCA
40593:
40594: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40595: qp_preq_grp.engine_debug('Successfully inserted Header level BETWEEN , Not = Qualifiers Attributes in table qp_npreq_line_attrs_tmp');
40596: END IF;
40597:
40598: END IF;
40596: END IF;
40597:
40598: END IF;
40599:
40600: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40601: qp_preq_grp.engine_debug('Exiting ' || l_routine);
40602: END IF;
40603:
40604: EXCEPTION
40602: END IF;
40603:
40604: EXCEPTION
40605: WHEN OTHERS THEN
40606: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40607: qp_preq_grp.engine_debug('Exception occured - '||SQLERRM);
40608: END IF;
40609: x_status_text := l_routine||' '||SQLERRM;
40610: x_status_code := FND_API.G_RET_STS_ERROR;
40606: IF qp_preq_grp.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
40607: qp_preq_grp.engine_debug('Exception occured - '||SQLERRM);
40608: END IF;
40609: x_status_text := l_routine||' '||SQLERRM;
40610: x_status_code := FND_API.G_RET_STS_ERROR;
40611: END Populate_Temp_Tables_NEQ_BTW;
40612:
40613: -- End: KDURGASI changes for pattern based select modifiers
40614:
41257: where v$mystat.statistic# = v$statname.statistic#
41258: and v$statname.name = 'redo size';
41259: exception
41260: when others then
41261: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41262: engine_debug('Error in looking up debug'||SQLERRM);
41263: END IF;
41264: end;
41265: END IF;
41275: QP_COPY_DEBUG_PVT.Generate_Debug_Req_Seq(l_return_status,
41276: l_status_text);
41277: --x_return_status := l_return_status; -- fix bug 2756754
41278: --x_return_status_text := l_status_text; -- fix bug 2756754
41279: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41280: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41281: engine_debug('Error QP_COPY_DEBUG_PVT.Generate_Debug_Req_Seq: '||l_status_text);
41282: END IF; -- END IF G_DEBUG_ENGINE
41283: RAISE E_DEBUG_ROUTINE_ERROR; -- fix bug 2756754, dbg failed should not be an hard error
41276: l_status_text);
41277: --x_return_status := l_return_status; -- fix bug 2756754
41278: --x_return_status_text := l_status_text; -- fix bug 2756754
41279: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41280: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41281: engine_debug('Error QP_COPY_DEBUG_PVT.Generate_Debug_Req_Seq: '||l_status_text);
41282: END IF; -- END IF G_DEBUG_ENGINE
41283: RAISE E_DEBUG_ROUTINE_ERROR; -- fix bug 2756754, dbg failed should not be an hard error
41284: END IF;
41292: oe_debug_pub.SetDebugLevel(10);
41293: oe_debug_pub.Initialize;
41294: oe_debug_pub.debug_on;
41295: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
41296: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41297: engine_debug ('The output file is : ' || l_output_file );
41298: END IF;
41299: G_DEBUG_ENGINE:= FND_API.G_TRUE;
41300: ELSE
41295: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
41296: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41297: engine_debug ('The output file is : ' || l_output_file );
41298: END IF;
41299: G_DEBUG_ENGINE:= FND_API.G_TRUE;
41300: ELSE
41301: G_DEBUG_ENGINE:= FND_API.G_FALSE;
41302: END IF;
41303: ELSE
41297: engine_debug ('The output file is : ' || l_output_file );
41298: END IF;
41299: G_DEBUG_ENGINE:= FND_API.G_TRUE;
41300: ELSE
41301: G_DEBUG_ENGINE:= FND_API.G_FALSE;
41302: END IF;
41303: ELSE
41304: G_DEBUG_ENGINE:= FND_API.G_TRUE;
41305: END IF; */
41300: ELSE
41301: G_DEBUG_ENGINE:= FND_API.G_FALSE;
41302: END IF;
41303: ELSE
41304: G_DEBUG_ENGINE:= FND_API.G_TRUE;
41305: END IF; */
41306:
41307: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41308: engine_debug('***Entering Oracle Pricing***');
41303: ELSE
41304: G_DEBUG_ENGINE:= FND_API.G_TRUE;
41305: END IF; */
41306:
41307: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41308: engine_debug('***Entering Oracle Pricing***');
41309: engine_debug('Please set debug level 3 in profile option to see all Pricing Debug Messages');
41310: engine_debug('-----------------New Engine Call----------------------');
41311: engine_debug('Pricing Event: ' || p_control_rec.PRICING_EVENT);
41311: engine_debug('Pricing Event: ' || p_control_rec.PRICING_EVENT);
41312: engine_debug('Pricing Engine Version: ' || QP_PREQ_GRP.GET_VERSION);
41313:
41314: END IF;
41315: X_RETURN_STATUS:=FND_API.G_RET_STS_SUCCESS;
41316: --==========END: Debug Viewere needed by JAVA and PL/SQL engine=======
41317:
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');
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 =======================
41327: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41328: ENGINE_DEBUG('Java Engine not Installed ----------');
41329: END IF;
41330:
41331: -- julin [3805113]: resetting tables used in handle_break/call_calculation_engine
41333: G_CHILD_VALUE_TO_TBL.delete;
41334: G_PARENT_LINE_DETAIL_INDEX_TBL.delete;
41335:
41336: --dbms_output.put_line('Final Debug: ' || oe_debug_pub.g_debug);
41337: --G_DEBUG_ENGINE := FND_API.G_TRUE;
41338: --G_LINE_DETAIL_INDEX := 0;
41339: G_MANUAL_DISCOUNT_FLAG := nvl(FND_PROFILE.VALUE(G_RETURN_MANUAL_DISCOUNTS),'Y'); --p_control_rec.manual_discount_flag;
41340: G_GSA_CHECK_FLAG := p_control_rec.gsa_check_flag;
41341: G_GSA_DUP_CHECK_FLAG := nvl(p_control_rec.gsa_dup_check_flag,'N');
41385: END IF;
41386: END IF;--MO_GLOBAL
41387:
41388:
41389: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41390: engine_debug('G_SECURITY_CONTROL: '||G_SECURITY_CONTROL);
41391: engine_debug('G_CURRENT_USER_OP_UNIT: '||G_CURRENT_USER_OP_UNIT);
41392:
41393: END IF;
41397: --=====START: Set_Request_Id needed by both Java and PL/SQL engine
41398: -- Set the request id if called from plsql/path and not temp table insert path
41399: IF (G_TEMP_TABLE_INSERT_FLAG = G_YES) THEN
41400: QP_Price_Request_Context.Set_Request_Id;
41401: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41402: engine_debug('Request id in QP_PREQ_GRP : ' ||sys_context('qp_context','request_id'));
41403: END IF;
41404: END IF;
41405: --=====END: Set_Request_Id needed by both Java and PL/SQL engine
41410:
41411: IF G_TEMP_TABLE_INSERT_FLAG = G_YES THEN -- pl/sql path
41412:
41413: IF (p_line_tbl.COUNT > 0) THEN
41414: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41415: engine_debug('There are lines to be priced');
41416: END IF;
41417: FOR i in p_line_tbl.FIRST .. p_line_tbl.LAST
41418: LOOP
41415: engine_debug('There are lines to be priced');
41416: END IF;
41417: FOR i in p_line_tbl.FIRST .. p_line_tbl.LAST
41418: LOOP
41419: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41420: engine_debug('In the Loop');
41421: engine_debug('Before Pricing Line Index: ' || p_line_tbl(i).line_index);
41422: engine_debug('Before Pricing Unit Price: ' || p_line_tbl(i).unit_price);
41423: engine_debug('Before Pricing Price Flag: ' || p_line_tbl(i).price_flag);
41423: engine_debug('Before Pricing Price Flag: ' || p_line_tbl(i).price_flag);
41424: END IF;
41425: END LOOP;
41426: ELSE -- else (p_line_tbl.COUNT > 0)
41427: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41428: engine_debug('There are no lines to be priced');
41429: END IF;
41430: END IF; -- end if (p_line_tbl.COUNT > 0)
41431:
41432: ELSE --G_TEMP_TABLE_INSERT_FLAG = 'N', direct insert/performance path, shulin dbg 2437534
41433: --FOR cl IN (select line_index, unit_price, price_flag from qp_npreq_lines_tmp)
41434: FOR cl IN l_lines_info_cur --by yangli for Java Engine changes
41435: LOOP
41436: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41437: engine_debug('In direct insert Loop / performance path');
41438: engine_debug('Before Pricing Line Index: ' || cl.line_index);
41439: engine_debug('Before Pricing Unit Price: ' || cl.unit_price);
41440: engine_debug('Before Pricing Price Flag: ' || cl.price_flag);
41443: END IF;--temp_table_insert_flag
41444:
41445: --for Java Engine case, the check here will catch it instead of contacting Java Engine
41446: IF (G_TEMP_TABLE_INSERT_FLAG = G_YES) THEN -- If records are inserted in pricing engine from pl/sql tables
41447: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41448: engine_debug('Check to see if all the lines have price flag N');
41449: END IF;
41450: I:= p_line_tbl.FIRST;
41451: WHILE I IS NOT NULL
41478: I:=p_line_tbl.NEXT(I);
41479: END LOOP;
41480:
41481: -- The flag tells if there is atleast 1 order line with price_flag = 'Y'
41482: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41483: engine_debug('Price Flag Yes: ' || l_price_flag_yes_only);
41484:
41485: END IF;
41486: IF (l_price_flag_indx IS NULL ) THEN
41483: engine_debug('Price Flag Yes: ' || l_price_flag_yes_only);
41484:
41485: END IF;
41486: IF (l_price_flag_indx IS NULL ) THEN
41487: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41488: engine_debug('All the lines have price flag N.Hence no pricing returning');
41489: END IF;
41490: x_line_tbl := p_line_tbl;
41491: x_line_qual := p_qual_tbl;
41500: --this method will populate G_PRICE_LIST_SEQUENCE and G_PRICE_LIST_PHASE_ID
41501: --and later NOT-NULL check against these two globals are performed
41502: Get_Price_List_Sequence(l_return_status,l_status_text);
41503:
41504: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
41505: RAISE E_ROUTINE_ERRORS;
41506: END IF;
41507: --=====END: needed by both Java and PL/SQL engine, used later in shared code
41508:
41506: END IF;
41507: --=====END: needed by both Java and PL/SQL engine, used later in shared code
41508:
41509: --=====START: needed by both Java and PL/SQL engine, used in Populate_Output()
41510: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41511: engine_debug('Rounding flag: '||p_control_rec.rounding_flag);
41512: END IF;
41513: l_rounding_flag := nvl(p_control_rec.rounding_flag,G_YES);
41514: --=====START: needed by both Java and PL/SQL engine, used in Populate_Output()
41524: --=======START: Pre-pricing processing needed by JAVA and PL/SQL engine======
41525: IF G_TEMP_TABLE_INSERT_FLAG = G_YES THEN
41526:
41527: /*Truncate_Temp_Tables (l_return_status,l_status_text);
41528: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41529: RAISE E_ROUTINE_ERRORS;
41530: END IF; */
41531:
41532: -- qp_number.canonical_mask := 'FM999999999999999999999.99999999999999999999999999999999999999';
41533:
41534:
41535: l_bypass_pricing := FND_PROFILE.VALUE(G_BYPASS_PRICING);
41536:
41537: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41538: engine_debug ('Pricing Bypass : ' || l_bypass_pricing);
41539:
41540: END IF;
41541: IF (l_bypass_pricing = 'Y' ) THEN
41548: I:= x_line_tbl.FIRST;
41549:
41550: WHILE I IS NOT NULL LOOP
41551: If x_line_tbl(I).UNIT_PRICE is null or x_line_tbl(I).ADJUSTED_UNIT_PRICE is null
41552: or x_line_tbl(I).UNIT_PRICE = fnd_api.g_miss_num or
41553: x_line_tbl(I).ADJUSTED_UNIT_PRICE = fnd_api.g_miss_num then
41554:
41555: x_line_tbl(I).UNIT_PRICE := l_FIXED_PRICE;
41556: x_line_tbl(I).ADJUSTED_UNIT_PRICE := l_FIXED_PRICE;
41549:
41550: WHILE I IS NOT NULL LOOP
41551: If x_line_tbl(I).UNIT_PRICE is null or x_line_tbl(I).ADJUSTED_UNIT_PRICE is null
41552: or x_line_tbl(I).UNIT_PRICE = fnd_api.g_miss_num or
41553: x_line_tbl(I).ADJUSTED_UNIT_PRICE = fnd_api.g_miss_num then
41554:
41555: x_line_tbl(I).UNIT_PRICE := l_FIXED_PRICE;
41556: x_line_tbl(I).ADJUSTED_UNIT_PRICE := l_FIXED_PRICE;
41557: x_line_tbl(I).STATUS_CODE := QP_PREQ_GRP.G_STATUS_UPDATED;
41569: RAISE E_INVALID_CONTROL_RECORD;
41570: END IF;
41571:
41572:
41573: IF(G_PRICE_LIST_SEQUENCE = NULL OR G_PRICE_LIST_SEQUENCE = FND_API.G_MISS_NUM
41574: OR G_PRICE_LIST_PHASE_ID = NULL OR G_PRICE_LIST_PHASE_ID = FND_API.G_MISS_NUM) THEN
41575: RAISE E_INVALID_PHASE;
41576: END IF;
41577:
41570: END IF;
41571:
41572:
41573: IF(G_PRICE_LIST_SEQUENCE = NULL OR G_PRICE_LIST_SEQUENCE = FND_API.G_MISS_NUM
41574: OR G_PRICE_LIST_PHASE_ID = NULL OR G_PRICE_LIST_PHASE_ID = FND_API.G_MISS_NUM) THEN
41575: RAISE E_INVALID_PHASE;
41576: END IF;
41577:
41578: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41574: OR G_PRICE_LIST_PHASE_ID = NULL OR G_PRICE_LIST_PHASE_ID = FND_API.G_MISS_NUM) THEN
41575: RAISE E_INVALID_PHASE;
41576: END IF;
41577:
41578: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41579: engine_debug('Related_lines count: '||p_related_lines_tbl.COUNT);
41580:
41581: END IF;
41582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41578: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41579: engine_debug('Related_lines count: '||p_related_lines_tbl.COUNT);
41580:
41581: END IF;
41582: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41583: RAISE E_ROUTINE_ERRORS;
41584: END IF;
41585:
41586: --=====needed by both Java Engine and PL/SQL engine, used in populate_output()
41603: END IF;
41604: --=====needed by both Java Engine and PL/SQL engine, used in populate_output()
41605:
41606: ELSE --g_temp_table_insert_flag = 'N', performance path
41607: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41608: engine_debug('Calling application inserted into temp tables');
41609:
41610: END IF;
41611: G_CURRENCY_CODE := QP_PREQ_PUB.G_CURRENCY_CODE;
41653: WHEN NO_DATA_FOUND THEN
41654: l_price_flag_indx := NULL;
41655: END ;
41656:
41657: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41658: engine_debug('Direct Temp Table Insert Price Flag Yes Only : '||l_price_flag_yes_only);
41659:
41660: END IF;
41661: -- This is the code when calling app inserted into temp tables to quit pricing when there are no lines
41660: END IF;
41661: -- This is the code when calling app inserted into temp tables to quit pricing when there are no lines
41662: -- with either price flag = 'Y' or 'P'
41663: IF (l_price_flag_indx IS NULL) THEN
41664: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41665: engine_debug('No Pricing. Returning, call from direct insert into temp tables by calling app');
41666: END IF;
41667: RETURN;
41668: END IF;
41669:
41670: END IF;---p_control_rec.temp_table_insert_flag = G_NO
41671: --=======END: Pre-pricing processing needed by JAVA and PL/SQL engine======
41672:
41673: --IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41674: --engine_debug('Pricing Event: ' || p_control_rec.PRICING_EVENT);
41675: --engine_debug('Pricing Engine Version: ' || QP_PREQ_GRP.GET_VERSION);
41676: --END IF; -- 4033618
41677:
41677:
41678: IF (G_TEMP_TABLE_INSERT_FLAG = G_YES) THEN
41679: --=======START: Truncate/Populate_Temp_tables() needed by JAVA and PL/SQL engine======
41680: Truncate_Temp_Tables (l_return_status,l_status_text);
41681: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41682: RAISE E_ROUTINE_ERRORS;
41683: END IF;
41684:
41685: Populate_Temp_Tables
41698: p_control_rec.calculate_flag,
41699: l_return_status,
41700: l_status_text);
41701:
41702: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41703: RAISE E_ROUTINE_ERRORS;
41704: END IF;
41705: --========END: Truncate/Populate_Temp_tables() needed by JAVA and PL/SQL engine======
41706: ELSE
41716: from qp_npreq_lines_tmp
41717: where line_type_code = QP_PREQ_GRP.G_ORDER_LEVEL;
41718: EXCEPTION
41719: WHEN NO_DATA_FOUND THEN
41720: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41721: QP_PREQ_GRP.engine_debug(' - could not get order header ID! Summary request line missing');
41722: END IF; --4033618
41723: END;
41724: END IF;--java engine not installed
41727: END IF;
41728:
41729: --ignore_pricing start 8203956
41730: IF ( NVL(Fnd_Profile.value('QP_CUSTOM_IGNORE_PRICING'),'N') = 'Y') THEN
41731: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41732: QP_PREQ_GRP.engine_debug('ignore_pricing : Updating non-pricable lines 1');
41733: END IF;
41734: OPEN IGNORE_PRICE_LINES_CUR;
41735: FETCH IGNORE_PRICE_LINES_CUR BULK COLLECT INTO
41738: l_line_quantity_tbl,
41739: l_line_uom_code_tbl ;
41740: CLOSE IGNORE_PRICE_LINES_CUR;
41741: IF (l_line_index_tbl.COUNT > 0) THEN
41742: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41743: QP_PREQ_GRP.engine_debug('ignore_pricing : Updating non-pricable lines 2');
41744: --print_tmp_tabs();
41745: END IF;
41746: FORALL i in 1 .. l_line_index_tbl.COUNT
41777: --but G_LINE_DETAIL_INDEX is not incremented which causes a
41778: --unique constraint violation on qp_npreq_ldets_tmp_U1
41779: --hence need to fetch the maximum line_detail_index
41780: G_LINE_DETAIL_INDEX := nvl(l_max_line_detail_index,1);
41781: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41782: engine_debug('G_LINE_DETAIL_INDEX '||G_LINE_DETAIL_INDEX);
41783: END IF;
41784: END IF;--java engine not installed
41785: -----------------END: Specific to PL/SQL Engine----------------------
41792:
41793: --added by yangli for Java Engine project
41794: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
41795: -----------------START: Specific to PL/SQL Engine----------------------
41796: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41797: ENGINE_DEBUG('Java Engine not Installed ----------');
41798: END IF;
41799:
41800: Update_Processing_Order(l_return_status,l_status_text);
41797: ENGINE_DEBUG('Java Engine not Installed ----------');
41798: END IF;
41799:
41800: Update_Processing_Order(l_return_status,l_status_text);
41801: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41802: engine_debug('After calling update_procss--');
41803:
41804: END IF;
41805: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41801: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41802: engine_debug('After calling update_procss--');
41803:
41804: END IF;
41805: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41806: RAISE E_ROUTINE_ERRORS;
41807: END IF;
41808:
41809: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41805: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
41806: RAISE E_ROUTINE_ERRORS;
41807: END IF;
41808:
41809: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41810: FOR i in l_debug loop
41811: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41812: engine_debug('=CONTEXT PASSED: '||i.CONTEXT);
41813: engine_debug('=ATTRIBUTE : '||i.ATTRIBUTE);
41807: END IF;
41808:
41809: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41810: FOR i in l_debug loop
41811: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41812: engine_debug('=CONTEXT PASSED: '||i.CONTEXT);
41813: engine_debug('=ATTRIBUTE : '||i.ATTRIBUTE);
41814: engine_debug('=VALUE : ' ||i.VALUE_FROM);
41815: engine_debug('=LINE INDEX : ' ||i.LINE_INDEX);
41817: END IF;
41818: END LOOP;
41819:
41820: FOR I in debug_cur LOOP
41821: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41822: engine_debug('Request Type Code: '|| I.REQUEST_TYPE_CODE);
41823: engine_debug('Line Index: '|| I.LINE_INDEX);
41824: engine_debug('Line Type Code: '|| I.LINE_TYPE_CODE);
41825: engine_debug('Price Flag: ' || I.PRICE_FLAG);
41867: AND vset.format_type = 'N'); --by yangli 03/06/2002 9:30am
41868:
41869: EXCEPTION
41870: WHEN OTHERS THEN
41871: x_return_status := FND_API.G_RET_STS_ERROR;
41872: BEGIN
41873:
41874: FOR l_rec IN am_attr_msg_cur
41875: LOOP
41882: EXCEPTION
41883: WHEN OTHERS THEN
41884: l_status_text := 'Exception in QP_PREQ_GRP.PRICE_REQUEST ';
41885: l_status_text := l_status_text|| 'This Attribute( with Context: ' || l_msg_context || ' and Attribute: '|| l_msg_attribute||' ) is defined as numeric but passed as non-numeric/Errored ';
41886: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41887: engine_debug('l_status_text '|| l_status_text);
41888: END IF; --4033618
41889: END;
41890: RAISE E_ROUTINE_ERRORS;
41911: EXCEPTION
41912: --changes for bug 2174000 a qty>23digits causes numeric or value error
41913: --due to the format mas in number_to_canonical
41914: When OTHERS Then
41915: x_return_status := FND_API.G_RET_STS_ERROR;
41916: BEGIN
41917: FOR l_rec IN attr_msg_cur
41918: LOOP
41919: l_msg_context := l_rec.context;
41935: -- begin shu, aso rounding
41936: FOR i IN get_request_type_code_cur LOOP
41937: G_REQUEST_TYPE_CODE:=i.request_type_code;
41938: END LOOP;
41939: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41940: engine_debug ('G_REQUEST_TYPE_CODE: '||G_REQUEST_TYPE_CODE);
41941: engine_debug ('G_TEMP_TABLE_INSERT_FLAG: '||G_TEMP_TABLE_INSERT_FLAG);
41942: END IF;
41943:
41975: END IF;
41976: ELSE -- p_control_rec.rounding_flag not null, honor what is passed
41977: G_ROUNDING_FLAG := p_control_rec.rounding_flag;
41978: END IF;
41979: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41980: engine_debug ('G_ROUNDING_FLAG: '||G_ROUNDING_FLAG);
41981: END IF;
41982: -- end shu, aso rounding
41983:
41985: -- if G_PRICE_PHASE_FLAG = TRUE then *** Comment for bug#3588320 ***
41986: OPEN order_amount_cur;
41987: FETCH order_amount_cur INTO G_BEFORE_PRICING_ORD_AMT;
41988: CLOSE order_amount_cur;
41989: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
41990: engine_debug ('G_BEFORE_PRICING_ORD_AMT: '||G_BEFORE_PRICING_ORD_AMT);
41991: END IF;
41992: -- end if;
41993:
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:
42004: ELSIF (p_control_rec.calculate_flag IN (G_SEARCH_N_CALCULATE,G_SEARCH_ONLY) )THEN
42004: ELSIF (p_control_rec.calculate_flag IN (G_SEARCH_N_CALCULATE,G_SEARCH_ONLY) )THEN
42005:
42006: -- 4227407/4361975, this call to update_rounding_factor used to be inside l_phase_cur
42007: -- shu, fix bug 2416047
42008: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42009: engine_debug('update_rounding_factor...');
42010: END IF;
42011: -- Update Rounding Factor, if rounding_flag not N -- Ravi, shu new rounding
42012: IF G_ROUNDING_FLAG <> 'N' THEN -- shu, aso rounding,
42014: QP_PREQ_GRP.G_MCURR_INSTALLED_USED,
42015: l_return_status,
42016: l_status_text);
42017: END IF; -- end if rounding_flag
42018: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42019: RAISE E_ROUTINE_ERRORS;
42020: END IF;
42021:
42022: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42018: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42019: RAISE E_ROUTINE_ERRORS;
42020: END IF;
42021:
42022: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42023: engine_debug('BEFORE event phase loop');
42024: END IF;
42025: l_gone_in_phase_cur_loop := 'N';
42026: --KDURGASI changes for pattern based select modifiers
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
42033: RAISE E_ROUTINE_ERRORS;
42034: END IF;
42035: qp_debug_util.tstop('populate_attr_values');
42036: END IF;
42046: IF (l_prev_pricing_phase_id <> I.pricing_phase_id) THEN
42047:
42048: l_prev_pricing_phase_id := I.pricing_phase_id;
42049:
42050: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42051: engine_debug('Price Flag Yes Only : '||l_price_flag_yes_only);
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
42067: l_status_text);
42068: l_pricelist_phase_count := l_pricelist_phase_count + 1;
42069: END IF;*/
42070:
42071: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42072: engine_debug('Working on phase: '||I.pricing_phase_id);
42073: END IF;
42074:
42075: -- Update the price list id , validated flag
42073: END IF;
42074:
42075: -- Update the price list id , validated flag
42076: Update_Price_List_Information(I.freeze_override_flag, l_return_status, l_status_text); -- fix bug 2756754
42077: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
42078: Raise E_ROUTINE_ERRORS;
42079: END IF;
42080:
42081: -- ********
42082: -- 4227047/4361975, the call to Update_Rounding_Factor that used to be here
42083: -- was moved to before this phase cursor
42084: IF G_QP_PATTERN_SEARCH IN (G_QP_PATTERN_PRL_SEARCH, G_QP_PATTERN_BOTH_SEARCH) THEN
42085: create_pattern(G_PRICE_LIST_PHASE_ID, x_status_code =>l_return_status, x_status_text=>l_status_text);
42086: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42087: RAISE E_ROUTINE_ERRORS;
42088: END IF;
42089: LIST_HEADER_PATTERN_SEARCH(
42090: p_pricing_phase_id => I.pricing_phase_id,
42092: p_control_rec => p_control_rec,
42093: x_status_code => l_return_status,
42094: x_status_text => l_status_text
42095: );
42096: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42097: RAISE E_ROUTINE_ERRORS;
42098: END IF;
42099: OPEN l_check_secondary_search;
42100: FETCH l_check_secondary_search INTO l_dummy;
42099: OPEN l_check_secondary_search;
42100: FETCH l_check_secondary_search INTO l_dummy;
42101:
42102: IF l_check_secondary_search%FOUND THEN
42103: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42104: engine_debug('Trying to perform pattern Secondary Search ');
42105: END IF;
42106: PERFORM_SECONDARY_PATRN_SEARCH(I.freeze_override_flag,
42107: I.pattern_search_path,
42107: I.pattern_search_path,
42108: p_control_rec,
42109: l_return_status,
42110: l_status_text);
42111: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42112: RAISE E_ROUTINE_ERRORS;
42113: END IF;
42114: END IF;
42115: CLOSE l_check_secondary_search;
42118: FETCH l_check_no_list_passed INTO l_dummy;
42119:
42120: IF (l_check_no_list_passed%FOUND and (I.SEARCH_FLAG = G_YES OR
42121: nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) = G_YES)) THEN
42122: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42123: engine_debug('Trying to Perform pattern BIG Search ');
42124: END IF;
42125:
42126: SELECT_PRICE_LIST_LINES_PAT(
42130: p_control_rec => p_control_rec,
42131: x_status_code => l_return_status,
42132: x_status_text => l_status_text
42133: );
42134: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42135: RAISE E_ROUTINE_ERRORS;
42136: END IF;
42137: -- SELECT_PRICE_LIST_LINES_PATRN API CALL -- DEEPAK ADD CODE
42138:
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:
42161: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42157: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42158: RAISE E_ROUTINE_ERRORS;
42159: END IF;
42160:
42161: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42162: engine_debug('l_further_search: '||l_further_search);
42163: engine_debug('l_further_search: '||l_further_search);
42164:
42165: END IF;
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:
42184: --perform grouping will group all the attributes which
42191:
42192: --Evaluating between operator for both qualifiers and pricing attributes
42193: Evaluate_Between(I.pricing_phase_id,NULL,NULL,l_return_status,l_status_text);
42194:
42195: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42196: RAISE E_ROUTINE_ERRORS;
42197: END IF;
42198:
42199:
42199:
42200: -- Check for multiple item categories and customer classes
42201: Eliminate_Multiple_Hierarchies(I.pricing_phase_id,l_return_status,l_status_text);
42202:
42203: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42204: RAISE E_ROUTINE_ERRORS;
42205: END IF;
42206:
42207: --Handle_Excluder(I.pricing_phase_id,NULL,l_return_status,l_status_text);
42207: --Handle_Excluder(I.pricing_phase_id,NULL,l_return_status,l_status_text);
42208:
42209: Perform_Grouping(I.pricing_phase_id, NULL,l_return_status, l_status_text);
42210:
42211: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42212: RAISE E_ROUTINE_ERRORS;
42213: END IF;
42214:
42215: --Process_Line_Group(I.pricing_phase_id);
42216:
42217: --Evaluating between operator for both qualifiers and pricing attributes
42218: Evaluate_Between(I.pricing_phase_id,'Y',NULL,l_return_status,l_status_text);
42219:
42220: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42221: RAISE E_ROUTINE_ERRORS;
42222: END IF;
42223:
42224: QP_Resolve_Incompatability_PVT.Determine_Pricing_UOM_And_Qty
42230: x_list_line_id => l_list_line_id,
42231: x_return_status => l_return_status,
42232: x_return_status_txt => l_status_text);
42233:
42234: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42235: RAISE E_ROUTINE_ERRORS;
42236: END IF;
42237:
42238: -- 3773652
42253: end;
42254:
42255:
42256: Update_Request_Line_Status(p_control_rec,'SUCCESS',i.freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
42257: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42258: RAISE E_ROUTINE_ERRORS;
42259: END IF;
42260:
42261:
42282: END IF; -- l_further_search
42283: END IF; --G_QP_PATTERN_PRL_SEARCH
42284: -- Bug 3183982, following 4 lines added
42285: CREATE_QUALIFIER_FROM_LIST(l_return_status,l_status_text);
42286: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42287: RAISE E_ROUTINE_ERRORS;
42288: END IF;
42289:
42290: -- Formula Integration
42292: I.pricing_phase_id,
42293: l_return_status,
42294: l_status_text);
42295:
42296: /*IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42297: DELETE_LINES(J.LINE_INDEX,
42298: l_return_status,
42299: l_status_text);
42300: END IF;*/
42302:
42303: -- vivek, call new API
42304: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
42305: G_MCURR_INSTALLED_USED := 'Y'; -- shulin, used in QPXPCLPB Calculate_List_Price
42306: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42307: engine_debug('multi-currency TRUE - calling QP_MULTI_CURRENCY_PVT.CURRENCY_CONVERSION_API');
42308: END IF;
42309: QP_MULTI_CURRENCY_PVT.CURRENCY_CONVERSION_API(
42310: P_USER_CONVERSION_RATE => P_CONTROL_REC.USER_CONVERSION_RATE
42313: ,P_ROUNDING_FLAG => nvl(P_CONTROL_REC.ROUNDING_FLAG, 'Y')
42314: );
42315: end if;
42316: -- Calculation Engine
42317: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42318: engine_debug('------Before 1st call cal-----------');
42319:
42320: END IF;
42321:
42320: END IF;
42321:
42322: -- Bug 3183982, following 4 lines commented and moved above before calling formula engine
42323: --CREATE_QUALIFIER_FROM_LIST(l_return_status,l_status_text);
42324: --IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42325: -- RAISE E_ROUTINE_ERRORS;
42326: --END IF;
42327:
42328: -- IF p_control_rec.calculate_flag = G_SEARCH_N_CALCULATE THEN
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;
42339: END IF;
42340:
42341: --If it is a price list sequence we need to create this
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
42354: RAISE E_ROUTINE_ERRORS;
42355: END IF;
42356: END IF;
42357:
42354: RAISE E_ROUTINE_ERRORS;
42355: END IF;
42356: END IF;
42357:
42358: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42359: engine_debug ('Starting new a phase, pricing phase id :' || i.pricing_phase_id);
42360: END IF;
42361: --do not execute the rest is there is no list lines at all
42362: --in those rarely used phase.
42369: OPEN l_chk_phase_exists(i.pricing_phase_id);
42370: FETCH l_chk_phase_exists INTO l_dummy;
42371: IF l_chk_phase_exists%NOTFOUND THEN
42372: l_exec_flag := G_NO;
42373: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42374: engine_debug('In rare_phase_id:'||i.pricing_phase_id||' exec_flag set to N');
42375: END IF;
42376: ELSE
42377: l_exec_flag := G_YES;
42401: -- ********
42402: -- 4227047/4361975, the call to Update_Rounding_Factor that used to be here
42403: -- was moved to before this phase cursor
42404:
42405: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42406: engine_debug('update_rounding_factor...');
42407: END IF;
42408: -- 9856359
42409: -- Update Rounding Factor, if rounding_flag not N -- Ravi, shu new rounding
42411: UPDATE_ROUNDING_FACTOR (
42412: QP_PREQ_GRP.G_MCURR_INSTALLED_USED,
42413: l_return_status,
42414: l_status_text);
42415: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42416: RAISE E_ROUTINE_ERRORS;
42417: END IF;
42418: END IF; -- end if rounding_flag
42419: --9856359
42431: I.FREEZE_OVERRIDE_FLAG,
42432: nvl(p_control_rec.source_order_amount_flag,G_NO),
42433: l_return_status,
42434: l_status_text);
42435: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42436: RAISE E_ROUTINE_ERRORS;
42437: END IF;
42438:
42439: Update_Distinct_Qualifier_Flag(l_return_status,l_status_text);
42436: RAISE E_ROUTINE_ERRORS;
42437: END IF;
42438:
42439: Update_Distinct_Qualifier_Flag(l_return_status,l_status_text);
42440: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42441: RAISE E_ROUTINE_ERRORS;
42442: END IF;
42443:
42444: l_discount_phase_count := l_discount_phase_count + 1;
42444: l_discount_phase_count := l_discount_phase_count + 1;
42445: END IF;
42446:
42447:
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');
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:
42467:
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;
42497: END IF;
42498:
42499: IF G_QP_PATTERN_SEARCH NOT IN (G_QP_PATTERN_MOD_SEARCH, G_QP_PATTERN_BOTH_SEARCH) THEN --KDURGASI changes for pattern based select modifiers
42500: -- Check for multiple item categories and customer classes
42501: Eliminate_Multiple_Hierarchies(I.pricing_phase_id,l_return_status,l_status_text);
42502:
42503: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42504: RAISE E_ROUTINE_ERRORS;
42505: END IF;
42506:
42507: --Evaluating between operator for only pricing attributes and not qualifiers
42506:
42507: --Evaluating between operator for only pricing attributes and not qualifiers
42508: Evaluate_Between(I.pricing_phase_id,NULL,NULL,l_return_status,l_status_text);
42509:
42510: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42511: RAISE E_ROUTINE_ERRORS;
42512: END IF;
42513:
42514: -- Not needed in modifiers phases as l_outer_qual_cur takes care of this
42516:
42517: -- Only product grouping is done in this ...
42518: Perform_Grouping(I.pricing_phase_id, NULL,l_return_status, l_status_text);
42519:
42520: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42521: RAISE E_ROUTINE_ERRORS;
42522: END IF;
42523: END IF; --KDURGASI changes for pattern based select modifiers
42524: Process_Line_Group(I.pricing_phase_id,l_return_status,l_status_text);
42521: RAISE E_ROUTINE_ERRORS;
42522: END IF;
42523: END IF; --KDURGASI changes for pattern based select modifiers
42524: Process_Line_Group(I.pricing_phase_id,l_return_status,l_status_text);
42525: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42526: RAISE E_ROUTINE_ERRORS;
42527: END IF;
42528:
42529: --Evaluating between operator for both qualifiers and pricing attributes
42528:
42529: --Evaluating between operator for both qualifiers and pricing attributes
42530: Evaluate_Between(I.pricing_phase_id,'Y',NULL,l_return_status,l_status_text);
42531:
42532: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42533: RAISE E_ROUTINE_ERRORS;
42534: END IF;
42535:
42536: Get_Eligible_Price_Break(I.pricing_phase_id,NULL,l_return_status,l_status_text);
42533: RAISE E_ROUTINE_ERRORS;
42534: END IF;
42535:
42536: Get_Eligible_Price_Break(I.pricing_phase_id,NULL,l_return_status,l_status_text);
42537: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42538: RAISE E_ROUTINE_ERRORS;
42539: END IF;
42540:
42541: --[julin/5529345]
42540:
42541: --[julin/5529345]
42542: QP_Process_Other_Benefits_PVT.Calculate_Recurring_Quantity(I.pricing_phase_id, l_return_status, l_status_text);
42543:
42544: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42545: RAISE E_ROUTINE_ERRORS;
42546: END IF;
42547:
42548: FOR J IN l_get_line_index_cur(I.pricing_phase_id)
42567: p_control_rec.simulation_flag,
42568: l_return_status,
42569: l_status_text);
42570:
42571: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42572: DELETE_LINES(J.LINE_INDEX,
42573: l_return_status,
42574: l_status_text,
42575: l_error_status_code,
42575: l_error_status_code,
42576: l_error_status_text);
42577: END IF;
42578:
42579: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42580: engine_debug('list price after phase 1 :'||l_list_price);
42581: END IF;
42582:
42583: --best_price_formula evaluation project 8892565 begin
42582:
42583: --best_price_formula evaluation project 8892565 begin
42584: IF(NVL(Fnd_Profile.value('QP_BEST_PRICE_FORMULA_EVALUATION'),'N')='Y') THEN
42585: IF (l_formula_processing = 'N') then
42586: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42587: engine_debug ('Best price Formula Processing begin');
42588: END IF;
42589: Formula_Processing(null,--J.LINE_INDEX,
42590: I.pricing_phase_id,
42596: --end best_price_formula evaluation project 8892565 end
42597:
42598: --IF (l_list_price IS NOT NULL) THEN
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
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
42616: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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
42616: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42617: engine_debug('Best price for phase');
42618: END IF;
42619: QP_Resolve_Incompatability_PVT.Best_Price_For_Phase
42620: (l_list_price,
42621: J.LINE_INDEX,
42622: I.pricing_phase_id,
42623: l_return_status,
42624: l_status_text);
42625: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42626: RAISE E_ROUTINE_ERRORS;
42627: END IF;
42628: ELSE
42629: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42625: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42626: RAISE E_ROUTINE_ERRORS;
42627: END IF;
42628: ELSE
42629: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42630: engine_debug('Error, invalid incomp code: '||I.INCOMPAT_RESOLVE_CODE);
42631: END IF;
42632: END IF;
42633: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42629: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42630: engine_debug('Error, invalid incomp code: '||I.INCOMPAT_RESOLVE_CODE);
42631: END IF;
42632: END IF;
42633: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42634: engine_debug ('G_LINE_DETAIL_INDEX 6: '||G_LINE_DETAIL_INDEX);
42635: END IF;
42636:
42637: --check if there is a pbh line deleted by incomp
42639: OPEN l_chk_deleted_pbh_cur(J.line_index,I.pricing_phase_id);
42640: FETCH l_chk_deleted_pbh_cur INTO l_dummy;
42641: IF l_chk_deleted_pbh_cur%FOUND THEN
42642: Delete_Invalid_PBH_Children(J.line_index,I.pricing_phase_id,l_return_status,l_status_text);
42643: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42644: RAISE E_ROUTINE_ERRORS;
42645: END IF;
42646: END IF;
42647: CLOSE l_chk_deleted_pbh_cur;
42648:
42649: --END IF;
42650:
42651:
42652: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
42653: DELETE_LINES(J.LINE_INDEX,
42654: l_return_status,
42655: l_status_text,
42656: l_error_status_code,
42661:
42662: -- Formula Processing
42663: --best_price_formula evaluation project 8892565 begin
42664: IF(NVL(Fnd_Profile.value('QP_BEST_PRICE_FORMULA_EVALUATION'),'N')='N') THEN
42665: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42666: engine_debug ('Normal flow Formula Processing begin');
42667: END IF;
42668: Formula_Processing(NULL, --J.LINE_INDEX,
42669: I.pricing_phase_id,
42671: l_status_text);
42672: END IF;
42673: --best_price_formula evaluation project 8892565 end
42674:
42675: /*IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42676: DELETE_LINES(J.LINE_INDEX,
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');
42686: END IF;
42687:
42688:
42689: Set_Order_Level_Rltd(p_freeze_override_flag =>I.freeze_override_flag,
42690: p_pricing_phase_id =>I.pricing_phase_id,
42691: x_status_code =>l_return_status,
42692: x_status_text =>l_status_text);
42693: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42694: RAISE E_ROUTINE_ERRORS;
42695: END IF;
42696: END IF; -- l_pricing_phase_id <> I.pricing_phase_id
42697: END LOOP l_phase_cur;
42696: END IF; -- l_pricing_phase_id <> I.pricing_phase_id
42697: END LOOP l_phase_cur;
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;
42704: END IF;
42705:
42706: --Bug fix 3963888 - Call UPDATE_ROUNDING_FACTOR if l_phase_cur cursor did not return any record
42707: If l_gone_in_phase_cur_loop = 'N' then
42708: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42709: engine_debug('l_gone_in_phase_cur_loop is N');
42710: END IF;
42711: -- Update Rounding Factor, if rounding_flag not N -- Ravi, shu new rounding
42712: IF G_ROUNDING_FLAG <> 'N' THEN -- shu, aso rounding,
42715: l_return_status,
42716: l_status_text);
42717:
42718: END IF; -- end if rounding_flag
42719: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42720: RAISE E_ROUTINE_ERRORS;
42721: END IF;
42722: End if;
42723:
42726: OPEN pricing_install_status_cur;
42727: FETCH pricing_install_status_cur into l_install_status;
42728: CLOSE pricing_install_status_cur;
42729:
42730: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42731: engine_debug('Pricing Install Status : ' || l_install_status);
42732: engine_debug('Limits Install Status : ' || l_limits_installed);
42733:
42734: END IF;
42746: IF (l_install_status = 'I' and l_limits_installed = G_YES and
42747: UPPER(p_control_rec.simulation_flag) = 'N' and
42748: nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) <> G_YES) -- price book
42749: THEN
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');
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:
42762: G_LIMITS_CODE_EXECUTED := 'Y';
42762: G_LIMITS_CODE_EXECUTED := 'Y';
42763:
42764: --END IF;
42765: ELSE
42766: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42767: engine_debug('------Not calling calculation Engine of limits-----------');
42768: END IF;
42769: END IF ; --l_install_status = 'I' and l_limits_installed = G_YES
42770:
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;
42783: --Call the Delete Transactions API only if there is atleast one record in
42786: FETCH limit_trans_cur INTO l_trans;
42787:
42788: IF limit_trans_cur%FOUND THEN
42789: QP_Limit_Transactions_PVT.Delete(p_control_rec.pricing_event, l_return_status);
42790: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42791: RAISE E_ROUTINE_ERRORS;
42792: END IF;
42793: END IF;
42794: CLOSE limit_trans_cur;
42811: AND PRICING_STATUS_CODE = G_STATUS_UNCHANGED
42812: and rownum = 1;
42813: exception
42814: when no_data_found then
42815: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42816: engine_debug ('order amount not found in attributes ');
42817: END IF;
42818: OPEN order_amount_cur;
42819: FETCH order_amount_cur INTO v_order_amount;
42819: FETCH order_amount_cur INTO v_order_amount;
42820: CLOSE order_amount_cur;
42821: end;
42822:
42823: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42824: engine_debug ('Total order amount = ' || v_order_amount);
42825: END IF;
42826:
42827: /*
42833: WHERE LINE_TYPE_CODE = 'ORDER';
42834:
42835: QP_Limit_Balance_Check_PVT.Process_Limits(l_return_status,l_status_text);
42836:
42837: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
42838: RAISE E_ROUTINE_ERRORS;
42839: END IF;
42840:
42841: --fix for bug 4765137
42852: FETCH limit_trans_cur INTO l_trans;
42853:
42854: IF limit_trans_cur%FOUND THEN
42855: QP_Limit_Transactions_PVT.Delete(p_control_rec.pricing_event, l_return_status);
42856: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
42857: RAISE E_ROUTINE_ERRORS;
42858: END IF;--l_return_status
42859: END IF;--limit_trans_cur%FOUND
42860: CLOSE limit_trans_cur;
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
42870: -- only if there are discounts,since calculation engine is called for pricing once
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,
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
42883: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42879: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
42880: RAISE E_ROUTINE_ERRORS;
42881: END IF;
42882: ELSE
42883: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
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
42893: l_status_text:= 'QP_COUPON_PVT.REDEEM_COUPONS'||l_status_text;
42894: RAISE E_ROUTINE_ERRORS;
42895: END IF;
42896: -----------------END: Specific to PL/SQL Engine----------------------
42895: END IF;
42896: -----------------END: Specific to PL/SQL Engine----------------------
42897: ELSE --Java Engine installed
42898: -----------------START: Specific to Java Engine------------------------
42899: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42900: engine_debug('Before calling QP_JAVA_ENGINE.request_price..');
42901: l_begin_time := dbms_utility.get_time;
42902: END IF;
42903:
42901: l_begin_time := dbms_utility.get_time;
42902: END IF;
42903:
42904: l_request_id := QP_Price_Request_Context.GET_REQUEST_ID;
42905: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42906: engine_debug('Request Id:'||l_request_id);
42907: engine_debug('calc_flag:'||p_control_rec.calculate_flag);
42908: END IF;
42909:
42911: p_control_rec => p_control_rec,
42912: x_return_status => l_return_status,
42913: x_return_status_text => l_status_Text);
42914:
42915: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
42916: --l_status_text:= 'QP_JAVA_ENGINE.request_price:'||l_status_text;
42917: RAISE E_ROUTINE_ERRORS;
42918: END IF;
42919: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42915: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
42916: --l_status_text:= 'QP_JAVA_ENGINE.request_price:'||l_status_text;
42917: RAISE E_ROUTINE_ERRORS;
42918: END IF;
42919: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42920: l_end_time := dbms_utility.get_time;
42921: engine_debug('Elapsed time for calling QP_JAVA_ENGINE: '||(l_end_time - l_begin_time)/100);
42922: END IF;
42923: --------------END: Specific to Java Engine------------------
42940: x_line_detail_qual_tbl := l_line_detail_qual_tbl;
42941: x_line_detail_attr_tbl := l_line_detail_attr_tbl;
42942: x_related_lines_tbl := l_related_lines_tbl;
42943:
42944: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42945: engine_debug('No of record in x_line_detail_attr_tbl: '|| x_line_detail_attr_tbl.count);
42946:
42947: END IF;
42948: END IF;
42964: where v$mystat.statistic# = v$statname.statistic#
42965: and v$statname.name = 'redo size';
42966: exception
42967: when others then
42968: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42969: engine_debug('Error in looking up redo end '||SQLERRM);
42970: END IF;
42971: end;
42972: END IF;
42993:
42994: EXCEPTION
42995:
42996: WHEN OTHERS THEN
42997: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
42998: engine_debug('< In Price_Request procedure>. Failed to get time statistics');
42999: END IF;
43000: END;
43001: END IF;
43003: /*
43004: l_redo_difference := l_pricing_end_redo - l_pricing_start_redo ;
43005:
43006: execute immediate 'select '||''''|| ' Total Time in QP_PREQ_GRP(in sec) : ' || l_time_difference||' Total redo in QP_PREQ_GRP : '||l_redo_difference||''''||' from dual ';
43007: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43008: engine_debug('redo log in GRP '||l_redo_difference);
43009: END IF;
43010: */
43011:
43008: engine_debug('redo log in GRP '||l_redo_difference);
43009: END IF;
43010: */
43011:
43012: /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
43013: x_return_status := FND_API.G_RET_STS_ERROR;
43014: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43015: engine_debug('< In Price_Request procedure>. Populate_Temp_Tables return with errors');
43016: END IF;
43009: END IF;
43010: */
43011:
43012: /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
43013: x_return_status := FND_API.G_RET_STS_ERROR;
43014: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43015: engine_debug('< In Price_Request procedure>. Populate_Temp_Tables return with errors');
43016: END IF;
43017: RETURN;
43010: */
43011:
43012: /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
43013: x_return_status := FND_API.G_RET_STS_ERROR;
43014: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43015: engine_debug('< In Price_Request procedure>. Populate_Temp_Tables return with errors');
43016: END IF;
43017: RETURN;
43018: END IF; */
43025: l_status_text
43026: );
43027: --x_return_status := l_return_status; -- fix bug 2756754
43028: --x_return_status_text := l_status_text; -- fix bug 2756754
43029: IF l_return_status = FND_API.G_RET_STS_ERROR THEN -- fix bug 2756754
43030: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43031: engine_debug('Error QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES: '||l_status_text);
43032: END IF; -- END IF G_DEBUG_ENGINE
43033: RAISE E_DEBUG_ROUTINE_ERROR; -- fix bug 2756754, dbg error should not be an hard error
43026: );
43027: --x_return_status := l_return_status; -- fix bug 2756754
43028: --x_return_status_text := l_status_text; -- fix bug 2756754
43029: IF l_return_status = FND_API.G_RET_STS_ERROR THEN -- fix bug 2756754
43030: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43031: engine_debug('Error QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES: '||l_status_text);
43032: END IF; -- END IF G_DEBUG_ENGINE
43033: RAISE E_DEBUG_ROUTINE_ERROR; -- fix bug 2756754, dbg error should not be an hard error
43034: END IF;
43036: END IF;
43037:
43038: -- added global condition for caching - hwong
43039: G_NEW_PRICING_CALL := G_YES;
43040: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43041: engine_debug('hw/pre: change to g_yes');
43042:
43043:
43044:
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;
43058: x_return_status_text := 'The search flag on qp_event_phase is null for phase '||l_pricing_phase_id;
43059: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43060: engine_debug( 'The search flag on qp_event_phase is null for phase '||l_pricing_phase_id);
43061: END IF;
43055: EXCEPTION
43056: WHEN E_SEARCH_FLAG_IS_NULL THEN
43057: x_return_status := FND_API.G_RET_STS_ERROR;
43058: x_return_status_text := 'The search flag on qp_event_phase is null for phase '||l_pricing_phase_id;
43059: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43060: engine_debug( 'The search flag on qp_event_phase is null for phase '||l_pricing_phase_id);
43061: END IF;
43062: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
43063: (G_QP_DEBUG_PROFILE_VALUE = G_DONT_WRITE_TO_DEBUG) THEN -- If qp debug is on
43065: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
43066: l_return_status,
43067: l_status_text
43068: );
43069: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43070: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43071: engine_debug('Error occured in Debug Routine: ' || l_status_text);
43072: END IF;
43073: END IF;
43066: l_return_status,
43067: l_status_text
43068: );
43069: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43070: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43071: engine_debug('Error occured in Debug Routine: ' || l_status_text);
43072: END IF;
43073: END IF;
43074: END IF;
43073: END IF;
43074: END IF;
43075: END IF;
43076: WHEN E_INVALID_CONTROL_RECORD THEN
43077: x_return_status := FND_API.G_RET_STS_ERROR;
43078: x_return_status_text := 'INVALID CONTROL RECORD';
43079:
43080: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
43081: (G_QP_DEBUG_PROFILE_VALUE = G_DONT_WRITE_TO_DEBUG) THEN -- If qp debug is on
43083: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
43084: l_return_status,
43085: l_status_text
43086: );
43087: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43088: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43089: engine_debug('Error occured in Debug Routine: ' || l_return_status);
43090: END IF;
43091: END IF;
43084: l_return_status,
43085: l_status_text
43086: );
43087: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43088: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43089: engine_debug('Error occured in Debug Routine: ' || l_return_status);
43090: END IF;
43091: END IF;
43092: END IF;
43091: END IF;
43092: END IF;
43093: END IF;
43094: WHEN E_ROUTINE_ERRORS THEN
43095: x_return_status := FND_API.G_RET_STS_ERROR;
43096: x_return_status_text := l_status_text;
43097: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43098: engine_debug(l_status_text);
43099:
43093: END IF;
43094: WHEN E_ROUTINE_ERRORS THEN
43095: x_return_status := FND_API.G_RET_STS_ERROR;
43096: x_return_status_text := l_status_text;
43097: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43098: engine_debug(l_status_text);
43099:
43100: END IF;
43101: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
43104: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
43105: l_return_status,
43106: l_status_text
43107: );
43108: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43109: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43110: engine_debug('Error occured in Debug Routine: ' || l_status_text);
43111: END IF;
43112: END IF;
43105: l_return_status,
43106: l_status_text
43107: );
43108: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43109: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43110: engine_debug('Error occured in Debug Routine: ' || l_status_text);
43111: END IF;
43112: END IF;
43113: END IF;
43114: END IF;
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
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;
43124: x_return_status_text := 'Invalid phase sequence for Price List phase, Check setup data';
43125: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43126: engine_debug('Invalid phase sequence for Price List phase');
43127:
43121: END IF;
43122: WHEN E_INVALID_PHASE THEN
43123: x_return_status := FND_API.G_RET_STS_ERROR;
43124: x_return_status_text := 'Invalid phase sequence for Price List phase, Check setup data';
43125: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43126: engine_debug('Invalid phase sequence for Price List phase');
43127:
43128: END IF;
43129: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
43132: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
43133: l_return_status,
43134: l_status_text
43135: );
43136: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43137: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43138: engine_debug('Error occured in Debug Routine: ' || l_status_text);
43139: END IF;
43140: END IF;
43133: l_return_status,
43134: l_status_text
43135: );
43136: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43137: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43138: engine_debug('Error occured in Debug Routine: ' || l_status_text);
43139: END IF;
43140: END IF;
43141: END IF;
43140: END IF;
43141: END IF;
43142: END IF;
43143: WHEN E_NO_SOURCE_SYSTEM THEN
43144: x_return_status := FND_API.G_RET_STS_ERROR;
43145: x_return_status_text := ('No source system found for your request type');
43146: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43147: engine_debug('No source system found for your request type');
43148:
43142: END IF;
43143: WHEN E_NO_SOURCE_SYSTEM THEN
43144: x_return_status := FND_API.G_RET_STS_ERROR;
43145: x_return_status_text := ('No source system found for your request type');
43146: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43147: engine_debug('No source system found for your request type');
43148:
43149: END IF;
43150: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
43153: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
43154: l_return_status,
43155: l_status_text
43156: );
43157: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43158: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43159: engine_debug('Error occured in Debug Routine: ' || l_status_text);
43160: END IF;
43161: END IF;
43154: l_return_status,
43155: l_status_text
43156: );
43157: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43158: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43159: engine_debug('Error occured in Debug Routine: ' || l_status_text);
43160: END IF;
43161: END IF;
43162: END IF;
43162: END IF;
43163: END IF;
43164: --fix bug 2756754
43165: WHEN E_DEBUG_ROUTINE_ERROR THEN
43166: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43167: engine_debug('Error occured in Debug Routine.');
43168: END IF;
43169:
43170: WHEN OTHERS THEN
43167: engine_debug('Error occured in Debug Routine.');
43168: END IF;
43169:
43170: WHEN OTHERS THEN
43171: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43172: engine_debug('In Price_Request: '||l_status_text||' '||SQLERRM);
43173: END IF;
43174: x_return_status := FND_API.G_RET_STS_ERROR;
43175: x_return_status_text := SQLERRM;
43170: WHEN OTHERS THEN
43171: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43172: engine_debug('In Price_Request: '||l_status_text||' '||SQLERRM);
43173: END IF;
43174: x_return_status := FND_API.G_RET_STS_ERROR;
43175: x_return_status_text := SQLERRM;
43176:
43177: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
43178: (G_QP_DEBUG_PROFILE_VALUE = G_DONT_WRITE_TO_DEBUG) THEN -- If qp debug is on
43180: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
43181: l_return_status,
43182: l_status_text
43183: );
43184: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43185: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43186: engine_debug('Error occured in Debug Routine: ' || l_status_text);
43187: END IF;
43188: END IF;
43181: l_return_status,
43182: l_status_text
43183: );
43184: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
43185: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
43186: engine_debug('Error occured in Debug Routine: ' || l_status_text);
43187: END IF;
43188: END IF;
43189: END IF;