[Home] [Help]
85: , p_from_cost_group_id => p_from_cost_group_id
86: , p_transfer_org_id => p_transfer_org_id
87: );
88: EXCEPTION
89: WHEN fnd_api.g_exc_error THEN
90: x_return_status := fnd_api.g_ret_sts_error;
91:
92: IF (l_debug = 1) THEN
93: mydebug('create_mo: call to WMS_Task_Dispatch_put_away.create_mo failed');
86: , p_transfer_org_id => p_transfer_org_id
87: );
88: EXCEPTION
89: WHEN fnd_api.g_exc_error THEN
90: x_return_status := fnd_api.g_ret_sts_error;
91:
92: IF (l_debug = 1) THEN
93: mydebug('create_mo: call to WMS_Task_Dispatch_put_away.create_mo failed');
94: END IF;
94: END IF;
95:
96: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
97: WHEN OTHERS THEN
98: x_return_status := fnd_api.g_ret_sts_unexp_error;
99:
100: IF (l_debug = 1) THEN
101: mydebug('create_mo: call to WMS_Task_Dispatch_put_away.create_mo failed');
102: END IF;
121: l_return_status VARCHAR2(1);
122: l_task_id NUMBER;
123: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
124: BEGIN
125: l_return_status := fnd_api.g_ret_sts_success;
126: l_org_id := p_org_id;
127: l_temp_id := p_temp_id;
128: l_person_id := p_user_id;
129: l_eqp_id := 1111;
193: , move_order_line_id
194: FROM mtl_material_transactions_temp
195: WHERE transaction_temp_id = l_temp_id);
196:
197: x_return_status := fnd_api.g_ret_sts_success;
198: EXCEPTION
199: WHEN OTHERS THEN
200: x_return_status := fnd_api.g_ret_sts_unexp_error;
201: fnd_message.set_name('WMS', 'WMS_TD_INSERT_TASK');
196:
197: x_return_status := fnd_api.g_ret_sts_success;
198: EXCEPTION
199: WHEN OTHERS THEN
200: x_return_status := fnd_api.g_ret_sts_unexp_error;
201: fnd_message.set_name('WMS', 'WMS_TD_INSERT_TASK');
202: fnd_msg_pub.ADD;
203: END insert_task;
204:
284: mydebug('In next task:');
285: END IF;
286:
287: SAVEPOINT sp_td_gen_next_task;
288: l_return_status := fnd_api.g_ret_sts_success;
289: l_user_id := p_sign_on_emp_id;
290: l_org_id := p_sign_on_org_id;
291: l_zone := p_sign_on_zone;
292: l_eqp_id := p_sign_on_equipment_id;
322: END IF;
323:
324: fnd_message.set_name('INV', 'INV_NO_OPEN_PERIOD');
325: fnd_msg_pub.ADD;
326: RAISE fnd_api.g_exc_unexpected_error;
327: END IF;
328:
329: IF (l_debug = 1) THEN
330: mydebug('next_task: Check to see if there are tasks in wms_disp_tasks already..');
409: mydebug('next_task: There are tasks in wms_disp_tasks already');
410: END IF;
411:
412: l_c_rows := -999;
413: x_return_status := fnd_api.g_ret_sts_success;
414:
415: -- Also set the task type value even if tasks have
416: -- already been dispatched
417: IF l_task_type = 'EXPPICK' THEN
548: IF (l_debug = 1) THEN
549: mydebug('next_task: TaskType' || l_task_type);
550: END IF;
551:
552: IF l_lpn_id = fnd_api.g_miss_num THEN
553: l_lpn_id := NULL;
554: END IF;
555:
556: IF (l_device_id IS NOT NULL) THEN
620: IF l_invoked_device_id IS NULL THEN
621: l_invoked_device_id := l_temp_device_id;
622: END IF;
623:
624: IF l_return_status <> fnd_api.g_ret_sts_success THEN
625: IF (l_debug = 1) THEN
626: mydebug('next_task:failed to invoke device ' || TO_CHAR(l_temp_device_id));
627: END IF;
628: END IF;
673: IF (l_debug = 1) THEN
674: mydebug('next_task: Ret Status' || l_return_status);
675: END IF;
676:
677: IF l_return_status = fnd_api.g_ret_sts_success THEN
678: IF (l_debug = 1) THEN
679: mydebug('in here');
680: END IF;
681:
829:
830: -- If LPN has been provided, exit, since we only want the first
831: --task
832: IF l_lpn_id IS NULL
833: OR l_lpn_id = fnd_api.g_miss_num THEN
834: IF (l_debug = 1) THEN
835: mydebug('next_task: LPN was not provided');
836: END IF;
837: ELSE
877: IF l_invoked_device_id IS NULL THEN
878: l_invoked_device_id := l_temp_device_id;
879: END IF;
880:
881: IF l_return_status <> fnd_api.g_ret_sts_success THEN
882: IF (l_debug = 1) THEN
883: mydebug('next_task:failed to invoke device ' || TO_CHAR(l_temp_device_id));
884: END IF;
885: END IF;
910: mydebug('before commiting');
911: END IF;
912:
913: COMMIT;
914: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
915: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
916: fnd_msg_pub.ADD;
917: RAISE fnd_api.g_exc_unexpected_error;
918: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
913: COMMIT;
914: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
915: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
916: fnd_msg_pub.ADD;
917: RAISE fnd_api.g_exc_unexpected_error;
918: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
919: IF (l_debug = 1) THEN
920: mydebug('next_task: Setting status to S');
921: END IF;
914: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
915: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
916: fnd_msg_pub.ADD;
917: RAISE fnd_api.g_exc_unexpected_error;
918: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
919: IF (l_debug = 1) THEN
920: mydebug('next_task: Setting status to S');
921: END IF;
922:
919: IF (l_debug = 1) THEN
920: mydebug('next_task: Setting status to S');
921: END IF;
922:
923: l_return_status := fnd_api.g_ret_sts_success;
924: -- l_c_rows:=0;
925: END IF;
926:
927: IF l_device_id IS NULL THEN
954: mydebug('next_task: done with API');
955: END IF;
956:
957: x_nbr_tasks := l_c_rows;
958: x_return_status := fnd_api.g_ret_sts_success;
959: COMMIT;
960: EXCEPTION
961: WHEN fnd_api.g_exc_error THEN
962: x_return_status := fnd_api.g_ret_sts_error;
957: x_nbr_tasks := l_c_rows;
958: x_return_status := fnd_api.g_ret_sts_success;
959: COMMIT;
960: EXCEPTION
961: WHEN fnd_api.g_exc_error THEN
962: x_return_status := fnd_api.g_ret_sts_error;
963: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
964: ROLLBACK TO sp_td_gen_next_task;
965: WHEN OTHERS THEN
958: x_return_status := fnd_api.g_ret_sts_success;
959: COMMIT;
960: EXCEPTION
961: WHEN fnd_api.g_exc_error THEN
962: x_return_status := fnd_api.g_ret_sts_error;
963: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
964: ROLLBACK TO sp_td_gen_next_task;
965: WHEN OTHERS THEN
966: x_return_status := fnd_api.g_ret_sts_unexp_error;
962: x_return_status := fnd_api.g_ret_sts_error;
963: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
964: ROLLBACK TO sp_td_gen_next_task;
965: WHEN OTHERS THEN
966: x_return_status := fnd_api.g_ret_sts_unexp_error;
967: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
968: ROLLBACK TO sp_td_gen_next_task;
969: END next_task;
970:
1055: mydebug('In next task:');
1056: END IF;
1057:
1058: SAVEPOINT sp_td_gen_next_cp_task;
1059: l_return_status := fnd_api.g_ret_sts_success;
1060: l_user_id := p_sign_on_emp_id;
1061: l_org_id := p_sign_on_org_id;
1062: l_zone := p_sign_on_zone;
1063: l_eqp_id := p_sign_on_equipment_id;
1093: END IF;
1094:
1095: fnd_message.set_name('INV', 'INV_NO_OPEN_PERIOD');
1096: fnd_msg_pub.ADD;
1097: RAISE fnd_api.g_exc_unexpected_error;
1098: END IF;
1099:
1100: IF (l_debug = 1) THEN
1101: mydebug('next_CP_task: done with open period check');
1123: IF (l_debug = 1) THEN
1124: mydebug('next_CP_task: TaskType' || l_task_type);
1125: END IF;
1126:
1127: IF l_lpn_id = fnd_api.g_miss_num THEN
1128: l_lpn_id := NULL;
1129: END IF;
1130:
1131: IF (l_device_id IS NOT NULL) THEN
1195: IF l_invoked_device_id IS NULL THEN
1196: l_invoked_device_id := l_temp_device_id;
1197: END IF;
1198:
1199: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1200: IF (l_debug = 1) THEN
1201: mydebug('next_CP_task:failed to invoke device ' || TO_CHAR(l_temp_device_id));
1202: END IF;
1203: END IF;
1239: IF (l_debug = 1) THEN
1240: mydebug('next_CP_task: Ret Status' || l_return_status);
1241: END IF;
1242:
1243: IF l_return_status = fnd_api.g_ret_sts_success THEN
1244: IF (l_debug = 1) THEN
1245: mydebug('Task dispatch is sucess for cluster pick');
1246: END IF;
1247:
1384:
1385: -- If LPN has been provided, exit, since we only want the first
1386: --task
1387: IF l_lpn_id IS NULL
1388: OR l_lpn_id = fnd_api.g_miss_num THEN
1389: IF (l_debug = 1) THEN
1390: mydebug('next_CP_task: LPN was not provided');
1391: END IF;
1392: ELSE
1432: IF l_invoked_device_id IS NULL THEN
1433: l_invoked_device_id := l_temp_device_id;
1434: END IF;
1435:
1436: IF l_return_status <> fnd_api.g_ret_sts_success THEN
1437: IF (l_debug = 1) THEN
1438: mydebug('next_CP_task:failed to invoke device ' || TO_CHAR(l_temp_device_id));
1439: END IF;
1440: END IF;
1465: mydebug('before commiting');
1466: END IF;
1467:
1468: COMMIT;
1469: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1470: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
1471: fnd_msg_pub.ADD;
1472: RAISE fnd_api.g_exc_unexpected_error;
1473: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1468: COMMIT;
1469: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1470: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
1471: fnd_msg_pub.ADD;
1472: RAISE fnd_api.g_exc_unexpected_error;
1473: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1474: IF (l_debug = 1) THEN
1475: mydebug('next_CP_task: Setting status to S');
1476: END IF;
1469: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1470: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
1471: fnd_msg_pub.ADD;
1472: RAISE fnd_api.g_exc_unexpected_error;
1473: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1474: IF (l_debug = 1) THEN
1475: mydebug('next_CP_task: Setting status to S');
1476: END IF;
1477:
1474: IF (l_debug = 1) THEN
1475: mydebug('next_CP_task: Setting status to S');
1476: END IF;
1477:
1478: l_return_status := fnd_api.g_ret_sts_success;
1479: -- l_c_rows:=0;
1480: END IF;
1481:
1482: IF l_device_id IS NULL THEN
1508: mydebug('next_CP_task: done with API');
1509: END IF;
1510:
1511: x_nbr_tasks := l_c_rows;
1512: x_return_status := fnd_api.g_ret_sts_success;
1513: COMMIT;
1514: EXCEPTION
1515: WHEN fnd_api.g_exc_error THEN
1516: x_return_status := fnd_api.g_ret_sts_error;
1511: x_nbr_tasks := l_c_rows;
1512: x_return_status := fnd_api.g_ret_sts_success;
1513: COMMIT;
1514: EXCEPTION
1515: WHEN fnd_api.g_exc_error THEN
1516: x_return_status := fnd_api.g_ret_sts_error;
1517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1518: ROLLBACK TO sp_td_gen_next_cp_task;
1519: WHEN OTHERS THEN
1512: x_return_status := fnd_api.g_ret_sts_success;
1513: COMMIT;
1514: EXCEPTION
1515: WHEN fnd_api.g_exc_error THEN
1516: x_return_status := fnd_api.g_ret_sts_error;
1517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1518: ROLLBACK TO sp_td_gen_next_cp_task;
1519: WHEN OTHERS THEN
1520: x_return_status := fnd_api.g_ret_sts_unexp_error;
1516: x_return_status := fnd_api.g_ret_sts_error;
1517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1518: ROLLBACK TO sp_td_gen_next_cp_task;
1519: WHEN OTHERS THEN
1520: x_return_status := fnd_api.g_ret_sts_unexp_error;
1521: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1522: ROLLBACK TO sp_td_gen_next_cp_task;
1523: END next_cluster_pick_task;
1524:
1579: WHERE mtlt.transaction_temp_id = p_temp_id;
1580:
1581: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1582: BEGIN
1583: l_return_status := fnd_api.g_ret_sts_success;
1584: l_lpn := p_lpn;
1585: l_loc := p_loc;
1586: l_exist_lpn := NULL;
1587: l_lpn_id := NULL;
1678: FETCH mtlt_csr INTO l_lot_number, l_qty;
1679: EXIT WHEN mtlt_csr%NOTFOUND;
1680: inv_txn_validations.check_loose_and_packed_qty(
1681: p_api_version_number => 1.0
1682: , p_init_msg_lst => fnd_api.g_false
1683: , x_return_status => l_return_status
1684: , x_msg_count => x_msg_count
1685: , x_msg_data => x_msg_data
1686: , p_organization_id => p_org_id
1707: END IF;
1708:
1709: inv_txn_validations.check_loose_and_packed_qty(
1710: p_api_version_number => 1.0
1711: , p_init_msg_lst => fnd_api.g_false
1712: , x_return_status => l_return_status
1713: , x_msg_count => x_msg_count
1714: , x_msg_data => x_msg_data
1715: , p_organization_id => p_org_id
1727: , p_ok_to_process => p_ok_to_process
1728: , p_transfer_subinventory => p_sub
1729: );
1730:
1731: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1732: IF (l_debug = 1) THEN
1733: mydebug('complete_pick: unexpected error in check_loose_and_packed_qty');
1734: END IF;
1735:
1733: mydebug('complete_pick: unexpected error in check_loose_and_packed_qty');
1734: END IF;
1735:
1736: p_ok_to_process := 'false';
1737: RAISE fnd_api.g_exc_unexpected_error;
1738: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1739: IF (l_debug = 1) THEN
1740: mydebug('complete_pick: error in check_and_packed_loose_qty');
1741: END IF;
1734: END IF;
1735:
1736: p_ok_to_process := 'false';
1737: RAISE fnd_api.g_exc_unexpected_error;
1738: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1739: IF (l_debug = 1) THEN
1740: mydebug('complete_pick: error in check_and_packed_loose_qty');
1741: END IF;
1742:
1740: mydebug('complete_pick: error in check_and_packed_loose_qty');
1741: END IF;
1742:
1743: p_ok_to_process := 'false';
1744: RAISE fnd_api.g_exc_error;
1745: END IF;
1746:
1747: IF p_ok_to_process = 'false' THEN
1748: IF (l_debug = 1) THEN
1748: IF (l_debug = 1) THEN
1749: mydebug('complete_pick: After quantity validation. Quantity not enough. Cannot process');
1750: END IF;
1751:
1752: x_return_status := fnd_api.g_ret_sts_success;
1753: RETURN;
1754: END IF;
1755: END IF;
1756: END IF;
1793: END IF;
1794:
1795: wms_container_pub.create_lpn(
1796: p_api_version => 1.0
1797: , p_init_msg_list => fnd_api.g_false
1798: , p_commit => fnd_api.g_false
1799: , x_return_status => l_return_status
1800: , x_msg_count => l_msg_cnt
1801: , x_msg_data => l_msg_data
1794:
1795: wms_container_pub.create_lpn(
1796: p_api_version => 1.0
1797: , p_init_msg_list => fnd_api.g_false
1798: , p_commit => fnd_api.g_false
1799: , x_return_status => l_return_status
1800: , x_msg_count => l_msg_cnt
1801: , x_msg_data => l_msg_data
1802: , p_lpn => l_lpn
1835: END IF;
1836: END LOOP;
1837: END IF;
1838:
1839: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1840: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
1841: fnd_msg_pub.ADD;
1842: RAISE fnd_api.g_exc_unexpected_error;
1843: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1838:
1839: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1840: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
1841: fnd_msg_pub.ADD;
1842: RAISE fnd_api.g_exc_unexpected_error;
1843: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1844: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
1845: fnd_msg_pub.ADD;
1846: RAISE fnd_api.g_exc_error;
1839: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1840: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
1841: fnd_msg_pub.ADD;
1842: RAISE fnd_api.g_exc_unexpected_error;
1843: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1844: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
1845: fnd_msg_pub.ADD;
1846: RAISE fnd_api.g_exc_error;
1847: END IF;
1842: RAISE fnd_api.g_exc_unexpected_error;
1843: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1844: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
1845: fnd_msg_pub.ADD;
1846: RAISE fnd_api.g_exc_error;
1847: END IF;
1848: ELSE
1849: -- LPN exists. Get LPN ID
1850: SELECT lpn_id
1945: UPDATE wms_exceptions
1946: SET transaction_header_id = p_txn_hdr_id
1947: WHERE transaction_header_id = l_orig_txn_header_id;
1948:
1949: x_return_status := fnd_api.g_ret_sts_success;
1950: EXCEPTION
1951: WHEN fnd_api.g_exc_error THEN
1952: x_return_status := fnd_api.g_ret_sts_error;
1953: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1947: WHERE transaction_header_id = l_orig_txn_header_id;
1948:
1949: x_return_status := fnd_api.g_ret_sts_success;
1950: EXCEPTION
1951: WHEN fnd_api.g_exc_error THEN
1952: x_return_status := fnd_api.g_ret_sts_error;
1953: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1954: WHEN OTHERS THEN
1955: x_return_status := fnd_api.g_ret_sts_unexp_error;
1948:
1949: x_return_status := fnd_api.g_ret_sts_success;
1950: EXCEPTION
1951: WHEN fnd_api.g_exc_error THEN
1952: x_return_status := fnd_api.g_ret_sts_error;
1953: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1954: WHEN OTHERS THEN
1955: x_return_status := fnd_api.g_ret_sts_unexp_error;
1956: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1951: WHEN fnd_api.g_exc_error THEN
1952: x_return_status := fnd_api.g_ret_sts_error;
1953: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1954: WHEN OTHERS THEN
1955: x_return_status := fnd_api.g_ret_sts_unexp_error;
1956: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1957: END complete_pick;
1958:
1959: FUNCTION get_primary_quantity(p_item_id IN NUMBER, p_organization_id IN NUMBER, p_from_quantity IN NUMBER, p_from_unit IN VARCHAR2)
2569: , l_to_serial
2570: );*/
2571: END IF;
2572:
2573: x_return_status := fnd_api.g_ret_sts_success;
2574: EXCEPTION
2575: WHEN OTHERS THEN
2576: x_return_status := fnd_api.g_ret_sts_unexp_error;
2577: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2572:
2573: x_return_status := fnd_api.g_ret_sts_success;
2574: EXCEPTION
2575: WHEN OTHERS THEN
2576: x_return_status := fnd_api.g_ret_sts_unexp_error;
2577: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2578: END process_lot_serial;
2579:
2580: -- Given a lot_number, this returns the qty for the specific lpn and the lot_number
2739: mydebug('lpn_match: In lpn Match');
2740: END IF;
2741:
2742: l_lpn_qty := p_qty;
2743: x_return_status := fnd_api.g_ret_sts_success;
2744: l_lpn_exists := 0;
2745: --clear the PL/SQL table each time come in
2746: t_lpn_lot_qty_table.DELETE;
2747:
2760: END IF;
2761:
2762: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
2763: fnd_msg_pub.ADD;
2764: RAISE fnd_api.g_exc_error;
2765: END;
2766:
2767: IF l_lpn_exists = 0
2768: OR p_lpn = 0
2772: END IF;
2773:
2774: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
2775: fnd_msg_pub.ADD;
2776: RAISE fnd_api.g_exc_error;
2777: END IF;
2778:
2779: IF (l_debug = 1) THEN
2780: mydebug('lpn_match: Checking if lpn has been picked already');
2802: IF l_loaded > 0 THEN
2803: x_match := 7;
2804: fnd_message.set_name('WMS', 'WMS_LOADED_ERROR');
2805: fnd_msg_pub.ADD;
2806: RAISE fnd_api.g_exc_error;
2807: END IF;
2808:
2809: -- Check if locator is valid
2810: IF (l_debug = 1) THEN
2832:
2833: x_match := 10;
2834: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
2835: fnd_msg_pub.ADD;
2836: RAISE fnd_api.g_exc_error;
2837: END IF;
2838:
2839: -- bug 2398247
2840: -- verify if sub is active
2848: IF l_sub_active = 0 THEN
2849: x_match := 10;
2850: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
2851: fnd_msg_pub.ADD;
2852: RAISE fnd_api.g_exc_error;
2853: END IF;
2854:
2855: -- verify if locator is active
2856: SELECT COUNT(*)
2864: IF l_loc_active = 0 THEN
2865: x_match := 10;
2866: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LOC');
2867: fnd_msg_pub.ADD;
2868: RAISE fnd_api.g_exc_error;
2869: END IF;
2870: -- Begin fix for 2774506
2871:
2872:
2894: if ((l_mil_proj_id <> l_mmtt_proj_id ) or ( l_mil_task_id <> l_mmtt_task_id )) then
2895: mydebug('lpn : the project/tak information does not match');
2896: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
2897: FND_MSG_PUB.ADD;
2898: RAISE FND_API.G_EXC_ERROR;
2899: end if ;
2900:
2901: -- End fix for 2774506
2902:
2908: WHEN NO_DATA_FOUND THEN
2909: x_match := 6;
2910: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
2911: fnd_msg_pub.ADD;
2912: RAISE fnd_api.g_exc_error;
2913: END;
2914:
2915: IF (l_debug = 1) THEN
2916: mydebug('lpn_match: sub is ' || l_sub);
2939: IF l_so_cnt > 0 THEN
2940: x_match := 12;
2941: fnd_message.set_name('WMS', 'WMS_LPN_STAGED');
2942: fnd_msg_pub.ADD;
2943: RAISE fnd_api.g_exc_error;
2944: END IF;
2945:
2946: SELECT primary_uom_code
2947: , lot_control_code
2990:
2991: x_match := 5;
2992: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
2993: fnd_msg_pub.ADD;
2994: RAISE fnd_api.g_exc_error;
2995: END;
2996:
2997: IF l_item_cnt > 0
2998: AND l_lot_code > 1 THEN
3021:
3022: x_match := 5;
3023: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LOT_LPN');
3024: fnd_msg_pub.ADD;
3025: RAISE fnd_api.g_exc_error;
3026: END;
3027: END IF;
3028:
3029: -- Item with the correct lot/revision exists in LPN
3070: END IF;
3071:
3072: fnd_message.set_name('INV', 'INV_INVALID_TRANSACTION');
3073: fnd_msg_pub.ADD;
3074: RAISE fnd_api.g_exc_error;
3075: END;
3076:
3077: -- clear quantity cache before we create qty tree.
3078: inv_quantity_tree_pub.clear_quantity_cache;
3183: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
3184: -- in order to get correct att.
3185: inv_quantity_tree_pub.update_quantities(
3186: p_api_version_number => 1.0
3187: , p_init_msg_lst => fnd_api.g_false
3188: , x_return_status => l_return_status
3189: , x_msg_count => l_msg_cnt
3190: , x_msg_data => l_msg_data
3191: , p_organization_id => p_org_id
3209: , p_lpn_id => p_lpn
3210: , p_transfer_subinventory_code => l_xfr_sub_code
3211: );
3212:
3213: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3214: IF (l_debug = 1) THEN
3215: mydebug('lpn_match: after update qty tree for lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
3216: END IF;
3217: ELSE
3221:
3222: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3223: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3224: fnd_msg_pub.ADD;
3225: RAISE fnd_api.g_exc_error;
3226: END IF;
3227: ELSE
3228: inv_quantity_tree_pub.update_quantities(
3229: p_api_version_number => 1.0
3226: END IF;
3227: ELSE
3228: inv_quantity_tree_pub.update_quantities(
3229: p_api_version_number => 1.0
3230: , p_init_msg_lst => fnd_api.g_false
3231: , x_return_status => l_return_status
3232: , x_msg_count => l_msg_cnt
3233: , x_msg_data => l_msg_data
3234: , p_organization_id => p_org_id
3252: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
3253: , p_transfer_subinventory_code => l_xfr_sub_code
3254: );
3255:
3256: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3257: IF (l_debug = 1) THEN
3258: mydebug('lpn_match: after update qty tree without lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
3259: END IF;
3260: ELSE
3264:
3265: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3266: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3267: fnd_msg_pub.ADD;
3268: RAISE fnd_api.g_exc_error;
3269: END IF;
3270: END IF;
3271:
3272: inv_quantity_tree_pub.query_quantities(
3270: END IF;
3271:
3272: inv_quantity_tree_pub.query_quantities(
3273: p_api_version_number => 1.0
3274: , p_init_msg_lst => fnd_api.g_false
3275: , x_return_status => l_return_status
3276: , x_msg_count => l_msg_cnt
3277: , x_msg_data => l_msg_data
3278: , p_organization_id => p_org_id
3295: , p_lpn_id => p_lpn
3296: , p_transfer_subinventory_code => l_xfr_sub_code
3297: );
3298:
3299: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3300: IF (l_att > 0) THEN
3301: l_table_index := l_table_index + 1;
3302:
3303: IF (l_mtlt_primary_qty >= l_att) THEN
3336:
3337: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3338: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3339: fnd_msg_pub.ADD;
3340: RAISE fnd_api.g_exc_error;
3341: END IF;
3342:
3343: IF NVL(l_allocated_lpn_id, 0) = p_lpn THEN
3344: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
3344: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
3345: -- in order to get correct att.
3346: inv_quantity_tree_pub.update_quantities(
3347: p_api_version_number => 1.0
3348: , p_init_msg_lst => fnd_api.g_false
3349: , x_return_status => l_return_status
3350: , x_msg_count => l_msg_cnt
3351: , x_msg_data => l_msg_data
3352: , p_organization_id => p_org_id
3370: , p_lpn_id => p_lpn
3371: , p_transfer_subinventory_code => l_xfr_sub_code
3372: );
3373:
3374: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3375: IF (l_debug = 1) THEN
3376: mydebug('lpn_match: after update qty tree back for lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
3377: END IF;
3378: ELSE
3382:
3383: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3384: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3385: fnd_msg_pub.ADD;
3386: RAISE fnd_api.g_exc_error;
3387: END IF;
3388: ELSE
3389: inv_quantity_tree_pub.update_quantities(
3390: p_api_version_number => 1.0
3387: END IF;
3388: ELSE
3389: inv_quantity_tree_pub.update_quantities(
3390: p_api_version_number => 1.0
3391: , p_init_msg_lst => fnd_api.g_false
3392: , x_return_status => l_return_status
3393: , x_msg_count => l_msg_cnt
3394: , x_msg_data => l_msg_data
3395: , p_organization_id => p_org_id
3413: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
3414: , p_transfer_subinventory_code => l_xfr_sub_code
3415: );
3416:
3417: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3418: IF (l_debug = 1) THEN
3419: mydebug('lpn_match: after update qty tree back without lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
3420: END IF;
3421: ELSE
3425:
3426: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3427: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3428: fnd_msg_pub.ADD;
3429: RAISE fnd_api.g_exc_error;
3430: END IF;
3431: END IF;
3432: END LOOP;
3433:
3461: -- Serial numbers missing for the transaction
3462: x_match := 9;
3463: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
3464: fnd_msg_pub.ADD;
3465: RAISE fnd_api.g_exc_error;
3466: END IF;
3467:
3468: SELECT COUNT(fm_serial_number)
3469: INTO l_total_serial_cnt
3520: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
3521: -- in order to get correct att.
3522: inv_quantity_tree_pub.update_quantities(
3523: p_api_version_number => 1.0
3524: , p_init_msg_lst => fnd_api.g_false
3525: , x_return_status => l_return_status
3526: , x_msg_count => l_msg_cnt
3527: , x_msg_data => l_msg_data
3528: , p_organization_id => p_org_id
3546: , p_lpn_id => p_lpn
3547: , p_transfer_subinventory_code => l_xfr_sub_code
3548: );
3549:
3550: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3551: IF (l_debug = 1) THEN
3552: mydebug('lpn_match: update qty tree with lpn 2nd time: l_att:' || l_att);
3553: END IF;
3554: ELSE
3558:
3559: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3560: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3561: fnd_msg_pub.ADD;
3562: RAISE fnd_api.g_exc_error;
3563: END IF;
3564: ELSE
3565: inv_quantity_tree_pub.update_quantities(
3566: p_api_version_number => 1.0
3563: END IF;
3564: ELSE
3565: inv_quantity_tree_pub.update_quantities(
3566: p_api_version_number => 1.0
3567: , p_init_msg_lst => fnd_api.g_false
3568: , x_return_status => l_return_status
3569: , x_msg_count => l_msg_cnt
3570: , x_msg_data => l_msg_data
3571: , p_organization_id => p_org_id
3589: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
3590: , p_transfer_subinventory_code => l_xfr_sub_code
3591: );
3592:
3593: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3594: IF (l_debug = 1) THEN
3595: mydebug('lpn_match: update qty tree without lpn 2nd time:l_att:' || l_att);
3596: END IF;
3597: ELSE
3601:
3602: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3603: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3604: fnd_msg_pub.ADD;
3605: RAISE fnd_api.g_exc_error;
3606: END IF;
3607: END IF;
3608:
3609: inv_quantity_tree_pub.query_quantities(
3607: END IF;
3608:
3609: inv_quantity_tree_pub.query_quantities(
3610: p_api_version_number => 1.0
3611: , p_init_msg_lst => fnd_api.g_false
3612: , x_return_status => l_return_status
3613: , x_msg_count => l_msg_cnt
3614: , x_msg_data => l_msg_data
3615: , p_organization_id => p_org_id
3632: , p_lpn_id => p_lpn
3633: , p_transfer_subinventory_code => l_xfr_sub_code
3634: );
3635:
3636: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3637: l_lpn_qty := l_att;
3638: ELSE
3639: IF (l_debug = 1) THEN
3640: mydebug('lpn_match: calling qty tree 2nd time failed ');
3642:
3643: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3644: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3645: fnd_msg_pub.ADD;
3646: RAISE fnd_api.g_exc_error;
3647: END IF;
3648:
3649: IF NVL(l_allocated_lpn_id, 0) = p_lpn THEN
3650: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
3650: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
3651: -- in order to get correct att.
3652: inv_quantity_tree_pub.update_quantities(
3653: p_api_version_number => 1.0
3654: , p_init_msg_lst => fnd_api.g_false
3655: , x_return_status => l_return_status
3656: , x_msg_count => l_msg_cnt
3657: , x_msg_data => l_msg_data
3658: , p_organization_id => p_org_id
3676: , p_lpn_id => p_lpn
3677: , p_transfer_subinventory_code => l_xfr_sub_code
3678: );
3679:
3680: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3681: IF (l_debug = 1) THEN
3682: mydebug('lpn_match: update qty tree back with lpn 2nd time: l_att:' || l_att);
3683: END IF;
3684: ELSE
3688:
3689: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3690: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3691: fnd_msg_pub.ADD;
3692: RAISE fnd_api.g_exc_error;
3693: END IF;
3694: ELSE
3695: inv_quantity_tree_pub.update_quantities(
3696: p_api_version_number => 1.0
3693: END IF;
3694: ELSE
3695: inv_quantity_tree_pub.update_quantities(
3696: p_api_version_number => 1.0
3697: , p_init_msg_lst => fnd_api.g_false
3698: , x_return_status => l_return_status
3699: , x_msg_count => l_msg_cnt
3700: , x_msg_data => l_msg_data
3701: , p_organization_id => p_org_id
3719: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
3720: , p_transfer_subinventory_code => l_xfr_sub_code
3721: );
3722:
3723: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3724: IF (l_debug = 1) THEN
3725: mydebug('lpn_match: update qty tree back without lpn 2nd time:l_att:' || l_att);
3726: END IF;
3727: ELSE
3731:
3732: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3733: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3734: fnd_msg_pub.ADD;
3735: RAISE fnd_api.g_exc_error;
3736: END IF;
3737: END IF;
3738: END IF;
3739: ELSE
3795: -- Serial numbers missing for the transaction
3796: x_match := 9;
3797: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
3798: fnd_msg_pub.ADD;
3799: RAISE fnd_api.g_exc_error;
3800: END IF;
3801: END IF;
3802:
3803: -- Check whether the Lots allocated are all in the LPN
3903: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
3904: -- in order to get correct att.
3905: inv_quantity_tree_pub.update_quantities(
3906: p_api_version_number => 1.0
3907: , p_init_msg_lst => fnd_api.g_false
3908: , x_return_status => l_return_status
3909: , x_msg_count => l_msg_cnt
3910: , x_msg_data => l_msg_data
3911: , p_organization_id => p_org_id
3929: , p_lpn_id => p_lpn
3930: , p_transfer_subinventory_code => l_xfr_sub_code
3931: );
3932:
3933: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3934: IF (l_debug = 1) THEN
3935: mydebug('lpn_match: update qty tree 3rd time for lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
3936: END IF;
3937: ELSE
3941:
3942: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3943: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3944: fnd_msg_pub.ADD;
3945: RAISE fnd_api.g_exc_error;
3946: END IF;
3947: ELSE
3948: inv_quantity_tree_pub.update_quantities(
3949: p_api_version_number => 1.0
3946: END IF;
3947: ELSE
3948: inv_quantity_tree_pub.update_quantities(
3949: p_api_version_number => 1.0
3950: , p_init_msg_lst => fnd_api.g_false
3951: , x_return_status => l_return_status
3952: , x_msg_count => l_msg_cnt
3953: , x_msg_data => l_msg_data
3954: , p_organization_id => p_org_id
3972: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
3973: , p_transfer_subinventory_code => l_xfr_sub_code
3974: );
3975:
3976: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3977: IF (l_debug = 1) THEN
3978: mydebug('lpn_match: after update without lpn 3rd time l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
3979: END IF;
3980: ELSE
3984:
3985: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
3986: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
3987: fnd_msg_pub.ADD;
3988: RAISE fnd_api.g_exc_error;
3989: END IF;
3990: END IF;
3991:
3992: inv_quantity_tree_pub.query_quantities(
3990: END IF;
3991:
3992: inv_quantity_tree_pub.query_quantities(
3993: p_api_version_number => 1.0
3994: , p_init_msg_lst => fnd_api.g_false
3995: , x_return_status => l_return_status
3996: , x_msg_count => l_msg_cnt
3997: , x_msg_data => l_msg_data
3998: , p_organization_id => p_org_id
4015: , p_lpn_id => p_lpn
4016: , p_transfer_subinventory_code => l_xfr_sub_code
4017: );
4018:
4019: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
4020: l_lot_match := 1;
4021:
4022: IF (l_att > 0) THEN
4023: l_table_index := l_table_index + 1;
4067:
4068: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
4069: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4070: fnd_msg_pub.ADD;
4071: RAISE fnd_api.g_exc_error;
4072: END IF;
4073:
4074: IF l_lot_match <> 0
4075: AND x_match <> 4 THEN
4124: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
4125: -- in order to get correct att.
4126: inv_quantity_tree_pub.update_quantities(
4127: p_api_version_number => 1.0
4128: , p_init_msg_lst => fnd_api.g_false
4129: , x_return_status => l_return_status
4130: , x_msg_count => l_msg_cnt
4131: , x_msg_data => l_msg_data
4132: , p_organization_id => p_org_id
4150: , p_lpn_id => p_lpn
4151: , p_transfer_subinventory_code => l_xfr_sub_code
4152: );
4153:
4154: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
4155: IF (l_debug = 1) THEN
4156: mydebug('lpn_match: update qty tree back 3rd time for lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
4157: END IF;
4158: ELSE
4162:
4163: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
4164: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4165: fnd_msg_pub.ADD;
4166: RAISE fnd_api.g_exc_error;
4167: END IF;
4168: ELSE
4169: inv_quantity_tree_pub.update_quantities(
4170: p_api_version_number => 1.0
4167: END IF;
4168: ELSE
4169: inv_quantity_tree_pub.update_quantities(
4170: p_api_version_number => 1.0
4171: , p_init_msg_lst => fnd_api.g_false
4172: , x_return_status => l_return_status
4173: , x_msg_count => l_msg_cnt
4174: , x_msg_data => l_msg_data
4175: , p_organization_id => p_org_id
4193: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
4194: , p_transfer_subinventory_code => l_xfr_sub_code
4195: );
4196:
4197: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
4198: IF (l_debug = 1) THEN
4199: mydebug('lpn_match: after update qty tree back without lpn 3rd time l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
4200: END IF;
4201: ELSE
4205:
4206: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
4207: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4208: fnd_msg_pub.ADD;
4209: RAISE fnd_api.g_exc_error;
4210: END IF;
4211: END IF;
4212: END LOOP;
4213:
4291: -- Serial numbers missing for the transaction
4292: x_match := 9;
4293: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
4294: fnd_msg_pub.ADD;
4295: RAISE fnd_api.g_exc_error;
4296: END IF;
4297: END IF;
4298:
4299: -- Get qty
4353: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
4354: -- in order to get correct att.
4355: inv_quantity_tree_pub.update_quantities(
4356: p_api_version_number => 1.0
4357: , p_init_msg_lst => fnd_api.g_false
4358: , x_return_status => l_return_status
4359: , x_msg_count => l_msg_cnt
4360: , x_msg_data => l_msg_data
4361: , p_organization_id => p_org_id
4379: , p_lpn_id => p_lpn
4380: , p_transfer_subinventory_code => l_xfr_sub_code
4381: );
4382:
4383: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
4384: IF (l_debug = 1) THEN
4385: mydebug('lpn_match: update qty tree with lpn 4th time: l_att:' || l_att);
4386: END IF;
4387: ELSE
4391:
4392: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
4393: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4394: fnd_msg_pub.ADD;
4395: RAISE fnd_api.g_exc_error;
4396: END IF;
4397: ELSE
4398: inv_quantity_tree_pub.update_quantities(
4399: p_api_version_number => 1.0
4396: END IF;
4397: ELSE
4398: inv_quantity_tree_pub.update_quantities(
4399: p_api_version_number => 1.0
4400: , p_init_msg_lst => fnd_api.g_false
4401: , x_return_status => l_return_status
4402: , x_msg_count => l_msg_cnt
4403: , x_msg_data => l_msg_data
4404: , p_organization_id => p_org_id
4422: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
4423: , p_transfer_subinventory_code => l_xfr_sub_code
4424: );
4425:
4426: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
4427: IF (l_debug = 1) THEN
4428: mydebug('lpn_match: update qty tree without lpn 4th time:l_att:' || l_att);
4429: END IF;
4430: ELSE
4434:
4435: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
4436: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4437: fnd_msg_pub.ADD;
4438: RAISE fnd_api.g_exc_error;
4439: END IF;
4440: END IF;
4441:
4442: inv_quantity_tree_pub.query_quantities(
4440: END IF;
4441:
4442: inv_quantity_tree_pub.query_quantities(
4443: p_api_version_number => 1.0
4444: , p_init_msg_lst => fnd_api.g_false
4445: , x_return_status => l_return_status
4446: , x_msg_count => l_msg_cnt
4447: , x_msg_data => l_msg_data
4448: , p_organization_id => p_org_id
4465: , p_lpn_id => p_lpn
4466: , p_transfer_subinventory_code => l_xfr_sub_code
4467: );
4468:
4469: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
4470: IF (l_debug = 1) THEN
4471: mydebug('lpn_match: lpn quantity ATT= ' || l_att);
4472: mydebug('lpn_match: lpn quantity QOH= ' || l_qoh);
4473: END IF;
4515:
4516: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
4517: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4518: fnd_msg_pub.ADD;
4519: RAISE fnd_api.g_exc_error;
4520: END IF;
4521:
4522: IF NVL(l_allocated_lpn_id, 0) = p_lpn THEN
4523: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
4523: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
4524: -- in order to get correct att.
4525: inv_quantity_tree_pub.update_quantities(
4526: p_api_version_number => 1.0
4527: , p_init_msg_lst => fnd_api.g_false
4528: , x_return_status => l_return_status
4529: , x_msg_count => l_msg_cnt
4530: , x_msg_data => l_msg_data
4531: , p_organization_id => p_org_id
4549: , p_lpn_id => p_lpn
4550: , p_transfer_subinventory_code => l_xfr_sub_code
4551: );
4552:
4553: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
4554: IF (l_debug = 1) THEN
4555: mydebug('lpn_match: update qty tree back with lpn 4th time: l_att:' || l_att);
4556: END IF;
4557: ELSE
4561:
4562: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
4563: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4564: fnd_msg_pub.ADD;
4565: RAISE fnd_api.g_exc_error;
4566: END IF;
4567: ELSE
4568: inv_quantity_tree_pub.update_quantities(
4569: p_api_version_number => 1.0
4566: END IF;
4567: ELSE
4568: inv_quantity_tree_pub.update_quantities(
4569: p_api_version_number => 1.0
4570: , p_init_msg_lst => fnd_api.g_false
4571: , x_return_status => l_return_status
4572: , x_msg_count => l_msg_cnt
4573: , x_msg_data => l_msg_data
4574: , p_organization_id => p_org_id
4592: -- , p_lpn_id => p_lpn withour lpn_id, only to locator level
4593: , p_transfer_subinventory_code => l_xfr_sub_code
4594: );
4595:
4596: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
4597: IF (l_debug = 1) THEN
4598: mydebug('lpn_match: update qty tree back without lpn 4th time:l_att:' || l_att);
4599: END IF;
4600: ELSE
4604:
4605: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
4606: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
4607: fnd_msg_pub.ADD;
4608: RAISE fnd_api.g_exc_error;
4609: END IF;
4610: END IF;
4611:
4612: -- If the LPN quantity exactly matches/ has less than, the requested
4689: CLOSE ser_csr;
4690: fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
4691: fnd_message.set_token('TOKEN', l_serial_number);
4692: fnd_msg_pub.ADD;
4693: RAISE fnd_api.g_exc_error;
4694: END IF;
4695: END LOOP;
4696:
4697: CLOSE ser_csr;
4718:
4719: fnd_message.set_name('INV', 'INV_INVALID_LPN_STATUS');
4720: fnd_message.set_token('TOKEN1', TO_CHAR(p_lpn));
4721: fnd_msg_pub.ADD;
4722: RAISE fnd_api.g_exc_error;
4723: END IF;
4724: END IF;
4725: END IF;
4726:
4803: END IF;
4804: x_match := 9;
4805: FND_MESSAGE.SET_NAME('INV','INV_INT_SERMISEXP');
4806: FND_MSG_PUB.ADD;
4807: RAISE FND_API.G_EXC_ERROR;
4808:
4809: END IF;
4810:
4811: END IF;
4874: IF (l_debug = 1) THEN
4875: mydebug('lpn_match: just after multiple_pick: ' || l_return_status);
4876: END IF;
4877:
4878: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4879: IF (l_debug = 1) THEN
4880: mydebug('lpn_match: Unexpected error in call to multiple_pick');
4881: END IF;
4882:
4879: IF (l_debug = 1) THEN
4880: mydebug('lpn_match: Unexpected error in call to multiple_pick');
4881: END IF;
4882:
4883: RAISE fnd_api.g_exc_unexpected_error;
4884: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4885: IF (l_debug = 1) THEN
4886: mydebug('lpn_match: Error in call to multiple_pick');
4887: END IF;
4880: mydebug('lpn_match: Unexpected error in call to multiple_pick');
4881: END IF;
4882:
4883: RAISE fnd_api.g_exc_unexpected_error;
4884: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4885: IF (l_debug = 1) THEN
4886: mydebug('lpn_match: Error in call to multiple_pick');
4887: END IF;
4888:
4885: IF (l_debug = 1) THEN
4886: mydebug('lpn_match: Error in call to multiple_pick');
4887: END IF;
4888:
4889: RAISE fnd_api.g_exc_error;
4890: END IF;
4891: END IF;
4892:
4893: IF x_match = 3 THEN
4910: , p_to_lpn_id => p_lpn
4911: , p_entire_lpn => 'Y'
4912: );
4913:
4914: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4915: fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
4916: fnd_msg_pub.ADD;
4917: RAISE fnd_api.g_exc_unexpected_error;
4918: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4913:
4914: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4915: fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
4916: fnd_msg_pub.ADD;
4917: RAISE fnd_api.g_exc_unexpected_error;
4918: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4919: fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
4920: fnd_msg_pub.ADD;
4921: RAISE fnd_api.g_exc_error;
4914: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4915: fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
4916: fnd_msg_pub.ADD;
4917: RAISE fnd_api.g_exc_unexpected_error;
4918: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4919: fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
4920: fnd_msg_pub.ADD;
4921: RAISE fnd_api.g_exc_error;
4922: END IF;
4917: RAISE fnd_api.g_exc_unexpected_error;
4918: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4919: fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
4920: fnd_msg_pub.ADD;
4921: RAISE fnd_api.g_exc_error;
4922: END IF;
4923:
4924: IF (l_debug = 1) THEN
4925: mydebug('lpn_match: AFTER Calling multiple lpn picking..');
4930: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
4931: -- in order to get correct att.
4932: inv_quantity_tree_pub.update_quantities
4933: ( p_api_version_number => 1.0
4934: , p_init_msg_lst => fnd_api.g_false
4935: , x_return_status => l_return_status
4936: , x_msg_count => l_msg_cnt
4937: , x_msg_data => l_msg_data
4938: , p_organization_id => p_org_id
4959: );
4960: ELSE
4961: inv_quantity_tree_pub.update_quantities
4962: ( p_api_version_number => 1.0
4963: , p_init_msg_lst => fnd_api.g_false
4964: , x_return_status => l_return_status
4965: , x_msg_count => l_msg_cnt
4966: , x_msg_data => l_msg_data
4967: , p_organization_id => p_org_id
5013: END IF;
5014:
5015: x_temp_id := l_out_temp_id;
5016: x_qty := LEAST(l_lpn_qty, p_qty);
5017: x_return_status := fnd_api.g_ret_sts_success;
5018:
5019: IF (l_debug = 1) THEN
5020: mydebug('lpn_match: Match ' || x_match);
5021: END IF;
5036: END IF;
5037: -- end 2769358
5038:
5039: EXCEPTION
5040: WHEN fnd_api.g_exc_error THEN
5041: IF (l_debug = 1) THEN
5042: mydebug('lpn_match: Exception raised');
5043: END IF;
5044:
5041: IF (l_debug = 1) THEN
5042: mydebug('lpn_match: Exception raised');
5043: END IF;
5044:
5045: x_return_status := fnd_api.g_ret_sts_error;
5046: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5047: WHEN OTHERS THEN
5048: IF (l_debug = 1) THEN
5049: mydebug('lpn_match: Other exception raised : ' || SQLERRM);
5048: IF (l_debug = 1) THEN
5049: mydebug('lpn_match: Other exception raised : ' || SQLERRM);
5050: END IF;
5051:
5052: x_return_status := fnd_api.g_ret_sts_unexp_error;
5053: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5054: END lpn_match;
5055:
5056: FUNCTION can_pickdrop(txn_temp_id IN NUMBER) RETURN VARCHAR2 IS
5192: --l_detailed_quantity NUMBER;
5193: l_debug NUMBER :=NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'),0);
5194: l_bulk_pick_flag NUMBER := 0;
5195: BEGIN
5196: l_return_status := fnd_api.g_ret_sts_success;
5197: x_return_status := l_return_status;
5198:
5199: mydebug('load_pick : Entered Load Pick');
5200: l_qty_picked := p_qty;
5236: END IF;
5237:
5238: wms_container_pub.create_lpn(
5239: p_api_version => 1.0
5240: , p_init_msg_list => fnd_api.g_false
5241: , p_commit => fnd_api.g_false
5242: , x_return_status => l_return_status
5243: , x_msg_count => l_msg_cnt
5244: , x_msg_data => l_msg_data
5237:
5238: wms_container_pub.create_lpn(
5239: p_api_version => 1.0
5240: , p_init_msg_list => fnd_api.g_false
5241: , p_commit => fnd_api.g_false
5242: , x_return_status => l_return_status
5243: , x_msg_count => l_msg_cnt
5244: , x_msg_data => l_msg_data
5245: , p_lpn => p_to_lpn
5278: END IF;
5279: END LOOP;
5280: END IF;
5281:
5282: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5283: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
5284: fnd_msg_pub.ADD;
5285: RAISE fnd_api.g_exc_unexpected_error;
5286: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5281:
5282: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5283: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
5284: fnd_msg_pub.ADD;
5285: RAISE fnd_api.g_exc_unexpected_error;
5286: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5287: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
5288: fnd_msg_pub.ADD;
5289: RAISE fnd_api.g_exc_error;
5282: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5283: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
5284: fnd_msg_pub.ADD;
5285: RAISE fnd_api.g_exc_unexpected_error;
5286: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5287: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
5288: fnd_msg_pub.ADD;
5289: RAISE fnd_api.g_exc_error;
5290: END IF;
5285: RAISE fnd_api.g_exc_unexpected_error;
5286: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5287: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
5288: fnd_msg_pub.ADD;
5289: RAISE fnd_api.g_exc_error;
5290: END IF;
5291: ELSE
5292: IF (l_debug = 1) THEN
5293: mydebug('load_pick: LPN exists');
5322: END IF;
5323:
5324: fnd_message.set_name('WMS', 'WMS_LPN_LOADED_ERROR');
5325: fnd_msg_pub.ADD;
5326: RAISE fnd_api.g_exc_error;
5327: END;
5328: END IF;
5329:
5330: -- LPN exists. Get LPN ID
5497: , x_temp_id => x_temp_id
5498: , p_serial_number => p_serial_number
5499: );
5500:
5501: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5502: RAISE fnd_api.g_exc_unexpected_error;
5503: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5504: RAISE fnd_api.g_exc_error;
5505: END IF;
5498: , p_serial_number => p_serial_number
5499: );
5500:
5501: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5502: RAISE fnd_api.g_exc_unexpected_error;
5503: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5504: RAISE fnd_api.g_exc_error;
5505: END IF;
5506: END IF;
5499: );
5500:
5501: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5502: RAISE fnd_api.g_exc_unexpected_error;
5503: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5504: RAISE fnd_api.g_exc_error;
5505: END IF;
5506: END IF;
5507: END IF;
5500:
5501: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5502: RAISE fnd_api.g_exc_unexpected_error;
5503: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5504: RAISE fnd_api.g_exc_error;
5505: END IF;
5506: END IF;
5507: END IF;
5508:
5544: END IF;
5545:
5546: wms_txnrsn_actions_pub.log_exception(
5547: p_api_version_number => 1.0
5548: , p_init_msg_lst => fnd_api.g_false
5549: , p_commit => fnd_api.g_false
5550: , x_return_status => l_return_status
5551: , x_msg_count => l_msg_cnt
5552: , x_msg_data => l_msg_data
5545:
5546: wms_txnrsn_actions_pub.log_exception(
5547: p_api_version_number => 1.0
5548: , p_init_msg_lst => fnd_api.g_false
5549: , p_commit => fnd_api.g_false
5550: , x_return_status => l_return_status
5551: , x_msg_count => l_msg_cnt
5552: , x_msg_data => l_msg_data
5553: , p_organization_id => p_org_id
5566: IF (l_debug = 1) THEN
5567: mydebug('after logging exception for qty discrepancy');
5568: END IF;
5569:
5570: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5571: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5572: fnd_msg_pub.ADD;
5573: RAISE fnd_api.g_exc_unexpected_error;
5574: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5569:
5570: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5571: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5572: fnd_msg_pub.ADD;
5573: RAISE fnd_api.g_exc_unexpected_error;
5574: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5575: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5576: fnd_msg_pub.ADD;
5577: RAISE fnd_api.g_exc_error;
5570: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5571: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5572: fnd_msg_pub.ADD;
5573: RAISE fnd_api.g_exc_unexpected_error;
5574: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5575: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5576: fnd_msg_pub.ADD;
5577: RAISE fnd_api.g_exc_error;
5578: END IF;
5573: RAISE fnd_api.g_exc_unexpected_error;
5574: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5575: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5576: fnd_msg_pub.ADD;
5577: RAISE fnd_api.g_exc_error;
5578: END IF;
5579: END IF;
5580:
5581: IF p_loc_rsn_id > 0 THEN
5585: END IF;
5586:
5587: wms_txnrsn_actions_pub.log_exception(
5588: p_api_version_number => 1.0
5589: , p_init_msg_lst => fnd_api.g_false
5590: , p_commit => fnd_api.g_false
5591: , x_return_status => l_return_status
5592: , x_msg_count => l_msg_cnt
5593: , x_msg_data => l_msg_data
5586:
5587: wms_txnrsn_actions_pub.log_exception(
5588: p_api_version_number => 1.0
5589: , p_init_msg_lst => fnd_api.g_false
5590: , p_commit => fnd_api.g_false
5591: , x_return_status => l_return_status
5592: , x_msg_count => l_msg_cnt
5593: , x_msg_data => l_msg_data
5594: , p_organization_id => p_org_id
5608: IF (l_debug = 1) THEN
5609: mydebug('after logging exception for loc discrepancy');
5610: END IF;
5611:
5612: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5613: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5614: fnd_msg_pub.ADD;
5615: RAISE fnd_api.g_exc_unexpected_error;
5616: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5611:
5612: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5613: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5614: fnd_msg_pub.ADD;
5615: RAISE fnd_api.g_exc_unexpected_error;
5616: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5617: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5618: fnd_msg_pub.ADD;
5619: RAISE fnd_api.g_exc_error;
5612: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5613: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5614: fnd_msg_pub.ADD;
5615: RAISE fnd_api.g_exc_unexpected_error;
5616: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5617: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5618: fnd_msg_pub.ADD;
5619: RAISE fnd_api.g_exc_error;
5620: END IF;
5615: RAISE fnd_api.g_exc_unexpected_error;
5616: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5617: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
5618: fnd_msg_pub.ADD;
5619: RAISE fnd_api.g_exc_error;
5620: END IF;
5621: END IF;
5622:
5623: l_wf := 0;
5650: END IF;
5651:
5652: wms_workflow_wrappers.wf_wrapper(
5653: p_api_version => 1.0
5654: , p_init_msg_list => fnd_api.g_false
5655: , p_commit => fnd_api.g_false
5656: , x_return_status => l_return_status
5657: , x_msg_count => l_msg_cnt
5658: , x_msg_data => l_msg_data
5651:
5652: wms_workflow_wrappers.wf_wrapper(
5653: p_api_version => 1.0
5654: , p_init_msg_list => fnd_api.g_false
5655: , p_commit => fnd_api.g_false
5656: , x_return_status => l_return_status
5657: , x_msg_count => l_msg_cnt
5658: , x_msg_data => l_msg_data
5659: , p_org_id => p_org_id
5669: IF (l_debug = 1) THEN
5670: mydebug('load_pick : After Calling WF Wrapper');
5671: END IF;
5672:
5673: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5674: IF (l_debug = 1) THEN
5675: mydebug('load_pick : Error callinf WF wrapper');
5676: END IF;
5677:
5676: END IF;
5677:
5678: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5679: fnd_msg_pub.ADD;
5680: RAISE fnd_api.g_exc_unexpected_error;
5681: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5682: IF (l_debug = 1) THEN
5683: mydebug('load_pick : Error calling WF wrapper');
5684: END IF;
5677:
5678: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5679: fnd_msg_pub.ADD;
5680: RAISE fnd_api.g_exc_unexpected_error;
5681: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
5682: IF (l_debug = 1) THEN
5683: mydebug('load_pick : Error calling WF wrapper');
5684: END IF;
5685:
5684: END IF;
5685:
5686: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
5687: fnd_msg_pub.ADD;
5688: RAISE fnd_api.g_exc_error;
5689: END IF;
5690: END IF;
5691:
5692: -- Clean up code. Have to delete MMTT, MTLT, MSNT, WDT, if picked less
5841: , p_reason_id => p_qty_rsn_id --Added bug 3765153
5842: );
5843:
5844: IF x_return_status = 'U' THEN
5845: RAISE fnd_api.g_exc_unexpected_error;
5846: ELSIF x_return_status = 'E' THEN
5847: RAISE fnd_api.g_exc_error;
5848: END IF;
5849:
5843:
5844: IF x_return_status = 'U' THEN
5845: RAISE fnd_api.g_exc_unexpected_error;
5846: ELSIF x_return_status = 'E' THEN
5847: RAISE fnd_api.g_exc_error;
5848: END IF;
5849:
5850: l_txn_hdr_id := l_new_txn_hdr_id;
5851: END IF;
5963: , p_reason_id => p_qty_rsn_id --Added bug 3765153
5964: );
5965:
5966: IF x_return_status = 'U' THEN
5967: RAISE fnd_api.g_exc_unexpected_error;
5968: ELSIF x_return_status = 'E' THEN
5969: RAISE fnd_api.g_exc_error;
5970: END IF;
5971:
5965:
5966: IF x_return_status = 'U' THEN
5967: RAISE fnd_api.g_exc_unexpected_error;
5968: ELSIF x_return_status = 'E' THEN
5969: RAISE fnd_api.g_exc_error;
5970: END IF;
5971:
5972: l_txn_hdr_id := l_new_txn_hdr_id;
5973:
6015: , p_business_flow_code => l_business_flow_code
6016: , p_transaction_id => x_temp_id --Changed bug#4113235.
6017: );
6018:
6019: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
6020: IF (l_debug = 1) THEN
6021: mydebug('load_pick: Label printing failed. Continue');
6022: END IF;
6023: END IF;
6040: , p_business_flow_code => l_business_flow_code
6041: , p_transaction_id => l_temp_id
6042: );
6043:
6044: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
6045: IF (l_debug = 1) THEN
6046: mydebug('load_pick: Label printing failed. Continue');
6047: END IF;
6048: END IF;
6055: IF (l_debug = 1) THEN
6056: mydebug('load_pick: End of load_pick');
6057: END IF;
6058:
6059: x_return_status := fnd_api.g_ret_sts_success;
6060:
6061: IF (l_debug = 1) THEN
6062: mydebug(' p_ok_to_process: ' || p_ok_to_process);
6063: END IF;
6061: IF (l_debug = 1) THEN
6062: mydebug(' p_ok_to_process: ' || p_ok_to_process);
6063: END IF;
6064: EXCEPTION
6065: WHEN fnd_api.g_exc_error THEN
6066: x_return_status := fnd_api.g_ret_sts_error;
6067: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6068:
6069: IF (l_debug = 1) THEN
6062: mydebug(' p_ok_to_process: ' || p_ok_to_process);
6063: END IF;
6064: EXCEPTION
6065: WHEN fnd_api.g_exc_error THEN
6066: x_return_status := fnd_api.g_ret_sts_error;
6067: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6068:
6069: IF (l_debug = 1) THEN
6070: mydebug('load_pick: Error in load_pick API: ' || SQLERRM);
6069: IF (l_debug = 1) THEN
6070: mydebug('load_pick: Error in load_pick API: ' || SQLERRM);
6071: END IF;
6072: WHEN OTHERS THEN
6073: x_return_status := fnd_api.g_ret_sts_unexp_error;
6074: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6075:
6076: IF (l_debug = 1) THEN
6077: mydebug('load_pick: Unexpected Error in load_pick API: ' || SQLERRM);
6104: l_loc NUMBER;
6105: l_sub VARCHAR2(10);
6106: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6107: BEGIN
6108: l_return_status := fnd_api.g_ret_sts_success;
6109: l_temp_id := p_temp_id;
6110: l_lpn_id := p_lpn_id;
6111: l_lpn := p_transfer_lpn;
6112: l_container_item_id := p_container_item_id;
6163: END IF;
6164:
6165: wms_container_pub.create_lpn(
6166: p_api_version => 1.0
6167: , p_init_msg_list => fnd_api.g_false
6168: , p_commit => fnd_api.g_false
6169: , x_return_status => l_return_status
6170: , x_msg_count => l_msg_cnt
6171: , x_msg_data => l_msg_data
6164:
6165: wms_container_pub.create_lpn(
6166: p_api_version => 1.0
6167: , p_init_msg_list => fnd_api.g_false
6168: , p_commit => fnd_api.g_false
6169: , x_return_status => l_return_status
6170: , x_msg_count => l_msg_cnt
6171: , x_msg_data => l_msg_data
6172: , p_lpn => l_lpn
6205: END IF;
6206: END LOOP;
6207: END IF;
6208:
6209: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6210: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6211: fnd_msg_pub.ADD;
6212: RAISE fnd_api.g_exc_unexpected_error;
6213: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
6208:
6209: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6210: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6211: fnd_msg_pub.ADD;
6212: RAISE fnd_api.g_exc_unexpected_error;
6213: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
6214: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6215: fnd_msg_pub.ADD;
6216: RAISE fnd_api.g_exc_error;
6209: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6210: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6211: fnd_msg_pub.ADD;
6212: RAISE fnd_api.g_exc_unexpected_error;
6213: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
6214: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6215: fnd_msg_pub.ADD;
6216: RAISE fnd_api.g_exc_error;
6217: END IF;
6212: RAISE fnd_api.g_exc_unexpected_error;
6213: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
6214: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
6215: fnd_msg_pub.ADD;
6216: RAISE fnd_api.g_exc_error;
6217: END IF;
6218: ELSE
6219: -- LPN exists. Get LPN ID
6220: SELECT lpn_id
6618: , l_new_temp_id
6619: FROM mtl_material_transactions_temp
6620: WHERE transaction_temp_id = l_temp_id);
6621:
6622: x_return_status := fnd_api.g_ret_sts_success;
6623: EXCEPTION
6624: WHEN fnd_api.g_exc_error THEN
6625: x_return_status := fnd_api.g_ret_sts_error;
6626: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6620: WHERE transaction_temp_id = l_temp_id);
6621:
6622: x_return_status := fnd_api.g_ret_sts_success;
6623: EXCEPTION
6624: WHEN fnd_api.g_exc_error THEN
6625: x_return_status := fnd_api.g_ret_sts_error;
6626: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6627: WHEN OTHERS THEN
6628: x_return_status := fnd_api.g_ret_sts_unexp_error;
6621:
6622: x_return_status := fnd_api.g_ret_sts_success;
6623: EXCEPTION
6624: WHEN fnd_api.g_exc_error THEN
6625: x_return_status := fnd_api.g_ret_sts_error;
6626: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6627: WHEN OTHERS THEN
6628: x_return_status := fnd_api.g_ret_sts_unexp_error;
6629: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6624: WHEN fnd_api.g_exc_error THEN
6625: x_return_status := fnd_api.g_ret_sts_error;
6626: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6627: WHEN OTHERS THEN
6628: x_return_status := fnd_api.g_ret_sts_unexp_error;
6629: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6630: END insert_mmtt_pack;
6631:
6632: PROCEDURE change_lpn(
6646: l_ret NUMBER;
6647: l_exist_lpn NUMBER;
6648: l_exist_lpn2 NUMBER;
6649: l_lpn_id NUMBER;
6650: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
6651: l_msg_cnt NUMBER;
6652: l_msg_data VARCHAR2(2000);
6653: l_exist_contents NUMBER;
6654: b_can_modify BOOLEAN;
6761: END IF;
6762:
6763: wms_container_pub.modify_lpn_wrapper(
6764: p_api_version => 1.0
6765: , p_init_msg_list => fnd_api.g_false
6766: , p_commit => fnd_api.g_false
6767: , x_return_status => l_return_status
6768: , x_msg_count => l_msg_cnt
6769: , x_msg_data => l_msg_data
6762:
6763: wms_container_pub.modify_lpn_wrapper(
6764: p_api_version => 1.0
6765: , p_init_msg_list => fnd_api.g_false
6766: , p_commit => fnd_api.g_false
6767: , x_return_status => l_return_status
6768: , x_msg_count => l_msg_cnt
6769: , x_msg_data => l_msg_data
6770: , p_lpn_id => l_lpn_id
6787: , p_source_line_id => NULL
6788: , p_source_line_detail_id => NULL
6789: );
6790:
6791: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6792: fnd_message.set_name('WMS', 'WMS_TD_MODIFY_LPN_ERROR');
6793: fnd_msg_pub.ADD;
6794: RAISE fnd_api.g_exc_unexpected_error;
6795: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
6790:
6791: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6792: fnd_message.set_name('WMS', 'WMS_TD_MODIFY_LPN_ERROR');
6793: fnd_msg_pub.ADD;
6794: RAISE fnd_api.g_exc_unexpected_error;
6795: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
6796: fnd_message.set_name('WMS', 'WMS_TD_MODIFY_LPN_ERROR');
6797: fnd_msg_pub.ADD;
6798: RAISE fnd_api.g_exc_error;
6791: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6792: fnd_message.set_name('WMS', 'WMS_TD_MODIFY_LPN_ERROR');
6793: fnd_msg_pub.ADD;
6794: RAISE fnd_api.g_exc_unexpected_error;
6795: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
6796: fnd_message.set_name('WMS', 'WMS_TD_MODIFY_LPN_ERROR');
6797: fnd_msg_pub.ADD;
6798: RAISE fnd_api.g_exc_error;
6799: END IF;
6794: RAISE fnd_api.g_exc_unexpected_error;
6795: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
6796: fnd_message.set_name('WMS', 'WMS_TD_MODIFY_LPN_ERROR');
6797: fnd_msg_pub.ADD;
6798: RAISE fnd_api.g_exc_error;
6799: END IF;
6800: END IF;
6801:
6802: x_ret := l_ret;
6799: END IF;
6800: END IF;
6801:
6802: x_ret := l_ret;
6803: x_return_status := fnd_api.g_ret_sts_success;
6804: EXCEPTION
6805: WHEN fnd_api.g_exc_error THEN
6806: x_return_status := fnd_api.g_ret_sts_error;
6807: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6801:
6802: x_ret := l_ret;
6803: x_return_status := fnd_api.g_ret_sts_success;
6804: EXCEPTION
6805: WHEN fnd_api.g_exc_error THEN
6806: x_return_status := fnd_api.g_ret_sts_error;
6807: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6808: WHEN OTHERS THEN
6809: x_return_status := fnd_api.g_ret_sts_unexp_error;
6802: x_ret := l_ret;
6803: x_return_status := fnd_api.g_ret_sts_success;
6804: EXCEPTION
6805: WHEN fnd_api.g_exc_error THEN
6806: x_return_status := fnd_api.g_ret_sts_error;
6807: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6808: WHEN OTHERS THEN
6809: x_return_status := fnd_api.g_ret_sts_unexp_error;
6810: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6805: WHEN fnd_api.g_exc_error THEN
6806: x_return_status := fnd_api.g_ret_sts_error;
6807: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6808: WHEN OTHERS THEN
6809: x_return_status := fnd_api.g_ret_sts_unexp_error;
6810: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6811: END change_lpn;
6812:
6813: PROCEDURE multiple_lpn_pick(
6895: l_lpn_sub VARCHAR2(30); --Added bug3765153
6896: l_lpn_loc NUMBER; --Added bug3765153
6897: BEGIN
6898: SAVEPOINT sp_multiple_lpn_pick;
6899: l_return_status := fnd_api.g_ret_sts_success;
6900:
6901: IF (l_debug = 1) THEN
6902: mydebug('multiple_lpn_pick: p_lpn_id = ' || p_lpn_id);
6903: mydebug('multiple_lpn_pick: p_temp_id = ' || p_temp_id);
7858: mydebug('multiple_lpn_pick: Update WMSDT as loaded');
7859: END IF;
7860:
7861: x_temp_id := l_new_temp_id;
7862: x_return_status := fnd_api.g_ret_sts_success;
7863:
7864: IF (l_debug = 1) THEN
7865: mydebug('multiple_lpn_pick: Complete x_temp_id = ' || x_temp_id);
7866: END IF;
7864: IF (l_debug = 1) THEN
7865: mydebug('multiple_lpn_pick: Complete x_temp_id = ' || x_temp_id);
7866: END IF;
7867: EXCEPTION
7868: WHEN fnd_api.g_exc_error THEN
7869: x_return_status := fnd_api.g_ret_sts_error;
7870: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7871:
7872: IF lpn_ser_cur%ISOPEN THEN
7865: mydebug('multiple_lpn_pick: Complete x_temp_id = ' || x_temp_id);
7866: END IF;
7867: EXCEPTION
7868: WHEN fnd_api.g_exc_error THEN
7869: x_return_status := fnd_api.g_ret_sts_error;
7870: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7871:
7872: IF lpn_ser_cur%ISOPEN THEN
7873: CLOSE lpn_ser_cur;
7883:
7884: ROLLBACK TO sp_multiple_lpn_pick;
7885:
7886: IF (l_debug = 1) THEN
7887: mydebug('multiple_lpn_pick: raise FND_API.G_EXC_ERROR');
7888: END IF;
7889: WHEN OTHERS THEN
7890: x_return_status := fnd_api.g_ret_sts_unexp_error;
7891: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7886: IF (l_debug = 1) THEN
7887: mydebug('multiple_lpn_pick: raise FND_API.G_EXC_ERROR');
7888: END IF;
7889: WHEN OTHERS THEN
7890: x_return_status := fnd_api.g_ret_sts_unexp_error;
7891: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7892:
7893: IF lpn_ser_cur%ISOPEN THEN
7894: CLOSE lpn_ser_cur;
8064:
8065: --
8066: -- Standard call to check for call compatibility
8067: --
8068: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
8069: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8070: fnd_msg_pub.ADD;
8071: RAISE fnd_api.g_exc_error;
8072: END IF;
8067: --
8068: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
8069: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
8070: fnd_msg_pub.ADD;
8071: RAISE fnd_api.g_exc_error;
8072: END IF;
8073:
8074: --
8075: -- Initialize message list.
8073:
8074: --
8075: -- Initialize message list.
8076: --
8077: IF fnd_api.to_boolean(p_init_msg_lst) THEN
8078: fnd_msg_pub.initialize;
8079: END IF;
8080:
8081: --
8080:
8081: --
8082: -- Initialize API return status to success
8083: --
8084: x_return_status := fnd_api.g_ret_sts_success;
8085:
8086: --
8087: -- Begin validation process:
8088: -- Check if drop lpn exists by trying to retrieve its lpn ID.
8116: );
8117:
8118:
8119:
8120: IF x_return_status = fnd_api.g_ret_sts_unexp_error
8121: OR x_return_status = fnd_api.g_ret_sts_error THEN
8122: RAISE fnd_api.g_exc_error;
8123: END IF;
8124:
8117:
8118:
8119:
8120: IF x_return_status = fnd_api.g_ret_sts_unexp_error
8121: OR x_return_status = fnd_api.g_ret_sts_error THEN
8122: RAISE fnd_api.g_exc_error;
8123: END IF;
8124:
8125:
8118:
8119:
8120: IF x_return_status = fnd_api.g_ret_sts_unexp_error
8121: OR x_return_status = fnd_api.g_ret_sts_error THEN
8122: RAISE fnd_api.g_exc_error;
8123: END IF;
8124:
8125:
8126:
8195: mydebug(' l_mo_type_in_lpn => ' || l_mo_type_in_lpn);
8196: END IF;
8197: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_MO_TYPE');
8198: fnd_msg_pub.ADD;
8199: RAISE fnd_api.g_exc_error;
8200: ELSIF l_mmtt_txn_type_id = 35
8201: OR l_mmtt_txn_type_id = 51 THEN -- Mfg pick
8202: IF l_mmtt_wip_entity_type <> l_wip_entity_type_in_lpn THEN
8203: IF (l_debug = 1) THEN
8205: mydebug('WIP entity type IS NOT the same AS that OF the old mmtt RECORD');
8206: END IF;
8207: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_MFG_MODE');
8208: fnd_msg_pub.ADD;
8209: RAISE fnd_api.g_exc_error;
8210: END IF;
8211: END IF;
8212: -- *********************End of bug fix 2078002,2095080 ********************
8213:
8276: END IF;
8277:
8278: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_SUBINV');
8279: fnd_msg_pub.ADD;
8280: RAISE fnd_api.g_exc_error;
8281: END IF;
8282: ELSE
8283: --
8284: -- Current temp ID has a NULL xfer sub (issue txn)
8317: END IF;
8318:
8319: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_SUBINV');
8320: fnd_msg_pub.ADD;
8321: RAISE fnd_api.g_exc_error;
8322: END IF;
8323: END IF;
8324:
8325: --
8347: END IF;
8348:
8349: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_OPER_PLAN');
8350: fnd_msg_pub.ADD;
8351: RAISE fnd_api.g_exc_error;
8352: END IF;
8353:
8354:
8355: --
8396: END IF;
8397:
8398: fnd_message.set_name('WMS', 'WMS_NO_MOL');
8399: fnd_msg_pub.ADD;
8400: RAISE fnd_api.g_exc_error;
8401: END IF;
8402:
8403: IF l_current_carton_grouping_id IS NOT NULL THEN -- found carton_grouping_id
8404: OPEN others_carton_grouping_cursor(pick_to_lpn_rec.lpn_id);
8441: END IF;
8442:
8443: fnd_message.set_name('WMS', 'WMS_NO_WDD_WDA');
8444: fnd_msg_pub.ADD;
8445: RAISE fnd_api.g_exc_error;
8446: END IF;
8447:
8448: IF l_pick_to_lpn_delivery_id IS NULL THEN
8449: IF (l_debug = 1) THEN
8458: END IF;
8459:
8460: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
8461: fnd_msg_pub.ADD;
8462: RAISE fnd_api.g_exc_error;
8463: END IF;
8464: ELSE -- they have different carton_grouping_id
8465: IF (l_debug = 1) THEN
8466: mydebug('validate_pick_to_lpn: other tasks in lpn have different carton grouping id');
8491: p_line_rows => l_line_rows,
8492: x_grouping_rows => l_grouping_rows,
8493: x_return_status => l_return_status);
8494:
8495: IF (l_return_status = FND_API.G_RET_STS_SUCCESS
8496: AND l_grouping_rows (1) = l_grouping_rows(2) ) THEN
8497: l_same_carton_grouping := TRUE;
8498: ELSE
8499: l_same_carton_grouping := FALSE;
8512: END;
8513: IF (l_same_carton_grouping = FALSE) then
8514: fnd_message.set_name('WMS', 'WMS_DIFF_CARTON_GROUP');
8515: fnd_msg_pub.ADD;
8516: RAISE fnd_api.g_exc_error;
8517: END IF; --End of fix for bug#4440585.
8518:
8519: END IF;
8520: ELSE -- some of carton_grouping_id is null
8523: END IF;
8524:
8525: fnd_message.set_name('WMS', 'WMS_CARTON_GROUP_NULL');
8526: fnd_msg_pub.ADD;
8527: RAISE fnd_api.g_exc_error;
8528: END IF;
8529: ELSE --carton_grouping_id is null
8530: IF (l_debug = 1) THEN
8531: mydebug('validate_pick_to_lpn: carton_grouping_id of current task is null');
8533: --bug3481923 only fail if it is not requisition on repl mo
8534: if (l_mmtt_mo_type not in(1,2)) then
8535: fnd_message.set_name('WMS', 'WMS_CARTON_GROUP_NULL');
8536: fnd_msg_pub.ADD;
8537: RAISE fnd_api.g_exc_error;
8538: end if;
8539: END IF;
8540: END IF;
8541:
8564: END IF;
8565:
8566: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
8567: fnd_msg_pub.ADD;
8568: RAISE fnd_api.g_exc_error;
8569: END IF;
8570: ELSIF l_pick_to_lpn_delivery_id2 IS NULL THEN
8571: IF (l_debug = 1) THEN
8572: mydebug('validate_pick_to_lpn: Picked LPN does not have deliveries.');
8579: END IF;
8580:
8581: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
8582: fnd_msg_pub.ADD;
8583: RAISE fnd_api.g_exc_error;
8584: END IF;
8585: ELSIF l_pick_to_lpn_delivery_id2 = -999 THEN
8586: IF (l_debug = 1) THEN
8587: mydebug('validate_pick_to_lpn: LPN does not contain other tasks. This is the first task, so ok.');
8610: END IF;
8611:
8612: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
8613: fnd_msg_pub.ADD;
8614: RAISE fnd_api.g_exc_error;
8615: ELSE
8616: --
8617: -- Picked LPN and current MMTT are on the same delivery
8618: -- return success
8657: END IF;
8658:
8659: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
8660: fnd_msg_pub.ADD;
8661: RAISE fnd_api.g_exc_error;
8662: ELSE
8663: --
8664: -- Child LPN has the delivery as the current MMTT, return success
8665: --
8705: EXIT WHEN mtl_project_task_cursor%NOTFOUND;
8706:
8707: IF ((mtl_pjm_prj_tsk_rec.prj_id <> lpn_pjm_prj_tsk_rec.prj_id)
8708: AND(mtl_pjm_prj_tsk_rec.tsk_id <> lpn_pjm_prj_tsk_rec.tsk_id)) THEN
8709: RAISE fnd_api.g_exc_error;
8710: END IF;
8711: END LOOP;
8712:
8713: CLOSE mtl_project_task_cursor;
8715:
8716: CLOSE lpn_project_task_cursor;
8717: END IF;
8718: EXCEPTION
8719: WHEN fnd_api.g_exc_error THEN
8720: x_return_status := fnd_api.g_ret_sts_error;
8721: -- Get message count and data
8722: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8723:
8716: CLOSE lpn_project_task_cursor;
8717: END IF;
8718: EXCEPTION
8719: WHEN fnd_api.g_exc_error THEN
8720: x_return_status := fnd_api.g_ret_sts_error;
8721: -- Get message count and data
8722: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8723:
8724: IF (l_debug = 1) THEN
8760: IF others_carton_grouping_cursor%ISOPEN THEN
8761: CLOSE others_carton_grouping_cursor;
8762: END IF;
8763: WHEN OTHERS THEN
8764: x_return_status := fnd_api.g_ret_sts_unexp_error;
8765:
8766: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8767: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8768: END IF;
8901: END IF;
8902:
8903: SAVEPOINT sp_multiple_pick;
8904: l_progress := '10';
8905: l_return_status := fnd_api.g_ret_sts_success;
8906:
8907: IF (l_debug = 1) THEN
8908: mydebug('multiple_pick: p_temp_id = ' || p_temp_id);
8909: mydebug('multiple_pick: p_org_id = ' || p_org_id);
9018: END IF;
9019:
9020: inv_txn_validations.check_loose_quantity(
9021: p_api_version_number => 1.0
9022: , p_init_msg_lst => fnd_api.g_false
9023: , x_return_status => l_return_status
9024: , x_msg_count => x_msg_count
9025: , x_msg_data => x_msg_data
9026: , p_organization_id => p_org_id
9039: , p_transfer_subinventory => l_to_sub
9040: );
9041: l_progress := '70';
9042:
9043: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9044: IF (l_debug = 1) THEN
9045: mydebug('multiple_pick: unexpected error in check_loose_qty');
9046: END IF;
9047:
9045: mydebug('multiple_pick: unexpected error in check_loose_qty');
9046: END IF;
9047:
9048: p_ok_to_process := 'false';
9049: RAISE fnd_api.g_exc_unexpected_error;
9050: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
9051: IF (l_debug = 1) THEN
9052: mydebug('multiple_pick: error in check_loose_qty');
9053: END IF;
9046: END IF;
9047:
9048: p_ok_to_process := 'false';
9049: RAISE fnd_api.g_exc_unexpected_error;
9050: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
9051: IF (l_debug = 1) THEN
9052: mydebug('multiple_pick: error in check_loose_qty');
9053: END IF;
9054:
9052: mydebug('multiple_pick: error in check_loose_qty');
9053: END IF;
9054:
9055: p_ok_to_process := 'false';
9056: RAISE fnd_api.g_exc_error;
9057: END IF;
9058:
9059: IF p_ok_to_process = 'false' THEN
9060: x_temp_id := 0;
9063: IF (l_debug = 1) THEN
9064: mydebug('multiple_pick: After quantity validation. Quantity not enough. Cannot process');
9065: END IF;
9066:
9067: x_return_status := fnd_api.g_ret_sts_success;
9068: RETURN;
9069: END IF;
9070: ELSE
9071: IF (l_sug_loc <> l_act_loc
9075: END IF;
9076:
9077: inv_txn_validations.check_loose_and_packed_qty(
9078: p_api_version_number => 1.0
9079: , p_init_msg_lst => fnd_api.g_false
9080: , x_return_status => l_return_status
9081: , x_msg_count => x_msg_count
9082: , x_msg_data => x_msg_data
9083: , p_organization_id => p_org_id
9096: , p_transfer_subinventory => l_to_sub
9097: );
9098: l_progress := '71';
9099:
9100: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9101: IF (l_debug = 1) THEN
9102: mydebug('multiple_pick: unexpected error in check_loose_and_packed_qty');
9103: END IF;
9104:
9102: mydebug('multiple_pick: unexpected error in check_loose_and_packed_qty');
9103: END IF;
9104:
9105: p_ok_to_process := 'false';
9106: RAISE fnd_api.g_exc_unexpected_error;
9107: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
9108: IF (l_debug = 1) THEN
9109: mydebug('multiple_pick: error in check_and_packed_loose_qty');
9110: END IF;
9103: END IF;
9104:
9105: p_ok_to_process := 'false';
9106: RAISE fnd_api.g_exc_unexpected_error;
9107: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
9108: IF (l_debug = 1) THEN
9109: mydebug('multiple_pick: error in check_and_packed_loose_qty');
9110: END IF;
9111:
9109: mydebug('multiple_pick: error in check_and_packed_loose_qty');
9110: END IF;
9111:
9112: p_ok_to_process := 'false';
9113: RAISE fnd_api.g_exc_error;
9114: END IF;
9115:
9116: IF p_ok_to_process = 'false' THEN
9117: x_temp_id := 0;
9120: IF (l_debug = 1) THEN
9121: mydebug('multiple_pick: After quantity validation. Quantity not enough. Cannot process');
9122: END IF;
9123:
9124: x_return_status := fnd_api.g_ret_sts_success;
9125: RETURN;
9126: END IF;
9127: END IF;
9128: END IF;
9166: END IF;
9167:
9168: wms_container_pub.create_lpn(
9169: p_api_version => 1.0
9170: , p_init_msg_list => fnd_api.g_false
9171: , p_commit => fnd_api.g_false
9172: , x_return_status => l_return_status
9173: , x_msg_count => l_msg_cnt
9174: , x_msg_data => l_msg_data
9167:
9168: wms_container_pub.create_lpn(
9169: p_api_version => 1.0
9170: , p_init_msg_list => fnd_api.g_false
9171: , p_commit => fnd_api.g_false
9172: , x_return_status => l_return_status
9173: , x_msg_count => l_msg_cnt
9174: , x_msg_data => l_msg_data
9175: , p_lpn => p_to_lpn
9208: END IF;
9209: END LOOP;
9210: END IF;
9211:
9212: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9213: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
9214: fnd_msg_pub.ADD;
9215: RAISE fnd_api.g_exc_unexpected_error;
9216: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
9211:
9212: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9213: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
9214: fnd_msg_pub.ADD;
9215: RAISE fnd_api.g_exc_unexpected_error;
9216: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
9217: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
9218: fnd_msg_pub.ADD;
9219: RAISE fnd_api.g_exc_error;
9212: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9213: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
9214: fnd_msg_pub.ADD;
9215: RAISE fnd_api.g_exc_unexpected_error;
9216: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
9217: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
9218: fnd_msg_pub.ADD;
9219: RAISE fnd_api.g_exc_error;
9220: END IF;
9215: RAISE fnd_api.g_exc_unexpected_error;
9216: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
9217: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
9218: fnd_msg_pub.ADD;
9219: RAISE fnd_api.g_exc_error;
9220: END IF;
9221: ELSIF p_to_lpn <> '-999' THEN
9222: IF (l_debug = 1) THEN
9223: mydebug('multiple_pick: LPN exists');
9326:
9327: IF l_pick_qty_remaining > l_mtl_reservation_tbl(1).primary_reservation_quantity THEN
9328: FND_MESSAGE.SET_NAME('INV','INV_INSUFF_QTY_RSV');
9329: FND_MSG_PUB.Add;
9330: RAISE fnd_api.g_exc_unexpected_error;
9331: END IF;
9332:
9333: --Update loc, sub and locator in new reservation
9334: l_mtl_reservation_rec.locator_id := l_act_loc;
9338: l_mtl_reservation_rec.primary_reservation_quantity := l_pr_qty;
9339:
9340: inv_reservation_pub.transfer_reservation
9341: (p_api_version_number => 1.0,
9342: p_init_msg_lst => fnd_api.g_false,
9343: x_return_status => l_return_status,
9344: x_msg_count => x_msg_count,
9345: x_msg_data => x_msg_data,
9346: p_original_rsv_rec => l_mtl_reservation_tbl(1),
9351:
9352: l_progress := '170';
9353:
9354: -- Return an error if the transfer reservations call failed
9355: IF l_return_status <> fnd_api.g_ret_sts_success THEN
9356: FND_MESSAGE.SET_NAME('INV','INV_TRANSFER_RSV_FAILED');
9357: FND_MSG_PUB.Add;
9358: RAISE fnd_api.g_exc_unexpected_error;
9359: END IF;
9354: -- Return an error if the transfer reservations call failed
9355: IF l_return_status <> fnd_api.g_ret_sts_success THEN
9356: FND_MESSAGE.SET_NAME('INV','INV_TRANSFER_RSV_FAILED');
9357: FND_MSG_PUB.Add;
9358: RAISE fnd_api.g_exc_unexpected_error;
9359: END IF;
9360:
9361: ELSE
9362:
9371: END IF;
9372:
9373: FND_MESSAGE.SET_NAME('INV','INV_TRANSFER_RSV_FAILED');
9374: FND_MSG_PUB.ADD;
9375: RAISE FND_API.g_exc_unexpected_error;
9376:
9377: END IF;
9378:
9379: END IF;
9379: END IF;
9380: */
9381: fnd_message.set_name('INV', 'INV_TRANSFER_RSV_FAILED');
9382: fnd_msg_pub.ADD;
9383: RAISE fnd_api.g_exc_unexpected_error;
9384: END IF;
9385: END IF;
9386:
9387: --Call any location discrepancy workflow or any other workflow
10164: /*Bug#3957819.IF the serial number is already used , throw an error*/
10165: IF l_serial_count > 1 THEN
10166: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
10167: fnd_msg_pub.ADD;
10168: RAISE fnd_api.g_exc_error;
10169: END IF;
10170: /*End of fix for Bug#3957819 */
10171:
10172: l_progress := '480';
10246: /*Bug#3957819.IF the serial number is already used , throw an error*/
10247: IF l_serial_count > 1 THEN
10248: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
10249: fnd_msg_pub.ADD;
10250: RAISE fnd_api.g_exc_error;
10251: END IF;
10252: /*End of fix for Bug#3957819 */
10253:
10254: l_progress := '530';
10345: /*Bug#3957819.IF the serial number is already used , throw an error*/
10346: IF l_serial_count > 1 THEN
10347: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
10348: fnd_msg_pub.ADD;
10349: RAISE fnd_api.g_exc_error;
10350: END IF;
10351: /*End of fix for Bug#3957819 */
10352:
10353: l_progress := '580';
10418: /*Bug#3957819.IF the serial number is already used , throw an error*/
10419: IF l_serial_count > 1 THEN
10420: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
10421: fnd_msg_pub.ADD;
10422: RAISE fnd_api.g_exc_error;
10423: END IF;
10424: /*End of fix for Bug#3957819 */
10425:
10426: l_progress := '620';
10467: END IF;
10468:
10469: l_progress := '650';
10470: x_temp_id := l_local_temp_id;
10471: x_return_status := fnd_api.g_ret_sts_success;
10472:
10473: IF (l_debug = 1) THEN
10474: mydebug('multiple_pick: End of multiple_pick');
10475: END IF;
10473: IF (l_debug = 1) THEN
10474: mydebug('multiple_pick: End of multiple_pick');
10475: END IF;
10476: EXCEPTION
10477: WHEN fnd_api.g_exc_error THEN
10478: x_return_status := fnd_api.g_ret_sts_error;
10479: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10480: ROLLBACK TO sp_multiple_pick;
10481:
10474: mydebug('multiple_pick: End of multiple_pick');
10475: END IF;
10476: EXCEPTION
10477: WHEN fnd_api.g_exc_error THEN
10478: x_return_status := fnd_api.g_ret_sts_error;
10479: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10480: ROLLBACK TO sp_multiple_pick;
10481:
10482: IF (l_debug = 1) THEN
10479: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10480: ROLLBACK TO sp_multiple_pick;
10481:
10482: IF (l_debug = 1) THEN
10483: mydebug('multiple_pick : raise FND_API.G_EXC_ERROR: ' || SQLERRM);
10484: mydebug('l_progress = ' || l_progress);
10485: END IF;
10486: WHEN OTHERS THEN
10487: x_return_status := fnd_api.g_ret_sts_unexp_error;
10483: mydebug('multiple_pick : raise FND_API.G_EXC_ERROR: ' || SQLERRM);
10484: mydebug('l_progress = ' || l_progress);
10485: END IF;
10486: WHEN OTHERS THEN
10487: x_return_status := fnd_api.g_ret_sts_unexp_error;
10488: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10489: ROLLBACK TO sp_multiple_pick;
10490:
10491: IF (l_debug = 1) THEN
10509: l_exist NUMBER;
10510: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
10511: BEGIN
10512: l_exist := 0;
10513: l_return_status := fnd_api.g_ret_sts_success;
10514:
10515: IF (l_debug = 1) THEN
10516: mydebug('In create LPN..');
10517: END IF;
10572: END IF;
10573: END LOOP;
10574: END IF;
10575:
10576: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10577: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10578: fnd_msg_pub.ADD;
10579: RAISE fnd_api.g_exc_unexpected_error;
10580: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
10575:
10576: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10577: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10578: fnd_msg_pub.ADD;
10579: RAISE fnd_api.g_exc_unexpected_error;
10580: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
10581: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10582: fnd_msg_pub.ADD;
10583: RAISE fnd_api.g_exc_error;
10576: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10577: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10578: fnd_msg_pub.ADD;
10579: RAISE fnd_api.g_exc_unexpected_error;
10580: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
10581: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10582: fnd_msg_pub.ADD;
10583: RAISE fnd_api.g_exc_error;
10584: END IF;
10579: RAISE fnd_api.g_exc_unexpected_error;
10580: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
10581: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10582: fnd_msg_pub.ADD;
10583: RAISE fnd_api.g_exc_error;
10584: END IF;
10585: ELSE -- lpn exists
10586: SELECT lpn_id
10587: INTO p_lpn_id
10588: FROM wms_license_plate_numbers
10589: WHERE license_plate_number = p_lpn;
10590: END IF;
10591:
10592: x_return_status := fnd_api.g_ret_sts_success;
10593: EXCEPTION
10594: WHEN fnd_api.g_exc_error THEN
10595: x_return_status := fnd_api.g_ret_sts_error;
10596: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10590: END IF;
10591:
10592: x_return_status := fnd_api.g_ret_sts_success;
10593: EXCEPTION
10594: WHEN fnd_api.g_exc_error THEN
10595: x_return_status := fnd_api.g_ret_sts_error;
10596: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10597: WHEN OTHERS THEN
10598: x_return_status := fnd_api.g_ret_sts_unexp_error;
10591:
10592: x_return_status := fnd_api.g_ret_sts_success;
10593: EXCEPTION
10594: WHEN fnd_api.g_exc_error THEN
10595: x_return_status := fnd_api.g_ret_sts_error;
10596: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10597: WHEN OTHERS THEN
10598: x_return_status := fnd_api.g_ret_sts_unexp_error;
10599: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10594: WHEN fnd_api.g_exc_error THEN
10595: x_return_status := fnd_api.g_ret_sts_error;
10596: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10597: WHEN OTHERS THEN
10598: x_return_status := fnd_api.g_ret_sts_unexp_error;
10599: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10600: END create_lpn;
10601:
10602: -- p sub, p_loc are user entered values
11031: END IF;
11032:
11033: l_temp_id := p_temp_id;
11034: l_org_id := p_org_id;
11035: l_return_status := fnd_api.g_ret_sts_success;
11036: l_txn_ret := 0;
11037: l_txn_header_id := p_txn_header_id;
11038: l_cnt := 0;
11039: l_isdroplpnentered := TRUE;
11074: , x_msg_count => l_msg_count
11075: , x_msg_data => l_msg_data
11076: );
11077:
11078: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11079: IF (l_debug = 1) THEN
11080: mydebug('pick_drop: Insert MMTT pack Unexpected error');
11081: END IF;
11082:
11080: mydebug('pick_drop: Insert MMTT pack Unexpected error');
11081: END IF;
11082:
11083: fnd_msg_pub.ADD;
11084: RAISE fnd_api.g_exc_unexpected_error;
11085: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11086: IF (l_debug = 1) THEN
11087: mydebug('pick_drop: Insert MMTT pack error');
11088: END IF;
11081: END IF;
11082:
11083: fnd_msg_pub.ADD;
11084: RAISE fnd_api.g_exc_unexpected_error;
11085: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11086: IF (l_debug = 1) THEN
11087: mydebug('pick_drop: Insert MMTT pack error');
11088: END IF;
11089:
11087: mydebug('pick_drop: Insert MMTT pack error');
11088: END IF;
11089:
11090: fnd_msg_pub.ADD;
11091: RAISE fnd_api.g_exc_error;
11092: END IF;
11093: END IF;
11094:
11095: IF (l_debug = 1) THEN
11270: END IF;
11271:
11272: fnd_message.set_name('INV', 'INV_NO_OPEN_PERIOD');
11273: fnd_msg_pub.ADD;
11274: RAISE fnd_api.g_exc_unexpected_error;
11275: END IF;
11276:
11277: -- call workflow for location discrepancy
11278: IF (l_debug = 1) THEN
11296: -- right now we give the from_sub and from_loc until
11297: -- wms control board is enhanced.
11298: wms_txnrsn_actions_pub.log_exception
11299: (p_api_version_number => 1.0,
11300: p_init_msg_lst => fnd_api.g_false,
11301: p_commit => fnd_api.g_false,
11302: x_return_status => l_return_status,
11303: x_msg_count => l_msg_count,
11304: x_msg_data => l_msg_data,
11297: -- wms control board is enhanced.
11298: wms_txnrsn_actions_pub.log_exception
11299: (p_api_version_number => 1.0,
11300: p_init_msg_lst => fnd_api.g_false,
11301: p_commit => fnd_api.g_false,
11302: x_return_status => l_return_status,
11303: x_msg_count => l_msg_count,
11304: x_msg_data => l_msg_data,
11305: p_organization_id => l_org_id,
11318: IF (l_debug = 1) THEN
11319: mydebug('pick_drop: after logging exception for temp_id: ' || rec_mmtt.transaction_temp_id);
11320: END IF;
11321:
11322: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11323: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11324: fnd_msg_pub.ADD;
11325: RAISE fnd_api.g_exc_unexpected_error;
11326: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11321:
11322: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11323: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11324: fnd_msg_pub.ADD;
11325: RAISE fnd_api.g_exc_unexpected_error;
11326: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11327: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11328: fnd_msg_pub.ADD;
11329: RAISE fnd_api.g_exc_error;
11322: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11323: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11324: fnd_msg_pub.ADD;
11325: RAISE fnd_api.g_exc_unexpected_error;
11326: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11327: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11328: fnd_msg_pub.ADD;
11329: RAISE fnd_api.g_exc_error;
11330: END IF;
11325: RAISE fnd_api.g_exc_unexpected_error;
11326: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11327: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11328: fnd_msg_pub.ADD;
11329: RAISE fnd_api.g_exc_error;
11330: END IF;
11331:
11332: END LOOP;
11333:
11368:
11369: -- Calling Workflow
11370: wms_workflow_wrappers.wf_wrapper(
11371: p_api_version => 1.0
11372: , p_init_msg_list => fnd_api.g_false
11373: , p_commit => fnd_api.g_false
11374: , x_return_status => l_return_status
11375: , x_msg_count => l_msg_count
11376: , x_msg_data => l_msg_data
11369: -- Calling Workflow
11370: wms_workflow_wrappers.wf_wrapper(
11371: p_api_version => 1.0
11372: , p_init_msg_list => fnd_api.g_false
11373: , p_commit => fnd_api.g_false
11374: , x_return_status => l_return_status
11375: , x_msg_count => l_msg_count
11376: , x_msg_data => l_msg_data
11377: , p_org_id => l_org_id
11386: IF (l_debug = 1) THEN
11387: mydebug('pick_drop : After Calling WF Wrapper');
11388: END IF;
11389:
11390: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11391: IF (l_debug = 1) THEN
11392: mydebug('pick_drop : Error callinf WF wrapper');
11393: END IF;
11394:
11393: END IF;
11394:
11395: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
11396: fnd_msg_pub.ADD;
11397: RAISE fnd_api.g_exc_unexpected_error;
11398: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11399: IF (l_debug = 1) THEN
11400: mydebug('pick_drop : Error calling WF wrapper');
11401: END IF;
11394:
11395: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
11396: fnd_msg_pub.ADD;
11397: RAISE fnd_api.g_exc_unexpected_error;
11398: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11399: IF (l_debug = 1) THEN
11400: mydebug('pick_drop : Error calling WF wrapper');
11401: END IF;
11402:
11401: END IF;
11402:
11403: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
11404: fnd_msg_pub.ADD;
11405: RAISE fnd_api.g_exc_error;
11406: END IF;
11407: END IF;
11408: END IF;
11409:
11525: IF (WMS_CONTROL.get_current_release_level >= INV_RELEASE.get_j_release_level)
11526: THEN
11527: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx
11528: ( p_trx_hdr_id => l_txn_header_id
11529: , p_commit => fnd_api.g_false
11530: , p_proc_mode => 1
11531: , x_proc_msg => l_msg_data
11532: , p_business_flow_code => l_flow
11533: );
11539:
11540: IF l_txn_ret <> 0 THEN
11541: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11542: fnd_msg_pub.ADD;
11543: RAISE fnd_api.g_exc_unexpected_error;
11544: END IF;
11545: ELSE
11546: --
11547: -- Bug 2747945 : Added business flow code to the call to the wip processor.
11559: IF (l_debug = 1) THEN
11560: mydebug('pick_drop: After Calling WIP txn proc STATUS' || l_return_status);
11561: END IF;
11562:
11563: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11564: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11565: fnd_msg_pub.ADD;
11566: RAISE fnd_api.g_exc_unexpected_error;
11567: END IF;
11562:
11563: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11564: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11565: fnd_msg_pub.ADD;
11566: RAISE fnd_api.g_exc_unexpected_error;
11567: END IF;
11568: END IF; -- end if release J
11569: ELSE
11570: --
11595: END IF;
11596:
11597: fnd_message.set_name('WMS', 'WMS_STG_MV_LPN_SHIPPED');
11598: fnd_msg_pub.ADD;
11599: RAISE fnd_api.g_exc_unexpected_error;
11600: END IF;
11601: END IF;
11602:
11603: -- VARAJAGO for bug 5222498, inserting the serial_number's group_mark_id into the temp table
11667:
11668: IF l_flow = inv_label.wms_bf_pick_drop THEN
11669: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx
11670: ( p_trx_hdr_id => l_txn_header_id
11671: , p_commit => fnd_api.g_false
11672: , p_proc_mode => 1
11673: , x_proc_msg => l_msg_data
11674: , p_business_flow_code => null
11675: );
11679: mydebug('TEST: Going to call TM for Replenishment Drop................ ');
11680: END IF;
11681: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx
11682: ( p_trx_hdr_id => l_txn_header_id
11683: , p_commit => fnd_api.g_false
11684: , p_proc_mode => 1
11685: , x_proc_msg => l_msg_data
11686: , p_business_flow_code => l_flow
11687: );
11696:
11697: IF l_txn_ret <> 0 THEN
11698: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11699: fnd_msg_pub.ADD;
11700: RAISE fnd_api.g_exc_unexpected_error;
11701: END IF;
11702: END IF; -- for l_tran_type_id <> 35
11703:
11704:
11776:
11777: -- Call Allocation engine for allocate MO
11778: WMS_Engine_PVT.create_suggestions(
11779: p_api_version => 1.0,
11780: p_init_msg_list => fnd_api.g_false,
11781: p_commit => fnd_api.g_false,
11782: p_validation_level => fnd_api.g_valid_level_none,
11783: x_return_status => l_return_status,
11784: x_msg_count => l_msg_count,
11777: -- Call Allocation engine for allocate MO
11778: WMS_Engine_PVT.create_suggestions(
11779: p_api_version => 1.0,
11780: p_init_msg_list => fnd_api.g_false,
11781: p_commit => fnd_api.g_false,
11782: p_validation_level => fnd_api.g_valid_level_none,
11783: x_return_status => l_return_status,
11784: x_msg_count => l_msg_count,
11785: x_msg_data => l_msg_data,
11778: WMS_Engine_PVT.create_suggestions(
11779: p_api_version => 1.0,
11780: p_init_msg_list => fnd_api.g_false,
11781: p_commit => fnd_api.g_false,
11782: p_validation_level => fnd_api.g_valid_level_none,
11783: x_return_status => l_return_status,
11784: x_msg_count => l_msg_count,
11785: x_msg_data => l_msg_data,
11786: p_transaction_temp_id => l_demand_line_id,
11784: x_msg_count => l_msg_count,
11785: x_msg_data => l_msg_data,
11786: p_transaction_temp_id => l_demand_line_id,
11787: p_reservations => l_rsv_tbl_tmp, --No rsv FOR repl MO
11788: p_suggest_serial => fnd_api.g_false,
11789: p_plan_tasks => FALSE
11790: );
11791:
11792: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11788: p_suggest_serial => fnd_api.g_false,
11789: p_plan_tasks => FALSE
11790: );
11791:
11792: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11793: IF (l_debug = 1) THEN
11794: mydebug('Move Order Allocation Failed, Move to next one');
11795: END IF;
11796: -- do nothing, skip this
11860: , p_repl_status => 'C' -- for completed status
11861: , x_return_status => l_return_status
11862: );
11863:
11864: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11865: -- do nothing, skip this
11866: GOTO next_repl_demand;
11867: END IF;
11868:
11903: l_action_prms.split_quantity := (L_DEMAND_PRI_QTY - L_REMAINING_MMTT_QTY) ;
11904:
11905: WSH_INTERFACE_GRP.Delivery_Detail_Action
11906: (p_api_version_number => 1.0,
11907: p_init_msg_list => fnd_api.g_false,
11908: p_commit => fnd_api.g_false,
11909: x_return_status => l_return_status,
11910: x_msg_count => x_msg_count,
11911: x_msg_data => x_msg_data,
11904:
11905: WSH_INTERFACE_GRP.Delivery_Detail_Action
11906: (p_api_version_number => 1.0,
11907: p_init_msg_list => fnd_api.g_false,
11908: p_commit => fnd_api.g_false,
11909: x_return_status => l_return_status,
11910: x_msg_count => x_msg_count,
11911: x_msg_data => x_msg_data,
11912: p_detail_id_tab => l_detail_id_tab,
11913: p_action_prms => l_action_prms,
11914: x_action_out_rec => l_action_out_rec
11915: );
11916:
11917: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
11918: IF (l_debug = 1) THEN
11919: mydebug('Error returned from Split Delivery_Detail_Action API..skip this demand');
11920: END IF;
11921: -- do nothing, skip this demand line
11920: END IF;
11921: -- do nothing, skip this demand line
11922: GOTO next_repl_demand;
11923:
11924: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
11925: IF (l_debug = 1) THEN
11926: mydebug('Unexpected errror from Split Delivery_Detail_Action API..skip this demand');
11927: END IF;
11928: -- do nothing, skip this demand line
11941: , p_repl_status => 'C' -- for completed status
11942: , x_return_status => l_return_status
11943: );
11944:
11945: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11946: IF (l_debug = 1) THEN
11947: mydebug('Errror from Delivery_Detail_Action api to mark RC...skip this demand');
11948: END IF;
11949: -- do nothing, skip this demand line
12052: IF (l_debug = 1) THEN
12053: mydebug('Status after calling init_rules'||l_return_status);
12054: END IF;
12055:
12056: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
12057: IF (l_debug = 1) THEN
12058: mydebug('init_rules returned Success, Processing untracked demand lines');
12059: END IF;
12060:
12082: , p_repl_status => 'C' -- for completed status
12083: , x_return_status => l_return_status
12084: );
12085:
12086: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12087: IF (l_debug = 1) THEN
12088: mydebug('Errror from Delivery_Detail_Action api to mark RC...skip this demand');
12089: END IF;
12090: -- DO NOTHING, SKIP THIS DEMAND LINE
12122: l_action_prms.split_quantity := (L_DEMAND_PRI_QTY - L_REMAINING_MMTT_QTY) ;
12123:
12124: WSH_INTERFACE_GRP.Delivery_Detail_Action
12125: (p_api_version_number => 1.0,
12126: p_init_msg_list => fnd_api.g_false,
12127: p_commit => fnd_api.g_false,
12128: x_return_status => l_return_status,
12129: x_msg_count => x_msg_count,
12130: x_msg_data => x_msg_data,
12123:
12124: WSH_INTERFACE_GRP.Delivery_Detail_Action
12125: (p_api_version_number => 1.0,
12126: p_init_msg_list => fnd_api.g_false,
12127: p_commit => fnd_api.g_false,
12128: x_return_status => l_return_status,
12129: x_msg_count => x_msg_count,
12130: x_msg_data => x_msg_data,
12131: p_detail_id_tab => l_detail_id_tab,
12132: p_action_prms => l_action_prms,
12133: x_action_out_rec => l_action_out_rec
12134: );
12135:
12136: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
12137: IF (l_debug = 1) THEN
12138: mydebug('Error returned from Split Delivery_Detail_Action API..skip this demand Line');
12139: END IF;
12140: -- DO NOTHING, SKIP THIS DEMAND LINE
12138: mydebug('Error returned from Split Delivery_Detail_Action API..skip this demand Line');
12139: END IF;
12140: -- DO NOTHING, SKIP THIS DEMAND LINE
12141: GOTO next_untrkd_dmd;
12142: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
12143: IF (l_debug = 1) THEN
12144: mydebug('Unexpected errror from Split Delivery_Detail_Action API..skip this demand Line');
12145: END IF;
12146: -- DO NOTHING, SKIP THIS DEMAND LINE
12159: , p_repl_status => 'C' -- for completed status
12160: , x_return_status => l_return_status
12161: );
12162:
12163: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12164: -- DO NOTHING, SKIP THIS DEMAND LINE
12165: GOTO next_untrkd_dmd;
12166: END IF;
12167:
12244: , p_lpn_id => l_xfrlpnid
12245: , p_lpn_context => l_lpn_context
12246: );
12247:
12248: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12249: IF (l_debug = 1) THEN
12250: mydebug('pick_drop: modify_lpn_wrapper Unexpected error');
12251: END IF;
12252:
12250: mydebug('pick_drop: modify_lpn_wrapper Unexpected error');
12251: END IF;
12252:
12253: fnd_msg_pub.ADD;
12254: RAISE fnd_api.g_exc_unexpected_error;
12255: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
12256: IF (l_debug = 1) THEN
12257: mydebug('pick_drop: modify_lpn_wrapper error');
12258: END IF;
12251: END IF;
12252:
12253: fnd_msg_pub.ADD;
12254: RAISE fnd_api.g_exc_unexpected_error;
12255: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
12256: IF (l_debug = 1) THEN
12257: mydebug('pick_drop: modify_lpn_wrapper error');
12258: END IF;
12259:
12257: mydebug('pick_drop: modify_lpn_wrapper error');
12258: END IF;
12259:
12260: fnd_msg_pub.ADD;
12261: RAISE fnd_api.g_exc_error;
12262: END IF;
12263:
12264: -- Bug 4238917 no longer update lpn_context to 11 outside of TM
12265: /*
12345: l_action_prms.action_code := 'PICK-RELEASE';
12346:
12347: WSH_INTERFACE_GRP.Delivery_Detail_Action
12348: (p_api_version_number => 1.0,
12349: p_init_msg_list => fnd_api.g_false,
12350: p_commit => fnd_api.g_false,
12351: x_return_status => l_return_status,
12352: x_msg_count => x_msg_count,
12353: x_msg_data => x_msg_data,
12346:
12347: WSH_INTERFACE_GRP.Delivery_Detail_Action
12348: (p_api_version_number => 1.0,
12349: p_init_msg_list => fnd_api.g_false,
12350: p_commit => fnd_api.g_false,
12351: x_return_status => l_return_status,
12352: x_msg_count => x_msg_count,
12353: x_msg_data => x_msg_data,
12354: p_detail_id_tab => l_detail_id_tab,
12355: p_action_prms => l_action_prms,
12356: x_action_out_rec => l_action_out_rec
12357: );
12358:
12359: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
12360: IF (l_debug = 1) THEN
12361: mydebug('Error from Split Delivery_Detail_Action API..nothing TO be done');
12362: END IF;
12363: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
12359: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
12360: IF (l_debug = 1) THEN
12361: mydebug('Error from Split Delivery_Detail_Action API..nothing TO be done');
12362: END IF;
12363: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
12364: IF (l_debug = 1) THEN
12365: mydebug('Unexpected error Split Delivery_Detail_Action API....nothing TO be done');
12366: END IF;
12367: END IF;
12386: -- R12.1 replenishment Project 6681109 ENDS -----
12387: --===================================================
12388:
12389:
12390: x_return_status := fnd_api.g_ret_sts_success;
12391:
12392: IF (l_debug = 1) THEN
12393: mydebug('pick_drop: done WITH Pick Drop API');
12394: END IF;
12392: IF (l_debug = 1) THEN
12393: mydebug('pick_drop: done WITH Pick Drop API');
12394: END IF;
12395: EXCEPTION
12396: WHEN fnd_api.g_exc_error THEN
12397: x_return_status := fnd_api.g_ret_sts_error;
12398:
12399: IF (l_debug = 1) THEN
12400: mydebug('pick_drop: Error in pick_drop API: ' || SQLERRM);
12393: mydebug('pick_drop: done WITH Pick Drop API');
12394: END IF;
12395: EXCEPTION
12396: WHEN fnd_api.g_exc_error THEN
12397: x_return_status := fnd_api.g_ret_sts_error;
12398:
12399: IF (l_debug = 1) THEN
12400: mydebug('pick_drop: Error in pick_drop API: ' || SQLERRM);
12401: END IF;
12403: fnd_message.set_name('WMS', 'WMS_TD_PICK_DROP_FAIL');
12404: fnd_msg_pub.ADD;
12405: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12406: WHEN OTHERS THEN
12407: x_return_status := fnd_api.g_ret_sts_error;
12408:
12409: IF (l_debug = 1) THEN
12410: mydebug('pick_drop: Unexpected Error in pick_drop API: ' || SQLERRM);
12411: END IF;
12460: IF (l_debug = 1) THEN
12461: mydebug('pick_by_label: In Pick By Label API');
12462: END IF;
12463:
12464: l_return_status := fnd_api.g_ret_sts_success;
12465: l_user_id := p_sign_on_emp_id;
12466: l_org_id := p_sign_on_org_id;
12467: l_zone := p_sign_on_zone;
12468: l_eqp_id := p_sign_on_equipment_id;
12541: IF (l_debug = 1) THEN
12542: mydebug('pick_by_label: Before Calling TD Engine');
12543: END IF;
12544:
12545: IF l_lpn_id = fnd_api.g_miss_num THEN
12546: l_lpn_id := NULL;
12547: END IF;
12548:
12549: --TEST have TO change eqpid to not null later
12568: IF (l_debug = 1) THEN
12569: mydebug('pick_by_label: Ret Stst11' || l_return_status);
12570: END IF;
12571:
12572: IF l_return_status = fnd_api.g_ret_sts_success THEN
12573: LOOP
12574: FETCH l_task_cur INTO task_rec;
12575: EXIT WHEN l_task_cur%NOTFOUND;
12576: l_c_rows := l_c_rows + 1;
12700: user continuously
12701: -- If LPN has been provided, exit, since we only want the first
12702: --task
12703: IF l_lpn_id IS NULL
12704: OR l_lpn_id = fnd_api.g_miss_num THEN
12705: IF (l_debug = 1) THEN
12706: mydebug('pick_by_label: LPN was not provided');
12707: END IF;
12708: ELSE
12722: mydebug('pick_by_label: before commiting');
12723: END IF;
12724:
12725: COMMIT;
12726: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12727: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
12728: fnd_msg_pub.ADD;
12729: RAISE fnd_api.g_exc_unexpected_error;
12730: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
12725: COMMIT;
12726: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12727: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
12728: fnd_msg_pub.ADD;
12729: RAISE fnd_api.g_exc_unexpected_error;
12730: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
12731: IF (l_debug = 1) THEN
12732: mydebug('pick_by_label: Setting status to S');
12733: END IF;
12726: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12727: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
12728: fnd_msg_pub.ADD;
12729: RAISE fnd_api.g_exc_unexpected_error;
12730: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
12731: IF (l_debug = 1) THEN
12732: mydebug('pick_by_label: Setting status to S');
12733: END IF;
12734:
12731: IF (l_debug = 1) THEN
12732: mydebug('pick_by_label: Setting status to S');
12733: END IF;
12734:
12735: l_return_status := fnd_api.g_ret_sts_success;
12736:
12737: -- TD Engine brought back 0 tasks.
12738: -- Since there are undispatched tasks for this LPN,
12739: -- it means that this user is not eligible for this task
12754:
12755: x_nbr_tasks := -1;
12756: END IF;
12757:
12758: x_return_status := fnd_api.g_ret_sts_success;
12759: EXCEPTION
12760: WHEN fnd_api.g_exc_error THEN
12761: x_return_status := fnd_api.g_ret_sts_error;
12762: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12756: END IF;
12757:
12758: x_return_status := fnd_api.g_ret_sts_success;
12759: EXCEPTION
12760: WHEN fnd_api.g_exc_error THEN
12761: x_return_status := fnd_api.g_ret_sts_error;
12762: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12763: WHEN OTHERS THEN
12764: x_return_status := fnd_api.g_ret_sts_unexp_error;
12757:
12758: x_return_status := fnd_api.g_ret_sts_success;
12759: EXCEPTION
12760: WHEN fnd_api.g_exc_error THEN
12761: x_return_status := fnd_api.g_ret_sts_error;
12762: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12763: WHEN OTHERS THEN
12764: x_return_status := fnd_api.g_ret_sts_unexp_error;
12765: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12760: WHEN fnd_api.g_exc_error THEN
12761: x_return_status := fnd_api.g_ret_sts_error;
12762: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12763: WHEN OTHERS THEN
12764: x_return_status := fnd_api.g_ret_sts_unexp_error;
12765: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12766: END pick_by_label;
12767:
12768: PROCEDURE manual_pick(
12834: IF (l_debug = 1) THEN
12835: mydebug('manual_pick: In Manual Pick API');
12836: END IF;
12837:
12838: l_return_status := fnd_api.g_ret_sts_success;
12839: l_user_id := p_sign_on_emp_id;
12840: l_org_id := p_sign_on_org_id;
12841: l_zone := p_sign_on_zone;
12842: l_eqp_id := p_sign_on_equipment_id;
12890:
12891: l_mmtt_rowcnt := 0;
12892: fnd_message.set_name('WMS', 'WMS_INVALID_PICKID');
12893: fnd_msg_pub.ADD;
12894: RAISE fnd_api.g_exc_error;
12895: END;
12896:
12897: IF (l_debug = 1) THEN
12898: mydebug('manual_pick: MMTT rows' || l_mmtt_rowcnt);
12920: END IF;
12921:
12922: fnd_message.set_name('WMS', 'WMS_TASK_UNAVAIL');
12923: fnd_msg_pub.ADD;
12924: RAISE fnd_api.g_exc_error;
12925: ELSE
12926: IF (l_debug = 1) THEN
12927: mydebug('manual_pick: getting Resource ID....');
12928: END IF;
12956: IF (l_debug = 1) THEN
12957: mydebug('manual_pick: No Person Resource ID found');
12958: END IF;
12959:
12960: RAISE fnd_api.g_exc_error;
12961: END;
12962:
12963: IF l_eqp_id IS NOT NULL THEN
12964: BEGIN
12986: IF (l_debug = 1) THEN
12987: mydebug('manual_pick: No Machine Resource ID found');
12988: END IF;
12989:
12990: RAISE fnd_api.g_exc_error;
12991: END;
12992: END IF;
12993:
12994: -- Insert into WMS_DISPATCHED_TASKS for this user
13075: WHEN OTHERS THEN
13076: IF (l_debug = 1) THEN
13077: mydebug('manual_pick:EXCEPTION!!! while updating MSNT');
13078: END IF;
13079: raise fnd_api.g_exc_error;
13080: END ;
13081: END IF;
13082: --Bug6009436.End
13083:
13133: END IF;
13134: END IF; --mmtt rowcount if
13135:
13136: COMMIT;
13137: x_return_status := fnd_api.g_ret_sts_success;
13138: EXCEPTION
13139: WHEN fnd_api.g_exc_error THEN
13140: x_return_status := fnd_api.g_ret_sts_error;
13141: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13135:
13136: COMMIT;
13137: x_return_status := fnd_api.g_ret_sts_success;
13138: EXCEPTION
13139: WHEN fnd_api.g_exc_error THEN
13140: x_return_status := fnd_api.g_ret_sts_error;
13141: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13142: WHEN OTHERS THEN
13143: x_return_status := fnd_api.g_ret_sts_unexp_error;
13136: COMMIT;
13137: x_return_status := fnd_api.g_ret_sts_success;
13138: EXCEPTION
13139: WHEN fnd_api.g_exc_error THEN
13140: x_return_status := fnd_api.g_ret_sts_error;
13141: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13142: WHEN OTHERS THEN
13143: x_return_status := fnd_api.g_ret_sts_unexp_error;
13144: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13139: WHEN fnd_api.g_exc_error THEN
13140: x_return_status := fnd_api.g_ret_sts_error;
13141: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13142: WHEN OTHERS THEN
13143: x_return_status := fnd_api.g_ret_sts_unexp_error;
13144: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13145: END manual_pick;
13146:
13147: PROCEDURE check_carton(
13167: IF (l_debug = 1) THEN
13168: mydebug('check_carton: In check carton API');
13169: END IF;
13170:
13171: l_return_status := fnd_api.g_ret_sts_success;
13172: l_org_id := p_org_id;
13173: l_c_rows := 0;
13174: l_lpn_id := p_carton_id;
13175: l_mmtt_rowcnt := 0;
13217:
13218: x_nbr_tasks := -1;
13219: END IF;
13220:
13221: x_return_status := fnd_api.g_ret_sts_success;
13222: EXCEPTION
13223: WHEN fnd_api.g_exc_error THEN
13224: x_return_status := fnd_api.g_ret_sts_error;
13225: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13219: END IF;
13220:
13221: x_return_status := fnd_api.g_ret_sts_success;
13222: EXCEPTION
13223: WHEN fnd_api.g_exc_error THEN
13224: x_return_status := fnd_api.g_ret_sts_error;
13225: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13226: WHEN OTHERS THEN
13227: x_return_status := fnd_api.g_ret_sts_unexp_error;
13220:
13221: x_return_status := fnd_api.g_ret_sts_success;
13222: EXCEPTION
13223: WHEN fnd_api.g_exc_error THEN
13224: x_return_status := fnd_api.g_ret_sts_error;
13225: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13226: WHEN OTHERS THEN
13227: x_return_status := fnd_api.g_ret_sts_unexp_error;
13228: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13223: WHEN fnd_api.g_exc_error THEN
13224: x_return_status := fnd_api.g_ret_sts_error;
13225: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13226: WHEN OTHERS THEN
13227: x_return_status := fnd_api.g_ret_sts_unexp_error;
13228: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13229: END check_carton;
13230:
13231:
13250: IF (l_debug = 1) THEN
13251: mydebug('check_pack_lpn: check_pack_lpn begins');
13252: END IF;
13253:
13254: l_return_status := fnd_api.g_ret_sts_success;
13255:
13256: IF ((p_lpn IS NULL)
13257: OR(p_lpn = '')) THEN
13258: x_return_status := fnd_api.g_ret_sts_success;
13254: l_return_status := fnd_api.g_ret_sts_success;
13255:
13256: IF ((p_lpn IS NULL)
13257: OR(p_lpn = '')) THEN
13258: x_return_status := fnd_api.g_ret_sts_success;
13259: RETURN;
13260: END IF;
13261:
13262: BEGIN
13293: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_CNTXT_ORG');
13294: fnd_msg_pub.ADD;
13295: END IF;
13296:
13297: x_return_status := fnd_api.g_ret_sts_error;
13298: RETURN;
13299: END IF;
13300:
13301: IF create_lpn = 'Y' THEN
13336: END IF;
13337: END LOOP;
13338: END IF;
13339:
13340: IF l_return_status = fnd_api.g_ret_sts_unexp_error
13341: OR l_return_status = fnd_api.g_ret_sts_error THEN
13342: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
13343: fnd_msg_pub.ADD;
13344: RAISE fnd_api.g_exc_unexpected_error;
13337: END LOOP;
13338: END IF;
13339:
13340: IF l_return_status = fnd_api.g_ret_sts_unexp_error
13341: OR l_return_status = fnd_api.g_ret_sts_error THEN
13342: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
13343: fnd_msg_pub.ADD;
13344: RAISE fnd_api.g_exc_unexpected_error;
13345: END IF;
13340: IF l_return_status = fnd_api.g_ret_sts_unexp_error
13341: OR l_return_status = fnd_api.g_ret_sts_error THEN
13342: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
13343: fnd_msg_pub.ADD;
13344: RAISE fnd_api.g_exc_unexpected_error;
13345: END IF;
13346:
13347: END IF;
13348:
13345: END IF;
13346:
13347: END IF;
13348:
13349: x_return_status := fnd_api.g_ret_sts_success;
13350:
13351: IF (l_debug = 1) THEN
13352: mydebug('check_pack_lpn: check_pack_lpn ends');
13353: END IF;
13351: IF (l_debug = 1) THEN
13352: mydebug('check_pack_lpn: check_pack_lpn ends');
13353: END IF;
13354: EXCEPTION
13355: WHEN fnd_api.g_exc_error THEN
13356: x_return_status := fnd_api.g_ret_sts_error;
13357: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13358: WHEN OTHERS THEN
13359: x_return_status := fnd_api.g_ret_sts_unexp_error;
13352: mydebug('check_pack_lpn: check_pack_lpn ends');
13353: END IF;
13354: EXCEPTION
13355: WHEN fnd_api.g_exc_error THEN
13356: x_return_status := fnd_api.g_ret_sts_error;
13357: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13358: WHEN OTHERS THEN
13359: x_return_status := fnd_api.g_ret_sts_unexp_error;
13360: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13355: WHEN fnd_api.g_exc_error THEN
13356: x_return_status := fnd_api.g_ret_sts_error;
13357: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13358: WHEN OTHERS THEN
13359: x_return_status := fnd_api.g_ret_sts_unexp_error;
13360: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13361: END check_pack_lpn;
13362:
13363: PROCEDURE mydebug(msg IN VARCHAR2) IS
13385: , p_organization_id IN VARCHAR2
13386: , p_subinventory_code IN VARCHAR2
13387: , x_is_reservable_sub OUT NOCOPY BOOLEAN
13388: ) IS
13389: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
13390: l_reservable_type NUMBER;
13391: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13392: BEGIN
13393: SELECT reservable_type
13404:
13405: x_return_status := l_return_status;
13406: EXCEPTION
13407: WHEN OTHERS THEN
13408: x_return_status := fnd_api.g_ret_sts_unexp_error;
13409:
13410: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
13411: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Check_Is_Reservable_SUB');
13412: END IF;
13585: IF (l_debug = 1) THEN
13586: mydebug('CLEANUP_TASK: Cleaning up the Task with Temp ID = ' || p_temp_id);
13587: END IF;
13588:
13589: x_return_status := fnd_api.g_ret_sts_success;
13590:
13591: OPEN c_mmtt_info;
13592: LOOP
13593: FETCH c_mmtt_info INTO l_txn_hdr_id
13609: END IF;
13610:
13611: wms_txnrsn_actions_pub.log_exception(
13612: p_api_version_number => 1.0
13613: , p_init_msg_lst => fnd_api.g_false
13614: , p_commit => fnd_api.g_false
13615: , x_return_status => x_return_status
13616: , x_msg_count => x_msg_count
13617: , x_msg_data => x_msg_data
13610:
13611: wms_txnrsn_actions_pub.log_exception(
13612: p_api_version_number => 1.0
13613: , p_init_msg_lst => fnd_api.g_false
13614: , p_commit => fnd_api.g_false
13615: , x_return_status => x_return_status
13616: , x_msg_count => x_msg_count
13617: , x_msg_data => x_msg_data
13618: , p_organization_id => l_org_id
13627: , p_discrepancy_type => 1
13628: , p_user_id => p_user_id
13629: );
13630:
13631: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13632: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13633: fnd_msg_pub.ADD;
13634: RAISE fnd_api.g_exc_unexpected_error;
13635: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13630:
13631: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13632: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13633: fnd_msg_pub.ADD;
13634: RAISE fnd_api.g_exc_unexpected_error;
13635: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13636: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13637: fnd_msg_pub.ADD;
13638: RAISE fnd_api.g_exc_error;
13631: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13632: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13633: fnd_msg_pub.ADD;
13634: RAISE fnd_api.g_exc_unexpected_error;
13635: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13636: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13637: fnd_msg_pub.ADD;
13638: RAISE fnd_api.g_exc_error;
13639: END IF;
13634: RAISE fnd_api.g_exc_unexpected_error;
13635: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13636: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13637: fnd_msg_pub.ADD;
13638: RAISE fnd_api.g_exc_error;
13639: END IF;
13640:
13641: mydebug('CLEANUP_TASK : Calling WorkFlow with Calling Program as **cleanup_task: Pick zero**');
13642: BEGIN
13653: , x_msg_data => x_msg_data
13654: , x_wf => l_wf
13655: );
13656:
13657: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13658: mydebug('CLEANUP_TASK : Workflow Call is not successful');
13659: RAISE fnd_api.g_exc_unexpected_error;
13660: END IF;
13661: EXCEPTION
13655: );
13656:
13657: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13658: mydebug('CLEANUP_TASK : Workflow Call is not successful');
13659: RAISE fnd_api.g_exc_unexpected_error;
13660: END IF;
13661: EXCEPTION
13662: WHEN OTHERS THEN
13663: mydebug('CLEANUP_TASK : Call to WorkFlow ended up in Exceptions');
13706: , p_transaction_temp_id => l_txn_temp_id
13707: , p_update_parent => FALSE --Added bug 3765153
13708: );
13709:
13710: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13711: IF l_debug = 1 THEN
13712: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
13713: END IF;
13714: RAISE fnd_api.g_exc_error;
13710: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13711: IF l_debug = 1 THEN
13712: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
13713: END IF;
13714: RAISE fnd_api.g_exc_error;
13715: END IF;
13716: -- Bug 2924823 H to I
13717: if (l_wf <= 0) or (p_qty_rsn_id <= 0) then
13718: UPDATE mtl_txn_request_lines
13743: , x_msg_count => x_msg_count
13744: , x_msg_data => x_msg_data
13745: );
13746:
13747: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13748: IF (l_debug = 1) THEN
13749: mydebug('CLEANUP_TASK: Unexpected error occurrend while calling BackOrder API');
13750: END IF;
13751: RAISE fnd_api.g_exc_unexpected_error;
13747: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13748: IF (l_debug = 1) THEN
13749: mydebug('CLEANUP_TASK: Unexpected error occurrend while calling BackOrder API');
13750: END IF;
13751: RAISE fnd_api.g_exc_unexpected_error;
13752: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13753: IF (l_debug = 1) THEN
13754: mydebug('CLEANUP_TASK: Expected error occurrend while calling BackOrder API');
13755: END IF;
13748: IF (l_debug = 1) THEN
13749: mydebug('CLEANUP_TASK: Unexpected error occurrend while calling BackOrder API');
13750: END IF;
13751: RAISE fnd_api.g_exc_unexpected_error;
13752: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13753: IF (l_debug = 1) THEN
13754: mydebug('CLEANUP_TASK: Expected error occurrend while calling BackOrder API');
13755: END IF;
13756: RAISE fnd_api.g_exc_error;
13752: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13753: IF (l_debug = 1) THEN
13754: mydebug('CLEANUP_TASK: Expected error occurrend while calling BackOrder API');
13755: END IF;
13756: RAISE fnd_api.g_exc_error;
13757: END IF;
13758:
13759: IF (l_debug = 1) THEN
13760: mydebug('CLEANUP_TASK: Calling API to clean up reservations');
13766: , x_msg_count => x_msg_count
13767: , x_msg_data => x_msg_data
13768: );
13769:
13770: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13771: IF (l_debug = 1) THEN
13772: mydebug('CLEANUP_TASK: Unexpected error occurred while Cleaning up Reservations');
13773: END IF;
13774: RAISE fnd_api.g_exc_unexpected_error;
13770: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13771: IF (l_debug = 1) THEN
13772: mydebug('CLEANUP_TASK: Unexpected error occurred while Cleaning up Reservations');
13773: END IF;
13774: RAISE fnd_api.g_exc_unexpected_error;
13775: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13776: IF (l_debug = 1) THEN
13777: mydebug('CLEANUP_TASK: Expected error occurred while Cleaning up Reservations');
13778: END IF;
13771: IF (l_debug = 1) THEN
13772: mydebug('CLEANUP_TASK: Unexpected error occurred while Cleaning up Reservations');
13773: END IF;
13774: RAISE fnd_api.g_exc_unexpected_error;
13775: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13776: IF (l_debug = 1) THEN
13777: mydebug('CLEANUP_TASK: Expected error occurred while Cleaning up Reservations');
13778: END IF;
13779: RAISE fnd_api.g_exc_error;
13775: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13776: IF (l_debug = 1) THEN
13777: mydebug('CLEANUP_TASK: Expected error occurred while Cleaning up Reservations');
13778: END IF;
13779: RAISE fnd_api.g_exc_error;
13780: END IF;
13781:
13782: ELSE -- if mol.status = 5 --bug3139307
13783: /*Need to delete the MMTT as the suggest_alternate-location
13793: , p_transaction_temp_id => l_txn_temp_id
13794: , p_update_parent => FALSE --Added bug 3765153
13795: );
13796:
13797: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13798: IF l_debug = 1 THEN
13799: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
13800: END IF;
13801: RAISE fnd_api.g_exc_error;
13797: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13798: IF l_debug = 1 THEN
13799: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
13800: END IF;
13801: RAISE fnd_api.g_exc_error;
13802: END IF;
13803: END IF; --bug3139307 bug 2924823 H to I
13804: /* IF l_mo_type = INV_GLOBALS.G_MOVE_ORDER_MFG_PICK THEN */
13805: ELSIF l_mo_type IN (5,7)THEN -- wip picking bug 2924823 H to I
13817: , x_return_status => x_return_status
13818: , x_msg_data => x_msg_data
13819: );
13820:
13821: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13822: IF (l_debug = 1) THEN
13823: mydebug('CLEANUP_TASK: Unexpected error occurred while Unallocating WIP Material');
13824: END IF;
13825: RAISE fnd_api.g_exc_unexpected_error;
13821: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13822: IF (l_debug = 1) THEN
13823: mydebug('CLEANUP_TASK: Unexpected error occurred while Unallocating WIP Material');
13824: END IF;
13825: RAISE fnd_api.g_exc_unexpected_error;
13826: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13827: IF (l_debug = 1) THEN
13828: mydebug('CLEANUP_TASK: Expected error occurred while Unallocating WIP Material');
13829: END IF;
13822: IF (l_debug = 1) THEN
13823: mydebug('CLEANUP_TASK: Unexpected error occurred while Unallocating WIP Material');
13824: END IF;
13825: RAISE fnd_api.g_exc_unexpected_error;
13826: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13827: IF (l_debug = 1) THEN
13828: mydebug('CLEANUP_TASK: Expected error occurred while Unallocating WIP Material');
13829: END IF;
13830: RAISE fnd_api.g_exc_error;
13826: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13827: IF (l_debug = 1) THEN
13828: mydebug('CLEANUP_TASK: Expected error occurred while Unallocating WIP Material');
13829: END IF;
13830: RAISE fnd_api.g_exc_error;
13831: END IF;
13832:
13833: inv_trx_util_pub.delete_transaction(
13834: x_return_status => x_return_status
13837: , p_transaction_temp_id => l_txn_temp_id
13838: , p_update_parent => FALSE --Added bug3765153
13839: );
13840:
13841: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13842: IF l_debug = 1 THEN
13843: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
13844: END IF;
13845: RAISE fnd_api.g_exc_error;
13841: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13842: IF l_debug = 1 THEN
13843: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
13844: END IF;
13845: RAISE fnd_api.g_exc_error;
13846: END IF;
13847: -- Bug 2924823 H to I
13848: if (l_wf <= 0) or (p_qty_rsn_id <= 0) then
13849: UPDATE mtl_txn_request_lines
13862: , x_msg_count => x_msg_count
13863: , p_transaction_temp_id => l_txn_temp_id
13864: );
13865:
13866: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13867: IF l_debug = 1 THEN
13868: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
13869: END IF;
13870: RAISE fnd_api.g_exc_error;
13866: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13867: IF l_debug = 1 THEN
13868: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
13869: END IF;
13870: RAISE fnd_api.g_exc_error;
13871: END IF;
13872:
13873: /* 3926046 */
13874: IF (l_kill_mo_profile = 1) and (l_mo_type = INV_GLOBALS.G_MOVE_ORDER_REPLENISHMENT) THEN
13883: mydebug('Replenishment Move Order... Closing the Move Order');
13884: END IF;
13885: INV_MO_ADMIN_PUB.close_line(1.0,'F','F','F',l_mo_line_id,x_msg_count,x_msg_data,l_return_status);
13886:
13887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13888: RAISE FND_API.G_EXC_ERROR;
13889: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13891: END IF;
13884: END IF;
13885: INV_MO_ADMIN_PUB.close_line(1.0,'F','F','F',l_mo_line_id,x_msg_count,x_msg_data,l_return_status);
13886:
13887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13888: RAISE FND_API.G_EXC_ERROR;
13889: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13891: END IF;
13892: END IF;
13885: INV_MO_ADMIN_PUB.close_line(1.0,'F','F','F',l_mo_line_id,x_msg_count,x_msg_data,l_return_status);
13886:
13887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13888: RAISE FND_API.G_EXC_ERROR;
13889: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13891: END IF;
13892: END IF;
13893: END IF;
13886:
13887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
13888: RAISE FND_API.G_EXC_ERROR;
13889: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
13890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
13891: END IF;
13892: END IF;
13893: END IF;
13894:
13905: CLOSE c_mmtt_info;
13906: COMMIT;
13907: EXCEPTION
13908: WHEN OTHERS THEN
13909: x_return_status := fnd_api.g_ret_sts_error;
13910: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13911: IF c_mmtt_info%ISOPEN THEN
13912: CLOSE c_mmtt_info;
13913: END IF;
14086: IF (l_debug = 1) THEN
14087: mydebug('validate_sub_loc_status: validate_sub_loc_status begins');
14088: END IF;
14089:
14090: x_return_status := fnd_api.g_ret_sts_success;
14091:
14092: SELECT mmtt.transaction_type_id
14093: , mmtt.organization_id
14094: , mmtt.inventory_item_id
14142: IF (l_debug = 1) THEN
14143: mydebug('validate_sub_loc_status: End of validate_sub_loc_status');
14144: END IF;
14145: EXCEPTION
14146: WHEN fnd_api.g_exc_error THEN
14147: x_return_status := fnd_api.g_ret_sts_error;
14148:
14149: IF (l_debug = 1) THEN
14150: mydebug('validate_sub_loc_status: Error - ' || SQLERRM);
14143: mydebug('validate_sub_loc_status: End of validate_sub_loc_status');
14144: END IF;
14145: EXCEPTION
14146: WHEN fnd_api.g_exc_error THEN
14147: x_return_status := fnd_api.g_ret_sts_error;
14148:
14149: IF (l_debug = 1) THEN
14150: mydebug('validate_sub_loc_status: Error - ' || SQLERRM);
14151: END IF;
14151: END IF;
14152:
14153: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14154: WHEN OTHERS THEN
14155: x_return_status := fnd_api.g_ret_sts_unexp_error;
14156:
14157: IF (l_debug = 1) THEN
14158: mydebug('validate_sub_loc_status: Unexpected Error - ' || SQLERRM);
14159: END IF;
14181: mydebug(' p_temp_id = ' || p_temp_id);
14182: mydebug(' p_confirmed_drop_sub = ' || p_confirmed_drop_sub);
14183: END IF;
14184:
14185: x_return_status := fnd_api.g_ret_sts_success;
14186:
14187: -- bug fix 2805229
14188: SELECT wms_task_type
14189: INTO l_wms_task_type
14228: IF l_lpn_controlled_flag = wms_globals.g_lpn_controlled_sub THEN
14229: IF (l_mmtt_mo_type = 5) THEN
14230: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
14231: fnd_msg_pub.ADD;
14232: RAISE fnd_api.g_exc_error;
14233: END IF;
14234:
14235: IF (l_debug = 1) THEN
14236: mydebug('validate_pick_drop_sub: Transfer Sub is LPN Controlled');
14260: END IF;
14261:
14262: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
14263: fnd_msg_pub.ADD;
14264: RAISE fnd_api.g_exc_error;
14265: END IF;
14266: END IF;
14267:
14268: IF (l_debug = 1) THEN
14268: IF (l_debug = 1) THEN
14269: mydebug('validate_pick_drop_sub: End of validate_pick_drop_sub');
14270: END IF;
14271: EXCEPTION
14272: WHEN fnd_api.g_exc_error THEN
14273: x_return_status := fnd_api.g_ret_sts_error;
14274:
14275: IF (l_debug = 1) THEN
14276: mydebug('validate_pick_drop_sub: Error - ' || SQLERRM);
14269: mydebug('validate_pick_drop_sub: End of validate_pick_drop_sub');
14270: END IF;
14271: EXCEPTION
14272: WHEN fnd_api.g_exc_error THEN
14273: x_return_status := fnd_api.g_ret_sts_error;
14274:
14275: IF (l_debug = 1) THEN
14276: mydebug('validate_pick_drop_sub: Error - ' || SQLERRM);
14277: END IF;
14277: END IF;
14278:
14279: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14280: WHEN OTHERS THEN
14281: x_return_status := fnd_api.g_ret_sts_unexp_error;
14282:
14283: IF (l_debug = 1) THEN
14284: mydebug('validate_pick_drop_sub: Unexpected Error - ' || SQLERRM);
14285: END IF;
14310: IF (l_debug = 1) THEN
14311: mydebug('creating lock mmtt.temp_id, to be used in CTRLBD is successful');
14312: END IF;
14313:
14314: x_return_status := fnd_api.g_ret_sts_success;
14315: ELSIF lock_result IN(1, 2) THEN
14316: IF (l_debug = 1) THEN
14317: mydebug('timeout for the creation of user lock or deadlock');
14318: END IF;
14318: END IF;
14319:
14320: fnd_message.set_name('WMS', 'WMS_RECORD_BEING_CHANGED');
14321: fnd_msg_pub.ADD;
14322: RAISE fnd_api.g_exc_error;
14323: END IF;
14324: EXCEPTION
14325: WHEN fnd_api.g_exc_error THEN
14326: x_return_status := fnd_api.g_ret_sts_error;
14321: fnd_msg_pub.ADD;
14322: RAISE fnd_api.g_exc_error;
14323: END IF;
14324: EXCEPTION
14325: WHEN fnd_api.g_exc_error THEN
14326: x_return_status := fnd_api.g_ret_sts_error;
14327: WHEN OTHERS THEN
14328: x_return_status := fnd_api.g_ret_sts_unexp_error;
14329:
14322: RAISE fnd_api.g_exc_error;
14323: END IF;
14324: EXCEPTION
14325: WHEN fnd_api.g_exc_error THEN
14326: x_return_status := fnd_api.g_ret_sts_error;
14327: WHEN OTHERS THEN
14328: x_return_status := fnd_api.g_ret_sts_unexp_error;
14329:
14330: IF (l_debug = 1) THEN
14324: EXCEPTION
14325: WHEN fnd_api.g_exc_error THEN
14326: x_return_status := fnd_api.g_ret_sts_error;
14327: WHEN OTHERS THEN
14328: x_return_status := fnd_api.g_ret_sts_unexp_error;
14329:
14330: IF (l_debug = 1) THEN
14331: mydebug('lock_mmtt_temp_id - ' || SQLERRM);
14332: END IF;
14397: l_transfer_lpn_id NUMBER;
14398: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14399: l_new_temp_id NUMBER; --Added bug3765153
14400: BEGIN
14401: x_return_status := fnd_api.g_ret_sts_success;
14402:
14403: IF l_debug = 1 THEN
14404: mydebug('Dispatching Bulk Pick Tasks for TxnHdrID = ' || p_txn_hdr_id || ' : TxnTempID = ' || p_temp_id);
14405: END IF;
14980: , x_msg_count => x_msg_count
14981: , x_msg_data => x_msg_data
14982: );
14983:
14984: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14985: IF l_debug = 1 THEN
14986: mydebug('BULK_PICK: Error occurred while calling cleanup tasK ');
14987: END IF;
14988: RAISE fnd_api.g_exc_error;
14984: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14985: IF l_debug = 1 THEN
14986: mydebug('BULK_PICK: Error occurred while calling cleanup tasK ');
14987: END IF;
14988: RAISE fnd_api.g_exc_error;
14989: END IF;
14990:
14991: END LOOP;
14992: END IF;
15009: where transaction_header_id = x_new_txn_hdr_id;
15010:
15011: EXCEPTION
15012: WHEN OTHERS THEN
15013: x_return_status := fnd_api.g_ret_sts_unexp_error;
15014: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
15015:
15016: IF (l_debug = 1) THEN
15017: mydebug('Unexpected Error occurred - ' || SQLERRM);
15033: ) IS
15034: l_wf NUMBER := 0;
15035: BEGIN
15036: mydebug('call_workflow :in ');
15037: x_return_status := fnd_api.g_ret_sts_success;
15038:
15039: BEGIN
15040: SELECT 1
15041: INTO l_wf
15061: IF p_rsn_id > 0 THEN
15062: mydebug('call workflow: Calling ... workflow wrapper');
15063: wms_workflow_wrappers.wf_wrapper(
15064: p_api_version => 1.0
15065: , p_init_msg_list => fnd_api.g_false
15066: , p_commit => fnd_api.g_false
15067: , x_return_status => x_return_status
15068: , x_msg_count => x_msg_count
15069: , x_msg_data => x_msg_data
15062: mydebug('call workflow: Calling ... workflow wrapper');
15063: wms_workflow_wrappers.wf_wrapper(
15064: p_api_version => 1.0
15065: , p_init_msg_list => fnd_api.g_false
15066: , p_commit => fnd_api.g_false
15067: , x_return_status => x_return_status
15068: , x_msg_count => x_msg_count
15069: , x_msg_data => x_msg_data
15070: , p_org_id => p_org_id
15077: );
15078:
15079: mydebug('call_workflow : After Calling WF Wrapper');
15080: -- Bug 2924823 H to I
15081: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15082: mydebug('call_workflow : Error callinf WF wrapper');
15083: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15084: FND_MSG_PUB.ADD;
15085: RAISE FND_API.g_exc_unexpected_error;
15081: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15082: mydebug('call_workflow : Error callinf WF wrapper');
15083: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15084: FND_MSG_PUB.ADD;
15085: RAISE FND_API.g_exc_unexpected_error;
15086:
15087: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15088: mydebug('call_workflow : Error calling WF wrapper');
15089: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15083: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15084: FND_MSG_PUB.ADD;
15085: RAISE FND_API.g_exc_unexpected_error;
15086:
15087: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15088: mydebug('call_workflow : Error calling WF wrapper');
15089: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15090: FND_MSG_PUB.ADD;
15091: RAISE FND_API.G_EXC_ERROR;
15087: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15088: mydebug('call_workflow : Error calling WF wrapper');
15089: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15090: FND_MSG_PUB.ADD;
15091: RAISE FND_API.G_EXC_ERROR;
15092: END IF;
15093: END IF;
15094: END IF;
15095: END call_workflow;
15131: mydebug('p_lot_control'||p_lot_control);
15132: mydebug('p_revision_control'||p_revision_control);
15133: END IF;
15134:
15135: x_return_status := fnd_api.g_ret_sts_success;
15136: x_commingle_exist := 'N';
15137:
15138: IF p_lot_control = 1 THEN
15139: select mmtt.subinventory_code,
15192: p_lpn_id => p_lpn_id,
15193: p_transaction_action_id => null,
15194: x_cost_group_id => l_cur_cost_group_id,
15195: x_return_status => x_return_status);
15196: IF x_return_status <> fnd_api.g_ret_sts_success THEN
15197: RAISE fnd_api.g_exc_unexpected_error;
15198: END IF;
15199:
15200: inv_cost_group_update.proc_get_costgroup(
15193: p_transaction_action_id => null,
15194: x_cost_group_id => l_cur_cost_group_id,
15195: x_return_status => x_return_status);
15196: IF x_return_status <> fnd_api.g_ret_sts_success THEN
15197: RAISE fnd_api.g_exc_unexpected_error;
15198: END IF;
15199:
15200: inv_cost_group_update.proc_get_costgroup(
15201: p_organization_id => p_organization_id,
15210: p_transaction_action_id => null,
15211: x_cost_group_id => l_exist_cost_group_id,
15212: x_return_status => x_return_status);
15213:
15214: IF x_return_status <> fnd_api.g_ret_sts_success THEN
15215: RAISE fnd_api.g_exc_unexpected_error;
15216: END IF;
15217:
15218: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
15211: x_cost_group_id => l_exist_cost_group_id,
15212: x_return_status => x_return_status);
15213:
15214: IF x_return_status <> fnd_api.g_ret_sts_success THEN
15215: RAISE fnd_api.g_exc_unexpected_error;
15216: END IF;
15217:
15218: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
15219: x_return_status := fnd_api.g_ret_sts_success;
15215: RAISE fnd_api.g_exc_unexpected_error;
15216: END IF;
15217:
15218: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
15219: x_return_status := fnd_api.g_ret_sts_success;
15220: x_commingle_exist := 'Y';
15221: END IF;
15222:
15223: EXCEPTION
15224: WHEN NO_DATA_FOUND THEN
15225: IF (l_debug = 1) THEN
15226: mydebug('First record being loaded into LPN');
15227: END IF;
15228: x_return_status := fnd_api.g_ret_sts_success;
15229: x_commingle_exist := 'N';
15230: WHEN OTHERS THEN
15231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15232: x_commingle_exist := 'Y';
15227: END IF;
15228: x_return_status := fnd_api.g_ret_sts_success;
15229: x_commingle_exist := 'N';
15230: WHEN OTHERS THEN
15231: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15232: x_commingle_exist := 'Y';
15233: END validate_loaded_lpn_cg;
15234:
15235:
15236: -- ----------------------------------------------------------------------------------
15237: -- ----------------------------------------------------------------------------------
15238: FUNCTION validate_pick_drop_lpn
15239: ( p_api_version_number IN NUMBER ,
15240: p_init_msg_lst IN VARCHAR2 := fnd_api.g_false ,
15241: p_pick_lpn_id IN NUMBER ,
15242: p_organization_id IN NUMBER ,
15243: p_drop_lpn IN VARCHAR2,
15244: p_drop_sub IN VARCHAR2,
15250: l_dummy VARCHAR2(1) := NULL;
15251:
15252: l_api_version_number CONSTANT NUMBER := 1.0;
15253: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Pick_Drop_Lpn';
15254: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
15255:
15256: l_drop_lpn_exists BOOLEAN := FALSE;
15257: l_drop_lpn_has_picked_inv BOOLEAN := FALSE;
15258: l_pick_lpn_delivery_id NUMBER := NULL;
15311:
15312: --
15313: -- Initialize API return status to success
15314: --
15315: l_return_status := FND_API.G_RET_STS_SUCCESS;
15316: l_delivery_match_flag := -1;
15317:
15318: --
15319: -- Begin validation process:
15426: mydebug('count l_grp_rows'|| l_grouping_rows.count);
15427: mydebug('l_grp_rows(1) : '||l_grouping_rows(1) ||',l_grp_rows(2) : '||l_grouping_rows(2) );
15428: END IF;
15429:
15430: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND l_grouping_rows(1) = l_grouping_rows(2) ) THEN
15431: IF (l_debug = 1) THEN
15432: mydebug('The LPN with LPN_ID ' || p_pick_lpn_id || ' can be dropped into LPN_ID '||drop_lpn_rec.lpn_id);
15433: END IF;
15434: RETURN 1; --Validated both LPNs , so return success.
15497: RETURN 1;
15498:
15499: END IF;
15500:
15501: IF l_return_status =FND_API.g_ret_sts_success THEN
15502: RETURN 1;
15503: ELSE
15504: RETURN 0;
15505: END IF;
15504: RETURN 0;
15505: END IF;
15506:
15507: EXCEPTION
15508: WHEN fnd_api.g_exc_error THEN
15509:
15510: RETURN 0;
15511:
15512: WHEN OTHERS THEN
15517:
15518:
15519: PROCEDURE default_pick_drop_lpn
15520: ( p_api_version_number IN NUMBER ,
15521: p_init_msg_lst IN VARCHAR2 := fnd_api.g_false ,
15522: p_pick_lpn_id IN NUMBER ,
15523: p_organization_id IN NUMBER ,
15524: x_lpn_number OUT nocopy VARCHAR2)
15525:
15528: l_api_version_number CONSTANT NUMBER := 1.0;
15529: l_api_name CONSTANT VARCHAR2(30) :=
15530: 'default_pick_drop_lpn';
15531: l_return_status VARCHAR2(1) :=
15532: fnd_api.g_ret_sts_success;
15533: l_delivery_id NUMBER;
15534: l_drop_sub VARCHAR2(10);
15535: l_drop_loc NUMBER;
15536: l_lpn_id NUMBER;
15571: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
15572: BEGIN
15573:
15574:
15575: IF NOT fnd_api.compatible_api_call (l_api_version_number
15576: , p_api_version_number
15577: , l_api_name
15578: , G_PKG_NAME
15579: ) THEN
15578: , G_PKG_NAME
15579: ) THEN
15580: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
15581: FND_MSG_PUB.ADD;
15582: RAISE FND_API.G_EXC_ERROR;
15583: END IF;
15584:
15585:
15586: l_return_status := FND_API.G_RET_STS_SUCCESS;
15582: RAISE FND_API.G_EXC_ERROR;
15583: END IF;
15584:
15585:
15586: l_return_status := FND_API.G_RET_STS_SUCCESS;
15587: --
15588: -- Initialize message list.
15589: --
15590:
15587: --
15588: -- Initialize message list.
15589: --
15590:
15591: IF fnd_api.to_boolean(p_init_msg_lst) THEN
15592: fnd_msg_pub.initialize;
15593: END IF;
15594:
15595: