[Home] [Help]
262: PROCEDURE change_task_to_active(p_transaction_temp_id IN NUMBER, x_return_status OUT NOCOPY VARCHAR2) IS
263: --PRAGMA AUTONOMOUS_TRANSACTION;
264: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
265: BEGIN
266: x_return_status := fnd_api.g_ret_sts_success;
267:
268: UPDATE wms_dispatched_tasks
269: SET status = 9
270: WHERE transaction_temp_id = p_transaction_temp_id;
271:
272: COMMIT;
273: EXCEPTION
274: WHEN OTHERS THEN
275: x_return_status := fnd_api.g_ret_sts_error;
276: END;
277:
278: --
279: -- Name
292: -- p_cartons_list => Carton Grouping ID List (For Cluster Picking)
293: --
294: -- Output Parameters
295: -- x_task_info => Ref Cursor containing the Task Information
296: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
297: -- FND_API.G_RET_STS_ERROR
298: -- x_error_code => Code indicating the error message.
299: -- x_error_mesg => Error Messages
300: -- x_mesg_count => Error Messages Count
293: --
294: -- Output Parameters
295: -- x_task_info => Ref Cursor containing the Task Information
296: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
297: -- FND_API.G_RET_STS_ERROR
298: -- x_error_code => Code indicating the error message.
299: -- x_error_mesg => Error Messages
300: -- x_mesg_count => Error Messages Count
301: PROCEDURE get_next_task_info(
404: END IF;
405: x_error_code := 0;
406: x_mesg_count := 0;
407: x_error_mesg := '';
408: x_return_status := fnd_api.g_ret_sts_success;
409: IF (l_debug = 1) THEN
410: mydebug('Get the transaction temp id which will be the next task to be processed', l_api_name);
411: END IF;
412: SAVEPOINT next_task_inquiry;
453: AND mmtt.transaction_temp_id = p_transaction_temp_id;
454: EXCEPTION
455: WHEN NO_DATA_FOUND THEN
456: x_error_code := 1;
457: RAISE fnd_api.g_exc_unexpected_error;
458: END;
459: ELSIF (p_cartonization_id IS NOT NULL) THEN
460: IF (l_debug = 1) THEN
461: mydebug('Get the relevant info for carton id:'|| p_cartonization_id, l_api_name);
504: WHERE ROWNUM < 2;
505: EXCEPTION
506: WHEN NO_DATA_FOUND THEN
507: x_error_code := 1;
508: RAISE fnd_api.g_exc_unexpected_error;
509: END;
510: ELSIF (p_device_id IS NOT NULL) THEN
511: IF (l_debug = 1) THEN
512: mydebug('Get the relevant info for device id:'|| p_device_id, l_api_name);
555: WHERE ROWNUM < 2;
556: EXCEPTION
557: WHEN NO_DATA_FOUND THEN
558: x_error_code := 1;
559: RAISE fnd_api.g_exc_unexpected_error;
560: END;
561: ELSE
562: IF (l_debug = 1) THEN
563: mydebug('Open cursor eligible_tasks', l_api_name);
604: WHERE ROWNUM < 2;
605: EXCEPTION
606: WHEN NO_DATA_FOUND THEN
607: x_error_code := 1;
608: RAISE fnd_api.g_exc_unexpected_error;
609: END;
610: END IF;
611: --}
612: END IF; -- cluster pick check
985: , x_msg_count => x_mesg_count
986: , x_msg_data => x_error_mesg
987: );
988:
989: IF x_return_status <> fnd_api.g_ret_sts_success THEN
990: x_error_code := 3;
991: RAISE fnd_api.g_exc_unexpected_error;
992: END IF;
993: END IF;
987: );
988:
989: IF x_return_status <> fnd_api.g_ret_sts_success THEN
990: x_error_code := 3;
991: RAISE fnd_api.g_exc_unexpected_error;
992: END IF;
993: END IF;
994:
995: -- get the cluster key for the cluster picking ---patchset J APL cluster picking
1492: mydebug('After opening the ref cursor', l_api_name);
1493: END IF;
1494: END IF;
1495: EXCEPTION
1496: WHEN fnd_api.g_exc_error THEN
1497: x_return_status := fnd_api.g_ret_sts_error;
1498: ROLLBACK TO next_task_inquiry;
1499: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1500: IF (l_debug = 1) THEN
1493: END IF;
1494: END IF;
1495: EXCEPTION
1496: WHEN fnd_api.g_exc_error THEN
1497: x_return_status := fnd_api.g_ret_sts_error;
1498: ROLLBACK TO next_task_inquiry;
1499: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1500: IF (l_debug = 1) THEN
1501: mydebug('Error ! SQL Code : '|| SQLCODE, l_api_name);
1495: EXCEPTION
1496: WHEN fnd_api.g_exc_error THEN
1497: x_return_status := fnd_api.g_ret_sts_error;
1498: ROLLBACK TO next_task_inquiry;
1499: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1500: IF (l_debug = 1) THEN
1501: mydebug('Error ! SQL Code : '|| SQLCODE, l_api_name);
1502: END IF;
1503: WHEN fnd_api.g_exc_unexpected_error THEN
1499: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1500: IF (l_debug = 1) THEN
1501: mydebug('Error ! SQL Code : '|| SQLCODE, l_api_name);
1502: END IF;
1503: WHEN fnd_api.g_exc_unexpected_error THEN
1504: x_return_status := fnd_api.g_ret_sts_unexp_error;
1505: ROLLBACK TO next_task_inquiry;
1506: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1507: IF (l_debug = 1) THEN
1500: IF (l_debug = 1) THEN
1501: mydebug('Error ! SQL Code : '|| SQLCODE, l_api_name);
1502: END IF;
1503: WHEN fnd_api.g_exc_unexpected_error THEN
1504: x_return_status := fnd_api.g_ret_sts_unexp_error;
1505: ROLLBACK TO next_task_inquiry;
1506: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1507: IF (l_debug = 1) THEN
1508: mydebug('Unexpected Error ! SQL Code : '|| SQLCODE, l_api_name);
1502: END IF;
1503: WHEN fnd_api.g_exc_unexpected_error THEN
1504: x_return_status := fnd_api.g_ret_sts_unexp_error;
1505: ROLLBACK TO next_task_inquiry;
1506: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1507: IF (l_debug = 1) THEN
1508: mydebug('Unexpected Error ! SQL Code : '|| SQLCODE, l_api_name);
1509: END IF;
1510: WHEN OTHERS THEN
1507: IF (l_debug = 1) THEN
1508: mydebug('Unexpected Error ! SQL Code : '|| SQLCODE, l_api_name);
1509: END IF;
1510: WHEN OTHERS THEN
1511: x_return_status := fnd_api.g_ret_sts_unexp_error;
1512: ROLLBACK TO next_task_inquiry;
1513:
1514: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1515: fnd_msg_pub.add_exc_msg('WMS_PICKING_PKG', 'GET_NEXT_TASK_INFO');
1514: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1515: fnd_msg_pub.add_exc_msg('WMS_PICKING_PKG', 'GET_NEXT_TASK_INFO');
1516: END IF;
1517:
1518: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1519: IF (l_debug = 1) THEN
1520: mydebug('Other Error ! SQL Code : '|| SQLCODE, l_api_name);
1521: END IF;
1522: END get_next_task_info;
1535: -- p_organization_id => Organization ID
1536: -- p_transfer_lpn_id => LPN ID
1537: --
1538: -- Output Parameters
1539: -- x_return_status => FND_API.G_RET_STS_UNEXP_ERROR or
1540: -- FND_API.G_RET_STS_SUCCESS
1541:
1542: PROCEDURE handle_bulk_picking(
1543: x_return_status OUT NOCOPY VARCHAR2
1536: -- p_transfer_lpn_id => LPN ID
1537: --
1538: -- Output Parameters
1539: -- x_return_status => FND_API.G_RET_STS_UNEXP_ERROR or
1540: -- FND_API.G_RET_STS_SUCCESS
1541:
1542: PROCEDURE handle_bulk_picking(
1543: x_return_status OUT NOCOPY VARCHAR2
1544: , p_organization_id NUMBER
1557: AND t2.organization_id = t1.organization_id
1558: );
1559: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1560: BEGIN
1561: x_return_status := fnd_api.g_ret_sts_success;
1562: -- For each transaction returned by the cursor update the Child Records and delete the Parent.
1563: FOR v_rec IN c_get_bulk_txn(p_organization_id, p_transfer_lpn_id) LOOP
1564: -- Updating the Child Records.
1565: UPDATE mtl_material_transactions_temp
1575: WHERE transaction_temp_id = v_rec.transaction_temp_id;
1576: END LOOP;
1577: EXCEPTION
1578: WHEN OTHERS THEN
1579: x_return_status := fnd_api.g_ret_sts_unexp_error;
1580: IF (l_debug = 1) THEN
1581: mydebug('Unknown Exception occurred: ' || SQLERRM,'HANDLE_BULK_PICKING');
1582: END IF;
1583: END handle_bulk_picking;
1598: -- x_tasks => Ref Cursor containing the Tasks
1599: -- x_drop_type => Either MFG or OTHERS depending on whether LPN has Mfg Picks or not
1600: -- x_multiple_drops => Whether or not there are multiple drops on LPN
1601: -- x_drop_lpn_option => Drop LPN Option
1602: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
1603: -- FND_API.G_RET_STS_ERROR or "W" (warning)
1604:
1605: PROCEDURE get_tasks(
1606: x_tasks OUT NOCOPY t_genref
1599: -- x_drop_type => Either MFG or OTHERS depending on whether LPN has Mfg Picks or not
1600: -- x_multiple_drops => Whether or not there are multiple drops on LPN
1601: -- x_drop_lpn_option => Drop LPN Option
1602: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
1603: -- FND_API.G_RET_STS_ERROR or "W" (warning)
1604:
1605: PROCEDURE get_tasks(
1606: x_tasks OUT NOCOPY t_genref
1607: , x_drop_type OUT NOCOPY VARCHAR2
1670:
1671: IF x_drop_type = 'MFG' THEN
1672: -- Handling the case of Bulk Picked Lines in the LPN.
1673: handle_bulk_picking(x_return_status, p_organization_id, p_transfer_lpn_id);
1674: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1675: RAISE fnd_api.g_exc_unexpected_error;
1676: END IF;
1677:
1678: -- Determine if the LPN has multiple drop destinations
1671: IF x_drop_type = 'MFG' THEN
1672: -- Handling the case of Bulk Picked Lines in the LPN.
1673: handle_bulk_picking(x_return_status, p_organization_id, p_transfer_lpn_id);
1674: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1675: RAISE fnd_api.g_exc_unexpected_error;
1676: END IF;
1677:
1678: -- Determine if the LPN has multiple drop destinations
1679: OPEN c_get_mfg_drop_details(p_organization_id, p_transfer_lpn_id);
1860: ORDER BY subinventory_code, loc, priority, taskid;
1861: END IF; -- x_drop_type = 'MFG'
1862:
1863: EXCEPTION
1864: WHEN fnd_api.g_exc_unexpected_error THEN
1865: x_return_status := fnd_api.g_ret_sts_unexp_error;
1866: WHEN OTHERS THEN
1867: x_return_status := fnd_api.g_ret_sts_error;
1868: IF (l_debug = 1) THEN
1861: END IF; -- x_drop_type = 'MFG'
1862:
1863: EXCEPTION
1864: WHEN fnd_api.g_exc_unexpected_error THEN
1865: x_return_status := fnd_api.g_ret_sts_unexp_error;
1866: WHEN OTHERS THEN
1867: x_return_status := fnd_api.g_ret_sts_error;
1868: IF (l_debug = 1) THEN
1869: mydebug('Unknown exception occurred: ' || SQLERRM, l_api_name);
1863: EXCEPTION
1864: WHEN fnd_api.g_exc_unexpected_error THEN
1865: x_return_status := fnd_api.g_ret_sts_unexp_error;
1866: WHEN OTHERS THEN
1867: x_return_status := fnd_api.g_ret_sts_error;
1868: IF (l_debug = 1) THEN
1869: mydebug('Unknown exception occurred: ' || SQLERRM, l_api_name);
1870: END IF;
1871: END get_tasks;
1881: -- Input Parameters
1882: -- p_txn_temp_id_list => Comma delimited Transaction Temp ID List
1883: --
1884: -- Output Parameters
1885: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
1886: -- FND_API.G_RET_STS_ERROR
1887: -- x_lot_num_list => Comma delimited Lot Number List
1888: -- x_lot_qty_list => Comma delimited Lot Qty List
1889: -- x_display_serials => Whether Serials are associated with the Txn Temp ID list.
1882: -- p_txn_temp_id_list => Comma delimited Transaction Temp ID List
1883: --
1884: -- Output Parameters
1885: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
1886: -- FND_API.G_RET_STS_ERROR
1887: -- x_lot_num_list => Comma delimited Lot Number List
1888: -- x_lot_qty_list => Comma delimited Lot Qty List
1889: -- x_display_serials => Whether Serials are associated with the Txn Temp ID list.
1890:
1915: SELECT DECODE(COUNT(serial_transaction_temp_id), 0, 'N', 'Y')
1916: FROM mtl_transaction_lots_temp
1917: WHERE transaction_temp_id = p_txn_temp_id;
1918: BEGIN
1919: x_return_status := fnd_api.g_ret_sts_success;
1920:
1921: IF (g_trace_on = 1) THEN
1922: mydebug('Txn Temp ID List = '||p_txn_temp_id_list, l_api_name);
1923: END IF;
1974: ELSE
1975: IF (g_trace_on = 1) THEN
1976: mydebug('No Lots retrieved for the current Query Criteria', l_api_name);
1977: END IF;
1978: x_return_status := fnd_api.g_ret_sts_error;
1979: RETURN;
1980: END IF;
1981:
1982: -- Determine whether the Item is Serial Controlled or not.
1993: END IF;
1994: IF (g_trace_on = 1) THEN
1995: mydebug('Exception while getting the Lots: ' || SQLERRM, l_api_name);
1996: END IF;
1997: x_return_status := fnd_api.g_ret_sts_error;
1998: END get_lot_number_info;
1999:
2000: --
2001: -- Name
2010: -- p_txn_temp_id_list => Comma delimited Transaction Temp ID List
2011: -- p_lot_number => Lot Number
2012: --
2013: -- Output Parameters
2014: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
2015: -- FND_API.G_RET_STS_ERROR
2016: -- x_serial_list => Comma delimited Serial List.
2017:
2018: PROCEDURE get_serial_numbers(
2011: -- p_lot_number => Lot Number
2012: --
2013: -- Output Parameters
2014: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
2015: -- FND_API.G_RET_STS_ERROR
2016: -- x_serial_list => Comma delimited Serial List.
2017:
2018: PROCEDURE get_serial_numbers(
2019: x_return_status OUT NOCOPY VARCHAR2
2040: WHERE p_lot_num IS NULL
2041: AND msnt.transaction_temp_id = p_txn_temp_id
2042: ORDER BY 1;
2043: BEGIN
2044: x_return_status := fnd_api.g_ret_sts_success;
2045:
2046: IF (g_trace_on = 1) THEN
2047: mydebug('Txn Temp ID List = '||p_txn_temp_id_list||' : Lot Number = '||p_lot_number, l_api_name);
2048: END IF;
2079: IF x_serial_list IS NULL THEN
2080: IF (g_trace_on = 1) THEN
2081: mydebug('No Serials retrieved for the given Query Criteria',l_api_name);
2082: END IF;
2083: x_return_status := fnd_api.g_ret_sts_error;
2084: END IF;
2085: EXCEPTION
2086: WHEN OTHERS THEN
2087: IF c_serial_list%ISOPEN THEN
2089: END IF;
2090: IF (g_trace_on = 1) THEN
2091: mydebug('Exception on getting the Serials : '|| SQLERRM, l_api_name);
2092: END IF;
2093: x_return_status := fnd_api.g_ret_sts_error;
2094: END get_serial_numbers;
2095:
2096: PROCEDURE manual_pick
2097: (p_employee_id IN NUMBER,
2163: END IF;
2164: l_equipment_serial := NULL;
2165: END IF;
2166:
2167: x_return_status := fnd_api.g_ret_sts_success;
2168:
2169: l_mmtt_rowcnt := 0;
2170: l_wdt_rowcnt := 0;
2171:
2206:
2207: l_mmtt_rowcnt := 0;
2208: fnd_message.set_name('WMS', 'WMS_INVALID_PICKID');
2209: fnd_msg_pub.ADD;
2210: RAISE fnd_api.g_exc_error;
2211: END;
2212:
2213: IF (l_debug = 1) THEN
2214: mydebug('MANUAL_PICK: MMTT record is available', 'MANUAL_PICK');
2236: END IF;
2237:
2238: fnd_message.set_name('WMS', 'WMS_TASK_UNAVAIL');
2239: fnd_msg_pub.ADD;
2240: RAISE fnd_api.g_exc_error;
2241: ELSE
2242: BEGIN --bug#5157839.Start fix
2243: SELECT wdt.status INTO l_status FROM wms_dispatched_tasks wdt
2244: WHERE wdt.transaction_temp_id = p_transaction_temp_id;
2248: mydebug('MANUAL_PICK: The WDT has status other than 1 or 2 ', 'MANUAL_PICK');
2249: END IF;
2250: fnd_message.set_name('WMS', 'WMS_INVALID_PICKID');
2251: fnd_msg_pub.ADD;
2252: RAISE fnd_api.g_exc_error;
2253: END IF;
2254: EXCEPTION
2255: WHEN NO_DATA_FOUND THEN
2256: IF (l_debug = 1) THEN
2328: IF (l_debug = 1) THEN
2329: mydebug('MANUAL_PICK: No Person Resource ID found', 'MANUAL_PICK');
2330: END IF;
2331:
2332: RAISE fnd_api.g_exc_error;
2333: END;
2334:
2335: IF p_equipment_id IS NOT NULL AND
2336: p_equipment_id <> -999 THEN
2347: IF (l_debug = 1) THEN
2348: mydebug('MANUAL_PICK: No Machine Resource ID found', 'MANUAL_PICK');
2349: END IF;
2350:
2351: RAISE fnd_api.g_exc_error;
2352: END;
2353: END IF;
2354:
2355: --Bug6009436.Begin
2419: WHEN OTHERS THEN
2420: IF (l_debug = 1) THEN
2421: mydebug('manual_pick:EXCEPTION!!! while updating MSNT', 'MANUAL_PICK');
2422: END IF;
2423: raise fnd_api.g_exc_error;
2424: END ;
2425: END IF;
2426: --Bug6009436.End
2427:
2475: END IF;
2476: END IF;
2477: END IF; --mmtt rowcount if
2478:
2479: x_return_status := fnd_api.g_ret_sts_success;
2480: EXCEPTION
2481: WHEN fnd_api.g_exc_error THEN
2482: x_return_status := fnd_api.g_ret_sts_error;
2483: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2477: END IF; --mmtt rowcount if
2478:
2479: x_return_status := fnd_api.g_ret_sts_success;
2480: EXCEPTION
2481: WHEN fnd_api.g_exc_error THEN
2482: x_return_status := fnd_api.g_ret_sts_error;
2483: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2484: WHEN OTHERS THEN
2485: x_return_status := fnd_api.g_ret_sts_unexp_error;
2478:
2479: x_return_status := fnd_api.g_ret_sts_success;
2480: EXCEPTION
2481: WHEN fnd_api.g_exc_error THEN
2482: x_return_status := fnd_api.g_ret_sts_error;
2483: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2484: WHEN OTHERS THEN
2485: x_return_status := fnd_api.g_ret_sts_unexp_error;
2486: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2481: WHEN fnd_api.g_exc_error THEN
2482: x_return_status := fnd_api.g_ret_sts_error;
2483: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2484: WHEN OTHERS THEN
2485: x_return_status := fnd_api.g_ret_sts_unexp_error;
2486: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2487: END manual_pick;
2488:
2489:
2874:
2875: -- Establish a savepoint
2876: SAVEPOINT next_task_sp;
2877:
2878: x_return_status := fnd_api.g_ret_sts_success;
2879:
2880: IF (l_debug = 1) THEN
2881: mydebug('Need to check if the period is open', l_api_name);
2882: END IF;
2899: END IF;
2900:
2901: fnd_message.set_name('INV', 'INV_NO_OPEN_PERIOD');
2902: fnd_msg_pub.ADD;
2903: RAISE fnd_api.g_exc_unexpected_error;
2904: END IF;
2905:
2906: -- Ignore devices if multiple device signon and task methods not in
2907: -- discrete/wave
3194: mydebug('Return Status from get_next_task_in_group: ' || x_return_status,l_api_name);
3195: END IF;
3196:
3197: IF x_return_status = 'U' THEN
3198: RAISE fnd_api.g_exc_unexpected_error;
3199: ELSIF x_return_status = 'E' THEN
3200: RAISE fnd_api.g_exc_error;
3201: END IF;
3202:
3196:
3197: IF x_return_status = 'U' THEN
3198: RAISE fnd_api.g_exc_unexpected_error;
3199: ELSIF x_return_status = 'E' THEN
3200: RAISE fnd_api.g_exc_error;
3201: END IF;
3202:
3203: IF l_next_transaction_temp_id IS NOT NULL THEN
3204: x_num_of_tasks := 1;
3225: mydebug('Return Status from manual_pick: ' || x_return_status,l_api_name);
3226: END IF;
3227:
3228: IF x_return_status = 'U' THEN
3229: RAISE fnd_api.g_exc_unexpected_error;
3230: ELSIF x_return_status = 'E' THEN
3231: RAISE fnd_api.g_exc_error;
3232: END IF;
3233:
3227:
3228: IF x_return_status = 'U' THEN
3229: RAISE fnd_api.g_exc_unexpected_error;
3230: ELSIF x_return_status = 'E' THEN
3231: RAISE fnd_api.g_exc_error;
3232: END IF;
3233:
3234: l_next_transaction_temp_id := x_grouping_document_number;
3235: x_num_of_tasks := 1;
3338: SET device_invoked = 'Y',
3339: device_request_id = l_request_id
3340: WHERE transaction_temp_id = l_transaction_temp_id;
3341:
3342: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3343: IF (l_debug = 1) THEN
3344: mydebug('Failed to invoke device ' || TO_CHAR(l_loop_device_id), l_api_name);
3345: END IF;
3346: END IF;
3461: END IF;
3462:
3463: fnd_message.set_name('WMS', 'WMS_TASK_LOCKED');
3464: fnd_msg_pub.ADD;
3465: RAISE fnd_api.g_exc_unexpected_error;
3466: END IF;
3467: --Bug#5599049 .Fix ends.
3468:
3469: IF l_group_sequence_number = 1 AND
3499: x_msg_count => x_msg_count,
3500: x_msg_data => x_msg_data,
3501: p_request_id => l_request_id);
3502:
3503: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3504: IF (l_debug = 1) THEN
3505: mydebug('Failed to invoke device ' || TO_CHAR(l_loop_device_id), l_api_name);
3506: END IF;
3507: END IF;
3660: x_msg_count => x_msg_count,
3661: x_msg_data => x_msg_data,
3662: p_request_id => l_request_id);
3663:
3664: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3665: IF (l_debug = 1) THEN
3666: mydebug('Failed to invoke device ' || TO_CHAR(l_loop_device_id), l_api_name);
3667: END IF;
3668: END IF;
3698: mydebug('Return Status from get_next_task_in_group: ' || x_return_status,l_api_name);
3699: END IF;
3700:
3701: IF x_return_status = 'U' THEN
3702: RAISE fnd_api.g_exc_unexpected_error;
3703: ELSIF x_return_status = 'E' THEN
3704: RAISE fnd_api.g_exc_error;
3705: END IF;
3706:
3700:
3701: IF x_return_status = 'U' THEN
3702: RAISE fnd_api.g_exc_unexpected_error;
3703: ELSIF x_return_status = 'E' THEN
3704: RAISE fnd_api.g_exc_error;
3705: END IF;
3706:
3707: IF l_next_transaction_temp_id IS NOT NULL THEN
3708: x_num_of_tasks := 1;
3715:
3716: ELSIF x_return_status = 'U' THEN
3717: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
3718: fnd_msg_pub.ADD;
3719: RAISE fnd_api.g_exc_unexpected_error;
3720: ELSIF x_return_status = 'E' THEN
3721: IF (l_debug = 1) THEN
3722: mydebug('Setting status as S', l_api_name);
3723: END IF;
3720: ELSIF x_return_status = 'E' THEN
3721: IF (l_debug = 1) THEN
3722: mydebug('Setting status as S', l_api_name);
3723: END IF;
3724: x_return_status := fnd_api.g_ret_sts_success;
3725: END IF;
3726:
3727: EXIT WHEN l_dup_task = FALSE; --Bug#8322661
3728: END LOOP; --Bug#8322661
3784:
3785: IF x_return_status <> 'S' THEN
3786: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
3787: fnd_msg_pub.ADD;
3788: RAISE fnd_api.g_exc_unexpected_error;
3789: END IF;
3790:
3791: l_request_id := NULL;
3792: -- viks For start over button pressed l_count >0 for multiple device
3817:
3818: -- always dispatch the task whether invoking device successfully or not
3819: -- So update the table always
3820:
3821: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3822: IF (l_debug = 1) THEN
3823: mydebug('Failed to invoke device ' || TO_CHAR(l_loop_device_id), l_api_name);
3824: END IF;
3825: END IF;
3865: END IF;
3866:
3867: inv_mobile_helper_functions.get_stacked_messages(x_message => x_msg_data);
3868:
3869: x_return_status := fnd_api.g_ret_sts_success;
3870:
3871: IF x_return_status = 'S' AND l_return_status = 'W' THEN -- Bug 4507435
3872: mydebug('Good One','');
3873: x_return_status := 'W';
3874: END IF;
3875:
3876:
3877: EXCEPTION
3878: WHEN fnd_api.g_exc_error THEN
3879: IF (l_debug = 1) THEN
3880: mydebug('Error', l_api_name);
3881: END IF;
3882: x_return_status := 'E';
3907: ,x_msg_data OUT NOCOPY VARCHAR2
3908: )
3909: IS
3910: qty_tbl wms_Task_mgmt_pub.TASK_QTY_TBL_TYPE;
3911: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3912: l_resultant_task_details wms_Task_mgmt_pub.TASK_DETAIL_TBL_TYPE;
3913: l_resultant_tasks wms_Task_mgmt_pub.TASK_TAB_TYPE;
3914: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3915:
3927:
3928: wms_picking_pkg.split_task(
3929: p_source_transaction_number => p_transaction_temp_id
3930: , p_split_quantities => qty_tbl
3931: , p_commit => FND_API.G_FALSE
3932: , x_resultant_tasks => l_resultant_tasks
3933: , x_resultant_task_details => l_resultant_task_details
3934: , x_return_status => l_return_status
3935: , x_msg_count => x_msg_count
3945: update mtl_material_transactions_temp
3946: set transfer_lpn_id = p_lpn_id
3947: where transaction_temp_id = l_resultant_tasks(1).task_id;
3948:
3949: x_return_status := fnd_api.g_ret_sts_success;
3950: ELSE
3951: l_transaction_temp_id := -9999;
3952: x_return_status := 'E';
3953: END IF;
3964: END split_mmtt_lpn;
3965:
3966: PROCEDURE split_task( p_source_transaction_number IN NUMBER DEFAULT NULL ,
3967: p_split_quantities IN wms_Task_mgmt_pub.TASK_QTY_TBL_TYPE ,
3968: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE ,
3969: x_resultant_tasks OUT NOCOPY WMS_TASK_MGMT_PUB.task_tab_type ,
3970: x_resultant_task_details OUT NOCOPY wms_Task_mgmt_pub.TASK_DETAIL_TBL_TYPE ,
3971: x_return_status OUT NOCOPY VARCHAR2 ,
3972: x_msg_count OUT NOCOPY NUMBER ,
4279: ELSE
4280: mydebug( 'Table x_resultant_tasks is empty', 'split_task');
4281: END IF;
4282: END IF;
4283: IF p_commit = FND_API.G_TRUE THEN
4284: IF g_debug = 1 THEN
4285: mydebug( ' p_commit is TRUE, so COMMITING the transactions.', 'split_task');
4286: END IF;
4287: COMMIT;