DBA Data[Home] [Help]

APPS.QP_PRICE_BOOK_UTIL dependencies on FND_API

Line 2395: RAISE FND_API.G_EXC_ERROR;

2391: l_count := 0;
2392: END;
2393:
2394: IF l_count > 0 THEN
2395: RAISE FND_API.G_EXC_ERROR;
2396: END IF;
2397:
2398: INSERT INTO qp_price_book_headers_all_b (
2399: price_book_header_id,

Line 3064: x_return_status := FND_API.G_RET_STS_ERROR;

3060: AND organization_id = p_org_id;
3061: EXCEPTION
3062: WHEN NO_DATA_FOUND THEN
3063: x_prod_attr_value := 'ITEM_LOOKUP_FAILED';
3064: x_return_status := FND_API.G_RET_STS_ERROR;
3065: FND_MESSAGE.SET_NAME('QP', 'QP_XML_ITEM_NOT_FOUND');
3066: FND_MESSAGE.SET_TOKEN('ITEM_NUMBER', p_item_number);
3067: x_return_text := FND_MESSAGE.GET;
3068: WHEN TOO_MANY_ROWS THEN

Line 3070: x_return_status := FND_API.G_RET_STS_ERROR;

3066: FND_MESSAGE.SET_TOKEN('ITEM_NUMBER', p_item_number);
3067: x_return_text := FND_MESSAGE.GET;
3068: WHEN TOO_MANY_ROWS THEN
3069: x_prod_attr_value := 'ITEM_LOOKUP_FAILED';
3070: x_return_status := FND_API.G_RET_STS_ERROR;
3071: FND_MESSAGE.SET_NAME('QP', 'QP_XML_ITEM_MULTI_FOUND');
3072: FND_MESSAGE.SET_TOKEN('ITEM_NUMBER', p_item_number);
3073: x_return_text := FND_MESSAGE.GET;
3074: END;

Line 3110: x_return_status := FND_API.G_RET_STS_ERROR;

3106: WHERE category_name = p_item_category_name;
3107: EXCEPTION
3108: WHEN NO_DATA_FOUND THEN
3109: x_prod_attr_value := 'CATEGORY_LOOKUP_FAILED';
3110: x_return_status := FND_API.G_RET_STS_ERROR;
3111: FND_MESSAGE.SET_NAME('QP', 'QP_XML_CATEGORY_NOT_FOUND');
3112: FND_MESSAGE.SET_TOKEN('CATEGORY_NAME', p_item_category_name);
3113: x_return_text := FND_MESSAGE.GET;
3114: WHEN TOO_MANY_ROWS THEN

Line 3116: x_return_status := FND_API.G_RET_STS_ERROR;

3112: FND_MESSAGE.SET_TOKEN('CATEGORY_NAME', p_item_category_name);
3113: x_return_text := FND_MESSAGE.GET;
3114: WHEN TOO_MANY_ROWS THEN
3115: x_prod_attr_value := 'CATEGORY_LOOKUP_FAILED';
3116: x_return_status := FND_API.G_RET_STS_ERROR;
3117: FND_MESSAGE.SET_NAME('QP', 'QP_XML_CATEGORY_MULTI_FOUND');
3118: FND_MESSAGE.SET_TOKEN('CATEGORY_NAME', p_item_category_name);
3119: x_return_text := FND_MESSAGE.GET;
3120: END;

Line 3133: x_return_status := FND_API.G_RET_STS_ERROR;

3129: x_pl_agr_bsa_id := p_price_list_id;
3130: ELSIF (p_price_list_name is not null) THEN
3131: x_pl_agr_bsa_id := GET_PRICE_LIST_ID(p_price_list_name);
3132: IF x_pl_agr_bsa_id is null THEN
3133: x_return_status := FND_API.G_RET_STS_ERROR;
3134: FND_MESSAGE.SET_NAME('QP', 'QP_XML_PRICELIST_NOT_FOUND');
3135: FND_MESSAGE.SET_TOKEN('PRICELIST_NAME', p_price_list_name);
3136: x_return_text := FND_MESSAGE.GET;
3137: END IF;

Line 3146: x_return_status := FND_API.G_RET_STS_ERROR;

3142: x_pl_agr_bsa_id := p_agreement_id;
3143: ELSIF (p_agreement_name is not null) THEN
3144: x_pl_agr_bsa_id := GET_AGREEMENT_ID(p_agreement_name, p_pricing_effective_date);
3145: IF x_pl_agr_bsa_id is null THEN
3146: x_return_status := FND_API.G_RET_STS_ERROR;
3147: FND_MESSAGE.SET_NAME('QP', 'QP_XML_AGREEMENT_NOT_FOUND');
3148: FND_MESSAGE.SET_TOKEN('AGREEMENT_NAME', p_agreement_name);
3149: FND_MESSAGE.SET_TOKEN('EFFECTIVE_DATE', p_pricing_effective_date);
3150: x_return_text := FND_MESSAGE.GET;

Line 3160: x_return_status := FND_API.G_RET_STS_ERROR;

3156: x_pl_agr_bsa_id := p_bsa_id;
3157: ELSIF (p_bsa_name is not null) THEN
3158: x_pl_agr_bsa_id := GET_BSA_ID(p_bsa_name);
3159: IF x_pl_agr_bsa_id is null THEN
3160: x_return_status := FND_API.G_RET_STS_ERROR;
3161: FND_MESSAGE.SET_NAME('QP', 'QP_XML_BSA_NOT_FOUND');
3162: FND_MESSAGE.SET_TOKEN('BSA_NAME', p_bsa_name);
3163: x_return_text := FND_MESSAGE.GET;
3164: END IF;

Line 3189: x_return_status := FND_API.G_RET_STS_ERROR;

3185: AND prc_context_type = p_attribute_type;
3186: EXCEPTION
3187: WHEN NO_DATA_FOUND THEN
3188: x_context_code := null;
3189: x_return_status := FND_API.G_RET_STS_ERROR;
3190: FND_MESSAGE.SET_NAME('QP', 'QP_XML_CONTEXT_NOT_FOUND');
3191: FND_MESSAGE.SET_TOKEN('CONTEXT_NAME', p_context_name);
3192: FND_MESSAGE.SET_TOKEN('CONTEXT_TYPE', p_attribute_type);
3193: x_return_text := FND_MESSAGE.GET;

Line 3196: x_return_status := FND_API.G_RET_STS_ERROR;

3192: FND_MESSAGE.SET_TOKEN('CONTEXT_TYPE', p_attribute_type);
3193: x_return_text := FND_MESSAGE.GET;
3194: WHEN TOO_MANY_ROWS THEN
3195: x_context_code := null;
3196: x_return_status := FND_API.G_RET_STS_ERROR;
3197: FND_MESSAGE.SET_NAME('QP', 'QP_XML_CONTEXT_MULTI_FOUND');
3198: FND_MESSAGE.SET_TOKEN('CONTEXT_NAME', p_context_name);
3199: FND_MESSAGE.SET_TOKEN('CONTEXT_TYPE', p_attribute_type);
3200: x_return_text := FND_MESSAGE.GET;

Line 3226: x_return_status := FND_API.G_RET_STS_ERROR;

3222: AND nvl(stl.user_segment_name,stl.seeded_segment_name) = p_attribute_name;
3223: EXCEPTION
3224: WHEN NO_DATA_FOUND THEN
3225: x_attribute_code := null;
3226: x_return_status := FND_API.G_RET_STS_ERROR;
3227: FND_MESSAGE.SET_NAME('QP', 'QP_XML_ATTRIBUTE_NOT_FOUND');
3228: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', p_attribute_name);
3229: FND_MESSAGE.SET_TOKEN('CONTEXT_TYPE', p_attribute_type);
3230: FND_MESSAGE.SET_TOKEN('CONTEXT_CODE', p_context_code);

Line 3234: x_return_status := FND_API.G_RET_STS_ERROR;

3230: FND_MESSAGE.SET_TOKEN('CONTEXT_CODE', p_context_code);
3231: x_return_text := FND_MESSAGE.GET;
3232: WHEN TOO_MANY_ROWS THEN
3233: x_attribute_code := null;
3234: x_return_status := FND_API.G_RET_STS_ERROR;
3235: FND_MESSAGE.SET_NAME('QP', 'QP_XML_ATTRIBUTE_MULTI_FOUND');
3236: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_NAME', p_attribute_name);
3237: FND_MESSAGE.SET_TOKEN('CONTEXT_TYPE', p_attribute_type);
3238: FND_MESSAGE.SET_TOKEN('CONTEXT_CODE', p_context_code);

Line 3335: x_return_status := FND_API.G_RET_STS_ERROR;

3331:
3332: EXCEPTION
3333: WHEN NO_DATA_FOUND THEN
3334: x_attribute_value_code := null;
3335: x_return_status := FND_API.G_RET_STS_ERROR;
3336: FND_MESSAGE.SET_NAME('QP', 'QP_XML_ATTR_VALUE_NOT_FOUND');
3337: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_VALUE_NAME', p_attribute_value_name);
3338: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_CODE', p_attribute_code);
3339: FND_MESSAGE.SET_TOKEN('CONTEXT_TYPE', p_attribute_type);

Line 3344: x_return_status := FND_API.G_RET_STS_ERROR;

3340: FND_MESSAGE.SET_TOKEN('CONTEXT_CODE', p_context_code);
3341: x_return_text := FND_MESSAGE.GET;
3342: WHEN TOO_MANY_ROWS THEN
3343: x_attribute_value_code := null;
3344: x_return_status := FND_API.G_RET_STS_ERROR;
3345: FND_MESSAGE.SET_NAME('QP', 'QP_XML_ATTR_VALUE_MULTI_FOUND');
3346: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_VALUE_NAME', p_attribute_value_name);
3347: FND_MESSAGE.SET_TOKEN('ATTRIBUTE_CODE', p_attribute_code);
3348: FND_MESSAGE.SET_TOKEN('CONTEXT_TYPE', p_attribute_type);

Line 3366: IF l_status <> FND_API.G_RET_STS_SUCCESS THEN

3362: l_status VARCHAR2(30);
3363: l_status_text VARCHAR2(2000);
3364: BEGIN
3365: PUBLISH_AND_DELIVER(p_pb_input_header_id, p_price_book_id, p_servlet_url, l_status, l_status_text);
3366: IF l_status <> FND_API.G_RET_STS_SUCCESS THEN
3367: retcode := 2;
3368: err_buff := l_status_text;
3369: ELSE
3370: retcode := 0;

Line 3414: IF l_debug = FND_API.G_TRUE THEN

3410: BEGIN
3411:
3412: QP_PREQ_GRP.Set_QP_Debug;
3413: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3414: IF l_debug = FND_API.G_TRUE THEN
3415: l_output_file := OE_DEBUG_PUB.SET_DEBUG_MODE('FILE');
3416: FND_FILE.PUT_LINE( FND_FILE.LOG, 'The output file is : ' || l_output_file );
3417: END IF;
3418:

Line 3444: FND_API.G_TRUE);

