[Home] [Help]
102: PROCEDURE change_task_to_active(p_transaction_temp_id IN NUMBER, x_return_status OUT NOCOPY VARCHAR2) IS
103: --PRAGMA AUTONOMOUS_TRANSACTION;
104: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
105: BEGIN
106: x_return_status := fnd_api.g_ret_sts_success;
107:
108: UPDATE wms_dispatched_tasks
109: SET status = 9
110: WHERE transaction_temp_id = p_transaction_temp_id;
111:
112: COMMIT;
113: EXCEPTION
114: WHEN OTHERS THEN
115: x_return_status := fnd_api.g_ret_sts_error;
116: END;
117:
118: --
119: -- Name
132: -- p_cartons_list => Carton Grouping ID List (For Cluster Picking)
133: --
134: -- Output Parameters
135: -- x_task_info => Ref Cursor containing the Task Information
136: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
137: -- FND_API.G_RET_STS_ERROR
138: -- x_error_code => Code indicating the error message.
139: -- x_error_mesg => Error Messages
140: -- x_mesg_count => Error Messages Count
133: --
134: -- Output Parameters
135: -- x_task_info => Ref Cursor containing the Task Information
136: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
137: -- FND_API.G_RET_STS_ERROR
138: -- x_error_code => Code indicating the error message.
139: -- x_error_mesg => Error Messages
140: -- x_mesg_count => Error Messages Count
141: PROCEDURE get_next_task_info(
242: END IF;
243: x_error_code := 0;
244: x_mesg_count := 0;
245: x_error_mesg := '';
246: x_return_status := fnd_api.g_ret_sts_success;
247: IF (l_debug = 1) THEN
248: mydebug('Get the transaction temp id which will be the next task to be processed', l_api_name);
249: END IF;
250: SAVEPOINT next_task_inquiry;
291: AND mmtt.transaction_temp_id = p_transaction_temp_id;
292: EXCEPTION
293: WHEN NO_DATA_FOUND THEN
294: x_error_code := 1;
295: RAISE fnd_api.g_exc_unexpected_error;
296: END;
297: ELSIF (p_cartonization_id IS NOT NULL) THEN
298: IF (l_debug = 1) THEN
299: mydebug('Get the relevant info for carton id:'|| p_cartonization_id, l_api_name);
342: WHERE ROWNUM < 2;
343: EXCEPTION
344: WHEN NO_DATA_FOUND THEN
345: x_error_code := 1;
346: RAISE fnd_api.g_exc_unexpected_error;
347: END;
348: ELSIF (p_device_id IS NOT NULL) THEN
349: IF (l_debug = 1) THEN
350: mydebug('Get the relevant info for device id:'|| p_device_id, l_api_name);
393: WHERE ROWNUM < 2;
394: EXCEPTION
395: WHEN NO_DATA_FOUND THEN
396: x_error_code := 1;
397: RAISE fnd_api.g_exc_unexpected_error;
398: END;
399: ELSE
400: IF (l_debug = 1) THEN
401: mydebug('Open cursor eligible_tasks', l_api_name);
442: WHERE ROWNUM < 2;
443: EXCEPTION
444: WHEN NO_DATA_FOUND THEN
445: x_error_code := 1;
446: RAISE fnd_api.g_exc_unexpected_error;
447: END;
448: END IF;
449: --}
450: END IF; -- cluster pick check
820: , x_msg_count => x_mesg_count
821: , x_msg_data => x_error_mesg
822: );
823:
824: IF x_return_status <> fnd_api.g_ret_sts_success THEN
825: x_error_code := 3;
826: RAISE fnd_api.g_exc_unexpected_error;
827: END IF;
828: END IF;
822: );
823:
824: IF x_return_status <> fnd_api.g_ret_sts_success THEN
825: x_error_code := 3;
826: RAISE fnd_api.g_exc_unexpected_error;
827: END IF;
828: END IF;
829:
830: -- get the cluster key for the cluster picking ---patchset J APL cluster picking
1232: mydebug('After opening the ref cursor', l_api_name);
1233: END IF;
1234: END IF;
1235: EXCEPTION
1236: WHEN fnd_api.g_exc_error THEN
1237: x_return_status := fnd_api.g_ret_sts_error;
1238: ROLLBACK TO next_task_inquiry;
1239: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1240: IF (l_debug = 1) THEN
1233: END IF;
1234: END IF;
1235: EXCEPTION
1236: WHEN fnd_api.g_exc_error THEN
1237: x_return_status := fnd_api.g_ret_sts_error;
1238: ROLLBACK TO next_task_inquiry;
1239: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1240: IF (l_debug = 1) THEN
1241: mydebug('Error ! SQL Code : '|| SQLCODE, l_api_name);
1235: EXCEPTION
1236: WHEN fnd_api.g_exc_error THEN
1237: x_return_status := fnd_api.g_ret_sts_error;
1238: ROLLBACK TO next_task_inquiry;
1239: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1240: IF (l_debug = 1) THEN
1241: mydebug('Error ! SQL Code : '|| SQLCODE, l_api_name);
1242: END IF;
1243: WHEN fnd_api.g_exc_unexpected_error THEN
1239: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1240: IF (l_debug = 1) THEN
1241: mydebug('Error ! SQL Code : '|| SQLCODE, l_api_name);
1242: END IF;
1243: WHEN fnd_api.g_exc_unexpected_error THEN
1244: x_return_status := fnd_api.g_ret_sts_unexp_error;
1245: ROLLBACK TO next_task_inquiry;
1246: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1247: IF (l_debug = 1) THEN
1240: IF (l_debug = 1) THEN
1241: mydebug('Error ! SQL Code : '|| SQLCODE, l_api_name);
1242: END IF;
1243: WHEN fnd_api.g_exc_unexpected_error THEN
1244: x_return_status := fnd_api.g_ret_sts_unexp_error;
1245: ROLLBACK TO next_task_inquiry;
1246: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1247: IF (l_debug = 1) THEN
1248: mydebug('Unexpected Error ! SQL Code : '|| SQLCODE, l_api_name);
1242: END IF;
1243: WHEN fnd_api.g_exc_unexpected_error THEN
1244: x_return_status := fnd_api.g_ret_sts_unexp_error;
1245: ROLLBACK TO next_task_inquiry;
1246: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1247: IF (l_debug = 1) THEN
1248: mydebug('Unexpected Error ! SQL Code : '|| SQLCODE, l_api_name);
1249: END IF;
1250: WHEN OTHERS THEN
1247: IF (l_debug = 1) THEN
1248: mydebug('Unexpected Error ! SQL Code : '|| SQLCODE, l_api_name);
1249: END IF;
1250: WHEN OTHERS THEN
1251: x_return_status := fnd_api.g_ret_sts_unexp_error;
1252: ROLLBACK TO next_task_inquiry;
1253:
1254: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1255: fnd_msg_pub.add_exc_msg('WMS_PICKING_PKG', 'GET_NEXT_TASK_INFO');
1254: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1255: fnd_msg_pub.add_exc_msg('WMS_PICKING_PKG', 'GET_NEXT_TASK_INFO');
1256: END IF;
1257:
1258: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_mesg_count, p_data => x_error_mesg);
1259: IF (l_debug = 1) THEN
1260: mydebug('Other Error ! SQL Code : '|| SQLCODE, l_api_name);
1261: END IF;
1262: END get_next_task_info;
1275: -- p_organization_id => Organization ID
1276: -- p_transfer_lpn_id => LPN ID
1277: --
1278: -- Output Parameters
1279: -- x_return_status => FND_API.G_RET_STS_UNEXP_ERROR or
1280: -- FND_API.G_RET_STS_SUCCESS
1281:
1282: PROCEDURE handle_bulk_picking(
1283: x_return_status OUT NOCOPY VARCHAR2
1276: -- p_transfer_lpn_id => LPN ID
1277: --
1278: -- Output Parameters
1279: -- x_return_status => FND_API.G_RET_STS_UNEXP_ERROR or
1280: -- FND_API.G_RET_STS_SUCCESS
1281:
1282: PROCEDURE handle_bulk_picking(
1283: x_return_status OUT NOCOPY VARCHAR2
1284: , p_organization_id NUMBER
1297: AND t2.organization_id = t1.organization_id
1298: );
1299: l_debug number := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
1300: BEGIN
1301: x_return_status := fnd_api.g_ret_sts_success;
1302: -- For each transaction returned by the cursor update the Child Records and delete the Parent.
1303: FOR v_rec IN c_get_bulk_txn(p_organization_id, p_transfer_lpn_id) LOOP
1304: -- Updating the Child Records.
1305: UPDATE mtl_material_transactions_temp
1315: WHERE transaction_temp_id = v_rec.transaction_temp_id;
1316: END LOOP;
1317: EXCEPTION
1318: WHEN OTHERS THEN
1319: x_return_status := fnd_api.g_ret_sts_unexp_error;
1320: IF (l_debug = 1) THEN
1321: mydebug('Unknown Exception occurred: ' || SQLERRM,'HANDLE_BULK_PICKING');
1322: END IF;
1323: END handle_bulk_picking;
1338: -- x_tasks => Ref Cursor containing the Tasks
1339: -- x_drop_type => Either MFG or OTHERS depending on whether LPN has Mfg Picks or not
1340: -- x_multiple_drops => Whether or not there are multiple drops on LPN
1341: -- x_drop_lpn_option => Drop LPN Option
1342: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
1343: -- FND_API.G_RET_STS_ERROR or "W" (warning)
1344:
1345: PROCEDURE get_tasks(
1346: x_tasks OUT NOCOPY t_genref
1339: -- x_drop_type => Either MFG or OTHERS depending on whether LPN has Mfg Picks or not
1340: -- x_multiple_drops => Whether or not there are multiple drops on LPN
1341: -- x_drop_lpn_option => Drop LPN Option
1342: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
1343: -- FND_API.G_RET_STS_ERROR or "W" (warning)
1344:
1345: PROCEDURE get_tasks(
1346: x_tasks OUT NOCOPY t_genref
1347: , x_drop_type OUT NOCOPY VARCHAR2
1410:
1411: IF x_drop_type = 'MFG' THEN
1412: -- Handling the case of Bulk Picked Lines in the LPN.
1413: handle_bulk_picking(x_return_status, p_organization_id, p_transfer_lpn_id);
1414: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1415: RAISE fnd_api.g_exc_unexpected_error;
1416: END IF;
1417:
1418: -- Determine if the LPN has multiple drop destinations
1411: IF x_drop_type = 'MFG' THEN
1412: -- Handling the case of Bulk Picked Lines in the LPN.
1413: handle_bulk_picking(x_return_status, p_organization_id, p_transfer_lpn_id);
1414: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1415: RAISE fnd_api.g_exc_unexpected_error;
1416: END IF;
1417:
1418: -- Determine if the LPN has multiple drop destinations
1419: OPEN c_get_mfg_drop_details(p_organization_id, p_transfer_lpn_id);
1600: ORDER BY subinventory_code, loc, priority, taskid;
1601: END IF; -- x_drop_type = 'MFG'
1602:
1603: EXCEPTION
1604: WHEN fnd_api.g_exc_unexpected_error THEN
1605: x_return_status := fnd_api.g_ret_sts_unexp_error;
1606: WHEN OTHERS THEN
1607: x_return_status := fnd_api.g_ret_sts_error;
1608: IF (l_debug = 1) THEN
1601: END IF; -- x_drop_type = 'MFG'
1602:
1603: EXCEPTION
1604: WHEN fnd_api.g_exc_unexpected_error THEN
1605: x_return_status := fnd_api.g_ret_sts_unexp_error;
1606: WHEN OTHERS THEN
1607: x_return_status := fnd_api.g_ret_sts_error;
1608: IF (l_debug = 1) THEN
1609: mydebug('Unknown exception occurred: ' || SQLERRM, l_api_name);
1603: EXCEPTION
1604: WHEN fnd_api.g_exc_unexpected_error THEN
1605: x_return_status := fnd_api.g_ret_sts_unexp_error;
1606: WHEN OTHERS THEN
1607: x_return_status := fnd_api.g_ret_sts_error;
1608: IF (l_debug = 1) THEN
1609: mydebug('Unknown exception occurred: ' || SQLERRM, l_api_name);
1610: END IF;
1611: END get_tasks;
1621: -- Input Parameters
1622: -- p_txn_temp_id_list => Comma delimited Transaction Temp ID List
1623: --
1624: -- Output Parameters
1625: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
1626: -- FND_API.G_RET_STS_ERROR
1627: -- x_lot_num_list => Comma delimited Lot Number List
1628: -- x_lot_qty_list => Comma delimited Lot Qty List
1629: -- x_display_serials => Whether Serials are associated with the Txn Temp ID list.
1622: -- p_txn_temp_id_list => Comma delimited Transaction Temp ID List
1623: --
1624: -- Output Parameters
1625: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
1626: -- FND_API.G_RET_STS_ERROR
1627: -- x_lot_num_list => Comma delimited Lot Number List
1628: -- x_lot_qty_list => Comma delimited Lot Qty List
1629: -- x_display_serials => Whether Serials are associated with the Txn Temp ID list.
1630:
1655: SELECT DECODE(COUNT(serial_transaction_temp_id), 0, 'N', 'Y')
1656: FROM mtl_transaction_lots_temp
1657: WHERE transaction_temp_id = p_txn_temp_id;
1658: BEGIN
1659: x_return_status := fnd_api.g_ret_sts_success;
1660:
1661: IF (g_trace_on = 1) THEN
1662: mydebug('Txn Temp ID List = '||p_txn_temp_id_list, l_api_name);
1663: END IF;
1714: ELSE
1715: IF (g_trace_on = 1) THEN
1716: mydebug('No Lots retrieved for the current Query Criteria', l_api_name);
1717: END IF;
1718: x_return_status := fnd_api.g_ret_sts_error;
1719: RETURN;
1720: END IF;
1721:
1722: -- Determine whether the Item is Serial Controlled or not.
1733: END IF;
1734: IF (g_trace_on = 1) THEN
1735: mydebug('Exception while getting the Lots: ' || SQLERRM, l_api_name);
1736: END IF;
1737: x_return_status := fnd_api.g_ret_sts_error;
1738: END get_lot_number_info;
1739:
1740: --
1741: -- Name
1750: -- p_txn_temp_id_list => Comma delimited Transaction Temp ID List
1751: -- p_lot_number => Lot Number
1752: --
1753: -- Output Parameters
1754: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
1755: -- FND_API.G_RET_STS_ERROR
1756: -- x_serial_list => Comma delimited Serial List.
1757:
1758: PROCEDURE get_serial_numbers(
1751: -- p_lot_number => Lot Number
1752: --
1753: -- Output Parameters
1754: -- x_return_status => FND_API.G_RET_STS_SUCESSS or
1755: -- FND_API.G_RET_STS_ERROR
1756: -- x_serial_list => Comma delimited Serial List.
1757:
1758: PROCEDURE get_serial_numbers(
1759: x_return_status OUT NOCOPY VARCHAR2
1780: WHERE p_lot_num IS NULL
1781: AND msnt.transaction_temp_id = p_txn_temp_id
1782: ORDER BY 1;
1783: BEGIN
1784: x_return_status := fnd_api.g_ret_sts_success;
1785:
1786: IF (g_trace_on = 1) THEN
1787: mydebug('Txn Temp ID List = '||p_txn_temp_id_list||' : Lot Number = '||p_lot_number, l_api_name);
1788: END IF;
1819: IF x_serial_list IS NULL THEN
1820: IF (g_trace_on = 1) THEN
1821: mydebug('No Serials retrieved for the given Query Criteria',l_api_name);
1822: END IF;
1823: x_return_status := fnd_api.g_ret_sts_error;
1824: END IF;
1825: EXCEPTION
1826: WHEN OTHERS THEN
1827: IF c_serial_list%ISOPEN THEN
1829: END IF;
1830: IF (g_trace_on = 1) THEN
1831: mydebug('Exception on getting the Serials : '|| SQLERRM, l_api_name);
1832: END IF;
1833: x_return_status := fnd_api.g_ret_sts_error;
1834: END get_serial_numbers;
1835:
1836: PROCEDURE manual_pick
1837: (p_employee_id IN NUMBER,
1903: END IF;
1904: l_equipment_serial := NULL;
1905: END IF;
1906:
1907: x_return_status := fnd_api.g_ret_sts_success;
1908:
1909: l_mmtt_rowcnt := 0;
1910: l_wdt_rowcnt := 0;
1911:
1946:
1947: l_mmtt_rowcnt := 0;
1948: fnd_message.set_name('WMS', 'WMS_INVALID_PICKID');
1949: fnd_msg_pub.ADD;
1950: RAISE fnd_api.g_exc_error;
1951: END;
1952:
1953: IF (l_debug = 1) THEN
1954: mydebug('MANUAL_PICK: MMTT record is available', 'MANUAL_PICK');
1976: END IF;
1977:
1978: fnd_message.set_name('WMS', 'WMS_TASK_UNAVAIL');
1979: fnd_msg_pub.ADD;
1980: RAISE fnd_api.g_exc_error;
1981: ELSE
1982: BEGIN --bug#5157839.Start fix
1983: SELECT wdt.status INTO l_status FROM wms_dispatched_tasks wdt
1984: WHERE wdt.transaction_temp_id = p_transaction_temp_id;
1988: mydebug('MANUAL_PICK: The WDT has status other than 1 or 2 ', 'MANUAL_PICK');
1989: END IF;
1990: fnd_message.set_name('WMS', 'WMS_INVALID_PICKID');
1991: fnd_msg_pub.ADD;
1992: RAISE fnd_api.g_exc_error;
1993: END IF;
1994: EXCEPTION
1995: WHEN NO_DATA_FOUND THEN
1996: IF (l_debug = 1) THEN
2068: IF (l_debug = 1) THEN
2069: mydebug('MANUAL_PICK: No Person Resource ID found', 'MANUAL_PICK');
2070: END IF;
2071:
2072: RAISE fnd_api.g_exc_error;
2073: END;
2074:
2075: IF p_equipment_id IS NOT NULL AND
2076: p_equipment_id <> -999 THEN
2087: IF (l_debug = 1) THEN
2088: mydebug('MANUAL_PICK: No Machine Resource ID found', 'MANUAL_PICK');
2089: END IF;
2090:
2091: RAISE fnd_api.g_exc_error;
2092: END;
2093: END IF;
2094:
2095: --Bug6009436.Begin
2159: WHEN OTHERS THEN
2160: IF (l_debug = 1) THEN
2161: mydebug('manual_pick:EXCEPTION!!! while updating MSNT', 'MANUAL_PICK');
2162: END IF;
2163: raise fnd_api.g_exc_error;
2164: END ;
2165: END IF;
2166: --Bug6009436.End
2167:
2215: END IF;
2216: END IF;
2217: END IF; --mmtt rowcount if
2218:
2219: x_return_status := fnd_api.g_ret_sts_success;
2220: EXCEPTION
2221: WHEN fnd_api.g_exc_error THEN
2222: x_return_status := fnd_api.g_ret_sts_error;
2223: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2217: END IF; --mmtt rowcount if
2218:
2219: x_return_status := fnd_api.g_ret_sts_success;
2220: EXCEPTION
2221: WHEN fnd_api.g_exc_error THEN
2222: x_return_status := fnd_api.g_ret_sts_error;
2223: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2224: WHEN OTHERS THEN
2225: x_return_status := fnd_api.g_ret_sts_unexp_error;
2218:
2219: x_return_status := fnd_api.g_ret_sts_success;
2220: EXCEPTION
2221: WHEN fnd_api.g_exc_error THEN
2222: x_return_status := fnd_api.g_ret_sts_error;
2223: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2224: WHEN OTHERS THEN
2225: x_return_status := fnd_api.g_ret_sts_unexp_error;
2226: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2221: WHEN fnd_api.g_exc_error THEN
2222: x_return_status := fnd_api.g_ret_sts_error;
2223: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2224: WHEN OTHERS THEN
2225: x_return_status := fnd_api.g_ret_sts_unexp_error;
2226: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2227: END manual_pick;
2228:
2229:
2501:
2502: -- Establish a savepoint
2503: SAVEPOINT next_task_sp;
2504:
2505: x_return_status := fnd_api.g_ret_sts_success;
2506:
2507: IF (l_debug = 1) THEN
2508: mydebug('Need to check if the period is open', l_api_name);
2509: END IF;
2526: END IF;
2527:
2528: fnd_message.set_name('INV', 'INV_NO_OPEN_PERIOD');
2529: fnd_msg_pub.ADD;
2530: RAISE fnd_api.g_exc_unexpected_error;
2531: END IF;
2532:
2533: -- Ignore devices if multiple device signon and task methods not in
2534: -- discrete/wave
2821: mydebug('Return Status from get_next_task_in_group: ' || x_return_status,l_api_name);
2822: END IF;
2823:
2824: IF x_return_status = 'U' THEN
2825: RAISE fnd_api.g_exc_unexpected_error;
2826: ELSIF x_return_status = 'E' THEN
2827: RAISE fnd_api.g_exc_error;
2828: END IF;
2829:
2823:
2824: IF x_return_status = 'U' THEN
2825: RAISE fnd_api.g_exc_unexpected_error;
2826: ELSIF x_return_status = 'E' THEN
2827: RAISE fnd_api.g_exc_error;
2828: END IF;
2829:
2830: IF l_next_transaction_temp_id IS NOT NULL THEN
2831: x_num_of_tasks := 1;
2852: mydebug('Return Status from manual_pick: ' || x_return_status,l_api_name);
2853: END IF;
2854:
2855: IF x_return_status = 'U' THEN
2856: RAISE fnd_api.g_exc_unexpected_error;
2857: ELSIF x_return_status = 'E' THEN
2858: RAISE fnd_api.g_exc_error;
2859: END IF;
2860:
2854:
2855: IF x_return_status = 'U' THEN
2856: RAISE fnd_api.g_exc_unexpected_error;
2857: ELSIF x_return_status = 'E' THEN
2858: RAISE fnd_api.g_exc_error;
2859: END IF;
2860:
2861: l_next_transaction_temp_id := x_grouping_document_number;
2862: x_num_of_tasks := 1;
2965: SET device_invoked = 'Y',
2966: device_request_id = l_request_id
2967: WHERE transaction_temp_id = l_transaction_temp_id;
2968:
2969: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2970: IF (l_debug = 1) THEN
2971: mydebug('Failed to invoke device ' || TO_CHAR(l_loop_device_id), l_api_name);
2972: END IF;
2973: END IF;
3085: END IF;
3086:
3087: fnd_message.set_name('WMS', 'WMS_TASK_LOCKED');
3088: fnd_msg_pub.ADD;
3089: RAISE fnd_api.g_exc_unexpected_error;
3090: END IF;
3091: --Bug#5599049 .Fix ends.
3092:
3093: IF l_group_sequence_number = 1 AND
3123: x_msg_count => x_msg_count,
3124: x_msg_data => x_msg_data,
3125: p_request_id => l_request_id);
3126:
3127: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3128: IF (l_debug = 1) THEN
3129: mydebug('Failed to invoke device ' || TO_CHAR(l_loop_device_id), l_api_name);
3130: END IF;
3131: END IF;
3283: mydebug('Return Status from get_next_task_in_group: ' || x_return_status,l_api_name);
3284: END IF;
3285:
3286: IF x_return_status = 'U' THEN
3287: RAISE fnd_api.g_exc_unexpected_error;
3288: ELSIF x_return_status = 'E' THEN
3289: RAISE fnd_api.g_exc_error;
3290: END IF;
3291:
3285:
3286: IF x_return_status = 'U' THEN
3287: RAISE fnd_api.g_exc_unexpected_error;
3288: ELSIF x_return_status = 'E' THEN
3289: RAISE fnd_api.g_exc_error;
3290: END IF;
3291:
3292: IF l_next_transaction_temp_id IS NOT NULL THEN
3293: x_num_of_tasks := 1;
3300:
3301: ELSIF x_return_status = 'U' THEN
3302: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
3303: fnd_msg_pub.ADD;
3304: RAISE fnd_api.g_exc_unexpected_error;
3305: ELSIF x_return_status = 'E' THEN
3306: IF (l_debug = 1) THEN
3307: mydebug('Setting status as S', l_api_name);
3308: END IF;
3305: ELSIF x_return_status = 'E' THEN
3306: IF (l_debug = 1) THEN
3307: mydebug('Setting status as S', l_api_name);
3308: END IF;
3309: x_return_status := fnd_api.g_ret_sts_success;
3310: END IF;
3311:
3312: -- If there are no devices then get out of the loop
3313: IF l_device_id IS NULL THEN
3356:
3357: IF x_return_status <> 'S' THEN
3358: fnd_message.set_name('WMS', 'WMS_TD_TDENG_ERROR');
3359: fnd_msg_pub.ADD;
3360: RAISE fnd_api.g_exc_unexpected_error;
3361: END IF;
3362:
3363: l_request_id := NULL;
3364: -- viks For start over button pressed l_count >0 for multiple device
3389:
3390: -- always dispatch the task whether invoking device successfully or not
3391: -- So update the table always
3392:
3393: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3394: IF (l_debug = 1) THEN
3395: mydebug('Failed to invoke device ' || TO_CHAR(l_loop_device_id), l_api_name);
3396: END IF;
3397: END IF;
3437: END IF;
3438:
3439: inv_mobile_helper_functions.get_stacked_messages(x_message => x_msg_data);
3440:
3441: x_return_status := fnd_api.g_ret_sts_success;
3442:
3443: IF x_return_status = 'S' AND l_return_status = 'W' THEN -- Bug 4507435
3444: mydebug('Good One','');
3445: x_return_status := 'W';
3446: END IF;
3447:
3448:
3449: EXCEPTION
3450: WHEN fnd_api.g_exc_error THEN
3451: IF (l_debug = 1) THEN
3452: mydebug('Error', l_api_name);
3453: END IF;
3454: x_return_status := 'E';
3479: ,x_msg_data OUT NOCOPY VARCHAR2
3480: )
3481: IS
3482: qty_tbl wms_Task_mgmt_pub.TASK_QTY_TBL_TYPE;
3483: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
3484: l_resultant_task_details wms_Task_mgmt_pub.TASK_DETAIL_TBL_TYPE;
3485: l_resultant_tasks wms_Task_mgmt_pub.TASK_TAB_TYPE;
3486: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
3487:
3499:
3500: wms_picking_pkg.split_task(
3501: p_source_transaction_number => p_transaction_temp_id
3502: , p_split_quantities => qty_tbl
3503: , p_commit => FND_API.G_FALSE
3504: , x_resultant_tasks => l_resultant_tasks
3505: , x_resultant_task_details => l_resultant_task_details
3506: , x_return_status => l_return_status
3507: , x_msg_count => x_msg_count
3517: update mtl_material_transactions_temp
3518: set transfer_lpn_id = p_lpn_id
3519: where transaction_temp_id = l_resultant_tasks(1).task_id;
3520:
3521: x_return_status := fnd_api.g_ret_sts_success;
3522: ELSE
3523: l_transaction_temp_id := -9999;
3524: x_return_status := 'E';
3525: END IF;
3536: END split_mmtt_lpn;
3537:
3538: PROCEDURE split_task( p_source_transaction_number IN NUMBER DEFAULT NULL ,
3539: p_split_quantities IN wms_Task_mgmt_pub.TASK_QTY_TBL_TYPE ,
3540: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE ,
3541: x_resultant_tasks OUT NOCOPY WMS_TASK_MGMT_PUB.task_tab_type ,
3542: x_resultant_task_details OUT NOCOPY wms_Task_mgmt_pub.TASK_DETAIL_TBL_TYPE ,
3543: x_return_status OUT NOCOPY VARCHAR2 ,
3544: x_msg_count OUT NOCOPY NUMBER ,
3851: ELSE
3852: mydebug( 'Table x_resultant_tasks is empty', 'split_task');
3853: END IF;
3854: END IF;
3855: IF p_commit = FND_API.G_TRUE THEN
3856: IF g_debug = 1 THEN
3857: mydebug( ' p_commit is TRUE, so COMMITING the transactions.', 'split_task');
3858: END IF;
3859: COMMIT;