21:
22: PROCEDURE Handle_Unreserve
23: ( p_x_line_tbl IN OUT NOCOPY OE_Order_Pub.Line_Tbl_Type
24: ,p_old_line_tbl IN OUT NOCOPY OE_Order_Pub.Line_Tbl_Type
25: ,p_post_process IN VARCHAR2 DEFAULT FND_API.G_FALSE
26: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2);
27:
28: PROCEDURE Reserve_Group
29: ( p_x_line_tbl IN OUT NOCOPY OE_Order_Pub.Line_Tbl_Type
242: IF l_debug_level > 0 THEN
243: oe_debug_pub.add( 'ENTERING LOG_CONFIG_SCH_REQUEST' , 3 ) ;
244: END IF;
245:
246: x_return_status := FND_API.G_RET_STS_SUCCESS;
247:
248: -- the validate config flag is set to N in all 3 procedures
249: -- 1. Cascade_Changes
250: -- 2. Validate_Configuration
473: END IF;
474:
475: OE_DELAYED_REQUESTS_PVT.Process_Request_for_Entity
476: (p_entity_code => OE_GLOBALS.G_ENTITY_LINE
477: ,p_delete => FND_API.G_TRUE
478: ,x_return_status => x_return_status );
479:
480:
481: IF l_debug_level > 0 THEN
481: IF l_debug_level > 0 THEN
482: oe_debug_pub.add( 'After calling request for entity ' || X_RETURN_STATUS , 1 ) ;
483: END IF;
484:
485: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
487: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
488: RAISE FND_API.G_EXC_ERROR;
489: END IF;
482: oe_debug_pub.add( 'After calling request for entity ' || X_RETURN_STATUS , 1 ) ;
483: END IF;
484:
485: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
487: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
488: RAISE FND_API.G_EXC_ERROR;
489: END IF;
490:
483: END IF;
484:
485: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
487: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
488: RAISE FND_API.G_EXC_ERROR;
489: END IF;
490:
491: OE_Order_PVT.Process_Requests_And_Notify
484:
485: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
487: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
488: RAISE FND_API.G_EXC_ERROR;
489: END IF;
490:
491: OE_Order_PVT.Process_Requests_And_Notify
492: ( x_return_status => x_return_status);
494: IF l_debug_level > 0 THEN
495: oe_debug_pub.add( '1 RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
496: END IF;
497:
498: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
501: RAISE FND_API.G_EXC_ERROR;
502: END IF;
495: oe_debug_pub.add( '1 RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
496: END IF;
497:
498: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
501: RAISE FND_API.G_EXC_ERROR;
502: END IF;
503:
496: END IF;
497:
498: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
501: RAISE FND_API.G_EXC_ERROR;
502: END IF;
503:
504: END IF;
497:
498: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
500: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
501: RAISE FND_API.G_EXC_ERROR;
502: END IF;
503:
504: END IF;
505:
508: END IF;
509:
510: EXCEPTION
511: WHEN OTHERS THEN
512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
513: IF l_debug_level > 0 THEN
514: oe_debug_pub.add( 'LOG_CONFIG_SCH_REQUEST ERROR '|| SQLERRM , 1 ) ;
515: END IF;
516:
785: --
786: BEGIN
787: Print_Time('entering Schedule_SMC ' || p_request_rec.entity_id);
788:
789: x_return_status := FND_API.G_RET_STS_SUCCESS;
790: -- 2882255
791: IF p_request_rec.param1 = Oe_Schedule_Util.OESCH_ACT_SCHEDULE
792: OR p_request_rec.param1 = Oe_Schedule_Util.OESCH_ACT_DEMAND THEN
793: l_send_cancel_lines := 'N';
805: ,x_line_tbl => l_line_tbl
806: ,x_return_status => x_return_status);
807:
808:
809: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
806: ,x_return_status => x_return_status);
807:
808:
809: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
814:
807:
808:
809: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
814:
815: l_old_line_tbl := l_line_tbl;
808:
809: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
811: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
814:
815: l_old_line_tbl := l_line_tbl;
816:
846: END;
847:
848: Print_Time('leaving Schedule_SMC ' || p_request_rec.entity_id);
849: EXCEPTION
850: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
851: IF l_debug_level > 0 THEN
852: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_SMC' , 1 ) ;
853: END IF;
854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
850: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
851: IF l_debug_level > 0 THEN
852: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_SMC' , 1 ) ;
853: END IF;
854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856:
857: WHEN FND_API.G_EXC_ERROR THEN
858: IF l_debug_level > 0 THEN
851: IF l_debug_level > 0 THEN
852: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_SMC' , 1 ) ;
853: END IF;
854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856:
857: WHEN FND_API.G_EXC_ERROR THEN
858: IF l_debug_level > 0 THEN
859: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_SMC' , 1 ) ;
853: END IF;
854: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
855: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
856:
857: WHEN FND_API.G_EXC_ERROR THEN
858: IF l_debug_level > 0 THEN
859: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_SMC' , 1 ) ;
860: END IF;
861: x_return_status := FND_API.G_RET_STS_ERROR;
857: WHEN FND_API.G_EXC_ERROR THEN
858: IF l_debug_level > 0 THEN
859: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_SMC' , 1 ) ;
860: END IF;
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: RAISE FND_API.G_EXC_ERROR;
863:
864: WHEN OTHERS THEN
865: IF l_debug_level > 0 THEN
858: IF l_debug_level > 0 THEN
859: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_SMC' , 1 ) ;
860: END IF;
861: x_return_status := FND_API.G_RET_STS_ERROR;
862: RAISE FND_API.G_EXC_ERROR;
863:
864: WHEN OTHERS THEN
865: IF l_debug_level > 0 THEN
866: oe_debug_pub.add( 'OTHERS ERROR IN SCHEDULE_SMC '|| SQLERRM , 1 ) ;
864: WHEN OTHERS THEN
865: IF l_debug_level > 0 THEN
866: oe_debug_pub.add( 'OTHERS ERROR IN SCHEDULE_SMC '|| SQLERRM , 1 ) ;
867: END IF;
868: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
869: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
870: THEN
871: OE_MSG_PUB.Add_Exc_Msg
872: ( G_PKG_NAME
872: ( G_PKG_NAME
873: ,'Schedule_SMC'
874: );
875: END IF;
876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
877: END Schedule_SMC;
878:
879:
880: /*------------------------------------------------------------
933: --
934: BEGIN
935:
936: Print_Time('Entering Schedule_ATO ' || p_request_rec.entity_id);
937: x_return_status := FND_API.G_RET_STS_SUCCESS;
938: -- 2882255
939: IF p_request_rec.param1 = Oe_Schedule_Util.OESCH_ACT_SCHEDULE
940: OR p_request_rec.param1 = Oe_Schedule_Util.OESCH_ACT_DEMAND THEN
941: l_send_cancel_lines := 'N';
1044:
1045: Print_Time('Exiting Schedule_ATO');
1046:
1047: EXCEPTION
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049: IF l_debug_level > 0 THEN
1050: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_ATO' , 1 ) ;
1051: END IF;
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1048: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1049: IF l_debug_level > 0 THEN
1050: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_ATO' , 1 ) ;
1051: END IF;
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1054:
1055: WHEN FND_API.G_EXC_ERROR THEN
1056: IF l_debug_level > 0 THEN
1049: IF l_debug_level > 0 THEN
1050: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_ATO' , 1 ) ;
1051: END IF;
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1054:
1055: WHEN FND_API.G_EXC_ERROR THEN
1056: IF l_debug_level > 0 THEN
1057: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_ATO' , 1 ) ;
1051: END IF;
1052: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1054:
1055: WHEN FND_API.G_EXC_ERROR THEN
1056: IF l_debug_level > 0 THEN
1057: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_ATO' , 1 ) ;
1058: END IF;
1059: x_return_status := FND_API.G_RET_STS_ERROR;
1055: WHEN FND_API.G_EXC_ERROR THEN
1056: IF l_debug_level > 0 THEN
1057: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_ATO' , 1 ) ;
1058: END IF;
1059: x_return_status := FND_API.G_RET_STS_ERROR;
1060: RAISE FND_API.G_EXC_ERROR;
1061:
1062: WHEN OTHERS THEN
1063: IF l_debug_level > 0 THEN
1056: IF l_debug_level > 0 THEN
1057: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_ATO' , 1 ) ;
1058: END IF;
1059: x_return_status := FND_API.G_RET_STS_ERROR;
1060: RAISE FND_API.G_EXC_ERROR;
1061:
1062: WHEN OTHERS THEN
1063: IF l_debug_level > 0 THEN
1064: oe_debug_pub.add( 'OTHERS ERROR IN SCHEDULE_ATO '|| SQLERRM , 1 ) ;
1062: WHEN OTHERS THEN
1063: IF l_debug_level > 0 THEN
1064: oe_debug_pub.add( 'OTHERS ERROR IN SCHEDULE_ATO '|| SQLERRM , 1 ) ;
1065: END IF;
1066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1067: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1068: THEN
1069: OE_MSG_PUB.Add_Exc_Msg
1070: ( G_PKG_NAME
1070: ( G_PKG_NAME
1071: ,'Schedule_ATO'
1072: );
1073: END IF;
1074: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1075: END Schedule_ATO;
1076:
1077:
1078: /*------------------------------------------------------------
1143: p_line_id => l_line_tbl(J).line_id,
1144: p_org_id => l_line_tbl(J).ship_from_org_id);
1145: END IF;
1146:
1147: IF l_line_tbl(J).reserved_quantity = FND_API.G_MISS_NUM THEN
1148: l_line_tbl(J).reserved_quantity := 0;
1149: END IF;
1150:
1151: l_old_line_tbl(J) := l_line_tbl(J);
1205: END;
1206:
1207: Print_Time('leaving schedule_nonsmc');
1208: EXCEPTION
1209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_NONSMC' , 1 ) ;
1212: END IF;
1213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_NONSMC' , 1 ) ;
1212: END IF;
1213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215:
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: IF l_debug_level > 0 THEN
1210: IF l_debug_level > 0 THEN
1211: oe_debug_pub.add( 'UNEXP ERROR IN SCHEDULE_NONSMC' , 1 ) ;
1212: END IF;
1213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215:
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_NONSMC' , 1 ) ;
1212: END IF;
1213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1215:
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_NONSMC' , 1 ) ;
1219: END IF;
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1216: WHEN FND_API.G_EXC_ERROR THEN
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_NONSMC' , 1 ) ;
1219: END IF;
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1221: RAISE FND_API.G_EXC_ERROR;
1222:
1223: WHEN OTHERS THEN
1224: IF l_debug_level > 0 THEN
1217: IF l_debug_level > 0 THEN
1218: oe_debug_pub.add( 'EXC ERROR IN SCHEDULE_NONSMC' , 1 ) ;
1219: END IF;
1220: x_return_status := FND_API.G_RET_STS_ERROR;
1221: RAISE FND_API.G_EXC_ERROR;
1222:
1223: WHEN OTHERS THEN
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( 'OTHERS IN SCHEDULE_NONSMC '|| SQLERRM , 1 ) ;
1223: WHEN OTHERS THEN
1224: IF l_debug_level > 0 THEN
1225: oe_debug_pub.add( 'OTHERS IN SCHEDULE_NONSMC '|| SQLERRM , 1 ) ;
1226: END IF;
1227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1228: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1229: THEN
1230: OE_MSG_PUB.Add_Exc_Msg
1231: ( G_PKG_NAME
1231: ( G_PKG_NAME
1232: ,'Schedule_NONSMC'
1233: );
1234: END IF;
1235: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1236: END Schedule_NONSMC;
1237:
1238:
1239: /*----------------------------------------------------------
1255: L NUMBER := 0;
1256: l_done BOOLEAN;
1257: l_unreserve_flag VARCHAR2(1);
1258: l_send_cancel_lines VARCHAR2(1); -- 2882255
1259: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1260: --
1261: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
1262: --
1263: BEGIN
1281: ,p_send_cancel_lines => l_send_cancel_lines -- 'Y' 2882255
1282: ,x_line_tbl => l_inc_items_tbl
1283: ,x_return_status => l_return_status);
1284:
1285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1288: RAISE FND_API.G_EXC_ERROR;
1289: END IF;
1282: ,x_line_tbl => l_inc_items_tbl
1283: ,x_return_status => l_return_status);
1284:
1285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1288: RAISE FND_API.G_EXC_ERROR;
1289: END IF;
1290:
1283: ,x_return_status => l_return_status);
1284:
1285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1288: RAISE FND_API.G_EXC_ERROR;
1289: END IF;
1290:
1291: IF l_inc_items_tbl.COUNT > 0 THEN
1284:
1285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1288: RAISE FND_API.G_EXC_ERROR;
1289: END IF;
1290:
1291: IF l_inc_items_tbl.COUNT > 0 THEN
1292:
1418: --
1419: BEGIN
1420: Print_Time('entering Process_Group');
1421:
1422: x_return_status := FND_API.G_RET_STS_SUCCESS;
1423:
1424: IF p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_UNSCHEDULE OR
1425: p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_UNRESERVE
1426: THEN
1494:
1495: Handle_Unreserve
1496: (p_x_line_tbl => p_x_line_tbl
1497: ,p_old_line_tbl => p_old_line_tbl
1498: ,p_post_process => FND_API.G_TRUE
1499: ,x_return_status => x_return_status);
1500:
1501: END IF;
1502:
1511: ,p_sch_action => p_sch_action
1512: ,p_caller => OE_SCHEDULE_UTIL.SCH_EXTERNAL
1513: ,x_return_status => x_return_status);
1514:
1515: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1517: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1518: RAISE FND_API.G_EXC_ERROR;
1519: END IF;
1512: ,p_caller => OE_SCHEDULE_UTIL.SCH_EXTERNAL
1513: ,x_return_status => x_return_status);
1514:
1515: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1517: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1518: RAISE FND_API.G_EXC_ERROR;
1519: END IF;
1520: ELSE
1513: ,x_return_status => x_return_status);
1514:
1515: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1517: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1518: RAISE FND_API.G_EXC_ERROR;
1519: END IF;
1520: ELSE
1521: IF l_debug_level > 0 THEN
1514:
1515: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1517: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1518: RAISE FND_API.G_EXC_ERROR;
1519: END IF;
1520: ELSE
1521: IF l_debug_level > 0 THEN
1522: oe_debug_pub.add( 'NO NEED TO CALL LINES' , 3 ) ;
1539:
1540: Print_Time('leaving Process_Group');
1541:
1542: EXCEPTION
1543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546:
1547: WHEN FND_API.G_EXC_ERROR THEN
1540: Print_Time('leaving Process_Group');
1541:
1542: EXCEPTION
1543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546:
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: x_return_status := FND_API.G_RET_STS_ERROR;
1541:
1542: EXCEPTION
1543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546:
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: x_return_status := FND_API.G_RET_STS_ERROR;
1549:
1543: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546:
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: x_return_status := FND_API.G_RET_STS_ERROR;
1549:
1550: IF p_caller <> 'UI_ACTION' AND
1551: p_caller <> 'SCHEDULE_ATO'
1544: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1545: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1546:
1547: WHEN FND_API.G_EXC_ERROR THEN
1548: x_return_status := FND_API.G_RET_STS_ERROR;
1549:
1550: IF p_caller <> 'UI_ACTION' AND
1551: p_caller <> 'SCHEDULE_ATO'
1552: THEN
1560: END IF;
1561: END IF;
1562:
1563: -- do not raise, caller wants to handle: sets
1564: --RAISE FND_API.G_EXC_ERROR;
1565:
1566: WHEN OTHERS THEN
1567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1568: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1563: -- do not raise, caller wants to handle: sets
1564: --RAISE FND_API.G_EXC_ERROR;
1565:
1566: WHEN OTHERS THEN
1567: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1568: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1569: THEN
1570: OE_MSG_PUB.Add_Exc_Msg
1571: ( G_PKG_NAME
1571: ( G_PKG_NAME
1572: ,'Process_Group'
1573: );
1574: END IF;
1575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1576:
1577: END Process_Group;
1578:
1579:
1616: BEGIN
1617:
1618: Print_Time('entering Call_Mrp');
1619:
1620: x_return_status := FND_API.G_RET_STS_SUCCESS;
1621:
1622: OE_Schedule_Util.Load_MRP_request_from_tbl
1623: ( p_line_tbl => p_x_line_tbl
1624: ,p_old_line_tbl => p_old_line_tbl
1658: l_mrp_called := TRUE;
1659:
1660: Print_Time('After MRPs ATP API: ' || x_return_status);
1661:
1662: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1663:
1664: OE_SCHEDULE_UTIL.Display_sch_errors
1665: (p_atp_rec => l_out_mtp_atp_rec,
1666: p_line_tbl => p_x_line_tbl);
1668: END IF;
1669:
1670: END IF; -- Moved for 1955004
1671:
1672: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
1673: -- the call to MRP was successful, so load the results
1674:
1675: IF l_debug_level > 0 THEN
1676: oe_debug_pub.add( 'CALLING LOAD_RESULTS' , 1 ) ;
1729: OE_SCHEDULE_UTIL.OE_inactive_demand_tbl.DELETE
1730: (l_line_id_mod) ; --7827737
1731: --(p_x_line_tbl(I).line_id);
1732:
1733: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1735: END IF;
1736:
1737: ELSE
1730: (l_line_id_mod) ; --7827737
1731: --(p_x_line_tbl(I).line_id);
1732:
1733: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1735: END IF;
1736:
1737: ELSE
1738: -- this row must have been a part of the Call_ATP call that
1747: END IF;
1748:
1749: END IF;
1750:
1751: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1753: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1754: RAISE FND_API.G_EXC_ERROR;
1755: END IF;
1748:
1749: END IF;
1750:
1751: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1753: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1754: RAISE FND_API.G_EXC_ERROR;
1755: END IF;
1756:
1749: END IF;
1750:
1751: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1753: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1754: RAISE FND_API.G_EXC_ERROR;
1755: END IF;
1756:
1757: Print_Time('leaving Call_Mrp');
1750:
1751: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1752: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1753: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1754: RAISE FND_API.G_EXC_ERROR;
1755: END IF;
1756:
1757: Print_Time('leaving Call_Mrp');
1758:
1823: ,p_quantity2_to_unreserve => nvl(p_line_tbl(I).reserved_quantity2, 0) -- INVCONV
1824: ,x_return_status => l_return_status);
1825: END IF; -- 2595661
1826:
1827: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1829: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1830: RAISE FND_API.G_EXC_ERROR;
1831: END IF;
1824: ,x_return_status => l_return_status);
1825: END IF; -- 2595661
1826:
1827: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1829: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1830: RAISE FND_API.G_EXC_ERROR;
1831: END IF;
1832:
1825: END IF; -- 2595661
1826:
1827: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1829: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1830: RAISE FND_API.G_EXC_ERROR;
1831: END IF;
1832:
1833: IF p_sch_action = OE_Schedule_Util.OESCH_ACT_RESCHEDULE THEN
1826:
1827: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1829: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
1830: RAISE FND_API.G_EXC_ERROR;
1831: END IF;
1832:
1833: IF p_sch_action = OE_Schedule_Util.OESCH_ACT_RESCHEDULE THEN
1834:
2003: IF l_reservation_qty = 0 THEN
2004: -- no user change
2005: --10207418 : Set reserved_quantity to zero if its don't have any value.
2006: IF p_x_line_tbl(I).reserved_quantity is NULL OR
2007: p_x_line_tbl(I).reserved_quantity = FND_API.G_MISS_NUM
2008: THEN
2009: p_x_line_tbl(I).reserved_quantity := 0;
2010: END IF;
2011:
2087: ,p_quantity2_to_Reserve => p_x_line_tbl(I).reserved_quantity2 -- INVCONV
2088: ,p_rsv_update => l_rsv_update
2089: ,x_return_status => l_return_status);
2090:
2091: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2094: IF l_debug_level > 0 THEN
2095: oe_debug_pub.add( 'RESERVE LINE EXPECTED ERROR , IGNORE' , 1 ) ;
2088: ,p_rsv_update => l_rsv_update
2089: ,x_return_status => l_return_status);
2090:
2091: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2094: IF l_debug_level > 0 THEN
2095: oe_debug_pub.add( 'RESERVE LINE EXPECTED ERROR , IGNORE' , 1 ) ;
2096: END IF;
2089: ,x_return_status => l_return_status);
2090:
2091: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2092: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2093: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2094: IF l_debug_level > 0 THEN
2095: oe_debug_pub.add( 'RESERVE LINE EXPECTED ERROR , IGNORE' , 1 ) ;
2096: END IF;
2097: END IF;
2223: -----------------------------------------------------------------*/
2224: PROCEDURE Handle_Unreserve
2225: ( p_x_line_tbl IN OUT NOCOPY OE_Order_Pub.Line_Tbl_Type
2226: ,p_old_line_tbl IN OUT NOCOPY OE_Order_Pub.Line_Tbl_Type
2227: ,p_post_process IN VARCHAR2 DEFAULT FND_API.G_FALSE
2228: ,x_return_status OUT NOCOPY /* file.sql.39 change */ VARCHAR2)
2229: IS
2230: l_qty NUMBER;
2231: l_qty2 NUMBER; -- INVCONV
2237: BEGIN
2238:
2239: Print_Time('entering Handle_Unreserve');
2240:
2241: IF p_post_process = FND_API.G_TRUE THEN
2242:
2243: IF l_debug_level > 0 THEN
2244: oe_debug_pub.add( 'ENTERING POST PROCESS' , 1 ) ;
2245: END IF;
2389: ,p_sch_action => p_request_rec.param1
2390: ,x_return_status => l_return_status);
2391:
2392:
2393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2396: RAISE FND_API.G_EXC_ERROR;
2397: END IF;
2390: ,x_return_status => l_return_status);
2391:
2392:
2393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2396: RAISE FND_API.G_EXC_ERROR;
2397: END IF;
2398: */
2391:
2392:
2393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2396: RAISE FND_API.G_EXC_ERROR;
2397: END IF;
2398: */
2399: IF l_debug_level > 0 THEN
2392:
2393: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2395: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2396: RAISE FND_API.G_EXC_ERROR;
2397: END IF;
2398: */
2399: IF l_debug_level > 0 THEN
2400: oe_debug_pub.add( '-------ENTITY ' || P_REQUEST_REC.ENTITY_ID , 4 ) ;
2437: ,p_sch_action => p_request_rec.param1
2438: ,x_return_status => l_return_status);
2439:
2440:
2441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2444: RAISE FND_API.G_EXC_ERROR;
2445: END IF;
2438: ,x_return_status => l_return_status);
2439:
2440:
2441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2444: RAISE FND_API.G_EXC_ERROR;
2445: END IF;
2446:
2439:
2440:
2441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2444: RAISE FND_API.G_EXC_ERROR;
2445: END IF;
2446:
2447: IF p_request_rec.request_type <> OE_GLOBALS.G_SCHEDULE_NONSMC
2440:
2441: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2442: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2443: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
2444: RAISE FND_API.G_EXC_ERROR;
2445: END IF;
2446:
2447: IF p_request_rec.request_type <> OE_GLOBALS.G_SCHEDULE_NONSMC
2448: AND NOT (p_request_rec.request_type = OE_GLOBALS.G_SCHEDULE_ATO
2607: IF l_debug_level > 0 THEN
2608: oe_debug_pub.add( 'ENTERING SAVE_SCH '|| P_X_LINE_TBL.COUNT , 1 ) ;
2609: END IF;
2610:
2611: x_return_status := FND_API.G_RET_STS_SUCCESS;
2612:
2613: /*Initiliazed the x_return_status for bug 7555835. Since x_return_status is not initialized
2614: in the begining of the API,In certain flows, like when only schedule ship date is changed,
2615: it is not getting initialized at all. Due to this, this API is returning return status as null.
2821: oe_debug_pub.add( 'SCH DU : AFTER CALLING PROCESS REQUEST AND NOTIFY', 1 ) ;
2822: oe_debug_pub.add( 'DU X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
2823: END IF;
2824:
2825: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2826: IF l_debug_level > 0 THEN
2827: oe_debug_pub.add( 'RR DU: UNEXP ERRORED OUT' , 1 ) ;
2828: END IF;
2829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2825: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2826: IF l_debug_level > 0 THEN
2827: oe_debug_pub.add( 'RR DU: UNEXP ERRORED OUT' , 1 ) ;
2828: END IF;
2829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2830: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2831: IF l_debug_level > 0 THEN
2832: oe_debug_pub.add( 'RR DU: ERRORED OUT' , 1 ) ;
2833: END IF;
2826: IF l_debug_level > 0 THEN
2827: oe_debug_pub.add( 'RR DU: UNEXP ERRORED OUT' , 1 ) ;
2828: END IF;
2829: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2830: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2831: IF l_debug_level > 0 THEN
2832: oe_debug_pub.add( 'RR DU: ERRORED OUT' , 1 ) ;
2833: END IF;
2834: RAISE FND_API.G_EXC_ERROR;
2830: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
2831: IF l_debug_level > 0 THEN
2832: oe_debug_pub.add( 'RR DU: ERRORED OUT' , 1 ) ;
2833: END IF;
2834: RAISE FND_API.G_EXC_ERROR;
2835: END IF;
2836: /* End - Bug 12613382 */
2837:
2838: IF p_x_line_tbl(I).top_model_line_id = p_x_line_tbl(I).line_id
2996: , p_request_type => OE_GLOBALS.G_UPDATE_REQUISITION
2997: , x_return_status => l_return_status
2998: );
2999:
3000: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3003: RAISE FND_API.G_EXC_ERROR;
3004: END IF;
2997: , x_return_status => l_return_status
2998: );
2999:
3000: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3003: RAISE FND_API.G_EXC_ERROR;
3004: END IF;
3005:
2998: );
2999:
3000: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3003: RAISE FND_API.G_EXC_ERROR;
3004: END IF;
3005:
3006:
2999:
3000: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3002: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3003: RAISE FND_API.G_EXC_ERROR;
3004: END IF;
3005:
3006:
3007: ELSE -- Added for IR ISO Tracking bug 7667702
3062: ,p_control_rec => l_control_rec
3063: ,p_caller => p_caller
3064: ,x_return_status => x_return_status);
3065:
3066: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3068: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3069: RAISE FND_API.G_EXC_ERROR;
3070: END IF;
3063: ,p_caller => p_caller
3064: ,x_return_status => x_return_status);
3065:
3066: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3068: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3069: RAISE FND_API.G_EXC_ERROR;
3070: END IF;
3071:
3064: ,x_return_status => x_return_status);
3065:
3066: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3068: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3069: RAISE FND_API.G_EXC_ERROR;
3070: END IF;
3071:
3072: IF p_caller = OE_Schedule_Util.SCH_INTERNAL THEN
3065:
3066: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3067: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3068: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3069: RAISE FND_API.G_EXC_ERROR;
3070: END IF;
3071:
3072: IF p_caller = OE_Schedule_Util.SCH_INTERNAL THEN
3073: l_process_requests := FALSE;
3085: IF l_debug_level > 0 THEN
3086: oe_debug_pub.add( 'PRN RETURN_STATUS ' || X_RETURN_STATUS , 1 ) ;
3087: END IF;
3088:
3089: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3091: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3086: oe_debug_pub.add( 'PRN RETURN_STATUS ' || X_RETURN_STATUS , 1 ) ;
3087: END IF;
3088:
3089: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3091: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094:
3087: END IF;
3088:
3089: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3091: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094:
3095: END IF;
3088:
3089: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3090: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3091: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3092: RAISE FND_API.G_EXC_ERROR;
3093: END IF;
3094:
3095: END IF;
3096:
3138: ,p_old_line_rec => p_old_line_rec
3139: ,x_result => l_sec_result
3140: ,x_return_status => l_return_status );
3141:
3142: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3145: RAISE FND_API.G_EXC_ERROR;
3146: END IF;
3139: ,x_result => l_sec_result
3140: ,x_return_status => l_return_status );
3141:
3142: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3145: RAISE FND_API.G_EXC_ERROR;
3146: END IF;
3147:
3140: ,x_return_status => l_return_status );
3141:
3142: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3145: RAISE FND_API.G_EXC_ERROR;
3146: END IF;
3147:
3148: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3141:
3142: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3144: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3145: RAISE FND_API.G_EXC_ERROR;
3146: END IF;
3147:
3148: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3149: IF l_debug_level > 0 THEN
3154: IF l_sec_result = OE_PC_GLOBALS.YES THEN
3155: IF l_debug_level > 0 THEN
3156: oe_debug_pub.add( 'CONSTRAINT FOUND' , 4 ) ;
3157: END IF;
3158: RAISE FND_API.G_EXC_ERROR;
3159: END IF;
3160:
3161:
3162: IF NOT OE_GLOBALS.Equal(p_x_line_rec.ship_from_org_id,
3266: IF l_debug_level > 0 THEN
3267: oe_debug_pub.add( 'AFTER LOG_SCHEDULING REQS' || L_RETURN_STATUS , 1 ) ;
3268: END IF;
3269:
3270: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3273: RAISE FND_API.G_EXC_ERROR;
3274: END IF;
3267: oe_debug_pub.add( 'AFTER LOG_SCHEDULING REQS' || L_RETURN_STATUS , 1 ) ;
3268: END IF;
3269:
3270: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3273: RAISE FND_API.G_EXC_ERROR;
3274: END IF;
3275:
3268: END IF;
3269:
3270: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3273: RAISE FND_API.G_EXC_ERROR;
3274: END IF;
3275:
3276: IF l_debug_level > 0 THEN
3269:
3270: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3272: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3273: RAISE FND_API.G_EXC_ERROR;
3274: END IF;
3275:
3276: IF l_debug_level > 0 THEN
3277: oe_debug_pub.add( 'BEFORE DOING DIRECT UPDATE' , 1 ) ;
3287: END IF;
3288:
3289: -- Start 2806483
3290: IF (p_x_line_rec.shipping_method_code IS NOT NULL
3291: AND p_x_line_rec.shipping_method_code <> FND_API.G_MISS_CHAR)
3292: AND NOT OE_GLOBALS.EQUAL(p_x_line_rec.shipping_method_code
3293: ,p_old_line_rec.shipping_method_code)
3294: THEN
3295:
3342: oe_debug_pub.add( 'UPDATE_GLOBAL RETURN STATUS FROM OE_SCHEDULE_UTIL.PROCESS_LINE IS: ' || L_RETURN_STATUS ) ;
3343: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
3344: END IF;
3345:
3346: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3347: IF l_debug_level > 0 THEN
3348: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
3349: END IF;
3350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3346: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3347: IF l_debug_level > 0 THEN
3348: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
3349: END IF;
3350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3351: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3352: IF l_debug_level > 0 THEN
3353: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
3354: END IF;
3347: IF l_debug_level > 0 THEN
3348: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
3349: END IF;
3350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3351: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3352: IF l_debug_level > 0 THEN
3353: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
3354: END IF;
3355: RAISE FND_API.G_EXC_ERROR;
3351: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3352: IF l_debug_level > 0 THEN
3353: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
3354: END IF;
3355: RAISE FND_API.G_EXC_ERROR;
3356: END IF;
3357: IF l_index is not NULL THEN
3358: --update Global Picture directly
3359: OE_ORDER_UTIL.g_line_tbl(l_index).ship_from_org_id := p_x_line_rec.ship_from_org_id;
3416: --
3417: BEGIN
3418: Print_Time('entering Update_Reservation');
3419:
3420: x_return_status := FND_API.G_RET_STS_SUCCESS;
3421:
3422: IF OE_GLOBALS.Equal(p_line_rec.schedule_ship_date,
3423: p_old_line_rec.schedule_ship_date) OR
3424: p_line_rec.schedule_ship_date IS NULL OR -- bug 3542464
3430: END IF;
3431: RETURN;
3432: END IF;
3433:
3434: l_rsv_rec.reservation_id := fnd_api.g_miss_num;
3435:
3436: l_sales_order_id := OE_SCHEDULE_UTIL.Get_mtl_sales_order_id
3437: (p_line_rec.header_id);
3438:
3445: END IF;
3446:
3447: Inv_Reservation_Pub.Query_Reservation
3448: ( p_api_version_number => 1.0
3449: , p_init_msg_lst => fnd_api.g_true
3450: , x_return_status => x_return_status
3451: , x_msg_count => l_msg_count
3452: , x_msg_data => l_msg_data
3453: , p_query_input => l_rsv_rec
3460: IF l_debug_level > 0 THEN
3461: oe_debug_pub.add( 'AFTER INVS QUERY_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
3462: END IF;
3463:
3464: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3466: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3467: RAISE FND_API.G_EXC_ERROR;
3468: END IF;
3461: oe_debug_pub.add( 'AFTER INVS QUERY_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
3462: END IF;
3463:
3464: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3466: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3467: RAISE FND_API.G_EXC_ERROR;
3468: END IF;
3469:
3462: END IF;
3463:
3464: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3466: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3467: RAISE FND_API.G_EXC_ERROR;
3468: END IF;
3469:
3470: IF l_debug_level > 0 THEN
3463:
3464: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3465: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3466: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3467: RAISE FND_API.G_EXC_ERROR;
3468: END IF;
3469:
3470: IF l_debug_level > 0 THEN
3471: oe_debug_pub.add( 'RESERVATION REC COUNT: ' || L_RSV_TBL.COUNT , 1 ) ;
3483: END IF;
3484:
3485: Inv_Reservation_Pub.Update_Reservation
3486: ( p_api_version_number => 1.0
3487: , p_init_msg_lst => fnd_api.g_true
3488: , x_return_status => x_return_status
3489: , x_msg_count => l_msg_count
3490: , x_msg_data => l_msg_data
3491: , p_original_rsv_rec => l_rsv_tbl(I)
3491: , p_original_rsv_rec => l_rsv_tbl(I)
3492: , p_to_rsv_rec => l_rsv_rec
3493: , p_original_serial_number => l_dummy_sn -- no serial contorl
3494: , p_to_serial_number => l_dummy_sn -- no serial control
3495: , p_validation_flag => fnd_api.g_true
3496: , p_over_reservation_flag => 2 ); -- Added this for 4715544
3497:
3498: IF l_debug_level > 0 THEN
3499: oe_debug_pub.add( 'AFTER UPDATE_RESERVATION: '||X_RETURN_STATUS , 1 ) ;
3498: IF l_debug_level > 0 THEN
3499: oe_debug_pub.add( 'AFTER UPDATE_RESERVATION: '||X_RETURN_STATUS , 1 ) ;
3500: END IF;
3501:
3502: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3504:
3505: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3506: IF l_msg_data is not null THEN
3499: oe_debug_pub.add( 'AFTER UPDATE_RESERVATION: '||X_RETURN_STATUS , 1 ) ;
3500: END IF;
3501:
3502: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3504:
3505: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3506: IF l_msg_data is not null THEN
3507:
3501:
3502: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3503: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3504:
3505: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
3506: IF l_msg_data is not null THEN
3507:
3508: OE_MSG_PUB.set_msg_context
3509: ( p_entity_code => 'LINE'
3525: IF l_debug_level > 0 THEN
3526: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
3527: END IF;
3528: END IF;
3529: RAISE FND_API.G_EXC_ERROR;
3530: END IF;
3531:
3532: I := l_rsv_tbl.NEXT(I);
3533: END LOOP;
3563: selected by 2nd part.
3564: ---------------------------------------------------------------*/
3565: Procedure Query_Set_Lines
3566: (p_header_id IN NUMBER,
3567: p_ship_set_id IN NUMBER := FND_API.G_MISS_NUM,
3568: p_arrival_set_id IN NUMBER := FND_API.G_MISS_NUM,
3569: p_model_line_id IN NUMBER := FND_API.G_MISS_NUM,
3570: p_link_to_line_id IN NUMBER := FND_API.G_MISS_NUM,
3571: p_sch_action IN VARCHAR2,
3564: ---------------------------------------------------------------*/
3565: Procedure Query_Set_Lines
3566: (p_header_id IN NUMBER,
3567: p_ship_set_id IN NUMBER := FND_API.G_MISS_NUM,
3568: p_arrival_set_id IN NUMBER := FND_API.G_MISS_NUM,
3569: p_model_line_id IN NUMBER := FND_API.G_MISS_NUM,
3570: p_link_to_line_id IN NUMBER := FND_API.G_MISS_NUM,
3571: p_sch_action IN VARCHAR2,
3572: p_send_cancel_lines IN VARCHAR2 := 'N',
3565: Procedure Query_Set_Lines
3566: (p_header_id IN NUMBER,
3567: p_ship_set_id IN NUMBER := FND_API.G_MISS_NUM,
3568: p_arrival_set_id IN NUMBER := FND_API.G_MISS_NUM,
3569: p_model_line_id IN NUMBER := FND_API.G_MISS_NUM,
3570: p_link_to_line_id IN NUMBER := FND_API.G_MISS_NUM,
3571: p_sch_action IN VARCHAR2,
3572: p_send_cancel_lines IN VARCHAR2 := 'N',
3573: x_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type,
3566: (p_header_id IN NUMBER,
3567: p_ship_set_id IN NUMBER := FND_API.G_MISS_NUM,
3568: p_arrival_set_id IN NUMBER := FND_API.G_MISS_NUM,
3569: p_model_line_id IN NUMBER := FND_API.G_MISS_NUM,
3570: p_link_to_line_id IN NUMBER := FND_API.G_MISS_NUM,
3571: p_sch_action IN VARCHAR2,
3572: p_send_cancel_lines IN VARCHAR2 := 'N',
3573: x_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type,
3574: x_return_status OUT NOCOPY VARCHAR2)
3573: x_line_tbl IN OUT NOCOPY OE_Order_PUB.Line_Tbl_Type,
3574: x_return_status OUT NOCOPY VARCHAR2)
3575: IS
3576: l_sales_order_id NUMBER;
3577: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
3578: l_sch_gloabl_value VARCHAR2(1);
3579: I NUMBER;
3580:
3581: CURSOR inc_parents is
3599: --sol_ord_er #16014165 end
3600: BEGIN
3601: Print_Time('Entering Query_Set_Lines '|| p_sch_action);
3602:
3603: x_return_status := FND_API.G_RET_STS_SUCCESS;
3604:
3605: IF p_link_to_line_id <> FND_API.G_MISS_NUM AND
3606: (p_ship_set_id <> FND_API.G_MISS_NUM OR
3607: p_arrival_set_id <> FND_API.G_MISS_NUM OR
3601: Print_Time('Entering Query_Set_Lines '|| p_sch_action);
3602:
3603: x_return_status := FND_API.G_RET_STS_SUCCESS;
3604:
3605: IF p_link_to_line_id <> FND_API.G_MISS_NUM AND
3606: (p_ship_set_id <> FND_API.G_MISS_NUM OR
3607: p_arrival_set_id <> FND_API.G_MISS_NUM OR
3608: p_model_line_id <> FND_API.G_MISS_NUM )
3609: THEN
3602:
3603: x_return_status := FND_API.G_RET_STS_SUCCESS;
3604:
3605: IF p_link_to_line_id <> FND_API.G_MISS_NUM AND
3606: (p_ship_set_id <> FND_API.G_MISS_NUM OR
3607: p_arrival_set_id <> FND_API.G_MISS_NUM OR
3608: p_model_line_id <> FND_API.G_MISS_NUM )
3609: THEN
3610: IF l_debug_level > 0 THEN
3603: x_return_status := FND_API.G_RET_STS_SUCCESS;
3604:
3605: IF p_link_to_line_id <> FND_API.G_MISS_NUM AND
3606: (p_ship_set_id <> FND_API.G_MISS_NUM OR
3607: p_arrival_set_id <> FND_API.G_MISS_NUM OR
3608: p_model_line_id <> FND_API.G_MISS_NUM )
3609: THEN
3610: IF l_debug_level > 0 THEN
3611: oe_debug_pub.add( 'INCORRECT IN PARAMETERS' , 1 ) ;
3604:
3605: IF p_link_to_line_id <> FND_API.G_MISS_NUM AND
3606: (p_ship_set_id <> FND_API.G_MISS_NUM OR
3607: p_arrival_set_id <> FND_API.G_MISS_NUM OR
3608: p_model_line_id <> FND_API.G_MISS_NUM )
3609: THEN
3610: IF l_debug_level > 0 THEN
3611: oe_debug_pub.add( 'INCORRECT IN PARAMETERS' , 1 ) ;
3612: END IF;
3609: THEN
3610: IF l_debug_level > 0 THEN
3611: oe_debug_pub.add( 'INCORRECT IN PARAMETERS' , 1 ) ;
3612: END IF;
3613: RAISE FND_API.G_EXC_ERROR;
3614: END IF;
3615:
3616:
3617: IF nvl(p_sch_action, 'A' ) <> OE_Schedule_Util.OESCH_ACT_UNSCHEDULE
3636: (p_line_id => parentrec.line_id,
3637: p_freeze => FALSE);
3638:
3639:
3640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3643: RAISE FND_API.G_EXC_ERROR;
3644: END IF;
3637: p_freeze => FALSE);
3638:
3639:
3640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3643: RAISE FND_API.G_EXC_ERROR;
3644: END IF;
3645: END LOOP;
3638:
3639:
3640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3643: RAISE FND_API.G_EXC_ERROR;
3644: END IF;
3645: END LOOP;
3646:
3639:
3640: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
3641: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3642: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
3643: RAISE FND_API.G_EXC_ERROR;
3644: END IF;
3645: END LOOP;
3646:
3647: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := l_sch_gloabl_value;
3648: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3649: END IF;
3650:
3651:
3652: IF p_arrival_set_id <> FND_API.G_MISS_NUM THEN
3653: IF l_debug_level > 0 THEN
3654: oe_debug_pub.add( 'ARRIVAL SET ID '|| P_ARRIVAL_SET_ID , 3 ) ;
3655: END IF;
3656:
3657: OE_Set_Util.Query_Set_Rows
3658: (p_set_id => p_arrival_set_id,
3659: x_line_tbl => x_line_tbl);
3660:
3661: ELSIF p_ship_set_id <> FND_API.G_MISS_NUM THEN
3662: IF l_debug_level > 0 THEN
3663: oe_debug_pub.add( 'SHIP SET ID '|| P_SHIP_SET_ID , 3 ) ;
3664: END IF;
3665:
3666: OE_Set_Util.Query_Set_Rows
3667: (p_set_id => p_ship_set_id,
3668: x_line_tbl => x_line_tbl);
3669:
3670: ELSIF p_model_line_id <> FND_API.G_MISS_NUM THEN
3671: IF l_debug_level > 0 THEN
3672: oe_debug_pub.add( 'P_TOP_MODEL_LINE_ID '|| P_MODEL_LINE_ID , 3 ) ;
3673: END IF;
3674:
3677: p_send_cancel_lines => p_send_cancel_lines,
3678: p_source_type => OE_Globals.G_SOURCE_INTERNAL,
3679: x_line_tbl => x_line_tbl);
3680:
3681: ELSIF p_link_to_line_id <> FND_API.G_MISS_NUM THEN
3682: IF l_debug_level > 0 THEN
3683: oe_debug_pub.add( 'P_LINK_TO_LINE_ID '|| P_LINK_TO_LINE_ID , 3 ) ;
3684: END IF;
3685:
3727: END IF;
3728:
3729:
3730: IF x_line_tbl(I).reserved_quantity is NULL OR
3731: x_line_tbl(I).reserved_quantity = FND_API.G_MISS_NUM
3732: THEN
3733: x_line_tbl(I).reserved_quantity := 0;
3734: ELSE
3735: IF l_debug_level > 0 THEN
3740: END IF;
3741: END IF;
3742:
3743: IF x_line_tbl(I).reserved_quantity2 is NULL OR -- INVCONV
3744: x_line_tbl(I).reserved_quantity2 = FND_API.G_MISS_NUM
3745: THEN
3746: x_line_tbl(I).reserved_quantity2 := 0;
3747: ELSE
3748: IF l_debug_level > 0 THEN
3786: Print_Time('Exiting Query_Set_Lines');
3787:
3788: EXCEPTION
3789:
3790: WHEN FND_API.G_EXC_ERROR THEN
3791: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3792: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3793: IF l_debug_level > 0 THEN
3794: oe_debug_pub.add( 'EXC ERROR IN Query_Set_Lines' , 1 ) ;
3792: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3793: IF l_debug_level > 0 THEN
3794: oe_debug_pub.add( 'EXC ERROR IN Query_Set_Lines' , 1 ) ;
3795: END IF;
3796: x_return_status := FND_API.G_RET_STS_ERROR;
3797:
3798: WHEN OTHERS THEN
3799:
3800: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
3806: ( G_PKG_NAME
3807: ,'Query_Set_Lines'
3808: );
3809: END IF;
3810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3812:
3813: END Query_Set_Lines;
3814:
3807: ,'Query_Set_Lines'
3808: );
3809: END IF;
3810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3812:
3813: END Query_Set_Lines;
3814:
3815:
3961: THEN
3962:
3963: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATO_WHSE_REQD');
3964: OE_MSG_PUB.Add;
3965: x_return_status := FND_API.G_RET_STS_ERROR;
3966:
3967: RETURN;
3968:
3969: END IF;
3974: THEN
3975:
3976: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_NO_CONFIG');
3977: OE_MSG_PUB.Add;
3978: x_return_status := FND_API.G_RET_STS_ERROR;
3979:
3980: RETURN;
3981:
3982: END IF;