3440: l_return_status_text,
3441: l_dummy_return_details,
3442: false,
3443: L_TRANSFER_TIMEOUT,
3444: FND_API.G_TRUE);
3445:
3446: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3447: IF (l_return_status_text = 'UTL_TCP.END_OF_INPUT') THEN
3448: l_status_request_cnt := 0;

Line 3446: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN

3442: false,
3443: L_TRANSFER_TIMEOUT,
3444: FND_API.G_TRUE);
3445:
3446: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
3447: IF (l_return_status_text = 'UTL_TCP.END_OF_INPUT') THEN
3448: l_status_request_cnt := 0;
3449: BEGIN
3450: LOOP

Line 3476: x_return_status := FND_API.G_RET_STS_SUCCESS;

3472: RAISE E_ROUTINE_ERRORS;
3473: END IF;
3474: END IF;
3475:
3476: x_return_status := FND_API.G_RET_STS_SUCCESS;
3477:
3478: EXCEPTION
3479: WHEN INVALID_PARAMS_ERROR THEN
3480: x_return_status := FND_API.G_RET_STS_ERROR;

Line 3480: x_return_status := FND_API.G_RET_STS_ERROR;

3476: x_return_status := FND_API.G_RET_STS_SUCCESS;
3477:
3478: EXCEPTION
3479: WHEN INVALID_PARAMS_ERROR THEN
3480: x_return_status := FND_API.G_RET_STS_ERROR;
3481: x_return_status_text := 'Invalid parameter values.';
3482: WHEN E_ROUTINE_ERRORS THEN
3483: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3484: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);

