[Home] [Help]
2: /* $Header: WMSLOADB.pls 120.20.12010000.13 2009/01/21 15:23:46 kjujjuru 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;
445: fnd_message.set_token('ROUTINE', ' - proc_parse_lot_serial_catchwt API ' );
446: mydebug('Error parsing lot/serial/catch weight string' );
447: -- "Error reserving Serial Number/s"
448: fnd_msg_pub.ADD;
449: RAISE fnd_api.g_exc_error;
450: END IF;
451:
452: IF p_lot_controlled = 'Y' AND p_serial_controlled <> 'Y' THEN -- Lot Controlled only
453: IF (l_debug = 1) THEN
639: x_msg_data => x_msg_data);
640:
641: mydebug('x_return_status : ' || x_return_status);
642: IF x_return_status <> l_g_ret_sts_success THEN
643: RAISE fnd_api.g_exc_error;
644: END IF;
645:
646: END IF; -- row exists
647:
1037: x_msg_data => x_msg_data);
1038:
1039: mydebug('Return status from insert MTLT : ' || x_return_status, 'WMS_TASK_LOAD.UPDATE_LOADED_PART');
1040: IF x_return_status <> l_g_ret_sts_success THEN
1041: RAISE fnd_api.g_exc_error;
1042: END IF;
1043:
1044: END IF; -- row exists
1045:
1089: last_updated_by = p_user_id
1090: WHERE transaction_temp_id = p_transaction_temp_id2;
1091:
1092: EXCEPTION
1093: WHEN fnd_api.g_exc_error THEN
1094: x_return_status := l_g_ret_sts_error;
1095: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1096:
1097: IF (l_debug = 1) THEN
1270: x_msg_data => x_msg_data);
1271:
1272: mydebug('x_return_status : ' || x_return_status);
1273: IF x_return_status <> l_g_ret_sts_success THEN
1274: RAISE fnd_api.g_exc_error;
1275: END IF;
1276:
1277: ELSE
1278: l_progress := '200';
1286: THEN
1287: --fnd_message.set_name('WMS', 'WMS_CANCELLED_SOURCE');
1288: -- Source of the task is cancelled by source.. F2 to rollback
1289: --fnd_msg_pub.ADD;
1290: RAISE fnd_api.g_exc_error;
1291: END IF;
1292: END IF;
1293:
1294:
1321: mydebug ('Cannot find LPNs to update the context' );
1322: fnd_message.set_name('WMS', 'WMS_WRONG_FROM_LPN_CONTEXT');
1323: -- FROM LPN Context is not valid '
1324: fnd_msg_pub.ADD;
1325: RAISE fnd_api.g_exc_error;
1326:
1327: END IF;
1328: EXCEPTION
1329: WHEN OTHERS THEN
1327: END IF;
1328: EXCEPTION
1329: WHEN OTHERS THEN
1330: mydebug ('Others exception while updating From LPN context: ' || SQLCODE);
1331: RAISE fnd_api.g_exc_error;
1332: END ;
1333: END IF;
1334: END IF;
1335: l_progress := '300';
1358: fnd_message.set_name('WMS', 'WMS_WRONG_TO_LPN_CONTEXT');
1359: -- To LPN Context is not valid
1360: fnd_msg_pub.ADD;
1361:
1362: RAISE fnd_api.g_exc_error;
1363: END IF;
1364: EXCEPTION
1365: WHEN OTHERS THEN
1366: mydebug ('Others exception while updating To LPN context: ' || SQLCODE);
1363: END IF;
1364: EXCEPTION
1365: WHEN OTHERS THEN
1366: mydebug ('Others exception while updating To LPN context: ' || SQLCODE);
1367: RAISE fnd_api.g_exc_error;
1368: END ;
1369: END IF;
1370: -- Find a matching MMTT within the given header_id only if
1371: -- p_action = LOAD_MULTIPLE. for LOAD_SINGLE, we need not try to find
1455: ,x_msg_count => x_msg_count
1456: ,x_msg_data => x_msg_data);
1457: IF x_return_status <> l_g_ret_sts_success THEN
1458: mydebug('x_return_status : ' || x_return_status);
1459: RAISE fnd_api.G_EXC_ERROR;
1460: END IF;
1461: x_new_transaction_temp_id := l_new_transaction_temp_id;
1462: mydebug('x_new_transaction_temp_id : ' || x_new_transaction_temp_id);
1463:
1486: ,x_msg_data => x_msg_data);
1487:
1488: IF x_return_status <> l_g_ret_sts_success THEN
1489: --x_return_status := l_g_ret_sts_success;
1490: RAISE fnd_api.G_EXC_ERROR;
1491: END IF;
1492: END IF;
1493:
1494: l_progress := 'END';
1495: mydebug('COmmit ' );
1496: COMMIT;
1497: mydebug('End .. ' || l_proc_name);
1498: EXCEPTION
1499: WHEN fnd_api.g_exc_error THEN
1500: x_return_status := l_g_ret_sts_error;
1501: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1502: mydebug('ROLLBACK ' );
1503: ROLLBACK ;
1501: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1502: mydebug('ROLLBACK ' );
1503: ROLLBACK ;
1504: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1505: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1506: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1507: WHEN fnd_api.g_exc_unexpected_error THEN
1508: x_return_status := fnd_api.g_ret_sts_unexp_error;
1509: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1503: ROLLBACK ;
1504: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1505: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1506: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1507: WHEN fnd_api.g_exc_unexpected_error THEN
1508: x_return_status := fnd_api.g_ret_sts_unexp_error;
1509: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1510: mydebug('ROLLBACK ' );
1511: ROLLBACK ;
1504: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1505: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1506: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1507: WHEN fnd_api.g_exc_unexpected_error THEN
1508: x_return_status := fnd_api.g_ret_sts_unexp_error;
1509: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1510: mydebug('ROLLBACK ' );
1511: ROLLBACK ;
1512: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1509: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1510: mydebug('ROLLBACK ' );
1511: ROLLBACK ;
1512: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1513: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
1514: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1515: WHEN OTHERS THEN
1516: x_return_status := l_g_ret_sts_unexp_error;
1517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1518: mydebug('ROLLBACK ' );
1519: ROLLBACK ;
1520: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1521: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1522: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1523:
1524: END task_merge_split;
1525:
1656: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1657: -- Internal Error $ROUTINE
1658: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1659: fnd_msg_pub.ADD;
1660: RAISE fnd_api.G_EXC_ERROR;
1661: END IF;
1662: ELSE
1663: l_progress := '200';
1664: mydebug ('l_progress: ' || l_progress );
1682: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1683: -- Internal Error $ROUTINE
1684: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1685: fnd_msg_pub.ADD;
1686: RAISE fnd_api.G_EXC_ERROR;
1687: END IF;
1688: IF p_update = 'Y2' AND p_action = l_g_action_load_multiple THEN
1689: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1690: fnd_msg_pub.ADD;
1698: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
1699: -- Internal Error $ROUTINE
1700: fnd_message.set_token('ROUTINE', '- proc_insert_update_task' );
1701: fnd_msg_pub.ADD;
1702: RAISE fnd_api.G_EXC_ERROR;
1703: END IF;
1704: END IF;
1705:
1706: END IF;
1706: END IF;
1707:
1708: mydebug('End .. ' || l_proc_name);
1709: EXCEPTION
1710: WHEN fnd_api.g_exc_error THEN
1711: x_return_status := l_g_ret_sts_error;
1712: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1713: mydebug('ROLLBACK ' );
1714: ROLLBACK ;
1712: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1713: mydebug('ROLLBACK ' );
1714: ROLLBACK ;
1715: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1716: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1717: WHEN fnd_api.g_exc_unexpected_error THEN
1718: x_return_status := fnd_api.g_ret_sts_unexp_error;
1719: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1720: mydebug('ROLLBACK ' );
1713: mydebug('ROLLBACK ' );
1714: ROLLBACK ;
1715: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1716: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1717: WHEN fnd_api.g_exc_unexpected_error THEN
1718: x_return_status := fnd_api.g_ret_sts_unexp_error;
1719: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1720: mydebug('ROLLBACK ' );
1721: ROLLBACK ;
1714: ROLLBACK ;
1715: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1716: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1717: WHEN fnd_api.g_exc_unexpected_error THEN
1718: x_return_status := fnd_api.g_ret_sts_unexp_error;
1719: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1720: mydebug('ROLLBACK ' );
1721: ROLLBACK ;
1722: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1719: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1720: mydebug('ROLLBACK ' );
1721: ROLLBACK ;
1722: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1723: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
1724: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
1725: WHEN OTHERS THEN
1726: x_return_status := l_g_ret_sts_unexp_error;
1727: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1727: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1728: mydebug('ROLLBACK ' );
1729: ROLLBACK ;
1730: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
1731: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
1732:
1733: END proc_insert_update_task;
1734:
1735: PROCEDURE proc_insert_update_mmtt
2361: mydebug (' p_transaction_temp_id: NOT found : ' || p_transaction_temp_id);
2362: fnd_message.set_name('WMS', 'WMS_INSERT_ALLOCATION'); -- NEWMSG
2363: -- "Error Inserting Allocation ."
2364: fnd_msg_pub.ADD;
2365: RAISE fnd_api.G_EXC_ERROR;
2366: END IF;
2367: l_progress := '120';
2368: mydebug ('l_progress: ' || l_progress );
2369: END IF ; -- insert MMTT only if p_insert = 'Y'
2395: -- Internal Error $ROUTINE
2396: fnd_message.set_token('ROUTINE', ' - proc_parse_lot_serial_catchwt API ' );
2397: mydebug('Error parsing lot/serial/catch weight string' );
2398: -- "Error reserving Serial Number/s"
2399: RAISE fnd_api.G_EXC_ERROR;
2400: END IF;
2401: END IF;
2402:
2403: -- ****Lot only Controlled items OR
2439: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
2440: -- Internal Error $ROUTINE
2441: fnd_message.set_token('ROUTINE', '- proc_process_confirmed_lots API' );
2442: fnd_msg_pub.ADD;
2443: RAISE fnd_api.g_exc_error;
2444: END IF;
2445: mydebug ('Return from proc_process_confirmed_lots ' );
2446: END IF;
2447: l_progress := '150';
2483: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
2484: -- Internal Error $ROUTINE
2485: fnd_message.set_token('ROUTINE', '- proc_process_confirmed_serials API' );
2486: fnd_msg_pub.ADD;
2487: RAISE fnd_api.g_exc_error;
2488: END IF;
2489: l_progress := '330';
2490: mydebug ('l_progress: ' || l_progress );
2491: END IF;
2526: WHERE transaction_temp_id = p_transaction_temp_id;
2527: END IF;
2528:
2529: IF SQL%NOTFOUND THEN
2530: RAISE fnd_api.G_EXC_ERROR;
2531: END IF;
2532: ELSE -- LOAD
2533: l_progress := '200';
2534: mydebug('l_progress : ' || l_progress);
2555: , wms_task_status = p_wms_task_status -- Bug4185621: update mmtt task status to loaded
2556: WHERE transaction_temp_id = p_transaction_temp_id;
2557:
2558: IF SQL%NOTFOUND THEN
2559: RAISE fnd_api.G_EXC_ERROR;
2560: END IF;
2561: END IF;
2562: END IF;
2563:
2575: , last_update_date = SYSDATE
2576: , last_updated_by = p_user_id
2577: WHERE transaction_temp_id = p_transaction_temp_id_to_merge;
2578: IF SQL%NOTFOUND THEN
2579: RAISE fnd_api.G_EXC_ERROR;
2580: END IF;
2581: IF p_action = l_g_action_load_multiple THEN
2582: l_progress := '190'; -- Delete the original MMTT, if merging into another MMTT
2583: mydebug ('l_progress ' || l_progress);
2583: mydebug ('l_progress ' || l_progress);
2584: DELETE mtl_material_transactions_temp
2585: WHERE transaction_temp_id = p_transaction_temp_id;
2586: IF SQL%NOTFOUND THEN
2587: RAISE fnd_api.G_EXC_ERROR;
2588: END IF;
2589: ELSE -- 'SPLIT'
2590: l_progress := '200';
2591: mydebug('l_progress : ' || l_progress);
2597: , last_updated_by = p_user_id
2598: WHERE transaction_temp_id = p_transaction_temp_id;
2599:
2600: IF SQL%NOTFOUND THEN
2601: RAISE fnd_api.G_EXC_ERROR;
2602: END IF;
2603: END IF;
2604: END IF;
2605: mydebug ('End of :' || l_proc_name);
2604: END IF;
2605: mydebug ('End of :' || l_proc_name);
2606:
2607: EXCEPTION
2608: WHEN fnd_api.g_exc_error THEN
2609: x_return_status := l_g_ret_sts_error;
2610: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2611: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
2612: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
2608: WHEN fnd_api.g_exc_error THEN
2609: x_return_status := l_g_ret_sts_error;
2610: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2611: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
2612: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
2613: mydebug('ROLLBACK ' );
2614: ROLLBACK ;
2615: WHEN fnd_api.g_exc_unexpected_error THEN
2616: x_return_status := fnd_api.g_ret_sts_unexp_error;
2611: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
2612: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
2613: mydebug('ROLLBACK ' );
2614: ROLLBACK ;
2615: WHEN fnd_api.g_exc_unexpected_error THEN
2616: x_return_status := fnd_api.g_ret_sts_unexp_error;
2617: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2618: mydebug('ROLLBACK ' );
2619: ROLLBACK ;
2612: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
2613: mydebug('ROLLBACK ' );
2614: ROLLBACK ;
2615: WHEN fnd_api.g_exc_unexpected_error THEN
2616: x_return_status := fnd_api.g_ret_sts_unexp_error;
2617: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2618: mydebug('ROLLBACK ' );
2619: ROLLBACK ;
2620: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
2617: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2618: mydebug('ROLLBACK ' );
2619: ROLLBACK ;
2620: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
2621: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
2622: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
2623: WHEN OTHERS THEN
2624: x_return_status := l_g_ret_sts_unexp_error;
2625: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2623: WHEN OTHERS THEN
2624: x_return_status := l_g_ret_sts_unexp_error;
2625: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2626: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
2627: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
2628: mydebug('ROLLBACK ' );
2629: ROLLBACK ;
2630: END proc_insert_update_mmtt;
2631:
2779: IF l_rec_mtlt_to_copy_from.transaction_temp_id IS NULL
2780: THEN
2781: l_progress := '170';
2782: -- lot record attached to the original MMTT should have been found
2783: RAISE fnd_api.G_EXC_ERROR;
2784: END IF;
2785:
2786: END IF;
2787: l_progress := '175';
2820: , last_updated_by = p_user_id
2821: WHERE transaction_temp_id = l_rec_mtlt_to_copy_from.transaction_temp_id
2822: AND lot_number = rec_confirmed_lots_serials.lot_number;
2823: IF SQL%NOTFOUND THEN
2824: RAISE fnd_api.G_EXC_ERROR;
2825: END IF;
2826: ELSE
2827: -- insert a new MTLT
2828: l_progress := '210';
2841: ,x_msg_count => x_msg_count
2842: ,x_msg_data => x_msg_data);
2843: mydebug('x_return_status : ' || x_return_status);
2844: IF x_return_status <> l_g_ret_sts_success THEN
2845: RAISE fnd_api.G_EXC_ERROR;
2846: END IF;
2847: mydebug('l_progress: ' || l_progress );
2848: l_progress := '220';
2849: -- If new MTLT is inserted for p_new_transaction_temp_id this means
2858: ,last_updated_by = p_user_id
2859: WHERE transaction_temp_id = p_transaction_temp_id
2860: AND lot_number = rec_confirmed_lots_serials.lot_number;
2861: IF SQL%NOTFOUND THEN
2862: RAISE fnd_api.G_EXC_ERROR;
2863: END IF;
2864: mydebug('l_progress: ' || l_progress );
2865: END IF;
2866: END IF;
2904: , last_updated_by = p_user_id
2905: WHERE transaction_temp_id = l_rec_mtlt_to_copy_from.transaction_temp_id
2906: AND lot_number = rec_confirmed_lots_serials.lot_number;
2907: IF SQL%NOTFOUND THEN
2908: RAISE fnd_api.G_EXC_ERROR;
2909: END IF;
2910: ELSE
2911: l_progress := '260';
2912: mydebug('l_progress: ' || l_progress );
2923: ,x_msg_count => x_msg_count
2924: ,x_msg_data => x_msg_data);
2925: IF x_return_status <> l_g_ret_sts_success THEN
2926: mydebug('x_return_status : ' || x_return_status);
2927: RAISE fnd_api.G_EXC_ERROR;
2928: END IF;
2929: L_progress := '270';
2930: mydebug('l_progress: ' || l_progress );
2931: -- If new MTLT is inserted for p_transaction_temp_id_to_merge this means
2940: ,last_updated_by = p_user_id
2941: WHERE transaction_temp_id = p_transaction_temp_id -- l_rec_mtlt_to_copy_from.transaction_temp_id
2942: AND lot_number = rec_confirmed_lots_serials.lot_number;
2943: IF SQL%NOTFOUND THEN
2944: RAISE fnd_api.G_EXC_ERROR;
2945: END IF;
2946: END IF;
2947: ELSE -- found mtlt for the current lot number attached to p_transaction_temp_id_to_merge
2948: L_progress := '280';
2958: DELETE mtl_transaction_lots_temp
2959: WHERE transaction_temp_id = p_transaction_temp_id -- l_rec_mtlt_to_copy_from.transaction_temp_id
2960: AND lot_number = rec_confirmed_lots_serials.lot_number;
2961: IF SQL%NOTFOUND THEN
2962: RAISE fnd_api.G_EXC_ERROR;
2963: END IF;
2964: ELSE
2965: -- If all the qty from the original MTLT is not consumed then update the original MTLT
2966: -- attached to p_transaction_temp_id .. as selected in the cursor above
2975: ,last_updated_by = p_user_id
2976: WHERE transaction_temp_id = p_transaction_temp_id -- l_rec_mtlt_to_copy_from.transaction_temp_id
2977: AND lot_number = rec_confirmed_lots_serials.lot_number;
2978: IF SQL%NOTFOUND THEN
2979: RAISE fnd_api.G_EXC_ERROR;
2980: END IF;
2981: END IF;
2982: END IF;
2983: END IF;
3005: ,last_updated_by = p_user_id
3006: WHERE transaction_temp_id = p_transaction_temp_id
3007: AND lot_number = rec_confirmed_lots_serials.lot_number;
3008: IF SQL%NOTFOUND THEN
3009: RAISE fnd_api.G_EXC_ERROR;
3010: END IF;
3011: ELSE
3012: /* Usually for p_update = 'Y1' one does not need to update MTLT since nothing would have changed
3013: But, for catch weight enabled items, Overpicking or changed TXN-UOM it is necessary
3034: ,last_updated_by = p_user_id
3035: WHERE transaction_temp_id = p_transaction_temp_id
3036: AND lot_number = rec_confirmed_lots_serials.lot_number;
3037: IF SQL%NOTFOUND THEN
3038: RAISE fnd_api.G_EXC_ERROR;
3039: END IF;
3040: END IF;
3041: END IF;
3042:
3054: SET child_transaction_temp_id = l_serial_transaction_temp_id
3055: WHERE lot_number = rec_confirmed_lots_serials.lot_number
3056: AND transaction_temp_id = rec_confirmed_lots_serials.transaction_temp_id ;
3057: IF SQL%NOTFOUND THEN
3058: RAISE fnd_api.G_EXC_ERROR;
3059: END IF;
3060: L_progress := '420';
3061: mydebug('l_progress: ' || l_progress );
3062: proc_process_confirmed_serials
3086: ,x_return_status => x_return_status
3087: ,x_msg_count => x_msg_count
3088: ,x_msg_data => x_msg_data);
3089: IF x_return_status <> l_g_ret_sts_success THEN
3090: RAISE fnd_api.G_EXC_ERROR;
3091: END IF;
3092: END IF;
3093: END IF; -- l_prev_lot_number <> rec_confirmed_lots_serials.lot_number
3094: L_progress := '430';
3095: mydebug('l_progress: ' || l_progress );
3096: END LOOP; --rec_confirmed_lots_serials IN cur_confirmed_lots_serials
3097: mydebug('End .. ' || l_proc_name);
3098: EXCEPTION
3099: WHEN fnd_api.g_exc_error THEN
3100: x_return_status := l_g_ret_sts_error;
3101: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3102: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3103: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
3099: WHEN fnd_api.g_exc_error THEN
3100: x_return_status := l_g_ret_sts_error;
3101: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3102: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3103: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
3104: mydebug('ROLLBACK ' );
3105: ROLLBACK ;
3106: WHEN fnd_api.g_exc_unexpected_error THEN
3107: x_return_status := fnd_api.g_ret_sts_unexp_error;
3102: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3103: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
3104: mydebug('ROLLBACK ' );
3105: ROLLBACK ;
3106: WHEN fnd_api.g_exc_unexpected_error THEN
3107: x_return_status := fnd_api.g_ret_sts_unexp_error;
3108: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3109: mydebug('ROLLBACK ' );
3110: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3103: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
3104: mydebug('ROLLBACK ' );
3105: ROLLBACK ;
3106: WHEN fnd_api.g_exc_unexpected_error THEN
3107: x_return_status := fnd_api.g_ret_sts_unexp_error;
3108: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3109: mydebug('ROLLBACK ' );
3110: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3111: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
3107: x_return_status := fnd_api.g_ret_sts_unexp_error;
3108: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3109: mydebug('ROLLBACK ' );
3110: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3111: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
3112: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
3113: ROLLBACK ;
3114: WHEN OTHERS THEN
3115: x_return_status := l_g_ret_sts_unexp_error;
3114: WHEN OTHERS THEN
3115: x_return_status := l_g_ret_sts_unexp_error;
3116: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3117: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3118: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
3119: mydebug('ROLLBACK ' );
3120: ROLLBACK ;
3121:
3122: END proc_process_confirmed_lots;
3267: WHERE NVL(lot_number,'@@') = nvl(p_serial_lot_number,'@@'));
3268:
3269: IF SQL%NOTFOUND THEN
3270: mydebug('msnt not updateed..');
3271: RAISE fnd_api.G_EXC_ERROR;
3272: ELSE
3273: l_progress := '140';
3274: mydebug('l_progress: ' || l_progress );
3275: UPDATE MTL_SERIAL_NUMBERS
3284: FROM mtl_allocations_gtmp
3285: WHERE NVL(lot_number,'@@') = nvl(p_serial_lot_number,'@@'));
3286:
3287: IF SQL%NOTFOUND THEN
3288: RAISE fnd_api.G_EXC_ERROR;
3289: END IF;
3290: END IF;
3291: ELSE
3292: l_progress := '170';
3316: ,x_msg_count => x_msg_count
3317: ,x_msg_data => x_msg_data);
3318: IF x_return_status <> l_g_ret_sts_success THEN
3319: mydebug('x_return_status : ' || x_return_status);
3320: RAISE fnd_api.G_EXC_ERROR;
3321: END IF;
3322: END IF;
3323: /* added on 05/04/04 : fully consumable lpn where serials are allocated,
3324: * java does not pass the confirmed serials string . The following logic takes
3347: AND msn.lpn_id = p_lpn_match_lpn_id);
3348:
3349: IF SQL%NOTFOUND THEN
3350: mydebug('msnt not updateed..');
3351: RAISE fnd_api.G_EXC_ERROR;
3352: ELSE
3353: l_progress := '300';
3354: mydebug('l_progress: ' || l_progress );
3355: UPDATE MTL_SERIAL_NUMBERS
3367: AND NVL(msn.lot_number,'@@') = nvl(p_serial_lot_number,'@@')
3368: AND msn.lpn_id = p_lpn_match_lpn_id);
3369:
3370: IF SQL%NOTFOUND THEN
3371: RAISE fnd_api.G_EXC_ERROR;
3372: END IF;
3373: END IF;
3374: END IF;
3375: END IF;
3374: END IF;
3375: END IF;
3376: mydebug('End .. ' || l_proc_name);
3377: EXCEPTION
3378: WHEN fnd_api.g_exc_error THEN
3379: x_return_status := l_g_ret_sts_error;
3380: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3381: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3382: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
3378: WHEN fnd_api.g_exc_error THEN
3379: x_return_status := l_g_ret_sts_error;
3380: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3381: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3382: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
3383: mydebug('ROLLBACK ' );
3384: ROLLBACK ;
3385: WHEN fnd_api.g_exc_unexpected_error THEN
3386: x_return_status := fnd_api.g_ret_sts_unexp_error;
3381: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3382: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
3383: mydebug('ROLLBACK ' );
3384: ROLLBACK ;
3385: WHEN fnd_api.g_exc_unexpected_error THEN
3386: x_return_status := fnd_api.g_ret_sts_unexp_error;
3387: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3388: mydebug('ROLLBACK ' );
3389: ROLLBACK ;
3382: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
3383: mydebug('ROLLBACK ' );
3384: ROLLBACK ;
3385: WHEN fnd_api.g_exc_unexpected_error THEN
3386: x_return_status := fnd_api.g_ret_sts_unexp_error;
3387: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3388: mydebug('ROLLBACK ' );
3389: ROLLBACK ;
3390: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3387: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3388: mydebug('ROLLBACK ' );
3389: ROLLBACK ;
3390: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3391: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
3392: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
3393: WHEN OTHERS THEN
3394: x_return_status := l_g_ret_sts_unexp_error;
3395: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3393: WHEN OTHERS THEN
3394: x_return_status := l_g_ret_sts_unexp_error;
3395: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3396: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3397: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
3398: mydebug('ROLLBACK ' );
3399: ROLLBACK ;
3400:
3401: END proc_process_confirmed_serials;
3636:
3637: mydebug('l_progress: ' || l_progress );
3638: mydebug('End.. ' || l_proc_name);
3639: EXCEPTION
3640: WHEN fnd_api.g_exc_error THEN
3641: x_return_status := l_g_ret_sts_error;
3642: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3643: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3644: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
3640: WHEN fnd_api.g_exc_error THEN
3641: x_return_status := l_g_ret_sts_error;
3642: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3643: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3644: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
3645: mydebug('ROLLBACK ' );
3646: ROLLBACK ;
3647: WHEN fnd_api.g_exc_unexpected_error THEN
3648: x_return_status := fnd_api.g_ret_sts_unexp_error;
3643: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3644: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
3645: mydebug('ROLLBACK ' );
3646: ROLLBACK ;
3647: WHEN fnd_api.g_exc_unexpected_error THEN
3648: x_return_status := fnd_api.g_ret_sts_unexp_error;
3649: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3650: mydebug('ROLLBACK ' );
3651: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3644: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
3645: mydebug('ROLLBACK ' );
3646: ROLLBACK ;
3647: WHEN fnd_api.g_exc_unexpected_error THEN
3648: x_return_status := fnd_api.g_ret_sts_unexp_error;
3649: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3650: mydebug('ROLLBACK ' );
3651: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3652: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
3648: x_return_status := fnd_api.g_ret_sts_unexp_error;
3649: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3650: mydebug('ROLLBACK ' );
3651: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3652: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
3653: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
3654: ROLLBACK ;
3655: WHEN OTHERS THEN
3656: x_return_status := l_g_ret_sts_unexp_error;
3655: WHEN OTHERS THEN
3656: x_return_status := l_g_ret_sts_unexp_error;
3657: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
3658: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
3659: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
3660: mydebug('ROLLBACK ' );
3661: ROLLBACK ;
3662:
3663: END proc_insert_mtlt;
3872: AND NVL(lot_number,'@@') = nvl(p_serial_lot_number,'@@'));
3873: --AND group_mark_id IS NULL);
3874:
3875: IF SQL%NOTFOUND THEN --- MSN record not found)
3876: RAISE fnd_api.G_EXC_ERROR;
3877: END IF;
3878:
3879: l_progress := '130';
3880: mydebug('l_progress: ' || l_progress );
3891: ,x_msg_count => x_msg_count
3892: ,x_msg_data => x_msg_data);
3893: IF x_return_status <> l_g_ret_sts_success THEN
3894: mydebug('x_return_status : ' || x_return_status);
3895: RAISE fnd_api.G_EXC_ERROR;
3896: END IF;
3897:
3898: ELSE -- confirmed_serials are no null so get the serials from mtl-allocations_gtmp table
3899:
4062: FROM mtl_allocations_gtmp
4063: WHERE NVL(lot_number,'@@') = nvl(p_serial_lot_number,'@@'))
4064: );
4065: IF SQL%NOTFOUND THEN --- MSN record not found)
4066: RAISE fnd_api.G_EXC_ERROR;
4067: END IF;
4068: l_progress := '130';
4069: mydebug('l_progress: ' || l_progress );
4070: proc_mark_msn (p_group_mark_id => p_transaction_temp_id
4080: ,x_msg_count => x_msg_count
4081: ,x_msg_data => x_msg_data);
4082: IF x_return_status <> l_g_ret_sts_success THEN
4083: mydebug('x_return_status : ' || x_return_status);
4084: RAISE fnd_api.G_EXC_ERROR;
4085: END IF;
4086: END IF;
4087:
4088: mydebug('End .. ' || l_proc_name);
4086: END IF;
4087:
4088: mydebug('End .. ' || l_proc_name);
4089: EXCEPTION
4090: WHEN fnd_api.g_exc_error THEN
4091: x_return_status := l_g_ret_sts_error;
4092: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4093: mydebug('ROLLBACK ' );
4094: ROLLBACK ;
4092: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4093: mydebug('ROLLBACK ' );
4094: ROLLBACK ;
4095: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4096: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4097: WHEN fnd_api.g_exc_unexpected_error THEN
4098: x_return_status := fnd_api.g_ret_sts_unexp_error;
4099: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4100: mydebug('ROLLBACK ' );
4093: mydebug('ROLLBACK ' );
4094: ROLLBACK ;
4095: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4096: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4097: WHEN fnd_api.g_exc_unexpected_error THEN
4098: x_return_status := fnd_api.g_ret_sts_unexp_error;
4099: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4100: mydebug('ROLLBACK ' );
4101: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4094: ROLLBACK ;
4095: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4096: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4097: WHEN fnd_api.g_exc_unexpected_error THEN
4098: x_return_status := fnd_api.g_ret_sts_unexp_error;
4099: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4100: mydebug('ROLLBACK ' );
4101: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4102: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4098: x_return_status := fnd_api.g_ret_sts_unexp_error;
4099: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4100: mydebug('ROLLBACK ' );
4101: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4102: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4103: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
4104: ROLLBACK ;
4105: WHEN OTHERS THEN
4106: x_return_status := l_g_ret_sts_unexp_error;
4107: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4108: mydebug('ROLLBACK ' );
4109: ROLLBACK ;
4110: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4111: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4112:
4113: END proc_insert_msnt ;
4114:
4115: PROCEDURE proc_mark_msn
4156: IF SQL%NOTFOUND THEN
4157: fnd_message.set_name('WMS', 'WMS_ERROR_MARKING_SERIAL'); --NEWMSG
4158: -- "Error reserving Serial Number/s"
4159: fnd_msg_pub.ADD;
4160: RAISE fnd_api.G_EXC_ERROR;
4161: END IF;
4162: ELSE
4163: l_progress := '300';
4164: mydebug('l_progress: ' || l_progress );
4178: IF SQL%NOTFOUND THEN
4179: fnd_message.set_name('WMS', 'WMS_ERROR_MARKING_SERIAL'); --NEWMSG
4180: -- "Error reserving Serial Number/s"
4181: fnd_msg_pub.ADD;
4182: RAISE fnd_api.G_EXC_ERROR;
4183: END IF;
4184: END IF;
4185:
4186: mydebug('End .. ' || l_proc_name);
4184: END IF;
4185:
4186: mydebug('End .. ' || l_proc_name);
4187: EXCEPTION
4188: WHEN fnd_api.g_exc_error THEN
4189: x_return_status := l_g_ret_sts_error;
4190: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4191: mydebug('ROLLBACK ' );
4192: ROLLBACK ;
4190: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4191: mydebug('ROLLBACK ' );
4192: ROLLBACK ;
4193: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4194: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4195: WHEN fnd_api.g_exc_unexpected_error THEN
4196: x_return_status := fnd_api.g_ret_sts_unexp_error;
4197: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4198: mydebug('ROLLBACK ' );
4191: mydebug('ROLLBACK ' );
4192: ROLLBACK ;
4193: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4194: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4195: WHEN fnd_api.g_exc_unexpected_error THEN
4196: x_return_status := fnd_api.g_ret_sts_unexp_error;
4197: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4198: mydebug('ROLLBACK ' );
4199: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4192: ROLLBACK ;
4193: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4194: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4195: WHEN fnd_api.g_exc_unexpected_error THEN
4196: x_return_status := fnd_api.g_ret_sts_unexp_error;
4197: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4198: mydebug('ROLLBACK ' );
4199: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4200: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4196: x_return_status := fnd_api.g_ret_sts_unexp_error;
4197: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4198: mydebug('ROLLBACK ' );
4199: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4200: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4201: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
4202: ROLLBACK ;
4203: WHEN OTHERS THEN
4204: x_return_status := l_g_ret_sts_unexp_error;
4205: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4206: mydebug('ROLLBACK ' );
4207: ROLLBACK ;
4208: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4209: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4210:
4211: END proc_mark_msn ;
4212:
4213: PROCEDURE proc_unmark_msn (p_group_mark_id IN NUMBER
4245: AND DECODE(p_serial_number,NULL,'@@',serial_number) = nvl(p_serial_number,'@@') ;
4246: --AND group_mark_id IS NULL;
4247:
4248: IF SQL%NOTFOUND THEN
4249: RAISE fnd_api.G_EXC_ERROR;
4250: END IF;
4251:
4252: mydebug('End .. ' || l_proc_name);
4253: EXCEPTION
4250: END IF;
4251:
4252: mydebug('End .. ' || l_proc_name);
4253: EXCEPTION
4254: WHEN fnd_api.g_exc_error THEN
4255: x_return_status := l_g_ret_sts_error;
4256: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4257: mydebug('ROLLBACK ' );
4258: ROLLBACK ;
4256: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4257: mydebug('ROLLBACK ' );
4258: ROLLBACK ;
4259: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4260: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4261: WHEN fnd_api.g_exc_unexpected_error THEN
4262: x_return_status := fnd_api.g_ret_sts_unexp_error;
4263: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4264: mydebug('ROLLBACK ' );
4257: mydebug('ROLLBACK ' );
4258: ROLLBACK ;
4259: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4260: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4261: WHEN fnd_api.g_exc_unexpected_error THEN
4262: x_return_status := fnd_api.g_ret_sts_unexp_error;
4263: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4264: mydebug('ROLLBACK ' );
4265: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4258: ROLLBACK ;
4259: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4260: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4261: WHEN fnd_api.g_exc_unexpected_error THEN
4262: x_return_status := fnd_api.g_ret_sts_unexp_error;
4263: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4264: mydebug('ROLLBACK ' );
4265: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4266: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4262: x_return_status := fnd_api.g_ret_sts_unexp_error;
4263: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4264: mydebug('ROLLBACK ' );
4265: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4266: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
4267: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
4268: ROLLBACK ;
4269: WHEN OTHERS THEN
4270: x_return_status := l_g_ret_sts_unexp_error;
4271: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
4272: mydebug('ROLLBACK ' );
4273: ROLLBACK ;
4274: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
4275: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
4276:
4277: END proc_unmark_msn ;
4278:
4279: /* WHen F2 is pressed, the MMTT/MTLT/MSNT that was split needs to be rolled back so that,
4431: , x_msg_count => x_msg_count
4432: , x_msg_data => x_msg_data );
4433: IF x_return_status <> l_g_ret_sts_success THEN
4434: mydebug('x_return_status : ' || x_return_status);
4435: --RAISE fnd_api.G_EXC_ERROR; punnet's request
4436: END IF;
4437:
4438: l_progress := 200;
4439: mydebug('l_progress = ' || l_progress);
4457: ,x_return_status => x_return_status
4458: ,x_msg_count => x_msg_count
4459: ,x_msg_data => x_msg_data);
4460: IF x_return_status <> l_g_ret_sts_success THEN
4461: RAISE fnd_api.G_EXC_ERROR;
4462: END IF;
4463: END IF;
4464:
4465: l_progress := 300;
4473: ,x_msg_count => x_msg_count
4474: ,x_msg_data => x_msg_data);
4475: IF x_return_status <> l_g_ret_sts_success THEN
4476: mydebug('x_return_status : ' || x_return_status);
4477: RAISE fnd_api.G_EXC_ERROR;
4478: END IF;
4479:
4480: IF P_ACTION is not NULL AND p_action = 'CMS' THEN
4481: COMMIT;
4494: ,x_return_status => x_return_status
4495: ,x_msg_count => x_msg_count
4496: ,x_msg_data => x_msg_data);
4497: IF x_return_status <> l_g_ret_sts_success THEN
4498: RAISE fnd_api.G_EXC_ERROR;
4499: END IF;
4500: END IF;
4501:
4502: -- Group MMTTs(including p_transaction_temp_id) with p_transaction_header_id
4527: IF rec_mmtt1.item_primary_uom_code IS NULL THEN
4528: fnd_message.set_name('WMS', 'WMS_NULL_PRIM_UOM');
4529: -- Item primary UOM is null for this task
4530: fnd_msg_pub.ADD;
4531: RAISE fnd_api.g_exc_unexpected_error;
4532: END IF;
4533: -- this global temp table will have a list of transaction_temp_ids of MMTTs that
4534: -- are confirmed to stay back in MMTT. Later we will use this list to decide on which
4535: -- MMTTs should be deleted that belong to the p_transaction-header_id but are not
4583: , wms_task_status = l_g_task_pending -- Bug4185621: update mmtt task status back to pending
4584: , posting_flag = l_parent_posting_flag -- Bug4185621: updating posting flag
4585: WHERE transaction_temp_id = rec_mmtt1.group_temp_id;
4586: IF SQL%NOTFOUND THEN
4587: RAISE fnd_api.G_EXC_ERROR;
4588: END IF;
4589:
4590: -- Bug# 4185621: update child line posting flag back to 'Y' for bulk picking
4591: IF (l_parent_posting_flag = 'N') THEN
4675: AND mtlt.lot_number = rec_mtlt1.lot_number
4676: AND nvl(mmtt.revision,'@@') = nvl(rec_mmtt1.revision,'@@') );
4677: mydebug ('ROW COUNT : ' || sql%rowcount);
4678: IF SQL%NOTFOUND THEN
4679: RAISE fnd_api.G_EXC_ERROR;
4680: END IF;
4681: l_progress := 1200;
4682: mydebug('l_progress .. ' || l_progress);
4683: UPDATE MTL_SERIAL_NUMBERS
4691: FROM mtl_serial_numbers_temp msnt
4692: WHERE msnt.transaction_temp_id = l_serial_transaction_temp_id);
4693:
4694: IF SQL%NOTFOUND THEN
4695: RAISE fnd_api.G_EXC_ERROR;
4696: END IF;
4697: ELSE --IF p_serial_allocated_flag = 'N' THEN
4698: l_progress := 1300;
4699: mydebug('l_progress .. ' || l_progress);
4742: AND mmtt.inventory_item_id = rec_mmtt1.inventory_item_id
4743: AND mtlt.lot_number = rec_mtlt1.lot_number
4744: AND nvl(mmtt.revision,'@@') = nvl(rec_mmtt1.revision,'@@') );
4745: IF SQL%NOTFOUND THEN
4746: RAISE fnd_api.G_EXC_ERROR;
4747: END IF;
4748: END IF;
4749: END IF; --IF p_serial_allocated_flag = 'N' THEN
4750: l_op_msnt_to_delete := 0;
4789: AND inventory_item_id = rec_mmtt1.inventory_item_id
4790: AND serial_number = rec_msnt_to_delete_ls.fm_serial_number;
4791: IF SQL%NOTFOUND THEN
4792: mydebug('No MSN found to be updated..not good' );
4793: RAISE fnd_api.G_EXC_ERROR;
4794: ELSE
4795: l_progress := 4400;
4796: mydebug('l_progress : ' || l_progress);
4797: DELETE mtl_serial_numbers_temp
4798: WHERE transaction_temp_id = rec_msnt_to_delete_ls.transaction_temp_id
4799: AND fm_serial_number = rec_msnt_to_delete_ls.fm_serial_number;
4800:
4801: IF SQL%NOTFOUND THEN
4802: RAISE fnd_api.G_EXC_ERROR;
4803: END IF;
4804: END IF;
4805: END LOOP;
4806: END IF;
4822: , last_updated_by = p_user_id
4823: WHERE lot_number = rec_mtlt1.lot_number
4824: AND transaction_temp_id = rec_mtlt1.group_lot_temp_id;
4825: IF SQL%NOTFOUND THEN
4826: RAISE fnd_api.G_EXC_ERROR;
4827: END IF;
4828:
4829: l_progress := 1600;
4830: mydebug('l_progress .. ' || l_progress);
4849: AND mtlt.lot_number = rec_mtlt1.lot_number
4850: AND nvl(mmtt.revision,'@@') = nvl(rec_mmtt1.revision,'@@') );
4851:
4852: IF SQL%NOTFOUND THEN
4853: RAISE fnd_api.G_EXC_ERROR;
4854: END IF;
4855: END IF;
4856: END LOOP;
4857:
4891: AND mmtt.inventory_item_id = rec_mmtt1.inventory_item_id
4892: AND nvl(mmtt.revision,'@@') = nvl(rec_mmtt1.revision,'@@') );
4893:
4894: IF SQL%NOTFOUND THEN
4895: RAISE fnd_api.G_EXC_ERROR;
4896: END IF;
4897: -- REMARK MSN with new temp_id
4898:
4899: l_progress := 2000;
4911: WHERE transaction_temp_id = rec_mmtt1.group_temp_id);
4912: --l_serial_transaction_temp_id);
4913:
4914: IF SQL%NOTFOUND THEN
4915: RAISE fnd_api.G_EXC_ERROR;
4916: END IF;
4917: END IF;
4918: ELSE -- (p_serial_allocated_flag = 'N' ,
4919: -- delete all msnts and unmark all these serials in MSN.
4959: AND mmtt.inventory_item_id = rec_mmtt1.inventory_item_id
4960: AND nvl(mmtt.revision,'@@') = nvl(rec_mmtt1.revision,'@@') );
4961:
4962: IF SQL%NOTFOUND THEN
4963: RAISE fnd_api.G_EXC_ERROR;
4964: END IF;
4965: END IF;
4966: END IF;
4967: l_op_msnt_to_delete := 0;
5028: AND inventory_item_id = rec_mmtt1.inventory_item_id
5029: AND serial_number = rec_msnt_to_delete.fm_serial_number;
5030: IF SQL%NOTFOUND THEN
5031: mydebug('No MSN found to be updated..not good' );
5032: RAISE fnd_api.G_EXC_ERROR;
5033: ELSE
5034: l_progress := 2200;
5035: mydebug('l_progress : ' || l_progress);
5036: DELETE mtl_serial_numbers_temp
5037: WHERE transaction_temp_id = rec_msnt_to_delete.transaction_temp_id
5038: AND fm_serial_number = rec_msnt_to_delete.fm_serial_number;
5039:
5040: IF SQL%NOTFOUND THEN
5041: RAISE fnd_api.G_EXC_ERROR;
5042: END IF;
5043: END IF;
5044: END LOOP;
5045: END IF;
5067: ,x_return_status => x_return_status
5068: ,x_msg_count => x_msg_count
5069: ,x_msg_data => x_msg_data);
5070: IF x_return_status <> l_g_ret_sts_success THEN
5071: RAISE fnd_api.G_EXC_ERROR;
5072: ELSE
5073: l_start_over_task := x_start_over_taskno;
5074: END IF;
5075: mydebug('viks l_start_over_task return froom proc_start_over :' ||l_start_over_task);
5161: mydebug('Commit ' );
5162: COMMIT;
5163: mydebug('End .. ' || l_proc_name);
5164: EXCEPTION
5165: WHEN fnd_api.g_exc_error THEN
5166: x_return_status := l_g_ret_sts_error;
5167: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5168: -- Internal Error $ROUTINE
5169: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
5171: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5172: mydebug('ROLLBACK ' );
5173: ROLLBACK ;
5174: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5175: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
5176: WHEN fnd_api.g_exc_unexpected_error THEN
5177: x_return_status := fnd_api.g_ret_sts_unexp_error;
5178: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5179: -- Internal Error $ROUTINE
5172: mydebug('ROLLBACK ' );
5173: ROLLBACK ;
5174: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5175: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
5176: WHEN fnd_api.g_exc_unexpected_error THEN
5177: x_return_status := fnd_api.g_ret_sts_unexp_error;
5178: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5179: -- Internal Error $ROUTINE
5180: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
5173: ROLLBACK ;
5174: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5175: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
5176: WHEN fnd_api.g_exc_unexpected_error THEN
5177: x_return_status := fnd_api.g_ret_sts_unexp_error;
5178: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR'); --NEWMSG
5179: -- Internal Error $ROUTINE
5180: fnd_message.set_token('ROUTINE', '- Process_f2 API' );
5181: fnd_msg_pub.ADD;
5181: fnd_msg_pub.ADD;
5182: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5183: mydebug('ROLLBACK ' );
5184: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5185: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5186: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
5187: ROLLBACK ;
5188: WHEN OTHERS THEN
5189: x_return_status := l_g_ret_sts_unexp_error;
5194: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5195: mydebug('ROLLBACK ' );
5196: ROLLBACK ;
5197: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5198: mydebug('fnd_api.g_exc_error: ' || SQLERRM);
5199:
5200:
5201: END process_F2;
5202:
5236: BEGIN
5237: mydebug ('IN : ' || l_proc_name);
5238: mydebug ('p_action : ' || p_action);
5239: mydebug ('p_employee_id : ' || p_employee_id);
5240: x_return_status := fnd_api.g_ret_sts_success;
5241:
5242: IF p_action is NULL OR p_action <> 'CMS' THEN
5243: For rec_wdt_for_emp IN cur_wdt_for_emp
5244: LOOP
5257: , x_msg_count => x_msg_count
5258: , x_msg_data => x_msg_data );
5259: IF x_return_status <> l_g_ret_sts_success THEN
5260: mydebug('x_return_status : ' || x_return_status);
5261: RAISE fnd_api.G_EXC_ERROR;
5262: END IF;
5263:
5264: END IF;
5265: END LOOP;
5281: , x_msg_count => x_msg_count
5282: , x_msg_data => x_msg_data );
5283: IF x_return_status <> l_g_ret_sts_success THEN
5284: mydebug('x_return_status : ' || x_return_status);
5285: RAISE fnd_api.G_EXC_ERROR;
5286: END IF;
5287:
5288: END IF;
5289: END LOOP;
5289: END LOOP;
5290: END IF;
5291: mydebug ('END : ' || l_proc_name);
5292: EXCEPTION
5293: WHEN fnd_api.g_exc_error THEN
5294: x_return_status := l_g_ret_sts_error;
5295: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5296: mydebug('ROLLBACK ' );
5297: ROLLBACK ;
5295: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5296: mydebug('ROLLBACK ' );
5297: ROLLBACK ;
5298: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5299: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5300: WHEN fnd_api.g_exc_unexpected_error THEN
5301: x_return_status := fnd_api.g_ret_sts_unexp_error;
5302: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5303: mydebug('ROLLBACK ' );
5296: mydebug('ROLLBACK ' );
5297: ROLLBACK ;
5298: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5299: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5300: WHEN fnd_api.g_exc_unexpected_error THEN
5301: x_return_status := fnd_api.g_ret_sts_unexp_error;
5302: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5303: mydebug('ROLLBACK ' );
5304: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5297: ROLLBACK ;
5298: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5299: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5300: WHEN fnd_api.g_exc_unexpected_error THEN
5301: x_return_status := fnd_api.g_ret_sts_unexp_error;
5302: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5303: mydebug('ROLLBACK ' );
5304: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5305: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5301: x_return_status := fnd_api.g_ret_sts_unexp_error;
5302: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5303: mydebug('ROLLBACK ' );
5304: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5305: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5306: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
5307: ROLLBACK ;
5308: WHEN OTHERS THEN
5309: x_return_status := l_g_ret_sts_unexp_error;
5310: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5311: mydebug('ROLLBACK ' );
5312: ROLLBACK ;
5313: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5314: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5315:
5316: END proc_device_call ;
5317:
5318: PROCEDURE proc_process_cancelled_MOLs (
5363: WHERE wdt.transaction_temp_id = mmtt.transaction_temp_id);
5364:
5365: BEGIN
5366: mydebug ('IN : ' || l_proc_name);
5367: x_return_status := fnd_api.g_ret_sts_success;
5368: FOR rec_cancelled_MOLs in cur_cancelled_MOLs
5369: LOOP
5370: IF (l_debug = 1) THEN mydebug('mo_line_id = ' || rec_cancelled_mols.line_id); END IF;
5371: l_deleted_mmtt_qty := 0;
5379: x_return_status => x_return_status
5380: , x_msg_data => x_msg_data
5381: , x_msg_count => x_msg_count
5382: , p_transaction_temp_id => rec_mmtt_to_del.transaction_temp_id);
5383: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5384: IF l_debug = 1 THEN
5385: mydebug('Not able to delete the Txn = ' || rec_mmtt_to_del.transaction_temp_id);
5386: END IF;
5387: RAISE fnd_api.g_exc_unexpected_error;
5383: IF x_return_status <> fnd_api.g_ret_sts_success THEN
5384: IF l_debug = 1 THEN
5385: mydebug('Not able to delete the Txn = ' || rec_mmtt_to_del.transaction_temp_id);
5386: END IF;
5387: RAISE fnd_api.g_exc_unexpected_error;
5388: END IF;
5389:
5390: IF (rec_mmtt_to_del.item_primary_uom_code <> rec_cancelled_mols.uom_code)
5391: THEN
5431: END IF;
5432: END LOOP;
5433: mydebug('END = ' || l_proc_name );
5434: EXCEPTION
5435: WHEN fnd_api.g_exc_error THEN
5436: x_return_status := l_g_ret_sts_error;
5437: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5438: mydebug('ROLLBACK ' );
5439: ROLLBACK ;
5437: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5438: mydebug('ROLLBACK ' );
5439: ROLLBACK ;
5440: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5441: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5442: WHEN fnd_api.g_exc_unexpected_error THEN
5443: x_return_status := fnd_api.g_ret_sts_unexp_error;
5444: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5445: mydebug('ROLLBACK ' );
5438: mydebug('ROLLBACK ' );
5439: ROLLBACK ;
5440: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5441: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5442: WHEN fnd_api.g_exc_unexpected_error THEN
5443: x_return_status := fnd_api.g_ret_sts_unexp_error;
5444: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5445: mydebug('ROLLBACK ' );
5446: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5439: ROLLBACK ;
5440: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5441: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5442: WHEN fnd_api.g_exc_unexpected_error THEN
5443: x_return_status := fnd_api.g_ret_sts_unexp_error;
5444: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5445: mydebug('ROLLBACK ' );
5446: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5447: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5443: x_return_status := fnd_api.g_ret_sts_unexp_error;
5444: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5445: mydebug('ROLLBACK ' );
5446: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5447: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5448: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
5449: ROLLBACK ;
5450: WHEN OTHERS THEN
5451: x_return_status := l_g_ret_sts_unexp_error;
5452: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5453: mydebug('ROLLBACK ' );
5454: ROLLBACK ;
5455: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5456: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5457:
5458: END proc_process_cancelled_MOLs ;
5459:
5460: PROCEDURE proc_reset_lpn_context(
5493: WHERE transaction_header_id = p_transaction_header_id
5494: AND nvl(content_lpn_id , nvl(lpn_id,-999)) <> transfer_lpn_id;
5495:
5496: BEGIN
5497: x_return_status := fnd_api.g_ret_sts_success;
5498: mydebug ('IN : ' || l_proc_name);
5499: l_progress := 110;
5500: mydebug('l_progress = ' || l_progress);
5501: mydebug ('p_transaction_header_id : ' || p_transaction_header_id);
5595: END LOOP;
5596:
5597: mydebug('END = ' || l_proc_name );
5598: EXCEPTION
5599: WHEN fnd_api.g_exc_error THEN
5600: x_return_status := l_g_ret_sts_error;
5601: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5602: mydebug('ROLLBACK ' );
5603: ROLLBACK ;
5601: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5602: mydebug('ROLLBACK ' );
5603: ROLLBACK ;
5604: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5605: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5606: WHEN fnd_api.g_exc_unexpected_error THEN
5607: x_return_status := fnd_api.g_ret_sts_unexp_error;
5608: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5609: mydebug('ROLLBACK ' );
5602: mydebug('ROLLBACK ' );
5603: ROLLBACK ;
5604: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5605: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5606: WHEN fnd_api.g_exc_unexpected_error THEN
5607: x_return_status := fnd_api.g_ret_sts_unexp_error;
5608: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5609: mydebug('ROLLBACK ' );
5610: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5603: ROLLBACK ;
5604: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5605: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5606: WHEN fnd_api.g_exc_unexpected_error THEN
5607: x_return_status := fnd_api.g_ret_sts_unexp_error;
5608: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5609: mydebug('ROLLBACK ' );
5610: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5611: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5607: x_return_status := fnd_api.g_ret_sts_unexp_error;
5608: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5609: mydebug('ROLLBACK ' );
5610: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5611: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5612: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
5613: ROLLBACK ;
5614: WHEN OTHERS THEN
5615: x_return_status := l_g_ret_sts_unexp_error;
5616: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5617: mydebug('ROLLBACK ' );
5618: ROLLBACK ;
5619: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5620: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5621: END proc_reset_lpn_context;
5622:
5623: PROCEDURE proc_reset_task_status(
5624: p_action IN VARCHAR2
5643: WHERE person_id = p_employee_id
5644: AND ( status = l_g_task_dispatched OR
5645: status = l_g_task_active); -- IN (3,9 ) ;
5646: BEGIN
5647: x_return_status := fnd_api.g_ret_sts_success;
5648: mydebug ('IN : ' || l_proc_name);
5649: mydebug ('p_action : ' || p_action);
5650: mydebug ('p_transaction_header_id : ' || p_transaction_header_id);
5651: mydebug ('p_transaction_temp_id : ' || p_transaction_temp_id );
5761: END IF;
5762:
5763: mydebug('END = ' || l_proc_name );
5764: EXCEPTION
5765: WHEN fnd_api.g_exc_error THEN
5766: x_return_status := l_g_ret_sts_error;
5767: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5768: mydebug('ROLLBACK ' );
5769: ROLLBACK ;
5767: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5768: mydebug('ROLLBACK ' );
5769: ROLLBACK ;
5770: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5771: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5772: WHEN fnd_api.g_exc_unexpected_error THEN
5773: x_return_status := fnd_api.g_ret_sts_unexp_error;
5774: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5775: mydebug('ROLLBACK ' );
5768: mydebug('ROLLBACK ' );
5769: ROLLBACK ;
5770: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5771: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5772: WHEN fnd_api.g_exc_unexpected_error THEN
5773: x_return_status := fnd_api.g_ret_sts_unexp_error;
5774: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5775: mydebug('ROLLBACK ' );
5776: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5769: ROLLBACK ;
5770: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5771: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5772: WHEN fnd_api.g_exc_unexpected_error THEN
5773: x_return_status := fnd_api.g_ret_sts_unexp_error;
5774: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5775: mydebug('ROLLBACK ' );
5776: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5777: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5773: x_return_status := fnd_api.g_ret_sts_unexp_error;
5774: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5775: mydebug('ROLLBACK ' );
5776: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5777: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5778: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
5779: ROLLBACK ;
5780: WHEN OTHERS THEN
5781: x_return_status := l_g_ret_sts_unexp_error;
5782: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5783: mydebug('ROLLBACK ' );
5784: ROLLBACK ;
5785: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5786: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5787: END proc_reset_task_status;
5788:
5789: --viks procedure proc_start_over
5790: /*{{
5826:
5827:
5828: BEGIN
5829:
5830: x_return_status := fnd_api.g_ret_sts_success;
5831: mydebug ('IN : ' || l_proc_name);
5832: mydebug ('p_transaction_header_id : ' || p_transaction_header_id);
5833: mydebug ('p_transaction_temp_id : ' || p_transaction_temp_id );
5834: l_progress := 110;
5916: x_start_over_taskno := wms_picking_pkg.g_start_over_tempid.count;
5917: mydebug('x_start_over_taskno in procedure start_over::'||x_start_over_taskno);
5918: mydebug('END = ' || l_proc_name );
5919: EXCEPTION
5920: WHEN fnd_api.g_exc_error THEN
5921: x_return_status := l_g_ret_sts_error;
5922: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5923: mydebug('ROLLBACK ' );
5924: ROLLBACK ;
5922: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5923: mydebug('ROLLBACK ' );
5924: ROLLBACK ;
5925: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5926: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5927: WHEN fnd_api.g_exc_unexpected_error THEN
5928: x_return_status := fnd_api.g_ret_sts_unexp_error;
5929: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5930: mydebug('ROLLBACK ' );
5923: mydebug('ROLLBACK ' );
5924: ROLLBACK ;
5925: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5926: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5927: WHEN fnd_api.g_exc_unexpected_error THEN
5928: x_return_status := fnd_api.g_ret_sts_unexp_error;
5929: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5930: mydebug('ROLLBACK ' );
5931: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5924: ROLLBACK ;
5925: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5926: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5927: WHEN fnd_api.g_exc_unexpected_error THEN
5928: x_return_status := fnd_api.g_ret_sts_unexp_error;
5929: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5930: mydebug('ROLLBACK ' );
5931: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5932: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5928: x_return_status := fnd_api.g_ret_sts_unexp_error;
5929: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5930: mydebug('ROLLBACK ' );
5931: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5932: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
5933: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
5934: ROLLBACK ;
5935: WHEN OTHERS THEN
5936: x_return_status := l_g_ret_sts_unexp_error;
5937: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
5938: mydebug('ROLLBACK ' );
5939: ROLLBACK ;
5940: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
5941: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
5942:
5943: END proc_start_over;
5944:
5945:
6174: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6175: mydebug('ROLLBACK ' );
6176: ROLLBACK ;
6177: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6178: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6179:
6180: END proc_parse_lot_serial_catchwt;
6181:
6182:
6289: and mmtt.transaction_temp_id = p_temp_id);
6290:
6291: BEGIN
6292:
6293: x_return_status := fnd_api.g_ret_sts_success;
6294: l_return_status := fnd_api.g_ret_sts_success;
6295: IF p_parent_line_id = 0 THEN l_parent_line_id := NULL; END IF;
6296: IF p_lpn_id = 0 THEN l_lpn_id := NULL; END IF;
6297: IF p_content_lpn_id = 0 THEN l_content_lpn_id := NULL; END IF;
6290:
6291: BEGIN
6292:
6293: x_return_status := fnd_api.g_ret_sts_success;
6294: l_return_status := fnd_api.g_ret_sts_success;
6295: IF p_parent_line_id = 0 THEN l_parent_line_id := NULL; END IF;
6296: IF p_lpn_id = 0 THEN l_lpn_id := NULL; END IF;
6297: IF p_content_lpn_id = 0 THEN l_content_lpn_id := NULL; END IF;
6298: IF p_parent_lpn_id = 0 THEN l_parent_lpn_id := NULL; END IF;
6350: THEN
6351: fnd_message.set_name('WMS', 'WMS_PICK_ZERO_QTY');
6352: -- Confirmed qty for this task is zero
6353: fnd_msg_pub.ADD;
6354: RAISE fnd_api.g_exc_unexpected_error;
6355: END IF;
6356: BEGIN
6357: wms_picking_pkg.g_previous_task_status.delete(p_temp_id);
6358: EXCEPTION
6413: p_to_serial => serial_rec.serial_number,
6414: p_status_id => NULL,
6415: x_return_status => l_return_status,
6416: x_msg_data => l_msg_data);
6417: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
6418: THEN
6419: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6420: -- Internal Error $ROUTINE
6421: fnd_message.set_token('ROUTINE', '-INSERT_SERIAL API - ' || p_action);
6419: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6420: -- Internal Error $ROUTINE
6421: fnd_message.set_token('ROUTINE', '-INSERT_SERIAL API - ' || p_action);
6422: fnd_msg_pub.ADD;
6423: RAISE fnd_api.g_exc_unexpected_error;
6424: ELSE
6425: IF (l_debug = 1) THEN
6426: mydebug ('the serial number is: '|| serial_rec.serial_number);
6427: END IF;
6446: p_to_serial => serial_rec.serial_number,
6447: p_status_id => NULL,
6448: x_return_status => l_return_status,
6449: x_msg_data => l_msg_data);
6450: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
6451: THEN
6452: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6453: -- Internal Error $ROUTINE
6454: fnd_message.set_token('ROUTINE', '- INSERT_SERIAL API - ');
6452: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6453: -- Internal Error $ROUTINE
6454: fnd_message.set_token('ROUTINE', '- INSERT_SERIAL API - ');
6455: fnd_msg_pub.ADD;
6456: RAISE fnd_api.g_exc_unexpected_error;
6457: ELSE
6458: IF (l_debug = 1) THEN
6459: mydebug ('the serial number is: '|| serial_rec.serial_number);
6460: END IF;
6505: ,x_return_status => l_return_status
6506: ,x_msg_count => l_msg_count
6507: ,x_msg_data => l_msg_data);
6508:
6509: IF l_return_status IN ( fnd_api.g_ret_sts_unexp_error, fnd_api.g_ret_sts_error)
6510: THEN
6511: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6512: -- Internal Error $ROUTINE
6513: fnd_message.set_token('ROUTINE', '-Task_Merge_Split API - ' || p_action);
6511: fnd_message.set_name('WMS', 'WMS_INTERNAL_ERROR');
6512: -- Internal Error $ROUTINE
6513: fnd_message.set_token('ROUTINE', '-Task_Merge_Split API - ' || p_action);
6514: fnd_msg_pub.ADD;
6515: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6516: RAISE fnd_api.g_exc_unexpected_error;
6517: ELSE
6518: RAISE fnd_api.g_exc_error;
6519: END IF;
6512: -- Internal Error $ROUTINE
6513: fnd_message.set_token('ROUTINE', '-Task_Merge_Split API - ' || p_action);
6514: fnd_msg_pub.ADD;
6515: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6516: RAISE fnd_api.g_exc_unexpected_error;
6517: ELSE
6518: RAISE fnd_api.g_exc_error;
6519: END IF;
6520: END IF;
6514: fnd_msg_pub.ADD;
6515: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6516: RAISE fnd_api.g_exc_unexpected_error;
6517: ELSE
6518: RAISE fnd_api.g_exc_error;
6519: END IF;
6520: END IF;
6521: END IF; -- confirmed_qty <> 0
6522:
6560: ,x_msg_data => x_msg_data );
6561: IF (l_debug = 1) THEN
6562: mydebug ('x_return_status: ' || x_return_status );
6563: END IF;
6564: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6565: RAISE fnd_api.g_exc_unexpected_error;
6566: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6567: RAISE fnd_api.g_exc_error;
6568: END IF;
6561: IF (l_debug = 1) THEN
6562: mydebug ('x_return_status: ' || x_return_status );
6563: END IF;
6564: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6565: RAISE fnd_api.g_exc_unexpected_error;
6566: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6567: RAISE fnd_api.g_exc_error;
6568: END IF;
6569: END IF;
6562: mydebug ('x_return_status: ' || x_return_status );
6563: END IF;
6564: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6565: RAISE fnd_api.g_exc_unexpected_error;
6566: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6567: RAISE fnd_api.g_exc_error;
6568: END IF;
6569: END IF;
6570:
6563: END IF;
6564: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6565: RAISE fnd_api.g_exc_unexpected_error;
6566: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6567: RAISE fnd_api.g_exc_error;
6568: END IF;
6569: END IF;
6570:
6571: IF l_parent_line_id IS NULL -- non bulk parent or non-bulk-child
6587: , x_msg_data => x_msg_data);
6588: IF (l_debug = 1) THEN
6589: mydebug ('x_return_status: ' || x_return_status );
6590: END IF;
6591: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6592: RAISE fnd_api.g_exc_unexpected_error;
6593: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6594: RAISE fnd_api.g_exc_error;
6595: END IF;
6588: IF (l_debug = 1) THEN
6589: mydebug ('x_return_status: ' || x_return_status );
6590: END IF;
6591: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6592: RAISE fnd_api.g_exc_unexpected_error;
6593: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6594: RAISE fnd_api.g_exc_error;
6595: END IF;
6596:
6589: mydebug ('x_return_status: ' || x_return_status );
6590: END IF;
6591: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6592: RAISE fnd_api.g_exc_unexpected_error;
6593: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6594: RAISE fnd_api.g_exc_error;
6595: END IF;
6596:
6597: END IF;
6590: END IF;
6591: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6592: RAISE fnd_api.g_exc_unexpected_error;
6593: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6594: RAISE fnd_api.g_exc_error;
6595: END IF;
6596:
6597: END IF;
6598:
6631: , p_business_flow_code => l_business_flow_code
6632: , p_transaction_id => l_temp_id
6633: );
6634:
6635: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6636: IF (l_debug = 1) THEN mydebug('Label printing failed. Continue'); END IF;
6637: END IF;
6638: END LOOP;
6639:
6667: IF (l_debug = 1) THEN
6668: mydebug ('l_new_txn_hdr_id: ' || l_new_txn_hdr_id );
6669: mydebug ('x_return_status: ' || x_return_status );
6670: END IF;
6671: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6672: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
6673: --fnd_msg_pub.ADD;
6674: RAISE fnd_api.g_exc_unexpected_error;
6675: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6670: END IF;
6671: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6672: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
6673: --fnd_msg_pub.ADD;
6674: RAISE fnd_api.g_exc_unexpected_error;
6675: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6676: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
6677: --fnd_msg_pub.ADD;
6678: RAISE fnd_api.g_exc_error;
6671: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
6672: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
6673: --fnd_msg_pub.ADD;
6674: RAISE fnd_api.g_exc_unexpected_error;
6675: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6676: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
6677: --fnd_msg_pub.ADD;
6678: RAISE fnd_api.g_exc_error;
6679: END IF;
6674: RAISE fnd_api.g_exc_unexpected_error;
6675: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
6676: --fnd_message.set_name('WMS', 'WMS_MULT_LPN_ERROR');
6677: --fnd_msg_pub.ADD;
6678: RAISE fnd_api.g_exc_error;
6679: END IF;
6680:
6681: /* -- Bug #: 6908598 Commenting else part as we are calling the label printing irrespective of whether it is a bulk task or not */
6682: /*
6717: , p_business_flow_code => l_business_flow_code
6718: , p_transaction_id => l_temp_id
6719: );
6720:
6721: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6722: IF (l_debug = 1) THEN mydebug('Label printing failed. Continue'); END IF;
6723: END IF;
6724: END LOOP;
6725:
6787: mydebug('x_msg_data:' || x_msg_data);
6788: END IF;
6789:
6790: EXCEPTION
6791: WHEN fnd_api.g_exc_error THEN
6792: x_return_status := l_g_ret_sts_error;
6793: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6794: mydebug('ROLLBACK ' );
6795: ROLLBACK ;
6793: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6794: mydebug('ROLLBACK ' );
6795: ROLLBACK ;
6796: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6797: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6798: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
6799: WHEN fnd_api.g_exc_unexpected_error THEN
6800: x_return_status := fnd_api.g_ret_sts_unexp_error;
6801: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6795: ROLLBACK ;
6796: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6797: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6798: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
6799: WHEN fnd_api.g_exc_unexpected_error THEN
6800: x_return_status := fnd_api.g_ret_sts_unexp_error;
6801: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6802: mydebug('ROLLBACK ' );
6803: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6796: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6797: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6798: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
6799: WHEN fnd_api.g_exc_unexpected_error THEN
6800: x_return_status := fnd_api.g_ret_sts_unexp_error;
6801: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6802: mydebug('ROLLBACK ' );
6803: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6804: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
6800: x_return_status := fnd_api.g_ret_sts_unexp_error;
6801: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6802: mydebug('ROLLBACK ' );
6803: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6804: mydebug('RAISE fnd_api.g_exc_unexpected_error: ' || SQLERRM);
6805: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
6806: ROLLBACK ;
6807: WHEN OTHERS THEN
6808: x_return_status := l_g_ret_sts_unexp_error;
6809: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6810: mydebug('ROLLBACK ' );
6811: ROLLBACK ;
6812: mydebug('l_progress = ' || l_proc_name || ':'|| l_progress);
6813: mydebug('RAISE fnd_api.g_exc_error: ' || SQLERRM);
6814: mydebug('x_msg_count/Data = ' || x_msg_count || '/'|| x_msg_data);
6815:
6816: END TASK_LOAD;
6817:
7047: IF (l_debug = 1) THEN
7048: mydebug('In lpn Match');
7049: END IF;
7050:
7051: x_return_status := fnd_api.g_ret_sts_success;
7052: l_lpn_exists := 0;
7053: --clear the PL/SQL table each time coming in
7054:
7055: t_lpn_lot_qty_table.DELETE;
7135: END IF;
7136:
7137: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
7138: fnd_msg_pub.ADD;
7139: RAISE fnd_api.g_exc_error;
7140: END;
7141:
7142: IF l_lpn_exists = 0
7143: OR p_fromlpn_id = 0
7147: END IF;
7148:
7149: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
7150: fnd_msg_pub.ADD;
7151: RAISE fnd_api.g_exc_error;
7152: END IF;
7153:
7154: IF (l_debug = 1) THEN
7155: mydebug('Checking if lpn has been picked already');
7177: IF l_loaded > 0 THEN
7178: x_match := 7;
7179: fnd_message.set_name('WMS', 'WMS_LOADED_ERROR');
7180: fnd_msg_pub.ADD;
7181: RAISE fnd_api.g_exc_error;
7182: END IF;
7183:
7184: -- Check if locator is valid
7185: IF (l_debug = 1) THEN
7207:
7208: x_match := 10;
7209: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
7210: fnd_msg_pub.ADD;
7211: RAISE fnd_api.g_exc_error;
7212: END IF;
7213:
7214: -- bug 2398247
7215: -- verify if sub is active
7223: IF l_sub_active = 0 THEN
7224: x_match := 10;
7225: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SUB');
7226: fnd_msg_pub.ADD;
7227: RAISE fnd_api.g_exc_error;
7228: END IF;
7229:
7230: -- verify if locator is active
7231: SELECT COUNT(*)
7239: IF l_loc_active = 0 THEN
7240: x_match := 10;
7241: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LOC');
7242: fnd_msg_pub.ADD;
7243: RAISE fnd_api.g_exc_error;
7244: END IF;
7245: -- Begin fix for 2774506
7246:
7247:
7276: if ((l_mil_proj_id <> l_mmtt_proj_id ) or ( l_mil_task_id <> l_mmtt_task_id )) then
7277: mydebug('lpn : the project/tak information does not match');
7278: FND_MESSAGE.SET_NAME('WMS','WMS_CONT_INVALID_LPN');
7279: FND_MSG_PUB.ADD;
7280: RAISE FND_API.G_EXC_ERROR;
7281: end if ;
7282:
7283: -- End fix for 2774506
7284:
7290: WHEN NO_DATA_FOUND THEN
7291: x_match := 6;
7292: fnd_message.set_name('WMS', 'WMS_TD_LPN_LOC_NOT_FOUND');
7293: fnd_msg_pub.ADD;
7294: RAISE fnd_api.g_exc_error;
7295: END;
7296:
7297: IF (l_debug = 1) THEN
7298: mydebug('sub is ' || l_sub);
7321: IF l_so_cnt > 0 THEN
7322: x_match := 12;
7323: fnd_message.set_name('WMS', 'WMS_LPN_STAGED');
7324: fnd_msg_pub.ADD;
7325: RAISE fnd_api.g_exc_error;
7326: END IF;
7327:
7328: -- SELECT primary_uom_code
7329: -- , lot_control_code
7377:
7378: x_match := 13;
7379: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
7380: fnd_msg_pub.ADD;
7381: RAISE fnd_api.g_exc_error;
7382: END;
7383:
7384: IF l_item_cnt > 0
7385: AND l_lot_code > 1 THEN
7408:
7409: x_match := 5;
7410: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LOT_LPN');
7411: fnd_msg_pub.ADD;
7412: RAISE fnd_api.g_exc_error;
7413: END;
7414: END IF;
7415:
7416: -- Item with the correct lot/revision exists in LPN
7461: END IF;
7462:
7463: fnd_message.set_name('INV', 'INV_INVALID_TRANSACTION');
7464: fnd_msg_pub.ADD;
7465: RAISE fnd_api.g_exc_error;
7466: END;
7467:
7468: -- clear quantity cache before we create qty tree.
7469: inv_quantity_tree_pub.clear_quantity_cache;
7549: -- Serial numbers missing for the transaction
7550: x_match := 9;
7551: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
7552: fnd_msg_pub.ADD;
7553: RAISE fnd_api.g_exc_error;
7554: END IF;
7555: END IF;
7556:
7557: l_lpn_pr_qty := 0;
7573: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
7574: -- in order to get correct att.
7575: inv_quantity_tree_pub.update_quantities(
7576: p_api_version_number => 1.0
7577: , p_init_msg_lst => fnd_api.g_false
7578: , x_return_status => l_return_status
7579: , x_msg_count => l_msg_cnt
7580: , x_msg_data => l_msg_data
7581: , p_organization_id => p_org_id
7606: , p_lpn_id => p_fromlpn_id
7607: , p_transfer_subinventory_code => l_xfr_sub_code
7608: );
7609:
7610: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
7611: IF (l_debug = 1) THEN
7612: mydebug('after update qty tree for lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
7613: mydebug('after update qty tree for lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number);
7614: END IF;
7619:
7620: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7621: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7622: fnd_msg_pub.ADD;
7623: RAISE fnd_api.g_exc_error;
7624: END IF;
7625: --Bug#5649056: only update if subinventory and locator match
7626: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
7627: inv_quantity_tree_pub.update_quantities(
7625: --Bug#5649056: only update if subinventory and locator match
7626: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
7627: inv_quantity_tree_pub.update_quantities(
7628: p_api_version_number => 1.0
7629: , p_init_msg_lst => fnd_api.g_false
7630: , x_return_status => l_return_status
7631: , x_msg_count => l_msg_cnt
7632: , x_msg_data => l_msg_data
7633: , p_organization_id => p_org_id
7658: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
7659: , p_transfer_subinventory_code => l_xfr_sub_code
7660: );
7661:
7662: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
7663: IF (l_debug = 1) THEN
7664: mydebug('after update qty tree without lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
7665: mydebug('after update qty tree without lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number);
7666: END IF;
7671:
7672: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7673: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7674: fnd_msg_pub.ADD;
7675: RAISE fnd_api.g_exc_error;
7676: END IF;
7677: END IF;
7678:
7679: inv_quantity_tree_pub.query_quantities(
7677: END IF;
7678:
7679: inv_quantity_tree_pub.query_quantities(
7680: p_api_version_number => 1.0
7681: , p_init_msg_lst => fnd_api.g_false
7682: , x_return_status => l_return_status
7683: , x_msg_count => l_msg_cnt
7684: , x_msg_data => l_msg_data
7685: , p_organization_id => p_org_id
7709: , p_transfer_subinventory_code => l_xfr_sub_code
7710: , p_grade_code => NULL -- Bug #4141928
7711: );
7712:
7713: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
7714: IF (l_att > 0) THEN
7715: l_table_index := l_table_index + 1;
7716:
7717: IF (l_debug = 1) THEN
7754:
7755: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7756: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7757: fnd_msg_pub.ADD;
7758: RAISE fnd_api.g_exc_error;
7759: END IF;
7760:
7761: IF NVL(l_allocated_lpn_id, 0) = p_fromlpn_id THEN
7762: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
7762: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
7763: -- in order to get correct att.
7764: inv_quantity_tree_pub.update_quantities(
7765: p_api_version_number => 1.0
7766: , p_init_msg_lst => fnd_api.g_false
7767: , x_return_status => l_return_status
7768: , x_msg_count => l_msg_cnt
7769: , x_msg_data => l_msg_data
7770: , p_organization_id => p_org_id
7795: , p_lpn_id => p_fromlpn_id
7796: , p_transfer_subinventory_code => l_xfr_sub_code
7797: );
7798:
7799: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
7800: IF (l_debug = 1) THEN
7801: mydebug('after update qty tree back for lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
7802: mydebug('after update qty tree back for lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number);
7803: END IF;
7808:
7809: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7810: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7811: fnd_msg_pub.ADD;
7812: RAISE fnd_api.g_exc_error;
7813: END IF;
7814: --Bug#5649056: only update if subinventory and locator match
7815: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
7816: inv_quantity_tree_pub.update_quantities(
7814: --Bug#5649056: only update if subinventory and locator match
7815: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
7816: inv_quantity_tree_pub.update_quantities(
7817: p_api_version_number => 1.0
7818: , p_init_msg_lst => fnd_api.g_false
7819: , x_return_status => l_return_status
7820: , x_msg_count => l_msg_cnt
7821: , x_msg_data => l_msg_data
7822: , p_organization_id => p_org_id
7847: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
7848: , p_transfer_subinventory_code => l_xfr_sub_code
7849: );
7850:
7851: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
7852: IF (l_debug = 1) THEN
7853: mydebug('after update qty tree back without lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
7854: mydebug('after update qty tree back without lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number);
7855: END IF;
7860:
7861: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
7862: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
7863: fnd_msg_pub.ADD;
7864: RAISE fnd_api.g_exc_error;
7865: END IF;
7866: END IF;
7867: END LOOP;
7868:
7906: -- Serial numbers missing for the transaction
7907: x_match := 9;
7908: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
7909: fnd_msg_pub.ADD;
7910: RAISE fnd_api.g_exc_error;
7911: END IF;
7912:
7913: SELECT COUNT(fm_serial_number)
7914: INTO l_total_serial_cnt
7976: -- Serial numbers missing for the transaction
7977: x_match := 9;
7978: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
7979: fnd_msg_pub.ADD;
7980: RAISE fnd_api.g_exc_error;
7981: END IF;
7982: END IF;
7983: -- end of bug 4277869
7984:
7990: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
7991: -- in order to get correct att.
7992: inv_quantity_tree_pub.update_quantities(
7993: p_api_version_number => 1.0
7994: , p_init_msg_lst => fnd_api.g_false
7995: , x_return_status => l_return_status
7996: , x_msg_count => l_msg_cnt
7997: , x_msg_data => l_msg_data
7998: , p_organization_id => p_org_id
8023: , p_lpn_id => p_fromlpn_id
8024: , p_transfer_subinventory_code => l_xfr_sub_code
8025: );
8026:
8027: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8028: IF (l_debug = 1) THEN
8029: mydebug('update qty tree with lpn 2nd time: l_att:' || l_att);
8030: mydebug('update qty tree with lpn 2nd time: l_satt:' || l_satt); -- Bug #4141928
8031: END IF;
8036:
8037: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8038: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8039: fnd_msg_pub.ADD;
8040: RAISE fnd_api.g_exc_error;
8041: END IF;
8042: --Bug#5649056: only update if subinventory and locator match
8043: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
8044: inv_quantity_tree_pub.update_quantities(
8042: --Bug#5649056: only update if subinventory and locator match
8043: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
8044: inv_quantity_tree_pub.update_quantities(
8045: p_api_version_number => 1.0
8046: , p_init_msg_lst => fnd_api.g_false
8047: , x_return_status => l_return_status
8048: , x_msg_count => l_msg_cnt
8049: , x_msg_data => l_msg_data
8050: , p_organization_id => p_org_id
8075: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
8076: , p_transfer_subinventory_code => l_xfr_sub_code
8077: );
8078:
8079: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8080: IF (l_debug = 1) THEN
8081: mydebug('update qty tree without lpn 2nd time:l_att:' || l_att);
8082: mydebug('update qty tree with lpn 2nd time: l_satt:' || l_satt); -- Bug #4141928
8083: END IF;
8088:
8089: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8090: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8091: fnd_msg_pub.ADD;
8092: RAISE fnd_api.g_exc_error;
8093: END IF;
8094: END IF;
8095:
8096: inv_quantity_tree_pub.query_quantities(
8094: END IF;
8095:
8096: inv_quantity_tree_pub.query_quantities(
8097: p_api_version_number => 1.0
8098: , p_init_msg_lst => fnd_api.g_false
8099: , x_return_status => l_return_status
8100: , x_msg_count => l_msg_cnt
8101: , x_msg_data => l_msg_data
8102: , p_organization_id => p_org_id
8126: , p_transfer_subinventory_code => l_xfr_sub_code
8127: , p_grade_code => NULL -- Bug #4141928
8128: );
8129:
8130: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8131: l_lpn_pr_qty := l_att;
8132: l_lpn_sec_qty := l_satt; -- Bug #4141928
8133: -- Bug #4141928. No changes required for OPM convergence.
8134: -- let primary qty drive the lpn match
8149:
8150: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8151: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8152: fnd_msg_pub.ADD;
8153: RAISE fnd_api.g_exc_error;
8154: END IF;
8155:
8156: IF NVL(l_allocated_lpn_id, 0) = p_fromlpn_id THEN
8157: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
8157: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
8158: -- in order to get correct att.
8159: inv_quantity_tree_pub.update_quantities(
8160: p_api_version_number => 1.0
8161: , p_init_msg_lst => fnd_api.g_false
8162: , x_return_status => l_return_status
8163: , x_msg_count => l_msg_cnt
8164: , x_msg_data => l_msg_data
8165: , p_organization_id => p_org_id
8190: , p_lpn_id => p_fromlpn_id
8191: , p_transfer_subinventory_code => l_xfr_sub_code
8192: );
8193:
8194: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8195: IF (l_debug = 1) THEN
8196: mydebug('update qty tree back with lpn 2nd time: l_att:' || l_att);
8197: mydebug('update qty tree back with lpn 2nd time: l_satt:' || l_satt); -- Bug #4141928
8198: END IF;
8203:
8204: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8205: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8206: fnd_msg_pub.ADD;
8207: RAISE fnd_api.g_exc_error;
8208: END IF;
8209: --Bug#5649056: only update if subinventory and locator match
8210: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
8211: inv_quantity_tree_pub.update_quantities(
8209: --Bug#5649056: only update if subinventory and locator match
8210: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
8211: inv_quantity_tree_pub.update_quantities(
8212: p_api_version_number => 1.0
8213: , p_init_msg_lst => fnd_api.g_false
8214: , x_return_status => l_return_status
8215: , x_msg_count => l_msg_cnt
8216: , x_msg_data => l_msg_data
8217: , p_organization_id => p_org_id
8242: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
8243: , p_transfer_subinventory_code => l_xfr_sub_code
8244: );
8245:
8246: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8247: IF (l_debug = 1) THEN
8248: mydebug('update qty tree back without lpn 2nd time:l_att:' || l_att);
8249: mydebug('update qty tree back without lpn 2nd time:l_satt:' || l_satt); -- Bug #4141928
8250: END IF;
8255:
8256: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8257: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8258: fnd_msg_pub.ADD;
8259: RAISE fnd_api.g_exc_error;
8260: END IF;
8261: END IF;
8262: END IF;
8263: ELSE
8319: -- Serial numbers missing for the transaction
8320: x_match := 9;
8321: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
8322: fnd_msg_pub.ADD;
8323: RAISE fnd_api.g_exc_error;
8324: END IF;
8325: END IF;
8326:
8327: -- Check whether the Lots allocated are all in the LPN
8354: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
8355: -- in order to get correct att.
8356: inv_quantity_tree_pub.update_quantities(
8357: p_api_version_number => 1.0
8358: , p_init_msg_lst => fnd_api.g_false
8359: , x_return_status => l_return_status
8360: , x_msg_count => l_msg_cnt
8361: , x_msg_data => l_msg_data
8362: , p_organization_id => p_org_id
8387: , p_lpn_id => p_fromlpn_id
8388: , p_transfer_subinventory_code => l_xfr_sub_code
8389: );
8390:
8391: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8392: IF (l_debug = 1) THEN
8393: mydebug('update qty tree 3rd time for lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
8394: mydebug('update qty tree 3rd time for lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number); -- Bug #4141928
8395: END IF;
8400:
8401: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8402: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8403: fnd_msg_pub.ADD;
8404: RAISE fnd_api.g_exc_error;
8405: END IF;
8406: --Bug#5649056: only update if subinventory and locator match
8407: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
8408: inv_quantity_tree_pub.update_quantities(
8406: --Bug#5649056: only update if subinventory and locator match
8407: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
8408: inv_quantity_tree_pub.update_quantities(
8409: p_api_version_number => 1.0
8410: , p_init_msg_lst => fnd_api.g_false
8411: , x_return_status => l_return_status
8412: , x_msg_count => l_msg_cnt
8413: , x_msg_data => l_msg_data
8414: , p_organization_id => p_org_id
8439: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
8440: , p_transfer_subinventory_code => l_xfr_sub_code
8441: );
8442:
8443: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8444: IF (l_debug = 1) THEN
8445: mydebug('after update without lpn 3rd time l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
8446: mydebug('after update without lpn 3rd time l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number); -- Bug #4141928
8447: END IF;
8452:
8453: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8454: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8455: fnd_msg_pub.ADD;
8456: RAISE fnd_api.g_exc_error;
8457: END IF;
8458: END IF;
8459:
8460: inv_quantity_tree_pub.query_quantities(
8458: END IF;
8459:
8460: inv_quantity_tree_pub.query_quantities(
8461: p_api_version_number => 1.0
8462: , p_init_msg_lst => fnd_api.g_false
8463: , x_return_status => l_return_status
8464: , x_msg_count => l_msg_cnt
8465: , x_msg_data => l_msg_data
8466: , p_organization_id => p_org_id
8490: , p_transfer_subinventory_code => l_xfr_sub_code
8491: , p_grade_code => NULL -- Bug #4141928
8492: );
8493:
8494: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8495: l_lot_match := 1;
8496:
8497: IF (l_att > 0) THEN
8498: l_table_index := l_table_index + 1;
8552:
8553: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8554: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8555: fnd_msg_pub.ADD;
8556: RAISE fnd_api.g_exc_error;
8557: END IF;
8558:
8559: IF (l_lot_match <> 0)
8560: AND (x_match <> 4) THEN
8678: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
8679: -- in order to get correct att.
8680: inv_quantity_tree_pub.update_quantities(
8681: p_api_version_number => 1.0
8682: , p_init_msg_lst => fnd_api.g_false
8683: , x_return_status => l_return_status
8684: , x_msg_count => l_msg_cnt
8685: , x_msg_data => l_msg_data
8686: , p_organization_id => p_org_id
8711: , p_lpn_id => p_fromlpn_id
8712: , p_transfer_subinventory_code => l_xfr_sub_code
8713: );
8714:
8715: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8716: IF (l_debug = 1) THEN
8717: mydebug('update qty tree back 3rd time for lpn l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
8718: mydebug('update qty tree back 3rd time for lpn l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number); -- Bug #4141928
8719: END IF;
8724:
8725: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8726: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8727: fnd_msg_pub.ADD;
8728: RAISE fnd_api.g_exc_error;
8729: END IF;
8730: --Bug#5649056: only update if subinventory and locator match
8731: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
8732: inv_quantity_tree_pub.update_quantities(
8730: --Bug#5649056: only update if subinventory and locator match
8731: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
8732: inv_quantity_tree_pub.update_quantities(
8733: p_api_version_number => 1.0
8734: , p_init_msg_lst => fnd_api.g_false
8735: , x_return_status => l_return_status
8736: , x_msg_count => l_msg_cnt
8737: , x_msg_data => l_msg_data
8738: , p_organization_id => p_org_id
8763: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
8764: , p_transfer_subinventory_code => l_xfr_sub_code
8765: );
8766:
8767: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8768: IF (l_debug = 1) THEN
8769: mydebug('after update qty tree back without lpn 3rd time l_att:' || l_att || ' for lot:' || l_mtlt_lot_number);
8770: mydebug('after update qty tree back without lpn 3rd time l_satt:' || l_satt || ' for lot:' || l_mtlt_lot_number); -- Bug #4141928
8771: END IF;
8776:
8777: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8778: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8779: fnd_msg_pub.ADD;
8780: RAISE fnd_api.g_exc_error;
8781: END IF;
8782: END IF;
8783: END LOOP;
8784:
8888: -- Serial numbers missing for the transaction
8889: x_match := 9;
8890: fnd_message.set_name('INV', 'INV_INT_SERMISEXP');
8891: fnd_msg_pub.ADD;
8892: RAISE fnd_api.g_exc_error;
8893: END IF;
8894: END IF;
8895:
8896: -- Get qty
8902: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
8903: -- in order to get correct att.
8904: inv_quantity_tree_pub.update_quantities(
8905: p_api_version_number => 1.0
8906: , p_init_msg_lst => fnd_api.g_false
8907: , x_return_status => l_return_status
8908: , x_msg_count => l_msg_cnt
8909: , x_msg_data => l_msg_data
8910: , p_organization_id => p_org_id
8935: , p_lpn_id => p_fromlpn_id
8936: , p_transfer_subinventory_code => l_xfr_sub_code
8937: );
8938:
8939: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8940: IF (l_debug = 1) THEN
8941: mydebug('update qty tree with lpn 4th time: l_att:' || l_att);
8942: mydebug('update qty tree with lpn 4th time: l_satt:' || l_satt); -- Bug #4141928
8943: END IF;
8948:
8949: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
8950: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
8951: fnd_msg_pub.ADD;
8952: RAISE fnd_api.g_exc_error;
8953: END IF;
8954: --Bug#5649056: only update if subinventory and locator match
8955: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
8956:
8955: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
8956:
8957: inv_quantity_tree_pub.update_quantities(
8958: p_api_version_number => 1.0
8959: , p_init_msg_lst => fnd_api.g_false
8960: , x_return_status => l_return_status
8961: , x_msg_count => l_msg_cnt
8962: , x_msg_data => l_msg_data
8963: , p_organization_id => p_org_id
8988: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
8989: , p_transfer_subinventory_code => l_xfr_sub_code
8990: );
8991:
8992: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
8993: IF (l_debug = 1) THEN
8994: mydebug('update qty tree without lpn 4th time:l_att:' || l_att);
8995: mydebug('update qty tree without lpn 4th time:l_satt:' || l_satt); -- Bug #4141928
8996: END IF;
9001:
9002: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9003: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9004: fnd_msg_pub.ADD;
9005: RAISE fnd_api.g_exc_error;
9006: END IF;
9007: END IF;
9008:
9009: inv_quantity_tree_pub.query_quantities(
9007: END IF;
9008:
9009: inv_quantity_tree_pub.query_quantities(
9010: p_api_version_number => 1.0
9011: , p_init_msg_lst => fnd_api.g_false
9012: , x_return_status => l_return_status
9013: , x_msg_count => l_msg_cnt
9014: , x_msg_data => l_msg_data
9015: , p_organization_id => p_org_id
9039: , p_transfer_subinventory_code => l_xfr_sub_code
9040: , p_grade_code => NULL -- Bug #4141928
9041: );
9042:
9043: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9044: IF (l_debug = 1) THEN
9045: mydebug('lpn quantity = ' || l_att);
9046: mydebug('lpn sec quantity = ' || l_satt);
9047: END IF;
9108:
9109: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9110: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9111: fnd_msg_pub.ADD;
9112: RAISE fnd_api.g_exc_error;
9113: END IF;
9114:
9115: IF NVL(l_allocated_lpn_id, 0) = p_fromlpn_id THEN
9116: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
9116: --from lpn is the same as allocated_lpn, we need to update qty tree as negative qty
9117: -- in order to get correct att.
9118: inv_quantity_tree_pub.update_quantities(
9119: p_api_version_number => 1.0
9120: , p_init_msg_lst => fnd_api.g_false
9121: , x_return_status => l_return_status
9122: , x_msg_count => l_msg_cnt
9123: , x_msg_data => l_msg_data
9124: , p_organization_id => p_org_id
9149: , p_lpn_id => p_fromlpn_id
9150: , p_transfer_subinventory_code => l_xfr_sub_code
9151: );
9152:
9153: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9154: IF (l_debug = 1) THEN
9155: mydebug('update qty tree back with lpn 4th time: l_att:' || l_att);
9156: mydebug('update qty tree back with lpn 4th time: l_satt:' || l_satt); -- Bug #4141928
9157: END IF;
9162:
9163: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9164: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9165: fnd_msg_pub.ADD;
9166: RAISE fnd_api.g_exc_error;
9167: END IF;
9168: --Bug#5649056: only update if subinventory and locator match
9169: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9170: inv_quantity_tree_pub.update_quantities(
9168: --Bug#5649056: only update if subinventory and locator match
9169: ELSIF ( l_lpn_sub = l_mmtt_sub AND l_lpn_loc = l_mmtt_loc ) THEN
9170: inv_quantity_tree_pub.update_quantities(
9171: p_api_version_number => 1.0
9172: , p_init_msg_lst => fnd_api.g_false
9173: , x_return_status => l_return_status
9174: , x_msg_count => l_msg_cnt
9175: , x_msg_data => l_msg_data
9176: , p_organization_id => p_org_id
9201: -- , p_lpn_id => p_fromlpn_id withour lpn_id, only to locator level
9202: , p_transfer_subinventory_code => l_xfr_sub_code
9203: );
9204:
9205: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
9206: IF (l_debug = 1) THEN
9207: mydebug('update qty tree back without lpn 4th time:l_att:' || l_att);
9208: mydebug('update qty tree back without lpn 4th time:l_satt:' || l_satt);
9209: END IF;
9214:
9215: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
9216: fnd_message.set_token('ROUTINE', 'INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
9217: fnd_msg_pub.ADD;
9218: RAISE fnd_api.g_exc_error;
9219: END IF;
9220: END IF;
9221:
9222: -- If the LPN quantity exactly matches/ has less than, the requested
9312: , x_msg_data => l_msg_data
9313: );
9314:
9315:
9316: IF x_return_status = fnd_api.g_ret_sts_error THEN
9317: RAISE fnd_api.g_exc_error;
9318: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9319: RAISE fnd_api.g_exc_unexpected_error;
9320: END IF;
9313: );
9314:
9315:
9316: IF x_return_status = fnd_api.g_ret_sts_error THEN
9317: RAISE fnd_api.g_exc_error;
9318: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9319: RAISE fnd_api.g_exc_unexpected_error;
9320: END IF;
9321:
9314:
9315:
9316: IF x_return_status = fnd_api.g_ret_sts_error THEN
9317: RAISE fnd_api.g_exc_error;
9318: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9319: RAISE fnd_api.g_exc_unexpected_error;
9320: END IF;
9321:
9322: IF l_check_overpick_passed = 'Y' THEN
9315:
9316: IF x_return_status = fnd_api.g_ret_sts_error THEN
9317: RAISE fnd_api.g_exc_error;
9318: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9319: RAISE fnd_api.g_exc_unexpected_error;
9320: END IF;
9321:
9322: IF l_check_overpick_passed = 'Y' THEN
9323: x_lpnpickedasis := 'Y';
9366: CLOSE ser_csr;
9367: fnd_message.set_name('INV', 'INV_SER_STATUS_NA');
9368: fnd_message.set_token('TOKEN', l_serial_number);
9369: fnd_msg_pub.ADD;
9370: RAISE fnd_api.g_exc_error;
9371: END IF;
9372: END LOOP;
9373:
9374: CLOSE ser_csr;
9395:
9396: fnd_message.set_name('INV', 'INV_INVALID_LPN_STATUS');
9397: fnd_message.set_token('TOKEN1', TO_CHAR(p_fromlpn_id));
9398: fnd_msg_pub.ADD;
9399: RAISE fnd_api.g_exc_error;
9400: END IF;
9401: END IF;
9402: END IF;
9403:
9729: END IF;
9730: ELSE x_lpn_qoh := l_qoh;
9731: END IF;
9732: --x_lpn_qoh := l_sqoh;
9733: x_return_status := fnd_api.g_ret_sts_success;
9734:
9735: IF (l_debug = 1) THEN
9736: mydebug('Match ' || x_match);
9737: END IF;
9760: mydebug('LPN record is locked by another user... cannot pick this LPN' );
9761: fnd_message.set_name('WMS', 'WMS_LPN_LOCKED_ERROR');
9762: -- LPN is in use by another user
9763: fnd_msg_pub.ADD;
9764: RAISE fnd_api.g_exc_error;
9765: ELSE
9766: RAISE fnd_api.g_exc_unexpected_error;
9767: END IF;
9768:
9762: -- LPN is in use by another user
9763: fnd_msg_pub.ADD;
9764: RAISE fnd_api.g_exc_error;
9765: ELSE
9766: RAISE fnd_api.g_exc_unexpected_error;
9767: END IF;
9768:
9769: END ;
9770: END IF;
9811: -- Bug 4632519
9812: );
9813:
9814:
9815: If x_return_status <> fnd_api.g_ret_sts_success THEN
9816: x_toLPN_status := 'F';
9817: IF (l_debug = 1) THEN
9818: mydebug('Validate_pick_to_lpn could not validate toLPNDefault:');
9819: END IF;
9816: x_toLPN_status := 'F';
9817: IF (l_debug = 1) THEN
9818: mydebug('Validate_pick_to_lpn could not validate toLPNDefault:');
9819: END IF;
9820: x_return_status := fnd_api.g_ret_sts_success;
9821: Else
9822: x_toLPN_status := 'T';
9823: IF (l_debug = 1) THEN
9824: mydebug('Validate_pick_to_lpn validated toLPNDefault:');
9828: END IF;
9829:
9830:
9831: EXCEPTION
9832: WHEN fnd_api.g_exc_error THEN
9833: IF (l_debug = 1) THEN
9834: mydebug(' Expected Exception raised');
9835: END IF;
9836: x_return_status := fnd_api.g_ret_sts_error;
9832: WHEN fnd_api.g_exc_error THEN
9833: IF (l_debug = 1) THEN
9834: mydebug(' Expected Exception raised');
9835: END IF;
9836: x_return_status := fnd_api.g_ret_sts_error;
9837: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9838: WHEN fnd_api.g_exc_unexpected_error THEN
9839: IF (l_debug = 1) THEN
9840: mydebug(' Unexpected Exception raised');
9834: mydebug(' Expected Exception raised');
9835: END IF;
9836: x_return_status := fnd_api.g_ret_sts_error;
9837: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9838: WHEN fnd_api.g_exc_unexpected_error THEN
9839: IF (l_debug = 1) THEN
9840: mydebug(' Unexpected Exception raised');
9841: END IF;
9842: x_return_status := fnd_api.g_ret_sts_unexp_error;
9838: WHEN fnd_api.g_exc_unexpected_error THEN
9839: IF (l_debug = 1) THEN
9840: mydebug(' Unexpected Exception raised');
9841: END IF;
9842: x_return_status := fnd_api.g_ret_sts_unexp_error;
9843: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9844: WHEN OTHERS THEN
9845: IF (l_debug = 1) THEN
9846: mydebug('Other exception raised : ' || SQLERRM);
9845: IF (l_debug = 1) THEN
9846: mydebug('Other exception raised : ' || SQLERRM);
9847: END IF;
9848:
9849: x_return_status := fnd_api.g_ret_sts_unexp_error;
9850: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9851: END lpn_match;
9852:
9853:
9944: IF (l_debug = 1) THEN
9945: mydebug('In loose Match');
9946: END IF;
9947:
9948: x_return_status := fnd_api.g_ret_sts_success;
9949: x_lot_att_vector := null;
9950:
9951: DELETE wms_allocations_gtmp;
9952: t_lpn_lot_qty_table.DELETE;
10080: WHERE transaction_temp_id = p_temp_id;
10081: END IF;
10082:
10083: -- End change - Bug 4185621
10084: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
10085:
10086:
10087: -- convert the qty from primary UOM to transaction UOM
10088:
10194: END IF;
10195: fnd_message.set_name('INV', 'INV_INVALID_QUANTITY_TYPE');
10196: fnd_message.set_token('ROUTINE','INV_QUANTITY_TREE_PUB.QUERY_QUANTITIES');
10197: fnd_msg_pub.ADD;
10198: RAISE fnd_api.g_exc_error;
10199: END IF;
10200:
10201: EXIT WHEN p_is_lot_control ='false';
10202: END LOOP;
10273: -- Bug 4632519
10274: );
10275:
10276:
10277: If x_return_status <> fnd_api.g_ret_sts_success THEN
10278: x_toLPN_status := 'F';
10279: IF (l_debug = 1) THEN
10280: mydebug('Validate_pick_to_lpn could not validate toLPNDefault:');
10281: END IF;
10278: x_toLPN_status := 'F';
10279: IF (l_debug = 1) THEN
10280: mydebug('Validate_pick_to_lpn could not validate toLPNDefault:');
10281: END IF;
10282: x_return_status := fnd_api.g_ret_sts_success;
10283: Else
10284: x_toLPN_status := 'T';
10285: IF (l_debug = 1) THEN
10286: mydebug('Validate_pick_to_lpn validated toLPNDefault:');
10289:
10290: END IF;
10291:
10292: EXCEPTION
10293: WHEN fnd_api.g_exc_error THEN
10294: IF (l_debug = 1) THEN
10295: mydebug('Exception raised');
10296: END IF;
10297:
10294: IF (l_debug = 1) THEN
10295: mydebug('Exception raised');
10296: END IF;
10297:
10298: x_return_status := fnd_api.g_ret_sts_error;
10299: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10300: WHEN OTHERS THEN
10301: IF (l_debug = 1) THEN
10302: mydebug('Other exception raised : ' || SQLERRM);
10301: IF (l_debug = 1) THEN
10302: mydebug('Other exception raised : ' || SQLERRM);
10303: END IF;
10304:
10305: x_return_status := fnd_api.g_ret_sts_unexp_error;
10306: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10307: END LOOSE_MATCH;
10308:
10309:
10367: IF (l_debug = 1) THEN
10368: mydebug('check_pack_lpn: check_pack_lpn begins');
10369: END IF;
10370:
10371: l_return_status := fnd_api.g_ret_sts_success;
10372:
10373: IF ((p_lpn IS NULL)
10374: OR(p_lpn = '')) THEN
10375: x_return_status := fnd_api.g_ret_sts_success;
10371: l_return_status := fnd_api.g_ret_sts_success;
10372:
10373: IF ((p_lpn IS NULL)
10374: OR(p_lpn = '')) THEN
10375: x_return_status := fnd_api.g_ret_sts_success;
10376: RETURN;
10377: END IF;
10378:
10379: BEGIN
10405: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_ORG');
10406: fnd_msg_pub.ADD;
10407: END IF;
10408:
10409: x_return_status := fnd_api.g_ret_sts_error;
10410: RETURN;
10411: END IF;
10412:
10413: --Bug7120019
10448: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_CONTEXT');
10449: fnd_msg_pub.ADD;
10450: END IF;
10451:
10452: x_return_status := fnd_api.g_ret_sts_error;
10453: RETURN;
10454: END IF;
10455:
10456: ELSE -- Not Honor Case Pick
10471: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_CONTEXT');
10472: fnd_msg_pub.ADD;
10473: END IF;
10474:
10475: x_return_status := fnd_api.g_ret_sts_error;
10476: RETURN;
10477: END IF;
10478: END IF;
10479: END IF; --Bug7120019
10517: END IF;
10518: END LOOP;
10519: END IF;
10520:
10521: IF l_return_status = fnd_api.g_ret_sts_unexp_error
10522: OR l_return_status = fnd_api.g_ret_sts_error THEN
10523: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10524: fnd_msg_pub.ADD;
10525: RAISE fnd_api.g_exc_unexpected_error;
10518: END LOOP;
10519: END IF;
10520:
10521: IF l_return_status = fnd_api.g_ret_sts_unexp_error
10522: OR l_return_status = fnd_api.g_ret_sts_error THEN
10523: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10524: fnd_msg_pub.ADD;
10525: RAISE fnd_api.g_exc_unexpected_error;
10526: END IF;
10521: IF l_return_status = fnd_api.g_ret_sts_unexp_error
10522: OR l_return_status = fnd_api.g_ret_sts_error THEN
10523: fnd_message.set_name('WMS', 'WMS_TD_CREATE_LPN_ERROR');
10524: fnd_msg_pub.ADD;
10525: RAISE fnd_api.g_exc_unexpected_error;
10526: END IF;
10527:
10528: END IF;
10529:
10526: END IF;
10527:
10528: END IF;
10529:
10530: x_return_status := fnd_api.g_ret_sts_success;
10531:
10532: IF (l_debug = 1) THEN
10533: mydebug('check_pack_lpn: check_pack_lpn ends');
10534: END IF;
10532: IF (l_debug = 1) THEN
10533: mydebug('check_pack_lpn: check_pack_lpn ends');
10534: END IF;
10535: EXCEPTION
10536: WHEN fnd_api.g_exc_error THEN
10537: x_return_status := fnd_api.g_ret_sts_error;
10538: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10539: IF DBMS_SQL.IS_Open(l_cursorID) THEN
10540: DBMS_SQL.Close_Cursor(l_cursorID);
10533: mydebug('check_pack_lpn: check_pack_lpn ends');
10534: END IF;
10535: EXCEPTION
10536: WHEN fnd_api.g_exc_error THEN
10537: x_return_status := fnd_api.g_ret_sts_error;
10538: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10539: IF DBMS_SQL.IS_Open(l_cursorID) THEN
10540: DBMS_SQL.Close_Cursor(l_cursorID);
10541: END IF;
10539: IF DBMS_SQL.IS_Open(l_cursorID) THEN
10540: DBMS_SQL.Close_Cursor(l_cursorID);
10541: END IF;
10542: WHEN OTHERS THEN
10543: x_return_status := fnd_api.g_ret_sts_unexp_error;
10544: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10545: IF DBMS_SQL.IS_Open(l_cursorID) THEN
10546: DBMS_SQL.Close_Cursor(l_cursorID);
10547: END IF;
10765:
10766: --
10767: -- Standard call to check for call compatibility
10768: --
10769: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
10770: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
10771: fnd_msg_pub.ADD;
10772: RAISE fnd_api.g_exc_error;
10773: END IF;
10768: --
10769: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
10770: fnd_message.set_name('WMS', 'WMS_CONT_INCOMPATIBLE_API_CALL');
10771: fnd_msg_pub.ADD;
10772: RAISE fnd_api.g_exc_error;
10773: END IF;
10774:
10775: --
10776: -- Initialize message list.
10774:
10775: --
10776: -- Initialize message list.
10777: --
10778: IF fnd_api.to_boolean(p_init_msg_lst) THEN
10779: fnd_msg_pub.initialize;
10780: END IF;
10781:
10782: --
10781:
10782: --
10783: -- Initialize API return status to success
10784: --
10785: x_return_status := fnd_api.g_ret_sts_success;
10786:
10787: --
10788: -- Begin validation process:
10789: -- Check if drop lpn exists by trying to retrieve its lpn ID.
10812: , x_msg_count => x_msg_count
10813: , x_msg_data => x_msg_data
10814: );
10815:
10816: IF x_return_status = fnd_api.g_ret_sts_unexp_error
10817: OR x_return_status = fnd_api.g_ret_sts_error THEN
10818: RAISE fnd_api.g_exc_error;
10819: END IF;
10820: x_pick_to_lpn_id := pick_to_lpn_rec.lpn_id;
10813: , x_msg_data => x_msg_data
10814: );
10815:
10816: IF x_return_status = fnd_api.g_ret_sts_unexp_error
10817: OR x_return_status = fnd_api.g_ret_sts_error THEN
10818: RAISE fnd_api.g_exc_error;
10819: END IF;
10820: x_pick_to_lpn_id := pick_to_lpn_rec.lpn_id;
10821:
10814: );
10815:
10816: IF x_return_status = fnd_api.g_ret_sts_unexp_error
10817: OR x_return_status = fnd_api.g_ret_sts_error THEN
10818: RAISE fnd_api.g_exc_error;
10819: END IF;
10820: x_pick_to_lpn_id := pick_to_lpn_rec.lpn_id;
10821:
10822: IF (l_debug = 1) THEN
10873: l_IN_rec.action_code := 'UPDATE_NULL';
10874:
10875: WSH_WMS_LPN_GRP.Create_Update_Containers (
10876: p_api_version => 1.0
10877: , p_init_msg_list => fnd_api.g_false
10878: , p_commit => fnd_api.g_false
10879: , x_return_status => x_return_status
10880: , x_msg_count => x_msg_count
10881: , x_msg_data => x_msg_data
10874:
10875: WSH_WMS_LPN_GRP.Create_Update_Containers (
10876: p_api_version => 1.0
10877: , p_init_msg_list => fnd_api.g_false
10878: , p_commit => fnd_api.g_false
10879: , x_return_status => x_return_status
10880: , x_msg_count => x_msg_count
10881: , x_msg_data => x_msg_data
10882: , p_detail_info_tab => wsh_update_tbl
10882: , p_detail_info_tab => wsh_update_tbl
10883: , p_IN_rec => l_IN_rec
10884: , x_OUT_rec => l_OUT_rec );
10885:
10886: IF x_return_status = fnd_api.g_ret_sts_unexp_error
10887: OR x_return_status = fnd_api.g_ret_sts_error THEN
10888: RAISE fnd_api.g_exc_error;
10889: END IF;
10890: ELSE
10883: , p_IN_rec => l_IN_rec
10884: , x_OUT_rec => l_OUT_rec );
10885:
10886: IF x_return_status = fnd_api.g_ret_sts_unexp_error
10887: OR x_return_status = fnd_api.g_ret_sts_error THEN
10888: RAISE fnd_api.g_exc_error;
10889: END IF;
10890: ELSE
10891: fnd_message.set_name('WMS','WMS_INVALID_PACK_DELIVERY');
10884: , x_OUT_rec => l_OUT_rec );
10885:
10886: IF x_return_status = fnd_api.g_ret_sts_unexp_error
10887: OR x_return_status = fnd_api.g_ret_sts_error THEN
10888: RAISE fnd_api.g_exc_error;
10889: END IF;
10890: ELSE
10891: fnd_message.set_name('WMS','WMS_INVALID_PACK_DELIVERY');
10892: fnd_msg_pub.ADD;
10889: END IF;
10890: ELSE
10891: fnd_message.set_name('WMS','WMS_INVALID_PACK_DELIVERY');
10892: fnd_msg_pub.ADD;
10893: RAISE fnd_api.g_exc_error;
10894: END IF;
10895: END;
10896: CLOSE c_wdd_exists;
10897: END IF;
10928: -- error out and assuming it should exist
10929: -- tolpn doesn't existing or if existing, but has wrong context
10930: fnd_message.set_name('WMS', 'WMS_LPN_NOT_FOUND');
10931: fnd_msg_pub.ADD;
10932: RAISE fnd_api.g_exc_error;
10933: END;
10934: IF (l_debug = 1) THEN
10935: mydebug('l_container_item_id:'||l_container_item_id);
10936: END IF;
10940: END IF;
10941: fnd_message.set_name('WMS', 'WMS_LPN_NOT_LINKTO_CONT');
10942: fnd_message.set_token('LPN', p_pick_to_lpn );
10943: fnd_msg_pub.ADD;
10944: RAISE fnd_api.g_exc_error;
10945: ELSIF (l_container_item_id <> p_container_item_id) THEN
10946: IF (l_debug = 1) THEN
10947: mydebug('The container, with which LPN associated, is different from confirmed container');
10948: END IF;
10959: fnd_message.set_name('WMS', 'WMS_LPN_ASSOC_WITH_CONT');
10960: fnd_message.set_token('LPN', p_pick_to_lpn );
10961: fnd_message.set_token('CONTAINER', l_concatenated_segments);
10962: fnd_msg_pub.ADD;
10963: RAISE fnd_api.g_exc_error;
10964: END IF;
10965: ELSE
10966: IF (l_debug = 1) THEN
10967: mydebug('tolpn is not changed.');
10977: fnd_message.set_name('WMS', 'WMS_LPN_ASSOC_WITH_CONT');
10978: fnd_message.set_token('LPN', p_pick_to_lpn );
10979: fnd_message.set_token('CONTAINER', p_suggested_container_item );
10980: fnd_msg_pub.ADD;
10981: RAISE fnd_api.g_exc_error;
10982: END IF;
10983: END IF;
10984: END IF;
10985:
11033: x_return_status => x_return_status,
11034: p_trx_type_id => p_trx_type_id,
11035: p_trx_action_id => p_trx_action_id);
11036:
11037: IF x_return_status = fnd_api.g_ret_sts_unexp_error
11038: OR x_return_status = fnd_api.g_ret_sts_error THEN
11039: RAISE fnd_api.g_exc_error;
11040: END IF;
11041:
11034: p_trx_type_id => p_trx_type_id,
11035: p_trx_action_id => p_trx_action_id);
11036:
11037: IF x_return_status = fnd_api.g_ret_sts_unexp_error
11038: OR x_return_status = fnd_api.g_ret_sts_error THEN
11039: RAISE fnd_api.g_exc_error;
11040: END IF;
11041:
11042: IF l_commingle_exist = 'Y' THEN
11035: p_trx_action_id => p_trx_action_id);
11036:
11037: IF x_return_status = fnd_api.g_ret_sts_unexp_error
11038: OR x_return_status = fnd_api.g_ret_sts_error THEN
11039: RAISE fnd_api.g_exc_error;
11040: END IF;
11041:
11042: IF l_commingle_exist = 'Y' THEN
11043: IF (l_debug = 1) THEN
11044: mydebug('Cost group commigle exist.');
11045: END IF;
11046: fnd_message.set_name('WMS', 'WMS_CG_COMMINGLE');
11047: fnd_msg_pub.ADD;
11048: RAISE fnd_api.g_exc_error;
11049: ELSE
11050: IF (l_debug = 1) THEN
11051: mydebug('passed cost group commigle check.');
11052: END IF;
11121: and transaction_header_id <>l_transaction_header_id);
11122:
11123: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_NOT_NEW'); -- new message
11124: fnd_msg_pub.ADD;
11125: RAISE fnd_api.g_exc_error;
11126: EXCEPTION
11127: WHEN NO_DATA_FOUND THEN RETURN; -- this lpn is fine and no need to do all
11128: -- the following checks
11129: END;
11138: and transaction_temp_id = parent_line_id -- bulk task
11139: );
11140: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_BULK');
11141: fnd_msg_pub.ADD;
11142: RAISE fnd_api.g_exc_error;
11143: EXCEPTION
11144: WHEN NO_DATA_FOUND THEN null;
11145: END;
11146: END IF;
11197: mydebug(' l_mo_type_in_lpn => ' || l_mo_type_in_lpn);
11198: END IF;
11199: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_MO_TYPE');
11200: fnd_msg_pub.ADD;
11201: RAISE fnd_api.g_exc_error;
11202: ELSIF l_mmtt_txn_type_id = 35
11203: OR l_mmtt_txn_type_id = 51 THEN -- Mfg pick
11204: IF l_mmtt_wip_entity_type <> l_wip_entity_type_in_lpn THEN
11205: IF (l_debug = 1) THEN
11207: mydebug('WIP entity type IS NOT the same AS that OF the old mmtt RECORD');
11208: END IF;
11209: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_MFG_MODE');
11210: fnd_msg_pub.ADD;
11211: RAISE fnd_api.g_exc_error;
11212: END IF;
11213: END IF;
11214: END IF;
11215: -- *********************End of bug fix 2078002,2095080 ********************
11278: END IF;
11279:
11280: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_SUBINV');
11281: fnd_msg_pub.ADD;
11282: RAISE fnd_api.g_exc_error;
11283: END IF;
11284: ELSE
11285: --
11286: -- Current temp ID has a NULL xfer sub (issue txn)
11319: END IF;
11320:
11321: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_SUBINV');
11322: fnd_msg_pub.ADD;
11323: RAISE fnd_api.g_exc_error;
11324: END IF;
11325: END IF;
11326:
11327: --
11349: END IF;
11350:
11351: fnd_message.set_name('WMS', 'WMS_INVLD_PICKTO_LPN_OPER_PLAN');
11352: fnd_msg_pub.ADD;
11353: RAISE fnd_api.g_exc_error;
11354: END IF;
11355:
11356:
11357: --
11399: END IF;
11400:
11401: fnd_message.set_name('WMS', 'WMS_NO_MOL');
11402: fnd_msg_pub.ADD;
11403: RAISE fnd_api.g_exc_error;
11404: END IF;
11405:
11406: IF l_current_carton_grouping_id IS NOT NULL THEN -- found carton_grouping_id
11407: OPEN others_carton_grouping_cursor(pick_to_lpn_rec.lpn_id);
11444: END IF;
11445:
11446: fnd_message.set_name('WMS', 'WMS_NO_WDD_WDA');
11447: fnd_msg_pub.ADD;
11448: RAISE fnd_api.g_exc_error;
11449: END IF;
11450:
11451: IF l_pick_to_lpn_delivery_id IS NULL THEN
11452: IF (l_debug = 1) THEN
11461: END IF;
11462:
11463: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
11464: fnd_msg_pub.ADD;
11465: RAISE fnd_api.g_exc_error;
11466: END IF;
11467: ELSE -- they have different carton_grouping_id
11468: --{
11469: IF (l_debug = 1) THEN
11501: p_line_rows => l_line_rows,
11502: x_grouping_rows => l_grouping_rows,
11503: x_return_status => l_return_status);
11504: --
11505: IF (l_return_status = FND_API.G_RET_STS_SUCCESS
11506: AND l_grouping_rows (1) = l_grouping_rows(2) ) THEN
11507: l_same_carton_grouping := TRUE;
11508: ELSE
11509: l_same_carton_grouping := FALSE;
11525: --
11526: IF (l_same_carton_grouping = FALSE) then */
11527: fnd_message.set_name('WMS', 'WMS_DIFF_CARTON_GROUP');
11528: fnd_msg_pub.ADD;
11529: RAISE fnd_api.g_exc_error;
11530: /*END IF;
11531: --
11532: -- End : R12 bug 4454837.
11533: --} */
11537: mydebug('validate_pick_to_lpn: some of tasks in lpn have NULL carton_grouping_id');
11538: END IF;
11539: fnd_message.set_name('WMS', 'WMS_CARTON_GROUP_NULL');
11540: fnd_msg_pub.ADD;
11541: RAISE fnd_api.g_exc_error;
11542: END IF;
11543: ELSE --carton_grouping_id is null
11544: IF (l_debug = 1) THEN
11545: mydebug('validate_pick_to_lpn: carton_grouping_id of current task is null');
11547: --bug3481923 only fail if it is not requisition on repl mo
11548: if (l_mmtt_mo_type not in(1,2)) then
11549: fnd_message.set_name('WMS', 'WMS_CARTON_GROUP_NULL');
11550: fnd_msg_pub.ADD;
11551: RAISE fnd_api.g_exc_error;
11552: end if;
11553: END IF;
11554: END IF;
11555:
11580: END IF;
11581:
11582: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
11583: fnd_msg_pub.ADD;
11584: RAISE fnd_api.g_exc_error;
11585: END IF;
11586: ELSIF l_pick_to_lpn_delivery_id2 IS NULL THEN
11587: IF (l_debug = 1) THEN
11588: mydebug('validate_pick_to_lpn: Picked LPN does not have deliveries.');
11595: END IF;
11596:
11597: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
11598: fnd_msg_pub.ADD;
11599: RAISE fnd_api.g_exc_error;
11600: END IF;
11601: ELSIF l_pick_to_lpn_delivery_id2 = -999 THEN
11602: IF (l_debug = 1) THEN
11603: mydebug('validate_pick_to_lpn: LPN does not contain other tasks. This is the first task, so ok.');
11629: END IF;
11630:
11631: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
11632: fnd_msg_pub.ADD;
11633: RAISE fnd_api.g_exc_error;
11634: NULL;
11635: ELSE
11636: --
11637: -- Picked LPN and current MMTT are on the same delivery
11677: END IF;
11678:
11679: fnd_message.set_name('WMS', 'WMS_PICK_TO_LPN_DIFF_DELIV');
11680: fnd_msg_pub.ADD;
11681: RAISE fnd_api.g_exc_error;
11682: ELSE
11683: --
11684: -- Child LPN has the delivery as the current MMTT, return success
11685: --
11725: EXIT WHEN mtl_project_task_cursor%NOTFOUND;
11726: -- project and task both should be the same as
11727: IF ((mtl_pjm_prj_tsk_rec.prj_id <> lpn_pjm_prj_tsk_rec.prj_id)
11728: OR (mtl_pjm_prj_tsk_rec.tsk_id <> lpn_pjm_prj_tsk_rec.tsk_id)) THEN
11729: RAISE fnd_api.g_exc_error;
11730: END IF;
11731: END LOOP;
11732:
11733: CLOSE mtl_project_task_cursor;
11735:
11736: CLOSE lpn_project_task_cursor;
11737: END IF;
11738: EXCEPTION
11739: WHEN fnd_api.g_exc_error THEN
11740: x_return_status := fnd_api.g_ret_sts_error;
11741: -- Get message count and data
11742: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11743:
11736: CLOSE lpn_project_task_cursor;
11737: END IF;
11738: EXCEPTION
11739: WHEN fnd_api.g_exc_error THEN
11740: x_return_status := fnd_api.g_ret_sts_error;
11741: -- Get message count and data
11742: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11743:
11744: IF (l_debug = 1) THEN
11776: IF others_carton_grouping_cursor%ISOPEN THEN
11777: CLOSE others_carton_grouping_cursor;
11778: END IF;
11779: WHEN OTHERS THEN
11780: x_return_status := fnd_api.g_ret_sts_unexp_error;
11781:
11782: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
11783: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
11784: END IF;
11842: IF (l_debug = 1) THEN
11843: mydebug('validate_sub_loc_status: validate_sub_loc_status begins');
11844: END IF;
11845:
11846: x_return_status := fnd_api.g_ret_sts_success;
11847:
11848: SELECT mmtt.transaction_type_id
11849: , mmtt.organization_id
11850: , mmtt.inventory_item_id
11898: IF (l_debug = 1) THEN
11899: mydebug('validate_sub_loc_status: End of validate_sub_loc_status');
11900: END IF;
11901: EXCEPTION
11902: WHEN fnd_api.g_exc_error THEN
11903: x_return_status := fnd_api.g_ret_sts_error;
11904:
11905: IF (l_debug = 1) THEN
11906: mydebug('validate_sub_loc_status: Error - ' || SQLERRM);
11899: mydebug('validate_sub_loc_status: End of validate_sub_loc_status');
11900: END IF;
11901: EXCEPTION
11902: WHEN fnd_api.g_exc_error THEN
11903: x_return_status := fnd_api.g_ret_sts_error;
11904:
11905: IF (l_debug = 1) THEN
11906: mydebug('validate_sub_loc_status: Error - ' || SQLERRM);
11907: END IF;
11907: END IF;
11908:
11909: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11910: WHEN OTHERS THEN
11911: x_return_status := fnd_api.g_ret_sts_unexp_error;
11912:
11913: IF (l_debug = 1) THEN
11914: mydebug('validate_sub_loc_status: Unexpected Error - ' || SQLERRM);
11915: END IF;
11942: l_count NUMBER := 0;
11943: l_temp_qty NUMBER :=0 ;
11944: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
11945: BEGIN
11946: x_return_status := fnd_api.g_ret_sts_success;
11947: l_progress := '10';
11948: IF (l_debug = 1) THEN
11949: mydebug('Enter insert_serial: 10:'|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
11950: END IF;
11973:
11974: IF l_count <> 0 THEN
11975: fnd_message.set_name('INV', 'INVALID_SERIAL_NUMBER');
11976: fnd_msg_pub.ADD;
11977: RAISE fnd_api.g_exc_error;
11978: END IF;
11979:
11980: l_progress := '30';
11981:
12035: END IF;
12036:
12037: -- if the trx manager returned a 1 then it could not insert the row
12038: IF l_return = 1 THEN
12039: RAISE fnd_api.g_exc_error;
12040: END IF;
12041:
12042: l_progress := '80';
12043: IF (l_debug = 1) THEN
12046:
12047: commit;
12048:
12049: EXCEPTION
12050: WHEN fnd_api.g_exc_error THEN
12051: --ROLLBACK TO rcv_insert_serial_sp;
12052: ROLLBACK;
12053: x_return_status := fnd_api.g_ret_sts_error;
12054: IF (l_debug = 1) THEN
12049: EXCEPTION
12050: WHEN fnd_api.g_exc_error THEN
12051: --ROLLBACK TO rcv_insert_serial_sp;
12052: ROLLBACK;
12053: x_return_status := fnd_api.g_ret_sts_error;
12054: IF (l_debug = 1) THEN
12055: mydebug('Exitting insert_serial - execution error:'|| l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
12056: END IF;
12057: -- Get message count and data
12054: IF (l_debug = 1) THEN
12055: mydebug('Exitting insert_serial - execution error:'|| l_progress || ' ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), 1);
12056: END IF;
12057: -- Get message count and data
12058: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
12059: WHEN OTHERS THEN
12060: x_return_status := fnd_api.g_ret_sts_unexp_error;
12061:
12062: IF SQLCODE IS NOT NULL THEN
12056: END IF;
12057: -- Get message count and data
12058: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => l_msg_count, p_data => x_msg_data);
12059: WHEN OTHERS THEN
12060: x_return_status := fnd_api.g_ret_sts_unexp_error;
12061:
12062: IF SQLCODE IS NOT NULL THEN
12063: inv_mobile_helper_functions.sql_error('wms_task_load.insert_serial', l_progress, SQLCODE);
12064: END IF;
12120: mydebug('p_trx_souce_type_id' ||p_trx_type_id);
12121: mydebug('p_trx_action_id ' || p_trx_action_id);
12122: END IF;
12123:
12124: x_return_status := fnd_api.g_ret_sts_success;
12125: x_commingle_exist := 'N';
12126:
12127: IF p_lot_control = 1 THEN
12128: select mmtt.subinventory_code,
12205: p_is_backflush_txn => l_is_bf,
12206: x_cost_group_id => l_cur_cost_group_id,
12207: x_return_status => x_return_status);
12208:
12209: IF x_return_status <> fnd_api.g_ret_sts_success THEN
12210: RAISE fnd_api.g_exc_unexpected_error;
12211: END IF;
12212:
12213: if (l_transaction_type_id=51) then
12206: x_cost_group_id => l_cur_cost_group_id,
12207: x_return_status => x_return_status);
12208:
12209: IF x_return_status <> fnd_api.g_ret_sts_success THEN
12210: RAISE fnd_api.g_exc_unexpected_error;
12211: END IF;
12212:
12213: if (l_transaction_type_id=51) then
12214: l_is_bf := true;
12227: p_is_backflush_txn => l_is_bf,
12228: x_cost_group_id => l_exist_cost_group_id,
12229: x_return_status => x_return_status);
12230:
12231: IF x_return_status <> fnd_api.g_ret_sts_success THEN
12232: RAISE fnd_api.g_exc_unexpected_error;
12233: END IF;
12234:
12235: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
12228: x_cost_group_id => l_exist_cost_group_id,
12229: x_return_status => x_return_status);
12230:
12231: IF x_return_status <> fnd_api.g_ret_sts_success THEN
12232: RAISE fnd_api.g_exc_unexpected_error;
12233: END IF;
12234:
12235: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
12236: x_return_status := fnd_api.g_ret_sts_success;
12232: RAISE fnd_api.g_exc_unexpected_error;
12233: END IF;
12234:
12235: IF l_exist_cost_group_id <> l_cur_cost_group_id THEN
12236: x_return_status := fnd_api.g_ret_sts_success;
12237: x_commingle_exist := 'Y';
12238: END IF;
12239: --
12240: -- Bug 4632519
12243: WHEN NO_DATA_FOUND THEN
12244: IF (l_debug = 1) THEN
12245: mydebug('First record being loaded into LPN');
12246: END IF;
12247: x_return_status := fnd_api.g_ret_sts_success;
12248: x_commingle_exist := 'N';
12249: WHEN OTHERS THEN
12250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12251: x_commingle_exist := 'Y';
12246: END IF;
12247: x_return_status := fnd_api.g_ret_sts_success;
12248: x_commingle_exist := 'N';
12249: WHEN OTHERS THEN
12250: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12251: x_commingle_exist := 'Y';
12252: END validate_loaded_lpn_cg;
12253:
12254: