[Home] [Help]
370: G_QP_DEBUG_PROFILE_VALUE := FND_PROFILE.VALUE(v_debug_switch);
371: -- Introduced for facilitating debugging for non OM Applications
372: --IF (NOT OE_DEBUG_PUB.ISDebugOn) THEN --If om debug is not on , then only look at qp_debug
373: if oe_debug_pub.g_debug_level > 0 then
374: G_DEBUG_ENGINE:= FND_API.G_TRUE;
375: else
376: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
377: (G_QP_DEBUG_PROFILE_VALUE = G_DONT_WRITE_TO_DEBUG) THEN -- If qp debug is on
378: oe_debug_pub.SetDebugLevel(10);
378: oe_debug_pub.SetDebugLevel(10);
379: oe_debug_pub.Initialize;
380: oe_debug_pub.debug_on;
381: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
382: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
383: engine_debug ('The output file is : ' || l_output_file );
384: END IF;
385: G_DEBUG_ENGINE:= FND_API.G_TRUE;
386: ELSE
381: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
382: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
383: engine_debug ('The output file is : ' || l_output_file );
384: END IF;
385: G_DEBUG_ENGINE:= FND_API.G_TRUE;
386: ELSE
387: G_DEBUG_ENGINE:= FND_API.G_FALSE;
388: END IF;
389: END IF;
383: engine_debug ('The output file is : ' || l_output_file );
384: END IF;
385: G_DEBUG_ENGINE:= FND_API.G_TRUE;
386: ELSE
387: G_DEBUG_ENGINE:= FND_API.G_FALSE;
388: END IF;
389: END IF;
390:
391: EXCEPTION
389: END IF;
390:
391: EXCEPTION
392: WHEN OTHERS THEN
393: --x_status_code := FND_API.G_RET_STS_ERROR;
394: --x_status_text :=l_routine||' '||SQLERRM;
395: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
396: engine_debug(l_routine||' '||SQLERRM);
397: END IF;
391: EXCEPTION
392: WHEN OTHERS THEN
393: --x_status_code := FND_API.G_RET_STS_ERROR;
394: --x_status_text :=l_routine||' '||SQLERRM;
395: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
396: engine_debug(l_routine||' '||SQLERRM);
397: END IF;
398:
399: END Set_QP_Debug;
447: IF (p_price_list_id_tbl.COUNT > 0) THEN
448:
449: v_count := p_price_list_id_tbl.count;
450:
451: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
452: engine_debug('Calling Round Factor function for : '||v_count|| ' price list,currency,pricing date combinations');
453: END IF;
454:
455: FOR i in p_price_list_id_tbl.FIRST .. p_price_list_id_tbl.LAST
454:
455: FOR i in p_price_list_id_tbl.FIRST .. p_price_list_id_tbl.LAST
456: LOOP
457:
458: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
459: engine_debug('Price List Id : ' || p_price_list_id_tbl(i));
460: engine_debug('Currency Code : ' || p_currency_code_tbl(i));
461: engine_debug('Pricing Date : ' || p_pricing_eff_date_tbl(i));
462: END IF;
466: p_price_list_id_tbl(i),
467: p_currency_code_tbl(i),
468: p_pricing_eff_date_tbl(i));
469:
470: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
471: engine_debug('Rounding factor in QP_PREQ_GRP after the function call : ' || p_rounding_factor_tbl(i));
472: END IF;
473:
474: END LOOP;
480: AND PRICE_LIST_HEADER_ID = p_price_list_id_tbl(i)
481: AND CURRENCY_CODE = p_currency_code_tbl(i)
482: AND trunc(PRICING_EFFECTIVE_DATE) = p_pricing_eff_date_tbl(i); -- bug 3364978
483:
484: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
485: engine_debug('Number of lines updated with rounding factor : ' || SQL%ROWCOUNT);
486: END IF;
487:
488: END IF;
491: CLOSE get_price_lists_cur;
492:
493: EXCEPTION
494: WHEN OTHERS THEN
495: x_status_code := FND_API.G_RET_STS_ERROR;
496: x_status_text :=l_routine||' '||SQLERRM;
497: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
498: engine_debug(l_routine||' '||SQLERRM);
499: END IF;
493: EXCEPTION
494: WHEN OTHERS THEN
495: x_status_code := FND_API.G_RET_STS_ERROR;
496: x_status_text :=l_routine||' '||SQLERRM;
497: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
498: engine_debug(l_routine||' '||SQLERRM);
499: END IF;
500: END;
501:
508: PROCEDURE ENGINE_DEBUG(p_text IN VARCHAR2) AS
509: l_return_status VARCHAR2(240);
510: l_status_text VARCHAR2(240);
511: BEGIN
512: --IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
513: oe_debug_pub.add(p_text,3);
514:
515: -- Debug Screen related change
516: -- Irrespective of om debug if qp debug is on debug information is captured into qp debug tables
673: , p_HEADER_LIMIT_EXISTS(i)
674: , p_DERIVED_QUALIFIER_FLAG(i)); -- Added for TCA
675: EXCEPTION
676: WHEN OTHERS THEN
677: x_status_code := FND_API.G_RET_STS_ERROR;
678: x_status_text :=l_routine||' '||SQLERRM;
679: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
680: engine_debug(l_routine||' '||SQLERRM);
681: END IF;
675: EXCEPTION
676: WHEN OTHERS THEN
677: x_status_code := FND_API.G_RET_STS_ERROR;
678: x_status_text :=l_routine||' '||SQLERRM;
679: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
680: engine_debug(l_routine||' '||SQLERRM);
681: END IF;
682: END;
683:
1628: , G_DERIVED_QUALIFIER_FLAG_TBL_Q -- Added for TCA
1629: , l_status_code
1630: , l_status_text);
1631:
1632: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
1633: RAISE E_ROUTINE_ERRORS;
1634: END IF;
1635:
1636: END IF;
1639: CLOSE l_mini_outer_qual_cur;
1640:
1641: EXCEPTION
1642: WHEN OTHERS THEN
1643: x_status_code := FND_API.G_RET_STS_ERROR;
1644: x_status_text :=l_routine||' '||SQLERRM;
1645: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
1646: engine_debug(l_routine||' '||SQLERRM);
1647: END IF;
1641: EXCEPTION
1642: WHEN OTHERS THEN
1643: x_status_code := FND_API.G_RET_STS_ERROR;
1644: x_status_text :=l_routine||' '||SQLERRM;
1645: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
1646: engine_debug(l_routine||' '||SQLERRM);
1647: END IF;
1648:
1649: END Mini_Cache_Qualifiers;
2296: , G_HEADER_LIMIT_EXISTS_TBL_Q
2297: , G_DERIVED_QUALIFIER_FLAG_TBL_Q -- Added for TCA
2298: , l_status_code
2299: , l_status_text);
2300: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
2301: RAISE FND_API.G_EXC_ERROR;
2302: END IF;
2303: END IF;
2304:
2297: , G_DERIVED_QUALIFIER_FLAG_TBL_Q -- Added for TCA
2298: , l_status_code
2299: , l_status_text);
2300: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
2301: RAISE FND_API.G_EXC_ERROR;
2302: END IF;
2303: END IF;
2304:
2305: END LOOP;
2329: where
2330: pricing_phase_id = p_pricing_phase_id
2331: and qualifier_flag = 'Y');
2332:
2333: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2334: engine_debug('Nitin - Delete headers - rows deleted '||sql%rowcount);
2335:
2336: END IF;
2337: EXCEPTION
2335:
2336: END IF;
2337: EXCEPTION
2338: WHEN OTHERS THEN
2339: x_status_code := FND_API.G_RET_STS_ERROR;
2340: x_status_text :=l_routine||' '||SQLERRM;
2341: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2342: engine_debug(l_routine||' '||SQLERRM);
2343: END IF;
2337: EXCEPTION
2338: WHEN OTHERS THEN
2339: x_status_code := FND_API.G_RET_STS_ERROR;
2340: x_status_text :=l_routine||' '||SQLERRM;
2341: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2342: engine_debug(l_routine||' '||SQLERRM);
2343: END IF;
2344: END Cache_Line_Qualifiers;
2345:
2920: END LOOP;
2921: CLOSE l_outer_qual_cur;
2922: EXCEPTION
2923: WHEN OTHERS THEN
2924: x_status_code := FND_API.G_RET_STS_ERROR;
2925: x_status_text :=l_routine||' '||SQLERRM;
2926: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2927: engine_debug(l_routine||' '||SQLERRM);
2928:
2922: EXCEPTION
2923: WHEN OTHERS THEN
2924: x_status_code := FND_API.G_RET_STS_ERROR;
2925: x_status_text :=l_routine||' '||SQLERRM;
2926: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
2927: engine_debug(l_routine||' '||SQLERRM);
2928:
2929: END IF;
2930: END Cache_Header_Qualifiers;
3204: G_PRIMARY_UOM_FLAG_TBL_A.delete;
3205:
3206: EXCEPTION
3207: WHEN OTHERS THEN
3208: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3209: engine_debug(l_routine||': '||SQLERRM);
3210: END IF;
3211: x_status_code := FND_API.G_RET_STS_ERROR;
3212: x_status_text := l_routine || ': ' || SQLERRM;
3207: WHEN OTHERS THEN
3208: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3209: engine_debug(l_routine||': '||SQLERRM);
3210: END IF;
3211: x_status_code := FND_API.G_RET_STS_ERROR;
3212: x_status_text := l_routine || ': ' || SQLERRM;
3213: END Reset_All_Tbls;
3214:
3215: /*+---------------------------------------------------------------------
3242: l_line_index_tbl NUMBER_TYPE;
3243: l_related_line_index_tbl NUMBER_TYPE;
3244:
3245: BEGIN
3246: x_status_code := FND_API.G_RET_STS_SUCCESS;
3247: /*
3248: INDX,QP_PREQ_GRP.Update_Processing_Order.Update_Processing_Order_upd1,qp_npreq_lines_tmp_U1,LINE_INDEX,1
3249: */
3250:
3284: and (contract_start_date is not null or contract_end_date is not null)
3285: and uom_quantity is null)
3286: loop
3287: G_service_line_ind_tbl(cl.line_index) := cl.line_index;
3288: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3289: IF G_service_line_ind_tbl.exists(cl.line_index) THEN
3290: engine_debug('service line with uom_qty as null line_index: '||G_service_line_ind_tbl(cl.line_index));
3291: END IF;--G_service_line_ind_tbl.exists
3292: END IF;--G_DEBUG_ENGINE
3293: end loop;
3294:
3295: EXCEPTION
3296: WHEN OTHERS THEN
3297: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3298: engine_debug(l_routine||' '||SQLERRM);
3299: END IF;
3300: x_status_code := FND_API.G_RET_STS_ERROR;
3301: x_status_text := 'Error in '||l_routine||SQLERRM;
3296: WHEN OTHERS THEN
3297: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3298: engine_debug(l_routine||' '||SQLERRM);
3299: END IF;
3300: x_status_code := FND_API.G_RET_STS_ERROR;
3301: x_status_text := 'Error in '||l_routine||SQLERRM;
3302: END;
3303:
3304: /*+----------------------------------------------------------------------
3348: WHERE LINE_INDEX = p_line_index
3349: AND PRICING_STATUS_CODE <> G_STATUS_UNCHANGED;
3350: ELSIF (p_temp_table = 'ATTRS' AND p_line_index IS NOT NULL
3351: AND p_line_detail_index IS NULL) THEN
3352: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3353: engine_debug('----Updating status code for LDETS---------');
3354: END IF;
3355: /*
3356: INDX,QP_PREQ_GRP.set_status_code.set_status_code_upd3,qp_npreq_line_attrs_tmp_N1,LINE_INDEX,1
3363: AND PRICING_STATUS_CODE <> G_STATUS_UNCHANGED;
3364: END IF;
3365: EXCEPTION
3366: WHEN OTHERS THEN
3367: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3368: engine_debug(l_routine||' '||SQLERRM);
3369: END IF;
3370: x_status_code := FND_API.G_RET_STS_ERROR;
3371: x_status_text := l_routine||': '||SQLERRM;
3366: WHEN OTHERS THEN
3367: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3368: engine_debug(l_routine||' '||SQLERRM);
3369: END IF;
3370: x_status_code := FND_API.G_RET_STS_ERROR;
3371: x_status_text := l_routine||': '||SQLERRM;
3372:
3373: END SET_STATUS_CODE;
3374:
3394: SET PROCESSED_CODE = p_processed_code
3395: WHERE LINE_INDEX = p_line_index;
3396: ELSIF (p_temp_table = 'ATTRS' AND p_line_index IS NOT NULL
3397: AND p_line_detail_index IS NULL) THEN
3398: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3399: engine_debug('----Updating status code for LDETS---------');
3400: END IF;
3401: /*
3402: INDX,QP_PREQ_GRP.set_processed_code.set_processed_code_upd2,qp_npreq_line_attrs_tmp_N1,LINE_INDEX,1
3406: WHERE LINE_INDEX = p_line_index;
3407: END IF;
3408: EXCEPTION
3409: WHEN OTHERS THEN
3410: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3411: engine_debug(l_routine||' '||SQLERRM);
3412: END IF;
3413: x_status_code := FND_API.G_RET_STS_ERROR;
3414: x_status_text := l_routine||': '||SQLERRM;
3409: WHEN OTHERS THEN
3410: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3411: engine_debug(l_routine||' '||SQLERRM);
3412: END IF;
3413: x_status_code := FND_API.G_RET_STS_ERROR;
3414: x_status_text := l_routine||': '||SQLERRM;
3415:
3416: END SET_PROCESSED_CODE;
3417:
3447: 'LINES',
3448: l_error_status_code,
3449: l_error_status_text);
3450:
3451: IF (l_error_status_code = FND_API.G_RET_STS_ERROR) THEN
3452: RAISE E_ROUTINE_ERRORS;
3453: END IF;
3454:
3455: SET_STATUS_CODE(G_STATUS_DELETED,
3459: 'ATTRS',
3460: l_error_status_code,
3461: l_error_status_text);
3462:
3463: IF (l_error_status_code = FND_API.G_RET_STS_ERROR) THEN
3464: RAISE E_ROUTINE_ERRORS;
3465: END IF;
3466:
3467: SET_STATUS_CODE(G_STATUS_DELETED,
3471: 'LDETS',
3472: l_error_status_code,
3473: l_error_status_text);
3474:
3475: IF (l_error_status_code = FND_API.G_RET_STS_ERROR) THEN
3476: RAISE E_ROUTINE_ERRORS;
3477: END IF;
3478:
3479: EXCEPTION
3477: END IF;
3478:
3479: EXCEPTION
3480: WHEN E_ROUTINE_ERRORS THEN
3481: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3482: engine_debug(l_routine||': '||l_error_status_text);
3483: END IF;
3484: x_status_code := FND_API.G_RET_STS_ERROR;
3485: x_status_text := l_routine||': '||l_error_status_text;
3480: WHEN E_ROUTINE_ERRORS THEN
3481: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3482: engine_debug(l_routine||': '||l_error_status_text);
3483: END IF;
3484: x_status_code := FND_API.G_RET_STS_ERROR;
3485: x_status_text := l_routine||': '||l_error_status_text;
3486: WHEN OTHERS THEN
3487: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3488: engine_debug(l_routine||' '||SQLERRM);
3483: END IF;
3484: x_status_code := FND_API.G_RET_STS_ERROR;
3485: x_status_text := l_routine||': '||l_error_status_text;
3486: WHEN OTHERS THEN
3487: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3488: engine_debug(l_routine||' '||SQLERRM);
3489: END IF;
3490: x_status_code := FND_API.G_RET_STS_ERROR;
3491: x_status_text := 'Error in '||l_routine||SQLERRM;
3486: WHEN OTHERS THEN
3487: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3488: engine_debug(l_routine||' '||SQLERRM);
3489: END IF;
3490: x_status_code := FND_API.G_RET_STS_ERROR;
3491: x_status_text := 'Error in '||l_routine||SQLERRM;
3492: END DELETE_LINES;
3493:
3494: /*+----------------------------------------------------------------------
3512: l_routine VARCHAR2(240):= 'Routine:QP_PREQ_GRP.INSERT_LINE_ATTRS2_AT';
3513: l_request_id number;
3514:
3515: BEGIN
3516: x_status_code := FND_API.G_RET_STS_SUCCESS;
3517: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
3518:
3519: FORALL i in p_line_index_tbl.FIRST..p_line_index_tbl.LAST
3520: INSERT INTO QP_INT_LINE_ATTRS_T
3554: p_VALUE_TO_tbl(i),
3555: p_VALIDATED_FLAG_tbl(i));
3556: */
3557: QP_PREQ_GRP.G_INT_ATTRS_NO := QP_PREQ_GRP.G_INT_ATTRS_NO + p_LINE_INDEX_tbl.count;
3558: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3559: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_ATTRS_NO='||QP_PREQ_GRP.G_INT_ATTRS_NO);
3560: END IF;
3561: COMMIT;
3562: EXCEPTION
3560: END IF;
3561: COMMIT;
3562: EXCEPTION
3563: WHEN OTHERS THEN
3564: x_status_code := FND_API.G_RET_STS_ERROR;
3565: x_status_text :=l_routine||' '||SQLERRM;
3566: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3567: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
3568: END IF;
3562: EXCEPTION
3563: WHEN OTHERS THEN
3564: x_status_code := FND_API.G_RET_STS_ERROR;
3565: x_status_text :=l_routine||' '||SQLERRM;
3566: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3567: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
3568: END IF;
3569: END;
3570:
3598: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3599:
3600: --added by yangli for Java Engine project
3601: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
3602: IF l_debug = FND_API.G_TRUE THEN
3603: ENGINE_DEBUG('Java Engine not Installed ----------');
3604: END IF;
3605: --added by yangli for Java Engine 3086881
3606: x_status_code := FND_API.G_RET_STS_SUCCESS;
3602: IF l_debug = FND_API.G_TRUE THEN
3603: ENGINE_DEBUG('Java Engine not Installed ----------');
3604: END IF;
3605: --added by yangli for Java Engine 3086881
3606: x_status_code := FND_API.G_RET_STS_SUCCESS;
3607:
3608: FORALL i in p_line_index_tbl.FIRST..p_line_index_tbl.LAST
3609: INSERT INTO qp_npreq_line_attrs_tmp
3610: (LINE_INDEX,
3624: p_VALUE_TO_tbl(i),
3625: p_VALIDATED_FLAG_tbl(i));
3626: --added by yangli for Java Engine 3086881
3627: ELSE
3628: IF l_debug = FND_API.G_TRUE THEN
3629: ENGINE_DEBUG('Java Engine Installed ----------');
3630: END IF;
3631: QP_PREQ_GRP.INSERT_LINE_ATTRS2_AT(
3632: p_LINE_INDEX_tbl ,
3645: --added by yangli for Java Engine 3086881
3646:
3647: EXCEPTION
3648: WHEN OTHERS THEN
3649: x_status_code := FND_API.G_RET_STS_ERROR;
3650: x_status_text :=l_routine||' '||SQLERRM;
3651: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3652: engine_debug(l_routine||' '||SQLERRM);
3653: END IF;
3647: EXCEPTION
3648: WHEN OTHERS THEN
3649: x_status_code := FND_API.G_RET_STS_ERROR;
3650: x_status_text :=l_routine||' '||SQLERRM;
3651: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3652: engine_debug(l_routine||' '||SQLERRM);
3653: END IF;
3654: END;
3655:
3688: x_status_text OUT NOCOPY VARCHAR2)
3689: AS
3690: l_routine VARCHAR2(240):= 'Routine:QP_PREQ_GRP.INSERT_LINE_ATTRS';
3691: BEGIN
3692: x_status_code := FND_API.G_RET_STS_SUCCESS;
3693: INSERT INTO qp_npreq_line_attrs_tmp
3694: (LINE_INDEX,
3695: LINE_DETAIL_INDEX,
3696: ATTRIBUTE_LEVEL,
3742: p_EXCLUDER_FLAG
3743: );
3744: EXCEPTION
3745: WHEN OTHERS THEN
3746: x_status_code := FND_API.G_RET_STS_ERROR;
3747: x_status_text :=l_routine||' '||SQLERRM;
3748: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3749: engine_debug(l_routine||' '||SQLERRM);
3750: END IF;
3744: EXCEPTION
3745: WHEN OTHERS THEN
3746: x_status_code := FND_API.G_RET_STS_ERROR;
3747: x_status_text :=l_routine||' '||SQLERRM;
3748: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3749: engine_debug(l_routine||' '||SQLERRM);
3750: END IF;
3751: END;
3752:
3789:
3790:
3791: l_routine VARCHAR2(240):= 'Routine:QP_PREQ_GRP.INSERT_PRICE_LIST_ATTRS';
3792: BEGIN
3793: x_status_code := FND_API.G_RET_STS_SUCCESS;
3794:
3795: FORALL i in p_line_index_tbl.FIRST..p_line_index_tbl.LAST
3796: INSERT INTO qp_npreq_line_attrs_tmp
3797: (LINE_INDEX,
3853: p_PRIMARY_UOM_FLAG_TBL(i)
3854: );
3855: EXCEPTION
3856: WHEN OTHERS THEN
3857: x_status_code := FND_API.G_RET_STS_ERROR;
3858: x_status_text :=l_routine||' '||SQLERRM;
3859: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3860: engine_debug(l_routine||' '||SQLERRM);
3861: END IF;
3855: EXCEPTION
3856: WHEN OTHERS THEN
3857: x_status_code := FND_API.G_RET_STS_ERROR;
3858: x_status_text :=l_routine||' '||SQLERRM;
3859: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3860: engine_debug(l_routine||' '||SQLERRM);
3861: END IF;
3862: END;
3863:
3902: PRAGMA AUTONOMOUS_TRANSACTION;
3903: l_routine VARCHAR2(240):= 'Routine:QP_PREQ_GRP.INSERT_LINE_ATTRS2_AT';
3904: l_request_id number;
3905: BEGIN
3906: x_status_code := FND_API.G_RET_STS_SUCCESS;
3907: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
3908:
3909: FORALL i in p_line_index_tbl.FIRST..p_line_index_tbl.LAST
3910: /*INSERT INTO QP_INT_LINE_ATTRS
4035: p_PRIMARY_UOM_FLAG_TBL(i),
4036: l_request_id
4037: );
4038: QP_PREQ_GRP.G_INT_ATTRS_NO := QP_PREQ_GRP.G_INT_ATTRS_NO + p_LINE_INDEX_tbl.count;
4039: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4040: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_ATTRS_NO='||QP_PREQ_GRP.G_INT_ATTRS_NO);
4041: END IF;
4042:
4043: COMMIT;
4042:
4043: COMMIT;
4044: EXCEPTION
4045: WHEN OTHERS THEN
4046: x_status_code := FND_API.G_RET_STS_ERROR;
4047: x_status_text :=l_routine||' '||SQLERRM;
4048: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4049: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
4050: END IF;
4044: EXCEPTION
4045: WHEN OTHERS THEN
4046: x_status_code := FND_API.G_RET_STS_ERROR;
4047: x_status_text :=l_routine||' '||SQLERRM;
4048: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4049: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
4050: END IF;
4051: END;
4052:
4100:
4101: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4102:
4103: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
4104: IF l_debug = FND_API.G_TRUE THEN
4105: ENGINE_DEBUG('Java Engine not Installed ----------');
4106: END IF;
4107: --added by yangli for Java Engine 3086881
4108:
4105: ENGINE_DEBUG('Java Engine not Installed ----------');
4106: END IF;
4107: --added by yangli for Java Engine 3086881
4108:
4109: x_status_code := FND_API.G_RET_STS_SUCCESS;
4110:
4111: FORALL i in p_line_index_tbl.FIRST..p_line_index_tbl.LAST
4112: INSERT INTO qp_npreq_line_attrs_tmp
4113: (LINE_INDEX,
4173: p_PRIMARY_UOM_FLAG_TBL(i)
4174: );
4175: --added by yangli for Java Engine 3086881
4176: ELSE
4177: IF l_debug = FND_API.G_TRUE THEN
4178: ENGINE_DEBUG('Java Engine Installed ----------');
4179: END IF;
4180: QP_PREQ_GRP.INSERT_LINE_ATTRS2_AT
4181: ( p_LINE_INDEX_tbl ,
4215: --added by yangli for Java Engine 3086881
4216:
4217: EXCEPTION
4218: WHEN OTHERS THEN
4219: x_status_code := FND_API.G_RET_STS_ERROR;
4220: x_status_text :=l_routine||' '||SQLERRM;
4221: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4222: engine_debug(l_routine||' '||SQLERRM);
4223: END IF;
4217: EXCEPTION
4218: WHEN OTHERS THEN
4219: x_status_code := FND_API.G_RET_STS_ERROR;
4220: x_status_text :=l_routine||' '||SQLERRM;
4221: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4222: engine_debug(l_routine||' '||SQLERRM);
4223: END IF;
4224: END;
4225:
4258: x_status_text OUT NOCOPY VARCHAR2 )
4259: AS
4260: l_routine VARCHAR2(240):='Routine:QP_PREQ_GRP.INSERT_LINES';
4261: BEGIN
4262: x_status_code := FND_API.G_RET_STS_SUCCESS;
4263: INSERT INTO qp_npreq_lines_tmp
4264: (LINE_INDEX,
4265: LINE_TYPE_CODE,
4266: PRICING_EFFECTIVE_DATE,
4315: p_CHARGE_PERIODICITY_CODE
4316: );
4317: EXCEPTION
4318: WHEN OTHERS THEN
4319: x_status_code := FND_API.G_RET_STS_ERROR;
4320: x_status_text :=l_routine||' '||SQLERRM;
4321: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4322: engine_debug(l_routine||' '||SQLERRM);
4323: engine_debug(SQLERRM);
4317: EXCEPTION
4318: WHEN OTHERS THEN
4319: x_status_code := FND_API.G_RET_STS_ERROR;
4320: x_status_text :=l_routine||' '||SQLERRM;
4321: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4322: engine_debug(l_routine||' '||SQLERRM);
4323: engine_debug(SQLERRM);
4324: END IF;
4325: END;
4366: PRAGMA AUTONOMOUS_TRANSACTION;
4367: l_routine VARCHAR2(240):='Routine:QP_PREQ_GRP.INSERT_LINES2_AT';
4368: l_request_id number;
4369: BEGIN
4370: x_status_code := FND_API.G_RET_STS_SUCCESS;
4371: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
4372:
4373: FORALL i in p_line_index.FIRST..p_line_index.LAST
4374: /*INSERT INTO QP_INT_LINES
4503: p_CHARGE_PERIODICITY_CODE(i),
4504: l_request_id
4505: );
4506: QP_PREQ_GRP.G_INT_LINES_NO := QP_PREQ_GRP.G_INT_LINES_NO + p_LINE_INDEX.count;
4507: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4508: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_LINES_NO='||QP_PREQ_GRP.G_INT_LINES_NO);
4509: END IF;
4510: COMMIT;
4511: EXCEPTION
4509: END IF;
4510: COMMIT;
4511: EXCEPTION
4512: WHEN OTHERS THEN
4513: x_status_code := FND_API.G_RET_STS_ERROR;
4514: x_status_text :=l_routine||' '||SQLERRM;
4515: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4516: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
4517: END IF;
4511: EXCEPTION
4512: WHEN OTHERS THEN
4513: x_status_code := FND_API.G_RET_STS_ERROR;
4514: x_status_text :=l_routine||' '||SQLERRM;
4515: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4516: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
4517: END IF;
4518: END ;
4519:
4566:
4567: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4568:
4569: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
4570: IF l_debug = FND_API.G_TRUE THEN
4571: ENGINE_DEBUG('Java Engine not Installed ----------');
4572: END IF;
4573: --added by yangli for Java Engine project 3086881
4574:
4571: ENGINE_DEBUG('Java Engine not Installed ----------');
4572: END IF;
4573: --added by yangli for Java Engine project 3086881
4574:
4575: x_status_code := FND_API.G_RET_STS_SUCCESS;
4576:
4577: FORALL i in p_line_index.FIRST..p_line_index.LAST
4578: INSERT INTO qp_npreq_lines_tmp
4579: (LINE_INDEX,
4641: p_UNIT_PRICE(i)
4642: ); --po integration
4643: --added by yangli for Java Engine project 3086881
4644: ELSE
4645: IF l_debug = FND_API.G_TRUE THEN
4646: ENGINE_DEBUG('Java Engine Installed ----------');
4647: END IF;
4648: QP_PREQ_GRP.INSERT_LINES2_AT
4649: (p_LINE_INDEX ,
4683: --added by yangli for Java Engine project 3086881
4684:
4685: EXCEPTION
4686: WHEN OTHERS THEN
4687: x_status_code := FND_API.G_RET_STS_ERROR;
4688: x_status_text :=l_routine||' '||SQLERRM;
4689: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4690: engine_debug(l_routine||' '||SQLERRM);
4691: END IF;
4685: EXCEPTION
4686: WHEN OTHERS THEN
4687: x_status_code := FND_API.G_RET_STS_ERROR;
4688: x_status_text :=l_routine||' '||SQLERRM;
4689: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4690: engine_debug(l_routine||' '||SQLERRM);
4691: END IF;
4692: END ;
4693:
4742: PRAGMA AUTONOMOUS_TRANSACTION;
4743: l_routine VARCHAR2(240):='Routine:QP_PREQ_GRP.INSERT_LINES2_AT';
4744: l_request_id number;
4745: BEGIN
4746: x_status_code := FND_API.G_RET_STS_SUCCESS;
4747: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
4748: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4749: QP_PREQ_GRP.engine_debug('Before bulk inserting lines...');
4750: QP_PREQ_GRP.engine_debug('line index size:'||p_line_index.count());
4744: l_request_id number;
4745: BEGIN
4746: x_status_code := FND_API.G_RET_STS_SUCCESS;
4747: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
4748: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4749: QP_PREQ_GRP.engine_debug('Before bulk inserting lines...');
4750: QP_PREQ_GRP.engine_debug('line index size:'||p_line_index.count());
4751: END IF;
4752:
4921: p_UNIT_PRICE(i),
4922: l_request_id
4923: );
4924: QP_PREQ_GRP.G_INT_LINES_NO := QP_PREQ_GRP.G_INT_LINES_NO + p_LINE_INDEX.count;
4925: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4926: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_LINES_NO='||QP_PREQ_GRP.G_INT_LINES_NO);
4927: END IF;
4928:
4929: COMMIT;
4929: COMMIT;
4930:
4931: EXCEPTION
4932: WHEN OTHERS THEN
4933: x_status_code := FND_API.G_RET_STS_ERROR;
4934: x_status_text :=l_routine||' '||SQLERRM;
4935: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4936: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
4937: QP_PREQ_GRP.engine_debug(SQLERRM);
4931: EXCEPTION
4932: WHEN OTHERS THEN
4933: x_status_code := FND_API.G_RET_STS_ERROR;
4934: x_status_text :=l_routine||' '||SQLERRM;
4935: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
4936: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
4937: QP_PREQ_GRP.engine_debug(SQLERRM);
4938: END IF;
4939: END;
4997:
4998: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4999: --added by yangli for Java Engine project
5000:
5001: x_status_code := FND_API.G_RET_STS_SUCCESS;
5002:
5003: -- Defaulting
5004: IF (p_line_category.count = 0) THEN -- p_line_category not passed at all
5005: FOR i in p_line_index.FIRST .. p_line_index.LAST
5101: END IF;
5102:
5103: --added by yangli for Java Engine project
5104: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
5105: IF l_debug = FND_API.G_TRUE THEN
5106: ENGINE_DEBUG('Java Engine not Installed ----------');
5107: END IF;
5108: --added by yangli for Java Engine project
5109:
5195: p_UNIT_PRICE(i)
5196: );
5197: --added by yangli for Java Engine project
5198: ELSE
5199: IF l_debug = FND_API.G_TRUE THEN
5200: ENGINE_DEBUG('Java Engine Installed ----------');
5201: END IF;
5202: QP_PREQ_GRP.INSERT_LINES2_AT(
5203: p_LINE_INDEX,
5256: G_CHARGE_PERIODICITY_CODE_TBL.delete;
5257:
5258: EXCEPTION
5259: WHEN OTHERS THEN
5260: x_status_code := FND_API.G_RET_STS_ERROR;
5261: x_status_text :=l_routine||' '||SQLERRM;
5262: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5263: engine_debug(l_routine||' '||SQLERRM);
5264: engine_debug(SQLERRM);
5258: EXCEPTION
5259: WHEN OTHERS THEN
5260: x_status_code := FND_API.G_RET_STS_ERROR;
5261: x_status_text :=l_routine||' '||SQLERRM;
5262: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5263: engine_debug(l_routine||' '||SQLERRM);
5264: engine_debug(SQLERRM);
5265: END IF;
5266: END;
5455: ,p_BREAK_UOM_ATTRIBUTE /* Proration */
5456: );
5457: EXCEPTION
5458: WHEN OTHERS THEN
5459: x_status_code := FND_API.G_RET_STS_ERROR;
5460: x_status_text :=l_routine||' '||SQLERRM;
5461: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5462: engine_debug(l_routine||' '||SQLERRM);
5463: engine_debug(SQLERRM);
5457: EXCEPTION
5458: WHEN OTHERS THEN
5459: x_status_code := FND_API.G_RET_STS_ERROR;
5460: x_status_text :=l_routine||' '||SQLERRM;
5461: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5462: engine_debug(l_routine||' '||SQLERRM);
5463: engine_debug(SQLERRM);
5464: END IF;
5465: END;
5567: ,p_BREAK_UOM_ATTRIBUTE(i) /* Proration */
5568: );
5569: EXCEPTION
5570: WHEN OTHERS THEN
5571: x_status_code := FND_API.G_RET_STS_ERROR;
5572: x_status_text :=l_routine||' '||SQLERRM;
5573: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5574: engine_debug(l_routine||' '||SQLERRM);
5575: engine_debug(SQLERRM);
5569: EXCEPTION
5570: WHEN OTHERS THEN
5571: x_status_code := FND_API.G_RET_STS_ERROR;
5572: x_status_text :=l_routine||' '||SQLERRM;
5573: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5574: engine_debug(l_routine||' '||SQLERRM);
5575: engine_debug(SQLERRM);
5576: END IF;
5577: END;
5698: );
5699:
5700: EXCEPTION
5701: WHEN OTHERS THEN
5702: x_status_code := FND_API.G_RET_STS_ERROR;
5703: x_status_text :=l_routine||' '||SQLERRM;
5704: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5705: engine_debug(l_routine||' '||SQLERRM);
5706: engine_debug(SQLERRM);
5700: EXCEPTION
5701: WHEN OTHERS THEN
5702: x_status_code := FND_API.G_RET_STS_ERROR;
5703: x_status_text :=l_routine||' '||SQLERRM;
5704: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5705: engine_debug(l_routine||' '||SQLERRM);
5706: engine_debug(SQLERRM);
5707: END IF;
5708: END;
5942: ,p_BREAK_UOM_ATTRIBUTE(i), /* Proration */
5943: l_request_id
5944: );
5945: QP_PREQ_GRP.G_INT_LDETS_NO := QP_PREQ_GRP.G_INT_LDETS_NO + p_LINE_DETAIL_INDEX.count;
5946: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5947: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_LDETS_NO='||QP_PREQ_GRP.G_INT_LDETS_NO);
5948: END IF;
5949:
5950: COMMIT;
5949:
5950: COMMIT;
5951: EXCEPTION
5952: WHEN OTHERS THEN
5953: x_status_code := FND_API.G_RET_STS_ERROR;
5954: x_status_text :=l_routine||' '||SQLERRM;
5955: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5956: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
5957: QP_PREQ_GRP.engine_debug(SQLERRM);
5951: EXCEPTION
5952: WHEN OTHERS THEN
5953: x_status_code := FND_API.G_RET_STS_ERROR;
5954: x_status_text :=l_routine||' '||SQLERRM;
5955: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
5956: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
5957: QP_PREQ_GRP.engine_debug(SQLERRM);
5958: END IF;
5959: END;
6019:
6020: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
6021:
6022: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
6023: IF l_debug = FND_API.G_TRUE THEN
6024: ENGINE_DEBUG('Java Engine not Installed ----------');
6025: END IF;
6026: --added by yangli for Java Engine project
6027:
6117: ,p_BREAK_UOM_ATTRIBUTE(i) /* Proration */
6118: );
6119: --added by yangli for Java Engine project
6120: ELSE
6121: IF l_debug = FND_API.G_TRUE THEN
6122: ENGINE_DEBUG('Java Engine Installed ----------');
6123: END IF;
6124: QP_PREQ_GRP.INSERT_LDETS2_AT
6125: (p_LINE_DETAIL_INDEX ,
6172: --added by yangli for Java Engine project
6173:
6174: EXCEPTION
6175: WHEN OTHERS THEN
6176: x_status_code := FND_API.G_RET_STS_ERROR;
6177: x_status_text :=l_routine||' '||SQLERRM;
6178: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6179: engine_debug(l_routine||' '||SQLERRM);
6180: engine_debug(SQLERRM);
6174: EXCEPTION
6175: WHEN OTHERS THEN
6176: x_status_code := FND_API.G_RET_STS_ERROR;
6177: x_status_text :=l_routine||' '||SQLERRM;
6178: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6179: engine_debug(l_routine||' '||SQLERRM);
6180: engine_debug(SQLERRM);
6181: END IF;
6182: END;
6315: p_ACCUM_ATTRIBUTE(i),
6316: p_ACCUM_FLAG(i));
6317: EXCEPTION
6318: WHEN OTHERS THEN
6319: x_status_code := FND_API.G_RET_STS_ERROR;
6320: x_status_text :=l_routine||' '||SQLERRM;
6321: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6322: engine_debug(l_routine||' '||SQLERRM);
6323: engine_debug(SQLERRM);
6317: EXCEPTION
6318: WHEN OTHERS THEN
6319: x_status_code := FND_API.G_RET_STS_ERROR;
6320: x_status_text :=l_routine||' '||SQLERRM;
6321: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6322: engine_debug(l_routine||' '||SQLERRM);
6323: engine_debug(SQLERRM);
6324: END IF;
6325: END;
6397: PRAGMA AUTONOMOUS_TRANSACTION;
6398: l_request_id number;
6399: l_routine VARCHAR2(240):= 'Routine:QP_PREQ_GRP.INSERT_LDETS2';
6400: BEGIN
6401: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6402: QP_PREQ_GRP.engine_debug('G_LINE_DETAIL_INDEX b4 insert_ldets2 '||G_LINE_DETAIL_INDEX);
6403: QP_PREQ_GRP.engine_debug('current request_id: '||sys_context('qp_context','request_id'));
6404: END IF;
6405: l_request_id := nvl(SYS_CONTEXT('QP_CONTEXT','request_id'),-9999);
6532: p_BREAK_UOM_ATTRIBUTE(i), /* Proration */
6533: l_request_id
6534: );
6535: QP_PREQ_GRP.G_INT_LDETS_NO := QP_PREQ_GRP.G_INT_LDETS_NO + p_LINE_DETAIL_INDEX.count;
6536: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6537: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_LDETS_NO='||QP_PREQ_GRP.G_INT_LDETS_NO);
6538: END IF;
6539: COMMIT;
6540:
6539: COMMIT;
6540:
6541: EXCEPTION
6542: WHEN OTHERS THEN
6543: x_status_code := FND_API.G_RET_STS_ERROR;
6544: x_status_text :=l_routine||' '||SQLERRM;
6545: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6546: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
6547: QP_PREQ_GRP.engine_debug(SQLERRM);
6541: EXCEPTION
6542: WHEN OTHERS THEN
6543: x_status_code := FND_API.G_RET_STS_ERROR;
6544: x_status_text :=l_routine||' '||SQLERRM;
6545: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6546: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
6547: QP_PREQ_GRP.engine_debug(SQLERRM);
6548: END IF;
6549: END;
6629:
6630: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
6631: --added by yangli for Java Engine project
6632:
6633: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
6634: engine_debug('G_LINE_DETAIL_INDEX b4 insert_ldets2 '||G_LINE_DETAIL_INDEX);
6635:
6636: engine_debug('current request_id: '||sys_context('qp_context','request_id'));
6637:
6856: END IF;
6857:
6858: --added by yangli for Java Engine project
6859: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
6860: IF l_debug = FND_API.G_TRUE THEN
6861: ENGINE_DEBUG('Java Engine not Installed ----------');
6862: END IF;
6863:
6864: --added by yangli for Java Engine project
6989: G_BREAK_UOM_ATTRIBUTE_DEF_TBL(i) /* Proration */
6990: );
6991: --added by yangli for Java Engine project
6992: ELSE
6993: IF l_debug = FND_API.G_TRUE THEN
6994: ENGINE_DEBUG('Java Engine Installed ----------');
6995: END IF;
6996: QP_PREQ_GRP.INSERT_LDETS2_AT
6997: (p_LINE_DETAIL_index ,
7082: G_PROCESS_CODE_DEF_TBL.delete; -- 3215497
7083:
7084: EXCEPTION
7085: WHEN OTHERS THEN
7086: x_status_code := FND_API.G_RET_STS_ERROR;
7087: x_status_text :=l_routine||' '||SQLERRM;
7088: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7089: engine_debug(l_routine||' '||SQLERRM);
7090: engine_debug(SQLERRM);
7084: EXCEPTION
7085: WHEN OTHERS THEN
7086: x_status_code := FND_API.G_RET_STS_ERROR;
7087: x_status_text :=l_routine||' '||SQLERRM;
7088: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7089: engine_debug(l_routine||' '||SQLERRM);
7090: engine_debug(SQLERRM);
7091: END IF;
7092: END;
7138: p_pricing_status_text(i),
7139: l_request_id
7140: );
7141: QP_PREQ_GRP.G_INT_RELS_NO := QP_PREQ_GRP.G_INT_RELS_NO + p_LINE_INDEX.count;
7142: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7143: QP_PREQ_GRP.engine_debug('QP_PREQ_GRP.G_INT_RELS_NO='||QP_PREQ_GRP.G_INT_RELS_NO);
7144: END IF;
7145: COMMIT;
7146: EXCEPTION
7144: END IF;
7145: COMMIT;
7146: EXCEPTION
7147: WHEN OTHERS THEN
7148: x_status_code := FND_API.G_RET_STS_ERROR;
7149: x_status_text :=l_routine||' '||SQLERRM;
7150: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7151: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
7152: QP_PREQ_GRP.engine_debug(SQLERRM);
7146: EXCEPTION
7147: WHEN OTHERS THEN
7148: x_status_code := FND_API.G_RET_STS_ERROR;
7149: x_status_text :=l_routine||' '||SQLERRM;
7150: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7151: QP_PREQ_GRP.engine_debug(l_routine||' '||SQLERRM);
7152: QP_PREQ_GRP.engine_debug(SQLERRM);
7153: END IF;
7154: END;
7220: END LOOP;
7221: END IF;
7222:
7223: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
7224: IF l_debug = FND_API.G_TRUE THEN
7225: ENGINE_DEBUG('Java Engine not Installed ----------');
7226: END IF;
7227: --added by yangli for Java Engine project
7228:
7250: G_RLTD_LIST_LINE_ID_DEF_TBL(i)
7251: );
7252: --added by yangli for Java Engine project
7253: ELSE
7254: IF l_debug = FND_API.G_TRUE THEN
7255: ENGINE_DEBUG('Java Engine Installed ----------');
7256: END IF;
7257: QP_PREQ_GRP.INSERT_RLTD_LINES2_AT
7258: (p_LINE_INDEX ,
7273: --added by yangli for Java Engine project
7274: G_PRICING_STATUS_TEXT_DEF_TBL.delete;
7275: EXCEPTION
7276: WHEN OTHERS THEN
7277: x_status_code := FND_API.G_RET_STS_ERROR;
7278: x_status_text :=l_routine||' '||SQLERRM;
7279: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7280: engine_debug(l_routine||' '||SQLERRM);
7281: engine_debug(SQLERRM);
7275: EXCEPTION
7276: WHEN OTHERS THEN
7277: x_status_code := FND_API.G_RET_STS_ERROR;
7278: x_status_text :=l_routine||' '||SQLERRM;
7279: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7280: engine_debug(l_routine||' '||SQLERRM);
7281: engine_debug(SQLERRM);
7282: END IF;
7283: END INSERT_RLTD_LINES2; -- public version
7451: AND ATTRIBUTE_TYPE = G_PRICING_TYPE
7452: AND PRICING_STATUS_CODE = G_STATUS_UNCHANGED;
7453:
7454: IF SQL%ROWCOUNT = 0 THEN
7455: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7456: engine_debug('No volume context in temp table, inserting one');
7457: END IF;
7458: INSERT_LINE_ATTRS
7459: (p_LINE_INDEX =>I.LINE_INDEX,
7468: P_PRICING_ATTR_FLAG =>G_PRICING_YES,
7469: x_status_code =>l_status_code,
7470: x_status_text =>l_status_text);
7471:
7472: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
7473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7474: END IF;
7475: END IF;
7476: -- Reset the unit price if price event occurs
7469: x_status_code =>l_status_code,
7470: x_status_text =>l_status_text);
7471:
7472: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
7473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7474: END IF;
7475: END IF;
7476: -- Reset the unit price if price event occurs
7477: IF (i.PRICE_FLAG = G_YES OR (i.PRICE_FLAG = G_PHASE AND p_freeze_override_flag = G_YES)) THEN
7484:
7485: -- PRICED QUANTITY(Discounts Sequence)
7486: -- bug 3572594 - update the cross order volume period qty even if there is no price phase in the current engine call
7487: IF (p_pricing_phase_seq <> G_PRICE_LIST_SEQUENCE AND l_l_line_type_code_tbl(I) = G_LINE_LEVEL ) THEN
7488: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7489: engine_debug('Trying to update cross order volume period qty in temp table');
7490:
7491: END IF;
7492: -- Cross Order Quantities
7501: v_uom_rate);
7502:
7503: -- Update Period1 Item Qty, Period2 Item Qty , Period3 Item Qty with conversion from order uom to pricing uom
7504: IF (v_uom_rate = -99999) THEN
7505: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7506: engine_debug('Uom Rate cannot be -99999');
7507: END IF;
7508: ELSE
7509: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7505: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7506: engine_debug('Uom Rate cannot be -99999');
7507: END IF;
7508: ELSE
7509: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7510: engine_debug('Uom Rate Is: ' || v_uom_rate );
7511: END IF;
7512:
7513: -- bug 3572594 - round the multiplied value to profile QP_INV_DECIMAL_PRECISION
7529: END IF;
7530:
7531: -- ITEM AMOUNT(Discounts Sequence)
7532: 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
7533: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7534: engine_debug ('Trying to update line quantity and line amount in temp table');
7535:
7536: END IF;
7537: /*
7547: l_ia_attribute_tbl(l_ia_bulk_count) := G_QUANTITY_ATTRIBUTE;
7548: l_ia_bulk_count := l_ia_bulk_count + 1;
7549:
7550: /* IF SQL%ROWCOUNT = 0 THEN
7551: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7552: engine_debug('No volume context in temp table, inserting one');
7553: END IF;
7554: INSERT_LINE_ATTRS
7555: (p_LINE_INDEX =>I.LINE_INDEX,
7579: l_ia_attribute_tbl(l_ia_bulk_count) := G_LINE_AMT_ATTRIBUTE;
7580: l_ia_bulk_count := l_ia_bulk_count + 1;
7581:
7582: /* IF SQL%ROWCOUNT = 0 THEN
7583: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7584: engine_debug('No volume context and line amt in temp table, inserting one');
7585: END IF;
7586: INSERT_LINE_ATTRS
7587: (p_LINE_INDEX =>I.LINE_INDEX,
7634: END IF;
7635:
7636: -- ORDER AMOUNT(Discounts Sequence) only for BATCH event
7637: IF (p_pricing_phase_seq <> G_PRICE_LIST_SEQUENCE and p_ordr_amt_flag = G_YES) THEN
7638: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7639: engine_debug ('Trying to update order amount in temp table');
7640:
7641: END IF;
7642: OPEN order_amount_cur;
7642: OPEN order_amount_cur;
7643: FETCH order_amount_cur INTO v_order_amt;
7644: CLOSE order_amount_cur;
7645:
7646: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7647: engine_debug ('v_order_amt = ' || v_order_amt);
7648: engine_debug ('G_BEFORE_PRICING_ORD_AMT = ' || G_BEFORE_PRICING_ORD_AMT);
7649: END IF;
7650:
7666: AND ATTRIBUTE_TYPE = G_QUALIFIER_TYPE
7667: AND PRICING_STATUS_CODE = G_STATUS_UNCHANGED;
7668:
7669: IF SQL%ROWCOUNT = 0 THEN
7670: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7671: engine_debug('No volume context and order amt in temp table, inserting one');
7672:
7673: END IF;
7674: INSERT INTO qp_npreq_line_attrs_tmp
7688: FROM qp_npreq_lines_tmp;
7689:
7690: END IF;
7691:
7692: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7693: declare
7694: l_value_from varchar2(240);
7695: begin
7696: select value_from
7717: CLOSE get_request_lines_cur;
7718:
7719: EXCEPTION
7720: WHEN OTHERS THEN
7721: x_status_code := FND_API.G_RET_STS_ERROR;
7722: x_status_text := l_routine ||': '||SQLERRM;
7723: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7724: engine_debug(x_status_text);
7725: END IF;
7719: EXCEPTION
7720: WHEN OTHERS THEN
7721: x_status_code := FND_API.G_RET_STS_ERROR;
7722: x_status_text := l_routine ||': '||SQLERRM;
7723: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7724: engine_debug(x_status_text);
7725: END IF;
7726: END Source_Vol_Contexts_Attributes;
7727:
7762: AND b.pricing_status_code = G_STATUS_UNCHANGED
7763: GROUP BY b.context , b.attribute , b.value_from); */
7764: EXCEPTION
7765: WHEN OTHERS THEN
7766: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7767: engine_debug(l_routine||' '||SQLERRM);
7768: END IF;
7769: x_status_code := FND_API.G_RET_STS_ERROR;
7770: x_status_text := 'Error in '||l_routine||SQLERRM;
7765: WHEN OTHERS THEN
7766: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7767: engine_debug(l_routine||' '||SQLERRM);
7768: END IF;
7769: x_status_code := FND_API.G_RET_STS_ERROR;
7770: x_status_text := 'Error in '||l_routine||SQLERRM;
7771:
7772: END Update_Distinct_Qualifier_Flag;
7773:
7796: l_count NUMBER := 0;
7797:
7798: BEGIN
7799:
7800: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7801: engine_debug('In Delete Duplicate List Lines procedure');
7802:
7803: END IF;
7804: OPEN get_duplicate_list_lines_count;
7804: OPEN get_duplicate_list_lines_count;
7805: FETCH get_duplicate_list_lines_count INTO l_count;
7806: CLOSE get_duplicate_list_lines_count;
7807:
7808: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7809: engine_debug('Duplicate List Lines Count : ' || l_count);
7810: END IF;
7811:
7812: IF (l_count > 0) THEN
7821: GROUP BY line_index,created_from_list_line_id);
7822: END IF;
7823: EXCEPTION
7824: WHEN OTHERS THEN
7825: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7826: engine_debug(l_routine||' '||SQLERRM);
7827: END IF;
7828: x_status_code := FND_API.G_RET_STS_ERROR;
7829: x_status_text := 'Error in '||l_routine||SQLERRM;
7824: WHEN OTHERS THEN
7825: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7826: engine_debug(l_routine||' '||SQLERRM);
7827: END IF;
7828: x_status_code := FND_API.G_RET_STS_ERROR;
7829: x_status_text := 'Error in '||l_routine||SQLERRM;
7830:
7831: END Delete_Duplicate_List_Lines;
7832: --Added new procedure Delete_Hdrs_With_No_ProdAttr for 3520634
7842: l_routine VARCHAR2(40) := 'Delete_Hdrs_With_No_ProdAttr';
7843:
7844: BEGIN
7845:
7846: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7847: engine_debug('Entering '||l_routine);
7848: END IF;
7849: UPDATE /*+ index(a qpprod QP_PREQ_QUAL_TMP_N1) dynamic_sampling(1) */ qp_preq_qual_tmp a --5658579
7850: --UPDATE qp_preq_qual_tmp a
7899: AND d.qualification_ind in (G_YES_HDR_LINE_QUAL_IND,G_YES_HDR_QUAL_IND)
7900: AND d.pricing_phase_id = p_pricing_phase_id
7901: AND rownum=1);
7902:
7903: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7904: engine_debug('No of headers deleted from qual tmp due to non-matching of product : ' || l_routine || ' ' || SQL%ROWCOUNT);
7905: END IF;
7906:
7907: EXCEPTION
7905: END IF;
7906:
7907: EXCEPTION
7908: WHEN OTHERS THEN
7909: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7910: engine_debug(l_routine||' '||SQLERRM);
7911: END IF;
7912: x_status_code := FND_API.G_RET_STS_ERROR;
7913: x_status_text := 'Error in '||l_routine||SQLERRM;
7908: WHEN OTHERS THEN
7909: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
7910: engine_debug(l_routine||' '||SQLERRM);
7911: END IF;
7912: x_status_code := FND_API.G_RET_STS_ERROR;
7913: x_status_text := 'Error in '||l_routine||SQLERRM;
7914:
7915: END Delete_Hdrs_With_No_ProdAttr;
7916:
7971: QP_PREQ_GRP.G_QUAL_ATTRIBUTE1,to_char(a.CREATED_FROM_LIST_HEADER_ID),
7972: QP_PREQ_GRP.G_QUAL_ATTRIBUTE2,to_char(a.CREATED_FROM_LIST_LINE_ID),
7973: QP_PREQ_GRP.G_QUAL_ATTRIBUTE6,to_char(a.CREATED_FROM_LIST_HEADER_ID)));
7974:
7975: IF l_debug = FND_API.G_TRUE THEN
7976: QP_PREQ_GRP.engine_debug ('Deleted Un Asked for promotions:'||l_pricing_status_code);
7977: END IF;
7978:
7979: EXCEPTION
7977: END IF;
7978:
7979: EXCEPTION
7980: WHEN OTHERS THEN
7981: x_return_status := FND_API.G_RET_STS_ERROR;
7982: x_return_status_txt := 'Unexpected error in QP_PREQ_GRP.Delete_Un_Asked_For_Promotions: ' || SQLERRM;
7983: END Delete_Un_Asked_For_Promotions;
7984:
7985:
8077:
8078: -- end shu fix bug 1728757
8079:
8080: BEGIN
8081: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8082: engine_debug('Rounding Flag: '||p_rounding_flag);
8083: engine_debug ('Passed in Attribute Count : ' || p_line_attr_tbl.count);
8084: engine_debug ('Passed in Qualifier Count : ' || p_qual_tbl.count);
8085: engine_debug ('Passed in Lines Count : ' || p_line_tbl.count);
8096:
8097:
8098: --Reset_all_tbls;
8099: Reset_All_Tbls(l_status_code ,l_status_text );
8100: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
8101: RAISE E_ROUTINE_ERRORS;
8102: END IF;
8103:
8104: K:=1;
8105: WHILE I IS NOT NULL LOOP
8106:
8107:
8108: IF ( p_line_tbl(I).CURRENCY_CODE IS NULL or
8109: p_line_tbl(I).CURRENCY_CODE = FND_API.G_MISS_CHAR ) THEN
8110: RAISE E_CURRENCY_CODE_IS_NULL;
8111: ELSE
8112: --IF (G_CURRENCY_CODE IS NULL) THEN
8113: G_CURRENCY_CODE := p_line_tbl(I).CURRENCY_CODE;
8149: l_order_header_id := to_char(p_line_tbl(I).LINE_ID);
8150: G_ORDER_ID := p_line_tbl(I).LINE_ID; -- accum range break
8151: --Global variable for limits
8152: G_ORDER_PRICE_REQUEST_CODE := p_line_tbl(I).REQUEST_TYPE_CODE || '-' || l_order_header_id;
8153: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8154: engine_debug( ' Order Price Request Code : ' || G_ORDER_PRICE_REQUEST_CODE);
8155: END IF;
8156: END IF;
8157:
8174: END IF;
8175:
8176: --IF (l_not_insert_order_line_flag = TRUE and p_line_tbl(I).LINE_TYPE_CODE <> G_ORDER_LEVEL or
8177: -- l_not_insert_order_line_flag = FALSE) THEN
8178: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8179: engine_debug (' Loading the line info into plsql tables');
8180:
8181: END IF;
8182: G_LINE_INDEX_TBL(K) := p_line_tbl(I).LINE_INDEX;
8262: K:=K+1;
8263: END LOOP;
8264:
8265: IF K > 1 THEN
8266: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8267: engine_debug ('Bulk Inserting the actual lines : ' || G_PRICE_LIST_ID_TBL(1));
8268: END IF;
8269: INSERT_LINES2
8270: (p_LINE_INDEX => G_LINE_INDEX_TBL,
8307: p_CHARGE_PERIODICITY_CODE => G_CHARGE_PERIODICITY_CODE_TBL,
8308: x_status_code =>l_status_code,
8309: x_status_text =>l_status_text);
8310:
8311: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
8312: RAISE E_ROUTINE_ERRORS;
8313: END IF;
8314: END IF;
8315:
8316: /*************************populating line attributes *****************************/
8317:
8318: --Reset_all_tbls;
8319: Reset_All_Tbls(l_status_code ,l_status_text );
8320: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
8321: RAISE E_ROUTINE_ERRORS;
8322: END IF;
8323:
8324: I:= p_qual_tbl.FIRST;
8378: FROM qp_list_lines
8379: WHERE list_line_id = to_number(p_qual_tbl(I).QUALIFIER_ATTR_VALUE_FROM);
8380: EXCEPTION
8381: WHEN NO_DATA_FOUND THEN
8382: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8383: engine_debug('Error in Finding List Header Id for List Line : '||
8384: p_qual_tbl(I).QUALIFIER_ATTR_VALUE_FROM);
8385: END IF;
8386: l_status_code := FND_API.G_RET_STS_ERROR;
8382: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8383: engine_debug('Error in Finding List Header Id for List Line : '||
8384: p_qual_tbl(I).QUALIFIER_ATTR_VALUE_FROM);
8385: END IF;
8386: l_status_code := FND_API.G_RET_STS_ERROR;
8387: l_status_text := 'Error in Finding List Header Id for List Line : '||
8388: p_qual_tbl(I).QUALIFIER_ATTR_VALUE_FROM;
8389: RAISE E_ROUTINE_ERRORS;
8390: END ;
8394: IF p_qual_tbl(I).QUALIFIER_CONTEXT = 'MODLIST' AND
8395: p_qual_tbl(I).QUALIFIER_ATTRIBUTE = 'QUALIFIER_ATTRIBUTE1' -- promotion no.
8396: THEN
8397: l_list_header_id := p_qual_tbl(I).QUALIFIER_ATTR_VALUE_FROM; -- promotion hdr id
8398: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8399: engine_debug ('promotion hdr id: '|| l_list_header_id);
8400: END IF;
8401:
8402: -- get ask_for_flag of this promotion
8404: FETCH get_ask_for_flag_cur INTO l_ask_for_flag;
8405: CLOSE get_ask_for_flag_cur;
8406:
8407: IF ( l_cascade_ask_for_profile = G_YES AND l_ask_for_flag = G_YES) THEN
8408: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8409: engine_debug ('perform cascading ask for pormotion to ask for deals...');
8410: END IF;
8411: -- cascade ask_for_promotion to ask_for_deals
8412:
8411: -- cascade ask_for_promotion to ask_for_deals
8412:
8413: --cursor gets ask for deals' list_header_ids
8414: for l_ask_for_child_ids_data in l_ask_for_child_ids (l_list_header_id) loop
8415: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8416: engine_debug ('cascaded ask for deals: ' || l_ask_for_child_ids_data.list_header_id);
8417: END IF;
8418: K:= K+1;
8419: G_LINE_INDEX_tbl(K) := p_qual_tbl(I).LINE_INDEX;
8498: I:= p_line_attr_tbl.NEXT(I);
8499: END LOOP;
8500:
8501:
8502: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8503: engine_debug('Before Sourcing Volume Attributes');
8504:
8505: END IF;
8506: l_source_qty_flag := QP_BUILD_SOURCING_PVT.Is_Attribute_Used('VOLUME','PRICING_ATTRIBUTE10');
8507: l_source_amt_flag := QP_BUILD_SOURCING_PVT.Is_Attribute_Used('VOLUME','PRICING_ATTRIBUTE12');
8508:
8509: IF (l_source_qty_flag = G_YES) THEN
8510:
8511: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8512: engine_debug('Sourcing Quantity Attribute');
8513:
8514: END IF;
8515: FOR G IN p_line_tbl.first .. p_line_tbl.last
8515: FOR G IN p_line_tbl.first .. p_line_tbl.last
8516: LOOP
8517:
8518: IF (p_price_phase_flag = TRUE) THEN
8519: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8520: engine_debug('Pricing Phase Exists.. Sourcing Line Quantity');
8521: END IF;
8522: l_line_quantity := nvl(p_line_tbl(G).LINE_QUANTITY,0);
8523: ELSE
8520: engine_debug('Pricing Phase Exists.. Sourcing Line Quantity');
8521: END IF;
8522: l_line_quantity := nvl(p_line_tbl(G).LINE_QUANTITY,0);
8523: ELSE
8524: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8525: engine_debug('Pricing Phase Does not Exist.. Sourcing Priced Quantity');
8526: END IF;
8527: l_line_quantity := nvl(nvl(p_line_tbl(G).PRICED_QUANTITY,p_line_tbl(G).LINE_QUANTITY),0);
8528: END IF;
8567: END IF;
8568:
8569: IF (l_source_amt_flag = G_YES) THEN
8570:
8571: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8572: engine_debug('Sourcing Amount Attribute');
8573:
8574: END IF;
8575: FOR G IN p_line_tbl.first .. p_line_tbl.last
8575: FOR G IN p_line_tbl.first .. p_line_tbl.last
8576: LOOP
8577:
8578: IF (p_price_phase_flag = TRUE) THEN
8579: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8580: engine_debug('Pricing Phase Exists.. Sourcing Line Quantity');
8581: END IF;
8582: l_line_amount := nvl(p_line_tbl(G).LINE_QUANTITY * p_line_tbl(G).UNIT_PRICE,0);
8583: ELSE
8580: engine_debug('Pricing Phase Exists.. Sourcing Line Quantity');
8581: END IF;
8582: l_line_amount := nvl(p_line_tbl(G).LINE_QUANTITY * p_line_tbl(G).UNIT_PRICE,0);
8583: ELSE
8584: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8585: engine_debug('Pricing Phase Does not Exist.. ,l_status_textSourcing Priced Quantity');
8586: END IF;
8587: l_line_amount := nvl(nvl(p_line_tbl(G).PRICED_QUANTITY,p_line_tbl(G).LINE_QUANTITY) * p_line_tbl(G).UNIT_PRICE,0);
8588: END IF;
8661: G_PRIMARY_UOM_FLAG_TBL_A ,
8662: l_status_code ,
8663: l_status_text );
8664:
8665: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
8666: RAISE E_ROUTINE_ERRORS;
8667: END IF;
8668:
8669: END IF;
8670:
8671: /* begin bulk insert ldets -- 3215497 */
8672: -- first reset global tables
8673: Reset_All_Tbls(l_status_code, l_status_text);
8674: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
8675: RAISE E_ROUTINE_ERRORS;
8676: END IF;
8677:
8678: I := p_LINE_DETAIL_tbl.FIRST;
8800: p_PROCESS_CODE => G_PROCESS_CODE_TBL,
8801: x_status_code => l_status_code,
8802: x_status_text => l_status_text
8803: );
8804: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
8805: RAISE E_ROUTINE_ERRORS;
8806: END IF;
8807: END IF;
8808: /* end bulk insert ldets */
8810:
8811: /* begin bulk insert ldet qualifiers -- 3215497 */
8812: -- first reset global tables
8813: Reset_All_Tbls(l_status_code, l_status_text);
8814: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
8815: RAISE E_ROUTINE_ERRORS;
8816: END IF;
8817:
8818: I := p_LINE_DETAIL_qual_tbl.FIRST;
8944: p_PRIMARY_UOM_FLAG_TBL => G_PRIMARY_UOM_FLAG_tbl,
8945: x_status_code => l_status_code,
8946: x_status_text => l_status_text
8947: );
8948: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
8949: RAISE E_ROUTINE_ERRORS;
8950: END IF;
8951: END IF;
8952: /* end bulk insert ldet line attributes */
8954:
8955: /* begin bulk insert rltd lines -- 3215497 */
8956: -- first reset global tables
8957: Reset_All_Tbls(l_status_code, l_status_text);
8958: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
8959: RAISE E_ROUTINE_ERRORS;
8960: END IF;
8961:
8962: I := p_rltd_lines_tbl.FIRST;
8960: END IF;
8961:
8962: I := p_rltd_lines_tbl.FIRST;
8963: K := 1;
8964: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8965: engine_debug('RLTD first in populate_temp_table: '||I);
8966: END IF;
8967: WHILE I IS NOT NULL LOOP
8968: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8964: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8965: engine_debug('RLTD first in populate_temp_table: '||I);
8966: END IF;
8967: WHILE I IS NOT NULL LOOP
8968: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8969: engine_debug('Collecting in rltd table');
8970: END IF;
8971: -- populate relevant tables
8972: G_LINE_INDEX_tbl(K) := p_rltd_lines_tbl(I).LINE_INDEX;
8989: p_RELATED_LINE_DETAIL_INDEX => G_RLTD_LINE_DETAIL_INDEX_TBL,
8990: x_status_code => l_status_code,
8991: x_status_text => l_status_text
8992: );
8993: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
8994: RAISE E_ROUTINE_ERRORS;
8995: END IF;
8996: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8997: engine_debug('after bulk insert rltd lines');
8992: );
8993: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
8994: RAISE E_ROUTINE_ERRORS;
8995: END IF;
8996: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
8997: engine_debug('after bulk insert rltd lines');
8998: END IF;
8999: END IF;
9000: /* end bulk insert rltd lines */
9000: /* end bulk insert rltd lines */
9001:
9002:
9003:
9004: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9005: OPEN l_get_count_cur;
9006: FETCH l_get_count_cur INTO l_count;
9007: CLOSE l_get_count_cur;
9008: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9004: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9005: OPEN l_get_count_cur;
9006: FETCH l_get_count_cur INTO l_count;
9007: CLOSE l_get_count_cur;
9008: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9009: engine_debug ('Culprit Attribute Count :' || l_count);
9010: END IF;
9011: END IF;
9012:
9009: engine_debug ('Culprit Attribute Count :' || l_count);
9010: END IF;
9011: END IF;
9012:
9013: --x_status_code := FND_API.G_RET_STS_SUCCESS;
9014:
9015:
9016: --Reset_all_tbls;
9017: Reset_All_Tbls(l_status_code ,l_status_text );
9014:
9015:
9016: --Reset_all_tbls;
9017: Reset_All_Tbls(l_status_code ,l_status_text );
9018: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
9019: RAISE E_ROUTINE_ERRORS;
9020: END IF;
9021:
9022: EXCEPTION
9020: END IF;
9021:
9022: EXCEPTION
9023: WHEN E_ROUTINE_ERRORS THEN
9024: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9025: engine_debug(l_routine||': '||l_status_text);
9026: END IF;
9027: x_status_text := l_status_text;
9028: x_status_code := FND_API.G_RET_STS_ERROR;
9024: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9025: engine_debug(l_routine||': '||l_status_text);
9026: END IF;
9027: x_status_text := l_status_text;
9028: x_status_code := FND_API.G_RET_STS_ERROR;
9029: WHEN E_DATE_IS_NULL THEN
9030: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9031: engine_debug('Date or date type is null');
9032: engine_debug('Date or date type is null');
9026: END IF;
9027: x_status_text := l_status_text;
9028: x_status_code := FND_API.G_RET_STS_ERROR;
9029: WHEN E_DATE_IS_NULL THEN
9030: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9031: engine_debug('Date or date type is null');
9032: engine_debug('Date or date type is null');
9033: END IF;
9034: x_status_code := FND_API.G_RET_STS_ERROR;
9030: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9031: engine_debug('Date or date type is null');
9032: engine_debug('Date or date type is null');
9033: END IF;
9034: x_status_code := FND_API.G_RET_STS_ERROR;
9035: x_status_text := 'Error in QP_PREQ_GRP.populate_temp_tables: One of the three dates is null';
9036: WHEN E_CURRENCY_CODE_IS_NULL THEN
9037: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9038: engine_debug('Currency code can not be null');
9033: END IF;
9034: x_status_code := FND_API.G_RET_STS_ERROR;
9035: x_status_text := 'Error in QP_PREQ_GRP.populate_temp_tables: One of the three dates is null';
9036: WHEN E_CURRENCY_CODE_IS_NULL THEN
9037: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9038: engine_debug('Currency code can not be null');
9039: engine_debug('Currency code can not be null');
9040: END IF;
9041: x_status_code := FND_API.G_RET_STS_ERROR;
9037: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9038: engine_debug('Currency code can not be null');
9039: engine_debug('Currency code can not be null');
9040: END IF;
9041: x_status_code := FND_API.G_RET_STS_ERROR;
9042: x_status_text := 'Error in QP_PREQ_GRP.populate_temp_tables: Currency can not be null';
9043: WHEN OTHERS THEN
9044: v_error_code :=SQLCODE;
9045: v_error_message:=SQLERRM;
9042: x_status_text := 'Error in QP_PREQ_GRP.populate_temp_tables: Currency can not be null';
9043: WHEN OTHERS THEN
9044: v_error_code :=SQLCODE;
9045: v_error_message:=SQLERRM;
9046: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9047: engine_debug('Error in QP_PREQ_GRP.populate_temp_tables: '||SQLERRM);
9048: END IF;
9049: x_status_code := FND_API.G_RET_STS_ERROR;
9050: x_status_text :='Error in QP_PREQ_GRP.populate_temp_tables:'||SQLERRM;
9045: v_error_message:=SQLERRM;
9046: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9047: engine_debug('Error in QP_PREQ_GRP.populate_temp_tables: '||SQLERRM);
9048: END IF;
9049: x_status_code := FND_API.G_RET_STS_ERROR;
9050: x_status_text :='Error in QP_PREQ_GRP.populate_temp_tables:'||SQLERRM;
9051:
9052: END Populate_Temp_Tables;
9053:
9088: FROM qp_int_lines
9089: WHERE line_index = p_line_index;
9090:
9091: BEGIN
9092: x_status_code := FND_API.G_RET_STS_SUCCESS;
9093:
9094: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9095: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9096: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
9093:
9094: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9095: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9096: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
9097: IF l_debug = FND_API.G_TRUE THEN
9098: QP_PREQ_GRP.ENGINE_DEBUG('Populate_Price_Adj_ID: Java Engine not Installed ----------');
9099: END IF;
9100: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9101: OPEN l_get_pricing_effective_date (p_line_index);
9101: OPEN l_get_pricing_effective_date (p_line_index);
9102: FETCH l_get_pricing_effective_date into l_pricing_effective_date;
9103: CLOSE l_get_pricing_effective_date;
9104: ELSE
9105: IF l_debug = FND_API.G_TRUE THEN
9106: QP_PREQ_GRP.ENGINE_DEBUG('Set_Expiration_Dates: Java Engine is Installed ----------');
9107: END IF;
9108: OPEN l_int_pricing_effective_date (p_line_index);
9109: FETCH l_int_pricing_effective_date into l_pricing_effective_date;
9118: l_pricing_effective_date,
9119: l_status_code,
9120: l_status_text);
9121:
9122: IF (l_status_code <> FND_API.G_RET_STS_SUCCESS) Then
9123: Raise E_Coupon_Error;
9124: END IF;
9125:
9126: x_expiration_period_end_date := l_expiration_period_end_date;
9127:
9128: EXCEPTION
9129:
9130: WHEN E_Coupon_Error THEN
9131: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9132: engine_debug('Error returned by QP_COUPON_PVT.Set_Expiration_Dates');
9133: END IF;
9134: x_status_code := FND_API.G_RET_STS_ERROR;
9135: x_status_text :=l_routine||':'||l_status_text;
9130: WHEN E_Coupon_Error THEN
9131: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9132: engine_debug('Error returned by QP_COUPON_PVT.Set_Expiration_Dates');
9133: END IF;
9134: x_status_code := FND_API.G_RET_STS_ERROR;
9135: x_status_text :=l_routine||':'||l_status_text;
9136: WHEN OTHERS THEN
9137: x_status_code := FND_API.G_RET_STS_ERROR;
9138: x_status_code := l_routine||':'||SQLERRM;
9133: END IF;
9134: x_status_code := FND_API.G_RET_STS_ERROR;
9135: x_status_text :=l_routine||':'||l_status_text;
9136: WHEN OTHERS THEN
9137: x_status_code := FND_API.G_RET_STS_ERROR;
9138: x_status_code := l_routine||':'||SQLERRM;
9139: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9140: engine_debug(l_routine||':'||SQLERRM);
9141: END IF;
9135: x_status_text :=l_routine||':'||l_status_text;
9136: WHEN OTHERS THEN
9137: x_status_code := FND_API.G_RET_STS_ERROR;
9138: x_status_code := l_routine||':'||SQLERRM;
9139: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9140: engine_debug(l_routine||':'||SQLERRM);
9141: END IF;
9142: END;
9143:
9513:
9514: BEGIN
9515: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
9516:
9517: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9518: engine_debug('----Before populate l_line_tbl-----');
9519: engine_debug('----Line information return back to caller----');
9520: END IF;
9521:
9520: END IF;
9521:
9522: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9523: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
9524: IF l_debug = FND_API.G_TRUE THEN
9525: QP_PREQ_GRP.ENGINE_DEBUG('Populate_output: Java Engine not Installed ----------');
9526: END IF;
9527: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9528:
9560: --x_line_tbl(I).EXTENDED_SELLING_PRICE_UR := l_line.EXTENDED_SELLING_PRICE_UR; --[prarasto:Post Round], [julin/postround] redesign
9561: --x_line_tbl(I).ORDER_UOM_SELLING_PRICE_UR := l_line.ORDER_UOM_SELLING_PRICE_UR; --[prarasto:Post Round]
9562: --x_line_tbl(I).ADJUSTED_UNIT_PRICE_UR := l_line.ADJUSTED_UNIT_PRICE_UR; --[prarasto:Post Round]
9563:
9564: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9565: engine_debug('LINE_INDEX :='||l_line.LINE_INDEX);
9566: engine_debug('LINE_ID :='||l_line.LINE_ID);
9567: engine_debug('PRICE_LIST_HEADER_ID :='||l_line.PRICE_LIST_HEADER_ID); -- shu, print out this
9568: engine_debug('LINE_TYPE_CODE :='||l_line.LINE_TYPE_CODE);
9598: I:=1;
9599:
9600:
9601: --Populate Line detail
9602: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9603: engine_debug('----Line detail information return back to caller----');
9604: END IF;
9605: FOR l_dets IN l_ldets_cur LOOP
9606: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9602: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9603: engine_debug('----Line detail information return back to caller----');
9604: END IF;
9605: FOR l_dets IN l_ldets_cur LOOP
9606: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9607: engine_debug('----populating line detail output------');
9608: END IF;
9609:
9610: --requirement by Jay, will cause holes in pl/sql tbl
9678: l_status_code,
9679: l_status_text);
9680: END IF;
9681:
9682: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
9683: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9684: engine_debug(l_routine||':'||substr(l_status_text,1,240));
9685: END IF;
9686: END IF;
9679: l_status_text);
9680: END IF;
9681:
9682: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
9683: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9684: engine_debug(l_routine||':'||substr(l_status_text,1,240));
9685: END IF;
9686: END IF;
9687:
9685: END IF;
9686: END IF;
9687:
9688: x_line_detail_tbl(I).EXPIRATION_DATE :=l_expiration_period_end_date;
9689: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9690: engine_debug('LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
9691: engine_debug('LINE_DETAIL_TYPE_CODE:='||l_dets.LINE_DETAIL_TYPE_CODE);
9692: engine_debug('LINE_INDEX:='||l_dets.LINE_INDEX);
9693: engine_debug('LIST_HEADER_ID:='||l_dets.LIST_HEADER_ID);
9714: engine_debug('ESTIM_GL_VALUE:='||l_dets.ESTIM_GL_VALUE);
9715: engine_debug('ACCRUAL_CONVERSION_RATE:='||l_dets.ACCRUAL_CONVERSION_RATE);
9716: END IF;
9717: --Pass throuh components
9718: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9719: engine_debug('OVERRIDE_FLAG:='|| l_dets.OVERRIDE_FLAG);
9720: engine_debug('INVENTORY_ITEM_ID:='||l_dets.INVENTORY_ITEM_ID);
9721: engine_debug('ORGANIZATION_ID:='||l_dets.ORGANIZATION_ID);
9722: engine_debug('RELATED_ITEM_ID:='|| l_dets.RELATED_ITEM_ID);
9747: END LOOP;
9748: I:=1;
9749:
9750: --Populate Qualifier detail
9751: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9752: engine_debug('----Before populate x_qual_tbl-----');
9753: END IF;
9754: FOR l_qual IN l_qual_cur(G_DETAIL_LEVEL) LOOP
9755: x_line_detail_qual_tbl(I).LINE_DETAIL_INDEX := l_qual.LINE_DETAIL_INDEX;
9765: END LOOP;
9766: I:=1;
9767:
9768: --LINE ATTRIBUTE DETAIL NEEDED
9769: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9770: engine_debug('----Before populate attr_tbl-----');
9771: END IF;
9772: FOR l_prc IN l_pricing_attr_cur LOOP
9773: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9769: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9770: engine_debug('----Before populate attr_tbl-----');
9771: END IF;
9772: FOR l_prc IN l_pricing_attr_cur LOOP
9773: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9774: engine_debug('--------populating x_line_detail_attr----------');
9775: engine_debug('Line Detail Index: '||l_prc.LINE_DETAIL_INDEX);
9776: END IF;
9777: x_line_detail_attr_tbl(I).LINE_DETAIL_INDEX := l_prc.LINE_DETAIL_INDEX;
9786: END LOOP;
9787:
9788: I:=1;
9789:
9790: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9791: engine_debug('----Before populate l_rltd_lines_tbl-----');
9792: END IF;
9793: FOR l_rltd IN l_rltd_lines_cur LOOP
9794: x_related_lines_tbl(I).LINE_INDEX := l_rltd.Line_index;
9800: x_related_lines_tbl(I).STATUS_TEXT :=l_rltd.PRICING_STATUS_TEXT;
9801: I:=I+1;
9802: END LOOP;
9803: ELSE
9804: IF l_debug = FND_API.G_TRUE THEN
9805: QP_PREQ_GRP.ENGINE_DEBUG('Populate_output: Java Engine is Installed ----------');
9806: END IF;
9807: --ADDED BY YANGLI FOR JAVA ENGINE PUB 3086881
9808:
9837: x_line_tbl(I).PRICE_REQUEST_CODE := l_line.PRICE_REQUEST_CODE;
9838: x_line_tbl(I).PRICING_EFFECTIVE_DATE := l_line.PRICING_EFFECTIVE_DATE;
9839: x_line_tbl(I).EXTENDED_PRICE := l_line.EXTENDED_PRICE; -- block pricing
9840:
9841: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9842: engine_debug('LINE_INDEX :='||l_line.LINE_INDEX);
9843: engine_debug('LINE_ID :='||l_line.LINE_ID);
9844: engine_debug('PRICE_LIST_HEADER_ID :='||l_line.PRICE_LIST_HEADER_ID); -- shu, print out this
9845: engine_debug('LINE_TYPE_CODE :='||l_line.LINE_TYPE_CODE);
9872: I:=1;
9873:
9874:
9875: --Populate Line detail
9876: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9877: engine_debug('----Line detail information return back to caller----');
9878: END IF;
9879: FOR l_dets IN l_int_ldets_cur LOOP
9880: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9876: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9877: engine_debug('----Line detail information return back to caller----');
9878: END IF;
9879: FOR l_dets IN l_int_ldets_cur LOOP
9880: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9881: engine_debug('----populating line detail output------');
9882: END IF;
9883:
9884: --requirement by Jay, will cause holes in pl/sql tbl
9951: l_status_code,
9952: l_status_text);
9953: END IF;
9954:
9955: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
9956: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9957: engine_debug(l_routine||':'||substr(l_status_text,1,240));
9958: END IF;
9959: END IF;
9952: l_status_text);
9953: END IF;
9954:
9955: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
9956: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9957: engine_debug(l_routine||':'||substr(l_status_text,1,240));
9958: END IF;
9959: END IF;
9960:
9958: END IF;
9959: END IF;
9960:
9961: x_line_detail_tbl(I).EXPIRATION_DATE :=l_expiration_period_end_date;
9962: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9963: engine_debug('LINE_DETAIL_INDEX :='|| l_dets.LINE_DETAIL_INDEX);
9964: engine_debug('LINE_DETAIL_TYPE_CODE:='||l_dets.LINE_DETAIL_TYPE_CODE);
9965: engine_debug('LINE_INDEX:='||l_dets.LINE_INDEX);
9966: engine_debug('LIST_HEADER_ID:='||l_dets.LIST_HEADER_ID);
9987: engine_debug('ESTIM_GL_VALUE:='||l_dets.ESTIM_GL_VALUE);
9988: engine_debug('ACCRUAL_CONVERSION_RATE:='||l_dets.ACCRUAL_CONVERSION_RATE);
9989: END IF;
9990: --Pass throuh components
9991: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
9992: engine_debug('OVERRIDE_FLAG:='|| l_dets.OVERRIDE_FLAG);
9993: engine_debug('INVENTORY_ITEM_ID:='||l_dets.INVENTORY_ITEM_ID);
9994: engine_debug('ORGANIZATION_ID:='||l_dets.ORGANIZATION_ID);
9995: engine_debug('RELATED_ITEM_ID:='|| l_dets.RELATED_ITEM_ID);
10020: END LOOP;
10021: I:=1;
10022:
10023: --Populate Qualifier detail
10024: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10025: engine_debug('----Before populate x_qual_tbl-----');
10026: END IF;
10027: FOR l_qual IN l_int_qual_cur(G_DETAIL_LEVEL) LOOP
10028: x_line_detail_qual_tbl(I).LINE_DETAIL_INDEX := l_qual.LINE_DETAIL_INDEX;
10038: END LOOP;
10039: I:=1;
10040:
10041: --LINE ATTRIBUTE DETAIL NEEDED
10042: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10043: engine_debug('----Before populate attr_tbl-----');
10044: END IF;
10045: FOR l_prc IN l_int_pricing_attr_cur LOOP
10046: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10042: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10043: engine_debug('----Before populate attr_tbl-----');
10044: END IF;
10045: FOR l_prc IN l_int_pricing_attr_cur LOOP
10046: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10047: engine_debug('--------populating x_line_detail_attr----------');
10048: engine_debug('Line Detail Index: '||l_prc.LINE_DETAIL_INDEX);
10049: END IF;
10050: x_line_detail_attr_tbl(I).LINE_DETAIL_INDEX := l_prc.LINE_DETAIL_INDEX;
10059: END LOOP;
10060:
10061: I:=1;
10062:
10063: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10064: engine_debug('----Before populate l_rltd_lines_tbl-----');
10065: END IF;
10066: FOR l_rltd IN l_int_rltd_lines_cur LOOP
10067: x_related_lines_tbl(I).LINE_INDEX := l_rltd.Line_index;
10076: END IF;
10077:
10078: EXCEPTION
10079: WHEN E_ROUTINE_ERROR THEN
10080: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10081: engine_debug(l_routine||':'||substr(l_status_text,1,240));
10082: END IF;
10083:
10084: END;
10155:
10156: E_ROUTINE_ERRORS EXCEPTION;
10157:
10158: BEGIN
10159: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10160: engine_debug('In procedure Eliminate_Multiple_Hierarchies');
10161:
10162: END IF;
10163: FOR i IN l_get_multiple_exclude_cur
10172: --l_setup_context := i.context;
10173: --l_setup_attribute := i.attribute;
10174: --l_setup_value_from := i.setup_value_from;
10175:
10176: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10177: engine_debug('EMH Context:' || i.context || ' EMH Attribute:' || i.attribute || ' EMH Passed Value : '||i.setup_value_from);
10178: engine_debug('EMH Excluded Passed Value From Setup: ' || i.setup_value_from);
10179:
10180: END IF;
10181: OPEN l_get_passed_hierarchy_cur(i.line_index,i.context,i.attribute,i.setup_value_from);
10182: FETCH l_get_passed_hierarchy_cur INTO l_passed_value_from;
10183: CLOSE l_get_passed_hierarchy_cur;
10184:
10185: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10186: engine_debug('EMH Excluded Passed Value From Sourcing: ' || l_passed_value_from);
10187:
10188: END IF;
10189: IF (l_passed_value_from IS NOT NULL) THEN
10186: engine_debug('EMH Excluded Passed Value From Sourcing: ' || l_passed_value_from);
10187:
10188: END IF;
10189: IF (l_passed_value_from IS NOT NULL) THEN
10190: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10191: engine_debug('EMH Deleted Flag is True');
10192: END IF;
10193: l_del_ind := l_del_ind + 1;
10194: l_del_list_line_tbl(l_del_ind) := i.list_line_id;
10207: END LOOP;
10208:
10209: -- Delete the multiple hierarchies
10210: IF (l_del_list_line_tbl.COUNT > 0) THEN
10211: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10212: engine_debug('Actually Deleting');
10213: END IF;
10214: FORALL j IN l_del_list_line_tbl.FIRST .. l_del_list_line_tbl.LAST
10215: /*
10240: -- shu fix bug 1915355
10241: -- To delete duplicate list lines selected by ask for and regular cursors
10242: IF (p_pricing_phase_id <> G_PRICE_LIST_PHASE_ID) THEN
10243: Delete_Duplicate_List_Lines(p_pricing_phase_id,l_status_code,l_status_text);
10244: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
10245: RAISE E_ROUTINE_ERRORS;
10246: END IF;
10247: END IF;
10248:
10247: END IF;
10248:
10249: EXCEPTION
10250: WHEN E_ROUTINE_ERRORS THEN
10251: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10252: engine_debug(l_routine||': '||l_status_text);
10253: END IF;
10254: x_status_code := FND_API.G_RET_STS_ERROR;
10255: x_status_text := l_routine||': '||l_status_text;
10250: WHEN E_ROUTINE_ERRORS THEN
10251: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10252: engine_debug(l_routine||': '||l_status_text);
10253: END IF;
10254: x_status_code := FND_API.G_RET_STS_ERROR;
10255: x_status_text := l_routine||': '||l_status_text;
10256: WHEN OTHERS THEN
10257: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10258: engine_debug(l_routine||' '||SQLERRM);
10253: END IF;
10254: x_status_code := FND_API.G_RET_STS_ERROR;
10255: x_status_text := l_routine||': '||l_status_text;
10256: WHEN OTHERS THEN
10257: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10258: engine_debug(l_routine||' '||SQLERRM);
10259: END IF;
10260: x_status_code := FND_API.G_RET_STS_ERROR;
10261: x_status_text := 'Error in '||l_routine||SQLERRM;
10256: WHEN OTHERS THEN
10257: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10258: engine_debug(l_routine||' '||SQLERRM);
10259: END IF;
10260: x_status_code := FND_API.G_RET_STS_ERROR;
10261: x_status_text := 'Error in '||l_routine||SQLERRM;
10262:
10263: END Eliminate_Multiple_Hierarchies;
10264:
10340:
10341: --If no data has LINE_GROUP Modifier
10342: --don't bother to proceed
10343:
10344: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10345: engine_debug('Starting process linegroup');
10346:
10347: END IF;
10348: FOR J IN line_grp_cur LOOP
10354: l_group_amount := J.group_value;
10355: l_group_quantity := NULL;
10356: END IF;
10357:
10358: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10359: engine_debug('J.context : '||J.context);
10360: engine_debug('J.product_attribute : '||J.attribute);
10361: engine_debug('J.value_from : '||J.group_value);
10362: engine_debug('l_GROUP_QUANTITY: '||l_group_quantity);
10365:
10366: END IF;
10367: IF (j.attribute = G_QUANTITY_ATTRIBUTE) THEN
10368:
10369: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10370: engine_debug('Updating Quantity Attribute');
10371:
10372: END IF;
10373:
10387: SELECTED_VOLUME_ATTR = G_QUANTITY -- 2388011_latest
10388: WHERE CREATED_FROM_LIST_LINE_ID = j.list_line_id;
10389:
10390: ELSE
10391: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10392: engine_debug('Updating Amount Attribute');
10393: END IF;
10394:
10395: -- begin shu, fix group of lines lumpsum based on ITEM_AMOUNT, 2388011
10407:
10408: IF (G_LINE_INDEX_TBL_G.COUNT > 0) THEN
10409: FOR I in G_LINE_INDEX_TBL_G.FIRST .. G_LINE_INDEX_TBL_G.LAST
10410: LOOP
10411: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10412: engine_debug('Line Index : ' ||g_line_index_tbl_g(I));
10413: engine_debug('Unit Price : ' ||g_unit_price_tbl_g(I));
10414: END IF; -- 4033618
10415: IF (G_UNIT_PRICE_TBL_G(I) IS NOT NULL and G_UNIT_PRICE_TBL_G(I) <> 0) THEN -- avoid division by zero
10420: ELSE -- unit price is NULL
10421: G_GROUP_AMOUNT_PER_UNIT_TBL_G(I) :=l_group_amount; -- ASK RAVI? why not 0
10422: END IF;
10423: END IF;
10424: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10425: engine_debug('Group Amount Per Unit: ' ||g_group_amount_per_unit_tbl_g(I));
10426: END IF; -- 4033618
10427: END LOOP;
10428: END IF;
10445: END IF;
10446:
10447: END LOOP;
10448:
10449: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10450: engine_debug('End process line group');
10451:
10452: END IF;
10453: EXCEPTION
10451:
10452: END IF;
10453: EXCEPTION
10454: WHEN NO_DATA_FOUND THEN
10455: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10456: engine_debug('No line group data');
10457: engine_debug('End process line group');
10458: END IF;
10459: RETURN;
10457: engine_debug('End process line group');
10458: END IF;
10459: RETURN;
10460: WHEN OTHERS THEN
10461: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10462: engine_debug(l_routine||' '||SQLERRM);
10463: END IF;
10464: x_status_code := FND_API.G_RET_STS_ERROR;
10465: x_status_text := l_routine||': '||SQLERRM;
10460: WHEN OTHERS THEN
10461: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10462: engine_debug(l_routine||' '||SQLERRM);
10463: END IF;
10464: x_status_code := FND_API.G_RET_STS_ERROR;
10465: x_status_text := l_routine||': '||SQLERRM;
10466: END PROCESS_LINE_GROUP;
10467:
10468: /*+----------------------------------------------------------
10516:
10517: l_dummy VARCHAR2(1);
10518:
10519: BEGIN
10520: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10521: engine_debug('p_line_index : '||p_line_index);
10522: engine_debug('p_product_uom_code: '||nvl(p_product_uom_code,'Null'));
10523: END IF;
10524: /*
10560: l_uom_rate NUMBER;
10561: l_routine VARCHAR2(240):= 'QP_PREQ_GRP.Convert_Uom';
10562: BEGIN
10563:
10564: x_status_code := FND_API.G_RET_STS_SUCCESS;
10565:
10566: INV_CONVERT.INV_UM_CONVERSION(p_order_uom_code,
10567: p_primary_uom_code,
10568: l_item_id,
10568: l_item_id,
10569: l_uom_rate);
10570:
10571: IF (l_uom_rate >= 0) THEN
10572: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10573: engine_debug ('conversion rate: '||l_uom_rate);
10574: END IF;
10575: x_converted_value := p_value * l_uom_rate;
10576: ELSE
10580:
10581: EXCEPTION
10582:
10583: WHEN E_INVALID_UOM THEN
10584: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10585: engine_debug('Invalid UOM');
10586: END IF;
10587: x_status_code := FND_API.G_RET_STS_ERROR;
10588: x_status_text := 'Invalid UOM';
10583: WHEN E_INVALID_UOM THEN
10584: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10585: engine_debug('Invalid UOM');
10586: END IF;
10587: x_status_code := FND_API.G_RET_STS_ERROR;
10588: x_status_text := 'Invalid UOM';
10589: WHEN OTHERS THEN
10590: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10591: engine_debug(l_routine||': '||SQLERRM);
10586: END IF;
10587: x_status_code := FND_API.G_RET_STS_ERROR;
10588: x_status_text := 'Invalid UOM';
10589: WHEN OTHERS THEN
10590: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10591: engine_debug(l_routine||': '||SQLERRM);
10592: END IF;
10593: x_status_code := FND_API.G_RET_STS_ERROR;
10594: x_status_text := l_routine||': '||SQLERRM;
10589: WHEN OTHERS THEN
10590: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10591: engine_debug(l_routine||': '||SQLERRM);
10592: END IF;
10593: x_status_code := FND_API.G_RET_STS_ERROR;
10594: x_status_text := l_routine||': '||SQLERRM;
10595: END Convert_Uom;
10596:
10597: /*+----------------------------------------------------------
10607: l_routine VARCHAR2(240):='Routine:QP_PREQ_GRP.Update_Request_Line_Status';
10608: l_rounding_factor NUMBER:= NULL;
10609:
10610: BEGIN
10611: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10612: engine_debug('In Update Request Line Status : ' || p_status_code);
10613: END IF;
10614:
10615: /* --po integration start
10665: CURSOR tmp_data IS
10666: SELECT rounding_factor FROM qp_npreq_lines_tmp;
10667: BEGIN
10668:
10669: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10670: engine_debug ('G_MCURR_PROFILE: '||G_MULTI_CURRENCY_PROFILE);
10671: engine_debug ('p_control_rec.use_multi_currency: '||p_control_rec.use_multi_currency);
10672: END IF;
10673: -- cannot use IF G_MCURR_INSTALLED_USED here, it is null
10672: END IF;
10673: -- cannot use IF G_MCURR_INSTALLED_USED here, it is null
10674: IF G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN
10675:
10676: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10677: engine_debug ('get rounding_factor from qp_currency_details table...');
10678: END IF;
10679:
10680: UPDATE qp_npreq_lines_tmp a
10690: WHERE ROUNDING_FACTOR IS NULL;
10691:
10692: ELSE -- multi curr not installed not used, obtain rounding_factor from qp_list_headers_b
10693:
10694: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10695: engine_debug('get rounding factor from qp_list_headers_b...');
10696: END IF;
10697: UPDATE qp_npreq_lines_tmp a
10698: SET ROUNDING_FACTOR = (SELECT qhdr.rounding_factor
10703: END IF; -- END IF G_MCURR_INSTALLED_USED = G_YES
10704:
10705:
10706: FOR i IN tmp_data LOOP
10707: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10708: engine_debug ('final rounding_factor ' ||i.rounding_factor);
10709: END IF;
10710: end LOOP;
10711:
10711:
10712:
10713: EXCEPTION
10714: WHEN no_data_found THEN
10715: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10716: engine_debug ('no_data_found occurred while obtaining rounding_factor');
10717: END IF;
10718: WHEN others THEN
10719: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10715: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10716: engine_debug ('no_data_found occurred while obtaining rounding_factor');
10717: END IF;
10718: WHEN others THEN
10719: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10720: engine_debug ('error obtaining_rounding_factor: ' || SQLERRM);
10721: END IF;
10722: END; -- end declare
10723: END IF; -- end p_rounding_flag = 'Y' */
10744:
10745: END IF;
10746: EXCEPTION
10747: WHEN OTHERS THEN
10748: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10749: engine_debug(l_routine || ' ' || SQLERRM);
10750: END IF;
10751: x_status_code := FND_API.G_RET_STS_ERROR;
10752: x_status_text := l_routine||' '||SQLERRM;
10747: WHEN OTHERS THEN
10748: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10749: engine_debug(l_routine || ' ' || SQLERRM);
10750: END IF;
10751: x_status_code := FND_API.G_RET_STS_ERROR;
10752: x_status_text := l_routine||' '||SQLERRM;
10753:
10754: END Update_Request_Line_Status;
10755:
10955:
10956: l_routine VARCHAR2(30) := 'Evaluate_Between';
10957: BEGIN
10958:
10959: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10960: QP_PREQ_GRP.engine_debug('In Evaluate Between' );
10961:
10962: END IF;
10963: --Evaluate Between operator
10964: IF (p_line_group_flag IS NULL) THEN
10965:
10966: --Character and date between
10967: IF (p_pricing_phase_id = G_PRICE_LIST_PHASE_ID) THEN
10968: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10969: QP_PREQ_GRP.engine_debug('Before Opening Price List Character Date Between Cur');
10970: END IF;
10971: FOR I IN l_pric_character_between_cur LOOP
10972: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10968: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10969: QP_PREQ_GRP.engine_debug('Before Opening Price List Character Date Between Cur');
10970: END IF;
10971: FOR I IN l_pric_character_between_cur LOOP
10972: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10973: QP_PREQ_GRP.engine_debug('In Price List Character Date Between Cur');
10974: END IF;
10975: IF (I.value_from NOT BETWEEN nvl(I.setup_value_from,I.value_from) and nvl(I.setup_value_to,I.value_from)) THEN
10976:
10985: END IF;
10986: END IF;
10987: END LOOP;
10988: ELSE
10989: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10990: QP_PREQ_GRP.engine_debug('Before Opening Modifiers Character Date Between Cur');
10991: END IF;
10992: FOR I IN l_mod_character_between_cur LOOP
10993: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10989: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10990: QP_PREQ_GRP.engine_debug('Before Opening Modifiers Character Date Between Cur');
10991: END IF;
10992: FOR I IN l_mod_character_between_cur LOOP
10993: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
10994: QP_PREQ_GRP.engine_debug('In Modifiers Character Date Between Cur');
10995: END IF;
10996: IF (I.value_from NOT BETWEEN nvl(I.setup_value_from,I.value_from) and nvl(I.setup_value_to,I.value_from)) THEN
10997:
11012:
11013: --Handle between with numeric data type
11014:
11015: IF (p_pricing_phase_id = G_PRICE_LIST_PHASE_ID) THEN
11016: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11017: QP_PREQ_GRP.engine_debug('Before Opening Price List Numeric Between Cur');
11018:
11019: END IF;
11020: FOR I IN l_pric_between_cur(p_datatype => G_NUMERIC) LOOP
11018:
11019: END IF;
11020: FOR I IN l_pric_between_cur(p_datatype => G_NUMERIC) LOOP
11021:
11022: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11023: QP_PREQ_GRP.engine_debug('In Price List Numeric Between Cur');
11024:
11025: END IF;
11026: l_deleted_between := 'F';
11026: l_deleted_between := 'F';
11027:
11028: IF I.context = G_PRIC_VOLUME_CONTEXT THEN
11029: IF(Is_Line_Group(p_line_detail_index => I.line_detail_index) = TRUE) THEN
11030: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11031: QP_PREQ_GRP.engine_debug('Is Line Group #100');
11032:
11033: END IF;
11034: l_is_line_group_flag := 'T';
11048: ELSE -- Make it a success,because line group between is done again,so do not delete
11049: l_value_from_num := NULL;
11050: END IF;
11051:
11052: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11053: engine_debug('Is line group');
11054: engine_debug('Group Quantity : ' || l_value_from_num);
11055: engine_debug('Line detail index: '||I.line_detail_index);
11056: END IF;
11084: ELSE
11085: l_setup_value_to_num := qp_number.canonical_to_number(I.setup_value_to);
11086: END IF;
11087:
11088: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11089: engine_debug('1VALUE: '||l_value_from_num);
11090: engine_debug('2VALUE_FROM: '||l_setup_value_from_num);
11091: engine_debug('3VALUE_TO: '||l_setup_value_to_num);
11092:
11092:
11093: END IF;
11094: 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
11095:
11096: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11097: engine_debug('4NOT BETWEEN');
11098:
11099: END IF;
11100: -- If it is a pricing attribute and it fails on between we can delete it right away
11122: AND LINE_DETAIL_INDEX = i.line_detail_index;
11123: END IF;
11124:
11125: -- shu debug msg
11126: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11127: QP_PREQ_GRP.engine_debug('check condition...');
11128: QP_PREQ_GRP.engine_debug('i.group_amount: : '||i.group_amount);
11129: QP_PREQ_GRP.engine_debug('l_value_from_num: '||l_value_from_num);
11130: QP_PREQ_GRP.engine_debug('p_line_group_flag: '||p_line_group_flag);
11155: l_group_amount :=I.group_amount;
11156: end if;
11157: END IF;
11158:
11159: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11160: QP_PREQ_GRP.engine_debug('line_index: '||i.line_index);
11161: QP_PREQ_GRP.engine_debug('list price: '||l_list_price);
11162: QP_PREQ_GRP.engine_debug('i.group_amount: '||i.group_amount);
11163: QP_PREQ_GRP.engine_debug('group_value: '||l_group_amount);
11174: --Need the LINE_QUANTITY column to be updated for regular lines with volume attributes, for Calculation purposes
11175: IF (p_line_group_flag IS NULL and l_is_line_group_flag = 'F'
11176: and i.context = G_PRIC_VOLUME_CONTEXT) -- added for [5005328/4911264]
11177: THEN
11178: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11179: QP_PREQ_GRP.engine_debug('Line Index: ' || i.line_index || ' LD Index : ' || i.line_detail_index ||
11180: ' '||l_value_from_num);
11181: END IF;
11182: /*
11190:
11191: END IF;
11192: END LOOP;
11193: ELSE
11194: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11195: QP_PREQ_GRP.engine_debug('Before Opening Modifiers Numeric Between Cur');
11196: END IF;
11197: FOR I IN l_mod_between_cur(p_datatype => G_NUMERIC) LOOP
11198:
11195: QP_PREQ_GRP.engine_debug('Before Opening Modifiers Numeric Between Cur');
11196: END IF;
11197: FOR I IN l_mod_between_cur(p_datatype => G_NUMERIC) LOOP
11198:
11199: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11200: QP_PREQ_GRP.engine_debug('In Modifiers Numeric Between Cur');
11201:
11202: END IF;
11203: l_deleted_between := 'F';
11203: l_deleted_between := 'F';
11204:
11205: IF I.context = G_PRIC_VOLUME_CONTEXT THEN
11206: IF(Is_Line_Group(p_line_detail_index => I.line_detail_index) = TRUE) THEN
11207: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11208: QP_PREQ_GRP.engine_debug('Is Line Group #100');
11209:
11210: END IF;
11211: l_is_line_group_flag := 'T';
11223: ELSE -- Make it a success,because line group between is done again,so do not delete
11224: l_value_from_num := NULL;
11225: END IF;
11226:
11227: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11228: engine_debug('Is line group');
11229: engine_debug('Group Quantity : ' || l_value_from_num);
11230: engine_debug('Line detail index: '||I.line_detail_index);
11231: END IF;
11250: ELSE
11251: l_setup_value_to_num := qp_number.canonical_to_number(I.setup_value_to);
11252: END IF;
11253:
11254: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11255: engine_debug('1VALUE: '||l_value_from_num);
11256: engine_debug('2VALUE_FROM: '||l_setup_value_from_num);
11257: engine_debug('3VALUE_TO: '||l_setup_value_to_num);
11258:
11258:
11259: END IF;
11260: 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
11261:
11262: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11263: engine_debug('4NOT BETWEEN');
11264:
11265: END IF;
11266: -- If it is a pricing attribute and it fails on between we can delete it right away
11289: AND LINE_DETAIL_INDEX = i.line_detail_index;
11290: END IF;
11291:
11292: -- shu debug msg
11293: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11294: QP_PREQ_GRP.engine_debug('for modifiers...');
11295: QP_PREQ_GRP.engine_debug('check condition...');
11296: QP_PREQ_GRP.engine_debug('i.group_amount: : '||i.group_amount);
11297: QP_PREQ_GRP.engine_debug('l_value_from_num: '||l_value_from_num);
11339: END IF;
11340: END IF;
11341:
11342: -- shu, for modifiers
11343: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11344: QP_PREQ_GRP.engine_debug('for modifiers...');
11345: QP_PREQ_GRP.engine_debug('line_index: '||i.line_index);
11346: QP_PREQ_GRP.engine_debug('list price: '||l_list_price);
11347: QP_PREQ_GRP.engine_debug('i.group_amount: '||i.group_amount);
11358: --Need the LINE_QUANTITY column to be updated for regular lines with volume attributes, for Calculation purposes
11359: IF (p_line_group_flag IS NULL and l_is_line_group_flag = 'F'
11360: and i.context = G_PRIC_VOLUME_CONTEXT) -- added for [5005328/4911264]
11361: THEN
11362: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11363: QP_PREQ_GRP.engine_debug('Line Index: ' || i.line_index || ' LD Index : ' || i.line_detail_index ||
11364: ' '||l_value_from_num);
11365: END IF;
11366: /*
11391: WHERE LINE_DETAIL_INDEX = l_line_detail_tbl(i);
11392:
11393: EXCEPTION
11394: WHEN OTHERS THEN
11395: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11396: engine_debug(l_routine||' '||SQLERRM);
11397: END IF;
11398: x_status_code := FND_API.G_RET_STS_ERROR;
11399: x_status_text := l_routine||': '||SQLERRM;
11394: WHEN OTHERS THEN
11395: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11396: engine_debug(l_routine||' '||SQLERRM);
11397: END IF;
11398: x_status_code := FND_API.G_RET_STS_ERROR;
11399: x_status_text := l_routine||': '||SQLERRM;
11400:
11401: END Evaluate_Between;
11402:
11789: else
11790: l_reduced_pbh_processing := G_NO;
11791: end if;
11792:
11793: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11794: engine_debug('G_BREAK_UOM_PRORATION ' || G_BREAK_UOM_PRORATION);
11795: engine_debug('p_list_type_code ' || p_list_type_code);
11796: engine_debug('G_REQUEST_TYPE_CODE ' || G_REQUEST_TYPE_CODE);
11797: engine_debug('l_reduced_pbh_processing ' || l_reduced_pbh_processing);
11805:
11806: -- julin [3805113]: bulk fetch
11807: IF (p_pricing_phase_id = 1 and G_MULTI_CURRENCY_PROFILE = G_YES
11808: and G_USE_MULTI_CURRENCY = G_YES) THEN
11809: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11810: engine_debug ('Multi-Currency Pricing Phase Price Break');
11811: END IF;
11812: OPEN l_price_break_detail_multi_cur(l_reduced_pbh_processing);
11813: FETCH l_price_break_detail_multi_cur BULK COLLECT INTO
11859: l_h_contract_start_date_tbl, -- R12 partial period pricing
11860: l_h_contract_end_date_tbl; -- R12 partial period pricing
11861: CLOSE l_price_break_detail_multi_cur;
11862: ELSE
11863: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11864: engine_debug ('Discounts Based Price Break');
11865: END IF;
11866: OPEN l_price_break_detail_cur(l_reduced_pbh_processing);
11867: FETCH l_price_break_detail_cur BULK COLLECT INTO
11918: IF (l_h_list_line_id_tbl.COUNT > 0) THEN
11919: FOR I in l_h_list_line_id_tbl.FIRST .. l_h_list_line_id_tbl.LAST
11920: LOOP
11921:
11922: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11923: engine_debug('Modifier_level_code: '||l_h_modifier_level_code_tbl(i));
11924: engine_debug('Attribute: '||l_h_ATTRIBUTE_tbl(i));
11925:
11926: END IF;
11928: 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
11929: IF l_h_modifier_level_code_tbl(i) = G_LINE_GROUP THEN
11930: IF l_h_attribute_tbl(i) = G_QUANTITY_ATTRIBUTE THEN
11931: l_quantity := p_group_quantity;
11932: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11933: engine_debug('l_quantity :'||l_quantity);
11934: END IF;
11935: l_selected_volume_attr := G_QUANTITY;
11936: ELSE
11939: END IF;
11940:
11941: IF (p_group_quantity <> l_quantity) THEN
11942:
11943: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11944: engine_debug('UOM l_quantity : '||l_quantity);
11945: engine_debug('UOM p_group_quantity :'||p_group_quantity);
11946:
11947: END IF;
11976: l_selected_volume_attr := G_QUANTITY;
11977:
11978: -- begin, shu fix
11979: ELSIF l_h_ATTRIBUTE_tbl(i) = 'PRICING_ATTRIBUTE20' THEN -- shulin, for fte total_item_quantity uom conversion
11980: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11981: engine_debug ('TOTAL_ITEM_QUANTITY...');
11982: END IF;
11983: 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
11984: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11980: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11981: engine_debug ('TOTAL_ITEM_QUANTITY...');
11982: END IF;
11983: 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
11984: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11985: engine_debug ('no uom conversion, pricing_uom_code is same as order_uom_code: '||l_h_line_uom_code_tbl(i));
11986: END IF;
11987: l_quantity := qp_number.canonical_to_number(l_h_value_from_tbl(i));
11988: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11984: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11985: engine_debug ('no uom conversion, pricing_uom_code is same as order_uom_code: '||l_h_line_uom_code_tbl(i));
11986: END IF;
11987: l_quantity := qp_number.canonical_to_number(l_h_value_from_tbl(i));
11988: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11989: engine_debug ('l_quantity: '||l_quantity);
11990: END IF;
11991: ELSE -- uom conversion
11992: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11988: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11989: engine_debug ('l_quantity: '||l_quantity);
11990: END IF;
11991: ELSE -- uom conversion
11992: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11993: engine_debug ('uom conversion...');
11994: engine_debug ('order_uom_code: '||l_h_order_uom_code_tbl(i));
11995: engine_debug ('primary_uom_code: '||l_h_product_uom_code_tbl(i));
11996: END IF;
11994: engine_debug ('order_uom_code: '||l_h_order_uom_code_tbl(i));
11995: engine_debug ('primary_uom_code: '||l_h_product_uom_code_tbl(i));
11996: END IF;
11997: l_total_item_quantity := qp_number.canonical_to_number(l_h_value_from_tbl(i));
11998: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
11999: engine_debug ('l_quantity before uom convertion: '||l_total_item_quantity );
12000: END IF;
12001:
12002: convert_uom ( l_h_order_uom_code_tbl(i),
12004: l_total_item_quantity, --total_item_qty
12005: l_quantity, -- qty_after_uom_conversion
12006: l_status_code,
12007: l_status_text);
12008: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
12009: raise E_INVALID_UOM_CONVERSION;
12010: END IF;
12011:
12012: -- shu, fix bug2368445
12009: raise E_INVALID_UOM_CONVERSION;
12010: END IF;
12011:
12012: -- shu, fix bug2368445
12013: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12014: engine_debug ('l_quantity before rounded by inv_decimal_precision: '||l_quantity);
12015: engine_debug ('inv_decimal_precision: '||l_max_decimal_digits);
12016: END IF;
12017: IF (l_quantity IS NOT NULL AND l_max_decimal_digits IS NOT NULL) THEN -- it will have sql err if null
12015: engine_debug ('inv_decimal_precision: '||l_max_decimal_digits);
12016: END IF;
12017: IF (l_quantity IS NOT NULL AND l_max_decimal_digits IS NOT NULL) THEN -- it will have sql err if null
12018: l_quantity := round (l_quantity, l_max_decimal_digits);
12019: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12020: engine_debug ('l_quantity after rounded by inv_decimal_precision: '||l_quantity);
12021: END IF;
12022: END IF;
12023: END IF;
12063: ELSE
12064: l_value_to := qp_number.canonical_to_number(l_h_pricing_attr_val_to_tbl(i));
12065: END IF;
12066:
12067: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12068: engine_debug(l_routine||' Line quantity: '||l_quantity);
12069: engine_debug(l_routine||' value from: '||l_setup_value_from);
12070: engine_debug(l_routine||' value to : '||l_value_to);
12071: engine_debug(l_routine||' usage pricing type: '||l_h_usage_pricing_type_tbl(i));
12072:
12073: END IF;
12074:
12075: /* Proration Changes START */
12076: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12077: engine_debug(l_routine||' QP_CODE_CONTROL.CODE_RELEASE_LEVEL : '|| QP_CODE_CONTROL.CODE_RELEASE_LEVEL);
12078: engine_debug(l_routine||' profile QP_BREAK_UOM_PRORATION : '|| G_BREAK_UOM_PRORATION);
12079: engine_debug(l_routine||' G_REGULAR_USAGE_TYPE : '|| G_REGULAR_USAGE_TYPE);
12080: END IF;
12088: and G_BREAK_UOM_PRORATION = 'Y'
12089: and l_h_usage_pricing_type_tbl(i) = G_REGULAR_USAGE_TYPE
12090: then
12091:
12092: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12093: engine_debug(l_routine||' Proration allowed profile is set ');
12094: END IF;
12095:
12096: -- feb 22 toi comment start
12104: into l_break_uom_code, l_break_uom_context, l_break_uom_attribute
12105: from qp_npreq_ldets_tmp
12106: where line_detail_index = p_line_detail_index;
12107:
12108: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12109: engine_debug(l_routine||' l_break_uom_code = ' || l_break_uom_code);
12110: engine_debug(l_routine||' l_break_uom_context = ' || l_break_uom_context);
12111: engine_debug(l_routine||' l_break_uom_attribute = ' || l_break_uom_attribute);
12112: END IF;
12118: -- if break_uom is not set up, then no proration and proceed with normal price break evaluation
12119: -- feb 22 toi comment end
12120: -- price book
12121: IF nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) = G_YES THEN
12122: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12123: engine_debug('call from price book with proration ==> skip this break entirely');
12124: END IF;
12125: EXIT; -- exit big loop to stop processing remaining child lines
12126: END IF;
12136: and pricing_status_code = G_STATUS_UNCHANGED
12137: and attribute_type = G_PRICING_TYPE;
12138: end if; --l_first_time_flag = 'Y'
12139:
12140: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12141: engine_debug(l_routine||' l_passed_break_uom = '|| l_passed_break_uom);
12142: END IF;
12143:
12144: -- break uom has been passed, do the proration
12148: -- changed for R12 partial period pricing
12149: if (l_h_contract_start_date_tbl(i) is not null and
12150: l_h_contract_end_date_tbl(i) is not null)
12151: then
12152: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12153: engine_debug(l_routine||' OKS UOM conversion ');
12154: END IF;
12155:
12156: -- get the conversion factor by calling oks api
12173: raise e_proration_fac_oks_error;
12174: END IF;
12175: end if;
12176:
12177: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12178: engine_debug(l_routine||' l_proration_factor = '|| l_proration_factor);
12179: END IF;
12180:
12181: if l_proration_factor is not null then
12238: l_value_to := trunc(l_value_to * l_proration_factor);
12239: 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
12240: else -- second break onwards
12241: l_gap := l_setup_value_from - l_prev_setup_to_value;
12242: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12243: engine_debug(l_routine||' l_gap = '|| l_gap);
12244: END IF;
12245: if l_gap = 0 then
12246: -- 4061138, only for continuous breaks
12245: if l_gap = 0 then
12246: -- 4061138, only for continuous breaks
12247: l_continuous_flag := TRUE;
12248: l_setup_value_from := l_setup_value_from * l_proration_factor;
12249: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12250: engine_debug(l_routine||' * continuous price break');
12251: END IF;
12252: elsif l_gap = 1 then
12253: -- non-continuous breaks with gap 1
12265: END IF;
12266: l_prev_prorated_to_value := l_value_to;
12267: end if; -- if l_first_time_flag
12268: end if; -- if l_proration_factor is not null
12269: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12270: engine_debug(l_routine||' l_setup_value_from = '|| l_setup_value_from);
12271: engine_debug(l_routine||' l_value_to = '|| l_value_to);
12272: END IF;
12273:
12271: engine_debug(l_routine||' l_value_to = '|| l_value_to);
12272: END IF;
12273:
12274: else
12275: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12276: engine_debug(l_routine||' Standard UOM conversion ');
12277: END IF;
12278:
12279: -- OKS profile is not set, do standard uom conversion
12283: l_setup_value_from, -- before conversion
12284: l_value_temp, -- after conversion
12285: l_status_code,
12286: l_status_text);
12287: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
12288: raise E_INVALID_UOM_CONVERSION;
12289: END IF;
12290:
12291: -- 4061138 continuous break
12295: END IF;
12296:
12297: l_setup_value_from := trunc(l_value_temp);
12298:
12299: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12300: engine_debug(l_routine||' l_setup_value_from = '|| l_setup_value_from);
12301: END IF;
12302:
12303: l_prev_setup_to_value := l_value_to; -- store the un-prorated to value to determine setup gap
12307: l_value_to, -- before conversion
12308: l_value_temp, -- after conversion
12309: l_status_code,
12310: l_status_text);
12311: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
12312: raise E_INVALID_UOM_CONVERSION;
12313: END IF;
12314:
12315: -- 4061138, rewritten for continuous break logic
12324: l_value_to := trunc(l_value_temp);
12325: END IF;
12326:
12327: 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
12328: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12329: engine_debug(l_routine||' l_value_to = '|| l_value_to);
12330: END IF;
12331: else -- second breaks onwards
12332: l_gap := l_setup_value_from - l_prev_setup_to_value;
12329: engine_debug(l_routine||' l_value_to = '|| l_value_to);
12330: END IF;
12331: else -- second breaks onwards
12332: l_gap := l_setup_value_from - l_prev_setup_to_value;
12333: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12334: engine_debug(l_routine||' l_gap = '|| l_gap);
12335: END IF;
12336:
12337: if l_gap = 1 then
12345: l_setup_value_from, -- before conversion
12346: l_value_temp, -- after conversion
12347: l_status_code,
12348: l_status_text);
12349: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
12350: raise E_INVALID_UOM_CONVERSION;
12351: END IF;
12352:
12353: -- 4061138 continuous breaks
12353: -- 4061138 continuous breaks
12354: IF l_gap = 0 THEN
12355: l_continuous_flag := TRUE;
12356: l_setup_value_from := l_value_temp;
12357: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12358: engine_debug(l_routine||' * continuous price break');
12359: END IF;
12360: ELSE
12361: l_setup_value_from := trunc(l_value_temp);
12362: END IF;
12363:
12364: end if; -- if l_gap = 1
12365:
12366: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12367: engine_debug(l_routine||' l_setup_value_from = '|| l_setup_value_from);
12368: END IF;
12369:
12370: l_prev_setup_to_value := l_value_to;
12374: l_value_to, -- before conversion
12375: l_value_temp, -- after conversion
12376: l_status_code,
12377: l_status_text);
12378: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
12379: raise E_INVALID_UOM_CONVERSION;
12380: END IF;
12381:
12382: l_value_to := l_value_temp;
12384: l_value_to := trunc(l_value_to);
12385: END IF;
12386:
12387: 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
12388: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12389: engine_debug(l_routine||' l_value_to = '|| l_value_to);
12390: END IF;
12391: end if; -- if l_first_time_flag
12392:
12394:
12395: exception
12396: when no_data_found then
12397: -- if proration attribute is not passed, then no proration
12398: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12399: engine_debug(l_routine||' no proration attribute passed ');
12400: END IF;
12401: null;
12402:
12401: null;
12402:
12403: when others then
12404: -- if proration attribute is not passed, then no proration
12405: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12406: engine_debug(l_routine||' others exception, trying to find whether proration attr passed');
12407: END IF;
12408: null;
12409: end;
12424: (l_h_usage_pricing_type_tbl(i) = G_AUTHORING_TYPE) OR -- for AUTHORING call
12425: (nvl(l_net_amount_flag, 'N') <> 'N')) --[julin/4671446] all net amount breaks pass here, to be qualified during calculation
12426: THEN
12427: l_VALID_PBH_FLAG := G_YES;
12428: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12429: engine_debug('In price break detail');
12430: END IF;
12431: END IF;
12432:
12480: IF (l_quantity BETWEEN l_h_pricing_attr_val_from_tbl(i-1)
12481: AND l_h_pricing_attr_val_to_tbl(i-1))
12482: THEN
12483: l_VALID_PBH_FLAG := G_YES;
12484: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12485: engine_debug(l_routine||' * passed between check after continuous break remapping');
12486: END IF;
12487: END IF;
12488: END IF;
12547: IF (l_VALID_PBH_FLAG = G_YES) THEN
12548: --FOR J IN 1..N-1 LOOP
12549:
12550:
12551: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12552: engine_debug('Inserting line_detail');
12553: END IF;
12554:
12555: -- julin [3805113]: bulk insert into qp_npreq_ldets_tmp
12641: UPDATE qp_npreq_ldets_tmp --upd3
12642: SET processed_flag = G_PROCESSED -- indicates that this PBH is processed
12643: WHERE line_detail_index = p_line_detail_index;
12644:
12645: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
12646: engine_debug('#L1');
12647: END IF;
12648:
12649: -- julin [3805113]: bulk insert into qp_npreq_line_attrs_tmp
12679: l_l_G_STATUS_NEW_tbl(J)
12680: );
12681: END IF;
12682:
12683: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
12684: engine_debug('#L2');
12685: END IF;
12686:
12687: -- julin [3805113]: bulk insert into qp_npreq_rltd_lines_tmp
12724: qp_number.canonical_to_number(l_h_pricing_attr_val_to_tbl(J)),
12725: l_l_quantity_tbl(J));
12726: END IF;
12727:
12728: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
12729: engine_debug('#L3');
12730: END IF;
12731: --END LOOP; --END J LOOP
12732:
12729: engine_debug('#L3');
12730: END IF;
12731: --END LOOP; --END J LOOP
12732:
12733: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
12734: engine_debug('#L4');
12735: END IF;
12736: ELSE
12737: --None of the child price break statifies, hence parent is disqualified
12734: engine_debug('#L4');
12735: END IF;
12736: ELSE
12737: --None of the child price break statifies, hence parent is disqualified
12738: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12739: engine_debug(l_routine||' CHILD LINES ARE NOT SATISFIED');
12740:
12741: END IF;
12742: x_is_break_satisfy := FALSE;
12742: x_is_break_satisfy := FALSE;
12743:
12744: END IF;
12745:
12746: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
12747: engine_debug('#L5');
12748: END IF;
12749:
12750: l_VALID_PBH_FLAG := 'N';
12752: l_quantity := NULL; --shu, reset
12753:
12754: EXCEPTION
12755: WHEN E_INVALID_PRICE_BREAK_TYPE THEN
12756: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12757: engine_debug('PRICE BREAK TYPE CODE IS NULL OR INVALID');
12758: END IF;
12759: SET_STATUS_CODE(G_STATUS_OTHER_ERRORS,
12760: '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),
12763: 'LINES',
12764: l_status_code,
12765: l_status_text);
12766: WHEN E_INVALID_UOM_CONVERSION THEN-- shulin
12767: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12768: engine_debug('INVALID UOM CONVERSION FOR TOTAL_ITEM_QUANTITY');
12769: END IF;
12770: SET_STATUS_CODE(G_STATUS_OTHER_ERRORS,
12771: 'INVALID UOM CONVERSION FOR TOTAL_ITEM_QUANTITY : '||l_status_text,
12775: l_status_code,
12776: l_status_text);
12777: -- Proration Start
12778: WHEN e_proration_fac_oks_error then
12779: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12780: engine_debug('Error while calling oks api to get proration factor');
12781: END IF;
12782: SET_STATUS_CODE(G_STATUS_OTHER_ERRORS,
12783: 'Error while calling oks api to get proration factor',
12789:
12790: -- Proration End
12791:
12792: WHEN OTHERS THEN
12793: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12794: engine_debug('#Exception L6');
12795: engine_debug(l_routine || ' ' || SQLERRM);
12796: END IF;
12797: x_status_code := FND_API.G_RET_STS_ERROR;
12793: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12794: engine_debug('#Exception L6');
12795: engine_debug(l_routine || ' ' || SQLERRM);
12796: END IF;
12797: x_status_code := FND_API.G_RET_STS_ERROR;
12798: x_status_text := l_routine||': '||SQLERRM;
12799:
12800: END Handle_Break; --end procedure
12801:
12824: AND nvl(updated_flag,'N') = 'N'; -- to not delete passed adj by the calling app since updated_flag='Y'
12825:
12826: l_routine VARCHAR2(240):='QP_PREQ_GRP.Delete_invalid_PBH_Children';
12827: BEGIN
12828: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12829: engine_debug('in Delete_Invalid_PBH_Children');
12830: END IF;
12831: FOR I IN l_check_deleted_pbh_cur(p_line_index) LOOP
12832: /*
12851: END LOOP;
12852:
12853: EXCEPTION
12854: WHEN OTHERS THEN
12855: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12856: engine_debug(l_routine||' '||SQLERRM);
12857: END IF;
12858: x_status_code := FND_API.G_RET_STS_ERROR;
12859: x_status_text := l_routine||': '||SQLERRM;
12854: WHEN OTHERS THEN
12855: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12856: engine_debug(l_routine||' '||SQLERRM);
12857: END IF;
12858: x_status_code := FND_API.G_RET_STS_ERROR;
12859: x_status_text := l_routine||': '||SQLERRM;
12860: END Delete_Invalid_PBH_Children;
12861:
12862: /*+------------------------------------------------------------
12949: IF (G_LINE_INDEX_TBL_G.COUNT > 0) THEN
12950: FOR I in G_LINE_INDEX_TBL_G.FIRST .. G_LINE_INDEX_TBL_G.LAST
12951: LOOP
12952:
12953: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
12954: engine_debug('Checking break for: '||g_list_line_id_tbl_g(i) || ' Line Index : ' || g_line_index_tbl_g(i));
12955: END IF;
12956:
12957: l_is_break_satisfy := TRUE;
12967: p_list_type_code => g_list_type_code_tbl_g(i),
12968: x_is_break_satisfy => l_is_break_satisfy,
12969: x_status_code => l_status_code,
12970: x_status_text => l_status_text);
12971: IF l_status_code=FND_API.G_RET_STS_ERROR THEN
12972: RAISE E_ROUTINE_ERRORS;
12973: END IF;
12974:
12975: IF(l_is_break_satisfy = FALSE) THEN
13006: END IF;
13007:
13008: EXCEPTION
13009: WHEN E_ROUTINE_ERRORS THEN
13010: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13011: engine_debug(l_routine || ': ' ||l_status_text);
13012: END IF;
13013: x_status_code := FND_API.G_RET_STS_ERROR;
13014: x_status_text := l_routine || ': ' ||l_status_text;
13009: WHEN E_ROUTINE_ERRORS THEN
13010: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13011: engine_debug(l_routine || ': ' ||l_status_text);
13012: END IF;
13013: x_status_code := FND_API.G_RET_STS_ERROR;
13014: x_status_text := l_routine || ': ' ||l_status_text;
13015: WHEN OTHERS THEN
13016: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13017: engine_debug(l_routine || ' ' || SQLERRM);
13012: END IF;
13013: x_status_code := FND_API.G_RET_STS_ERROR;
13014: x_status_text := l_routine || ': ' ||l_status_text;
13015: WHEN OTHERS THEN
13016: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13017: engine_debug(l_routine || ' ' || SQLERRM);
13018: END IF;
13019: x_status_code := FND_API.G_RET_STS_ERROR;
13020: x_status_text := l_routine||' '||SQLERRM;
13015: WHEN OTHERS THEN
13016: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13017: engine_debug(l_routine || ' ' || SQLERRM);
13018: END IF;
13019: x_status_code := FND_API.G_RET_STS_ERROR;
13020: x_status_text := l_routine||' '||SQLERRM;
13021:
13022: END Get_Eligible_Price_Break;
13023:
13514:
13515: BEGIN
13516:
13517: qp_debug_util.tstart('PERFORM_GROUPING','Perform Grouping');
13518: x_status_code := FND_API.G_RET_STS_SUCCESS;
13519:
13520: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13521: engine_debug('Grouping begin');
13522: engine_debug('Pricing phase id: ' || p_pricing_phase_id);
13516:
13517: qp_debug_util.tstart('PERFORM_GROUPING','Perform Grouping');
13518: x_status_code := FND_API.G_RET_STS_SUCCESS;
13519:
13520: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13521: engine_debug('Grouping begin');
13522: engine_debug('Pricing phase id: ' || p_pricing_phase_id);
13523:
13524: END IF;
13525: -- Header Level Qualifiers Grouping
13526: --grouping for the records with header level qualifies
13527: -- +/- line level qualifiers.
13528:
13529: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13530: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13531: engine_debug('In grouping');
13532: END IF;
13533: FOR i IN header_level_qual_attrs_cur LOOP
13526: --grouping for the records with header level qualifies
13527: -- +/- line level qualifiers.
13528:
13529: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13530: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13531: engine_debug('In grouping');
13532: END IF;
13533: FOR i IN header_level_qual_attrs_cur LOOP
13534: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13530: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13531: engine_debug('In grouping');
13532: END IF;
13533: FOR i IN header_level_qual_attrs_cur LOOP
13534: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13535: engine_debug('-----------------------');
13536: engine_debug('list_header_id:'||i.list_header_id);
13537: engine_debug('list_line_id:'||i.list_line_id);
13538: engine_debug('line_index:'||i.line_index);
13548: IF (p_pricing_phase_id = G_PRICE_LIST_PHASE_ID) THEN
13549:
13550: FOR i IN header_level_qual_attrs_cur LOOP
13551: v_line_index := i.LINE_INDEX;
13552: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13553: engine_debug('Header Level Qualifier Attributes Passed');
13554:
13555: END IF;
13556: --this group is an AND condition for all qualifiers under the same header
13602: CLOSE hdr_lvl_setup_pl_quals_cur;
13603:
13604: l_setup_grp_count:= l_setup_grp_count - v_price_list_count ;
13605:
13606: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13607: engine_debug('Checking header lvl qualifier count');
13608: engine_debug('Header Level Qualifiers in setup: '||l_setup_grp_count);
13609:
13610: END IF;
13616: OPEN get_excluded_hdr_quals(i.line_index,i.list_header_id,i.grouping_number);
13617: FETCH get_excluded_hdr_quals into l_excluded_count;
13618: CLOSE get_excluded_hdr_quals;
13619:
13620: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13621: engine_debug('Excluded quals : '||l_excluded_count || ' Grouping Number:' || i.grouping_number);
13622:
13623: END IF;
13624: -- l_null_excl_count is applicable when NOT= , or BETWEEN is there on the NULL grouping number
13633: ELSE
13634: l_passed_in_cnt := l_passed_in_cnt - nvl(l_excluded_count,0) - nvl(l_null_excl_count,0);
13635: END IF;
13636:
13637: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13638: engine_debug('Null Excluded quals : '||l_null_excl_count);
13639: engine_debug('Header Level Qualifiers passsed in: '||l_passed_in_cnt);
13640:
13641: END IF;
13654: OPEN is_not_null_grp_passed2(i.line_index,i.list_header_id);
13655: FETCH is_not_null_grp_passed2 into l_dummy;
13656: IF is_not_null_grp_passed2%NOTFOUND THEN
13657: -- other required grp is not passed
13658: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13659: engine_debug('Update #7');
13660: END IF;
13661: l_deleted_flag := TRUE;
13662: l_ind := l_ind+1;
13663: l_del_tbl(l_ind):= i.LINE_DETAIL_INDEX;
13664: END IF;
13665: CLOSE is_not_null_grp_passed2;
13666: ELSE
13667: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13668: engine_debug ('Successful on Header Level Quals Success Flag');
13669: END IF;
13670: l_success_ind_flag := G_YES; -- Mark it as success , for line level quals evaluation
13671: --l_success_ind := l_success_ind+1;
13672: --l_success_tbl(l_success_ind):= i.LINE_DETAIL_INDEX;
13673: END IF; --is a pure null grp
13674: CLOSE is_not_null_grp_exists2;
13675: ELSE
13676: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13677: engine_debug ('Successful on Header Level Quals Success Flag Not null Group');
13678: END IF;
13679: l_success_ind_flag := G_YES;
13680: --l_success_ind := l_success_ind+1;
13680: --l_success_ind := l_success_ind+1;
13681: --l_success_tbl(l_success_ind):= i.LINE_DETAIL_INDEX;
13682: END IF;
13683:
13684: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13685: engine_debug('Line Level Quals LH Id :' || i.list_header_id);
13686: engine_debug('Line Level Quals LL Id :' || i.list_line_id);
13687:
13688: END IF;
13691: l_has_setup_line_lvl := FALSE;
13692: l_has_passed_in_line_lvl := FALSE;
13693:
13694: IF line_lvl_setup_exist_cur%FOUND AND l_deleted_flag = FALSE THEN --has line level qualifiers
13695: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13696: engine_debug('Has Line Level Qualifiers');
13697: END IF;
13698: l_has_setup_line_lvl := TRUE;
13699: FOR k IN line_level_qual_attrs_cur(i.LIST_HEADER_ID,i.list_line_id) LOOP
13725: IF k.grouping_number = -1 THEN
13726: OPEN line_setup_null_group_cur(K.list_header_id,K.list_line_id);
13727: FETCH line_setup_null_group_cur INTO l_setup_grp_count2;
13728: CLOSE line_setup_null_group_cur;
13729: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13730: engine_debug('Setup grp null cnt: '||l_setup_grp_count2);
13731: END IF;
13732: ELSE
13733: OPEN line_setup_null_group_cur(K.list_header_id,K.list_line_id);
13737: OPEN line_level_setup_quals_cur(K.list_header_id,K.list_line_id,K.grouping_number);
13738: FETCH line_level_setup_quals_cur INTO l_setup_grp_count2;
13739: CLOSE line_level_setup_quals_cur;
13740:
13741: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13742: engine_debug('setup grp cnt: '||l_setup_grp_count2);
13743: END IF;
13744: l_setup_grp_count2 := l_setup_grp_count2 + l_setup_null_grp_cnt2;
13745: END IF;
13750: CLOSE line_level_setup_pl_quals_cur;
13751:
13752: l_setup_grp_count2 := l_setup_grp_count2 - v_price_list_count;
13753:
13754: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13755: engine_debug('Null Line Level Quals count in Setup: '||l_setup_null_grp_cnt2);
13756: engine_debug('Passed in null line level quals count: '|| l_null_grp_cnt2);
13757:
13758: END IF;
13764: OPEN get_excluded_line_quals(k.line_index,k.list_header_id,k.list_line_id,k.grouping_number);
13765: FETCH get_excluded_line_quals into l_excluded_count;
13766: CLOSE get_excluded_line_quals;
13767:
13768: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13769: engine_debug('Excluded Line quals : '||l_excluded_count);
13770:
13771: END IF;
13772: IF (i.grouping_number = -1) THEN
13775: ELSE
13776: l_passed_in_cnt2 := l_passed_in_cnt2 - nvl(l_excluded_count,0) - nvl(l_null_excl_count1,0);
13777: END IF;
13778:
13779: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13780: engine_debug('Passed in line lvl count: '||l_passed_in_cnt2);
13781: engine_debug('Line Level Quals count in Setup: '||l_setup_grp_count2);
13782:
13783: END IF;
13782:
13783: END IF;
13784: IF(l_passed_in_cnt2 >= l_setup_grp_count2) THEN
13785: IF k.grouping_number = -1 THEN
13786: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13787: engine_debug('Line Level Quals #123');
13788: END IF;
13789: --check if this is a pure null grp, if no, and other
13790: OPEN is_not_null_grp_exists(k.list_header_id,k.list_line_id);
13794: OPEN is_not_null_grp_passed(k.line_index,k.list_line_id,k.list_header_id);
13795: FETCH is_not_null_grp_passed into l_dummy;
13796: IF is_not_null_grp_passed%NOTFOUND THEN
13797: --no other required grp passed
13798: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13799: engine_debug('Update #7');
13800: END IF;
13801: l_ind := l_ind+1;
13802: l_del_tbl(l_ind):= k.LINE_DETAIL_INDEX;
13802: l_del_tbl(l_ind):= k.LINE_DETAIL_INDEX;
13803: END IF;
13804: CLOSE is_not_null_grp_passed;
13805: ELSE
13806: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13807: engine_debug('Pure Null Line Level Quals #124');
13808: END IF;
13809: l_success_ind := l_success_ind+1;
13810: l_success_tbl(l_success_ind):= i.line_detail_index;
13814: l_success_ind := l_success_ind+1;
13815: l_success_tbl(l_success_ind):= k.LINE_DETAIL_INDEX;
13816: END IF;
13817: ELSE -- Count did not match
13818: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13819: engine_debug ('Not successful on the Line Level Qualifiers Count Mismatch: ' || k.LIST_LINE_ID);
13820: engine_debug('The whole List Line is getting deleted');
13821: engine_debug('Update #1');
13822: END IF;
13825: END IF;
13826: END LOOP; --end K loop
13827: --we need to delete lists that has line lvl qualifier but not passed in.
13828: IF (l_has_passed_in_line_lvl = FALSE) THEN
13829: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13830: engine_debug ('Fails in line lvl bcause exists in Setup but Not Passed');
13831: engine_debug('List header id that has line level qualifier:'|| i.list_header_id);
13832: engine_debug('The whole List Line is getting deleted#1');
13833: engine_debug('Update #2');
13837: END IF;
13838: ELSE
13839: -- No line level qualifiers exist , but header level quals satisfied
13840: IF(l_success_ind_flag = G_YES) THEN
13841: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13842: engine_debug('Header Level Quals satisfied and no line level quals exist');
13843: END IF;
13844: l_success_ind := l_success_ind+1;
13845: l_success_tbl(l_success_ind):= i.line_detail_index;
13847: END IF; -- end if for line_lvl_setup_exist_cur%FOUND
13848: CLOSE line_lvl_setup_exist_cur;
13849: ELSE --else for if (i.NO_OF_QUALIFIER_IN_GRP + l_null_grp_cnt >= l_setup_grp_count)
13850: --grouping count did not match for header level qualifier
13851: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13852: engine_debug('Header lvl qualifier doesn''t match');
13853: engine_debug('Update #3');
13854: END IF;
13855: l_ind := l_ind+1;
13857: END IF; --end if for if (i.NO_OF_QUALIFIER_IN_GRP + l_null_grp_cnt >= l_setup_grp_count)
13858: END LOOP; --end i loop
13859: l_status_text := '#2';
13860:
13861: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13862: engine_debug('Deleted Line Details in Table');
13863: END IF;
13864: FOR i in 1..l_del_tbl.count
13865: LOOP
13862: engine_debug('Deleted Line Details in Table');
13863: END IF;
13864: FOR i in 1..l_del_tbl.count
13865: LOOP
13866: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13867: engine_debug('Line Detail Index: ' || l_del_tbl(i));
13868: END IF;
13869: END LOOP;
13870:
13867: engine_debug('Line Detail Index: ' || l_del_tbl(i));
13868: END IF;
13869: END LOOP;
13870:
13871: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13872: engine_debug('Successful Line Details in Table');
13873: END IF;
13874: FOR i in 1..l_success_tbl.count
13875: LOOP
13872: engine_debug('Successful Line Details in Table');
13873: END IF;
13874: FOR i in 1..l_success_tbl.count
13875: LOOP
13876: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13877: engine_debug('Line Detail Index: ' || l_success_tbl(i));
13878: END IF;
13879: END LOOP;
13880:
13919: l_ind:=0;
13920: l_success_ind:=0;
13921: l_status_text :='#3';
13922:
13923: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13924: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13925: engine_debug('In Pure Line Level grouping');
13926: END IF;
13927: FOR k IN line_level_qual_attrs_cur2 LOOP
13920: l_success_ind:=0;
13921: l_status_text :='#3';
13922:
13923: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13924: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13925: engine_debug('In Pure Line Level grouping');
13926: END IF;
13927: FOR k IN line_level_qual_attrs_cur2 LOOP
13928: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13924: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13925: engine_debug('In Pure Line Level grouping');
13926: END IF;
13927: FOR k IN line_level_qual_attrs_cur2 LOOP
13928: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
13929: engine_debug('-----------------------');
13930: engine_debug('list_header_id:'||k.list_header_id);
13931: engine_debug('list_line_id:'||k.list_line_id);
13932: engine_debug('line_index:'||k.line_index);
13996: OPEN get_excluded_line_quals(k.line_index,k.list_header_id,k.list_line_id,k.grouping_number);
13997: FETCH get_excluded_line_quals into l_excluded_count;
13998: CLOSE get_excluded_line_quals;
13999:
14000: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14001: engine_debug('Excluded Pure Line Level quals : '||l_excluded_count);
14002:
14003: END IF;
14004: -- l_null_excl_count is applicable when NOT= is there on the NULL grouping number and that gets D_EXCL
14026: OPEN is_not_null_grp_passed(k.line_index,k.list_line_id,k.list_header_id);
14027: FETCH is_not_null_grp_passed into l_dummy;
14028: IF is_not_null_grp_passed%NOTFOUND THEN
14029: --no other required grp passed
14030: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14031: engine_debug('Update #6');
14032: END IF;
14033: l_ind := l_ind+1;
14034: l_del_tbl(l_ind):= k.LINE_DETAIL_INDEX;
14050: --previous header_level +/- line level check operation. It didn't get updated
14051: --that means no header level qualifier has passed in, hence we need to eliminate this
14052: --list line
14053: IF header_level_quals_exist_cur%NOTFOUND THEN
14054: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14055: engine_debug('--------------------------------------');
14056: engine_debug('Deleting list line id:'||K.list_line_id);
14057: engine_debug('Update #4');
14058: END IF;
14070: CLOSE hdr_lvl_setup_quals_exist_cur;
14071: END IF;
14072:
14073: ELSE -- Count did not match
14074: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14075: engine_debug ('Not successful on the Line Level Qualifiers Count Mismatch: ' || k.LIST_LINE_ID);
14076: engine_debug('The whole List Line is getting deleted');
14077: engine_debug('Update #5');
14078:
14083: END IF;
14084: END LOOP; --end K loop
14085: l_status_text := '#4';
14086:
14087: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14088: engine_debug('Deleted Line Details in Pure Line Grouping Table');
14089: END IF;
14090: FOR i in 1..l_del_tbl.count
14091: LOOP
14088: engine_debug('Deleted Line Details in Pure Line Grouping Table');
14089: END IF;
14090: FOR i in 1..l_del_tbl.count
14091: LOOP
14092: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14093: engine_debug('Line Detail Index: ' || l_del_tbl(i));
14094: END IF;
14095: END LOOP;
14096:
14112: AND ATTRIBUTE_TYPE = G_QUALIFIER_TYPE; */
14113:
14114: END IF;
14115:
14116: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14117: engine_debug('Successful Line Details in Pure Line Grouping Table');
14118: END IF;
14119: FOR i in 1..l_success_tbl.count
14120: LOOP
14117: engine_debug('Successful Line Details in Pure Line Grouping Table');
14118: END IF;
14119: FOR i in 1..l_success_tbl.count
14120: LOOP
14121: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14122: engine_debug('Line Detail Index: ' || l_success_tbl(i));
14123: END IF;
14124: END LOOP;
14125:
14167:
14168: IF (G_LINE_INDEX_TBL_G.COUNT > 0) THEN
14169: FOR I in G_LINE_INDEX_TBL_G.FIRST .. G_LINE_INDEX_TBL_G.LAST
14170: LOOP
14171: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14172: engine_debug('Went into product grouping');
14173:
14174: END IF;
14175: 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));
14175: 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));
14176: FETCH get_excluded_prods_between INTO l_excl_prod_count;
14177: CLOSE get_excluded_prods_between;
14178:
14179: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14180: engine_debug('Product list line id:'||G_LIST_LINE_ID_TBL_G(I));
14181: engine_debug('Product Between Exclude Count:'||l_excl_prod_count);
14182:
14183: END IF;
14182:
14183: END IF;
14184: -- If this line already got deleted as part of between , then delete this line
14185: IF (l_excl_prod_count > 0 ) THEN
14186: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14187: engine_debug('Getting Deleted in Product Grouping');
14188:
14189: END IF;
14190: /*
14215: ELSE
14216: FOR j IN product_level_setup_attrs_cur(G_LIST_LINE_ID_TBL_G(I))
14217: LOOP
14218:
14219: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14220: engine_debug('product level attrs no '||g_no_of_patts_in_grp_tbl_g(I));
14221: engine_debug('product level set up attrs no '||j.no_of_patts_in_grp);
14222:
14223: END IF;
14221: engine_debug('product level set up attrs no '||j.no_of_patts_in_grp);
14222:
14223: END IF;
14224: IF (G_NO_OF_PATTS_IN_GRP_TBL_G(I) = j.NO_OF_PATTS_IN_GRP) THEN
14225: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14226: engine_debug ('Successful on the product grouping: ' || G_LIST_LINE_ID_TBL_G(I));
14227: END IF;
14228: ELSE
14229: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14225: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14226: engine_debug ('Successful on the product grouping: ' || G_LIST_LINE_ID_TBL_G(I));
14227: END IF;
14228: ELSE
14229: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14230: engine_debug('Getting Deleted in Product Grouping');
14231: END IF;
14232: /*
14233: INDX,QP_PREQ_GRP.perform_grouping.upd6,qp_npreq_ldets_tmp_N1,LINE_INDEX,1
14274: SET PRICING_STATUS_CODE = G_STATUS_NEW
14275: WHERE PRICING_PHASE_ID = p_pricing_phase_id
14276: AND PRICING_STATUS_CODE = G_STATUS_NEW
14277: AND LINE_INDEX = nvl(p_line_index,LINE_INDEX); */
14278: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14279: engine_debug('grouping ends');
14280: END IF;
14281: qp_debug_util.tstop('PERFORM_GROUPING');
14282: EXCEPTION
14280: END IF;
14281: qp_debug_util.tstop('PERFORM_GROUPING');
14282: EXCEPTION
14283: WHEN OTHERS THEN
14284: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14285: engine_debug(SQLERRM);
14286: END IF;
14287: x_status_code:= FND_API.G_RET_STS_ERROR;
14288: x_status_text:= 'In perform grouping '||SQLERRM||' '||l_status_text;
14283: WHEN OTHERS THEN
14284: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14285: engine_debug(SQLERRM);
14286: END IF;
14287: x_status_code:= FND_API.G_RET_STS_ERROR;
14288: x_status_text:= 'In perform grouping '||SQLERRM||' '||l_status_text;
14289: END PERFORM_GROUPING;
14290:
14291: /*+--------------------------------------------------------
14303: BEGIN
14304:
14305: --Update The Request Lines That Have
14306: --No List Header Passed , so that big search can look at it
14307: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14308: engine_debug ('In Procedure Update_Price_List_Information...');
14309: END IF;
14310: /*
14311: INDX,QP_PREQ_GRP.update_price_list_information.update_price_list_information_sel1,qp_npreq_line_attrs_tmp_N1,LINE_INDEX,1
14326: AND (price_flag = G_YES OR --[julin/4708044]
14327: (price_flag = G_PHASE AND p_freeze_override_flag = G_YES));
14328: END IF;
14329:
14330: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14331: engine_debug ('after update1...');
14332: END IF;
14333:
14334: /*
14362: --AND a.PRICE_LIST_HEADER_ID < 0 )
14363: --WHERE a.PRICE_LIST_HEADER_ID < 0;
14364: END IF;
14365:
14366: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14367: engine_debug ('after update2');
14368: END IF;
14369:
14370: -- To clear the unit_price if the call is from public API
14368: END IF;
14369:
14370: -- To clear the unit_price if the call is from public API
14371: IF (G_PUBLIC_API_CALL_FLAG = G_YES) THEN
14372: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14373: engine_debug('Call from Public API , Update_Price_List_Information');
14374: END IF;
14375: IF (G_PRICE_PHASE_FLAG = TRUE AND G_MANUAL_ADJUSTMENTS_CALL_FLAG = G_NO) THEN
14376: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14372: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14373: engine_debug('Call from Public API , Update_Price_List_Information');
14374: END IF;
14375: IF (G_PRICE_PHASE_FLAG = TRUE AND G_MANUAL_ADJUSTMENTS_CALL_FLAG = G_NO) THEN
14376: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14377: engine_debug('Trying to Update Unit Price To Null');
14378: END IF;
14379: UPDATE qp_npreq_lines_tmp a
14380: SET unit_price = NULL
14386: AND list_price_override_flag = 'N';
14387: END IF;
14388: END IF;
14389:
14390: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14391: engine_debug ('after update3');
14392: END IF;
14393:
14394: /*
14424: WHERE LIST_HEADER_ID = a.PRICE_LIST_HEADER_ID
14425: AND QUALIFICATION_IND IN (QP_PREQ_GRP.G_YES_PROD_PRIC_HDR_QUAL_IND,QP_PREQ_GRP.G_YES_PROD_PRIC_IND)
14426: AND ROWNUM = 1) ;
14427: END IF;
14428: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14429: engine_debug ('after update4');
14430: END IF;
14431:
14432: EXCEPTION
14431:
14432: EXCEPTION
14433:
14434: WHEN OTHERS THEN
14435: x_status_code:= FND_API.G_RET_STS_ERROR;
14436: x_status_text:= 'QP_PREQ_GRP.Update_Price_List_Information: '||SQLERRM;
14437: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14438: engine_debug(l_routine||' '||SQLERRM);
14439: END IF;
14433:
14434: WHEN OTHERS THEN
14435: x_status_code:= FND_API.G_RET_STS_ERROR;
14436: x_status_text:= 'QP_PREQ_GRP.Update_Price_List_Information: '||SQLERRM;
14437: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14438: engine_debug(l_routine||' '||SQLERRM);
14439: END IF;
14440:
14441: END Update_Price_List_Information;
14534: AND c.VALIDATED_FLAG = G_NO ;
14535:
14536: EXCEPTION
14537: WHEN OTHERS THEN
14538: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14539: engine_debug(l_routine||' '||SQLERRM);
14540: END IF;
14541: x_status_code := FND_API.G_RET_STS_ERROR;
14542: x_status_text := 'Error in '||l_routine||SQLERRM;
14537: WHEN OTHERS THEN
14538: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
14539: engine_debug(l_routine||' '||SQLERRM);
14540: END IF;
14541: x_status_code := FND_API.G_RET_STS_ERROR;
14542: x_status_text := 'Error in '||l_routine||SQLERRM;
14543: END Update_Sec_Price_List_Info;
14544:
14545: /*+--------------------------------------------------------
16003: BEGIN
16004: qp_debug_util.tstart('PERFORM_SECONDARY_SEARCH','Performing Secondary Price List Search');
16005: -- G_QUALIFY_SECONDARY := NVL(FND_PROFILE.VALUE('QP_QUALIFY_SECONDARY_PRICE_LISTS'),'N');--profile option
16006: -- Update the price list id , validated flag , and primary_qualifiers_match flag for sec search
16007: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN --4033618
16008: engine_debug ('QP_QUALIFY_SECONDARY_PRICE_LISTS:' || G_QUALIFY_SECONDARY);
16009: END IF;
16010:
16011:
16009: END IF;
16010:
16011:
16012: Update_Sec_Price_List_Info(l_status_code,l_status_text);
16013: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
16014: RAISE E_ROUTINE_ERRORS;
16015: END IF;
16016:
16017: -- julin [3805113]: prepare global tables for INSERT_LDETS2
16079: G_PRIMARY_UOM_FLAG_TBL_A.delete;
16080:
16081: -- julin [3805113]: bulk fetch
16082: IF G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
16083: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16084: engine_debug('cursor l_sec_list_cur_currency-multi-currency TRUE');
16085: END IF;
16086: l_use_multi_currency := 'Y';
16087: OPEN l_sec_list_cur_currency;
16154: EXIT WHEN l_h_line_index_tbl.COUNT = 0;
16155:
16156: FOR I in l_h_line_index_tbl.first .. l_h_line_index_tbl.last
16157: LOOP
16158: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16159: engine_debug('item found in secondary list');
16160: END IF;
16161: IF (ls_line_index <> l_h_line_index_tbl(I) OR ls_list_line_id <> l_h_list_line_id_tbl(I)) THEN
16162: l_line_detail_index := GET_LINE_DETAIL_INDEX;
16159: engine_debug('item found in secondary list');
16160: END IF;
16161: IF (ls_line_index <> l_h_line_index_tbl(I) OR ls_list_line_id <> l_h_list_line_id_tbl(I)) THEN
16162: l_line_detail_index := GET_LINE_DETAIL_INDEX;
16163: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16164: engine_debug('Inserting Secondary Price List Detail');
16165: END IF;
16166: G_LINE_DETAIL_INDEX_TBL(D) := l_line_detail_index;
16167: G_LINE_DETAIL_TYPE_CODE_TBL(D) := 'NULL';
16200: ls_line_index := l_h_line_index_tbl(I);
16201: ls_list_line_id := l_h_list_line_id_tbl(I);
16202: END IF;
16203:
16204: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16205: engine_debug('----BEFORE INSERTING SECONDARY PRODUCT ATTRS -------');
16206: engine_debug('Qualifier Precedence : ' || l_h_qual_precedence_tbl(I));
16207: END IF;
16208:
16238: M:= M+1;
16239:
16240: --INSERT PRICING ATTRIBUTES
16241: IF (l_h_pric_ATTR_CONTEXT_tbl(I) IS NOT NULL) THEN
16242: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16243: engine_debug('----BEFORE INSERTING SECONDARY PRICING ATTRS -------');
16244: END IF;
16245: G_LINE_INDEX_TBL_A(M) := l_h_LINE_INDEX_tbl(I);
16246: G_LINE_DETAIL_INDEX_TBL_A(M) := L_LINE_DETAIL_INDEX;
16307: G_PRIMARY_UOM_FLAG_TBL_A(M) := l_h_PRIMARY_UOM_FLAG_tbl(I);
16308: M:= M+1;
16309: END IF;
16310:
16311: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16312: engine_debug('AFTER END IF SECONDARY PRICE_LIST');
16313: END IF;
16314: l_loop_count := l_loop_count +1;
16315: END LOOP; -- K
16373: EXIT WHEN l_h_line_index_tbl.COUNT = 0;
16374:
16375: FOR I in l_h_line_index_tbl.first .. l_h_line_index_tbl.last
16376: LOOP
16377: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16378: engine_debug('item found in secondary list');
16379: END IF;
16380:
16381: IF (ls_line_index <> l_h_line_index_tbl(I) OR ls_list_line_id <> l_h_list_line_id_tbl(I)) THEN
16379: END IF;
16380:
16381: IF (ls_line_index <> l_h_line_index_tbl(I) OR ls_list_line_id <> l_h_list_line_id_tbl(I)) THEN
16382: l_line_detail_index := GET_LINE_DETAIL_INDEX;
16383: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16384: engine_debug('Inserting Secondary Price List Detail');
16385: END IF;
16386: G_LINE_DETAIL_INDEX_TBL(D) := l_line_detail_index;
16387: G_LINE_DETAIL_TYPE_CODE_TBL(D) := 'NULL';
16421: ls_list_line_id := l_h_list_line_id_tbl(I);
16422: END IF;
16423:
16424:
16425: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16426: engine_debug('----BEFORE INSERTING SECONDARY PRODUCT ATTRS -------');
16427: engine_debug('Qualifier Precedence : ' || l_h_qual_precedence_tbl(I));
16428: END IF;
16429:
16459: M:= M+1;
16460:
16461: --INSERT PRICING ATTRIBUTES
16462: IF (l_h_pric_ATTR_CONTEXT_tbl(I) IS NOT NULL) THEN
16463: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16464: engine_debug('----BEFORE INSERTING SECONDARY PRICING ATTRS -------');
16465: END IF;
16466: G_LINE_INDEX_TBL_A(M) := l_h_LINE_INDEX_tbl(I);
16467: G_LINE_DETAIL_INDEX_TBL_A(M) := L_LINE_DETAIL_INDEX;
16528: G_PRIMARY_UOM_FLAG_TBL_A(M) := l_h_PRIMARY_UOM_FLAG_tbl(I);
16529: M:= M+1;
16530: END IF;
16531:
16532: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16533: engine_debug('AFTER END IF SECONDARY PRICE_LIST');
16534: END IF;
16535: l_loop_count := l_loop_count +1;
16536: END LOOP; -- K
16654:
16655: --Evaluating between operator for both qualifiers and pricing attributes
16656: Evaluate_Between(G_PRICE_LIST_PHASE_ID,NULL,NULL,l_status_code,l_status_text);
16657:
16658: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16659: RAISE E_ROUTINE_ERRORS;
16660: END IF;
16661:
16662: -- Check for multiple item categories and customer classes
16661:
16662: -- Check for multiple item categories and customer classes
16663: Eliminate_Multiple_Hierarchies(G_PRICE_LIST_PHASE_ID,l_status_code,l_status_text);
16664:
16665: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16666: RAISE E_ROUTINE_ERRORS;
16667: END IF;
16668:
16669: --Handle_Excluder(G_PRICE_LIST_PHASE_ID,NULL,l_status_code,l_status_text);
16669: --Handle_Excluder(G_PRICE_LIST_PHASE_ID,NULL,l_status_code,l_status_text);
16670:
16671: Perform_Grouping(G_PRICE_LIST_PHASE_ID, NULL, l_status_code, l_status_text);
16672:
16673: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16674: RAISE E_ROUTINE_ERRORS;
16675: END IF;
16676:
16677: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16673: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16674: RAISE E_ROUTINE_ERRORS;
16675: END IF;
16676:
16677: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16678: engine_debug('Secondary Price List Grouping Return Status : ' || l_status_code);
16679:
16680:
16681: END IF;
16688: x_list_line_id => l_list_line_id,
16689: x_return_status => l_status_code,
16690: x_return_status_txt => l_status_text);
16691:
16692: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16693: RAISE E_ROUTINE_ERRORS;
16694: END IF;
16695:
16696: -- 3773652
16712:
16713: -- Update the request line status for lines which got valid price list
16714: Update_Request_Line_Status(p_control_rec,'SUCCESS',p_freeze_override_flag,l_status_code,l_status_text); --[julin/4708044]
16715:
16716: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16717: RAISE E_ROUTINE_ERRORS;
16718: END IF;
16719:
16720: --bug# 2091386 not reflecting the right price on change on UOM on the order line . Since
16724: --By doing this we will get the right price in the PRICE event on change of UOM on the order line
16725: --for price based on price break
16726: Get_Eligible_Price_Break(G_PRICE_LIST_PHASE_ID,NULL,l_status_code,l_status_text);
16727:
16728: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16729: RAISE E_ROUTINE_ERRORS;
16730: END IF;
16731:
16732:
16741: CLOSE l_chk_deleted_pbh_cur; */
16742: ELSE
16743: -- Update the request line status for lines which got valid price list
16744: Update_Request_Line_Status(p_control_rec,'FAILURE',p_freeze_override_flag,l_status_code,l_status_text); --[juiln/4708044]
16745: IF(l_status_code = FND_API.G_RET_STS_ERROR) THEN
16746: RAISE E_ROUTINE_ERRORS;
16747: END IF;
16748: END IF; --l_loop_count <> 0
16749:
16750: qp_debug_util.tstop('PERFORM_SECONDARY_SEARCH');
16751:
16752: EXCEPTION
16753: WHEN E_ROUTINE_ERRORS THEN
16754: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16755: engine_debug(l_routine||': '||l_status_text);
16756: END IF;
16757: x_status_code := FND_API.G_RET_STS_ERROR;
16758: x_status_text := l_routine||': '||l_status_text;
16753: WHEN E_ROUTINE_ERRORS THEN
16754: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16755: engine_debug(l_routine||': '||l_status_text);
16756: END IF;
16757: x_status_code := FND_API.G_RET_STS_ERROR;
16758: x_status_text := l_routine||': '||l_status_text;
16759: WHEN OTHERS THEN
16760: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16761: engine_debug(SQLERRM);
16756: END IF;
16757: x_status_code := FND_API.G_RET_STS_ERROR;
16758: x_status_text := l_routine||': '||l_status_text;
16759: WHEN OTHERS THEN
16760: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16761: engine_debug(SQLERRM);
16762: END IF;
16763: x_status_code := FND_API.G_RET_STS_ERROR;
16764: x_status_text := l_routine||' '||SQLERRM;
16759: WHEN OTHERS THEN
16760: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
16761: engine_debug(SQLERRM);
16762: END IF;
16763: x_status_code := FND_API.G_RET_STS_ERROR;
16764: x_status_text := l_routine||' '||SQLERRM;
16765:
16766: END Perform_Secondary_Search;
16767:
19247:
19248:
19249: BEGIN
19250:
19251: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19252: engine_debug('IN '|| L_ROUTINE);
19253:
19254: END IF;
19255:
19252: engine_debug('IN '|| L_ROUTINE);
19253:
19254: END IF;
19255:
19256: x_status_code := FND_API.G_RET_STS_SUCCESS;
19257:
19258: IF (p_pricing_phase_id <> G_PRICE_LIST_PHASE_ID) THEN -- Only for modifiers ask for list headers/lines
19259:
19260: IF (nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) <> G_YES) THEN -- price book
19266: lq_line_index := -9999;
19267: lq_list_line_id := -9999;
19268:
19269: L_LIST_HEADER_ID := TO_NUMBER(J.VALUE_FROM);
19270: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19271: ENGINE_DEBUG('Asked For List Header ID:'||L_LIST_HEADER_ID || 'Line : ' || J.LINE_INDEX);
19272: END IF;
19273:
19274: qp_debug_util.tstart('L_OTHER_LIST_CUR','Cursor Loop L_OTHER_LIST_CUR');
19279: P_FREEZE_OVERRIDE_FLAG)
19280: LOOP
19281: IF (lq_line_index <> j.line_index OR lq_list_line_id <> k.list_line_id) THEN
19282:
19283: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19284: engine_debug('List line id selected from asked for prom l_other_list_cur : '||K.list_line_id );
19285: END IF;
19286: L_LINE_DETAIL_INDEX := GET_LINE_DETAIL_INDEX;
19287:
19399: lq_line_index := -9999;
19400: lq_list_line_id := -9999;
19401:
19402: L_LIST_LINE_ID := to_number(J.VALUE_FROM);
19403: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19404: ENGINE_DEBUG('Asked For List Line ID:'||L_LIST_LINE_ID || 'Line : ' || J.LINE_INDEX);
19405: ENGINE_DEBUG('Pricing Phase Id:'||p_pricing_phase_id );
19406:
19407: END IF;
19412: L_LIST_LINE_ID,
19413: P_FREEZE_OVERRIDE_FLAG)
19414: LOOP
19415: IF (lq_line_index <> j.line_index OR lq_list_line_id <> k.list_line_id) THEN
19416: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19417: engine_debug('List line id selected from asked for prom l_other_list_cur : '||K.list_line_id );
19418: END IF;
19419: L_LINE_DETAIL_INDEX := GET_LINE_DETAIL_INDEX;
19420:
19567: p_MODIFIER_LEVEL_CODE_TBL =>G_MODIFIER_LEVEL_CODE_TBL_A,
19568: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
19569: x_status_code =>l_status_code,
19570: x_status_text =>l_status_text);
19571: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
19572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19573: END IF;
19574:
19575: END IF;
19568: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
19569: x_status_code =>l_status_code,
19570: x_status_text =>l_status_text);
19571: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
19572: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
19573: END IF;
19574:
19575: END IF;
19576: M:=1;
19583: lq_line_index := -9999;
19584: lq_list_line_id := -9999;
19585:
19586: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
19587: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19588: engine_debug('cursor open l_list_cur_currency-multi-currency TRUE');
19589:
19590: END IF;
19591: OPEN l_list_cur_currency;
19636: G_DERIVED_QUALIFIER_FLAG_TBL_Q.delete; -- Added for TCA
19637: G_PRICE_BREAK_TYPE_CODE_TBL_P.delete;
19638:
19639: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
19640: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19641: engine_debug('cursor l_list_cur_currency-multi-currency TRUE - delete tables');
19642: END IF;
19643: G_CURRENCY_DETAIL_ID_TBL_P.delete; /* sunilpandey */
19644: G_CURRENCY_HEADER_ID_TBL_P.delete; /* vivek */
19648: G_BASE_CURRENCY_CODE_TBL_P.delete; /* vivek */
19649: end if; /* vivek */
19650:
19651: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
19652: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19653: engine_debug('cursor l_list_cur_currency-multi-currency TRUE - bulk fetch');
19654:
19655: END IF;
19656: FETCH l_list_cur_currency BULK COLLECT INTO
19781: G_BREAK_CONTEXT_TBL(M) :=G_BREAK_CONTEXT_TBL_P(I); /* Proration */
19782: G_BREAK_ATTRIBUTE_TBL(M) :=G_BREAK_ATTRIBUTE_TBL_P(I); /* Proration */
19783: if G_MULTI_CURRENCY_PROFILE = 'Y' and
19784: G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
19785: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19786: engine_debug('cursor l_list_cur_currency-multi-currency TRUE - populate tables');
19787: END IF;
19788: G_CURRENCY_DETAIL_ID_TBL(M) := G_CURRENCY_DETAIL_ID_TBL_P(I); /* sunilpandey */
19789: G_CURRENCY_HEADER_ID_TBL(M) := G_CURRENCY_HEADER_ID_TBL_P(I); /* vivek */
19794: end if; /* vivek */
19795: M := M + 1;
19796: lq_line_index := g_line_index_tbl_p(I);
19797: lq_list_line_id := g_list_line_id_tbl_p(I);
19798: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19799: engine_debug('Rounding Factor: ' || g_rounding_factor_tbl_p(i));
19800: END IF;
19801: END IF;
19802:
19864: K:= K+1;
19865: END IF;
19866:
19867: l_loop_count := l_loop_count +1;
19868: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19869: engine_debug('Primary List Validated Search Count : ' || l_loop_count);
19870: END IF;
19871: END LOOP;
19872: END IF ;
19873:
19874: END LOOP;
19875:
19876: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
19877: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19878: engine_debug('cursor close l_list_cur_currency-multi-currency TRUE');
19879: END IF;
19880: CLOSE l_list_cur_currency;
19881:
19888: END IF; -- p_pricing_phase_id <> G_PRICE_LIST_PHASE_ID
19889:
19890: IF M > 1 THEN
19891: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
19892: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
19893: engine_debug('cursor l_list_cur_currency-multi-currency TRUE - insert_ldets2');
19894: END IF;
19895: INSERT_LDETS_PRICE_LIST_MULT( p_LINE_DETAIL_index => G_LINE_DETAIL_INDEX_LD_TBL,
19896: p_LINE_DETAIL_TYPE_CODE => G_LINE_DETAIL_TYPE_CODE_TBL,
20003: END IF;
20004: K:=1;
20005:
20006:
20007: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20008: engine_debug('#100');
20009:
20010: END IF;
20011: IF (p_pricing_phase_id = G_PRICE_LIST_PHASE_ID) THEN
20013: lq_line_index := -9999;
20014: lq_list_line_id := -9999;
20015:
20016: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20017: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20018: engine_debug('cursor open l_list_qual_cur_currency-multi-currency TRUE');
20019: END IF;
20020: OPEN l_list_qual_cur_currency;
20021: qp_debug_util.tstart('L_LIST_QUAL_CUR_CURRENCY','Cursor Loop l_list_qual_cur_currency');
20077: G_BREAK_ATTRIBUTE_TBL_P.delete; /* Proration */
20078: G_PRICE_BREAK_TYPE_CODE_TBL_P.delete; --[julin] for price book
20079:
20080: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20081: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20082: engine_debug('cursor l_list_qual_cur_currency-multi-currency TRUE - delete tables');
20083: END IF;
20084: G_CURRENCY_DETAIL_ID_TBL_P.delete; /* sunilpandey */
20085: G_CURRENCY_HEADER_ID_TBL_P.delete; /* vivek */
20089: G_BASE_CURRENCY_CODE_TBL_P.delete; /* vivek */
20090: end if; /* vivek */
20091:
20092: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20093: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20094: engine_debug('cursor l_list_qual_cur_currency-multi-currency TRUE - bulk collect');
20095:
20096: END IF;
20097: FETCH l_list_qual_cur_currency BULK COLLECT INTO
20212: IF (G_LINE_INDEX_TBL_P.COUNT > 0 ) THEN
20213:
20214: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
20215:
20216: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20217: engine_debug('#101');
20218:
20219: engine_debug('List Line Id : ' || g_list_line_id_tbl_p(I));
20220: engine_debug('Line Index : ' || g_line_index_tbl_P(I));
20221:
20222: END IF;
20223: IF (lq_line_index <> g_line_index_tbl_p(I) OR lq_list_line_id <> g_list_line_id_tbl_p(I)) THEN
20224:
20225: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20226: engine_debug('Inserting List Line #102');
20227:
20228: END IF;
20229: L_LINE_DETAIL_INDEX := GET_LINE_DETAIL_INDEX;
20226: engine_debug('Inserting List Line #102');
20227:
20228: END IF;
20229: L_LINE_DETAIL_INDEX := GET_LINE_DETAIL_INDEX;
20230: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20231: engine_debug('Line Detail Index : ' || l_line_detail_index);
20232:
20233: END IF;
20234: G_LINE_INDEX_LD_TBL(M) :=G_LINE_INDEX_TBL_P(I);
20260: G_BREAK_CONTEXT_TBL(M) :=G_BREAK_CONTEXT_TBL_P(I); /* Proration */
20261: G_BREAK_ATTRIBUTE_TBL(M) :=G_BREAK_ATTRIBUTE_TBL_P(I); /* Proration */
20262: if G_MULTI_CURRENCY_PROFILE = 'Y' and
20263: G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20264: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20265: engine_debug('cursor l_list_qual_cur_currency-multi-currency TRUE - populate tables');
20266: END IF;
20267: G_CURRENCY_DETAIL_ID_TBL(M) := G_CURRENCY_DETAIL_ID_TBL_P(I); /* sunilpandey */
20268: G_CURRENCY_HEADER_ID_TBL(M) := G_CURRENCY_HEADER_ID_TBL_P(I); /* vivek */
20275: lq_line_index := g_line_index_tbl_p(I);
20276: lq_list_line_id := g_list_line_id_tbl_p(I);
20277: END IF;
20278:
20279: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20280: engine_debug('#103');
20281: END IF;
20282: IF (G_CONTEXT_TBL_Q(I) IS NOT NULL) THEN
20283: --Qualifiers attributes
20311: G_PRIMARY_UOM_FLAG_TBL_A(K) := G_PRIMARY_UOM_FLAG_TBL_P(I);
20312: K:= K+1;
20313: END IF;
20314:
20315: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20316: engine_debug('#1031');
20317:
20318: END IF;
20319: --INSERT PRODUCT ATTRIBUTES
20346: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
20347: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
20348: K:= K+1;
20349:
20350: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20351: engine_debug('#105');
20352: END IF;
20353:
20354: --INSERT PRICING ATTRIBUTES
20384: K:= K+1;
20385: END IF;
20386:
20387: l_loop_count := l_loop_count +1;
20388: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20389: engine_debug('Primary List Non Validated Search Count : ' || l_loop_count);
20390: END IF;
20391: END LOOP;
20392: END IF;
20393:
20394: END LOOP;
20395:
20396: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20397: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20398: engine_debug('cursor close l_list_qual_cur_currency-multi-currency TRUE');
20399: END IF;
20400: CLOSE l_list_qual_cur_currency;
20401: qp_debug_util.tstop('L_LIST_QUAL_CUR_CURRENCY');
20407: end if; -- vivek, multi currency installed
20408:
20409: END IF; -- p_pricing_phase_id = G_PRICE_LIST_PHASE_ID
20410:
20411: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20412: engine_debug('#106');
20413:
20414: END IF;
20415: IF M > 1 THEN
20413:
20414: END IF;
20415: IF M > 1 THEN
20416: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
20417: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20418: engine_debug('cursor l_list_qual_cur_currency-multi-currency TRUE - insert_ldets2');
20419:
20420: END IF;
20421: INSERT_LDETS_PRICE_LIST_MULT( p_LINE_DETAIL_index => G_LINE_DETAIL_INDEX_LD_TBL,
20533: IF (l_loop_count <> 0 ) THEN
20534:
20535: Evaluate_Between(p_pricing_phase_id,NULL,NULL,l_return_status , l_status_text);
20536:
20537: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20538: RAISE E_ROUTINE_ERRORS;
20539: END IF;
20540:
20541: -- Check for multiple item categories and customer classes
20540:
20541: -- Check for multiple item categories and customer classes
20542: Eliminate_Multiple_Hierarchies(p_pricing_phase_id,l_return_status,l_status_text);
20543:
20544: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20545: RAISE E_ROUTINE_ERRORS;
20546: END IF;
20547:
20548: --Handle_Excluder(p_pricing_phase_id,NULL,l_return_status,l_status_text);
20547:
20548: --Handle_Excluder(p_pricing_phase_id,NULL,l_return_status,l_status_text);
20549:
20550: Perform_Grouping(p_pricing_phase_id, NULL, l_return_status, l_status_text);
20551: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20552: RAISE E_ROUTINE_ERRORS;
20553: END IF;
20554:
20555: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20551: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20552: RAISE E_ROUTINE_ERRORS;
20553: END IF;
20554:
20555: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20556: engine_debug('Non Validated Price List Grouping Return Status : ' || l_return_status);
20557:
20558:
20559: engine_debug('Calling Incomp Routine in Non Validated Price List');
20568: x_list_line_id => l_list_line_id,
20569: x_return_status => l_return_status,
20570: x_return_status_txt => l_status_text);
20571:
20572: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20573: RAISE E_ROUTINE_ERRORS;
20574: END IF;
20575:
20576: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20572: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20573: RAISE E_ROUTINE_ERRORS;
20574: END IF;
20575:
20576: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20577: engine_debug('Incomp Return Status Non Validated QP_PREQ_GRP: ' || l_return_status);
20578:
20579: END IF;
20580:
20597:
20598: -- Update the request line status for lines which got valid price list
20599: Update_Request_Line_Status(p_control_rec,'SUCCESS',p_freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
20600:
20601: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20602: RAISE E_ROUTINE_ERRORS;
20603: END IF;
20604:
20605: --bug# 2091386 not reflecting the right price on change on UOM on the order line . Since
20608: --after QP_Resolve_Incompatability_PVT.Determine_Pricing_UOM_And_Qty.
20609: --By doing this we will get the right price in the PRICE event on change of UOM on the order line
20610: --for price based on price break
20611: Get_Eligible_Price_Break(p_pricing_phase_id,NULL,l_return_status,l_status_text);
20612: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20613: RAISE E_ROUTINE_ERRORS;
20614: END IF;
20615:
20616:
20617: OPEN l_check_secondary_search;
20618: FETCH l_check_secondary_search INTO l_dummy;
20619:
20620: IF l_check_secondary_search%FOUND THEN
20621: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20622: engine_debug('Trying to Perform Secondary Search ');
20623: END IF;
20624: Perform_Secondary_Search(p_freeze_override_flag,p_control_rec,l_return_status,l_status_text);
20625: END IF;
20633: Delete_Invalid_PBH_Children(J.line_index,G_PRICE_LIST_PHASE_ID);
20634: END IF;
20635: CLOSE l_chk_deleted_pbh_cur;*/
20636: ELSE
20637: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20638: engine_debug('LOOOOOOOOOOOP Count : ' || l_loop_count);
20639: END IF;
20640: -- Update the request line status for lines which got valid price list
20641: Update_Request_Line_Status(p_control_rec,'FAILURE',p_freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
20638: engine_debug('LOOOOOOOOOOOP Count : ' || l_loop_count);
20639: END IF;
20640: -- Update the request line status for lines which got valid price list
20641: Update_Request_Line_Status(p_control_rec,'FAILURE',p_freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
20642: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20643: RAISE E_ROUTINE_ERRORS;
20644: END IF;
20645:
20646: OPEN l_check_secondary_search;
20646: OPEN l_check_secondary_search;
20647: FETCH l_check_secondary_search INTO l_dummy;
20648:
20649: IF l_check_secondary_search%FOUND THEN
20650: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20651: engine_debug('Trying to Perform Secondary Search ');
20652: END IF;
20653: Perform_Secondary_Search(p_freeze_override_flag,p_control_rec,l_return_status,l_status_text);
20654: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20650: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20651: engine_debug('Trying to Perform Secondary Search ');
20652: END IF;
20653: Perform_Secondary_Search(p_freeze_override_flag,p_control_rec,l_return_status,l_status_text);
20654: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
20655: RAISE E_ROUTINE_ERRORS;
20656: END IF;
20657: END IF;
20658: CLOSE l_check_secondary_search;
20665: IF (p_pricing_phase_id = G_PRICE_LIST_PHASE_ID) THEN
20666: OPEN l_check_no_list_passed;
20667: FETCH l_check_no_list_passed INTO l_dummy;
20668:
20669: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20670: engine_debug('DUMMMMMMMMMMMMMMY: ' || l_dummy);
20671:
20672: END IF;
20673: IF l_check_no_list_passed%FOUND THEN
20670: engine_debug('DUMMMMMMMMMMMMMMY: ' || l_dummy);
20671:
20672: END IF;
20673: IF l_check_no_list_passed%FOUND THEN
20674: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20675: engine_debug('DUMMMMMMMMMMMMMMY1000: ' || l_dummy);
20676: END IF;
20677: x_further_search := G_YES;
20678: ELSE
20683: END IF; --p_pricing_phase_id = G_PRICE_LIST_PHASE_ID
20684:
20685: --Reset_all_tbls;
20686: Reset_All_Tbls(l_return_status ,l_status_text );
20687: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
20688: RAISE E_ROUTINE_ERRORS;
20689: END IF;
20690:
20691: EXCEPTION
20689: END IF;
20690:
20691: EXCEPTION
20692: WHEN E_ROUTINE_ERRORS THEN
20693: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20694: engine_debug(l_routine||': '||l_status_text);
20695: END IF;
20696: x_status_code := FND_API.G_RET_STS_ERROR;
20697: x_status_text := l_routine||': '||l_status_text;
20692: WHEN E_ROUTINE_ERRORS THEN
20693: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20694: engine_debug(l_routine||': '||l_status_text);
20695: END IF;
20696: x_status_code := FND_API.G_RET_STS_ERROR;
20697: x_status_text := l_routine||': '||l_status_text;
20698: WHEN E_NO_LIST_FOUND THEN
20699: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20700: engine_debug('No list found for a given item even after secondary fetch');
20695: END IF;
20696: x_status_code := FND_API.G_RET_STS_ERROR;
20697: x_status_text := l_routine||': '||l_status_text;
20698: WHEN E_NO_LIST_FOUND THEN
20699: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20700: engine_debug('No list found for a given item even after secondary fetch');
20701: END IF;
20702: WHEN TOO_MANY_ROWS THEN
20703: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20699: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20700: engine_debug('No list found for a given item even after secondary fetch');
20701: END IF;
20702: WHEN TOO_MANY_ROWS THEN
20703: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20704: engine_debug('In LIST_HEADER_SEARCH procedure');
20705: engine_debug('Conflict in price list detected');
20706: engine_debug(SQLERRM);
20707: END IF;
20706: engine_debug(SQLERRM);
20707: END IF;
20708: null;
20709: WHEN NO_DATA_FOUND THEN
20710: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20711: engine_debug('In LIST_HEADER_SEARCH procedure');
20712: engine_debug('Item is not in the price list');
20713: END IF;
20714: null;
20712: engine_debug('Item is not in the price list');
20713: END IF;
20714: null;
20715: WHEN OTHERS THEN
20716: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20717: engine_debug(l_routine||' '||SQLERRM);
20718: END IF;
20719: x_status_code := FND_API.G_RET_STS_ERROR;
20720: x_status_text := l_routine||' '||SQLERRM;
20715: WHEN OTHERS THEN
20716: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20717: engine_debug(l_routine||' '||SQLERRM);
20718: END IF;
20719: x_status_code := FND_API.G_RET_STS_ERROR;
20720: x_status_text := l_routine||' '||SQLERRM;
20721: END LIST_HEADER_SEARCH;
20722:
20723:
20964: l_null_unique_key VARCHAR2(2000);
20965:
20966: BEGIN
20967:
20968: x_status_code := FND_API.G_RET_STS_SUCCESS;
20969:
20970: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20971: engine_debug('Qualifier Grouping begin');
20972:
20966: BEGIN
20967:
20968: x_status_code := FND_API.G_RET_STS_SUCCESS;
20969:
20970: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20971: engine_debug('Qualifier Grouping begin');
20972:
20973: END IF;
20974: IF (p_line_index_based_flag = G_NO) THEN
20972:
20973: END IF;
20974: IF (p_line_index_based_flag = G_NO) THEN
20975:
20976: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20977: engine_debug('#QG1 Phase');
20978:
20979: END IF;
20980: FOR i IN header_level_qual_attrs_cur LOOP
20978:
20979: END IF;
20980: FOR i IN header_level_qual_attrs_cur LOOP
20981:
20982: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
20983: engine_debug('Header Qualifier Grouping No: ' || i.QUALIFIER_GROUPING_NO);
20984: engine_debug('Passed Hdr Quals : '||i.no_of_qualifiers_in_grp||'Hdr id : '||i.list_header_id);
20985: engine_debug('Header Null Group Count : ' || v_header_null_grp_count);
20986:
21008: OPEN chk_other_hdr_quals_exist_cur(i.list_header_id);
21009: FETCH chk_other_hdr_quals_exist_cur INTO l_other_list_header_id;
21010: CLOSE chk_other_hdr_quals_exist_cur;
21011:
21012: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21013: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
21014:
21015: END IF;
21016: -- If there are no other groups , then it is a failure on pure null group,else it is not
21018: l_other_grp_exists_flag := FALSE;
21019: l_null_unique_key := NULL;
21020: l_hdr_del_ind := l_hdr_del_ind + 1;
21021: l_hdr_del_tbl(l_hdr_del_ind) := i.unique_key;
21022: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21023: engine_debug('Deleted Hdr id : '||i.list_header_id||' Unique Key : ' || i.unique_key);
21024: END IF;
21025: ELSE
21026: --l_null_unique_key := i.unique_key;
21032: OPEN chk_other_hdr_quals_exist_cur(i.list_header_id);
21033: FETCH chk_other_hdr_quals_exist_cur INTO l_other_list_header_id;
21034: CLOSE chk_other_hdr_quals_exist_cur;
21035:
21036: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21037: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
21038: END IF;
21039:
21040: IF (l_other_list_header_id IS NOT NULL) THEN
21037: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
21038: END IF;
21039:
21040: IF (l_other_list_header_id IS NOT NULL) THEN
21041: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21042: engine_debug('Other groups exist');
21043: END IF; -- 4033618
21044: l_other_grp_exists_flag := TRUE;
21045: END IF; -- end 3259922
21046: END IF;
21047:
21048: v_header_null_grp_count := i.NO_OF_QUALIFIERS_IN_GRP;
21049:
21050: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21051: engine_debug('Header Null Group Count : ' || v_header_null_grp_count);
21052:
21053: END IF;
21054: ELSE
21057: IF (i.NO_OF_QUALIFIERS_IN_GRP + v_header_null_grp_count < i.QUALIFIER_GROUP_CNT) THEN
21058: --l_other_grp_satisfied_flag := FALSE; do not make it false if it is already TRUE because some grp is satisfied
21059: l_hdr_del_ind := l_hdr_del_ind + 1;
21060: l_hdr_del_tbl(l_hdr_del_ind) := i.unique_key;
21061: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21062: engine_debug('Deleted Hdr id : '||i.list_header_id|| ' Unique Key : ' || i.unique_key);
21063: END IF;
21064: ELSE
21065: l_other_grp_satisfied_flag := TRUE;
21080: END IF;
21081: END IF;
21082: END IF;
21083:
21084: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21085: engine_debug('#QG2');
21086:
21087: END IF;
21088: IF (l_hdr_del_tbl.count > 0) THEN
21086:
21087: END IF;
21088: IF (l_hdr_del_tbl.count > 0) THEN
21089: FOR m in 1 .. l_hdr_del_tbl.count LOOP
21090: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21091: engine_debug('Deleted Headers : ' || l_hdr_del_tbl(m));
21092: END IF;
21093: END LOOP;
21094: END IF;
21092: END IF;
21093: END LOOP;
21094: END IF;
21095:
21096: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21097: engine_debug('#QG3');
21098:
21099: END IF;
21100: IF (l_hdr_del_tbl.count > 0) THEN
21115:
21116: l_other_grp_exists_flag := FALSE;
21117: l_other_grp_satisfied_flag := FALSE;
21118:
21119: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21120: engine_debug('#QG4');
21121:
21122: END IF;
21123: FOR j IN line_level_qual_attrs_cur LOOP
21121:
21122: END IF;
21123: FOR j IN line_level_qual_attrs_cur LOOP
21124:
21125: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21126: engine_debug('Line Qualifier Grouping No: ' || j.QUALIFIER_GROUPING_NO || ' List Header Id : ' || j.list_header_id);
21127: engine_debug('Passed Line Quals : ' || j.no_of_qualifiers_in_grp || 'List Line id : ' || j.list_line_id);
21128: engine_debug('Line Null Group Count : ' || v_line_null_grp_count);
21129:
21152: OPEN chk_other_line_quals_exist_cur(j.list_line_id);
21153: FETCH chk_other_line_quals_exist_cur INTO l_other_list_line_id;
21154: CLOSE chk_other_line_quals_exist_cur;
21155:
21156: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21157: engine_debug('Other Groups Exist in this Line id : '||l_other_list_line_id);
21158:
21159: END IF;
21160: -- If there are no other groups , then it is a failure on pure null group,else it is not
21162: l_other_grp_exists_flag := FALSE;
21163: l_null_unique_key := NULL;
21164: l_line_del_ind := l_line_del_ind + 1;
21165: l_line_del_tbl(l_line_del_ind) := j.unique_key;
21166: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21167: engine_debug('Deleted Line id : '||j.list_line_id|| ' Unique Key : ' || j.unique_key);
21168: END IF;
21169: ELSE
21170: l_other_grp_exists_flag := TRUE;
21174: --l_null_unique_key := j.unique_key;
21175: END IF;
21176:
21177: v_line_null_grp_count := j.NO_OF_QUALIFIERS_IN_GRP;
21178: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21179: engine_debug('Line Null Group Count : ' || v_line_null_grp_count);
21180:
21181: END IF;
21182: ELSE
21186: --l_other_grp_satisfied_flag := FALSE;
21187: l_line_del_ind := l_line_del_ind + 1;
21188: l_line_del_tbl(l_line_del_ind) := j.unique_key;
21189: --l_line_del_tbl(l_line_del_ind) := j.list_line_id;
21190: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21191: engine_debug('Deleted Line id : '||j.list_line_id|| ' Unique Key : ' || j.unique_key);
21192: END IF;
21193: ELSE
21194: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21190: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21191: engine_debug('Deleted Line id : '||j.list_line_id|| ' Unique Key : ' || j.unique_key);
21192: END IF;
21193: ELSE
21194: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21195: engine_debug('Line Quals for : ' || j.list_header_id || ' ' || j.list_line_id );
21196: END IF;
21197: l_line_level_quals_satisfied := TRUE;
21198: l_other_grp_satisfied_flag := TRUE;
21199: END IF;
21200:
21201: END IF;
21202:
21203: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21204: engine_debug('#QG5');
21205:
21206: END IF;
21207: -- Check if header level quals are satisfied.If there is a hdr lvl qualifier in setup and it is not selected
21206: END IF;
21207: -- Check if header level quals are satisfied.If there is a hdr lvl qualifier in setup and it is not selected
21208: IF (l_line_level_quals_satisfied = TRUE) THEN
21209:
21210: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21211: engine_debug('Line Level Quals Satisfied , but checking whether header level qual satisfied');
21212:
21213: END IF;
21214: IF (j.HEADER_QUALS_EXIST_FLAG = G_YES) THEN
21211: engine_debug('Line Level Quals Satisfied , but checking whether header level qual satisfied');
21212:
21213: END IF;
21214: IF (j.HEADER_QUALS_EXIST_FLAG = G_YES) THEN
21215: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21216: engine_debug('Header level quals exist' );
21217: END IF;
21218: v_list_header_id := NULL;
21219:
21221: FETCH check_hdr_quals_cur INTO v_list_header_id;
21222: CLOSE check_hdr_quals_cur;
21223:
21224: IF (v_list_header_id IS NULL) THEN
21225: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21226: engine_debug('Line Level Quals Not Satisfied , as Header Id is : ' || nvl(v_list_header_id,-99999));
21227: END IF;
21228: l_line_del_ind := l_line_del_ind + 1;
21229: l_line_del_tbl(l_line_del_ind) := j.unique_key;
21226: engine_debug('Line Level Quals Not Satisfied , as Header Id is : ' || nvl(v_list_header_id,-99999));
21227: END IF;
21228: l_line_del_ind := l_line_del_ind + 1;
21229: l_line_del_tbl(l_line_del_ind) := j.unique_key;
21230: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21231: engine_debug('Deleted Line id : '||j.list_line_id|| ' Unique Key : ' || j.unique_key);
21232: END IF;
21233: ELSE
21234: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21230: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21231: engine_debug('Deleted Line id : '||j.list_line_id|| ' Unique Key : ' || j.unique_key);
21232: END IF;
21233: ELSE
21234: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21235: engine_debug('Line Level Quals Satisfied , Header Id : ' || nvl(v_list_header_id,-99999));
21236: END IF;
21237: END IF;
21238: ELSE
21235: engine_debug('Line Level Quals Satisfied , Header Id : ' || nvl(v_list_header_id,-99999));
21236: END IF;
21237: END IF;
21238: ELSE
21239: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21240: engine_debug('Header level quals do not exist' );
21241: END IF;
21242: END IF;
21243:
21258: END IF;
21259: END IF;
21260: END IF;
21261:
21262: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21263: engine_debug('#QG6');
21264:
21265: END IF;
21266: IF (l_line_del_tbl.count > 0 ) THEN
21264:
21265: END IF;
21266: IF (l_line_del_tbl.count > 0 ) THEN
21267: FOR m in 1 .. l_line_del_tbl.count LOOP
21268: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21269: engine_debug('Deleted Lines : ' || l_line_del_tbl(m));
21270: END IF;
21271: END LOOP;
21272: END IF;
21288: l_line_del_ind:=0;
21289:
21290: ELSIF (p_line_index_based_flag = G_YES) THEN
21291:
21292: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21293: engine_debug('#QG1');
21294:
21295: END IF;
21296: FOR i IN hdr_lvl_qual_attrs_req_line LOOP
21294:
21295: END IF;
21296: FOR i IN hdr_lvl_qual_attrs_req_line LOOP
21297:
21298: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21299: engine_debug('Header Qualifier Grouping No: ' || i.QUALIFIER_GROUPING_NO);
21300: engine_debug('Passed Hdr Quals : '||i.no_of_qualifiers_in_grp||'Hdr id : '||i.list_header_id||' Line Indx: '||i.line_index);
21301: engine_debug('Header Null Group Count : ' || v_header_null_grp_count);
21302:
21327: OPEN chk_other_hdr_quals_exist_cur(i.list_header_id);
21328: FETCH chk_other_hdr_quals_exist_cur INTO l_other_list_header_id;
21329: CLOSE chk_other_hdr_quals_exist_cur;
21330:
21331: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21332: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
21333:
21334: END IF;
21335: -- If there are no other groups , then it is a failure on pure null group,else it is not
21337: l_other_grp_exists_flag := FALSE;
21338: l_null_unique_key := NULL;
21339: l_hdr_del_ind := l_hdr_del_ind + 1;
21340: l_hdr_del_tbl(l_hdr_del_ind) := i.unique_key;
21341: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21342: engine_debug('Deleted Hdr id : '||i.list_header_id||' Line Indx: '||i.line_index || ' Unique Key : ' || i.unique_key);
21343: END IF;
21344: ELSE
21345: l_null_unique_key := i.unique_key;
21351: OPEN chk_other_hdr_quals_exist_cur(i.list_header_id);
21352: FETCH chk_other_hdr_quals_exist_cur INTO l_other_list_header_id;
21353: CLOSE chk_other_hdr_quals_exist_cur;
21354:
21355: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21356: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
21357: END IF;
21358:
21359: IF (l_other_list_header_id IS NOT NULL) THEN
21356: engine_debug('Other Groups Exist in this Hdr id : '||l_other_list_header_id);
21357: END IF;
21358:
21359: IF (l_other_list_header_id IS NOT NULL) THEN
21360: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21361: engine_debug('Other groups exist');
21362: END IF; -- 4033618
21363: l_other_grp_exists_flag := TRUE;
21364: END IF; -- end 3273669
21366: END IF;
21367:
21368: v_header_null_grp_count := i.NO_OF_QUALIFIERS_IN_GRP;
21369:
21370: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21371: engine_debug('Header Null Group Count : ' || v_header_null_grp_count);
21372:
21373: END IF;
21374: ELSE
21376: IF (i.NO_OF_QUALIFIERS_IN_GRP + v_header_null_grp_count < i.QUALIFIER_GROUP_CNT) THEN
21377: --l_other_grp_satisfied_flag := FALSE;
21378: l_hdr_del_ind := l_hdr_del_ind + 1;
21379: l_hdr_del_tbl(l_hdr_del_ind) := i.unique_key;
21380: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21381: engine_debug('Deleted Hdr id : '||i.list_header_id||' Line Indx: '||i.line_index || ' Unique Key : ' || i.unique_key);
21382: END IF;
21383: ELSE
21384: l_other_grp_satisfied_flag := TRUE;
21400: END IF;
21401: END IF;
21402: END IF;
21403:
21404: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21405: engine_debug('#QG2');
21406:
21407: END IF;
21408: IF (l_hdr_del_tbl.count > 0) THEN
21406:
21407: END IF;
21408: IF (l_hdr_del_tbl.count > 0) THEN
21409: FOR m in 1 .. l_hdr_del_tbl.count LOOP
21410: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21411: engine_debug('Deleted Headers : ' || l_hdr_del_tbl(m));
21412: END IF;
21413: END LOOP;
21414: END IF;
21412: END IF;
21413: END LOOP;
21414: END IF;
21415:
21416: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21417: engine_debug('#QG3');
21418:
21419: END IF;
21420: IF (l_hdr_del_tbl.count > 0) THEN
21435:
21436: l_other_grp_exists_flag := FALSE;
21437: l_other_grp_satisfied_flag := FALSE;
21438:
21439: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21440: engine_debug('#QG4');
21441:
21442: END IF;
21443: FOR j IN line_lvl_qual_attrs_req_line LOOP
21441:
21442: END IF;
21443: FOR j IN line_lvl_qual_attrs_req_line LOOP
21444:
21445: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21446: engine_debug('Line Qualifier Grouping No: ' || j.QUALIFIER_GROUPING_NO || ' List Header Id : ' || j.list_header_id);
21447: engine_debug('Passed Line Quals : ' || j.no_of_qualifiers_in_grp || 'List Line id : ' || j.list_line_id);
21448: engine_debug('Line Null Group Count : ' || v_line_null_grp_count);
21449:
21473: OPEN chk_other_line_quals_exist_cur(j.list_line_id);
21474: FETCH chk_other_line_quals_exist_cur INTO l_other_list_line_id;
21475: CLOSE chk_other_line_quals_exist_cur;
21476:
21477: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21478: engine_debug('Other Groups Exist in this Line id : '||l_other_list_line_id);
21479:
21480: END IF;
21481: -- If there are no other groups , then it is a failure on pure null group,else it is not
21483: l_other_grp_exists_flag := FALSE;
21484: l_null_unique_key := NULL;
21485: l_line_del_ind := l_line_del_ind + 1;
21486: l_line_del_tbl(l_line_del_ind) := j.unique_key;
21487: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21488: engine_debug('Deleted Line id : '||j.list_line_id||' Line Indx: '||j.line_index || ' Unique Key : ' || j.unique_key);
21489: END IF;
21490: ELSE
21491: l_other_grp_exists_flag := TRUE;
21495: l_null_unique_key := j.unique_key;
21496: END IF;
21497:
21498: v_line_null_grp_count := j.NO_OF_QUALIFIERS_IN_GRP;
21499: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21500: engine_debug('Line Null Group Count : ' || v_line_null_grp_count);
21501:
21502: END IF;
21503: ELSE
21506: --l_other_grp_satisfied_flag := FALSE;
21507: l_line_del_ind := l_line_del_ind + 1;
21508: l_line_del_tbl(l_line_del_ind) := j.unique_key;
21509: --l_line_del_tbl(l_line_del_ind) := j.list_line_id;
21510: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21511: engine_debug('Deleted Line id : '||j.list_line_id||' Line Indx: '||j.line_index || ' Unique Key : ' || j.unique_key);
21512: END IF;
21513: ELSE
21514: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21510: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21511: engine_debug('Deleted Line id : '||j.list_line_id||' Line Indx: '||j.line_index || ' Unique Key : ' || j.unique_key);
21512: END IF;
21513: ELSE
21514: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21515: engine_debug('Line Quals for : ' || j.list_header_id || ' ' || j.list_line_id );
21516: END IF;
21517: l_line_level_quals_satisfied := TRUE;
21518: l_other_grp_satisfied_flag := TRUE;
21519: END IF;
21520:
21521: END IF;
21522:
21523: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21524: engine_debug('#QG5');
21525:
21526: END IF;
21527: -- Check if header level quals are satisfied.If there is a hdr lvl qualifier in setup and it is not selected
21526: END IF;
21527: -- Check if header level quals are satisfied.If there is a hdr lvl qualifier in setup and it is not selected
21528: IF (l_line_level_quals_satisfied = TRUE) THEN
21529:
21530: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21531: engine_debug('Line Level Quals Satisfied , but checking whether header level qual satisfied');
21532:
21533: END IF;
21534: IF (j.HEADER_QUALS_EXIST_FLAG = G_YES) THEN
21531: engine_debug('Line Level Quals Satisfied , but checking whether header level qual satisfied');
21532:
21533: END IF;
21534: IF (j.HEADER_QUALS_EXIST_FLAG = G_YES) THEN
21535: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21536: engine_debug('Header level quals exist' );
21537: END IF;
21538: v_list_header_id := NULL;
21539:
21541: FETCH check_hdr_quals_cur_req_line INTO v_list_header_id;
21542: CLOSE check_hdr_quals_cur_req_line;
21543:
21544: IF (v_list_header_id IS NULL) THEN
21545: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21546: engine_debug('Line Level Quals Not Satisfied , as Header Id is : ' || nvl(v_list_header_id,-99999));
21547: END IF;
21548: l_line_del_ind := l_line_del_ind + 1;
21549: l_line_del_tbl(l_line_del_ind) := j.unique_key;
21546: engine_debug('Line Level Quals Not Satisfied , as Header Id is : ' || nvl(v_list_header_id,-99999));
21547: END IF;
21548: l_line_del_ind := l_line_del_ind + 1;
21549: l_line_del_tbl(l_line_del_ind) := j.unique_key;
21550: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21551: engine_debug('Deleted Line id : '||j.list_line_id||' Line Indx: '||j.line_index || ' Unique Key : ' || j.unique_key);
21552: END IF;
21553: ELSE
21554: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21550: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21551: engine_debug('Deleted Line id : '||j.list_line_id||' Line Indx: '||j.line_index || ' Unique Key : ' || j.unique_key);
21552: END IF;
21553: ELSE
21554: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21555: engine_debug('Line Level Quals Satisfied , Header Id : ' || nvl(v_list_header_id,-99999));
21556: END IF;
21557: END IF;
21558:
21556: END IF;
21557: END IF;
21558:
21559: ELSE
21560: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21561: engine_debug('Header level quals do not exist' );
21562: END IF;
21563: END IF;
21564:
21572: END LOOP;
21573:
21574: -- 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
21575:
21576: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21577: engine_debug ('#1000');
21578: END IF;
21579: IF (l_other_grp_exists_flag = TRUE) THEN
21580: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21576: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21577: engine_debug ('#1000');
21578: END IF;
21579: IF (l_other_grp_exists_flag = TRUE) THEN
21580: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21581: engine_debug ('#1001');
21582: END IF;
21583: IF (l_other_grp_satisfied_flag = FALSE) THEN
21584: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21580: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21581: engine_debug ('#1001');
21582: END IF;
21583: IF (l_other_grp_satisfied_flag = FALSE) THEN
21584: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21585: engine_debug ('#1002');
21586: END IF;
21587: IF (l_null_unique_key IS NOT NULL) THEN
21588: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21584: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21585: engine_debug ('#1002');
21586: END IF;
21587: IF (l_null_unique_key IS NOT NULL) THEN
21588: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21589: engine_debug ('#1003');
21590: engine_debug ('Null Unique Key : ' || l_null_unique_key);
21591: END IF;
21592: l_line_del_ind := l_line_del_ind + 1;
21595: END IF;
21596: END IF;
21597:
21598:
21599: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21600: engine_debug('#QG6');
21601:
21602: END IF;
21603: IF (l_line_del_tbl.count > 0 ) THEN
21601:
21602: END IF;
21603: IF (l_line_del_tbl.count > 0 ) THEN
21604: FOR m in 1 .. l_line_del_tbl.count LOOP
21605: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21606: engine_debug('Deleted Lines : ' || l_line_del_tbl(m));
21607: END IF;
21608: END LOOP;
21609: END IF;
21627: END IF;
21628:
21629: EXCEPTION
21630: WHEN OTHERS THEN
21631: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21632: engine_debug(SQLERRM);
21633: END IF;
21634: x_status_code:= FND_API.G_RET_STS_ERROR;
21635: x_status_text:= 'In perform qualifier grouping '||SQLERRM;
21630: WHEN OTHERS THEN
21631: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
21632: engine_debug(SQLERRM);
21633: END IF;
21634: x_status_code:= FND_API.G_RET_STS_ERROR;
21635: x_status_text:= 'In perform qualifier grouping '||SQLERRM;
21636: END Perform_Qualifier_Grouping;
21637:
21638: /*+----------------------------------------------------------
23221: nROWS CONSTANT NUMBER := 1000;
23222:
23223: BEGIN
23224:
23225: x_status_code := FND_API.G_RET_STS_SUCCESS;
23226: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23227: engine_debug('Before Big Select');
23228:
23229: END IF;
23222:
23223: BEGIN
23224:
23225: x_status_code := FND_API.G_RET_STS_SUCCESS;
23226: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23227: engine_debug('Before Big Select');
23228:
23229: END IF;
23230: --hw
23233: IF nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) = G_YES THEN
23234: l_satis_quals_opt := 'N';
23235: END IF;
23236:
23237: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23238: engine_debug('QP_SATIS_QUALS_OPT: ' || l_satis_quals_opt);
23239:
23240: END IF;
23241: --l_prod_qual_count := 0;
23240: END IF;
23241: --l_prod_qual_count := 0;
23242: l_prod_cur_count := 0;
23243:
23244: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23245: engine_debug('Caching Header Qualifiers for phase : ' || p_pricing_phase_id);
23246: END IF;
23247: qp_debug_util.tstart('CACHE_HEADER_QUALIFIERS','Caching the header qualifiers');
23248: Cache_Header_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
23246: END IF;
23247: qp_debug_util.tstart('CACHE_HEADER_QUALIFIERS','Caching the header qualifiers');
23248: Cache_Header_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
23249: qp_debug_util.tstop('CACHE_HEADER_QUALIFIERS');
23250: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23251: RAISE E_ROUTINE_ERRORS;
23252: END IF;
23253:
23254: --Added call for 3520634
23254: --Added call for 3520634
23255: qp_debug_util.tstart('DELETE_HDRS_WITH_NO_PRODATTR','Deleting the headers with no product attribute');
23256: Delete_Hdrs_With_No_ProdAttr(p_pricing_phase_id,l_status_code,l_status_text);
23257: qp_debug_util.tstop('DELETE_HDRS_WITH_NO_PRODATTR');
23258: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23259: RAISE E_ROUTINE_ERRORS;
23260: END IF;
23261:
23262:
23259: RAISE E_ROUTINE_ERRORS;
23260: END IF;
23261:
23262:
23263: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23264: engine_debug('Caching Line Qualifiers for satisfied headers and pure line quals for phase : ' || p_pricing_phase_id);
23265: END IF;
23266: qp_debug_util.tstart('CACHE_LINE_QUALIFIERS','Caching the Line qualifiers');
23267: Cache_Line_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
23265: END IF;
23266: qp_debug_util.tstart('CACHE_LINE_QUALIFIERS','Caching the Line qualifiers');
23267: Cache_Line_Qualifiers(p_pricing_phase_id,l_status_code,l_status_text);
23268: qp_debug_util.tstop('CACHE_LINE_QUALIFIERS');
23269: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23270: RAISE E_ROUTINE_ERRORS;
23271: END IF;
23272:
23273: IF (G_QUALIFIER_TEMP <> 'E' OR G_LINE_QUALIFIER_TEMP <> 'E') THEN
23270: RAISE E_ROUTINE_ERRORS;
23271: END IF;
23272:
23273: IF (G_QUALIFIER_TEMP <> 'E' OR G_LINE_QUALIFIER_TEMP <> 'E') THEN
23274: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23275: engine_debug('Caching Qualifiers for phase : ' || p_pricing_phase_id || ' Successful');
23276: END IF;
23277: -- For each primary search list header , list line and qualifier grouping no
23278: /*
23282: from qp_preq_qual_tmp
23283: where pricing_status_code = G_STATUS_UNCHANGED
23284: and pricing_phase_id = p_pricing_phase_id
23285: order by list_header_id,list_line_id,qualifier_grouping_no) LOOP
23286: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23287: engine_debug('Executing Mini Caching Qualifiers for phase : ' || p_pricing_phase_id ||
23288: 'List Header id : ' || c1.list_header_id || ' List Line Id : ' || c1.list_line_id ||
23289: 'Grouping No: ' || c1.qualifier_grouping_no);
23290: END IF;
23289: 'Grouping No: ' || c1.qualifier_grouping_no);
23290: END IF;
23291: Mini_Cache_Qualifiers(c1.list_header_id , c1.list_line_id , c1.qualifier_grouping_no,
23292: p_pricing_phase_id,l_status_code,l_status_text);
23293: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23294: RAISE E_ROUTINE_ERRORS;
23295: END IF;
23296: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23297: engine_debug('Executing Mini Caching Qualifiers for phase : ' || p_pricing_phase_id || ' Successful');
23292: p_pricing_phase_id,l_status_code,l_status_text);
23293: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23294: RAISE E_ROUTINE_ERRORS;
23295: END IF;
23296: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23297: engine_debug('Executing Mini Caching Qualifiers for phase : ' || p_pricing_phase_id || ' Successful');
23298: END IF;
23299: END LOOP; */
23300:
23309: IF (l_dummy = 'x') THEN --Added if clause for 3520634
23310: qp_debug_util.tstart('MINI_CACHE_QUALIFIERS','Caching the qualifiers with search_ind=2');
23311: Mini_Cache_Qualifiers(-999 , -999 , -999, p_pricing_phase_id,l_status_code,l_status_text);
23312: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
23313: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23314: RAISE E_ROUTINE_ERRORS;
23315: END IF;
23316: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23317: engine_debug('Executing Mini Caching Qualifiers for phase : ' || p_pricing_phase_id || ' Successful');
23312: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
23313: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23314: RAISE E_ROUTINE_ERRORS;
23315: END IF;
23316: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23317: engine_debug('Executing Mini Caching Qualifiers for phase : ' || p_pricing_phase_id || ' Successful');
23318:
23319: END IF;
23320: END IF;
23322: qp_debug_util.tstart('MINI_CACHE_QUALIFIERS', 'Performing the Qualifier Grouping');
23323: Perform_Qualifier_Grouping(G_NO,p_pricing_phase_id,l_status_code,l_status_text);
23324: qp_debug_util.tstop('MINI_CACHE_QUALIFIERS');
23325:
23326: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23327: RAISE E_ROUTINE_ERRORS;
23328: END IF;
23329:
23330: --hw
23331: --if QP_PERF_PVT.enabled = 'Y' then
23332: --if l_perf_pvt_enabled = 'Y' then
23333: /*
23334:
23335: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23336: engine_debug('hw: l_get_line_index_for_quals_n path');
23337:
23338: END IF;
23339: -- update null group count
23366: where qpqt1.pricing_phase_id = p_pricing_phase_id
23367: and qpqt1.pricing_status_code = G_STATUS_UNCHANGED
23368: and qpqt1.qualifier_grouping_no <> -1;
23369:
23370: IF (G_DEBUG_ENGINE = FND_API.G_TRUE) THEN
23371: for i in (select list_header_id,list_line_id,qualifier_grouping_no,null_group_cnt,other_group_cnt,search_ind,
23372: qualifier_group_cnt,others_group_cnt,qualifier_attribute_context,qualifier_attribute,qualifier_attribute_value
23373: from qp_preq_qual_tmp
23374: where pricing_phase_id = p_pricing_phase_id
23474: , G_ACTIVE_DATE_SEC_TYPE_TBL_Q
23475: , G_HEADER_LIMIT_EXISTS_TBL_Q LIMIT nROWS;
23476: EXIT WHEN G_LIST_HEADER_ID_TBL_Q.COUNT = 0;
23477:
23478: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23479: engine_debug('Inserting no rows into qp_preq_qual_tmp for each line index');
23480: END IF;
23481: IF (G_LIST_HEADER_ID_TBL_Q.COUNT > 0) THEN
23482:
23480: END IF;
23481: IF (G_LIST_HEADER_ID_TBL_Q.COUNT > 0) THEN
23482:
23483: --G_QUALIFIER_TEMP := G_QUALIFIER_TEMP_UPDATED;
23484: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23485: engine_debug('Inserting rows into qp_preq_qual_tmp for each line index: ' || G_LIST_HEADER_ID_TBL_Q.COUNT);
23486:
23487: END IF;
23488: INSERT_QUAL(
23535: */
23536:
23537: /* else */
23538:
23539: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23540: engine_debug('hw: l_get_line_index_for_quals path');
23541: END IF;
23542:
23543: OPEN l_get_line_index_for_quals;
23627: , G_HEADER_LIMIT_EXISTS_TBL_Q
23628: , G_DERIVED_QUALIFIER_FLAG_TBL_Q LIMIT nROWS; -- Added for TCA
23629: EXIT WHEN G_LIST_HEADER_ID_TBL_Q.COUNT = 0;
23630:
23631: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23632: engine_debug('Inserting no rows into qp_preq_qual_tmp for each line index');
23633: END IF;
23634: IF (G_LIST_HEADER_ID_TBL_Q.COUNT > 0) THEN
23635:
23633: END IF;
23634: IF (G_LIST_HEADER_ID_TBL_Q.COUNT > 0) THEN
23635:
23636: --G_QUALIFIER_TEMP := G_QUALIFIER_TEMP_UPDATED;
23637: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23638: engine_debug('Inserting rows into qp_preq_qual_tmp for each line index: ' || G_LIST_HEADER_ID_TBL_Q.COUNT);
23639: END IF;
23640: INSERT_QUAL(
23641: G_LIST_HEADER_ID_TBL_Q
23689: Perform_Qualifier_Grouping(G_YES,p_pricing_phase_id,l_status_code,l_status_text);
23690:
23691: /* end if; */
23692:
23693: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
23694: RAISE E_ROUTINE_ERRORS;
23695: END IF;
23696:
23697: END IF; --IF (G_QUALIFIER_TEMP <> 'E' OR G_LINE_QUALIFIER_TEMP <> 'E') THEN
23699: OPEN l_prod_qual_cur (p_pricing_phase_id, -99,-99,-99);
23700: qp_debug_util.tstart('L_PROD_QUAL_CUR','Cursor Loop l_prod_qual_cur');
23701:
23702: LOOP
23703: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23704: engine_debug('In l_prod_qual_cur loop fetch');
23705: END IF;
23706: G_LIST_HEADER_ID_TBL_P.delete;
23707: G_LIST_LINE_ID_TBL_P.delete;
23799:
23800: IF (G_LINE_INDEX_TBL_P.COUNT > 0) THEN
23801: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
23802:
23803: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23804: engine_debug(' Prod Qual List line id selected from big select: '||G_LIST_LINE_ID_TBL_P(I));
23805:
23806: END IF;
23807: IF (lq_line_index <> G_LINE_INDEX_TBL_P(I) OR lq_list_line_id <> G_LIST_LINE_ID_TBL_P(I)) THEN
23863: --4029027 commented out by 4455344/4489224
23864: --bug 4029027
23865: --IF (l_satis_quals_opt <> 'N' or (l_satis_quals_opt = 'N' and g_context_tbl_p(i) <> G_QUALIFIER_TYPE)) THEN
23866:
23867: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23868: engine_debug(' #2 ' );
23869: END IF;
23870: --PRODUCT ATTRIBUTES
23871: G_LINE_INDEX_tbl(K) :=G_LINE_INDEX_TBL_P(I);
23898: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
23899: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
23900: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
23901: K:= K+1;
23902: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23903: engine_debug('The value of K : ' || K);
23904: END IF;
23905:
23906: IF l_satis_quals_opt = 'Y' THEN -- [4455344/4489224] {
23905:
23906: IF l_satis_quals_opt = 'Y' THEN -- [4455344/4489224] {
23907: IF (l_satisfied_list_header_id <> -9999) THEN
23908:
23909: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23910: engine_debug('Qualifiers for List Header Id : ' || l_satisfied_list_header_id );
23911: engine_debug('Qualifiers for List Line Id : ' || l_satisfied_lst_line_id );
23912:
23913: END IF;
23915: qp_debug_util.tstart('L_GET_SATISFIED_QUALS','Cursor Loop L_GET_SATISFIED_QUALS');
23916:
23917: FOR V IN l_get_satisfied_quals(l_satisfied_list_header_id,l_satisfied_lst_line_id, l_satisfied_line_indx)
23918: LOOP
23919: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23920: engine_debug(' Qual #3 ' );
23921: END IF;
23922: --Qualifier attributes
23923: G_LINE_INDEX_tbl(K) :=l_satisfied_line_indx;
23951: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=l_satisfied_modifier_lvl_code;
23952: G_PRIMARY_UOM_FLAG_TBL_A(K) :=l_satisfied_primary_uom_flag;
23953: K:= K+1;
23954:
23955: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23956: engine_debug('The value of K : ' || K);
23957: engine_debug('Qualifier Context : ' || v.qualifier_attribute_context);
23958: engine_debug('Qualifier Attribute : ' || v.qualifier_attribute);
23959: engine_debug('Qualifier Value : ' || v.qualifier_attribute_value);
23990: OPEN l_prod_qual_pric_cur(p_pricing_phase_id, -99,-99,-99) ;
23991:
23992: qp_debug_util.tstart('L_PROD_QUAL_PRIC_CUR','Cursor Loop l_prod_qual_pric_cur');
23993: LOOP
23994: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
23995: engine_debug('In l_prod_qual_pric_cur loop fetch');
23996: END IF;
23997: G_LIST_HEADER_ID_TBL_P.delete;
23998: G_LIST_LINE_ID_TBL_P.delete;
24107:
24108: IF (G_LINE_INDEX_TBL_P.COUNT > 0) THEN
24109: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
24110:
24111: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24112: engine_debug(' Prod Qual Pric List line id selected from big select: '||G_LIST_LINE_ID_TBL_P(I) );
24113: engine_debug(' #1');
24114: END IF;
24115:
24113: engine_debug(' #1');
24114: END IF;
24115:
24116:
24117: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24118: engine_debug(' #2');
24119:
24120: END IF;
24121: IF (lq_line_index <> G_LINE_INDEX_TBL_P(I) OR lq_list_line_id <> G_LIST_LINE_ID_TBL_P(I)) THEN
24160: G_ACCUM_CONTEXT_TBL(M) :=G_ACCUM_CONTEXT_TBL_P(I); -- accum range break
24161: G_ACCUM_ATTRIBUTE_TBL(M) :=G_ACCUM_ATTRIBUTE_TBL_P(I); -- accum range break
24162: G_ACCUM_FLAG_TBL(M) :=G_ACCUM_FLAG_TBL_P(I); -- accum range break
24163: M:=M+1;
24164: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24165: engine_debug(' #4');
24166: END IF;
24167: l_satisfied_list_header_id := G_LIST_HEADER_ID_TBL_P(I);
24168: l_satisfied_lst_line_id := G_LIST_LINE_ID_TBL_P(I);
24211: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
24212: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
24213: K:= K+1;
24214:
24215: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24216: engine_debug('The value of K : ' || K);
24217: END IF;
24218:
24219: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24215: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24216: engine_debug('The value of K : ' || K);
24217: END IF;
24218:
24219: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24220: engine_debug(' #5');
24221:
24222: END IF;
24223: --INSERT PRICING ATTRIBUTES
24252: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
24253: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
24254: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
24255: K:= K+1;
24256: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24257: engine_debug('The value of K : ' || K);
24258: END IF;
24259: END IF;
24260:
24259: END IF;
24260:
24261: IF (l_satisfied_list_header_id <> -9999) THEN
24262:
24263: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24264: engine_debug('Qualifiers for List Header Id : ' || l_satisfied_list_header_id );
24265: engine_debug('Qualifiers for List Line Id : ' || l_satisfied_lst_line_id );
24266:
24267: END IF;
24266:
24267: END IF;
24268: FOR V IN l_get_satisfied_quals(l_satisfied_list_header_id,l_satisfied_lst_line_id, l_satisfied_line_indx)
24269: LOOP
24270: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24271: engine_debug(' Qual #3 ' );
24272: END IF;
24273: --Qualifier attributes
24274: G_LINE_INDEX_tbl(K) :=l_satisfied_line_indx;
24302: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=l_satisfied_modifier_lvl_code;
24303: G_PRIMARY_UOM_FLAG_TBL_A(K) :=l_satisfied_primary_uom_flag;
24304: K:= K+1;
24305:
24306: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24307: engine_debug('The value of K : ' || K);
24308: engine_debug('Qualifier Context : ' || v.qualifier_attribute_context);
24309: engine_debug('Qualifier Attribute : ' || v.qualifier_attribute);
24310: engine_debug('Qualifier Value : ' || v.qualifier_attribute_value);
24335:
24336: OPEN l_inner_qual_cur (p_pricing_phase_id, -99,-99,-99,NULL,NULL,NULL,NULL);
24337: qp_debug_util.tstart('L_INNER_QUAL_CUR','Cursor Loop L_INNER_QUAL_CUR');
24338: LOOP
24339: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24340: engine_debug('In l_inner_qual_cur loop fetch');
24341:
24342: END IF;
24343: G_LIST_HEADER_ID_TBL_Q.delete;
24410: G_ACCUM_FLAG_TBL_P LIMIT nROWS;
24411:
24412: EXIT WHEN G_LINE_INDEX_TBL_Q.COUNT = 0;
24413:
24414: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24415: engine_debug(' In l_inner_qual_cur Count : '||G_LIST_LINE_ID_TBL_Q.count );
24416:
24417: END IF;
24418: IF (G_LINE_INDEX_TBL_Q.COUNT > 0) THEN
24416:
24417: END IF;
24418: IF (G_LINE_INDEX_TBL_Q.COUNT > 0) THEN
24419: FOR I in G_LINE_INDEX_TBL_Q.FIRST .. G_LINE_INDEX_TBL_Q.LAST LOOP
24420: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24421: engine_debug(' In l_inner_qual_cur : '||G_LIST_LINE_ID_TBL_Q(I) );
24422:
24423: END IF;
24424: IF (lq_line_index <> G_LINE_INDEX_TBL_Q(I) OR lq_list_line_id <> G_LIST_LINE_ID_TBL_Q(I)) THEN
24478: if l_satis_quals_opt <> 'N' then
24479:
24480: IF (l_satisfied_list_header_id <> -9999) THEN
24481:
24482: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24483: engine_debug('Qualifiers for List Header Id : ' || l_satisfied_list_header_id );
24484: engine_debug('Qualifiers for List Line Id : ' || l_satisfied_lst_line_id );
24485:
24486: END IF;
24485:
24486: END IF;
24487: FOR V IN l_get_satisfied_quals(l_satisfied_list_header_id,l_satisfied_lst_line_id, l_satisfied_line_indx)
24488: LOOP
24489: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24490: engine_debug(' Qual #3 ' );
24491: END IF;
24492: --Qualifier attributes
24493: G_LINE_INDEX_tbl(K) :=l_satisfied_line_indx;
24521: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=l_satisfied_modifier_lvl_code;
24522: G_PRIMARY_UOM_FLAG_TBL_A(K) :=l_satisfied_primary_uom_flag;
24523: K:= K+1;
24524:
24525: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24526: engine_debug('The value of K : ' || K);
24527: engine_debug('Qualifier Context : ' || v.qualifier_attribute_context);
24528: engine_debug('Qualifier Attribute : ' || v.qualifier_attribute);
24529: engine_debug('Qualifier Value : ' || v.qualifier_attribute_value);
24554: lq_line_index := -9999;
24555: lq_list_line_id := -9999;
24556:
24557: --selecting lists that match product qttributes only
24558: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24559: engine_debug('Before l_prod_cur_mod');
24560: END IF;
24561: OPEN l_prod_cur(p_pricing_phase_id);
24562: qp_debug_util.tstart('L_PROD_CUR','Cursor Loop L_PROD_CUR');
24660: EXIT WHEN G_LINE_INDEX_TBL_P.COUNT = 0;
24661:
24662: IF (G_LINE_INDEX_TBL_P.COUNT > 0) THEN
24663: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
24664: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24665: engine_debug('Before dup tbl loop');
24666: END IF;
24667:
24668: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24664: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24665: engine_debug('Before dup tbl loop');
24666: END IF;
24667:
24668: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24669: engine_debug('List line id selected from l_prod_cur_mod: '||g_list_line_id_TBL_P(I));
24670: engine_debug('Excluder Flag selected from big select1: '||g_excluder_flag_TBL_P(I));
24671:
24672: END IF;
24745: G_NO_QUALIFIERS_IN_GRP_tbl(K) :=NULL;
24746: G_PRICING_STATUS_TEXT_tbl(K) :='PRODUCT_ONLY';
24747: G_QUALIFIER_PRECEDENCE_tbl(K) :=G_QUALIFIER_PRECEDENCE_TBL_P(I);
24748: G_DATATYPE_tbl(K) :=NULL;
24749: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24750: engine_debug('Before Insert Excluder Flag selected from big select1: '||g_excluder_flag_TBL_P(I));
24751: END IF;
24752: G_EXCLUDER_FLAG_TBL(K) :=G_EXCLUDER_FLAG_TBL_P(I);
24753: G_PRODUCT_UOM_CODE_TBL(K) :=G_PRODUCT_UOM_CODE_TBL_P(I);
24757: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
24758: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
24759: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
24760: K:= K+1;
24761: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24762: engine_debug('The value of K : ' || K);
24763: END IF;
24764:
24765: -- end if; [4455344/4489224]
24770:
24771: qp_debug_util.tstop('L_PROD_CUR');
24772:
24773: CLOSE l_prod_cur;
24774: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24775: engine_debug('After l_prod_cur_mod');
24776:
24777: END IF;
24778: lq_line_index := -9999;
24777: END IF;
24778: lq_line_index := -9999;
24779: lq_list_line_id := -9999;
24780:
24781: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24782: engine_debug('Before l_prod_pric_cur_mod');
24783: END IF;
24784: OPEN l_prod_pric_cur(p_pricing_phase_id);
24785:
24904:
24905: --selecting lists that match product and pricing attributes only
24906: IF (G_LINE_INDEX_TBL_P.COUNT > 0) THEN
24907: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
24908: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24909: engine_debug('List line id selected from l_prod_pric_cur_mod: '||G_LIST_LINE_ID_TBL_P(I) );
24910: END IF;
24911: IF (lq_line_index <> g_line_index_tbl_p(I) OR lq_list_line_id <> g_list_line_id_tbl_p(I)) THEN
24912: L_LINE_DETAIL_INDEX := GET_LINE_DETAIL_INDEX;
24993: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
24994: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
24995: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
24996: K:= K+1;
24997: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
24998: engine_debug('The value of K : ' || K);
24999:
25000: END IF;
25001: --INSERT PRICING ATTRIBUTES
25030: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
25031: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
25032: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
25033: K:= K+1;
25034: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25035: engine_debug('The value of K : ' || K);
25036: END IF;
25037: END IF;
25038:
25044:
25045: qp_debug_util.tstop('L_PROD_PRIC_CUR');
25046:
25047: CLOSE l_prod_pric_cur;
25048: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25049: engine_debug('After l_prod_pric_cur_mod');
25050:
25051: END IF;
25052: IF(G_BLIND_DISCOUNT_PROFILE = G_YES) THEN
25049: engine_debug('After l_prod_pric_cur_mod');
25050:
25051: END IF;
25052: IF(G_BLIND_DISCOUNT_PROFILE = G_YES) THEN
25053: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25054: engine_debug('In blind discount mode');
25055:
25056: END IF;
25057: lq_line_index := -9999;
25057: lq_line_index := -9999;
25058: lq_list_line_id := -9999;
25059:
25060: --Select the lists that are good for anything
25061: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25062: engine_debug('Before blind cursor');
25063: END IF;
25064: OPEN l_cur(p_pricing_phase_id);
25065:
25139:
25140: IF (G_LINE_INDEX_TBL_B.COUNT > 0) THEN
25141: FOR I in G_LINE_INDEX_TBL_B.FIRST .. G_LINE_INDEX_TBL_B.LAST LOOP
25142:
25143: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25144: engine_debug('List line id selected from blind cur: '||G_LIST_LINE_ID_TBL_B(I) );
25145: END IF;
25146: IF (lq_line_index <> g_line_index_tbl_b(I) OR lq_list_line_id <> g_list_line_id_tbl_b(I)) THEN
25147: l_line_detail_index :=GET_LINE_DETAIL_INDEX;
25144: engine_debug('List line id selected from blind cur: '||G_LIST_LINE_ID_TBL_B(I) );
25145: END IF;
25146: IF (lq_line_index <> g_line_index_tbl_b(I) OR lq_list_line_id <> g_list_line_id_tbl_b(I)) THEN
25147: l_line_detail_index :=GET_LINE_DETAIL_INDEX;
25148: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25149: engine_debug('Getting new line detail index2 '||l_line_detail_index);
25150: END IF;
25151:
25152: G_LINE_INDEX_LD_TBL(M) :=G_LINE_INDEX_TBL_B(I);
25201: qp_debug_util.tstop('L_CUR');
25202:
25203: CLOSE l_cur;
25204: END IF; --for blind discount
25205: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25206: engine_debug('After blind cursor');
25207:
25208:
25209: END IF;
25206: engine_debug('After blind cursor');
25207:
25208:
25209: END IF;
25210: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
25211: --RAISE OTHERS;
25212: NULL;
25213: END IF;
25214:
25214:
25215: -- Keep it for debugging purposes
25216: /* FOR Z In 1 .. g_line_detail_index_ld_tbl.count
25217: Loop
25218: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25219: engine_debug( '1: ' || G_LINE_DETAIL_INDEX_LD_TBL(Z));
25220: engine_debug( '2: ' || G_LINE_DETAIL_TYPE_CODE_TBL(Z));
25221: engine_debug( '3: ' || G_PRICE_BREAK_TYPE_CODE_TBL(Z));
25222: engine_debug( '5: ' || G_LINE_INDEX_LD_TBL(Z) );
25307:
25308: END IF;
25309:
25310: IF K > 1 THEN
25311: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25312: engine_debug('hw: k = ' || k);
25313: END IF;
25314: INSERT_LINE_ATTRS2
25315: ( p_LINE_INDEX_tbl =>G_LINE_INDEX_tbl,
25344: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
25345: x_status_code =>l_status_code,
25346: x_status_text =>l_status_text);
25347:
25348: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
25349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
25350: END IF;
25351:
25352: END IF;
25345: x_status_code =>l_status_code,
25346: x_status_text =>l_status_text);
25347:
25348: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
25349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
25350: END IF;
25351:
25352: END IF;
25353:
25350: END IF;
25351:
25352: END IF;
25353:
25354: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25355: engine_debug('Before Inserting attributes in excluded cursor');
25356:
25357: END IF;
25358: K := 1;
25434:
25435: IF (G_LINE_INDEX_TBL_P.COUNT > 0) THEN
25436: FOR I in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST LOOP
25437: --INSERT PRODUCT ATTRIBUTES
25438: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25439: engine_debug('Inserting attributes in excluded cursor : ' || G_LINE_INDEX_TBL_P(I));
25440: END IF;
25441: G_LINE_INDEX_tbl(K) := G_LINE_INDEX_TBL_P(I);
25442: G_ATTRIBUTE_LEVEL_tbl(K) := G_ATTRIBUTE_LEVEL_TBL_P(I);
25508: p_MODIFIER_LEVEL_CODE_TBL =>G_MODIFIER_LEVEL_CODE_TBL_A,
25509: p_PRIMARY_UOM_FLAG_TBL =>G_PRIMARY_UOM_FLAG_TBL_A,
25510: x_status_code =>l_status_code,
25511: x_status_text =>l_status_text);
25512: IF l_status_code = FND_API.G_RET_STS_ERROR THEN
25513: RAISE E_ROUTINE_ERRORS;
25514: END IF;
25515:
25516: END IF;
25516: END IF;
25517:
25518: --Reset_all_tbls;
25519: Reset_All_Tbls(l_status_code ,l_status_text );
25520: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
25521: RAISE E_ROUTINE_ERRORS;
25522: END IF;
25523:
25524:
25523:
25524:
25525: EXCEPTION
25526: WHEN E_ROUTINE_ERRORS THEN
25527: x_status_code := FND_API.G_RET_STS_ERROR;
25528: x_status_text := l_status_text;
25529: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25530: engine_debug(l_status_text);
25531: END IF;
25525: EXCEPTION
25526: WHEN E_ROUTINE_ERRORS THEN
25527: x_status_code := FND_API.G_RET_STS_ERROR;
25528: x_status_text := l_status_text;
25529: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25530: engine_debug(l_status_text);
25531: END IF;
25532: WHEN OTHERS THEN
25533: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25529: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25530: engine_debug(l_status_text);
25531: END IF;
25532: WHEN OTHERS THEN
25533: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25534: engine_debug('< In Select_modifiers>: '||SQLERRM);
25535: END IF;
25536: x_status_code := FND_API.G_RET_STS_ERROR;
25537: x_status_text := l_routine||' '||SQLERRM;
25532: WHEN OTHERS THEN
25533: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
25534: engine_debug('< In Select_modifiers>: '||SQLERRM);
25535: END IF;
25536: x_status_code := FND_API.G_RET_STS_ERROR;
25537: x_status_text := l_routine||' '||SQLERRM;
25538: END SELECT_MODIFIERS;
25539:
25540: /*+----------------------------------------------------------
27770: E_ROUTINE_ERRORS EXCEPTION;
27771:
27772: BEGIN
27773:
27774: x_status_code := FND_API.G_RET_STS_SUCCESS;
27775: l_prod_qual_count :=0;
27776: l_prod_cur_count :=0;
27777:
27778: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27774: x_status_code := FND_API.G_RET_STS_SUCCESS;
27775: l_prod_qual_count :=0;
27776: l_prod_cur_count :=0;
27777:
27778: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27779: engine_debug('Before Big Select');
27780: engine_debug('p_pricing_phase_id: '||p_pricing_phase_id);
27781: engine_debug('p_freeze_override_flag: '||p_freeze_override_flag);
27782:
27782:
27783: END IF;
27784: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
27785: --selecting lists that match product and qualifiers attributes
27786: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27787: engine_debug('cursor for l_prod_qual_cur_currency-multi-currency TRUE');
27788: END IF;
27789: OPEN l_prod_qual_cur_currency(p_pricing_phase_id);
27790:
27843: LIMIT nROWS;
27844:
27845: EXIT WHEN G_LINE_INDEX_TBL_P.COUNT = 0;
27846:
27847: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27848: engine_debug('shu dbg, after bulk insert');
27849: END IF;
27850:
27851: if (G_LINE_INDEX_TBL_P.COUNT > 0) then
27893: G_BREAK_ATTRIBUTE_TBL(M) := G_BREAK_ATTRIBUTE_TBL_P(i); /* Proration */
27894:
27895: M:=M+1;
27896:
27897: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27898: engine_debug('M: '|| M);
27899: END IF;
27900:
27901:
27934: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
27935: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
27936:
27937: K:= K+1;
27938: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27939: engine_debug('The value of K1: ' || K);
27940: END IF;
27941: -- set qualifier attributes
27942: G_LINE_INDEX_tbl(K) := G_LINE_INDEX_TBL_P(i);
27967: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) := 'NULL';
27968: G_MODIFIER_LEVEL_CODE_TBL_A(K) := G_MODIFIER_LEVEL_CODE_TBL_P(i);
27969: G_PRIMARY_UOM_FLAG_TBL_A(K) := G_PRIMARY_UOM_FLAG_TBL_P(i);
27970: K:= K+1;
27971: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27972: engine_debug('The value of K2: ' || K);
27973:
27974: END IF;
27975: end loop;
27982:
27983: lq_line_index := -9999;
27984: lq_list_line_id := -9999;
27985:
27986: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
27987: engine_debug('before l_prod_qual_pric_cur_currency... ');
27988: END IF;
27989:
27990: OPEN l_prod_qual_pric_cur_currency(p_pricing_phase_id);
28129: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
28130: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
28131: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
28132: K:= K+1;
28133: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28134: engine_debug('The value of K: ' || K);
28135:
28136: END IF;
28137: -- set qualifier attributes
28196: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
28197: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
28198: K:= K+1;
28199: END IF;
28200: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28201: engine_debug('The value of K: ' || K);
28202:
28203: END IF;
28204: end loop;
28211:
28212: lq_line_index := -9999;
28213: lq_list_line_id := -9999;
28214:
28215: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28216: engine_debug('before l_prod_cur_currency... ');
28217: END IF;
28218:
28219: OPEN l_prod_cur_currency(p_pricing_phase_id);
28343: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
28344: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
28345: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
28346: K:= K+1;
28347: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28348: engine_debug('The value of K: ' || K);
28349: END IF;
28350: end loop;
28351: end if;
28354: qp_debug_util.tstop('L_PROD_CUR_CURRENCY');
28355:
28356: CLOSE l_prod_cur_currency;
28357:
28358: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28359: engine_debug('before l_prod_pric_cur_currency...');
28360: END IF;
28361:
28362: OPEN l_prod_pric_cur_currency(p_pricing_phase_id);
28494: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
28495: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
28496: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
28497: K:= K+1;
28498: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28499: engine_debug('The value of K: ' || K);
28500:
28501: END IF;
28502: --set pricing attributes
28530: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
28531: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
28532: K:= K+1;
28533: END IF;
28534: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28535: engine_debug('The value of K: ' || K);
28536: END IF;
28537: end loop;
28538: end if;
28541: CLOSE l_prod_pric_cur_currency; -- 4331801/4365538
28542: else -- vivek, multi currency not installed, not used
28543: --selecting lists that match product and qualifiers attributes
28544:
28545: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28546: engine_debug('before l_prod_qual_cur...');
28547: END IF;
28548:
28549: OPEN l_prod_qual_cur(p_pricing_phase_id);
28599:
28600: if (G_LINE_INDEX_TBL_P.COUNT > 0) then
28601: for i in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST loop
28602: if (lq_line_index <> G_LINE_INDEX_TBL_P(i) or lq_list_line_id <> G_LIST_LINE_ID_TBL_P(i)) then
28603: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28604: engine_debug('Product_Qualifier');
28605: END IF;
28606: l_prod_qual_count := l_prod_qual_count + 1;
28607: L_LINE_DETAIL_INDEX :=GET_LINE_DETAIL_INDEX;
28670: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
28671: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
28672: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
28673: K:= K+1;
28674: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28675: engine_debug('The value of K: ' || K);
28676:
28677: END IF;
28678: -- set qualifier attributes
28704: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) := 'NULL';
28705: G_MODIFIER_LEVEL_CODE_TBL_A(K) := G_MODIFIER_LEVEL_CODE_TBL_P(i);
28706: G_PRIMARY_UOM_FLAG_TBL_A(K) := G_PRIMARY_UOM_FLAG_TBL_P(i);
28707: K:= K+1;
28708: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28709: engine_debug('The value of K: ' || K);
28710:
28711: END IF;
28712: end loop;
28718:
28719: lq_line_index := -9999;
28720: lq_list_line_id := -9999;
28721:
28722: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28723: engine_debug('before l_prod_qual_pric_cur...');
28724: END IF;
28725:
28726: OPEN l_prod_qual_pric_cur(p_pricing_phase_id);
28784:
28785: if (G_LINE_INDEX_TBL_P.COUNT > 0) then
28786: for i in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST loop
28787: if (lq_line_index <> G_LINE_INDEX_TBL_P(i) or lq_list_line_id <> G_LIST_LINE_ID_TBL_P(i)) then
28788: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28789: engine_debug('Product_Qualifier_Pricing');
28790: END IF;
28791: l_prod_qual_count := l_prod_qual_count + 1;
28792: L_LINE_DETAIL_INDEX :=GET_LINE_DETAIL_INDEX;
28855: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
28856: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
28857: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
28858: K:= K+1;
28859: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28860: engine_debug('The value of K: ' || K);
28861:
28862: END IF;
28863: -- set qualifier attributes
28922: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
28923: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
28924: K:= K+1;
28925: END IF;
28926: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28927: engine_debug('The value of K: ' || K);
28928:
28929: END IF;
28930: end loop;
28936:
28937: lq_line_index := -9999;
28938: lq_list_line_id := -9999;
28939:
28940: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28941: engine_debug('before l_prod_cur...');
28942: END IF;
28943:
28944: OPEN l_prod_cur(p_pricing_phase_id);
28985:
28986: if (G_LINE_INDEX_TBL_P.COUNT > 0) then
28987: for i in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST loop
28988: if (lq_line_index <> G_LINE_INDEX_TBL_P(i) or lq_list_line_id <> G_LIST_LINE_ID_TBL_P(i)) then
28989: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
28990: engine_debug('Product Only');
28991: END IF;
28992: l_prod_qual_count := l_prod_qual_count + 1;
28993: L_LINE_DETAIL_INDEX :=GET_LINE_DETAIL_INDEX;
29056: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
29057: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
29058: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
29059: K:= K+1;
29060: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29061: engine_debug('The value of K: ' || K);
29062:
29063: END IF;
29064: end loop;
29069:
29070: lq_line_index := -9999;
29071: lq_list_line_id := -9999;
29072:
29073: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29074: engine_debug('before l_prod_pric_cur...');
29075: END IF;
29076: OPEN l_prod_pric_cur(p_pricing_phase_id);
29077:
29126:
29127: if (G_LINE_INDEX_TBL_P.COUNT > 0) then
29128: for i in G_LINE_INDEX_TBL_P.FIRST .. G_LINE_INDEX_TBL_P.LAST loop
29129: if (lq_line_index <> G_LINE_INDEX_TBL_P(i) or lq_list_line_id <> G_LIST_LINE_ID_TBL_P(i)) then
29130: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29131: engine_debug('Product Pricing Only');
29132: END IF;
29133: l_prod_qual_count := l_prod_qual_count + 1;
29134: L_LINE_DETAIL_INDEX :=GET_LINE_DETAIL_INDEX;
29197: G_LINE_DETAIL_TYPE_CODE_TBL_A(K) :='NULL';
29198: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(i);
29199: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(i);
29200: K:= K+1;
29201: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29202: engine_debug('The value of K: ' || K);
29203:
29204: END IF;
29205: --set pricing attributes
29233: G_MODIFIER_LEVEL_CODE_TBL_A(K) :=G_MODIFIER_LEVEL_CODE_TBL_P(I);
29234: G_PRIMARY_UOM_FLAG_TBL_A(K) :=G_PRIMARY_UOM_FLAG_TBL_P(I);
29235: K:= K+1;
29236: END IF;
29237: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29238: engine_debug('The value of K: ' || K);
29239:
29240: END IF;
29241: end loop;
29249: end if; -- vivek, multi currency installed
29250:
29251: IF M > 1 THEN
29252: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
29253: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29254: engine_debug('last 4 cursors- multi-currency TRUE - insert_ldets2');
29255: END IF;
29256: INSERT_LDETS_PRICE_LIST_MULT(
29257: p_LINE_DETAIL_INDEX => G_LINE_DETAIL_INDEX_LD_TBL,
29359: x_status_code =>l_status_code,
29360: x_status_text =>l_status_text);
29361: END IF;
29362:
29363: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
29364: RAISE E_ROUTINE_ERRORS;
29365: END IF;
29366:
29367: --Reset_all_tbls;
29365: END IF;
29366:
29367: --Reset_all_tbls;
29368: Reset_All_Tbls(l_status_code ,l_status_text );
29369: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
29370: RAISE E_ROUTINE_ERRORS;
29371: END IF;
29372:
29373: EXCEPTION
29371: END IF;
29372:
29373: EXCEPTION
29374: WHEN E_ROUTINE_ERRORS THEN
29375: x_status_code := FND_API.G_RET_STS_ERROR;
29376: x_status_text := l_routine||': '||l_status_text;
29377: WHEN OTHERS THEN
29378: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29379: engine_debug('< In Select_Price_List_Lines>: '||SQLERRM);
29374: WHEN E_ROUTINE_ERRORS THEN
29375: x_status_code := FND_API.G_RET_STS_ERROR;
29376: x_status_text := l_routine||': '||l_status_text;
29377: WHEN OTHERS THEN
29378: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29379: engine_debug('< In Select_Price_List_Lines>: '||SQLERRM);
29380: -- Keep it for debugging purposes
29381: /*
29382: FOR Z In 1 .. G_LIST_HEADER_ID_TBL_P.count
29426:
29427: End Loop;
29428: */
29429: END IF;
29430: x_status_code := FND_API.G_RET_STS_ERROR;
29431: x_status_text := l_routine||': '||SQLERRM;
29432: END SELECT_PRICE_LIST_LINES;
29433:
29434: /*+------------------------------------------------------------
29661: CLOSE l_check_modlist_exists_cur;
29662: --END IF;
29663: --CLOSE l_check_modlist_cur;
29664:
29665: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
29666: RAISE E_ROUTINE_ERRORS;
29667: END IF;
29668: l_list_header_id := null; -- Bug No: 7323621
29669: END LOOP;
29723: l_status_code,
29724: l_status_text);
29725: END IF; -- end if rounding_flag
29726:
29727: IF l_status_code <> FND_API.G_RET_STS_SUCCESS THEN
29728: RAISE E_ROUTINE_ERRORS;
29729: END IF;
29730:
29731: EXCEPTION
29729: END IF;
29730:
29731: EXCEPTION
29732: WHEN E_ROUTINE_ERRORS THEN
29733: x_status_code := FND_API.G_RET_STS_ERROR;
29734: x_status_text := l_routine||': '||l_status_text;
29735: WHEN OTHERS THEN
29736: v_error_code :=SQLCODE;
29737: v_error_message:=SQLERRM;
29734: x_status_text := l_routine||': '||l_status_text;
29735: WHEN OTHERS THEN
29736: v_error_code :=SQLCODE;
29737: v_error_message:=SQLERRM;
29738: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29739: engine_debug('Error in QP_PREQ_GRP.create_qualifier_from_list: '||SQLERRM);
29740: END IF;
29741: x_status_code := FND_API.G_RET_STS_ERROR;
29742: x_status_text := l_routine||': '||SQLERRM;
29737: v_error_message:=SQLERRM;
29738: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29739: engine_debug('Error in QP_PREQ_GRP.create_qualifier_from_list: '||SQLERRM);
29740: END IF;
29741: x_status_code := FND_API.G_RET_STS_ERROR;
29742: x_status_text := l_routine||': '||SQLERRM;
29743:
29744: END Create_Qualifier_From_List;
29745:
29773: END LOOP;
29774:
29775: EXCEPTION
29776: WHEN OTHERS THEN
29777: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29778: engine_debug(l_routine||': '||SQLERRM);
29779: END IF;
29780: x_status_code := FND_API.G_RET_STS_ERROR;
29781: x_status_text := l_routine||': '||SQLERRM;
29776: WHEN OTHERS THEN
29777: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
29778: engine_debug(l_routine||': '||SQLERRM);
29779: END IF;
29780: x_status_code := FND_API.G_RET_STS_ERROR;
29781: x_status_text := l_routine||': '||SQLERRM;
29782: END Get_Reason;
29783:
29784: /*+------------------------------------------------------------
30072:
30073: BEGIN
30074:
30075:
30076: x_status_code := FND_API.G_RET_STS_SUCCESS;
30077:
30078: --For manual discount, we want pricing_group sequence to be NULL
30079: /*
30080: -- This update is not needed as it is taken care of by the setup
30084: SET PRICING_GROUP_SEQUENCE = NULL
30085: WHERE AUTOMATIC_FLAG = G_NO; */
30086:
30087:
30088: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30089: engine_debug( '-------------In call calculation engine-----------');
30090: END IF;
30091:
30092: l_GSA_Enabled_Flag := FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled);
30090: END IF;
30091:
30092: l_GSA_Enabled_Flag := FND_PROFILE.VALUE(G_GSA_Max_Discount_Enabled);
30093:
30094: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30095: engine_debug ('GSA Enabled Flag : ' || l_GSA_Enabled_Flag);
30096: engine_debug ('Freeze_override_flag: '||p_freeze_override_flag);
30097: END IF;
30098:
30120: G_ADJUSTMENT_AMOUNT_TBL_R.delete;
30121: G_LINE_DETAIL_INDEX_TBL_R.delete;
30122: G_PARENT_PRICE_TBL_P.delete;
30123:
30124: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30125: engine_debug (' G_REQUEST_TYPE_CODE: ' ||G_REQUEST_TYPE_CODE); -- shu, aso rounding
30126: engine_debug (' G_ROUNDING_FLAG: ' ||G_ROUNDING_FLAG); -- shu, aso rounding
30127: END IF; -- END IF DEBUG
30128:
30127: END IF; -- END IF DEBUG
30128:
30129: FOR I IN l_request_line_cur LOOP
30130:
30131: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30132: engine_debug('-----l_request_line_cur I loop ------');
30133: engine_debug (' line_index: ' ||i.line_index);
30134: engine_debug (' line_type_code: ' ||i.line_type_code);
30135: engine_debug (' rounding_factor: ' ||i.rounding_factor);
30188: ELSE
30189: p_cal_req_line_rec.RELATED_ITEM_PRICE := nvl(l_parent_line_unit_price, l_parent_unit_price);
30190: END IF; -- END IF (g_parent_price_tbl_p.count > 0)
30191:
30192: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30193: engine_debug(' l_parent_line index : '|| l_parent_line_index);
30194: engine_debug(' p_cal_req_line_rec.RELATED_ITEM_PRICE: '|| p_cal_req_line_rec.RELATED_ITEM_PRICE);
30195: END IF; -- END IF DEBUG
30196:
30196:
30197: ELSE -- l_parent_line_index is null
30198: -- Error Condition
30199: null;
30200: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30201: engine_debug('Unable to find parent line for a service item');
30202: END IF;
30203: l_err_line_index := I.LINE_INDEX;
30204: DELETE_LINES(l_err_line_index,
30211:
30212: END IF; -- END IF (I.PROCESSING_ORDER > 1)
30213:
30214: FOR K IN l_request_line_detail_cur(I.LINE_INDEX,I.PRICE_FLAG) LOOP
30215: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30216: engine_debug('-----l_request_line_detail_cur K loop------');
30217: END IF;
30218:
30219: l_line_details_exist_flag := TRUE;
30249: p_cal_req_ldets_tbl(J).bucketed_flag := nvl(k.net_amount_flag, 'N'); -- 2720717, IT net_amount
30250:
30251:
30252:
30253: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30254: engine_debug('List Line Id for Qualifier Value: ' || k.created_from_list_line_id);
30255:
30256: END IF;
30257: -- This is not needed as in Process_Line_Group procedure we are populating the right attibute
30260: /* OPEN l_list_line_attribute_cur(K.created_from_list_line_id);
30261: FETCH l_list_line_attribute_cur INTO l_attribute;
30262: CLOSE l_list_line_attribute_cur; */
30263:
30264: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30265: engine_debug('Modifier Level Code: ' || K.modifier_level_code);
30266: END IF;
30267:
30268: IF (K.MODIFIER_LEVEL_CODE = G_LINE_GROUP) THEN
30288: -- end 2388011_latest
30289: l_value := null;
30290: END IF;
30291:
30292: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30293: engine_debug('Qualifier Value for loading: ' || p_cal_req_ldets_tbl(J).qualifier_value);
30294:
30295: END IF;
30296: p_cal_req_ldets_tbl(J).operand_calculation_code:=K.operand_calculation_code;
30295: END IF;
30296: p_cal_req_ldets_tbl(J).operand_calculation_code:=K.operand_calculation_code;
30297: p_cal_req_ldets_tbl(J).operand_value:=K.operand_value;
30298:
30299: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30300: engine_debug('accrual_flag: '||p_cal_req_ldets_tbl(J).accrual_flag);
30301: engine_debug('estim_accrual_rate: '||p_cal_req_ldets_tbl(J).estim_accrual_rate);
30302: engine_debug('accrual_conversion_rate: '||p_cal_req_ldets_tbl(J).accrual_conversion_rate);
30303:
30303:
30304: END IF;
30305: J:=J+1;
30306:
30307: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30308: engine_debug('+--------------------------------+');
30309: engine_debug('| In Parent Line |');
30310: engine_debug('+--------------------------------+');
30311: engine_debug('LINE_DETAIL_INDEX: '||K.line_detail_index);
30345: */
30346: --p_cal_req_rltd_tbl(N).line_detail_index is actually parent line detail index
30347: p_cal_req_rltd_tbl(N).line_detail_index := TO_NUMBER(G_PARENT_LINE_DETAIL_INDEX_TBL(k.line_detail_index));
30348:
30349: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30350: engine_debug('----IN Children line------------');
30351: engine_debug('value from: '||p_cal_req_rltd_tbl(N).value_from);
30352: engine_debug('value to: ' ||p_cal_req_rltd_tbl(N).value_to);
30353: engine_debug('LINE_INDEX: '||I.LINE_INDEX);
30367:
30368: END IF;
30369: <
30370: IF(K.AUTOMATIC_FLAG = G_NO AND p_is_direct_call = FALSE) THEN
30371: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30372: engine_debug('Not calling cal engine for child break line because automatic_flag was set to ''N''');
30373: END IF;
30374: null;
30375: END IF;
30376:
30377: END LOOP; --END K loop
30378:
30379:
30380: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30381: engine_debug(l_routine||' Before calling cal engine');
30382:
30383: END IF;
30384: QP_Calculate_Price_PUB.Calculate_Price
30387: p_cal_req_rltd_tbl,
30388: l_status_code,
30389: l_status_text);
30390:
30391: IF (l_status_code = FND_API.G_RET_STS_ERROR) THEN
30392: l_err_line_index := I.LINE_INDEX;
30393: DELETE_LINES(l_err_line_index,
30394: G_STATUS_OTHER_ERRORS,
30395: 'Error returned by QP_Calculate_Price_PUB.Calculate_Price',
30394: G_STATUS_OTHER_ERRORS,
30395: 'Error returned by QP_Calculate_Price_PUB.Calculate_Price',
30396: l_status_code,
30397: l_status_text);
30398: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30399: engine_debug('Error text '||l_status_text);
30400: END IF;
30401: GOTO E_LOOP;
30402:
30408: G_PARENT_PRICE_TBL_P(i.line_index) := p_cal_req_line_rec.UNIT_PRICE;
30409: END IF;
30410: */
30411: -- Indicating that there was a GSA Violation
30412: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30413: engine_debug ('GSA Status Code : ' || l_status_code);
30414: END IF;
30415: IF (l_status_code = G_STATUS_GSA_VIOLATION) THEN
30416: l_gsa_violation_flag := 'Y';
30419: ELSE
30420: l_gsa_violation_flag := 'N';
30421: END IF;
30422:
30423: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30424: engine_debug ('In Line Update Information100');
30425: END IF;
30426: -- Load Line Information
30427: IF (l_line_details_exist_flag = TRUE) THEN --Change
30440:
30441: -- begin shu, round line unit price (unit price by order uom)
30442: -- shu, fix bug 2354422, avoid division zero if i.LINE_QUANTITY is zero
30443:
30444: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30445: engine_debug ('parent_qty: '|| l_parent_priced_quantity);
30446: engine_debug ('unit_price: '|| p_cal_req_line_rec.UNIT_PRICE);
30447: engine_debug ('priced_qty: '|| i.PRICED_QUANTITY);
30448: engine_debug ('line_qty: '|| i.LINE_QUANTITY);
30523: END IF;
30524: END IF;
30525:
30526: END IF;
30527: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30528: engine_debug ('line_unit_price bfe round: '||l_line_unit_price);
30529: engine_debug ('rounding_factor:'|| i.rounding_factor);
30530: engine_debug (' order_uom_selling_price bfe round : ' || l_order_uom_selling_price); -- bug 2693700
30531: END IF;
30589: END IF;
30590: */
30591: --===[prarasto:Post Round] End : Calculate rounded values ==--
30592:
30593: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30594: engine_debug (' final line_unit_price : '||l_line_unit_price);
30595: engine_debug (' order_uom_selling_price : ' || l_order_uom_selling_price); -- bug 2693700
30596: engine_debug ('G_LINE_UNIT_PRICE_TBL_C(U) : '||G_LINE_UNIT_PRICE_TBL_C(U)); --[prarasto:Post Round]
30597: engine_debug ('l_unit_selling_price(U) : '||l_unit_selling_price(U)); --[prarasto:Post Round]
30602: l_order_uom_selling_price := NULL; -- bug 2693700
30603: l_conversion_rate := NULL; -- shu
30604: END IF;
30605:
30606: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30607: engine_debug ('In Line Update Information200');
30608: END IF;
30609: --Load Line Detail Information
30610: IF (p_cal_req_ldets_tbl.COUNT > 0) THEN
30629: G_LINE_DETAIL_INDEX_TBL_D(Y) := p_cal_req_ldets_tbl(X).line_detail_index;
30630: END LOOP;
30631: END IF;
30632:
30633: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30634: engine_debug ('In Line Update Information300');
30635: engine_debug ('Related Pl/sql table count : ' || p_cal_req_rltd_tbl.count);
30636:
30637: END IF;
30638: -- Load Related Lines Information
30639: IF (p_cal_req_rltd_tbl.COUNT > 0) THEN
30640: FOR X IN p_cal_req_rltd_tbl.FIRST .. p_cal_req_rltd_tbl.LAST
30641: LOOP
30642: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30643: engine_debug ('In Line Update Information3001');
30644: engine_debug ('Line Qty : ' || p_cal_req_rltd_tbl(X).line_qty);
30645: engine_debug ('Adjustment Amt : ' || p_cal_req_rltd_tbl(X).adjustment_amount);
30646: engine_debug ('Line Detail : ' || p_cal_req_rltd_tbl(X).child_line_detail_index);
30654:
30655: --Need to change it when have more time. Using bulk binding features.
30656: --to imporve performance
30657:
30658: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30659: engine_debug ('In Line Update Information400');
30660: engine_debug('#7');
30661: END IF;
30662: --Bug# 1372485
30666: AND I.line_type_code <> G_ORDER_LEVEL
30667: AND I.price_flag <> G_NO) THEN
30668:
30669: -- begin shu, fix bug 2425027
30670: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30671: engine_debug ('percent price: '||p_cal_req_line_rec.PERCENT_PRICE);
30672: engine_debug ('related item price: '||p_cal_req_line_rec.RELATED_ITEM_PRICE);
30673: END IF;
30674:
30673: END IF;
30674:
30675: IF p_cal_req_line_rec.PERCENT_PRICE IS NOT NULL AND p_cal_req_line_rec.RELATED_ITEM_PRICE IS NULL THEN
30676: l_message := ' No refernce of parent item or parent price is null for percent-based pricing.';
30677: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30678: engine_debug ('line_index: '||i.line_index);
30679: END IF;
30680: UPDATE qp_npreq_lines_tmp qplines
30681: SET
30690: l_status_text);
30691: ELSE
30692: -- end shu, fix bug 2425027
30693:
30694: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30695: engine_debug('#8');
30696:
30697: END IF;
30698: -- begin shulin bug 1605829 fix
30777: <
30778: null;
30779: END LOOP; --end loop for I
30780:
30781: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30782: engine_debug ('In Line Update Information500');
30783: END IF;
30784: -- Update All the Line Information at 1 shot
30785: IF (G_LINE_INDEX_TBL_C.COUNT > 0 ) THEN
30782: engine_debug ('In Line Update Information500');
30783: END IF;
30784: -- Update All the Line Information at 1 shot
30785: IF (G_LINE_INDEX_TBL_C.COUNT > 0 ) THEN
30786: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30787: engine_debug ('In Line Update Information');
30788: END IF;
30789: FORALL M IN G_LINE_INDEX_TBL_C.FIRST.. G_LINE_INDEX_TBL_C.LAST
30790: UPDATE qp_npreq_lines_tmp qplines
30813: AND (qplines.PRICING_STATUS_CODE <> G_STATUS_INVALID_PRICE_LIST
30814: OR qplines.LIST_PRICE_OVERRIDE_FLAG IN ('Y', 'O')); --po integration
30815: END IF;
30816:
30817: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30818: engine_debug ('In Line Update Information600');
30819: END IF;
30820: IF (p_is_direct_call = TRUE) THEN
30821: -- Update All the Line Details Information at 1 Shot for all Lines
30818: engine_debug ('In Line Update Information600');
30819: END IF;
30820: IF (p_is_direct_call = TRUE) THEN
30821: -- Update All the Line Details Information at 1 Shot for all Lines
30822: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30823: engine_debug ('In Line Detail Update Information1');
30824: END IF;
30825: IF (G_LINE_DETAIL_INDEX_TBL_D.COUNT > 0) THEN
30826: FORALL O IN G_LINE_DETAIL_INDEX_TBL_D.FIRST .. G_LINE_DETAIL_INDEX_TBL_D.LAST
30833: -- GROUP_AMOUNT = G_QUALIFIER_VALUE_TBL_D(O) --2388011_new
30834: WHERE LINE_DETAIL_INDEX = G_LINE_DETAIL_INDEX_TBL_D(O);
30835: END IF;
30836: ELSE
30837: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30838: engine_debug ('In Line Detail Update Information2');
30839: END IF;
30840: -- Update All the Line Details Information at 1 Shot for all Lines
30841: IF (G_LINE_DETAIL_INDEX_TBL_D.COUNT > 0) THEN
30851: WHERE LINE_DETAIL_INDEX = G_LINE_DETAIL_INDEX_TBL_D(O);
30852: END IF;
30853: END IF;
30854:
30855: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30856: engine_debug ('In Line Detail Update Information3');
30857: END IF;
30858: -- Update All the Related Line Details Information at 1 Shot for all Lines
30859: IF (G_LINE_DETAIL_INDEX_TBL_R.COUNT > 0) THEN
30872: SET PRICING_STATUS_CODE = G_STATUS_GSA_VIOLATION,
30873: PRICING_STATUS_TEXT = l_status_text
30874: WHERE LINE_INDEX = G_GSA_LINE_INDEX_TBL_C(K);
30875: END IF;
30876: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30877: engine_debug ('In End Update Information');
30878:
30879: END IF;
30880: -- Reset All tables
30901: G_LINE_DETAIL_INDEX_TBL_R.delete;
30902:
30903: EXCEPTION
30904: WHEN E_CAL_ENGINE_ERROR THEN
30905: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30906: engine_debug(l_routine||' '||l_status_text);
30907: END IF;
30908: DELETE_LINES(l_err_line_index,
30909: G_STATUS_OTHER_ERRORS,
30910: 'Error returned by QP_Calculate_Price_PUB.Calculate_Price',
30911: l_status_code,
30912: l_status_text);
30913: WHEN OTHERS THEN
30914: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30915: engine_debug('Exception in internal procedure CALL_CALCULATION_ENGINE ' || SQLERRM);
30916: END IF;
30917: x_status_code := FND_API.G_RET_STS_ERROR;
30918: x_status_text :=l_routine||' '||SQLERRM;
30913: WHEN OTHERS THEN
30914: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
30915: engine_debug('Exception in internal procedure CALL_CALCULATION_ENGINE ' || SQLERRM);
30916: END IF;
30917: x_status_code := FND_API.G_RET_STS_ERROR;
30918: x_status_text :=l_routine||' '||SQLERRM;
30919: null;
30920: END;
30921:
31064: AND dflex.application_column_name = lattr.attribute
31065: AND vset.format_type = 'N');
31066:
31067: BEGIN
31068: x_status_code := FND_API.G_RET_STS_SUCCESS;
31069: qp_debug_util.tstart('FORMULA_PROCESSING','Processing Formulas');
31070: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31071: engine_debug('In ---'||l_routine||'---');
31072: engine_debug('PRICING_PHASE_ID: '||p_pricing_phase_id);
31066:
31067: BEGIN
31068: x_status_code := FND_API.G_RET_STS_SUCCESS;
31069: qp_debug_util.tstart('FORMULA_PROCESSING','Processing Formulas');
31070: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31071: engine_debug('In ---'||l_routine||'---');
31072: engine_debug('PRICING_PHASE_ID: '||p_pricing_phase_id);
31073:
31074: END IF;
31437: CLOSE l_get_list_price_cur;
31438: l_modifier_value := I.operand_value; -- This value needs to be passed eventually
31439: END IF;
31440:
31441: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31442: engine_debug('Processing Formula ID :'||i.PRICE_FORMULA_ID);
31443: engine_debug('Line Index: '||i.line_index);
31444:
31445: END IF;
31455: i.CREATED_FROM_LIST_LINE_TYPE,
31456: l_return_status,
31457: l_modifier_value);
31458:
31459: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31460: engine_debug('Formula return status: '||l_return_status);
31461: engine_debug ('Formula Base Price : '|| l_formula_based_price);
31462:
31463: END IF;
31461: engine_debug ('Formula Base Price : '|| l_formula_based_price);
31462:
31463: END IF;
31464: IF l_return_status IS NULL THEN
31465: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31466: engine_debug('Formula return status is NULL');
31467: engine_debug('FND_API.G_RET_STS_ERROR: '|| FND_API.G_RET_STS_ERROR);
31468: END IF;
31469: null;
31463: END IF;
31464: IF l_return_status IS NULL THEN
31465: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31466: engine_debug('Formula return status is NULL');
31467: engine_debug('FND_API.G_RET_STS_ERROR: '|| FND_API.G_RET_STS_ERROR);
31468: END IF;
31469: null;
31470: END IF;
31471:
31468: END IF;
31469: null;
31470: END IF;
31471:
31472: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
31473: -- OR l_formula_based_price IS NOT NULL) THEN
31474: IF (i.OPERAND_CALCULATION_CODE in ('UNIT_PRICE','LIST_PRICE')) THEN
31475: /*
31476: INDX,QP_PREQ_GRP.formula_processing.upd1,qp_npreq_ldets_tmp_N1,LINE_INDEX,1
31538:
31539: END IF;
31540: END IF;
31541: ELSE
31542: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31543: engine_debug('Error returned by QP_FORMULA_PRICE_CALC_PVT.Calculate');
31544: END IF;
31545:
31546: -- Commented raise and added following for Bug 2722477
31564: G_STATUS_FORMULA_ERROR,
31565: FND_MESSAGE.GET,
31566: l_status_code,
31567: l_status_text);
31568: x_status_code := FND_API.G_RET_STS_ERROR;
31569:
31570: WHEN E_Formula_Call_Error THEN
31571: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31572: engine_debug('In Formula Integration');
31567: l_status_text);
31568: x_status_code := FND_API.G_RET_STS_ERROR;
31569:
31570: WHEN E_Formula_Call_Error THEN
31571: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31572: engine_debug('In Formula Integration');
31573: engine_debug('Error returned by QP_FORMULA_PRICE_CALC_PVT.Calculate');
31574: END IF;
31575: G_INSERT_INTO_FORMULA_TMP := FALSE; --Reset Global Flag ( Change)
31579: FND_MESSAGE.GET,
31580: l_status_code,
31581: l_status_text);
31582: WHEN OTHERS THEN
31583: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31584: engine_debug('In Formula Integration');
31585: engine_debug(SQLERRM);
31586: END IF;
31587: G_INSERT_INTO_FORMULA_TMP := FALSE; --Reset Global Flag ( Change)
31590: G_STATUS_FORMULA_ERROR,
31591: FND_MESSAGE.GET,
31592: l_status_code,
31593: l_status_text);
31594: x_status_code := FND_API.G_RET_STS_ERROR;
31595: x_status_text := l_routine||' '|| ' Formula Not Found ';
31596: END Formula_Processing;
31597:
31598: /*+-----------------------------------------------------------
31604: IS
31605: l_routine VARCHAR2(240):= 'Procedure Truncate_Temp_Tables';
31606: l_count number;
31607: Begin
31608: x_status_code := FND_API.G_RET_STS_SUCCESS;
31609: --added by yangli for Java Engine project
31610: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
31611: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31612: ENGINE_DEBUG('Truncate_Temp_tables: Java Engine not Installed ----------');
31607: Begin
31608: x_status_code := FND_API.G_RET_STS_SUCCESS;
31609: --added by yangli for Java Engine project
31610: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
31611: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31612: ENGINE_DEBUG('Truncate_Temp_tables: Java Engine not Installed ----------');
31613: END IF;
31614: --added by yangli for Java Engine project
31615: --Delete from qp_npreq_lines_tmp;
31620: --Delete From qp_nformula_step_values_tmp;
31621: --Delete From QP_PREQ_LINE_ATTRS_FORMULA_TMP;
31622:
31623:
31624: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31625: select count(*) into l_count from qp_npreq_lines_tmp;
31626: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31627: engine_debug('qp_npreq_lines_tmp '||l_count);
31628: END IF;
31622:
31623:
31624: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31625: select count(*) into l_count from qp_npreq_lines_tmp;
31626: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31627: engine_debug('qp_npreq_lines_tmp '||l_count);
31628: END IF;
31629: select count(*) into l_count from qp_npreq_line_attrs_tmp;
31630: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31626: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31627: engine_debug('qp_npreq_lines_tmp '||l_count);
31628: END IF;
31629: select count(*) into l_count from qp_npreq_line_attrs_tmp;
31630: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31631: engine_debug('qp_npreq_line_attrs_tmp '||l_count);
31632: END IF;
31633: select count(*) into l_count from qp_npreq_ldets_tmp;
31634: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31630: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31631: engine_debug('qp_npreq_line_attrs_tmp '||l_count);
31632: END IF;
31633: select count(*) into l_count from qp_npreq_ldets_tmp;
31634: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31635: engine_debug('qp_npreq_ldets_tmp '||l_count);
31636: END IF;
31637: END IF;
31638: --added by yangli for Java Engine project
31636: END IF;
31637: END IF;
31638: --added by yangli for Java Engine project
31639: ELSE
31640: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31641: ENGINE_DEBUG('Truncate_Temp_tables: Java Engine is Installed ----------');
31642: END IF;
31643: --Delete from qp_int_lines;
31644: --Delete from qp_int_line_attrs;
31645: --Delete From qp_int_ldets;
31646: --Delete From qp_int_rltd_lines;
31647: --Delete From qp_int_formula_step_values;
31648:
31649: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31650: select count(*) into l_count from qp_int_lines;
31651: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31652: engine_debug('qp_int_lines '||l_count);
31653: END IF;
31647: --Delete From qp_int_formula_step_values;
31648:
31649: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31650: select count(*) into l_count from qp_int_lines;
31651: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31652: engine_debug('qp_int_lines '||l_count);
31653: END IF;
31654: select count(*) into l_count from qp_int_line_attrs;
31655: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31651: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31652: engine_debug('qp_int_lines '||l_count);
31653: END IF;
31654: select count(*) into l_count from qp_int_line_attrs;
31655: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31656: engine_debug('qp_int_line_attrs '||l_count);
31657: END IF;
31658: select count(*) into l_count from qp_int_ldets;
31659: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31655: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31656: engine_debug('qp_int_line_attrs '||l_count);
31657: END IF;
31658: select count(*) into l_count from qp_int_ldets;
31659: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31660: engine_debug('qp_int_ldets '||l_count);
31661: END IF;
31662: END IF;
31663:
31663:
31664: END IF;
31665: EXCEPTION
31666: WHEN OTHERS THEN
31667: x_status_code := FND_API.G_RET_STS_ERROR;
31668: x_status_text :=l_routine||' '||SQLERRM;
31669: End Truncate_Temp_tables;
31670:
31671: /*+------------------------------------------------------------
31721: l_line_detail_index_tbl1 number_type;
31722: J NUMBER:=0;
31723: l_routine VARCHAR2(240):= 'QP_PREQ_GRP.Set_Order_Level_Rltd';
31724: BEGIN
31725: x_status_code := FND_API.G_RET_STS_SUCCESS;
31726:
31727: FOR I IN l_line_detail_index_cur LOOP
31728: J:=J+1;
31729: l_line_detail_index_tbl(J):=I.line_detail_index;
31751: END IF;
31752:
31753: EXCEPTION
31754: WHEN OTHERS THEN
31755: x_status_code := FND_API.G_RET_STS_ERROR;
31756: x_status_text := SQLERRM;
31757: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31758: engine_debug(l_routine||' :'||SQLERRM);
31759: END IF;
31753: EXCEPTION
31754: WHEN OTHERS THEN
31755: x_status_code := FND_API.G_RET_STS_ERROR;
31756: x_status_text := SQLERRM;
31757: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31758: engine_debug(l_routine||' :'||SQLERRM);
31759: END IF;
31760: END;
31761:
31776: FROM QP_PRICING_PHASES
31777: WHERE LIST_TYPE_CODE = 'PRL'
31778: AND ROWNUM < 2;
31779:
31780: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31781: engine_debug('G_PRICE_LIST_SEQUENCE: '|| G_PRICE_LIST_SEQUENCE );
31782: END IF;
31783: EXCEPTION
31784: WHEN OTHERS THEN
31781: engine_debug('G_PRICE_LIST_SEQUENCE: '|| G_PRICE_LIST_SEQUENCE );
31782: END IF;
31783: EXCEPTION
31784: WHEN OTHERS THEN
31785: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31786: engine_debug(l_routine||' '||SQLERRM);
31787: END IF;
31788: x_status_code := FND_API.G_RET_STS_ERROR;
31789: x_status_text := 'Error in '||l_routine||SQLERRM;
31784: WHEN OTHERS THEN
31785: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
31786: engine_debug(l_routine||' '||SQLERRM);
31787: END IF;
31788: x_status_code := FND_API.G_RET_STS_ERROR;
31789: x_status_text := 'Error in '||l_routine||SQLERRM;
31790: end Get_Price_List_Sequence;
31791:
31792: /*+----------------------------------------------------------------------------------------------------
32453: where v$mystat.statistic# = v$statname.statistic#
32454: and v$statname.name = 'redo size';
32455: exception
32456: when others then
32457: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32458: engine_debug('Error in looking up debug'||SQLERRM);
32459: END IF;
32460: end;
32461: END IF;
32471: QP_COPY_DEBUG_PVT.Generate_Debug_Req_Seq(l_return_status,
32472: l_status_text);
32473: --x_return_status := l_return_status; -- fix bug 2756754
32474: --x_return_status_text := l_status_text; -- fix bug 2756754
32475: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
32476: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32477: engine_debug('Error QP_COPY_DEBUG_PVT.Generate_Debug_Req_Seq: '||l_status_text);
32478: END IF; -- END IF G_DEBUG_ENGINE
32479: RAISE E_DEBUG_ROUTINE_ERROR; -- fix bug 2756754, dbg failed should not be an hard error
32472: l_status_text);
32473: --x_return_status := l_return_status; -- fix bug 2756754
32474: --x_return_status_text := l_status_text; -- fix bug 2756754
32475: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
32476: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32477: engine_debug('Error QP_COPY_DEBUG_PVT.Generate_Debug_Req_Seq: '||l_status_text);
32478: END IF; -- END IF G_DEBUG_ENGINE
32479: RAISE E_DEBUG_ROUTINE_ERROR; -- fix bug 2756754, dbg failed should not be an hard error
32480: END IF;
32488: oe_debug_pub.SetDebugLevel(10);
32489: oe_debug_pub.Initialize;
32490: oe_debug_pub.debug_on;
32491: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
32492: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32493: engine_debug ('The output file is : ' || l_output_file );
32494: END IF;
32495: G_DEBUG_ENGINE:= FND_API.G_TRUE;
32496: ELSE
32491: l_output_file := oe_debug_pub.Set_Debug_Mode('FILE');
32492: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32493: engine_debug ('The output file is : ' || l_output_file );
32494: END IF;
32495: G_DEBUG_ENGINE:= FND_API.G_TRUE;
32496: ELSE
32497: G_DEBUG_ENGINE:= FND_API.G_FALSE;
32498: END IF;
32499: ELSE
32493: engine_debug ('The output file is : ' || l_output_file );
32494: END IF;
32495: G_DEBUG_ENGINE:= FND_API.G_TRUE;
32496: ELSE
32497: G_DEBUG_ENGINE:= FND_API.G_FALSE;
32498: END IF;
32499: ELSE
32500: G_DEBUG_ENGINE:= FND_API.G_TRUE;
32501: END IF; */
32496: ELSE
32497: G_DEBUG_ENGINE:= FND_API.G_FALSE;
32498: END IF;
32499: ELSE
32500: G_DEBUG_ENGINE:= FND_API.G_TRUE;
32501: END IF; */
32502:
32503: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32504: engine_debug('***Entering Oracle Pricing***');
32499: ELSE
32500: G_DEBUG_ENGINE:= FND_API.G_TRUE;
32501: END IF; */
32502:
32503: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32504: engine_debug('***Entering Oracle Pricing***');
32505: engine_debug('Please set debug level 3 in profile option to see all Pricing Debug Messages');
32506: engine_debug('-----------------New Engine Call----------------------');
32507: engine_debug('Pricing Event: ' || p_control_rec.PRICING_EVENT);
32507: engine_debug('Pricing Event: ' || p_control_rec.PRICING_EVENT);
32508: engine_debug('Pricing Engine Version: ' || QP_PREQ_GRP.GET_VERSION);
32509:
32510: END IF;
32511: X_RETURN_STATUS:=FND_API.G_RET_STS_SUCCESS;
32512: --==========END: Debug Viewere needed by JAVA and PL/SQL engine=======
32513:
32514: --======moved here by yangli, needed by JAVA and PL/SQL engine=============
32515: G_TEMP_TABLE_INSERT_FLAG := nvl(p_control_rec.temp_table_insert_flag,'Y');
32515: G_TEMP_TABLE_INSERT_FLAG := nvl(p_control_rec.temp_table_insert_flag,'Y');
32516:
32517: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
32518: --=====START: Specific to PL/SQL engine =======================
32519: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32520: ENGINE_DEBUG('Java Engine not Installed ----------');
32521: END IF;
32522:
32523: -- julin [3805113]: resetting tables used in handle_break/call_calculation_engine
32525: G_CHILD_VALUE_TO_TBL.delete;
32526: G_PARENT_LINE_DETAIL_INDEX_TBL.delete;
32527:
32528: --dbms_output.put_line('Final Debug: ' || oe_debug_pub.g_debug);
32529: --G_DEBUG_ENGINE := FND_API.G_TRUE;
32530: --G_LINE_DETAIL_INDEX := 0;
32531: G_MANUAL_DISCOUNT_FLAG := nvl(FND_PROFILE.VALUE(G_RETURN_MANUAL_DISCOUNTS),'Y'); --p_control_rec.manual_discount_flag;
32532: G_GSA_CHECK_FLAG := p_control_rec.gsa_check_flag;
32533: G_GSA_DUP_CHECK_FLAG := nvl(p_control_rec.gsa_dup_check_flag,'N');
32575: END IF;
32576: END IF;--MO_GLOBAL
32577:
32578:
32579: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32580: engine_debug('G_SECURITY_CONTROL: '||G_SECURITY_CONTROL);
32581: engine_debug('G_CURRENT_USER_OP_UNIT: '||G_CURRENT_USER_OP_UNIT);
32582:
32583: END IF;
32587: --=====START: Set_Request_Id needed by both Java and PL/SQL engine
32588: -- Set the request id if called from plsql/path and not temp table insert path
32589: IF (G_TEMP_TABLE_INSERT_FLAG = G_YES) THEN
32590: QP_Price_Request_Context.Set_Request_Id;
32591: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32592: engine_debug('Request id in QP_PREQ_GRP : ' ||sys_context('qp_context','request_id'));
32593: END IF;
32594: END IF;
32595: --=====END: Set_Request_Id needed by both Java and PL/SQL engine
32600:
32601: IF G_TEMP_TABLE_INSERT_FLAG = G_YES THEN -- pl/sql path
32602:
32603: IF (p_line_tbl.COUNT > 0) THEN
32604: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32605: engine_debug('There are lines to be priced');
32606: END IF;
32607: FOR i in p_line_tbl.FIRST .. p_line_tbl.LAST
32608: LOOP
32605: engine_debug('There are lines to be priced');
32606: END IF;
32607: FOR i in p_line_tbl.FIRST .. p_line_tbl.LAST
32608: LOOP
32609: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32610: engine_debug('In the Loop');
32611: engine_debug('Before Pricing Line Index: ' || p_line_tbl(i).line_index);
32612: engine_debug('Before Pricing Unit Price: ' || p_line_tbl(i).unit_price);
32613: engine_debug('Before Pricing Price Flag: ' || p_line_tbl(i).price_flag);
32613: engine_debug('Before Pricing Price Flag: ' || p_line_tbl(i).price_flag);
32614: END IF;
32615: END LOOP;
32616: ELSE -- else (p_line_tbl.COUNT > 0)
32617: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32618: engine_debug('There are no lines to be priced');
32619: END IF;
32620: END IF; -- end if (p_line_tbl.COUNT > 0)
32621:
32622: ELSE --G_TEMP_TABLE_INSERT_FLAG = 'N', direct insert/performance path, shulin dbg 2437534
32623: --FOR cl IN (select line_index, unit_price, price_flag from qp_npreq_lines_tmp)
32624: FOR cl IN l_lines_info_cur --by yangli for Java Engine changes
32625: LOOP
32626: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32627: engine_debug('In direct insert Loop / performance path');
32628: engine_debug('Before Pricing Line Index: ' || cl.line_index);
32629: engine_debug('Before Pricing Unit Price: ' || cl.unit_price);
32630: engine_debug('Before Pricing Price Flag: ' || cl.price_flag);
32633: END IF;--temp_table_insert_flag
32634:
32635: --for Java Engine case, the check here will catch it instead of contacting Java Engine
32636: IF (G_TEMP_TABLE_INSERT_FLAG = G_YES) THEN -- If records are inserted in pricing engine from pl/sql tables
32637: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32638: engine_debug('Check to see if all the lines have price flag N');
32639: END IF;
32640: I:= p_line_tbl.FIRST;
32641: WHILE I IS NOT NULL
32668: I:=p_line_tbl.NEXT(I);
32669: END LOOP;
32670:
32671: -- The flag tells if there is atleast 1 order line with price_flag = 'Y'
32672: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32673: engine_debug('Price Flag Yes: ' || l_price_flag_yes_only);
32674:
32675: END IF;
32676: IF (l_price_flag_indx IS NULL ) THEN
32673: engine_debug('Price Flag Yes: ' || l_price_flag_yes_only);
32674:
32675: END IF;
32676: IF (l_price_flag_indx IS NULL ) THEN
32677: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32678: engine_debug('All the lines have price flag N.Hence no pricing returning');
32679: END IF;
32680: x_line_tbl := p_line_tbl;
32681: x_line_qual := p_qual_tbl;
32690: --this method will populate G_PRICE_LIST_SEQUENCE and G_PRICE_LIST_PHASE_ID
32691: --and later NOT-NULL check against these two globals are performed
32692: Get_Price_List_Sequence(l_return_status,l_status_text);
32693:
32694: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
32695: RAISE E_ROUTINE_ERRORS;
32696: END IF;
32697: --=====END: needed by both Java and PL/SQL engine, used later in shared code
32698:
32696: END IF;
32697: --=====END: needed by both Java and PL/SQL engine, used later in shared code
32698:
32699: --=====START: needed by both Java and PL/SQL engine, used in Populate_Output()
32700: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32701: engine_debug('Rounding flag: '||p_control_rec.rounding_flag);
32702: END IF;
32703: l_rounding_flag := nvl(p_control_rec.rounding_flag,G_YES);
32704: --=====START: needed by both Java and PL/SQL engine, used in Populate_Output()
32714: --=======START: Pre-pricing processing needed by JAVA and PL/SQL engine======
32715: IF G_TEMP_TABLE_INSERT_FLAG = G_YES THEN
32716:
32717: /*Truncate_Temp_Tables (l_return_status,l_status_text);
32718: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
32719: RAISE E_ROUTINE_ERRORS;
32720: END IF; */
32721:
32722: -- qp_number.canonical_mask := 'FM999999999999999999999.99999999999999999999999999999999999999';
32723:
32724:
32725: l_bypass_pricing := FND_PROFILE.VALUE(G_BYPASS_PRICING);
32726:
32727: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32728: engine_debug ('Pricing Bypass : ' || l_bypass_pricing);
32729:
32730: END IF;
32731: IF (l_bypass_pricing = 'Y' ) THEN
32738: I:= x_line_tbl.FIRST;
32739:
32740: WHILE I IS NOT NULL LOOP
32741: If x_line_tbl(I).UNIT_PRICE is null or x_line_tbl(I).ADJUSTED_UNIT_PRICE is null
32742: or x_line_tbl(I).UNIT_PRICE = fnd_api.g_miss_num or
32743: x_line_tbl(I).ADJUSTED_UNIT_PRICE = fnd_api.g_miss_num then
32744:
32745: x_line_tbl(I).UNIT_PRICE := l_FIXED_PRICE;
32746: x_line_tbl(I).ADJUSTED_UNIT_PRICE := l_FIXED_PRICE;
32739:
32740: WHILE I IS NOT NULL LOOP
32741: If x_line_tbl(I).UNIT_PRICE is null or x_line_tbl(I).ADJUSTED_UNIT_PRICE is null
32742: or x_line_tbl(I).UNIT_PRICE = fnd_api.g_miss_num or
32743: x_line_tbl(I).ADJUSTED_UNIT_PRICE = fnd_api.g_miss_num then
32744:
32745: x_line_tbl(I).UNIT_PRICE := l_FIXED_PRICE;
32746: x_line_tbl(I).ADJUSTED_UNIT_PRICE := l_FIXED_PRICE;
32747: x_line_tbl(I).STATUS_CODE := QP_PREQ_GRP.G_STATUS_UPDATED;
32759: RAISE E_INVALID_CONTROL_RECORD;
32760: END IF;
32761:
32762:
32763: IF(G_PRICE_LIST_SEQUENCE = NULL OR G_PRICE_LIST_SEQUENCE = FND_API.G_MISS_NUM
32764: OR G_PRICE_LIST_PHASE_ID = NULL OR G_PRICE_LIST_PHASE_ID = FND_API.G_MISS_NUM) THEN
32765: RAISE E_INVALID_PHASE;
32766: END IF;
32767:
32760: END IF;
32761:
32762:
32763: IF(G_PRICE_LIST_SEQUENCE = NULL OR G_PRICE_LIST_SEQUENCE = FND_API.G_MISS_NUM
32764: OR G_PRICE_LIST_PHASE_ID = NULL OR G_PRICE_LIST_PHASE_ID = FND_API.G_MISS_NUM) THEN
32765: RAISE E_INVALID_PHASE;
32766: END IF;
32767:
32768: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32764: OR G_PRICE_LIST_PHASE_ID = NULL OR G_PRICE_LIST_PHASE_ID = FND_API.G_MISS_NUM) THEN
32765: RAISE E_INVALID_PHASE;
32766: END IF;
32767:
32768: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32769: engine_debug('Related_lines count: '||p_related_lines_tbl.COUNT);
32770:
32771: END IF;
32772: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
32768: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32769: engine_debug('Related_lines count: '||p_related_lines_tbl.COUNT);
32770:
32771: END IF;
32772: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
32773: RAISE E_ROUTINE_ERRORS;
32774: END IF;
32775:
32776: --=====needed by both Java Engine and PL/SQL engine, used in populate_output()
32793: END IF;
32794: --=====needed by both Java Engine and PL/SQL engine, used in populate_output()
32795:
32796: ELSE --g_temp_table_insert_flag = 'N', performance path
32797: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32798: engine_debug('Calling application inserted into temp tables');
32799:
32800: END IF;
32801: G_CURRENCY_CODE := QP_PREQ_PUB.G_CURRENCY_CODE;
32843: WHEN NO_DATA_FOUND THEN
32844: l_price_flag_indx := NULL;
32845: END ;
32846:
32847: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32848: engine_debug('Direct Temp Table Insert Price Flag Yes Only : '||l_price_flag_yes_only);
32849:
32850: END IF;
32851: -- This is the code when calling app inserted into temp tables to quit pricing when there are no lines
32850: END IF;
32851: -- This is the code when calling app inserted into temp tables to quit pricing when there are no lines
32852: -- with either price flag = 'Y' or 'P'
32853: IF (l_price_flag_indx IS NULL) THEN
32854: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32855: engine_debug('No Pricing. Returning, call from direct insert into temp tables by calling app');
32856: END IF;
32857: RETURN;
32858: END IF;
32859:
32860: END IF;---p_control_rec.temp_table_insert_flag = G_NO
32861: --=======END: Pre-pricing processing needed by JAVA and PL/SQL engine======
32862:
32863: --IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32864: --engine_debug('Pricing Event: ' || p_control_rec.PRICING_EVENT);
32865: --engine_debug('Pricing Engine Version: ' || QP_PREQ_GRP.GET_VERSION);
32866: --END IF; -- 4033618
32867:
32867:
32868: IF (G_TEMP_TABLE_INSERT_FLAG = G_YES) THEN
32869: --=======START: Truncate/Populate_Temp_tables() needed by JAVA and PL/SQL engine======
32870: Truncate_Temp_Tables (l_return_status,l_status_text);
32871: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
32872: RAISE E_ROUTINE_ERRORS;
32873: END IF;
32874:
32875: Populate_Temp_Tables
32888: p_control_rec.calculate_flag,
32889: l_return_status,
32890: l_status_text);
32891:
32892: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
32893: RAISE E_ROUTINE_ERRORS;
32894: END IF;
32895: --========END: Truncate/Populate_Temp_tables() needed by JAVA and PL/SQL engine======
32896: ELSE
32906: from qp_npreq_lines_tmp
32907: where line_type_code = QP_PREQ_GRP.G_ORDER_LEVEL;
32908: EXCEPTION
32909: WHEN NO_DATA_FOUND THEN
32910: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32911: QP_PREQ_GRP.engine_debug(' - could not get order header ID! Summary request line missing');
32912: END IF; --4033618
32913: END;
32914: END IF;--java engine not installed
32932: --but G_LINE_DETAIL_INDEX is not incremented which causes a
32933: --unique constraint violation on qp_npreq_ldets_tmp_U1
32934: --hence need to fetch the maximum line_detail_index
32935: G_LINE_DETAIL_INDEX := nvl(l_max_line_detail_index,1);
32936: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32937: engine_debug('G_LINE_DETAIL_INDEX '||G_LINE_DETAIL_INDEX);
32938: END IF;
32939: END IF;--java engine not installed
32940: -----------------END: Specific to PL/SQL Engine----------------------
32947:
32948: --added by yangli for Java Engine project
32949: IF QP_JAVA_ENGINE_UTIL_PUB.Java_Engine_Running = 'N' THEN
32950: -----------------START: Specific to PL/SQL Engine----------------------
32951: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32952: ENGINE_DEBUG('Java Engine not Installed ----------');
32953: END IF;
32954:
32955: Update_Processing_Order(l_return_status,l_status_text);
32952: ENGINE_DEBUG('Java Engine not Installed ----------');
32953: END IF;
32954:
32955: Update_Processing_Order(l_return_status,l_status_text);
32956: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32957: engine_debug('After calling update_procss--');
32958:
32959: END IF;
32960: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
32956: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32957: engine_debug('After calling update_procss--');
32958:
32959: END IF;
32960: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
32961: RAISE E_ROUTINE_ERRORS;
32962: END IF;
32963:
32964: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32960: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
32961: RAISE E_ROUTINE_ERRORS;
32962: END IF;
32963:
32964: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32965: FOR i in l_debug loop
32966: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32967: engine_debug('=CONTEXT PASSED: '||i.CONTEXT);
32968: engine_debug('=ATTRIBUTE : '||i.ATTRIBUTE);
32962: END IF;
32963:
32964: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32965: FOR i in l_debug loop
32966: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32967: engine_debug('=CONTEXT PASSED: '||i.CONTEXT);
32968: engine_debug('=ATTRIBUTE : '||i.ATTRIBUTE);
32969: engine_debug('=VALUE : ' ||i.VALUE_FROM);
32970: engine_debug('=LINE INDEX : ' ||i.LINE_INDEX);
32972: END IF;
32973: END LOOP;
32974:
32975: FOR I in debug_cur LOOP
32976: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
32977: engine_debug('Request Type Code: '|| I.REQUEST_TYPE_CODE);
32978: engine_debug('Line Index: '|| I.LINE_INDEX);
32979: engine_debug('Line Type Code: '|| I.LINE_TYPE_CODE);
32980: engine_debug('Price Flag: ' || I.PRICE_FLAG);
33022: AND vset.format_type = 'N'); --by yangli 03/06/2002 9:30am
33023:
33024: EXCEPTION
33025: WHEN OTHERS THEN
33026: x_return_status := FND_API.G_RET_STS_ERROR;
33027: BEGIN
33028:
33029: FOR l_rec IN am_attr_msg_cur
33030: LOOP
33037: EXCEPTION
33038: WHEN OTHERS THEN
33039: l_status_text := 'Exception in QP_PREQ_GRP.PRICE_REQUEST ';
33040: 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 ';
33041: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33042: engine_debug('l_status_text '|| l_status_text);
33043: END IF; --4033618
33044: END;
33045: RAISE E_ROUTINE_ERRORS;
33066: EXCEPTION
33067: --changes for bug 2174000 a qty>23digits causes numeric or value error
33068: --due to the format mas in number_to_canonical
33069: When OTHERS Then
33070: x_return_status := FND_API.G_RET_STS_ERROR;
33071: BEGIN
33072: FOR l_rec IN attr_msg_cur
33073: LOOP
33074: l_msg_context := l_rec.context;
33090: -- begin shu, aso rounding
33091: FOR i IN get_request_type_code_cur LOOP
33092: G_REQUEST_TYPE_CODE:=i.request_type_code;
33093: END LOOP;
33094: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33095: engine_debug ('G_REQUEST_TYPE_CODE: '||G_REQUEST_TYPE_CODE);
33096: engine_debug ('G_TEMP_TABLE_INSERT_FLAG: '||G_TEMP_TABLE_INSERT_FLAG);
33097: END IF;
33098: IF (p_control_rec.rounding_flag IS NULL) THEN
33103: END IF;
33104: ELSE -- p_control_rec.rounding_flag not null, honor what is passed
33105: G_ROUNDING_FLAG := p_control_rec.rounding_flag;
33106: END IF;
33107: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33108: engine_debug ('G_ROUNDING_FLAG: '||G_ROUNDING_FLAG);
33109: END IF;
33110: -- end shu, aso rounding
33111:
33113: -- if G_PRICE_PHASE_FLAG = TRUE then *** Comment for bug#3588320 ***
33114: OPEN order_amount_cur;
33115: FETCH order_amount_cur INTO G_BEFORE_PRICING_ORD_AMT;
33116: CLOSE order_amount_cur;
33117: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33118: engine_debug ('G_BEFORE_PRICING_ORD_AMT: '||G_BEFORE_PRICING_ORD_AMT);
33119: END IF;
33120: -- end if;
33121:
33124: CALL_CALCULATION_ENGINE(p_is_direct_call => TRUE,
33125: x_status_code =>l_return_status,
33126: x_status_text =>l_status_text);
33127:
33128: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
33129: RAISE E_ROUTINE_ERRORS;
33130: END IF;
33131:
33132: ELSIF (p_control_rec.calculate_flag IN (G_SEARCH_N_CALCULATE,G_SEARCH_ONLY) )THEN
33132: ELSIF (p_control_rec.calculate_flag IN (G_SEARCH_N_CALCULATE,G_SEARCH_ONLY) )THEN
33133:
33134: -- 4227407/4361975, this call to update_rounding_factor used to be inside l_phase_cur
33135: -- shu, fix bug 2416047
33136: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33137: engine_debug('update_rounding_factor...');
33138: END IF;
33139: -- Update Rounding Factor, if rounding_flag not N -- Ravi, shu new rounding
33140: IF G_ROUNDING_FLAG <> 'N' THEN -- shu, aso rounding,
33142: QP_PREQ_GRP.G_MCURR_INSTALLED_USED,
33143: l_return_status,
33144: l_status_text);
33145: END IF; -- end if rounding_flag
33146: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33147: RAISE E_ROUTINE_ERRORS;
33148: END IF;
33149:
33150: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33146: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33147: RAISE E_ROUTINE_ERRORS;
33148: END IF;
33149:
33150: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33151: engine_debug('BEFORE event phase loop');
33152: END IF;
33153: l_gone_in_phase_cur_loop := 'N';
33154: FOR I IN l_phase_cur(l_event_code => p_control_rec.pricing_event,
33158: IF (l_prev_pricing_phase_id <> I.pricing_phase_id) THEN
33159:
33160: l_prev_pricing_phase_id := I.pricing_phase_id;
33161:
33162: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33163: engine_debug('Price Flag Yes Only : '||l_price_flag_yes_only);
33164: END IF;
33165:
33166: IF (I.phase_sequence = G_PRICE_LIST_SEQUENCE AND G_MANUAL_ADJUSTMENTS_CALL_FLAG = G_NO AND l_price_flag_yes_only = G_YES) THEN
33179: l_status_text);
33180: l_pricelist_phase_count := l_pricelist_phase_count + 1;
33181: END IF;*/
33182:
33183: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33184: engine_debug('Working on phase: '||I.pricing_phase_id);
33185: END IF;
33186:
33187: -- Update the price list id , validated flag
33185: END IF;
33186:
33187: -- Update the price list id , validated flag
33188: Update_Price_List_Information(I.freeze_override_flag, l_return_status, l_status_text); -- fix bug 2756754
33189: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
33190: Raise E_ROUTINE_ERRORS;
33191: END IF;
33192:
33193: -- ********
33205: x_status_text => l_status_text
33206: );
33207:
33208: qp_debug_util.tstop('PLL_LIST_HEADER_SEARCH');
33209: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33210: RAISE E_ROUTINE_ERRORS;
33211: END IF;
33212:
33213: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33209: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33210: RAISE E_ROUTINE_ERRORS;
33211: END IF;
33212:
33213: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33214: engine_debug('l_further_search: '||l_further_search);
33215: engine_debug('l_further_search: '||l_further_search);
33216:
33217: END IF;
33228: x_status_code => l_return_status,
33229: x_status_text => l_status_text,
33230: p_control_rec => p_control_rec); -- vivek\
33231: qp_debug_util.tstop('SELECT_PRICE_LIST_LINES');
33232: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33233: RAISE E_ROUTINE_ERRORS;
33234: END IF;
33235:
33236: --perform grouping will group all the attributes which
33243:
33244: --Evaluating between operator for both qualifiers and pricing attributes
33245: Evaluate_Between(I.pricing_phase_id,NULL,NULL,l_return_status,l_status_text);
33246:
33247: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33248: RAISE E_ROUTINE_ERRORS;
33249: END IF;
33250:
33251:
33251:
33252: -- Check for multiple item categories and customer classes
33253: Eliminate_Multiple_Hierarchies(I.pricing_phase_id,l_return_status,l_status_text);
33254:
33255: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33256: RAISE E_ROUTINE_ERRORS;
33257: END IF;
33258:
33259: --Handle_Excluder(I.pricing_phase_id,NULL,l_return_status,l_status_text);
33259: --Handle_Excluder(I.pricing_phase_id,NULL,l_return_status,l_status_text);
33260:
33261: Perform_Grouping(I.pricing_phase_id, NULL,l_return_status, l_status_text);
33262:
33263: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33264: RAISE E_ROUTINE_ERRORS;
33265: END IF;
33266:
33267: --Process_Line_Group(I.pricing_phase_id);
33268:
33269: --Evaluating between operator for both qualifiers and pricing attributes
33270: Evaluate_Between(I.pricing_phase_id,'Y',NULL,l_return_status,l_status_text);
33271:
33272: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33273: RAISE E_ROUTINE_ERRORS;
33274: END IF;
33275:
33276: QP_Resolve_Incompatability_PVT.Determine_Pricing_UOM_And_Qty
33282: x_list_line_id => l_list_line_id,
33283: x_return_status => l_return_status,
33284: x_return_status_txt => l_status_text);
33285:
33286: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33287: RAISE E_ROUTINE_ERRORS;
33288: END IF;
33289:
33290: -- 3773652
33305: end;
33306:
33307:
33308: Update_Request_Line_Status(p_control_rec,'SUCCESS',i.freeze_override_flag,l_return_status,l_status_text); --[julin/4708044]
33309: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33310: RAISE E_ROUTINE_ERRORS;
33311: END IF;
33312:
33313:
33334: END IF; -- l_further_search
33335:
33336: -- Bug 3183982, following 4 lines added
33337: CREATE_QUALIFIER_FROM_LIST(l_return_status,l_status_text);
33338: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33339: RAISE E_ROUTINE_ERRORS;
33340: END IF;
33341:
33342: -- Formula Integration
33344: I.pricing_phase_id,
33345: l_return_status,
33346: l_status_text);
33347:
33348: /*IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33349: DELETE_LINES(J.LINE_INDEX,
33350: l_return_status,
33351: l_status_text);
33352: END IF;*/
33354:
33355: -- vivek, call new API
33356: if G_MULTI_CURRENCY_PROFILE = 'Y' and G_USE_MULTI_CURRENCY = 'Y' THEN /*vivek*/
33357: G_MCURR_INSTALLED_USED := 'Y'; -- shulin, used in QPXPCLPB Calculate_List_Price
33358: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33359: engine_debug('multi-currency TRUE - calling QP_MULTI_CURRENCY_PVT.CURRENCY_CONVERSION_API');
33360: END IF;
33361: QP_MULTI_CURRENCY_PVT.CURRENCY_CONVERSION_API(
33362: P_USER_CONVERSION_RATE => P_CONTROL_REC.USER_CONVERSION_RATE
33365: ,P_ROUNDING_FLAG => nvl(P_CONTROL_REC.ROUNDING_FLAG, 'Y')
33366: );
33367: end if;
33368: -- Calculation Engine
33369: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33370: engine_debug('------Before 1st call cal-----------');
33371:
33372: END IF;
33373:
33372: END IF;
33373:
33374: -- Bug 3183982, following 4 lines commented and moved above before calling formula engine
33375: --CREATE_QUALIFIER_FROM_LIST(l_return_status,l_status_text);
33376: --IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33377: -- RAISE E_ROUTINE_ERRORS;
33378: --END IF;
33379:
33380: -- IF p_control_rec.calculate_flag = G_SEARCH_N_CALCULATE THEN
33383: x_status_code =>l_return_status,
33384: x_status_text =>l_status_text);
33385: -- END IF;
33386:
33387: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33388: RAISE E_ROUTINE_ERRORS;
33389: END IF;
33390:
33391: --If it is a price list sequence we need to create this
33397: ELSE -- not a price list sequence
33398:
33399: qp_debug_util.tstart('L_PHASE_CUR_MODIFIERS','Modifiers Phase(Id) : '||I.name||' ('||I.pricing_phase_id||') ', false, true);
33400:
33401: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33402: engine_debug ('Starting new a phase, pricing phase id :' || i.pricing_phase_id);
33403: END IF;
33404: --do not execute the rest is there is no list lines at all
33405: --in those rarely used phase.
33412: OPEN l_chk_phase_exists(i.pricing_phase_id);
33413: FETCH l_chk_phase_exists INTO l_dummy;
33414: IF l_chk_phase_exists%NOTFOUND THEN
33415: l_exec_flag := G_NO;
33416: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33417: engine_debug('In rare_phase_id:'||i.pricing_phase_id||' exec_flag set to N');
33418: END IF;
33419: ELSE
33420: l_exec_flag := G_YES;
33459: I.FREEZE_OVERRIDE_FLAG,
33460: nvl(p_control_rec.source_order_amount_flag,G_NO),
33461: l_return_status,
33462: l_status_text);
33463: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33464: RAISE E_ROUTINE_ERRORS;
33465: END IF;
33466:
33467: Update_Distinct_Qualifier_Flag(l_return_status,l_status_text);
33464: RAISE E_ROUTINE_ERRORS;
33465: END IF;
33466:
33467: Update_Distinct_Qualifier_Flag(l_return_status,l_status_text);
33468: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33469: RAISE E_ROUTINE_ERRORS;
33470: END IF;
33471:
33472: l_discount_phase_count := l_discount_phase_count + 1;
33472: l_discount_phase_count := l_discount_phase_count + 1;
33473: END IF;
33474:
33475:
33476: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33477: engine_debug('#9999999999990');
33478:
33479: END IF;
33480: qp_debug_util.tstart('DIS_LIST_HEADER_SEARCH','Modifier Search - LIST_HEADER_SEARCH API');
33487: x_status_code => l_return_status,
33488: x_status_text => l_status_text
33489: );
33490: qp_debug_util.tstop('DIS_LIST_HEADER_SEARCH');
33491: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33492: RAISE E_ROUTINE_ERRORS;
33493: END IF;
33494:
33495:
33504: x_status_code => l_return_status,
33505: x_status_text => l_status_text);
33506:
33507: qp_debug_util.tstop('SELECT_MODIFIERS');
33508: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33509: RAISE E_ROUTINE_ERRORS;
33510: END IF;
33511: END IF;
33512:
33512:
33513: -- Check for multiple item categories and customer classes
33514: Eliminate_Multiple_Hierarchies(I.pricing_phase_id,l_return_status,l_status_text);
33515:
33516: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33517: RAISE E_ROUTINE_ERRORS;
33518: END IF;
33519:
33520: --Evaluating between operator for only pricing attributes and not qualifiers
33519:
33520: --Evaluating between operator for only pricing attributes and not qualifiers
33521: Evaluate_Between(I.pricing_phase_id,NULL,NULL,l_return_status,l_status_text);
33522:
33523: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33524: RAISE E_ROUTINE_ERRORS;
33525: END IF;
33526:
33527: -- Not needed in modifiers phases as l_outer_qual_cur takes care of this
33529:
33530: -- Only product grouping is done in this ...
33531: Perform_Grouping(I.pricing_phase_id, NULL,l_return_status, l_status_text);
33532:
33533: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33534: RAISE E_ROUTINE_ERRORS;
33535: END IF;
33536:
33537: Process_Line_Group(I.pricing_phase_id,l_return_status,l_status_text);
33534: RAISE E_ROUTINE_ERRORS;
33535: END IF;
33536:
33537: Process_Line_Group(I.pricing_phase_id,l_return_status,l_status_text);
33538: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33539: RAISE E_ROUTINE_ERRORS;
33540: END IF;
33541:
33542: --Evaluating between operator for both qualifiers and pricing attributes
33541:
33542: --Evaluating between operator for both qualifiers and pricing attributes
33543: Evaluate_Between(I.pricing_phase_id,'Y',NULL,l_return_status,l_status_text);
33544:
33545: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33546: RAISE E_ROUTINE_ERRORS;
33547: END IF;
33548:
33549: Get_Eligible_Price_Break(I.pricing_phase_id,NULL,l_return_status,l_status_text);
33546: RAISE E_ROUTINE_ERRORS;
33547: END IF;
33548:
33549: Get_Eligible_Price_Break(I.pricing_phase_id,NULL,l_return_status,l_status_text);
33550: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33551: RAISE E_ROUTINE_ERRORS;
33552: END IF;
33553:
33554: --[julin/5529345]
33553:
33554: --[julin/5529345]
33555: QP_Process_Other_Benefits_PVT.Calculate_Recurring_Quantity(I.pricing_phase_id, l_return_status, l_status_text);
33556:
33557: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33558: RAISE E_ROUTINE_ERRORS;
33559: END IF;
33560:
33561: FOR J IN l_get_line_index_cur(I.pricing_phase_id)
33580: p_control_rec.simulation_flag,
33581: l_return_status,
33582: l_status_text);
33583:
33584: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33585: DELETE_LINES(J.LINE_INDEX,
33586: l_return_status,
33587: l_status_text,
33588: l_error_status_code,
33588: l_error_status_code,
33589: l_error_status_text);
33590: END IF;
33591:
33592: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33593: engine_debug('list price after phase 1 :'||l_list_price);
33594: END IF;
33595:
33596: --IF (l_list_price IS NOT NULL) THEN
33594: END IF;
33595:
33596: --IF (l_list_price IS NOT NULL) THEN
33597: IF (I.INCOMPAT_RESOLVE_CODE = G_INCOMP_PRECEDENCE) THEN
33598: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33599: engine_debug('Precedence evaluation');
33600: END IF;
33601: qp_debug_util.tstart('RESOLVE_INCOMPATABILITY','Resolving Modifiers Incompatability - Resolve_Incompatability API');
33602: QP_Resolve_Incompatability_PVT.Resolve_Incompatability
33606: J.LINE_INDEX,
33607: l_return_status,
33608: l_status_text);
33609: qp_debug_util.tstop('RESOLVE_INCOMPATABILITY');
33610: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33611: RAISE E_ROUTINE_ERRORS;
33612: END IF;
33613: ELSIF (I.INCOMPAT_RESOLVE_CODE = G_INCOMP_BEST_PRICE) THEN
33614: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33610: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33611: RAISE E_ROUTINE_ERRORS;
33612: END IF;
33613: ELSIF (I.INCOMPAT_RESOLVE_CODE = G_INCOMP_BEST_PRICE) THEN
33614: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33615: engine_debug('Best price for phase');
33616: END IF;
33617: QP_Resolve_Incompatability_PVT.Best_Price_For_Phase
33618: (l_list_price,
33619: J.LINE_INDEX,
33620: I.pricing_phase_id,
33621: l_return_status,
33622: l_status_text);
33623: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33624: RAISE E_ROUTINE_ERRORS;
33625: END IF;
33626: ELSE
33627: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33623: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33624: RAISE E_ROUTINE_ERRORS;
33625: END IF;
33626: ELSE
33627: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33628: engine_debug('Error, invalid incomp code: '||I.INCOMPAT_RESOLVE_CODE);
33629: END IF;
33630: END IF;
33631: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33627: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33628: engine_debug('Error, invalid incomp code: '||I.INCOMPAT_RESOLVE_CODE);
33629: END IF;
33630: END IF;
33631: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33632: engine_debug ('G_LINE_DETAIL_INDEX 6: '||G_LINE_DETAIL_INDEX);
33633: END IF;
33634:
33635: --check if there is a pbh line deleted by incomp
33637: OPEN l_chk_deleted_pbh_cur(J.line_index,I.pricing_phase_id);
33638: FETCH l_chk_deleted_pbh_cur INTO l_dummy;
33639: IF l_chk_deleted_pbh_cur%FOUND THEN
33640: Delete_Invalid_PBH_Children(J.line_index,I.pricing_phase_id,l_return_status,l_status_text);
33641: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33642: RAISE E_ROUTINE_ERRORS;
33643: END IF;
33644: END IF;
33645: CLOSE l_chk_deleted_pbh_cur;
33646:
33647: --END IF;
33648:
33649:
33650: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
33651: DELETE_LINES(J.LINE_INDEX,
33652: l_return_status,
33653: l_status_text,
33654: l_error_status_code,
33662: I.pricing_phase_id,
33663: l_return_status,
33664: l_status_text);
33665:
33666: /*IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33667: DELETE_LINES(J.LINE_INDEX,
33668: l_return_status,
33669: l_status_text);
33670: END IF;*/
33670: END IF;*/
33671: END IF; --end if for if l_exec_flag=G_YES
33672: qp_debug_util.tstop('L_PHASE_CUR_MODIFIERS');
33673: END IF; --end if for if price_list_sequence
33674: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33675: engine_debug('calling Set_Order_List_Rltd');
33676: END IF;
33677:
33678:
33679: Set_Order_Level_Rltd(p_freeze_override_flag =>I.freeze_override_flag,
33680: p_pricing_phase_id =>I.pricing_phase_id,
33681: x_status_code =>l_return_status,
33682: x_status_text =>l_status_text);
33683: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33684: RAISE E_ROUTINE_ERRORS;
33685: END IF;
33686: END IF; -- l_pricing_phase_id <> I.pricing_phase_id
33687: END LOOP l_phase_cur;
33687: END LOOP l_phase_cur;
33688:
33689: --Bug fix 3963888 - Call UPDATE_ROUNDING_FACTOR if l_phase_cur cursor did not return any record
33690: If l_gone_in_phase_cur_loop = 'N' then
33691: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33692: engine_debug('l_gone_in_phase_cur_loop is N');
33693: END IF;
33694: -- Update Rounding Factor, if rounding_flag not N -- Ravi, shu new rounding
33695: IF G_ROUNDING_FLAG <> 'N' THEN -- shu, aso rounding,
33698: l_return_status,
33699: l_status_text);
33700:
33701: END IF; -- end if rounding_flag
33702: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33703: RAISE E_ROUTINE_ERRORS;
33704: END IF;
33705: End if;
33706:
33709: OPEN pricing_install_status_cur;
33710: FETCH pricing_install_status_cur into l_install_status;
33711: CLOSE pricing_install_status_cur;
33712:
33713: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33714: engine_debug('Pricing Install Status : ' || l_install_status);
33715: engine_debug('Limits Install Status : ' || l_limits_installed);
33716:
33717: END IF;
33729: IF (l_install_status = 'I' and l_limits_installed = G_YES and
33730: UPPER(p_control_rec.simulation_flag) = 'N' and
33731: nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) <> G_YES) -- price book
33732: THEN
33733: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33734: engine_debug('------Advanced Pricing and Limits Profile is Set-----------');
33735: END IF;
33736: --IF p_control_rec.calculate_flag = G_SEARCH_N_CALCULATE THEN -- check not needed once limits are installed
33737: Call_Calculation_Engine(x_status_code =>l_return_status,
33735: END IF;
33736: --IF p_control_rec.calculate_flag = G_SEARCH_N_CALCULATE THEN -- check not needed once limits are installed
33737: Call_Calculation_Engine(x_status_code =>l_return_status,
33738: x_status_text =>l_status_text);
33739: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
33740: RAISE E_ROUTINE_ERRORS;
33741: END IF;
33742:
33743: G_LIMITS_CODE_EXECUTED := 'Y';
33743: G_LIMITS_CODE_EXECUTED := 'Y';
33744:
33745: --END IF;
33746: ELSE
33747: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33748: engine_debug('------Not calling calculation Engine of limits-----------');
33749: END IF;
33750: END IF ; --l_install_status = 'I' and l_limits_installed = G_YES
33751:
33755: IF (l_install_status = 'I' and l_limits_installed = G_YES and
33756: UPPER(p_control_rec.simulation_flag) = 'N' and
33757: nvl(QP_PREQ_PUB.G_CALL_FROM_PRICE_BOOK, G_NO) <> G_YES) -- price book
33758: THEN
33759: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33760: engine_debug('------Advanced Pricing and Limits Profile is Set 2 -----------');
33761:
33762: END IF;
33763: --Call the Delete Transactions API only if there is atleast one record in
33766: FETCH limit_trans_cur INTO l_trans;
33767:
33768: IF limit_trans_cur%FOUND THEN
33769: QP_Limit_Transactions_PVT.Delete(p_control_rec.pricing_event, l_return_status);
33770: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33771: RAISE E_ROUTINE_ERRORS;
33772: END IF;
33773: END IF;
33774: CLOSE limit_trans_cur;
33791: AND PRICING_STATUS_CODE = G_STATUS_UNCHANGED
33792: and rownum = 1;
33793: exception
33794: when no_data_found then
33795: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33796: engine_debug ('order amount not found in attributes ');
33797: END IF;
33798: OPEN order_amount_cur;
33799: FETCH order_amount_cur INTO v_order_amount;
33799: FETCH order_amount_cur INTO v_order_amount;
33800: CLOSE order_amount_cur;
33801: end;
33802:
33803: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33804: engine_debug ('Total order amount = ' || v_order_amount);
33805: END IF;
33806:
33807: /*
33813: WHERE LINE_TYPE_CODE = 'ORDER';
33814:
33815: QP_Limit_Balance_Check_PVT.Process_Limits(l_return_status,l_status_text);
33816:
33817: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
33818: RAISE E_ROUTINE_ERRORS;
33819: END IF;
33820:
33821: --fix for bug 4765137
33832: FETCH limit_trans_cur INTO l_trans;
33833:
33834: IF limit_trans_cur%FOUND THEN
33835: QP_Limit_Transactions_PVT.Delete(p_control_rec.pricing_event, l_return_status);
33836: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
33837: RAISE E_ROUTINE_ERRORS;
33838: END IF;--l_return_status
33839: END IF;--limit_trans_cur%FOUND
33840: CLOSE limit_trans_cur;
33847: -- Do not Call Calculation Engine if it is from public API Call
33848: -- l_disc_exist_flag will be G_YES when there are discounts. Make a second calculation engine call
33849: -- only if there are discounts,since calculation engine is called for pricing once
33850: IF (G_PUBLIC_API_CALL_FLAG = G_NO and l_disc_exist_flag = G_YES) THEN
33851: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33852: engine_debug('------Calling Calculation Engine as the call is from Group Engine Call-----------');
33853: END IF;
33854: Call_Calculation_Engine(x_status_code =>l_return_status,
33855: x_status_text =>l_status_text);
33852: engine_debug('------Calling Calculation Engine as the call is from Group Engine Call-----------');
33853: END IF;
33854: Call_Calculation_Engine(x_status_code =>l_return_status,
33855: x_status_text =>l_status_text);
33856: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
33857: RAISE E_ROUTINE_ERRORS;
33858: END IF;
33859: ELSE
33860: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33856: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
33857: RAISE E_ROUTINE_ERRORS;
33858: END IF;
33859: ELSE
33860: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33861: engine_debug('------Not Calling Calculation Engine as the call is from Public Engine Call-----------');
33862: END IF;
33863: END IF;
33864:
33865:
33866: l_status_text:='QP_COUPON_PVT.REDEEM_COUPONS';
33867: QP_COUPON_PVT.REDEEM_COUPONS(p_control_rec.simulation_flag, l_return_status, l_status_text);
33868:
33869: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
33870: l_status_text:= 'QP_COUPON_PVT.REDEEM_COUPONS'||l_status_text;
33871: RAISE E_ROUTINE_ERRORS;
33872: END IF;
33873: -----------------END: Specific to PL/SQL Engine----------------------
33872: END IF;
33873: -----------------END: Specific to PL/SQL Engine----------------------
33874: ELSE --Java Engine installed
33875: -----------------START: Specific to Java Engine------------------------
33876: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33877: engine_debug('Before calling QP_JAVA_ENGINE.request_price..');
33878: l_begin_time := dbms_utility.get_time;
33879: END IF;
33880:
33878: l_begin_time := dbms_utility.get_time;
33879: END IF;
33880:
33881: l_request_id := QP_Price_Request_Context.GET_REQUEST_ID;
33882: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33883: engine_debug('Request Id:'||l_request_id);
33884: engine_debug('calc_flag:'||p_control_rec.calculate_flag);
33885: END IF;
33886:
33888: p_control_rec => p_control_rec,
33889: x_return_status => l_return_status,
33890: x_return_status_text => l_status_Text);
33891:
33892: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
33893: --l_status_text:= 'QP_JAVA_ENGINE.request_price:'||l_status_text;
33894: RAISE E_ROUTINE_ERRORS;
33895: END IF;
33896: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33892: IF(l_return_status = FND_API.G_RET_STS_ERROR) THEN
33893: --l_status_text:= 'QP_JAVA_ENGINE.request_price:'||l_status_text;
33894: RAISE E_ROUTINE_ERRORS;
33895: END IF;
33896: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33897: l_end_time := dbms_utility.get_time;
33898: engine_debug('Elapsed time for calling QP_JAVA_ENGINE: '||(l_end_time - l_begin_time)/100);
33899: END IF;
33900: --------------END: Specific to Java Engine------------------
33917: x_line_detail_qual_tbl := l_line_detail_qual_tbl;
33918: x_line_detail_attr_tbl := l_line_detail_attr_tbl;
33919: x_related_lines_tbl := l_related_lines_tbl;
33920:
33921: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33922: engine_debug('No of record in x_line_detail_attr_tbl: '|| x_line_detail_attr_tbl.count);
33923:
33924: END IF;
33925: END IF;
33941: where v$mystat.statistic# = v$statname.statistic#
33942: and v$statname.name = 'redo size';
33943: exception
33944: when others then
33945: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33946: engine_debug('Error in looking up redo end '||SQLERRM);
33947: END IF;
33948: end;
33949: END IF;
33970:
33971: EXCEPTION
33972:
33973: WHEN OTHERS THEN
33974: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33975: engine_debug('< In Price_Request procedure>. Failed to get time statistics');
33976: END IF;
33977: END;
33978: END IF;
33980: /*
33981: l_redo_difference := l_pricing_end_redo - l_pricing_start_redo ;
33982:
33983: 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 ';
33984: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33985: engine_debug('redo log in GRP '||l_redo_difference);
33986: END IF;
33987: */
33988:
33985: engine_debug('redo log in GRP '||l_redo_difference);
33986: END IF;
33987: */
33988:
33989: /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
33990: x_return_status := FND_API.G_RET_STS_ERROR;
33991: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33992: engine_debug('< In Price_Request procedure>. Populate_Temp_Tables return with errors');
33993: END IF;
33986: END IF;
33987: */
33988:
33989: /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
33990: x_return_status := FND_API.G_RET_STS_ERROR;
33991: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33992: engine_debug('< In Price_Request procedure>. Populate_Temp_Tables return with errors');
33993: END IF;
33994: RETURN;
33987: */
33988:
33989: /* IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
33990: x_return_status := FND_API.G_RET_STS_ERROR;
33991: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
33992: engine_debug('< In Price_Request procedure>. Populate_Temp_Tables return with errors');
33993: END IF;
33994: RETURN;
33995: END IF; */
34002: l_status_text
34003: );
34004: --x_return_status := l_return_status; -- fix bug 2756754
34005: --x_return_status_text := l_status_text; -- fix bug 2756754
34006: IF l_return_status = FND_API.G_RET_STS_ERROR THEN -- fix bug 2756754
34007: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34008: engine_debug('Error QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES: '||l_status_text);
34009: END IF; -- END IF G_DEBUG_ENGINE
34010: RAISE E_DEBUG_ROUTINE_ERROR; -- fix bug 2756754, dbg error should not be an hard error
34003: );
34004: --x_return_status := l_return_status; -- fix bug 2756754
34005: --x_return_status_text := l_status_text; -- fix bug 2756754
34006: IF l_return_status = FND_API.G_RET_STS_ERROR THEN -- fix bug 2756754
34007: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34008: engine_debug('Error QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES: '||l_status_text);
34009: END IF; -- END IF G_DEBUG_ENGINE
34010: RAISE E_DEBUG_ROUTINE_ERROR; -- fix bug 2756754, dbg error should not be an hard error
34011: END IF;
34013: END IF;
34014:
34015: -- added global condition for caching - hwong
34016: G_NEW_PRICING_CALL := G_YES;
34017: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34018: engine_debug('hw/pre: change to g_yes');
34019:
34020: engine_debug('***Exiting Oracle Pricing***');
34021:
34025: qp_debug_util.tstop('ENGINE_CALL_QPXGPREB');
34026:
34027: EXCEPTION
34028: WHEN E_SEARCH_FLAG_IS_NULL THEN
34029: x_return_status := FND_API.G_RET_STS_ERROR;
34030: x_return_status_text := 'The search flag on qp_event_phase is null for phase '||l_pricing_phase_id;
34031: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34032: engine_debug( 'The search flag on qp_event_phase is null for phase '||l_pricing_phase_id);
34033: END IF;
34027: EXCEPTION
34028: WHEN E_SEARCH_FLAG_IS_NULL THEN
34029: x_return_status := FND_API.G_RET_STS_ERROR;
34030: x_return_status_text := 'The search flag on qp_event_phase is null for phase '||l_pricing_phase_id;
34031: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34032: engine_debug( 'The search flag on qp_event_phase is null for phase '||l_pricing_phase_id);
34033: END IF;
34034: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
34035: (G_QP_DEBUG_PROFILE_VALUE = G_DONT_WRITE_TO_DEBUG) THEN -- If qp debug is on
34037: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
34038: l_return_status,
34039: l_status_text
34040: );
34041: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34042: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34043: engine_debug('Error occured in Debug Routine: ' || l_status_text);
34044: END IF;
34045: END IF;
34038: l_return_status,
34039: l_status_text
34040: );
34041: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34042: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34043: engine_debug('Error occured in Debug Routine: ' || l_status_text);
34044: END IF;
34045: END IF;
34046: END IF;
34045: END IF;
34046: END IF;
34047: END IF;
34048: WHEN E_INVALID_CONTROL_RECORD THEN
34049: x_return_status := FND_API.G_RET_STS_ERROR;
34050: x_return_status_text := 'INVALID CONTROL RECORD';
34051:
34052: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
34053: (G_QP_DEBUG_PROFILE_VALUE = G_DONT_WRITE_TO_DEBUG) THEN -- If qp debug is on
34055: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
34056: l_return_status,
34057: l_status_text
34058: );
34059: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34060: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34061: engine_debug('Error occured in Debug Routine: ' || l_return_status);
34062: END IF;
34063: END IF;
34056: l_return_status,
34057: l_status_text
34058: );
34059: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34060: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34061: engine_debug('Error occured in Debug Routine: ' || l_return_status);
34062: END IF;
34063: END IF;
34064: END IF;
34063: END IF;
34064: END IF;
34065: END IF;
34066: WHEN E_ROUTINE_ERRORS THEN
34067: x_return_status := FND_API.G_RET_STS_ERROR;
34068: x_return_status_text := l_status_text;
34069: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34070: engine_debug(l_status_text);
34071:
34065: END IF;
34066: WHEN E_ROUTINE_ERRORS THEN
34067: x_return_status := FND_API.G_RET_STS_ERROR;
34068: x_return_status_text := l_status_text;
34069: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34070: engine_debug(l_status_text);
34071:
34072: END IF;
34073: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
34076: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
34077: l_return_status,
34078: l_status_text
34079: );
34080: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34081: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34082: engine_debug('Error occured in Debug Routine: ' || l_status_text);
34083: END IF;
34084: END IF;
34077: l_return_status,
34078: l_status_text
34079: );
34080: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34081: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34082: engine_debug('Error occured in Debug Routine: ' || l_status_text);
34083: END IF;
34084: END IF;
34085: END IF;
34084: END IF;
34085: END IF;
34086: END IF;
34087: WHEN E_INVALID_PHASE THEN
34088: x_return_status := FND_API.G_RET_STS_ERROR;
34089: x_return_status_text := 'Invalid phase sequence for Price List phase, Check setup data';
34090: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34091: engine_debug('Invalid phase sequence for Price List phase');
34092:
34086: END IF;
34087: WHEN E_INVALID_PHASE THEN
34088: x_return_status := FND_API.G_RET_STS_ERROR;
34089: x_return_status_text := 'Invalid phase sequence for Price List phase, Check setup data';
34090: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34091: engine_debug('Invalid phase sequence for Price List phase');
34092:
34093: END IF;
34094: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
34097: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
34098: l_return_status,
34099: l_status_text
34100: );
34101: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34102: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34103: engine_debug('Error occured in Debug Routine: ' || l_status_text);
34104: END IF;
34105: END IF;
34098: l_return_status,
34099: l_status_text
34100: );
34101: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34102: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34103: engine_debug('Error occured in Debug Routine: ' || l_status_text);
34104: END IF;
34105: END IF;
34106: END IF;
34105: END IF;
34106: END IF;
34107: END IF;
34108: WHEN E_NO_SOURCE_SYSTEM THEN
34109: x_return_status := FND_API.G_RET_STS_ERROR;
34110: x_return_status_text := ('No source system found for your request type');
34111: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34112: engine_debug('No source system found for your request type');
34113:
34107: END IF;
34108: WHEN E_NO_SOURCE_SYSTEM THEN
34109: x_return_status := FND_API.G_RET_STS_ERROR;
34110: x_return_status_text := ('No source system found for your request type');
34111: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34112: engine_debug('No source system found for your request type');
34113:
34114: END IF;
34115: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
34118: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
34119: l_return_status,
34120: l_status_text
34121: );
34122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34123: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34124: engine_debug('Error occured in Debug Routine: ' || l_status_text);
34125: END IF;
34126: END IF;
34119: l_return_status,
34120: l_status_text
34121: );
34122: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34123: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34124: engine_debug('Error occured in Debug Routine: ' || l_status_text);
34125: END IF;
34126: END IF;
34127: END IF;
34127: END IF;
34128: END IF;
34129: --fix bug 2756754
34130: WHEN E_DEBUG_ROUTINE_ERROR THEN
34131: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34132: engine_debug('Error occured in Debug Routine.');
34133: END IF;
34134:
34135: WHEN OTHERS THEN
34132: engine_debug('Error occured in Debug Routine.');
34133: END IF;
34134:
34135: WHEN OTHERS THEN
34136: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34137: engine_debug('In Price_Request: '||l_status_text||' '||SQLERRM);
34138: END IF;
34139: x_return_status := FND_API.G_RET_STS_ERROR;
34140: x_return_status_text := SQLERRM;
34135: WHEN OTHERS THEN
34136: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34137: engine_debug('In Price_Request: '||l_status_text||' '||SQLERRM);
34138: END IF;
34139: x_return_status := FND_API.G_RET_STS_ERROR;
34140: x_return_status_text := SQLERRM;
34141:
34142: IF (G_QP_DEBUG_PROFILE_VALUE = G_YES) OR
34143: (G_QP_DEBUG_PROFILE_VALUE = G_DONT_WRITE_TO_DEBUG) THEN -- If qp debug is on
34145: QP_COPY_DEBUG_PVT.WRITE_TO_DEBUG_TABLES(p_control_rec,
34146: l_return_status,
34147: l_status_text
34148: );
34149: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34150: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34151: engine_debug('Error occured in Debug Routine: ' || l_status_text);
34152: END IF;
34153: END IF;
34146: l_return_status,
34147: l_status_text
34148: );
34149: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
34150: IF G_DEBUG_ENGINE = FND_API.G_TRUE THEN
34151: engine_debug('Error occured in Debug Routine: ' || l_status_text);
34152: END IF;
34153: END IF;
34154: END IF;