Line 3483: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN

3479: WHEN INVALID_PARAMS_ERROR THEN
3480: x_return_status := FND_API.G_RET_STS_ERROR;
3481: x_return_status_text := 'Invalid parameter values.';
3482: WHEN E_ROUTINE_ERRORS THEN
3483: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3484: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);
3485: QP_PREQ_GRP.engine_debug(l_routine||'SQLERRM:'||SQLERRM);
3486: END IF;
3487: x_return_status := FND_API.G_RET_STS_ERROR;

Line 3487: x_return_status := FND_API.G_RET_STS_ERROR;

3483: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3484: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);
3485: QP_PREQ_GRP.engine_debug(l_routine||'SQLERRM:'||SQLERRM);
3486: END IF;
3487: x_return_status := FND_API.G_RET_STS_ERROR;
3488: x_return_status_text := l_return_status_text;
3489: WHEN MAX_STATUS_REQUESTS_REACHED THEN
3490: x_return_status := FND_API.G_RET_STS_ERROR;
3491: x_return_status_text := 'Request has exceeded '||(L_MAX_STATUS_REQUESTS*L_STATUS_REQUEST_INTERVAL)||' seconds.';

Line 3490: x_return_status := FND_API.G_RET_STS_ERROR;

3486: END IF;
3487: x_return_status := FND_API.G_RET_STS_ERROR;
3488: x_return_status_text := l_return_status_text;
3489: WHEN MAX_STATUS_REQUESTS_REACHED THEN
3490: x_return_status := FND_API.G_RET_STS_ERROR;
3491: x_return_status_text := 'Request has exceeded '||(L_MAX_STATUS_REQUESTS*L_STATUS_REQUEST_INTERVAL)||' seconds.';
3492: WHEN INVALID_PRICE_BOOK_HEADER THEN
3493: x_return_status := FND_API.G_RET_STS_ERROR;
3494: x_return_status_text := 'Invalid price book header id.';

Line 3493: x_return_status := FND_API.G_RET_STS_ERROR;

3489: WHEN MAX_STATUS_REQUESTS_REACHED THEN
3490: x_return_status := FND_API.G_RET_STS_ERROR;
3491: x_return_status_text := 'Request has exceeded '||(L_MAX_STATUS_REQUESTS*L_STATUS_REQUEST_INTERVAL)||' seconds.';
3492: WHEN INVALID_PRICE_BOOK_HEADER THEN
3493: x_return_status := FND_API.G_RET_STS_ERROR;
3494: x_return_status_text := 'Invalid price book header id.';
3495: WHEN OTHERS THEN
3496: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3497: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);

Line 3496: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN

3492: WHEN INVALID_PRICE_BOOK_HEADER THEN
3493: x_return_status := FND_API.G_RET_STS_ERROR;
3494: x_return_status_text := 'Invalid price book header id.';
3495: WHEN OTHERS THEN
3496: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3497: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);
3498: QP_PREQ_GRP.engine_debug(l_routine||'SQLERRM:'||SQLERRM);
3499: END IF;
3500: x_return_status := FND_API.G_RET_STS_ERROR;

