[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
10172: /*Bug#3957819.IF the serial number is already used , throw an error*/
10173: IF l_serial_count > 1 THEN
10174: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
10175: fnd_msg_pub.ADD;
10176: RAISE fnd_api.g_exc_error;
10177: END IF;
10178: /*End of fix for Bug#3957819 */
10179:
10180: l_progress := '480';
10259: /*Bug#3957819.IF the serial number is already used , throw an error*/
10260: IF l_serial_count > 1 THEN
10261: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
10262: fnd_msg_pub.ADD;
10263: RAISE fnd_api.g_exc_error;
10264: END IF;
10265: /*End of fix for Bug#3957819 */
10266:
10267: l_progress := '530';
10366: /*Bug#3957819.IF the serial number is already used , throw an error*/
10367: IF l_serial_count > 1 THEN
10368: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
10369: fnd_msg_pub.ADD;
10370: RAISE fnd_api.g_exc_error;
10371: END IF;
10372: /*End of fix for Bug#3957819 */
10373:
10374: l_progress := '580';
10444: /*Bug#3957819.IF the serial number is already used , throw an error*/
10445: IF l_serial_count > 1 THEN
10446: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
10447: fnd_msg_pub.ADD;
10448: RAISE fnd_api.g_exc_error;
10449: END IF;
10450: /*End of fix for Bug#3957819 */
10451:
10452: l_progress := '620';
10493: END IF;
10494:
10495: l_progress := '650';
10496: x_temp_id := l_local_temp_id;
10497: x_return_status := fnd_api.g_ret_sts_success;
10498:
10499: IF (l_debug = 1) THEN
10500: mydebug('multiple_pick: End of multiple_pick');
10501: END IF;
10499: IF (l_debug = 1) THEN
10500: mydebug('multiple_pick: End of multiple_pick');
10501: END IF;
10502: EXCEPTION
10503: WHEN fnd_api.g_exc_error THEN
10504: x_return_status := fnd_api.g_ret_sts_error;
10505: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10506: ROLLBACK TO sp_multiple_pick;
10507:
10500: mydebug('multiple_pick: End of multiple_pick');
10501: END IF;
10502: EXCEPTION
10503: WHEN fnd_api.g_exc_error THEN
10504: x_return_status := fnd_api.g_ret_sts_error;
10505: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10506: ROLLBACK TO sp_multiple_pick;
10507:
10508: IF (l_debug = 1) THEN
10505: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10506: ROLLBACK TO sp_multiple_pick;
10507:
10508: IF (l_debug = 1) THEN
10509: mydebug('multiple_pick : raise FND_API.G_EXC_ERROR: ' || SQLERRM);
10510: mydebug('l_progress = ' || l_progress);
10511: END IF;
10512: WHEN OTHERS THEN
10513: x_return_status := fnd_api.g_ret_sts_unexp_error;
10509: mydebug('multiple_pick : raise FND_API.G_EXC_ERROR: ' || SQLERRM);
10510: mydebug('l_progress = ' || l_progress);
10511: END IF;
10512: WHEN OTHERS THEN
10513: x_return_status := fnd_api.g_ret_sts_unexp_error;
10514: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10515: ROLLBACK TO sp_multiple_pick;
10516:
10517: IF (l_debug = 1) THEN
10535: l_exist NUMBER;
10536: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
10537: BEGIN
10538: l_exist := 0;
10539: l_return_status := fnd_api.g_ret_sts_success;
10540:
10541: IF (l_debug = 1) THEN
10542: mydebug('In create LPN..');
10543: END IF;
10598: END IF;
10599: END LOOP;
10600: END IF;
10601:
10602: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10603: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10604: fnd_msg_pub.ADD;
10605: RAISE fnd_api.g_exc_unexpected_error;
10606: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
10601:
10602: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10603: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10604: fnd_msg_pub.ADD;
10605: RAISE fnd_api.g_exc_unexpected_error;
10606: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
10607: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10608: fnd_msg_pub.ADD;
10609: RAISE fnd_api.g_exc_error;
10602: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10603: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10604: fnd_msg_pub.ADD;
10605: RAISE fnd_api.g_exc_unexpected_error;
10606: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
10607: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10608: fnd_msg_pub.ADD;
10609: RAISE fnd_api.g_exc_error;
10610: END IF;
10605: RAISE fnd_api.g_exc_unexpected_error;
10606: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
10607: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10608: fnd_msg_pub.ADD;
10609: RAISE fnd_api.g_exc_error;
10610: END IF;
10611: ELSE -- lpn exists
10612: SELECT lpn_id
10613: INTO p_lpn_id
10614: FROM wms_license_plate_numbers
10615: WHERE license_plate_number = p_lpn;
10616: END IF;
10617:
10618: x_return_status := fnd_api.g_ret_sts_success;
10619: EXCEPTION
10620: WHEN fnd_api.g_exc_error THEN
10621: x_return_status := fnd_api.g_ret_sts_error;
10622: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10616: END IF;
10617:
10618: x_return_status := fnd_api.g_ret_sts_success;
10619: EXCEPTION
10620: WHEN fnd_api.g_exc_error THEN
10621: x_return_status := fnd_api.g_ret_sts_error;
10622: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10623: WHEN OTHERS THEN
10624: x_return_status := fnd_api.g_ret_sts_unexp_error;
10617:
10618: x_return_status := fnd_api.g_ret_sts_success;
10619: EXCEPTION
10620: WHEN fnd_api.g_exc_error THEN
10621: x_return_status := fnd_api.g_ret_sts_error;
10622: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10623: WHEN OTHERS THEN
10624: x_return_status := fnd_api.g_ret_sts_unexp_error;
10625: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10620: WHEN fnd_api.g_exc_error THEN
10621: x_return_status := fnd_api.g_ret_sts_error;
10622: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10623: WHEN OTHERS THEN
10624: x_return_status := fnd_api.g_ret_sts_unexp_error;
10625: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10626: END create_lpn;
10627:
10628: -- p sub, p_loc are user entered values
11069: END IF;
11070:
11071: l_temp_id := p_temp_id;
11072: l_org_id := p_org_id;
11073: l_return_status := fnd_api.g_ret_sts_success;
11074: l_txn_ret := 0;
11075: l_txn_header_id := p_txn_header_id;
11076: l_cnt := 0;
11077: l_isdroplpnentered := TRUE;
11143: , x_msg_count => l_msg_count
11144: , x_msg_data => l_msg_data
11145: );
11146:
11147: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11148: IF (l_debug = 1) THEN
11149: mydebug('pick_drop: Insert MMTT pack Unexpected error');
11150: END IF;
11151:
11149: mydebug('pick_drop: Insert MMTT pack Unexpected error');
11150: END IF;
11151:
11152: fnd_msg_pub.ADD;
11153: RAISE fnd_api.g_exc_unexpected_error;
11154: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11155: IF (l_debug = 1) THEN
11156: mydebug('pick_drop: Insert MMTT pack error');
11157: END IF;
11150: END IF;
11151:
11152: fnd_msg_pub.ADD;
11153: RAISE fnd_api.g_exc_unexpected_error;
11154: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11155: IF (l_debug = 1) THEN
11156: mydebug('pick_drop: Insert MMTT pack error');
11157: END IF;
11158:
11156: mydebug('pick_drop: Insert MMTT pack error');
11157: END IF;
11158:
11159: fnd_msg_pub.ADD;
11160: RAISE fnd_api.g_exc_error;
11161: END IF;
11162: END IF; -- Added for bug 12853197
11163: END IF;
11164:
11341: END IF;
11342:
11343: fnd_message.set_name('INV', 'INV_NO_OPEN_PERIOD');
11344: fnd_msg_pub.ADD;
11345: RAISE fnd_api.g_exc_unexpected_error;
11346: END IF;
11347:
11348: -- call workflow for location discrepancy
11349: IF (l_debug = 1) THEN
11367: -- right now we give the from_sub and from_loc until
11368: -- wms control board is enhanced.
11369: wms_txnrsn_actions_pub.log_exception
11370: (p_api_version_number => 1.0,
11371: p_init_msg_lst => fnd_api.g_false,
11372: p_commit => fnd_api.g_false,
11373: x_return_status => l_return_status,
11374: x_msg_count => l_msg_count,
11375: x_msg_data => l_msg_data,
11368: -- wms control board is enhanced.
11369: wms_txnrsn_actions_pub.log_exception
11370: (p_api_version_number => 1.0,
11371: p_init_msg_lst => fnd_api.g_false,
11372: p_commit => fnd_api.g_false,
11373: x_return_status => l_return_status,
11374: x_msg_count => l_msg_count,
11375: x_msg_data => l_msg_data,
11376: p_organization_id => l_org_id,
11389: IF (l_debug = 1) THEN
11390: mydebug('pick_drop: after logging exception for temp_id: ' || rec_mmtt.transaction_temp_id);
11391: END IF;
11392:
11393: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11394: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11395: fnd_msg_pub.ADD;
11396: RAISE fnd_api.g_exc_unexpected_error;
11397: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11392:
11393: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11394: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11395: fnd_msg_pub.ADD;
11396: RAISE fnd_api.g_exc_unexpected_error;
11397: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11398: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11399: fnd_msg_pub.ADD;
11400: RAISE fnd_api.g_exc_error;
11393: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11394: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11395: fnd_msg_pub.ADD;
11396: RAISE fnd_api.g_exc_unexpected_error;
11397: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11398: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11399: fnd_msg_pub.ADD;
11400: RAISE fnd_api.g_exc_error;
11401: END IF;
11396: RAISE fnd_api.g_exc_unexpected_error;
11397: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11398: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
11399: fnd_msg_pub.ADD;
11400: RAISE fnd_api.g_exc_error;
11401: END IF;
11402:
11403: END LOOP;
11404:
11439:
11440: -- Calling Workflow
11441: wms_workflow_wrappers.wf_wrapper(
11442: p_api_version => 1.0
11443: , p_init_msg_list => fnd_api.g_false
11444: , p_commit => fnd_api.g_false
11445: , x_return_status => l_return_status
11446: , x_msg_count => l_msg_count
11447: , x_msg_data => l_msg_data
11440: -- Calling Workflow
11441: wms_workflow_wrappers.wf_wrapper(
11442: p_api_version => 1.0
11443: , p_init_msg_list => fnd_api.g_false
11444: , p_commit => fnd_api.g_false
11445: , x_return_status => l_return_status
11446: , x_msg_count => l_msg_count
11447: , x_msg_data => l_msg_data
11448: , p_org_id => l_org_id
11457: IF (l_debug = 1) THEN
11458: mydebug('pick_drop : After Calling WF Wrapper');
11459: END IF;
11460:
11461: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11462: IF (l_debug = 1) THEN
11463: mydebug('pick_drop : Error callinf WF wrapper');
11464: END IF;
11465:
11464: END IF;
11465:
11466: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
11467: fnd_msg_pub.ADD;
11468: RAISE fnd_api.g_exc_unexpected_error;
11469: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11470: IF (l_debug = 1) THEN
11471: mydebug('pick_drop : Error calling WF wrapper');
11472: END IF;
11465:
11466: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
11467: fnd_msg_pub.ADD;
11468: RAISE fnd_api.g_exc_unexpected_error;
11469: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
11470: IF (l_debug = 1) THEN
11471: mydebug('pick_drop : Error calling WF wrapper');
11472: END IF;
11473:
11472: END IF;
11473:
11474: fnd_message.set_name('WMS', 'WMS_WORK_FLOW_FAIL');
11475: fnd_msg_pub.ADD;
11476: RAISE fnd_api.g_exc_error;
11477: END IF;
11478: END IF;
11479: END IF;
11480:
11661: IF (WMS_CONTROL.get_current_release_level >= INV_RELEASE.get_j_release_level)
11662: THEN
11663: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx
11664: ( p_trx_hdr_id => l_txn_header_id
11665: , p_commit => fnd_api.g_false
11666: , p_proc_mode => 1
11667: , x_proc_msg => l_msg_data
11668: , p_business_flow_code => l_flow
11669: );
11675:
11676: IF l_txn_ret <> 0 THEN
11677: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11678: fnd_msg_pub.ADD;
11679: RAISE fnd_api.g_exc_unexpected_error;
11680: END IF;
11681: ELSE
11682: --
11683: -- Bug 2747945 : Added business flow code to the call to the wip processor.
11695: IF (l_debug = 1) THEN
11696: mydebug('pick_drop: After Calling WIP txn proc STATUS' || l_return_status);
11697: END IF;
11698:
11699: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11700: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11701: fnd_msg_pub.ADD;
11702: RAISE fnd_api.g_exc_unexpected_error;
11703: END IF;
11698:
11699: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11700: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11701: fnd_msg_pub.ADD;
11702: RAISE fnd_api.g_exc_unexpected_error;
11703: END IF;
11704: END IF; -- end if release J
11705: ELSE
11706: --
11744: END IF;
11745:
11746: fnd_message.set_name('WMS', 'WMS_STG_MV_LPN_SHIPPED');
11747: fnd_msg_pub.ADD;
11748: RAISE fnd_api.g_exc_unexpected_error;
11749: END IF;
11750: END IF;
11751:
11752: -- VARAJAGO for bug 5222498, inserting the serial_number's group_mark_id into the temp table
11816:
11817: IF l_flow = inv_label.wms_bf_pick_drop THEN
11818: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx
11819: ( p_trx_hdr_id => l_txn_header_id
11820: , p_commit => fnd_api.g_false
11821: , p_proc_mode => 1
11822: , x_proc_msg => l_msg_data
11823: , p_business_flow_code => null
11824: );
11828: mydebug('TEST: Going to call TM for Replenishment Drop................ ');
11829: END IF;
11830: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx
11831: ( p_trx_hdr_id => l_txn_header_id
11832: , p_commit => fnd_api.g_false
11833: , p_proc_mode => 1
11834: , x_proc_msg => l_msg_data
11835: , p_business_flow_code => l_flow
11836: );
11845:
11846: IF l_txn_ret <> 0 THEN
11847: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11848: fnd_msg_pub.ADD;
11849: RAISE fnd_api.g_exc_unexpected_error;
11850: END IF;
11851: END IF; -- for l_tran_type_id <> 35
11852:
11853:
11944:
11945: -- Call Allocation engine for allocate MO
11946: WMS_Engine_PVT.create_suggestions(
11947: p_api_version => 1.0,
11948: p_init_msg_list => fnd_api.g_false,
11949: p_commit => fnd_api.g_false,
11950: p_validation_level => fnd_api.g_valid_level_none,
11951: x_return_status => l_return_status,
11952: x_msg_count => l_msg_count,
11945: -- Call Allocation engine for allocate MO
11946: WMS_Engine_PVT.create_suggestions(
11947: p_api_version => 1.0,
11948: p_init_msg_list => fnd_api.g_false,
11949: p_commit => fnd_api.g_false,
11950: p_validation_level => fnd_api.g_valid_level_none,
11951: x_return_status => l_return_status,
11952: x_msg_count => l_msg_count,
11953: x_msg_data => l_msg_data,
11946: WMS_Engine_PVT.create_suggestions(
11947: p_api_version => 1.0,
11948: p_init_msg_list => fnd_api.g_false,
11949: p_commit => fnd_api.g_false,
11950: p_validation_level => fnd_api.g_valid_level_none,
11951: x_return_status => l_return_status,
11952: x_msg_count => l_msg_count,
11953: x_msg_data => l_msg_data,
11954: p_transaction_temp_id => l_demand_line_id,
11952: x_msg_count => l_msg_count,
11953: x_msg_data => l_msg_data,
11954: p_transaction_temp_id => l_demand_line_id,
11955: p_reservations => l_rsv_tbl_tmp, --No rsv FOR repl MO
11956: p_suggest_serial => fnd_api.g_false,
11957: p_plan_tasks => FALSE
11958: );
11959:
11960: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11956: p_suggest_serial => fnd_api.g_false,
11957: p_plan_tasks => FALSE
11958: );
11959:
11960: IF l_return_status <> fnd_api.g_ret_sts_success THEN
11961: IF (l_debug = 1) THEN
11962: mydebug('Move Order Allocation Failed, Move to next one');
11963: END IF;
11964: -- do nothing, skip this
12030: , p_repl_status => 'C' -- for completed status
12031: , x_return_status => l_return_status
12032: );
12033:
12034: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12035: -- do nothing, skip this
12036: GOTO next_repl_demand;
12037: END IF;
12038:
12073: l_action_prms.split_quantity := (L_DEMAND_PRI_QTY - L_REMAINING_MMTT_QTY) ;
12074:
12075: WSH_INTERFACE_GRP.Delivery_Detail_Action
12076: (p_api_version_number => 1.0,
12077: p_init_msg_list => fnd_api.g_false,
12078: p_commit => fnd_api.g_false,
12079: x_return_status => l_return_status,
12080: x_msg_count => x_msg_count,
12081: x_msg_data => x_msg_data,
12074:
12075: WSH_INTERFACE_GRP.Delivery_Detail_Action
12076: (p_api_version_number => 1.0,
12077: p_init_msg_list => fnd_api.g_false,
12078: p_commit => fnd_api.g_false,
12079: x_return_status => l_return_status,
12080: x_msg_count => x_msg_count,
12081: x_msg_data => x_msg_data,
12082: p_detail_id_tab => l_detail_id_tab,
12083: p_action_prms => l_action_prms,
12084: x_action_out_rec => l_action_out_rec
12085: );
12086:
12087: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
12088: IF (l_debug = 1) THEN
12089: mydebug('Error returned from Split Delivery_Detail_Action API..skip this demand');
12090: END IF;
12091: -- do nothing, skip this demand line
12090: END IF;
12091: -- do nothing, skip this demand line
12092: GOTO next_repl_demand;
12093:
12094: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
12095: IF (l_debug = 1) THEN
12096: mydebug('Unexpected errror from Split Delivery_Detail_Action API..skip this demand');
12097: END IF;
12098: -- do nothing, skip this demand line
12111: , p_repl_status => 'C' -- for completed status
12112: , x_return_status => l_return_status
12113: );
12114:
12115: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12116: IF (l_debug = 1) THEN
12117: mydebug('Errror from Delivery_Detail_Action api to mark RC...skip this demand');
12118: END IF;
12119: -- do nothing, skip this demand line
12222: IF (l_debug = 1) THEN
12223: mydebug('Status after calling init_rules'||l_return_status);
12224: END IF;
12225:
12226: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
12227: IF (l_debug = 1) THEN
12228: mydebug('init_rules returned Success, Processing untracked demand lines');
12229: END IF;
12230:
12252: , p_repl_status => 'C' -- for completed status
12253: , x_return_status => l_return_status
12254: );
12255:
12256: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12257: IF (l_debug = 1) THEN
12258: mydebug('Errror from Delivery_Detail_Action api to mark RC...skip this demand');
12259: END IF;
12260: -- DO NOTHING, SKIP THIS DEMAND LINE
12292: l_action_prms.split_quantity := (L_DEMAND_PRI_QTY - L_REMAINING_MMTT_QTY) ;
12293:
12294: WSH_INTERFACE_GRP.Delivery_Detail_Action
12295: (p_api_version_number => 1.0,
12296: p_init_msg_list => fnd_api.g_false,
12297: p_commit => fnd_api.g_false,
12298: x_return_status => l_return_status,
12299: x_msg_count => x_msg_count,
12300: x_msg_data => x_msg_data,
12293:
12294: WSH_INTERFACE_GRP.Delivery_Detail_Action
12295: (p_api_version_number => 1.0,
12296: p_init_msg_list => fnd_api.g_false,
12297: p_commit => fnd_api.g_false,
12298: x_return_status => l_return_status,
12299: x_msg_count => x_msg_count,
12300: x_msg_data => x_msg_data,
12301: p_detail_id_tab => l_detail_id_tab,
12302: p_action_prms => l_action_prms,
12303: x_action_out_rec => l_action_out_rec
12304: );
12305:
12306: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
12307: IF (l_debug = 1) THEN
12308: mydebug('Error returned from Split Delivery_Detail_Action API..skip this demand Line');
12309: END IF;
12310: -- DO NOTHING, SKIP THIS DEMAND LINE
12308: mydebug('Error returned from Split Delivery_Detail_Action API..skip this demand Line');
12309: END IF;
12310: -- DO NOTHING, SKIP THIS DEMAND LINE
12311: GOTO next_untrkd_dmd;
12312: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
12313: IF (l_debug = 1) THEN
12314: mydebug('Unexpected errror from Split Delivery_Detail_Action API..skip this demand Line');
12315: END IF;
12316: -- DO NOTHING, SKIP THIS DEMAND LINE
12329: , p_repl_status => 'C' -- for completed status
12330: , x_return_status => l_return_status
12331: );
12332:
12333: IF l_return_status <> fnd_api.g_ret_sts_success THEN
12334: -- DO NOTHING, SKIP THIS DEMAND LINE
12335: GOTO next_untrkd_dmd;
12336: END IF;
12337:
12438: , p_lpn_id => l_xfrlpnid
12439: , p_lpn_context => l_lpn_context
12440: );
12441:
12442: IF l_return_status = fnd_api.g_ret_sts_success AND l_lpn_context = 5 THEN -- 14372784
12443: mydebug('Modified LPN Context :' || l_lpn_context);
12444: mydebug('DELETING WLC FOR LPN_ID : '||l_xfrlpnid);
12445: DELETE FROM wms_lpn_contents WHERE parent_lpn_id = l_xfrlpnid;
12446: END IF;
12458: , p_lpn_context => l_from_lpn_context
12459:
12460: );
12461:
12462: IF l_return_status = fnd_api.g_ret_sts_success AND l_from_lpn_context = 5 THEN -- 14372784
12463: mydebug('Modified From_LPN Context :' || l_from_lpn_context);
12464: mydebug('DELETING WLC FOR FROM_LPN_ID : '||l_transfer_lpn_id);
12465: DELETE FROM wms_lpn_contents WHERE parent_lpn_id = l_transfer_lpn_id;
12466: END IF;
12490: , p_lpn_id => l_xfrlpnid
12491: );
12492: END IF;
12493:
12494: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12495: IF (l_debug = 1) THEN
12496: mydebug('pick_drop: modify_lpn_wrapper Unexpected error');
12497: END IF;
12498:
12496: mydebug('pick_drop: modify_lpn_wrapper Unexpected error');
12497: END IF;
12498:
12499: fnd_msg_pub.ADD;
12500: RAISE fnd_api.g_exc_unexpected_error;
12501: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
12502: IF (l_debug = 1) THEN
12503: mydebug('pick_drop: modify_lpn_wrapper error');
12504: END IF;
12497: END IF;
12498:
12499: fnd_msg_pub.ADD;
12500: RAISE fnd_api.g_exc_unexpected_error;
12501: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
12502: IF (l_debug = 1) THEN
12503: mydebug('pick_drop: modify_lpn_wrapper error');
12504: END IF;
12505:
12503: mydebug('pick_drop: modify_lpn_wrapper error');
12504: END IF;
12505:
12506: fnd_msg_pub.ADD;
12507: RAISE fnd_api.g_exc_error;
12508: END IF;
12509:
12510: -- Bug 4238917 no longer update lpn_context to 11 outside of TM
12511: /*
12597: l_action_prms.action_code := 'PICK-RELEASE';
12598:
12599: WSH_INTERFACE_GRP.Delivery_Detail_Action
12600: (p_api_version_number => 1.0,
12601: p_init_msg_list => fnd_api.g_false,
12602: p_commit => fnd_api.g_false,
12603: x_return_status => l_return_status,
12604: x_msg_count => x_msg_count,
12605: x_msg_data => x_msg_data,
12598:
12599: WSH_INTERFACE_GRP.Delivery_Detail_Action
12600: (p_api_version_number => 1.0,
12601: p_init_msg_list => fnd_api.g_false,
12602: p_commit => fnd_api.g_false,
12603: x_return_status => l_return_status,
12604: x_msg_count => x_msg_count,
12605: x_msg_data => x_msg_data,
12606: p_detail_id_tab => l_detail_id_tab,
12607: p_action_prms => l_action_prms,
12608: x_action_out_rec => l_action_out_rec
12609: );
12610:
12611: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
12612: IF (l_debug = 1) THEN
12613: mydebug('Error from Split Delivery_Detail_Action API..nothing TO be done');
12614: END IF;
12615: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
12611: IF (l_return_status = FND_API.G_RET_STS_ERROR) THEN
12612: IF (l_debug = 1) THEN
12613: mydebug('Error from Split Delivery_Detail_Action API..nothing TO be done');
12614: END IF;
12615: ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
12616: IF (l_debug = 1) THEN
12617: mydebug('Unexpected error Split Delivery_Detail_Action API....nothing TO be done');
12618: END IF;
12619: END IF;
12638: -- R12.1 replenishment Project 6681109 ENDS -----
12639: --===================================================
12640:
12641:
12642: x_return_status := fnd_api.g_ret_sts_success;
12643:
12644: IF (l_debug = 1) THEN
12645: mydebug('pick_drop: done WITH Pick Drop API');
12646: END IF;
12644: IF (l_debug = 1) THEN
12645: mydebug('pick_drop: done WITH Pick Drop API');
12646: END IF;
12647: EXCEPTION
12648: WHEN fnd_api.g_exc_error THEN
12649: x_return_status := fnd_api.g_ret_sts_error;
12650:
12651: IF (l_debug = 1) THEN
12652: mydebug('pick_drop: Error in pick_drop API: ' || SQLERRM);
12645: mydebug('pick_drop: done WITH Pick Drop API');
12646: END IF;
12647: EXCEPTION
12648: WHEN fnd_api.g_exc_error THEN
12649: x_return_status := fnd_api.g_ret_sts_error;
12650:
12651: IF (l_debug = 1) THEN
12652: mydebug('pick_drop: Error in pick_drop API: ' || SQLERRM);
12653: END IF;
12655: fnd_message.set_name('WMS', 'WMS_TD_PICK_DROP_FAIL');
12656: fnd_msg_pub.ADD;
12657: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12658: WHEN OTHERS THEN
12659: x_return_status := fnd_api.g_ret_sts_error;
12660:
12661: IF (l_debug = 1) THEN
12662: mydebug('pick_drop: Unexpected Error in pick_drop API: ' || SQLERRM);
12663: END IF;
12712: IF (l_debug = 1) THEN
12713: mydebug('pick_by_label: In Pick By Label API');
12714: END IF;
12715:
12716: l_return_status := fnd_api.g_ret_sts_success;
12717: l_user_id := p_sign_on_emp_id;
12718: l_org_id := p_sign_on_org_id;
12719: l_zone := p_sign_on_zone;
12720: l_eqp_id := p_sign_on_equipment_id;
12793: IF (l_debug = 1) THEN
12794: mydebug('pick_by_label: Before Calling TD Engine');
12795: END IF;
12796:
12797: IF l_lpn_id = fnd_api.g_miss_num THEN
12798: l_lpn_id := NULL;
12799: END IF;
12800:
12801: --TEST have TO change eqpid to not null later
12820: IF (l_debug = 1) THEN
12821: mydebug('pick_by_label: Ret Stst11' || l_return_status);
12822: END IF;
12823:
12824: IF l_return_status = fnd_api.g_ret_sts_success THEN
12825: LOOP
12826: FETCH l_task_cur INTO task_rec;
12827: EXIT WHEN l_task_cur%NOTFOUND;
12828: l_c_rows := l_c_rows + 1;
12952: user continuously
12953: -- If LPN has been provided, exit, since we only want the first
12954: --task
12955: IF l_lpn_id IS NULL
12956: OR l_lpn_id = fnd_api.g_miss_num THEN
12957: IF (l_debug = 1) THEN
12958: mydebug('pick_by_label: LPN was not provided');
12959: END IF;
12960: ELSE
12974: mydebug('pick_by_label: before commiting');
12975: END IF;
12976:
12977: COMMIT;
12978: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12979: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
12980: fnd_msg_pub.ADD;
12981: RAISE fnd_api.g_exc_unexpected_error;
12982: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
12977: COMMIT;
12978: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12979: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
12980: fnd_msg_pub.ADD;
12981: RAISE fnd_api.g_exc_unexpected_error;
12982: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
12983: IF (l_debug = 1) THEN
12984: mydebug('pick_by_label: Setting status to S');
12985: END IF;
12978: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12979: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
12980: fnd_msg_pub.ADD;
12981: RAISE fnd_api.g_exc_unexpected_error;
12982: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
12983: IF (l_debug = 1) THEN
12984: mydebug('pick_by_label: Setting status to S');
12985: END IF;
12986:
12983: IF (l_debug = 1) THEN
12984: mydebug('pick_by_label: Setting status to S');
12985: END IF;
12986:
12987: l_return_status := fnd_api.g_ret_sts_success;
12988:
12989: -- TD Engine brought back 0 tasks.
12990: -- Since there are undispatched tasks for this LPN,
12991: -- it means that this user is not eligible for this task
13006:
13007: x_nbr_tasks := -1;
13008: END IF;
13009:
13010: x_return_status := fnd_api.g_ret_sts_success;
13011: EXCEPTION
13012: WHEN fnd_api.g_exc_error THEN
13013: x_return_status := fnd_api.g_ret_sts_error;
13014: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13008: END IF;
13009:
13010: x_return_status := fnd_api.g_ret_sts_success;
13011: EXCEPTION
13012: WHEN fnd_api.g_exc_error THEN
13013: x_return_status := fnd_api.g_ret_sts_error;
13014: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13015: WHEN OTHERS THEN
13016: x_return_status := fnd_api.g_ret_sts_unexp_error;
13009:
13010: x_return_status := fnd_api.g_ret_sts_success;
13011: EXCEPTION
13012: WHEN fnd_api.g_exc_error THEN
13013: x_return_status := fnd_api.g_ret_sts_error;
13014: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13015: WHEN OTHERS THEN
13016: x_return_status := fnd_api.g_ret_sts_unexp_error;
13017: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13012: WHEN fnd_api.g_exc_error THEN
13013: x_return_status := fnd_api.g_ret_sts_error;
13014: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13015: WHEN OTHERS THEN
13016: x_return_status := fnd_api.g_ret_sts_unexp_error;
13017: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13018: END pick_by_label;
13019:
13020: PROCEDURE manual_pick(
13086: IF (l_debug = 1) THEN
13087: mydebug('manual_pick: In Manual Pick API');
13088: END IF;
13089:
13090: l_return_status := fnd_api.g_ret_sts_success;
13091: l_user_id := p_sign_on_emp_id;
13092: l_org_id := p_sign_on_org_id;
13093: l_zone := p_sign_on_zone;
13094: l_eqp_id := p_sign_on_equipment_id;
13142:
13143: l_mmtt_rowcnt := 0;
13144: fnd_message.set_name('WMS', 'WMS_INVALID_PICKID');
13145: fnd_msg_pub.ADD;
13146: RAISE fnd_api.g_exc_error;
13147: END;
13148:
13149: IF (l_debug = 1) THEN
13150: mydebug('manual_pick: MMTT rows' || l_mmtt_rowcnt);
13172: END IF;
13173:
13174: fnd_message.set_name('WMS', 'WMS_TASK_UNAVAIL');
13175: fnd_msg_pub.ADD;
13176: RAISE fnd_api.g_exc_error;
13177: ELSE
13178: IF (l_debug = 1) THEN
13179: mydebug('manual_pick: getting Resource ID....');
13180: END IF;
13208: IF (l_debug = 1) THEN
13209: mydebug('manual_pick: No Person Resource ID found');
13210: END IF;
13211:
13212: RAISE fnd_api.g_exc_error;
13213: END;
13214:
13215: IF l_eqp_id IS NOT NULL THEN
13216: BEGIN
13238: IF (l_debug = 1) THEN
13239: mydebug('manual_pick: No Machine Resource ID found');
13240: END IF;
13241:
13242: RAISE fnd_api.g_exc_error;
13243: END;
13244: END IF;
13245:
13246: -- Insert into WMS_DISPATCHED_TASKS for this user
13327: WHEN OTHERS THEN
13328: IF (l_debug = 1) THEN
13329: mydebug('manual_pick:EXCEPTION!!! while updating MSNT');
13330: END IF;
13331: raise fnd_api.g_exc_error;
13332: END ;
13333: END IF;
13334: --Bug6009436.End
13335:
13385: END IF;
13386: END IF; --mmtt rowcount if
13387:
13388: COMMIT;
13389: x_return_status := fnd_api.g_ret_sts_success;
13390: EXCEPTION
13391: WHEN fnd_api.g_exc_error THEN
13392: x_return_status := fnd_api.g_ret_sts_error;
13393: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13387:
13388: COMMIT;
13389: x_return_status := fnd_api.g_ret_sts_success;
13390: EXCEPTION
13391: WHEN fnd_api.g_exc_error THEN
13392: x_return_status := fnd_api.g_ret_sts_error;
13393: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13394: WHEN OTHERS THEN
13395: x_return_status := fnd_api.g_ret_sts_unexp_error;
13388: COMMIT;
13389: x_return_status := fnd_api.g_ret_sts_success;
13390: EXCEPTION
13391: WHEN fnd_api.g_exc_error THEN
13392: x_return_status := fnd_api.g_ret_sts_error;
13393: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13394: WHEN OTHERS THEN
13395: x_return_status := fnd_api.g_ret_sts_unexp_error;
13396: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13391: WHEN fnd_api.g_exc_error THEN
13392: x_return_status := fnd_api.g_ret_sts_error;
13393: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13394: WHEN OTHERS THEN
13395: x_return_status := fnd_api.g_ret_sts_unexp_error;
13396: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13397: END manual_pick;
13398:
13399: PROCEDURE check_carton(
13419: IF (l_debug = 1) THEN
13420: mydebug('check_carton: In check carton API');
13421: END IF;
13422:
13423: l_return_status := fnd_api.g_ret_sts_success;
13424: l_org_id := p_org_id;
13425: l_c_rows := 0;
13426: l_lpn_id := p_carton_id;
13427: l_mmtt_rowcnt := 0;
13469:
13470: x_nbr_tasks := -1;
13471: END IF;
13472:
13473: x_return_status := fnd_api.g_ret_sts_success;
13474: EXCEPTION
13475: WHEN fnd_api.g_exc_error THEN
13476: x_return_status := fnd_api.g_ret_sts_error;
13477: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13471: END IF;
13472:
13473: x_return_status := fnd_api.g_ret_sts_success;
13474: EXCEPTION
13475: WHEN fnd_api.g_exc_error THEN
13476: x_return_status := fnd_api.g_ret_sts_error;
13477: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13478: WHEN OTHERS THEN
13479: x_return_status := fnd_api.g_ret_sts_unexp_error;
13472:
13473: x_return_status := fnd_api.g_ret_sts_success;
13474: EXCEPTION
13475: WHEN fnd_api.g_exc_error THEN
13476: x_return_status := fnd_api.g_ret_sts_error;
13477: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13478: WHEN OTHERS THEN
13479: x_return_status := fnd_api.g_ret_sts_unexp_error;
13480: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13475: WHEN fnd_api.g_exc_error THEN
13476: x_return_status := fnd_api.g_ret_sts_error;
13477: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13478: WHEN OTHERS THEN
13479: x_return_status := fnd_api.g_ret_sts_unexp_error;
13480: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13481: END check_carton;
13482:
13483:
13502: IF (l_debug = 1) THEN
13503: mydebug('check_pack_lpn: check_pack_lpn begins');
13504: END IF;
13505:
13506: l_return_status := fnd_api.g_ret_sts_success;
13507:
13508: IF ((p_lpn IS NULL)
13509: OR(p_lpn = '')) THEN
13510: x_return_status := fnd_api.g_ret_sts_success;
13506: l_return_status := fnd_api.g_ret_sts_success;
13507:
13508: IF ((p_lpn IS NULL)
13509: OR(p_lpn = '')) THEN
13510: x_return_status := fnd_api.g_ret_sts_success;
13511: RETURN;
13512: END IF;
13513:
13514: BEGIN
13546: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_CNTXT_ORG');
13547: fnd_msg_pub.ADD;
13548:
13549:
13550: x_return_status := fnd_api.g_ret_sts_error;
13551: RETURN;
13552: END IF;
13553:
13554: IF create_lpn = 'Y' THEN
13589: END IF;
13590: END LOOP;
13591: END IF;
13592:
13593: IF l_return_status = fnd_api.g_ret_sts_unexp_error
13594: OR l_return_status = fnd_api.g_ret_sts_error THEN
13595: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
13596: fnd_msg_pub.ADD;
13597: RAISE fnd_api.g_exc_unexpected_error;
13590: END LOOP;
13591: END IF;
13592:
13593: IF l_return_status = fnd_api.g_ret_sts_unexp_error
13594: OR l_return_status = fnd_api.g_ret_sts_error THEN
13595: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
13596: fnd_msg_pub.ADD;
13597: RAISE fnd_api.g_exc_unexpected_error;
13598: END IF;
13593: IF l_return_status = fnd_api.g_ret_sts_unexp_error
13594: OR l_return_status = fnd_api.g_ret_sts_error THEN
13595: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
13596: fnd_msg_pub.ADD;
13597: RAISE fnd_api.g_exc_unexpected_error;
13598: END IF;
13599:
13600: END IF;
13601:
13598: END IF;
13599:
13600: END IF;
13601:
13602: x_return_status := fnd_api.g_ret_sts_success;
13603:
13604: IF (l_debug = 1) THEN
13605: mydebug('check_pack_lpn: check_pack_lpn ends');
13606: END IF;
13604: IF (l_debug = 1) THEN
13605: mydebug('check_pack_lpn: check_pack_lpn ends');
13606: END IF;
13607: EXCEPTION
13608: WHEN fnd_api.g_exc_error THEN
13609: x_return_status := fnd_api.g_ret_sts_error;
13610: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13611: WHEN OTHERS THEN
13612: x_return_status := fnd_api.g_ret_sts_unexp_error;
13605: mydebug('check_pack_lpn: check_pack_lpn ends');
13606: END IF;
13607: EXCEPTION
13608: WHEN fnd_api.g_exc_error THEN
13609: x_return_status := fnd_api.g_ret_sts_error;
13610: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13611: WHEN OTHERS THEN
13612: x_return_status := fnd_api.g_ret_sts_unexp_error;
13613: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13608: WHEN fnd_api.g_exc_error THEN
13609: x_return_status := fnd_api.g_ret_sts_error;
13610: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13611: WHEN OTHERS THEN
13612: x_return_status := fnd_api.g_ret_sts_unexp_error;
13613: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
13614: END check_pack_lpn;
13615:
13616: PROCEDURE mydebug(msg IN VARCHAR2) IS
13638: , p_organization_id IN VARCHAR2
13639: , p_subinventory_code IN VARCHAR2
13640: , x_is_reservable_sub OUT NOCOPY BOOLEAN
13641: ) IS
13642: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
13643: l_reservable_type NUMBER;
13644: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
13645: BEGIN
13646: SELECT reservable_type
13657:
13658: x_return_status := l_return_status;
13659: EXCEPTION
13660: WHEN OTHERS THEN
13661: x_return_status := fnd_api.g_ret_sts_unexp_error;
13662:
13663: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
13664: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Check_Is_Reservable_SUB');
13665: END IF;
13838: IF (l_debug = 1) THEN
13839: mydebug('CLEANUP_TASK: Cleaning up the Task with Temp ID = ' || p_temp_id);
13840: END IF;
13841:
13842: x_return_status := fnd_api.g_ret_sts_success;
13843:
13844: OPEN c_mmtt_info;
13845: LOOP
13846: FETCH c_mmtt_info INTO l_txn_hdr_id
13862: END IF;
13863:
13864: wms_txnrsn_actions_pub.log_exception(
13865: p_api_version_number => 1.0
13866: , p_init_msg_lst => fnd_api.g_false
13867: , p_commit => fnd_api.g_false
13868: , x_return_status => x_return_status
13869: , x_msg_count => x_msg_count
13870: , x_msg_data => x_msg_data
13863:
13864: wms_txnrsn_actions_pub.log_exception(
13865: p_api_version_number => 1.0
13866: , p_init_msg_lst => fnd_api.g_false
13867: , p_commit => fnd_api.g_false
13868: , x_return_status => x_return_status
13869: , x_msg_count => x_msg_count
13870: , x_msg_data => x_msg_data
13871: , p_organization_id => l_org_id
13880: , p_discrepancy_type => 1
13881: , p_user_id => p_user_id
13882: );
13883:
13884: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13885: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13886: fnd_msg_pub.ADD;
13887: RAISE fnd_api.g_exc_unexpected_error;
13888: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13883:
13884: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13885: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13886: fnd_msg_pub.ADD;
13887: RAISE fnd_api.g_exc_unexpected_error;
13888: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13889: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13890: fnd_msg_pub.ADD;
13891: RAISE fnd_api.g_exc_error;
13884: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
13885: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13886: fnd_msg_pub.ADD;
13887: RAISE fnd_api.g_exc_unexpected_error;
13888: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13889: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13890: fnd_msg_pub.ADD;
13891: RAISE fnd_api.g_exc_error;
13892: END IF;
13887: RAISE fnd_api.g_exc_unexpected_error;
13888: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
13889: fnd_message.set_name('WMS', 'WMS_LOG_EXCEPTION_FAIL');
13890: fnd_msg_pub.ADD;
13891: RAISE fnd_api.g_exc_error;
13892: END IF;
13893:
13894: mydebug('CLEANUP_TASK : Calling WorkFlow with Calling Program as **cleanup_task: Pick zero**');
13895: BEGIN
13906: , x_msg_data => x_msg_data
13907: , x_wf => l_wf
13908: );
13909:
13910: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13911: mydebug('CLEANUP_TASK : Workflow Call is not successful');
13912: RAISE fnd_api.g_exc_unexpected_error;
13913: END IF;
13914: EXCEPTION
13908: );
13909:
13910: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13911: mydebug('CLEANUP_TASK : Workflow Call is not successful');
13912: RAISE fnd_api.g_exc_unexpected_error;
13913: END IF;
13914: EXCEPTION
13915: WHEN OTHERS THEN
13916: mydebug('CLEANUP_TASK : Call to WorkFlow ended up in Exceptions');
13959: , p_transaction_temp_id => l_txn_temp_id
13960: , p_update_parent => FALSE --Added bug 3765153
13961: );
13962:
13963: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13964: IF l_debug = 1 THEN
13965: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
13966: END IF;
13967: RAISE fnd_api.g_exc_error;
13963: IF x_return_status <> fnd_api.g_ret_sts_success THEN
13964: IF l_debug = 1 THEN
13965: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
13966: END IF;
13967: RAISE fnd_api.g_exc_error;
13968: END IF;
13969: -- Bug 2924823 H to I
13970: if (l_wf <= 0) or (p_qty_rsn_id <= 0) then
13971: UPDATE mtl_txn_request_lines
13996: , x_msg_count => x_msg_count
13997: , x_msg_data => x_msg_data
13998: );
13999:
14000: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14001: IF (l_debug = 1) THEN
14002: mydebug('CLEANUP_TASK: Unexpected error occurrend while calling BackOrder API');
14003: END IF;
14004: RAISE fnd_api.g_exc_unexpected_error;
14000: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14001: IF (l_debug = 1) THEN
14002: mydebug('CLEANUP_TASK: Unexpected error occurrend while calling BackOrder API');
14003: END IF;
14004: RAISE fnd_api.g_exc_unexpected_error;
14005: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14006: IF (l_debug = 1) THEN
14007: mydebug('CLEANUP_TASK: Expected error occurrend while calling BackOrder API');
14008: END IF;
14001: IF (l_debug = 1) THEN
14002: mydebug('CLEANUP_TASK: Unexpected error occurrend while calling BackOrder API');
14003: END IF;
14004: RAISE fnd_api.g_exc_unexpected_error;
14005: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14006: IF (l_debug = 1) THEN
14007: mydebug('CLEANUP_TASK: Expected error occurrend while calling BackOrder API');
14008: END IF;
14009: RAISE fnd_api.g_exc_error;
14005: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14006: IF (l_debug = 1) THEN
14007: mydebug('CLEANUP_TASK: Expected error occurrend while calling BackOrder API');
14008: END IF;
14009: RAISE fnd_api.g_exc_error;
14010: END IF;
14011:
14012: IF (l_debug = 1) THEN
14013: mydebug('CLEANUP_TASK: Calling API to clean up reservations');
14019: , x_msg_count => x_msg_count
14020: , x_msg_data => x_msg_data
14021: );
14022:
14023: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14024: IF (l_debug = 1) THEN
14025: mydebug('CLEANUP_TASK: Unexpected error occurred while Cleaning up Reservations');
14026: END IF;
14027: RAISE fnd_api.g_exc_unexpected_error;
14023: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14024: IF (l_debug = 1) THEN
14025: mydebug('CLEANUP_TASK: Unexpected error occurred while Cleaning up Reservations');
14026: END IF;
14027: RAISE fnd_api.g_exc_unexpected_error;
14028: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14029: IF (l_debug = 1) THEN
14030: mydebug('CLEANUP_TASK: Expected error occurred while Cleaning up Reservations');
14031: END IF;
14024: IF (l_debug = 1) THEN
14025: mydebug('CLEANUP_TASK: Unexpected error occurred while Cleaning up Reservations');
14026: END IF;
14027: RAISE fnd_api.g_exc_unexpected_error;
14028: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14029: IF (l_debug = 1) THEN
14030: mydebug('CLEANUP_TASK: Expected error occurred while Cleaning up Reservations');
14031: END IF;
14032: RAISE fnd_api.g_exc_error;
14028: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14029: IF (l_debug = 1) THEN
14030: mydebug('CLEANUP_TASK: Expected error occurred while Cleaning up Reservations');
14031: END IF;
14032: RAISE fnd_api.g_exc_error;
14033: END IF;
14034:
14035: ELSE -- if mol.status = 5 --bug3139307
14036: /*Need to delete the MMTT as the suggest_alternate-location
14046: , p_transaction_temp_id => l_txn_temp_id
14047: , p_update_parent => FALSE --Added bug 3765153
14048: );
14049:
14050: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14051: IF l_debug = 1 THEN
14052: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
14053: END IF;
14054: RAISE fnd_api.g_exc_error;
14050: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14051: IF l_debug = 1 THEN
14052: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
14053: END IF;
14054: RAISE fnd_api.g_exc_error;
14055: END IF;
14056: END IF; --bug3139307 bug 2924823 H to I
14057: /* IF l_mo_type = INV_GLOBALS.G_MOVE_ORDER_MFG_PICK THEN */
14058: ELSIF l_mo_type IN (5,7)THEN -- wip picking bug 2924823 H to I
14070: , x_return_status => x_return_status
14071: , x_msg_data => x_msg_data
14072: );
14073:
14074: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14075: IF (l_debug = 1) THEN
14076: mydebug('CLEANUP_TASK: Unexpected error occurred while Unallocating WIP Material');
14077: END IF;
14078: RAISE fnd_api.g_exc_unexpected_error;
14074: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
14075: IF (l_debug = 1) THEN
14076: mydebug('CLEANUP_TASK: Unexpected error occurred while Unallocating WIP Material');
14077: END IF;
14078: RAISE fnd_api.g_exc_unexpected_error;
14079: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14080: IF (l_debug = 1) THEN
14081: mydebug('CLEANUP_TASK: Expected error occurred while Unallocating WIP Material');
14082: END IF;
14075: IF (l_debug = 1) THEN
14076: mydebug('CLEANUP_TASK: Unexpected error occurred while Unallocating WIP Material');
14077: END IF;
14078: RAISE fnd_api.g_exc_unexpected_error;
14079: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14080: IF (l_debug = 1) THEN
14081: mydebug('CLEANUP_TASK: Expected error occurred while Unallocating WIP Material');
14082: END IF;
14083: RAISE fnd_api.g_exc_error;
14079: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
14080: IF (l_debug = 1) THEN
14081: mydebug('CLEANUP_TASK: Expected error occurred while Unallocating WIP Material');
14082: END IF;
14083: RAISE fnd_api.g_exc_error;
14084: END IF;
14085:
14086: inv_trx_util_pub.delete_transaction(
14087: x_return_status => x_return_status
14090: , p_transaction_temp_id => l_txn_temp_id
14091: , p_update_parent => FALSE --Added bug3765153
14092: );
14093:
14094: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14095: IF l_debug = 1 THEN
14096: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
14097: END IF;
14098: RAISE fnd_api.g_exc_error;
14094: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14095: IF l_debug = 1 THEN
14096: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
14097: END IF;
14098: RAISE fnd_api.g_exc_error;
14099: END IF;
14100: -- Bug 2924823 H to I
14101: if (l_wf <= 0) or (p_qty_rsn_id <= 0) then
14102: UPDATE mtl_txn_request_lines
14115: , x_msg_count => x_msg_count
14116: , p_transaction_temp_id => l_txn_temp_id
14117: );
14118:
14119: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14120: IF l_debug = 1 THEN
14121: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
14122: END IF;
14123: RAISE fnd_api.g_exc_error;
14119: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14120: IF l_debug = 1 THEN
14121: mydebug('CLEANUP_TASK: Error occurred while deleting MMTT');
14122: END IF;
14123: RAISE fnd_api.g_exc_error;
14124: END IF;
14125:
14126: /* 3926046 */
14127: IF (l_kill_mo_profile = 1) and (l_mo_type = INV_GLOBALS.G_MOVE_ORDER_REPLENISHMENT) THEN
14136: mydebug('Replenishment Move Order... Closing the Move Order');
14137: END IF;
14138: INV_MO_ADMIN_PUB.close_line(1.0,'F','F','F',l_mo_line_id,x_msg_count,x_msg_data,l_return_status);
14139:
14140: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14141: RAISE FND_API.G_EXC_ERROR;
14142: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14144: END IF;
14137: END IF;
14138: INV_MO_ADMIN_PUB.close_line(1.0,'F','F','F',l_mo_line_id,x_msg_count,x_msg_data,l_return_status);
14139:
14140: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14141: RAISE FND_API.G_EXC_ERROR;
14142: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14144: END IF;
14145: END IF;
14138: INV_MO_ADMIN_PUB.close_line(1.0,'F','F','F',l_mo_line_id,x_msg_count,x_msg_data,l_return_status);
14139:
14140: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14141: RAISE FND_API.G_EXC_ERROR;
14142: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14144: END IF;
14145: END IF;
14146: END IF;
14139:
14140: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
14141: RAISE FND_API.G_EXC_ERROR;
14142: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
14143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14144: END IF;
14145: END IF;
14146: END IF;
14147:
14158: CLOSE c_mmtt_info;
14159: COMMIT;
14160: EXCEPTION
14161: WHEN OTHERS THEN
14162: x_return_status := fnd_api.g_ret_sts_error;
14163: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14164: IF c_mmtt_info%ISOPEN THEN
14165: CLOSE c_mmtt_info;
14166: END IF;
14339: IF (l_debug = 1) THEN
14340: mydebug('validate_sub_loc_status: validate_sub_loc_status begins');
14341: END IF;
14342:
14343: x_return_status := fnd_api.g_ret_sts_success;
14344:
14345: SELECT mmtt.transaction_type_id
14346: , mmtt.organization_id
14347: , mmtt.inventory_item_id
14395: IF (l_debug = 1) THEN
14396: mydebug('validate_sub_loc_status: End of validate_sub_loc_status');
14397: END IF;
14398: EXCEPTION
14399: WHEN fnd_api.g_exc_error THEN
14400: x_return_status := fnd_api.g_ret_sts_error;
14401:
14402: IF (l_debug = 1) THEN
14403: mydebug('validate_sub_loc_status: Error - ' || SQLERRM);
14396: mydebug('validate_sub_loc_status: End of validate_sub_loc_status');
14397: END IF;
14398: EXCEPTION
14399: WHEN fnd_api.g_exc_error THEN
14400: x_return_status := fnd_api.g_ret_sts_error;
14401:
14402: IF (l_debug = 1) THEN
14403: mydebug('validate_sub_loc_status: Error - ' || SQLERRM);
14404: END IF;
14404: END IF;
14405:
14406: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14407: WHEN OTHERS THEN
14408: x_return_status := fnd_api.g_ret_sts_unexp_error;
14409:
14410: IF (l_debug = 1) THEN
14411: mydebug('validate_sub_loc_status: Unexpected Error - ' || SQLERRM);
14412: END IF;
14442: mydebug(' p_temp_id = ' || p_temp_id);
14443: mydebug(' p_confirmed_drop_sub = ' || p_confirmed_drop_sub);
14444: END IF;
14445:
14446: x_return_status := fnd_api.g_ret_sts_success;
14447:
14448: -- bug fix 2805229
14449: SELECT wms_task_type
14450: INTO l_wms_task_type
14497: CLOSE get_wip_entity_type;
14498: IF (l_wip_entity_type not in (9,10)) THEN
14499: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
14500: fnd_msg_pub.ADD;
14501: RAISE fnd_api.g_exc_error;
14502: END IF;
14503: END IF;
14504:
14505: IF (l_debug = 1) THEN
14530: END IF;
14531:
14532: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
14533: fnd_msg_pub.ADD;
14534: RAISE fnd_api.g_exc_error;
14535: END IF;
14536: END IF;
14537:
14538: IF (l_debug = 1) THEN
14538: IF (l_debug = 1) THEN
14539: mydebug('validate_pick_drop_sub: End of validate_pick_drop_sub');
14540: END IF;
14541: EXCEPTION
14542: WHEN fnd_api.g_exc_error THEN
14543: x_return_status := fnd_api.g_ret_sts_error;
14544:
14545: IF (l_debug = 1) THEN
14546: mydebug('validate_pick_drop_sub: Error - ' || SQLERRM);
14539: mydebug('validate_pick_drop_sub: End of validate_pick_drop_sub');
14540: END IF;
14541: EXCEPTION
14542: WHEN fnd_api.g_exc_error THEN
14543: x_return_status := fnd_api.g_ret_sts_error;
14544:
14545: IF (l_debug = 1) THEN
14546: mydebug('validate_pick_drop_sub: Error - ' || SQLERRM);
14547: END IF;
14547: END IF;
14548:
14549: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14550: WHEN OTHERS THEN
14551: x_return_status := fnd_api.g_ret_sts_unexp_error;
14552:
14553: IF (l_debug = 1) THEN
14554: mydebug('validate_pick_drop_sub: Unexpected Error - ' || SQLERRM);
14555: END IF;
14579: mydebug(' p_temp_id = ' || p_temp_id);
14580: mydebug(' p_confirmed_drop_sub = ' || p_confirmed_drop_sub);
14581: END IF;
14582:
14583: x_return_status := fnd_api.g_ret_sts_success;
14584:
14585: -- bug fix 2805229
14586: SELECT wms_task_type
14587: INTO l_wms_task_type
14628: IF l_lpn_controlled_flag = wms_globals.g_lpn_controlled_sub THEN
14629: IF (l_mmtt_mo_type = 5) THEN
14630: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
14631: fnd_msg_pub.ADD;
14632: RAISE fnd_api.g_exc_error;
14633: END IF;
14634:
14635: IF (l_debug = 1) THEN
14636: mydebug('validate_pick_drop_sub: Transfer Sub is LPN Controlled');
14660: END IF;
14661:
14662: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
14663: fnd_msg_pub.ADD;
14664: RAISE fnd_api.g_exc_error;
14665: END IF;
14666: END IF;
14667:
14668: IF (l_debug = 1) THEN
14668: IF (l_debug = 1) THEN
14669: mydebug('validate_pick_drop_sub: End of validate_pick_drop_sub');
14670: END IF;
14671: EXCEPTION
14672: WHEN fnd_api.g_exc_error THEN
14673: x_return_status := fnd_api.g_ret_sts_error;
14674:
14675: IF (l_debug = 1) THEN
14676: mydebug('validate_pick_drop_sub: Error - ' || SQLERRM);
14669: mydebug('validate_pick_drop_sub: End of validate_pick_drop_sub');
14670: END IF;
14671: EXCEPTION
14672: WHEN fnd_api.g_exc_error THEN
14673: x_return_status := fnd_api.g_ret_sts_error;
14674:
14675: IF (l_debug = 1) THEN
14676: mydebug('validate_pick_drop_sub: Error - ' || SQLERRM);
14677: END IF;
14677: END IF;
14678:
14679: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14680: WHEN OTHERS THEN
14681: x_return_status := fnd_api.g_ret_sts_unexp_error;
14682:
14683: IF (l_debug = 1) THEN
14684: mydebug('validate_pick_drop_sub: Unexpected Error - ' || SQLERRM);
14685: END IF;
14710: IF (l_debug = 1) THEN
14711: mydebug('creating lock mmtt.temp_id, to be used in CTRLBD is successful');
14712: END IF;
14713:
14714: x_return_status := fnd_api.g_ret_sts_success;
14715: ELSIF lock_result IN(1, 2) THEN
14716: IF (l_debug = 1) THEN
14717: mydebug('timeout for the creation of user lock or deadlock');
14718: END IF;
14718: END IF;
14719:
14720: fnd_message.set_name('WMS', 'WMS_RECORD_BEING_CHANGED');
14721: fnd_msg_pub.ADD;
14722: RAISE fnd_api.g_exc_error;
14723: END IF;
14724: EXCEPTION
14725: WHEN fnd_api.g_exc_error THEN
14726: x_return_status := fnd_api.g_ret_sts_error;
14721: fnd_msg_pub.ADD;
14722: RAISE fnd_api.g_exc_error;
14723: END IF;
14724: EXCEPTION
14725: WHEN fnd_api.g_exc_error THEN
14726: x_return_status := fnd_api.g_ret_sts_error;
14727: WHEN OTHERS THEN
14728: x_return_status := fnd_api.g_ret_sts_unexp_error;
14729:
14722: RAISE fnd_api.g_exc_error;
14723: END IF;
14724: EXCEPTION
14725: WHEN fnd_api.g_exc_error THEN
14726: x_return_status := fnd_api.g_ret_sts_error;
14727: WHEN OTHERS THEN
14728: x_return_status := fnd_api.g_ret_sts_unexp_error;
14729:
14730: IF (l_debug = 1) THEN
14724: EXCEPTION
14725: WHEN fnd_api.g_exc_error THEN
14726: x_return_status := fnd_api.g_ret_sts_error;
14727: WHEN OTHERS THEN
14728: x_return_status := fnd_api.g_ret_sts_unexp_error;
14729:
14730: IF (l_debug = 1) THEN
14731: mydebug('lock_mmtt_temp_id - ' || SQLERRM);
14732: END IF;
14797: l_transfer_lpn_id NUMBER;
14798: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14799: l_new_temp_id NUMBER; --Added bug3765153
14800: BEGIN
14801: x_return_status := fnd_api.g_ret_sts_success;
14802:
14803: IF l_debug = 1 THEN
14804: mydebug('Dispatching Bulk Pick Tasks for TxnHdrID = ' || p_txn_hdr_id || ' : TxnTempID = ' || p_temp_id);
14805: END IF;
15380: , x_msg_count => x_msg_count
15381: , x_msg_data => x_msg_data
15382: );
15383:
15384: IF x_return_status <> fnd_api.g_ret_sts_success THEN
15385: IF l_debug = 1 THEN
15386: mydebug('BULK_PICK: Error occurred while calling cleanup tasK ');
15387: END IF;
15388: RAISE fnd_api.g_exc_error;
15384: IF x_return_status <> fnd_api.g_ret_sts_success THEN
15385: IF l_debug = 1 THEN
15386: mydebug('BULK_PICK: Error occurred while calling cleanup tasK ');
15387: END IF;
15388: RAISE fnd_api.g_exc_error;
15389: END IF;
15390:
15391: END LOOP;
15392: END IF;
15409: where transaction_header_id = x_new_txn_hdr_id;
15410:
15411: EXCEPTION
15412: WHEN OTHERS THEN
15413: x_return_status := fnd_api.g_ret_sts_unexp_error;
15414: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
15415:
15416: IF (l_debug = 1) THEN
15417: mydebug('Unexpected Error occurred - ' || SQLERRM);
15433: ) IS
15434: l_wf NUMBER := 0;
15435: BEGIN
15436: mydebug('call_workflow :in ');
15437: x_return_status := fnd_api.g_ret_sts_success;
15438:
15439: BEGIN
15440: SELECT 1
15441: INTO l_wf
15461: IF p_rsn_id > 0 THEN
15462: mydebug('call workflow: Calling ... workflow wrapper');
15463: wms_workflow_wrappers.wf_wrapper(
15464: p_api_version => 1.0
15465: , p_init_msg_list => fnd_api.g_false
15466: , p_commit => fnd_api.g_false
15467: , x_return_status => x_return_status
15468: , x_msg_count => x_msg_count
15469: , x_msg_data => x_msg_data
15462: mydebug('call workflow: Calling ... workflow wrapper');
15463: wms_workflow_wrappers.wf_wrapper(
15464: p_api_version => 1.0
15465: , p_init_msg_list => fnd_api.g_false
15466: , p_commit => fnd_api.g_false
15467: , x_return_status => x_return_status
15468: , x_msg_count => x_msg_count
15469: , x_msg_data => x_msg_data
15470: , p_org_id => p_org_id
15477: );
15478:
15479: mydebug('call_workflow : After Calling WF Wrapper');
15480: -- Bug 2924823 H to I
15481: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15482: mydebug('call_workflow : Error callinf WF wrapper');
15483: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15484: FND_MSG_PUB.ADD;
15485: RAISE FND_API.g_exc_unexpected_error;
15481: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
15482: mydebug('call_workflow : Error callinf WF wrapper');
15483: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15484: FND_MSG_PUB.ADD;
15485: RAISE FND_API.g_exc_unexpected_error;
15486:
15487: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15488: mydebug('call_workflow : Error calling WF wrapper');
15489: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15483: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15484: FND_MSG_PUB.ADD;
15485: RAISE FND_API.g_exc_unexpected_error;
15486:
15487: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15488: mydebug('call_workflow : Error calling WF wrapper');
15489: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15490: FND_MSG_PUB.ADD;
15491: RAISE FND_API.G_EXC_ERROR;
15487: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
15488: mydebug('call_workflow : Error calling WF wrapper');
15489: FND_MESSAGE.SET_NAME('WMS','WMS_WORK_FLOW_FAIL');
15490: FND_MSG_PUB.ADD;
15491: RAISE FND_API.G_EXC_ERROR;
15492: END IF;
15493: END IF;
15494: END IF;
15495: END call_workflow;
15531: mydebug('p_lot_control'||p_lot_control);
15532: mydebug('p_revision_control'||p_revision_control);
15533: END IF;
15534:
15535: x_return_status := fnd_api.g_ret_sts_success;
15536: x_commingle_exist := 'N';
15537:
15538: IF p_lot_control = 1 THEN
15539: select mmtt.subinventory_code,
15592: p_lpn_id => p_lpn_id,
15593: p_transaction_action_id => null,
15594: x_cost_group_id => l_cur_cost_group_id,
15595: x_return_status => x_return_status);
15596: IF x_return_status <> fnd_api.g_ret_sts_success THEN
15597: RAISE fnd_api.g_exc_unexpected_error;
15598: END IF;
15599:
15600: inv_cost_group_update.proc_get_costgroup(
15593: p_transaction_action_id => null,
15594: x_cost_group_id => l_cur_cost_group_id,
15595: x_return_status => x_return_status);
15596: IF x_return_status <> fnd_api.g_ret_sts_success THEN
15597: RAISE fnd_api.g_exc_unexpected_error;
15598: END IF;
15599:
15600: inv_cost_group_update.proc_get_costgroup(
15601: p_organization_id => p_organization_id,
15610: p_transaction_action_id => null,
15611: x_cost_group_id => l_exist_cost_group_id,
15612: x_return_status => x_return_status);
15613:
15614: IF x_return_status <> fnd_api.g_ret_sts_success THEN
15615: RAISE fnd_api.g_exc_unexpected_error;
15616: END IF;
15617:
15618: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
15611: x_cost_group_id => l_exist_cost_group_id,
15612: x_return_status => x_return_status);
15613:
15614: IF x_return_status <> fnd_api.g_ret_sts_success THEN
15615: RAISE fnd_api.g_exc_unexpected_error;
15616: END IF;
15617:
15618: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
15619: x_return_status := fnd_api.g_ret_sts_success;
15615: RAISE fnd_api.g_exc_unexpected_error;
15616: END IF;
15617:
15618: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
15619: x_return_status := fnd_api.g_ret_sts_success;
15620: x_commingle_exist := 'Y';
15621: END IF;
15622:
15623: EXCEPTION
15624: WHEN NO_DATA_FOUND THEN
15625: IF (l_debug = 1) THEN
15626: mydebug('First record being loaded into LPN');
15627: END IF;
15628: x_return_status := fnd_api.g_ret_sts_success;
15629: x_commingle_exist := 'N';
15630: WHEN OTHERS THEN
15631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15632: x_commingle_exist := 'Y';
15627: END IF;
15628: x_return_status := fnd_api.g_ret_sts_success;
15629: x_commingle_exist := 'N';
15630: WHEN OTHERS THEN
15631: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
15632: x_commingle_exist := 'Y';
15633: END validate_loaded_lpn_cg;
15634:
15635:
15636: -- ----------------------------------------------------------------------------------
15637: -- ----------------------------------------------------------------------------------
15638: FUNCTION validate_pick_drop_lpn
15639: ( p_api_version_number IN NUMBER ,
15640: p_init_msg_lst IN VARCHAR2 := fnd_api.g_false ,
15641: p_pick_lpn_id IN NUMBER ,
15642: p_organization_id IN NUMBER ,
15643: p_drop_lpn IN VARCHAR2,
15644: p_drop_sub IN VARCHAR2,
15650: l_dummy VARCHAR2(1) := NULL;
15651:
15652: l_api_version_number CONSTANT NUMBER := 1.0;
15653: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Pick_Drop_Lpn';
15654: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
15655:
15656: l_drop_lpn_exists BOOLEAN := FALSE;
15657: l_drop_lpn_has_picked_inv BOOLEAN := FALSE;
15658: l_pick_lpn_delivery_id NUMBER := NULL;
15711:
15712: --
15713: -- Initialize API return status to success
15714: --
15715: l_return_status := FND_API.G_RET_STS_SUCCESS;
15716: l_delivery_match_flag := -1;
15717:
15718: --
15719: -- Begin validation process:
15826: mydebug('count l_grp_rows'|| l_grouping_rows.count);
15827: mydebug('l_grp_rows(1) : '||l_grouping_rows(1) ||',l_grp_rows(2) : '||l_grouping_rows(2) );
15828: END IF;
15829:
15830: IF (l_return_status = FND_API.G_RET_STS_SUCCESS AND l_grouping_rows(1) = l_grouping_rows(2) ) THEN
15831: IF (l_debug = 1) THEN
15832: mydebug('The LPN with LPN_ID ' || p_pick_lpn_id || ' can be dropped into LPN_ID '||drop_lpn_rec.lpn_id);
15833: END IF;
15834: RETURN 1; --Validated both LPNs , so return success.
15897: RETURN 1;
15898:
15899: END IF;
15900:
15901: IF l_return_status =FND_API.g_ret_sts_success THEN
15902: RETURN 1;
15903: ELSE
15904: RETURN 0;
15905: END IF;
15904: RETURN 0;
15905: END IF;
15906:
15907: EXCEPTION
15908: WHEN fnd_api.g_exc_error THEN
15909:
15910: RETURN 0;
15911:
15912: WHEN OTHERS THEN
15917:
15918:
15919: PROCEDURE default_pick_drop_lpn
15920: ( p_api_version_number IN NUMBER ,
15921: p_init_msg_lst IN VARCHAR2 := fnd_api.g_false ,
15922: p_pick_lpn_id IN NUMBER ,
15923: p_organization_id IN NUMBER ,
15924: x_lpn_number OUT nocopy VARCHAR2)
15925:
15928: l_api_version_number CONSTANT NUMBER := 1.0;
15929: l_api_name CONSTANT VARCHAR2(30) :=
15930: 'default_pick_drop_lpn';
15931: l_return_status VARCHAR2(1) :=
15932: fnd_api.g_ret_sts_success;
15933: l_delivery_id NUMBER;
15934: l_drop_sub VARCHAR2(10);
15935: l_drop_loc NUMBER;
15936: l_lpn_id NUMBER;
15971: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
15972: BEGIN
15973:
15974:
15975: IF NOT fnd_api.compatible_api_call (l_api_version_number
15976: , p_api_version_number
15977: , l_api_name
15978: , G_PKG_NAME
15979: ) THEN
15978: , G_PKG_NAME
15979: ) THEN
15980: FND_MESSAGE.SET_NAME('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
15981: FND_MSG_PUB.ADD;
15982: RAISE FND_API.G_EXC_ERROR;
15983: END IF;
15984:
15985:
15986: l_return_status := FND_API.G_RET_STS_SUCCESS;
15982: RAISE FND_API.G_EXC_ERROR;
15983: END IF;
15984:
15985:
15986: l_return_status := FND_API.G_RET_STS_SUCCESS;
15987: --
15988: -- Initialize message list.
15989: --
15990:
15987: --
15988: -- Initialize message list.
15989: --
15990:
15991: IF fnd_api.to_boolean(p_init_msg_lst) THEN
15992: fnd_msg_pub.initialize;
15993: END IF;
15994:
15995:
16119: , p_repl_status => NULL
16120: , p_deliv_qty => l_bo_qty
16121: , x_return_status => l_return_status );
16122:
16123: IF l_return_status <> fnd_api.g_ret_sts_success THEN
16124: IF (l_debug = 1) THEN
16125: mydebug('Error from Delivery_Detail_Action api to mark the WDD as backordered..');
16126: END IF;
16127: END IF;