210:
211: EXCEPTION
212:
213: WHEN OTHERS THEN
214: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
215: THEN
216: OE_MSG_PUB.Add_Exc_Msg
217: ( G_PKG_NAME
218: , 'oe_schedule_util.validate_ship_method'
212:
213: WHEN OTHERS THEN
214: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
215: THEN
216: OE_MSG_PUB.Add_Exc_Msg
217: ( G_PKG_NAME
218: , 'oe_schedule_util.validate_ship_method'
219: );
220: END IF;
262: IF l_debug_level > 0 THEN
263: oe_debug_pub.add( 'LAD VIOLATED ' , 1 ) ;
264: END IF;
265: Fnd_Message.set_name('ONT','ONT_SCH_LAD_VIOLATE');
266: Oe_Msg_Pub.Add;
267: END IF;
268: /* -- 3349770 this will be only validated when user enters manually.
269: ELSIF l_lad_flag = 'H' THEN
270: IF ((l_order_date_type_code = 'SHIP'
276: IF l_debug_level > 0 THEN
277: oe_debug_pub.add( 'SCHEDULE DATE EXCEEDS LAD ' , 1 ) ;
278: END IF;
279: Fnd_Message.set_name('ONT','ONT_SCH_LAD_SCH_FAILED');
280: Oe_Msg_Pub.Add;
281: RAISE FND_API.G_EXC_ERROR;
282: END IF;
283: */
284: END IF;
911: oe_debug_pub.add( 'LINE FULFILLED, CANNOT RESERVE LINE. FULFILLED QTY:' || p_line_rec.fulfilled_quantity , 1 ) ;
912: END IF;
913:
914: FND_MESSAGE.SET_NAME('ONT','OE_RSV_LINE_FULFILLED');
915: OE_MSG_PUB.Add;
916:
917: RAISE FND_API.G_EXC_ERROR;
918:
919: END IF;
938: EXCEPTION
939: WHEN OTHERS THEN
940: x_return_status := FND_API.G_RET_STS_ERROR;
941: fnd_message.set_name('ONT', 'OE_INVALID_ITEM_WHSE');
942: OE_MSG_PUB.Add;
943: END;
944:
945: IF l_revision_code = 2
946: OR l_lot_code = 2
946: OR l_lot_code = 2
947: THEN
948: -- 2 == YES
949: FND_MESSAGE.SET_NAME('ONT', 'OE_SUBINV_NOT_ALLOWED');
950: OE_MSG_PUB.Add;
951: IF p_line_rec.Schedule_action_code = OESCH_ACT_RESERVE THEN
952: x_return_status := FND_API.G_RET_STS_ERROR;
953: RAISE FND_API.G_EXC_ERROR;
954: ELSE
1038:
1039: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1040: -- 4091185
1041: -- Messages are being handled in exceptions block
1042: -- oe_msg_pub.transfer_msg_stack;
1043: -- l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1044: -- for I in 1..l_msg_count loop
1045: -- l_msg_data := OE_MSG_PUB.Get(I,'F');
1046: -- IF l_debug_level > 0 THEN
1039: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1040: -- 4091185
1041: -- Messages are being handled in exceptions block
1042: -- oe_msg_pub.transfer_msg_stack;
1043: -- l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1044: -- for I in 1..l_msg_count loop
1045: -- l_msg_data := OE_MSG_PUB.Get(I,'F');
1046: -- IF l_debug_level > 0 THEN
1047: -- oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1041: -- Messages are being handled in exceptions block
1042: -- oe_msg_pub.transfer_msg_stack;
1043: -- l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1044: -- for I in 1..l_msg_count loop
1045: -- l_msg_data := OE_MSG_PUB.Get(I,'F');
1046: -- IF l_debug_level > 0 THEN
1047: -- oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1048: -- END IF;
1049: -- end loop;
1049: -- end loop;
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1052: -- 4091185
1053: oe_msg_pub.transfer_msg_stack(p_type => 'WARNING');
1054: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1055: for I in 1..l_msg_count loop
1056: l_msg_data := OE_MSG_PUB.Get(I,'F');
1057: IF l_debug_level > 0 THEN
1050: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1051: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1052: -- 4091185
1053: oe_msg_pub.transfer_msg_stack(p_type => 'WARNING');
1054: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1055: for I in 1..l_msg_count loop
1056: l_msg_data := OE_MSG_PUB.Get(I,'F');
1057: IF l_debug_level > 0 THEN
1058: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1052: -- 4091185
1053: oe_msg_pub.transfer_msg_stack(p_type => 'WARNING');
1054: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1055: for I in 1..l_msg_count loop
1056: l_msg_data := OE_MSG_PUB.Get(I,'F');
1057: IF l_debug_level > 0 THEN
1058: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1059: END IF;
1060: end loop;
1081:
1082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1084:
1085: oe_msg_pub.transfer_msg_stack;
1086: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1087: for I in 1..l_msg_count loop
1088: l_msg_data := OE_MSG_PUB.Get(I,'F');
1089: -- 4091185
1082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1083: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1084:
1085: oe_msg_pub.transfer_msg_stack;
1086: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1087: for I in 1..l_msg_count loop
1088: l_msg_data := OE_MSG_PUB.Get(I,'F');
1089: -- 4091185
1090: -- oe_msg_pub.transfer_msg_stack has already added messages.
1084:
1085: oe_msg_pub.transfer_msg_stack;
1086: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1087: for I in 1..l_msg_count loop
1088: l_msg_data := OE_MSG_PUB.Get(I,'F');
1089: -- 4091185
1090: -- oe_msg_pub.transfer_msg_stack has already added messages.
1091: -- oe_msg_pub.add_text(l_msg_data);
1092: IF l_debug_level > 0 THEN
1086: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1087: for I in 1..l_msg_count loop
1088: l_msg_data := OE_MSG_PUB.Get(I,'F');
1089: -- 4091185
1090: -- oe_msg_pub.transfer_msg_stack has already added messages.
1091: -- oe_msg_pub.add_text(l_msg_data);
1092: IF l_debug_level > 0 THEN
1093: oe_debug_pub.add( 'INV : ' || L_MSG_DATA , 2 ) ;
1094: END IF;
1087: for I in 1..l_msg_count loop
1088: l_msg_data := OE_MSG_PUB.Get(I,'F');
1089: -- 4091185
1090: -- oe_msg_pub.transfer_msg_stack has already added messages.
1091: -- oe_msg_pub.add_text(l_msg_data);
1092: IF l_debug_level > 0 THEN
1093: oe_debug_pub.add( 'INV : ' || L_MSG_DATA , 2 ) ;
1094: END IF;
1095: end loop;
1096:
1097: WHEN OTHERS THEN
1098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1099:
1100: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1101: THEN
1102: OE_MSG_PUB.Add_Exc_Msg
1103: ( G_PKG_NAME
1104: , 'Reserve_line'
1098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1099:
1100: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1101: THEN
1102: OE_MSG_PUB.Add_Exc_Msg
1103: ( G_PKG_NAME
1104: , 'Reserve_line'
1105: );
1106: END IF;
1194:
1195: WHEN OTHERS THEN
1196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1197:
1198: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1199: THEN
1200: OE_MSG_PUB.Add_Exc_Msg
1201: ( G_PKG_NAME
1202: , 'Unreserve_line'
1196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1197:
1198: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1199: THEN
1200: OE_MSG_PUB.Add_Exc_Msg
1201: ( G_PKG_NAME
1202: , 'Unreserve_line'
1203: );
1204: END IF;
1404: WHEN OTHERS THEN
1405:
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407:
1408: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1409: THEN
1410: OE_MSG_PUB.Add_Exc_Msg
1411: ( G_PKG_NAME,
1412: 'Log_Delete_Set_Request');
1406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1407:
1408: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1409: THEN
1410: OE_MSG_PUB.Add_Exc_Msg
1411: ( G_PKG_NAME,
1412: 'Log_Delete_Set_Request');
1413: END IF;
1414: END Log_Delete_Set_Request;
2110: WHEN OTHERS THEN
2111:
2112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2113:
2114: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2115: THEN
2116: OE_MSG_PUB.Add_Exc_Msg
2117: ( G_PKG_NAME,
2118: 'Log_Set_Request');
2112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2113:
2114: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2115: THEN
2116: OE_MSG_PUB.Add_Exc_Msg
2117: ( G_PKG_NAME,
2118: 'Log_Set_Request');
2119: END IF;
2120: END Log_Set_Request;
2218: EXCEPTION
2219:
2220: WHEN OTHERS THEN
2221:
2222: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2223: THEN
2224: OE_MSG_PUB.Add_Exc_Msg
2225: ( G_PKG_NAME,
2226: 'Schedule_Attribute_Changed');
2220: WHEN OTHERS THEN
2221:
2222: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2223: THEN
2224: OE_MSG_PUB.Add_Exc_Msg
2225: ( G_PKG_NAME,
2226: 'Schedule_Attribute_Changed');
2227: END IF;
2228: END Schedule_Attribute_Changed;
2485: WHEN OTHERS THEN
2486:
2487: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2488:
2489: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2490: THEN
2491:
2492: OE_MSG_PUB.Add_Exc_Msg
2493: (G_PKG_NAME,
2488:
2489: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2490: THEN
2491:
2492: OE_MSG_PUB.Add_Exc_Msg
2493: (G_PKG_NAME,
2494: 'Inactive_Demand_Scheduling');
2495: END IF;
2496:
2582: EXCEPTION
2583:
2584: WHEN OTHERS THEN
2585:
2586: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2587: THEN
2588: OE_MSG_PUB.Add_Exc_Msg
2589: ( G_PKG_NAME,
2590: 'Initialize_mrp_record');
2584: WHEN OTHERS THEN
2585:
2586: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2587: THEN
2588: OE_MSG_PUB.Add_Exc_Msg
2589: ( G_PKG_NAME,
2590: 'Initialize_mrp_record');
2591: END IF;
2592: END Initialize_mrp_record;
3260: /*
3261: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ITEM_CHANGE');
3262: FND_MESSAGE.SET_TOKEN('OLDITEM',p_x_line_rec.ordered_item);
3263: FND_MESSAGE.SET_TOKEN('NEWITEM', p_atp_rec.inventory_item_name(J));
3264: OE_MSG_PUB.Add;
3265: */
3266: p_split_line_rec := l_split_line_tbl(1);
3267:
3268:
4406:
4407: Raise FND_API.G_EXC_ERROR;
4408: WHEN OTHERS THEN
4409:
4410: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4411: THEN
4412: OE_MSG_PUB.Add_Exc_Msg
4413: ( G_PKG_NAME,
4414: 'Load_MRP_request');
4408: WHEN OTHERS THEN
4409:
4410: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4411: THEN
4412: OE_MSG_PUB.Add_Exc_Msg
4413: ( G_PKG_NAME,
4414: 'Load_MRP_request');
4415: END IF;
4416:
4478: Raise FND_API.G_EXC_ERROR;
4479:
4480: WHEN OTHERS THEN
4481:
4482: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4483: THEN
4484: OE_MSG_PUB.Add_Exc_Msg
4485: ( G_PKG_NAME,
4486: 'Log_Set_Request');
4480: WHEN OTHERS THEN
4481:
4482: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4483: THEN
4484: OE_MSG_PUB.Add_Exc_Msg
4485: ( G_PKG_NAME,
4486: 'Log_Set_Request');
4487: END IF;
4488:
4710: Raise FND_API.G_EXC_ERROR;
4711:
4712: WHEN OTHERS THEN
4713:
4714: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4715: THEN
4716: OE_MSG_PUB.Add_Exc_Msg
4717: ( G_PKG_NAME,
4718: 'Load_MRP_request_from_tbl');
4712: WHEN OTHERS THEN
4713:
4714: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4715: THEN
4716: OE_MSG_PUB.Add_Exc_Msg
4717: ( G_PKG_NAME,
4718: 'Load_MRP_request_from_tbl');
4719: END IF;
4720: END Load_MRP_request_from_tbl;
4789: oe_debug_pub.add( 'MRP HAS RETURNED ANY DATA' , 1 ) ;
4790: END IF;
4791:
4792: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
4793: OE_MSG_PUB.Add;
4794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4795:
4796: END IF;
4797: -- 4504197
4998: END IF;
4999: IF p_atp_rec.error_code(J) = 80 THEN
5000:
5001: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_SOURCE');
5002: OE_MSG_PUB.Add;
5003:
5004: ELSE
5005:
5006: IF l_debug_level > 0 THEN
5009: IF l_debug_level > 0 THEN
5010: oe_debug_pub.add( P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
5011: END IF;
5012:
5013: OE_MSG_PUB.set_msg_context(
5014: p_entity_code => 'LINE'
5015: ,p_entity_id => p_x_line_rec.line_id
5016: ,p_header_id => p_x_line_rec.header_id
5017: ,p_line_id => p_x_line_rec.line_id
5074: ELSE
5075: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OE_ORDER_FAILED');
5076: FND_MESSAGE.SET_TOKEN('EXPLANATION',l_explanation);
5077: END IF;
5078: OE_MSG_PUB.Add;
5079: END IF;
5080: END IF; -- 80
5081:
5082: IF l_debug_level > 0 THEN
5133: oe_debug_pub.add( 'EXPLANATION IS : ' || L_EXPLANATION , 1 ) ;
5134: END IF;
5135:
5136: /* IF p_atp_rec.error_code(J) = 150 THEN -- to fix bug 1880166.
5137: OE_MSG_PUB.add_text(l_explanation);
5138: END IF;
5139: */ -- 2393433.
5140: EXCEPTION
5141: WHEN OTHERS THEN
5274: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
5275: l_sch_action <> OESCH_ACT_ATP_CHECK
5276: THEN
5277: -- code fix for 3502139
5278: OE_MSG_PUB.set_msg_context(
5279: p_entity_code => 'LINE'
5280: ,p_entity_id => p_x_line_rec.line_id
5281: ,p_header_id => p_x_line_rec.header_id
5282: ,p_line_id => p_x_line_rec.line_id
5402:
5403: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ITEM_CHANGE');
5404: FND_MESSAGE.SET_TOKEN('OLDITEM',p_x_line_rec.ordered_item);
5405: FND_MESSAGE.SET_TOKEN('NEWITEM', p_atp_rec.inventory_item_name(J));
5406: OE_MSG_PUB.Add;
5407:
5408: -- Added below call for ER 6110708
5409: IF nvl(p_x_line_rec.booked_flag, 'N') = 'Y' THEN
5410: VALIDATE_ITEM_SUBSTITUTION
5577: oe_debug_pub.add( 'SCH: Schedule Arr Date' ||
5578: p_x_line_rec.schedule_arrival_date , 2 ) ;
5579: END IF;
5580: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
5581: OE_MSG_PUB.Add;
5582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5583: END IF;
5584:
5585: ELSIF l_sch_action = OESCH_ACT_REDEMAND OR
5616:
5617: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ITEM_CHANGE');
5618: FND_MESSAGE.SET_TOKEN('OLDITEM',p_x_line_rec.ordered_item);
5619: FND_MESSAGE.SET_TOKEN('NEWITEM', p_atp_rec.inventory_item_name(J));
5620: OE_MSG_PUB.Add;
5621:
5622: -- Added below call for ER 6110708
5623: IF nvl(p_x_line_rec.booked_flag, 'N') = 'Y' THEN
5624: VALIDATE_ITEM_SUBSTITUTION
5818: IF l_debug_level > 0 THEN
5819: oe_debug_pub.add( 'RSCH: MRP HAS NOT RETURNING VALID DATE' , 2 ) ;
5820: END IF;
5821: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
5822: OE_MSG_PUB.Add;
5823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5824: END IF;
5825:
5826: ELSIF l_sch_action = OESCH_ACT_UNDEMAND
5978: EXCEPTION
5979: WHEN FND_API.G_EXC_ERROR THEN
5980: x_return_status := FND_API.G_RET_STS_ERROR;
5981: WHEN OTHERS THEN
5982: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5983: THEN
5984: OE_MSG_PUB.Add_Exc_Msg
5985: ( G_PKG_NAME
5986: , 'Load_Results_from_rec'
5980: x_return_status := FND_API.G_RET_STS_ERROR;
5981: WHEN OTHERS THEN
5982: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5983: THEN
5984: OE_MSG_PUB.Add_Exc_Msg
5985: ( G_PKG_NAME
5986: , 'Load_Results_from_rec'
5987: );
5988: END IF;
6237: END IF;
6238:
6239: l_old_set_id := l_new_set_id;
6240: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
6241: OE_MSG_PUB.Add;
6242:
6243:
6244: END IF;
6245: IF p_partial THEN
6404: WHEN FND_API.G_EXC_ERROR THEN
6405:
6406: x_return_status := FND_API.G_RET_STS_ERROR;
6407: WHEN OTHERS THEN
6408: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6409: THEN
6410: OE_MSG_PUB.Add_Exc_Msg
6411: ( G_PKG_NAME
6412: , 'Load_Results_from_tbl'
6406: x_return_status := FND_API.G_RET_STS_ERROR;
6407: WHEN OTHERS THEN
6408: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6409: THEN
6410: OE_MSG_PUB.Add_Exc_Msg
6411: ( G_PKG_NAME
6412: , 'Load_Results_from_tbl'
6413: );
6414: END IF;
6468: from oe_order_lines
6469: where line_id = p_line_id;
6470: END IF;
6471:
6472: OE_MSG_PUB.set_msg_context(
6473: p_entity_code => 'LINE'
6474: ,p_entity_id => p_line_id
6475: ,p_header_id => l_header_id
6476: ,p_line_id => p_line_id
6485:
6486: IF p_atp_rec.error_code(J) = 80 THEN
6487:
6488: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_SOURCE');
6489: OE_MSG_PUB.Add;
6490: l_explanation := null;
6491:
6492: ELSIF p_atp_rec.error_code(J) <> 0 THEN
6493:
6501: oe_debug_pub.add( 'ADDING MESSAGE TO THE STACK' , 1 ) ;
6502: END IF;
6503: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OE_ORDER_FAILED');
6504: FND_MESSAGE.SET_TOKEN('EXPLANATION',l_explanation);
6505: OE_MSG_PUB.Add;
6506:
6507: ELSE
6508:
6509: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
6506:
6507: ELSE
6508:
6509: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
6510: OE_MSG_PUB.Add;
6511: END IF;
6512:
6513:
6514: ELSE
6528: END IF;
6529:
6530: l_old_set_id := l_new_set_id;
6531: FND_MESSAGE.SET_NAME('ONT','OE_SCH_GROUP_MEMBER_FAILED');
6532: OE_MSG_PUB.Add;
6533:
6534: ELSIF p_atp_rec.error_code(J) <> 0
6535: AND p_atp_rec.error_code(J) <> 19 THEN
6536:
6538: oe_debug_pub.add( 'SCHEDULING FAILED WITH ERROR CODE:'||P_ATP_REC.ERROR_CODE ( J ) , 1 ) ;
6539: END IF;
6540:
6541:
6542: OE_MSG_PUB.set_msg_context(
6543: p_entity_code => 'LINE'
6544: ,p_entity_id => p_line_tbl(I).line_id
6545: ,p_header_id => p_line_tbl(I).header_id
6546: ,p_line_id => p_line_tbl(I).line_id
6555:
6556: IF p_atp_rec.error_code(J) = 80 THEN
6557:
6558: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_SOURCE');
6559: OE_MSG_PUB.Add;
6560: l_explanation := null;
6561:
6562: ELSE
6563: select meaning
6570: oe_debug_pub.add( 'ADDING MESSAGE TO THE STACK' , 1 ) ;
6571: END IF;
6572: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OE_ORDER_FAILED');
6573: FND_MESSAGE.SET_TOKEN('EXPLANATION',l_explanation);
6574: OE_MSG_PUB.Add;
6575:
6576:
6577: END IF;
6578: END IF;
6746: WHEN OTHERS THEN
6747:
6748: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6749:
6750: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6751: THEN
6752: OE_MSG_PUB.Add_Exc_Msg
6753: ( G_PKG_NAME,
6754: 'Call_MRP_ATP');
6748: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6749:
6750: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6751: THEN
6752: OE_MSG_PUB.Add_Exc_Msg
6753: ( G_PKG_NAME,
6754: 'Call_MRP_ATP');
6755: END IF;
6756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6795: EXCEPTION
6796:
6797: WHEN OTHERS THEN
6798:
6799: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6800: THEN
6801: OE_MSG_PUB.Add_Exc_Msg
6802: ( G_PKG_NAME,
6803: 'Cascade Override Atp');
6797: WHEN OTHERS THEN
6798:
6799: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6800: THEN
6801: OE_MSG_PUB.Add_Exc_Msg
6802: ( G_PKG_NAME,
6803: 'Cascade Override Atp');
6804: END IF;
6805: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6939: , x_msg_data => l_msg_data
6940: );
6941:
6942: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6943: oe_msg_pub.transfer_msg_stack;
6944: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
6945: for I in 1..l_msg_count loop
6946: l_msg_data := OE_MSG_PUB.Get(I,'F');
6947: IF l_debug_level > 0 THEN
6940: );
6941:
6942: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6943: oe_msg_pub.transfer_msg_stack;
6944: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
6945: for I in 1..l_msg_count loop
6946: l_msg_data := OE_MSG_PUB.Get(I,'F');
6947: IF l_debug_level > 0 THEN
6948: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6942: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6943: oe_msg_pub.transfer_msg_stack;
6944: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
6945: for I in 1..l_msg_count loop
6946: l_msg_data := OE_MSG_PUB.Get(I,'F');
6947: IF l_debug_level > 0 THEN
6948: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6949: END IF;
6950: end loop;
6949: END IF;
6950: end loop;
6951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6952: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6953: oe_msg_pub.transfer_msg_stack;
6954: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
6955: for I in 1..l_msg_count loop
6956: l_msg_data := OE_MSG_PUB.Get(I,'F');
6957: IF l_debug_level > 0 THEN
6950: end loop;
6951: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6952: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6953: oe_msg_pub.transfer_msg_stack;
6954: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
6955: for I in 1..l_msg_count loop
6956: l_msg_data := OE_MSG_PUB.Get(I,'F');
6957: IF l_debug_level > 0 THEN
6958: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6952: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
6953: oe_msg_pub.transfer_msg_stack;
6954: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
6955: for I in 1..l_msg_count loop
6956: l_msg_data := OE_MSG_PUB.Get(I,'F');
6957: IF l_debug_level > 0 THEN
6958: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
6959: END IF;
6960: end loop;
7017: EXCEPTION
7018:
7019: WHEN OTHERS THEN
7020:
7021: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7022: THEN
7023: OE_MSG_PUB.Add_Exc_Msg
7024: ( G_PKG_NAME,
7025: 'Query_Qty_Tree');
7019: WHEN OTHERS THEN
7020:
7021: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7022: THEN
7023: OE_MSG_PUB.Add_Exc_Msg
7024: ( G_PKG_NAME,
7025: 'Query_Qty_Tree');
7026: END IF;
7027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7410: WHEN OTHERS THEN
7411:
7412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7413:
7414: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7415: THEN
7416: OE_MSG_PUB.Add_Exc_Msg
7417: ( G_PKG_NAME,
7418: 'Action_ATP');
7412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7413:
7414: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7415: THEN
7416: OE_MSG_PUB.Add_Exc_Msg
7417: ( G_PKG_NAME,
7418: 'Action_ATP');
7419: END IF;
7420: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7644:
7645: IF l_qty2_to_reserve = -99999 THEN
7646: -- conversion failed
7647: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR'); -- INVCONV
7648: OE_MSG_PUB.ADD;
7649: IF l_debug_level > 0 THEN
7650: oe_debug_pub.add( 'ERROR on UOM conversion to Secondary UOM which is '||p_x_line_rec.ordered_quantity_uom2 , 1 ) ;
7651: END IF;
7652: RAISE FND_API.G_EXC_ERROR;
7727: WHEN OTHERS THEN
7728:
7729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7730:
7731: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7732: THEN
7733: OE_MSG_PUB.Add_Exc_Msg
7734: ( G_PKG_NAME,
7735: 'Action_Schedule');
7729: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7730:
7731: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7732: THEN
7733: OE_MSG_PUB.Add_Exc_Msg
7734: ( G_PKG_NAME,
7735: 'Action_Schedule');
7736: END IF;
7737:
7893: WHEN OTHERS THEN
7894:
7895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7896:
7897: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7898: THEN
7899: OE_MSG_PUB.Add_Exc_Msg
7900: ( G_PKG_NAME,
7901: 'Action_UnSchedule');
7895: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7896:
7897: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7898: THEN
7899: OE_MSG_PUB.Add_Exc_Msg
7900: ( G_PKG_NAME,
7901: 'Action_UnSchedule');
7902: END IF;
7903:
8020: WHEN OTHERS THEN
8021:
8022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8023:
8024: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8025: THEN
8026: OE_MSG_PUB.Add_Exc_Msg
8027: ( G_PKG_NAME,
8028: 'Action_Undemand');
8022: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8023:
8024: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8025: THEN
8026: OE_MSG_PUB.Add_Exc_Msg
8027: ( G_PKG_NAME,
8028: 'Action_Undemand');
8029: END IF;
8030:
8245: WHEN OTHERS THEN
8246:
8247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8248:
8249: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8250: THEN
8251: OE_MSG_PUB.Add_Exc_Msg
8252: ( G_PKG_NAME,
8253: 'Action_Reserve');
8247: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8248:
8249: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8250: THEN
8251: OE_MSG_PUB.Add_Exc_Msg
8252: ( G_PKG_NAME,
8253: 'Action_Reserve');
8254: END IF;
8255: END Action_Reserve;
8537: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8538: IF l_msg_data is not null THEN
8539: fnd_message.set_encoded(l_msg_data);
8540: l_buffer := fnd_message.get;
8541: oe_msg_pub.add_text(p_message_text => l_buffer);
8542: IF l_debug_level > 0 THEN
8543: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
8544: END IF;
8545: END IF;
8829:
8830: IF l_qty2_to_reserve = -99999 THEN
8831: -- conversion failed
8832: FND_MESSAGE.SET_NAME('INV','INV_NO_CONVERSION_ERR'); -- INVCONV
8833: OE_MSG_PUB.ADD;
8834: IF l_debug_level > 0 THEN
8835: oe_debug_pub.add( 'ERROR on UOM conversion to Secondary UOM which is '||p_x_line_rec.ordered_quantity_uom2 , 1 ) ;
8836: END IF;
8837: RAISE FND_API.G_EXC_ERROR;
8969: WHEN OTHERS THEN
8970:
8971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8972:
8973: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8974: THEN
8975: OE_MSG_PUB.Add_Exc_Msg
8976: ( G_PKG_NAME,
8977: 'Action_Reschedule');
8971: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8972:
8973: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8974: THEN
8975: OE_MSG_PUB.Add_Exc_Msg
8976: ( G_PKG_NAME,
8977: 'Action_Reschedule');
8978: END IF;
8979: END Action_Reschedule;
9244: END IF;
9245:
9246: IF p_x_line_rec.ship_from_org_id is NULL THEN
9247: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATO_WHSE_REQD');
9248: OE_MSG_PUB.Add;
9249: RAISE FND_API.G_EXC_ERROR;
9250: END IF;
9251:
9252: IF p_x_line_rec.schedule_ship_date is NULL THEN
10127: oe_debug_pub.add( 'OTHERS IN SCHEDULE_LINE'|| SQLERRM , 1 ) ;
10128: END IF;
10129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10130:
10131: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10132: THEN
10133: OE_MSG_PUB.Add_Exc_Msg
10134: ( G_PKG_NAME
10135: ,'Schedule_line');
10129: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10130:
10131: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10132: THEN
10133: OE_MSG_PUB.Add_Exc_Msg
10134: ( G_PKG_NAME
10135: ,'Schedule_line');
10136: END IF;
10137:
10322: IF l_debug_level > 0 THEN
10323: oe_debug_pub.add( 'INVALID SCH ACTION ' , 1 ) ;
10324: END IF;
10325: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
10326: OE_MSG_PUB.Add;
10327: RETURN FALSE;
10328: END IF;
10329:
10330: IF l_debug_level > 0 THEN
10832:
10833: WHEN OTHERS THEN
10834: x_line_action := Null;
10835:
10836: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10837: THEN
10838: OE_MSG_PUB.Add_Exc_Msg
10839: ( G_PKG_NAME
10840: , 'Need_Scheduling'
10834: x_line_action := Null;
10835:
10836: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10837: THEN
10838: OE_MSG_PUB.Add_Exc_Msg
10839: ( G_PKG_NAME
10840: , 'Need_Scheduling'
10841: );
10842: END IF;
10898: (p_line_rec.ordered_quantity is null OR
10899: p_line_rec.ordered_quantity = FND_API.G_MISS_NUM)) THEN
10900:
10901: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_QUANTITY');
10902: OE_MSG_PUB.Add;
10903: IF l_debug_level > 0 THEN
10904: oe_debug_pub.add( 'E1' , 1 ) ;
10905: END IF;
10906: x_return_status := FND_API.G_RET_STS_ERROR;
10919: IF p_sch_action is not null
10920: AND p_caller = SCH_INTERNAL THEN
10921:
10922: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ZERO_QTY');
10923: OE_MSG_PUB.Add;
10924:
10925: IF l_debug_level > 0 THEN
10926: oe_debug_pub.add( 'E2' , 1 ) ;
10927: END IF;
10944: -- The line is cancelled. Cannot perform scheduling
10945: -- on it.
10946:
10947: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_FULLY_CANCELLED');
10948: OE_MSG_PUB.Add;
10949:
10950: IF l_debug_level > 0 THEN
10951: oe_debug_pub.add( 'E3' , 1 ) ;
10952: END IF;
10968: -- The line is cancelled. Cannot perform scheduling
10969: -- on it.
10970:
10971: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_SHIPPED');
10972: OE_MSG_PUB.Add;
10973:
10974: IF l_debug_level > 0 THEN
10975: oe_debug_pub.add( 'E4' , 1 ) ;
10976: END IF;
10991: -- The line is Fulfilled. Cannot perform scheduling
10992: -- on it.
10993:
10994: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_FULFILLED');
10995: OE_MSG_PUB.Add;
10996:
10997: IF l_debug_level > 0 THEN
10998: oe_debug_pub.add( 'E4.1' , 1 ) ;
10999: END IF;
11016: AND OE_GLOBALS.Equal(p_old_line_rec.order_quantity_uom, p_line_rec.order_quantity_uom) --Bug 6335352
11017: THEN
11018:
11019: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
11020: OE_MSG_PUB.Add;
11021:
11022: IF l_debug_level > 0 THEN
11023: oe_debug_pub.add( 'E5' , 1 ) ;
11024: END IF;
11031: p_sch_action = OESCH_ACT_UNRESERVE) AND
11032: (p_line_rec.reserved_quantity is not null) THEN
11033:
11034: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_QTY_CHG_NOT_ALLOWED');
11035: OE_MSG_PUB.Add;
11036: x_return_status := FND_API.G_RET_STS_ERROR;
11037: IF l_debug_level > 0 THEN
11038: oe_debug_pub.add( 'E6' , 1 ) ;
11039: END IF;
11047: IF (p_line_rec.ordered_quantity2 < p_line_rec.reserved_quantity2)
11048: THEN
11049:
11050: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
11051: OE_MSG_PUB.Add;
11052:
11053: IF l_debug_level > 0 THEN
11054: oe_debug_pub.add( 'E5a' , 1 ) ;
11055: END IF;
11062: p_sch_action = OESCH_ACT_UNRESERVE) AND
11063: (p_line_rec.reserved_quantity2 is not null) THEN
11064:
11065: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_QTY_CHG_NOT_ALLOWED');
11066: OE_MSG_PUB.Add;
11067: x_return_status := FND_API.G_RET_STS_ERROR;
11068: IF l_debug_level > 0 THEN
11069: oe_debug_pub.add( 'E6A' , 1 ) ;
11070: END IF;
11088: IF (p_line_rec.ordered_quantity < p_line_rec.reserved_quantity)
11089: THEN
11090:
11091: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
11092: OE_MSG_PUB.Add;
11093:
11094: x_return_status := FND_API.G_RET_STS_ERROR;
11095: IF l_debug_level > 0 THEN
11096: oe_debug_pub.add( 'E7' , 1 ) ;
11109: IF (p_line_rec.ordered_quantity2 < p_line_rec.reserved_quantity2)
11110: THEN
11111:
11112: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
11113: OE_MSG_PUB.Add;
11114:
11115: x_return_status := FND_API.G_RET_STS_ERROR;
11116: IF l_debug_level > 0 THEN
11117: oe_debug_pub.add( 'E7A' , 1 ) ;
11128: IF (p_line_rec.order_quantity_uom is null OR
11129: p_line_rec.order_quantity_uom = FND_API.G_MISS_CHAR) THEN
11130:
11131: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_UOM');
11132: OE_MSG_PUB.Add;
11133:
11134: x_return_status := FND_API.G_RET_STS_ERROR;
11135: IF l_debug_level > 0 THEN
11136: oe_debug_pub.add( 'E8' , 1 ) ;
11147: IF (p_line_rec.inventory_item_id is null OR
11148: p_line_rec.inventory_item_id = FND_API.G_MISS_NUM) THEN
11149:
11150: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_ITEM');
11151: OE_MSG_PUB.Add;
11152:
11153: IF l_debug_level > 0 THEN
11154: oe_debug_pub.add( 'E9' , 1 ) ;
11155: END IF;
11166: IF (p_line_rec.request_date is null OR
11167: p_line_rec.request_date = FND_API.G_MISS_DATE) THEN
11168:
11169: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_REQUEST_DATE');
11170: OE_MSG_PUB.Add;
11171: IF l_debug_level > 0 THEN
11172: oe_debug_pub.add( 'E10' , 1 ) ;
11173: END IF;
11174: x_return_status := FND_API.G_RET_STS_ERROR;
11183: END IF;
11184: IF (p_line_rec.ship_from_org_id is null OR
11185: p_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
11186: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_BYPASS_MISS_WSH');
11187: OE_MSG_PUB.Add;
11188:
11189: IF l_debug_level > 0 THEN
11190: oe_debug_pub.add( 'ERROR BYPASS' , 1 ) ;
11191: END IF;
11205: p_sch_action = OESCH_ACT_UNSCHEDULE)
11206: THEN
11207:
11208: FND_MESSAGE.SET_NAME('ONT','OE_SCH_CANNOT_UNSCH_SET');
11209: OE_MSG_PUB.Add;
11210: IF l_debug_level > 0 THEN
11211: oe_debug_pub.add( 'E11' , 1 ) ;
11212: END IF;
11213: x_return_status := FND_API.G_RET_STS_ERROR;
11269: END IF;
11270:
11271: IF (l_result = FND_API.G_TRUE) THEN
11272: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_ON_HOLD');
11273: OE_MSG_PUB.Add;
11274: x_return_status := FND_API.G_RET_STS_ERROR;
11275: END IF;
11276: END IF;
11277:
11307: p_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
11308: FND_MESSAGE.SET_NAME('ONT','OE_SCH_INACTIVE_MISS_WSH');
11309: FND_MESSAGE.SET_TOKEN('LTYPE',
11310: nvl(sch_cached_line_type,'0'));
11311: OE_MSG_PUB.Add;
11312:
11313: IF l_debug_level > 0 THEN
11314: oe_debug_pub.add( 'E11.1' , 1 ) ;
11315: END IF;
11326:
11327: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_INACTIVE_STD_ONLY');
11328: FND_MESSAGE.SET_TOKEN('LTYPE',
11329: nvl(sch_cached_line_type,'0'));
11330: OE_MSG_PUB.Add;
11331:
11332: IF l_debug_level > 0 THEN
11333: oe_debug_pub.add( 'E11.2' , 1 ) ;
11334: END IF;
11347:
11348: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_INACTIVE_STD_ONLY');
11349: FND_MESSAGE.SET_TOKEN('LTYPE',
11350: nvl(sch_cached_line_type,'0'));
11351: OE_MSG_PUB.Add;
11352:
11353: IF l_debug_level > 0 THEN
11354: oe_debug_pub.add( 'E11.3' , 1 ) ;
11355: END IF;
11376: FND_MESSAGE.SET_TOKEN('ACTION',
11377: nvl(p_sch_action,OESCH_ACT_SCHEDULE));
11378: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
11379: nvl(sch_cached_line_type,sch_cached_order_type));
11380: OE_MSG_PUB.Add;
11381: IF l_debug_level > 0 THEN
11382: oe_debug_pub.add( 'E12' , 1 ) ;
11383: END IF;
11384: x_return_status := FND_API.G_RET_STS_ERROR;
11398: FND_MESSAGE.SET_TOKEN('ACTION',
11399: nvl(p_sch_action,OESCH_ACT_RESERVE));
11400: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
11401: nvl(sch_cached_line_type,sch_cached_order_type));
11402: OE_MSG_PUB.Add;
11403: IF l_debug_level > 0 THEN
11404: oe_debug_pub.add( 'E13' , 1 ) ;
11405: END IF;
11406: x_return_status := FND_API.G_RET_STS_ERROR;
11419: FND_MESSAGE.SET_TOKEN('ACTION',
11420: (nvl(p_sch_action, OESCH_ACT_ATP_CHECK)));
11421: FND_MESSAGE.SET_TOKEN('ORDER_TYPE',
11422: nvl(sch_cached_line_type,sch_cached_order_type));
11423: OE_MSG_PUB.Add;
11424: IF l_debug_level > 0 THEN
11425: oe_debug_pub.add('p_line_rec.bypass_sch_flag: ' ||
11426: Nvl(p_line_rec.bypass_sch_flag, 'N'), 1);
11427: -- Debug during DOO Integration.
11447: AND lookup_code = 'EXT_SCH_DOO';
11448:
11449: Fnd_Message.Set_Name('ONT', 'OE_SCH_OE_ORDER_FAILED');
11450: Fnd_Message.Set_Token('EXPLANATION', l_explanation);
11451: Oe_Msg_Pub.ADD;
11452:
11453: l_explanation := NULL;
11454: EXCEPTION
11455: WHEN OTHERS THEN
11491: -- interfaced to wsh. Give a message here tell the user we are
11492: -- not unreserving. Added code here to fix bug 2038201.
11493:
11494: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNRSV_NOT_ALLOWED');
11495: OE_MSG_PUB.Add;
11496: IF l_debug_level > 0 THEN
11497: oe_debug_pub.add( 'E14' , 1 ) ;
11498: END IF;
11499: x_return_status := FND_API.G_RET_STS_ERROR;
11521: p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_SCHEDULE
11522: THEN
11523:
11524: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATO_WHSE_REQD');
11525: OE_MSG_PUB.Add;
11526: IF l_debug_level > 0 THEN
11527: oe_debug_pub.add( 'E15' , 1 ) ;
11528: END IF;
11529: x_return_status := FND_API.G_RET_STS_ERROR;
11535: AND p_line_rec.schedule_status_code is null
11536: THEN
11537:
11538: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_NO_CONFIG');
11539: OE_MSG_PUB.Add;
11540: IF l_debug_level > 0 THEN
11541: oe_debug_pub.add( 'E16' , 1 ) ;
11542: END IF;
11543: -- code fix for 3300528
11554: AND p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_CONFIG
11555: AND p_line_rec.booked_flag <> 'Y'
11556: THEN
11557: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
11558: OE_MSG_PUB.Add;
11559: IF l_debug_level > 0 THEN
11560: oe_debug_pub.add( 'E16.0' , 1 );
11561: END IF;
11562: x_return_status := FND_API.G_RET_STS_ERROR;
11568: OR p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_UNRESERVE)
11569: AND p_line_rec.schedule_status_code IS NULL
11570: THEN
11571: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_NOT_RESERVABLE');
11572: OE_MSG_PUB.Add;
11573: IF l_debug_level > 0 THEN
11574: oe_debug_pub.add( 'E16.1' , 1 ) ;
11575: END IF;
11576: -- code fix for 3300528
11636: END IF;
11637: FND_MESSAGE.SET_TOKEN('ORG',l_org_code);
11638: -- Bug 2367743 End
11639:
11640: OE_MSG_PUB.Add;
11641: x_return_status := FND_API.G_RET_STS_ERROR;
11642:
11643: WHEN OTHERS THEN
11644: Null;
11657:
11658: -- Added code here to fix bug 2038201.
11659: oe_debug_pub.add('E18',1);
11660: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNRSV_NOT_ALLOWED');
11661: OE_MSG_PUB.Add;
11662: x_return_status := FND_API.G_RET_STS_ERROR;
11663:
11664: END IF;
11665: */
11688: IF l_debug_level > 0 THEN
11689: oe_debug_pub.add( 'E19' , 1 ) ;
11690: END IF;
11691: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNSCH_CONFIG_EXISTS');
11692: OE_MSG_PUB.Add;
11693: x_return_status := FND_API.G_RET_STS_ERROR;
11694:
11695: EXCEPTION
11696: WHEN NO_DATA_FOUND THEN
11699: IF l_debug_level > 0 THEN
11700: oe_debug_pub.add( 'E19 TOO MANY ROWS' , 1 ) ;
11701: END IF;
11702: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNSCH_CONFIG_EXISTS');
11703: OE_MSG_PUB.Add;
11704: x_return_status := FND_API.G_RET_STS_ERROR;
11705:
11706: END;
11707:
11723:
11724: IF nvl(l_order_date_type_code,'SHIP') = 'ARRIVAL' THEN
11725:
11726: FND_MESSAGE.SET_NAME('ONT','OE_SCH_INV_SHP_DATE');
11727: OE_MSG_PUB.Add;
11728:
11729: OE_DEBUG_PUB.Add('E20 Order date Type - Arrival');
11730: x_return_status := FND_API.G_RET_STS_ERROR;
11731:
11747:
11748: IF nvl(l_order_date_type_code,'SHIP') = 'SHIP' THEN
11749:
11750: FND_MESSAGE.SET_NAME('ONT','OE_SCH_INV_ARR_DATE');
11751: OE_MSG_PUB.Add;
11752:
11753: OE_DEBUG_PUB.Add('E21 Order date Type - Ship');
11754:
11755: x_return_status := FND_API.G_RET_STS_ERROR;
11775:
11776: -- only authorized users have authority to update the
11777: -- Overide ATP Field
11778: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH');
11779: OE_MSG_PUB.Add;
11780: IF l_debug_level > 0 THEN
11781: oe_debug_pub.add( 'E22 INVALID AUTOTIZE' ) ;
11782: END IF;
11783: IF l_debug_level > 0 THEN
11799:
11800: -- only authorized users have authority to update scheduling attributes
11801: -- on an overridden line
11802: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_MOD');
11803: OE_MSG_PUB.Add;
11804: IF l_debug_level > 0 THEN
11805: oe_debug_pub.add( 'E23 USER DOES NOT HAVE AUTHORITY TO UPDATE SCHEDULE ATTRIBUTES' , 1 ) ;
11806: END IF;
11807: X_return_status := FND_API.G_RET_STS_ERROR;
11812: (p_sch_action = OESCH_ACT_UNDEMAND OR
11813: P_sch_action = OESCH_ACT_UNSCHEDULE) THEN
11814: -- Only Authorized users have authority to unschedule an overriddenline
11815: FND_MESSAGE.SET_NAME('ONT','OE_SCH_OVER_ATP_NO_AUTH_UNCHK');
11816: OE_MSG_PUB.Add;
11817: IF l_debug_level > 0 THEN
11818: oe_debug_pub.add( 'E24 GENERAL USER CANNOT UNSCHEDULE AN OVERRIDDEN LINE' , 1 ) ;
11819: END IF;
11820: X_return_status := FND_API.G_RET_STS_ERROR;
11838: NULL;
11839: END;
11840: IF l_found = 'Y' THEN
11841: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_MOD');
11842: OE_MSG_PUB.Add;
11843: X_return_status := FND_API.G_RET_STS_ERROR;
11844: END IF;
11845: END IF;
11846: -- End 2746497
11868:
11869: -- only authorized users have authority to update scheduling
11870: -- attributes in a set with an overridden line
11871: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_SET');
11872: OE_MSG_PUB.Add;
11873: IF l_debug_level > 0 THEN
11874: oe_debug_pub.add( 'E25 USER DOES NOT HAVE AUTHORITY TO UPDATE SCHEDULE ATTRIBUTES ON A SET WITH AN OVERRIDDEN LINE' , 1 ) ;
11875: END IF;
11876: X_return_status := FND_API.G_RET_STS_ERROR;
11910: -- Authorized users cannot add an overridden line if the schedule
11911: -- ship date soes not match the set
11912:
11913: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_SET');
11914: OE_MSG_PUB.Add;
11915: IF l_debug_level > 0 THEN
11916: oe_debug_pub.add( 'E26 UNABLE TO ADD THE LINE TO THE SET' , 1 ) ;
11917: END IF;
11918: x_return_status := FND_API.G_RET_STS_ERROR;
11957: IF l_overridden = 'Y' THEN
11958: --3517527 set_status check commented
11959: -- IF l_set_rec.set_status <> 'T' THEN
11960: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_SET');
11961: OE_MSG_PUB.Add;
11962: -- END IF;
11963: IF l_debug_level > 0 THEN
11964: oe_debug_pub.add( 'E27 UNABLE TO ADD THE line TO THE SET' , 1 ) ;
11965: END IF;
11979: (p_top_model_line_id => p_line_rec.top_model_line_id,
11980: p_set_type => l_set_rec.set_type) THEN
11981:
11982: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_SET');
11983: OE_MSG_PUB.Add;
11984: IF l_debug_level > 0 THEN
11985: oe_debug_pub.add( 'E28 UNABLE TO ADD THE Model TO THE SET' , 1 ) ;
11986: END IF;
11987: x_return_status := FND_API.G_RET_STS_ERROR;
12016: IF l_debug_level > 0 THEN
12017: oe_debug_pub.add ('E29 Request date exceeds Latest Acceptable Date',1);
12018: END IF;
12019: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_REQUEST_EXCEED_LAD');
12020: OE_MSG_PUB.Add;
12021: x_return_status := FND_API.G_RET_STS_ERROR;
12022: ELSIF ((l_order_date_type_code = 'SHIP'
12023: AND trunc(NVL(p_line_rec.schedule_ship_date,p_line_rec.request_date))
12024: > trunc(NVL(p_line_rec.latest_acceptable_date,p_line_rec.request_date)))
12028: IF l_debug_level > 0 THEN
12029: oe_debug_pub.add('E30 Schedule date exceeds Latest Acceptable Date',1);
12030: END IF;
12031: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_LAD_SCH_FAILED');
12032: OE_MSG_PUB.Add;
12033: x_return_status := FND_API.G_RET_STS_ERROR;
12034: END IF;
12035: -- 3894212
12036: IF ((p_line_rec.ship_set_id IS NOT NULL AND
12054: IF l_debug_level > 0 THEN
12055: oe_debug_pub.add('E30.1 Schedule date exceeds Latest Acceptable Date',1);
12056: END IF;
12057: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_LAD_SCH_FAILED');
12058: OE_MSG_PUB.Add;
12059: x_return_status := FND_API.G_RET_STS_ERROR;
12060: END IF;
12061: END IF;
12062: --
12100: IF l_debug_level > 0 THEN
12101: oe_debug_pub.add('E31 Reservation(s) cannot be created. The line has been pick confirmed/staged',1);
12102: END IF;
12103: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_RSV_FAILURE_STAGED');
12104: OE_MSG_PUB.Add;
12105: x_return_status := FND_API.G_RET_STS_ERROR;
12106: END IF;
12107: END IF;
12108:
12119: WHEN OTHERS THEN
12120:
12121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12122:
12123: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12124: THEN
12125: OE_MSG_PUB.Add_Exc_Msg
12126: ( G_PKG_NAME,
12127: 'Validate_Line');
12121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12122:
12123: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12124: THEN
12125: OE_MSG_PUB.Add_Exc_Msg
12126: ( G_PKG_NAME,
12127: 'Validate_Line');
12128: END IF;
12129: END Validate_Line;
12347: END IF;
12348:
12349: ELSE
12350: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
12351: OE_MSG_PUB.Add;
12352: l_update_flag := FND_API.G_FALSE;
12353: END IF;
12354:
12355:
12371: END IF;
12372:
12373: ELSE
12374: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
12375: OE_MSG_PUB.Add;
12376: l_update_flag := FND_API.G_FALSE;
12377: END IF;
12378:
12379: ELSIF p_sch_action = OESCH_ACT_UNSCHEDULE THEN
12519:
12520: WHEN OTHERS THEN
12521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12522:
12523: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12524: THEN
12525: OE_MSG_PUB.Add_Exc_Msg
12526: ( G_PKG_NAME
12527: , 'Process_request'
12521: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12522:
12523: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12524: THEN
12525: OE_MSG_PUB.Add_Exc_Msg
12526: ( G_PKG_NAME
12527: , 'Process_request'
12528: );
12529: END IF;
12915: oe_debug_pub.add( 'RETURN STATUS ' || L_RETURN_STATUS , 1 ) ;
12916: END IF;
12917:
12918: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12919: oe_msg_pub.transfer_msg_stack;
12920: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12921: FOR I in 1..l_msg_count LOOP
12922: l_msg_data := OE_MSG_PUB.Get(I,'F');
12923: IF l_debug_level > 0 THEN
12916: END IF;
12917:
12918: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12919: oe_msg_pub.transfer_msg_stack;
12920: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12921: FOR I in 1..l_msg_count LOOP
12922: l_msg_data := OE_MSG_PUB.Get(I,'F');
12923: IF l_debug_level > 0 THEN
12924: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
12918: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12919: oe_msg_pub.transfer_msg_stack;
12920: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12921: FOR I in 1..l_msg_count LOOP
12922: l_msg_data := OE_MSG_PUB.Get(I,'F');
12923: IF l_debug_level > 0 THEN
12924: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
12925: END IF;
12926: END LOOP;
12926: END LOOP;
12927:
12928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12929: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12930: oe_msg_pub.transfer_msg_stack;
12931: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12932: FOR I in 1..l_msg_count LOOP
12933: l_msg_data := OE_MSG_PUB.Get(I,'F');
12934: IF l_debug_level > 0 THEN
12927:
12928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12929: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12930: oe_msg_pub.transfer_msg_stack;
12931: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12932: FOR I in 1..l_msg_count LOOP
12933: l_msg_data := OE_MSG_PUB.Get(I,'F');
12934: IF l_debug_level > 0 THEN
12935: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
12929: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
12930: oe_msg_pub.transfer_msg_stack;
12931: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12932: FOR I in 1..l_msg_count LOOP
12933: l_msg_data := OE_MSG_PUB.Get(I,'F');
12934: IF l_debug_level > 0 THEN
12935: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
12936: END IF;
12937: END LOOP;
12945: EXCEPTION
12946:
12947: WHEN OTHERS THEN
12948:
12949: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12950: THEN
12951: OE_MSG_PUB.Add_Exc_Msg
12952: ( G_PKG_NAME
12953: , 'Insert_Into_Mtl_Sales_Orders'
12947: WHEN OTHERS THEN
12948:
12949: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12950: THEN
12951: OE_MSG_PUB.Add_Exc_Msg
12952: ( G_PKG_NAME
12953: , 'Insert_Into_Mtl_Sales_Orders'
12954: );
12955: END IF;
13063: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13064: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13066:
13067: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13068: THEN
13069: OE_MSG_PUB.Add_Exc_Msg
13070: ( G_PKG_NAME
13071: , 'Call_Process_Order'
13065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13066:
13067: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13068: THEN
13069: OE_MSG_PUB.Add_Exc_Msg
13070: ( G_PKG_NAME
13071: , 'Call_Process_Order'
13072: );
13073: END IF;
13332: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13334: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
13335:
13336: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13337: THEN
13338: OE_MSG_PUB.Add_Exc_Msg
13339: ( G_PKG_NAME
13340: , 'Call_Process_Order'
13334: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
13335:
13336: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13337: THEN
13338: OE_MSG_PUB.Add_Exc_Msg
13339: ( G_PKG_NAME
13340: , 'Call_Process_Order'
13341: );
13342: END IF;
13604: IF l_debug_level > 0 THEN
13605: oe_debug_pub.add( 'BEFORE CALLING LOG_SCHEDULING REQUESTS' , 1 ) ;
13606: END IF;
13607:
13608: OE_MSG_PUB.set_msg_context
13609: (p_entity_code => 'LINE'
13610: ,p_entity_id => p_x_line_rec.line_id
13611: ,p_header_id => p_x_line_rec.header_id
13612: ,p_line_id => p_x_line_rec.line_id
13878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13879: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13880: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13881:
13882: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13883: THEN
13884: OE_MSG_PUB.Add_Exc_Msg
13885: ( G_PKG_NAME
13886: , 'Process_Line'
13880: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
13881:
13882: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13883: THEN
13884: OE_MSG_PUB.Add_Exc_Msg
13885: ( G_PKG_NAME
13886: , 'Process_Line'
13887: );
13888: END IF;
13998: WHEN OTHERS THEN
13999:
14000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14001:
14002: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14003: THEN
14004: OE_MSG_PUB.Add_Exc_Msg
14005: ( G_PKG_NAME
14006: , 'ATP_Check'
14000: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14001:
14002: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14003: THEN
14004: OE_MSG_PUB.Add_Exc_Msg
14005: ( G_PKG_NAME
14006: , 'ATP_Check'
14007: );
14008: END IF;
14459: WHEN OTHERS THEN
14460:
14461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14462:
14463: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14464: THEN
14465: OE_MSG_PUB.Add_Exc_Msg
14466: ( G_PKG_NAME
14467: , 'MULTI_ATP_Check'
14461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14462:
14463: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14464: THEN
14465: OE_MSG_PUB.Add_Exc_Msg
14466: ( G_PKG_NAME
14467: , 'MULTI_ATP_Check'
14468: );
14469: END IF;
14660: EXCEPTION
14661:
14662: WHEN OTHERS THEN
14663:
14664: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14665: THEN
14666: OE_MSG_PUB.Add_Exc_Msg
14667: ( G_PKG_NAME
14668: , 'Delete_row'
14662: WHEN OTHERS THEN
14663:
14664: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14665: THEN
14666: OE_MSG_PUB.Add_Exc_Msg
14667: ( G_PKG_NAME
14668: , 'Delete_row'
14669: );
14670: END IF;
14740: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14741: END IF;
14742:
14743: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14744: oe_msg_pub.transfer_msg_stack;
14745: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14746: for I in 1..l_msg_count loop
14747: l_msg_data := OE_MSG_PUB.Get(I,'F');
14748: IF l_debug_level > 0 THEN
14741: END IF;
14742:
14743: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14744: oe_msg_pub.transfer_msg_stack;
14745: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14746: for I in 1..l_msg_count loop
14747: l_msg_data := OE_MSG_PUB.Get(I,'F');
14748: IF l_debug_level > 0 THEN
14749: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14743: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14744: oe_msg_pub.transfer_msg_stack;
14745: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14746: for I in 1..l_msg_count loop
14747: l_msg_data := OE_MSG_PUB.Get(I,'F');
14748: IF l_debug_level > 0 THEN
14749: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14750: END IF;
14751: end loop;
14750: END IF;
14751: end loop;
14752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14753: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
14754: oe_msg_pub.transfer_msg_stack;
14755: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14756: for I in 1..l_msg_count loop
14757: l_msg_data := OE_MSG_PUB.Get(I,'F');
14758: IF l_debug_level > 0 THEN
14751: end loop;
14752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14753: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
14754: oe_msg_pub.transfer_msg_stack;
14755: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14756: for I in 1..l_msg_count loop
14757: l_msg_data := OE_MSG_PUB.Get(I,'F');
14758: IF l_debug_level > 0 THEN
14759: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14753: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
14754: oe_msg_pub.transfer_msg_stack;
14755: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14756: for I in 1..l_msg_count loop
14757: l_msg_data := OE_MSG_PUB.Get(I,'F');
14758: IF l_debug_level > 0 THEN
14759: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14760: END IF;
14761: end loop;
14773:
14774: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14776:
14777: oe_msg_pub.transfer_msg_stack;
14778: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14779: for I in 1..l_msg_count loop
14780: l_msg_data := OE_MSG_PUB.Get(I,'F');
14781: oe_msg_pub.add_text(l_msg_data);
14774: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14776:
14777: oe_msg_pub.transfer_msg_stack;
14778: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14779: for I in 1..l_msg_count loop
14780: l_msg_data := OE_MSG_PUB.Get(I,'F');
14781: oe_msg_pub.add_text(l_msg_data);
14782: IF l_debug_level > 0 THEN
14776:
14777: oe_msg_pub.transfer_msg_stack;
14778: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14779: for I in 1..l_msg_count loop
14780: l_msg_data := OE_MSG_PUB.Get(I,'F');
14781: oe_msg_pub.add_text(l_msg_data);
14782: IF l_debug_level > 0 THEN
14783: oe_debug_pub.add( 'INV : ' || L_MSG_DATA , 2 ) ;
14784: END IF;
14777: oe_msg_pub.transfer_msg_stack;
14778: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14779: for I in 1..l_msg_count loop
14780: l_msg_data := OE_MSG_PUB.Get(I,'F');
14781: oe_msg_pub.add_text(l_msg_data);
14782: IF l_debug_level > 0 THEN
14783: oe_debug_pub.add( 'INV : ' || L_MSG_DATA , 2 ) ;
14784: END IF;
14785: end loop;
14786:
14787: WHEN OTHERS THEN
14788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14789:
14790: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14791: THEN
14792: OE_MSG_PUB.Add_Exc_Msg
14793: ( G_PKG_NAME
14794: , 'Transfer_reservation'
14788: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14789:
14790: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14791: THEN
14792: OE_MSG_PUB.Add_Exc_Msg
14793: ( G_PKG_NAME
14794: , 'Transfer_reservation'
14795: );
14796: END IF;
15567: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15568: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15569: WHEN OTHERS THEN
15570:
15571: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
15572: THEN
15573: OE_MSG_PUB.Add_Exc_Msg
15574: ( G_PKG_NAME
15575: , 'PROCESS_SPLIT'
15569: WHEN OTHERS THEN
15570:
15571: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
15572: THEN
15573: OE_MSG_PUB.Add_Exc_Msg
15574: ( G_PKG_NAME
15575: , 'PROCESS_SPLIT'
15576: );
15577: END IF;
16317: EXCEPTION
16318: WHEN OTHERS THEN
16319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16320:
16321: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16322: THEN
16323: OE_MSG_PUB.Add_Exc_Msg
16324: ( G_PKG_NAME
16325: , 'Split_Scheduling'
16319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16320:
16321: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16322: THEN
16323: OE_MSG_PUB.Add_Exc_Msg
16324: ( G_PKG_NAME
16325: , 'Split_Scheduling'
16326: );
16327: END IF;
16410: EXCEPTION
16411: WHEN OTHERS THEN
16412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16413:
16414: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16415: THEN
16416: OE_MSG_PUB.Add_Exc_Msg
16417: ( G_PKG_NAME
16418: , 'Schedule_Split_Lines'
16412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16413:
16414: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16415: THEN
16416: OE_MSG_PUB.Add_Exc_Msg
16417: ( G_PKG_NAME
16418: , 'Schedule_Split_Lines'
16419: );
16420: END IF;
16622: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
16623:
16624: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16625: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16626: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16627: THEN
16628: OE_MSG_PUB.Add_Exc_Msg
16629: ( G_PKG_NAME
16630: , 'Schedule_line'
16624: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16625: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
16626: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16627: THEN
16628: OE_MSG_PUB.Add_Exc_Msg
16629: ( G_PKG_NAME
16630: , 'Schedule_line'
16631: );
16632: END IF;
16695: IF l_debug_level > 0 THEN
16696: oe_debug_pub.add( ' THE RESERVATION PROCESS HAS FAILED ' , 1 ) ;
16697: END IF;
16698: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RSV_FAILURE');
16699: OE_MSG_PUB.Add;
16700: END IF;
16701:
16702: -- Error Handling Start
16703: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16703: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
16704: IF l_debug_level > 0 THEN
16705: oe_debug_pub.add( 'INSIDE UNEXPECTED ERROR' , 1 ) ;
16706: END IF;
16707: OE_MSG_PUB.Transfer_Msg_Stack;
16708: l_msg_count := OE_MSG_PUB.COUNT_MSG;
16709:
16710: FOR I IN 1..l_msg_count LOOP
16711: l_msg_data := OE_MSG_PUB.Get(I,'F');
16704: IF l_debug_level > 0 THEN
16705: oe_debug_pub.add( 'INSIDE UNEXPECTED ERROR' , 1 ) ;
16706: END IF;
16707: OE_MSG_PUB.Transfer_Msg_Stack;
16708: l_msg_count := OE_MSG_PUB.COUNT_MSG;
16709:
16710: FOR I IN 1..l_msg_count LOOP
16711: l_msg_data := OE_MSG_PUB.Get(I,'F');
16712:
16707: OE_MSG_PUB.Transfer_Msg_Stack;
16708: l_msg_count := OE_MSG_PUB.COUNT_MSG;
16709:
16710: FOR I IN 1..l_msg_count LOOP
16711: l_msg_data := OE_MSG_PUB.Get(I,'F');
16712:
16713: IF l_debug_level > 0 THEN
16714: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
16715: END IF;
16719: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
16720: IF l_debug_level > 0 THEN
16721: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
16722: END IF;
16723: OE_MSG_PUB.Transfer_Msg_Stack;
16724: l_msg_count := OE_MSG_PUB.COUNT_MSG;
16725:
16726: FOR I IN 1..l_msg_count LOOP
16727: l_msg_data := OE_MSG_PUB.Get(I,'F');
16720: IF l_debug_level > 0 THEN
16721: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
16722: END IF;
16723: OE_MSG_PUB.Transfer_Msg_Stack;
16724: l_msg_count := OE_MSG_PUB.COUNT_MSG;
16725:
16726: FOR I IN 1..l_msg_count LOOP
16727: l_msg_data := OE_MSG_PUB.Get(I,'F');
16728: IF l_debug_level > 0 THEN
16723: OE_MSG_PUB.Transfer_Msg_Stack;
16724: l_msg_count := OE_MSG_PUB.COUNT_MSG;
16725:
16726: FOR I IN 1..l_msg_count LOOP
16727: l_msg_data := OE_MSG_PUB.Get(I,'F');
16728: IF l_debug_level > 0 THEN
16729: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
16730: END IF;
16731: END LOOP;
16740: END IF;
16741:
16742: -- Get message count and data
16743:
16744: oe_msg_pub.count_and_get
16745: ( p_count => x_msg_count
16746: , p_data => x_msg_data
16747: );
16748:
16758: x_return_status := FND_API.G_RET_STS_ERROR;
16759:
16760: -- Get message count and data
16761:
16762: oe_msg_pub.count_and_get
16763: ( p_count => x_msg_count
16764: , p_data => x_msg_data);
16765:
16766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16764: , p_data => x_msg_data);
16765:
16766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16767: -- OESCH_PERFORMED_RESERVATION := 'N';
16768: IF OE_MSG_PUB.Check_Msg_Level
16769: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16770: THEN
16771: OE_MSG_PUB.Add_Exc_Msg
16772: (G_PKG_NAME , 'Post_Forms_Commit');
16765:
16766: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16767: -- OESCH_PERFORMED_RESERVATION := 'N';
16768: IF OE_MSG_PUB.Check_Msg_Level
16769: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16770: THEN
16771: OE_MSG_PUB.Add_Exc_Msg
16772: (G_PKG_NAME , 'Post_Forms_Commit');
16773: END IF;
16767: -- OESCH_PERFORMED_RESERVATION := 'N';
16768: IF OE_MSG_PUB.Check_Msg_Level
16769: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
16770: THEN
16771: OE_MSG_PUB.Add_Exc_Msg
16772: (G_PKG_NAME , 'Post_Forms_Commit');
16773: END IF;
16774:
16775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
16776:
16777: -- Get message count and data
16778:
16779: oe_msg_pub.count_and_get
16780: ( p_count => x_msg_count
16781: , p_data => x_msg_data);
16782:
16783:
17140:
17141: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17143: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
17144: oe_msg_pub.transfer_msg_stack;
17145: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
17146: FOR I in 1..l_msg_count LOOP
17147: l_msg_data := OE_MSG_PUB.Get(I,'F');
17148: IF l_debug_level > 0 THEN
17141: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17142: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17143: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
17144: oe_msg_pub.transfer_msg_stack;
17145: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
17146: FOR I in 1..l_msg_count LOOP
17147: l_msg_data := OE_MSG_PUB.Get(I,'F');
17148: IF l_debug_level > 0 THEN
17149: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
17143: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
17144: oe_msg_pub.transfer_msg_stack;
17145: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
17146: FOR I in 1..l_msg_count LOOP
17147: l_msg_data := OE_MSG_PUB.Get(I,'F');
17148: IF l_debug_level > 0 THEN
17149: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
17150: END IF;
17151: END LOOP;
17279:
17280: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17282: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
17283: oe_msg_pub.transfer_msg_stack;
17284: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
17285: for I in 1..l_msg_count loop
17286: l_msg_data := OE_MSG_PUB.Get(I,'F');
17287: IF l_debug_level > 0 THEN
17280: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
17281: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
17282: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
17283: oe_msg_pub.transfer_msg_stack;
17284: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
17285: for I in 1..l_msg_count loop
17286: l_msg_data := OE_MSG_PUB.Get(I,'F');
17287: IF l_debug_level > 0 THEN
17288: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
17282: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
17283: oe_msg_pub.transfer_msg_stack;
17284: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
17285: for I in 1..l_msg_count loop
17286: l_msg_data := OE_MSG_PUB.Get(I,'F');
17287: IF l_debug_level > 0 THEN
17288: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
17289: END IF;
17290: end loop;
17315:
17316: WHEN OTHERS THEN
17317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17318:
17319: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
17320: THEN
17321: OE_MSG_PUB.Add_Exc_Msg
17322: ( G_PKG_NAME
17323: , 'Do_Unreserve'
17317: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
17318:
17319: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
17320: THEN
17321: OE_MSG_PUB.Add_Exc_Msg
17322: ( G_PKG_NAME
17323: , 'Do_Unreserve'
17324: );
17325: END IF;
18174:
18175: EXCEPTION
18176: WHEN OTHERS THEN
18177:
18178: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18179: THEN
18180: OE_MSG_PUB.Add_Exc_Msg
18181: ( G_PKG_NAME
18182: , 'Global_ATP'
18176: WHEN OTHERS THEN
18177:
18178: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18179: THEN
18180: OE_MSG_PUB.Add_Exc_Msg
18181: ( G_PKG_NAME
18182: , 'Global_ATP'
18183: );
18184: END IF;
18274:
18275: EXCEPTION
18276: WHEN OTHERS THEN
18277:
18278: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18279: THEN
18280: OE_MSG_PUB.Add_Exc_Msg
18281: ( G_PKG_NAME
18282: , 'Cascade_Ship_set_attr'
18276: WHEN OTHERS THEN
18277:
18278: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18279: THEN
18280: OE_MSG_PUB.Add_Exc_Msg
18281: ( G_PKG_NAME
18282: , 'Cascade_Ship_set_attr'
18283: );
18284: END IF;
18390:
18391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18392:
18393: /*
18394: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18395: THEN
18396: OE_MSG_PUB.Add_Exc_Msg
18397: ( G_PKG_NAME,
18398: 'MRP_ROLLBACK');
18392:
18393: /*
18394: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18395: THEN
18396: OE_MSG_PUB.Add_Exc_Msg
18397: ( G_PKG_NAME,
18398: 'MRP_ROLLBACK');
18399: END IF;
18400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18504:
18505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18506:
18507: /*
18508: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18509: THEN
18510: OE_MSG_PUB.Add_Exc_Msg
18511: ( G_PKG_NAME,
18512: 'MRP_ROLLBACK');
18506:
18507: /*
18508: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18509: THEN
18510: OE_MSG_PUB.Add_Exc_Msg
18511: ( G_PKG_NAME,
18512: 'MRP_ROLLBACK');
18513: END IF;
18514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
18551:
18552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
18553:
18554: /*
18555: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18556: THEN
18557: OE_MSG_PUB.Add_Exc_Msg
18558: ( G_PKG_NAME,
18559: 'Call_MRP_ROLLBACK');
18553:
18554: /*
18555: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
18556: THEN
18557: OE_MSG_PUB.Add_Exc_Msg
18558: ( G_PKG_NAME,
18559: 'Call_MRP_ROLLBACK');
18560: END IF;
18561: */
18731:
18732: IF l_shippable_flag <> p_old_shippable_flag THEN
18733: oe_debug_pub.add( 'Item substitution cannot happen between shippable and non-shippable items' , 5 ) ;
18734: Fnd_Message.set_name('ONT','OE_SCH_LOOP_SHP_NONSHP');
18735: Oe_Msg_Pub.Add;
18736: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'N';
18737: RAISE FND_API.G_EXC_ERROR;
18738: END IF;
18739: END;