[Home] [Help]
348: IF l_debug_level > 0 THEN
349: oe_debug_pub.add( 'ORDER PARTIALLY UPGRADED ' ) ;
350: END IF;
351: FND_MESSAGE.SET_NAME('ONT','OE_INVALID_UPG_ORDER');
352: OE_MSG_PUB.Add;
353: RETURN FALSE;
354: END IF;
355:
356: IF l_debug_level > 0 THEN
400: --Moac changes start
401: l_org_id := MO_GLOBAL.get_current_org_id;
402: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
403: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
404: OE_MSG_PUB.Add;
405: RAISE FND_API.G_EXC_ERROR;
406: END IF;
407: --Moac changes end
408: -- Initialize message list.
409: set_recursion_mode(p_Entity_Code => 2,
410: p_In_out => 1);
411:
412: IF FND_API.to_Boolean(p_init_msg_list) THEN
413: OE_MSG_PUB.initialize;
414: END IF;
415:
416: x_return_status := FND_API.G_RET_STS_SUCCESS;
417:
435: IF p_x_old_header_rec.header_id = FND_API.G_MISS_NUM
436: OR p_x_old_header_rec.header_id IS NULL
437: THEN
438:
439: OE_MSG_PUB.set_msg_context(
440: p_entity_code => 'HEADER'
441: ,p_entity_id => p_x_header_rec.header_id
442: ,p_header_id => p_x_header_rec.header_id
443: ,p_line_id => null
450: ,p_source_document_type_id => p_x_header_rec.source_document_type_id);
451:
452: ELSE
453:
454: OE_MSG_PUB.set_msg_context(
455: p_entity_code => 'HEADER'
456: ,p_entity_id => p_x_old_header_rec.header_id
457: ,p_header_id => p_x_old_header_rec.header_id
458: ,p_line_id => null
545: IF l_debug_level > 0 THEN
546: oe_debug_pub.add( 'AFTER CALLING COMPLETE RECORD' , 0.5 ) ; --debug level changed to 0.5 for bug 13435459
547: END IF;
548:
549: OE_MSG_PUB.update_msg_context(
550: p_entity_code => 'HEADER'
551: ,p_entity_id => p_x_header_rec.header_id
552: ,p_header_id => p_x_header_rec.header_id
553: ,p_line_id => null
846:
847: IF l_debug_level > 0 THEN
848: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER' , 0.5 ) ; --debug level 0.5 added for bug13435459
849: END IF;
850: OE_MSG_PUB.reset_msg_context('HEADER');
851:
852: set_recursion_mode(p_Entity_Code => 2,
853: p_In_out => 0);
854:
867: END IF;
868: OE_Delayed_Requests_Pvt.Clear_Request
869: (x_return_status => l_return_status);
870: END IF;
871: OE_MSG_PUB.reset_msg_context('HEADER');
872:
873: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
874:
875: set_recursion_mode(p_Entity_Code => 2,
883: END IF;
884: OE_Delayed_Requests_Pvt.Clear_Request
885: (x_return_status => l_return_status);
886: END IF;
887: OE_MSG_PUB.reset_msg_context('HEADER');
888:
889: WHEN OTHERS THEN
890:
891: set_recursion_mode(p_Entity_Code => 2,
889: WHEN OTHERS THEN
890:
891: set_recursion_mode(p_Entity_Code => 2,
892: p_In_out => 0);
893: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
894: THEN
895: OE_MSG_PUB.Add_Exc_Msg
896: ( G_PKG_NAME
897: , 'Header'
891: set_recursion_mode(p_Entity_Code => 2,
892: p_In_out => 0);
893: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
894: THEN
895: OE_MSG_PUB.Add_Exc_Msg
896: ( G_PKG_NAME
897: , 'Header'
898: );
899: END IF;
907: END IF;
908: OE_Delayed_Requests_Pvt.Clear_Request
909: (x_return_status => l_return_status);
910: END IF;
911: OE_MSG_PUB.reset_msg_context('HEADER');
912:
913: END Header;
914:
915:
955: --MOAC changes start
956: l_org_id := MO_GLOBAL.get_current_org_id;
957: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
958: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
959: OE_MSG_PUB.Add;
960: RAISE FND_API.G_EXC_ERROR;
961: END IF;
962: --MOAC changes end
963:
967:
968: -- Initialize message list.
969:
970: IF FND_API.to_Boolean(p_init_msg_list) THEN
971: OE_MSG_PUB.initialize;
972: END IF;
973:
974: IF p_control_rec.Process_Partial THEN
975: SAVEPOINT Header_Scredits;
1029: l_source_document_id := null;
1030: END;
1031: END IF;
1032:
1033: OE_MSG_PUB.set_msg_context(
1034: p_entity_code => 'HEADER_SCREDIT'
1035: ,p_entity_id => l_header_Scredit_rec.sales_credit_id
1036: ,p_header_id => l_header_Scredit_rec.header_Id
1037: ,p_line_id => null
1073: END;
1074: END IF;
1075:
1076:
1077: OE_MSG_PUB.set_msg_context(
1078: p_entity_code => 'HEADER_SCREDIT'
1079: ,p_entity_id => l_old_header_Scredit_rec.sales_credit_id
1080: ,p_header_id => l_old_header_Scredit_rec.header_Id
1081: ,p_line_id => null
1141: ( p_x_Header_Scredit_rec => l_Header_Scredit_rec
1142: , p_old_Header_Scredit_rec => l_old_Header_Scredit_rec
1143: );
1144:
1145: OE_MSG_PUB.update_msg_context(
1146: p_entity_code => 'HEADER_SCREDIT'
1147: ,p_entity_id => l_header_Scredit_rec.sales_credit_id
1148: ,p_header_id => l_header_Scredit_rec.header_Id);
1149:
1358:
1359: END IF;
1360:
1361: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1362: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1363:
1364: -- loop exception handler.
1365: IF l_header_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1366: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1384: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1385: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1386:
1387: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1388: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1389:
1390: IF l_control_Rec.Process_Partial THEN
1391: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
1392: IF l_debug_level > 0 THEN
1414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1415: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1416: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1417: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1418: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1419: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1420:
1421: WHEN OTHERS THEN
1422:
1425: p_x_Header_Scredit_tbl(I) := l_Header_Scredit_rec;
1426: p_x_old_Header_Scredit_tbl(I) := l_old_Header_Scredit_rec;
1427:
1428: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1429: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1430: THEN
1431: OE_MSG_PUB.Add_Exc_Msg
1432: ( G_PKG_NAME
1433: , 'Header_Scredits'
1427:
1428: OE_Header_Scredit_Security.g_check_all_cols_constraint := 'Y';
1429: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1430: THEN
1431: OE_MSG_PUB.Add_Exc_Msg
1432: ( G_PKG_NAME
1433: , 'Header_Scredits'
1434: );
1435: END IF;
1433: , 'Header_Scredits'
1434: );
1435: END IF;
1436:
1437: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1438: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1439:
1440: END;
1441: I := p_x_Header_Scredit_tbl.NEXT(I);
1443:
1444: IF l_debug_level > 0 THEN
1445: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER_SCREDITS' , 1 ) ;
1446: END IF;
1447: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1448:
1449: set_recursion_mode(p_Entity_Code => 4,
1450: p_In_out => 0);
1451: EXCEPTION
1461: END IF;
1462: OE_Delayed_Requests_Pvt.Clear_Request
1463: (x_return_status => l_return_status);
1464: END IF;
1465: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1466:
1467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1468:
1469: set_recursion_mode(p_Entity_Code => 4,
1475: END IF;
1476: OE_Delayed_Requests_Pvt.Clear_Request
1477: (x_return_status => l_return_status);
1478: END IF;
1479: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1480:
1481: WHEN OTHERS THEN
1482:
1483: set_recursion_mode(p_Entity_Code => 4,
1489: END IF;
1490: OE_Delayed_Requests_Pvt.Clear_Request
1491: (x_return_status => l_return_status);
1492: END IF;
1493: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1494: THEN
1495: OE_MSG_PUB.Add_Exc_Msg
1496: ( G_PKG_NAME
1497: , 'Header_Scredits'
1491: (x_return_status => l_return_status);
1492: END IF;
1493: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1494: THEN
1495: OE_MSG_PUB.Add_Exc_Msg
1496: ( G_PKG_NAME
1497: , 'Header_Scredits'
1498: );
1499: END IF;
1498: );
1499: END IF;
1500:
1501:
1502: OE_MSG_PUB.reset_msg_context('HEADER_SCREDIT');
1503:
1504: END Header_Scredits;
1505:
1506:
1540: --MOAC changes start
1541: l_org_id := MO_GLOBAL.get_current_org_id;
1542: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
1543: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
1544: OE_MSG_PUB.Add;
1545: RAISE FND_API.G_EXC_ERROR;
1546: END IF;
1547: --MOAC changes end
1548:
1550:
1551: -- Initialize message list.
1552:
1553: IF FND_API.to_Boolean(p_init_msg_list) THEN
1554: OE_MSG_PUB.initialize;
1555: END IF;
1556:
1557: IF p_control_rec.Process_Partial THEN
1558: SAVEPOINT Header_Payments;
1612: l_source_document_id := null;
1613: END;
1614: END IF;
1615:
1616: OE_MSG_PUB.set_msg_context(
1617: p_entity_code => 'HEADER_PAYMENT'
1618: ,p_entity_id => l_header_Payment_rec.payment_number
1619: ,p_header_id => l_header_Payment_rec.header_Id
1620: ,p_line_id => null
1656: END;
1657: END IF;
1658:
1659:
1660: OE_MSG_PUB.set_msg_context(
1661: p_entity_code => 'HEADER_PAYMENT'
1662: ,p_entity_id => l_old_header_Payment_rec.payment_number
1663: ,p_header_id => l_old_header_Payment_rec.header_Id
1664: ,p_line_id => null
1749: IF l_debug_level > 0 THEN
1750: oe_debug_pub.add('Payment:after OE_Header_Payment_Util.Complete_Record', 5);
1751: END IF;
1752:
1753: OE_MSG_PUB.update_msg_context(
1754: p_entity_code => 'HEADER_PAYMENT'
1755: ,p_entity_id => l_header_Payment_rec.payment_number
1756: ,p_header_id => l_header_Payment_rec.header_Id);
1757:
2021:
2022: END IF;
2023:
2024: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2025: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2026:
2027: -- loop exception handler.
2028: IF l_header_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2047: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2048: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2049:
2050: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2051: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2052: IF l_control_Rec.Process_Partial THEN
2053: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
2054: IF l_debug_level > 0 THEN
2055: oe_debug_pub.add( 'DELETE REQUEST4' , 2 ) ;
2070: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2071: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2072: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2073: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2074: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2075: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2076:
2077: WHEN OTHERS THEN
2078:
2081: p_x_Header_Payment_tbl(I) := l_Header_Payment_rec;
2082: p_x_old_Header_Payment_tbl(I) := l_old_Header_Payment_rec;
2083:
2084: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2085: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2086: THEN
2087: OE_MSG_PUB.Add_Exc_Msg
2088: ( G_PKG_NAME
2089: , 'Header_Payments'
2083:
2084: OE_Header_Payment_Security.g_check_all_cols_constraint := 'Y';
2085: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2086: THEN
2087: OE_MSG_PUB.Add_Exc_Msg
2088: ( G_PKG_NAME
2089: , 'Header_Payments'
2090: );
2091: END IF;
2089: , 'Header_Payments'
2090: );
2091: END IF;
2092:
2093: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2094: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2095:
2096: END;
2097: I := p_x_Header_Payment_tbl.NEXT(I);
2099:
2100: IF l_debug_level > 0 THEN
2101: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.HEADER_PAYMENTS' , 1 ) ;
2102: END IF;
2103: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2104:
2105: EXCEPTION
2106:
2107: WHEN FND_API.G_EXC_ERROR THEN
2113: END IF;
2114: OE_Delayed_Requests_Pvt.Clear_Request
2115: (x_return_status => l_return_status);
2116: END IF;
2117: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2118:
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120:
2121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2125: END IF;
2126: OE_Delayed_Requests_Pvt.Clear_Request
2127: (x_return_status => l_return_status);
2128: END IF;
2129: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2130:
2131: WHEN OTHERS THEN
2132:
2133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2137: END IF;
2138: OE_Delayed_Requests_Pvt.Clear_Request
2139: (x_return_status => l_return_status);
2140: END IF;
2141: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2142: THEN
2143: OE_MSG_PUB.Add_Exc_Msg
2144: ( G_PKG_NAME
2145: , 'Header_Payments'
2139: (x_return_status => l_return_status);
2140: END IF;
2141: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2142: THEN
2143: OE_MSG_PUB.Add_Exc_Msg
2144: ( G_PKG_NAME
2145: , 'Header_Payments'
2146: );
2147: END IF;
2146: );
2147: END IF;
2148:
2149:
2150: OE_MSG_PUB.reset_msg_context('HEADER_PAYMENT');
2151:
2152: END Header_Payments;
2153:
2154:
2453: --Moac changes start
2454: l_org_id := MO_GLOBAL.get_current_org_id;
2455: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
2456: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
2457: OE_MSG_PUB.Add;
2458: RAISE FND_API.G_EXC_ERROR;
2459: END IF;
2460: --Moac changes end
2461: set_recursion_mode(p_Entity_Code => 5,
2477:
2478: -- Initialize message list.
2479:
2480: IF FND_API.to_Boolean(p_init_msg_list) THEN
2481: OE_MSG_PUB.initialize;
2482: END IF;
2483:
2484: -- Looping through the table to first process all the models and
2485: -- standard lines in the table. When models and options are processed in
2576: IF l_old_line_rec.line_id = FND_API.G_MISS_NUM OR
2577: l_old_line_rec.line_id IS NULL
2578: THEN
2579:
2580: OE_MSG_PUB.set_msg_context
2581: ( p_entity_code => 'LINE'
2582: ,p_entity_id => l_line_rec.line_id
2583: ,p_header_id => l_line_rec.header_id
2584: ,p_line_id => l_line_rec.line_id
2592: ,p_source_document_type_id => l_line_rec.source_document_type_id);
2593:
2594: ELSE
2595:
2596: OE_MSG_PUB.set_msg_context
2597: ( p_entity_code => 'LINE'
2598: ,p_entity_id => l_old_line_rec.line_id
2599: ,p_header_id => l_old_line_rec.header_id
2600: ,p_line_id => l_old_line_rec.line_id
2729: IF l_debug_level > 0 THEN
2730: oe_debug_pub.add( 'AFTER COMPLETE NEW RECORD FROM OLD' , 0.5 ) ; --debug level changed to 0.5 for 13435459
2731: END IF;
2732:
2733: OE_MSG_PUB.update_msg_context
2734: ( p_entity_code => 'LINE'
2735: ,p_entity_id => l_line_rec.line_id
2736: ,p_header_id => l_line_rec.header_id
2737: ,p_line_id => l_line_rec.line_id
3578: oe_debug_pub.add( 'BOTTOM OF LINE LOOP' , 2 ) ;
3579: END IF;
3580:
3581: OE_Line_Security.g_check_all_cols_constraint := 'Y';
3582: OE_MSG_PUB.reset_msg_context('LINE');
3583:
3584: IF l_debug_level > 0 THEN
3585: oe_debug_pub.add( 'SCH ARRIVAL_DATE='||L_LINE_REC.SCHEDULE_ARRIVAL_DATE ) ;
3586: END IF;
3646: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3647: p_x_old_line_tbl(I) := l_old_line_rec;
3648:
3649:
3650: OE_MSG_PUB.reset_msg_context('LINE');
3651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3652:
3653:
3654: WHEN OTHERS THEN
3659: p_x_line_tbl(I).semi_processed_flag := l_process_this_line;
3660: p_x_old_line_tbl(I) := l_old_line_rec;
3661:
3662:
3663: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3664: THEN
3665: OE_MSG_PUB.Add_Exc_Msg
3666: ( G_PKG_NAME
3667: ,'Lines' );
3661:
3662:
3663: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3664: THEN
3665: OE_MSG_PUB.Add_Exc_Msg
3666: ( G_PKG_NAME
3667: ,'Lines' );
3668: END IF;
3669:
3667: ,'Lines' );
3668: END IF;
3669:
3670: OE_Line_Security.g_check_all_cols_constraint := 'Y';
3671: OE_MSG_PUB.reset_msg_context('LINE');
3672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3673:
3674: END; -- of the big BEGIN with the WHILE
3675:
3756: oe_debug_pub.add('Exiting OE_ORDER_PVT.LINES ',0.5); --added for bug 13435459
3757: END IF;
3758:
3759:
3760: OE_MSG_PUB.reset_msg_context('LINE');
3761:
3762: set_recursion_mode(p_Entity_Code => 5,
3763: p_In_out => 0);
3764:
3769: OE_SET_UTIL.G_SET_OPT_TBL.delete; -- bug#2428456
3770: x_return_status := FND_API.G_RET_STS_ERROR;
3771: set_recursion_mode(p_Entity_Code => 5,
3772: p_In_out => 0);
3773: OE_MSG_PUB.reset_msg_context('LINE');
3774:
3775:
3776: IF NOT (OE_GLOBALS.G_UI_FLAG) AND line_ctr = 1 THEN
3777: IF l_debug_level > 0 THEN
3802: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3803: set_recursion_mode(p_Entity_Code => 5,
3804: p_In_out => 0);
3805:
3806: OE_MSG_PUB.reset_msg_context('LINE');
3807:
3808: IF NOT (OE_GLOBALS.G_UI_FLAG) and line_ctr = 1 THEN
3809: IF l_debug_level > 0 THEN
3810: oe_debug_pub.add( 'DELETE REQUEST10' , 2 ) ;
3845: END IF;
3846: set_recursion_mode(p_Entity_Code => 5,
3847: p_In_out => 0);
3848:
3849: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3850: THEN
3851: OE_MSG_PUB.Add_Exc_Msg
3852: ( G_PKG_NAME
3853: ,'Lines');
3847: p_In_out => 0);
3848:
3849: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3850: THEN
3851: OE_MSG_PUB.Add_Exc_Msg
3852: ( G_PKG_NAME
3853: ,'Lines');
3854: END IF;
3855:
3852: ( G_PKG_NAME
3853: ,'Lines');
3854: END IF;
3855:
3856: OE_MSG_PUB.reset_msg_context('LINE');
3857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3858:
3859: END Lines;
3860:
3896: --MOAC changes start
3897: l_org_id := MO_GLOBAL.get_current_org_id;
3898: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
3899: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
3900: OE_MSG_PUB.Add;
3901: RAISE FND_API.G_EXC_ERROR;
3902: END IF;
3903: --MOAC changes end
3904: set_recursion_mode(p_Entity_Code => 7,
3907:
3908: -- Initialize message list.
3909:
3910: IF FND_API.to_Boolean(p_init_msg_list) THEN
3911: OE_MSG_PUB.initialize;
3912: END IF;
3913:
3914: IF p_control_rec.Process_Partial THEN
3915: SAVEPOINT Line_Scredits;
3970: l_orig_sys_shipment_ref := null;
3971: END;
3972: END IF;
3973:
3974: OE_MSG_PUB.set_msg_context(
3975: p_entity_code => 'LINE_SCREDIT'
3976: ,p_entity_id => l_line_Scredit_rec.sales_credit_id
3977: ,p_header_id => l_line_Scredit_rec.header_id
3978: ,p_line_id => l_line_Scredit_rec.line_id
4021: l_orig_sys_shipment_ref := null;
4022: END;
4023: END IF;
4024:
4025: OE_MSG_PUB.set_msg_context(
4026: p_entity_code => 'LINE_SCREDIT'
4027: ,p_entity_id => l_old_line_Scredit_rec.sales_credit_id
4028: ,p_header_id => l_old_line_Scredit_rec.header_id
4029: ,p_line_id => l_old_line_Scredit_rec.line_id
4090: ( p_x_Line_Scredit_rec => l_Line_Scredit_rec
4091: , p_old_Line_Scredit_rec => l_old_Line_Scredit_rec
4092: );
4093:
4094: OE_MSG_PUB.update_msg_context(
4095: p_entity_code => 'LINE_SCREDIT'
4096: ,p_entity_id => l_line_Scredit_rec.sales_credit_id
4097: ,p_header_id => l_line_Scredit_rec.header_id
4098: ,p_line_id => l_line_Scredit_rec.line_id);
4307:
4308: END IF;
4309:
4310: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4311: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4312:
4313: -- loop exception handler.
4314: IF l_line_scredit_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4315: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4333: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4334: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4335:
4336: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4337: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4338: IF l_control_rec.Process_Partial THEN
4339: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
4340: IF l_debug_level > 0 THEN
4341: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
4356: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4357: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4358: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4359: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4360: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4361: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4362:
4363: WHEN OTHERS THEN
4364:
4366: l_Line_Scredit_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4367: p_x_Line_Scredit_tbl(I) := l_Line_Scredit_rec;
4368: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4369: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4370: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4371: THEN
4372: OE_MSG_PUB.Add_Exc_Msg
4373: ( G_PKG_NAME
4374: , 'Line_Scredits'
4368: p_x_old_Line_Scredit_tbl(I) := l_old_Line_Scredit_rec;
4369: OE_Line_Scredit_Security.g_check_all_cols_constraint := 'Y';
4370: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4371: THEN
4372: OE_MSG_PUB.Add_Exc_Msg
4373: ( G_PKG_NAME
4374: , 'Line_Scredits'
4375: );
4376: END IF;
4374: , 'Line_Scredits'
4375: );
4376: END IF;
4377:
4378: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4379: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4380:
4381: END;
4382: I := p_x_Line_Scredit_tbl.NEXT(I);
4385:
4386: IF l_debug_level > 0 THEN
4387: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.LINE_SCREDITS' , 1 ) ;
4388: END IF;
4389: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4390: set_recursion_mode(p_Entity_Code => 7,
4391: p_In_out => 0);
4392: EXCEPTION
4393:
4402: END IF;
4403: OE_Delayed_Requests_Pvt.Clear_Request
4404: (x_return_status => l_return_status);
4405: END IF;
4406: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4407:
4408: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4409:
4410: set_recursion_mode(p_Entity_Code => 7,
4416: END IF;
4417: OE_Delayed_Requests_Pvt.Clear_Request
4418: (x_return_status => l_return_status);
4419: END IF;
4420: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4421:
4422: WHEN OTHERS THEN
4423:
4424: set_recursion_mode(p_Entity_Code => 7,
4430: END IF;
4431: OE_Delayed_Requests_Pvt.Clear_Request
4432: (x_return_status => l_return_status);
4433: END IF;
4434: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4435: THEN
4436: OE_MSG_PUB.Add_Exc_Msg
4437: ( G_PKG_NAME
4438: , 'Line_Scredits'
4432: (x_return_status => l_return_status);
4433: END IF;
4434: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4435: THEN
4436: OE_MSG_PUB.Add_Exc_Msg
4437: ( G_PKG_NAME
4438: , 'Line_Scredits'
4439: );
4440: END IF;
4437: ( G_PKG_NAME
4438: , 'Line_Scredits'
4439: );
4440: END IF;
4441: OE_MSG_PUB.reset_msg_context('LINE_SCREDIT');
4442:
4443: END Line_Scredits;
4444:
4445:
4480: --MOAC changes start
4481: l_org_id := MO_GLOBAL.get_current_org_id;
4482: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
4483: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
4484: OE_MSG_PUB.Add;
4485: RAISE FND_API.G_EXC_ERROR;
4486: END IF;
4487: --MOAC changes end
4488: x_return_status := FND_API.G_RET_STS_SUCCESS;
4489:
4490: -- Initialize message list.
4491:
4492: IF FND_API.to_Boolean(p_init_msg_list) THEN
4493: OE_MSG_PUB.initialize;
4494: END IF;
4495:
4496: IF p_control_rec.Process_Partial THEN
4497: SAVEPOINT Line_Payments;
4552: l_orig_sys_shipment_ref := null;
4553: END;
4554: END IF;
4555:
4556: OE_MSG_PUB.set_msg_context(
4557: p_entity_code => 'LINE_PAYMENT'
4558: ,p_entity_id => l_line_Payment_rec.payment_number
4559: ,p_header_id => l_line_Payment_rec.header_id
4560: ,p_line_id => l_line_Payment_rec.line_id
4603: l_orig_sys_shipment_ref := null;
4604: END;
4605: END IF;
4606:
4607: OE_MSG_PUB.set_msg_context(
4608: p_entity_code => 'LINE_PAYMENT'
4609: ,p_entity_id => l_old_line_Payment_rec.payment_number
4610: ,p_header_id => l_old_line_Payment_rec.header_id
4611: ,p_line_id => l_old_line_Payment_rec.line_id
4692: IF l_debug_level > 0 THEN
4693: oe_debug_pub.add('Payment:after OE_Line_Payment_Util.Complete_Record', 5);
4694: END IF;
4695:
4696: OE_MSG_PUB.update_msg_context(
4697: p_entity_code => 'LINE_PAYMENT'
4698: ,p_entity_id => l_line_Payment_rec.payment_number
4699: ,p_header_id => l_line_Payment_rec.header_id
4700: ,p_line_id => l_line_Payment_rec.line_id);
4975:
4976: END IF;
4977:
4978: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
4979: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
4980:
4981: -- loop exception handler.
4982: IF l_line_payment_rec.return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4983: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5001: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5002: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5003:
5004: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5005: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5006: IF l_control_rec.Process_Partial THEN
5007: IF NOT (OE_GLOBALS.G_UI_FLAG) THEN
5008: IF l_debug_level > 0 THEN
5009: oe_debug_pub.add( 'DELETE REQUEST12' , 2 ) ;
5024: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5025: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5026: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5027: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5028: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5029: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5030:
5031: WHEN OTHERS THEN
5032:
5034: l_Line_Payment_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5035: p_x_Line_Payment_tbl(I) := l_Line_Payment_rec;
5036: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5037: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5038: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5039: THEN
5040: OE_MSG_PUB.Add_Exc_Msg
5041: ( G_PKG_NAME
5042: , 'Line_Payments'
5036: p_x_old_Line_Payment_tbl(I) := l_old_Line_Payment_rec;
5037: OE_Line_Payment_Security.g_check_all_cols_constraint := 'Y';
5038: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5039: THEN
5040: OE_MSG_PUB.Add_Exc_Msg
5041: ( G_PKG_NAME
5042: , 'Line_Payments'
5043: );
5044: END IF;
5042: , 'Line_Payments'
5043: );
5044: END IF;
5045:
5046: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5047: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5048:
5049: END;
5050: I := p_x_Line_Payment_tbl.NEXT(I);
5053:
5054: IF l_debug_level > 0 THEN
5055: oe_debug_pub.add( 'EXITING OE_ORDER_PVT.LINE_PAYMENTS' , 1 ) ;
5056: END IF;
5057: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5058: EXCEPTION
5059:
5060: WHEN FND_API.G_EXC_ERROR THEN
5061:
5066: END IF;
5067: OE_Delayed_Requests_Pvt.Clear_Request
5068: (x_return_status => l_return_status);
5069: END IF;
5070: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5071:
5072: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5073:
5074: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5078: END IF;
5079: OE_Delayed_Requests_Pvt.Clear_Request
5080: (x_return_status => l_return_status);
5081: END IF;
5082: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5083:
5084: WHEN OTHERS THEN
5085:
5086: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5090: END IF;
5091: OE_Delayed_Requests_Pvt.Clear_Request
5092: (x_return_status => l_return_status);
5093: END IF;
5094: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5095: THEN
5096: OE_MSG_PUB.Add_Exc_Msg
5097: ( G_PKG_NAME
5098: , 'Line_Payments'
5092: (x_return_status => l_return_status);
5093: END IF;
5094: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5095: THEN
5096: OE_MSG_PUB.Add_Exc_Msg
5097: ( G_PKG_NAME
5098: , 'Line_Payments'
5099: );
5100: END IF;
5097: ( G_PKG_NAME
5098: , 'Line_Payments'
5099: );
5100: END IF;
5101: OE_MSG_PUB.reset_msg_context('LINE_PAYMENT');
5102:
5103: END Line_Payments;
5104:
5105:
5128: --MOAC changes start
5129: l_org_id := MO_GLOBAL.get_current_org_id;
5130: IF (l_org_id IS NULL OR l_org_id = FND_API.G_MISS_NUM) THEN
5131: FND_MESSAGE.set_name('FND','MO_ORG_REQUIRED');
5132: OE_MSG_PUB.Add;
5133: RAISE FND_API.G_EXC_ERROR;
5134: END IF;
5135: --MOAC changes end
5136: x_return_status := FND_API.G_RET_STS_SUCCESS;
5137:
5138: -- Initialize message list.
5139:
5140: IF FND_API.to_Boolean(p_init_msg_list) THEN
5141: OE_MSG_PUB.initialize;
5142: END IF;
5143:
5144: -- FOR I IN 1..p_x_Lot_Serial_tbl.COUNT LOOP
5145:
5359: l_Lot_Serial_rec.return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5360: p_x_Lot_Serial_tbl(I) := l_Lot_Serial_rec;
5361: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5362:
5363: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
5364: THEN
5365: oe_msg_pub.Add_Exc_Msg
5366: ( G_PKG_NAME
5367: , 'Lot_Serials'
5361: p_x_old_Lot_Serial_tbl(I) := l_old_Lot_Serial_rec;
5362:
5363: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
5364: THEN
5365: oe_msg_pub.Add_Exc_Msg
5366: ( G_PKG_NAME
5367: , 'Lot_Serials'
5368: );
5369: END IF;
5407: END IF;
5408: OE_Delayed_Requests_Pvt.Clear_Request
5409: (x_return_status => l_return_status);
5410: END IF;
5411: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
5412: THEN
5413: oe_msg_pub.Add_Exc_Msg
5414: ( G_PKG_NAME
5415: , 'Lot_Serials'
5409: (x_return_status => l_return_status);
5410: END IF;
5411: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_UNEXP_ERROR)
5412: THEN
5413: oe_msg_pub.Add_Exc_Msg
5414: ( G_PKG_NAME
5415: , 'Lot_Serials'
5416: );
5417: END IF;
5531:
5532: -- Initialize message list.
5533:
5534: IF FND_API.to_Boolean(p_init_msg_list) THEN
5535: OE_MSG_PUB.initialize;
5536: END IF;
5537:
5538: --4241385
5539: /* querying the org_id here to het the value of the system parameter ONT_AUTO_SCH_SETS*/
6293: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110508' THEN
6294: OE_ORDER_UTIL.Clear_Global_Picture(l_return_status);
6295: END IF;
6296: END IF;
6297: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6298: THEN
6299: OE_MSG_PUB.Add_Exc_Msg
6300: ( G_PKG_NAME
6301: , 'Process_Requests_And_Notify'
6295: END IF;
6296: END IF;
6297: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6298: THEN
6299: OE_MSG_PUB.Add_Exc_Msg
6300: ( G_PKG_NAME
6301: , 'Process_Requests_And_Notify'
6302: );
6303: END IF;
6444: p_x_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
6445: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
6446: OE_GLOBALS.G_OPR_NONE) THEN
6447: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
6448: OE_MSG_PUB.Add;
6449: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6450: END IF;
6451: END IF;
6452:
6516: THEN
6517: IF p_x_header_rec.header_id IS NULL OR
6518: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6519: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6520: OE_MSG_PUB.Add;
6521: RAISE FND_API.G_EXC_ERROR;
6522: ELSE
6523: -- Copy parent_id.
6524: p_x_header_adj_tbl(I).header_id := p_x_header_rec.header_id;
6599: THEN
6600: IF p_x_header_rec.header_id IS NULL OR
6601: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6602: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6603: OE_MSG_PUB.Add;
6604: RAISE FND_API.G_EXC_ERROR;
6605: ELSE
6606:
6607: -- Copy parent_id.
6678:
6679: p_x_header_adj_Att_tbl(I).price_adjustment_id :=
6680: p_x_header_adj_Tbl(p_x_header_adj_att_tbl(I).adj_index).price_adjustment_id;
6681: ELSE
6682: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6683: THEN
6684: IF l_debug_level > 0 THEN
6685: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6686: END IF;
6688: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6689: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
6690: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
6691: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_header_adj_att_tbl(I).adj_index);
6692: OE_MSG_PUB.Add;
6693: END IF;
6694: END IF;
6695:
6696: END IF;
6740:
6741: p_x_header_adj_Assoc_tbl(I).price_adjustment_id :=
6742: p_x_header_adj_Tbl(p_x_header_adj_assoc_tbl(I).adj_index).price_adjustment_id;
6743: ELSE
6744: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
6745: THEN
6746: IF l_debug_level > 0 THEN
6747: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( P_X_HEADER_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
6748: END IF;
6750: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
6751: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
6752: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
6753: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_header_adj_assoc_tbl(I).adj_index);
6754: OE_MSG_PUB.Add;
6755: END IF;
6756: END IF;
6757:
6758: END IF;
6813:
6814: IF p_x_header_rec.header_id IS NULL OR
6815: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6816: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6817: OE_MSG_PUB.Add;
6818: RAISE FND_API.G_EXC_ERROR;
6819: ELSE
6820: -- Copy parent_id.
6821:
6924:
6925: IF p_x_header_rec.header_id IS NULL OR
6926: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
6927: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
6928: OE_MSG_PUB.Add;
6929: RAISE FND_API.G_EXC_ERROR;
6930: ELSE
6931: -- Copy parent_id.
6932:
7001: p_x_line_tbl(I).operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
7002: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
7003: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
7004: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
7005: OE_MSG_PUB.Add;
7006: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7007: END IF;
7008:
7009: IF p_x_line_tbl(I).operation = oe_globals.g_opr_update
7028: oe_debug_pub.add(' Line Id : '||p_x_line_tbl(I).line_id||' cannot be split. It is in Negotiation Phase.');
7029: FND_MESSAGE.SET_NAME('ONT','OE_PC_SPLIT_VIOLATION');
7030: FND_MESSAGE.SET_TOKEN('OBJECT',p_x_line_tbl(I).line_id);
7031: FND_MESSAGE.SET_TOKEN('REASON','Line is in Negotiation Phase');
7032: OE_MSG_PUB.Add;
7033: RAISE FND_API.G_EXC_ERROR;
7034: ELSE
7035: l_call_split := TRUE;
7036: END IF;
7081: IF (l_header_id IS NOT NULL AND
7082: l_header_id <> FND_API.G_MISS_NUM) THEN
7083: IF p_x_line_tbl(I).header_id <> l_header_id THEN
7084: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
7085: oe_msg_pub.add;
7086: RAISE FND_API.G_EXC_ERROR;
7087: END IF;
7088: END IF;
7089:
7162:
7163: OE_Line_Scredit_Util.Delete_Row(p_line_id =>p_x_line_scredit_tbl(I).line_id);
7164: ELSE
7165:
7166: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7167: THEN
7168: IF l_debug_level > 0 THEN
7169: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
7170: END IF;
7172: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7173: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
7174: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7175: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_scredit_tbl(I).line_index);
7176: OE_MSG_PUB.Add;
7177:
7178: END IF;
7179: END IF;
7180: END IF;
7208: p_x_line_payment_tbl(I).header_id := p_x_line_tbl(p_x_line_payment_tbl(I).line_index).header_id;
7209:
7210: ELSE
7211:
7212: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7213: THEN
7214: IF l_debug_level > 0 THEN
7215: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
7216: END IF;
7218: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7219: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Payment');
7220: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7221: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_payment_tbl(I).line_index);
7222: OE_MSG_PUB.Add;
7223:
7224: END IF;
7225: END IF;
7226: END IF;
7262: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
7263: END IF;
7264: ELSE
7265:
7266: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7267: THEN
7268: IF l_debug_level > 0 THEN
7269: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7270: END IF;
7273: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7274: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj');
7275: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7276: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_adj_tbl(I).line_index);
7277: OE_MSG_PUB.Add;
7278:
7279: END IF;
7280: END IF;
7281: END IF;
7488: p_x_lot_serial_tbl(I).line_id := p_x_line_tbl(p_x_Lot_serial_tbl(I).line_index).line_id;
7489:
7490: ELSE
7491:
7492: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
7493: THEN
7494:
7495: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7496: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Lot_Serial');
7495: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7496: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Lot_Serial');
7497: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7498: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_lot_serial_tbl(I).line_index);
7499: oe_msg_pub.Add;
7500:
7501: END IF;
7502: END IF;
7503: END IF;
7567: p_x_line_price_Att_tbl(I).header_id := p_x_line_tbl(p_x_line_price_att_tbl(I).line_index).header_id;
7568:
7569: ELSE
7570:
7571: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7572: THEN
7573: IF l_debug_level > 0 THEN
7574: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( P_X_LINE_PRICE_ATT_TBL ( I ) .LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
7575: END IF;
7578: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7579: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Price_Att');
7580: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7581: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_price_att_tbl(I).line_index);
7582: OE_MSG_PUB.Add;
7583:
7584: END IF;
7585: END IF;
7586: END IF;
7652: 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;
7653:
7654: ELSE
7655:
7656: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7657: THEN
7658: IF l_debug_level > 0 THEN
7659: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ATT_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
7660: END IF;
7663: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7664: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Att');
7665: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7666: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_adj_att_tbl(I).Adj_index);
7667: OE_MSG_PUB.Add;
7668:
7669: END IF;
7670: END IF;
7671: END IF;
7714: 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;
7715:
7716: ELSE
7717:
7718: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7719: THEN
7720: IF l_debug_level > 0 THEN
7721: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( P_X_LINE_ADJ_ASSOC_TBL ( I ) .ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
7722: END IF;
7725: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
7726: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Assoc');
7727: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
7728: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',p_x_line_adj_assoc_tbl(I).Adj_index);
7729: OE_MSG_PUB.Add;
7730:
7731: END IF;
7732: END IF;
7733: END IF;
7800: END IF;
7801: IF p_x_header_rec.header_id IS NULL OR
7802: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7803: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7804: OE_MSG_PUB.Add;
7805: RAISE FND_API.G_EXC_ERROR;
7806: ELSE
7807: p_x_action_request_tbl(I).entity_id := p_x_header_rec.header_id;
7808: l_hdr_flow_status_refresh := 'Y'; -- Bug 8435946
7826: p_x_action_request_tbl(I).entity_id := p_x_line_tbl(p_x_action_request_tbl(I).entity_index).line_id;
7827:
7828: ELSE
7829:
7830: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
7831: THEN
7832: IF l_debug_level > 0 THEN
7833: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( p_x_action_request_tbl ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
7834: END IF;
7847: END IF;
7848: IF p_x_header_rec.header_id IS NULL OR
7849: p_x_header_rec.header_id = FND_API.G_MISS_NUM THEN
7850: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
7851: OE_MSG_PUB.Add;
7852: RAISE FND_API.G_EXC_ERROR;
7853: ELSE
7854: p_x_action_request_tbl(I).entity_id := p_x_header_rec.header_id;
7855: END IF;
8534:
8535: -- Initialize message list.
8536:
8537: IF FND_API.to_Boolean(p_init_msg_list) THEN
8538: OE_MSG_PUB.initialize;
8539: END IF;
8540:
8541: -- Set Org Context
8542:
8667: l_header_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
8668: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
8669: OE_GLOBALS.G_OPR_NONE) THEN
8670: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
8671: OE_MSG_PUB.Add;
8672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8673: END IF;
8674: END IF;
8675:
8740: THEN
8741: IF l_header_rec.header_id IS NULL OR
8742: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8743: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8744: OE_MSG_PUB.Add;
8745: RAISE FND_API.G_EXC_ERROR;
8746: ELSE
8747: -- Copy parent_id.
8748: l_Header_Adj_tbl(I).header_id := l_header_rec.header_id;
8825: THEN
8826: IF l_header_rec.header_id IS NULL OR
8827: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
8828: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
8829: OE_MSG_PUB.Add;
8830: RAISE FND_API.G_EXC_ERROR;
8831: ELSE
8832:
8833: -- Copy parent_id.
8906:
8907: l_Header_Adj_Att_tbl(I).price_adjustment_id :=
8908: l_header_Adj_Tbl(l_Header_Adj_Att_Rec.adj_index).price_adjustment_id;
8909: ELSE
8910: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
8911: THEN
8912: IF l_debug_level > 0 THEN
8913: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ATT_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
8914: END IF;
8916: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
8917: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Attribs');
8918: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
8919: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Header_Adj_Att_Rec.adj_index);
8920: OE_MSG_PUB.Add;
8921: END IF;
8922: END IF;
8923:
8924: END IF;
8996:
8997: l_Header_Adj_Assoc_tbl(I).price_adjustment_id :=
8998: l_header_Adj_Tbl(l_Header_Adj_Assoc_Rec.adj_index).price_adjustment_id;
8999: ELSE
9000: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9001: THEN
9002: IF l_debug_level > 0 THEN
9003: oe_debug_pub.add( 'INVALID ADJ INDEX '|| TO_CHAR ( L_HEADER_ADJ_ASSOC_REC.ADJ_INDEX ) || 'ON HEADER ADJ ATTRIBUTES' , 2 ) ;
9004: END IF;
9006: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9007: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Header_Adj_Assocs');
9008: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9009: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Header_Adj_Assoc_Rec.adj_index);
9010: OE_MSG_PUB.Add;
9011: END IF;
9012: END IF;
9013:
9014: END IF;
9099: THEN
9100: IF l_header_rec.header_id IS NULL OR -- p_x_header_rec replaced with l_header_rec for 2896409
9101: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
9102: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
9103: OE_MSG_PUB.Add;
9104: RAISE FND_API.G_EXC_ERROR;
9105: ELSE
9106:
9107: -- Copy parent_id.
9209: l_line_rec.operation NOT IN (OE_GLOBALS.G_OPR_CREATE,
9210: OE_GLOBALS.G_OPR_DELETE, OE_GLOBALS.G_OPR_UPDATE,
9211: OE_GLOBALS.G_OPR_INSERT, OE_GLOBALS.G_OPR_NONE) THEN
9212: FND_MESSAGE.SET_NAME('ONT','OE_OI_OPERATION_CODE');
9213: OE_MSG_PUB.Add;
9214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9215: END IF;
9216:
9217: IF l_line_rec.operation = oe_globals.g_opr_update
9267: IF (l_header_id IS NOT NULL AND
9268: l_header_id <> FND_API.G_MISS_NUM) THEN
9269: IF l_line_tbl(I).header_id <> l_header_id THEN
9270: fnd_message.set_name('ONT', 'OE_HEADER_MISSING');
9271: oe_msg_pub.add;
9272: RAISE FND_API.G_EXC_ERROR;
9273: END IF;
9274: END IF;
9275:
9448:
9449: OE_Line_Scredit_Util.Delete_Row(p_line_id =>l_Line_Scredit_tbl(I).line_id);
9450: ELSE
9451:
9452: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9453: THEN
9454: IF l_debug_level > 0 THEN
9455: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON LINE SALES CREDITS' , 2 ) ;
9456: END IF;
9458: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9459: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Scredit');
9460: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9461: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Scredit_rec.line_index);
9462: OE_MSG_PUB.Add;
9463:
9464: END IF;
9465: END IF;
9466: END IF;
9504: oe_debug_pub.add( 'TREATING THE RECORD AS HEADER_ADJUSTMENT' ) ;
9505: END IF;
9506: ELSE
9507:
9508: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9509: THEN
9510: IF l_debug_level > 0 THEN
9511: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9512: END IF;
9515: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9516: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj');
9517: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9518: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Adj_rec.line_index);
9519: OE_MSG_PUB.Add;
9520:
9521: END IF;
9522: END IF;
9523: END IF;
9675: l_Lot_Serial_tbl(I).line_id := l_line_tbl(l_Lot_Serial_rec.line_index).line_id;
9676:
9677: ELSE
9678:
9679: IF oe_msg_pub.Check_Msg_Level(oe_msg_pub.G_MSG_LVL_ERROR)
9680: THEN
9681:
9682: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9683: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Lot_Serial');
9682: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9683: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Lot_Serial');
9684: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9685: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Lot_Serial_rec.line_index);
9686: oe_msg_pub.Add;
9687:
9688: END IF;
9689: END IF;
9690: END IF;
9756: l_Line_Price_Att_tbl(I).header_id := l_line_tbl(l_Line_Price_Att_rec.line_index).header_id;
9757:
9758: ELSE
9759:
9760: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9761: THEN
9762: IF l_debug_level > 0 THEN
9763: oe_debug_pub.add( 'INVALID LINE INDEX ' ||TO_CHAR ( L_LINE_PRICE_ATT_REC.LINE_INDEX ) ||'ON PRICE ADJUSTMENTS' , 2 ) ;
9764: END IF;
9767: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9768: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Price_Att');
9769: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9770: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Price_Att_rec.line_index);
9771: OE_MSG_PUB.Add;
9772:
9773: END IF;
9774: END IF;
9775: END IF;
9842: l_Line_Adj_Att_tbl(I).price_adjustment_id := l_line_Adj_tbl(l_Line_Adj_Att_rec.Adj_index).price_adjustment_id;
9843:
9844: ELSE
9845:
9846: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9847: THEN
9848: IF l_debug_level > 0 THEN
9849: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ATT_REC.ADJ_INDEX ) ||'ON ADJ ATTRIBS' , 2 ) ;
9850: END IF;
9853: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9854: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Att');
9855: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9856: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Adj_Att_rec.Adj_index);
9857: OE_MSG_PUB.Add;
9858:
9859: END IF;
9860: END IF;
9861: END IF;
9929: l_Line_Adj_Assoc_tbl(I).price_adjustment_id := l_line_Adj_tbl(l_Line_Adj_Assoc_rec.Adj_index).price_adjustment_id;
9930:
9931: ELSE
9932:
9933: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
9934: THEN
9935: IF l_debug_level > 0 THEN
9936: oe_debug_pub.add( 'INVALID ADJ INDEX ' ||TO_CHAR ( L_LINE_ADJ_ASSOC_REC.ADJ_INDEX ) ||'ON ADJ ASSOCS' , 2 ) ;
9937: END IF;
9940: fnd_message.set_name('ONT','OE_API_INV_PARENT_INDEX');
9941: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Line_Adj_Assoc');
9942: FND_MESSAGE.SET_TOKEN('ENTITY_INDEX',I);
9943: FND_MESSAGE.SET_TOKEN('PARENT_INDEX',l_Line_Adj_Assoc_rec.Adj_index);
9944: OE_MSG_PUB.Add;
9945:
9946: END IF;
9947: END IF;
9948: END IF;
10034: OR l_request_tbl(k).entity_id is null ) THEN
10035: IF l_header_rec.header_id IS NULL OR
10036: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
10037: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
10038: OE_MSG_PUB.Add;
10039: RAISE FND_API.G_EXC_ERROR;
10040: ELSE
10041:
10042: l_request_tbl(k).entity_id := l_header_rec.header_id;
10093: END IF;
10094: IF l_header_rec.header_id IS NULL OR
10095: l_header_rec.header_id = FND_API.G_MISS_NUM THEN
10096: FND_MESSAGE.SET_NAME('ONT','OE_HEADER_MISSING');
10097: OE_MSG_PUB.Add;
10098: RAISE FND_API.G_EXC_ERROR;
10099: ELSE
10100: l_request_tbl(I).entity_id := l_header_rec.header_id;
10101: END IF;
10118: l_request_tbl(I).entity_id := l_line_tbl(l_request_tbl(I).entity_index).line_id;
10119:
10120: ELSE
10121:
10122: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_ERROR)
10123: THEN
10124: IF l_debug_level > 0 THEN
10125: oe_debug_pub.add( 'INVALID ENTITY INDEX ' ||TO_CHAR ( L_REQUEST_TBL ( I ) .ENTITY_INDEX ) ||'ON REQUEST TABLE FOR LINE ENTITY' , 2 ) ;
10126: END IF;
10487:
10488: <
10489: -- Get message count and data
10490:
10491: OE_MSG_PUB.Count_And_Get
10492: ( p_count => x_msg_count
10493: , p_data => x_msg_data
10494: );
10495:
10529: END IF;
10530:
10531: -- Get message count and data
10532:
10533: OE_MSG_PUB.Count_And_Get
10534: ( p_count => x_msg_count
10535: , p_data => x_msg_data
10536: );
10537:
10562: END IF;
10563:
10564: -- Get message count and data
10565:
10566: OE_MSG_PUB.Count_And_Get
10567: ( p_count => x_msg_count
10568: , p_data => x_msg_data
10569: );
10570:
10592: ROLLBACK TO SAVEPOINT Process_Order;
10593:
10594: END IF;
10595:
10596: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10597: THEN
10598: OE_MSG_PUB.Add_Exc_Msg
10599: ( G_PKG_NAME
10600: , 'Process_Order'
10594: END IF;
10595:
10596: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10597: THEN
10598: OE_MSG_PUB.Add_Exc_Msg
10599: ( G_PKG_NAME
10600: , 'Process_Order'
10601: );
10602: END IF;
10602: END IF;
10603:
10604: -- Get message count and data
10605:
10606: OE_MSG_PUB.Count_And_Get
10607: ( p_count => x_msg_count
10608: , p_data => x_msg_data
10609: );
10610:
10728:
10729: -- Initialize message list.
10730:
10731: IF FND_API.to_Boolean(p_init_msg_list) THEN
10732: OE_MSG_PUB.initialize;
10733: END IF;
10734:
10735: -- Set Savepoint
10736:
11111: x_return_status := FND_API.G_RET_STS_SUCCESS;
11112:
11113: -- Get message count and data
11114:
11115: OE_MSG_PUB.Count_And_Get
11116: ( p_count => x_msg_count
11117: , p_data => x_msg_data
11118: );
11119:
11133: x_return_status := FND_API.G_RET_STS_ERROR;
11134:
11135: -- Get message count and data
11136:
11137: OE_MSG_PUB.Count_And_Get
11138: ( p_count => x_msg_count
11139: , p_data => x_msg_data
11140: );
11141:
11148: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11149:
11150: -- Get message count and data
11151:
11152: OE_MSG_PUB.Count_And_Get
11153: ( p_count => x_msg_count
11154: , p_data => x_msg_data
11155: );
11156:
11161: WHEN OTHERS THEN
11162:
11163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11164:
11165: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11166: THEN
11167: OE_MSG_PUB.Add_Exc_Msg
11168: ( G_PKG_NAME
11169: , 'Lock_Order'
11163: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11164:
11165: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11166: THEN
11167: OE_MSG_PUB.Add_Exc_Msg
11168: ( G_PKG_NAME
11169: , 'Lock_Order'
11170: );
11171: END IF;
11171: END IF;
11172:
11173: -- Get message count and data
11174:
11175: OE_MSG_PUB.Count_And_Get
11176: ( p_count => x_msg_count
11177: , p_data => x_msg_data
11178: );
11179:
11315:
11316: -- Initialize message list.
11317:
11318: IF FND_API.to_Boolean(p_init_msg_list) THEN
11319: OE_MSG_PUB.initialize;
11320: END IF;
11321:
11322: -- Get header ( parent = header )
11323:
11565: x_return_status := FND_API.G_RET_STS_SUCCESS;
11566:
11567: -- Get message count and data
11568:
11569: OE_MSG_PUB.Count_And_Get
11570: ( p_count => x_msg_count
11571: , p_data => x_msg_data
11572: );
11573:
11579: x_return_status := FND_API.G_RET_STS_ERROR;
11580:
11581: -- Get message count and data
11582:
11583: OE_MSG_PUB.Count_And_Get
11584: ( p_count => x_msg_count
11585: , p_data => x_msg_data
11586: );
11587:
11590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11591:
11592: -- Get message count and data
11593:
11594: OE_MSG_PUB.Count_And_Get
11595: ( p_count => x_msg_count
11596: , p_data => x_msg_data
11597: );
11598:
11599: WHEN OTHERS THEN
11600:
11601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11602:
11603: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11604: THEN
11605: OE_MSG_PUB.Add_Exc_Msg
11606: ( G_PKG_NAME
11607: , 'Get_Order'
11601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
11602:
11603: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11604: THEN
11605: OE_MSG_PUB.Add_Exc_Msg
11606: ( G_PKG_NAME
11607: , 'Get_Order'
11608: );
11609: END IF;
11609: END IF;
11610:
11611: -- Get message count and data
11612:
11613: OE_MSG_PUB.Count_And_Get
11614: ( p_count => x_msg_count
11615: , p_data => x_msg_data
11616: );
11617:
11656: END IF;
11657:
11658: -- Initialize message list if p_init_msg_list is set to TRUE.
11659: IF FND_API.to_Boolean( p_init_msg_list ) THEN
11660: OE_MSG_PUB.initialize;
11661: END IF;
11662:
11663: -- Initialize API return status to success
11664: x_return_status := FND_API.G_RET_STS_SUCCESS;
11691: WHEN FND_API.G_EXC_ERROR THEN
11692: x_return_status := FND_API.G_RET_STS_ERROR;
11693:
11694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11695: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11696: OE_MSG_PUB.Add_Exc_Msg
11697: (G_PKG_NAME
11698: ,'Cancel_Order');
11699: END IF;
11692: x_return_status := FND_API.G_RET_STS_ERROR;
11693:
11694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11695: IF OE_MSG_PUB.Check_MSg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
11696: OE_MSG_PUB.Add_Exc_Msg
11697: (G_PKG_NAME
11698: ,'Cancel_Order');
11699: END IF;
11700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11700: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11701:
11702: WHEN OTHERS THEN
11703:
11704: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11705: THEN
11706: OE_MSG_PUB.Add_Exc_Msg
11707: ( G_PKG_NAME
11708: , 'Cancel_Order'
11702: WHEN OTHERS THEN
11703:
11704: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11705: THEN
11706: OE_MSG_PUB.Add_Exc_Msg
11707: ( G_PKG_NAME
11708: , 'Cancel_Order'
11709: );
11710: END IF;
11962: ELSE
11963: FND_MESSAGE.Set_Token('ITEM', p_x_line_rec.ordered_item);
11964: END IF;
11965: FND_MESSAGE.Set_Token('MODEL', nvl(l_model_ordered_item,l_line_rec.inventory_item_id));
11966: oe_msg_pub.add;
11967:
11968: IF p_process_partial THEN
11969: IF l_debug_level > 0 THEN /* Bug # 4036765 */
11970: oe_debug_pub.add( 'PROCESS PARTIAL IS TRUE' , 3 ) ;
11987:
11988: FND_MESSAGE.Set_Name('ONT', 'OE_CONFIG_AMBIGUITY');
11989: FND_MESSAGE.Set_Token('COMPONENT', p_x_line_rec.ordered_item);
11990: FND_MESSAGE.Set_Token('MODEL', nvl(l_model_ordered_item,l_line_rec.inventory_item_id));
11991: oe_msg_pub.add;
11992: RAISE FND_API.G_EXC_ERROR;
11993:
11994: WHEN OTHERS THEN
11995: IF l_debug_level > 0 THEN
12336: p_x_line_tbl(l_top_model_line_index).inventory_item_id));
12337: FND_MESSAGE.SET_TOKEN('LINE_NUMBER',
12338: p_x_line_tbl(l_top_model_line_index).line_number ||
12339: p_x_line_tbl(l_top_model_line_index).shipment_number);
12340: OE_MSG_PUB.Add;
12341: RAISE;
12342: END IF;
12343:
12344: WHEN OTHERS THEN