Line 3500: x_return_status := FND_API.G_RET_STS_ERROR;

3496: IF QP_PREQ_GRP.G_DEBUG_ENGINE = FND_API.G_TRUE THEN
3497: QP_PREQ_GRP.engine_debug(l_routine||'l_return_status_text:'||l_return_status_text);
3498: QP_PREQ_GRP.engine_debug(l_routine||'SQLERRM:'||SQLERRM);
3499: END IF;
3500: x_return_status := FND_API.G_RET_STS_ERROR;
3501: x_return_status_text := l_return_status_text;
3502: END PUBLISH_AND_DELIVER;
3503:
3504: PROCEDURE SEND_SYNC_CATALOG

Line 3547: IF (l_debug = FND_API.G_TRUE) THEN

3543: -- set debug level
3544: QP_PREQ_GRP.Set_QP_Debug;
3545: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3546:
3547: IF (l_debug = FND_API.G_TRUE) THEN
3548: QP_PREQ_GRP.engine_debug('ENTERING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG');
3549: END IF;
3550:
3551: IF (l_debug = FND_API.G_TRUE) THEN

Line 3551: IF (l_debug = FND_API.G_TRUE) THEN

3547: IF (l_debug = FND_API.G_TRUE) THEN
3548: QP_PREQ_GRP.engine_debug('ENTERING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG');
3549: END IF;
3550:
3551: IF (l_debug = FND_API.G_TRUE) THEN
3552: QP_PREQ_GRP.engine_debug('With the following parameters:');
3553: QP_PREQ_GRP.engine_debug('p_price_book_header_id:' || p_price_book_header_id);
3554: END IF;
3555:

Line 3583: IF (l_debug = FND_API.G_TRUE) THEN

3579: FROM qp_price_book_headers_b p, qp_pb_input_headers_b i
3580: WHERE p.price_book_header_id = p_price_book_header_id
3581: AND p.pb_input_header_id = i.pb_input_header_id;
3582:
3583: IF (l_debug = FND_API.G_TRUE) THEN
3584: QP_PREQ_GRP.engine_debug('party_id:' || party_id);
3585: QP_PREQ_GRP.engine_debug('party_site_id:' || party_site_id);
3586: END IF;
3587:

Line 3592: IF (l_debug = FND_API.G_TRUE) THEN

3588: SELECT FND_PROFILE.VALUE('ORG_ID')
3589: INTO l_operating_unit_id
3590: FROM dual;
3591:
3592: IF (l_debug = FND_API.G_TRUE) THEN
3593: QP_PREQ_GRP.engine_debug('l_operating_unit_id:' || l_operating_unit_id);
3594: END IF;
3595:
3596: l_inv_org_id := qp_util.Get_Item_Validation_Org;

Line 3597: IF (l_debug = FND_API.G_TRUE) THEN

3593: QP_PREQ_GRP.engine_debug('l_operating_unit_id:' || l_operating_unit_id);
3594: END IF;
3595:
3596: l_inv_org_id := qp_util.Get_Item_Validation_Org;
3597: IF (l_debug = FND_API.G_TRUE) THEN
3598: QP_PREQ_GRP.engine_debug('l_inv_org_id:' || l_inv_org_id);
3599: END IF;
3600:
3601: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Parameters Initialized';

Line 3602: IF (l_debug = FND_API.G_TRUE) THEN

3598: QP_PREQ_GRP.engine_debug('l_inv_org_id:' || l_inv_org_id);
3599: END IF;
3600:
3601: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Parameters Initialized';
3602: IF (l_debug = FND_API.G_TRUE) THEN
3603: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3604: END IF;
3605:
3606: -- XML Setup Check

Line 3607: IF (l_debug = FND_API.G_TRUE) THEN

3603: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3604: END IF;
3605:
3606: -- XML Setup Check
3607: IF (l_debug = FND_API.G_TRUE) THEN
3608: QP_PREQ_GRP.engine_debug('Parameters before ecx_document.isDeliveryRequired:');
3609: QP_PREQ_GRP.engine_debug('transaction_type:' || transaction_type);
3610: QP_PREQ_GRP.engine_debug('transaction_subtype:' || transaction_subtype);
3611: QP_PREQ_GRP.engine_debug('party_id:' || party_id);

Line 3626: IF (l_debug = FND_API.G_TRUE) THEN

3622: resultout => result,
3623: retcode => return_code,
3624: errmsg => errmsg);
3625:
3626: IF (l_debug = FND_API.G_TRUE) THEN
3627: QP_PREQ_GRP.engine_debug('Values returned from ecx_document.isDeliveryRequired:');
3628: QP_PREQ_GRP.engine_debug('return_code:' || return_code);
3629: QP_PREQ_GRP.engine_debug('errmsg:' || errmsg);
3630: END IF;

Line 3633: IF (l_debug = FND_API.G_TRUE) THEN

3629: QP_PREQ_GRP.engine_debug('errmsg:' || errmsg);
3630: END IF;
3631:
3632: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : XML Setup Check';
3633: IF (l_debug = FND_API.G_TRUE) THEN
3634: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3635: END IF;
3636:
3637: IF NOT(result) THEN

