[Home] [Help]
168: AND NVL(mr.crossdock_flag,'N') = 'Y'
169: FOR UPDATE NOWAIT;
170:
171: BEGIN
172: x_return_status := fnd_api.g_ret_sts_success;
173: SAVEPOINT cancelmo_sp;
174:
175: -- {{
176: -- BEGIN cancel_move_order_line }}
215: END IF;
216:
217: IF l_move_order_type <= 0
218: THEN
219: RAISE fnd_api.g_exc_unexpected_error;
220: END IF;
221:
222: EXCEPTION
223: WHEN OTHERS THEN
224: IF (l_debug = 1) THEN
225: DEBUG('Unxexpected error querying MO type: '
226: || sqlerrm ,'CANCEL_MOVE_ORDER_LINE');
227: END IF;
228: RAISE fnd_api.g_exc_unexpected_error;
229: END;
230:
231: IF l_move_order_type <> INV_GLOBALS.G_MOVE_ORDER_PUT_AWAY
232: THEN
251: END IF;
252: fnd_message.set_name('INV','INV_MO_LINE_NOT_FOUND');
253: fnd_message.set_token('LINE_ID',p_line_id);
254: fnd_msg_pub.ADD;
255: RAISE fnd_api.g_exc_error;
256: END IF;
257: CLOSE c_line_info;
258:
259: l_is_wms_org := inv_install.adv_inv_installed(l_org_id);
317: ,'CANCEL_MOVE_ORDER_LINE');
318: END IF;
319:
320: -- query reservation
321: l_api_return_status := fnd_api.g_ret_sts_success;
322: inv_reservation_pvt.query_reservation
323: ( p_api_version_number => 1.0
324: , p_init_msg_lst => fnd_api.g_false
325: , x_return_status => l_api_return_status
320: -- query reservation
321: l_api_return_status := fnd_api.g_ret_sts_success;
322: inv_reservation_pvt.query_reservation
323: ( p_api_version_number => 1.0
324: , p_init_msg_lst => fnd_api.g_false
325: , x_return_status => l_api_return_status
326: , x_msg_count => x_msg_count
327: , x_msg_data => x_msg_data
328: , p_query_input => l_rsv_rec
330: , x_mtl_reservation_tbl_count => l_rsv_count
331: , x_error_code => l_error_code
332: );
333:
334: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
335: IF (l_debug = 1) THEN
336: DEBUG('query_reservation returned success','CANCEL_MOVE_ORDER_LINE');
337: END IF;
338: ELSE
342: ,'CANCEL_MOVE_ORDER_LINE');
343: END IF;
344: fnd_message.set_name('INV','INV_QRY_RSV_FAILED');
345: fnd_msg_pub.ADD;
346: RAISE fnd_api.g_exc_unexpected_error;
347: END IF;
348:
349: IF l_rsv_count <= 0 THEN
350: IF (l_debug = 1) THEN
352: ,'CANCEL_MOVE_ORDER_LINE');
353: END IF;
354: fnd_message.set_name('INV','INV_NO_RSVS_FOUND');
355: fnd_msg_pub.ADD;
356: RAISE fnd_api.g_exc_unexpected_error;
357: END IF;
358:
359: l_update_rec := l_rsv_tbl(1);
360: l_update_rec.reservation_quantity := NULL;
405: l_update_rec.secondary_reservation_quantity := NULL;
406: l_update_rec.secondary_detailed_quantity := NULL;
407: END IF;
408:
409: l_api_return_status := fnd_api.g_ret_sts_success;
410: inv_reservation_pub.update_reservation
411: ( p_api_version_number => 1.0
412: , p_init_msg_lst => fnd_api.g_false
413: , x_return_status => l_api_return_status
408:
409: l_api_return_status := fnd_api.g_ret_sts_success;
410: inv_reservation_pub.update_reservation
411: ( p_api_version_number => 1.0
412: , p_init_msg_lst => fnd_api.g_false
413: , x_return_status => l_api_return_status
414: , x_msg_count => x_msg_count
415: , x_msg_data => x_msg_data
416: , p_original_rsv_rec => l_rsv_tbl(1)
416: , p_original_rsv_rec => l_rsv_tbl(1)
417: , p_to_rsv_rec => l_update_rec
418: , p_original_serial_number => l_dummy_sn
419: , p_to_serial_number => l_dummy_sn
420: , p_validation_flag => fnd_api.g_true
421: );
422:
423: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
424: IF (l_debug = 1) THEN
419: , p_to_serial_number => l_dummy_sn
420: , p_validation_flag => fnd_api.g_true
421: );
422:
423: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
424: IF (l_debug = 1) THEN
425: DEBUG('update_reservation returned success'
426: ,'CANCEL_MOVE_ORDER_LINE');
427: END IF;
432: END IF;
433:
434: fnd_message.set_name('INV','INV_UPDATE_RSV_FAILED');
435: fnd_msg_pub.ADD;
436: RAISE fnd_api.g_exc_unexpected_error;
437: END IF;
438: -- }
439: END LOOP;
440:
555: IF l_reservation_id IS NOT NULL
556: THEN
557: -- {
558: l_rsv_rec.reservation_id := l_reservation_id;
559: l_api_return_status := fnd_api.g_ret_sts_success;
560: inv_reservation_pvt.query_reservation
561: ( p_api_version_number => 1.0
562: , p_init_msg_lst => fnd_api.g_false
563: , x_return_status => l_api_return_status
558: l_rsv_rec.reservation_id := l_reservation_id;
559: l_api_return_status := fnd_api.g_ret_sts_success;
560: inv_reservation_pvt.query_reservation
561: ( p_api_version_number => 1.0
562: , p_init_msg_lst => fnd_api.g_false
563: , x_return_status => l_api_return_status
564: , x_msg_count => x_msg_count
565: , x_msg_data => x_msg_data
566: , p_query_input => l_rsv_rec
568: , x_mtl_reservation_tbl_count => l_rsv_count
569: , x_error_code => l_error_code
570: );
571:
572: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
573: IF (l_debug = 1) THEN
574: DEBUG('query_reservation returned success'
575: ,'CANCEL_MOVE_ORDER_LINE');
576: END IF;
580: || l_api_return_status, 'CANCEL_MOVE_ORDER_LINE');
581: END IF;
582: fnd_message.set_name('INV','INV_QRY_RSV_FAILED');
583: fnd_msg_pub.ADD;
584: RAISE fnd_api.g_exc_unexpected_error;
585: END IF;
586:
587: IF l_rsv_count <= 0
588: THEN
591: ,'CANCEL_MOVE_ORDER_LINE');
592: END IF;
593: fnd_message.set_name('INV','INV_NO_RSVS_FOUND');
594: fnd_msg_pub.ADD;
595: RAISE fnd_api.g_exc_unexpected_error;
596: END IF;
597:
598: l_update_rec := l_rsv_tbl(1);
599:
723: l_update_rec.secondary_detailed_quantity := NULL;
724: END IF;
725:
726: -- update reservations
727: l_api_return_status := fnd_api.g_ret_sts_success;
728: inv_reservation_pub.update_reservation
729: ( p_api_version_number => 1.0
730: , p_init_msg_lst => fnd_api.g_false
731: , x_return_status => l_api_return_status
726: -- update reservations
727: l_api_return_status := fnd_api.g_ret_sts_success;
728: inv_reservation_pub.update_reservation
729: ( p_api_version_number => 1.0
730: , p_init_msg_lst => fnd_api.g_false
731: , x_return_status => l_api_return_status
732: , x_msg_count => x_msg_count
733: , x_msg_data => x_msg_data
734: , p_original_rsv_rec => l_rsv_tbl(1)
734: , p_original_rsv_rec => l_rsv_tbl(1)
735: , p_to_rsv_rec => l_update_rec
736: , p_original_serial_number => l_dummy_sn
737: , p_to_serial_number => l_dummy_sn
738: , p_validation_flag => fnd_api.g_true
739: , p_over_reservation_flag => 2 -- Bug 5158514
740: );
741:
742: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
738: , p_validation_flag => fnd_api.g_true
739: , p_over_reservation_flag => 2 -- Bug 5158514
740: );
741:
742: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
743: IF (l_debug = 1) THEN
744: DEBUG('update_reservation returned success'
745: ,'CANCEL_MOVE_ORDER_LINE');
746: END IF;
751: END IF;
752:
753: fnd_message.set_name('INV','INV_UPDATE_RSV_FAILED');
754: fnd_msg_pub.ADD;
755: RAISE fnd_api.g_exc_unexpected_error;
756: END IF;
757: -- }
758: END IF; -- reservation id is not null
759:
773: l_deleted_quantity := l_deleted_quantity + l_primary_quantity;
774: -- INVCONV -Qty2
775: l_sec_deleted_quantity := l_sec_deleted_quantity + l_secondary_quantity;
776:
777: l_api_return_status := fnd_api.g_ret_sts_success;
778: inv_trx_util_pub.delete_transaction
779: ( x_return_status => l_api_return_status
780: , x_msg_data => x_msg_data
781: , x_msg_count => x_msg_count
781: , x_msg_count => x_msg_count
782: , p_transaction_temp_id => l_transaction_temp_id
783: );
784:
785: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
786: IF (l_debug = 1) THEN
787: DEBUG('delete_transaction returned success'
788: ,'CANCEL_MOVE_ORDER_LINE');
789: END IF;
795: END IF;
796: fnd_message.set_name('INV','INV_DELETE_TXN_FAILED');
797: fnd_message.set_token('TXN_TEMP_ID',l_transaction_temp_id);
798: fnd_msg_pub.ADD;
799: RAISE fnd_api.g_exc_error;
800: END IF;
801: ELSE
802: IF (l_debug = 1) THEN
803: DEBUG('Task is Loaded or Active - Not deleting the Allocation'
895: -- {
896: for c_mmtt_rec in c_mmtt
897: LOOP
898: l_count := l_count + 1; --counter
899: l_api_return_status := fnd_api.g_ret_sts_success;
900: inv_mo_line_detail_util.delete_allocations
901: ( x_return_status => l_api_return_status
902: , x_msg_data => x_msg_count
903: , x_msg_count => x_msg_data
903: , x_msg_count => x_msg_data
904: , p_mo_line_id => p_line_id
905: , p_transaction_temp_id => c_mmtt_rec.transaction_temp_id
906: );
907: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
908: IF (l_debug = 1) THEN
909: DEBUG('delete_allocations returned success'
910: ,'Cancel_Move_Order_Line');
911: END IF;
916: || l_api_return_status
917: ,'Cancel_Move_Order_Line');
918: END IF;
919: l_flag := FALSE;
920: RAISE fnd_api.g_exc_error;
921: END IF;
922: END LOOP;
923:
924: --
954: DEBUG('Unable to lock the putaway MO line'
955: ,'CANCEL_MOVE_ORDER_LINE');
956: fnd_message.set_name('WMS', 'INV_PUTAWAY_MOL_LOCK_FAIL');
957: fnd_msg_pub.ADD;
958: RAISE fnd_api.g_exc_error;
959: END;
960:
961: wms_xdock_utils_pvt.g_demand_triggered := TRUE;
962:
959: END;
960:
961: wms_xdock_utils_pvt.g_demand_triggered := TRUE;
962:
963: l_api_return_status := fnd_api.g_ret_sts_success;
964: inv_rcv_integration_pvt.call_atf_api
965: ( x_return_status => l_api_return_status
966: , x_msg_data => x_msg_data
967: , x_msg_count => x_msg_count
976: );
977:
978: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
979:
980: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
981: IF (l_debug = 1)
982: THEN
983: DEBUG('inv_rcv_integration_pvt.call_atf_api returned success'
984: ,'CANCEL_MOVE_ORDER_LINE');
991: DEBUG('l_error_code: ' || l_error_code
992: ,'CANCEL_MOVE_ORDER_LINE');
993: END IF;
994:
995: IF l_api_return_status = fnd_api.g_ret_sts_error
996: THEN
997: RAISE fnd_api.g_exc_error;
998: ELSE
999: RAISE fnd_api.g_exc_unexpected_error;
993: END IF;
994:
995: IF l_api_return_status = fnd_api.g_ret_sts_error
996: THEN
997: RAISE fnd_api.g_exc_error;
998: ELSE
999: RAISE fnd_api.g_exc_unexpected_error;
1000: END IF;
1001: END IF;
995: IF l_api_return_status = fnd_api.g_ret_sts_error
996: THEN
997: RAISE fnd_api.g_exc_error;
998: ELSE
999: RAISE fnd_api.g_exc_unexpected_error;
1000: END IF;
1001: END IF;
1002: -- }
1003: END IF;
1008: THEN
1009: IF (l_debug = 1) THEN
1010: DEBUG('Both p_line_id and p_delivery_detail_id are null!'
1011: ,'CANCEL_MOVE_ORDER_LINE');
1012: RAISE fnd_api.g_exc_unexpected_error;
1013: END IF;
1014: END IF;
1015: -- {{
1016: -- Cancellation of sales/internal order where a xdock peg
1033: CLOSE c_xdock_rsv;
1034: END IF;
1035: fnd_message.set_name('WMS', 'INV_RSV_LOCK_FAIL');
1036: fnd_msg_pub.ADD;
1037: RAISE fnd_api.g_exc_error;
1038: END;
1039:
1040: wms_xdock_utils_pvt.g_demand_triggered := TRUE;
1041:
1055: || to_char(l_rsv_rec.reservation_id)
1056: ,'CANCEL_MOVE_ORDER_LINE');
1057: END IF;
1058:
1059: l_api_return_status := fnd_api.g_ret_sts_success;
1060: inv_reservation_pub.delete_reservation
1061: ( p_api_version_number => 1.0
1062: , p_init_msg_lst => fnd_api.g_false
1063: , x_return_status => l_api_return_status
1058:
1059: l_api_return_status := fnd_api.g_ret_sts_success;
1060: inv_reservation_pub.delete_reservation
1061: ( p_api_version_number => 1.0
1062: , p_init_msg_lst => fnd_api.g_false
1063: , x_return_status => l_api_return_status
1064: , x_msg_count => x_msg_count
1065: , x_msg_data => x_msg_data
1066: , p_rsv_rec => l_rsv_rec
1066: , p_rsv_rec => l_rsv_rec
1067: , p_serial_number => l_serial_tbl
1068: );
1069:
1070: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
1071: IF (l_debug = 1)
1072: THEN
1073: DEBUG('inv_reservation_pub.delete_reservation returned success'
1074: ,'CANCEL_MOVE_ORDER_LINE');
1079: DEBUG('inv_reservation_pub.delete_reservation returned an error status: '
1080: || l_api_return_status, 'CANCEL_MOVE_ORDER_LINE');
1081: END IF;
1082:
1083: IF l_api_return_status = fnd_api.g_ret_sts_error
1084: THEN
1085: RAISE fnd_api.g_exc_error;
1086: ELSE
1087: RAISE fnd_api.g_exc_unexpected_error;
1081: END IF;
1082:
1083: IF l_api_return_status = fnd_api.g_ret_sts_error
1084: THEN
1085: RAISE fnd_api.g_exc_error;
1086: ELSE
1087: RAISE fnd_api.g_exc_unexpected_error;
1088: END IF;
1089: END IF;
1083: IF l_api_return_status = fnd_api.g_ret_sts_error
1084: THEN
1085: RAISE fnd_api.g_exc_error;
1086: ELSE
1087: RAISE fnd_api.g_exc_unexpected_error;
1088: END IF;
1089: END IF;
1090:
1091: EXIT WHEN l_rsv_index = l_xdock_rsv_tbl.LAST;
1102: -- {{
1103: -- END cancel_move_order_line }}
1104: --
1105: EXCEPTION
1106: WHEN fnd_api.g_exc_error THEN
1107: ROLLBACK TO cancelmo_sp;
1108: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
1109: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1110: p_data => x_msg_data,
1108: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
1109: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1110: p_data => x_msg_data,
1111: p_encoded => 'F');
1112: x_return_status := fnd_api.g_ret_sts_error;
1113:
1114: IF (l_debug = 1) THEN
1115: DEBUG('Return status = ' || x_return_status ||
1116: ', x_msg_data = ' || x_msg_data
1116: ', x_msg_data = ' || x_msg_data
1117: ,'CANCEL_MOVE_ORDER_LINE');
1118: END IF;
1119:
1120: WHEN fnd_api.g_exc_unexpected_error THEN
1121: ROLLBACK TO cancelmo_sp;
1122: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
1123: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1124: p_data => x_msg_data,
1122: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
1123: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1124: p_data => x_msg_data,
1125: p_encoded => 'F');
1126: x_return_status := fnd_api.g_ret_sts_unexp_error;
1127:
1128: IF (l_debug = 1) THEN
1129: DEBUG('Return status = ' || x_return_status ||
1130: ', x_msg_data = ' || x_msg_data
1132: END IF;
1133:
1134: WHEN OTHERS THEN
1135: ROLLBACK TO cancelmo_sp;
1136: x_return_status := fnd_api.g_ret_sts_unexp_error;
1137:
1138: --ER: CI project. Setting the fields x_msg_count and x_msg_data correctly.
1139: x_msg_count := SQLCODE;
1140: x_msg_data := SQLERRM;
1318:
1319: l_wdd_rec c_lock_wdd%ROWTYPE;
1320:
1321: BEGIN
1322: x_return_status := fnd_api.g_ret_sts_success;
1323: SAVEPOINT reducemo_sp;
1324:
1325: -- {{
1326: -- BEGIN reduce_move_order_quantity }}
1367: END IF;
1368:
1369: IF l_move_order_type <= 0
1370: THEN
1371: RAISE fnd_api.g_exc_unexpected_error;
1372: END IF;
1373:
1374: EXCEPTION
1375: WHEN OTHERS THEN
1376: IF (l_debug = 1) THEN
1377: DEBUG('Unxexpected error querying MO type: '
1378: || sqlerrm ,'Reduce_Move_Order_Quantity');
1379: END IF;
1380: RAISE fnd_api.g_exc_unexpected_error;
1381: END;
1382:
1383: -- {{
1384: -- Reduce API must return an error if called after
1391: ,'Reduce_Move_Order_Quantity');
1392: END IF;
1393: fnd_message.set_name('WMS', 'INV_MOL_PUTAWAY_QTY_NOCHG');
1394: fnd_msg_pub.ADD;
1395: RAISE fnd_api.g_exc_error;
1396: END IF;
1397:
1398: -- query mo line info
1399: OPEN c_line_info;
1424: IF (l_debug = 1) THEN
1425: DEBUG('Move order line not found', 'Reduce_Move_Order_Quantity');
1426: END IF;
1427: CLOSE c_line_info;
1428: RAISE fnd_api.g_exc_error;
1429: END IF;
1430:
1431: IF c_line_info%ISOPEN
1432: THEN
1447: , p_delete_reservations => 'Y'
1448: , p_txn_source_line_id => p_txn_source_line_id
1449: );
1450:
1451: IF l_return_status = fnd_api.g_ret_sts_error THEN
1452: RAISE fnd_api.g_exc_error;
1453: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1454: RAISE fnd_api.g_exc_unexpected_error;
1455: END IF;
1448: , p_txn_source_line_id => p_txn_source_line_id
1449: );
1450:
1451: IF l_return_status = fnd_api.g_ret_sts_error THEN
1452: RAISE fnd_api.g_exc_error;
1453: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1454: RAISE fnd_api.g_exc_unexpected_error;
1455: END IF;
1456: END IF;
1449: );
1450:
1451: IF l_return_status = fnd_api.g_ret_sts_error THEN
1452: RAISE fnd_api.g_exc_error;
1453: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1454: RAISE fnd_api.g_exc_unexpected_error;
1455: END IF;
1456: END IF;
1457:
1450:
1451: IF l_return_status = fnd_api.g_ret_sts_error THEN
1452: RAISE fnd_api.g_exc_error;
1453: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1454: RAISE fnd_api.g_exc_unexpected_error;
1455: END IF;
1456: END IF;
1457:
1458: --
1493: DEBUG('Item not found', 'Reduce_Move_Order_Quantity');
1494: END IF;
1495:
1496: CLOSE c_primary_uom;
1497: RAISE fnd_api.g_exc_unexpected_error;
1498: END IF;
1499:
1500: CLOSE c_primary_uom;
1501:
1519: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
1520: fnd_message.set_token('UOM', l_primary_uom_code);
1521: fnd_message.set_token('ROUTINE', 'Reduce Move Order Quantity');
1522: fnd_msg_pub.ADD;
1523: RAISE fnd_api.g_exc_unexpected_error;
1524: END IF;
1525: ELSE
1526: l_prim_quantity_to_delete := l_quantity_to_delete;
1527: END IF;
1560:
1561: -- query reservation
1562: inv_reservation_pvt.query_reservation
1563: ( p_api_version_number => 1.0
1564: , p_init_msg_lst => fnd_api.g_false
1565: , x_return_status => l_return_status
1566: , x_msg_count => x_msg_count
1567: , x_msg_data => x_msg_data
1568: , p_query_input => l_rsv_rec
1570: , x_mtl_reservation_tbl_count => l_rsv_count
1571: , x_error_code => l_error_code
1572: );
1573:
1574: IF l_return_status = fnd_api.g_ret_sts_error THEN
1575: IF (l_debug = 1) THEN
1576: DEBUG('Query reservation returned error'
1577: ,'Reduce_Move_Order_Quantity');
1578: END IF;
1576: DEBUG('Query reservation returned error'
1577: ,'Reduce_Move_Order_Quantity');
1578: END IF;
1579:
1580: RAISE fnd_api.g_exc_error;
1581: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1582: THEN
1583: IF (l_debug = 1) THEN
1584: DEBUG('Query reservation returned unexpected error'
1577: ,'Reduce_Move_Order_Quantity');
1578: END IF;
1579:
1580: RAISE fnd_api.g_exc_error;
1581: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1582: THEN
1583: IF (l_debug = 1) THEN
1584: DEBUG('Query reservation returned unexpected error'
1585: ,'Reduce_Move_Order_Quantity');
1584: DEBUG('Query reservation returned unexpected error'
1585: ,'Reduce_Move_Order_Quantity');
1586: END IF;
1587:
1588: RAISE fnd_api.g_exc_unexpected_error;
1589: END IF;
1590:
1591: l_update_rec := l_rsv_tbl(1);
1592: l_update_rec.reservation_quantity := NULL;
1639:
1640: -- update reservation
1641: inv_reservation_pub.update_reservation
1642: ( p_api_version_number => 1.0
1643: , p_init_msg_lst => fnd_api.g_false
1644: , x_return_status => l_return_status
1645: , x_msg_count => x_msg_count
1646: , x_msg_data => x_msg_data
1647: , p_original_rsv_rec => l_rsv_tbl(1)
1647: , p_original_rsv_rec => l_rsv_tbl(1)
1648: , p_to_rsv_rec => l_update_rec
1649: , p_original_serial_number => l_dummy_sn
1650: , p_to_serial_number => l_dummy_sn
1651: , p_validation_flag => fnd_api.g_true
1652: );
1653:
1654: IF l_return_status = fnd_api.g_ret_sts_error THEN
1655: IF (l_debug = 1) THEN
1650: , p_to_serial_number => l_dummy_sn
1651: , p_validation_flag => fnd_api.g_true
1652: );
1653:
1654: IF l_return_status = fnd_api.g_ret_sts_error THEN
1655: IF (l_debug = 1) THEN
1656: DEBUG('Update reservation returned error'
1657: ,'Reduce_Move_Order_Quantity');
1658: END IF;
1656: DEBUG('Update reservation returned error'
1657: ,'Reduce_Move_Order_Quantity');
1658: END IF;
1659:
1660: RAISE fnd_api.g_exc_error;
1661: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1662: THEN
1663: IF (l_debug = 1) THEN
1664: DEBUG('Update reservation returned unexpected error'
1657: ,'Reduce_Move_Order_Quantity');
1658: END IF;
1659:
1660: RAISE fnd_api.g_exc_error;
1661: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1662: THEN
1663: IF (l_debug = 1) THEN
1664: DEBUG('Update reservation returned unexpected error'
1665: ,'Reduce_Move_Order_Quantity');
1664: DEBUG('Update reservation returned unexpected error'
1665: ,'Reduce_Move_Order_Quantity');
1666: END IF;
1667:
1668: RAISE fnd_api.g_exc_unexpected_error;
1669: END IF;
1670: -- }
1671: END LOOP;
1672:
1824: ( p_count => x_msg_count
1825: , p_data => x_msg_data
1826: , p_encoded => 'F'
1827: );
1828: RAISE fnd_api.g_exc_error;
1829: END;
1830:
1831: IF (l_debug = 1)
1832: THEN
1857: CLOSE c_xdock_rsv;
1858: END IF;
1859: fnd_message.set_name('WMS', 'INV_RSV_LOCK_FAIL');
1860: fnd_msg_pub.ADD;
1861: RAISE fnd_api.g_exc_error;
1862: END;
1863:
1864: wms_xdock_utils_pvt.g_demand_triggered := TRUE;
1865:
1885:
1886: -- query reservation
1887: inv_reservation_pvt.query_reservation
1888: ( p_api_version_number => 1.0
1889: , p_init_msg_lst => fnd_api.g_false
1890: , x_return_status => x_return_status
1891: , x_msg_count => x_msg_count
1892: , x_msg_data => x_msg_data
1893: , p_query_input => l_rsv_rec
1895: , x_mtl_reservation_tbl_count => l_rsv_count
1896: , x_error_code => l_error_code
1897: );
1898:
1899: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1900: IF (l_debug = 1) THEN
1901: DEBUG('Error: Query Reservations returned '
1902: || x_return_status
1903: ,'Reduce_Move_Order_Quantity');
1901: DEBUG('Error: Query Reservations returned '
1902: || x_return_status
1903: ,'Reduce_Move_Order_Quantity');
1904: END IF;
1905: IF x_return_status = fnd_api.g_ret_sts_error
1906: THEN
1907: fnd_message.set_name('INV','INV_QRY_RSV_FAILED');
1908: fnd_msg_pub.ADD;
1909: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1908: fnd_msg_pub.ADD;
1909: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1910: p_data => x_msg_data,
1911: p_encoded => 'F');
1912: RAISE fnd_api.g_exc_error;
1913: ELSE
1914: RAISE fnd_api.g_exc_unexpected_error;
1915: END IF;
1916: END IF;
1910: p_data => x_msg_data,
1911: p_encoded => 'F');
1912: RAISE fnd_api.g_exc_error;
1913: ELSE
1914: RAISE fnd_api.g_exc_unexpected_error;
1915: END IF;
1916: END IF;
1917:
1918: IF l_rsv_count <= 0 THEN
1925:
1926: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1927: p_data => x_msg_data,
1928: p_encoded => 'F');
1929: RAISE fnd_api.g_exc_error;
1930: END IF;
1931:
1932: l_rsv_rec2 := l_rsv_tbl(1);
1933:
1949: THEN
1950: DEBUG('Invalid conversion factor: ' || l_conv_rate
1951: ,'Reduce_Move_Order_Quantity');
1952: END IF;
1953: RAISE fnd_api.g_exc_unexpected_error;
1954: ELSE
1955: l_reduc_qty_conv := ROUND( l_conv_rate * l_reduction_quantity
1956: , g_conv_precision
1957: );
1979: THEN
1980: DEBUG('Invalid conversion factor: ' || l_conv_rate
1981: ,'Reduce_Move_Order_Quantity');
1982: END IF;
1983: RAISE fnd_api.g_exc_unexpected_error;
1984: ELSE
1985: l_prim_qty_conv := ROUND( l_conv_rate * l_reduction_quantity
1986: , g_conv_precision
1987: );
2010: THEN
2011: DEBUG('Invalid conversion factor: ' || l_conv_rate
2012: ,'Reduce_Move_Order_Quantity');
2013: END IF;
2014: RAISE fnd_api.g_exc_unexpected_error;
2015: ELSE
2016: l_sec_reduc_qty_conv := ROUND( l_conv_rate * l_sec_reduction_quantity
2017: , g_conv_precision
2018: );
2034: END IF;
2035:
2036: inv_reservation_pub.update_reservation
2037: ( p_api_version_number => 1.0
2038: , p_init_msg_lst => fnd_api.g_false
2039: , x_return_status => x_return_status
2040: , x_msg_count => x_msg_count
2041: , x_msg_data => x_msg_data
2042: , p_original_rsv_rec => l_rsv_tbl(1)
2042: , p_original_rsv_rec => l_rsv_tbl(1)
2043: , p_to_rsv_rec => l_update_rec
2044: , p_original_serial_number => l_dummy_sn
2045: , p_to_serial_number => l_dummy_sn
2046: , p_validation_flag => fnd_api.g_true
2047: );
2048:
2049: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2050: IF (l_debug = 1) THEN
2045: , p_to_serial_number => l_dummy_sn
2046: , p_validation_flag => fnd_api.g_true
2047: );
2048:
2049: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2050: IF (l_debug = 1) THEN
2051: DEBUG('Error: Update Reservations returned '
2052: || x_return_status
2053: ,'Reduce_Move_Order_Quantity');
2051: DEBUG('Error: Update Reservations returned '
2052: || x_return_status
2053: ,'Reduce_Move_Order_Quantity');
2054: END IF;
2055: IF x_return_status = fnd_api.g_ret_sts_error
2056: THEN
2057: fnd_message.set_name('INV','INV_UPDATE_RSV_FAILED');
2058: fnd_msg_pub.ADD;
2059: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2058: fnd_msg_pub.ADD;
2059: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2060: p_data => x_msg_data,
2061: p_encoded => 'F');
2062: RAISE fnd_api.g_exc_error;
2063: ELSE
2064: RAISE fnd_api.g_exc_unexpected_error;
2065: END IF;
2066: END IF;
2060: p_data => x_msg_data,
2061: p_encoded => 'F');
2062: RAISE fnd_api.g_exc_error;
2063: ELSE
2064: RAISE fnd_api.g_exc_unexpected_error;
2065: END IF;
2066: END IF;
2067:
2068: l_reduction_quantity := 0;
2095: THEN
2096: DEBUG('Invalid conversion factor: ' || l_conv_rate
2097: ,'Reduce_Move_Order_Quantity');
2098: END IF;
2099: RAISE fnd_api.g_exc_unexpected_error;
2100: ELSE
2101: l_reduction_quantity := l_reduction_quantity
2102: - ROUND( l_conv_rate
2103: * l_rsv_rec2.reservation_quantity
2130: THEN
2131: DEBUG('Invalid conversion factor: ' || l_conv_rate
2132: ,'Reduce_Move_Order_Quantity');
2133: END IF;
2134: RAISE fnd_api.g_exc_unexpected_error;
2135: ELSE
2136: l_sec_reduction_quantity := l_sec_reduction_quantity
2137: - ROUND( l_conv_rate
2138: * l_rsv_rec2.secondary_reservation_quantity
2151: END IF;
2152:
2153: inv_reservation_pub.delete_reservation
2154: ( p_api_version_number => 1.0
2155: , p_init_msg_lst => fnd_api.g_false
2156: , x_return_status => x_return_status
2157: , x_msg_count => x_msg_count
2158: , x_msg_data => x_msg_data
2159: , p_rsv_rec => l_rsv_rec2
2159: , p_rsv_rec => l_rsv_rec2
2160: , p_serial_number => l_serial_tbl
2161: );
2162:
2163: IF x_return_status <> fnd_api.g_ret_sts_success
2164: THEN
2165: IF (l_debug = 1)
2166: THEN
2167: DEBUG('inv_reservation_pub.delete_reservation returned an error status: '
2167: DEBUG('inv_reservation_pub.delete_reservation returned an error status: '
2168: || x_return_status, 'Reduce_Move_Order_Quantity');
2169: END IF;
2170:
2171: IF x_return_status = fnd_api.g_ret_sts_error
2172: THEN
2173: fnd_msg_pub.count_and_get
2174: ( p_count => x_msg_count
2175: , p_data => x_msg_data
2179: THEN
2180: DEBUG('x_msg_data: ' || x_msg_data
2181: ,'Reduce_Move_Order_Quantity');
2182: END IF;
2183: RAISE fnd_api.g_exc_error;
2184: ELSE
2185: RAISE fnd_api.g_exc_unexpected_error;
2186: END IF;
2187: ELSE
2181: ,'Reduce_Move_Order_Quantity');
2182: END IF;
2183: RAISE fnd_api.g_exc_error;
2184: ELSE
2185: RAISE fnd_api.g_exc_unexpected_error;
2186: END IF;
2187: ELSE
2188: IF (l_debug = 1)
2189: THEN
2209: -- END reduce_move_order_quantity }}
2210: --
2211:
2212: EXCEPTION
2213: WHEN fnd_api.g_exc_error THEN
2214: ROLLBACK TO reducemo_sp;
2215: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
2216: x_return_status := fnd_api.g_ret_sts_error;
2217: fnd_msg_pub.count_and_get
2212: EXCEPTION
2213: WHEN fnd_api.g_exc_error THEN
2214: ROLLBACK TO reducemo_sp;
2215: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
2216: x_return_status := fnd_api.g_ret_sts_error;
2217: fnd_msg_pub.count_and_get
2218: ( p_count => x_msg_count
2219: , p_data => x_msg_data
2220: , p_encoded => 'F'
2231: IF (l_debug = 1) THEN
2232: DEBUG('Others error' || SQLERRM
2233: ,'Reduce_Move_Order_Quantity');
2234: END IF;
2235: x_return_status := fnd_api.g_ret_sts_unexp_error;
2236:
2237: END reduce_move_order_quantity;
2238:
2239:
2332: DEBUG('Move order line not found', 'reduce_rsv_allocation');
2333: END IF;
2334:
2335: CLOSE c_primary_uom;
2336: RAISE fnd_api.g_exc_unexpected_error;
2337: END IF;
2338:
2339: CLOSE c_primary_uom;
2340:
2354: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
2355: fnd_message.set_token('UOM', l_primary_uom_code);
2356: fnd_message.set_token('ROUTINE', 'reduce_rsv_allocation');
2357: fnd_msg_pub.ADD;
2358: RAISE fnd_api.g_exc_unexpected_error;
2359: END IF;
2360: ELSE
2361: l_prim_quantity_to_delete := l_quantity_to_delete;
2362: END IF;
2373:
2374: -- query reservation
2375: inv_reservation_pvt.query_reservation(
2376: p_api_version_number => 1.0
2377: , p_init_msg_lst => fnd_api.g_false
2378: , x_return_status => l_return_status
2379: , x_msg_count => x_msg_count
2380: , x_msg_data => x_msg_data
2381: , p_query_input => l_rsv_rec
2383: , x_mtl_reservation_tbl_count => l_rsv_count
2384: , x_error_code => l_error_code
2385: );
2386:
2387: IF l_return_status = fnd_api.g_ret_sts_error THEN
2388: IF (l_debug = 1) THEN
2389: DEBUG('Query reservation returned error', 'reduce_rsv_allocation');
2390: END IF;
2391:
2388: IF (l_debug = 1) THEN
2389: DEBUG('Query reservation returned error', 'reduce_rsv_allocation');
2390: END IF;
2391:
2392: RAISE fnd_api.g_exc_error;
2393: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2394: IF (l_debug = 1) THEN
2395: DEBUG('Query reservation returned unexpected error', 'reduce_rsv_allocation');
2396: END IF;
2389: DEBUG('Query reservation returned error', 'reduce_rsv_allocation');
2390: END IF;
2391:
2392: RAISE fnd_api.g_exc_error;
2393: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2394: IF (l_debug = 1) THEN
2395: DEBUG('Query reservation returned unexpected error', 'reduce_rsv_allocation');
2396: END IF;
2397:
2394: IF (l_debug = 1) THEN
2395: DEBUG('Query reservation returned unexpected error', 'reduce_rsv_allocation');
2396: END IF;
2397:
2398: RAISE fnd_api.g_exc_unexpected_error;
2399: END IF;
2400:
2401: l_update_rec := l_rsv_tbl(1);
2402:
2433:
2434: -- update reservations
2435: inv_reservation_pub.update_reservation(
2436: p_api_version_number => 1.0
2437: , p_init_msg_lst => fnd_api.g_false
2438: , x_return_status => l_return_status
2439: , x_msg_count => x_msg_count
2440: , x_msg_data => x_msg_data
2441: , p_original_rsv_rec => l_rsv_tbl(1)
2441: , p_original_rsv_rec => l_rsv_tbl(1)
2442: , p_to_rsv_rec => l_update_rec
2443: , p_original_serial_number => l_dummy_sn
2444: , p_to_serial_number => l_dummy_sn
2445: , p_validation_flag => fnd_api.g_true
2446: );
2447:
2448: IF l_return_status = fnd_api.g_ret_sts_error THEN
2449: IF (l_debug = 1) THEN
2444: , p_to_serial_number => l_dummy_sn
2445: , p_validation_flag => fnd_api.g_true
2446: );
2447:
2448: IF l_return_status = fnd_api.g_ret_sts_error THEN
2449: IF (l_debug = 1) THEN
2450: DEBUG('Update reservation returned error', 'reduce_rsv_allocation');
2451: END IF;
2452:
2449: IF (l_debug = 1) THEN
2450: DEBUG('Update reservation returned error', 'reduce_rsv_allocation');
2451: END IF;
2452:
2453: RAISE fnd_api.g_exc_error;
2454: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2455: IF (l_debug = 1) THEN
2456: DEBUG('Update reservation returned unexpected error', 'reduce_rsv_allocation');
2457: END IF;
2450: DEBUG('Update reservation returned error', 'reduce_rsv_allocation');
2451: END IF;
2452:
2453: RAISE fnd_api.g_exc_error;
2454: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2455: IF (l_debug = 1) THEN
2456: DEBUG('Update reservation returned unexpected error', 'reduce_rsv_allocation');
2457: END IF;
2458:
2455: IF (l_debug = 1) THEN
2456: DEBUG('Update reservation returned unexpected error', 'reduce_rsv_allocation');
2457: END IF;
2458:
2459: RAISE fnd_api.g_exc_unexpected_error;
2460: END IF;
2461: END IF; -- reservation id is not null
2462: END IF; --Bug 7190635, l_ato_serial_pick is 'N'
2463:
2480: , x_msg_count => x_msg_count
2481: , p_transaction_temp_id => l_transaction_temp_id
2482: );
2483:
2484: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2485: IF (l_debug = 1) THEN
2486: DEBUG('Error occurred while Deleting the Transaction', 'reduce_rsv_allocation');
2487: END IF;
2488:
2485: IF (l_debug = 1) THEN
2486: DEBUG('Error occurred while Deleting the Transaction', 'reduce_rsv_allocation');
2487: END IF;
2488:
2489: RAISE fnd_api.g_exc_error;
2490: END IF;
2491: ELSE -- reduce the quantity on the allocation
2492: IF (l_debug = 1) THEN
2493: DEBUG('reducing quantity on the allocation', 'reduce_rsv_allocation');
2501: , p_quantity => l_quantity_to_delete
2502: , p_secondary_quantity => l_sec_quantity_to_delete --INVCONV
2503: );
2504:
2505: IF l_return_status = fnd_api.g_ret_sts_error THEN
2506: IF (l_debug = 1) THEN
2507: DEBUG('Reduce allocation returned error', 'reduce_rsv_allocation');
2508: END IF;
2509:
2506: IF (l_debug = 1) THEN
2507: DEBUG('Reduce allocation returned error', 'reduce_rsv_allocation');
2508: END IF;
2509:
2510: RAISE fnd_api.g_exc_error;
2511: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2512: IF (l_debug = 1) THEN
2513: DEBUG('Reduce allocation returned unexpected error', 'reduce_rsv_allocation');
2514: END IF;
2507: DEBUG('Reduce allocation returned error', 'reduce_rsv_allocation');
2508: END IF;
2509:
2510: RAISE fnd_api.g_exc_error;
2511: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2512: IF (l_debug = 1) THEN
2513: DEBUG('Reduce allocation returned unexpected error', 'reduce_rsv_allocation');
2514: END IF;
2515:
2512: IF (l_debug = 1) THEN
2513: DEBUG('Reduce allocation returned unexpected error', 'reduce_rsv_allocation');
2514: END IF;
2515:
2516: RAISE fnd_api.g_exc_unexpected_error;
2517: END IF;
2518: END IF; -- det. quantity = task qty
2519:
2520: x_return_status := fnd_api.g_ret_sts_success;
2516: RAISE fnd_api.g_exc_unexpected_error;
2517: END IF;
2518: END IF; -- det. quantity = task qty
2519:
2520: x_return_status := fnd_api.g_ret_sts_success;
2521: EXCEPTION
2522: WHEN fnd_api.g_exc_error THEN
2523: ROLLBACK TO del_rsv_all_sp;
2524: x_return_status := fnd_api.g_ret_sts_error;
2518: END IF; -- det. quantity = task qty
2519:
2520: x_return_status := fnd_api.g_ret_sts_success;
2521: EXCEPTION
2522: WHEN fnd_api.g_exc_error THEN
2523: ROLLBACK TO del_rsv_all_sp;
2524: x_return_status := fnd_api.g_ret_sts_error;
2525: WHEN OTHERS THEN
2526: ROLLBACK TO del_rsv_all_sp;
2520: x_return_status := fnd_api.g_ret_sts_success;
2521: EXCEPTION
2522: WHEN fnd_api.g_exc_error THEN
2523: ROLLBACK TO del_rsv_all_sp;
2524: x_return_status := fnd_api.g_ret_sts_error;
2525: WHEN OTHERS THEN
2526: ROLLBACK TO del_rsv_all_sp;
2527:
2528: IF (l_debug = 1) THEN
2528: IF (l_debug = 1) THEN
2529: DEBUG('Others error' || SQLERRM, 'reduce_rsv_allocation');
2530: END IF;
2531:
2532: x_return_status := fnd_api.g_ret_sts_unexp_error;
2533: END reduce_rsv_allocation;
2534:
2535:
2536: /* The following procedure is called by shipping to update carton group id whenever
2562: DEBUG('before update statement...', 'update_mol_carton_group');
2563: END IF;
2564:
2565: l_debug := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2566: x_return_status := fnd_api.g_ret_sts_success;
2567:
2568: -- {{
2569: -- BEGIN update_mol_carton_group }}
2570: --
2587: -- the delivery, with material already received.
2588: -- Carton grouping ID column stays as is }}
2589: --
2590: IF SQL%NOTFOUND THEN
2591: x_return_status := fnd_api.g_ret_sts_unexp_error;
2592:
2593: IF (l_debug = 1) THEN
2594: DEBUG('can not find move order line', 'update_mol_carton_group');
2595: END IF;
2608: --
2609:
2610: EXCEPTION
2611: WHEN OTHERS THEN
2612: x_return_status := fnd_api.g_ret_sts_unexp_error;
2613:
2614: IF (l_debug = 1) THEN
2615: DEBUG('Exception: ' || sqlerrm, 'update_mol_carton_group');
2616: END IF;