[Home] [Help]
65: fnd_msg_pub.initialize;
66: l_progress := '20';
67:
68: -- Initialize the output variables
69: x_return_status := fnd_api.g_ret_sts_success;
70: x_available_qty := 0;
71: l_progress := '30';
72:
73: -- Bug# 3401739
102: END IF;
103: l_progress := '40';
104:
105: -- Check to see if the validate_operation API returned successfully
106: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
107: IF (l_debug = 1) THEN
108: print_debug('Success returned from validate_operation API');
109: END IF;
110: ELSE
111: IF (l_debug = 1) THEN
112: print_debug('Failure returned from validate_operation API');
113: print_debug('Error code: ' || l_error_code);
114: END IF;
115: RAISE FND_API.G_EXC_ERROR;
116: END IF;
117:
118: -- Now check to see if this move order line is allowed to be
119: -- loaded and if so, how much quantity from the line is available
170: IF (l_debug = 1) THEN
171: print_debug('Exception querying total qty');
172: END IF;
173: x_total_qty := -1;
174: RAISE FND_API.G_EXC_ERROR;
175: END;
176: --bug 5002690 END
177:
178: IF (l_debug = 1) THEN
185: print_debug('***End of get_available_qty***');
186: END IF;
187:
188: EXCEPTION
189: WHEN FND_API.G_EXC_ERROR THEN
190: ROLLBACK TO get_available_qty_sp;
191: x_return_status := fnd_api.g_ret_sts_error;
192: fnd_msg_pub.count_and_get(p_count => x_msg_count,
193: p_data => x_msg_data);
187:
188: EXCEPTION
189: WHEN FND_API.G_EXC_ERROR THEN
190: ROLLBACK TO get_available_qty_sp;
191: x_return_status := fnd_api.g_ret_sts_error;
192: fnd_msg_pub.count_and_get(p_count => x_msg_count,
193: p_data => x_msg_data);
194: IF (l_debug = 1) THEN
195: print_debug('Exiting get_available_qty - Execution error: ' ||
195: print_debug('Exiting get_available_qty - Execution error: ' ||
196: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
197: END IF;
198:
199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
200: ROLLBACK TO get_available_qty_sp;
201: x_return_status := fnd_api.g_ret_sts_unexp_error;
202: fnd_msg_pub.count_and_get(p_count => x_msg_count,
203: p_data => x_msg_data);
197: END IF;
198:
199: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
200: ROLLBACK TO get_available_qty_sp;
201: x_return_status := fnd_api.g_ret_sts_unexp_error;
202: fnd_msg_pub.count_and_get(p_count => x_msg_count,
203: p_data => x_msg_data);
204: IF (l_debug = 1) THEN
205: print_debug('Exiting get_available_qty - Unexpected error: ' ||
207: END IF;
208:
209: WHEN OTHERS THEN
210: ROLLBACK TO get_available_qty_sp;
211: x_return_status := fnd_api.g_ret_sts_unexp_error;
212: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
213: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
214: END IF;
215: fnd_msg_pub.count_and_get(p_count => x_msg_count,
268: fnd_msg_pub.initialize;
269: l_progress := '20';
270:
271: -- Initialize the output variables
272: x_return_status := fnd_api.g_ret_sts_success;
273: x_available_lot_qty := 0;
274: l_progress := '30';
275:
276: -- Bug# 3401739
305: END IF;
306: l_progress := '40';
307:
308: -- Check to see if the validate_operation API returned successfully
309: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
310: IF (l_debug = 1) THEN
311: print_debug('Success returned from validate_operation API');
312: END IF;
313: ELSE
314: IF (l_debug = 1) THEN
315: print_debug('Failure returned from validate_operation API');
316: print_debug('Error code: ' || l_error_code);
317: END IF;
318: RAISE FND_API.G_EXC_ERROR;
319: END IF;
320:
321: -- Now check to see if this move order line is allowed to be
322: -- loaded and if so, how much quantity from the line is available
356: print_debug('***End of get_available_lot_qty***');
357: END IF;
358:
359: EXCEPTION
360: WHEN FND_API.G_EXC_ERROR THEN
361: ROLLBACK TO get_available_lot_qty_sp;
362: x_return_status := fnd_api.g_ret_sts_error;
363: fnd_msg_pub.count_and_get(p_count => x_msg_count,
364: p_data => x_msg_data);
358:
359: EXCEPTION
360: WHEN FND_API.G_EXC_ERROR THEN
361: ROLLBACK TO get_available_lot_qty_sp;
362: x_return_status := fnd_api.g_ret_sts_error;
363: fnd_msg_pub.count_and_get(p_count => x_msg_count,
364: p_data => x_msg_data);
365: IF (l_debug = 1) THEN
366: print_debug('Exiting get_available_lot_qty - Execution error: ' ||
366: print_debug('Exiting get_available_lot_qty - Execution error: ' ||
367: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
368: END IF;
369:
370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
371: ROLLBACK TO get_available_lot_qty_sp;
372: x_return_status := fnd_api.g_ret_sts_unexp_error;
373: fnd_msg_pub.count_and_get(p_count => x_msg_count,
374: p_data => x_msg_data);
368: END IF;
369:
370: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
371: ROLLBACK TO get_available_lot_qty_sp;
372: x_return_status := fnd_api.g_ret_sts_unexp_error;
373: fnd_msg_pub.count_and_get(p_count => x_msg_count,
374: p_data => x_msg_data);
375: IF (l_debug = 1) THEN
376: print_debug('Exiting get_available_lot_qty - Unexpected error: ' ||
378: END IF;
379:
380: WHEN OTHERS THEN
381: ROLLBACK TO get_available_lot_qty_sp;
382: x_return_status := fnd_api.g_ret_sts_unexp_error;
383: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
384: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
385: END IF;
386: fnd_msg_pub.count_and_get(p_count => x_msg_count,
622: l_ret_crossdock NUMBER;
623: l_backorder_delivery_detail_id NUMBER;
624: l_to_sub_code VARCHAR2(30);
625: l_to_loc_id NUMBER;
626: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
627: l_msg_count NUMBER;
628: l_msg_data VARCHAR2(2400);
629: l_tmp_index NUMBER;
630: --END BUG 5194761
661: fnd_msg_pub.initialize;
662: l_progress := '15';
663:
664: -- Set the return status to success
665: x_return_status := fnd_api.g_ret_sts_success;
666: l_progress := '20';
667:
668: -- Lock the LPN contents record(s) to make sure
669: -- nobody else is processing them
679: print_debug('No WLC records found for given item/rev/lot/LPN combination!');
680: END IF;
681: FND_MESSAGE.SET_NAME('INV', 'INV_NO_RESULT_FOUND');
682: FND_MSG_PUB.ADD;
683: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
684: WHEN RECORD_LOCKED THEN
685: IF (l_debug = 1) THEN
686: print_debug('WLC record not available because it is locked by someone');
687: END IF;
686: print_debug('WLC record not available because it is locked by someone');
687: END IF;
688: FND_MESSAGE.SET_NAME('WMS', 'WMS_LPN_UNAVAIL');
689: FND_MSG_PUB.ADD;
690: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
691: END;
692: IF (l_debug = 1) THEN
693: print_debug('Successfully locked the WLC records');
694: END IF;
806: l_progress := '100';
807: -- RCV and WIP LPN's should have valid move order lines
808: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
809: FND_MSG_PUB.ADD;
810: RAISE FND_API.G_EXC_ERROR;
811: ELSE
812: -- LPN is an Inventory LPN with no move order lines.
813: -- This should be the non-ATF flow since if an ATF plan was in
814: -- effect, there would have been move order lines for the
898: END IF;
899: l_progress := '140';
900:
901: -- Check to see if the create_mo API returned successfully
902: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
903: IF (l_debug = 1) THEN
904: print_debug('Success returned from create_mo API');
905: END IF;
906: ELSE
908: print_debug('Failure returned from create_mo API');
909: END IF;
910: FND_MESSAGE.SET_NAME('WMS', 'WMS_TD_MO_ERROR');
911: FND_MSG_PUB.ADD;
912: RAISE FND_API.G_EXC_ERROR;
913: END IF;
914: l_progress := '150';
915:
916: -- This newly created move order line is the only one
1009: END IF;
1010: l_progress := '190';
1011:
1012: -- Check to see if the validate_operation API returned successfully
1013: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
1014: IF (l_debug = 1) THEN
1015: print_debug('Success returned from validate_operation API');
1016: END IF;
1017: ELSE
1018: IF (l_debug = 1) THEN
1019: print_debug('Failure returned from validate_operation API');
1020: print_debug('Error code: ' || l_error_code);
1021: END IF;
1022: RAISE FND_API.G_EXC_ERROR;
1023: END IF;
1024:
1025: -- Now check to see if this move order line is allowed to be
1026: -- loaded and if so, how much quantity from the line is available
1111: -- This case should technically not occur if the move order
1112: -- lines are maintained properly.
1113: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
1114: FND_MSG_PUB.ADD;
1115: RAISE FND_API.G_EXC_ERROR;
1116: ELSE
1117: -- Full quantity has been matched
1118: IF (l_debug = 1) THEN
1119: print_debug('Able to fully match the load quantity');
1219: l_current_serial);
1220: END IF;
1221: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
1222: FND_MSG_PUB.ADD;
1223: RAISE FND_API.G_EXC_ERROR;
1224: END IF;
1225:
1226: -- Close the MOL serial cursor
1227: CLOSE mol_ser_csr_for_wip;
1243: print_debug('Unable to fully match the load quantity');
1244: END IF;
1245: FND_MESSAGE.SET_NAME ('WMS', 'WMS_CONT_INVALID_X_QTY');
1246: FND_MSG_PUB.ADD;
1247: RAISE FND_API.G_EXC_ERROR;
1248: ELSE
1249: -- Full quantity has been matched
1250: IF (l_debug = 1) THEN
1251: print_debug('Able to fully match the load quantity');
1272: print_debug('Unable to fully match the load quantity');
1273: END IF;
1274: FND_MESSAGE.SET_NAME ('WMS', 'WMS_CONT_INVALID_X_QTY');
1275: FND_MSG_PUB.ADD;
1276: RAISE FND_API.G_EXC_ERROR;
1277: ELSE
1278: -- Full quantity has been matched
1279: IF (l_debug = 1) THEN
1280: print_debug('Serials match the load quantity');
1389: l_marked_serials_tb(i).serial_number);
1390: END IF;
1391: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
1392: FND_MSG_PUB.ADD;
1393: RAISE FND_API.G_EXC_ERROR;
1394: END IF;
1395: END LOOP;--FOR i IN 1..l_marked_serials_tb.COUNT LOOP
1396: END IF;--END IF (l_lpn_context = 2) THEN
1397:
1432: END IF;
1433: l_progress := '330';
1434:
1435: -- Check to see if the validate_operation API returned successfully
1436: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
1437: IF (l_debug = 1) THEN
1438: print_debug('Success returned from validate_operation API');
1439: END IF;
1440: ELSE
1441: IF (l_debug = 1) THEN
1442: print_debug('Failure returned from validate_operation API');
1443: print_debug('Error code: ' || l_error_code);
1444: END IF;
1445: RAISE FND_API.G_EXC_ERROR;
1446: END IF;
1447: l_progress := '340';
1448:
1449: -- Now check to see if this move order line is allowed to be
1466: print_debug('Matching MOL does not have enough valid qty for load');
1467: END IF;
1468: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
1469: FND_MSG_PUB.ADD;
1470: RAISE FND_API.G_EXC_ERROR;
1471: ELSE
1472: -- The matched MOL has enough valid quantity to load all the serials
1473: IF (l_debug = 1) THEN
1474: print_debug('Able to fully load the serials for the matched MOL');
1520: END IF;
1521: l_progress := '370';
1522:
1523: -- Check that the call to split_mo returned successfully
1524: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
1525: IF (l_debug = 1) THEN
1526: print_debug('Success returned from split_mo API');
1527: END IF;
1528: ELSE
1528: ELSE
1529: IF (l_debug = 1) THEN
1530: print_debug('Failure returned from split_mo API');
1531: END IF;
1532: RAISE FND_API.G_EXC_ERROR;
1533: END IF;
1534:
1535: -- Update the MO lines table entry with the newly created split MO line
1536: IF (l_debug = 1) THEN
1566: WHEN OTHERS THEN
1567: IF (l_debug = 1) THEN
1568: print_debug('Error getting org crossdock flag. SQLERRM:'||SQLERRM);
1569: END IF;
1570: RAISE fnd_api.g_exc_error;
1571: END;
1572:
1573: IF (l_debug = 1) THEN
1574: print_debug('l_cdock_flag:'||l_cdock_flag);
1593: WHEN OTHERS THEN
1594: IF (l_debug = 1) THEN
1595: print_debug('Error querying MTRL. SQLERRM:'||SQLERRM);
1596: END IF;
1597: RAISE fnd_api.g_exc_error;
1598: END;
1599:
1600: IF (l_debug = 1) THEN
1601: print_debug('l_backorder_delivery_detail_id:'||l_backorder_delivery_detail_id);
1654: WHEN OTHERS THEN
1655: IF (l_debug = 1) THEN
1656: print_debug('Error nulling out mtrl.ref_detail_id. SQLERRM:'||SQLERRM);
1657: END IF;
1658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1659: END;
1660:
1661: END LOOP;
1662: END IF;
1867: IF (l_return <> 0) THEN
1868: IF (l_debug = 1) THEN
1869: print_debug('Error occurred while calling inv_trx_util_pub.insert_line_trx');
1870: END IF;
1871: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1872: END IF;
1873: l_progress := '450';
1874:
1875: -- Bug# 3251237
1910: IF (l_return <> 0) THEN
1911: IF (l_debug = 1) THEN
1912: print_debug('Error occurred while calling inv_trx_util_pub.insert_lot_trx');
1913: END IF;
1914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1915: END IF;
1916: l_progress := '470';
1917:
1918: -- If not serial controlled, don't need the serial txn temp ID
1974: IF (l_return <> 0) THEN
1975: IF (l_debug = 1) THEN
1976: print_debug('Error occurred while calling inv_trx_util_pub.insert_ser_trx');
1977: END IF;
1978: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1979: END IF;
1980: l_progress := '520';
1981:
1982: END LOOP;
2016: IF (l_return <> 0) THEN
2017: IF (l_debug = 1) THEN
2018: print_debug('Error occurred while calling inv_trx_util_pub.insert_ser_trx');
2019: END IF;
2020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2021: END IF;
2022: l_progress := '560';
2023:
2024: END LOOP;
2040: print_debug('***End of pre_process_load***');
2041: END IF;
2042:
2043: EXCEPTION
2044: WHEN FND_API.G_EXC_ERROR THEN
2045: ROLLBACK TO pre_process_load_sp;
2046: x_return_status := fnd_api.g_ret_sts_error;
2047: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2048: p_data => x_msg_data);
2042:
2043: EXCEPTION
2044: WHEN FND_API.G_EXC_ERROR THEN
2045: ROLLBACK TO pre_process_load_sp;
2046: x_return_status := fnd_api.g_ret_sts_error;
2047: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2048: p_data => x_msg_data);
2049: IF (l_debug = 1) THEN
2050: print_debug('Exiting pre_process_load - Execution error: ' ||
2050: print_debug('Exiting pre_process_load - Execution error: ' ||
2051: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
2052: END IF;
2053:
2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2055: ROLLBACK TO pre_process_load_sp;
2056: x_return_status := fnd_api.g_ret_sts_unexp_error;
2057: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2058: p_data => x_msg_data);
2052: END IF;
2053:
2054: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2055: ROLLBACK TO pre_process_load_sp;
2056: x_return_status := fnd_api.g_ret_sts_unexp_error;
2057: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2058: p_data => x_msg_data);
2059: IF (l_debug = 1) THEN
2060: print_debug('Exiting pre_process_load - Unexpected error: ' ||
2062: END IF;
2063:
2064: WHEN OTHERS THEN
2065: ROLLBACK TO pre_process_load_sp;
2066: x_return_status := fnd_api.g_ret_sts_unexp_error;
2067: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2068: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2069: END IF;
2070: fnd_msg_pub.count_and_get(p_count => x_msg_count,
2253: fnd_msg_pub.initialize;
2254: l_progress := '15';
2255:
2256: -- Set the return status to success
2257: x_return_status := fnd_api.g_ret_sts_success;
2258: l_progress := '20';
2259:
2260: -- Get the employee ID so we can populate the l_task_execute_rec
2261: -- properly when calling activate_operation_instance
2362: END IF;
2363: l_progress := '60';
2364:
2365: -- Check to see if the suggestions_pub API returned successfully
2366: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
2367: IF (l_debug = 1) THEN
2368: print_debug('Success returned from suggestions_pub API');
2369: END IF;
2370: ELSE
2370: ELSE
2371: IF (l_debug = 1) THEN
2372: print_debug('Failure returned from suggestions_pub API');
2373: END IF;
2374: RAISE FND_API.G_EXC_ERROR;
2375: END IF;
2376:
2377: -- For each suggestion generated, call the ATF runtime API
2378: -- to activate the operation instance. This will generate the
2420: END IF;
2421: l_progress := '75';
2422:
2423: -- Check to see if the validate_operation API returned successfully
2424: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
2425: IF (l_debug = 1) THEN
2426: print_debug('Success returned from validate_operation API');
2427: END IF;
2428: ELSE
2429: IF (l_debug = 1) THEN
2430: print_debug('Failure returned from validate_operation API');
2431: print_debug('Error code: ' || l_error_code);
2432: END IF;
2433: RAISE FND_API.G_EXC_ERROR;
2434: END IF;
2435:
2436: -- Now check to see if this MMTT suggestion is allowed to be loaded
2437: IF (l_debug = 1) THEN
2477: END IF;
2478: l_progress := '80';
2479:
2480: -- Check to see if the activate_operation_instance API returned successfully
2481: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
2482: IF (l_debug = 1) THEN
2483: print_debug('Success returned from activate_operation_instance API');
2484: END IF;
2485: ELSE
2486: IF (l_debug = 1) THEN
2487: print_debug('Failure returned from activate_operation_instance API');
2488: print_debug('Error code: ' || l_error_code);
2489: END IF;
2490: RAISE FND_API.G_EXC_ERROR;
2491: END IF;
2492:
2493: END IF;
2494: END LOOP;
2509: print_debug('No valid suggestions created for MOL!');
2510: END IF;
2511: FND_MESSAGE.SET_NAME ('WMS', 'WMS_ALLOCATE_FAIL');
2512: FND_MSG_PUB.ADD;
2513: RAISE FND_API.G_EXC_ERROR;
2514: END IF;
2515:
2516: -- Increment the table index value
2517: l_index := l_index + 1;
2536: END IF;
2537:
2538: wms_rcv_pup_pvt.pack_unpack_split
2539: (p_header_id => p_txn_header_id ,
2540: p_call_rcv_tm => fnd_api.g_false ,
2541: x_return_status => x_return_status ,
2542: x_msg_count => x_msg_count ,
2543: x_msg_data => x_msg_data ,
2544: x_mo_lines_tb => l_mo_lines_tb
2548: END IF;
2549: l_progress := '110';
2550:
2551: -- Check to see if the call to pack_unpack_split returned successfully
2552: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
2553: IF (l_debug = 1) THEN
2554: print_debug('Success returned from pack_unpack_split API');
2555: END IF;
2556: ELSE
2556: ELSE
2557: IF (l_debug = 1) THEN
2558: print_debug('Failure returned from pack_unpack_split API');
2559: END IF;
2560: RAISE FND_API.G_EXC_ERROR;
2561: END IF;
2562: l_progress := '120';
2563:
2564: -- Finally call the Receiving TM
2615: print_debug('Finished calling rcv_clear_global API');
2616: END IF;
2617: l_progress := '150';
2618:
2619: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
2620: IF (l_debug = 1) THEN
2621: print_debug('Error calling the Receiving TM!');
2622: END IF;
2623: FND_MESSAGE.SET_NAME ('WMS', 'WMS_TD_TXNMGR_ERROR');
2621: print_debug('Error calling the Receiving TM!');
2622: END IF;
2623: FND_MESSAGE.SET_NAME ('WMS', 'WMS_TD_TXNMGR_ERROR');
2624: FND_MSG_PUB.ADD;
2625: RAISE FND_API.G_EXC_ERROR;
2626: ELSE
2627: IF (l_debug = 1) THEN
2628: print_debug('Successfully called the Receiving TM');
2629: END IF;
2641: -- Call the Inventory TM in online mode (1), passing in the
2642: -- Inventory business flow code (30)
2643: l_txn_return_status := inv_lpn_trx_pub.process_lpn_trx
2644: (p_trx_hdr_id => p_txn_header_id,
2645: p_commit => fnd_api.g_false,
2646: x_proc_msg => x_msg_data,
2647: p_proc_mode => 1,
2648: p_atomic => fnd_api.g_true,
2649: p_business_flow_code => 30);
2644: (p_trx_hdr_id => p_txn_header_id,
2645: p_commit => fnd_api.g_false,
2646: x_proc_msg => x_msg_data,
2647: p_proc_mode => 1,
2648: p_atomic => fnd_api.g_true,
2649: p_business_flow_code => 30);
2650:
2651: -- Check if the Transaction Manager was successful or not
2652: IF (l_debug = 1) THEN
2659: print_debug('Error calling the Inventory TM');
2660: END IF;
2661: FND_MESSAGE.SET_NAME ('WMS', 'WMS_TD_TXNMGR_ERROR');
2662: FND_MSG_PUB.ADD;
2663: RAISE FND_API.G_EXC_ERROR;
2664: ELSE
2665: IF (l_debug = 1) THEN
2666: print_debug('Success calling the Inventory TM');
2667: END IF;
2726: print_debug('Unpack the material from the source LPN');
2727: END IF;
2728: wms_container_pub.PackUnpack_Container
2729: (p_api_version => 1.0,
2730: p_validation_level => fnd_api.g_valid_level_none,
2731: x_return_status => x_return_status,
2732: x_msg_count => x_msg_count,
2733: x_msg_data => x_msg_data,
2734: p_lpn_id => l_from_lpn_id,
2752: END IF;
2753: l_progress := '190';
2754:
2755: -- Check to see if the call to PackUnpack_Container returned successfully
2756: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
2757: IF (l_debug = 1) THEN
2758: print_debug('Success returned from PackUnpack_Container API');
2759: END IF;
2760: ELSE
2760: ELSE
2761: IF (l_debug = 1) THEN
2762: print_debug('Failure returned from PackUnpack_Container API');
2763: END IF;
2764: RAISE FND_API.G_EXC_ERROR;
2765: END IF;
2766: l_progress := '200';
2767:
2768: -- Now call the PackUnpack_Container API to pack the loose
2774: print_debug('Pack the material into the destination LPN');
2775: END IF;
2776: wms_container_pub.PackUnpack_Container
2777: (p_api_version => 1.0,
2778: p_validation_level => fnd_api.g_valid_level_none,
2779: x_return_status => x_return_status,
2780: x_msg_count => x_msg_count,
2781: x_msg_data => x_msg_data,
2782: p_lpn_id => l_to_lpn_id,
2800: END IF;
2801: l_progress := '210';
2802:
2803: -- Check to see if the call to PackUnpack_Container returned successfully
2804: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
2805: IF (l_debug = 1) THEN
2806: print_debug('Success returned from PackUnpack_Container API');
2807: END IF;
2808: ELSE
2810: print_debug('Failure returned from PackUnpack_Container API');
2811: END IF;
2812: FND_MESSAGE.SET_NAME ('WMS', 'WMS_CONT_INVALID_SER');
2813: FND_MSG_PUB.ADD;
2814: RAISE FND_API.G_EXC_ERROR;
2815: END IF;
2816: l_progress := '220';
2817:
2818: ELSE
2851: print_debug('Could not successfully parse the serials!');
2852: END IF;
2853: FND_MESSAGE.SET_NAME ('WMS', 'WMS_CONT_INVALID_SER');
2854: FND_MSG_PUB.ADD;
2855: RAISE FND_API.G_EXC_ERROR;
2856: END IF;
2857: IF (l_debug = 1) THEN
2858: print_debug('Successfully parsed the serials');
2859: print_debug('Prefix: ======> ' || l_prefix);
2872: print_debug('Unpack the serials from the source LPN');
2873: END IF;
2874: wms_container_pub.PackUnpack_Container
2875: (p_api_version => 1.0,
2876: p_validation_level => fnd_api.g_valid_level_none,
2877: x_return_status => x_return_status,
2878: x_msg_count => x_msg_count,
2879: x_msg_data => x_msg_data,
2880: p_lpn_id => l_from_lpn_id,
2895: END IF;
2896: l_progress := '250';
2897:
2898: -- Check to see if the call to PackUnpack_Container returned successfully
2899: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
2900: IF (l_debug = 1) THEN
2901: print_debug('Success returned from PackUnpack_Container API');
2902: END IF;
2903: ELSE
2903: ELSE
2904: IF (l_debug = 1) THEN
2905: print_debug('Failure returned from PackUnpack_Container API');
2906: END IF;
2907: RAISE FND_API.G_EXC_ERROR;
2908: END IF;
2909: l_progress := '260';
2910:
2911: -- Now call the PackUnpack_Container API to pack the loose
2914: print_debug('Pack the serials into the destination LPN');
2915: END IF;
2916: wms_container_pub.PackUnpack_Container
2917: (p_api_version => 1.0,
2918: p_validation_level => fnd_api.g_valid_level_none,
2919: x_return_status => x_return_status,
2920: x_msg_count => x_msg_count,
2921: x_msg_data => x_msg_data,
2922: p_lpn_id => l_to_lpn_id,
2937: END IF;
2938: l_progress := '270';
2939:
2940: -- Check to see if the call to PackUnpack_Container returned successfully
2941: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
2942: IF (l_debug = 1) THEN
2943: print_debug('Success returned from PackUnpack_Container API');
2944: END IF;
2945: ELSE
2945: ELSE
2946: IF (l_debug = 1) THEN
2947: print_debug('Failure returned from PackUnpack_Container API');
2948: END IF;
2949: RAISE FND_API.G_EXC_ERROR;
2950: END IF;
2951: l_progress := '280';
2952:
2953: END LOOP;
3045: print_debug('No Move order lines were stored in the table!');
3046: END IF;
3047: FND_MESSAGE.SET_NAME('WMS', 'WMS_MO_NOT_FOUND');
3048: FND_MSG_PUB.ADD;
3049: RAISE FND_API.G_EXC_ERROR;
3050: END IF;
3051:
3052: --Bug 4566517. Get the sub/loc of into lpn
3053: IF (p_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_INV) THEN
3134: END IF;
3135: l_progress := '350';
3136:
3137: -- Check to see if the complete_operation_instance API returned successfully
3138: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
3139: IF (l_debug = 1) THEN
3140: print_debug('Success returned from complete_operation_instance API');
3141: END IF;
3142: ELSE
3143: IF (l_debug = 1) THEN
3144: print_debug('Failure returned from complete_operation_instance API');
3145: print_debug('Error code: ' || l_error_code);
3146: END IF;
3147: RAISE FND_API.G_EXC_ERROR;
3148: END IF;
3149:
3150: -- Update the LPN ID and Allocated LPN ID in the MMTT record
3151: IF (l_debug = 1) THEN
3245: print_debug('***End of process_load***');
3246: END IF;
3247:
3248: EXCEPTION
3249: WHEN FND_API.G_EXC_ERROR THEN
3250: -- Call the cleanup_ATF procedure since the call to
3251: -- activate_operation_instance in process_load will insert records
3252: -- into WDT and commit them autonomously. A rollback will not
3253: -- remove those records.
3263: x_msg_count => l_msg_count,
3264: x_msg_data => l_msg_data);
3265:
3266: -- Check to see if the cleanup_ATF API returned successfully
3267: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3268: IF (l_debug = 1) THEN
3269: print_debug('Success returned from cleanup_ATF API');
3270: END IF;
3271: ELSE
3284: IF (l_debug = 1) THEN
3285: print_debug('Exception while rolling back to save point');
3286: END IF;
3287: END;
3288: x_return_status := fnd_api.g_ret_sts_error;
3289: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3290: p_data => x_msg_data);
3291: IF (l_debug = 1) THEN
3292: print_debug('Exiting process_load - Execution error: ' ||
3292: print_debug('Exiting process_load - Execution error: ' ||
3293: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3294: END IF;
3295:
3296: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3297: -- Call the cleanup_ATF procedure since the call to
3298: -- activate_operation_instance in process_load will insert records
3299: -- into WDT and commit them autonomously. A rollback will not
3300: -- remove those records.
3310: x_msg_count => l_msg_count,
3311: x_msg_data => l_msg_data);
3312:
3313: -- Check to see if the cleanup_ATF API returned successfully
3314: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3315: IF (l_debug = 1) THEN
3316: print_debug('Success returned from cleanup_ATF API');
3317: END IF;
3318: ELSE
3331: IF (l_debug = 1) THEN
3332: print_debug('Exception while rolling back to save point');
3333: END IF;
3334: END;
3335: x_return_status := fnd_api.g_ret_sts_unexp_error;
3336: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3337: p_data => x_msg_data);
3338: IF (l_debug = 1) THEN
3339: print_debug('Exiting process_load - Unexpected error: ' ||
3357: x_msg_count => l_msg_count,
3358: x_msg_data => l_msg_data);
3359:
3360: -- Check to see if the cleanup_ATF API returned successfully
3361: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
3362: IF (l_debug = 1) THEN
3363: print_debug('Success returned from cleanup_ATF API');
3364: END IF;
3365: ELSE
3378: IF (l_debug = 1) THEN
3379: print_debug('Exception while rolling back to save point');
3380: END IF;
3381: END;
3382: x_return_status := fnd_api.g_ret_sts_unexp_error;
3383: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3384: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3385: END IF;
3386: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3421: fnd_msg_pub.initialize;
3422: l_progress := '20';
3423:
3424: -- Set the return status to success
3425: x_return_status := fnd_api.g_ret_sts_success;
3426: l_progress := '30';
3427:
3428: -- Reset the group mark ID for all marked serials
3429: IF (l_debug = 1) THEN
3466: print_debug('***End of unmark_serials***');
3467: END IF;
3468:
3469: EXCEPTION
3470: WHEN FND_API.G_EXC_ERROR THEN
3471: ROLLBACK TO unmark_serials_sp;
3472: x_return_status := fnd_api.g_ret_sts_error;
3473: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3474: p_data => x_msg_data);
3468:
3469: EXCEPTION
3470: WHEN FND_API.G_EXC_ERROR THEN
3471: ROLLBACK TO unmark_serials_sp;
3472: x_return_status := fnd_api.g_ret_sts_error;
3473: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3474: p_data => x_msg_data);
3475: IF (l_debug = 1) THEN
3476: print_debug('Exiting unmark_serials - Execution error: ' ||
3476: print_debug('Exiting unmark_serials - Execution error: ' ||
3477: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3478: END IF;
3479:
3480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3481: ROLLBACK TO unmark_serials_sp;
3482: x_return_status := fnd_api.g_ret_sts_unexp_error;
3483: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3484: p_data => x_msg_data);
3478: END IF;
3479:
3480: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3481: ROLLBACK TO unmark_serials_sp;
3482: x_return_status := fnd_api.g_ret_sts_unexp_error;
3483: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3484: p_data => x_msg_data);
3485: IF (l_debug = 1) THEN
3486: print_debug('Exiting unmark_serials - Unexpected error: ' ||
3488: END IF;
3489:
3490: WHEN OTHERS THEN
3491: ROLLBACK TO unmark_serials_sp;
3492: x_return_status := fnd_api.g_ret_sts_unexp_error;
3493: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3494: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3495: END IF;
3496: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3552: fnd_msg_pub.initialize;
3553: l_progress := '20';
3554:
3555: -- Set the return status to success
3556: x_return_status := fnd_api.g_ret_sts_success;
3557: l_progress := '30';
3558:
3559: -- Get all of the MMTT suggestions created so we can
3560: -- cleanup the operation instance for it. Note that for the
3591: END IF;
3592: l_progress := '50';
3593:
3594: -- Check to see if the cleanup_operation_instance API returned successfully
3595: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
3596: IF (l_debug = 1) THEN
3597: print_debug('Success returned from cleanup_operation_instance API');
3598: END IF;
3599: ELSE
3600: IF (l_debug = 1) THEN
3601: print_debug('Failure returned from cleanup_operation_instance API');
3602: print_debug('Error code: ' || l_error_code);
3603: END IF;
3604: RAISE FND_API.G_EXC_ERROR;
3605: END IF;
3606: ELSE
3607: -- Non-receiving case so call delete_dispatched_task
3608: IF (l_debug = 1) THEN
3622: END IF;
3623: l_progress := '70';
3624:
3625: -- Check to see if the delete_dispatched_task API returned successfully
3626: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
3627: IF (l_debug = 1) THEN
3628: print_debug('Success returned from delete_dispatched_task API');
3629: END IF;
3630: ELSE
3630: ELSE
3631: IF (l_debug = 1) THEN
3632: print_debug('Failure returned from delete_dispatched_task API');
3633: END IF;
3634: RAISE FND_API.G_EXC_ERROR;
3635: END IF;
3636: END IF;
3637:
3638: END LOOP;
3663: print_debug('***End of cleanup_ATF***');
3664: END IF;
3665:
3666: EXCEPTION
3667: WHEN FND_API.G_EXC_ERROR THEN
3668: ROLLBACK TO cleanup_ATF_sp;
3669: x_return_status := fnd_api.g_ret_sts_error;
3670: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3671: p_data => x_msg_data);
3665:
3666: EXCEPTION
3667: WHEN FND_API.G_EXC_ERROR THEN
3668: ROLLBACK TO cleanup_ATF_sp;
3669: x_return_status := fnd_api.g_ret_sts_error;
3670: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3671: p_data => x_msg_data);
3672: IF (l_debug = 1) THEN
3673: print_debug('Exiting cleanup_ATF - Execution error: ' ||
3673: print_debug('Exiting cleanup_ATF - Execution error: ' ||
3674: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'));
3675: END IF;
3676:
3677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3678: ROLLBACK TO cleanup_ATF_sp;
3679: x_return_status := fnd_api.g_ret_sts_unexp_error;
3680: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3681: p_data => x_msg_data);
3675: END IF;
3676:
3677: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3678: ROLLBACK TO cleanup_ATF_sp;
3679: x_return_status := fnd_api.g_ret_sts_unexp_error;
3680: fnd_msg_pub.count_and_get(p_count => x_msg_count,
3681: p_data => x_msg_data);
3682: IF (l_debug = 1) THEN
3683: print_debug('Exiting cleanup_ATF - Unexpected error: ' ||
3685: END IF;
3686:
3687: WHEN OTHERS THEN
3688: ROLLBACK TO cleanup_ATF_sp;
3689: x_return_status := fnd_api.g_ret_sts_unexp_error;
3690: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3691: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
3692: END IF;
3693: fnd_msg_pub.count_and_get(p_count => x_msg_count,