Line 3640: IF (l_debug = FND_API.G_TRUE) THEN

3636:
3637: IF NOT(result) THEN
3638: -- trading partner not found
3639: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : No Trading Partner found during XML Setup Check';
3640: IF (l_debug = FND_API.G_TRUE) THEN
3641: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3642: END IF;
3643:
3644: ELSE -- no number specified, send in one message

Line 3647: IF (l_debug = FND_API.G_TRUE) THEN

3643:
3644: ELSE -- no number specified, send in one message
3645:
3646: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : No Number Limit Specified';
3647: IF (l_debug = FND_API.G_TRUE) THEN
3648: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3649: END IF;
3650:
3651: -- create unique key

Line 3653: IF (l_debug = FND_API.G_TRUE) THEN

3649: END IF;
3650:
3651: -- create unique key
3652: SELECT QP_XML_MESSAGES_S.NEXTVAL INTO l_syncctlg_seq FROM dual;
3653: IF (l_debug = FND_API.G_TRUE) THEN
3654: QP_PREQ_GRP.engine_debug('l_syncctlg_seq:' || l_syncctlg_seq);
3655: END IF;
3656: l_event_key := to_char(p_price_book_header_id) || '.' || to_char(l_syncctlg_seq);
3657:

Line 3659: IF (l_debug = FND_API.G_TRUE) THEN

3655: END IF;
3656: l_event_key := to_char(p_price_book_header_id) || '.' || to_char(l_syncctlg_seq);
3657:
3658: SELECT SYSDATE INTO l_date FROM dual;
3659: IF (l_debug = FND_API.G_TRUE) THEN
3660: QP_PREQ_GRP.engine_debug('l_date:' || l_date);
3661: END IF;
3662: l_canonical_date := FND_DATE.DATE_TO_CANONICAL(l_date);
3663:

Line 3665: IF (l_debug = FND_API.G_TRUE) THEN

3661: END IF;
3662: l_canonical_date := FND_DATE.DATE_TO_CANONICAL(l_date);
3663:
3664: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Created Unique Key';
3665: IF (l_debug = FND_API.G_TRUE) THEN
3666: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3667: END IF;
3668:
3669: -- add parameters to list for create collaboration event

Line 3702: IF (l_debug = FND_API.G_TRUE) THEN

3698: p_value => l_canonical_date,
3699: p_parameterlist => l_create_cln_parameter_list);
3700:
3701: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Initialize Create Event Parameters';
3702: IF (l_debug = FND_API.G_TRUE) THEN
3703: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3704: end if;
3705:
3706: -- raise create collaboration event

Line 3712: IF (l_debug = FND_API.G_TRUE) THEN

3708: p_event_key => l_event_key,
3709: p_parameters => l_create_cln_parameter_list);
3710:
3711: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Create Event Raised';
3712: IF (l_debug = FND_API.G_TRUE) THEN
3713: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3714: end if;
3715:
3716: -- add parameters to list for send show shipment document

Line 3791: IF (l_debug = FND_API.G_TRUE) THEN

3787: p_value => NULL,
3788: p_parameterlist => l_send_syct_parameter_list);
3789:
3790: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Send Document Event Parameters Initialized';
3791: IF (l_debug = FND_API.G_TRUE) THEN
3792: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3793: END IF;
3794:
3795: -- raise event for send show shipment document

Line 3801: IF (l_debug = FND_API.G_TRUE) THEN

3797: p_event_key => l_event_key,
3798: p_parameters => l_send_syct_parameter_list);
3799:
3800: x_progress := 'QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG : Send Document Event Raised';
3801: IF (l_debug = FND_API.G_TRUE) THEN
3802: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3803: END IF;
3804:
3805: END IF;

Line 3807: IF (l_debug = FND_API.G_TRUE) THEN

3803: END IF;
3804:
3805: END IF;
3806:
3807: IF (l_debug = FND_API.G_TRUE) THEN
3808: QP_PREQ_GRP.engine_debug('EXITING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG Successfully');
3809: END IF;
3810:
3811: x_return_status := FND_API.G_RET_STS_SUCCESS;

Line 3811: x_return_status := FND_API.G_RET_STS_SUCCESS;

3807: IF (l_debug = FND_API.G_TRUE) THEN
3808: QP_PREQ_GRP.engine_debug('EXITING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG Successfully');
3809: END IF;
3810:
3811: x_return_status := FND_API.G_RET_STS_SUCCESS;
3812:
3813: EXCEPTION
3814: WHEN OTHERS THEN
3815: l_error_code := SQLCODE;

Line 3817: IF (l_debug = FND_API.G_TRUE) THEN

3813: EXCEPTION
3814: WHEN OTHERS THEN
3815: l_error_code := SQLCODE;
3816: l_error_msg := SQLERRM;
3817: IF (l_debug = FND_API.G_TRUE) THEN
3818: QP_PREQ_GRP.engine_debug('Exception ' || ':' || l_error_code || ':' || l_error_msg);
3819: END IF;
3820:
3821: x_progress := 'EXITING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG in Error ';

