[Home] [Help]
2: /* $Header: WMSLOADB.pls 120.66.12020000.22 2013/05/23 23:50:22 sahmahes ship $ */
3:
4: -- Global constants
5: g_pkg_name CONSTANT VARCHAR2(30) := 'WMS_TASK_LOAD';
6: l_g_ret_sts_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_error;
7: l_g_ret_sts_unexp_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_unexp_error;
8: l_g_ret_sts_success CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_success;
9:
10: l_g_task_pending CONSTANT NUMBER := 1;
3:
4: -- Global constants
5: g_pkg_name CONSTANT VARCHAR2(30) := 'WMS_TASK_LOAD';
6: l_g_ret_sts_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_error;
7: l_g_ret_sts_unexp_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_unexp_error;
8: l_g_ret_sts_success CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_success;
9:
10: l_g_task_pending CONSTANT NUMBER := 1;
11: l_g_task_queued CONSTANT NUMBER := 2;
4: -- Global constants
5: g_pkg_name CONSTANT VARCHAR2(30) := 'WMS_TASK_LOAD';
6: l_g_ret_sts_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_error;
7: l_g_ret_sts_unexp_error CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_unexp_error;
8: l_g_ret_sts_success CONSTANT VARCHAR2(30) := fnd_api.g_ret_sts_success;
9:
10: l_g_task_pending CONSTANT NUMBER := 1;
11: l_g_task_queued CONSTANT NUMBER := 2;
12: l_g_task_dispatched CONSTANT NUMBER := 3;
515: fnd_message.set_token('ROUTINE', ' - proc_parse_lot_serial_catchwt API ' );
516: mydebug('Error parsing lot/serial/catch weight string' );
517: -- "Error reserving Serial Number/s"
518: fnd_msg_pub.ADD;
519: RAISE fnd_api.g_exc_error;
520: END IF;
521:
522: IF p_lot_controlled = 'Y' AND p_serial_controlled <> 'Y' THEN -- Lot Controlled only
523: IF (l_debug = 1) THEN
709: x_msg_data => x_msg_data);
710:
711: mydebug('x_return_status : ' || x_return_status);
712: IF x_return_status <> l_g_ret_sts_success THEN
713: RAISE fnd_api.g_exc_error;
714: END IF;
715:
716: END IF; -- row exists
717:
1107: x_msg_data => x_msg_data);
1108:
1109: mydebug('Return status from insert MTLT : ' || x_return_status, 'WMS_TASK_LOAD.UPDATE_LOADED_PART');
1110: IF x_return_status <> l_g_ret_sts_success THEN
1111: RAISE fnd_api.g_exc_error;
1112: END IF;
1113:
1114: END IF; -- row exists
1115:
1159: last_updated_by = p_user_id
1160: WHERE transaction_temp_id = p_transaction_temp_id2;
1161:
1162: EXCEPTION
1163: WHEN fnd_api.g_exc_error THEN
1164: x_return_status := l_g_ret_sts_error;
1165: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1166:
1167: IF (l_debug = 1) THEN
1354: IF x_return_status <> l_g_ret_sts_success
1355: THEN
1356: mydebug ('Error while inserting MSNTs');
1357: mydebug ('x_msg_data' ||x_msg_data);
1358: RAISE fnd_api.g_exc_error;
1359: END IF;
1360: END IF;
1361: --HWSNIssue 13860546
1362:
1382: x_msg_data => x_msg_data);
1383:
1384: mydebug('x_return_status : ' || x_return_status);
1385: IF x_return_status <> l_g_ret_sts_success THEN
1386: RAISE fnd_api.g_exc_error;
1387: END IF;
1388:
1389: ELSE
1390: l_progress := '200';
1398: THEN
1399: --fnd_message.set_name('WMS', 'WMS_CANCELLED_SOURCE');
1400: -- Source of the task is cancelled by source.. F2 to rollback
1401: --fnd_msg_pub.ADD;
1402: RAISE fnd_api.g_exc_error;
1403: END IF;
1404: END IF;
1405:
1406:
1434: mydebug ('Cannot find LPNs to update the context' );
1435: fnd_message.set_name('WMS', 'WMS_WRONG_FROM_LPN_CONTEXT');
1436: -- FROM LPN Context is not valid '
1437: fnd_msg_pub.ADD;
1438: RAISE fnd_api.g_exc_error;
1439:
1440: END IF;
1441: EXCEPTION
1442: WHEN OTHERS THEN
1440: END IF;
1441: EXCEPTION
1442: WHEN OTHERS THEN
1443: mydebug ('Others exception while updating From LPN context: ' || SQLCODE);
1444: RAISE fnd_api.g_exc_error;
1445: END ;
1446: END IF;
1447: ELSIF (p_lpn_match = 4 AND l_transfer_lpn_id = l_lpn_match_lpn_id) THEN --added following so that lpn context is updated properly after load bug 12595055 OR (l_lpn_id = l_lpn_match_lpn_id))
1448: mydebug ('Coming to the elseif portion with lpn match values as ' || p_lpn_match );
1458: mydebug ('Cannot find LPNs to update the context' );
1459: fnd_message.set_name('WMS', 'WMS_WRONG_FROM_LPN_CONTEXT');
1460: -- FROM LPN Context is not valid '
1461: fnd_msg_pub.ADD;
1462: RAISE fnd_api.g_exc_error;
1463:
1464: END IF;
1465: EXCEPTION
1466: WHEN OTHERS THEN
1464: END IF;
1465: EXCEPTION
1466: WHEN OTHERS THEN
1467: mydebug ('Others exception while updating From LPN context: ' || SQLCODE);
1468: RAISE fnd_api.g_exc_error;
1469: END ;
1470: END IF;
1471: l_progress := '300';
1472: mydebug ('l_progress: ' || l_progress );
1495: fnd_message.set_name('WMS', 'WMS_WRONG_TO_LPN_CONTEXT');
1496: -- To LPN Context is not valid
1497: fnd_msg_pub.ADD;
1498:
1499: RAISE fnd_api.g_exc_error;
1500: END IF;
1501: EXCEPTION
1502: WHEN OTHERS THEN
1503: mydebug ('Others exception while updating To LPN context: ' || SQLCODE);
1500: END IF;
1501: EXCEPTION
1502: WHEN OTHERS THEN
1503: mydebug ('Others exception while updating To LPN context: ' || SQLCODE);
1504: RAISE fnd_api.g_exc_error;
1505: END ;
1506: END IF;
1507: -- Find a matching MMTT within the given header_id only if
1508: -- p_action = LOAD_MULTIPLE. for LOAD_SINGLE, we need not try to find
1595: ,p_full_lot_allocation => p_full_lot_allocation); -- Added for 14699845 (Flexible Lot Allocation)
1596:
1597: IF x_return_status <> l_g_ret_sts_success THEN
1598: mydebug('x_return_status : ' || x_return_status);
1599: RAISE fnd_api.G_EXC_ERROR;
1600: END IF;
1601: x_new_transaction_temp_id := l_new_transaction_temp_id;
1602: mydebug('x_new_transaction_temp_id : ' || x_new_transaction_temp_id);
1603:
1626: ,x_msg_data => x_msg_data);
1627:
1628: IF x_return_status <> l_g_ret_sts_success THEN
1629: --x_return_status := l_g_ret_sts_success;
1630: RAISE fnd_api.G_EXC_ERROR;
1631: END IF;
1632: END IF;
1633:
1634: l_progress := 'END';
1635: mydebug('COmmit ' );
1636: COMMIT;
1637: mydebug('End .. ' || l_proc_name);
1638: EXCEPTION
1639: WHEN fnd_api.g_exc_error THEN
1640: x_return_status := l_g_ret_sts_error;
1641: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1642: mydebug('ROLLBACK ' );
1643: ROLLBACK ;
1641: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1642: mydebug('ROLLBACK ' );
1643: ROLLBACK ;
1644: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1645: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1646: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1647: WHEN fnd_api.g_exc_unexpected_error THEN
1648: x_return_status := fnd_api.g_ret_sts_unexp_error;
1649: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1643: ROLLBACK ;
1644: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1645: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1646: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1647: WHEN fnd_api.g_exc_unexpected_error THEN
1648: x_return_status := fnd_api.g_ret_sts_unexp_error;
1649: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1650: mydebug('ROLLBACK ' );
1651: ROLLBACK ;
1644: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1645: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1646: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1647: WHEN fnd_api.g_exc_unexpected_error THEN
1648: x_return_status := fnd_api.g_ret_sts_unexp_error;
1649: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1650: mydebug('ROLLBACK ' );
1651: ROLLBACK ;
1652: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1649: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1650: mydebug('ROLLBACK ' );
1651: ROLLBACK ;
1652: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1653: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
1654: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1655: WHEN OTHERS THEN
1656: x_return_status := l_g_ret_sts_unexp_error;
1657: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1657: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1658: mydebug('ROLLBACK ' );
1659: ROLLBACK ;
1660: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1661: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1662: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1663:
1664: END task_merge_split;
1665:
1796: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1797: -- Internal Error $ROUTINE
1798: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1799: fnd_msg_pub.ADD;
1800: RAISE fnd_api.G_EXC_ERROR;
1801: END IF;
1802: ELSE
1803: l_progress := '200';
1804: mydebug ('l_progress: ' || l_progress );
1822: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1823: -- Internal Error $ROUTINE
1824: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1825: fnd_msg_pub.ADD;
1826: RAISE fnd_api.G_EXC_ERROR;
1827: END IF;
1828: IF p_update = 'Y2' AND p_action = l_g_action_load_multiple THEN
1829: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1830: fnd_msg_pub.ADD;
1838: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1839: -- Internal Error $ROUTINE
1840: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1841: fnd_msg_pub.ADD;
1842: RAISE fnd_api.G_EXC_ERROR;
1843: END IF;
1844: END IF;
1845:
1846: END IF;
1846: END IF;
1847:
1848: mydebug('End .. ' || l_proc_name);
1849: EXCEPTION
1850: WHEN fnd_api.g_exc_error THEN
1851: x_return_status := l_g_ret_sts_error;
1852: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1853: mydebug('ROLLBACK ' );
1854: ROLLBACK ;
1852: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1853: mydebug('ROLLBACK ' );
1854: ROLLBACK ;
1855: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1856: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1857: WHEN fnd_api.g_exc_unexpected_error THEN
1858: x_return_status := fnd_api.g_ret_sts_unexp_error;
1859: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1860: mydebug('ROLLBACK ' );
1853: mydebug('ROLLBACK ' );
1854: ROLLBACK ;
1855: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1856: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1857: WHEN fnd_api.g_exc_unexpected_error THEN
1858: x_return_status := fnd_api.g_ret_sts_unexp_error;
1859: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1860: mydebug('ROLLBACK ' );
1861: ROLLBACK ;
1854: ROLLBACK ;
1855: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1856: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1857: WHEN fnd_api.g_exc_unexpected_error THEN
1858: x_return_status := fnd_api.g_ret_sts_unexp_error;
1859: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1860: mydebug('ROLLBACK ' );
1861: ROLLBACK ;
1862: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1859: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1860: mydebug('ROLLBACK ' );
1861: ROLLBACK ;
1862: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1863: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
1864: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1865: WHEN OTHERS THEN
1866: x_return_status := l_g_ret_sts_unexp_error;
1867: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1867: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1868: mydebug('ROLLBACK ' );
1869: ROLLBACK ;
1870: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1871: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1872:
1873: END proc_insert_update_task;
1874:
1875: --BUG12622871LSC Procedure to convert qty to suggested UoM
2024:
2025: IF(p_lpn_match_lpn_id IS NOT NULL) THEN
2026: inv_quantity_tree_pub.query_quantities(
2027: p_api_version_number => 1.0
2028: , p_init_msg_lst => fnd_api.g_false
2029: , x_return_status => l_return_status
2030: , x_msg_count => l_msg_cnt
2031: , x_msg_data => l_msg_data
2032: , p_organization_id => p_organization_id
2057: );
2058: ELSE
2059: inv_quantity_tree_pub.query_quantities(
2060: p_api_version_number => 1.0
2061: , p_init_msg_lst => fnd_api.g_false
2062: , x_return_status => l_return_status
2063: , x_msg_count => l_msg_cnt
2064: , x_msg_data => l_msg_data
2065: , p_organization_id => p_organization_id
2089: , p_grade_code => NULL
2090: );
2091: END IF;
2092:
2093: IF (l_return_status = fnd_api.g_ret_sts_success) THEN --{
2094:
2095: mydebug ('Quantities in MOQD for inventory_item_id ' || p_inventory_item_id || ' are:');
2096: mydebug ('Primary Qty :' || l_qoh || ' Secondary Qty :' || l_sqoh || ' Primary ATT :' || l_att || ' Secondary ATT :' || l_satt);
2097:
2151: ELSE --Quantity tree errored out
2152: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2153: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2154: fnd_msg_pub.ADD;
2155: RAISE fnd_api.g_exc_error;
2156: END IF;--}
2157: ELSE --fulfillment base is 'P'
2158:
2159: IF p_primary_uom <> p_confirmed_uom THEN
2235:
2236: IF(p_lpn_match_lpn_id IS NOT NULL) THEN
2237: inv_quantity_tree_pub.query_quantities(
2238: p_api_version_number => 1.0
2239: , p_init_msg_lst => fnd_api.g_false
2240: , x_return_status => l_return_status
2241: , x_msg_count => l_msg_cnt
2242: , x_msg_data => l_msg_data
2243: , p_organization_id => p_organization_id
2268: );
2269: ELSE
2270: inv_quantity_tree_pub.query_quantities(
2271: p_api_version_number => 1.0
2272: , p_init_msg_lst => fnd_api.g_false
2273: , x_return_status => l_return_status
2274: , x_msg_count => l_msg_cnt
2275: , x_msg_data => l_msg_data
2276: , p_organization_id => p_organization_id
2300: , p_grade_code => NULL
2301: );
2302: END IF;
2303:
2304: IF (l_return_status = fnd_api.g_ret_sts_success) THEN --{
2305:
2306: mydebug ('Quantities in MOQD for inventory_item_id ' || p_inventory_item_id || ' are:');
2307: mydebug ('Primary Qty :' || l_qoh || ' Secondary Qty :' || l_sqoh || ' Primary ATT :' || l_att || ' Secondary ATT :' || l_satt);
2308:
2336: ELSE --Quantity tree errored out
2337: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
2338: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
2339: fnd_msg_pub.ADD;
2340: RAISE fnd_api.g_exc_error;
2341: END IF;--}
2342: ELSE --fulfillment base is 'P'
2343: IF p_primary_uom <> p_confirmed_uom THEN
2344: x_confirmed_prim_qty := inv_convert.inv_um_convert
2381: END IF;
2382:
2383: mydebug('END = ' || l_proc_name );
2384: EXCEPTION
2385: WHEN fnd_api.g_exc_error THEN
2386: mydebug('Expected Exception raised');
2387: x_return_status := fnd_api.g_ret_sts_error;
2388: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2389: mydebug(' ROLLBACK' );
2383: mydebug('END = ' || l_proc_name );
2384: EXCEPTION
2385: WHEN fnd_api.g_exc_error THEN
2386: mydebug('Expected Exception raised');
2387: x_return_status := fnd_api.g_ret_sts_error;
2388: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2389: mydebug(' ROLLBACK' );
2390: ROLLBACK ;
2391:
2394: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2395: mydebug('ROLLBACK ' );
2396: ROLLBACK ;
2397: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
2398: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
2399:
2400: END proc_convert_qty_to_sugg_uom;
2401: --BUG12622871LSC end of procedure
2402:
2564: );
2565:
2566: IF x_return_status <> l_g_ret_sts_success THEN
2567: mydebug('x_return_status : ' || x_return_status);
2568: RAISE fnd_api.G_EXC_ERROR;
2569: END IF;
2570:
2571: mydebug('After the call to proc_convert_qty_to_sugg_uom l_confirmed_pri_qty_string is ' || l_confirmed_pri_qty_string);
2572: mydebug('After the call to proc_convert_qty_to_sugg_uom l_confirmed_prim_qty is ' || l_confirmed_prim_qty);
3090: mydebug (' p_transaction_temp_id: NOT found : ' || p_transaction_temp_id);
3091: fnd_message.set_name('WMS', 'WMS_INSERT_ALLOCATION'); -- NEWMSG
3092: -- "Error Inserting Allocation ."
3093: fnd_msg_pub.ADD;
3094: RAISE fnd_api.G_EXC_ERROR;
3095: END IF;
3096: l_progress := '120';
3097: mydebug ('l_progress: ' || l_progress );
3098: END IF ; -- insert MMTT only if p_insert = 'Y'
3127: THEN
3128: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
3129: fnd_message.set_token('ROUTINE', ' - proc_parse_lot_serial_catchwt API ' );
3130: mydebug('Error parsing lot/serial/catch weight string' );
3131: RAISE fnd_api.G_EXC_ERROR;
3132: END IF;
3133: END IF;
3134:
3135: -- ****Lot only Controlled items OR
3174: mydebug('proc_process_confirmed_lots.x_return_status : ' || x_return_status);
3175: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
3176: fnd_message.set_token('ROUTINE', '- proc_process_confirmed_lots API' );
3177: fnd_msg_pub.ADD;
3178: RAISE fnd_api.g_exc_error;
3179: END IF;
3180: mydebug ('Return from proc_process_confirmed_lots ' );
3181: END IF;
3182: l_progress := '150';
3220: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
3221: -- Internal Error $ROUTINE
3222: fnd_message.set_token('ROUTINE', '- proc_process_confirmed_serials API' );
3223: fnd_msg_pub.ADD;
3224: RAISE fnd_api.g_exc_error;
3225: END IF;
3226: l_progress := '330';
3227: mydebug ('l_progress: ' || l_progress );
3228: END IF;
3326: WHERE transaction_temp_id = p_transaction_temp_id;
3327: END IF;
3328:
3329: IF SQL%NOTFOUND THEN
3330: RAISE fnd_api.G_EXC_ERROR;
3331: END IF;
3332: ELSE -- LOAD
3333: l_progress := '200';
3334: mydebug('l_progress : ' || l_progress);
3349: , wms_task_status = p_wms_task_status -- Bug4185621: update mmtt task status to loaded
3350: WHERE transaction_temp_id = p_transaction_temp_id;
3351:
3352: IF SQL%NOTFOUND THEN
3353: RAISE fnd_api.G_EXC_ERROR;
3354: END IF;
3355: END IF;
3356: END IF;
3357:
3369: , last_update_date = SYSDATE
3370: , last_updated_by = p_user_id
3371: WHERE transaction_temp_id = p_transaction_temp_id_to_merge;
3372: IF SQL%NOTFOUND THEN
3373: RAISE fnd_api.G_EXC_ERROR;
3374: END IF;
3375:
3376: IF p_action = l_g_action_load_multiple THEN
3377: l_progress := '190'; -- Delete the original MMTT, if merging into another MMTT
3378: mydebug ('l_progress for load multipe in Y2 ' || l_progress);
3379: DELETE mtl_material_transactions_temp
3380: WHERE transaction_temp_id = p_transaction_temp_id;
3381: IF SQL%NOTFOUND THEN
3382: RAISE fnd_api.G_EXC_ERROR;
3383: END IF;
3384:
3385: ELSE -- 'SPLIT'
3386: l_progress := '200';
3393: , last_updated_by = p_user_id
3394: WHERE transaction_temp_id = p_transaction_temp_id;
3395:
3396: IF SQL%NOTFOUND THEN
3397: RAISE fnd_api.G_EXC_ERROR;
3398: END IF;
3399: END IF;
3400: END IF;
3401: mydebug ('End of :' || l_proc_name);
3400: END IF;
3401: mydebug ('End of :' || l_proc_name);
3402:
3403: EXCEPTION
3404: WHEN fnd_api.g_exc_error THEN
3405: x_return_status := l_g_ret_sts_error;
3406: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3407: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3408: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
3404: WHEN fnd_api.g_exc_error THEN
3405: x_return_status := l_g_ret_sts_error;
3406: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3407: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3408: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
3409: mydebug('ROLLBACK ' );
3410: ROLLBACK ;
3411: WHEN fnd_api.g_exc_unexpected_error THEN
3412: x_return_status := fnd_api.g_ret_sts_unexp_error;
3407: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3408: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
3409: mydebug('ROLLBACK ' );
3410: ROLLBACK ;
3411: WHEN fnd_api.g_exc_unexpected_error THEN
3412: x_return_status := fnd_api.g_ret_sts_unexp_error;
3413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3414: mydebug('ROLLBACK ' );
3415: ROLLBACK ;
3408: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
3409: mydebug('ROLLBACK ' );
3410: ROLLBACK ;
3411: WHEN fnd_api.g_exc_unexpected_error THEN
3412: x_return_status := fnd_api.g_ret_sts_unexp_error;
3413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3414: mydebug('ROLLBACK ' );
3415: ROLLBACK ;
3416: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3414: mydebug('ROLLBACK ' );
3415: ROLLBACK ;
3416: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3417: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
3418: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
3419: WHEN OTHERS THEN
3420: x_return_status := l_g_ret_sts_unexp_error;
3421: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3419: WHEN OTHERS THEN
3420: x_return_status := l_g_ret_sts_unexp_error;
3421: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3422: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3423: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
3424: mydebug('ROLLBACK ' );
3425: ROLLBACK ;
3426: END proc_insert_update_mmtt;
3427:
3603: EXCEPTION
3604: WHEN OTHERS THEN
3605: IF l_return_status_ls <> l_g_ret_sts_success THEN
3606: mydebug('WMS_TASK_LOAD.proc_process_confirmed_lots - Exception is raised while calling proc_decrement_allocated_mtlts');
3607: RAISE fnd_api.G_EXC_ERROR;
3608: END IF;
3609: END;
3610:
3611: OPEN cur_ins_mtlt_lot_sub(p_transaction_temp_id);
3633: , x_return_status => l_return_status_ls) ;
3634: mydebug('Inserting into MTLT - l_return_status_ls-' || l_return_status_ls);
3635:
3636: IF l_return_status_ls <> l_g_ret_sts_success THEN
3637: RAISE fnd_api.G_EXC_ERROR;
3638: END IF;
3639: END LOOP;
3640: CLOSE cur_ins_mtlt_lot_sub;
3641:
3704: IF l_rec_mtlt_to_copy_from.transaction_temp_id IS NULL
3705: THEN
3706: l_progress := '170';
3707: -- lot record attached to the original MMTT should have been found
3708: RAISE fnd_api.G_EXC_ERROR;
3709: END IF;
3710:
3711: END IF;
3712: l_progress := '175';
3785: , last_updated_by = p_user_id
3786: WHERE transaction_temp_id = l_rec_mtlt_to_copy_from.transaction_temp_id
3787: AND lot_number = rec_confirmed_lots_serials.lot_number;
3788: IF SQL%NOTFOUND THEN
3789: RAISE fnd_api.G_EXC_ERROR;
3790: END IF;
3791: ELSE
3792: -- insert a new MTLT
3793: l_progress := '210';
3806: ,x_msg_count => x_msg_count
3807: ,x_msg_data => x_msg_data);
3808: mydebug('x_return_status : ' || x_return_status);
3809: IF x_return_status <> l_g_ret_sts_success THEN
3810: RAISE fnd_api.G_EXC_ERROR;
3811: END IF;
3812: mydebug('l_progress: ' || l_progress );
3813: l_progress := '220';
3814: -- If new MTLT is inserted for p_new_transaction_temp_id this means
3824: ,last_updated_by = p_user_id
3825: WHERE transaction_temp_id = p_transaction_temp_id
3826: AND lot_number = rec_confirmed_lots_serials.lot_number;
3827: IF SQL%NOTFOUND THEN
3828: RAISE fnd_api.G_EXC_ERROR;
3829: END IF;
3830: ELSE
3831: UPDATE mtl_transaction_lots_temp
3832: SET transaction_quantity = transaction_quantity - rec_confirmed_lots_serials.suggested_quantity
3836: ,last_updated_by = p_user_id
3837: WHERE transaction_temp_id = p_transaction_temp_id
3838: AND lot_number = rec_confirmed_lots_serials.lot_number;
3839: IF SQL%NOTFOUND THEN
3840: RAISE fnd_api.G_EXC_ERROR;
3841: END IF;
3842: END IF;
3843: mydebug('l_progress: ' || l_progress );
3844: END IF;
3883: , last_updated_by = p_user_id
3884: WHERE transaction_temp_id = l_rec_mtlt_to_copy_from.transaction_temp_id
3885: AND lot_number = rec_confirmed_lots_serials.lot_number;
3886: IF SQL%NOTFOUND THEN
3887: RAISE fnd_api.G_EXC_ERROR;
3888: END IF;
3889: ELSE
3890: l_progress := '260';
3891: mydebug('l_progress: ' || l_progress );
3902: ,x_msg_count => x_msg_count
3903: ,x_msg_data => x_msg_data);
3904: IF x_return_status <> l_g_ret_sts_success THEN
3905: mydebug('x_return_status : ' || x_return_status);
3906: RAISE fnd_api.G_EXC_ERROR;
3907: END IF;
3908: L_progress := '270';
3909: mydebug('l_progress: ' || l_progress );
3910: -- If new MTLT is inserted for p_transaction_temp_id_to_merge this means
3918: ,last_updated_by = p_user_id
3919: WHERE transaction_temp_id = p_transaction_temp_id -- l_rec_mtlt_to_copy_from.transaction_temp_id
3920: AND lot_number = rec_confirmed_lots_serials.lot_number;
3921: IF SQL%NOTFOUND THEN
3922: RAISE fnd_api.G_EXC_ERROR;
3923: END IF;
3924: ELSE
3925: UPDATE mtl_transaction_lots_temp
3926: SET transaction_quantity = transaction_quantity - rec_confirmed_lots_serials.suggested_quantity
3930: ,last_updated_by = p_user_id
3931: WHERE transaction_temp_id = p_transaction_temp_id -- l_rec_mtlt_to_copy_from.transaction_temp_id
3932: AND lot_number = rec_confirmed_lots_serials.lot_number;
3933: IF SQL%NOTFOUND THEN
3934: RAISE fnd_api.G_EXC_ERROR;
3935: END IF;
3936: END IF;
3937: END IF;
3938: ELSE -- found mtlt for the current lot number attached to p_transaction_temp_id_to_merge
3950: DELETE mtl_transaction_lots_temp
3951: WHERE transaction_temp_id = p_transaction_temp_id -- l_rec_mtlt_to_copy_from.transaction_temp_id
3952: AND lot_number = rec_confirmed_lots_serials.lot_number;
3953: IF SQL%NOTFOUND THEN
3954: RAISE fnd_api.G_EXC_ERROR;
3955: END IF;
3956: ELSE
3957: -- If all the qty from the original MTLT is not consumed then update the original MTLT
3958: -- attached to p_transaction_temp_id .. as selected in the cursor above
3967: ,last_updated_by = p_user_id
3968: WHERE transaction_temp_id = p_transaction_temp_id -- l_rec_mtlt_to_copy_from.transaction_temp_id
3969: AND lot_number = rec_confirmed_lots_serials.lot_number;
3970: IF SQL%NOTFOUND THEN
3971: RAISE fnd_api.G_EXC_ERROR;
3972: END IF;
3973: ELSE
3974: UPDATE mtl_transaction_lots_temp
3975: SET transaction_quantity = transaction_quantity - rec_confirmed_lots_serials.suggested_Quantity
3979: ,last_updated_by = p_user_id
3980: WHERE transaction_temp_id = p_transaction_temp_id -- l_rec_mtlt_to_copy_from.transaction_temp_id
3981: AND lot_number = rec_confirmed_lots_serials.lot_number;
3982: IF SQL%NOTFOUND THEN
3983: RAISE fnd_api.G_EXC_ERROR;
3984: END IF;
3985: END IF;
3986: END IF;
3987: END IF;
4016: ,last_updated_by = p_user_id
4017: WHERE transaction_temp_id = p_transaction_temp_id
4018: AND lot_number = rec_confirmed_lots_serials.lot_number;
4019: IF SQL%NOTFOUND THEN
4020: RAISE fnd_api.G_EXC_ERROR;
4021: END IF;
4022: ELSE
4023: /* Usually for p_update = 'Y1' one does not need to update MTLT since nothing would have changed
4024: But, for catch weight enabled items, Overpicking or changed TXN-UOM it is necessary
4046: ,last_updated_by = p_user_id
4047: WHERE transaction_temp_id = p_transaction_temp_id
4048: AND lot_number = rec_confirmed_lots_serials.lot_number;
4049: IF SQL%NOTFOUND THEN
4050: RAISE fnd_api.G_EXC_ERROR;
4051: END IF;
4052: END IF;
4053: END IF;
4054:
4066: SET child_transaction_temp_id = l_serial_transaction_temp_id
4067: WHERE lot_number = rec_confirmed_lots_serials.lot_number
4068: AND transaction_temp_id = rec_confirmed_lots_serials.transaction_temp_id ;
4069: IF SQL%NOTFOUND THEN
4070: RAISE fnd_api.G_EXC_ERROR;
4071: END IF;
4072: L_progress := '420';
4073: mydebug('l_progress: ' || l_progress );
4074:
4101: ,x_msg_data => x_msg_data
4102: ,p_substitute_lots => p_substitute_lots--BUG12670785
4103: ,p_full_lot_allocation => p_full_lot_allocation); -- Added for 14699845 (Flexible Lot Allocation)
4104: IF x_return_status <> l_g_ret_sts_success THEN
4105: RAISE fnd_api.G_EXC_ERROR;
4106: END IF;
4107: END IF;
4108: END IF; -- l_prev_lot_number <> rec_confirmed_lots_serials.lot_number
4109: L_progress := '430';
4110: mydebug('l_progress: ' || l_progress );
4111: END LOOP; --rec_confirmed_lots_serials IN cur_confirmed_lots_serials
4112: mydebug('End .. ' || l_proc_name);
4113: EXCEPTION
4114: WHEN fnd_api.g_exc_error THEN
4115: x_return_status := l_g_ret_sts_error;
4116: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4117: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4118: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
4114: WHEN fnd_api.g_exc_error THEN
4115: x_return_status := l_g_ret_sts_error;
4116: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4117: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4118: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
4119: mydebug('ROLLBACK ' );
4120: ROLLBACK ;
4121: WHEN fnd_api.g_exc_unexpected_error THEN
4122: x_return_status := fnd_api.g_ret_sts_unexp_error;
4117: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4118: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
4119: mydebug('ROLLBACK ' );
4120: ROLLBACK ;
4121: WHEN fnd_api.g_exc_unexpected_error THEN
4122: x_return_status := fnd_api.g_ret_sts_unexp_error;
4123: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4124: mydebug('ROLLBACK ' );
4125: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4118: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
4119: mydebug('ROLLBACK ' );
4120: ROLLBACK ;
4121: WHEN fnd_api.g_exc_unexpected_error THEN
4122: x_return_status := fnd_api.g_ret_sts_unexp_error;
4123: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4124: mydebug('ROLLBACK ' );
4125: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4126: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4122: x_return_status := fnd_api.g_ret_sts_unexp_error;
4123: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4124: mydebug('ROLLBACK ' );
4125: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4126: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4127: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
4128: ROLLBACK ;
4129: WHEN OTHERS THEN
4130: x_return_status := l_g_ret_sts_unexp_error;
4129: WHEN OTHERS THEN
4130: x_return_status := l_g_ret_sts_unexp_error;
4131: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4132: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4133: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
4134: mydebug('ROLLBACK ' );
4135: ROLLBACK ;
4136:
4137: END proc_process_confirmed_lots;
4287: WHERE NVL(lot_number,'@@') = nvl(p_serial_lot_number,'@@'));
4288:
4289: IF SQL%NOTFOUND THEN
4290: mydebug('11 msnt not updateed..');
4291: RAISE fnd_api.G_EXC_ERROR;
4292: ELSE
4293: l_progress := '140';
4294: mydebug('l_progress: ' || l_progress );
4295: UPDATE MTL_SERIAL_NUMBERS
4304: FROM mtl_allocations_gtmp
4305: WHERE NVL(lot_number,'@@') = nvl(p_serial_lot_number,'@@'));
4306:
4307: IF SQL%NOTFOUND THEN
4308: RAISE fnd_api.G_EXC_ERROR;
4309: END IF;
4310: END IF;
4311: ELSE
4312: l_progress := '170';
4337: ,x_msg_count => x_msg_count
4338: ,x_msg_data => x_msg_data);
4339: IF x_return_status <> l_g_ret_sts_success THEN
4340: mydebug('x_return_status : ' || x_return_status);
4341: RAISE fnd_api.G_EXC_ERROR;
4342: END IF;
4343: END IF;
4344: /* added on 05/04/04 : fully consumable lpn where serials are allocated,
4345: * java does not pass the confirmed serials string . The following logic takes
4368: AND msn.lpn_id = p_lpn_match_lpn_id);
4369:
4370: IF SQL%NOTFOUND THEN
4371: mydebug('msnt not updateed..');
4372: RAISE fnd_api.G_EXC_ERROR;
4373: ELSE
4374: l_progress := '300';
4375: mydebug('l_progress: ' || l_progress );
4376: UPDATE MTL_SERIAL_NUMBERS
4388: AND NVL(msn.lot_number,'@@') = nvl(p_serial_lot_number,'@@')
4389: AND msn.lpn_id = p_lpn_match_lpn_id);
4390:
4391: IF SQL%NOTFOUND THEN
4392: RAISE fnd_api.G_EXC_ERROR;
4393: END IF;
4394: END IF;
4395: END IF;
4396:
4428: AND Nvl(msn.lpn_id,'-999') = Nvl(p_lpn_match_lpn_id ,'-999'));--12871057
4429:
4430: IF SQL%NOTFOUND THEN
4431: mydebug('msnt not updateed coming to AMO code....');
4432: RAISE fnd_api.G_EXC_ERROR;
4433: ELSE
4434: l_progress := '300111';
4435: mydebug('AMO coming here l_progress: ' || l_progress );
4436: UPDATE MTL_SERIAL_NUMBERS
4449: AND NVL(msn.lot_number,'@@') = nvl(p_serial_lot_number,'@@')
4450: AND Nvl(msn.lpn_id,'-999') = Nvl(p_lpn_match_lpn_id ,'-999'));
4451:
4452: IF SQL%NOTFOUND THEN
4453: RAISE fnd_api.G_EXC_ERROR;
4454: END IF;
4455: END IF;
4456: END IF;
4457: --BUG12670785 ending
4458: END IF;
4459:
4460: mydebug('End of processing of confirmed serials.. ' || l_proc_name);
4461: EXCEPTION
4462: WHEN fnd_api.g_exc_error THEN
4463: x_return_status := l_g_ret_sts_error;
4464: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4465: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4466: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
4462: WHEN fnd_api.g_exc_error THEN
4463: x_return_status := l_g_ret_sts_error;
4464: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4465: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4466: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
4467: mydebug('ROLLBACK ' );
4468: ROLLBACK ;
4469: WHEN fnd_api.g_exc_unexpected_error THEN
4470: x_return_status := fnd_api.g_ret_sts_unexp_error;
4465: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4466: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
4467: mydebug('ROLLBACK ' );
4468: ROLLBACK ;
4469: WHEN fnd_api.g_exc_unexpected_error THEN
4470: x_return_status := fnd_api.g_ret_sts_unexp_error;
4471: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4472: mydebug('ROLLBACK ' );
4473: ROLLBACK ;
4466: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
4467: mydebug('ROLLBACK ' );
4468: ROLLBACK ;
4469: WHEN fnd_api.g_exc_unexpected_error THEN
4470: x_return_status := fnd_api.g_ret_sts_unexp_error;
4471: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4472: mydebug('ROLLBACK ' );
4473: ROLLBACK ;
4474: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4471: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4472: mydebug('ROLLBACK ' );
4473: ROLLBACK ;
4474: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4475: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4476: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
4477: WHEN OTHERS THEN
4478: x_return_status := l_g_ret_sts_unexp_error;
4479: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4477: WHEN OTHERS THEN
4478: x_return_status := l_g_ret_sts_unexp_error;
4479: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4480: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4481: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
4482: mydebug('ROLLBACK ' );
4483: ROLLBACK ;
4484:
4485: END proc_process_confirmed_serials;
4720:
4721: mydebug('l_progress: ' || l_progress );
4722: mydebug('End.. ' || l_proc_name);
4723: EXCEPTION
4724: WHEN fnd_api.g_exc_error THEN
4725: x_return_status := l_g_ret_sts_error;
4726: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4727: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4728: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4724: WHEN fnd_api.g_exc_error THEN
4725: x_return_status := l_g_ret_sts_error;
4726: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4727: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4728: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4729: mydebug('ROLLBACK ' );
4730: ROLLBACK ;
4731: WHEN fnd_api.g_exc_unexpected_error THEN
4732: x_return_status := fnd_api.g_ret_sts_unexp_error;
4727: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4728: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4729: mydebug('ROLLBACK ' );
4730: ROLLBACK ;
4731: WHEN fnd_api.g_exc_unexpected_error THEN
4732: x_return_status := fnd_api.g_ret_sts_unexp_error;
4733: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4734: mydebug('ROLLBACK ' );
4735: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4728: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4729: mydebug('ROLLBACK ' );
4730: ROLLBACK ;
4731: WHEN fnd_api.g_exc_unexpected_error THEN
4732: x_return_status := fnd_api.g_ret_sts_unexp_error;
4733: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4734: mydebug('ROLLBACK ' );
4735: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4736: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4732: x_return_status := fnd_api.g_ret_sts_unexp_error;
4733: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4734: mydebug('ROLLBACK ' );
4735: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4736: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4737: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
4738: ROLLBACK ;
4739: WHEN OTHERS THEN
4740: x_return_status := l_g_ret_sts_unexp_error;
4739: WHEN OTHERS THEN
4740: x_return_status := l_g_ret_sts_unexp_error;
4741: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4742: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4743: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4744: mydebug('ROLLBACK ' );
4745: ROLLBACK ;
4746:
4747: END proc_insert_mtlt;
4810: mydebug ('ERROR !!! MSN and MOQD mismatch exists.' );
4811: fnd_message.set_name('WMS', 'WMS_LOT_SER_VALIDATION_FAIL');
4812: fnd_message.set_token('ROUTINE', '- MSN and MOQD mismatch error !' );
4813: fnd_msg_pub.ADD;
4814: RAISE fnd_api.g_exc_error;
4815: WHEN OTHERS THEN
4816: mydebug ('ERROR while checking MSN and MOQD mismatch.' );
4817: RAISE fnd_api.g_exc_unexpected_error;
4818: END;
4813: fnd_msg_pub.ADD;
4814: RAISE fnd_api.g_exc_error;
4815: WHEN OTHERS THEN
4816: mydebug ('ERROR while checking MSN and MOQD mismatch.' );
4817: RAISE fnd_api.g_exc_unexpected_error;
4818: END;
4819: END IF; -- IF p_serial_number IS NULL AND p_lpn_id IS NOT NULL
4820: -- End of code fix for Bug 14089430
4821:
4986: AND NVL(lot_number,'@@') = nvl(p_serial_lot_number,'@@'));
4987: --AND group_mark_id IS NULL);
4988:
4989: IF SQL%NOTFOUND THEN --- MSN record not found)
4990: RAISE fnd_api.G_EXC_ERROR;
4991: END IF;
4992:
4993: l_progress := '130';
4994: mydebug('l_progress: ' || l_progress );
5005: ,x_msg_count => x_msg_count
5006: ,x_msg_data => x_msg_data);
5007: IF x_return_status <> l_g_ret_sts_success THEN
5008: mydebug('x_return_status : ' || x_return_status);
5009: RAISE fnd_api.G_EXC_ERROR;
5010: END IF;
5011:
5012: ELSE -- confirmed_serials are no null so get the serials from mtl-allocations_gtmp table
5013:
5176: FROM mtl_allocations_gtmp
5177: WHERE NVL(lot_number,'@@') = nvl(p_serial_lot_number,'@@'))
5178: );
5179: IF SQL%NOTFOUND THEN --- MSN record not found)
5180: RAISE fnd_api.G_EXC_ERROR;
5181: END IF;
5182: l_progress := '130';
5183: mydebug('l_progress: ' || l_progress );
5184: proc_mark_msn (p_group_mark_id => p_transaction_temp_id
5194: ,x_msg_count => x_msg_count
5195: ,x_msg_data => x_msg_data);
5196: IF x_return_status <> l_g_ret_sts_success THEN
5197: mydebug('x_return_status : ' || x_return_status);
5198: RAISE fnd_api.G_EXC_ERROR;
5199: END IF;
5200: END IF;
5201:
5202: mydebug('End .. ' || l_proc_name);
5200: END IF;
5201:
5202: mydebug('End .. ' || l_proc_name);
5203: EXCEPTION
5204: WHEN fnd_api.g_exc_error THEN
5205: x_return_status := l_g_ret_sts_error;
5206: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5207: mydebug('ROLLBACK ' );
5208: ROLLBACK ;
5206: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5207: mydebug('ROLLBACK ' );
5208: ROLLBACK ;
5209: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5210: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5211: WHEN fnd_api.g_exc_unexpected_error THEN
5212: x_return_status := fnd_api.g_ret_sts_unexp_error;
5213: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5214: mydebug('ROLLBACK ' );
5207: mydebug('ROLLBACK ' );
5208: ROLLBACK ;
5209: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5210: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5211: WHEN fnd_api.g_exc_unexpected_error THEN
5212: x_return_status := fnd_api.g_ret_sts_unexp_error;
5213: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5214: mydebug('ROLLBACK ' );
5215: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5208: ROLLBACK ;
5209: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5210: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5211: WHEN fnd_api.g_exc_unexpected_error THEN
5212: x_return_status := fnd_api.g_ret_sts_unexp_error;
5213: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5214: mydebug('ROLLBACK ' );
5215: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5216: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5212: x_return_status := fnd_api.g_ret_sts_unexp_error;
5213: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5214: mydebug('ROLLBACK ' );
5215: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5216: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5217: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
5218: ROLLBACK ;
5219: WHEN OTHERS THEN
5220: x_return_status := l_g_ret_sts_unexp_error;
5221: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5222: mydebug('ROLLBACK ' );
5223: ROLLBACK ;
5224: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5225: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5226:
5227: END proc_insert_msnt ;
5228:
5229: PROCEDURE proc_mark_msn
5270: IF SQL%NOTFOUND THEN
5271: fnd_message.set_name('WMS', 'WMS_ERROR_MARKING_SERIAL'); --NEWMSG
5272: -- "Error reserving Serial Number/s"
5273: fnd_msg_pub.ADD;
5274: RAISE fnd_api.G_EXC_ERROR;
5275: END IF;
5276: ELSE
5277: l_progress := '300';
5278: mydebug('l_progress: ' || l_progress );
5292: IF SQL%NOTFOUND THEN
5293: fnd_message.set_name('WMS', 'WMS_ERROR_MARKING_SERIAL'); --NEWMSG
5294: -- "Error reserving Serial Number/s"
5295: fnd_msg_pub.ADD;
5296: RAISE fnd_api.G_EXC_ERROR;
5297: END IF;
5298: END IF;
5299:
5300: mydebug('End .. ' || l_proc_name);
5298: END IF;
5299:
5300: mydebug('End .. ' || l_proc_name);
5301: EXCEPTION
5302: WHEN fnd_api.g_exc_error THEN
5303: x_return_status := l_g_ret_sts_error;
5304: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5305: mydebug('ROLLBACK ' );
5306: ROLLBACK ;
5304: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5305: mydebug('ROLLBACK ' );
5306: ROLLBACK ;
5307: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5308: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5309: WHEN fnd_api.g_exc_unexpected_error THEN
5310: x_return_status := fnd_api.g_ret_sts_unexp_error;
5311: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5312: mydebug('ROLLBACK ' );
5305: mydebug('ROLLBACK ' );
5306: ROLLBACK ;
5307: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5308: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5309: WHEN fnd_api.g_exc_unexpected_error THEN
5310: x_return_status := fnd_api.g_ret_sts_unexp_error;
5311: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5312: mydebug('ROLLBACK ' );
5313: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5306: ROLLBACK ;
5307: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5308: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5309: WHEN fnd_api.g_exc_unexpected_error THEN
5310: x_return_status := fnd_api.g_ret_sts_unexp_error;
5311: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5312: mydebug('ROLLBACK ' );
5313: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5314: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5310: x_return_status := fnd_api.g_ret_sts_unexp_error;
5311: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5312: mydebug('ROLLBACK ' );
5313: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5314: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5315: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
5316: ROLLBACK ;
5317: WHEN OTHERS THEN
5318: x_return_status := l_g_ret_sts_unexp_error;
5319: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5320: mydebug('ROLLBACK ' );
5321: ROLLBACK ;
5322: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5323: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5324:
5325: END proc_mark_msn ;
5326:
5327: PROCEDURE proc_unmark_msn (p_group_mark_id IN NUMBER
5359: AND DECODE(p_serial_number,NULL,'@@',serial_number) = nvl(p_serial_number,'@@') ;
5360: --AND group_mark_id IS NULL;
5361:
5362: IF SQL%NOTFOUND THEN
5363: RAISE fnd_api.G_EXC_ERROR;
5364: END IF;
5365:
5366: mydebug('End .. ' || l_proc_name);
5367: EXCEPTION
5364: END IF;
5365:
5366: mydebug('End .. ' || l_proc_name);
5367: EXCEPTION
5368: WHEN fnd_api.g_exc_error THEN
5369: x_return_status := l_g_ret_sts_error;
5370: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5371: mydebug('ROLLBACK ' );
5372: ROLLBACK ;
5370: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5371: mydebug('ROLLBACK ' );
5372: ROLLBACK ;
5373: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5374: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5375: WHEN fnd_api.g_exc_unexpected_error THEN
5376: x_return_status := fnd_api.g_ret_sts_unexp_error;
5377: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5378: mydebug('ROLLBACK ' );
5371: mydebug('ROLLBACK ' );
5372: ROLLBACK ;
5373: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5374: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5375: WHEN fnd_api.g_exc_unexpected_error THEN
5376: x_return_status := fnd_api.g_ret_sts_unexp_error;
5377: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5378: mydebug('ROLLBACK ' );
5379: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5372: ROLLBACK ;
5373: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5374: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5375: WHEN fnd_api.g_exc_unexpected_error THEN
5376: x_return_status := fnd_api.g_ret_sts_unexp_error;
5377: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5378: mydebug('ROLLBACK ' );
5379: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5380: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5376: x_return_status := fnd_api.g_ret_sts_unexp_error;
5377: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5378: mydebug('ROLLBACK ' );
5379: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5380: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5381: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
5382: ROLLBACK ;
5383: WHEN OTHERS THEN
5384: x_return_status := l_g_ret_sts_unexp_error;
5385: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5386: mydebug('ROLLBACK ' );
5387: ROLLBACK ;
5388: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5389: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5390:
5391: END proc_unmark_msn ;
5392:
5393: /* WHen F2 is pressed, the MMTT/MTLT/MSNT that was split needs to be rolled back so that,
5554: , x_msg_count => x_msg_count
5555: , x_msg_data => x_msg_data );
5556: IF x_return_status <> l_g_ret_sts_success THEN
5557: mydebug('x_return_status : ' || x_return_status);
5558: --RAISE fnd_api.G_EXC_ERROR; punnet's request
5559: END IF;
5560:
5561: l_progress := 200;
5562: mydebug('l_progress = ' || l_progress);
5580: ,x_return_status => x_return_status
5581: ,x_msg_count => x_msg_count
5582: ,x_msg_data => x_msg_data);
5583: IF x_return_status <> l_g_ret_sts_success THEN
5584: RAISE fnd_api.G_EXC_ERROR;
5585: END IF;
5586: END IF;
5587:
5588: l_progress := 300;
5596: ,x_msg_count => x_msg_count
5597: ,x_msg_data => x_msg_data);
5598: IF x_return_status <> l_g_ret_sts_success THEN
5599: mydebug('x_return_status : ' || x_return_status);
5600: RAISE fnd_api.G_EXC_ERROR;
5601: END IF;
5602:
5603: IF P_ACTION is not NULL AND p_action = 'CMS' THEN
5604: COMMIT;
5617: ,x_return_status => x_return_status
5618: ,x_msg_count => x_msg_count
5619: ,x_msg_data => x_msg_data);
5620: IF x_return_status <> l_g_ret_sts_success THEN
5621: RAISE fnd_api.G_EXC_ERROR;
5622: END IF;
5623: END IF;
5624:
5625: -- Group MMTTs(including p_transaction_temp_id) with p_transaction_header_id
5652: IF rec_mmtt1.item_primary_uom_code IS NULL THEN
5653: fnd_message.set_name('WMS', 'WMS_NULL_PRIM_UOM');
5654: -- Item primary UOM is null for this task
5655: fnd_msg_pub.ADD;
5656: RAISE fnd_api.g_exc_unexpected_error;
5657: END IF;
5658: -- this global temp table will have a list of transaction_temp_ids of MMTTs that
5659: -- are confirmed to stay back in MMTT. Later we will use this list to decide on which
5660: -- MMTTs should be deleted that belong to the p_transaction-header_id but are not
5723: , wms_task_status = l_g_task_pending -- Bug4185621: update mmtt task status back to pending
5724: , posting_flag = l_parent_posting_flag -- Bug4185621: updating posting flag
5725: WHERE transaction_temp_id = rec_mmtt1.group_temp_id;
5726: IF SQL%NOTFOUND THEN
5727: RAISE fnd_api.G_EXC_ERROR;
5728: END IF;
5729:
5730: -- Bug# 4185621: update child line posting flag back to 'Y' for bulk picking
5731: IF (l_parent_posting_flag = 'N') THEN
5855: AND mtlt.lot_number = rec_mtlt1.lot_number
5856: AND nvl(mmtt.revision,'@@') = nvl(rec_mmtt1.revision,'@@') );
5857: mydebug ('ROW COUNT : ' || sql%rowcount);
5858: IF SQL%NOTFOUND THEN
5859: RAISE fnd_api.G_EXC_ERROR;
5860: END IF;
5861: l_progress := 1200;
5862: mydebug('l_progress .. ' || l_progress);
5863: UPDATE MTL_SERIAL_NUMBERS
5871: FROM mtl_serial_numbers_temp msnt
5872: WHERE msnt.transaction_temp_id = l_serial_transaction_temp_id);
5873:
5874: IF SQL%NOTFOUND THEN
5875: RAISE fnd_api.G_EXC_ERROR;
5876: END IF;
5877: ELSE --IF p_serial_allocated_flag = 'N' THEN
5878: l_progress := 1300;
5879: mydebug('l_progress .. ' || l_progress);
5950: AND mmtt.inventory_item_id = rec_mmtt1.inventory_item_id
5951: AND nvl(mmtt.revision,'@@') = nvl(rec_mmtt1.revision,'@@') )
5952: );
5953: IF SQL%NOTFOUND THEN
5954: RAISE fnd_api.G_EXC_ERROR;
5955: END IF;
5956: END IF;
5957: END IF; --IF p_serial_allocated_flag = 'N' THEN
5958: l_op_msnt_to_delete := 0;
5997: AND inventory_item_id = rec_mmtt1.inventory_item_id
5998: AND serial_number = rec_msnt_to_delete_ls.fm_serial_number;
5999: IF SQL%NOTFOUND THEN
6000: mydebug('No MSN found to be updated..not good' );
6001: RAISE fnd_api.G_EXC_ERROR;
6002: ELSE
6003: l_progress := 4400;
6004: mydebug('l_progress : ' || l_progress);
6005: DELETE mtl_serial_numbers_temp
6006: WHERE transaction_temp_id = rec_msnt_to_delete_ls.transaction_temp_id
6007: AND fm_serial_number = rec_msnt_to_delete_ls.fm_serial_number;
6008:
6009: IF SQL%NOTFOUND THEN
6010: RAISE fnd_api.G_EXC_ERROR;
6011: END IF;
6012: END IF;
6013: END LOOP;
6014: END IF;
6031: , last_updated_by = p_user_id
6032: WHERE lot_number = rec_mtlt1.lot_number
6033: AND transaction_temp_id = rec_mtlt1.group_lot_temp_id;
6034: IF SQL%NOTFOUND THEN
6035: RAISE fnd_api.G_EXC_ERROR;
6036: END IF;
6037:
6038: l_progress := 1600;
6039: mydebug('l_progress .. ' || l_progress);
6058: AND mtlt.lot_number = rec_mtlt1.lot_number
6059: AND nvl(mmtt.revision,'@@') = nvl(rec_mmtt1.revision,'@@') );
6060:
6061: IF SQL%NOTFOUND THEN
6062: RAISE fnd_api.G_EXC_ERROR;
6063: END IF;
6064: END IF;
6065: END IF; -- Added for 14699845 (Flexible Lot Allocation)
6066: END LOOP;
6101: AND mmtt.inventory_item_id = rec_mmtt1.inventory_item_id
6102: AND nvl(mmtt.revision,'@@') = nvl(rec_mmtt1.revision,'@@') );
6103:
6104: IF SQL%NOTFOUND THEN
6105: RAISE fnd_api.G_EXC_ERROR;
6106: END IF;
6107: -- REMARK MSN with new temp_id
6108:
6109: l_progress := 2000;
6121: WHERE transaction_temp_id = rec_mmtt1.group_temp_id);
6122: --l_serial_transaction_temp_id);
6123:
6124: IF SQL%NOTFOUND THEN
6125: RAISE fnd_api.G_EXC_ERROR;
6126: END IF;
6127: END IF;
6128: ELSE -- (p_serial_allocated_flag = 'N' ,
6129: -- delete all msnts and unmark all these serials in MSN.
6169: AND mmtt.inventory_item_id = rec_mmtt1.inventory_item_id
6170: AND nvl(mmtt.revision,'@@') = nvl(rec_mmtt1.revision,'@@') );
6171:
6172: IF SQL%NOTFOUND THEN
6173: RAISE fnd_api.G_EXC_ERROR;
6174: END IF;
6175: END IF;
6176: END IF;
6177: l_op_msnt_to_delete := 0;
6238: AND inventory_item_id = rec_mmtt1.inventory_item_id
6239: AND serial_number = rec_msnt_to_delete.fm_serial_number;
6240: IF SQL%NOTFOUND THEN
6241: mydebug('No MSN found to be updated..not good' );
6242: RAISE fnd_api.G_EXC_ERROR;
6243: ELSE
6244: l_progress := 2200;
6245: mydebug('l_progress : ' || l_progress);
6246: DELETE mtl_serial_numbers_temp
6247: WHERE transaction_temp_id = rec_msnt_to_delete.transaction_temp_id
6248: AND fm_serial_number = rec_msnt_to_delete.fm_serial_number;
6249:
6250: IF SQL%NOTFOUND THEN
6251: RAISE fnd_api.G_EXC_ERROR;
6252: END IF;
6253: END IF;
6254: END LOOP;
6255: END IF;
6270: Cleanup_LS_FlexiAlloc( p_transaction_temp_id
6271: , p_transaction_header_id
6272: , p_serial_controlled
6273: , l_ret_sts);
6274: IF (l_ret_sts <> fnd_api.g_ret_sts_success) THEN
6275: mydebug('Issues while cleaning up Lot Serial Temp records for Flexible Lot Allocation');
6276: END IF;
6277: END IF;
6278: -- End changes for 14699845 (Flexible Lot Allocation)
6286: ,x_return_status => x_return_status
6287: ,x_msg_count => x_msg_count
6288: ,x_msg_data => x_msg_data);
6289: IF x_return_status <> l_g_ret_sts_success THEN
6290: RAISE fnd_api.G_EXC_ERROR;
6291: ELSE
6292: l_start_over_task := x_start_over_taskno;
6293: END IF;
6294: mydebug('viks l_start_over_task return froom proc_start_over :' ||l_start_over_task);
6398: mydebug('Commit ' );
6399: COMMIT;
6400: mydebug('End .. ' || l_proc_name);
6401: EXCEPTION
6402: WHEN fnd_api.g_exc_error THEN
6403: x_return_status := l_g_ret_sts_error;
6404: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
6405: -- Internal Error $ROUTINE
6406: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
6408: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6409: mydebug('ROLLBACK ' );
6410: ROLLBACK ;
6411: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6412: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
6413: WHEN fnd_api.g_exc_unexpected_error THEN
6414: x_return_status := fnd_api.g_ret_sts_unexp_error;
6415: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
6416: -- Internal Error $ROUTINE
6409: mydebug('ROLLBACK ' );
6410: ROLLBACK ;
6411: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6412: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
6413: WHEN fnd_api.g_exc_unexpected_error THEN
6414: x_return_status := fnd_api.g_ret_sts_unexp_error;
6415: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
6416: -- Internal Error $ROUTINE
6417: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
6410: ROLLBACK ;
6411: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6412: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
6413: WHEN fnd_api.g_exc_unexpected_error THEN
6414: x_return_status := fnd_api.g_ret_sts_unexp_error;
6415: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
6416: -- Internal Error $ROUTINE
6417: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
6418: fnd_msg_pub.ADD;
6418: fnd_msg_pub.ADD;
6419: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6420: mydebug('ROLLBACK ' );
6421: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6422: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
6423: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
6424: ROLLBACK ;
6425: WHEN OTHERS THEN
6426: x_return_status := l_g_ret_sts_unexp_error;
6431: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6432: mydebug('ROLLBACK ' );
6433: ROLLBACK ;
6434: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6435: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
6436:
6437:
6438: END process_F2;
6439:
6473: BEGIN
6474: mydebug ('IN : ' || l_proc_name);
6475: mydebug ('p_action : ' || p_action);
6476: mydebug ('p_employee_id : ' || p_employee_id);
6477: x_return_status := fnd_api.g_ret_sts_success;
6478:
6479: IF p_action is NULL OR p_action <> 'CMS' THEN
6480: For rec_wdt_for_emp IN cur_wdt_for_emp
6481: LOOP
6494: , x_msg_count => x_msg_count
6495: , x_msg_data => x_msg_data );
6496: IF x_return_status <> l_g_ret_sts_success THEN
6497: mydebug('x_return_status : ' || x_return_status);
6498: RAISE fnd_api.G_EXC_ERROR;
6499: END IF;
6500:
6501: END IF;
6502: END LOOP;
6518: , x_msg_count => x_msg_count
6519: , x_msg_data => x_msg_data );
6520: IF x_return_status <> l_g_ret_sts_success THEN
6521: mydebug('x_return_status : ' || x_return_status);
6522: RAISE fnd_api.G_EXC_ERROR;
6523: END IF;
6524:
6525: END IF;
6526: END LOOP;
6526: END LOOP;
6527: END IF;
6528: mydebug ('END : ' || l_proc_name);
6529: EXCEPTION
6530: WHEN fnd_api.g_exc_error THEN
6531: x_return_status := l_g_ret_sts_error;
6532: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6533: mydebug('ROLLBACK ' );
6534: ROLLBACK ;
6532: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6533: mydebug('ROLLBACK ' );
6534: ROLLBACK ;
6535: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6536: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6537: WHEN fnd_api.g_exc_unexpected_error THEN
6538: x_return_status := fnd_api.g_ret_sts_unexp_error;
6539: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6540: mydebug('ROLLBACK ' );
6533: mydebug('ROLLBACK ' );
6534: ROLLBACK ;
6535: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6536: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6537: WHEN fnd_api.g_exc_unexpected_error THEN
6538: x_return_status := fnd_api.g_ret_sts_unexp_error;
6539: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6540: mydebug('ROLLBACK ' );
6541: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6534: ROLLBACK ;
6535: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6536: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6537: WHEN fnd_api.g_exc_unexpected_error THEN
6538: x_return_status := fnd_api.g_ret_sts_unexp_error;
6539: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6540: mydebug('ROLLBACK ' );
6541: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6542: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
6538: x_return_status := fnd_api.g_ret_sts_unexp_error;
6539: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6540: mydebug('ROLLBACK ' );
6541: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6542: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
6543: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
6544: ROLLBACK ;
6545: WHEN OTHERS THEN
6546: x_return_status := l_g_ret_sts_unexp_error;
6547: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6548: mydebug('ROLLBACK ' );
6549: ROLLBACK ;
6550: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6551: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6552:
6553: END proc_device_call ;
6554:
6555: PROCEDURE proc_process_cancelled_MOLs (
6600: WHERE wdt.transaction_temp_id = mmtt.transaction_temp_id);
6601:
6602: BEGIN
6603: mydebug ('IN : ' || l_proc_name);
6604: x_return_status := fnd_api.g_ret_sts_success;
6605: FOR rec_cancelled_MOLs in cur_cancelled_MOLs
6606: LOOP
6607: IF (l_debug = 1) THEN mydebug('mo_line_id = ' || rec_cancelled_mols.line_id); END IF;
6608: l_deleted_mmtt_qty := 0;
6616: x_return_status => x_return_status
6617: , x_msg_data => x_msg_data
6618: , x_msg_count => x_msg_count
6619: , p_transaction_temp_id => rec_mmtt_to_del.transaction_temp_id);
6620: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6621: IF l_debug = 1 THEN
6622: mydebug('Not able to delete the Txn = ' || rec_mmtt_to_del.transaction_temp_id);
6623: END IF;
6624: RAISE fnd_api.g_exc_unexpected_error;
6620: IF x_return_status <> fnd_api.g_ret_sts_success THEN
6621: IF l_debug = 1 THEN
6622: mydebug('Not able to delete the Txn = ' || rec_mmtt_to_del.transaction_temp_id);
6623: END IF;
6624: RAISE fnd_api.g_exc_unexpected_error;
6625: END IF;
6626:
6627: IF (rec_mmtt_to_del.item_primary_uom_code <> rec_cancelled_mols.uom_code)
6628: THEN
6668: END IF;
6669: END LOOP;
6670: mydebug('END = ' || l_proc_name );
6671: EXCEPTION
6672: WHEN fnd_api.g_exc_error THEN
6673: x_return_status := l_g_ret_sts_error;
6674: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6675: mydebug('ROLLBACK ' );
6676: ROLLBACK ;
6674: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6675: mydebug('ROLLBACK ' );
6676: ROLLBACK ;
6677: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6678: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6679: WHEN fnd_api.g_exc_unexpected_error THEN
6680: x_return_status := fnd_api.g_ret_sts_unexp_error;
6681: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6682: mydebug('ROLLBACK ' );
6675: mydebug('ROLLBACK ' );
6676: ROLLBACK ;
6677: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6678: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6679: WHEN fnd_api.g_exc_unexpected_error THEN
6680: x_return_status := fnd_api.g_ret_sts_unexp_error;
6681: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6682: mydebug('ROLLBACK ' );
6683: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6676: ROLLBACK ;
6677: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6678: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6679: WHEN fnd_api.g_exc_unexpected_error THEN
6680: x_return_status := fnd_api.g_ret_sts_unexp_error;
6681: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6682: mydebug('ROLLBACK ' );
6683: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6684: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
6680: x_return_status := fnd_api.g_ret_sts_unexp_error;
6681: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6682: mydebug('ROLLBACK ' );
6683: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6684: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
6685: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
6686: ROLLBACK ;
6687: WHEN OTHERS THEN
6688: x_return_status := l_g_ret_sts_unexp_error;
6689: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6690: mydebug('ROLLBACK ' );
6691: ROLLBACK ;
6692: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6693: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6694:
6695: END proc_process_cancelled_MOLs ;
6696:
6697: PROCEDURE proc_reset_lpn_context(
6735: and (mmtt1.lpn_id=mmtt1.transfer_lpn_id or
6736: mmtt1.content_lpn_id=mmtt1.transfer_lpn_id )); --BUG 12803567
6737:
6738: BEGIN
6739: x_return_status := fnd_api.g_ret_sts_success;
6740: mydebug ('IN : ' || l_proc_name);
6741: l_progress := 110;
6742: mydebug('l_progress = ' || l_progress);
6743: mydebug ('p_transaction_header_id : ' || p_transaction_header_id);
6837: END LOOP;
6838:
6839: mydebug('END = ' || l_proc_name );
6840: EXCEPTION
6841: WHEN fnd_api.g_exc_error THEN
6842: x_return_status := l_g_ret_sts_error;
6843: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6844: mydebug('ROLLBACK ' );
6845: ROLLBACK ;
6843: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6844: mydebug('ROLLBACK ' );
6845: ROLLBACK ;
6846: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6847: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6848: WHEN fnd_api.g_exc_unexpected_error THEN
6849: x_return_status := fnd_api.g_ret_sts_unexp_error;
6850: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6851: mydebug('ROLLBACK ' );
6844: mydebug('ROLLBACK ' );
6845: ROLLBACK ;
6846: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6847: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6848: WHEN fnd_api.g_exc_unexpected_error THEN
6849: x_return_status := fnd_api.g_ret_sts_unexp_error;
6850: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6851: mydebug('ROLLBACK ' );
6852: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6845: ROLLBACK ;
6846: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6847: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6848: WHEN fnd_api.g_exc_unexpected_error THEN
6849: x_return_status := fnd_api.g_ret_sts_unexp_error;
6850: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6851: mydebug('ROLLBACK ' );
6852: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6853: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
6849: x_return_status := fnd_api.g_ret_sts_unexp_error;
6850: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6851: mydebug('ROLLBACK ' );
6852: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6853: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
6854: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
6855: ROLLBACK ;
6856: WHEN OTHERS THEN
6857: x_return_status := l_g_ret_sts_unexp_error;
6858: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6859: mydebug('ROLLBACK ' );
6860: ROLLBACK ;
6861: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6862: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6863: END proc_reset_lpn_context;
6864:
6865: PROCEDURE proc_reset_task_status(
6866: p_action IN VARCHAR2
6885: WHERE person_id = p_employee_id
6886: AND ( status = l_g_task_dispatched OR
6887: status = l_g_task_active); -- IN (3,9 ) ;
6888: BEGIN
6889: x_return_status := fnd_api.g_ret_sts_success;
6890: mydebug ('IN : ' || l_proc_name);
6891: mydebug ('p_action : ' || p_action);
6892: mydebug ('p_transaction_header_id : ' || p_transaction_header_id);
6893: mydebug ('p_transaction_temp_id : ' || p_transaction_temp_id );
7003: END IF;
7004:
7005: mydebug('END = ' || l_proc_name );
7006: EXCEPTION
7007: WHEN fnd_api.g_exc_error THEN
7008: x_return_status := l_g_ret_sts_error;
7009: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7010: mydebug('ROLLBACK ' );
7011: ROLLBACK ;
7009: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7010: mydebug('ROLLBACK ' );
7011: ROLLBACK ;
7012: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7013: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
7014: WHEN fnd_api.g_exc_unexpected_error THEN
7015: x_return_status := fnd_api.g_ret_sts_unexp_error;
7016: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7017: mydebug('ROLLBACK ' );
7010: mydebug('ROLLBACK ' );
7011: ROLLBACK ;
7012: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7013: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
7014: WHEN fnd_api.g_exc_unexpected_error THEN
7015: x_return_status := fnd_api.g_ret_sts_unexp_error;
7016: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7017: mydebug('ROLLBACK ' );
7018: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7011: ROLLBACK ;
7012: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7013: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
7014: WHEN fnd_api.g_exc_unexpected_error THEN
7015: x_return_status := fnd_api.g_ret_sts_unexp_error;
7016: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7017: mydebug('ROLLBACK ' );
7018: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7019: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
7015: x_return_status := fnd_api.g_ret_sts_unexp_error;
7016: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7017: mydebug('ROLLBACK ' );
7018: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7019: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
7020: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
7021: ROLLBACK ;
7022: WHEN OTHERS THEN
7023: x_return_status := l_g_ret_sts_unexp_error;
7024: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7025: mydebug('ROLLBACK ' );
7026: ROLLBACK ;
7027: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7028: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
7029: END proc_reset_task_status;
7030:
7031: --viks procedure proc_start_over
7032: /*{{
7068:
7069:
7070: BEGIN
7071:
7072: x_return_status := fnd_api.g_ret_sts_success;
7073: mydebug ('IN : ' || l_proc_name);
7074: mydebug ('p_transaction_header_id : ' || p_transaction_header_id);
7075: mydebug ('p_transaction_temp_id : ' || p_transaction_temp_id );
7076: l_progress := 110;
7158: x_start_over_taskno := wms_picking_pkg.g_start_over_tempid.count;
7159: mydebug('x_start_over_taskno in procedure start_over::'||x_start_over_taskno);
7160: mydebug('END = ' || l_proc_name );
7161: EXCEPTION
7162: WHEN fnd_api.g_exc_error THEN
7163: x_return_status := l_g_ret_sts_error;
7164: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7165: mydebug('ROLLBACK ' );
7166: ROLLBACK ;
7164: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7165: mydebug('ROLLBACK ' );
7166: ROLLBACK ;
7167: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7168: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
7169: WHEN fnd_api.g_exc_unexpected_error THEN
7170: x_return_status := fnd_api.g_ret_sts_unexp_error;
7171: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7172: mydebug('ROLLBACK ' );
7165: mydebug('ROLLBACK ' );
7166: ROLLBACK ;
7167: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7168: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
7169: WHEN fnd_api.g_exc_unexpected_error THEN
7170: x_return_status := fnd_api.g_ret_sts_unexp_error;
7171: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7172: mydebug('ROLLBACK ' );
7173: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7166: ROLLBACK ;
7167: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7168: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
7169: WHEN fnd_api.g_exc_unexpected_error THEN
7170: x_return_status := fnd_api.g_ret_sts_unexp_error;
7171: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7172: mydebug('ROLLBACK ' );
7173: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7174: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
7170: x_return_status := fnd_api.g_ret_sts_unexp_error;
7171: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7172: mydebug('ROLLBACK ' );
7173: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7174: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
7175: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
7176: ROLLBACK ;
7177: WHEN OTHERS THEN
7178: x_return_status := l_g_ret_sts_unexp_error;
7179: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7180: mydebug('ROLLBACK ' );
7181: ROLLBACK ;
7182: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7183: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
7184:
7185: END proc_start_over;
7186:
7187:
7439: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7440: mydebug('ROLLBACK ' );
7441: ROLLBACK ;
7442: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
7443: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
7444:
7445: END proc_parse_lot_serial_catchwt;
7446:
7447:
7573: --16448214
7574:
7575: BEGIN
7576:
7577: x_return_status := fnd_api.g_ret_sts_success;
7578: l_return_status := fnd_api.g_ret_sts_success;
7579: IF p_parent_line_id = 0 THEN l_parent_line_id := NULL; END IF;
7580: IF p_lpn_id = 0 THEN l_lpn_id := NULL; END IF;
7581: IF p_content_lpn_id = 0 THEN l_content_lpn_id := NULL; END IF;
7574:
7575: BEGIN
7576:
7577: x_return_status := fnd_api.g_ret_sts_success;
7578: l_return_status := fnd_api.g_ret_sts_success;
7579: IF p_parent_line_id = 0 THEN l_parent_line_id := NULL; END IF;
7580: IF p_lpn_id = 0 THEN l_lpn_id := NULL; END IF;
7581: IF p_content_lpn_id = 0 THEN l_content_lpn_id := NULL; END IF;
7582: IF p_parent_lpn_id = 0 THEN l_parent_lpn_id := NULL; END IF;
7638: THEN
7639: fnd_message.set_name('WMS', 'WMS_PICK_ZERO_QTY');
7640: -- Confirmed qty for this task is zero
7641: fnd_msg_pub.ADD;
7642: RAISE fnd_api.g_exc_unexpected_error;
7643: END IF;
7644: BEGIN
7645: wms_picking_pkg.g_previous_task_status.delete(p_temp_id);
7646: EXCEPTION
7744: p_to_serial => serial_rec.serial_number,
7745: p_status_id => NULL,
7746: x_return_status => l_return_status,
7747: x_msg_data => l_msg_data);
7748: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
7749: THEN
7750: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
7751: -- Internal Error $ROUTINE
7752: fnd_message.set_token('ROUTINE', '-INSERT_SERIAL API - ' || p_action);
7750: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
7751: -- Internal Error $ROUTINE
7752: fnd_message.set_token('ROUTINE', '-INSERT_SERIAL API - ' || p_action);
7753: fnd_msg_pub.ADD;
7754: RAISE fnd_api.g_exc_unexpected_error;
7755: ELSE
7756: IF (l_debug = 1) THEN
7757: mydebug ('the serial number is: '|| serial_rec.serial_number);
7758: END IF;
7777: p_to_serial => serial_rec.serial_number,
7778: p_status_id => NULL,
7779: x_return_status => l_return_status,
7780: x_msg_data => l_msg_data);
7781: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
7782: THEN
7783: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
7784: -- Internal Error $ROUTINE
7785: fnd_message.set_token('ROUTINE', '- INSERT_SERIAL API - ');
7783: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
7784: -- Internal Error $ROUTINE
7785: fnd_message.set_token('ROUTINE', '- INSERT_SERIAL API - ');
7786: fnd_msg_pub.ADD;
7787: RAISE fnd_api.g_exc_unexpected_error;
7788: ELSE
7789: IF (l_debug = 1) THEN
7790: mydebug ('the serial number is: '|| serial_rec.serial_number);
7791: END IF;
7839: ,p_substitute_lots => p_substitute_lots --/* Bug 9448490 Lot Substitution Project */
7840: ,p_full_lot_allocation => p_full_lot_allocation -- Added for 14699845 (Flexible Lot Allocation)
7841: ,p_fulfillment_base => p_fulfillment_base); -- 16070349
7842:
7843: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
7844: THEN
7845: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
7846: -- Internal Error $ROUTINE
7847: fnd_message.set_token('ROUTINE', '-Task_Merge_Split API - ' || p_action);
7845: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
7846: -- Internal Error $ROUTINE
7847: fnd_message.set_token('ROUTINE', '-Task_Merge_Split API - ' || p_action);
7848: fnd_msg_pub.ADD;
7849: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7850: RAISE fnd_api.g_exc_unexpected_error;
7851: ELSE
7852: RAISE fnd_api.g_exc_error;
7853: END IF;
7846: -- Internal Error $ROUTINE
7847: fnd_message.set_token('ROUTINE', '-Task_Merge_Split API - ' || p_action);
7848: fnd_msg_pub.ADD;
7849: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7850: RAISE fnd_api.g_exc_unexpected_error;
7851: ELSE
7852: RAISE fnd_api.g_exc_error;
7853: END IF;
7854: END IF;
7848: fnd_msg_pub.ADD;
7849: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
7850: RAISE fnd_api.g_exc_unexpected_error;
7851: ELSE
7852: RAISE fnd_api.g_exc_error;
7853: END IF;
7854: END IF;
7855: END IF; -- confirmed_qty <> 0
7856:
7894: ,x_msg_data => x_msg_data );
7895: IF (l_debug = 1) THEN
7896: mydebug ('x_return_status: ' || x_return_status );
7897: END IF;
7898: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7899: RAISE fnd_api.g_exc_unexpected_error;
7900: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7901: RAISE fnd_api.g_exc_error;
7902: END IF;
7895: IF (l_debug = 1) THEN
7896: mydebug ('x_return_status: ' || x_return_status );
7897: END IF;
7898: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7899: RAISE fnd_api.g_exc_unexpected_error;
7900: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7901: RAISE fnd_api.g_exc_error;
7902: END IF;
7903: END IF;
7896: mydebug ('x_return_status: ' || x_return_status );
7897: END IF;
7898: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7899: RAISE fnd_api.g_exc_unexpected_error;
7900: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7901: RAISE fnd_api.g_exc_error;
7902: END IF;
7903: END IF;
7904:
7897: END IF;
7898: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7899: RAISE fnd_api.g_exc_unexpected_error;
7900: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7901: RAISE fnd_api.g_exc_error;
7902: END IF;
7903: END IF;
7904:
7905: IF l_parent_line_id IS NULL -- non bulk parent or non-bulk-child
7921: , x_msg_data => x_msg_data);
7922: IF (l_debug = 1) THEN
7923: mydebug ('x_return_status: ' || x_return_status );
7924: END IF;
7925: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7926: RAISE fnd_api.g_exc_unexpected_error;
7927: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7928: RAISE fnd_api.g_exc_error;
7929: END IF;
7922: IF (l_debug = 1) THEN
7923: mydebug ('x_return_status: ' || x_return_status );
7924: END IF;
7925: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7926: RAISE fnd_api.g_exc_unexpected_error;
7927: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7928: RAISE fnd_api.g_exc_error;
7929: END IF;
7930:
7923: mydebug ('x_return_status: ' || x_return_status );
7924: END IF;
7925: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7926: RAISE fnd_api.g_exc_unexpected_error;
7927: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7928: RAISE fnd_api.g_exc_error;
7929: END IF;
7930:
7931: END IF;
7924: END IF;
7925: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7926: RAISE fnd_api.g_exc_unexpected_error;
7927: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7928: RAISE fnd_api.g_exc_error;
7929: END IF;
7930:
7931: END IF;
7932:
7965: , p_business_flow_code => l_business_flow_code
7966: , p_transaction_id => l_temp_id
7967: );
7968:
7969: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7970: IF (l_debug = 1) THEN mydebug('Label printing failed. Continue'); END IF;
7971: END IF;
7972: END LOOP;
7973:
8001: IF (l_debug = 1) THEN
8002: mydebug ('l_new_txn_hdr_id: ' || l_new_txn_hdr_id );
8003: mydebug ('x_return_status: ' || x_return_status );
8004: END IF;
8005: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8006: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
8007: --fnd_msg_pub.ADD;
8008: RAISE fnd_api.g_exc_unexpected_error;
8009: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8004: END IF;
8005: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8006: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
8007: --fnd_msg_pub.ADD;
8008: RAISE fnd_api.g_exc_unexpected_error;
8009: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8010: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
8011: --fnd_msg_pub.ADD;
8012: RAISE fnd_api.g_exc_error;
8005: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
8006: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
8007: --fnd_msg_pub.ADD;
8008: RAISE fnd_api.g_exc_unexpected_error;
8009: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8010: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
8011: --fnd_msg_pub.ADD;
8012: RAISE fnd_api.g_exc_error;
8013: END IF;
8008: RAISE fnd_api.g_exc_unexpected_error;
8009: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
8010: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
8011: --fnd_msg_pub.ADD;
8012: RAISE fnd_api.g_exc_error;
8013: END IF;
8014:
8015: /* -- Bug #: 6908598 Commenting else part as we are calling the label printing irrespective of whether it is a bulk task or not */
8016: /*
8051: , p_business_flow_code => l_business_flow_code
8052: , p_transaction_id => l_temp_id
8053: );
8054:
8055: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8056: IF (l_debug = 1) THEN mydebug('Label printing failed. Continue'); END IF;
8057: END IF;
8058: END LOOP;
8059:
8176: mydebug('x_msg_data:' || x_msg_data);
8177: END IF;
8178:
8179: EXCEPTION
8180: WHEN fnd_api.g_exc_error THEN
8181: x_return_status := l_g_ret_sts_error;
8182: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8183: mydebug('ROLLBACK ' );
8184: ROLLBACK ;
8182: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8183: mydebug('ROLLBACK ' );
8184: ROLLBACK ;
8185: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
8186: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
8187: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
8188: WHEN fnd_api.g_exc_unexpected_error THEN
8189: x_return_status := fnd_api.g_ret_sts_unexp_error;
8190: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8184: ROLLBACK ;
8185: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
8186: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
8187: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
8188: WHEN fnd_api.g_exc_unexpected_error THEN
8189: x_return_status := fnd_api.g_ret_sts_unexp_error;
8190: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8191: mydebug('ROLLBACK ' );
8192: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
8185: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
8186: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
8187: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
8188: WHEN fnd_api.g_exc_unexpected_error THEN
8189: x_return_status := fnd_api.g_ret_sts_unexp_error;
8190: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8191: mydebug('ROLLBACK ' );
8192: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
8193: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
8189: x_return_status := fnd_api.g_ret_sts_unexp_error;
8190: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8191: mydebug('ROLLBACK ' );
8192: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
8193: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
8194: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
8195: ROLLBACK ;
8196: WHEN OTHERS THEN
8197: x_return_status := l_g_ret_sts_unexp_error;
8198: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8199: mydebug('ROLLBACK ' );
8200: ROLLBACK ;
8201: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
8202: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
8203: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
8204:
8205: END TASK_LOAD;
8206:
8528: mydebug('In lpn Match');
8529: mydebug('lpn_match: l_fulfillment_base is ' || l_fulfillment_base);
8530: END IF;
8531:
8532: x_return_status := fnd_api.g_ret_sts_success;
8533: l_lpn_exists := 0;
8534: --clear the PL/SQL table each time coming in
8535:
8536: t_lpn_lot_qty_table.DELETE;
8660: END IF;
8661:
8662: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
8663: fnd_msg_pub.ADD;
8664: RAISE fnd_api.g_exc_error;
8665: END;
8666:
8667: IF l_lpn_exists = 0
8668: OR p_fromlpn_id = 0
8672: END IF;
8673:
8674: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
8675: fnd_msg_pub.ADD;
8676: RAISE fnd_api.g_exc_error;
8677: END IF;
8678:
8679: IF (l_debug = 1) THEN
8680: mydebug('Checking if lpn has been picked already');
8702: IF l_loaded > 0 THEN
8703: x_match := 7;
8704: fnd_message.set_name('WMS', 'WMS_LOADED_ERROR');
8705: fnd_msg_pub.ADD;
8706: RAISE fnd_api.g_exc_error;
8707: END IF;
8708:
8709: -- Check if locator is valid
8710: IF (l_debug = 1) THEN
8732:
8733: x_match := 10;
8734: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
8735: fnd_msg_pub.ADD;
8736: RAISE fnd_api.g_exc_error;
8737: END IF;
8738:
8739: -- bug 2398247
8740: -- verify if sub is active
8748: IF l_sub_active = 0 THEN
8749: x_match := 10;
8750: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
8751: fnd_msg_pub.ADD;
8752: RAISE fnd_api.g_exc_error;
8753: END IF;
8754:
8755: -- verify if locator is active
8756: SELECT COUNT(*)
8764: IF l_loc_active = 0 THEN
8765: x_match := 10;
8766: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LOC');
8767: fnd_msg_pub.ADD;
8768: RAISE fnd_api.g_exc_error;
8769: END IF;
8770: -- Begin fix for 2774506
8771:
8772: SELECT locator_id,organization_id,
8802: IF ((l_mil_proj_id <> l_mmtt_proj_id ) or ( l_mil_task_id <> l_mmtt_task_id )) THEN
8803: mydebug('lpn : the project/tak information does not match');
8804: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
8805: FND_MSG_PUB.ADD;
8806: RAISE FND_API.G_EXC_ERROR;
8807: END IF;
8808:
8809: -- End fix for 2774506
8810:
8816: WHEN NO_DATA_FOUND THEN
8817: x_match := 6;
8818: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
8819: fnd_msg_pub.ADD;
8820: RAISE fnd_api.g_exc_error;
8821: END;
8822:
8823: IF (l_debug = 1) THEN
8824: mydebug('sub is ' || l_sub);
8847: IF l_so_cnt > 0 THEN
8848: x_match := 12;
8849: fnd_message.set_name('WMS', 'WMS_LPN_STAGED');
8850: fnd_msg_pub.ADD;
8851: RAISE fnd_api.g_exc_error;
8852: END IF;
8853:
8854: -- SELECT primary_uom_code
8855: -- , lot_control_code
8903:
8904: x_match := 13;
8905: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
8906: fnd_msg_pub.ADD;
8907: RAISE fnd_api.g_exc_error;
8908: END;
8909:
8910: -- Modified for 14699845 (Flexible Lot Allocation)
8911: IF l_item_cnt > 0
8940:
8941: x_match := 5;
8942: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LOT_LPN');
8943: fnd_msg_pub.ADD;
8944: RAISE fnd_api.g_exc_error;
8945: END;
8946: END IF;
8947:
8948: -- Item with the correct lot/revision exists in LPN
8993: END IF;
8994:
8995: fnd_message.set_name('INV', 'INV_INVALID_TRANSACTION');
8996: fnd_msg_pub.ADD;
8997: RAISE fnd_api.g_exc_error;
8998: END;
8999:
9000: -- clear quantity cache before we create qty tree.
9001: inv_quantity_tree_pub.clear_quantity_cache;
9080: -- Serial numbers missing for the transaction
9081: x_match := 9;
9082: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
9083: fnd_msg_pub.ADD;
9084: RAISE fnd_api.g_exc_error;
9085: END IF;
9086: END IF;
9087:
9088: l_lpn_pr_qty := 0;
9104: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
9105: --in order to get correct att.
9106: inv_quantity_tree_pub.update_quantities(
9107: p_api_version_number => 1.0
9108: , p_init_msg_lst => fnd_api.g_false
9109: , x_return_status => l_return_status
9110: , x_msg_count => l_msg_cnt
9111: , x_msg_data => l_msg_data
9112: , p_organization_id => p_org_id
9137: , p_lpn_id => p_fromlpn_id
9138: --, p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9139: );
9140:
9141: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9142: IF (l_debug = 1) THEN
9143: mydebug('after update qty tree for lpn l_att :' || l_att || ' for lot:' || l_mtlt_lot_number);
9144: mydebug('after update qty tree for lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number);
9145: END IF;
9150:
9151: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9152: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9153: fnd_msg_pub.ADD;
9154: RAISE fnd_api.g_exc_error;
9155: END IF;
9156: --Bug#5649056: only update if subinventory and locator match
9157: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9158: inv_quantity_tree_pub.update_quantities(
9156: --Bug#5649056: only update if subinventory and locator match
9157: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9158: inv_quantity_tree_pub.update_quantities(
9159: p_api_version_number => 1.0
9160: , p_init_msg_lst => fnd_api.g_false
9161: , x_return_status => l_return_status
9162: , x_msg_count => l_msg_cnt
9163: , x_msg_data => l_msg_data
9164: , p_organization_id => p_org_id
9189: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
9190: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9191: );
9192:
9193: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9194: IF (l_debug = 1) THEN
9195: mydebug('after update qty tree without lpn l_att :' || l_att || ' for lot:' || l_mtlt_lot_number);
9196: mydebug('after update qty tree without lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number);
9197: END IF;
9202:
9203: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9204: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9205: fnd_msg_pub.ADD;
9206: RAISE fnd_api.g_exc_error;
9207: END IF;
9208: END IF; --}
9209:
9210: inv_quantity_tree_pub.query_quantities(
9208: END IF; --}
9209:
9210: inv_quantity_tree_pub.query_quantities(
9211: p_api_version_number => 1.0
9212: , p_init_msg_lst => fnd_api.g_false
9213: , x_return_status => l_return_status
9214: , x_msg_count => l_msg_cnt
9215: , x_msg_data => l_msg_data
9216: , p_organization_id => p_org_id
9240: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9241: , p_grade_code => NULL -- Bug #4141928
9242: );
9243:
9244: IF (l_return_status = fnd_api.g_ret_sts_success) THEN --{
9245: IF ((l_fulfillment_base = 'P' AND l_att > 0) OR (l_fulfillment_base = 'S' AND l_satt > 0)) THEN
9246: l_table_index := l_table_index + 1;
9247:
9248: IF (l_debug = 1) THEN
9307:
9308: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9309: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9310: fnd_msg_pub.ADD;
9311: RAISE fnd_api.g_exc_error;
9312: END IF; --}
9313:
9314: IF NVL(l_allocated_lpn_id, 0) = p_fromlpn_id THEN --{
9315: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
9315: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
9316: -- in order to get correct att.
9317: inv_quantity_tree_pub.update_quantities(
9318: p_api_version_number => 1.0
9319: , p_init_msg_lst => fnd_api.g_false
9320: , x_return_status => l_return_status
9321: , x_msg_count => l_msg_cnt
9322: , x_msg_data => l_msg_data
9323: , p_organization_id => p_org_id
9348: , p_lpn_id => p_fromlpn_id
9349: --, p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9350: );
9351:
9352: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9353: IF (l_debug = 1) THEN
9354: mydebug('after update qty tree back for lpn l_att :' || l_att || ' for lot:' || l_mtlt_lot_number);
9355: mydebug('after update qty tree back for lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number);
9356: END IF;
9361:
9362: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9363: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9364: fnd_msg_pub.ADD;
9365: RAISE fnd_api.g_exc_error;
9366: END IF;
9367: --Bug#5649056: only update if subinventory and locator match
9368: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9369: inv_quantity_tree_pub.update_quantities(
9367: --Bug#5649056: only update if subinventory and locator match
9368: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9369: inv_quantity_tree_pub.update_quantities(
9370: p_api_version_number => 1.0
9371: , p_init_msg_lst => fnd_api.g_false
9372: , x_return_status => l_return_status
9373: , x_msg_count => l_msg_cnt
9374: , x_msg_data => l_msg_data
9375: , p_organization_id => p_org_id
9400: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
9401: --, p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9402: );
9403:
9404: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9405: IF (l_debug = 1) THEN
9406: mydebug('after update qty tree back without lpn l_att :' || l_att || ' for lot:' || l_mtlt_lot_number);
9407: mydebug('after update qty tree back without lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number);
9408: END IF;
9413:
9414: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9415: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9416: fnd_msg_pub.ADD;
9417: RAISE fnd_api.g_exc_error;
9418: END IF;
9419: END IF; --}
9420:
9421: END LOOP;
9470: -- Serial numbers missing for the transaction
9471: x_match := 9;
9472: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
9473: fnd_msg_pub.ADD;
9474: RAISE fnd_api.g_exc_error;
9475: END IF;
9476: END IF;
9477: -- end of bug 4277869
9478:
9484: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
9485: -- in order to get correct att.
9486: inv_quantity_tree_pub.update_quantities(
9487: p_api_version_number => 1.0
9488: , p_init_msg_lst => fnd_api.g_false
9489: , x_return_status => l_return_status
9490: , x_msg_count => l_msg_cnt
9491: , x_msg_data => l_msg_data
9492: , p_organization_id => p_org_id
9517: , p_lpn_id => p_fromlpn_id
9518: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9519: );
9520:
9521: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9522: IF (l_debug = 1) THEN
9523: mydebug('update qty tree with lpn 2nd time: l_att :' || l_att);
9524: mydebug('update qty tree with lpn 2nd time: l_satt:' || l_satt); -- Bug #4141928
9525: END IF;
9530:
9531: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9532: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9533: fnd_msg_pub.ADD;
9534: RAISE fnd_api.g_exc_error;
9535: END IF;
9536: --Bug#5649056: only update if subinventory and locator match
9537: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9538: inv_quantity_tree_pub.update_quantities(
9536: --Bug#5649056: only update if subinventory and locator match
9537: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9538: inv_quantity_tree_pub.update_quantities(
9539: p_api_version_number => 1.0
9540: , p_init_msg_lst => fnd_api.g_false
9541: , x_return_status => l_return_status
9542: , x_msg_count => l_msg_cnt
9543: , x_msg_data => l_msg_data
9544: , p_organization_id => p_org_id
9569: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
9570: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9571: );
9572:
9573: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9574: IF (l_debug = 1) THEN
9575: mydebug('update qty tree without lpn 2nd time: l_att :' || l_att);
9576: mydebug('update qty tree without lpn 2nd time: l_satt:' || l_satt);
9577: END IF;
9582:
9583: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9584: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9585: fnd_msg_pub.ADD;
9586: RAISE fnd_api.g_exc_error;
9587: END IF;
9588: END IF; --}
9589:
9590: inv_quantity_tree_pub.query_quantities(
9588: END IF; --}
9589:
9590: inv_quantity_tree_pub.query_quantities(
9591: p_api_version_number => 1.0
9592: , p_init_msg_lst => fnd_api.g_false
9593: , x_return_status => l_return_status
9594: , x_msg_count => l_msg_cnt
9595: , x_msg_data => l_msg_data
9596: , p_organization_id => p_org_id
9620: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9621: , p_grade_code => NULL -- Bug #4141928
9622: );
9623:
9624: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9625: l_lpn_pr_qty := l_att;
9626: l_lpn_sec_qty := l_satt;
9627:
9628: IF (l_debug = 1) THEN
9655:
9656: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9657: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9658: fnd_msg_pub.ADD;
9659: RAISE fnd_api.g_exc_error;
9660: END IF;
9661:
9662: IF NVL(l_allocated_lpn_id, 0) = p_fromlpn_id THEN --{
9663: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
9663: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
9664: -- in order to get correct att.
9665: inv_quantity_tree_pub.update_quantities(
9666: p_api_version_number => 1.0
9667: , p_init_msg_lst => fnd_api.g_false
9668: , x_return_status => l_return_status
9669: , x_msg_count => l_msg_cnt
9670: , x_msg_data => l_msg_data
9671: , p_organization_id => p_org_id
9696: , p_lpn_id => p_fromlpn_id
9697: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9698: );
9699:
9700: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9701: IF (l_debug = 1) THEN
9702: mydebug('update qty tree back with lpn 2nd time: l_att :' || l_att);
9703: mydebug('update qty tree back with lpn 2nd time: l_satt:' || l_satt);
9704: END IF;
9709:
9710: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9711: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9712: fnd_msg_pub.ADD;
9713: RAISE fnd_api.g_exc_error;
9714: END IF;
9715: --Bug#5649056: only update if subinventory and locator match
9716: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9717: inv_quantity_tree_pub.update_quantities(
9715: --Bug#5649056: only update if subinventory and locator match
9716: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9717: inv_quantity_tree_pub.update_quantities(
9718: p_api_version_number => 1.0
9719: , p_init_msg_lst => fnd_api.g_false
9720: , x_return_status => l_return_status
9721: , x_msg_count => l_msg_cnt
9722: , x_msg_data => l_msg_data
9723: , p_organization_id => p_org_id
9748: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
9749: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9750: );
9751:
9752: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9753: IF (l_debug = 1) THEN
9754: mydebug('update qty tree back without lpn 2nd time:l_att :' || l_att);
9755: mydebug('update qty tree back without lpn 2nd time:l_satt:' || l_satt);
9756: END IF;
9761:
9762: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9763: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9764: fnd_msg_pub.ADD;
9765: RAISE fnd_api.g_exc_error;
9766: END IF;
9767: END IF; --}
9768: END IF; --}
9769:
9828: -- Serial numbers missing for the transaction
9829: x_match := 9;
9830: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
9831: fnd_msg_pub.ADD;
9832: RAISE fnd_api.g_exc_error;
9833: END IF;
9834: END IF; --}
9835:
9836: -- Check whether the Lots allocated are all in the LPN
9863: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
9864: -- in order to get correct att.
9865: inv_quantity_tree_pub.update_quantities(
9866: p_api_version_number => 1.0
9867: , p_init_msg_lst => fnd_api.g_false
9868: , x_return_status => l_return_status
9869: , x_msg_count => l_msg_cnt
9870: , x_msg_data => l_msg_data
9871: , p_organization_id => p_org_id
9896: , p_lpn_id => p_fromlpn_id
9897: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9898: );
9899:
9900: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9901: IF (l_debug = 1) THEN
9902: mydebug('update qty tree 3rd time for lpn l_att :' || l_att || ' for lot:' || l_mtlt_lot_number);
9903: mydebug('update qty tree 3rd time for lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number); -- Bug #4141928
9904: END IF;
9909:
9910: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9911: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9912: fnd_msg_pub.ADD;
9913: RAISE fnd_api.g_exc_error;
9914: END IF;
9915: --Bug#5649056: only update if subinventory and locator match
9916: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9917: inv_quantity_tree_pub.update_quantities(
9915: --Bug#5649056: only update if subinventory and locator match
9916: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9917: inv_quantity_tree_pub.update_quantities(
9918: p_api_version_number => 1.0
9919: , p_init_msg_lst => fnd_api.g_false
9920: , x_return_status => l_return_status
9921: , x_msg_count => l_msg_cnt
9922: , x_msg_data => l_msg_data
9923: , p_organization_id => p_org_id
9948: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
9949: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
9950: );
9951:
9952: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9953: IF (l_debug = 1) THEN
9954: mydebug('after update without lpn 3rd time l_att :' || l_att || ' for lot:' || l_mtlt_lot_number);
9955: mydebug('after update without lpn 3rd time l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number);
9956: END IF;
9961:
9962: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9963: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9964: fnd_msg_pub.ADD;
9965: RAISE fnd_api.g_exc_error;
9966: END IF;
9967: END IF;--}
9968:
9969: inv_quantity_tree_pub.query_quantities(
9967: END IF;--}
9968:
9969: inv_quantity_tree_pub.query_quantities(
9970: p_api_version_number => 1.0
9971: , p_init_msg_lst => fnd_api.g_false
9972: , x_return_status => l_return_status
9973: , x_msg_count => l_msg_cnt
9974: , x_msg_data => l_msg_data
9975: , p_organization_id => p_org_id
9999: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
10000: , p_grade_code => NULL -- Bug #4141928
10001: );
10002:
10003: IF (l_return_status = fnd_api.g_ret_sts_success) THEN --{
10004: l_lot_match := 1;
10005:
10006: IF ((l_fulfillment_base = 'P' AND l_att > 0) OR (l_fulfillment_base = 'S' AND l_satt > 0)) THEN
10007: l_table_index := l_table_index + 1;
10084:
10085: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10086: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10087: fnd_msg_pub.ADD;
10088: RAISE fnd_api.g_exc_error;
10089: END IF; --}
10090:
10091: IF (l_debug = 1) THEN
10092: mydebug('x_match ' ||x_match);
10215: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
10216: --in order to get correct att.
10217: inv_quantity_tree_pub.update_quantities(
10218: p_api_version_number => 1.0
10219: , p_init_msg_lst => fnd_api.g_false
10220: , x_return_status => l_return_status
10221: , x_msg_count => l_msg_cnt
10222: , x_msg_data => l_msg_data
10223: , p_organization_id => p_org_id
10248: , p_lpn_id => p_fromlpn_id
10249: --, p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
10250: );
10251:
10252: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
10253: IF (l_debug = 1) THEN
10254: mydebug('update qty tree back 3rd time for lpn l_att :' || l_att || ' for lot:' || l_mtlt_lot_number);
10255: mydebug('update qty tree back 3rd time for lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number); -- Bug #4141928
10256: END IF;
10261:
10262: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10263: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10264: fnd_msg_pub.ADD;
10265: RAISE fnd_api.g_exc_error;
10266: END IF;
10267: --Bug#5649056: only update if subinventory and locator match
10268: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
10269: inv_quantity_tree_pub.update_quantities(
10267: --Bug#5649056: only update if subinventory and locator match
10268: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
10269: inv_quantity_tree_pub.update_quantities(
10270: p_api_version_number => 1.0
10271: , p_init_msg_lst => fnd_api.g_false
10272: , x_return_status => l_return_status
10273: , x_msg_count => l_msg_cnt
10274: , x_msg_data => l_msg_data
10275: , p_organization_id => p_org_id
10300: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
10301: --, p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
10302: );
10303:
10304: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
10305: IF (l_debug = 1) THEN
10306: mydebug('after update qty tree back without lpn 3rd time l_att :' || l_att || ' for lot:' || l_mtlt_lot_number);
10307: mydebug('after update qty tree back without lpn 3rd time l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number); -- Bug #4141928
10308: END IF;
10313:
10314: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10315: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10316: fnd_msg_pub.ADD;
10317: RAISE fnd_api.g_exc_error;
10318: END IF;
10319: END IF; --}
10320:
10321: END LOOP;
10428: -- Serial numbers missing for the transaction
10429: x_match := 9;
10430: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
10431: fnd_msg_pub.ADD;
10432: RAISE fnd_api.g_exc_error;
10433: END IF;
10434: END IF; --}
10435:
10436:
10443: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
10444: -- in order to get correct att.
10445: inv_quantity_tree_pub.update_quantities(
10446: p_api_version_number => 1.0
10447: , p_init_msg_lst => fnd_api.g_false
10448: , x_return_status => l_return_status
10449: , x_msg_count => l_msg_cnt
10450: , x_msg_data => l_msg_data
10451: , p_organization_id => p_org_id
10476: , p_lpn_id => p_fromlpn_id
10477: --, p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
10478: );
10479:
10480: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
10481: IF (l_debug = 1) THEN
10482: mydebug('update qty tree with lpn 4th time: l_att :' || l_att);
10483: mydebug('update qty tree with lpn 4th time: l_satt:' || l_satt);
10484: END IF;
10489:
10490: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10491: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10492: fnd_msg_pub.ADD;
10493: RAISE fnd_api.g_exc_error;
10494: END IF;
10495: --Bug#5649056: only update if subinventory and locator match
10496: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
10497:
10496: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
10497:
10498: inv_quantity_tree_pub.update_quantities(
10499: p_api_version_number => 1.0
10500: , p_init_msg_lst => fnd_api.g_false
10501: , x_return_status => l_return_status
10502: , x_msg_count => l_msg_cnt
10503: , x_msg_data => l_msg_data
10504: , p_organization_id => p_org_id
10529: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
10530: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
10531: );
10532:
10533: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
10534: IF (l_debug = 1) THEN
10535: mydebug('update qty tree without lpn 4th time:l_att :' || l_att);
10536: mydebug('update qty tree without lpn 4th time:l_satt:' || l_satt); -- Bug #4141928
10537: END IF;
10542:
10543: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10544: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10545: fnd_msg_pub.ADD;
10546: RAISE fnd_api.g_exc_error;
10547: END IF;
10548: END IF; --}
10549:
10550: inv_quantity_tree_pub.query_quantities(
10548: END IF; --}
10549:
10550: inv_quantity_tree_pub.query_quantities(
10551: p_api_version_number => 1.0
10552: , p_init_msg_lst => fnd_api.g_false
10553: , x_return_status => l_return_status
10554: , x_msg_count => l_msg_cnt
10555: , x_msg_data => l_msg_data
10556: , p_organization_id => p_org_id
10580: -- , p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
10581: , p_grade_code => NULL -- Bug #4141928
10582: );
10583:
10584: IF (l_return_status = fnd_api.g_ret_sts_success) THEN --{
10585: IF (l_debug = 1) THEN
10586: mydebug('lpn quantity = ' || l_att);
10587: mydebug('lpn sec quantity = ' || l_satt);
10588: END IF;
10649:
10650: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10651: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10652: fnd_msg_pub.ADD;
10653: RAISE fnd_api.g_exc_error;
10654: END IF; --}
10655:
10656: IF NVL(l_allocated_lpn_id, 0) = p_fromlpn_id THEN --{
10657: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
10657: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
10658: -- in order to get correct att.
10659: inv_quantity_tree_pub.update_quantities(
10660: p_api_version_number => 1.0
10661: , p_init_msg_lst => fnd_api.g_false
10662: , x_return_status => l_return_status
10663: , x_msg_count => l_msg_cnt
10664: , x_msg_data => l_msg_data
10665: , p_organization_id => p_org_id
10690: , p_lpn_id => p_fromlpn_id
10691: --, p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
10692: );
10693:
10694: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
10695: IF (l_debug = 1) THEN
10696: mydebug('update qty tree back with lpn 4th time: l_att :' || l_att);
10697: mydebug('update qty tree back with lpn 4th time: l_satt:' || l_satt); -- Bug #4141928
10698: END IF;
10703:
10704: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10705: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10706: fnd_msg_pub.ADD;
10707: RAISE fnd_api.g_exc_error;
10708: END IF;
10709: --Bug#5649056: only update if subinventory and locator match
10710: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
10711: inv_quantity_tree_pub.update_quantities(
10709: --Bug#5649056: only update if subinventory and locator match
10710: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
10711: inv_quantity_tree_pub.update_quantities(
10712: p_api_version_number => 1.0
10713: , p_init_msg_lst => fnd_api.g_false
10714: , x_return_status => l_return_status
10715: , x_msg_count => l_msg_cnt
10716: , x_msg_data => l_msg_data
10717: , p_organization_id => p_org_id
10742: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
10743: --, p_transfer_subinventory_code => l_xfr_sub_code -- Bug #14753999
10744: );
10745:
10746: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
10747: IF (l_debug = 1) THEN
10748: mydebug('update qty tree back without lpn 4th time l_att :' || l_att);
10749: mydebug('update qty tree back without lpn 4th time l_satt:' || l_satt);
10750: END IF;
10755:
10756: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10757: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10758: fnd_msg_pub.ADD;
10759: RAISE fnd_api.g_exc_error;
10760: END IF;
10761: END IF; --}
10762:
10763: -- If the LPN quantity exactly matches/ has less than, the requested
10848: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
10849: -- in order to get correct att.
10850: inv_quantity_tree_pub.update_quantities(
10851: p_api_version_number => 1.0
10852: , p_init_msg_lst => fnd_api.g_false
10853: , x_return_status => l_return_status
10854: , x_msg_count => l_msg_cnt
10855: , x_msg_data => l_msg_data
10856: , p_organization_id => p_org_id
10880: , x_satr => l_satr
10881: , p_lpn_id => p_fromlpn_id
10882: );
10883:
10884: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
10885: IF (l_debug = 1) THEN
10886: mydebug('update qty tree for FlexiLotAlloc lpn l_att:' || l_att || ' at Locator Level');
10887: mydebug('update qty tree for FlexiLotAlloc lpn l_satt:' || l_satt || ' at Locator Level');
10888: END IF;
10893:
10894: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10895: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10896: fnd_msg_pub.ADD;
10897: RAISE fnd_api.g_exc_error;
10898: END IF;
10899:
10900: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
10901: inv_quantity_tree_pub.update_quantities(
10899:
10900: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
10901: inv_quantity_tree_pub.update_quantities(
10902: p_api_version_number => 1.0
10903: , p_init_msg_lst => fnd_api.g_false
10904: , x_return_status => l_return_status
10905: , x_msg_count => l_msg_cnt
10906: , x_msg_data => l_msg_data
10907: , p_organization_id => p_org_id
10930: , x_satt => l_satt
10931: , x_satr => l_satr
10932: );
10933:
10934: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
10935: IF (l_debug = 1) THEN
10936: mydebug('after update without lpn for FlexiLotAlloc l_att:' || l_att || ' at Locator Level');
10937: mydebug('after update without lpn for FlexiLotAlloc l_satt:' || l_satt || ' at Locator Level');
10938: END IF;
10943:
10944: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10945: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10946: fnd_msg_pub.ADD;
10947: RAISE fnd_api.g_exc_error;
10948: END IF;
10949: END IF;
10950: END IF;
10951: -- End for 16267113 Flexible Lot Allocation
10977:
10978:
10979: inv_quantity_tree_pub.query_quantities(
10980: p_api_version_number => 1.0
10981: , p_init_msg_lst => fnd_api.g_false
10982: , x_return_status => l_return_status
10983: , x_msg_count => l_msg_cnt
10984: , x_msg_data => l_msg_data
10985: , p_organization_id => p_org_id
11009: , p_transfer_subinventory_code => l_xfr_sub_code
11010: , p_grade_code => NULL --14846817
11011: );
11012:
11013: IF (l_return_status = fnd_api.g_ret_sts_success) THEN --{
11014: IF ((l_fulfillment_base = 'P' AND l_att > 0) OR (l_fulfillment_base = 'S' AND l_satt > 0)) THEN --{
11015: l_table_index := l_table_index + 1;
11016: IF (l_debug = 1) THEN
11017: mydebug('Unallocated l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
11094: IF NVL(l_allocated_lpn_id, 0) = p_fromlpn_id THEN
11095:
11096: inv_quantity_tree_pub.update_quantities(
11097: p_api_version_number => 1.0
11098: , p_init_msg_lst => fnd_api.g_false
11099: , x_return_status => l_return_status
11100: , x_msg_count => l_msg_cnt
11101: , x_msg_data => l_msg_data
11102: , p_organization_id => p_org_id
11126: , x_satr => l_satr
11127: , p_lpn_id => p_fromlpn_id
11128: );
11129:
11130: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
11131: IF (l_debug = 1) THEN
11132: mydebug('update qty tree back with +ve qty for FlexiLotAlloc lpn l_att:' || l_att || ' at Locator Level');
11133: mydebug('update qty tree back with +ve qty for FlexiLotAlloc lpn l_satt:' || l_satt || ' at Locator Level'); -- Bug #4141928
11134: END IF;
11139:
11140: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
11141: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
11142: fnd_msg_pub.ADD;
11143: RAISE fnd_api.g_exc_error;
11144: END IF;
11145: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
11146: inv_quantity_tree_pub.update_quantities(
11147: p_api_version_number => 1.0
11144: END IF;
11145: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
11146: inv_quantity_tree_pub.update_quantities(
11147: p_api_version_number => 1.0
11148: , p_init_msg_lst => fnd_api.g_false
11149: , x_return_status => l_return_status
11150: , x_msg_count => l_msg_cnt
11151: , x_msg_data => l_msg_data
11152: , p_organization_id => p_org_id
11175: , x_satt => l_satt
11176: , x_satr => l_satr
11177: );
11178:
11179: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
11180: IF (l_debug = 1) THEN
11181: mydebug('after update qty tree back for +ve qty without lpn for FlexiLotAlloc l_att:' || l_att || ' at Locator Level');
11182: mydebug('after update qty tree back for +ve qty without lpn for FlexiLotAlloc l_satt:' || l_satt || ' at Locator Level'); -- Bug #4141928
11183: END IF;
11188:
11189: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
11190: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
11191: fnd_msg_pub.ADD;
11192: RAISE fnd_api.g_exc_error;
11193: END IF;
11194: END IF;
11195: END IF;
11196:
11294: ELSE
11295: IF (l_debug = 1) THEN
11296: mydebug('item_rec not set in inv_cache');
11297: END IF;
11298: RAISE fnd_api.g_exc_unexpected_error;
11299: END IF;
11300:
11301: IF (l_debug = 1) THEN
11302: mydebug('l_lot_divisible_flag: '||l_lot_divisible_flag);
11360: );
11361: END IF;
11362: -- muom:sk
11363:
11364: IF x_return_status = fnd_api.g_ret_sts_error THEN
11365: RAISE fnd_api.g_exc_error;
11366: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11367: RAISE fnd_api.g_exc_unexpected_error;
11368: END IF;
11361: END IF;
11362: -- muom:sk
11363:
11364: IF x_return_status = fnd_api.g_ret_sts_error THEN
11365: RAISE fnd_api.g_exc_error;
11366: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11367: RAISE fnd_api.g_exc_unexpected_error;
11368: END IF;
11369:
11362: -- muom:sk
11363:
11364: IF x_return_status = fnd_api.g_ret_sts_error THEN
11365: RAISE fnd_api.g_exc_error;
11366: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11367: RAISE fnd_api.g_exc_unexpected_error;
11368: END IF;
11369:
11370: IF l_check_overpick_passed = 'Y' THEN
11363:
11364: IF x_return_status = fnd_api.g_ret_sts_error THEN
11365: RAISE fnd_api.g_exc_error;
11366: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11367: RAISE fnd_api.g_exc_unexpected_error;
11368: END IF;
11369:
11370: IF l_check_overpick_passed = 'Y' THEN
11371: x_lpnpickedasis := 'Y';
11412: CLOSE ser_csr;
11413: fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
11414: fnd_message.set_token('TOKEN', l_serial_number);
11415: fnd_msg_pub.ADD;
11416: RAISE fnd_api.g_exc_error;
11417: END IF;
11418: END LOOP;
11419:
11420: CLOSE ser_csr;
11441:
11442: fnd_message.set_name('INV', 'INV_INVALID_LPN_STATUS');
11443: fnd_message.set_token('TOKEN1', TO_CHAR(p_fromlpn_id));
11444: fnd_msg_pub.ADD;
11445: RAISE fnd_api.g_exc_error;
11446: END IF;
11447: END IF;
11448: END IF;
11449:
11844: x_lpn_qoh := l_qoh;
11845: END IF;
11846: END IF;
11847:
11848: x_return_status := fnd_api.g_ret_sts_success;
11849:
11850: IF (l_debug = 1) THEN
11851: mydebug('x_match value at end of lpn_match :' || x_match);
11852: mydebug('x_lpn_qoh :' || x_lpn_qoh);
11876: mydebug('LPN record is locked by another user... cannot pick this LPN' );
11877: fnd_message.set_name('WMS', 'WMS_LPN_LOCKED_ERROR');
11878: -- LPN is in use by another user
11879: fnd_msg_pub.ADD;
11880: RAISE fnd_api.g_exc_error;
11881: ELSE
11882: RAISE fnd_api.g_exc_unexpected_error;
11883: END IF;
11884:
11878: -- LPN is in use by another user
11879: fnd_msg_pub.ADD;
11880: RAISE fnd_api.g_exc_error;
11881: ELSE
11882: RAISE fnd_api.g_exc_unexpected_error;
11883: END IF;
11884:
11885: END ;
11886: END IF;
11924: -- Bug 4632519
11925: );
11926:
11927:
11928: IF x_return_status <> fnd_api.g_ret_sts_success THEN
11929: x_toLPN_status := 'F';
11930: IF (l_debug = 1) THEN
11931: mydebug('Validate_pick_to_lpn could not validate toLPNDefault:');
11932: END IF;
11929: x_toLPN_status := 'F';
11930: IF (l_debug = 1) THEN
11931: mydebug('Validate_pick_to_lpn could not validate toLPNDefault:');
11932: END IF;
11933: x_return_status := fnd_api.g_ret_sts_success;
11934: ELSE
11935: x_toLPN_status := 'T';
11936: IF (l_debug = 1) THEN
11937: mydebug('Validate_pick_to_lpn validated toLPNDefault:');
11958:
11959: --Added for bug 8205743 end
11960:
11961: EXCEPTION
11962: WHEN fnd_api.g_exc_error THEN
11963: IF (l_debug = 1) THEN
11964: mydebug(' Expected Exception raised');
11965: END IF;
11966: x_return_status := fnd_api.g_ret_sts_error;
11962: WHEN fnd_api.g_exc_error THEN
11963: IF (l_debug = 1) THEN
11964: mydebug(' Expected Exception raised');
11965: END IF;
11966: x_return_status := fnd_api.g_ret_sts_error;
11967: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11968: WHEN fnd_api.g_exc_unexpected_error THEN
11969: IF (l_debug = 1) THEN
11970: mydebug(' Unexpected Exception raised');
11964: mydebug(' Expected Exception raised');
11965: END IF;
11966: x_return_status := fnd_api.g_ret_sts_error;
11967: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11968: WHEN fnd_api.g_exc_unexpected_error THEN
11969: IF (l_debug = 1) THEN
11970: mydebug(' Unexpected Exception raised');
11971: END IF;
11972: x_return_status := fnd_api.g_ret_sts_unexp_error;
11968: WHEN fnd_api.g_exc_unexpected_error THEN
11969: IF (l_debug = 1) THEN
11970: mydebug(' Unexpected Exception raised');
11971: END IF;
11972: x_return_status := fnd_api.g_ret_sts_unexp_error;
11973: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11974: WHEN OTHERS THEN
11975: IF (l_debug = 1) THEN
11976: mydebug('Other exception raised : ' || SQLERRM);
11975: IF (l_debug = 1) THEN
11976: mydebug('Other exception raised : ' || SQLERRM);
11977: END IF;
11978:
11979: x_return_status := fnd_api.g_ret_sts_unexp_error;
11980: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11981: END lpn_match;
11982:
11983:
12132: mydebug('loose_match p_sec_uom : ' || p_sec_uom);
12133: mydebug('loose_match Fulfillment Base : ' || l_fulfillment_base);
12134: END IF;
12135:
12136: x_return_status := fnd_api.g_ret_sts_success;
12137: x_lot_att_vector := null;
12138:
12139: DELETE wms_allocations_gtmp;
12140: t_lpn_lot_qty_table.DELETE;
12235: ELSE
12236: IF (l_debug = 1) THEN
12237: mydebug('Error from inv_cache.set_item_rec');
12238: END IF;
12239: RAISE fnd_api.g_exc_unexpected_error;
12240: END IF;
12241:
12242: LOOP
12243:
12298: WHERE transaction_temp_id = p_temp_id;
12299: END IF;
12300: -- End change - Bug 4185621
12301:
12302: IF (l_return_status = fnd_api.g_ret_sts_success) THEN --{
12303:
12304: -- convert the qty from primary UOM to transaction UOM
12305: IF (l_debug = 1) THEN
12306: mydebug('before the vector string l_att_trx_qty: '||l_att_trx_qty);
12455: END IF;
12456: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
12457: fnd_message.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
12458: fnd_msg_pub.ADD;
12459: RAISE fnd_api.g_exc_error;
12460: END IF; --}
12461:
12462: EXIT WHEN p_is_lot_control ='false';
12463: END LOOP;
12564: -- Bug 4632519
12565: );
12566:
12567:
12568: IF x_return_status <> fnd_api.g_ret_sts_success THEN
12569: x_toLPN_status := 'F';
12570: IF (l_debug = 1) THEN
12571: mydebug('Validate_pick_to_lpn could not validate toLPNDefault:');
12572: END IF;
12569: x_toLPN_status := 'F';
12570: IF (l_debug = 1) THEN
12571: mydebug('Validate_pick_to_lpn could not validate toLPNDefault:');
12572: END IF;
12573: x_return_status := fnd_api.g_ret_sts_success;
12574: ELSE
12575: x_toLPN_status := 'T';
12576: IF (l_debug = 1) THEN
12577: mydebug('Validate_pick_to_lpn validated toLPNDefault:');
12579: END IF;
12580: END IF;
12581:
12582: EXCEPTION
12583: WHEN fnd_api.g_exc_error THEN
12584: IF (l_debug = 1) THEN
12585: mydebug('Exception raised');
12586: END IF;
12587:
12584: IF (l_debug = 1) THEN
12585: mydebug('Exception raised');
12586: END IF;
12587:
12588: x_return_status := fnd_api.g_ret_sts_error;
12589: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12590: WHEN OTHERS THEN
12591: IF (l_debug = 1) THEN
12592: mydebug('Other exception raised : ' || SQLERRM);
12591: IF (l_debug = 1) THEN
12592: mydebug('Other exception raised : ' || SQLERRM);
12593: END IF;
12594:
12595: x_return_status := fnd_api.g_ret_sts_unexp_error;
12596: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12597: END LOOSE_MATCH;
12598:
12599:
12657: IF (l_debug = 1) THEN
12658: mydebug('check_pack_lpn: check_pack_lpn begins');
12659: END IF;
12660:
12661: l_return_status := fnd_api.g_ret_sts_success;
12662:
12663: IF ((p_lpn IS NULL)
12664: OR(p_lpn = '')) THEN
12665: x_return_status := fnd_api.g_ret_sts_success;
12661: l_return_status := fnd_api.g_ret_sts_success;
12662:
12663: IF ((p_lpn IS NULL)
12664: OR(p_lpn = '')) THEN
12665: x_return_status := fnd_api.g_ret_sts_success;
12666: RETURN;
12667: END IF;
12668:
12669: BEGIN
12696: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_ORG');
12697: fnd_msg_pub.ADD;
12698:
12699:
12700: x_return_status := fnd_api.g_ret_sts_error;
12701: RETURN;
12702: END IF;
12703:
12704:
12741: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_CONTEXT');
12742: fnd_msg_pub.ADD;
12743:
12744:
12745: x_return_status := fnd_api.g_ret_sts_error;
12746: RETURN;
12747: END IF;
12748:
12749: ELSE -- Not Honor Case Pick
12765: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_CONTEXT');
12766: fnd_msg_pub.ADD;
12767:
12768:
12769: x_return_status := fnd_api.g_ret_sts_error;
12770: RETURN;
12771: END IF;
12772: END IF;
12773: END IF; --Bug7120019
12811: END IF;
12812: END LOOP;
12813: END IF;
12814:
12815: IF l_return_status = fnd_api.g_ret_sts_unexp_error
12816: OR l_return_status = fnd_api.g_ret_sts_error THEN
12817: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
12818: fnd_msg_pub.ADD;
12819: RAISE fnd_api.g_exc_unexpected_error;
12812: END LOOP;
12813: END IF;
12814:
12815: IF l_return_status = fnd_api.g_ret_sts_unexp_error
12816: OR l_return_status = fnd_api.g_ret_sts_error THEN
12817: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
12818: fnd_msg_pub.ADD;
12819: RAISE fnd_api.g_exc_unexpected_error;
12820: END IF;
12815: IF l_return_status = fnd_api.g_ret_sts_unexp_error
12816: OR l_return_status = fnd_api.g_ret_sts_error THEN
12817: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
12818: fnd_msg_pub.ADD;
12819: RAISE fnd_api.g_exc_unexpected_error;
12820: END IF;
12821:
12822: END IF;
12823:
12820: END IF;
12821:
12822: END IF;
12823:
12824: x_return_status := fnd_api.g_ret_sts_success;
12825:
12826: IF (l_debug = 1) THEN
12827: mydebug('check_pack_lpn: check_pack_lpn ends');
12828: END IF;
12826: IF (l_debug = 1) THEN
12827: mydebug('check_pack_lpn: check_pack_lpn ends');
12828: END IF;
12829: EXCEPTION
12830: WHEN fnd_api.g_exc_error THEN
12831: x_return_status := fnd_api.g_ret_sts_error;
12832: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12833: IF DBMS_SQL.IS_Open(l_cursorID) THEN
12834: DBMS_SQL.Close_Cursor(l_cursorID);
12827: mydebug('check_pack_lpn: check_pack_lpn ends');
12828: END IF;
12829: EXCEPTION
12830: WHEN fnd_api.g_exc_error THEN
12831: x_return_status := fnd_api.g_ret_sts_error;
12832: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12833: IF DBMS_SQL.IS_Open(l_cursorID) THEN
12834: DBMS_SQL.Close_Cursor(l_cursorID);
12835: END IF;
12833: IF DBMS_SQL.IS_Open(l_cursorID) THEN
12834: DBMS_SQL.Close_Cursor(l_cursorID);
12835: END IF;
12836: WHEN OTHERS THEN
12837: x_return_status := fnd_api.g_ret_sts_unexp_error;
12838: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12839: IF DBMS_SQL.IS_Open(l_cursorID) THEN
12840: DBMS_SQL.Close_Cursor(l_cursorID);
12841: END IF;
13061:
13062: --
13063: -- Standard call to check for call compatibility
13064: --
13065: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
13066: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
13067: fnd_msg_pub.ADD;
13068: RAISE fnd_api.g_exc_error;
13069: END IF;
13064: --
13065: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
13066: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
13067: fnd_msg_pub.ADD;
13068: RAISE fnd_api.g_exc_error;
13069: END IF;
13070:
13071: --
13072: -- Initialize message list.
13070:
13071: --
13072: -- Initialize message list.
13073: --
13074: IF fnd_api.to_boolean(p_init_msg_lst) THEN
13075: fnd_msg_pub.initialize;
13076: END IF;
13077:
13078: --
13077:
13078: --
13079: -- Initialize API return status to success
13080: --
13081: x_return_status := fnd_api.g_ret_sts_success;
13082:
13083: --
13084: -- Begin validation process:
13085: -- Check if drop lpn exists by trying to retrieve its lpn ID.
13108: , x_msg_count => x_msg_count
13109: , x_msg_data => x_msg_data
13110: );
13111:
13112: IF x_return_status = fnd_api.g_ret_sts_unexp_error
13113: OR x_return_status = fnd_api.g_ret_sts_error THEN
13114: RAISE fnd_api.g_exc_error;
13115: END IF;
13116: x_pick_to_lpn_id := pick_to_lpn_rec.lpn_id;
13109: , x_msg_data => x_msg_data
13110: );
13111:
13112: IF x_return_status = fnd_api.g_ret_sts_unexp_error
13113: OR x_return_status = fnd_api.g_ret_sts_error THEN
13114: RAISE fnd_api.g_exc_error;
13115: END IF;
13116: x_pick_to_lpn_id := pick_to_lpn_rec.lpn_id;
13117:
13110: );
13111:
13112: IF x_return_status = fnd_api.g_ret_sts_unexp_error
13113: OR x_return_status = fnd_api.g_ret_sts_error THEN
13114: RAISE fnd_api.g_exc_error;
13115: END IF;
13116: x_pick_to_lpn_id := pick_to_lpn_rec.lpn_id;
13117:
13118: IF (l_debug = 1) THEN
13169: l_IN_rec.action_code := 'UPDATE_NULL';
13170:
13171: WSH_WMS_LPN_GRP.Create_Update_Containers (
13172: p_api_version => 1.0
13173: , p_init_msg_list => fnd_api.g_false
13174: , p_commit => fnd_api.g_false
13175: , x_return_status => x_return_status
13176: , x_msg_count => x_msg_count
13177: , x_msg_data => x_msg_data
13170:
13171: WSH_WMS_LPN_GRP.Create_Update_Containers (
13172: p_api_version => 1.0
13173: , p_init_msg_list => fnd_api.g_false
13174: , p_commit => fnd_api.g_false
13175: , x_return_status => x_return_status
13176: , x_msg_count => x_msg_count
13177: , x_msg_data => x_msg_data
13178: , p_detail_info_tab => wsh_update_tbl
13178: , p_detail_info_tab => wsh_update_tbl
13179: , p_IN_rec => l_IN_rec
13180: , x_OUT_rec => l_OUT_rec );
13181:
13182: IF x_return_status = fnd_api.g_ret_sts_unexp_error
13183: OR x_return_status = fnd_api.g_ret_sts_error THEN
13184: RAISE fnd_api.g_exc_error;
13185: END IF;
13186: ELSE
13179: , p_IN_rec => l_IN_rec
13180: , x_OUT_rec => l_OUT_rec );
13181:
13182: IF x_return_status = fnd_api.g_ret_sts_unexp_error
13183: OR x_return_status = fnd_api.g_ret_sts_error THEN
13184: RAISE fnd_api.g_exc_error;
13185: END IF;
13186: ELSE
13187: fnd_message.set_name('WMS','WMS_INVALID_PACK_DELIVERY');
13180: , x_OUT_rec => l_OUT_rec );
13181:
13182: IF x_return_status = fnd_api.g_ret_sts_unexp_error
13183: OR x_return_status = fnd_api.g_ret_sts_error THEN
13184: RAISE fnd_api.g_exc_error;
13185: END IF;
13186: ELSE
13187: fnd_message.set_name('WMS','WMS_INVALID_PACK_DELIVERY');
13188: fnd_msg_pub.ADD;
13185: END IF;
13186: ELSE
13187: fnd_message.set_name('WMS','WMS_INVALID_PACK_DELIVERY');
13188: fnd_msg_pub.ADD;
13189: RAISE fnd_api.g_exc_error;
13190: END IF;
13191: END;
13192: CLOSE c_wdd_exists;
13193: END IF;
13224: -- error out and assuming it should exist
13225: -- tolpn doesn't existing or if existing, but has wrong context
13226: fnd_message.set_name('WMS', 'WMS_LPN_NOT_FOUND');
13227: fnd_msg_pub.ADD;
13228: RAISE fnd_api.g_exc_error;
13229: END;
13230: IF (l_debug = 1) THEN
13231: mydebug('l_container_item_id:'||l_container_item_id);
13232: END IF;
13236: END IF;
13237: fnd_message.set_name('WMS', 'WMS_LPN_NOT_LINKTO_CONT');
13238: fnd_message.set_token('LPN', p_pick_to_lpn );
13239: fnd_msg_pub.ADD;
13240: RAISE fnd_api.g_exc_error;
13241: ELSIF (l_container_item_id <> p_container_item_id) THEN
13242: IF (l_debug = 1) THEN
13243: mydebug('The container, with which LPN associated, is different from confirmed container');
13244: END IF;
13255: fnd_message.set_name('WMS', 'WMS_LPN_ASSOC_WITH_CONT');
13256: fnd_message.set_token('LPN', p_pick_to_lpn );
13257: fnd_message.set_token('CONTAINER', l_concatenated_segments);
13258: fnd_msg_pub.ADD;
13259: RAISE fnd_api.g_exc_error;
13260: END IF;
13261: ELSE
13262: IF (l_debug = 1) THEN
13263: mydebug('tolpn is not changed.');
13273: fnd_message.set_name('WMS', 'WMS_LPN_ASSOC_WITH_CONT');
13274: fnd_message.set_token('LPN', p_pick_to_lpn );
13275: fnd_message.set_token('CONTAINER', p_suggested_container_item );
13276: fnd_msg_pub.ADD;
13277: RAISE fnd_api.g_exc_error;
13278: END IF;
13279: END IF;
13280: END IF;
13281:
13329: x_return_status => x_return_status,
13330: p_trx_type_id => p_trx_type_id,
13331: p_trx_action_id => p_trx_action_id);
13332:
13333: IF x_return_status = fnd_api.g_ret_sts_unexp_error
13334: OR x_return_status = fnd_api.g_ret_sts_error THEN
13335: RAISE fnd_api.g_exc_error;
13336: END IF;
13337:
13330: p_trx_type_id => p_trx_type_id,
13331: p_trx_action_id => p_trx_action_id);
13332:
13333: IF x_return_status = fnd_api.g_ret_sts_unexp_error
13334: OR x_return_status = fnd_api.g_ret_sts_error THEN
13335: RAISE fnd_api.g_exc_error;
13336: END IF;
13337:
13338: IF l_commingle_exist = 'Y' THEN
13331: p_trx_action_id => p_trx_action_id);
13332:
13333: IF x_return_status = fnd_api.g_ret_sts_unexp_error
13334: OR x_return_status = fnd_api.g_ret_sts_error THEN
13335: RAISE fnd_api.g_exc_error;
13336: END IF;
13337:
13338: IF l_commingle_exist = 'Y' THEN
13339: IF (l_debug = 1) THEN
13340: mydebug('Cost group commigle exist.');
13341: END IF;
13342: fnd_message.set_name('WMS', 'WMS_CG_COMMINGLE');
13343: fnd_msg_pub.ADD;
13344: RAISE fnd_api.g_exc_error;
13345: ELSE
13346: IF (l_debug = 1) THEN
13347: mydebug('passed cost group commigle check.');
13348: END IF;
13394: and transaction_header_id <>l_transaction_header_id);
13395:
13396: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_NOT_NEW'); -- new message
13397: fnd_msg_pub.ADD;
13398: RAISE fnd_api.g_exc_error;
13399: EXCEPTION
13400: WHEN NO_DATA_FOUND THEN RETURN; -- this lpn is fine and no need to do all
13401: -- the following checks
13402: END;
13411: and transaction_temp_id = parent_line_id -- bulk task
13412: );
13413: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_BULK');
13414: fnd_msg_pub.ADD;
13415: RAISE fnd_api.g_exc_error;
13416: EXCEPTION
13417: WHEN NO_DATA_FOUND THEN null;
13418: END;
13419: END IF;
13471: END IF;
13472:
13473: fnd_message.set_name('WMS', 'WMS_LPN_FB_COMINGLE');
13474: fnd_msg_pub.ADD;
13475: RAISE fnd_api.g_exc_error;
13476: ELSIF l_mmtt_txn_type_id = 35
13477: OR l_mmtt_txn_type_id = 51 THEN -- Mfg pick
13478: IF l_mmtt_wip_entity_type <> l_wip_entity_type_in_lpn THEN
13479: IF (l_debug = 1) THEN
13481: mydebug('WIP entity type IS NOT the same AS that OF the old mmtt RECORD');
13482: END IF;
13483: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_MFG_MODE');
13484: fnd_msg_pub.ADD;
13485: RAISE fnd_api.g_exc_error;
13486: END IF;
13487: END IF;
13488: END IF;
13489: -- *********************End of bug fix 2078002,2095080 ********************
13552: END IF;
13553:
13554: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_SUBINV');
13555: fnd_msg_pub.ADD;
13556: RAISE fnd_api.g_exc_error;
13557: END IF;
13558: ELSE
13559: --
13560: -- Current temp ID has a NULL xfer sub (issue txn)
13593: END IF;
13594:
13595: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_SUBINV');
13596: fnd_msg_pub.ADD;
13597: RAISE fnd_api.g_exc_error;
13598: END IF;
13599: END IF;
13600:
13601: --Disallow mixed fulfillment base into same txfer LPN for multiUOM
13626: END IF;
13627:
13628: fnd_message.set_name('WMS', 'WMS_LPN_FB_COMINGLE');
13629: fnd_msg_pub.ADD;
13630: RAISE fnd_api.g_exc_error;
13631: END IF;
13632:
13633:
13634: --
13656: END IF;
13657:
13658: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_OPER_PLAN');
13659: fnd_msg_pub.ADD;
13660: RAISE fnd_api.g_exc_error;
13661: END IF;
13662:
13663:
13664: --
13706: END IF;
13707:
13708: fnd_message.set_name('WMS', 'WMS_NO_MOL');
13709: fnd_msg_pub.ADD;
13710: RAISE fnd_api.g_exc_error;
13711: END IF;
13712:
13713: IF l_current_carton_grouping_id IS NOT NULL THEN -- found carton_grouping_id
13714: OPEN others_carton_grouping_cursor(pick_to_lpn_rec.lpn_id);
13751: END IF;
13752:
13753: fnd_message.set_name('WMS', 'WMS_NO_WDD_WDA');
13754: fnd_msg_pub.ADD;
13755: RAISE fnd_api.g_exc_error;
13756: END IF;
13757:
13758: IF l_pick_to_lpn_delivery_id IS NULL THEN
13759: IF (l_debug = 1) THEN
13768: END IF;
13769:
13770: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
13771: fnd_msg_pub.ADD;
13772: RAISE fnd_api.g_exc_error;
13773: END IF;
13774: ELSE -- they have different carton_grouping_id
13775: --{
13776: IF (l_debug = 1) THEN
13808: p_line_rows => l_line_rows,
13809: x_grouping_rows => l_grouping_rows,
13810: x_return_status => l_return_status);
13811: --
13812: IF (l_return_status = FND_API.G_RET_STS_SUCCESS
13813: AND l_grouping_rows (1) = l_grouping_rows(2) ) THEN
13814: l_same_carton_grouping := TRUE;
13815: ELSE
13816: l_same_carton_grouping := FALSE;
13832: --
13833: IF (l_same_carton_grouping = FALSE) then
13834: fnd_message.set_name('WMS', 'WMS_DIFF_CARTON_GROUP');
13835: fnd_msg_pub.ADD;
13836: RAISE fnd_api.g_exc_error;
13837: END IF;
13838: --
13839: -- End : R12 bug 4454837.
13840: --} --end bug#10062741
13844: mydebug('validate_pick_to_lpn: some of tasks in lpn have NULL carton_grouping_id');
13845: END IF;
13846: fnd_message.set_name('WMS', 'WMS_CARTON_GROUP_NULL');
13847: fnd_msg_pub.ADD;
13848: RAISE fnd_api.g_exc_error;
13849: END IF;
13850: ELSE --carton_grouping_id is null
13851: IF (l_debug = 1) THEN
13852: mydebug('validate_pick_to_lpn: carton_grouping_id of current task is null');
13854: --bug3481923 only fail if it is not requisition on repl mo
13855: if (l_mmtt_mo_type not in(1,2)) then
13856: fnd_message.set_name('WMS', 'WMS_CARTON_GROUP_NULL');
13857: fnd_msg_pub.ADD;
13858: RAISE fnd_api.g_exc_error;
13859: end if;
13860: END IF;
13861: END IF;
13862:
13887: END IF;
13888:
13889: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
13890: fnd_msg_pub.ADD;
13891: RAISE fnd_api.g_exc_error;
13892: END IF;
13893: ELSIF l_pick_to_lpn_delivery_id2 IS NULL THEN
13894: IF (l_debug = 1) THEN
13895: mydebug('validate_pick_to_lpn: Picked LPN does not have deliveries.');
13902: END IF;
13903:
13904: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
13905: fnd_msg_pub.ADD;
13906: RAISE fnd_api.g_exc_error;
13907: END IF;
13908: ELSIF l_pick_to_lpn_delivery_id2 = -999 THEN
13909: IF (l_debug = 1) THEN
13910: mydebug('validate_pick_to_lpn: LPN does not contain other tasks. This is the first task, so ok.');
13936: END IF;
13937:
13938: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
13939: fnd_msg_pub.ADD;
13940: RAISE fnd_api.g_exc_error;
13941: NULL;
13942: ELSE
13943: --
13944: -- Picked LPN and current MMTT are on the same delivery
13984: END IF;
13985:
13986: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
13987: fnd_msg_pub.ADD;
13988: RAISE fnd_api.g_exc_error;
13989: ELSE
13990: --
13991: -- Child LPN has the delivery as the current MMTT, return success
13992: --
14032: EXIT WHEN mtl_project_task_cursor%NOTFOUND;
14033: -- project and task both should be the same as
14034: IF ((mtl_pjm_prj_tsk_rec.prj_id <> lpn_pjm_prj_tsk_rec.prj_id)
14035: OR (mtl_pjm_prj_tsk_rec.tsk_id <> lpn_pjm_prj_tsk_rec.tsk_id)) THEN
14036: RAISE fnd_api.g_exc_error;
14037: END IF;
14038: END LOOP;
14039:
14040: CLOSE mtl_project_task_cursor;
14042:
14043: CLOSE lpn_project_task_cursor;
14044: END IF;
14045: EXCEPTION
14046: WHEN fnd_api.g_exc_error THEN
14047: x_return_status := fnd_api.g_ret_sts_error;
14048: -- Get message count and data
14049: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14050:
14043: CLOSE lpn_project_task_cursor;
14044: END IF;
14045: EXCEPTION
14046: WHEN fnd_api.g_exc_error THEN
14047: x_return_status := fnd_api.g_ret_sts_error;
14048: -- Get message count and data
14049: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14050:
14051: IF (l_debug = 1) THEN
14083: IF others_carton_grouping_cursor%ISOPEN THEN
14084: CLOSE others_carton_grouping_cursor;
14085: END IF;
14086: WHEN OTHERS THEN
14087: x_return_status := fnd_api.g_ret_sts_unexp_error;
14088:
14089: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14090: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
14091: END IF;
14149: IF (l_debug = 1) THEN
14150: mydebug('validate_sub_loc_status: validate_sub_loc_status begins');
14151: END IF;
14152:
14153: x_return_status := fnd_api.g_ret_sts_success;
14154:
14155: SELECT mmtt.transaction_type_id
14156: , mmtt.organization_id
14157: , mmtt.inventory_item_id
14205: IF (l_debug = 1) THEN
14206: mydebug('validate_sub_loc_status: End of validate_sub_loc_status');
14207: END IF;
14208: EXCEPTION
14209: WHEN fnd_api.g_exc_error THEN
14210: x_return_status := fnd_api.g_ret_sts_error;
14211:
14212: IF (l_debug = 1) THEN
14213: mydebug('validate_sub_loc_status: Error - ' || SQLERRM);
14206: mydebug('validate_sub_loc_status: End of validate_sub_loc_status');
14207: END IF;
14208: EXCEPTION
14209: WHEN fnd_api.g_exc_error THEN
14210: x_return_status := fnd_api.g_ret_sts_error;
14211:
14212: IF (l_debug = 1) THEN
14213: mydebug('validate_sub_loc_status: Error - ' || SQLERRM);
14214: END IF;
14214: END IF;
14215:
14216: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14217: WHEN OTHERS THEN
14218: x_return_status := fnd_api.g_ret_sts_unexp_error;
14219:
14220: IF (l_debug = 1) THEN
14221: mydebug('validate_sub_loc_status: Unexpected Error - ' || SQLERRM);
14222: END IF;
14249: l_count NUMBER := 0;
14250: l_temp_qty NUMBER :=0 ;
14251: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
14252: BEGIN
14253: x_return_status := fnd_api.g_ret_sts_success;
14254: l_progress := '10';
14255: IF (l_debug = 1) THEN
14256: mydebug('Enter insert_serial: 10:'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
14257: END IF;
14280:
14281: IF l_count <> 0 THEN
14282: fnd_message.set_name('INV', 'INVALID_SERIAL_NUMBER');
14283: fnd_msg_pub.ADD;
14284: RAISE fnd_api.g_exc_error;
14285: END IF;
14286:
14287: l_progress := '30';
14288:
14350: END IF;
14351:
14352: -- if the trx manager returned a 1 then it could not insert the row
14353: IF l_return = 1 THEN
14354: RAISE fnd_api.g_exc_error;
14355: END IF;
14356:
14357: l_progress := '80';
14358: IF (l_debug = 1) THEN
14361:
14362: commit;
14363:
14364: EXCEPTION
14365: WHEN fnd_api.g_exc_error THEN
14366: --ROLLBACK TO rcv_insert_serial_sp;
14367: ROLLBACK;
14368: x_return_status := fnd_api.g_ret_sts_error;
14369: IF (l_debug = 1) THEN
14364: EXCEPTION
14365: WHEN fnd_api.g_exc_error THEN
14366: --ROLLBACK TO rcv_insert_serial_sp;
14367: ROLLBACK;
14368: x_return_status := fnd_api.g_ret_sts_error;
14369: IF (l_debug = 1) THEN
14370: mydebug('Exitting insert_serial - execution error:'|| l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
14371: END IF;
14372: -- Get message count and data
14369: IF (l_debug = 1) THEN
14370: mydebug('Exitting insert_serial - execution error:'|| l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
14371: END IF;
14372: -- Get message count and data
14373: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
14374: WHEN OTHERS THEN
14375: x_return_status := fnd_api.g_ret_sts_unexp_error;
14376:
14377: IF SQLCODE IS NOT NULL THEN
14371: END IF;
14372: -- Get message count and data
14373: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
14374: WHEN OTHERS THEN
14375: x_return_status := fnd_api.g_ret_sts_unexp_error;
14376:
14377: IF SQLCODE IS NOT NULL THEN
14378: inv_mobile_helper_functions.sql_error('wms_task_load.insert_serial', l_progress, SQLCODE);
14379: END IF;
14435: mydebug('p_trx_souce_type_id' ||p_trx_type_id);
14436: mydebug('p_trx_action_id ' || p_trx_action_id);
14437: END IF;
14438:
14439: x_return_status := fnd_api.g_ret_sts_success;
14440: x_commingle_exist := 'N';
14441:
14442: IF p_lot_control = 1 THEN
14443: select mmtt.subinventory_code,
14520: p_is_backflush_txn => l_is_bf,
14521: x_cost_group_id => l_cur_cost_group_id,
14522: x_return_status => x_return_status);
14523:
14524: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14525: RAISE fnd_api.g_exc_unexpected_error;
14526: END IF;
14527:
14528: if (l_transaction_type_id=51) then
14521: x_cost_group_id => l_cur_cost_group_id,
14522: x_return_status => x_return_status);
14523:
14524: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14525: RAISE fnd_api.g_exc_unexpected_error;
14526: END IF;
14527:
14528: if (l_transaction_type_id=51) then
14529: l_is_bf := true;
14542: p_is_backflush_txn => l_is_bf,
14543: x_cost_group_id => l_exist_cost_group_id,
14544: x_return_status => x_return_status);
14545:
14546: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14547: RAISE fnd_api.g_exc_unexpected_error;
14548: END IF;
14549:
14550: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
14543: x_cost_group_id => l_exist_cost_group_id,
14544: x_return_status => x_return_status);
14545:
14546: IF x_return_status <> fnd_api.g_ret_sts_success THEN
14547: RAISE fnd_api.g_exc_unexpected_error;
14548: END IF;
14549:
14550: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
14551: x_return_status := fnd_api.g_ret_sts_success;
14547: RAISE fnd_api.g_exc_unexpected_error;
14548: END IF;
14549:
14550: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
14551: x_return_status := fnd_api.g_ret_sts_success;
14552: x_commingle_exist := 'Y';
14553: END IF;
14554: --
14555: -- Bug 4632519
14558: WHEN NO_DATA_FOUND THEN
14559: IF (l_debug = 1) THEN
14560: mydebug('First record being loaded into LPN');
14561: END IF;
14562: x_return_status := fnd_api.g_ret_sts_success;
14563: x_commingle_exist := 'N';
14564: WHEN OTHERS THEN
14565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14566: x_commingle_exist := 'Y';
14561: END IF;
14562: x_return_status := fnd_api.g_ret_sts_success;
14563: x_commingle_exist := 'N';
14564: WHEN OTHERS THEN
14565: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
14566: x_commingle_exist := 'Y';
14567: END validate_loaded_lpn_cg;
14568:
14569: --/* Bug 9448490 Lot Substitution Project */ start
14578: , p_organization_id IN NUMBER
14579: , x_return_status OUT NOCOPY VARCHAR2) IS
14580:
14581: BEGIN
14582: x_return_status := fnd_api.g_ret_sts_success;
14583: mydebug(' Inside insert mtlt' );
14584: INSERT INTO mtl_transaction_lots_temp
14585: (
14586: transaction_temp_id
14898: ORDER BY lot_number;
14899: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
14900:
14901: BEGIN
14902: x_return_status := fnd_api.g_ret_sts_success;
14903: t_lpn_lot_qty_table.DELETE;
14904:
14905: SELECT primary_uom_code
14906: , lot_control_code
14928: IF inv_cache.set_mtt_rec(p_transaction_type_id) THEN
14929: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
14930: l_txn_source_type_id := inv_cache.mtt_rec.transaction_source_type_id;
14931: ELSE
14932: RAISE fnd_api.g_exc_unexpected_error;
14933: END IF;
14934:
14935: IF(l_debug=1) THEN
14936: inv_log_util.trace( 'Value of p_transaction_type_id : ' ||p_transaction_type_id, 'Inside check_exp_lot_txn_allowed ', 9);
14961: END IF;
14962:
14963: inv_quantity_tree_pub.query_quantities(
14964: p_api_version_number => 1.0
14965: , p_init_msg_lst => fnd_api.g_false
14966: , x_return_status => l_return_status
14967: , x_msg_count => l_msg_cnt
14968: , x_msg_data => l_msg_data
14969: , p_organization_id => p_org_id
14986: , p_lpn_id => p_fromlpn_id
14987: , p_transfer_subinventory_code => l_xfr_sub_code
14988: );
14989:
14990: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
14991: IF (l_att > 0) THEN
14992: l_table_index := l_table_index + 1;
14993: IF (l_debug = 1) THEN
14994: mydebug('Unallocated l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
15044: END IF;
15045:
15046: inv_quantity_tree_pub.query_quantities(
15047: p_api_version_number => 1.0
15048: , p_init_msg_lst => fnd_api.g_false
15049: , x_return_status => l_return_status
15050: , x_msg_count => l_msg_cnt
15051: , x_msg_data => l_msg_data
15052: , p_organization_id => p_org_id
15073: IF (l_debug = 1) THEN
15074: mydebug('Unallocated l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
15075: mydebug('Unallocated l_qoh:' || l_qoh || ' for lot:' || l_mtlt_lot_number);
15076: END IF;
15077: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
15078: IF (l_att > 0) THEN
15079: l_table_index := l_table_index + 1;
15080: IF l_att < l_qoh THEN
15081: l_check_tolerance := false;
15195: END IF;
15196: END;
15197: --Changes ending here for Bug 14003388
15198:
15199: x_return_status := fnd_api.g_ret_sts_success;
15200:
15201: EXCEPTION
15202: WHEN OTHERS THEN
15203: IF (l_debug = 1) THEN
15202: WHEN OTHERS THEN
15203: IF (l_debug = 1) THEN
15204: mydebug('Other exception raised : ' || SQLERRM);
15205: END IF;
15206: x_return_status := fnd_api.g_ret_sts_unexp_error;
15207: END populate_lot_lov;
15208:
15209: PROCEDURE proc_decrement_allocated_mtlts
15210: (p_temp_id IN NUMBER
15549: l_serial_cnt := l_serial_cnt + 1;
15550:
15551: IF l_ser_return_status <> l_g_ret_sts_success
15552: THEN
15553: x_return_status := fnd_api.g_ret_sts_error;
15554: x_msg := 'Error while calling insert_serial';
15555:
15556: mydebug ('insert_serials_temp: Error while calling insert_serial');
15557: mydebug ('insert_serials_temp: l_ser_return_status ' || l_ser_return_status);
15556: mydebug ('insert_serials_temp: Error while calling insert_serial');
15557: mydebug ('insert_serials_temp: l_ser_return_status ' || l_ser_return_status);
15558: mydebug ('insert_serials_temp: l_ser_msg ' || l_ser_msg);
15559:
15560: RAISE fnd_api.g_exc_unexpected_error;
15561: END IF;
15562: END LOOP;
15563: END LOOP;
15564:
15563: END LOOP;
15564:
15565: IF l_serial_cnt <> p_confirmed_trx_qty
15566: THEN
15567: x_return_status := fnd_api.g_ret_sts_error;
15568: x_msg := 'The total qty does not match the number of serials';
15569:
15570: mydebug ('insert_serials_temp: p_confirmed_trx_qty ' || p_confirmed_trx_qty);
15571: mydebug ('insert_serials_temp: l_serial_cnt ' || l_serial_cnt);
15569:
15570: mydebug ('insert_serials_temp: p_confirmed_trx_qty ' || p_confirmed_trx_qty);
15571: mydebug ('insert_serials_temp: l_serial_cnt ' || l_serial_cnt);
15572:
15573: RAISE fnd_api.g_exc_unexpected_error;
15574: END IF;
15575: END insert_serials_temp;
15576:
15577: FUNCTION lpn_has_unalloc_lots (
15627: p_api_name VARCHAR2(50) := 'Cleanup_LS_FlexiAlloc';
15628: l_progress NUMBER;
15629:
15630: BEGIN
15631: x_return_status := fnd_api.g_ret_sts_success;
15632:
15633: mydebug (p_api_name||' Starting to revert Picked Lots and Serials');
15634:
15635: IF (p_serial_controlled = 'Y') THEN
15714: FND_MESSAGE.SET_NAME('INV','ITEM_NOT_FOUND');
15715: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_org_id);
15716: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
15717: FND_MSG_PUB.ADD;
15718: RAISE FND_API.G_EXC_ERROR;
15719: END IF;
15720:
15721: CLOSE get_item_details;
15722: x_lot_divisible_flag := l_lot_divisible_flag;
15721: CLOSE get_item_details;
15722: x_lot_divisible_flag := l_lot_divisible_flag;
15723:
15724: EXCEPTION
15725: WHEN FND_API.G_EXC_ERROR THEN
15726: mydebug('item_lot_divisible_flag: FND_API.G_EXC_ERROR ');
15727: x_lot_divisible_flag := 'N';
15728: END item_lot_divisible_flag;
15729:
15722: x_lot_divisible_flag := l_lot_divisible_flag;
15723:
15724: EXCEPTION
15725: WHEN FND_API.G_EXC_ERROR THEN
15726: mydebug('item_lot_divisible_flag: FND_API.G_EXC_ERROR ');
15727: x_lot_divisible_flag := 'N';
15728: END item_lot_divisible_flag;
15729:
15730: --16267113
15792:
15793: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
15794:
15795: BEGIN
15796: x_return_status := fnd_api.g_ret_sts_success;
15797: t_lpn_lot_qty_table.DELETE;
15798:
15799: IF p_rev IS NULL THEN
15800: b_is_revision_control := FALSE;
15924: IF inv_cache.set_mtt_rec(p_transaction_type_id) THEN
15925: l_transaction_action_id := inv_cache.mtt_rec.transaction_action_id;
15926: l_txn_source_type_id := inv_cache.mtt_rec.transaction_source_type_id;
15927: ELSE
15928: RAISE fnd_api.g_exc_unexpected_error;
15929: END IF;
15930:
15931: IF(l_debug=1) THEN
15932: inv_log_util.trace( 'Value of p_transaction_type_id : ' ||p_transaction_type_id, 'Inside Update_Tree_Flex_Lot ', 9);
15957: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
15958: -- in order to get correct att.
15959: inv_quantity_tree_pub.update_quantities(
15960: p_api_version_number => 1.0
15961: , p_init_msg_lst => fnd_api.g_false
15962: , x_return_status => l_return_status
15963: , x_msg_count => l_msg_cnt
15964: , x_msg_data => l_msg_data
15965: , p_organization_id => p_org_id
15989: , x_satr => l_satr
15990: , p_lpn_id => p_fromlpn_id
15991: );
15992:
15993: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
15994: IF (l_debug = 1) THEN
15995: mydebug('update qty tree for FlexiLotAlloc lpn l_att:' || l_att || ' at Locator Level');
15996: mydebug('update qty tree for FlexiLotAlloc lpn l_satt:' || l_satt || ' at Locator Level');
15997: END IF;
16002:
16003: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
16004: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
16005: fnd_msg_pub.ADD;
16006: RAISE fnd_api.g_exc_error;
16007: END IF;
16008:
16009: ELSIF ( Nvl(l_lpn_sub, p_confirmed_sub) = l_mmtt_sub AND Nvl(l_lpn_loc, p_confirmed_loc_id) = l_mmtt_loc ) THEN
16010: inv_quantity_tree_pub.update_quantities(
16008:
16009: ELSIF ( Nvl(l_lpn_sub, p_confirmed_sub) = l_mmtt_sub AND Nvl(l_lpn_loc, p_confirmed_loc_id) = l_mmtt_loc ) THEN
16010: inv_quantity_tree_pub.update_quantities(
16011: p_api_version_number => 1.0
16012: , p_init_msg_lst => fnd_api.g_false
16013: , x_return_status => l_return_status
16014: , x_msg_count => l_msg_cnt
16015: , x_msg_data => l_msg_data
16016: , p_organization_id => p_org_id
16039: , x_satt => l_satt
16040: , x_satr => l_satr
16041: );
16042:
16043: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
16044: IF (l_debug = 1) THEN
16045: mydebug('after update without lpn for FlexiLotAlloc l_att:' || l_att || ' at Locator Level');
16046: mydebug('after update without lpn for FlexiLotAlloc l_satt:' || l_satt || ' at Locator Level');
16047: END IF;
16052:
16053: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
16054: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
16055: fnd_msg_pub.ADD;
16056: RAISE fnd_api.g_exc_error;
16057: END IF;
16058: END IF;
16059: END IF;
16060:
16059: END IF;
16060:
16061: inv_quantity_tree_pub.query_quantities(
16062: p_api_version_number => 1.0
16063: , p_init_msg_lst => fnd_api.g_false
16064: , x_return_status => l_return_status
16065: , x_msg_count => l_msg_cnt
16066: , x_msg_data => l_msg_data
16067: , p_organization_id => p_org_id
16090: , p_lpn_id => p_fromlpn_id
16091: , p_grade_code => NULL
16092: );
16093:
16094: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
16095: IF (((NVL(p_fulfillment_base,'P') = 'P') AND l_att > 0) OR ((NVL(p_fulfillment_base,'P') = 'S' )AND l_satt > 0)) THEN
16096: l_table_index := l_table_index + 1;
16097: IF (l_debug = 1) THEN
16098: mydebug('FlexiLotAlloc l_att:' || l_att || ' for lot:' || p_lot);
16204: mydebug('x_lpn_lot_vector string trim had issues: '||LENGTH(x_lpn_lot_vector));
16205: END IF;
16206: END;
16207:
16208: x_return_status := fnd_api.g_ret_sts_success;
16209:
16210: EXCEPTION
16211: WHEN OTHERS THEN
16212: IF (l_debug = 1) THEN
16211: WHEN OTHERS THEN
16212: IF (l_debug = 1) THEN
16213: mydebug('Other exception raised : ' || SQLERRM);
16214: END IF;
16215: x_return_status := fnd_api.g_ret_sts_unexp_error;
16216:
16217: END Update_Tree_Flex_Lot;
16218:
16219: