[Home] [Help]
343: IF l_debug_level > 0 THEN
344: oe_debug_pub.add( 'ORDER PARTIALLY UPGRADED ' ) ;
345: END IF;
346: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_UPG_ORDER');
347: OE_MSG_PUB.Add;
348: RETURN FALSE;
349: END IF;
350:
351: IF l_debug_level > 0 THEN
395: --Moac changes start
396: l_org_id := MO_GLOBAL.get_current_org_id;
397: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
398: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
399: OE_MSG_PUB.Add;
400: RAISE FND_API.G_EXC_ERROR;
401: END IF;
402: --Moac changes end
403: -- Initialize message list.
404: set_recursion_mode(p_Entity_Code => 2,
405: p_In_out => 1);
406:
407: IF FND_API.to_Boolean(p_init_msg_list) THEN
408: OE_MSG_PUB.initialize;
409: END IF;
410:
411: x_return_status := FND_API.G_RET_STS_SUCCESS;
412:
430: IF p_x_old_header_rec.header_id = FND_API.G_MISS_NUM
431: OR p_x_old_header_rec.header_id IS NULL
432: THEN
433:
434: OE_MSG_PUB.set_msg_context(
435: p_entity_code => 'HEADER'
436: ,p_entity_id => p_x_header_rec.header_id
437: ,p_header_id => p_x_header_rec.header_id
438: ,p_line_id => null
445: ,p_source_document_type_id => p_x_header_rec.source_document_type_id);
446:
447: ELSE
448:
449: OE_MSG_PUB.set_msg_context(
450: p_entity_code => 'HEADER'
451: ,p_entity_id => p_x_old_header_rec.header_id
452: ,p_header_id => p_x_old_header_rec.header_id
453: ,p_line_id => null
532: ( p_x_header_rec => p_x_header_rec
533: , p_old_header_rec => p_x_old_header_rec
534: );
535:
536: OE_MSG_PUB.update_msg_context(
537: p_entity_code => 'HEADER'
538: ,p_entity_id => p_x_header_rec.header_id
539: ,p_header_id => p_x_header_rec.header_id
540: ,p_line_id => null
809:
810: IF l_debug_level > 0 THEN
811: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER' , 1 ) ;
812: END IF;
813: OE_MSG_PUB.reset_msg_context('HEADER');
814:
815: set_recursion_mode(p_Entity_Code => 2,
816: p_In_out => 0);
817:
830: END IF;
831: OE_Delayed_Requests_Pvt.Clear_Request
832: (x_return_status => l_return_status);
833: END IF;
834: OE_MSG_PUB.reset_msg_context('HEADER');
835:
836: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
837:
838: set_recursion_mode(p_Entity_Code => 2,
846: END IF;
847: OE_Delayed_Requests_Pvt.Clear_Request
848: (x_return_status => l_return_status);
849: END IF;
850: OE_MSG_PUB.reset_msg_context('HEADER');
851:
852: WHEN OTHERS THEN
853:
854: set_recursion_mode(p_Entity_Code => 2,
852: WHEN OTHERS THEN
853:
854: set_recursion_mode(p_Entity_Code => 2,
855: p_In_out => 0);
856: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
857: THEN
858: OE_MSG_PUB.Add_Exc_Msg
859: ( G_PKG_NAME
860: , 'Header'
854: set_recursion_mode(p_Entity_Code => 2,
855: p_In_out => 0);
856: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
857: THEN
858: OE_MSG_PUB.Add_Exc_Msg
859: ( G_PKG_NAME
860: , 'Header'
861: );
862: END IF;
870: END IF;
871: OE_Delayed_Requests_Pvt.Clear_Request
872: (x_return_status => l_return_status);
873: END IF;
874: OE_MSG_PUB.reset_msg_context('HEADER');
875:
876: END Header;
877:
878:
918: --MOAC changes start
919: l_org_id := MO_GLOBAL.get_current_org_id;
920: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
921: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
922: OE_MSG_PUB.Add;
923: RAISE FND_API.G_EXC_ERROR;
924: END IF;
925: --MOAC changes end
926:
930:
931: -- Initialize message list.
932:
933: IF FND_API.to_Boolean(p_init_msg_list) THEN
934: OE_MSG_PUB.initialize;
935: END IF;
936:
937: IF p_control_rec.Process_Partial THEN
938: SAVEPOINT Header_Scredits;
992: l_source_document_id := null;
993: END;
994: END IF;
995:
996: OE_MSG_PUB.set_msg_context(
997: p_entity_code => 'HEADER_SCREDIT'
998: ,p_entity_id => l_header_Scredit_rec.sales_credit_id
999: ,p_header_id => l_header_Scredit_rec.header_Id
1000: ,p_line_id => null
1036: END;
1037: END IF;
1038:
1039:
1040: OE_MSG_PUB.set_msg_context(
1041: p_entity_code => 'HEADER_SCREDIT'
1042: ,p_entity_id => l_old_header_Scredit_rec.sales_credit_id
1043: ,p_header_id => l_old_header_Scredit_rec.header_Id
1044: ,p_line_id => null
1104: ( p_x_Header_Scredit_rec => l_Header_Scredit_rec
1105: , p_old_Header_Scredit_rec => l_old_Header_Scredit_rec
1106: );
1107:
1108: OE_MSG_PUB.update_msg_context(
1109: p_entity_code => 'HEADER_SCREDIT'
1110: ,p_entity_id => l_header_Scredit_rec.sales_credit_id
1111: ,p_header_id => l_header_Scredit_rec.header_Id);
1112:
1321:
1322: END IF;
1323:
1324: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1325: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1326:
1327: -- loop exception handler.
1328: IF l_header_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1329: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1347: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1348: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1349:
1350: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1351: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1352:
1353: IF l_control_Rec.Process_Partial THEN
1354: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1355: IF l_debug_level > 0 THEN
1377: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1378: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1379: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1380: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1381: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383:
1384: WHEN OTHERS THEN
1385:
1388: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1389: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1390:
1391: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1392: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1393: THEN
1394: OE_MSG_PUB.Add_Exc_Msg
1395: ( G_PKG_NAME
1396: , 'Header_Scredits'
1390:
1391: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1392: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1393: THEN
1394: OE_MSG_PUB.Add_Exc_Msg
1395: ( G_PKG_NAME
1396: , 'Header_Scredits'
1397: );
1398: END IF;
1396: , 'Header_Scredits'
1397: );
1398: END IF;
1399:
1400: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1401: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1402:
1403: END;
1404: I := p_x_Header_Scredit_tbl.NEXT(I);
1406:
1407: IF l_debug_level > 0 THEN
1408: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER_SCREDITS' , 1 ) ;
1409: END IF;
1410: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1411:
1412: set_recursion_mode(p_Entity_Code => 4,
1413: p_In_out => 0);
1414: EXCEPTION
1424: END IF;
1425: OE_Delayed_Requests_Pvt.Clear_Request
1426: (x_return_status => l_return_status);
1427: END IF;
1428: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1429:
1430: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1431:
1432: set_recursion_mode(p_Entity_Code => 4,
1438: END IF;
1439: OE_Delayed_Requests_Pvt.Clear_Request
1440: (x_return_status => l_return_status);
1441: END IF;
1442: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1443:
1444: WHEN OTHERS THEN
1445:
1446: set_recursion_mode(p_Entity_Code => 4,
1452: END IF;
1453: OE_Delayed_Requests_Pvt.Clear_Request
1454: (x_return_status => l_return_status);
1455: END IF;
1456: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1457: THEN
1458: OE_MSG_PUB.Add_Exc_Msg
1459: ( G_PKG_NAME
1460: , 'Header_Scredits'
1454: (x_return_status => l_return_status);
1455: END IF;
1456: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1457: THEN
1458: OE_MSG_PUB.Add_Exc_Msg
1459: ( G_PKG_NAME
1460: , 'Header_Scredits'
1461: );
1462: END IF;
1461: );
1462: END IF;
1463:
1464:
1465: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1466:
1467: END Header_Scredits;
1468:
1469:
1503: --MOAC changes start
1504: l_org_id := MO_GLOBAL.get_current_org_id;
1505: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
1506: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
1507: OE_MSG_PUB.Add;
1508: RAISE FND_API.G_EXC_ERROR;
1509: END IF;
1510: --MOAC changes end
1511:
1513:
1514: -- Initialize message list.
1515:
1516: IF FND_API.to_Boolean(p_init_msg_list) THEN
1517: OE_MSG_PUB.initialize;
1518: END IF;
1519:
1520: IF p_control_rec.Process_Partial THEN
1521: SAVEPOINT Header_Payments;
1575: l_source_document_id := null;
1576: END;
1577: END IF;
1578:
1579: OE_MSG_PUB.set_msg_context(
1580: p_entity_code => 'HEADER_PAYMENT'
1581: ,p_entity_id => l_header_Payment_rec.payment_number
1582: ,p_header_id => l_header_Payment_rec.header_Id
1583: ,p_line_id => null
1619: END;
1620: END IF;
1621:
1622:
1623: OE_MSG_PUB.set_msg_context(
1624: p_entity_code => 'HEADER_PAYMENT'
1625: ,p_entity_id => l_old_header_Payment_rec.payment_number
1626: ,p_header_id => l_old_header_Payment_rec.header_Id
1627: ,p_line_id => null
1712: IF l_debug_level > 0 THEN
1713: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Complete_Record', 5);
1714: END IF;
1715:
1716: OE_MSG_PUB.update_msg_context(
1717: p_entity_code => 'HEADER_PAYMENT'
1718: ,p_entity_id => l_header_Payment_rec.payment_number
1719: ,p_header_id => l_header_Payment_rec.header_Id);
1720:
1984:
1985: END IF;
1986:
1987: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
1988: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
1989:
1990: -- loop exception handler.
1991: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2011: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2012:
2013: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2014: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2015: IF l_control_Rec.Process_Partial THEN
2016: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2017: IF l_debug_level > 0 THEN
2018: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
2033: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2034: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2035: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2036: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2037: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2039:
2040: WHEN OTHERS THEN
2041:
2044: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2045: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2046:
2047: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2048: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2049: THEN
2050: OE_MSG_PUB.Add_Exc_Msg
2051: ( G_PKG_NAME
2052: , 'Header_Payments'
2046:
2047: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2048: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2049: THEN
2050: OE_MSG_PUB.Add_Exc_Msg
2051: ( G_PKG_NAME
2052: , 'Header_Payments'
2053: );
2054: END IF;
2052: , 'Header_Payments'
2053: );
2054: END IF;
2055:
2056: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2057: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2058:
2059: END;
2060: I := p_x_Header_Payment_tbl.NEXT(I);
2062:
2063: IF l_debug_level > 0 THEN
2064: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER_PAYMENTS' , 1 ) ;
2065: END IF;
2066: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2067:
2068: EXCEPTION
2069:
2070: WHEN FND_API.G_EXC_ERROR THEN
2076: END IF;
2077: OE_Delayed_Requests_Pvt.Clear_Request
2078: (x_return_status => l_return_status);
2079: END IF;
2080: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2081:
2082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2083:
2084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2088: END IF;
2089: OE_Delayed_Requests_Pvt.Clear_Request
2090: (x_return_status => l_return_status);
2091: END IF;
2092: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2093:
2094: WHEN OTHERS THEN
2095:
2096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2100: END IF;
2101: OE_Delayed_Requests_Pvt.Clear_Request
2102: (x_return_status => l_return_status);
2103: END IF;
2104: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2105: THEN
2106: OE_MSG_PUB.Add_Exc_Msg
2107: ( G_PKG_NAME
2108: , 'Header_Payments'
2102: (x_return_status => l_return_status);
2103: END IF;
2104: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2105: THEN
2106: OE_MSG_PUB.Add_Exc_Msg
2107: ( G_PKG_NAME
2108: , 'Header_Payments'
2109: );
2110: END IF;
2109: );
2110: END IF;
2111:
2112:
2113: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2114:
2115: END Header_Payments;
2116:
2117:
2411: --Moac changes start
2412: l_org_id := MO_GLOBAL.get_current_org_id;
2413: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
2414: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
2415: OE_MSG_PUB.Add;
2416: RAISE FND_API.G_EXC_ERROR;
2417: END IF;
2418: --Moac changes end
2419: set_recursion_mode(p_Entity_Code => 5,
2431:
2432: -- Initialize message list.
2433:
2434: IF FND_API.to_Boolean(p_init_msg_list) THEN
2435: OE_MSG_PUB.initialize;
2436: END IF;
2437:
2438: -- Looping through the table to first process all the models and
2439: -- standard lines in the table. When models and options are processed in
2530: IF l_old_line_rec.line_id = FND_API.G_MISS_NUM OR
2531: l_old_line_rec.line_id IS NULL
2532: THEN
2533:
2534: OE_MSG_PUB.set_msg_context
2535: ( p_entity_code => 'LINE'
2536: ,p_entity_id => l_line_rec.line_id
2537: ,p_header_id => l_line_rec.header_id
2538: ,p_line_id => l_line_rec.line_id
2546: ,p_source_document_type_id => l_line_rec.source_document_type_id);
2547:
2548: ELSE
2549:
2550: OE_MSG_PUB.set_msg_context
2551: ( p_entity_code => 'LINE'
2552: ,p_entity_id => l_old_line_rec.line_id
2553: ,p_header_id => l_old_line_rec.header_id
2554: ,p_line_id => l_old_line_rec.line_id
2662: IF l_debug_level > 0 THEN
2663: oe_debug_pub.add( 'AFTER COMPLETE NEW RECORD FROM OLD' , 2 ) ;
2664: END IF;
2665:
2666: OE_MSG_PUB.update_msg_context
2667: ( p_entity_code => 'LINE'
2668: ,p_entity_id => l_line_rec.line_id
2669: ,p_header_id => l_line_rec.header_id
2670: ,p_line_id => l_line_rec.line_id
3449: oe_debug_pub.add( 'BOTTOM OF LINE LOOP' , 2 ) ;
3450: END IF;
3451:
3452: OE_Line_Security.g_check_all_cols_constraint := 'Y';
3453: OE_MSG_PUB.reset_msg_context('LINE');
3454:
3455: IF l_debug_level > 0 THEN
3456: oe_debug_pub.add( 'SCH ARRIVAL_DATE='||L_LINE_REC.SCHEDULE_ARRIVAL_DATE ) ;
3457: END IF;
3509: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3510: p_x_old_line_tbl(I) := l_old_line_rec;
3511:
3512:
3513: OE_MSG_PUB.reset_msg_context('LINE');
3514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3515:
3516:
3517: WHEN OTHERS THEN
3522: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3523: p_x_old_line_tbl(I) := l_old_line_rec;
3524:
3525:
3526: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3527: THEN
3528: OE_MSG_PUB.Add_Exc_Msg
3529: ( G_PKG_NAME
3530: ,'Lines' );
3524:
3525:
3526: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3527: THEN
3528: OE_MSG_PUB.Add_Exc_Msg
3529: ( G_PKG_NAME
3530: ,'Lines' );
3531: END IF;
3532:
3530: ,'Lines' );
3531: END IF;
3532:
3533: OE_Line_Security.g_check_all_cols_constraint := 'Y';
3534: OE_MSG_PUB.reset_msg_context('LINE');
3535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3536:
3537: END; -- of the big BEGIN with the WHILE
3538:
3614:
3615:
3616: Print_Time('Exiting OE_ORDER_PVT.LINES');
3617:
3618: OE_MSG_PUB.reset_msg_context('LINE');
3619:
3620: set_recursion_mode(p_Entity_Code => 5,
3621: p_In_out => 0);
3622:
3627: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3628: x_return_status := FND_API.G_RET_STS_ERROR;
3629: set_recursion_mode(p_Entity_Code => 5,
3630: p_In_out => 0);
3631: OE_MSG_PUB.reset_msg_context('LINE');
3632:
3633:
3634: IF NOT (OE_GLOBALS.G_UI_FLAG) AND line_ctr = 1 THEN
3635: IF l_debug_level > 0 THEN
3660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3661: set_recursion_mode(p_Entity_Code => 5,
3662: p_In_out => 0);
3663:
3664: OE_MSG_PUB.reset_msg_context('LINE');
3665:
3666: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3667: IF l_debug_level > 0 THEN
3668: oe_debug_pub.add( 'DELETE REQUEST10' , 2 ) ;
3703: END IF;
3704: set_recursion_mode(p_Entity_Code => 5,
3705: p_In_out => 0);
3706:
3707: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3708: THEN
3709: OE_MSG_PUB.Add_Exc_Msg
3710: ( G_PKG_NAME
3711: ,'Lines');
3705: p_In_out => 0);
3706:
3707: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3708: THEN
3709: OE_MSG_PUB.Add_Exc_Msg
3710: ( G_PKG_NAME
3711: ,'Lines');
3712: END IF;
3713:
3710: ( G_PKG_NAME
3711: ,'Lines');
3712: END IF;
3713:
3714: OE_MSG_PUB.reset_msg_context('LINE');
3715: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3716:
3717: END Lines;
3718:
3754: --MOAC changes start
3755: l_org_id := MO_GLOBAL.get_current_org_id;
3756: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
3757: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
3758: OE_MSG_PUB.Add;
3759: RAISE FND_API.G_EXC_ERROR;
3760: END IF;
3761: --MOAC changes end
3762: set_recursion_mode(p_Entity_Code => 7,
3765:
3766: -- Initialize message list.
3767:
3768: IF FND_API.to_Boolean(p_init_msg_list) THEN
3769: OE_MSG_PUB.initialize;
3770: END IF;
3771:
3772: IF p_control_rec.Process_Partial THEN
3773: SAVEPOINT Line_Scredits;
3828: l_orig_sys_shipment_ref := null;
3829: END;
3830: END IF;
3831:
3832: OE_MSG_PUB.set_msg_context(
3833: p_entity_code => 'LINE_SCREDIT'
3834: ,p_entity_id => l_line_Scredit_rec.sales_credit_id
3835: ,p_header_id => l_line_Scredit_rec.header_id
3836: ,p_line_id => l_line_Scredit_rec.line_id
3879: l_orig_sys_shipment_ref := null;
3880: END;
3881: END IF;
3882:
3883: OE_MSG_PUB.set_msg_context(
3884: p_entity_code => 'LINE_SCREDIT'
3885: ,p_entity_id => l_old_line_Scredit_rec.sales_credit_id
3886: ,p_header_id => l_old_line_Scredit_rec.header_id
3887: ,p_line_id => l_old_line_Scredit_rec.line_id
3948: ( p_x_Line_Scredit_rec => l_Line_Scredit_rec
3949: , p_old_Line_Scredit_rec => l_old_Line_Scredit_rec
3950: );
3951:
3952: OE_MSG_PUB.update_msg_context(
3953: p_entity_code => 'LINE_SCREDIT'
3954: ,p_entity_id => l_line_Scredit_rec.sales_credit_id
3955: ,p_header_id => l_line_Scredit_rec.header_id
3956: ,p_line_id => l_line_Scredit_rec.line_id);
4165:
4166: END IF;
4167:
4168: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4169: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4170:
4171: -- loop exception handler.
4172: IF l_line_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4173: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4191: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4192: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4193:
4194: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4195: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4196: IF l_control_rec.Process_Partial THEN
4197: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4198: IF l_debug_level > 0 THEN
4199: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4214: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4215: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4216: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4217: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4218: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4220:
4221: WHEN OTHERS THEN
4222:
4224: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4225: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4226: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4227: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4228: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4229: THEN
4230: OE_MSG_PUB.Add_Exc_Msg
4231: ( G_PKG_NAME
4232: , 'Line_Scredits'
4226: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4227: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4228: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4229: THEN
4230: OE_MSG_PUB.Add_Exc_Msg
4231: ( G_PKG_NAME
4232: , 'Line_Scredits'
4233: );
4234: END IF;
4232: , 'Line_Scredits'
4233: );
4234: END IF;
4235:
4236: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4238:
4239: END;
4240: I := p_x_Line_Scredit_tbl.NEXT(I);
4243:
4244: IF l_debug_level > 0 THEN
4245: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.LINE_SCREDITS' , 1 ) ;
4246: END IF;
4247: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4248: set_recursion_mode(p_Entity_Code => 7,
4249: p_In_out => 0);
4250: EXCEPTION
4251:
4260: END IF;
4261: OE_Delayed_Requests_Pvt.Clear_Request
4262: (x_return_status => l_return_status);
4263: END IF;
4264: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4265:
4266: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4267:
4268: set_recursion_mode(p_Entity_Code => 7,
4274: END IF;
4275: OE_Delayed_Requests_Pvt.Clear_Request
4276: (x_return_status => l_return_status);
4277: END IF;
4278: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4279:
4280: WHEN OTHERS THEN
4281:
4282: set_recursion_mode(p_Entity_Code => 7,
4288: END IF;
4289: OE_Delayed_Requests_Pvt.Clear_Request
4290: (x_return_status => l_return_status);
4291: END IF;
4292: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4293: THEN
4294: OE_MSG_PUB.Add_Exc_Msg
4295: ( G_PKG_NAME
4296: , 'Line_Scredits'
4290: (x_return_status => l_return_status);
4291: END IF;
4292: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4293: THEN
4294: OE_MSG_PUB.Add_Exc_Msg
4295: ( G_PKG_NAME
4296: , 'Line_Scredits'
4297: );
4298: END IF;
4295: ( G_PKG_NAME
4296: , 'Line_Scredits'
4297: );
4298: END IF;
4299: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4300:
4301: END Line_Scredits;
4302:
4303:
4338: --MOAC changes start
4339: l_org_id := MO_GLOBAL.get_current_org_id;
4340: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
4341: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
4342: OE_MSG_PUB.Add;
4343: RAISE FND_API.G_EXC_ERROR;
4344: END IF;
4345: --MOAC changes end
4346: x_return_status := FND_API.G_RET_STS_SUCCESS;
4347:
4348: -- Initialize message list.
4349:
4350: IF FND_API.to_Boolean(p_init_msg_list) THEN
4351: OE_MSG_PUB.initialize;
4352: END IF;
4353:
4354: IF p_control_rec.Process_Partial THEN
4355: SAVEPOINT Line_Payments;
4410: l_orig_sys_shipment_ref := null;
4411: END;
4412: END IF;
4413:
4414: OE_MSG_PUB.set_msg_context(
4415: p_entity_code => 'LINE_PAYMENT'
4416: ,p_entity_id => l_line_Payment_rec.payment_number
4417: ,p_header_id => l_line_Payment_rec.header_id
4418: ,p_line_id => l_line_Payment_rec.line_id
4461: l_orig_sys_shipment_ref := null;
4462: END;
4463: END IF;
4464:
4465: OE_MSG_PUB.set_msg_context(
4466: p_entity_code => 'LINE_PAYMENT'
4467: ,p_entity_id => l_old_line_Payment_rec.payment_number
4468: ,p_header_id => l_old_line_Payment_rec.header_id
4469: ,p_line_id => l_old_line_Payment_rec.line_id
4550: IF l_debug_level > 0 THEN
4551: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Complete_Record', 5);
4552: END IF;
4553:
4554: OE_MSG_PUB.update_msg_context(
4555: p_entity_code => 'LINE_PAYMENT'
4556: ,p_entity_id => l_line_Payment_rec.payment_number
4557: ,p_header_id => l_line_Payment_rec.header_id
4558: ,p_line_id => l_line_Payment_rec.line_id);
4833:
4834: END IF;
4835:
4836: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4837: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4838:
4839: -- loop exception handler.
4840: IF l_line_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4841: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4859: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4860: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4861:
4862: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4863: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4864: IF l_control_rec.Process_Partial THEN
4865: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4866: IF l_debug_level > 0 THEN
4867: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4882: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4883: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4884: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4885: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4886: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4888:
4889: WHEN OTHERS THEN
4890:
4892: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4893: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
4894: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4895: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4896: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4897: THEN
4898: OE_MSG_PUB.Add_Exc_Msg
4899: ( G_PKG_NAME
4900: , 'Line_Payments'
4894: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
4895: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4896: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4897: THEN
4898: OE_MSG_PUB.Add_Exc_Msg
4899: ( G_PKG_NAME
4900: , 'Line_Payments'
4901: );
4902: END IF;
4900: , 'Line_Payments'
4901: );
4902: END IF;
4903:
4904: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4905: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4906:
4907: END;
4908: I := p_x_Line_Payment_tbl.NEXT(I);
4911:
4912: IF l_debug_level > 0 THEN
4913: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.LINE_PAYMENTS' , 1 ) ;
4914: END IF;
4915: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4916: EXCEPTION
4917:
4918: WHEN FND_API.G_EXC_ERROR THEN
4919:
4924: END IF;
4925: OE_Delayed_Requests_Pvt.Clear_Request
4926: (x_return_status => l_return_status);
4927: END IF;
4928: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4929:
4930: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4931:
4932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4936: END IF;
4937: OE_Delayed_Requests_Pvt.Clear_Request
4938: (x_return_status => l_return_status);
4939: END IF;
4940: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4941:
4942: WHEN OTHERS THEN
4943:
4944: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4948: END IF;
4949: OE_Delayed_Requests_Pvt.Clear_Request
4950: (x_return_status => l_return_status);
4951: END IF;
4952: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4953: THEN
4954: OE_MSG_PUB.Add_Exc_Msg
4955: ( G_PKG_NAME
4956: , 'Line_Payments'
4950: (x_return_status => l_return_status);
4951: END IF;
4952: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4953: THEN
4954: OE_MSG_PUB.Add_Exc_Msg
4955: ( G_PKG_NAME
4956: , 'Line_Payments'
4957: );
4958: END IF;
4955: ( G_PKG_NAME
4956: , 'Line_Payments'
4957: );
4958: END IF;
4959: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4960:
4961: END Line_Payments;
4962:
4963:
4986: --MOAC changes start
4987: l_org_id := MO_GLOBAL.get_current_org_id;
4988: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
4989: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
4990: OE_MSG_PUB.Add;
4991: RAISE FND_API.G_EXC_ERROR;
4992: END IF;
4993: --MOAC changes end
4994: x_return_status := FND_API.G_RET_STS_SUCCESS;
4995:
4996: -- Initialize message list.
4997:
4998: IF FND_API.to_Boolean(p_init_msg_list) THEN
4999: OE_MSG_PUB.initialize;
5000: END IF;
5001:
5002: -- FOR I IN 1..p_x_Lot_Serial_tbl.COUNT LOOP
5003:
5217: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5218: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5219: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5220:
5221: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
5222: THEN
5223: oe_msg_pub.Add_Exc_Msg
5224: ( G_PKG_NAME
5225: , 'Lot_Serials'
5219: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5220:
5221: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
5222: THEN
5223: oe_msg_pub.Add_Exc_Msg
5224: ( G_PKG_NAME
5225: , 'Lot_Serials'
5226: );
5227: END IF;
5265: END IF;
5266: OE_Delayed_Requests_Pvt.Clear_Request
5267: (x_return_status => l_return_status);
5268: END IF;
5269: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
5270: THEN
5271: oe_msg_pub.Add_Exc_Msg
5272: ( G_PKG_NAME
5273: , 'Lot_Serials'
5267: (x_return_status => l_return_status);
5268: END IF;
5269: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
5270: THEN
5271: oe_msg_pub.Add_Exc_Msg
5272: ( G_PKG_NAME
5273: , 'Lot_Serials'
5274: );
5275: END IF;
5377:
5378: -- Initialize message list.
5379:
5380: IF FND_API.to_Boolean(p_init_msg_list) THEN
5381: OE_MSG_PUB.initialize;
5382: END IF;
5383:
5384:
5385: -- IF p_process_requests, then process all delayed requests
6073: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6074: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6075: END IF;
6076: END IF;
6077: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6078: THEN
6079: OE_MSG_PUB.Add_Exc_Msg
6080: ( G_PKG_NAME
6081: , 'Process_Requests_And_Notify'
6075: END IF;
6076: END IF;
6077: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6078: THEN
6079: OE_MSG_PUB.Add_Exc_Msg
6080: ( G_PKG_NAME
6081: , 'Process_Requests_And_Notify'
6082: );
6083: END IF;
6223: p_x_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6224: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6225: OE_GLOBALS.G_OPR_NONE) THEN
6226: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6227: OE_MSG_PUB.Add;
6228: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6229: END IF;
6230: END IF;
6231:
6295: THEN
6296: IF p_x_header_rec.header_id IS NULL OR
6297: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6298: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6299: OE_MSG_PUB.Add;
6300: RAISE FND_API.G_EXC_ERROR;
6301: ELSE
6302: -- Copy parent_id.
6303: p_x_header_adj_tbl(I).header_id := p_x_header_rec.header_id;
6378: THEN
6379: IF p_x_header_rec.header_id IS NULL OR
6380: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6381: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6382: OE_MSG_PUB.Add;
6383: RAISE FND_API.G_EXC_ERROR;
6384: ELSE
6385:
6386: -- Copy parent_id.
6457:
6458: p_x_header_adj_Att_tbl(I).price_adjustment_id :=
6459: p_x_header_adj_Tbl(p_x_header_adj_att_tbl(I).adj_index).price_adjustment_id;
6460: ELSE
6461: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6462: THEN
6463: IF l_debug_level > 0 THEN
6464: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6465: END IF;
6467: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6468: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
6469: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
6470: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_header_adj_att_tbl(I).adj_index);
6471: OE_MSG_PUB.Add;
6472: END IF;
6473: END IF;
6474:
6475: END IF;
6519:
6520: p_x_header_adj_Assoc_tbl(I).price_adjustment_id :=
6521: p_x_header_adj_Tbl(p_x_header_adj_assoc_tbl(I).adj_index).price_adjustment_id;
6522: ELSE
6523: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6524: THEN
6525: IF l_debug_level > 0 THEN
6526: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6527: END IF;
6529: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6530: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
6531: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
6532: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_header_adj_assoc_tbl(I).adj_index);
6533: OE_MSG_PUB.Add;
6534: END IF;
6535: END IF;
6536:
6537: END IF;
6592:
6593: IF p_x_header_rec.header_id IS NULL OR
6594: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6595: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6596: OE_MSG_PUB.Add;
6597: RAISE FND_API.G_EXC_ERROR;
6598: ELSE
6599: -- Copy parent_id.
6600:
6703:
6704: IF p_x_header_rec.header_id IS NULL OR
6705: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6706: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6707: OE_MSG_PUB.Add;
6708: RAISE FND_API.G_EXC_ERROR;
6709: ELSE
6710: -- Copy parent_id.
6711:
6780: p_x_line_tbl(I).operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6781: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6782: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
6783: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6784: OE_MSG_PUB.Add;
6785: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6786: END IF;
6787:
6788: IF p_x_line_tbl(I).operation = oe_globals.g_opr_update
6807: oe_debug_pub.add(' Line Id : '||p_x_line_tbl(I).line_id||' cannot be split. It is in Negotiation Phase.');
6808: FND_MESSAGE.SET_NAME('ONT','OE_PC_SPLIT_VIOLATION');
6809: FND_MESSAGE.SET_TOKEN('OBJECT',p_x_line_tbl(I).line_id);
6810: FND_MESSAGE.SET_TOKEN('REASON','Line is in Negotiation Phase');
6811: OE_MSG_PUB.Add;
6812: RAISE FND_API.G_EXC_ERROR;
6813: ELSE
6814: l_call_split := TRUE;
6815: END IF;
6860: IF (l_header_id IS NOT NULL AND
6861: l_header_id <> FND_API.G_MISS_NUM) THEN
6862: IF p_x_line_tbl(I).header_id <> l_header_id THEN
6863: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
6864: oe_msg_pub.add;
6865: RAISE FND_API.G_EXC_ERROR;
6866: END IF;
6867: END IF;
6868:
6941:
6942: OE_Line_Scredit_Util.Delete_Row(p_line_id =>p_x_line_scredit_tbl(I).line_id);
6943: ELSE
6944:
6945: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6946: THEN
6947: IF l_debug_level > 0 THEN
6948: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
6949: END IF;
6951: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6952: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
6953: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
6954: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_scredit_tbl(I).line_index);
6955: OE_MSG_PUB.Add;
6956:
6957: END IF;
6958: END IF;
6959: END IF;
6987: p_x_line_payment_tbl(I).header_id := p_x_line_tbl(p_x_line_payment_tbl(I).line_index).header_id;
6988:
6989: ELSE
6990:
6991: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6992: THEN
6993: IF l_debug_level > 0 THEN
6994: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
6995: END IF;
6997: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6998: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Payment');
6999: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7000: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_payment_tbl(I).line_index);
7001: OE_MSG_PUB.Add;
7002:
7003: END IF;
7004: END IF;
7005: END IF;
7041: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
7042: END IF;
7043: ELSE
7044:
7045: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7046: THEN
7047: IF l_debug_level > 0 THEN
7048: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7049: END IF;
7052: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7053: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj');
7054: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7055: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_adj_tbl(I).line_index);
7056: OE_MSG_PUB.Add;
7057:
7058: END IF;
7059: END IF;
7060: END IF;
7267: p_x_lot_serial_tbl(I).line_id := p_x_line_tbl(p_x_Lot_serial_tbl(I).line_index).line_id;
7268:
7269: ELSE
7270:
7271: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
7272: THEN
7273:
7274: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7275: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Lot_Serial');
7274: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7275: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Lot_Serial');
7276: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7277: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_lot_serial_tbl(I).line_index);
7278: oe_msg_pub.Add;
7279:
7280: END IF;
7281: END IF;
7282: END IF;
7346: p_x_line_price_Att_tbl(I).header_id := p_x_line_tbl(p_x_line_price_att_tbl(I).line_index).header_id;
7347:
7348: ELSE
7349:
7350: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7351: THEN
7352: IF l_debug_level > 0 THEN
7353: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7354: END IF;
7357: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7358: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Price_Att');
7359: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7360: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_price_att_tbl(I).line_index);
7361: OE_MSG_PUB.Add;
7362:
7363: END IF;
7364: END IF;
7365: END IF;
7431: p_x_line_adj_Att_tbl(I).price_adjustment_id := p_x_line_Adj_tbl(p_x_Line_Adj_att_tbl(I).Adj_index).price_adjustment_id;
7432:
7433: ELSE
7434:
7435: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7436: THEN
7437: IF l_debug_level > 0 THEN
7438: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
7439: END IF;
7442: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7443: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Att');
7444: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7445: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_adj_att_tbl(I).Adj_index);
7446: OE_MSG_PUB.Add;
7447:
7448: END IF;
7449: END IF;
7450: END IF;
7493: p_x_line_adj_Assoc_tbl(I).price_adjustment_id := p_x_line_Adj_tbl(p_x_Line_Adj_assoc_tbl(I).Adj_index).price_adjustment_id;
7494:
7495: ELSE
7496:
7497: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7498: THEN
7499: IF l_debug_level > 0 THEN
7500: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
7501: END IF;
7504: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7505: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Assoc');
7506: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7507: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_adj_assoc_tbl(I).Adj_index);
7508: OE_MSG_PUB.Add;
7509:
7510: END IF;
7511: END IF;
7512: END IF;
7579: END IF;
7580: IF p_x_header_rec.header_id IS NULL OR
7581: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7582: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7583: OE_MSG_PUB.Add;
7584: RAISE FND_API.G_EXC_ERROR;
7585: ELSE
7586: p_x_action_request_tbl(I).entity_id := p_x_header_rec.header_id;
7587: END IF;
7604: p_x_action_request_tbl(I).entity_id := p_x_line_tbl(p_x_action_request_tbl(I).entity_index).line_id;
7605:
7606: ELSE
7607:
7608: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7609: THEN
7610: IF l_debug_level > 0 THEN
7611: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( p_x_action_request_tbl ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
7612: END IF;
7625: END IF;
7626: IF p_x_header_rec.header_id IS NULL OR
7627: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7628: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7629: OE_MSG_PUB.Add;
7630: RAISE FND_API.G_EXC_ERROR;
7631: ELSE
7632: p_x_action_request_tbl(I).entity_id := p_x_header_rec.header_id;
7633: END IF;
8305:
8306: -- Initialize message list.
8307:
8308: IF FND_API.to_Boolean(p_init_msg_list) THEN
8309: OE_MSG_PUB.initialize;
8310: END IF;
8311:
8312: -- Set Org Context
8313:
8438: l_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8439: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8440: OE_GLOBALS.G_OPR_NONE) THEN
8441: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8442: OE_MSG_PUB.Add;
8443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8444: END IF;
8445: END IF;
8446:
8511: THEN
8512: IF l_header_rec.header_id IS NULL OR
8513: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8514: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8515: OE_MSG_PUB.Add;
8516: RAISE FND_API.G_EXC_ERROR;
8517: ELSE
8518: -- Copy parent_id.
8519: l_Header_Adj_tbl(I).header_id := l_header_rec.header_id;
8596: THEN
8597: IF l_header_rec.header_id IS NULL OR
8598: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8599: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8600: OE_MSG_PUB.Add;
8601: RAISE FND_API.G_EXC_ERROR;
8602: ELSE
8603:
8604: -- Copy parent_id.
8677:
8678: l_Header_Adj_Att_tbl(I).price_adjustment_id :=
8679: l_header_Adj_Tbl(l_Header_Adj_Att_Rec.adj_index).price_adjustment_id;
8680: ELSE
8681: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
8682: THEN
8683: IF l_debug_level > 0 THEN
8684: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ATT_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
8685: END IF;
8687: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
8688: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
8689: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
8690: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Header_Adj_Att_Rec.adj_index);
8691: OE_MSG_PUB.Add;
8692: END IF;
8693: END IF;
8694:
8695: END IF;
8767:
8768: l_Header_Adj_Assoc_tbl(I).price_adjustment_id :=
8769: l_header_Adj_Tbl(l_Header_Adj_Assoc_Rec.adj_index).price_adjustment_id;
8770: ELSE
8771: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
8772: THEN
8773: IF l_debug_level > 0 THEN
8774: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ASSOC_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
8775: END IF;
8777: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
8778: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
8779: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
8780: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Header_Adj_Assoc_Rec.adj_index);
8781: OE_MSG_PUB.Add;
8782: END IF;
8783: END IF;
8784:
8785: END IF;
8870: THEN
8871: IF l_header_rec.header_id IS NULL OR -- p_x_header_rec replaced with l_header_rec for 2896409
8872: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8873: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8874: OE_MSG_PUB.Add;
8875: RAISE FND_API.G_EXC_ERROR;
8876: ELSE
8877:
8878: -- Copy parent_id.
8980: l_line_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8981: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8982: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
8983: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8984: OE_MSG_PUB.Add;
8985: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8986: END IF;
8987:
8988: IF l_line_rec.operation = oe_globals.g_opr_update
9038: IF (l_header_id IS NOT NULL AND
9039: l_header_id <> FND_API.G_MISS_NUM) THEN
9040: IF l_line_tbl(I).header_id <> l_header_id THEN
9041: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
9042: oe_msg_pub.add;
9043: RAISE FND_API.G_EXC_ERROR;
9044: END IF;
9045: END IF;
9046:
9219:
9220: OE_Line_Scredit_Util.Delete_Row(p_line_id =>l_Line_Scredit_tbl(I).line_id);
9221: ELSE
9222:
9223: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9224: THEN
9225: IF l_debug_level > 0 THEN
9226: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
9227: END IF;
9229: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9230: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
9231: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9232: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Scredit_rec.line_index);
9233: OE_MSG_PUB.Add;
9234:
9235: END IF;
9236: END IF;
9237: END IF;
9275: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
9276: END IF;
9277: ELSE
9278:
9279: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9280: THEN
9281: IF l_debug_level > 0 THEN
9282: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9283: END IF;
9286: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9287: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj');
9288: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9289: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Adj_rec.line_index);
9290: OE_MSG_PUB.Add;
9291:
9292: END IF;
9293: END IF;
9294: END IF;
9446: l_Lot_Serial_tbl(I).line_id := l_line_tbl(l_Lot_Serial_rec.line_index).line_id;
9447:
9448: ELSE
9449:
9450: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
9451: THEN
9452:
9453: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9454: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Lot_Serial');
9453: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9454: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Lot_Serial');
9455: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9456: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Lot_Serial_rec.line_index);
9457: oe_msg_pub.Add;
9458:
9459: END IF;
9460: END IF;
9461: END IF;
9527: l_Line_Price_Att_tbl(I).header_id := l_line_tbl(l_Line_Price_Att_rec.line_index).header_id;
9528:
9529: ELSE
9530:
9531: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9532: THEN
9533: IF l_debug_level > 0 THEN
9534: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_PRICE_ATT_REC.LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9535: END IF;
9538: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9539: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Price_Att');
9540: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9541: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Price_Att_rec.line_index);
9542: OE_MSG_PUB.Add;
9543:
9544: END IF;
9545: END IF;
9546: END IF;
9613: l_Line_Adj_Att_tbl(I).price_adjustment_id := l_line_Adj_tbl(l_Line_Adj_Att_rec.Adj_index).price_adjustment_id;
9614:
9615: ELSE
9616:
9617: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9618: THEN
9619: IF l_debug_level > 0 THEN
9620: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ATT_REC.ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
9621: END IF;
9624: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9625: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Att');
9626: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9627: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Adj_Att_rec.Adj_index);
9628: OE_MSG_PUB.Add;
9629:
9630: END IF;
9631: END IF;
9632: END IF;
9700: l_Line_Adj_Assoc_tbl(I).price_adjustment_id := l_line_Adj_tbl(l_Line_Adj_Assoc_rec.Adj_index).price_adjustment_id;
9701:
9702: ELSE
9703:
9704: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9705: THEN
9706: IF l_debug_level > 0 THEN
9707: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ASSOC_REC.ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
9708: END IF;
9711: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9712: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Assoc');
9713: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9714: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Adj_Assoc_rec.Adj_index);
9715: OE_MSG_PUB.Add;
9716:
9717: END IF;
9718: END IF;
9719: END IF;
9805: OR l_request_tbl(k).entity_id is null ) THEN
9806: IF l_header_rec.header_id IS NULL OR
9807: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9808: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9809: OE_MSG_PUB.Add;
9810: RAISE FND_API.G_EXC_ERROR;
9811: ELSE
9812:
9813: l_request_tbl(k).entity_id := l_header_rec.header_id;
9864: END IF;
9865: IF l_header_rec.header_id IS NULL OR
9866: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9867: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9868: OE_MSG_PUB.Add;
9869: RAISE FND_API.G_EXC_ERROR;
9870: ELSE
9871: l_request_tbl(I).entity_id := l_header_rec.header_id;
9872: END IF;
9889: l_request_tbl(I).entity_id := l_line_tbl(l_request_tbl(I).entity_index).line_id;
9890:
9891: ELSE
9892:
9893: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9894: THEN
9895: IF l_debug_level > 0 THEN
9896: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( L_REQUEST_TBL ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
9897: END IF;
10258:
10259: <
10260: -- Get message count and data
10261:
10262: OE_MSG_PUB.Count_And_Get
10263: ( p_count => x_msg_count
10264: , p_data => x_msg_data
10265: );
10266:
10300: END IF;
10301:
10302: -- Get message count and data
10303:
10304: OE_MSG_PUB.Count_And_Get
10305: ( p_count => x_msg_count
10306: , p_data => x_msg_data
10307: );
10308:
10333: END IF;
10334:
10335: -- Get message count and data
10336:
10337: OE_MSG_PUB.Count_And_Get
10338: ( p_count => x_msg_count
10339: , p_data => x_msg_data
10340: );
10341:
10363: ROLLBACK TO SAVEPOINT Process_Order;
10364:
10365: END IF;
10366:
10367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10368: THEN
10369: OE_MSG_PUB.Add_Exc_Msg
10370: ( G_PKG_NAME
10371: , 'Process_Order'
10365: END IF;
10366:
10367: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10368: THEN
10369: OE_MSG_PUB.Add_Exc_Msg
10370: ( G_PKG_NAME
10371: , 'Process_Order'
10372: );
10373: END IF;
10373: END IF;
10374:
10375: -- Get message count and data
10376:
10377: OE_MSG_PUB.Count_And_Get
10378: ( p_count => x_msg_count
10379: , p_data => x_msg_data
10380: );
10381:
10499:
10500: -- Initialize message list.
10501:
10502: IF FND_API.to_Boolean(p_init_msg_list) THEN
10503: OE_MSG_PUB.initialize;
10504: END IF;
10505:
10506: -- Set Savepoint
10507:
10882: x_return_status := FND_API.G_RET_STS_SUCCESS;
10883:
10884: -- Get message count and data
10885:
10886: OE_MSG_PUB.Count_And_Get
10887: ( p_count => x_msg_count
10888: , p_data => x_msg_data
10889: );
10890:
10904: x_return_status := FND_API.G_RET_STS_ERROR;
10905:
10906: -- Get message count and data
10907:
10908: OE_MSG_PUB.Count_And_Get
10909: ( p_count => x_msg_count
10910: , p_data => x_msg_data
10911: );
10912:
10919: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10920:
10921: -- Get message count and data
10922:
10923: OE_MSG_PUB.Count_And_Get
10924: ( p_count => x_msg_count
10925: , p_data => x_msg_data
10926: );
10927:
10932: WHEN OTHERS THEN
10933:
10934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10935:
10936: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10937: THEN
10938: OE_MSG_PUB.Add_Exc_Msg
10939: ( G_PKG_NAME
10940: , 'Lock_Order'
10934: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
10935:
10936: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10937: THEN
10938: OE_MSG_PUB.Add_Exc_Msg
10939: ( G_PKG_NAME
10940: , 'Lock_Order'
10941: );
10942: END IF;
10942: END IF;
10943:
10944: -- Get message count and data
10945:
10946: OE_MSG_PUB.Count_And_Get
10947: ( p_count => x_msg_count
10948: , p_data => x_msg_data
10949: );
10950:
11086:
11087: -- Initialize message list.
11088:
11089: IF FND_API.to_Boolean(p_init_msg_list) THEN
11090: OE_MSG_PUB.initialize;
11091: END IF;
11092:
11093: -- Get header ( parent = header )
11094:
11336: x_return_status := FND_API.G_RET_STS_SUCCESS;
11337:
11338: -- Get message count and data
11339:
11340: OE_MSG_PUB.Count_And_Get
11341: ( p_count => x_msg_count
11342: , p_data => x_msg_data
11343: );
11344:
11350: x_return_status := FND_API.G_RET_STS_ERROR;
11351:
11352: -- Get message count and data
11353:
11354: OE_MSG_PUB.Count_And_Get
11355: ( p_count => x_msg_count
11356: , p_data => x_msg_data
11357: );
11358:
11361: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11362:
11363: -- Get message count and data
11364:
11365: OE_MSG_PUB.Count_And_Get
11366: ( p_count => x_msg_count
11367: , p_data => x_msg_data
11368: );
11369:
11370: WHEN OTHERS THEN
11371:
11372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11373:
11374: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11375: THEN
11376: OE_MSG_PUB.Add_Exc_Msg
11377: ( G_PKG_NAME
11378: , 'Get_Order'
11372: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11373:
11374: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11375: THEN
11376: OE_MSG_PUB.Add_Exc_Msg
11377: ( G_PKG_NAME
11378: , 'Get_Order'
11379: );
11380: END IF;
11380: END IF;
11381:
11382: -- Get message count and data
11383:
11384: OE_MSG_PUB.Count_And_Get
11385: ( p_count => x_msg_count
11386: , p_data => x_msg_data
11387: );
11388:
11427: END IF;
11428:
11429: -- Initialize message list if p_init_msg_list is set to TRUE.
11430: IF FND_API.to_Boolean( p_init_msg_list ) THEN
11431: OE_MSG_PUB.initialize;
11432: END IF;
11433:
11434: -- Initialize API return status to success
11435: x_return_status := FND_API.G_RET_STS_SUCCESS;
11462: WHEN FND_API.G_EXC_ERROR THEN
11463: x_return_status := FND_API.G_RET_STS_ERROR;
11464:
11465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11466: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11467: OE_MSG_PUB.Add_Exc_Msg
11468: (G_PKG_NAME
11469: ,'Cancel_Order');
11470: END IF;
11463: x_return_status := FND_API.G_RET_STS_ERROR;
11464:
11465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11466: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11467: OE_MSG_PUB.Add_Exc_Msg
11468: (G_PKG_NAME
11469: ,'Cancel_Order');
11470: END IF;
11471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11471: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11472:
11473: WHEN OTHERS THEN
11474:
11475: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11476: THEN
11477: OE_MSG_PUB.Add_Exc_Msg
11478: ( G_PKG_NAME
11479: , 'Cancel_Order'
11473: WHEN OTHERS THEN
11474:
11475: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11476: THEN
11477: OE_MSG_PUB.Add_Exc_Msg
11478: ( G_PKG_NAME
11479: , 'Cancel_Order'
11480: );
11481: END IF;
11733: ELSE
11734: FND_MESSAGE.Set_Token('ITEM', p_x_line_rec.ordered_item);
11735: END IF;
11736: FND_MESSAGE.Set_Token('MODEL', nvl(l_model_ordered_item,l_line_rec.inventory_item_id));
11737: oe_msg_pub.add;
11738:
11739: IF p_process_partial THEN
11740: IF l_debug_level > 0 THEN /* Bug # 4036765 */
11741: oe_debug_pub.add( 'PROCESS PARTIAL IS TRUE' , 3 ) ;
11758:
11759: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_AMBIGUITY');
11760: FND_MESSAGE.Set_Token('COMPONENT', p_x_line_rec.ordered_item);
11761: FND_MESSAGE.Set_Token('MODEL', nvl(l_model_ordered_item,l_line_rec.inventory_item_id));
11762: oe_msg_pub.add;
11763: RAISE FND_API.G_EXC_ERROR;
11764:
11765: WHEN OTHERS THEN
11766: IF l_debug_level > 0 THEN
12107: p_x_line_tbl(l_top_model_line_index).inventory_item_id));
12108: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',
12109: p_x_line_tbl(l_top_model_line_index).line_number ||
12110: p_x_line_tbl(l_top_model_line_index).shipment_number);
12111: OE_MSG_PUB.Add;
12112: RAISE;
12113: END IF;
12114:
12115: WHEN OTHERS THEN