Line 3822: IF (l_debug = FND_API.G_TRUE) THEN

3818: QP_PREQ_GRP.engine_debug('Exception ' || ':' || l_error_code || ':' || l_error_msg);
3819: END IF;
3820:
3821: x_progress := 'EXITING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG in Error ';
3822: IF (l_debug = FND_API.G_TRUE) THEN
3823: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3824: END IF;
3825: x_return_status := FND_API.G_RET_STS_ERROR;
3826: x_return_status_text := l_error_msg;

Line 3825: x_return_status := FND_API.G_RET_STS_ERROR;

3821: x_progress := 'EXITING QP_PRICE_BOOK_UTIL.SEND_SYNC_CATALOG in Error ';
3822: IF (l_debug = FND_API.G_TRUE) THEN
3823: QP_PREQ_GRP.engine_debug('Failure point ' || x_progress);
3824: END IF;
3825: x_return_status := FND_API.G_RET_STS_ERROR;
3826: x_return_status_text := l_error_msg;
3827: END SEND_SYNC_CATALOG;
3828:
3829: PROCEDURE GENERATE_PUBLISH_PRICE_BOOK_WF

Line 3872: IF l_debug = FND_API.G_TRUE THEN

3868:
3869: SET_XML_CONTEXT(l_user_name, l_status_code, l_status_text);
3870:
3871: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3872: IF l_debug = FND_API.G_TRUE THEN
3873: QP_PREQ_GRP.engine_debug(l_routine||'calling GENERATE_PUBLISH_PRICE_BOOK');
3874: END IF;
3875: QP_PRICE_BOOK_PVT.GENERATE_PUBLISH_PRICE_BOOK(l_pb_input_header_id,
3876: l_request_id,

Line 3880: IF l_debug = FND_API.G_TRUE THEN

3876: l_request_id,
3877: l_status_code,
3878: l_ret_code,
3879: l_err_buf);
3880: IF l_debug = FND_API.G_TRUE THEN
3881: QP_PREQ_GRP.engine_debug(l_routine||'returned from GENERATE_PUBLISH_PRICE_BOOK');
3882: END IF;
3883:
3884: resultout := wf_engine.eng_completed||':'||wf_engine.eng_null;

Line 3916: IF l_debug = FND_API.G_TRUE THEN

3912:
3913: QP_PREQ_GRP.Set_QP_Debug;
3914: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
3915:
3916: IF l_debug = FND_API.G_TRUE THEN
3917: QP_PREQ_GRP.engine_debug( 'ENTERING CATSO_SELECTOR PROCEDURE' ) ;
3918: QP_PREQ_GRP.engine_debug( 'THE WORKFLOW FUNCTION MODE IS: FUNCMODE='||P_FUNCMODE ) ;
3919: END IF;
3920:

Line 3922: IF l_debug = FND_API.G_TRUE THEN

3918: QP_PREQ_GRP.engine_debug( 'THE WORKFLOW FUNCTION MODE IS: FUNCMODE='||P_FUNCMODE ) ;
3919: END IF;
3920:
3921: IF (p_funcmode = 'RUN') THEN
3922: IF l_debug = FND_API.G_TRUE THEN
3923: QP_PREQ_GRP.engine_debug( 'P_FUNCMODE IS RUN' ) ;
3924: END IF;
3925: p_x_result := 'COMPLETE';
3926: ELSIF(p_funcmode = 'TEST_CTX') THEN

Line 3927: IF l_debug = FND_API.G_TRUE THEN

