1: PACKAGE BODY OE_BULK_ORDER_PVT AS
2: /* $Header: OEBVORDB.pls 120.9 2011/03/16 10:51:19 cpati ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):='OE_BULK_ORDER_PVT';
5:
1: PACKAGE BODY OE_BULK_ORDER_PVT AS
2: /* $Header: OEBVORDB.pls 120.9 2011/03/16 10:51:19 cpati ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30):='OE_BULK_ORDER_PVT';
5:
6:
7: ---------------------------------------------------------------
8: -- LOCAL PROCEDURES
302: )
303: IS
304: l_start_time NUMBER;
305: l_end_time NUMBER;
306: l_header_scredit_rec OE_BULK_ORDER_PVT.Scredit_Rec_Type;
307: --
308: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
309: --
310: BEGIN
471: IS
472: -- l_line_rec LINE_REC_TYPE;
473: l_start_time NUMBER;
474: l_end_time NUMBER;
475: l_line_scredit_rec OE_BULK_ORDER_PVT.Scredit_Rec_Type;
476: --
477: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
478: --
479: BEGIN
687: SELECT hsecs INTO l_start_time from v$timer;
688: end if;
689:
690: OE_Bulk_Schedule_Util.Schedule_Orders
691: (p_line_rec => OE_BULK_ORDER_PVT.G_LINE_REC
692: ,p_header_rec => OE_BULK_ORDER_PVT.G_HEADER_REC
693: ,x_return_status => l_return_status
694: );
695:
688: end if;
689:
690: OE_Bulk_Schedule_Util.Schedule_Orders
691: (p_line_rec => OE_BULK_ORDER_PVT.G_LINE_REC
692: ,p_header_rec => OE_BULK_ORDER_PVT.G_HEADER_REC
693: ,x_return_status => l_return_status
694: );
695:
696: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
729: IF l_debug_level > 0 THEN
730: oe_debug_pub.add('before calling OE_BULK_PRICEORDER_PVT.Price_Orders');
731: END IF;
732: OE_BULK_PRICEORDER_PVT.Price_Orders
733: (p_header_rec => OE_BULK_ORDER_PVT.G_HEADER_REC
734: ,p_line_rec => OE_BULK_ORDER_PVT.G_LINE_REC
735: ,p_adjustments_exist => p_adjustments_exist --pibadj
736: ,x_return_status => l_return_status
737: );
730: oe_debug_pub.add('before calling OE_BULK_PRICEORDER_PVT.Price_Orders');
731: END IF;
732: OE_BULK_PRICEORDER_PVT.Price_Orders
733: (p_header_rec => OE_BULK_ORDER_PVT.G_HEADER_REC
734: ,p_line_rec => OE_BULK_ORDER_PVT.G_LINE_REC
735: ,p_adjustments_exist => p_adjustments_exist --pibadj
736: ,x_return_status => l_return_status
737: );
738:
973: FND_FILE.PUT_LINE(FND_FILE.LOG,'Time spent in Pricing is (sec) '
974: ||((l_end_time-l_start_time)/100));
975:
976: ELSIF (G_CC_REQUIRED = 'Y' and l_credit_check_method = 'NEW') THEN --bug 4558078
977: OE_BULK_PRICEORDER_PVT.credit_check(OE_BULK_ORDER_PVT.G_HEADER_REC);
978: END IF;
979: --PIB }
980:
981: -------------------------------------------------------------------
1442: RETURN 'N';
1443: END GET_FLEX_ENABLED_FLAG;
1444:
1445: PROCEDURE mark_header_error(p_header_index IN NUMBER,
1446: p_header_rec IN OUT NOCOPY OE_BULK_ORDER_PVT.HEADER_REC_TYPE)
1447: IS
1448: error_count NUMBER := OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.COUNT;
1449: --
1450: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1444:
1445: PROCEDURE mark_header_error(p_header_index IN NUMBER,
1446: p_header_rec IN OUT NOCOPY OE_BULK_ORDER_PVT.HEADER_REC_TYPE)
1447: IS
1448: error_count NUMBER := OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.COUNT;
1449: --
1450: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1451: --
1452: BEGIN
1451: --
1452: BEGIN
1453:
1454: IF l_debug_level > 0 THEN
1455: oe_debug_pub.add( 'ENTERING OE_BULK_ORDER_PVT.MARK_HEADER_ERROR' ) ;
1456: oe_debug_pub.add('The error count is '|| error_count);
1457: END IF;
1458:
1459: error_count := error_count + 1;
1457: END IF;
1458:
1459: error_count := error_count + 1;
1460:
1461: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id.EXTEND(1);
1462: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id(error_count)
1463: := p_header_rec.order_source_id(p_header_index);
1464:
1465: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref.EXTEND(1);
1458:
1459: error_count := error_count + 1;
1460:
1461: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id.EXTEND(1);
1462: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id(error_count)
1463: := p_header_rec.order_source_id(p_header_index);
1464:
1465: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref.EXTEND(1);
1466: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref(error_count)
1461: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id.EXTEND(1);
1462: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id(error_count)
1463: := p_header_rec.order_source_id(p_header_index);
1464:
1465: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref.EXTEND(1);
1466: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref(error_count)
1467: := p_header_rec.orig_sys_document_ref(p_header_index);
1468:
1469: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.EXTEND(1);
1462: OE_Bulk_Order_Pvt.G_ERROR_REC.order_source_id(error_count)
1463: := p_header_rec.order_source_id(p_header_index);
1464:
1465: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref.EXTEND(1);
1466: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref(error_count)
1467: := p_header_rec.orig_sys_document_ref(p_header_index);
1468:
1469: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.EXTEND(1);
1470: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id(error_count)
1465: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref.EXTEND(1);
1466: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref(error_count)
1467: := p_header_rec.orig_sys_document_ref(p_header_index);
1468:
1469: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.EXTEND(1);
1470: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id(error_count)
1471: := p_header_rec.header_id(p_header_index);
1472:
1473: IF l_debug_level > 0 THEN
1466: OE_Bulk_Order_Pvt.G_ERROR_REC.orig_sys_document_ref(error_count)
1467: := p_header_rec.orig_sys_document_ref(p_header_index);
1468:
1469: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id.EXTEND(1);
1470: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id(error_count)
1471: := p_header_rec.header_id(p_header_index);
1472:
1473: IF l_debug_level > 0 THEN
1474: oe_debug_pub.add( 'EXITING OE_BULK_ORDER_PVT.MARK_HEADER_ERROR' ) ;
1470: OE_Bulk_Order_Pvt.G_ERROR_REC.header_id(error_count)
1471: := p_header_rec.header_id(p_header_index);
1472:
1473: IF l_debug_level > 0 THEN
1474: oe_debug_pub.add( 'EXITING OE_BULK_ORDER_PVT.MARK_HEADER_ERROR' ) ;
1475: END IF;
1476:
1477: EXCEPTION
1478: WHEN OTHERS THEN
1489: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1490: END Mark_Header_Error;
1491:
1492:
1493: END OE_BULK_ORDER_PVT;