[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'
896: -- {
897: for c_mmtt_rec in c_mmtt
898: LOOP
899: l_count := l_count + 1; --counter
900: l_api_return_status := fnd_api.g_ret_sts_success;
901: inv_mo_line_detail_util.delete_allocations
902: ( x_return_status => l_api_return_status
903: , x_msg_data => x_msg_count
904: , x_msg_count => x_msg_data
904: , x_msg_count => x_msg_data
905: , p_mo_line_id => p_line_id
906: , p_transaction_temp_id => c_mmtt_rec.transaction_temp_id
907: );
908: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
909: IF (l_debug = 1) THEN
910: DEBUG('delete_allocations returned success'
911: ,'Cancel_Move_Order_Line');
912: END IF;
917: || l_api_return_status
918: ,'Cancel_Move_Order_Line');
919: END IF;
920: l_flag := FALSE;
921: RAISE fnd_api.g_exc_error;
922: END IF;
923: END LOOP;
924:
925: --
956: DEBUG('Unable to lock the putaway MO line'
957: ,'CANCEL_MOVE_ORDER_LINE');
958: fnd_message.set_name('WMS', 'INV_PUTAWAY_MOL_LOCK_FAIL');
959: fnd_msg_pub.ADD;
960: RAISE fnd_api.g_exc_error;
961: END;
962:
963: wms_xdock_utils_pvt.g_demand_triggered := TRUE;
964:
961: END;
962:
963: wms_xdock_utils_pvt.g_demand_triggered := TRUE;
964:
965: l_api_return_status := fnd_api.g_ret_sts_success;
966: inv_rcv_integration_pvt.call_atf_api
967: ( x_return_status => l_api_return_status
968: , x_msg_data => x_msg_data
969: , x_msg_count => x_msg_count
978: );
979:
980: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
981:
982: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
983: IF (l_debug = 1)
984: THEN
985: DEBUG('inv_rcv_integration_pvt.call_atf_api returned success'
986: ,'CANCEL_MOVE_ORDER_LINE');
993: DEBUG('l_error_code: ' || l_error_code
994: ,'CANCEL_MOVE_ORDER_LINE');
995: END IF;
996:
997: IF l_api_return_status = fnd_api.g_ret_sts_error
998: THEN
999: RAISE fnd_api.g_exc_error;
1000: ELSE
1001: RAISE fnd_api.g_exc_unexpected_error;
995: END IF;
996:
997: IF l_api_return_status = fnd_api.g_ret_sts_error
998: THEN
999: RAISE fnd_api.g_exc_error;
1000: ELSE
1001: RAISE fnd_api.g_exc_unexpected_error;
1002: END IF;
1003: END IF;
997: IF l_api_return_status = fnd_api.g_ret_sts_error
998: THEN
999: RAISE fnd_api.g_exc_error;
1000: ELSE
1001: RAISE fnd_api.g_exc_unexpected_error;
1002: END IF;
1003: END IF;
1004: -- }
1005: END IF;
1010: THEN
1011: IF (l_debug = 1) THEN
1012: DEBUG('Both p_line_id and p_delivery_detail_id are null!'
1013: ,'CANCEL_MOVE_ORDER_LINE');
1014: RAISE fnd_api.g_exc_unexpected_error;
1015: END IF;
1016: END IF;
1017: -- {{
1018: -- Cancellation of sales/internal order where a xdock peg
1035: CLOSE c_xdock_rsv;
1036: END IF;
1037: fnd_message.set_name('WMS', 'INV_RSV_LOCK_FAIL');
1038: fnd_msg_pub.ADD;
1039: RAISE fnd_api.g_exc_error;
1040: END;
1041:
1042: wms_xdock_utils_pvt.g_demand_triggered := TRUE;
1043:
1057: || to_char(l_rsv_rec.reservation_id)
1058: ,'CANCEL_MOVE_ORDER_LINE');
1059: END IF;
1060:
1061: l_api_return_status := fnd_api.g_ret_sts_success;
1062: inv_reservation_pub.delete_reservation
1063: ( p_api_version_number => 1.0
1064: , p_init_msg_lst => fnd_api.g_false
1065: , x_return_status => l_api_return_status
1060:
1061: l_api_return_status := fnd_api.g_ret_sts_success;
1062: inv_reservation_pub.delete_reservation
1063: ( p_api_version_number => 1.0
1064: , p_init_msg_lst => fnd_api.g_false
1065: , x_return_status => l_api_return_status
1066: , x_msg_count => x_msg_count
1067: , x_msg_data => x_msg_data
1068: , p_rsv_rec => l_rsv_rec
1068: , p_rsv_rec => l_rsv_rec
1069: , p_serial_number => l_serial_tbl
1070: );
1071:
1072: IF l_api_return_status = fnd_api.g_ret_sts_success THEN
1073: IF (l_debug = 1)
1074: THEN
1075: DEBUG('inv_reservation_pub.delete_reservation returned success'
1076: ,'CANCEL_MOVE_ORDER_LINE');
1081: DEBUG('inv_reservation_pub.delete_reservation returned an error status: '
1082: || l_api_return_status, 'CANCEL_MOVE_ORDER_LINE');
1083: END IF;
1084:
1085: IF l_api_return_status = fnd_api.g_ret_sts_error
1086: THEN
1087: RAISE fnd_api.g_exc_error;
1088: ELSE
1089: RAISE fnd_api.g_exc_unexpected_error;
1083: END IF;
1084:
1085: IF l_api_return_status = fnd_api.g_ret_sts_error
1086: THEN
1087: RAISE fnd_api.g_exc_error;
1088: ELSE
1089: RAISE fnd_api.g_exc_unexpected_error;
1090: END IF;
1091: END IF;
1085: IF l_api_return_status = fnd_api.g_ret_sts_error
1086: THEN
1087: RAISE fnd_api.g_exc_error;
1088: ELSE
1089: RAISE fnd_api.g_exc_unexpected_error;
1090: END IF;
1091: END IF;
1092:
1093: EXIT WHEN l_rsv_index = l_xdock_rsv_tbl.LAST;
1104: -- {{
1105: -- END cancel_move_order_line }}
1106: --
1107: EXCEPTION
1108: WHEN fnd_api.g_exc_error THEN
1109: ROLLBACK TO cancelmo_sp;
1110: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
1111: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1112: p_data => x_msg_data,
1110: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
1111: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1112: p_data => x_msg_data,
1113: p_encoded => 'F');
1114: x_return_status := fnd_api.g_ret_sts_error;
1115:
1116: IF (l_debug = 1) THEN
1117: DEBUG('Return status = ' || x_return_status ||
1118: ', x_msg_data = ' || x_msg_data
1118: ', x_msg_data = ' || x_msg_data
1119: ,'CANCEL_MOVE_ORDER_LINE');
1120: END IF;
1121:
1122: WHEN fnd_api.g_exc_unexpected_error THEN
1123: ROLLBACK TO cancelmo_sp;
1124: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
1125: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1126: p_data => x_msg_data,
1124: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
1125: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1126: p_data => x_msg_data,
1127: p_encoded => 'F');
1128: x_return_status := fnd_api.g_ret_sts_unexp_error;
1129:
1130: IF (l_debug = 1) THEN
1131: DEBUG('Return status = ' || x_return_status ||
1132: ', x_msg_data = ' || x_msg_data
1134: END IF;
1135:
1136: WHEN OTHERS THEN
1137: ROLLBACK TO cancelmo_sp;
1138: x_return_status := fnd_api.g_ret_sts_unexp_error;
1139:
1140: --ER: CI project. Setting the fields x_msg_count and x_msg_data correctly.
1141: x_msg_count := SQLCODE;
1142: x_msg_data := SQLERRM;
1320:
1321: l_wdd_rec c_lock_wdd%ROWTYPE;
1322:
1323: BEGIN
1324: x_return_status := fnd_api.g_ret_sts_success;
1325: SAVEPOINT reducemo_sp;
1326:
1327: -- {{
1328: -- BEGIN reduce_move_order_quantity }}
1368: END IF;
1369:
1370: IF l_move_order_type <= 0
1371: THEN
1372: RAISE fnd_api.g_exc_unexpected_error;
1373: END IF;
1374:
1375: EXCEPTION
1376: WHEN OTHERS THEN
1376: WHEN OTHERS THEN
1377: IF (l_debug = 1) THEN
1378: DEBUG('Unxexpected error querying MO type: '|| 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
1390: DEBUG('Cannot reduce putaway MO line qty','Reduce_Move_Order_Quantity');
1391: END IF;
1392: fnd_message.set_name('WMS', 'INV_MOL_PUTAWAY_QTY_NOCHG');
1393: fnd_msg_pub.ADD;
1394: RAISE fnd_api.g_exc_error;
1395: END IF;
1396:
1397: -- query mo line info
1398: OPEN c_line_info;
1423: IF (l_debug = 1) THEN
1424: DEBUG('Move order line not found', 'Reduce_Move_Order_Quantity');
1425: END IF;
1426: CLOSE c_line_info;
1427: RAISE fnd_api.g_exc_error;
1428: END IF;
1429:
1430: IF c_line_info%ISOPEN
1431: THEN
1446: , p_delete_reservations => 'Y'
1447: , p_txn_source_line_id => p_txn_source_line_id
1448: );
1449:
1450: IF l_return_status = fnd_api.g_ret_sts_error THEN
1451: RAISE fnd_api.g_exc_error;
1452: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1453: RAISE fnd_api.g_exc_unexpected_error;
1454: END IF;
1447: , p_txn_source_line_id => p_txn_source_line_id
1448: );
1449:
1450: IF l_return_status = fnd_api.g_ret_sts_error THEN
1451: RAISE fnd_api.g_exc_error;
1452: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1453: RAISE fnd_api.g_exc_unexpected_error;
1454: END IF;
1455: END IF;
1448: );
1449:
1450: IF l_return_status = fnd_api.g_ret_sts_error THEN
1451: RAISE fnd_api.g_exc_error;
1452: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1453: RAISE fnd_api.g_exc_unexpected_error;
1454: END IF;
1455: END IF;
1456:
1449:
1450: IF l_return_status = fnd_api.g_ret_sts_error THEN
1451: RAISE fnd_api.g_exc_error;
1452: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1453: RAISE fnd_api.g_exc_unexpected_error;
1454: END IF;
1455: END IF;
1456:
1457: --
1489: IF (l_debug = 1) THEN
1490: DEBUG('Item not found', 'Reduce_Move_Order_Quantity');
1491: END IF;
1492: CLOSE c_primary_uom;
1493: RAISE fnd_api.g_exc_unexpected_error;
1494: END IF;
1495: CLOSE c_primary_uom;
1496:
1497: IF l_primary_uom_code <> l_mo_uom_code
1514: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
1515: fnd_message.set_token('UOM', l_primary_uom_code);
1516: fnd_message.set_token('ROUTINE', 'Reduce Move Order Quantity');
1517: fnd_msg_pub.ADD;
1518: RAISE fnd_api.g_exc_unexpected_error;
1519: END IF;
1520: ELSE
1521: l_prim_quantity_to_delete := l_quantity_to_delete;
1522: END IF;
1555:
1556: -- query reservation
1557: inv_reservation_pvt.query_reservation
1558: ( p_api_version_number => 1.0
1559: , p_init_msg_lst => fnd_api.g_false
1560: , x_return_status => l_return_status
1561: , x_msg_count => x_msg_count
1562: , x_msg_data => x_msg_data
1563: , p_query_input => l_rsv_rec
1565: , x_mtl_reservation_tbl_count => l_rsv_count
1566: , x_error_code => l_error_code
1567: );
1568:
1569: IF l_return_status = fnd_api.g_ret_sts_error THEN
1570: IF (l_debug = 1) THEN
1571: DEBUG('Query reservation returned error','Reduce_Move_Order_Quantity');
1572: END IF;
1573: RAISE fnd_api.g_exc_error;
1569: IF l_return_status = fnd_api.g_ret_sts_error THEN
1570: IF (l_debug = 1) THEN
1571: DEBUG('Query reservation returned error','Reduce_Move_Order_Quantity');
1572: END IF;
1573: RAISE fnd_api.g_exc_error;
1574: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1575: THEN
1576: IF (l_debug = 1) THEN
1577: DEBUG('Query reservation returned unexpected error','Reduce_Move_Order_Quantity');
1570: IF (l_debug = 1) THEN
1571: DEBUG('Query reservation returned error','Reduce_Move_Order_Quantity');
1572: END IF;
1573: RAISE fnd_api.g_exc_error;
1574: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1575: THEN
1576: IF (l_debug = 1) THEN
1577: DEBUG('Query reservation returned unexpected error','Reduce_Move_Order_Quantity');
1578: END IF;
1575: THEN
1576: IF (l_debug = 1) THEN
1577: DEBUG('Query reservation returned unexpected error','Reduce_Move_Order_Quantity');
1578: END IF;
1579: RAISE fnd_api.g_exc_unexpected_error;
1580: END IF;
1581:
1582: l_update_rec := l_rsv_tbl(1);
1583: l_update_rec.reservation_quantity := NULL;
1624:
1625: -- update reservation
1626: inv_reservation_pub.update_reservation
1627: ( p_api_version_number => 1.0
1628: , p_init_msg_lst => fnd_api.g_false
1629: , x_return_status => l_return_status
1630: , x_msg_count => x_msg_count
1631: , x_msg_data => x_msg_data
1632: , p_original_rsv_rec => l_rsv_tbl(1)
1632: , p_original_rsv_rec => l_rsv_tbl(1)
1633: , p_to_rsv_rec => l_update_rec
1634: , p_original_serial_number => l_dummy_sn
1635: , p_to_serial_number => l_dummy_sn
1636: , p_validation_flag => fnd_api.g_true
1637: );
1638:
1639: IF l_return_status = fnd_api.g_ret_sts_error THEN
1640: IF (l_debug = 1) THEN
1635: , p_to_serial_number => l_dummy_sn
1636: , p_validation_flag => fnd_api.g_true
1637: );
1638:
1639: IF l_return_status = fnd_api.g_ret_sts_error THEN
1640: IF (l_debug = 1) THEN
1641: DEBUG('Update reservation returned error','Reduce_Move_Order_Quantity');
1642: END IF;
1643: RAISE fnd_api.g_exc_error;
1639: IF l_return_status = fnd_api.g_ret_sts_error THEN
1640: IF (l_debug = 1) THEN
1641: DEBUG('Update reservation returned error','Reduce_Move_Order_Quantity');
1642: END IF;
1643: RAISE fnd_api.g_exc_error;
1644: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1645: THEN
1646: IF (l_debug = 1) THEN
1647: DEBUG('Update reservation returned unexpected error','Reduce_Move_Order_Quantity');
1640: IF (l_debug = 1) THEN
1641: DEBUG('Update reservation returned error','Reduce_Move_Order_Quantity');
1642: END IF;
1643: RAISE fnd_api.g_exc_error;
1644: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error
1645: THEN
1646: IF (l_debug = 1) THEN
1647: DEBUG('Update reservation returned unexpected error','Reduce_Move_Order_Quantity');
1648: END IF;
1645: THEN
1646: IF (l_debug = 1) THEN
1647: DEBUG('Update reservation returned unexpected error','Reduce_Move_Order_Quantity');
1648: END IF;
1649: RAISE fnd_api.g_exc_unexpected_error;
1650: END IF;
1651: -- }
1652: END LOOP;
1653:
1809: ( p_count => x_msg_count
1810: , p_data => x_msg_data
1811: , p_encoded => 'F'
1812: );
1813: RAISE fnd_api.g_exc_error;
1814: END;
1815:
1816: IF (l_debug = 1)
1817: THEN
1842: CLOSE c_xdock_rsv;
1843: END IF;
1844: fnd_message.set_name('WMS', 'INV_RSV_LOCK_FAIL');
1845: fnd_msg_pub.ADD;
1846: RAISE fnd_api.g_exc_error;
1847: END;
1848:
1849: wms_xdock_utils_pvt.g_demand_triggered := TRUE;
1850:
1870:
1871: -- query reservation
1872: inv_reservation_pvt.query_reservation
1873: ( p_api_version_number => 1.0
1874: , p_init_msg_lst => fnd_api.g_false
1875: , x_return_status => x_return_status
1876: , x_msg_count => x_msg_count
1877: , x_msg_data => x_msg_data
1878: , p_query_input => l_rsv_rec
1880: , x_mtl_reservation_tbl_count => l_rsv_count
1881: , x_error_code => l_error_code
1882: );
1883:
1884: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1885: IF (l_debug = 1) THEN
1886: DEBUG('Error: Query Reservations returned '
1887: || x_return_status
1888: ,'Reduce_Move_Order_Quantity');
1886: DEBUG('Error: Query Reservations returned '
1887: || x_return_status
1888: ,'Reduce_Move_Order_Quantity');
1889: END IF;
1890: IF x_return_status = fnd_api.g_ret_sts_error
1891: THEN
1892: fnd_message.set_name('INV','INV_QRY_RSV_FAILED');
1893: fnd_msg_pub.ADD;
1894: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1893: fnd_msg_pub.ADD;
1894: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1895: p_data => x_msg_data,
1896: p_encoded => 'F');
1897: RAISE fnd_api.g_exc_error;
1898: ELSE
1899: RAISE fnd_api.g_exc_unexpected_error;
1900: END IF;
1901: END IF;
1895: p_data => x_msg_data,
1896: p_encoded => 'F');
1897: RAISE fnd_api.g_exc_error;
1898: ELSE
1899: RAISE fnd_api.g_exc_unexpected_error;
1900: END IF;
1901: END IF;
1902:
1903: IF l_rsv_count <= 0 THEN
1910:
1911: fnd_msg_pub.count_and_get(p_count => x_msg_count,
1912: p_data => x_msg_data,
1913: p_encoded => 'F');
1914: RAISE fnd_api.g_exc_error;
1915: END IF;
1916:
1917: l_rsv_rec2 := l_rsv_tbl(1);
1918:
1934: THEN
1935: DEBUG('Invalid conversion factor: ' || l_conv_rate
1936: ,'Reduce_Move_Order_Quantity');
1937: END IF;
1938: RAISE fnd_api.g_exc_unexpected_error;
1939: ELSE
1940: l_reduc_qty_conv := ROUND( l_conv_rate * l_reduction_quantity
1941: , g_conv_precision
1942: );
1964: THEN
1965: DEBUG('Invalid conversion factor: ' || l_conv_rate
1966: ,'Reduce_Move_Order_Quantity');
1967: END IF;
1968: RAISE fnd_api.g_exc_unexpected_error;
1969: ELSE
1970: l_prim_qty_conv := ROUND( l_conv_rate * l_reduction_quantity
1971: , g_conv_precision
1972: );
1995: THEN
1996: DEBUG('Invalid conversion factor: ' || l_conv_rate
1997: ,'Reduce_Move_Order_Quantity');
1998: END IF;
1999: RAISE fnd_api.g_exc_unexpected_error;
2000: ELSE
2001: l_sec_reduc_qty_conv := ROUND( l_conv_rate * l_sec_reduction_quantity
2002: , g_conv_precision
2003: );
2019: END IF;
2020:
2021: inv_reservation_pub.update_reservation
2022: ( p_api_version_number => 1.0
2023: , p_init_msg_lst => fnd_api.g_false
2024: , x_return_status => x_return_status
2025: , x_msg_count => x_msg_count
2026: , x_msg_data => x_msg_data
2027: , p_original_rsv_rec => l_rsv_tbl(1)
2027: , p_original_rsv_rec => l_rsv_tbl(1)
2028: , p_to_rsv_rec => l_update_rec
2029: , p_original_serial_number => l_dummy_sn
2030: , p_to_serial_number => l_dummy_sn
2031: , p_validation_flag => fnd_api.g_true
2032: );
2033:
2034: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2035: IF (l_debug = 1) THEN
2030: , p_to_serial_number => l_dummy_sn
2031: , p_validation_flag => fnd_api.g_true
2032: );
2033:
2034: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2035: IF (l_debug = 1) THEN
2036: DEBUG('Error: Update Reservations returned '
2037: || x_return_status
2038: ,'Reduce_Move_Order_Quantity');
2036: DEBUG('Error: Update Reservations returned '
2037: || x_return_status
2038: ,'Reduce_Move_Order_Quantity');
2039: END IF;
2040: IF x_return_status = fnd_api.g_ret_sts_error
2041: THEN
2042: fnd_message.set_name('INV','INV_UPDATE_RSV_FAILED');
2043: fnd_msg_pub.ADD;
2044: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2043: fnd_msg_pub.ADD;
2044: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2045: p_data => x_msg_data,
2046: p_encoded => 'F');
2047: RAISE fnd_api.g_exc_error;
2048: ELSE
2049: RAISE fnd_api.g_exc_unexpected_error;
2050: END IF;
2051: END IF;
2045: p_data => x_msg_data,
2046: p_encoded => 'F');
2047: RAISE fnd_api.g_exc_error;
2048: ELSE
2049: RAISE fnd_api.g_exc_unexpected_error;
2050: END IF;
2051: END IF;
2052:
2053: l_reduction_quantity := 0;
2080: THEN
2081: DEBUG('Invalid conversion factor: ' || l_conv_rate
2082: ,'Reduce_Move_Order_Quantity');
2083: END IF;
2084: RAISE fnd_api.g_exc_unexpected_error;
2085: ELSE
2086: l_reduction_quantity := l_reduction_quantity
2087: - ROUND( l_conv_rate
2088: * l_rsv_rec2.reservation_quantity
2115: THEN
2116: DEBUG('Invalid conversion factor: ' || l_conv_rate
2117: ,'Reduce_Move_Order_Quantity');
2118: END IF;
2119: RAISE fnd_api.g_exc_unexpected_error;
2120: ELSE
2121: l_sec_reduction_quantity := l_sec_reduction_quantity
2122: - ROUND( l_conv_rate
2123: * l_rsv_rec2.secondary_reservation_quantity
2136: END IF;
2137:
2138: inv_reservation_pub.delete_reservation
2139: ( p_api_version_number => 1.0
2140: , p_init_msg_lst => fnd_api.g_false
2141: , x_return_status => x_return_status
2142: , x_msg_count => x_msg_count
2143: , x_msg_data => x_msg_data
2144: , p_rsv_rec => l_rsv_rec2
2144: , p_rsv_rec => l_rsv_rec2
2145: , p_serial_number => l_serial_tbl
2146: );
2147:
2148: IF x_return_status <> fnd_api.g_ret_sts_success
2149: THEN
2150: IF (l_debug = 1)
2151: THEN
2152: DEBUG('inv_reservation_pub.delete_reservation returned an error status: '
2152: DEBUG('inv_reservation_pub.delete_reservation returned an error status: '
2153: || x_return_status, 'Reduce_Move_Order_Quantity');
2154: END IF;
2155:
2156: IF x_return_status = fnd_api.g_ret_sts_error
2157: THEN
2158: fnd_msg_pub.count_and_get
2159: ( p_count => x_msg_count
2160: , p_data => x_msg_data
2164: THEN
2165: DEBUG('x_msg_data: ' || x_msg_data
2166: ,'Reduce_Move_Order_Quantity');
2167: END IF;
2168: RAISE fnd_api.g_exc_error;
2169: ELSE
2170: RAISE fnd_api.g_exc_unexpected_error;
2171: END IF;
2172: ELSE
2166: ,'Reduce_Move_Order_Quantity');
2167: END IF;
2168: RAISE fnd_api.g_exc_error;
2169: ELSE
2170: RAISE fnd_api.g_exc_unexpected_error;
2171: END IF;
2172: ELSE
2173: IF (l_debug = 1)
2174: THEN
2194: -- END reduce_move_order_quantity }}
2195: --
2196:
2197: EXCEPTION
2198: WHEN fnd_api.g_exc_error THEN
2199: ROLLBACK TO reducemo_sp;
2200: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
2201: x_return_status := fnd_api.g_ret_sts_error;
2202: fnd_msg_pub.count_and_get
2197: EXCEPTION
2198: WHEN fnd_api.g_exc_error THEN
2199: ROLLBACK TO reducemo_sp;
2200: wms_xdock_utils_pvt.g_demand_triggered := FALSE;
2201: x_return_status := fnd_api.g_ret_sts_error;
2202: fnd_msg_pub.count_and_get
2203: ( p_count => x_msg_count
2204: , p_data => x_msg_data
2205: , p_encoded => 'F'
2216: IF (l_debug = 1) THEN
2217: DEBUG('Others error' || SQLERRM
2218: ,'Reduce_Move_Order_Quantity');
2219: END IF;
2220: x_return_status := fnd_api.g_ret_sts_unexp_error;
2221:
2222: END reduce_move_order_quantity;
2223:
2224:
2317: DEBUG('Move order line not found', 'reduce_rsv_allocation');
2318: END IF;
2319:
2320: CLOSE c_primary_uom;
2321: RAISE fnd_api.g_exc_unexpected_error;
2322: END IF;
2323:
2324: CLOSE c_primary_uom;
2325:
2339: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
2340: fnd_message.set_token('UOM', l_primary_uom_code);
2341: fnd_message.set_token('ROUTINE', 'reduce_rsv_allocation');
2342: fnd_msg_pub.ADD;
2343: RAISE fnd_api.g_exc_unexpected_error;
2344: END IF;
2345: ELSE
2346: l_prim_quantity_to_delete := l_quantity_to_delete;
2347: END IF;
2358:
2359: -- query reservation
2360: inv_reservation_pvt.query_reservation(
2361: p_api_version_number => 1.0
2362: , p_init_msg_lst => fnd_api.g_false
2363: , x_return_status => l_return_status
2364: , x_msg_count => x_msg_count
2365: , x_msg_data => x_msg_data
2366: , p_query_input => l_rsv_rec
2368: , x_mtl_reservation_tbl_count => l_rsv_count
2369: , x_error_code => l_error_code
2370: );
2371:
2372: IF l_return_status = fnd_api.g_ret_sts_error THEN
2373: IF (l_debug = 1) THEN
2374: DEBUG('Query reservation returned error', 'reduce_rsv_allocation');
2375: END IF;
2376:
2373: IF (l_debug = 1) THEN
2374: DEBUG('Query reservation returned error', 'reduce_rsv_allocation');
2375: END IF;
2376:
2377: RAISE fnd_api.g_exc_error;
2378: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2379: IF (l_debug = 1) THEN
2380: DEBUG('Query reservation returned unexpected error', 'reduce_rsv_allocation');
2381: END IF;
2374: DEBUG('Query reservation returned error', 'reduce_rsv_allocation');
2375: END IF;
2376:
2377: RAISE fnd_api.g_exc_error;
2378: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2379: IF (l_debug = 1) THEN
2380: DEBUG('Query reservation returned unexpected error', 'reduce_rsv_allocation');
2381: END IF;
2382:
2379: IF (l_debug = 1) THEN
2380: DEBUG('Query reservation returned unexpected error', 'reduce_rsv_allocation');
2381: END IF;
2382:
2383: RAISE fnd_api.g_exc_unexpected_error;
2384: END IF;
2385:
2386: l_update_rec := l_rsv_tbl(1);
2387:
2418:
2419: -- update reservations
2420: inv_reservation_pub.update_reservation(
2421: p_api_version_number => 1.0
2422: , p_init_msg_lst => fnd_api.g_false
2423: , x_return_status => l_return_status
2424: , x_msg_count => x_msg_count
2425: , x_msg_data => x_msg_data
2426: , p_original_rsv_rec => l_rsv_tbl(1)
2426: , p_original_rsv_rec => l_rsv_tbl(1)
2427: , p_to_rsv_rec => l_update_rec
2428: , p_original_serial_number => l_dummy_sn
2429: , p_to_serial_number => l_dummy_sn
2430: , p_validation_flag => fnd_api.g_true
2431: );
2432:
2433: IF l_return_status = fnd_api.g_ret_sts_error THEN
2434: IF (l_debug = 1) THEN
2429: , p_to_serial_number => l_dummy_sn
2430: , p_validation_flag => fnd_api.g_true
2431: );
2432:
2433: IF l_return_status = fnd_api.g_ret_sts_error THEN
2434: IF (l_debug = 1) THEN
2435: DEBUG('Update reservation returned error', 'reduce_rsv_allocation');
2436: END IF;
2437:
2434: IF (l_debug = 1) THEN
2435: DEBUG('Update reservation returned error', 'reduce_rsv_allocation');
2436: END IF;
2437:
2438: RAISE fnd_api.g_exc_error;
2439: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2440: IF (l_debug = 1) THEN
2441: DEBUG('Update reservation returned unexpected error', 'reduce_rsv_allocation');
2442: END IF;
2435: DEBUG('Update reservation returned error', 'reduce_rsv_allocation');
2436: END IF;
2437:
2438: RAISE fnd_api.g_exc_error;
2439: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2440: IF (l_debug = 1) THEN
2441: DEBUG('Update reservation returned unexpected error', 'reduce_rsv_allocation');
2442: END IF;
2443:
2440: IF (l_debug = 1) THEN
2441: DEBUG('Update reservation returned unexpected error', 'reduce_rsv_allocation');
2442: END IF;
2443:
2444: RAISE fnd_api.g_exc_unexpected_error;
2445: END IF;
2446: END IF; -- reservation id is not null
2447: END IF; --Bug 7190635, l_ato_serial_pick is 'N'
2448:
2465: , x_msg_count => x_msg_count
2466: , p_transaction_temp_id => l_transaction_temp_id
2467: );
2468:
2469: IF l_return_status <> fnd_api.g_ret_sts_success THEN
2470: IF (l_debug = 1) THEN
2471: DEBUG('Error occurred while Deleting the Transaction', 'reduce_rsv_allocation');
2472: END IF;
2473:
2470: IF (l_debug = 1) THEN
2471: DEBUG('Error occurred while Deleting the Transaction', 'reduce_rsv_allocation');
2472: END IF;
2473:
2474: RAISE fnd_api.g_exc_error;
2475: END IF;
2476: ELSE -- reduce the quantity on the allocation
2477: IF (l_debug = 1) THEN
2478: DEBUG('reducing quantity on the allocation', 'reduce_rsv_allocation');
2486: , p_quantity => l_quantity_to_delete
2487: , p_secondary_quantity => l_sec_quantity_to_delete --INVCONV
2488: );
2489:
2490: IF l_return_status = fnd_api.g_ret_sts_error THEN
2491: IF (l_debug = 1) THEN
2492: DEBUG('Reduce allocation returned error', 'reduce_rsv_allocation');
2493: END IF;
2494:
2491: IF (l_debug = 1) THEN
2492: DEBUG('Reduce allocation returned error', 'reduce_rsv_allocation');
2493: END IF;
2494:
2495: RAISE fnd_api.g_exc_error;
2496: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2497: IF (l_debug = 1) THEN
2498: DEBUG('Reduce allocation returned unexpected error', 'reduce_rsv_allocation');
2499: END IF;
2492: DEBUG('Reduce allocation returned error', 'reduce_rsv_allocation');
2493: END IF;
2494:
2495: RAISE fnd_api.g_exc_error;
2496: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2497: IF (l_debug = 1) THEN
2498: DEBUG('Reduce allocation returned unexpected error', 'reduce_rsv_allocation');
2499: END IF;
2500:
2497: IF (l_debug = 1) THEN
2498: DEBUG('Reduce allocation returned unexpected error', 'reduce_rsv_allocation');
2499: END IF;
2500:
2501: RAISE fnd_api.g_exc_unexpected_error;
2502: END IF;
2503: END IF; -- det. quantity = task qty
2504:
2505: x_return_status := fnd_api.g_ret_sts_success;
2501: RAISE fnd_api.g_exc_unexpected_error;
2502: END IF;
2503: END IF; -- det. quantity = task qty
2504:
2505: x_return_status := fnd_api.g_ret_sts_success;
2506: EXCEPTION
2507: WHEN fnd_api.g_exc_error THEN
2508: ROLLBACK TO del_rsv_all_sp;
2509: x_return_status := fnd_api.g_ret_sts_error;
2503: END IF; -- det. quantity = task qty
2504:
2505: x_return_status := fnd_api.g_ret_sts_success;
2506: EXCEPTION
2507: WHEN fnd_api.g_exc_error THEN
2508: ROLLBACK TO del_rsv_all_sp;
2509: x_return_status := fnd_api.g_ret_sts_error;
2510: WHEN OTHERS THEN
2511: ROLLBACK TO del_rsv_all_sp;
2505: x_return_status := fnd_api.g_ret_sts_success;
2506: EXCEPTION
2507: WHEN fnd_api.g_exc_error THEN
2508: ROLLBACK TO del_rsv_all_sp;
2509: x_return_status := fnd_api.g_ret_sts_error;
2510: WHEN OTHERS THEN
2511: ROLLBACK TO del_rsv_all_sp;
2512:
2513: IF (l_debug = 1) THEN
2513: IF (l_debug = 1) THEN
2514: DEBUG('Others error' || SQLERRM, 'reduce_rsv_allocation');
2515: END IF;
2516:
2517: x_return_status := fnd_api.g_ret_sts_unexp_error;
2518: END reduce_rsv_allocation;
2519:
2520:
2521: /* The following procedure is called by shipping to update carton group id whenever
2547: DEBUG('before update statement...', 'update_mol_carton_group');
2548: END IF;
2549:
2550: l_debug := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
2551: x_return_status := fnd_api.g_ret_sts_success;
2552:
2553: -- {{
2554: -- BEGIN update_mol_carton_group }}
2555: --
2572: -- the delivery, with material already received.
2573: -- Carton grouping ID column stays as is }}
2574: --
2575: IF SQL%NOTFOUND THEN
2576: x_return_status := fnd_api.g_ret_sts_unexp_error;
2577:
2578: IF (l_debug = 1) THEN
2579: DEBUG('can not find move order line', 'update_mol_carton_group');
2580: END IF;
2593: --
2594:
2595: EXCEPTION
2596: WHEN OTHERS THEN
2597: x_return_status := fnd_api.g_ret_sts_unexp_error;
2598:
2599: IF (l_debug = 1) THEN
2600: DEBUG('Exception: ' || sqlerrm, 'update_mol_carton_group');
2601: END IF;