3923: QP_PREQ_GRP.engine_debug( 'P_FUNCMODE IS RUN' ) ;
3924: END IF;
3925: p_x_result := 'COMPLETE';
3926: ELSIF(p_funcmode = 'TEST_CTX') THEN
3927: IF l_debug = FND_API.G_TRUE THEN
3928: QP_PREQ_GRP.engine_debug( 'P_FUNCMODE IS TEST_CTX' ) ;
3929: END IF;
3930:
3931: l_org_id := wf_engine.GetItemAttrNumber (itemtype => p_itemtype,

Line 3935: IF l_debug = FND_API.G_TRUE THEN

3931: l_org_id := wf_engine.GetItemAttrNumber (itemtype => p_itemtype,
3932: itemkey => p_itemkey,
3933: aname => 'ORG_ID');
3934:
3935: IF l_debug = FND_API.G_TRUE THEN
3936: QP_PREQ_GRP.engine_debug( 'l_org_id (from workflow)=>'|| l_org_id ) ;
3937: QP_PREQ_GRP.engine_debug( 'mo_global.get_current_org_id =>'|| mo_global.get_current_org_id ) ;
3938: END IF;
3939:

Line 3951: IF l_debug = FND_API.G_TRUE THEN

3947: END IF;
3948: END IF;
3949:
3950: ELSIF(p_funcmode = 'SET_CTX') THEN
3951: IF l_debug = FND_API.G_TRUE THEN
3952: QP_PREQ_GRP.engine_debug( 'P_FUNCMODE IS SET_CTX' ) ;
3953: END IF;
3954:
3955: l_user_id := wf_engine.GetItemAttrNumber (itemtype => p_itemtype,

Line 3968: IF l_debug = FND_API.G_TRUE THEN

3964: l_org_id := wf_engine.GetItemAttrNumber (itemtype => p_itemtype,
3965: itemkey => p_itemkey,
3966: aname => 'ORG_ID');
3967:
3968: IF l_debug = FND_API.G_TRUE THEN
3969: QP_PREQ_GRP.engine_debug('l_user_id =>' || l_user_id || ' l_resp_id =>' || l_resp_id || ' l_resp_appl_id =>' || l_resp_appl_id || ' l_org_id =>' || l_org_id);
3970: END IF;
3971:
3972: IF l_resp_appl_id is null OR l_resp_id is null THEN

Line 3974: IF l_debug = FND_API.G_TRUE THEN

3970: END IF;
3971:
3972: IF l_resp_appl_id is null OR l_resp_id is null THEN
3973: dbms_application_info.set_client_info(l_org_id);
3974: IF l_debug = FND_API.G_TRUE THEN
3975: QP_PREQ_GRP.engine_debug('set org using dbms_application_info.set_client_info');
3976: END IF;
3977: ELSE
3978: -- Set the database session context

Line 3998: IF l_debug = FND_API.G_TRUE THEN

3994:
3995: p_x_result := 'COMPLETE';
3996: END IF;
3997:
3998: IF l_debug = FND_API.G_TRUE THEN
3999: QP_PREQ_GRP.engine_debug('p_x_result =>'||p_x_result);
4000: END IF;
4001:
4002: EXCEPTION

Line 4039: IF l_debug = FND_API.G_TRUE THEN

4035: null);
4036: l_pricing_perspective_code := FND_PROFILE.VALUE('QP_EXT_DEFAULT_PRICING_PERSPECTIVE');
4037: QP_PREQ_GRP.Set_QP_Debug;
4038: l_debug := QP_PREQ_GRP.G_DEBUG_ENGINE;
4039: IF l_debug = FND_API.G_TRUE THEN
4040: QP_PREQ_GRP.engine_debug(l_routine || ':l_user_id=' || l_user_id);
4041: QP_PREQ_GRP.engine_debug(l_routine || ':l_pricing_perspective_code=' || l_pricing_perspective_code);
4042: END IF;
4043:

Line 4049: IF l_debug = FND_API.G_TRUE THEN

4045: SELECT a.application_id
4046: INTO l_pricing_perspective_appl_id
4047: FROM fnd_application a
4048: WHERE a.application_short_name = l_pricing_perspective_code;
4049: IF l_debug = FND_API.G_TRUE THEN
4050: QP_PREQ_GRP.engine_debug(l_routine || ':l_pricing_perspective_appl_id=' || l_pricing_perspective_appl_id);
4051: END IF;
4052:
4053: -- get responsibility based on pricing perspective

Line 4058: IF l_debug = FND_API.G_TRUE THEN

4054: fnd_global.apps_initialize(l_user_id,
4055: null,
4056: l_pricing_perspective_appl_id);
4057: l_resp_id := FND_PROFILE.VALUE('QP_XML_RESP');
4058: IF l_debug = FND_API.G_TRUE THEN
4059: QP_PREQ_GRP.engine_debug(l_routine || ':l_resp_id=' || l_resp_id);
4060: END IF;
4061:
4062: -- get application id and short name based on responsibility

Line 4068: IF l_debug = FND_API.G_TRUE THEN

4064: INTO l_resp_appl_id, l_resp_appl_name
4065: FROM fnd_responsibility r, fnd_application a
4066: WHERE r.responsibility_id = l_resp_id
4067: AND a.application_id = r.application_id;
4068: IF l_debug = FND_API.G_TRUE THEN
4069: QP_PREQ_GRP.engine_debug(l_routine || ':l_resp_appl_id=' || l_resp_appl_id || ',l_resp_appl_name=' || l_resp_appl_name);
4070: END IF;
4071:
4072: -- set context

Line 4080: x_return_status := FND_API.G_RET_STS_ERROR;

4076: MO_GLOBAL.Init('QP');
4077:
4078: EXCEPTION
4079: WHEN NO_DATA_FOUND THEN
4080: x_return_status := FND_API.G_RET_STS_ERROR;
4081: FND_MESSAGE.SET_NAME('QP', 'QP_XML_RESPONSIBILITY_REQUIRED');
4082: x_return_text := FND_MESSAGE.GET;
4083: END;
4084:

Line 4130: x_return_status := FND_API.G_RET_STS_SUCCESS;

4126: LAST_UPDATED_BY = FND_GLOBAL.USER_ID
4127: WHERE pb_input_header_id = l_pb_input_header_id;
4128:
4129: x_pb_input_header_id := l_pb_input_header_id;
4130: x_return_status := FND_API.G_RET_STS_SUCCESS;
4131: x_return_text := '';
4132:
4133: EXCEPTION
4134: WHEN NO_DATA_FOUND THEN

Line 4135: x_return_status := FND_API.G_RET_STS_ERROR;

4131: x_return_text := '';
4132:
4133: EXCEPTION
4134: WHEN NO_DATA_FOUND THEN
4135: x_return_status := FND_API.G_RET_STS_ERROR;
4136: x_return_text := 'Could not find price book ' || p_price_book_name || ', ' || p_customer_attr_value || ', ' || p_effective_date;
4137: END CATGI_UPDATE_PUBLISH_OPTIONS;
4138:
4139: PROCEDURE CATGI_POST_INSERT_PROCESSING

Line 4169: x_return_status := FND_API.G_RET_STS_ERROR;

4165: FROM qp_pb_input_headers_vl
4166: WHERE pb_input_header_id = p_pb_input_header_id;
4167: EXCEPTION
4168: WHEN OTHERS THEN
4169: x_return_status := FND_API.G_RET_STS_ERROR;
4170: x_return_text := 'CATGI_POST_INSERT_PROCESSING: pb not found - ' || SQLERRM;
4171: END;
4172:
4173: IF l_pb_input_header_rec.cust_account_id is null THEN

Line 4196: x_return_status := FND_API.G_RET_STS_ERROR;

4192: AND customer_attribute = l_pb_input_header_rec.customer_attribute
4193: AND price_book_type_code = 'F';
4194: EXCEPTION
4195: WHEN OTHERS THEN
4196: x_return_status := FND_API.G_RET_STS_ERROR;
4197: FND_MESSAGE.SET_NAME('QP', 'QP_FULL_PRICE_BOOK_MUST_EXIST');
4198: x_return_text := FND_MESSAGE.GET;
4199: RETURN;
4200: END;

Line 4258: x_return_status := FND_API.G_RET_STS_ERROR;

4254: l_sysdate, l_user_id, l_sysdate, l_user_id, l_login_id
4255: );
4256: EXCEPTION
4257: WHEN OTHERS THEN
4258: x_return_status := FND_API.G_RET_STS_ERROR;
4259: x_return_text := 'CATGI_POST_INSERT_PROCESSING: error while inserting lines - ' || SQLERRM;
4260: END;
4261: END IF;
4262:

