[Home] [Help]
252: oe_debug_pub.add( 'SCHEDULE DATE EXCEEDS LAD ' , 1 ) ;
253: END IF;
254: Fnd_Message.set_name('ONT','ONT_SCH_LAD_SCH_FAILED');
255: Oe_Msg_Pub.Add;
256: RAISE FND_API.G_EXC_ERROR;
257: END IF;
258: */
259: END IF;
260: IF l_debug_level > 0 THEN
629: END LOOP;
630: END IF;
631:
632: END IF; -- GOP Code control
633: x_return_status := FND_API.G_RET_STS_SUCCESS;
634:
635: EXCEPTION
636: WHEN OTHERS THEN
637: ROLLBACK TO SAVEPOINT insert_mand_comp;
634:
635: EXCEPTION
636: WHEN OTHERS THEN
637: ROLLBACK TO SAVEPOINT insert_mand_comp;
638: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
639:
640: END Insert_Mandatory_Components;
641:
642: /*--------------------------------------------------------------------------
853: -- subinventory
854: l_revision_code NUMBER;
855: l_lot_code NUMBER;
856: l_serial_code NUMBER;
857: l_do_partial_reservation VARCHAR2(1) := FND_API.G_FALSE;
858: --
859: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
860: --
861: BEGIN
862: IF l_debug_level > 0 THEN
863: oe_debug_pub.add( 'ENTERING RESERVE LINE :' || P_QUANTITY_TO_RESERVE , 1 ) ;
864: oe_debug_pub.add( 'ENTERING RESERVE LINE qty2 :' || P_QUANTITY2_TO_RESERVE , 1 ) ;
865: END IF;
866: x_return_status := FND_API.G_RET_STS_SUCCESS;
867:
868: SELECT RESERVABLE_TYPE
869: INTO l_reservable_type
870: FROM MTL_SYSTEM_ITEMS
877: oe_debug_pub.add( 'L_QTY_TO_RESERVE : ' || P_QUANTITY_TO_RESERVE , 3 ) ;
878: END IF;
879: --newsub check if item is under lot/revision/serial control
880: IF p_line_rec.subinventory is not null
881: AND p_line_rec.subinventory <> FND_API.G_MISS_CHAR THEN
882: BEGIN
883: SELECT revision_qty_control_code, lot_control_code,
884: serial_number_control_code
885: INTO l_revision_code, l_lot_code,
889: AND organization_id = p_line_rec.ship_from_org_id;
890:
891: EXCEPTION
892: WHEN OTHERS THEN
893: x_return_status := FND_API.G_RET_STS_ERROR;
894: fnd_message.set_name('ONT', 'OE_INVALID_ITEM_WHSE');
895: OE_MSG_PUB.Add;
896: END;
897:
901: -- 2 == YES
902: FND_MESSAGE.SET_NAME('ONT', 'OE_SUBINV_NOT_ALLOWED');
903: OE_MSG_PUB.Add;
904: IF p_line_rec.Schedule_action_code = OESCH_ACT_RESERVE THEN
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: RAISE FND_API.G_EXC_ERROR;
907: ELSE
908: x_return_status := FND_API.G_RET_STS_SUCCESS;
909: IF l_debug_level > 0 THEN
902: FND_MESSAGE.SET_NAME('ONT', 'OE_SUBINV_NOT_ALLOWED');
903: OE_MSG_PUB.Add;
904: IF p_line_rec.Schedule_action_code = OESCH_ACT_RESERVE THEN
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: RAISE FND_API.G_EXC_ERROR;
907: ELSE
908: x_return_status := FND_API.G_RET_STS_SUCCESS;
909: IF l_debug_level > 0 THEN
910: oe_debug_pub.add( 'BEFORE RETURN' , 3 ) ;
904: IF p_line_rec.Schedule_action_code = OESCH_ACT_RESERVE THEN
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: RAISE FND_API.G_EXC_ERROR;
907: ELSE
908: x_return_status := FND_API.G_RET_STS_SUCCESS;
909: IF l_debug_level > 0 THEN
910: oe_debug_pub.add( 'BEFORE RETURN' , 3 ) ;
911: END IF;
912: RETURN;
933: -- Pack J
934: -- Check for partial reservation flag
935: IF OE_CODE_CONTROL.CODE_RELEASE_LEVEL >= '110510'
936: AND Oe_Sys_Parameters.Value('PARTIAL_RESERVATION_FLAG') = 'Y' THEN
937: l_do_partial_reservation := FND_API.G_TRUE;
938: END IF;
939: l_quantity2_reserved :=NULL;
940:
941: /* Added the below code for ER 6110708 */
957: -- p_partial_rsv_exists will be TRUE if reservation get increased
958: inv_reservation_pub.create_reservation
959: (
960: p_api_version_number => 1.0
961: , p_init_msg_lst => FND_API.G_TRUE
962: , x_return_status => x_return_status
963: , x_msg_count => l_msg_count
964: , x_msg_data => l_msg_data
965: , p_rsv_rec => l_reservation_rec
964: , x_msg_data => l_msg_data
965: , p_rsv_rec => l_reservation_rec
966: , p_serial_number => l_dummy_sn
967: , x_serial_number => l_dummy_sn
968: , p_partial_reservation_flag => l_do_partial_reservation --FND_API.G_FALSE --Pack J
969: , p_force_reservation_flag => FND_API.G_FALSE
970: , p_validation_flag => FND_API.G_TRUE
971: , x_quantity_reserved => l_quantity_reserved
972: , x_secondary_quantity_reserved => l_quantity2_reserved -- INVCONV
965: , p_rsv_rec => l_reservation_rec
966: , p_serial_number => l_dummy_sn
967: , x_serial_number => l_dummy_sn
968: , p_partial_reservation_flag => l_do_partial_reservation --FND_API.G_FALSE --Pack J
969: , p_force_reservation_flag => FND_API.G_FALSE
970: , p_validation_flag => FND_API.G_TRUE
971: , x_quantity_reserved => l_quantity_reserved
972: , x_secondary_quantity_reserved => l_quantity2_reserved -- INVCONV
973: , x_reservation_id => l_rsv_id
966: , p_serial_number => l_dummy_sn
967: , x_serial_number => l_dummy_sn
968: , p_partial_reservation_flag => l_do_partial_reservation --FND_API.G_FALSE --Pack J
969: , p_force_reservation_flag => FND_API.G_FALSE
970: , p_validation_flag => FND_API.G_TRUE
971: , x_quantity_reserved => l_quantity_reserved
972: , x_secondary_quantity_reserved => l_quantity2_reserved -- INVCONV
973: , x_reservation_id => l_rsv_id
974: , p_partial_rsv_exists => p_rsv_update
984:
985: -- Bug No:2097933
986: -- If the Reservation was succesfull we set
987: -- the package variable to "Y".
988: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
989: OESCH_PERFORMED_RESERVATION := 'Y';
990: END IF;
991:
992: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
988: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
989: OESCH_PERFORMED_RESERVATION := 'Y';
990: END IF;
991:
992: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
993: -- 4091185
994: -- Messages are being handled in exceptions block
995: -- oe_msg_pub.transfer_msg_stack;
996: -- l_msg_count:=OE_MSG_PUB.COUNT_MSG;
999: -- IF l_debug_level > 0 THEN
1000: -- oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1001: -- END IF;
1002: -- end loop;
1003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1004: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1005: -- 4091185
1006: oe_msg_pub.transfer_msg_stack(p_type => 'WARNING');
1007: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1000: -- oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1001: -- END IF;
1002: -- end loop;
1003: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1004: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
1005: -- 4091185
1006: oe_msg_pub.transfer_msg_stack(p_type => 'WARNING');
1007: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1008: for I in 1..l_msg_count loop
1011: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
1012: END IF;
1013: end loop;
1014: IF p_line_rec.Schedule_action_code = OESCH_ACT_RESERVE THEN
1015: RAISE FND_API.G_EXC_ERROR;
1016: ELSE
1017: x_return_status := FND_API.G_RET_STS_SUCCESS;
1018: IF l_debug_level > 0 THEN
1019: oe_debug_pub.add( 'UNABLE TO RESERVE' , 2 ) ;
1013: end loop;
1014: IF p_line_rec.Schedule_action_code = OESCH_ACT_RESERVE THEN
1015: RAISE FND_API.G_EXC_ERROR;
1016: ELSE
1017: x_return_status := FND_API.G_RET_STS_SUCCESS;
1018: IF l_debug_level > 0 THEN
1019: oe_debug_pub.add( 'UNABLE TO RESERVE' , 2 ) ;
1020: END IF;
1021: END IF;
1028: oe_debug_pub.add( 'AFTER CALLING INVS CREATE_RESERVATION' || X_RETURN_STATUS , 1 ) ;
1029: END IF;
1030:
1031: EXCEPTION
1032: WHEN FND_API.G_EXC_ERROR THEN
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034:
1035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: END IF;
1030:
1031: EXCEPTION
1032: WHEN FND_API.G_EXC_ERROR THEN
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034:
1035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1037:
1031: EXCEPTION
1032: WHEN FND_API.G_EXC_ERROR THEN
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034:
1035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1037:
1038: oe_msg_pub.transfer_msg_stack;
1039: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1032: WHEN FND_API.G_EXC_ERROR THEN
1033: x_return_status := FND_API.G_RET_STS_ERROR;
1034:
1035: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1036: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1037:
1038: oe_msg_pub.transfer_msg_stack;
1039: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
1040: for I in 1..l_msg_count loop
1047: END IF;
1048: end loop;
1049:
1050: WHEN OTHERS THEN
1051: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1052:
1053: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1054: THEN
1055: OE_MSG_PUB.Add_Exc_Msg
1138: oe_debug_pub.add( 'EXITING UNRESERVE_LINES' , 3 ) ;
1139: END IF;
1140:
1141: EXCEPTION
1142: WHEN FND_API.G_EXC_ERROR THEN
1143: x_return_status := FND_API.G_RET_STS_ERROR;
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1139: END IF;
1140:
1141: EXCEPTION
1142: WHEN FND_API.G_EXC_ERROR THEN
1143: x_return_status := FND_API.G_RET_STS_ERROR;
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147:
1141: EXCEPTION
1142: WHEN FND_API.G_EXC_ERROR THEN
1143: x_return_status := FND_API.G_RET_STS_ERROR;
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147:
1148: WHEN OTHERS THEN
1149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1142: WHEN FND_API.G_EXC_ERROR THEN
1143: x_return_status := FND_API.G_RET_STS_ERROR;
1144:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147:
1148: WHEN OTHERS THEN
1149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1150:
1145: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1147:
1148: WHEN OTHERS THEN
1149: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1150:
1151: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1152: THEN
1153: OE_MSG_PUB.Add_Exc_Msg
1349: oe_debug_pub.add( 'EXITING LOG DELETE SET REQUEST '||x_return_status , 1 ) ;
1350: END IF;
1351:
1352: EXCEPTION
1353: WHEN FND_API.G_EXC_ERROR THEN
1354:
1355: x_return_status := FND_API.G_RET_STS_ERROR;
1356:
1357: WHEN OTHERS THEN
1351:
1352: EXCEPTION
1353: WHEN FND_API.G_EXC_ERROR THEN
1354:
1355: x_return_status := FND_API.G_RET_STS_ERROR;
1356:
1357: WHEN OTHERS THEN
1358:
1359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1355: x_return_status := FND_API.G_RET_STS_ERROR;
1356:
1357: WHEN OTHERS THEN
1358:
1359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1360:
1361: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1362: THEN
1363: OE_MSG_PUB.Add_Exc_Msg
1939: where header_id = p_line_rec.header_id
1940: and line_id = p_line_rec.line_id;
1941: EXCEPTION
1942: WHEN OTHERS THEN
1943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1944:
1945: END;
1946: END IF;
1947:
2038:
2039: --If the scheduling action is not null then system should execute the delyed request.
2040:
2041: EXCEPTION
2042: WHEN FND_API.G_EXC_ERROR THEN
2043:
2044: x_return_status := FND_API.G_RET_STS_ERROR;
2045:
2046: WHEN OTHERS THEN
2040:
2041: EXCEPTION
2042: WHEN FND_API.G_EXC_ERROR THEN
2043:
2044: x_return_status := FND_API.G_RET_STS_ERROR;
2045:
2046: WHEN OTHERS THEN
2047:
2048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2044: x_return_status := FND_API.G_RET_STS_ERROR;
2045:
2046: WHEN OTHERS THEN
2047:
2048: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2049:
2050: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2051: THEN
2052: OE_MSG_PUB.Add_Exc_Msg
2193:
2194: IF l_debug_level > 0 THEN
2195: oe_debug_pub.add( 'ENTERING INACTIVE_DEMAND_SCHEDULING' , 1 ) ;
2196: END IF;
2197: X_return_status := FND_API.G_RET_STS_SUCCESS;
2198:
2199: IF l_sch_action is NULL THEN
2200: L_sch_action := p_x_line_rec.schedule_action_code;
2201: END IF;
2219: IF l_order_date_type_code = 'SHIP' THEN
2220: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_ship_date,
2221: p_x_old_line_rec.schedule_ship_date) AND
2222: p_x_line_rec.schedule_ship_date IS NOT NULL AND
2223: p_x_line_rec.schedule_ship_date <> FND_API.G_MISS_DATE THEN
2224: -- If the user provides a ship_date, or changes the existing, use it
2225: p_x_line_rec.schedule_arrival_date := p_x_line_rec.schedule_ship_date;
2226:
2227: ELSIF NOT OE_GLOBALS.Equal(p_x_line_rec.request_date,
2226:
2227: ELSIF NOT OE_GLOBALS.Equal(p_x_line_rec.request_date,
2228: p_x_old_line_rec.request_date) AND
2229: p_x_line_rec.request_date IS NOT NULL AND
2230: p_x_line_rec.request_date <> FND_API.G_MISS_DATE THEN
2231: -- if the user changed request date, use it
2232: p_x_line_rec.schedule_ship_date := p_x_line_rec.request_date;
2233: p_x_line_rec.schedule_arrival_date := p_x_line_rec.request_date;
2234:
2247:
2248: IF NOT OE_GLOBALS.Equal(p_x_line_rec.schedule_arrival_date,
2249: p_x_old_line_rec.schedule_arrival_date) AND
2250: p_x_line_rec.schedule_arrival_date IS NOT NULL AND
2251: p_x_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE THEN
2252: -- If the user provides a arrival_date, or changes the existing, use it
2253: p_x_line_rec.schedule_ship_date := p_x_line_rec.schedule_arrival_date;
2254:
2255: ELSIF NOT OE_GLOBALS.Equal(p_x_line_rec.request_date,
2254:
2255: ELSIF NOT OE_GLOBALS.Equal(p_x_line_rec.request_date,
2256: p_x_old_line_rec.request_date) AND
2257: p_x_line_rec.request_date IS NOT NULL AND
2258: p_x_line_rec.request_date <> FND_API.G_MISS_DATE THEN
2259: -- if the user changed request date, use it
2260: p_x_line_rec.schedule_ship_date := p_x_line_rec.request_date;
2261: p_x_line_rec.schedule_arrival_date := p_x_line_rec.request_date;
2262:
2308: END IF;
2309: ELSE
2310: -- We should not have any other actions here.
2311: -- If we do, it is an error.
2312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2313:
2314: END IF;
2315:
2316: /* IR ISO Tracking bug 7667702: IR ISO Change Management Begins */
2368: , p_request_type => OE_GLOBALS.G_UPDATE_REQUISITION
2369: , x_return_status => l_return_status
2370: );
2371:
2372: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2373: RAISE FND_API.G_EXC_ERROR;
2374: END IF;
2375:
2376: ELSE
2369: , x_return_status => l_return_status
2370: );
2371:
2372: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2373: RAISE FND_API.G_EXC_ERROR;
2374: END IF;
2375:
2376: ELSE
2377: IF NOT OE_Schedule_GRP.G_ISO_Planning_Update THEN
2392: /* IR ISO Change Management Ends */
2393:
2394: EXCEPTION
2395:
2396: WHEN FND_API.G_EXC_ERROR THEN -- Added for IR ISO Tracking bug 7667702
2397: x_return_status := FND_API.G_RET_STS_ERROR;
2398:
2399: WHEN OTHERS THEN
2400:
2393:
2394: EXCEPTION
2395:
2396: WHEN FND_API.G_EXC_ERROR THEN -- Added for IR ISO Tracking bug 7667702
2397: x_return_status := FND_API.G_RET_STS_ERROR;
2398:
2399: WHEN OTHERS THEN
2400:
2401: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2397: x_return_status := FND_API.G_RET_STS_ERROR;
2398:
2399: WHEN OTHERS THEN
2400:
2401: X_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2402:
2403: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2404: THEN
2405:
2407: (G_PKG_NAME,
2408: 'Inactive_Demand_Scheduling');
2409: END IF;
2410:
2411: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2412:
2413: END Inactive_Demand_Scheduling;
2414: -- END 1955004
2415:
2592: oe_debug_pub.add('It is an internal order ',3);
2593: l_oe_flag := 'Y';
2594:
2595: IF (p_line_rec.schedule_ship_date IS NOT NULL AND
2596: p_line_rec.schedule_ship_date <> FND_API.G_MISS_DATE ) OR
2597: (p_line_rec.schedule_arrival_date IS NOT NULL AND
2598: p_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE ) THEN
2599:
2600: oe_debug_pub.add('No changes to date as it has been passed',3);
2594:
2595: IF (p_line_rec.schedule_ship_date IS NOT NULL AND
2596: p_line_rec.schedule_ship_date <> FND_API.G_MISS_DATE ) OR
2597: (p_line_rec.schedule_arrival_date IS NOT NULL AND
2598: p_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE ) THEN
2599:
2600: oe_debug_pub.add('No changes to date as it has been passed',3);
2601: ELSE
2602: oe_debug_pub.add('Pass the request date as arrival date',3);
2632: ELSE
2633: l_ship_set := nvl(p_line_rec.ship_set,to_char(p_line_rec.ship_set_id));
2634: END IF;
2635:
2636: IF l_arrival_set = FND_API.G_MISS_CHAR THEN
2637: l_arrival_set := Null;
2638: END IF;
2639: IF l_ship_set = FND_API.G_MISS_CHAR THEN
2640: l_ship_set := Null;
2635:
2636: IF l_arrival_set = FND_API.G_MISS_CHAR THEN
2637: l_arrival_set := Null;
2638: END IF;
2639: IF l_ship_set = FND_API.G_MISS_CHAR THEN
2640: l_ship_set := Null;
2641: END IF;
2642: IF l_debug_level > 0 THEN
2643: oe_debug_pub.add( 'SHIP_SET : ' || L_SHIP_SET , 3 ) ;
2646: oe_debug_pub.add( 'ARRIVAL SET : ' || L_ARRIVAL_SET , 3 ) ;
2647: END IF;
2648:
2649:
2650: /* IF (p_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
2651: p_line_rec.ship_from_org_id := null;
2652: END IF;
2653: IF (p_old_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
2654: p_old_line_rec.ship_from_org_id := null;
2649:
2650: /* IF (p_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
2651: p_line_rec.ship_from_org_id := null;
2652: END IF;
2653: IF (p_old_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
2654: p_old_line_rec.ship_from_org_id := null;
2655: END IF;
2656: */
2657: /*
2775:
2776: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_arrival_date,
2777: p_old_line_rec.schedule_arrival_date) AND
2778: p_line_rec.schedule_arrival_date IS NOT NULL AND
2779: p_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE
2780: THEN
2781: x_atp_rec.Requested_Arrival_Date(I) :=
2782: p_line_rec.schedule_arrival_date;
2783:
2783:
2784: ELSIF NOT OE_GLOBALS.Equal(p_line_rec.request_date,
2785: p_old_line_rec.request_date) AND
2786: p_line_rec.request_date IS NOT NULL AND
2787: p_line_rec.request_date <> FND_API.G_MISS_DATE AND
2788: nvl(p_line_rec.override_atp_date_code,'N') = 'N' AND
2789: --Bug 6057897
2790: --Added the below condition to prevent rescheduling based on request date, if scheduling is triggered due to
2791: --some other changes. For example change in Order quantity will trigger scheduling, but request date change
2830:
2831: IF NOT OE_GLOBALS.Equal(p_line_rec.schedule_ship_date,
2832: p_old_line_rec.schedule_ship_date) AND
2833: p_line_rec.schedule_ship_date IS NOT NULL AND
2834: p_line_rec.schedule_ship_date <> FND_API.G_MISS_DATE
2835: THEN
2836: x_atp_rec.Requested_Ship_Date(I) :=
2837: p_line_rec.schedule_ship_date;
2838:
2838:
2839: ELSIF NOT OE_GLOBALS.Equal(p_line_rec.request_date,
2840: p_old_line_rec.request_date) AND
2841: p_line_rec.request_date IS NOT NULL AND
2842: p_line_rec.request_date <> FND_API.G_MISS_DATE AND
2843: nvl(p_line_rec.override_atp_date_code,'N') = 'N' AND
2844: --Bug 6057897
2845: NVL(OE_SYS_PARAMETERS.value('RESCHEDULE_REQUEST_DATE_FLAG'),'Y') = 'Y'
2846: THEN
2927: END IF;
2928: l_oe_flag := 'Y';
2929:
2930: IF (p_line_rec.schedule_ship_date IS NOT NULL AND
2931: p_line_rec.schedule_ship_date <> FND_API.G_MISS_DATE ) OR
2932: (p_line_rec.schedule_arrival_date IS NOT NULL AND
2933: p_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE ) THEN
2934:
2935: IF l_debug_level > 0 THEN
2929:
2930: IF (p_line_rec.schedule_ship_date IS NOT NULL AND
2931: p_line_rec.schedule_ship_date <> FND_API.G_MISS_DATE ) OR
2932: (p_line_rec.schedule_arrival_date IS NOT NULL AND
2933: p_line_rec.schedule_arrival_date <> FND_API.G_MISS_DATE ) THEN
2934:
2935: IF l_debug_level > 0 THEN
2936: oe_debug_pub.add( 'NO CHANGES TO DATE AS IT HAS BEEN PASSED' , 3 ) ;
2937: END IF;
3495: P_index := I;
3496:
3497:
3498: EXCEPTION
3499: WHEN FND_API.G_EXC_ERROR THEN
3500:
3501: Raise FND_API.G_EXC_ERROR;
3502: WHEN OTHERS THEN
3503:
3497:
3498: EXCEPTION
3499: WHEN FND_API.G_EXC_ERROR THEN
3500:
3501: Raise FND_API.G_EXC_ERROR;
3502: WHEN OTHERS THEN
3503:
3504: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3505: THEN
3566: END IF;
3567:
3568:
3569: EXCEPTION
3570: WHEN FND_API.G_EXC_ERROR THEN
3571:
3572: Raise FND_API.G_EXC_ERROR;
3573:
3574: WHEN OTHERS THEN
3568:
3569: EXCEPTION
3570: WHEN FND_API.G_EXC_ERROR THEN
3571:
3572: Raise FND_API.G_EXC_ERROR;
3573:
3574: WHEN OTHERS THEN
3575:
3576: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3786: oe_debug_pub.add( 'EXITING LOAD_MRP_REQUEST_FROM_TBL' , 1 ) ;
3787: END IF;
3788:
3789: EXCEPTION
3790: WHEN FND_API.G_EXC_ERROR THEN
3791: Raise FND_API.G_EXC_ERROR;
3792:
3793: WHEN OTHERS THEN
3794:
3787: END IF;
3788:
3789: EXCEPTION
3790: WHEN FND_API.G_EXC_ERROR THEN
3791: Raise FND_API.G_EXC_ERROR;
3792:
3793: WHEN OTHERS THEN
3794:
3795: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3840:
3841: IF l_debug_level > 0 THEN
3842: oe_debug_pub.add( '2. ENTERING LOAD_RESULTS_FROM_REC' , 1 ) ;
3843: END IF;
3844: x_return_status := FND_API.G_RET_STS_SUCCESS;
3845:
3846: IF l_sch_action is NULL THEN
3847: l_sch_action := p_x_line_rec.schedule_action_code;
3848: END IF;
3864: END IF;
3865:
3866: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
3867: OE_MSG_PUB.Add;
3868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3869:
3870: END IF;
3871: -- 4504197
3872: l_order_date_type_code :=
4098:
4099: IF l_debug_level > 0 THEN
4100: oe_debug_pub.add( 'SETTING ERROR' , 1 ) ;
4101: END IF;
4102: x_return_status := FND_API.G_RET_STS_ERROR;
4103:
4104:
4105:
4106: ELSE
4286:
4287: END IF; -- Check for ATP.
4288: END IF; --Check for -99.
4289:
4290: IF x_return_status = FND_API.G_RET_STS_SUCCESS AND
4291: l_sch_action <> OESCH_ACT_ATP_CHECK
4292: THEN
4293: -- code fix for 3502139
4294: OE_MSG_PUB.set_msg_context(
4470: -- Setting these back to null since sets defaulting logic
4471: -- gets fired if these values are populated.
4472:
4473: IF p_x_line_rec.ship_set_id IS NOT NULL
4474: AND p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM THEN
4475: p_x_line_rec.ship_set := null;
4476: END IF;
4477:
4478: IF p_x_line_rec.arrival_set_id IS NOT NULL
4475: p_x_line_rec.ship_set := null;
4476: END IF;
4477:
4478: IF p_x_line_rec.arrival_set_id IS NOT NULL
4479: AND p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM THEN
4480: p_x_line_rec.arrival_set := null;
4481: END IF;
4482:
4483: -- Pack J
4516: p_x_line_rec.schedule_arrival_date , 2 ) ;
4517: END IF;
4518: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
4519: OE_MSG_PUB.Add;
4520: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4521: END IF;
4522:
4523: ELSIF l_sch_action = OESCH_ACT_REDEMAND OR
4524: l_sch_action = OESCH_ACT_RESCHEDULE
4698: -- Setting these back to null since sets defaulting logic
4699: -- gets fired if these values are populated.
4700:
4701: IF p_x_line_rec.ship_set_id IS NOT NULL
4702: AND p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM THEN
4703: p_x_line_rec.ship_set := null;
4704: END IF;
4705:
4706: IF p_x_line_rec.arrival_set_id IS NOT NULL
4703: p_x_line_rec.ship_set := null;
4704: END IF;
4705:
4706: IF p_x_line_rec.arrival_set_id IS NOT NULL
4707: AND p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM THEN
4708: p_x_line_rec.arrival_set := null;
4709: END IF;
4710:
4711: IF p_x_line_rec.top_model_line_id = p_x_line_rec.line_id THEN
4757: oe_debug_pub.add( 'RSCH: MRP HAS NOT RETURNING VALID DATE' , 2 ) ;
4758: END IF;
4759: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATP_ERROR');
4760: OE_MSG_PUB.Add;
4761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4762: END IF;
4763:
4764: ELSIF l_sch_action = OESCH_ACT_UNDEMAND
4765: THEN
4787: -- Setting these back to null since sets defaulting logic
4788: -- gets fired if these values are populated.
4789:
4790: IF p_x_line_rec.ship_set_id IS NOT NULL
4791: AND p_x_line_rec.ship_set_id <> FND_API.G_MISS_NUM THEN
4792: p_x_line_rec.ship_set := null;
4793: END IF;
4794:
4795: IF p_x_line_rec.arrival_set_id IS NOT NULL
4792: p_x_line_rec.ship_set := null;
4793: END IF;
4794:
4795: IF p_x_line_rec.arrival_set_id IS NOT NULL
4796: AND p_x_line_rec.arrival_set_id <> FND_API.G_MISS_NUM THEN
4797: p_x_line_rec.arrival_set := null;
4798: END IF;
4799:
4800: -- BUG 1282873
4873: , p_request_type => OE_GLOBALS.G_UPDATE_REQUISITION
4874: , x_return_status => l_return_status
4875: );
4876:
4877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4879: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4880: RAISE FND_API.G_EXC_ERROR;
4881: END IF;
4874: , x_return_status => l_return_status
4875: );
4876:
4877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4879: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4880: RAISE FND_API.G_EXC_ERROR;
4881: END IF;
4882:
4875: );
4876:
4877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4879: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4880: RAISE FND_API.G_EXC_ERROR;
4881: END IF;
4882:
4883: ELSE -- Added for IR ISO Tracking bug 7667702
4876:
4877: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
4878: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4879: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
4880: RAISE FND_API.G_EXC_ERROR;
4881: END IF;
4882:
4883: ELSE -- Added for IR ISO Tracking bug 7667702
4884: IF NOT OE_Schedule_GRP.G_ISO_Planning_Update THEN
4909: oe_debug_pub.add( 'EXITING LOAD_RESULTS_FROM_REC' || X_RETURN_STATUS , 1 ) ;
4910: END IF;
4911:
4912: EXCEPTION
4913: WHEN FND_API.G_EXC_ERROR THEN
4914: x_return_status := FND_API.G_RET_STS_ERROR;
4915: WHEN OTHERS THEN
4916: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4917: THEN
4910: END IF;
4911:
4912: EXCEPTION
4913: WHEN FND_API.G_EXC_ERROR THEN
4914: x_return_status := FND_API.G_RET_STS_ERROR;
4915: WHEN OTHERS THEN
4916: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4917: THEN
4918: OE_MSG_PUB.Add_Exc_Msg
4922: END IF;
4923: IF l_debug_level > 0 THEN
4924: oe_debug_pub.add( 'UNEXPECTED ERROR IN LOAD_RESULTS_FROM_REC' , 1 ) ;
4925: END IF;
4926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4927: END Load_Results_from_rec;
4928:
4929:
4930: /*--------------------------------------------------------------------------
4964: BEGIN
4965: IF l_debug_level > 0 THEN
4966: oe_debug_pub.add( 'ENTERING LOAD_RESULTS_FROM_TBL' , 1 ) ;
4967: END IF;
4968: x_return_status := FND_API.G_RET_STS_SUCCESS;
4969:
4970: IF l_sch_action is NULL THEN
4971: l_sch_action := p_x_line_tbl(1).schedule_action_code;
4972: END IF;
4995: ,x_return_status => x_return_status);
4996:
4997: OE_inactive_demand_tbl.DELETE(p_x_line_tbl(I).line_id);
4998:
4999: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5001: END IF;
5002:
5003: ELSE
4996:
4997: OE_inactive_demand_tbl.DELETE(p_x_line_tbl(I).line_id);
4998:
4999: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5000: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5001: END IF;
5002:
5003: ELSE
5004: -- END 1955004
5068: p_x_line_tbl(I).schedule_status_code := null;
5069: p_x_line_tbl(I).visible_demand_flag := null;
5070:
5071: IF p_x_line_tbl(I).ship_set_id IS NOT NULL
5072: AND p_x_line_tbl(I).ship_set_id <> FND_API.G_MISS_NUM THEN
5073: p_x_line_tbl(I).ship_set := null;
5074: END IF;
5075:
5076: IF p_x_line_tbl(I).arrival_set_id IS NOT NULL
5073: p_x_line_tbl(I).ship_set := null;
5074: END IF;
5075:
5076: IF p_x_line_tbl(I).arrival_set_id IS NOT NULL
5077: AND p_x_line_tbl(I).arrival_set_id <> FND_API.G_MISS_NUM THEN
5078: p_x_line_tbl(I).arrival_set := null;
5079: END IF;
5080:
5081: -- Unscheduling a line will also clear the Override Atp flag
5140: IF l_debug_level > 0 THEN
5141: oe_debug_pub.add( 'After call to load_results_from_rec' || J || x_return_status, 1 ) ;
5142: END IF;
5143:
5144: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5145: IF l_debug_level > 0 THEN
5146: oe_debug_pub.add( 'UNEXP ERROR LINE ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
5147: END IF;
5148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5144: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5145: IF l_debug_level > 0 THEN
5146: oe_debug_pub.add( 'UNEXP ERROR LINE ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
5147: END IF;
5148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5149: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5150: -- This code is required, if user performing scheduling action
5151: -- from header or using multi selected lines, system has to
5152: -- commit those lines which went through scheduling fine.
5145: IF l_debug_level > 0 THEN
5146: oe_debug_pub.add( 'UNEXP ERROR LINE ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
5147: END IF;
5148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5149: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5150: -- This code is required, if user performing scheduling action
5151: -- from header or using multi selected lines, system has to
5152: -- commit those lines which went through scheduling fine.
5153: -- Ignore other records.
5173: IF l_debug_level > 0 THEN
5174: oe_debug_pub.add( 'SET OPERATION TO NONE' , 1 ) ;
5175: END IF;
5176: p_x_line_tbl(I).operation := OE_GLOBALS.G_OPR_NONE;
5177: x_return_status := FND_API.G_RET_STS_SUCCESS;
5178: ELSE
5179: IF l_debug_level > 0 THEN
5180: oe_debug_pub.add( 'EXP ERROR LINE ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
5181: END IF;
5179: IF l_debug_level > 0 THEN
5180: oe_debug_pub.add( 'EXP ERROR LINE ' || P_X_LINE_TBL ( I ) .LINE_ID , 1 ) ;
5181: END IF;
5182: l_raise_error := TRUE;
5183: --RAISE FND_API.G_EXC_ERROR;
5184: END IF;
5185: END IF;
5186: END IF; -- GOP Code
5187: END IF;
5281: , p_request_type => OE_GLOBALS.G_UPDATE_REQUISITION
5282: , x_return_status => l_return_status
5283: );
5284:
5285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5288: RAISE FND_API.G_EXC_ERROR;
5289: END IF;
5282: , x_return_status => l_return_status
5283: );
5284:
5285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5288: RAISE FND_API.G_EXC_ERROR;
5289: END IF;
5290:
5283: );
5284:
5285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5288: RAISE FND_API.G_EXC_ERROR;
5289: END IF;
5290:
5291: ELSE -- Added for IR ISO Tracking bug 7667702
5284:
5285: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5287: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5288: RAISE FND_API.G_EXC_ERROR;
5289: END IF;
5290:
5291: ELSE -- Added for IR ISO Tracking bug 7667702
5292: IF NOT OE_Schedule_GRP.G_ISO_Planning_Update THEN
5311:
5312: END LOOP;
5313: IF l_raise_error THEN
5314:
5315: RAISE FND_API.G_EXC_ERROR;
5316:
5317: END IF;
5318:
5319: IF l_debug_level > 0 THEN
5320: oe_debug_pub.add( 'EXITING LOAD_RESULTS_FROM_TBL' , 1 ) ;
5321: END IF;
5322:
5323: EXCEPTION
5324: WHEN FND_API.G_EXC_ERROR THEN
5325:
5326: x_return_status := FND_API.G_RET_STS_ERROR;
5327: WHEN OTHERS THEN
5328: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5322:
5323: EXCEPTION
5324: WHEN FND_API.G_EXC_ERROR THEN
5325:
5326: x_return_status := FND_API.G_RET_STS_ERROR;
5327: WHEN OTHERS THEN
5328: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5329: THEN
5330: OE_MSG_PUB.Add_Exc_Msg
5334: END IF;
5335: IF l_debug_level > 0 THEN
5336: oe_debug_pub.add( 'UNEXPECTED ERROR IN LOAD_RESULTS_FROM_TBL' , 1 ) ;
5337: END IF;
5338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5339: END Load_Results_from_tbl;
5340:
5341: Procedure Display_Sch_Errors
5342: ( p_atp_rec IN MRP_ATP_PUB.ATP_Rec_Typ
5377: IF l_debug_level > 0 THEN
5378: oe_debug_pub.add( 'SCHEDULING FAILED WITH ERROR CODE: ' || P_LINE_ID ) ;
5379: END IF;
5380:
5381: IF p_line_id <> FND_API.G_MISS_NUM THEN
5382: select order_source_id, orig_sys_document_ref, orig_sys_line_ref,
5383: orig_sys_shipment_ref, change_sequence, source_document_id,
5384: source_document_line_id, source_document_type_id, header_id
5385: into l_order_source_id, l_orig_sys_document_ref, l_orig_sys_line_ref,
5570: Inactive_Demand_Scheduling(p_x_old_line_rec => p_old_line_rec
5571: ,p_x_line_rec => p_x_line_rec
5572: ,x_return_status => x_return_status);
5573:
5574: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5576: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5577: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
5578: p_line_id => p_x_line_rec.line_id);
5571: ,p_x_line_rec => p_x_line_rec
5572: ,x_return_status => x_return_status);
5573:
5574: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5576: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5577: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
5578: p_line_id => p_x_line_rec.line_id);
5579: RAISE FND_API.G_EXC_ERROR;
5572: ,x_return_status => x_return_status);
5573:
5574: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5576: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5577: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
5578: p_line_id => p_x_line_rec.line_id);
5579: RAISE FND_API.G_EXC_ERROR;
5580: END IF;
5575: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5576: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5577: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
5578: p_line_id => p_x_line_rec.line_id);
5579: RAISE FND_API.G_EXC_ERROR;
5580: END IF;
5581:
5582: ELSE
5583:
5629: IF l_debug_level > 0 THEN
5630: oe_debug_pub.add( '3. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || X_RETURN_STATUS , 1 ) ;
5631: END IF;
5632:
5633: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5635: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5636: IF p_x_line_rec.schedule_action_code <> OESCH_ACT_ATP_CHECK THEN
5637: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
5630: oe_debug_pub.add( '3. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || X_RETURN_STATUS , 1 ) ;
5631: END IF;
5632:
5633: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5635: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5636: IF p_x_line_rec.schedule_action_code <> OESCH_ACT_ATP_CHECK THEN
5637: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
5638: p_line_id => p_x_line_rec.line_id);
5631: END IF;
5632:
5633: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5634: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5635: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5636: IF p_x_line_rec.schedule_action_code <> OESCH_ACT_ATP_CHECK THEN
5637: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
5638: p_line_id => p_x_line_rec.line_id);
5639: RAISE FND_API.G_EXC_ERROR;
5635: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5636: IF p_x_line_rec.schedule_action_code <> OESCH_ACT_ATP_CHECK THEN
5637: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
5638: p_line_id => p_x_line_rec.line_id);
5639: RAISE FND_API.G_EXC_ERROR;
5640: END IF;
5641: END IF;
5642:
5643: Load_Results_from_rec(p_atp_rec => l_out_mrp_atp_rec,
5643: Load_Results_from_rec(p_atp_rec => l_out_mrp_atp_rec,
5644: p_x_line_rec => p_x_line_rec,
5645: x_return_status => x_return_status);
5646:
5647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5649: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5650: RAISE FND_API.G_EXC_ERROR;
5651: END IF;
5644: p_x_line_rec => p_x_line_rec,
5645: x_return_status => x_return_status);
5646:
5647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5649: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5650: RAISE FND_API.G_EXC_ERROR;
5651: END IF;
5652:
5645: x_return_status => x_return_status);
5646:
5647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5649: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5650: RAISE FND_API.G_EXC_ERROR;
5651: END IF;
5652:
5653: END IF; -- Mrp count.
5646:
5647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5649: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5650: RAISE FND_API.G_EXC_ERROR;
5651: END IF;
5652:
5653: END IF; -- Mrp count.
5654: IF l_debug_level > 0 THEN
5657:
5658: END IF; -- for new IF statement added for 1955004
5659:
5660: EXCEPTION
5661: WHEN FND_API.G_EXC_ERROR THEN
5662:
5663: x_return_status := FND_API.G_RET_STS_ERROR;
5664:
5665: WHEN OTHERS THEN
5659:
5660: EXCEPTION
5661: WHEN FND_API.G_EXC_ERROR THEN
5662:
5663: x_return_status := FND_API.G_RET_STS_ERROR;
5664:
5665: WHEN OTHERS THEN
5666:
5667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5663: x_return_status := FND_API.G_RET_STS_ERROR;
5664:
5665: WHEN OTHERS THEN
5666:
5667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5668:
5669: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
5670: THEN
5671: OE_MSG_PUB.Add_Exc_Msg
5671: OE_MSG_PUB.Add_Exc_Msg
5672: ( G_PKG_NAME,
5673: 'Call_MRP_ATP');
5674: END IF;
5675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5676: END Call_MRP_ATP;
5677: PROCEDURE Cascade_Override_atp
5678: (p_line_rec IN OE_ORDER_PUB.line_rec_type)
5679: IS
5720: OE_MSG_PUB.Add_Exc_Msg
5721: ( G_PKG_NAME,
5722: 'Cascade Override Atp');
5723: END IF;
5724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5725: END Cascade_Override_atp;
5726: /*---------------------------------------------------------------------
5727: Procedure Name : Query_Qty_Tree
5728: Description : Queries the On-Hand and Available to Reserve
5768: l_org_id NUMBER;
5769:
5770:
5771: -- added by fabdi 03/May/2001
5772: -- l_process_flag VARCHAR2(1) := FND_API.G_FALSE; -- INVCONV
5773: -- l_ic_item_mst_rec GMI_RESERVATION_UTIL.ic_item_mst_rec; -- INVCONV
5774: -- end fabdi
5775:
5776: --
5789: END IF;
5790: -- added by fabdi 03/May/2001
5791: /* IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_org_id) -- INVCONV remove OPM stuff
5792: THEN
5793: l_process_flag := FND_API.G_FALSE;
5794: ELSE
5795: l_process_flag := FND_API.G_TRUE;
5796: END IF;
5797:
5791: /* IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => p_org_id) -- INVCONV remove OPM stuff
5792: THEN
5793: l_process_flag := FND_API.G_FALSE;
5794: ELSE
5795: l_process_flag := FND_API.G_TRUE;
5796: END IF;
5797:
5798: IF l_process_flag = FND_API.G_TRUE
5799: THEN
5794: ELSE
5795: l_process_flag := FND_API.G_TRUE;
5796: END IF;
5797:
5798: IF l_process_flag = FND_API.G_TRUE
5799: THEN
5800:
5801: GMI_RESERVATION_UTIL.Get_OPM_item_from_Apps
5802: ( p_organization_id => p_org_id
5805: , x_return_status => l_return_status
5806: , x_msg_count => l_msg_count
5807: , x_msg_data => l_msg_data);
5808:
5809: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
5810: THEN
5811: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
5812: FND_MESSAGE.SET_TOKEN('BY_PROC',
5813: 'GMI_Reservation_Util.Get_OPM_item_from_Apps');
5811: FND_MESSAGE.SET_NAME('GMI','GMI_ERROR');
5812: FND_MESSAGE.SET_TOKEN('BY_PROC',
5813: 'GMI_Reservation_Util.Get_OPM_item_from_Apps');
5814: FND_MESSAGE.SET_TOKEN('WHERE','OE_SCHEDULE_UTIL');
5815: RAISE FND_API.G_EXC_ERROR;
5816: END IF;
5817: get_process_query_quantities ( p_org_id => p_org_id,
5818: p_item_id => l_ic_item_mst_rec.item_id,
5819: p_line_id => p_line_id,
5850: -- Bug 2259553.
5851: --inv_quantity_tree_pvt.clear_quantity_cache;
5852: inv_quantity_tree_pvt.mark_all_for_refresh
5853: ( p_api_version_number => 1.0
5854: , p_init_msg_lst => FND_API.G_TRUE
5855: , x_return_status => l_return_status
5856: , x_msg_count => l_msg_count
5857: , x_msg_data => l_msg_data
5858: );
5856: , x_msg_count => l_msg_count
5857: , x_msg_data => l_msg_data
5858: );
5859:
5860: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5861: oe_msg_pub.transfer_msg_stack;
5862: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
5863: for I in 1..l_msg_count loop
5864: l_msg_data := OE_MSG_PUB.Get(I,'F');
5865: IF l_debug_level > 0 THEN
5866: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
5867: END IF;
5868: end loop;
5869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5871: oe_msg_pub.transfer_msg_stack;
5872: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
5873: for I in 1..l_msg_count loop
5866: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
5867: END IF;
5868: end loop;
5869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5870: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
5871: oe_msg_pub.transfer_msg_stack;
5872: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
5873: for I in 1..l_msg_count loop
5874: l_msg_data := OE_MSG_PUB.Get(I,'F');
5875: IF l_debug_level > 0 THEN
5876: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
5877: END IF;
5878: end loop;
5879: RAISE FND_API.G_EXC_ERROR;
5880: END IF;
5881:
5882:
5883: inv_quantity_tree_pub.query_quantities
5941: OE_MSG_PUB.Add_Exc_Msg
5942: ( G_PKG_NAME,
5943: 'Query_Qty_Tree');
5944: END IF;
5945: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5946: END Query_Qty_Tree;
5947: /*---------------------------------------------------------------------
5948: Procedure Name : Action ATP
5949: Description : This procedure is called to perform atp_check on a single
5967: l_on_hand_qty2 NUMBER; -- INVCONV
5968: l_avail_to_reserve2 NUMBER; -- INVCONV
5969:
5970:
5971: -- l_process_flag VARCHAR2(1) := FND_API.G_FALSE;
5972: --
5973: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level; --INVCONV
5974: --
5975: BEGIN
5987: IF l_debug_level > 0 THEN
5988: oe_debug_pub.add( 'AFTER CALLING MRP API: ' || X_RETURN_STATUS , 2 ) ;
5989: END IF;
5990:
5991: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5993: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5994: RAISE FND_API.G_EXC_ERROR;
5995: END IF;
5988: oe_debug_pub.add( 'AFTER CALLING MRP API: ' || X_RETURN_STATUS , 2 ) ;
5989: END IF;
5990:
5991: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5993: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5994: RAISE FND_API.G_EXC_ERROR;
5995: END IF;
5996:
5989: END IF;
5990:
5991: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5993: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5994: RAISE FND_API.G_EXC_ERROR;
5995: END IF;
5996:
5997: /* Load_Mrp_Request_From_Rec
5990:
5991: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
5992: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5993: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
5994: RAISE FND_API.G_EXC_ERROR;
5995: END IF;
5996:
5997: /* Load_Mrp_Request_From_Rec
5998: ( p_line_rec => p_x_line_rec
6022:
6023:
6024: oe_debug_pub.add('5. After Calling MRP_ATP_PUB.Call_ATP' ||
6025: x_return_status,1);
6026: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6028: END IF;
6029:
6030: Load_Results_from_rec(p_atp_rec => l_mrp_atp_rec,
6023:
6024: oe_debug_pub.add('5. After Calling MRP_ATP_PUB.Call_ATP' ||
6025: x_return_status,1);
6026: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6028: END IF;
6029:
6030: Load_Results_from_rec(p_atp_rec => l_mrp_atp_rec,
6031: p_x_line_rec => p_x_line_rec,
6030: Load_Results_from_rec(p_atp_rec => l_mrp_atp_rec,
6031: p_x_line_rec => p_x_line_rec,
6032: x_return_status => x_return_status);
6033:
6034: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6036: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6037: RAISE FND_API.G_EXC_ERROR;
6038: END IF;
6031: p_x_line_rec => p_x_line_rec,
6032: x_return_status => x_return_status);
6033:
6034: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6036: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6037: RAISE FND_API.G_EXC_ERROR;
6038: END IF;
6039:
6032: x_return_status => x_return_status);
6033:
6034: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6036: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6037: RAISE FND_API.G_EXC_ERROR;
6038: END IF;
6039:
6040: END IF; -- Mrp count.
6033:
6034: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6035: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6036: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6037: RAISE FND_API.G_EXC_ERROR;
6038: END IF;
6039:
6040: END IF; -- Mrp count.
6041: */
6060: /* -- added by fabdi 03/May/2001 NOT NEEDED NOW FOR OPM INVENTORY CONVERGENCE INVCONV
6061: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id
6062: => g_atp_tbl(K).ship_from_org_id)
6063: THEN
6064: l_process_flag := FND_API.G_FALSE;
6065: ELSE
6066: l_process_flag := FND_API.G_TRUE;
6067: END IF;
6068:
6062: => g_atp_tbl(K).ship_from_org_id)
6063: THEN
6064: l_process_flag := FND_API.G_FALSE;
6065: ELSE
6066: l_process_flag := FND_API.G_TRUE;
6067: END IF;
6068:
6069: IF l_process_flag = FND_API.G_TRUE
6070: THEN
6065: ELSE
6066: l_process_flag := FND_API.G_TRUE;
6067: END IF;
6068:
6069: IF l_process_flag = FND_API.G_TRUE
6070: THEN
6071: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
6072: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
6073: g_atp_tbl(K).QTY_ON_REQUEST_DATE := l_avail_to_reserve;
6134: oe_debug_pub.add( 'EXITING ACTION ATP' || X_RETURN_STATUS , 1 ) ;
6135: END IF;
6136:
6137: EXCEPTION
6138: WHEN FND_API.G_EXC_ERROR THEN
6139:
6140: x_return_status := FND_API.G_RET_STS_ERROR;
6141: RAISE FND_API.G_EXC_ERROR;
6142: WHEN OTHERS THEN
6136:
6137: EXCEPTION
6138: WHEN FND_API.G_EXC_ERROR THEN
6139:
6140: x_return_status := FND_API.G_RET_STS_ERROR;
6141: RAISE FND_API.G_EXC_ERROR;
6142: WHEN OTHERS THEN
6143:
6144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6137: EXCEPTION
6138: WHEN FND_API.G_EXC_ERROR THEN
6139:
6140: x_return_status := FND_API.G_RET_STS_ERROR;
6141: RAISE FND_API.G_EXC_ERROR;
6142: WHEN OTHERS THEN
6143:
6144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6145:
6140: x_return_status := FND_API.G_RET_STS_ERROR;
6141: RAISE FND_API.G_EXC_ERROR;
6142: WHEN OTHERS THEN
6143:
6144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6145:
6146: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6147: THEN
6148: OE_MSG_PUB.Add_Exc_Msg
6148: OE_MSG_PUB.Add_Exc_Msg
6149: ( G_PKG_NAME,
6150: 'Action_ATP');
6151: END IF;
6152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6153: END Action_ATP;
6154: /*---------------------------------------------------------------------
6155: Procedure Name : Action_Schedule
6156: Description : This procedure is called from Process_Request proecudure
6235: , x_msg_count => l_msg_count);
6236:
6237: oe_debug_pub.add('1. After Calling MRP_ATP_PUB.Call_ATP' ||
6238: x_return_status,1);
6239: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6240: oe_debug_pub.add('Error is' || l_mrp_msg_data,1);
6241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6242: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6243: --Display_Sch_Errors;
6237: oe_debug_pub.add('1. After Calling MRP_ATP_PUB.Call_ATP' ||
6238: x_return_status,1);
6239: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6240: oe_debug_pub.add('Error is' || l_mrp_msg_data,1);
6241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6242: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6243: --Display_Sch_Errors;
6244: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
6245: p_line_id => p_x_line_rec.line_id);
6238: x_return_status,1);
6239: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6240: oe_debug_pub.add('Error is' || l_mrp_msg_data,1);
6241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6242: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6243: --Display_Sch_Errors;
6244: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
6245: p_line_id => p_x_line_rec.line_id);
6246: RAISE FND_API.G_EXC_ERROR;
6242: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6243: --Display_Sch_Errors;
6244: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
6245: p_line_id => p_x_line_rec.line_id);
6246: RAISE FND_API.G_EXC_ERROR;
6247: END IF;
6248:
6249: Load_Results_from_rec
6250: (p_atp_rec => l_mrp_atp_rec,
6262:
6263: IF l_debug_level > 0 THEN
6264: oe_debug_pub.add( 'X_RETURN_STATUS ' || X_RETURN_STATUS , 1 ) ;
6265: END IF;
6266: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6267: IF l_debug_level > 0 THEN
6268: oe_debug_pub.add( 'UNEXPECTED ERROR FROM ' , 1 ) ;
6269: END IF;
6270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6266: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6267: IF l_debug_level > 0 THEN
6268: oe_debug_pub.add( 'UNEXPECTED ERROR FROM ' , 1 ) ;
6269: END IF;
6270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6271: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6272: IF l_debug_level > 0 THEN
6273: oe_debug_pub.add( 'RR: L2' , 1 ) ;
6274: END IF;
6267: IF l_debug_level > 0 THEN
6268: oe_debug_pub.add( 'UNEXPECTED ERROR FROM ' , 1 ) ;
6269: END IF;
6270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6271: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6272: IF l_debug_level > 0 THEN
6273: oe_debug_pub.add( 'RR: L2' , 1 ) ;
6274: END IF;
6275: RAISE FND_API.G_EXC_ERROR;
6271: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6272: IF l_debug_level > 0 THEN
6273: oe_debug_pub.add( 'RR: L2' , 1 ) ;
6274: END IF;
6275: RAISE FND_API.G_EXC_ERROR;
6276: END IF;
6277:
6278: -- Reloading p_x_line_rec from l_out_line_tbl since the record
6279: -- in the table is the one which is demanded.
6311:
6312: l_old_reserved_quantity := p_old_line_rec.reserved_quantity;
6313: l_old_reserved_quantity2 := nvl(p_old_line_rec.reserved_quantity2,0); -- INVCONV
6314:
6315: IF p_old_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
6316:
6317: l_old_reserved_quantity := 0;
6318:
6319: END IF;
6316:
6317: l_old_reserved_quantity := 0;
6318:
6319: END IF;
6320: IF p_old_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN -- INVCONV
6321: l_old_reserved_quantity2 := 0;
6322: END IF;
6323:
6324: IF nvl(p_x_line_rec.shippable_flag,'N') = 'Y'
6334: l_qty_to_reserve := p_qty_to_reserve;
6335: END IF;
6336:
6337: IF l_p_qty2_to_reserve is null or
6338: l_p_qty2_to_reserve = FND_API.G_MISS_NUM THEN -- INVCONV
6339: -- KYH BUG 4245418 BEGIN
6340: -- =====================
6341: -- l_qty2_to_reserve := nvl(p_x_line_rec.ordered_quantity2, 0) - -- need to test if this falls over
6342: -- nvl(l_old_reserved_quantity2,0);
6346: -- whereas reserved_quantity2 may be the result of one or more lot specific calculations
6347: -- Combining values from these different conversion rates may not give the correct result.
6348: -- Better to compute the secondary to reserve by converting l_qty_to_reserve
6349: IF p_x_line_rec.ordered_quantity_uom2 is not null and
6350: p_x_line_rec.ordered_quantity_uom2 <> FND_API.G_MISS_CHAR THEN
6351: -- Only invoke the conversion for dual tracked items
6352: IF l_debug_level > 0 THEN
6353: oe_debug_pub.add( 'DUAL Tracked quantity so convert the qty to reserve ' || l_qty_to_reserve , 1 ) ;
6354: END IF;
6373: OE_MSG_PUB.ADD;
6374: IF l_debug_level > 0 THEN
6375: oe_debug_pub.add( 'ERROR on UOM conversion to Secondary UOM which is '||p_x_line_rec.ordered_quantity_uom2 , 1 ) ;
6376: END IF;
6377: RAISE FND_API.G_EXC_ERROR;
6378: END IF;
6379: END IF;
6380: -- KYH BUG 4245418 END
6381: ELSE
6440: oe_debug_pub.add( 'EXITING ACTION SCHEDULE: ' || X_RETURN_STATUS , 1 ) ;
6441: END IF;
6442:
6443: EXCEPTION
6444: WHEN FND_API.G_EXC_ERROR THEN
6445:
6446: x_return_status := FND_API.G_RET_STS_ERROR;
6447:
6448: WHEN OTHERS THEN
6442:
6443: EXCEPTION
6444: WHEN FND_API.G_EXC_ERROR THEN
6445:
6446: x_return_status := FND_API.G_RET_STS_ERROR;
6447:
6448: WHEN OTHERS THEN
6449:
6450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6446: x_return_status := FND_API.G_RET_STS_ERROR;
6447:
6448: WHEN OTHERS THEN
6449:
6450: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6451:
6452: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6453: THEN
6454: OE_MSG_PUB.Add_Exc_Msg
6491: END IF;
6492:
6493: -- shipping_interfaced_flag
6494: IF (p_old_line_rec.reserved_quantity is not null AND
6495: p_old_line_rec.reserved_quantity <> FND_API.G_MISS_NUM)
6496: THEN
6497:
6498: -- Call INV API to delete the reservations on the line.
6499:
6509: , p_quantity_to_unreserve => l_qty_to_unreserve
6510: , p_quantity2_to_unreserve => l_qty2_to_unreserve
6511: , x_return_status => x_return_status);
6512:
6513: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6515: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6516: RAISE FND_API.G_EXC_ERROR;
6517: END IF;
6510: , p_quantity2_to_unreserve => l_qty2_to_unreserve
6511: , x_return_status => x_return_status);
6512:
6513: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6515: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6516: RAISE FND_API.G_EXC_ERROR;
6517: END IF;
6518:
6511: , x_return_status => x_return_status);
6512:
6513: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6515: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6516: RAISE FND_API.G_EXC_ERROR;
6517: END IF;
6518:
6519: END IF;
6512:
6513: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6515: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6516: RAISE FND_API.G_EXC_ERROR;
6517: END IF;
6518:
6519: END IF;
6520:
6554:
6555: oe_debug_pub.add('2. After Calling MRP_ATP_PUB.Call_ATP' ||
6556: x_return_status,1);
6557:
6558: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6560: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6561: --Display_Sch_Errors;
6562: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
6555: oe_debug_pub.add('2. After Calling MRP_ATP_PUB.Call_ATP' ||
6556: x_return_status,1);
6557:
6558: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6560: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6561: --Display_Sch_Errors;
6562: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
6563: p_line_id => p_x_line_rec.line_id);
6556: x_return_status,1);
6557:
6558: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6559: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6560: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6561: --Display_Sch_Errors;
6562: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
6563: p_line_id => p_x_line_rec.line_id);
6564: RAISE FND_API.G_EXC_ERROR;
6560: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6561: --Display_Sch_Errors;
6562: Display_sch_errors(p_atp_rec => l_mrp_atp_rec,
6563: p_line_id => p_x_line_rec.line_id);
6564: RAISE FND_API.G_EXC_ERROR;
6565: END IF;
6566:
6567: Load_Results_from_rec
6568: (p_atp_rec => l_mrp_atp_rec,
6568: (p_atp_rec => l_mrp_atp_rec,
6569: p_x_line_rec => p_x_line_rec,
6570: x_return_status => x_return_status);
6571:
6572: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6574: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6575: RAISE FND_API.G_EXC_ERROR;
6576: END IF;
6569: p_x_line_rec => p_x_line_rec,
6570: x_return_status => x_return_status);
6571:
6572: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6574: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6575: RAISE FND_API.G_EXC_ERROR;
6576: END IF;
6577:
6570: x_return_status => x_return_status);
6571:
6572: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6574: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6575: RAISE FND_API.G_EXC_ERROR;
6576: END IF;
6577:
6578: END IF; -- MRP Count.
6571:
6572: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6574: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6575: RAISE FND_API.G_EXC_ERROR;
6576: END IF;
6577:
6578: END IF; -- MRP Count.
6579:
6587: IF l_debug_level > 0 THEN
6588: oe_debug_pub.add( 'AFTER CALLING MRP API: ' || X_RETURN_STATUS , 2 ) ;
6589: END IF;
6590:
6591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6593: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6594: RAISE FND_API.G_EXC_ERROR;
6595: END IF;
6588: oe_debug_pub.add( 'AFTER CALLING MRP API: ' || X_RETURN_STATUS , 2 ) ;
6589: END IF;
6590:
6591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6593: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6594: RAISE FND_API.G_EXC_ERROR;
6595: END IF;
6596:
6589: END IF;
6590:
6591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6593: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6594: RAISE FND_API.G_EXC_ERROR;
6595: END IF;
6596:
6597: END IF;
6590:
6591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6592: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6593: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6594: RAISE FND_API.G_EXC_ERROR;
6595: END IF;
6596:
6597: END IF;
6598:
6604: IF l_debug_level > 0 THEN
6605: oe_debug_pub.add( 'EXITING ACTION_UNSCHEDULE ' , 1 ) ;
6606: END IF;
6607: EXCEPTION
6608: WHEN FND_API.G_EXC_ERROR THEN
6609:
6610: x_return_status := FND_API.G_RET_STS_ERROR;
6611:
6612: WHEN OTHERS THEN
6606: END IF;
6607: EXCEPTION
6608: WHEN FND_API.G_EXC_ERROR THEN
6609:
6610: x_return_status := FND_API.G_RET_STS_ERROR;
6611:
6612: WHEN OTHERS THEN
6613:
6614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6610: x_return_status := FND_API.G_RET_STS_ERROR;
6611:
6612: WHEN OTHERS THEN
6613:
6614: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6615:
6616: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6617: THEN
6618: OE_MSG_PUB.Add_Exc_Msg
6713: IF l_debug_level > 0 THEN
6714: oe_debug_pub.add( '4. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || X_RETURN_STATUS , 1 ) ;
6715: END IF;
6716:
6717: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6719: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6720: --Display_Sch_Errors;
6721: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
6714: oe_debug_pub.add( '4. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || X_RETURN_STATUS , 1 ) ;
6715: END IF;
6716:
6717: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6719: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6720: --Display_Sch_Errors;
6721: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
6722: p_line_id => p_old_line_rec.line_id);
6715: END IF;
6716:
6717: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6718: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6719: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6720: --Display_Sch_Errors;
6721: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
6722: p_line_id => p_old_line_rec.line_id);
6723: RAISE FND_API.G_EXC_ERROR;
6719: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6720: --Display_Sch_Errors;
6721: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
6722: p_line_id => p_old_line_rec.line_id);
6723: RAISE FND_API.G_EXC_ERROR;
6724: END IF;
6725: END IF; -- MRP count.
6726: END IF; -- For new IF statement for 1955004
6727:
6730: END IF;
6731:
6732: EXCEPTION
6733:
6734: WHEN FND_API.G_EXC_ERROR THEN
6735:
6736: x_return_status := FND_API.G_RET_STS_ERROR;
6737:
6738: WHEN OTHERS THEN
6732: EXCEPTION
6733:
6734: WHEN FND_API.G_EXC_ERROR THEN
6735:
6736: x_return_status := FND_API.G_RET_STS_ERROR;
6737:
6738: WHEN OTHERS THEN
6739:
6740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6736: x_return_status := FND_API.G_RET_STS_ERROR;
6737:
6738: WHEN OTHERS THEN
6739:
6740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6741:
6742: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6743: THEN
6744: OE_MSG_PUB.Add_Exc_Msg
6773:
6774: IF l_debug_level > 0 THEN
6775: oe_debug_pub.add( 'ENTERING ACTION RESERVE ' ) ;
6776: END IF;
6777: x_return_status := FND_API.G_RET_STS_SUCCESS;
6778:
6779: -- When only subinventory changed on the line. Need Scheduling
6780: -- Will pass line action as reserve. We will unreserve and reserve
6781: -- the line for new subinventory.
6869: , p_quantity2_to_unreserve => l_changed_reserved_qty2 -- INVCONV
6870: , x_return_status => x_return_status);
6871: END IF; --2595661
6872:
6873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6875: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6876: RAISE FND_API.G_EXC_ERROR;
6877: END IF;
6870: , x_return_status => x_return_status);
6871: END IF; --2595661
6872:
6873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6875: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6876: RAISE FND_API.G_EXC_ERROR;
6877: END IF;
6878:
6871: END IF; --2595661
6872:
6873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6875: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6876: RAISE FND_API.G_EXC_ERROR;
6877: END IF;
6878:
6879:
6872:
6873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6875: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6876: RAISE FND_API.G_EXC_ERROR;
6877: END IF;
6878:
6879:
6880: ELSIF l_changed_reserved_qty < 0 THEN
6935: , x_return_Status => x_return_status);
6936:
6937: END IF;
6938:
6939: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6941: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6942: RAISE FND_API.G_EXC_ERROR;
6943: END IF;
6936:
6937: END IF;
6938:
6939: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6941: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6942: RAISE FND_API.G_EXC_ERROR;
6943: END IF;
6944:
6937: END IF;
6938:
6939: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6941: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6942: RAISE FND_API.G_EXC_ERROR;
6943: END IF;
6944:
6945: END IF; -- end of reserved_quantity change code
6938:
6939: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6940: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6941: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6942: RAISE FND_API.G_EXC_ERROR;
6943: END IF;
6944:
6945: END IF; -- end of reserved_quantity change code
6946:
6949: oe_debug_pub.add( 'EXITING ACTION RESERVE ' ) ;
6950: END IF;
6951:
6952: EXCEPTION
6953: WHEN FND_API.G_EXC_ERROR THEN
6954:
6955: x_return_status := FND_API.G_RET_STS_ERROR;
6956:
6957: WHEN OTHERS THEN
6951:
6952: EXCEPTION
6953: WHEN FND_API.G_EXC_ERROR THEN
6954:
6955: x_return_status := FND_API.G_RET_STS_ERROR;
6956:
6957: WHEN OTHERS THEN
6958:
6959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6955: x_return_status := FND_API.G_RET_STS_ERROR;
6956:
6957: WHEN OTHERS THEN
6958:
6959: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6960:
6961: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6962: THEN
6963: OE_MSG_PUB.Add_Exc_Msg
7011: -- l_item_rec OE_ORDER_CACHE.item_rec_type; -- OPM -- INVCONV Not needed now because of OPM inventory convergence
7012: /*OPM End Bug 2794760
7013: ====================*/
7014: BEGIN
7015: x_return_status := FND_API.G_RET_STS_SUCCESS;
7016: x_reserve_later := 'N';
7017: IF l_debug_level > 0 THEN
7018: oe_debug_pub.add( 'ENTERING ACTION_RESCHEDULE ' || P_X_LINE_REC.OPEN_FLAG , 1 ) ;
7019: END IF;
7075:
7076: Action_undemand(p_old_line_rec => p_old_line_rec,
7077: x_return_status => x_return_status);
7078:
7079: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7081: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7082: RAISE FND_API.G_EXC_ERROR;
7083: END IF;
7076: Action_undemand(p_old_line_rec => p_old_line_rec,
7077: x_return_status => x_return_status);
7078:
7079: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7081: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7082: RAISE FND_API.G_EXC_ERROR;
7083: END IF;
7084: END IF;
7077: x_return_status => x_return_status);
7078:
7079: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7081: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7082: RAISE FND_API.G_EXC_ERROR;
7083: END IF;
7084: END IF;
7085:
7078:
7079: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7081: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7082: RAISE FND_API.G_EXC_ERROR;
7083: END IF;
7084: END IF;
7085:
7086:
7100: --4161641
7101: IF l_debug_level > 0 THEN
7102: oe_debug_pub.add( 'X_RETURN_STATUS ' || X_RETURN_STATUS , 1 ) ;
7103: END IF;
7104: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7105: IF l_debug_level > 0 THEN
7106: oe_debug_pub.add( 'UNEXPECTED ERROR FROM MRP CALL ' , 1 ) ;
7107: END IF;
7108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7104: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7105: IF l_debug_level > 0 THEN
7106: oe_debug_pub.add( 'UNEXPECTED ERROR FROM MRP CALL ' , 1 ) ;
7107: END IF;
7108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7110: IF l_debug_level > 0 THEN
7111: oe_debug_pub.add( 'ACTION RESCHEDULE : ERROR FROM MRP CALL' , 1 ) ;
7112: END IF;
7105: IF l_debug_level > 0 THEN
7106: oe_debug_pub.add( 'UNEXPECTED ERROR FROM MRP CALL ' , 1 ) ;
7107: END IF;
7108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7110: IF l_debug_level > 0 THEN
7111: oe_debug_pub.add( 'ACTION RESCHEDULE : ERROR FROM MRP CALL' , 1 ) ;
7112: END IF;
7113: RAISE FND_API.G_EXC_ERROR;
7109: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7110: IF l_debug_level > 0 THEN
7111: oe_debug_pub.add( 'ACTION RESCHEDULE : ERROR FROM MRP CALL' , 1 ) ;
7112: END IF;
7113: RAISE FND_API.G_EXC_ERROR;
7114: END IF;
7115:
7116: -- Item has been substituted by MRP. Remove any old reservation
7117: -- on old item. Since reservation cannot be made without posting
7175: AND p_x_line_rec.ordered_quantity > 0
7176: THEN
7177:
7178:
7179: l_reservation_rec.reservation_id := fnd_api.g_miss_num;
7180:
7181: l_sales_order_id
7182: := Get_mtl_sales_order_id(p_old_line_rec.header_id);
7183: l_reservation_rec.demand_source_header_id := l_sales_order_id;
7189: oe_debug_pub.add( 'RSCH: CALLING INVS QUERY_RESERVATION ' , 1 ) ;
7190: END IF;
7191: inv_reservation_pub.query_reservation
7192: ( p_api_version_number => 1.0
7193: , p_init_msg_lst => fnd_api.g_true
7194: , x_return_status => x_return_status
7195: , x_msg_count => l_msg_count
7196: , x_msg_data => l_msg_data
7197: , p_query_input => l_reservation_rec
7205: IF l_debug_level > 0 THEN
7206: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
7207: END IF;
7208:
7209: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7211: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7212: RAISE FND_API.G_EXC_ERROR;
7213: END IF;
7206: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
7207: END IF;
7208:
7209: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7211: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7212: RAISE FND_API.G_EXC_ERROR;
7213: END IF;
7214:
7207: END IF;
7208:
7209: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7211: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7212: RAISE FND_API.G_EXC_ERROR;
7213: END IF;
7214:
7215: IF l_debug_level > 0 THEN
7208:
7209: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7211: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7212: RAISE FND_API.G_EXC_ERROR;
7213: END IF;
7214:
7215: IF l_debug_level > 0 THEN
7216: oe_debug_pub.add( 'RESERVATION RECORD COUNT IS: ' || L_RSV_TBL.COUNT , 1 ) ;
7226: oe_debug_pub.add( 'RSCH: CALLING INVS UPDATE RESERVATION ' , 1 ) ;
7227: END IF;
7228: inv_reservation_pub.update_reservation
7229: ( p_api_version_number => 1.0
7230: , p_init_msg_lst => fnd_api.g_true
7231: , x_return_status => x_return_status
7232: , x_msg_count => l_msg_count
7233: , x_msg_data => l_msg_data
7234: , p_original_rsv_rec => l_rsv_tbl(k)
7234: , p_original_rsv_rec => l_rsv_tbl(k)
7235: , p_to_rsv_rec => l_reservation_rec
7236: , p_original_serial_number => l_dummy_sn -- no serial contorl
7237: , p_to_serial_number => l_dummy_sn -- no serial control
7238: , p_validation_flag => fnd_api.g_true
7239: , p_over_reservation_flag => 2 -- 4715544
7240: );
7241:
7242: IF l_debug_level > 0 THEN
7242: IF l_debug_level > 0 THEN
7243: oe_debug_pub.add( 'AFTER CALLING INVS UPDATE_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
7244: END IF;
7245:
7246: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7248: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7249: IF l_msg_data is not null THEN
7250: fnd_message.set_encoded(l_msg_data);
7243: oe_debug_pub.add( 'AFTER CALLING INVS UPDATE_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
7244: END IF;
7245:
7246: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7248: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7249: IF l_msg_data is not null THEN
7250: fnd_message.set_encoded(l_msg_data);
7251: l_buffer := fnd_message.get;
7244: END IF;
7245:
7246: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7248: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7249: IF l_msg_data is not null THEN
7250: fnd_message.set_encoded(l_msg_data);
7251: l_buffer := fnd_message.get;
7252: oe_msg_pub.add_text(p_message_text => l_buffer);
7253: IF l_debug_level > 0 THEN
7254: oe_debug_pub.add( 'ERROR : '|| L_BUFFER , 1 ) ;
7255: END IF;
7256: END IF;
7257: RAISE FND_API.G_EXC_ERROR;
7258: END IF;
7259: END LOOP;
7260:
7261: END IF; -- Ship date has changed
7394: , p_quantity_to_unreserve => l_changed_reserved_qty
7395: , p_quantity2_to_unreserve => l_changed_reserved_qty2 -- INVCONV
7396: , x_return_status => x_return_status);
7397:
7398: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7395: , p_quantity2_to_unreserve => l_changed_reserved_qty2 -- INVCONV
7396: , x_return_status => x_return_status);
7397:
7398: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7403: /* -- Moved to the last part of If-elsif check
7396: , x_return_status => x_return_status);
7397:
7398: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7403: /* -- Moved to the last part of If-elsif check
7404: -- Pack J
7397:
7398: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7399: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7400: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7401: RAISE FND_API.G_EXC_ERROR;
7402: END IF;
7403: /* -- Moved to the last part of If-elsif check
7404: -- Pack J
7405: -- Call reserve_line if partial flag is set to 'Yes' and
7454: , p_quantity2_to_reserve => l_qty2_to_reserve -- INVCONV
7455: , p_rsv_update => TRUE
7456: , x_return_Status => x_return_status);
7457:
7458: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7460: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7461: RAISE FND_API.G_EXC_ERROR;
7462: END IF;
7455: , p_rsv_update => TRUE
7456: , x_return_Status => x_return_status);
7457:
7458: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7460: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7461: RAISE FND_API.G_EXC_ERROR;
7462: END IF;
7463:
7456: , x_return_Status => x_return_status);
7457:
7458: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7460: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7461: RAISE FND_API.G_EXC_ERROR;
7462: END IF;
7463:
7464: /* -- Begin Bug 2794760 -- INVCONV take out OPM code
7457:
7458: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7459: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7460: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7461: RAISE FND_API.G_EXC_ERROR;
7462: END IF;
7463:
7464: /* -- Begin Bug 2794760 -- INVCONV take out OPM code
7465: ELSIF (OE_Line_Util.Process_Characteristics
7480: , p_quantity_to_reserve => l_qty_to_reserve
7481: , p_rsv_update => TRUE
7482: , x_return_Status => x_return_status);
7483:
7484: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7486: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7487: RAISE FND_API.G_EXC_ERROR;
7488: END IF;
7481: , p_rsv_update => TRUE
7482: , x_return_Status => x_return_status);
7483:
7484: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7486: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7487: RAISE FND_API.G_EXC_ERROR;
7488: END IF;
7489: -- END Bug 2794760 */
7482: , x_return_Status => x_return_status);
7483:
7484: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7486: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7487: RAISE FND_API.G_EXC_ERROR;
7488: END IF;
7489: -- END Bug 2794760 */
7490:
7483:
7484: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7485: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7486: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7487: RAISE FND_API.G_EXC_ERROR;
7488: END IF;
7489: -- END Bug 2794760 */
7490:
7491:
7509: -- whereas reserved_quantity2 may be the result of one or more lot specific calculations
7510: -- Combining values from these different conversion rates may not give the correct result.
7511: -- Better to compute the secondary to reserve by converting l_qty_to_reserve
7512: IF p_x_line_rec.ordered_quantity_uom2 is not null and
7513: p_x_line_rec.ordered_quantity_uom2 <> FND_API.G_MISS_CHAR THEN
7514: -- Only invoke the conversion for dual tracked items
7515: IF l_debug_level > 0 THEN
7516: oe_debug_pub.add( 'DUAL Tracked quantity so convert the qty to reserve ' || l_qty_to_reserve , 1 ) ;
7517: END IF;
7536: OE_MSG_PUB.ADD;
7537: IF l_debug_level > 0 THEN
7538: oe_debug_pub.add( 'ERROR on UOM conversion to Secondary UOM which is '||p_x_line_rec.ordered_quantity_uom2 , 1 ) ;
7539: END IF;
7540: RAISE FND_API.G_EXC_ERROR;
7541: END IF;
7542: END IF;
7543: -- KYH BUG 4245418 END
7544:
7606: , p_quantity_to_unreserve => l_qty_to_unreserve
7607: , p_quantity2_to_unreserve => l_qty2_to_unreserve -- INVCONV
7608: , x_return_status => x_return_status);
7609:
7610: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7612: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7613: RAISE FND_API.G_EXC_ERROR;
7614: END IF;
7607: , p_quantity2_to_unreserve => l_qty2_to_unreserve -- INVCONV
7608: , x_return_status => x_return_status);
7609:
7610: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7612: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7613: RAISE FND_API.G_EXC_ERROR;
7614: END IF;
7615:
7608: , x_return_status => x_return_status);
7609:
7610: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7612: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7613: RAISE FND_API.G_EXC_ERROR;
7614: END IF;
7615:
7616: END IF; -- reserved_quantity same, ordered_quantity changed
7609:
7610: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7612: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7613: RAISE FND_API.G_EXC_ERROR;
7614: END IF;
7615:
7616: END IF; -- reserved_quantity same, ordered_quantity changed
7617: END IF; -- Order qty > reserve qty.
7619: END IF; -- Need reservation changes.
7620: END IF; -- Shippable flag.
7621:
7622: EXCEPTION
7623: WHEN FND_API.G_EXC_ERROR THEN
7624:
7625: x_return_status := FND_API.G_RET_STS_ERROR;
7626:
7627: WHEN OTHERS THEN
7621:
7622: EXCEPTION
7623: WHEN FND_API.G_EXC_ERROR THEN
7624:
7625: x_return_status := FND_API.G_RET_STS_ERROR;
7626:
7627: WHEN OTHERS THEN
7628:
7629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7625: x_return_status := FND_API.G_RET_STS_ERROR;
7626:
7627: WHEN OTHERS THEN
7628:
7629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7630:
7631: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7632: THEN
7633: OE_MSG_PUB.Add_Exc_Msg
7667: oe_debug_pub.add( 'ENTERING LOAD INV REQUEST' , 1 ) ;
7668: END IF;
7669:
7670: x_reservation_rec := null;
7671: x_reservation_rec.reservation_id := fnd_api.g_miss_num; -- cannot know
7672: x_reservation_rec.requirement_date := p_line_rec.schedule_ship_date;
7673: x_reservation_rec.organization_id := p_line_rec.ship_from_org_id;
7674: x_reservation_rec.inventory_item_id := p_line_rec.inventory_item_id;
7675:
7697: IF l_debug_level > 0 THEN
7698: oe_debug_pub.add( 'L_SALES_ORDER_ID' || L_SALES_ORDER_ID , 1 ) ;
7699: END IF;
7700:
7701: IF p_line_rec.subinventory = FND_API.G_MISS_CHAR THEN
7702: l_subinventory := NULL;
7703: ELSE
7704: l_subinventory := p_line_rec.subinventory;
7705: END IF;
7757: WHEN NO_DATA_FOUND THEN
7758: IF l_debug_level > 0 THEN
7759: oe_debug_pub.add( 'WHEN OTHERS OF LOAD INV REQUEST' , 1 ) ;
7760: END IF;
7761: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7762:
7763: END Load_INV_Request;
7764:
7765: PROCEDURE Set_Auto_sch_flag_for_batch(p_header_id IN NUMBER)
7863: WHEN NO_DATA_FOUND THEN
7864: IF l_debug_level > 0 THEN
7865: oe_debug_pub.add( 'NO DATA FOUND GET_SCHEDULING_LEVEL' , 1 ) ;
7866: END IF;
7867: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7868:
7869: END Get_Scheduling_Level;
7870:
7871:
7903:
7904: IF p_x_line_rec.ship_from_org_id is NULL THEN
7905: FND_MESSAGE.SET_NAME('ONT','OE_SCH_ATO_WHSE_REQD');
7906: OE_MSG_PUB.Add;
7907: RAISE FND_API.G_EXC_ERROR;
7908: END IF;
7909:
7910: IF p_x_line_rec.schedule_ship_date is NULL THEN
7911: p_x_line_rec.schedule_ship_date := p_x_line_rec.request_date;
7954: oe_debug_pub.add( 'CALLING PROCESS ORDER' , 1 ) ;
7955: END IF;
7956:
7957: OE_Order_PVT.Lines
7958: ( p_validation_level => FND_API.G_VALID_LEVEL_NONE
7959: ,p_control_rec => l_control_rec
7960: ,p_x_line_tbl => l_line_tbl
7961: ,p_x_old_line_tbl => l_old_line_tbl
7962: ,x_return_status => l_return_status);
7964: IF l_debug_level > 0 THEN
7965: oe_debug_pub.add( 'SCH RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
7966: END IF;
7967:
7968: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7970: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7971: RAISE FND_API.G_EXC_ERROR;
7972: END IF;
7965: oe_debug_pub.add( 'SCH RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
7966: END IF;
7967:
7968: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7970: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7971: RAISE FND_API.G_EXC_ERROR;
7972: END IF;
7973:
7966: END IF;
7967:
7968: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7970: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7971: RAISE FND_API.G_EXC_ERROR;
7972: END IF;
7973:
7974: OE_Order_PVT.Process_Requests_And_Notify
7967:
7968: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7969: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7970: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7971: RAISE FND_API.G_EXC_ERROR;
7972: END IF;
7973:
7974: OE_Order_PVT.Process_Requests_And_Notify
7975: ( p_process_requests => TRUE
7981: IF l_debug_level > 0 THEN
7982: oe_debug_pub.add( '1 SCH RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
7983: END IF;
7984:
7985: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7987: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7988: RAISE FND_API.G_EXC_ERROR;
7989: END IF;
7982: oe_debug_pub.add( '1 SCH RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
7983: END IF;
7984:
7985: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7987: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7988: RAISE FND_API.G_EXC_ERROR;
7989: END IF;
7990:
7983: END IF;
7984:
7985: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7987: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7988: RAISE FND_API.G_EXC_ERROR;
7989: END IF;
7990:
7991: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
7984:
7985: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7986: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7987: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
7988: RAISE FND_API.G_EXC_ERROR;
7989: END IF;
7990:
7991: OE_GLOBALS.G_CASCADING_REQUEST_LOGGED := TRUE;
7992: IF l_debug_level > 0 THEN
8089: oe_debug_pub.add( 'OVERRIDE ATP : '||P_X_LINE_REC.OVERRIDE_ATP_DATE_CODE , 1 ) ;
8090: oe_debug_pub.add( ' ' , 1 ) ;
8091: END IF;
8092:
8093: x_return_status := FND_API.G_RET_STS_SUCCESS;
8094:
8095: l_old_line_rec := p_old_line_rec;
8096:
8097: IF p_x_line_rec.ship_from_org_id = FND_API.G_MISS_NUM THEN
8093: x_return_status := FND_API.G_RET_STS_SUCCESS;
8094:
8095: l_old_line_rec := p_old_line_rec;
8096:
8097: IF p_x_line_rec.ship_from_org_id = FND_API.G_MISS_NUM THEN
8098: p_x_line_rec.ship_from_org_id := null;
8099: END IF;
8100: IF p_old_line_rec.ship_from_org_id = FND_API.G_MISS_NUM THEN
8101: l_old_line_rec.ship_from_org_id := null;
8096:
8097: IF p_x_line_rec.ship_from_org_id = FND_API.G_MISS_NUM THEN
8098: p_x_line_rec.ship_from_org_id := null;
8099: END IF;
8100: IF p_old_line_rec.ship_from_org_id = FND_API.G_MISS_NUM THEN
8101: l_old_line_rec.ship_from_org_id := null;
8102: END IF;
8103:
8104:
8109: IF l_old_line_rec.reserved_quantity is null THEN
8110: IF l_debug_level > 0 THEN
8111: oe_debug_pub.add( 'RR1: L_OLD_LINE_REC.RESERVED_QUANTITY IS NULL' , 1 ) ;
8112: END IF;
8113: ELSIF l_old_line_rec.reserved_quantity = FND_API.G_MISS_NUM THEN
8114: IF l_debug_level > 0 THEN
8115: oe_debug_pub.add( 'RR2: L_OLD_LINE_REC.RESERVED_QUANTITY IS MISSING' , 1 ) ;
8116: END IF;
8117: END IF;
8127: IF l_old_line_rec.reserved_quantity2 is null THEN
8128: IF l_debug_level > 0 THEN
8129: oe_debug_pub.add( 'RR1: L_OLD_LINE_REC.RESERVED_QUANTITY2 IS NULL' , 1 ) ;
8130: END IF;
8131: ELSIF l_old_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM THEN
8132: IF l_debug_level > 0 THEN
8133: oe_debug_pub.add( 'RR2: L_OLD_LINE_REC.RESERVED_QUANTITY2 IS MISSING' , 1 ) ;
8134: END IF;
8135: END IF;
8190: END IF;
8191: */
8192:
8193: -- Bug 6335352 starts
8194: IF p_x_line_rec.reserved_quantity = FND_API.G_MISS_NUM
8195: THEN
8196: -- Converting missing to old value
8197: IF NOT OE_GLOBALS.Equal(l_old_line_rec.order_quantity_uom,p_x_line_rec.order_quantity_uom)
8198: AND nvl(l_old_line_rec.reserved_quantity, 0) > 0
8216: IF l_old_line_rec.reserved_quantity2 > 0 THEN -- INVCONV
8217: l_old_rsv_qty2 := l_old_line_rec.reserved_quantity2; -- INVCONV
8218: END IF;
8219:
8220: IF p_x_line_rec.reserved_quantity = FND_API.G_MISS_NUM
8221: THEN
8222: -- Converting missing to old value
8223: p_x_line_rec.reserved_quantity := l_old_rsv_qty;
8224: -- p_x_line_rec.reserved_quantity := l_old_line_rec.reserved_quantity;
8223: p_x_line_rec.reserved_quantity := l_old_rsv_qty;
8224: -- p_x_line_rec.reserved_quantity := l_old_line_rec.reserved_quantity;
8225: END IF;
8226:
8227: IF p_x_line_rec.reserved_quantity2 = FND_API.G_MISS_NUM -- INVCONV
8228: THEN
8229: -- Converting missing to old value
8230: p_x_line_rec.reserved_quantity2 := l_old_rsv_qty2;
8231: -- p_x_line_rec.reserved_quantity := l_old_line_rec.reserved_quantity;
8434: p_sch_action => l_line_action,
8435: p_caller => SCH_INTERNAL,
8436: x_return_status => x_return_status);
8437:
8438: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8440: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8441:
8442: -- When header preference is set and if line is failing
8435: p_caller => SCH_INTERNAL,
8436: x_return_status => x_return_status);
8437:
8438: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8440: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8441:
8442: -- When header preference is set and if line is failing
8443: -- in validation clear the line from set and do not fail the call
8436: x_return_status => x_return_status);
8437:
8438: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8440: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8441:
8442: -- When header preference is set and if line is failing
8443: -- in validation clear the line from set and do not fail the call
8444: -- so that line can be saved. -- 2404401.
8465: p_line_id => p_x_line_rec.line_id,
8466: x_index => l_index,
8467: x_return_status => x_return_status);
8468:
8469: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8470: IF l_debug_level > 0 THEN
8471: oe_debug_pub.add( 'After update global pic: UNEXP ERRORED OUT' , 1 ) ;
8472: END IF;
8473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8469: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8470: IF l_debug_level > 0 THEN
8471: oe_debug_pub.add( 'After update global pic: UNEXP ERRORED OUT' , 1 ) ;
8472: END IF;
8473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8474: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8475: IF l_debug_level > 0 THEN
8476: oe_debug_pub.add( 'After update global pic : ERRORED OUT' , 1 ) ;
8477: END IF;
8470: IF l_debug_level > 0 THEN
8471: oe_debug_pub.add( 'After update global pic: UNEXP ERRORED OUT' , 1 ) ;
8472: END IF;
8473: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8474: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8475: IF l_debug_level > 0 THEN
8476: oe_debug_pub.add( 'After update global pic : ERRORED OUT' , 1 ) ;
8477: END IF;
8478: RAISE FND_API.G_EXC_ERROR;
8474: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8475: IF l_debug_level > 0 THEN
8476: oe_debug_pub.add( 'After update global pic : ERRORED OUT' , 1 ) ;
8477: END IF;
8478: RAISE FND_API.G_EXC_ERROR;
8479: END IF;
8480:
8481: IF l_index is not NULL THEN
8482: --update Global Picture directly
8498: p_x_line_rec.ship_set_id := Null;
8499:
8500: -- Change the status since we do not want to fail
8501: -- line to get saved .
8502: x_return_status := FND_API.G_RET_STS_SUCCESS;
8503:
8504: IF nvl(p_x_line_rec.override_atp_date_code,'N') = 'Y'
8505: OR p_x_line_rec.schedule_ship_date is not null
8506: OR p_x_line_rec.schedule_arrival_date is not null THEN
8521: oe_debug_pub.add( 'VALIDATION FAILED WHILE AUTO SCH' , 1 ) ;
8522: END IF;
8523: -- Change the status since we do not want to fail
8524: -- line to get saved .
8525: x_return_status := FND_API.G_RET_STS_SUCCESS;
8526: END IF;
8527: RETURN;
8528: END IF;
8529:
8552: , p_quantity_to_unreserve => l_old_line_rec.reserved_quantity
8553: , p_quantity2_to_unreserve => l_old_line_rec.reserved_quantity2 -- INVCONV
8554: , x_return_status => x_return_status);
8555:
8556: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8558: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8559: RAISE FND_API.G_EXC_ERROR;
8560: END IF;
8553: , p_quantity2_to_unreserve => l_old_line_rec.reserved_quantity2 -- INVCONV
8554: , x_return_status => x_return_status);
8555:
8556: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8558: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8559: RAISE FND_API.G_EXC_ERROR;
8560: END IF;
8561: END IF;
8554: , x_return_status => x_return_status);
8555:
8556: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8558: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8559: RAISE FND_API.G_EXC_ERROR;
8560: END IF;
8561: END IF;
8562:
8555:
8556: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
8557: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8558: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
8559: RAISE FND_API.G_EXC_ERROR;
8560: END IF;
8561: END IF;
8562:
8563: Action_Undemand(p_old_line_rec => l_old_line_rec,
8644: END IF;
8645:
8646: Print_Time('Exiting schedule_line');
8647: EXCEPTION
8648: WHEN FND_API.G_EXC_ERROR THEN
8649:
8650: IF l_debug_level > 0 THEN
8651: oe_debug_pub.add( 'G_EXC_ERROR IN SCHEDULE_LINE' , 1 ) ;
8652: END IF;
8649:
8650: IF l_debug_level > 0 THEN
8651: oe_debug_pub.add( 'G_EXC_ERROR IN SCHEDULE_LINE' , 1 ) ;
8652: END IF;
8653: x_return_status := FND_API.G_RET_STS_ERROR;
8654:
8655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8656:
8657: IF l_debug_level > 0 THEN
8651: oe_debug_pub.add( 'G_EXC_ERROR IN SCHEDULE_LINE' , 1 ) ;
8652: END IF;
8653: x_return_status := FND_API.G_RET_STS_ERROR;
8654:
8655: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8656:
8657: IF l_debug_level > 0 THEN
8658: oe_debug_pub.add( 'G_EXC__UNEXP_ERROR IN SCHEDULE_LINE' , 1 ) ;
8659: END IF;
8656:
8657: IF l_debug_level > 0 THEN
8658: oe_debug_pub.add( 'G_EXC__UNEXP_ERROR IN SCHEDULE_LINE' , 1 ) ;
8659: END IF;
8660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8661:
8662: WHEN OTHERS THEN
8663:
8664: IF l_debug_level > 0 THEN
8663:
8664: IF l_debug_level > 0 THEN
8665: oe_debug_pub.add( 'OTHERS IN SCHEDULE_LINE'|| SQLERRM , 1 ) ;
8666: END IF;
8667: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8668:
8669: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
8670: THEN
8671: OE_MSG_PUB.Add_Exc_Msg
8796: -- due to the split action. If yes, then do not schedule it, since we
8797: -- have already scheduled the line before.
8798:
8799: IF (p_line_rec.split_from_line_id is not null) AND
8800: (p_line_rec.split_from_line_id <> FND_API.G_MISS_NUM) AND
8801: (p_line_rec.operation = OE_GLOBALS.G_OPR_CREATE)
8802: THEN
8803: IF l_debug_level > 0 THEN
8804: oe_debug_pub.add( 'THIS IS A NEW LINE CREATED THRU SPLIT' , 1 ) ;
8950: OR OE_Quote_Util.G_COMPLETE_NEG = 'Y')
8951: AND OESCH_AUTO_SCH_FLAG = 'Y') THEN
8952:
8953: IF (p_line_rec.top_model_line_id is null OR
8954: p_line_rec.top_model_line_id = FND_API.G_MISS_NUM) AND
8955: p_line_rec.item_type_code = OE_GLOBALS.G_ITEM_STANDARD
8956: THEN
8957: IF l_debug_level > 0 THEN
8958: oe_debug_pub.add( 'AUTO SCHEDULE IS TRUE' , 4 ) ;
9335: l_msg_data VARCHAR2(2000);
9336: l_result Varchar2(30);
9337: l_scheduling_level_code VARCHAR2(30) := NULL;
9338: l_type_code VARCHAR2(30);
9339: l_out_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
9340: l_org_id NUMBER;
9341: l_bill_seq_id NUMBER;
9342: l_make_buy NUMBER;
9343: l_config_id NUMBER;
9355:
9356: IF l_debug_level > 0 THEN
9357: oe_debug_pub.add( '..ENTERING OE_SCHEDULE_UTIL.VALIDATE_LINE :' || P_SCH_ACTION , 1 ) ;
9358: END IF;
9359: x_return_status := FND_API.G_RET_STS_SUCCESS;
9360:
9361: -- If the quantity on the line is missing or null and if
9362: -- the user is trying to performing scheduling, it is an error
9363:
9361: -- If the quantity on the line is missing or null and if
9362: -- the user is trying to performing scheduling, it is an error
9363:
9364: IF ((p_old_line_rec.ordered_quantity is null OR
9365: p_old_line_rec.ordered_quantity = FND_API.G_MISS_NUM) AND
9366: (p_line_rec.ordered_quantity is null OR
9367: p_line_rec.ordered_quantity = FND_API.G_MISS_NUM)) THEN
9368:
9369: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_QUANTITY');
9363:
9364: IF ((p_old_line_rec.ordered_quantity is null OR
9365: p_old_line_rec.ordered_quantity = FND_API.G_MISS_NUM) AND
9366: (p_line_rec.ordered_quantity is null OR
9367: p_line_rec.ordered_quantity = FND_API.G_MISS_NUM)) THEN
9368:
9369: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_QUANTITY');
9370: OE_MSG_PUB.Add;
9371: IF l_debug_level > 0 THEN
9370: OE_MSG_PUB.Add;
9371: IF l_debug_level > 0 THEN
9372: oe_debug_pub.add( 'E1' , 1 ) ;
9373: END IF;
9374: x_return_status := FND_API.G_RET_STS_ERROR;
9375: END IF;
9376:
9377: -- If the quantity on the line is zero(which is different from
9378: -- missing) and if the user is trying to performing scheduling,
9378: -- missing) and if the user is trying to performing scheduling,
9379: -- it is an error
9380:
9381: IF (((p_old_line_rec.ordered_quantity is null OR
9382: p_old_line_rec.ordered_quantity = FND_API.G_MISS_NUM OR
9383: p_old_line_rec.ordered_quantity = 0) AND
9384: p_line_rec.ordered_quantity = 0) AND
9385: (nvl(p_line_rec.cancelled_flag,'N') = 'N')) THEN
9386:
9392:
9393: IF l_debug_level > 0 THEN
9394: oe_debug_pub.add( 'E2' , 1 ) ;
9395: END IF;
9396: x_return_status := FND_API.G_RET_STS_ERROR;
9397: END IF;
9398:
9399:
9400: END IF;
9417:
9418: IF l_debug_level > 0 THEN
9419: oe_debug_pub.add( 'E3' , 1 ) ;
9420: END IF;
9421: x_return_status := FND_API.G_RET_STS_ERROR;
9422:
9423: END IF;
9424: END IF;
9425:
9428: IF l_debug_level > 0 THEN
9429: oe_debug_pub.add( 'BEFORE SHIPPIED QTY CHECK ' || X_RETURN_STATUS , 2 ) ;
9430: END IF;
9431: IF (p_line_rec.shipped_quantity is not null) AND
9432: (p_line_rec.shipped_quantity <> FND_API.G_MISS_NUM) THEN
9433:
9434: IF p_sch_action is not null THEN
9435:
9436: -- The line is cancelled. Cannot perform scheduling
9441:
9442: IF l_debug_level > 0 THEN
9443: oe_debug_pub.add( 'E4' , 1 ) ;
9444: END IF;
9445: x_return_status := FND_API.G_RET_STS_ERROR;
9446:
9447: END IF;
9448: END IF;
9449: IF l_debug_level > 0 THEN
9450: oe_debug_pub.add( 'BEFORE FULFILLED QTY CHECK ' || X_RETURN_STATUS , 2 ) ;
9451: END IF;
9452: --Added for bug 6873122
9453: IF (p_line_rec.fulfilled_quantity is not null) AND
9454: (p_line_rec.fulfilled_quantity <> FND_API.G_MISS_NUM) THEN
9455:
9456: IF p_sch_action is not null THEN
9457:
9458: -- The line is Fulfilled. Cannot perform scheduling
9463:
9464: IF l_debug_level > 0 THEN
9465: oe_debug_pub.add( 'E4.1' , 1 ) ;
9466: END IF;
9467: x_return_status := FND_API.G_RET_STS_ERROR;
9468:
9469: END IF;
9470: END IF;
9471: --Added for bug 6873122
9488:
9489: IF l_debug_level > 0 THEN
9490: oe_debug_pub.add( 'E5' , 1 ) ;
9491: END IF;
9492: x_return_status := FND_API.G_RET_STS_ERROR;
9493: END IF;
9494:
9495: -- after changing reserved qty, trying to unschedule or unreserve
9496: -- dose not make sense.
9499: (p_line_rec.reserved_quantity is not null) THEN
9500:
9501: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_QTY_CHG_NOT_ALLOWED');
9502: OE_MSG_PUB.Add;
9503: x_return_status := FND_API.G_RET_STS_ERROR;
9504: IF l_debug_level > 0 THEN
9505: oe_debug_pub.add( 'E6' , 1 ) ;
9506: END IF;
9507: END IF;
9519:
9520: IF l_debug_level > 0 THEN
9521: oe_debug_pub.add( 'E5a' , 1 ) ;
9522: END IF;
9523: x_return_status := FND_API.G_RET_STS_ERROR;
9524: END IF;
9525:
9526: -- after changing reserved qty, trying to unschedule or unreserve
9527: -- dose not make sense.
9530: (p_line_rec.reserved_quantity2 is not null) THEN
9531:
9532: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_QTY_CHG_NOT_ALLOWED');
9533: OE_MSG_PUB.Add;
9534: x_return_status := FND_API.G_RET_STS_ERROR;
9535: IF l_debug_level > 0 THEN
9536: oe_debug_pub.add( 'E6A' , 1 ) ;
9537: END IF;
9538: END IF;
9557:
9558: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
9559: OE_MSG_PUB.Add;
9560:
9561: x_return_status := FND_API.G_RET_STS_ERROR;
9562: IF l_debug_level > 0 THEN
9563: oe_debug_pub.add( 'E7' , 1 ) ;
9564: END IF;
9565: END IF;
9578:
9579: FND_MESSAGE.SET_NAME('ONT','OE_SCH_RES_MORE_ORD_QTY');
9580: OE_MSG_PUB.Add;
9581:
9582: x_return_status := FND_API.G_RET_STS_ERROR;
9583: IF l_debug_level > 0 THEN
9584: oe_debug_pub.add( 'E7A' , 1 ) ;
9585: END IF;
9586: END IF;
9592: -- and if the user is trying to performing scheduling,
9593: -- it is an error
9594:
9595: IF (p_line_rec.order_quantity_uom is null OR
9596: p_line_rec.order_quantity_uom = FND_API.G_MISS_CHAR) THEN
9597:
9598: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_UOM');
9599: OE_MSG_PUB.Add;
9600:
9597:
9598: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_UOM');
9599: OE_MSG_PUB.Add;
9600:
9601: x_return_status := FND_API.G_RET_STS_ERROR;
9602: IF l_debug_level > 0 THEN
9603: oe_debug_pub.add( 'E8' , 1 ) ;
9604: END IF;
9605: END IF;
9611: oe_debug_pub.add( 'CHECKING THE ITEM....' , 1 ) ;
9612: END IF;
9613:
9614: IF (p_line_rec.inventory_item_id is null OR
9615: p_line_rec.inventory_item_id = FND_API.G_MISS_NUM) THEN
9616:
9617: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_ITEM');
9618: OE_MSG_PUB.Add;
9619:
9619:
9620: IF l_debug_level > 0 THEN
9621: oe_debug_pub.add( 'E9' , 1 ) ;
9622: END IF;
9623: x_return_status := FND_API.G_RET_STS_ERROR;
9624: END IF;
9625:
9626: -- If the request_date on the line is missing or null and
9627: -- if the user is trying to performing scheduling,
9630: IF l_debug_level > 0 THEN
9631: oe_debug_pub.add( 'CHECKING THE REQUEST DATE....' , 1 ) ;
9632: END IF;
9633: IF (p_line_rec.request_date is null OR
9634: p_line_rec.request_date = FND_API.G_MISS_DATE) THEN
9635:
9636: FND_MESSAGE.SET_NAME('ONT','OE_SCH_MISSING_REQUEST_DATE');
9637: OE_MSG_PUB.Add;
9638: IF l_debug_level > 0 THEN
9637: OE_MSG_PUB.Add;
9638: IF l_debug_level > 0 THEN
9639: oe_debug_pub.add( 'E10' , 1 ) ;
9640: END IF;
9641: x_return_status := FND_API.G_RET_STS_ERROR;
9642: END IF;
9643: -- 3763015
9644: IF NVL(fnd_profile.value('ONT_BYPASS_ATP'),'N') = 'Y' THEN
9645:
9647: IF l_debug_level > 0 THEN
9648: oe_debug_pub.add( 'CHECKING THAT LINE HAS A WAREHOUSE...' , 1 ) ;
9649: END IF;
9650: IF (p_line_rec.ship_from_org_id is null OR
9651: p_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
9652: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_BYPASS_MISS_WSH');
9653: OE_MSG_PUB.Add;
9654:
9655: IF l_debug_level > 0 THEN
9654:
9655: IF l_debug_level > 0 THEN
9656: oe_debug_pub.add( 'ERROR BYPASS' , 1 ) ;
9657: END IF;
9658: x_return_status := FND_API.G_RET_STS_ERROR;
9659: END IF;
9660: END IF;
9661:
9662: -- If the line belongs to a set, you cannot unschedule the line
9663: IF l_debug_level > 0 THEN
9664: oe_debug_pub.add( 'CHECKING FOR SET VALIDATIONS....' , 1 ) ;
9665: END IF;
9666: IF ((p_line_rec.ship_set_id is not null AND
9667: p_line_rec.ship_set_id <> FND_API.G_MISS_NUM) OR
9668: (p_line_rec.arrival_set_id is not null AND
9669: p_line_rec.arrival_set_id <> FND_API.G_MISS_NUM)) AND
9670: (p_sch_action = OESCH_ACT_UNDEMAND OR
9671: p_sch_action = OESCH_ACT_UNSCHEDULE)
9665: END IF;
9666: IF ((p_line_rec.ship_set_id is not null AND
9667: p_line_rec.ship_set_id <> FND_API.G_MISS_NUM) OR
9668: (p_line_rec.arrival_set_id is not null AND
9669: p_line_rec.arrival_set_id <> FND_API.G_MISS_NUM)) AND
9670: (p_sch_action = OESCH_ACT_UNDEMAND OR
9671: p_sch_action = OESCH_ACT_UNSCHEDULE)
9672: THEN
9673:
9675: OE_MSG_PUB.Add;
9676: IF l_debug_level > 0 THEN
9677: oe_debug_pub.add( 'E11' , 1 ) ;
9678: END IF;
9679: x_return_status := FND_API.G_RET_STS_ERROR;
9680: END IF;
9681:
9682:
9683: -- Bug 2434132.
9707: END IF;
9708:
9709: OE_Holds_PUB.Check_Holds
9710: ( p_api_version => 1.0
9711: , p_init_msg_list => FND_API.G_FALSE
9712: , p_commit => FND_API.G_FALSE
9713: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
9714: , x_return_status => l_out_return_status
9715: , x_msg_count => l_msg_count
9708:
9709: OE_Holds_PUB.Check_Holds
9710: ( p_api_version => 1.0
9711: , p_init_msg_list => FND_API.G_FALSE
9712: , p_commit => FND_API.G_FALSE
9713: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
9714: , x_return_status => l_out_return_status
9715: , x_msg_count => l_msg_count
9716: , x_msg_data => l_msg_data
9709: OE_Holds_PUB.Check_Holds
9710: ( p_api_version => 1.0
9711: , p_init_msg_list => FND_API.G_FALSE
9712: , p_commit => FND_API.G_FALSE
9713: , p_validation_level => FND_API.G_VALID_LEVEL_FULL
9714: , x_return_status => l_out_return_status
9715: , x_msg_count => l_msg_count
9716: , x_msg_data => l_msg_data
9717: , p_line_id => p_line_rec.line_id
9726: oe_debug_pub.add( 'AFTER CALLING CHECK HOLDS: ' || L_OUT_RETURN_STATUS , 1 ) ;
9727: END IF;
9728:
9729:
9730: IF (l_out_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9731: IF l_out_return_status = FND_API.G_RET_STS_ERROR THEN
9732: RAISE FND_API.G_EXC_ERROR;
9733: ELSE
9734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9727: END IF;
9728:
9729:
9730: IF (l_out_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9731: IF l_out_return_status = FND_API.G_RET_STS_ERROR THEN
9732: RAISE FND_API.G_EXC_ERROR;
9733: ELSE
9734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9735: END IF;
9728:
9729:
9730: IF (l_out_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9731: IF l_out_return_status = FND_API.G_RET_STS_ERROR THEN
9732: RAISE FND_API.G_EXC_ERROR;
9733: ELSE
9734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9735: END IF;
9736: END IF;
9730: IF (l_out_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
9731: IF l_out_return_status = FND_API.G_RET_STS_ERROR THEN
9732: RAISE FND_API.G_EXC_ERROR;
9733: ELSE
9734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9735: END IF;
9736: END IF;
9737:
9738: IF (l_result = FND_API.G_TRUE) THEN
9734: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9735: END IF;
9736: END IF;
9737:
9738: IF (l_result = FND_API.G_TRUE) THEN
9739: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_ON_HOLD');
9740: OE_MSG_PUB.Add;
9741: x_return_status := FND_API.G_RET_STS_ERROR;
9742: END IF;
9737:
9738: IF (l_result = FND_API.G_TRUE) THEN
9739: FND_MESSAGE.SET_NAME('ONT','OE_SCH_LINE_ON_HOLD');
9740: OE_MSG_PUB.Add;
9741: x_return_status := FND_API.G_RET_STS_ERROR;
9742: END IF;
9743:
9744: END IF;
9745:
9771: IF l_debug_level > 0 THEN
9772: oe_debug_pub.add( 'CHECKING THAT LINE HAS A WAREHOUSE...' , 1 ) ;
9773: END IF;
9774: IF (p_line_rec.ship_from_org_id is null OR
9775: p_line_rec.ship_from_org_id = FND_API.G_MISS_NUM) THEN
9776: FND_MESSAGE.SET_NAME('ONT','OE_SCH_INACTIVE_MISS_WSH');
9777: FND_MESSAGE.SET_TOKEN('LTYPE',
9778: nvl(sch_cached_line_type,'0'));
9779: OE_MSG_PUB.Add;
9780:
9781: IF l_debug_level > 0 THEN
9782: oe_debug_pub.add( 'E11.1' , 1 ) ;
9783: END IF;
9784: x_return_status := FND_API.G_RET_STS_ERROR;
9785: END IF;
9786:
9787: -- An item with this schedling level MUST be a Standard
9788: -- Item, and NOT be a part of an ATO
9799:
9800: IF l_debug_level > 0 THEN
9801: oe_debug_pub.add( 'E11.2' , 1 ) ;
9802: END IF;
9803: X_return_status := FND_API.G_RET_STS_ERROR;
9804: END IF;
9805:
9806: -- An item with this scheduling level MUST NOT be part
9807: -- of ANY set
9820:
9821: IF l_debug_level > 0 THEN
9822: oe_debug_pub.add( 'E11.3' , 1 ) ;
9823: END IF;
9824: X_return_status := FND_API.G_RET_STS_ERROR;
9825: END IF;
9826: */
9827: END IF;
9828: -- END 1955004
9847: OE_MSG_PUB.Add;
9848: IF l_debug_level > 0 THEN
9849: oe_debug_pub.add( 'E12' , 1 ) ;
9850: END IF;
9851: x_return_status := FND_API.G_RET_STS_ERROR;
9852: END IF;
9853: ELSE
9854: IF l_scheduling_level_code = SCH_LEVEL_TWO OR
9855: -- BUG 1955004
9869: OE_MSG_PUB.Add;
9870: IF l_debug_level > 0 THEN
9871: oe_debug_pub.add( 'E13' , 1 ) ;
9872: END IF;
9873: x_return_status := FND_API.G_RET_STS_ERROR;
9874: END IF;
9875: END IF;
9876: --BUG 1955004
9877: -- 3763015
9888: OE_MSG_PUB.Add;
9889: IF l_debug_level > 0 THEN
9890: oe_debug_pub.add( 'E13.1' , 1 ) ;
9891: END IF;
9892: X_return_status := FND_API.G_RET_STS_ERROR;
9893: END IF;
9894: END IF;
9895: --END 1955004
9896: END IF;
9914: OE_MSG_PUB.Add;
9915: IF l_debug_level > 0 THEN
9916: oe_debug_pub.add( 'E14' , 1 ) ;
9917: END IF;
9918: x_return_status := FND_API.G_RET_STS_ERROR;
9919:
9920: END IF;
9921:
9922: -- following 2 checks are only for ato's
9943: OE_MSG_PUB.Add;
9944: IF l_debug_level > 0 THEN
9945: oe_debug_pub.add( 'E15' , 1 ) ;
9946: END IF;
9947: x_return_status := FND_API.G_RET_STS_ERROR;
9948:
9949: END IF;
9950: END IF; -- Gop code level
9951: IF (p_sch_action = OE_SCHEDULE_UTIL.OESCH_ACT_RESERVE
9960: END IF;
9961: -- code fix for 3300528
9962: -- no need for returning error in this case
9963: --IF nvl(p_line_rec.ship_model_complete_flag,'N') = 'N' THEN
9964: -- x_return_status := FND_API.G_RET_STS_ERROR;
9965: --END IF;
9966: -- code fix for 3300528
9967: END IF;
9968: /* 4171389: Reservations cannot be placed for config items if order
9976: OE_MSG_PUB.Add;
9977: IF l_debug_level > 0 THEN
9978: oe_debug_pub.add( 'E16.0' , 1 );
9979: END IF;
9980: x_return_status := FND_API.G_RET_STS_ERROR;
9981: END IF;
9982: -- code fix for 3300528
9983: -- a message has to be given when the user tries to reserve PTO models and classes
9984: ELSIF nvl(p_line_rec.shippable_flag,'N') = 'N'
10055: FND_MESSAGE.SET_TOKEN('ORG',l_org_code);
10056: -- Bug 2367743 End
10057:
10058: OE_MSG_PUB.Add;
10059: x_return_status := FND_API.G_RET_STS_ERROR;
10060:
10061: WHEN OTHERS THEN
10062: Null;
10063: END;
10076: -- Added code here to fix bug 2038201.
10077: oe_debug_pub.add('E18',1);
10078: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNRSV_NOT_ALLOWED');
10079: OE_MSG_PUB.Add;
10080: x_return_status := FND_API.G_RET_STS_ERROR;
10081:
10082: END IF;
10083: */
10084: IF (p_sch_action = OESCH_ACT_UNSCHEDULE)
10107: oe_debug_pub.add( 'E19' , 1 ) ;
10108: END IF;
10109: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNSCH_CONFIG_EXISTS');
10110: OE_MSG_PUB.Add;
10111: x_return_status := FND_API.G_RET_STS_ERROR;
10112:
10113: EXCEPTION
10114: WHEN NO_DATA_FOUND THEN
10115: null;
10118: oe_debug_pub.add( 'E19 TOO MANY ROWS' , 1 ) ;
10119: END IF;
10120: FND_MESSAGE.SET_NAME('ONT','OE_SCH_UNSCH_CONFIG_EXISTS');
10121: OE_MSG_PUB.Add;
10122: x_return_status := FND_API.G_RET_STS_ERROR;
10123:
10124: END;
10125:
10126: END IF; /* If action was unschedule */
10144: FND_MESSAGE.SET_NAME('ONT','OE_SCH_INV_SHP_DATE');
10145: OE_MSG_PUB.Add;
10146:
10147: OE_DEBUG_PUB.Add('E20 Order date Type - Arrival');
10148: x_return_status := FND_API.G_RET_STS_ERROR;
10149:
10150: END IF;
10151:
10152:
10169: OE_MSG_PUB.Add;
10170:
10171: OE_DEBUG_PUB.Add('E21 Order date Type - Ship');
10172:
10173: x_return_status := FND_API.G_RET_STS_ERROR;
10174:
10175: END IF;
10176: END IF;
10177:
10200: END IF;
10201: IF l_debug_level > 0 THEN
10202: oe_debug_pub.add( 'USER DOES NOT HAVE AUTHORITY TO CHANGE THE OVERRIDE ATP FIELD' , 1 ) ;
10203: END IF;
10204: x_return_status := FND_API.G_RET_STS_ERROR;
10205:
10206: END IF;
10207:
10208:
10221: OE_MSG_PUB.Add;
10222: IF l_debug_level > 0 THEN
10223: oe_debug_pub.add( 'E23 USER DOES NOT HAVE AUTHORITY TO UPDATE SCHEDULE ATTRIBUTES' , 1 ) ;
10224: END IF;
10225: X_return_status := FND_API.G_RET_STS_ERROR;
10226:
10227: END IF;
10228:
10229: IF NVL(p_line_rec.override_atp_date_code, 'N') = 'Y' AND
10234: OE_MSG_PUB.Add;
10235: IF l_debug_level > 0 THEN
10236: oe_debug_pub.add( 'E24 GENERAL USER CANNOT UNSCHEDULE AN OVERRIDDEN LINE' , 1 ) ;
10237: END IF;
10238: X_return_status := FND_API.G_RET_STS_ERROR;
10239:
10240: END IF;
10241: -- Start 2746497
10242: IF NVL(p_line_rec.override_atp_date_code, 'N') = 'N' AND
10257: END;
10258: IF l_found = 'Y' THEN
10259: FND_MESSAGE.SET_NAME('ONT', 'OE_SCH_OVER_ATP_NO_AUTH_MOD');
10260: OE_MSG_PUB.Add;
10261: X_return_status := FND_API.G_RET_STS_ERROR;
10262: END IF;
10263: END IF;
10264: -- End 2746497
10265:
10290: OE_MSG_PUB.Add;
10291: IF l_debug_level > 0 THEN
10292: oe_debug_pub.add( 'E25 USER DOES NOT HAVE AUTHORITY TO UPDATE SCHEDULE ATTRIBUTES ON A SET WITH AN OVERRIDDEN LINE' , 1 ) ;
10293: END IF;
10294: X_return_status := FND_API.G_RET_STS_ERROR;
10295:
10296: END IF; -- l_override > 0
10297: END IF; -- ship and arrival not null
10298: END IF; -- schedule_status_code IS NOT NULL
10332: OE_MSG_PUB.Add;
10333: IF l_debug_level > 0 THEN
10334: oe_debug_pub.add( 'E26 UNABLE TO ADD THE LINE TO THE SET' , 1 ) ;
10335: END IF;
10336: x_return_status := FND_API.G_RET_STS_ERROR;
10337:
10338: -- 2716220
10339: ELSIF p_line_rec.ship_set_id is not null
10340: -- AND p_line_rec.schedule_status_code is not null THEN
10380: -- END IF;
10381: IF l_debug_level > 0 THEN
10382: oe_debug_pub.add( 'E27 UNABLE TO ADD THE line TO THE SET' , 1 ) ;
10383: END IF;
10384: x_return_status := FND_API.G_RET_STS_ERROR;
10385: END IF;
10386:
10387: END IF; -- override
10388:
10401: OE_MSG_PUB.Add;
10402: IF l_debug_level > 0 THEN
10403: oe_debug_pub.add( 'E28 UNABLE TO ADD THE Model TO THE SET' , 1 ) ;
10404: END IF;
10405: x_return_status := FND_API.G_RET_STS_ERROR;
10406:
10407: END IF; -- valid
10408: END IF; -- top model
10409: END IF; -- ship set.
10435: oe_debug_pub.add ('E29 Request date exceeds Latest Acceptable Date',1);
10436: END IF;
10437: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_REQUEST_EXCEED_LAD');
10438: OE_MSG_PUB.Add;
10439: x_return_status := FND_API.G_RET_STS_ERROR;
10440: ELSIF ((l_order_date_type_code = 'SHIP'
10441: AND trunc(NVL(p_line_rec.schedule_ship_date,p_line_rec.request_date))
10442: > trunc(NVL(p_line_rec.latest_acceptable_date,p_line_rec.request_date)))
10443: OR (l_order_date_type_code = 'ARRIVAL'
10447: oe_debug_pub.add('E30 Schedule date exceeds Latest Acceptable Date',1);
10448: END IF;
10449: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_LAD_SCH_FAILED');
10450: OE_MSG_PUB.Add;
10451: x_return_status := FND_API.G_RET_STS_ERROR;
10452: END IF;
10453: -- 3894212
10454: IF ((p_line_rec.ship_set_id IS NOT NULL AND
10455: NOT oe_globals.equal(p_line_rec.ship_set_id,
10473: oe_debug_pub.add('E30.1 Schedule date exceeds Latest Acceptable Date',1);
10474: END IF;
10475: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_LAD_SCH_FAILED');
10476: OE_MSG_PUB.Add;
10477: x_return_status := FND_API.G_RET_STS_ERROR;
10478: END IF;
10479: END IF;
10480: --
10481: END IF;
10519: oe_debug_pub.add('E31 Reservation(s) cannot be created. The line has been pick confirmed/staged',1);
10520: END IF;
10521: FND_MESSAGE.SET_NAME('ONT','ONT_SCH_RSV_FAILURE_STAGED');
10522: OE_MSG_PUB.Add;
10523: x_return_status := FND_API.G_RET_STS_ERROR;
10524: END IF;
10525: END IF;
10526:
10527: IF l_debug_level > 0 THEN
10529: END IF;
10530:
10531:
10532: EXCEPTION
10533: WHEN FND_API.G_EXC_ERROR THEN
10534:
10535: x_return_status := FND_API.G_RET_STS_ERROR;
10536:
10537: WHEN OTHERS THEN
10531:
10532: EXCEPTION
10533: WHEN FND_API.G_EXC_ERROR THEN
10534:
10535: x_return_status := FND_API.G_RET_STS_ERROR;
10536:
10537: WHEN OTHERS THEN
10538:
10539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10535: x_return_status := FND_API.G_RET_STS_ERROR;
10536:
10537: WHEN OTHERS THEN
10538:
10539: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10540:
10541: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10542: THEN
10543: OE_MSG_PUB.Add_Exc_Msg
10562: p_sch_action IN VARCHAR2,
10563: x_return_status OUT NOCOPY VARCHAR2)
10564:
10565: IS
10566: l_update_flag VARCHAR2(1):= FND_API.G_TRUE;
10567: l_orig_line_rec OE_ORDER_PUB.line_rec_type;
10568: l_reserve_later VARCHAR2(1) := 'N';
10569: l_qty_to_reserve NUMBER;
10570: l_qty2_to_reserve NUMBER; -- INVCONV
10570: l_qty2_to_reserve NUMBER; -- INVCONV
10571: --
10572: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
10573: --
10574: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS; --Bug 5343902
10575: BEGIN
10576:
10577: IF l_debug_level > 0 THEN
10578: oe_debug_pub.add( 'ENTERING OE_SCHEDULE_UTIL.PROCESS_REQUEST' , 1 ) ;
10583:
10584: -- need to retain orig record to call process order.
10585:
10586: l_orig_line_rec := p_x_line_rec;
10587: x_return_status := FND_API.G_RET_STS_SUCCESS;
10588:
10589: IF p_sch_action = OESCH_ACT_SCHEDULE THEN
10590:
10591: -- Based on the p_sch_action and schedule_status_code call action_schedule.
10614: l_return_status := OE_CONFIG_UTIL.Process_Included_Items
10615: (p_line_id => p_x_line_rec.line_id,
10616: p_freeze => FALSE);
10617:
10618: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10620: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10621: RAISE FND_API.G_EXC_ERROR;
10622: END IF;
10615: (p_line_id => p_x_line_rec.line_id,
10616: p_freeze => FALSE);
10617:
10618: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10620: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10621: RAISE FND_API.G_EXC_ERROR;
10622: END IF;
10623:
10616: p_freeze => FALSE);
10617:
10618: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10620: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10621: RAISE FND_API.G_EXC_ERROR;
10622: END IF;
10623:
10624: oe_debug_pub.add('After calling Process_Included_Items', 5);
10617:
10618: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10619: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10620: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
10621: RAISE FND_API.G_EXC_ERROR;
10622: END IF;
10623:
10624: oe_debug_pub.add('After calling Process_Included_Items', 5);
10625: END IF;
10634: IF l_debug_level > 0 THEN
10635: oe_debug_pub.add( 'AFTER ACTION SCHEDULE : ' || X_RETURN_STATUS , 1 ) ;
10636: END IF;
10637:
10638: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10640: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10641:
10642: /* Added two extra conditions in the following if condition to fix the Bug 2894100 */
10635: oe_debug_pub.add( 'AFTER ACTION SCHEDULE : ' || X_RETURN_STATUS , 1 ) ;
10636: END IF;
10637:
10638: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10640: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10641:
10642: /* Added two extra conditions in the following if condition to fix the Bug 2894100 */
10643:
10636: END IF;
10637:
10638: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10639: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10640: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10641:
10642: /* Added two extra conditions in the following if condition to fix the Bug 2894100 */
10643:
10644: IF OESCH_AUTO_SCH_FLAG = 'Y'
10653: -- We donot want to error out the insert if autoscheduling
10654: -- failed. So we will return success. We also do not want to
10655: -- do any update, so we will set the l_update_flag to FALSE.
10656:
10657: l_update_flag := FND_API.G_FALSE;
10658: x_return_status := FND_API.G_RET_STS_SUCCESS;
10659:
10660: ELSE
10661:
10654: -- failed. So we will return success. We also do not want to
10655: -- do any update, so we will set the l_update_flag to FALSE.
10656:
10657: l_update_flag := FND_API.G_FALSE;
10658: x_return_status := FND_API.G_RET_STS_SUCCESS;
10659:
10660: ELSE
10661:
10662: RAISE FND_API.G_EXC_ERROR;
10658: x_return_status := FND_API.G_RET_STS_SUCCESS;
10659:
10660: ELSE
10661:
10662: RAISE FND_API.G_EXC_ERROR;
10663:
10664: END IF;
10665: END IF;
10666:
10675: Action_UnSchedule(p_x_line_rec => p_x_line_rec,
10676: p_old_line_rec => p_old_line_rec,
10677: p_sch_action => OESCH_ACT_UNSCHEDULE,
10678: x_return_status => x_return_status);
10679: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10681: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10682: RAISE FND_API.G_EXC_ERROR;
10683: END IF;
10676: p_old_line_rec => p_old_line_rec,
10677: p_sch_action => OESCH_ACT_UNSCHEDULE,
10678: x_return_status => x_return_status);
10679: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10681: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10682: RAISE FND_API.G_EXC_ERROR;
10683: END IF;
10684: ELSE
10677: p_sch_action => OESCH_ACT_UNSCHEDULE,
10678: x_return_status => x_return_status);
10679: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10681: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10682: RAISE FND_API.G_EXC_ERROR;
10683: END IF;
10684: ELSE
10685: Action_Reschedule(p_x_line_rec => p_x_line_rec,
10678: x_return_status => x_return_status);
10679: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10680: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10681: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10682: RAISE FND_API.G_EXC_ERROR;
10683: END IF;
10684: ELSE
10685: Action_Reschedule(p_x_line_rec => p_x_line_rec,
10686: p_old_line_rec => p_old_line_rec,
10686: p_old_line_rec => p_old_line_rec,
10687: x_return_status => x_return_status,
10688: x_reserve_later => l_reserve_later);
10689:
10690: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10692: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10693: RAISE FND_API.G_EXC_ERROR;
10694: END IF;
10687: x_return_status => x_return_status,
10688: x_reserve_later => l_reserve_later);
10689:
10690: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10692: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10693: RAISE FND_API.G_EXC_ERROR;
10694: END IF;
10695: END IF;
10688: x_reserve_later => l_reserve_later);
10689:
10690: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10692: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10693: RAISE FND_API.G_EXC_ERROR;
10694: END IF;
10695: END IF;
10696:
10689:
10690: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10691: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10692: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10693: RAISE FND_API.G_EXC_ERROR;
10694: END IF;
10695: END IF;
10696:
10697: ELSIF p_sch_action = OESCH_ACT_RESERVE THEN
10705: p_sch_action => OESCH_ACT_RESERVE,
10706: p_qty_to_reserve => p_x_line_rec.reserved_quantity,
10707: x_return_status => x_return_status);
10708:
10709: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10711: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10712: RAISE FND_API.G_EXC_ERROR;
10713: END IF;
10706: p_qty_to_reserve => p_x_line_rec.reserved_quantity,
10707: x_return_status => x_return_status);
10708:
10709: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10711: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10712: RAISE FND_API.G_EXC_ERROR;
10713: END IF;
10714:
10707: x_return_status => x_return_status);
10708:
10709: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10711: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10712: RAISE FND_API.G_EXC_ERROR;
10713: END IF;
10714:
10715: ELSE
10708:
10709: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10711: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10712: RAISE FND_API.G_EXC_ERROR;
10713: END IF;
10714:
10715: ELSE
10716:
10717: Action_reserve(p_x_line_rec => p_x_line_rec,
10718: p_old_line_rec => p_old_line_rec,
10719: x_return_status => x_return_status);
10720:
10721: l_update_flag := FND_API.G_FALSE;
10722:
10723: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10725: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10719: x_return_status => x_return_status);
10720:
10721: l_update_flag := FND_API.G_FALSE;
10722:
10723: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10725: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10726: RAISE FND_API.G_EXC_ERROR;
10727: END IF;
10720:
10721: l_update_flag := FND_API.G_FALSE;
10722:
10723: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10725: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10726: RAISE FND_API.G_EXC_ERROR;
10727: END IF;
10728:
10721: l_update_flag := FND_API.G_FALSE;
10722:
10723: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10725: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10726: RAISE FND_API.G_EXC_ERROR;
10727: END IF;
10728:
10729:
10722:
10723: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10725: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10726: RAISE FND_API.G_EXC_ERROR;
10727: END IF;
10728:
10729:
10730: END IF;
10736: -- Setting update flag to false, so that schedule_line does not
10737: -- process_order as unreserving does not cause any line attributes
10738: -- to change.
10739:
10740: l_update_flag := FND_API.G_FALSE;
10741:
10742: -- We should never use this action unless the
10743: -- old_status is reserved .
10744:
10742: -- We should never use this action unless the
10743: -- old_status is reserved .
10744:
10745: IF (p_old_line_rec.reserved_quantity is not null AND
10746: p_old_line_rec.reserved_quantity <> FND_API.G_MISS_NUM)
10747: THEN
10748: -- shipping_interfaced_flag
10749: Unreserve_Line
10750: (p_line_rec => p_old_line_rec,
10751: p_quantity_to_unreserve => p_old_line_rec.reserved_quantity,
10752: p_quantity2_to_unreserve => p_old_line_rec.reserved_quantity2, -- INVCONV
10753: x_return_status => x_return_status);
10754:
10755: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10757: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10758: RAISE FND_API.G_EXC_ERROR;
10759: END IF;
10752: p_quantity2_to_unreserve => p_old_line_rec.reserved_quantity2, -- INVCONV
10753: x_return_status => x_return_status);
10754:
10755: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10757: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10758: RAISE FND_API.G_EXC_ERROR;
10759: END IF;
10760:
10753: x_return_status => x_return_status);
10754:
10755: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10757: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10758: RAISE FND_API.G_EXC_ERROR;
10759: END IF;
10760:
10761: ELSE
10754:
10755: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10756: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10757: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10758: RAISE FND_API.G_EXC_ERROR;
10759: END IF;
10760:
10761: ELSE
10762: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
10760:
10761: ELSE
10762: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
10763: OE_MSG_PUB.Add;
10764: l_update_flag := FND_API.G_FALSE;
10765: END IF;
10766:
10767:
10768: -- schedule_action_code --> OESCH_ACT_UNDEMAND
10775: p_old_line_rec => p_old_line_rec,
10776: p_sch_action => OESCH_ACT_UNDEMAND,
10777: x_return_status => x_return_status);
10778:
10779: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10781: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10782: RAISE FND_API.G_EXC_ERROR;
10783: END IF;
10776: p_sch_action => OESCH_ACT_UNDEMAND,
10777: x_return_status => x_return_status);
10778:
10779: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10781: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10782: RAISE FND_API.G_EXC_ERROR;
10783: END IF;
10784:
10777: x_return_status => x_return_status);
10778:
10779: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10781: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10782: RAISE FND_API.G_EXC_ERROR;
10783: END IF;
10784:
10785: ELSE
10778:
10779: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10780: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10781: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10782: RAISE FND_API.G_EXC_ERROR;
10783: END IF;
10784:
10785: ELSE
10786: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
10784:
10785: ELSE
10786: FND_MESSAGE.SET_NAME('ONT','OE_SCH_NO_ACTION_DONE_NO_EXP');
10787: OE_MSG_PUB.Add;
10788: l_update_flag := FND_API.G_FALSE;
10789: END IF;
10790:
10791: ELSIF p_sch_action = OESCH_ACT_UNSCHEDULE THEN
10792: -- When action is passed as unschedule.
10798: p_old_line_rec => p_old_line_rec,
10799: p_sch_action => OESCH_ACT_UNSCHEDULE,
10800: x_return_status => x_return_status);
10801:
10802: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10804: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10805: RAISE FND_API.G_EXC_ERROR;
10806: END IF;
10799: p_sch_action => OESCH_ACT_UNSCHEDULE,
10800: x_return_status => x_return_status);
10801:
10802: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10804: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10805: RAISE FND_API.G_EXC_ERROR;
10806: END IF;
10807:
10800: x_return_status => x_return_status);
10801:
10802: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10804: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10805: RAISE FND_API.G_EXC_ERROR;
10806: END IF;
10807:
10808: END IF; -- Main If.
10801:
10802: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10803: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10804: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10805: RAISE FND_API.G_EXC_ERROR;
10806: END IF;
10807:
10808: END IF; -- Main If.
10809:
10806: END IF;
10807:
10808: END IF; -- Main If.
10809:
10810: IF l_update_flag = FND_API.G_TRUE
10811: THEN
10812: /*
10813: Call_Process_Order(p_old_line_rec => p_old_line_rec,
10814: p_x_line_rec => p_x_line_rec,
10825: IF l_debug_level > 0 THEN
10826: oe_debug_pub.add( 'AFTER CALLING CALL_PROCESS_ORDER :' || X_RETURN_STATUS , 1 ) ;
10827: END IF;
10828:
10829: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10831: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10832: RAISE FND_API.G_EXC_ERROR;
10833: END IF;
10826: oe_debug_pub.add( 'AFTER CALLING CALL_PROCESS_ORDER :' || X_RETURN_STATUS , 1 ) ;
10827: END IF;
10828:
10829: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10831: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10832: RAISE FND_API.G_EXC_ERROR;
10833: END IF;
10834:
10827: END IF;
10828:
10829: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10831: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10832: RAISE FND_API.G_EXC_ERROR;
10833: END IF;
10834:
10835: IF l_reserve_later = 'Y' THEN
10828:
10829: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10830: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10831: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
10832: RAISE FND_API.G_EXC_ERROR;
10833: END IF;
10834:
10835: IF l_reserve_later = 'Y' THEN
10836: IF l_debug_level > 0 THEN
10903: END IF;
10904:
10905:
10906: EXCEPTION
10907: WHEN FND_API.G_EXC_ERROR THEN
10908: x_return_status := FND_API.G_RET_STS_ERROR;
10909:
10910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10904:
10905:
10906: EXCEPTION
10907: WHEN FND_API.G_EXC_ERROR THEN
10908: x_return_status := FND_API.G_RET_STS_ERROR;
10909:
10910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10912:
10906: EXCEPTION
10907: WHEN FND_API.G_EXC_ERROR THEN
10908: x_return_status := FND_API.G_RET_STS_ERROR;
10909:
10910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10912:
10913: WHEN OTHERS THEN
10914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10907: WHEN FND_API.G_EXC_ERROR THEN
10908: x_return_status := FND_API.G_RET_STS_ERROR;
10909:
10910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10912:
10913: WHEN OTHERS THEN
10914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10915:
10910: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10911: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10912:
10913: WHEN OTHERS THEN
10914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
10915:
10916: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
10917: THEN
10918: OE_MSG_PUB.Add_Exc_Msg
11065: IF l_debug_level > 0 THEN
11066: oe_debug_pub.add( 'ENTERING GET_ORDER_NUMBER: ' || P_HEADER_ID , 1 ) ;
11067: END IF;
11068:
11069: IF p_header_id is not null AND p_header_id <> FND_API.G_MISS_NUM
11070: THEN
11071: BEGIN
11072: select order_number
11073: into l_order_number
11172: oe_schedule_util.sch_cached_mtl_order_type_id := l_order_type_id;
11173: --End Bug#6719001
11174: EXCEPTION
11175: WHEN NO_DATA_FOUND THEN
11176: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11177: END;
11178: END IF;
11179: IF l_debug_level > 0 THEN
11180: oe_debug_pub.add( 'ORDER TYPE: ' || L_ORDER_TYPE_NAME , 2 ) ;
11272: from fnd_languages
11273: where installed_flag = 'B');
11274: EXCEPTION
11275: WHEN NO_DATA_FOUND THEN
11276: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11277: END;
11278:
11279: IF l_debug_level > 0 THEN
11280: oe_debug_pub.add( 'CALLING INVS CREATE_SALESORDER' , 1 ) ;
11307: IF l_debug_level > 0 THEN
11308: oe_debug_pub.add( 'RETURN STATUS ' || L_RETURN_STATUS , 1 ) ;
11309: END IF;
11310:
11311: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11312: oe_msg_pub.transfer_msg_stack;
11313: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
11314: FOR I in 1..l_msg_count LOOP
11315: l_msg_data := OE_MSG_PUB.Get(I,'F');
11317: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
11318: END IF;
11319: END LOOP;
11320:
11321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11322: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11323: oe_msg_pub.transfer_msg_stack;
11324: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
11325: FOR I in 1..l_msg_count LOOP
11318: END IF;
11319: END LOOP;
11320:
11321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11322: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
11323: oe_msg_pub.transfer_msg_stack;
11324: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
11325: FOR I in 1..l_msg_count LOOP
11326: l_msg_data := OE_MSG_PUB.Get(I,'F');
11327: IF l_debug_level > 0 THEN
11328: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
11329: END IF;
11330: END LOOP;
11331: RAISE FND_API.G_EXC_ERROR;
11332: END IF;
11333:
11334: IF l_debug_level > 0 THEN
11335: oe_debug_pub.add( 'EXITING INSERT_INTO_MTL_SALES_ORDERS' , 1 ) ;
11346: , 'Insert_Into_Mtl_Sales_Orders'
11347: );
11348: END IF;
11349:
11350: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11351:
11352: END Insert_Into_Mtl_Sales_Orders;
11353:
11354:
11393:
11394: -- Call OE_Order_PVT.Process_order
11395:
11396: OE_Order_PVT.Lines
11397: (p_validation_level => FND_API.G_VALID_LEVEL_NONE,
11398: p_control_rec => p_control_rec,
11399: p_x_line_tbl => p_x_line_tbl,
11400: p_x_old_line_tbl => p_x_old_line_tbl,
11401: x_return_status => x_return_status);
11415: IF l_debug_level > 0 THEN
11416: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
11417: END IF;
11418:
11419: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11420: IF l_debug_level > 0 THEN
11421: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11422: END IF;
11423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11419: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11420: IF l_debug_level > 0 THEN
11421: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11422: END IF;
11423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11424: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11425: IF l_debug_level > 0 THEN
11426: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11427: END IF;
11420: IF l_debug_level > 0 THEN
11421: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11422: END IF;
11423: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11424: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11425: IF l_debug_level > 0 THEN
11426: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11427: END IF;
11428: RAISE FND_API.G_EXC_ERROR;
11424: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11425: IF l_debug_level > 0 THEN
11426: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11427: END IF;
11428: RAISE FND_API.G_EXC_ERROR;
11429: END IF;
11430:
11431: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11432: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11438: oe_debug_pub.add( 'EXITING CALL PROCESS ORDER' , 1 ) ;
11439: END IF;
11440: EXCEPTION
11441:
11442: WHEN FND_API.G_EXC_ERROR THEN
11443:
11444: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11445: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11446: x_return_status := FND_API.G_RET_STS_ERROR;
11442: WHEN FND_API.G_EXC_ERROR THEN
11443:
11444: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11445: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11446: x_return_status := FND_API.G_RET_STS_ERROR;
11447:
11448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11449:
11450: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11444: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11445: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11446: x_return_status := FND_API.G_RET_STS_ERROR;
11447:
11448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11449:
11450: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11451: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11449:
11450: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11451: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11452: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11453:
11454: WHEN OTHERS THEN
11455:
11456: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11454: WHEN OTHERS THEN
11455:
11456: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11457: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11459:
11460: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11461: THEN
11462: OE_MSG_PUB.Add_Exc_Msg
11489:
11490: IF l_debug_level > 0 THEN
11491: oe_debug_pub.add( 'ENTERING PROCESS_GROUP_OF_LINES' , 1 ) ;
11492: END IF;
11493: x_return_status := FND_API.G_RET_STS_SUCCESS;
11494: SAVEPOINT Process_Group_of_Lines;
11495: I := p_x_line_tbl.FIRST;
11496: WHILE I IS NOT NULL LOOP
11497: BEGIN
11505: p_caller => p_caller,
11506: p_call_prn => FALSE,
11507: x_return_status => x_return_status);
11508:
11509: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11510: IF l_debug_level > 0 THEN
11511: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11512: END IF;
11513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11509: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11510: IF l_debug_level > 0 THEN
11511: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11512: END IF;
11513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11514: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11515: IF l_debug_level > 0 THEN
11516: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11517: END IF;
11510: IF l_debug_level > 0 THEN
11511: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11512: END IF;
11513: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11514: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11515: IF l_debug_level > 0 THEN
11516: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11517: END IF;
11518: RAISE FND_API.G_EXC_ERROR;
11514: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11515: IF l_debug_level > 0 THEN
11516: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11517: END IF;
11518: RAISE FND_API.G_EXC_ERROR;
11519: END IF;
11520:
11521: IF p_x_line_tbl(I).top_model_line_id = p_x_line_tbl(I).line_id
11522: THEN
11557: IF l_debug_level > 0 THEN
11558: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
11559: END IF;
11560:
11561: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11562: IF l_debug_level > 0 THEN
11563: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11564: END IF;
11565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11561: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11562: IF l_debug_level > 0 THEN
11563: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11564: END IF;
11565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11566: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11567: IF l_debug_level > 0 THEN
11568: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11569: END IF;
11562: IF l_debug_level > 0 THEN
11563: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11564: END IF;
11565: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11566: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11567: IF l_debug_level > 0 THEN
11568: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11569: END IF;
11570: RAISE FND_API.G_EXC_ERROR;
11566: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11567: IF l_debug_level > 0 THEN
11568: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11569: END IF;
11570: RAISE FND_API.G_EXC_ERROR;
11571: END IF;
11572: IF l_index is not NULL THEN
11573: --update Global Picture directly
11574: OE_ORDER_UTIL.g_line_tbl(l_index).ship_from_org_id := p_x_line_tbl(I).ship_from_org_id;
11643: IF l_debug_level > 0 THEN
11644: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
11645: END IF;
11646:
11647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11648: IF l_debug_level > 0 THEN
11649: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11650: END IF;
11651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11647: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11648: IF l_debug_level > 0 THEN
11649: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11650: END IF;
11651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11653: IF l_debug_level > 0 THEN
11654: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11655: END IF;
11648: IF l_debug_level > 0 THEN
11649: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11650: END IF;
11651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11653: IF l_debug_level > 0 THEN
11654: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11655: END IF;
11656: RAISE FND_API.G_EXC_ERROR;
11652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11653: IF l_debug_level > 0 THEN
11654: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11655: END IF;
11656: RAISE FND_API.G_EXC_ERROR;
11657: END IF;
11658:
11659: ELSE /*pre pack H*/
11660: -- Do not process delayed requests if this was a recursive
11680: IF l_debug_level > 0 THEN
11681: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
11682: END IF;
11683:
11684: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11685: IF l_debug_level > 0 THEN
11686: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11687: END IF;
11688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11684: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11685: IF l_debug_level > 0 THEN
11686: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11687: END IF;
11688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11689: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11690: IF l_debug_level > 0 THEN
11691: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11692: END IF;
11685: IF l_debug_level > 0 THEN
11686: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
11687: END IF;
11688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11689: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11690: IF l_debug_level > 0 THEN
11691: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11692: END IF;
11693: RAISE FND_API.G_EXC_ERROR;
11689: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11690: IF l_debug_level > 0 THEN
11691: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
11692: END IF;
11693: RAISE FND_API.G_EXC_ERROR;
11694: END IF;
11695: END IF; /*code_release_level*/
11696:
11697:
11704: oe_debug_pub.add( 'EXITING PROCESS GROUP OF LINES' , 1 ) ;
11705: END IF;
11706: EXCEPTION
11707:
11708: WHEN FND_API.G_EXC_ERROR THEN
11709:
11710: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11711: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11712: x_return_status := FND_API.G_RET_STS_ERROR;
11708: WHEN FND_API.G_EXC_ERROR THEN
11709:
11710: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11711: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11712: x_return_status := FND_API.G_RET_STS_ERROR;
11713: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
11714:
11715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11716:
11711: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11712: x_return_status := FND_API.G_RET_STS_ERROR;
11713: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
11714:
11715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11716:
11717: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11718: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11715: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11716:
11717: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11718: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11720: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
11721:
11722: WHEN OTHERS THEN
11723:
11722: WHEN OTHERS THEN
11723:
11724: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11725: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11726: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11727: ROLLBACK TO SAVEPOINT Process_Group_of_lines;
11728:
11729: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
11730: THEN
11769: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
11770: --
11771: BEGIN
11772:
11773: x_return_status := FND_API.G_RET_STS_SUCCESS;
11774: IF l_debug_level > 0 THEN
11775: oe_debug_pub.add( 'ENTERING PROCESS_LINE' , 1 ) ;
11776: END IF;
11777: IF l_debug_level > 0 THEN
11869: p_control_rec => l_control_rec,
11870: p_caller => p_caller,
11871: x_return_status => x_return_status);
11872:
11873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11875: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11876: RAISE FND_API.G_EXC_ERROR;
11877: END IF;
11870: p_caller => p_caller,
11871: x_return_status => x_return_status);
11872:
11873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11875: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11876: RAISE FND_API.G_EXC_ERROR;
11877: END IF;
11878:
11871: x_return_status => x_return_status);
11872:
11873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11875: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11876: RAISE FND_API.G_EXC_ERROR;
11877: END IF;
11878:
11879: ELSE -- warehouse is not changed on the line.
11872:
11873: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11874: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11875: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11876: RAISE FND_API.G_EXC_ERROR;
11877: END IF;
11878:
11879: ELSE -- warehouse is not changed on the line.
11880:
11897: , x_result => l_sec_result
11898: , x_return_status => x_return_status
11899: );
11900:
11901: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11903: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11904: RAISE FND_API.G_EXC_ERROR;
11905: END IF;
11898: , x_return_status => x_return_status
11899: );
11900:
11901: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11903: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11904: RAISE FND_API.G_EXC_ERROR;
11905: END IF;
11906:
11899: );
11900:
11901: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11903: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11904: RAISE FND_API.G_EXC_ERROR;
11905: END IF;
11906:
11907: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11900:
11901: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11903: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11904: RAISE FND_API.G_EXC_ERROR;
11905: END IF;
11906:
11907: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
11908: IF l_debug_level > 0 THEN
11913: IF l_sec_result = OE_PC_GLOBALS.YES THEN
11914: IF l_debug_level > 0 THEN
11915: oe_debug_pub.add( 'CONSTRAINT FOUND' , 4 ) ;
11916: END IF;
11917: RAISE FND_API.G_EXC_ERROR;
11918: END IF;
11919:
11920: END IF; -- operation update.
11921:
11983: p_control_rec => l_control_rec,
11984: p_caller => p_caller,
11985: x_return_status => x_return_status);
11986:
11987: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11989: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11990: RAISE FND_API.G_EXC_ERROR;
11991: END IF;
11984: p_caller => p_caller,
11985: x_return_status => x_return_status);
11986:
11987: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11989: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11990: RAISE FND_API.G_EXC_ERROR;
11991: END IF;
11992:
11985: x_return_status => x_return_status);
11986:
11987: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11989: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11990: RAISE FND_API.G_EXC_ERROR;
11991: END IF;
11992:
11993: ELSE
11986:
11987: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11988: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11989: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
11990: RAISE FND_API.G_EXC_ERROR;
11991: END IF;
11992:
11993: ELSE
11994: IF l_debug_level > 0 THEN
12022: IF l_debug_level > 0 THEN
12023: oe_debug_pub.add( 'AFTER CALLING LOG_SCHEDULING REQUESTS' || X_RETURN_STATUS , 1 ) ;
12024: END IF;
12025:
12026: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12028: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12029: RAISE FND_API.G_EXC_ERROR;
12030: END IF;
12023: oe_debug_pub.add( 'AFTER CALLING LOG_SCHEDULING REQUESTS' || X_RETURN_STATUS , 1 ) ;
12024: END IF;
12025:
12026: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12028: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12029: RAISE FND_API.G_EXC_ERROR;
12030: END IF;
12031:
12024: END IF;
12025:
12026: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12028: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12029: RAISE FND_API.G_EXC_ERROR;
12030: END IF;
12031:
12032: IF l_debug_level > 0 THEN
12025:
12026: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12028: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12029: RAISE FND_API.G_EXC_ERROR;
12030: END IF;
12031:
12032: IF l_debug_level > 0 THEN
12033: oe_debug_pub.add( 'BEFORE DOING DIRECT UPDATE' , 1 ) ;
12041: END IF;
12042:
12043: -- Start 2806483
12044: IF (p_x_line_rec.shipping_method_code IS NOT NULL
12045: AND p_x_line_rec.shipping_method_code <> FND_API.G_MISS_CHAR)
12046: AND NOT OE_GLOBALS.EQUAL(p_x_line_rec.shipping_method_code
12047: ,p_old_line_rec.shipping_method_code)
12048: THEN
12049:
12092:
12093: END IF; -- OE_GLOBALS.G_ATTR_UPDATED_BY_DEF.
12094: END IF; -- warehouse is changed.
12095:
12096: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12097: IF l_debug_level > 0 THEN
12098: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12099: END IF;
12100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12096: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12097: IF l_debug_level > 0 THEN
12098: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12099: END IF;
12100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12101: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12102: IF l_debug_level > 0 THEN
12103: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12104: END IF;
12097: IF l_debug_level > 0 THEN
12098: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12099: END IF;
12100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12101: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12102: IF l_debug_level > 0 THEN
12103: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12104: END IF;
12105: RAISE FND_API.G_EXC_ERROR;
12101: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12102: IF l_debug_level > 0 THEN
12103: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12104: END IF;
12105: RAISE FND_API.G_EXC_ERROR;
12106: END IF;
12107:
12108: IF l_line_tbl.count = 0 THEN
12109:
12135: IF l_debug_level > 0 THEN
12136: oe_debug_pub.add( 'GLOBAL PICTURE INDEX IS: ' || L_INDEX , 1 ) ;
12137: END IF;
12138:
12139: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12140: IF l_debug_level > 0 THEN
12141: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12142: END IF;
12143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12139: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12140: IF l_debug_level > 0 THEN
12141: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12142: END IF;
12143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12144: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12145: IF l_debug_level > 0 THEN
12146: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12147: END IF;
12140: IF l_debug_level > 0 THEN
12141: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12142: END IF;
12143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12144: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12145: IF l_debug_level > 0 THEN
12146: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12147: END IF;
12148: RAISE FND_API.G_EXC_ERROR;
12144: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12145: IF l_debug_level > 0 THEN
12146: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12147: END IF;
12148: RAISE FND_API.G_EXC_ERROR;
12149: END IF;
12150:
12151: IF l_index is not NULL THEN
12152: --update Global Picture directly
12193: IF l_debug_level > 0 THEN
12194: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
12195: END IF;
12196:
12197: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12198: IF l_debug_level > 0 THEN
12199: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12200: END IF;
12201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12197: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12198: IF l_debug_level > 0 THEN
12199: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12200: END IF;
12201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12202: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12203: IF l_debug_level > 0 THEN
12204: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12205: END IF;
12198: IF l_debug_level > 0 THEN
12199: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12200: END IF;
12201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12202: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12203: IF l_debug_level > 0 THEN
12204: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12205: END IF;
12206: RAISE FND_API.G_EXC_ERROR;
12202: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12203: IF l_debug_level > 0 THEN
12204: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12205: END IF;
12206: RAISE FND_API.G_EXC_ERROR;
12207: END IF;
12208: END IF;
12209: ELSE /*pre pack H*/
12210:
12233: IF l_debug_level > 0 THEN
12234: oe_debug_pub.add( 'X_RETURN_STATUS IS ' || X_RETURN_STATUS , 1 ) ;
12235: END IF;
12236:
12237: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12238: IF l_debug_level > 0 THEN
12239: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12240: END IF;
12241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12237: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12238: IF l_debug_level > 0 THEN
12239: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12240: END IF;
12241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12242: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12243: IF l_debug_level > 0 THEN
12244: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12245: END IF;
12238: IF l_debug_level > 0 THEN
12239: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
12240: END IF;
12241: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12242: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12243: IF l_debug_level > 0 THEN
12244: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12245: END IF;
12246: RAISE FND_API.G_EXC_ERROR;
12242: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12243: IF l_debug_level > 0 THEN
12244: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
12245: END IF;
12246: RAISE FND_API.G_EXC_ERROR;
12247: END IF;
12248:
12249: END IF;
12250: END IF; /*code_release_level*/
12253: END IF;
12254:
12255: EXCEPTION
12256:
12257: WHEN FND_API.G_EXC_ERROR THEN
12258:
12259: x_return_status := FND_API.G_RET_STS_ERROR;
12260: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12261: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12255: EXCEPTION
12256:
12257: WHEN FND_API.G_EXC_ERROR THEN
12258:
12259: x_return_status := FND_API.G_RET_STS_ERROR;
12260: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12261: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12262:
12263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12259: x_return_status := FND_API.G_RET_STS_ERROR;
12260: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12261: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12262:
12263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12264:
12265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12266: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12267: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12261: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12262:
12263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12264:
12265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12266: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12267: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12268:
12269: WHEN OTHERS THEN
12267: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12268:
12269: WHEN OTHERS THEN
12270:
12271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12272: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12273: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
12274:
12275: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12286: --------------------------------------------------------*/
12287: Procedure ATP_Check
12288: ( p_old_line_rec IN OE_ORDER_PUB.line_rec_type,
12289: p_x_line_rec IN OUT NOCOPY OE_ORDER_PUB.line_rec_type,
12290: p_validate IN VARCHAR2 := FND_API.G_TRUE,
12291: x_atp_tbl OUT NOCOPY OE_ATP.atp_tbl_type,
12292:
12293: x_return_status OUT NOCOPY VARCHAR2
12294:
12310: -- Since we are not calling need scheduling from here
12311:
12312: g_atp_tbl.Delete;
12313:
12314: IF p_validate = FND_API.G_TRUE THEN
12315:
12316: IF l_debug_level > 0 THEN
12317: oe_debug_pub.add( 'BEFORE CALLING VALIDATE LINE' , 2 ) ;
12318: END IF;
12354:
12355: IF l_debug_level > 0 THEN
12356: oe_debug_pub.add( 'AFTER CALLING ACTION_ATP ' || X_RETURN_STATUS , 2 ) ;
12357: END IF;
12358: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12359: IF l_debug_level > 0 THEN
12360: oe_debug_pub.add( 'UNEXPECTED ERROR FROM ' , 1 ) ;
12361: END IF;
12362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12358: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12359: IF l_debug_level > 0 THEN
12360: oe_debug_pub.add( 'UNEXPECTED ERROR FROM ' , 1 ) ;
12361: END IF;
12362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12363: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12364: IF l_debug_level > 0 THEN
12365: oe_debug_pub.add( 'RR: L2' , 1 ) ;
12366: END IF;
12359: IF l_debug_level > 0 THEN
12360: oe_debug_pub.add( 'UNEXPECTED ERROR FROM ' , 1 ) ;
12361: END IF;
12362: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12363: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12364: IF l_debug_level > 0 THEN
12365: oe_debug_pub.add( 'RR: L2' , 1 ) ;
12366: END IF;
12367: RAISE FND_API.G_EXC_ERROR;
12363: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12364: IF l_debug_level > 0 THEN
12365: oe_debug_pub.add( 'RR: L2' , 1 ) ;
12366: END IF;
12367: RAISE FND_API.G_EXC_ERROR;
12368: END IF;
12369:
12370: x_atp_tbl := g_atp_tbl;
12371:
12375: oe_debug_pub.add( 'EXITING ATP_CHECK ' , 2 ) ;
12376: END IF;
12377: EXCEPTION
12378:
12379: WHEN FND_API.G_EXC_ERROR THEN
12380:
12381: x_return_status := FND_API.G_RET_STS_ERROR;
12382: RAISE FND_API.G_EXC_ERROR;
12383:
12377: EXCEPTION
12378:
12379: WHEN FND_API.G_EXC_ERROR THEN
12380:
12381: x_return_status := FND_API.G_RET_STS_ERROR;
12382: RAISE FND_API.G_EXC_ERROR;
12383:
12384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12385:
12378:
12379: WHEN FND_API.G_EXC_ERROR THEN
12380:
12381: x_return_status := FND_API.G_RET_STS_ERROR;
12382: RAISE FND_API.G_EXC_ERROR;
12383:
12384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12385:
12386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12380:
12381: x_return_status := FND_API.G_RET_STS_ERROR;
12382: RAISE FND_API.G_EXC_ERROR;
12383:
12384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12385:
12386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12388:
12382: RAISE FND_API.G_EXC_ERROR;
12383:
12384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12385:
12386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12388:
12389: WHEN OTHERS THEN
12390:
12383:
12384: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12385:
12386: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12388:
12389: WHEN OTHERS THEN
12390:
12391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12387: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12388:
12389: WHEN OTHERS THEN
12390:
12391: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12392:
12393: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12394: THEN
12395: OE_MSG_PUB.Add_Exc_Msg
12396: ( G_PKG_NAME
12397: , 'ATP_Check'
12398: );
12399: END IF;
12400: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12401:
12402: END ATP_Check;
12403:
12404: /*--------------------------------------------------------
12425: l_on_hand_qty NUMBER;
12426: l_avail_to_reserve NUMBER;
12427: l_on_hand_qty2 NUMBER; -- INVCONV
12428: l_avail_to_reserve2 NUMBER; -- invconv
12429: l_process_flag VARCHAR2(1) := FND_API.G_FALSE;
12430: --
12431: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12432: --
12433: BEGIN
12479: IF l_debug_level > 0 THEN
12480: oe_debug_pub.add( ' AFTER CALLING MRP_ATP_PUB.CALL_ATP ' || X_RETURN_STATUS , 1 ) ;
12481: END IF;
12482:
12483: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12485: /* ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12486: RAISE FND_API.G_EXC_ERROR; */
12487: END IF;
12480: oe_debug_pub.add( ' AFTER CALLING MRP_ATP_PUB.CALL_ATP ' || X_RETURN_STATUS , 1 ) ;
12481: END IF;
12482:
12483: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12485: /* ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12486: RAISE FND_API.G_EXC_ERROR; */
12487: END IF;
12488:
12481: END IF;
12482:
12483: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12485: /* ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12486: RAISE FND_API.G_EXC_ERROR; */
12487: END IF;
12488:
12489: END IF; -- Moved the end of the if here becausw we want to call Load_Results
12482:
12483: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12484: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12485: /* ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12486: RAISE FND_API.G_EXC_ERROR; */
12487: END IF;
12488:
12489: END IF; -- Moved the end of the if here becausw we want to call Load_Results
12490: -- with a count of 0 because of bug 1955004
12497: IF l_debug_level > 0 THEN
12498: oe_debug_pub.add( 'AFTER CALLING ACTION_ATP ' || X_RETURN_STATUS , 2 ) ;
12499: END IF;
12500:
12501: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12503: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12504: RAISE FND_API.G_EXC_ERROR;
12505: END IF;
12498: oe_debug_pub.add( 'AFTER CALLING ACTION_ATP ' || X_RETURN_STATUS , 2 ) ;
12499: END IF;
12500:
12501: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12503: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12504: RAISE FND_API.G_EXC_ERROR;
12505: END IF;
12506:
12499: END IF;
12500:
12501: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12503: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12504: RAISE FND_API.G_EXC_ERROR;
12505: END IF;
12506:
12507: -- END IF; -- MRP count. Moved this end if per 1955004 above
12500:
12501: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12502: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12503: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12504: RAISE FND_API.G_EXC_ERROR;
12505: END IF;
12506:
12507: -- END IF; -- MRP count. Moved this end if per 1955004 above
12508:
12528: -- added by fabdi 03/May/2001
12529: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id
12530: => g_atp_tbl(K).ship_from_org_id)
12531: THEN
12532: l_process_flag := FND_API.G_FALSE;
12533: ELSE
12534: l_process_flag := FND_API.G_TRUE;
12535: END IF;
12536:
12530: => g_atp_tbl(K).ship_from_org_id)
12531: THEN
12532: l_process_flag := FND_API.G_FALSE;
12533: ELSE
12534: l_process_flag := FND_API.G_TRUE;
12535: END IF;
12536:
12537: IF l_process_flag = FND_API.G_TRUE
12538: THEN
12533: ELSE
12534: l_process_flag := FND_API.G_TRUE;
12535: END IF;
12536:
12537: IF l_process_flag = FND_API.G_TRUE
12538: THEN
12539: g_atp_tbl(K).on_hand_qty := l_on_hand_qty;
12540: g_atp_tbl(K).available_to_reserve := l_avail_to_reserve;
12541: g_atp_tbl(K).QTY_ON_REQUEST_DATE := l_avail_to_reserve;
12602: oe_debug_pub.add( 'EXITING MULTI ATP_CHECK ' , 2 ) ;
12603: END IF;
12604: EXCEPTION
12605:
12606: WHEN FND_API.G_EXC_ERROR THEN
12607:
12608: x_return_status := FND_API.G_RET_STS_ERROR;
12609: RAISE FND_API.G_EXC_ERROR;
12610:
12604: EXCEPTION
12605:
12606: WHEN FND_API.G_EXC_ERROR THEN
12607:
12608: x_return_status := FND_API.G_RET_STS_ERROR;
12609: RAISE FND_API.G_EXC_ERROR;
12610:
12611: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12612:
12605:
12606: WHEN FND_API.G_EXC_ERROR THEN
12607:
12608: x_return_status := FND_API.G_RET_STS_ERROR;
12609: RAISE FND_API.G_EXC_ERROR;
12610:
12611: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12612:
12613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12607:
12608: x_return_status := FND_API.G_RET_STS_ERROR;
12609: RAISE FND_API.G_EXC_ERROR;
12610:
12611: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12612:
12613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12615:
12609: RAISE FND_API.G_EXC_ERROR;
12610:
12611: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12612:
12613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12615:
12616: WHEN OTHERS THEN
12617:
12610:
12611: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12612:
12613: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12615:
12616: WHEN OTHERS THEN
12617:
12618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12614: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12615:
12616: WHEN OTHERS THEN
12617:
12618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12619:
12620: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12621: THEN
12622: OE_MSG_PUB.Add_Exc_Msg
12624: , 'MULTI_ATP_Check'
12625: );
12626: END IF;
12627:
12628: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12629: END Multi_ATP_Check;
12630:
12631: Procedure Delete_Row(p_line_id IN NUMBER)
12632: IS
12630:
12631: Procedure Delete_Row(p_line_id IN NUMBER)
12632: IS
12633: l_line_rec OE_ORDER_PUB.line_rec_type;
12634: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
12635: l_sales_order_id NUMBER;
12636: l_ato_exists VARCHAR2(1);
12637: l_request_search_rslt BOOLEAN;
12638: --
12714: oe_debug_pub.add( 'AFTER LOGGING DELETE SETS DELAYED REQUEST ' || L_RETURN_STATUS , 1 ) ;
12715: END IF;
12716:
12717: --bug#5631508
12718: IF L_RETURN_STATUS=FND_API.G_RET_STS_SUCCESS then
12719:
12720: OE_AUDIT_HISTORY_PVT.DELETE_SET_HISTORY( p_line_id => l_line_rec.line_id, x_return_status => l_return_status);
12721:
12722: IF l_debug_level > 0 THEN
12824: ( G_PKG_NAME
12825: , 'Delete_row'
12826: );
12827: END IF;
12828: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12829: END Delete_Row;
12830: /*---------------------------------------------------------------------
12831: Procedure Name : Transfer_reservation
12832: Description : This API calls Inventory's APIs to Transfer_reservation.
12862:
12863: IF l_debug_level > 0 THEN
12864: oe_debug_pub.add( ' LINE :' || P_LINE_TO_TRANSFER , 1 ) ;
12865: END IF;
12866: x_return_status := FND_API.G_RET_STS_SUCCESS;
12867:
12868: l_rsv_rec := p_rsv_rec;
12869: l_rsv_rec.reservation_id := fnd_api.g_miss_num;
12870: l_rsv_rec.demand_source_line_id := p_line_to_transfer;
12865: END IF;
12866: x_return_status := FND_API.G_RET_STS_SUCCESS;
12867:
12868: l_rsv_rec := p_rsv_rec;
12869: l_rsv_rec.reservation_id := fnd_api.g_miss_num;
12870: l_rsv_rec.demand_source_line_id := p_line_to_transfer;
12871: --- Start 2346233 --
12872: --l_rsv_rec.reservation_quantity := p_quantity_to_transfer;
12873: --l_rsv_rec.primary_reservation_quantity := fnd_api.g_miss_num;
12869: l_rsv_rec.reservation_id := fnd_api.g_miss_num;
12870: l_rsv_rec.demand_source_line_id := p_line_to_transfer;
12871: --- Start 2346233 --
12872: --l_rsv_rec.reservation_quantity := p_quantity_to_transfer;
12873: --l_rsv_rec.primary_reservation_quantity := fnd_api.g_miss_num;
12874: l_rsv_rec.primary_reservation_quantity := p_quantity_to_transfer;
12875: l_rsv_rec.secondary_reservation_quantity := p_quantity2_to_transfer; -- INVCONV
12876:
12877: l_rsv_rec.reservation_quantity := fnd_api.g_miss_num;
12873: --l_rsv_rec.primary_reservation_quantity := fnd_api.g_miss_num;
12874: l_rsv_rec.primary_reservation_quantity := p_quantity_to_transfer;
12875: l_rsv_rec.secondary_reservation_quantity := p_quantity2_to_transfer; -- INVCONV
12876:
12877: l_rsv_rec.reservation_quantity := fnd_api.g_miss_num;
12878: l_rsv_rec.secondary_reservation_quantity := fnd_api.g_miss_num; -- INVCONV
12879: --- End 2346233 --
12880:
12881: IF l_debug_level > 0 THEN
12874: l_rsv_rec.primary_reservation_quantity := p_quantity_to_transfer;
12875: l_rsv_rec.secondary_reservation_quantity := p_quantity2_to_transfer; -- INVCONV
12876:
12877: l_rsv_rec.reservation_quantity := fnd_api.g_miss_num;
12878: l_rsv_rec.secondary_reservation_quantity := fnd_api.g_miss_num; -- INVCONV
12879: --- End 2346233 --
12880:
12881: IF l_debug_level > 0 THEN
12882: oe_debug_pub.add( 'CALLING INVS TRANSFER RESERVATION' , 1 ) ;
12883: END IF;
12884:
12885: inv_reservation_pub.Transfer_reservation
12886: ( p_api_version_number => 1.0
12887: , p_init_msg_lst => FND_API.G_TRUE
12888: , x_return_status => x_return_status
12889: , x_msg_count => l_msg_count
12890: , x_msg_data => l_msg_data
12891: , p_original_rsv_rec => p_rsv_rec
12891: , p_original_rsv_rec => p_rsv_rec
12892: , p_to_rsv_rec => l_rsv_rec
12893: , p_original_serial_number => l_dummy_sn
12894: , p_to_serial_number => l_dummy_sn
12895: , p_validation_flag => FND_API.G_FALSE
12896: , x_to_reservation_id => l_rsv_id);
12897:
12898: IF l_debug_level > 0 THEN
12899: oe_debug_pub.add( '2. AFTER CALLING TRANSFER RESERVATION' || X_RETURN_STATUS , 1 ) ;
12901: IF l_debug_level > 0 THEN
12902: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
12903: END IF;
12904:
12905: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12906: oe_msg_pub.transfer_msg_stack;
12907: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12908: for I in 1..l_msg_count loop
12909: l_msg_data := OE_MSG_PUB.Get(I,'F');
12910: IF l_debug_level > 0 THEN
12911: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
12912: END IF;
12913: end loop;
12914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12915: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12916: oe_msg_pub.transfer_msg_stack;
12917: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12918: for I in 1..l_msg_count loop
12911: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
12912: END IF;
12913: end loop;
12914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12915: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
12916: oe_msg_pub.transfer_msg_stack;
12917: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12918: for I in 1..l_msg_count loop
12919: l_msg_data := OE_MSG_PUB.Get(I,'F');
12920: IF l_debug_level > 0 THEN
12921: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
12922: END IF;
12923: end loop;
12924: RAISE FND_API.G_EXC_ERROR;
12925:
12926: END IF;
12927:
12928: IF l_debug_level > 0 THEN
12929: oe_debug_pub.add( 'EXITING TRANSFER RESERVATION' || X_RETURN_STATUS , 1 ) ;
12930: END IF;
12931:
12932: EXCEPTION
12933: WHEN FND_API.G_EXC_ERROR THEN
12934: x_return_status := FND_API.G_RET_STS_ERROR;
12935:
12936: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12930: END IF;
12931:
12932: EXCEPTION
12933: WHEN FND_API.G_EXC_ERROR THEN
12934: x_return_status := FND_API.G_RET_STS_ERROR;
12935:
12936: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12938:
12932: EXCEPTION
12933: WHEN FND_API.G_EXC_ERROR THEN
12934: x_return_status := FND_API.G_RET_STS_ERROR;
12935:
12936: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12938:
12939: oe_msg_pub.transfer_msg_stack;
12940: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12933: WHEN FND_API.G_EXC_ERROR THEN
12934: x_return_status := FND_API.G_RET_STS_ERROR;
12935:
12936: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12938:
12939: oe_msg_pub.transfer_msg_stack;
12940: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
12941: for I in 1..l_msg_count loop
12946: END IF;
12947: end loop;
12948:
12949: WHEN OTHERS THEN
12950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12951:
12952: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
12953: THEN
12954: OE_MSG_PUB.Add_Exc_Msg
12959:
12960: END Transfer_reservation;
12961:
12962: PROCEDURE Set_Auto_Sch_Flag
12963: (p_value_from_user IN VARCHAR2 := FND_API.G_MISS_CHAR)
12964: IS
12965: --
12966: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
12967: --
13050: l_out_atp_tbl OE_ATP.atp_tbl_type;
13051: l_found BOOLEAN := FALSE;
13052: l_buffer VARCHAR2(2000);
13053: l_msg_count NUMBER;
13054: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
13055: l_set_rec OE_ORDER_CACHE.set_rec_type;
13056:
13057: --
13058: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
13062: IF l_debug_level > 0 THEN
13063: oe_debug_pub.add( 'ENTERING PROCESS SPLIT' , 1 ) ;
13064: END IF;
13065:
13066: x_return_status := FND_API.G_RET_STS_SUCCESS;
13067: K := 0;
13068:
13069: FOR I IN 1..p_x_line_tbl.count LOOP
13070:
13148: EXCEPTION
13149:
13150: WHEN OTHERS THEN
13151:
13152: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13153:
13154: END;
13155:
13156: OE_Config_Util.Query_ATO_Options
13231: IF l_debug_level > 0 THEN
13232: oe_debug_pub.add( 'SPLIT. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS , 1 ) ;
13233: END IF;
13234:
13235: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13237: END IF;
13238:
13239: Load_Results_from_tbl
13232: oe_debug_pub.add( 'SPLIT. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || L_RETURN_STATUS , 1 ) ;
13233: END IF;
13234:
13235: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13236: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13237: END IF;
13238:
13239: Load_Results_from_tbl
13240: (p_atp_rec => l_out_mtp_atp_rec,
13241: p_old_line_tbl => l_line_tbl,
13242: p_x_line_tbl => l_line_tbl,
13243: x_return_status => l_return_status);
13244:
13245: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13247: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
13248: RAISE FND_API.G_EXC_ERROR;
13249: END IF;
13242: p_x_line_tbl => l_line_tbl,
13243: x_return_status => l_return_status);
13244:
13245: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13247: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
13248: RAISE FND_API.G_EXC_ERROR;
13249: END IF;
13250:
13243: x_return_status => l_return_status);
13244:
13245: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13247: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
13248: RAISE FND_API.G_EXC_ERROR;
13249: END IF;
13250:
13251: END IF; -- MRP count check.
13244:
13245: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13247: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
13248: RAISE FND_API.G_EXC_ERROR;
13249: END IF;
13250:
13251: END IF; -- MRP count check.
13252:
13344: IF l_debug_level > 0 THEN
13345: oe_debug_pub.add( '31. ENTERING SPLIT_SCHEDULING' , 1 ) ;
13346: END IF;
13347:
13348: x_return_status := FND_API.G_RET_STS_SUCCESS;
13349: IF l_debug_level > 0 THEN
13350: oe_debug_pub.add( 'PICTURE SENT ' , 1 ) ;
13351: END IF;
13352:
13432: -- We have updated the demand picture in MRP with the split.
13433: -- Now let's update the reservation picture.
13434:
13435: -- l_query_rsv_rec := null;
13436: l_query_rsv_rec.reservation_id := fnd_api.g_miss_num;
13437: l_sales_order_id
13438: := Get_mtl_sales_order_id(p_x_line_tbl(I).header_id);
13439: l_query_rsv_rec.demand_source_header_id := l_sales_order_id;
13440: l_query_rsv_rec.demand_source_line_id := p_x_line_tbl(I).line_id;
13449: END IF;
13450:
13451: inv_reservation_pub.query_reservation
13452: ( p_api_version_number => 1.0
13453: , p_init_msg_lst => fnd_api.g_true
13454: , x_return_status => x_return_status
13455: , x_msg_count => l_msg_count
13456: , x_msg_data => l_msg_data
13457: , p_query_input => l_query_rsv_rec
13465: IF l_debug_level > 0 THEN
13466: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
13467: END IF;
13468:
13469: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13471: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13472: RAISE FND_API.G_EXC_ERROR;
13473: END IF;
13466: oe_debug_pub.add( 'AFTER CALLING INVS QUERY_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
13467: END IF;
13468:
13469: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13471: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13472: RAISE FND_API.G_EXC_ERROR;
13473: END IF;
13474:
13467: END IF;
13468:
13469: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13471: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13472: RAISE FND_API.G_EXC_ERROR;
13473: END IF;
13474:
13475: IF l_debug_level > 0 THEN
13468:
13469: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13470: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13471: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
13472: RAISE FND_API.G_EXC_ERROR;
13473: END IF;
13474:
13475: IF l_debug_level > 0 THEN
13476: oe_debug_pub.add( 'RESERVATION RECORD COUNT IS: ' || L_RSV_TBL.COUNT , 1 ) ;
13843: END IF;
13844:
13845: EXCEPTION
13846: WHEN OTHERS THEN
13847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13848:
13849: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13850: THEN
13851: OE_MSG_PUB.Add_Exc_Msg
13852: ( G_PKG_NAME
13853: , 'Split_Scheduling'
13854: );
13855: END IF;
13856: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13857: END SPLIT_SCHEDULING;
13858:
13859: /*------------------------------------------------------------
13860: Procedure Schedule_Split_Lines
13887: BEGIN
13888:
13889: oe_debug_pub.add('Entering Schedule_Split_Lines',1);
13890:
13891: x_return_status := FND_API.G_RET_STS_SUCCESS;
13892:
13893: FOR I in 1..p_sch_set_tbl.count LOOP
13894:
13895: IF p_sch_set_tbl(I).param2 IS NOT NULL
13933:
13934: G_OVERRIDE_FLAG := 'N';
13935: EXCEPTION
13936: WHEN OTHERS THEN
13937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13938:
13939: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
13940: THEN
13941: OE_MSG_PUB.Add_Exc_Msg
13942: ( G_PKG_NAME
13943: , 'Schedule_Split_Lines'
13944: );
13945: END IF;
13946: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13947: End Schedule_Split_Lines;
13948:
13949: /*--------------------------------------------------------------------------
13950: Procedure Name : Update_Results_from_backlog_wb
13971: IS
13972: /*
13973: l_line_rec OE_ORDER_PUB.line_rec_type;
13974: I NUMBER;
13975: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
13976: l_msg_count NUMBER := 0;
13977: l_msg_data VARCHAR2(2000) := null;
13978: l_control_rec OE_GLOBALS.control_rec_type;
13979: l_line_tbl OE_ORDER_PUB.line_tbl_type;
14060:
14061: -- Call OE_Order_PVT.Process_order
14062:
14063: OE_Order_PVT.Lines
14064: (p_validation_level => FND_API.G_VALID_LEVEL_NONE,
14065: p_control_rec => l_control_rec,
14066: p_x_line_tbl => l_line_tbl,
14067: p_x_old_line_tbl => l_old_line_tbl,
14068: x_return_status => l_return_status);
14073: IF l_debug_level > 0 THEN
14074: oe_debug_pub.add( 'L_RETURN_STATUS IS ' || L_RETURN_STATUS , 1 ) ;
14075: END IF;
14076:
14077: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14078: IF l_debug_level > 0 THEN
14079: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
14080: END IF;
14081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14077: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14078: IF l_debug_level > 0 THEN
14079: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
14080: END IF;
14081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
14083: IF l_debug_level > 0 THEN
14084: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
14085: END IF;
14078: IF l_debug_level > 0 THEN
14079: oe_debug_pub.add( 'RR: UNEXP ERRORED OUT' , 1 ) ;
14080: END IF;
14081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
14083: IF l_debug_level > 0 THEN
14084: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
14085: END IF;
14086: RAISE FND_API.G_EXC_ERROR;
14082: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
14083: IF l_debug_level > 0 THEN
14084: oe_debug_pub.add( 'RR: ERRORED OUT' , 1 ) ;
14085: END IF;
14086: RAISE FND_API.G_EXC_ERROR;
14087: END IF;
14088:
14089: -- code fix for 3502139
14090: -- call Process_Requests_And_Notify to execute the delayed requests
14125: OE_DEBUG_PUB.Debug_Off;
14126: */
14127: NULL;
14128: x_msg_data := 'This API is not supported';
14129: RAISE FND_API.G_EXC_ERROR;
14130: EXCEPTION
14131:
14132: WHEN FND_API.G_EXC_ERROR THEN
14133:
14128: x_msg_data := 'This API is not supported';
14129: RAISE FND_API.G_EXC_ERROR;
14130: EXCEPTION
14131:
14132: WHEN FND_API.G_EXC_ERROR THEN
14133:
14134: x_return_status := FND_API.G_RET_STS_ERROR;
14135: /*
14136: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14130: EXCEPTION
14131:
14132: WHEN FND_API.G_EXC_ERROR THEN
14133:
14134: x_return_status := FND_API.G_RET_STS_ERROR;
14135: /*
14136: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14137: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14138: */
14135: /*
14136: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14137: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14138: */
14139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14140:
14141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14142: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14143: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14137: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14138: */
14139: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14140:
14141: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14142: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14143: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14144:
14145: WHEN OTHERS THEN
14143: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14144:
14145: WHEN OTHERS THEN
14146:
14147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14148:
14149: OE_SCHEDULE_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14150: OE_ORDER_SCH_UTIL.OESCH_PERFORM_SCHEDULING := 'Y';
14151: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14194: IF l_debug_level > 0 THEN
14195: oe_debug_pub.add( '*** INSIDE THE POST_FORMS_COMMIT ***' , 1 ) ;
14196: END IF;
14197:
14198: x_return_status := FND_API.G_RET_STS_SUCCESS;
14199:
14200: -- Check for Performed Reservation Start
14201: IF OESCH_PERFORMED_RESERVATION = 'Y' THEN
14202:
14204: oe_debug_pub.add( ' BEFORE CALLING THE INV FOR DO_CHECK_FOR_COMMIT' , 1 ) ;
14205: END IF;
14206: INV_RESERVATION_PVT.Do_Check_For_Commit
14207: (p_api_version_number => 1.0
14208: ,p_init_msg_lst => FND_API.G_FALSE
14209: ,x_return_status => l_return_status
14210: ,x_msg_count => l_msg_count
14211: ,x_msg_data => l_msg_data
14212: ,x_failed_rsv_temp_tbl => l_failed_rsv_temp_tbl);
14224: OE_MSG_PUB.Add;
14225: END IF;
14226:
14227: -- Error Handling Start
14228: IF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14229: IF l_debug_level > 0 THEN
14230: oe_debug_pub.add( 'INSIDE UNEXPECTED ERROR' , 1 ) ;
14231: END IF;
14232: OE_MSG_PUB.Transfer_Msg_Stack;
14238: IF l_debug_level > 0 THEN
14239: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14240: END IF;
14241: END LOOP;
14242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14243:
14244: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
14245: IF l_debug_level > 0 THEN
14246: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
14240: END IF;
14241: END LOOP;
14242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14243:
14244: ELSIF l_return_status = FND_API.G_RET_STS_ERROR THEN
14245: IF l_debug_level > 0 THEN
14246: oe_debug_pub.add( ' INSIDE EXPECTED ERROR' , 1 ) ;
14247: END IF;
14248: OE_MSG_PUB.Transfer_Msg_Stack;
14253: IF l_debug_level > 0 THEN
14254: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14255: END IF;
14256: END LOOP;
14257: RAISE FND_API.G_EXC_ERROR;
14258:
14259: END IF;
14260: --Error Handling End
14261:
14276: oe_debug_pub.add( '*** BEFORE EXITING POST_FORMS_COMMIT ***' , 1 ) ;
14277: END IF;
14278:
14279: EXCEPTION
14280: WHEN FND_API.G_EXC_ERROR THEN
14281: -- OESCH_PERFORMED_RESERVATION := 'N';
14282:
14283: x_return_status := FND_API.G_RET_STS_ERROR;
14284:
14279: EXCEPTION
14280: WHEN FND_API.G_EXC_ERROR THEN
14281: -- OESCH_PERFORMED_RESERVATION := 'N';
14282:
14283: x_return_status := FND_API.G_RET_STS_ERROR;
14284:
14285: -- Get message count and data
14286:
14287: oe_msg_pub.count_and_get
14287: oe_msg_pub.count_and_get
14288: ( p_count => x_msg_count
14289: , p_data => x_msg_data);
14290:
14291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14292: -- OESCH_PERFORMED_RESERVATION := 'N';
14293: IF OE_MSG_PUB.Check_Msg_Level
14294: (OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14295: THEN
14296: OE_MSG_PUB.Add_Exc_Msg
14297: (G_PKG_NAME , 'Post_Forms_Commit');
14298: END IF;
14299:
14300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14301:
14302: -- Get message count and data
14303:
14304: oe_msg_pub.count_and_get
14519:
14520: -- 2746991
14521: --IF p_quantity_to_unreserve is null OR
14522: IF NVL(p_quantity_to_unreserve,0) = 0 OR
14523: p_quantity_to_unreserve = FND_API.G_MISS_NUM THEN
14524: goto end_of_loop;
14525: END IF;
14526:
14527: IF p_line_rec.source_document_type_id = 10 THEN
14561: END IF;
14562:
14563: inv_reservation_pub.query_reservation
14564: ( p_api_version_number => 1.0
14565: , p_init_msg_lst => fnd_api.g_true
14566: , p_query_input => l_rsv_rec
14567: , p_cancel_order_mode => INV_RESERVATION_GLOBAL.G_CANCEL_ORDER_YES
14568: , p_lock_records => l_lock_records
14569: , p_sort_by_req_date => l_sort_by_req_date
14634: oe_debug_pub.add( 'CALLING INVS DELETE_RESERVATION' , 3 ) ;
14635: END IF;
14636: inv_reservation_pub.delete_reservation
14637: ( p_api_version_number => 1.0
14638: , p_init_msg_lst => fnd_api.g_true
14639: , x_return_status => x_return_status
14640: , x_msg_count => l_msg_count
14641: , x_msg_data => l_msg_data
14642: , p_rsv_rec => l_rsv_rec
14646: IF l_debug_level > 0 THEN
14647: oe_debug_pub.add( 'AFTER CALLING INVS DELETE_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
14648: END IF;
14649:
14650: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
14653: oe_msg_pub.transfer_msg_stack;
14654: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14647: oe_debug_pub.add( 'AFTER CALLING INVS DELETE_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
14648: END IF;
14649:
14650: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
14653: oe_msg_pub.transfer_msg_stack;
14654: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14655: FOR I in 1..l_msg_count LOOP
14648: END IF;
14649:
14650: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14652: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
14653: oe_msg_pub.transfer_msg_stack;
14654: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14655: FOR I in 1..l_msg_count LOOP
14656: l_msg_data := OE_MSG_PUB.Get(I,'F');
14658: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14659: END IF;
14660: END LOOP;
14661:
14662: RAISE FND_API.G_EXC_ERROR;
14663: END IF;
14664:
14665: --Start 2346233
14666: /*
14682: /*
14683: l_rsv_new_rec.reservation_quantity :=
14684:
14685: l_rsv_rec.reservation_quantity - l_qty_to_unreserve ;
14686: l_rsv_new_rec.primary_reservation_quantity := fnd_api.g_miss_num;
14687: */
14688: l_rsv_new_rec.primary_reservation_quantity :=
14689: l_rsv_rec.primary_reservation_quantity - l_qty_to_unreserve ;
14690: l_rsv_new_rec.reservation_quantity := fnd_api.g_miss_num;
14686: l_rsv_new_rec.primary_reservation_quantity := fnd_api.g_miss_num;
14687: */
14688: l_rsv_new_rec.primary_reservation_quantity :=
14689: l_rsv_rec.primary_reservation_quantity - l_qty_to_unreserve ;
14690: l_rsv_new_rec.reservation_quantity := fnd_api.g_miss_num;
14691: -- End 2346233
14692:
14693: IF l_debug_level > 0 THEN
14694: oe_debug_pub.add( 'OLD QTY : ' || L_RSV_REC.RESERVATION_QUANTITY , 3 ) ;
14720: oe_debug_pub.add( 'CALLING INVS UPDATE_RESERVATION: ' , 3 ) ;
14721: END IF;
14722: inv_reservation_pub.update_reservation
14723: ( p_api_version_number => 1.0
14724: , p_init_msg_lst => fnd_api.g_true
14725: , p_original_rsv_rec => l_rsv_rec
14726: , p_to_rsv_rec => l_rsv_new_rec
14727: , p_original_serial_number => l_dummy_sn -- no serial contorl
14728: , p_to_serial_number => l_dummy_sn -- no serial control
14725: , p_original_rsv_rec => l_rsv_rec
14726: , p_to_rsv_rec => l_rsv_new_rec
14727: , p_original_serial_number => l_dummy_sn -- no serial contorl
14728: , p_to_serial_number => l_dummy_sn -- no serial control
14729: , p_validation_flag => fnd_api.g_true
14730: , x_return_status => x_return_status
14731: , x_msg_count => l_msg_count
14732: , x_msg_data => l_msg_data);
14733:
14734: IF l_debug_level > 0 THEN
14735: oe_debug_pub.add( 'AFTER INVS UPDATE_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
14736: END IF;
14737:
14738: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14740: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
14741: oe_msg_pub.transfer_msg_stack;
14742: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14735: oe_debug_pub.add( 'AFTER INVS UPDATE_RESERVATION: ' || X_RETURN_STATUS , 1 ) ;
14736: END IF;
14737:
14738: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14740: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
14741: oe_msg_pub.transfer_msg_stack;
14742: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14743: for I in 1..l_msg_count loop
14736: END IF;
14737:
14738: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14740: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
14741: oe_msg_pub.transfer_msg_stack;
14742: l_msg_count:=OE_MSG_PUB.COUNT_MSG;
14743: for I in 1..l_msg_count loop
14744: l_msg_data := OE_MSG_PUB.Get(I,'F');
14745: IF l_debug_level > 0 THEN
14746: oe_debug_pub.add( L_MSG_DATA , 1 ) ;
14747: END IF;
14748: end loop;
14749: RAISE FND_API.G_EXC_ERROR;
14750: END IF;
14751:
14752: l_qty_to_unreserve := 0;
14753: goto end_of_loop;
14760: oe_debug_pub.add( 'EXITING DO_UNRESERVE' , 3 ) ;
14761: END IF;
14762:
14763: EXCEPTION
14764: WHEN FND_API.G_EXC_ERROR THEN
14765: x_return_status := FND_API.G_RET_STS_ERROR;
14766:
14767: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14761: END IF;
14762:
14763: EXCEPTION
14764: WHEN FND_API.G_EXC_ERROR THEN
14765: x_return_status := FND_API.G_RET_STS_ERROR;
14766:
14767: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14769:
14763: EXCEPTION
14764: WHEN FND_API.G_EXC_ERROR THEN
14765: x_return_status := FND_API.G_RET_STS_ERROR;
14766:
14767: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14769:
14770: WHEN OTHERS THEN
14771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14764: WHEN FND_API.G_EXC_ERROR THEN
14765: x_return_status := FND_API.G_RET_STS_ERROR;
14766:
14767: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14769:
14770: WHEN OTHERS THEN
14771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14772:
14767: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14768: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14769:
14770: WHEN OTHERS THEN
14771: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14772:
14773: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
14774: THEN
14775: OE_MSG_PUB.Add_Exc_Msg
15657: oe_debug_pub.add( 'Ship_Set_id ' || p_request_rec.param2 , 2 ) ;
15658: oe_debug_pub.add( 'Shipping Method ' || p_request_rec.param3 , 2 ) ;
15659: END IF;
15660:
15661: x_return_status := FND_API.G_RET_STS_SUCCESS;
15662:
15663: Oe_Config_Schedule_Pvt.Query_Set_Lines
15664: (p_header_id => p_request_rec.param1,
15665: p_ship_set_id => p_request_rec.param2,
15688: IF l_debug_level > 0 THEN
15689: oe_debug_pub.add( 'After calling Po : ' || x_return_status, 2 ) ;
15690: END IF;
15691:
15692: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15694: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15695: RAISE FND_API.G_EXC_ERROR;
15696: END IF;
15689: oe_debug_pub.add( 'After calling Po : ' || x_return_status, 2 ) ;
15690: END IF;
15691:
15692: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15694: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15695: RAISE FND_API.G_EXC_ERROR;
15696: END IF;
15697:
15690: END IF;
15691:
15692: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15694: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15695: RAISE FND_API.G_EXC_ERROR;
15696: END IF;
15697:
15698: OE_Order_PVT.Process_Requests_And_Notify
15691:
15692: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15693: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15694: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15695: RAISE FND_API.G_EXC_ERROR;
15696: END IF;
15697:
15698: OE_Order_PVT.Process_Requests_And_Notify
15699: ( p_process_requests => TRUE
15705: IF l_debug_level > 0 THEN
15706: oe_debug_pub.add( 'After calling PRN: ' || x_return_status, 2 ) ;
15707: END IF;
15708:
15709: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15711: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15712: RAISE FND_API.G_EXC_ERROR;
15713: END IF;
15706: oe_debug_pub.add( 'After calling PRN: ' || x_return_status, 2 ) ;
15707: END IF;
15708:
15709: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15711: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15712: RAISE FND_API.G_EXC_ERROR;
15713: END IF;
15714:
15707: END IF;
15708:
15709: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15711: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15712: RAISE FND_API.G_EXC_ERROR;
15713: END IF;
15714:
15715: OE_Set_Util.Update_Set
15708:
15709: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15710: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15711: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15712: RAISE FND_API.G_EXC_ERROR;
15713: END IF;
15714:
15715: OE_Set_Util.Update_Set
15716: (p_Set_Id => p_request_rec.param2,
15806: IF l_debug_level > 0 THEN
15807: oe_debug_pub.add( '3. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || X_RETURN_STATUS , 1 ) ;
15808: END IF;
15809:
15810: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15812: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15813: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
15814: p_line_id => p_line_id);
15807: oe_debug_pub.add( '3. AFTER CALLING MRP_ATP_PUB.CALL_ATP' || X_RETURN_STATUS , 1 ) ;
15808: END IF;
15809:
15810: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15812: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15813: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
15814: p_line_id => p_line_id);
15815: RAISE FND_API.G_EXC_ERROR;
15808: END IF;
15809:
15810: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15812: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15813: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
15814: p_line_id => p_line_id);
15815: RAISE FND_API.G_EXC_ERROR;
15816: END IF;
15811: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15812: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15813: Display_sch_errors(p_atp_rec => l_out_mrp_atp_rec,
15814: p_line_id => p_line_id);
15815: RAISE FND_API.G_EXC_ERROR;
15816: END IF;
15817:
15818: Load_Results_from_rec(p_atp_rec => l_out_mrp_atp_rec,
15819: p_x_line_rec => l_new_line_rec,
15818: Load_Results_from_rec(p_atp_rec => l_out_mrp_atp_rec,
15819: p_x_line_rec => l_new_line_rec,
15820: x_return_status => x_return_status);
15821:
15822: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15824: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15825: RAISE FND_API.G_EXC_ERROR;
15826: END IF;
15819: p_x_line_rec => l_new_line_rec,
15820: x_return_status => x_return_status);
15821:
15822: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15824: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15825: RAISE FND_API.G_EXC_ERROR;
15826: END IF;
15827:
15820: x_return_status => x_return_status);
15821:
15822: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15824: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15825: RAISE FND_API.G_EXC_ERROR;
15826: END IF;
15827:
15828: END IF; -- Mrp count.
15821:
15822: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15823: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15824: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15825: RAISE FND_API.G_EXC_ERROR;
15826: END IF;
15827:
15828: END IF; -- Mrp count.
15829: IF l_debug_level > 0 THEN
15831: END IF;
15832:
15833:
15834: EXCEPTION
15835: WHEN FND_API.G_EXC_ERROR THEN
15836:
15837: x_return_status := FND_API.G_RET_STS_ERROR;
15838:
15839: WHEN OTHERS THEN
15833:
15834: EXCEPTION
15835: WHEN FND_API.G_EXC_ERROR THEN
15836:
15837: x_return_status := FND_API.G_RET_STS_ERROR;
15838:
15839: WHEN OTHERS THEN
15840:
15841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15837: x_return_status := FND_API.G_RET_STS_ERROR;
15838:
15839: WHEN OTHERS THEN
15840:
15841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15842:
15843: /*
15844: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
15845: THEN
15846: OE_MSG_PUB.Add_Exc_Msg
15847: ( G_PKG_NAME,
15848: 'MRP_ROLLBACK');
15849: END IF;
15850: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
15851: */
15852: END MRP_ROLLBACK;
15853:
15854: Procedure CALL_MRP_ROLLBACK
15874: end if;
15875: end loop;
15876:
15877: EXCEPTION
15878: WHEN FND_API.G_EXC_ERROR THEN
15879:
15880: x_return_status := FND_API.G_RET_STS_ERROR;
15881:
15882: WHEN OTHERS THEN
15876:
15877: EXCEPTION
15878: WHEN FND_API.G_EXC_ERROR THEN
15879:
15880: x_return_status := FND_API.G_RET_STS_ERROR;
15881:
15882: WHEN OTHERS THEN
15883:
15884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15880: x_return_status := FND_API.G_RET_STS_ERROR;
15881:
15882: WHEN OTHERS THEN
15883:
15884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15885:
15886: /*
15887: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
15888: THEN
15933:
15934: END IF;
15935:
15936: EXCEPTION
15937: WHEN FND_API.G_EXC_ERROR THEN
15938:
15939: x_return_status := FND_API.G_RET_STS_ERROR;
15940:
15941: WHEN OTHERS THEN
15935:
15936: EXCEPTION
15937: WHEN FND_API.G_EXC_ERROR THEN
15938:
15939: x_return_status := FND_API.G_RET_STS_ERROR;
15940:
15941: WHEN OTHERS THEN
15942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15943:
15938:
15939: x_return_status := FND_API.G_RET_STS_ERROR;
15940:
15941: WHEN OTHERS THEN
15942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
15943:
15944: END DELAYED_SCHEDULE_LINES ;
15945:
15946: /*----------------------------------------------------------------------------------
16041: oe_debug_pub.add( 'Item substitution cannot happen between shippable and non-shippable items' , 5 ) ;
16042: Fnd_Message.set_name('ONT','OE_SCH_LOOP_SHP_NONSHP');
16043: Oe_Msg_Pub.Add;
16044: OE_SCHEDULE_UTIL.OESCH_ITEM_IS_SUBSTITUTED := 'N';
16045: RAISE FND_API.G_EXC_ERROR;
16046: END IF;
16047: END;
16048: END VALIDATE_ITEM_SUBSTITUTION;
16049: