523: WHEN OTHERS THEN
524: IF l_debug_level > 0 THEN
525: oe_debug_pub.add('ERROR in inserting adjustments and associations'||sqlerrm);
526: END IF;
527: Raise FND_API.G_EXC_ERROR;
528: END Insert_Adj;
529:
530:
531:
657: l_header_id number;
658: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
659:
660: Begin
661: l_return_status:= FND_API.G_RET_STS_SUCCESS;
662:
663: If l_debug_level > 0 Then
664: oe_debug_pub.add('Entering OE_BULK_PRICEORDER_PVT.credit_check');
665: End If;
685:
686: OE_Verify_Payment_PUB.Verify_Payment
687: ( p_header_id => l_header_id
688: , p_calling_action => 'UPDATE'
689: , p_delayed_request=> FND_API.G_TRUE
690: , p_msg_count => l_msg_count
691: , p_msg_data => l_msg_data
692: , p_return_status => l_return_status);
693:
690: , p_msg_count => l_msg_count
691: , p_msg_data => l_msg_data
692: , p_return_status => l_return_status);
693:
694: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
695: oe_debug_pub.add('Verify payment returns status errors:'||l_msg_data);
696: l_return_status := FND_API.G_RET_STS_SUCCESS;
697: Booking_Failed(i,p_header_rec);
698: End If;
692: , p_return_status => l_return_status);
693:
694: If l_return_status <> FND_API.G_RET_STS_SUCCESS Then
695: oe_debug_pub.add('Verify payment returns status errors:'||l_msg_data);
696: l_return_status := FND_API.G_RET_STS_SUCCESS;
697: Booking_Failed(i,p_header_rec);
698: End If;
699: End IF;
700:
1014: wrong_line.pricing_status_code in ( QP_PREQ_GRP.G_STATUS_INVALID_PRICE_LIST,
1015: QP_PREQ_GRP.G_STS_LHS_NOT_FOUND,
1016: QP_PREQ_GRP.G_STATUS_FORMULA_ERROR,
1017: QP_PREQ_GRP.G_STATUS_OTHER_ERRORS,
1018: FND_API.G_RET_STS_UNEXP_ERROR,
1019: FND_API.G_RET_STS_ERROR,
1020: QP_PREQ_GRP.G_STATUS_CALC_ERROR,
1021: QP_PREQ_GRP.G_STATUS_UOM_FAILURE,
1022: QP_PREQ_GRP.G_STATUS_INVALID_UOM,
1015: QP_PREQ_GRP.G_STS_LHS_NOT_FOUND,
1016: QP_PREQ_GRP.G_STATUS_FORMULA_ERROR,
1017: QP_PREQ_GRP.G_STATUS_OTHER_ERRORS,
1018: FND_API.G_RET_STS_UNEXP_ERROR,
1019: FND_API.G_RET_STS_ERROR,
1020: QP_PREQ_GRP.G_STATUS_CALC_ERROR,
1021: QP_PREQ_GRP.G_STATUS_UOM_FAILURE,
1022: QP_PREQ_GRP.G_STATUS_INVALID_UOM,
1023: QP_PREQ_GRP.G_STATUS_DUP_PRICE_LIST,
1067: FND_MESSAGE.SET_TOKEN('ERR_TEXT',wrong_line.status_text);
1068: OE_BULK_MSG_PUB.Add;
1069:
1070: Elsif wrong_line.pricing_status_code in
1071: ( QP_PREQ_GRP.G_STATUS_OTHER_ERRORS , FND_API.G_RET_STS_UNEXP_ERROR,
1072: FND_API.G_RET_STS_ERROR)
1073: then
1074: IF l_debug_level > 0 THEN
1075: oe_debug_pub.add( 'OTHER ERRORS PROCESSING' ) ;
1068: OE_BULK_MSG_PUB.Add;
1069:
1070: Elsif wrong_line.pricing_status_code in
1071: ( QP_PREQ_GRP.G_STATUS_OTHER_ERRORS , FND_API.G_RET_STS_UNEXP_ERROR,
1072: FND_API.G_RET_STS_ERROR)
1073: then
1074: IF l_debug_level > 0 THEN
1075: oe_debug_pub.add( 'OTHER ERRORS PROCESSING' ) ;
1076: END IF;
1219: oe_debug_pub.add( 'NEGATIVE LIST PRICE '||WRONG_LINE.UNIT_PRICE ||'OR SELLING PRICE '||WRONG_LINE.ADJUSTED_UNIT_PRICE ) ;
1220: oe_debug_pub.add( 'MODIFIERS:'||GET_LIST_LINES ( WRONG_LINE.LINE_ID ) ) ;
1221: END IF;
1222:
1223: RAISE FND_API.G_EXC_ERROR;
1224: END IF;
1225:
1226:
1227: IF l_debug_level > 0 THEN oe_debug_pub.add('before checking l_invalid_line'); END IF;
1337: p_attribute => NULL,
1338: p_top_model_line_id => l_top_model_line_id,
1339: x_return_status => l_return_status);
1340: --bug 3735141
1341: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1342: IF l_debug_level > 0 THEN
1343: oe_debug_pub.add(' GSA Hold applied on line_id:'||i.line_id);
1344: END IF;
1345: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1341: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
1342: IF l_debug_level > 0 THEN
1343: oe_debug_pub.add(' GSA Hold applied on line_id:'||i.line_id);
1344: END IF;
1345: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1346: IF l_debug_level > 0 THEN
1347: oe_debug_pub.add('Unexpected error in applying GSA hold');
1348: END IF;
1349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1345: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1346: IF l_debug_level > 0 THEN
1347: oe_debug_pub.add('Unexpected error in applying GSA hold');
1348: END IF;
1349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1350: END IF;
1351: --bug 3735141
1352: END IF;
1353: ELSE
1403: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1404: --
1405: BEGIN
1406:
1407: x_return_status := FND_API.G_RET_STS_SUCCESS;
1408: -- invoke QP API to source and directly insert into temp table
1409:
1410: qp_price_request_context.set_request_id;
1411:
1437: , x_return_status_text => x_return_status_text);
1438: If l_debug_level > 0 Then
1439: oe_debug_pub.add('return status after Bulk_insert_lines : '||x_return_status||' status text : '||x_return_status_text);
1440: End IF;
1441: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1442: OR x_return_status = FND_API.G_RET_STS_ERROR )
1443: THEN
1444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1445: END IF;
1438: If l_debug_level > 0 Then
1439: oe_debug_pub.add('return status after Bulk_insert_lines : '||x_return_status||' status text : '||x_return_status_text);
1440: End IF;
1441: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1442: OR x_return_status = FND_API.G_RET_STS_ERROR )
1443: THEN
1444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1445: END IF;
1446:
1440: End IF;
1441: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1442: OR x_return_status = FND_API.G_RET_STS_ERROR )
1443: THEN
1444: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1445: END IF;
1446:
1447: If l_debug_level > 0 Then
1448: select count(*) into l_count from qp_preq_lines_tmp;
1467: x_return_status_text);
1468: If l_debug_level > 0 Then
1469: oe_debug_pub.add('after Bulk_insert_adj return status : '||x_return_status||' status text : '||x_return_status_text);
1470: end if;
1471: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1472: OR x_return_status = FND_API.G_RET_STS_ERROR )
1473: THEN
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1468: If l_debug_level > 0 Then
1469: oe_debug_pub.add('after Bulk_insert_adj return status : '||x_return_status||' status text : '||x_return_status_text);
1470: end if;
1471: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1472: OR x_return_status = FND_API.G_RET_STS_ERROR )
1473: THEN
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1476: END IF; --pibadj
1470: end if;
1471: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1472: OR x_return_status = FND_API.G_RET_STS_ERROR )
1473: THEN
1474: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1475: END IF;
1476: END IF; --pibadj
1477:
1478: IF p_header_rec.booked_flag(1) = 'Y' THEN
1523: SELECT hsecs INTO l_end_time from v$timer;
1524: end if;
1525:
1526: FND_FILE.PUT_LINE(FND_FILE.LOG,'Time spent in PRICE_REQUEST is (sec) '||((l_end_time-l_start_time)/100));
1527: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1528: OR x_return_status = FND_API.G_RET_STS_ERROR )
1529: THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1524: end if;
1525:
1526: FND_FILE.PUT_LINE(FND_FILE.LOG,'Time spent in PRICE_REQUEST is (sec) '||((l_end_time-l_start_time)/100));
1527: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1528: OR x_return_status = FND_API.G_RET_STS_ERROR )
1529: THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1532:
1526: FND_FILE.PUT_LINE(FND_FILE.LOG,'Time spent in PRICE_REQUEST is (sec) '||((l_end_time-l_start_time)/100));
1527: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR
1528: OR x_return_status = FND_API.G_RET_STS_ERROR )
1529: THEN
1530: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1531: END IF;
1532:
1533: -- error handling,if an error happens, the whole order in memory should be marked as unbooked
1534: -- check_errors will also post error message in message processing table.
1587:
1588: --Credit checking (will be called from OEBVORDB.pls)
1589:
1590: EXCEPTION
1591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1592: OE_GLOBALS.G_EC_INSTALLED := l_ec_installed;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1594: WHEN OTHERS THEN
1595: OE_GLOBALS.G_EC_INSTALLED := l_ec_installed;
1589:
1590: EXCEPTION
1591: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1592: OE_GLOBALS.G_EC_INSTALLED := l_ec_installed;
1593: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1594: WHEN OTHERS THEN
1595: OE_GLOBALS.G_EC_INSTALLED := l_ec_installed;
1596: OE_BULK_MSG_PUB.Add_Exc_Msg
1597: (G_PKG_NAME
1595: OE_GLOBALS.G_EC_INSTALLED := l_ec_installed;
1596: OE_BULK_MSG_PUB.Add_Exc_Msg
1597: (G_PKG_NAME
1598: ,'Price_Orders');
1599: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1600: END Price_Orders;
1601:
1602: End OE_BULK_PRICEORDER_PVT;