Line 4266: x_return_status := FND_API.G_RET_STS_SUCCESS;

4262:
4263: END IF;
4264:
4265: --x_pb_input_header_id := l_pb_input_header_id;
4266: x_return_status := FND_API.G_RET_STS_SUCCESS;
4267: x_return_text := '';
4268:
4269: EXCEPTION
4270: WHEN NO_DATA_FOUND THEN

Line 4271: x_return_status := FND_API.G_RET_STS_ERROR;

4267: x_return_text := '';
4268:
4269: EXCEPTION
4270: WHEN NO_DATA_FOUND THEN
4271: x_return_status := FND_API.G_RET_STS_ERROR;
4272: x_return_text := 'Could not find price book ' || p_pb_input_header_id;
4273: WHEN OTHERS THEN
4274: x_return_status := FND_API.G_RET_STS_ERROR;
4275: x_return_text := 'CATGI_POST_INSERT_PROCESSING: general error - ' || SQLERRM;

Line 4274: x_return_status := FND_API.G_RET_STS_ERROR;

4270: WHEN NO_DATA_FOUND THEN
4271: x_return_status := FND_API.G_RET_STS_ERROR;
4272: x_return_text := 'Could not find price book ' || p_pb_input_header_id;
4273: WHEN OTHERS THEN
4274: x_return_status := FND_API.G_RET_STS_ERROR;
4275: x_return_text := 'CATGI_POST_INSERT_PROCESSING: general error - ' || SQLERRM;
4276: END CATGI_POST_INSERT_PROCESSING;
4277:
4278: PROCEDURE CATGI_UPDATE_CUST_ACCOUNT_ID

Line 4290: x_return_status := FND_API.G_RET_STS_SUCCESS;

4286: BEGIN
4287: UPDATE QP_PB_INPUT_HEADERS_B
4288: SET CUST_ACCOUNT_ID = p_cust_account_id
4289: WHERE pb_input_header_id = p_pb_input_header_id;
4290: x_return_status := FND_API.G_RET_STS_SUCCESS;
4291: x_return_text := '';
4292: EXCEPTION
4293: WHEN NO_DATA_FOUND THEN
4294: x_return_status := FND_API.G_RET_STS_ERROR;

Line 4294: x_return_status := FND_API.G_RET_STS_ERROR;

4290: x_return_status := FND_API.G_RET_STS_SUCCESS;
4291: x_return_text := '';
4292: EXCEPTION
4293: WHEN NO_DATA_FOUND THEN
4294: x_return_status := FND_API.G_RET_STS_ERROR;
4295: x_return_text := 'Could not find price book ' || p_pb_input_header_id;
4296: WHEN OTHERS THEN
4297: x_return_status := FND_API.G_RET_STS_ERROR;
4298: x_return_text := 'CATGI_UPDATE_MISC: general error - ' || SQLERRM;

Line 4297: x_return_status := FND_API.G_RET_STS_ERROR;

4293: WHEN NO_DATA_FOUND THEN
4294: x_return_status := FND_API.G_RET_STS_ERROR;
4295: x_return_text := 'Could not find price book ' || p_pb_input_header_id;
4296: WHEN OTHERS THEN
4297: x_return_status := FND_API.G_RET_STS_ERROR;
4298: x_return_text := 'CATGI_UPDATE_MISC: general error - ' || SQLERRM;
4299: END CATGI_UPDATE_CUST_ACCOUNT_ID;
4300:
4301: ---------------------------------------------------------