[Home] [Help]
62: ( x_return_status OUT NOCOPY VARCHAR2
63: ) IS
64: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
65: BEGIN
66: x_return_status := fnd_api.g_ret_sts_success;
67:
68: g_current_drop_lpn.current_drop_list.DELETE;
69: g_current_drop_lpn.temp_id_group_ref.DELETE;
70:
77: g_current_drop_lpn.drop_lpn_option := 1;
78:
79: EXCEPTION
80: WHEN OTHERS THEN
81: x_return_status := fnd_api.g_ret_sts_unexp_error;
82:
83: IF l_debug = 1 THEN
84: print_debug (sqlerrm, 'clear_lpn_cache');
85: END IF;
125: l_wms_task_type NUMBER;
126:
127: BEGIN
128:
129: x_return_status := fnd_api.g_ret_sts_success;
130:
131: IF l_debug = 1 THEN
132: print_debug
133: ( 'Entered with parameters: ' || g_newline ||
150: , l_api_name
151: );
152: END IF;
153: CLOSE c_txn_info;
154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155: ELSE
156: IF l_debug = 1 THEN
157: print_debug
158: ( 'l_mo_line_id: ' || to_char(l_mo_line_id) ||
213: || g_newline || 'l_mo_line_stat: ' || to_char(l_mo_line_stat)
214: , l_api_name
215: );
216: END IF;
217: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
218: ELSE
219: IF l_debug = 1 THEN
220: print_debug
221: ( 'Drop type: ' || x_drop_type
225: END IF;
226:
227: EXCEPTION
228: WHEN OTHERS THEN
229: x_return_status := fnd_api.g_ret_sts_unexp_error;
230:
231: IF l_debug = 1 THEN
232: print_debug ('Other error: ' || sqlerrm, l_api_name);
233: END IF;
260: AND wdd.organization_id = mmtt.organization_id
261: AND mmtt.transaction_temp_id = p_tmp_id;
262:
263: BEGIN
264: x_return_status := fnd_api.g_ret_sts_success;
265:
266: IF l_debug = 1 THEN
267: print_debug
268: ( 'Entered with parameters: ' || g_newline ||
303: END IF ;
304:
305: EXCEPTION
306: WHEN OTHERS THEN
307: x_return_status := fnd_api.g_ret_sts_unexp_error;
308:
309: IF c_get_deliv_id%ISOPEN THEN
310: CLOSE c_get_deliv_id;
311: END IF;
335: l_first_temp_id NUMBER;
336: l_last_temp_id NUMBER;
337:
338: BEGIN
339: x_return_status := fnd_api.g_ret_sts_success;
340:
341: IF l_debug = 1 THEN
342: print_debug
343: ( 'Entered with parameters: ' || g_newline ||
376: END IF;
377:
378: EXCEPTION
379: WHEN OTHERS THEN
380: x_return_status := fnd_api.g_ret_sts_unexp_error;
381:
382: IF l_debug = 1 THEN
383: print_debug (sqlerrm, l_api_name);
384: END IF;
400: l_api_return_status VARCHAR2(1);
401: l_lock_req_stat NUMBER;
402:
403: BEGIN
404: x_return_status := fnd_api.g_ret_sts_success;
405:
406: IF l_debug = 1 THEN
407: print_debug
408: ( 'Entered with parameters: ' || g_newline ||
411: , l_api_name
412: );
413: END IF;
414:
415: /* l_api_return_status := fnd_api.g_ret_sts_success;
416:
417: gen_lock_handle
418: ( x_lock_handle => l_lock_handle
419: , x_return_status => l_api_return_status
420: , p_organization_id => p_org_id
421: , p_transfer_lpn_id => p_xfer_lpn_id
422: );
423:
424: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
425: IF l_debug = 1 THEN
426: print_debug
427: ( 'Error status from gen_lock_handle: ' || l_api_return_status
428: , l_api_name
427: ( 'Error status from gen_lock_handle: ' || l_api_return_status
428: , l_api_name
429: );
430: END IF;
431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
432: END IF;
433:
434: l_lock_req_stat := dbms_lock.request
435: ( lockhandle => l_lock_handle
447: to_char(l_lock_req_stat)
448: , l_api_name
449: );
450: END IF;
451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
452: END IF;
453: */
454: EXCEPTION
455: WHEN OTHERS THEN
452: END IF;
453: */
454: EXCEPTION
455: WHEN OTHERS THEN
456: x_return_status := fnd_api.g_ret_sts_unexp_error;
457:
458: IF l_debug = 1 THEN
459: print_debug (sqlerrm, l_api_name);
460: END IF;
493: FROM wms_dispatched_tasks wdt
494: WHERE wdt.transaction_temp_id = p_temp_id;
495:
496: BEGIN
497: x_return_status := fnd_api.g_ret_sts_success;
498:
499: IF l_debug = 1 THEN
500: print_debug
501: ( 'Entered with temp ID: ' || to_char(p_txn_temp_id)
505:
506: --
507: -- Derive the drop type
508: --
509: l_api_return_status := fnd_api.g_ret_sts_success;
510: get_drop_type
511: ( x_drop_type => x_drop_type
512: , x_return_status => l_api_return_status
513: , p_temp_id => p_txn_temp_id
512: , x_return_status => l_api_return_status
513: , p_temp_id => p_txn_temp_id
514: );
515:
516: IF l_api_return_status <> fnd_api.g_ret_sts_success
517: THEN
518: IF l_debug = 1 THEN
519: print_debug
520: ( 'Error from get_drop_type'
520: ( 'Error from get_drop_type'
521: , l_api_name
522: );
523: END IF;
524: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
525: ELSE
526: IF l_debug = 1 THEN
527: print_debug
528: ( 'Drop type: ' || x_drop_type
559: IF l_debug = 1 THEN print_debug ( 'Outside ..Stg xfer or stg mv ' || x_drop_type , l_api_name); END IF;
560: IF x_drop_type = 'STG_XFER' OR x_drop_type = 'CONS_STG_MV' THEN
561: -- mrana : added staging move too
562: IF l_debug = 1 THEN print_debug ( 'Stg xfer or stg mv ' , l_api_name); END IF;
563: l_api_return_status := fnd_api.g_ret_sts_success;
564: get_delivery_id
565: ( x_delivery_id => x_delivery_id
566: , x_return_status => l_api_return_status
567: , p_drop_type => x_drop_type
567: , p_drop_type => x_drop_type
568: , p_temp_id => p_txn_temp_id
569: );
570:
571: IF l_api_return_status <> fnd_api.g_ret_sts_success
572: THEN
573: IF l_debug = 1 THEN
574: print_debug
575: ( 'Error from get_delivery_id'
575: ( 'Error from get_delivery_id'
576: , l_api_name
577: );
578: END IF;
579: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
580: ELSE
581: IF l_debug = 1 THEN
582: print_debug
583: ( 'Delivery ID: ' || to_char(x_delivery_id)
614: END IF;
615:
616: EXCEPTION
617: WHEN OTHERS THEN
618: x_return_status := fnd_api.g_ret_sts_unexp_error;
619:
620: IF l_debug = 1 THEN
621: print_debug ('Other error: ' || sqlerrm, l_api_name);
622: END IF;
663:
664: c_parent_task_rec c_parent_task_details%ROWTYPE;
665:
666: BEGIN
667: x_return_status := fnd_api.g_ret_sts_success;
668:
669: IF l_debug = 1 THEN
670: print_debug
671: ( 'Entered with parameters: ' || g_newline ||
753: EXCEPTION
754: WHEN OTHERS THEN
755: ROLLBACK TO insert_task_sp;
756:
757: x_return_status := fnd_api.g_ret_sts_unexp_error;
758:
759: IF l_debug = 1 THEN
760: print_debug (sqlerrm, l_api_name);
761: END IF;
1002: mmtt.parent_line_id IS NULL
1003: );
1004:
1005: BEGIN
1006: x_return_status := fnd_api.g_ret_sts_success;
1007:
1008: fnd_msg_pub.initialize;
1009:
1010: IF l_debug = 1 THEN
1023:
1024: --
1025: -- Attempt to get a lock on this LPN
1026: --
1027: l_api_return_status := fnd_api.g_ret_sts_success;
1028: lock_lpn
1029: ( x_return_status => l_api_return_status
1030: , p_org_id => p_organization_id
1031: , p_xfer_lpn_id => p_transfer_lpn_id
1040: );
1041: END IF;
1042: fnd_message.set_name('WMS', 'WMS_DROP_LPN_LOCKED');
1043: fnd_msg_pub.ADD;
1044: RAISE FND_API.G_EXC_ERROR;
1045: ELSIF l_api_return_status <> fnd_api.g_ret_sts_success
1046: THEN
1047: IF l_debug = 1 THEN
1048: print_debug
1041: END IF;
1042: fnd_message.set_name('WMS', 'WMS_DROP_LPN_LOCKED');
1043: fnd_msg_pub.ADD;
1044: RAISE FND_API.G_EXC_ERROR;
1045: ELSIF l_api_return_status <> fnd_api.g_ret_sts_success
1046: THEN
1047: IF l_debug = 1 THEN
1048: print_debug
1049: ( 'Error from lock_lpn'
1049: ( 'Error from lock_lpn'
1050: , l_api_name
1051: );
1052: END IF;
1053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1054: END IF;
1055:
1056: --
1057: -- Verify this LPNs has associated transactions
1068: CLOSE c_check_txns;
1069:
1070: fnd_message.set_name('WMS', 'WMS_DROP_LPN_NO_MTL');
1071: fnd_msg_pub.ADD;
1072: RAISE FND_API.G_EXC_ERROR;
1073: END IF;
1074: CLOSE c_check_txns;
1075:
1076: l_progress := 20;
1078: --
1079: -- Bug 4884284: insert WDT records for child MMTT records
1080: -- prior to calling ATF locator suggestion
1081: --
1082: l_api_return_status := fnd_api.g_ret_sts_success;
1083: insert_wdt
1084: ( x_return_status => l_api_return_status
1085: , p_organization_id => p_organization_id
1086: , p_transfer_lpn_id => p_transfer_lpn_id
1085: , p_organization_id => p_organization_id
1086: , p_transfer_lpn_id => p_transfer_lpn_id
1087: );
1088:
1089: IF l_api_return_status <> fnd_api.g_ret_sts_success
1090: THEN
1091: IF l_debug = 1 THEN
1092: print_debug
1093: ( 'Error from insert_wdt'
1093: ( 'Error from insert_wdt'
1094: , l_api_name
1095: );
1096: END IF;
1097: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1098: END IF;
1099:
1100: --
1101: -- This API just updates transfer_locator of each MMTT record for
1104: --
1105: -- This API needs to be called even if the LPN is cached since
1106: -- the updates to MMTT would be lost due to a rollback.
1107: --
1108: l_api_return_status := fnd_api.g_ret_sts_success;
1109: wms_op_runtime_pub_apis.update_drop_locator_for_task
1110: ( x_return_status => l_api_return_status
1111: , x_message => l_message
1112: , x_drop_lpn_option => l_drop_lpn_option
1122: , l_api_name
1123: );
1124: END IF;
1125:
1126: IF l_api_return_status NOT IN (fnd_api.g_ret_sts_success,'W') THEN
1127: IF (l_debug = 1) THEN
1128: print_debug('Error status from update_drop_locator_for_task: ' || l_api_return_status
1129: , l_api_name);
1130: END IF;
1128: print_debug('Error status from update_drop_locator_for_task: ' || l_api_return_status
1129: , l_api_name);
1130: END IF;
1131:
1132: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1133: RAISE fnd_api.g_exc_error;
1134: ELSE
1135: RAISE fnd_api.g_exc_unexpected_error;
1136: END IF;
1129: , l_api_name);
1130: END IF;
1131:
1132: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1133: RAISE fnd_api.g_exc_error;
1134: ELSE
1135: RAISE fnd_api.g_exc_unexpected_error;
1136: END IF;
1137: ELSE
1131:
1132: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1133: RAISE fnd_api.g_exc_error;
1134: ELSE
1135: RAISE fnd_api.g_exc_unexpected_error;
1136: END IF;
1137: ELSE
1138: IF (l_debug = 1) THEN
1139: print_debug('update_drop_locator_for_task returned success', l_api_name);
1176: END IF;
1177:
1178: fnd_message.set_name('WMS', 'WMS_DROP_LPN_NO_MTL');
1179: fnd_msg_pub.ADD;
1180: RAISE FND_API.G_EXC_ERROR;
1181: ELSE
1182: x_first_temp_id := l_txn_temp_id;
1183: x_txn_type_id := l_txn_type_id;
1184: END IF;
1182: x_first_temp_id := l_txn_temp_id;
1183: x_txn_type_id := l_txn_type_id;
1184: END IF;
1185:
1186: l_api_return_status := fnd_api.g_ret_sts_success;
1187: get_group_info
1188: ( x_drop_type => x_drop_type
1189: , x_bulk_pick => x_bulk_pick
1190: , x_delivery_id => x_delivery_id
1192: , x_return_status => l_api_return_status
1193: , p_txn_temp_id => l_txn_temp_id
1194: );
1195:
1196: IF l_api_return_status <> fnd_api.g_ret_sts_success
1197: THEN
1198: IF l_debug = 1 THEN
1199: print_debug
1200: ( 'Error from get_group_info'
1200: ( 'Error from get_group_info'
1201: , l_api_name
1202: );
1203: END IF;
1204: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1205: END IF;
1206:
1207: l_progress := 45;
1208:
1230: --
1231: -- LPN in cache is different from passed in LPN
1232: --
1233: IF l_debug = 1 THEN print_debug ( 'ELSE LPN info already cached ..clear_lpn_cache' , l_api_name); END IF;
1234: l_api_return_status := fnd_api.g_ret_sts_success;
1235: clear_lpn_cache(l_api_return_status);
1236:
1237: IF l_api_return_status <> fnd_api.g_ret_sts_success
1238: THEN
1233: IF l_debug = 1 THEN print_debug ( 'ELSE LPN info already cached ..clear_lpn_cache' , l_api_name); END IF;
1234: l_api_return_status := fnd_api.g_ret_sts_success;
1235: clear_lpn_cache(l_api_return_status);
1236:
1237: IF l_api_return_status <> fnd_api.g_ret_sts_success
1238: THEN
1239: IF l_debug = 1 THEN
1240: print_debug ('Error from clear_lpn_cache', l_api_name);
1241: END IF;
1238: THEN
1239: IF l_debug = 1 THEN
1240: print_debug ('Error from clear_lpn_cache', l_api_name);
1241: END IF;
1242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1243: END IF;
1244: END IF;
1245:
1246: g_current_drop_lpn.lpn_id := p_transfer_lpn_id;
1283:
1284: IF l_drop_count > 1 THEN
1285: g_current_drop_lpn.multiple_drops := 'TRUE';
1286: x_multiple_drops := 'TRUE';
1287: x_return_status := fnd_api.g_ret_sts_success;
1288: RETURN;
1289: END IF;
1290:
1291: l_progress := 70;
1303:
1304: IF l_drop_count > 1 THEN
1305: g_current_drop_lpn.multiple_drops := 'TRUE';
1306: x_multiple_drops := 'TRUE';
1307: x_return_status := fnd_api.g_ret_sts_success;
1308: RETURN;
1309: END IF;
1310:
1311: l_progress := 80;
1378: END IF;
1379: ELSE
1380: IF l_debug = 1 THEN
1381: print_debug ('Unknown transaction', l_api_name);
1382: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1383: END IF;
1384: END IF;
1385:
1386: l_progress := 100;
1387:
1388: IF l_drop_count > 1 THEN
1389: g_current_drop_lpn.multiple_drops := 'TRUE';
1390: x_multiple_drops := 'TRUE';
1391: x_return_status := fnd_api.g_ret_sts_success;
1392: ELSIF l_drop_count = 1 THEN
1393: g_current_drop_lpn.multiple_drops := 'FALSE';
1394: x_multiple_drops := 'FALSE';
1395: ELSIF l_drop_count = 0 THEN
1398: ( 'LPN has leftover MMTT records that cannot be processed'
1399: , l_api_name
1400: );
1401: END IF;
1402: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1403: ELSE
1404: IF l_debug = 1 THEN
1405: print_debug
1406: ( 'Invalid drop count: ' || to_char(l_drop_count)
1406: ( 'Invalid drop count: ' || to_char(l_drop_count)
1407: , l_api_name
1408: );
1409: END IF;
1410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1411: END IF;
1412:
1413: EXCEPTION
1414: WHEN fnd_api.g_exc_error THEN
1410: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1411: END IF;
1412:
1413: EXCEPTION
1414: WHEN fnd_api.g_exc_error THEN
1415: ROLLBACK TO chk_if_d_sp;
1416:
1417: x_return_status := fnd_api.g_ret_sts_error;
1418:
1413: EXCEPTION
1414: WHEN fnd_api.g_exc_error THEN
1415: ROLLBACK TO chk_if_d_sp;
1416:
1417: x_return_status := fnd_api.g_ret_sts_error;
1418:
1419: fnd_msg_pub.count_and_get
1420: ( p_count => l_msg_count
1421: , p_data => l_msg_data
1418:
1419: fnd_msg_pub.count_and_get
1420: ( p_count => l_msg_count
1421: , p_data => l_msg_data
1422: , p_encoded => fnd_api.g_false
1423: );
1424:
1425: IF l_debug = 1 THEN
1426: print_debug (l_msg_data, l_api_name);
1429:
1430: WHEN OTHERS THEN
1431: ROLLBACK TO chk_if_d_sp;
1432:
1433: x_return_status := fnd_api.g_ret_sts_unexp_error;
1434:
1435: IF l_debug = 1 THEN
1436: print_debug ('Other error: ' || sqlerrm, l_api_name);
1437: print_debug ('l_progress = ' || to_char(l_progress), l_api_name);
1551: FROM mtl_serial_numbers_temp msnt
1552: WHERE msnt.transaction_temp_id = p_temp_id;
1553:
1554: BEGIN
1555: x_return_status := fnd_api.g_ret_sts_success;
1556:
1557: IF l_debug = 1 THEN
1558: print_debug
1559: ( 'Entered with parameters: ' || g_newline ||
1594: , l_api_name
1595: );
1596: END IF;
1597: CLOSE c_mmtt_info;
1598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1599: ELSE
1600: IF l_debug = 1 THEN
1601: print_debug
1602: ( 'Fetched temp ID: ' || to_char(l_transaction_temp_id) || g_newline ||
1784: ( 'Unexpected error inserting content LPN: ' || sqlerrm
1785: , l_api_name
1786: );
1787: END IF;
1788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1789: END;
1790: ELSIF p_drop_type = 'WIP_ISSUE'
1791: OR
1792: p_drop_type = 'WIP_SUB_XFER'
1872: ( 'Unexpected error updating record for WIP drop ' || sqlerrm
1873: , l_api_name
1874: );
1875: END IF;
1876: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1877: END;
1878: ELSIF NVL(l_lot_alloc,'N') = 'Y'
1879: THEN
1880: OPEN c_lot_details (l_transaction_temp_id);
1889: , l_api_name
1890: );
1891: END IF;
1892: CLOSE c_lot_details;
1893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1894: END IF;
1895:
1896: IF c_lot_details%ISOPEN
1897: THEN
2005: ( 'Unexpected error checking if lot exists: ' || sqlerrm
2006: , l_api_name
2007: );
2008: END IF;
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: END;
2011:
2012: IF NVL(l_serial_alloc,'N') = 'Y'
2013: THEN
2068: END IF;
2069: IF c_srl_lot_details%ISOPEN THEN
2070: CLOSE c_srl_lot_details;
2071: END IF;
2072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2073: END;
2074: END LOOP;
2075: END IF; -- end if serials allocated for lot item
2076: ELSIF NVL(l_serial_alloc,'N') = 'Y' THEN
2163: END IF;
2164: IF c_srl_numbers%ISOPEN THEN
2165: CLOSE c_srl_numbers;
2166: END IF;
2167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2168: END;
2169: END LOOP;
2170: ELSE
2171: --
2286: , l_api_name
2287: );
2288: END IF;
2289:
2290: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2291: END IF;
2292:
2293: END IF;
2294:
2422: 'vanilla/revision/serial (not allocated) exists: ' || sqlerrm
2423: , l_api_name
2424: );
2425: END IF;
2426: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2427: END;
2428: END IF;
2429:
2430: IF ii < jj THEN
2446: EXCEPTION
2447: WHEN OTHERS THEN
2448: ROLLBACK to group_drop_det_sp;
2449:
2450: x_return_status := fnd_api.g_ret_sts_unexp_error;
2451:
2452: IF l_debug = 1 THEN
2453: print_debug ('Other error: ' || sqlerrm, l_api_name);
2454: END IF;
2472:
2473: l_new_temp_id NUMBER;
2474:
2475: BEGIN
2476: x_return_status := fnd_api.g_ret_sts_success;
2477:
2478: IF l_debug = 1 THEN
2479: print_debug
2480: ( 'Entered with p_temp_id => ' || to_char(p_temp_id)
2954: EXCEPTION
2955: WHEN OTHERS THEN
2956: ROLLBACK to split_mmtt_sp;
2957:
2958: x_return_status := fnd_api.g_ret_sts_unexp_error;
2959:
2960: IF l_debug = 1 THEN
2961: print_debug ('Other error: ' || sqlerrm, l_api_name);
2962: END IF;
2981: l_group_match BOOLEAN;
2982: l_status_match BOOLEAN;
2983:
2984: BEGIN
2985: x_return_status := fnd_api.g_ret_sts_success;
2986:
2987: IF l_debug = 1 THEN
2988: print_debug
2989: ( 'Entered with parameters: ' || g_newline ||
3050: END LOOP;
3051:
3052: EXCEPTION
3053: WHEN OTHERS THEN
3054: x_return_status := fnd_api.g_ret_sts_unexp_error;
3055:
3056: IF l_debug = 1 THEN
3057: print_debug ('Other error: ' || sqlerrm, l_api_name);
3058: END IF;
3098:
3099: lot_dtl_rec c_get_lot_details%ROWTYPE;
3100:
3101: BEGIN
3102: x_return_status := fnd_api.g_ret_sts_success;
3103:
3104: SAVEPOINT split_lots_sp;
3105:
3106: l_api_return_status := fnd_api.g_ret_sts_success;
3102: x_return_status := fnd_api.g_ret_sts_success;
3103:
3104: SAVEPOINT split_lots_sp;
3105:
3106: l_api_return_status := fnd_api.g_ret_sts_success;
3107: get_temp_list
3108: ( x_temp_tbl => l_temp_tbl
3109: , x_return_status => l_api_return_status
3110: , p_group_num => NULL
3110: , p_group_num => NULL
3111: , p_status => NULL
3112: );
3113:
3114: IF l_api_return_status <> fnd_api.g_ret_sts_success
3115: THEN
3116: IF l_debug = 1 THEN
3117: print_debug ('Error from get_temp_list', l_api_name);
3118: END IF;
3115: THEN
3116: IF l_debug = 1 THEN
3117: print_debug ('Error from get_temp_list', l_api_name);
3118: END IF;
3119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3120: END IF;
3121:
3122: IF l_temp_tbl.COUNT > 0 THEN
3123: ii := l_temp_tbl.FIRST;
3173: END IF;
3174:
3175: WHILE (c_get_lot_details%FOUND)
3176: LOOP
3177: l_api_return_status := fnd_api.g_ret_sts_success;
3178: split_mmtt
3179: ( x_new_temp_id => l_transaction_temp_id
3180: , x_return_status => l_api_return_status
3181: , p_temp_id => l_orig_temp_id
3180: , x_return_status => l_api_return_status
3181: , p_temp_id => l_orig_temp_id
3182: );
3183:
3184: IF l_api_return_status <> fnd_api.g_ret_sts_success
3185: THEN
3186: IF l_debug = 1 THEN
3187: print_debug ('Error from split_mmtt', l_api_name);
3188: END IF;
3185: THEN
3186: IF l_debug = 1 THEN
3187: print_debug ('Error from split_mmtt', l_api_name);
3188: END IF;
3189: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3190: END IF;
3191:
3192: UPDATE mtl_material_transactions_temp
3193: SET transaction_quantity = transaction_quantity
3265: EXCEPTION
3266: WHEN OTHERS THEN
3267: ROLLBACK to split_lots_sp;
3268:
3269: x_return_status := fnd_api.g_ret_sts_unexp_error;
3270:
3271: IF c_get_lot_details%ISOPEN
3272: THEN
3273: CLOSE c_get_lot_details;
3293: -- p_organization_id - Org ID
3294: -- p_transfer_lpn_id - LPN being dropped
3295: --
3296: -- Output Parameters
3297: -- x_return_status - fnd_api.g_ret_sts_error
3298: -- - fnd_api.g_ret_sts_unexp_error
3299: --
3300:
3301: PROCEDURE fetch_next_drop
3294: -- p_transfer_lpn_id - LPN being dropped
3295: --
3296: -- Output Parameters
3297: -- x_return_status - fnd_api.g_ret_sts_error
3298: -- - fnd_api.g_ret_sts_unexp_error
3299: --
3300:
3301: PROCEDURE fetch_next_drop
3302: ( x_drop_type OUT NOCOPY VARCHAR2
3584: WHERE mmtt.transaction_temp_id = p_temp_id;
3585:
3586: BEGIN
3587:
3588: x_return_status := fnd_api.g_ret_sts_success;
3589:
3590: IF l_debug = 1 THEN
3591: print_debug
3592: ( 'Entered with parameters: ' || g_newline ||
3762: IF NOT g_current_drop_lpn.current_drop_list.COUNT > 0
3763: THEN
3764: fnd_message.set_name('WMS', 'WMS_DROP_LPN_NO_MTL');
3765: fnd_msg_pub.ADD;
3766: RAISE FND_API.G_EXC_ERROR;
3767: END IF;
3768:
3769: ELSE
3770: IF l_debug = 1 THEN
3775: END IF;
3776:
3777: fnd_message.set_name('WMS', 'WMS_DROP_LPN_NO_MTL');
3778: fnd_msg_pub.ADD;
3779: RAISE FND_API.G_EXC_ERROR;
3780: END IF; -- end if c_remaining_tasks%FOUND
3781:
3782: l_progress := 40;
3783:
3797: l_transaction_temp_id := g_current_drop_lpn.current_drop_list.FIRST;
3798:
3799: x_first_temp_id := l_transaction_temp_id;
3800:
3801: l_api_return_status := fnd_api.g_ret_sts_success;
3802: get_group_info
3803: ( x_drop_type => x_drop_type
3804: , x_bulk_pick => x_bulk_pick
3805: , x_delivery_id => x_delivery_id
3807: , x_return_status => l_api_return_status
3808: , p_txn_temp_id => l_transaction_temp_id
3809: );
3810:
3811: IF l_api_return_status <> fnd_api.g_ret_sts_success
3812: THEN
3813: IF l_debug = 1 THEN
3814: print_debug
3815: ( 'Error from get_group_info'
3815: ( 'Error from get_group_info'
3816: , l_api_name
3817: );
3818: END IF;
3819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3820: END IF;
3821:
3822: --
3823: -- Don't deconsolidate replenishments
3830: -- This is required so that we do not have more than
3831: -- one lot/revision per temp ID, and one temp ID
3832: -- will only belong to one group in the drop page.
3833: --
3834: l_api_return_status := fnd_api.g_ret_sts_success;
3835: split_lots(x_return_status => l_api_return_status);
3836:
3837: IF l_api_return_status <> fnd_api.g_ret_sts_success
3838: THEN
3833: --
3834: l_api_return_status := fnd_api.g_ret_sts_success;
3835: split_lots(x_return_status => l_api_return_status);
3836:
3837: IF l_api_return_status <> fnd_api.g_ret_sts_success
3838: THEN
3839: IF l_debug = 1 THEN
3840: print_debug
3841: ( 'Error from split_lots'
3841: ( 'Error from split_lots'
3842: , l_api_name
3843: );
3844: END IF;
3845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3846: END IF;
3847:
3848: l_api_return_status := fnd_api.g_ret_sts_success;
3849: group_drop_details(x_drop_type, l_api_return_status);
3844: END IF;
3845: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3846: END IF;
3847:
3848: l_api_return_status := fnd_api.g_ret_sts_success;
3849: group_drop_details(x_drop_type, l_api_return_status);
3850:
3851: IF l_api_return_status <> fnd_api.g_ret_sts_success
3852: THEN
3847:
3848: l_api_return_status := fnd_api.g_ret_sts_success;
3849: group_drop_details(x_drop_type, l_api_return_status);
3850:
3851: IF l_api_return_status <> fnd_api.g_ret_sts_success
3852: THEN
3853: IF l_debug = 1 THEN
3854: print_debug
3855: ( 'Error from group_drop_details'
3855: ( 'Error from group_drop_details'
3856: , l_api_name
3857: );
3858: END IF;
3859: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3860: END IF;
3861:
3862: BEGIN
3863: SELECT count(*)
3908: || to_char(l_count)
3909: , l_api_name
3910: );
3911: END IF;
3912: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3913: END IF;
3914: END IF;
3915:
3916: EXCEPTION
3913: END IF;
3914: END IF;
3915:
3916: EXCEPTION
3917: WHEN fnd_api.g_exc_error THEN
3918: x_return_status := fnd_api.g_ret_sts_error;
3919:
3920: fnd_msg_pub.count_and_get
3921: ( p_count => l_msg_count
3914: END IF;
3915:
3916: EXCEPTION
3917: WHEN fnd_api.g_exc_error THEN
3918: x_return_status := fnd_api.g_ret_sts_error;
3919:
3920: fnd_msg_pub.count_and_get
3921: ( p_count => l_msg_count
3922: , p_data => l_msg_data
3919:
3920: fnd_msg_pub.count_and_get
3921: ( p_count => l_msg_count
3922: , p_data => l_msg_data
3923: , p_encoded => fnd_api.g_false
3924: );
3925:
3926: IF l_debug = 1 THEN
3927: print_debug (l_msg_data, l_api_name);
3932: CLOSE c_remaining_tasks;
3933: END IF;
3934:
3935: WHEN OTHERS THEN
3936: x_return_status := fnd_api.g_ret_sts_unexp_error;
3937:
3938: IF l_debug = 1 THEN
3939: print_debug ('Other error: ' || sqlerrm, l_api_name);
3940: print_debug ('l_progress = ' || to_char(l_progress), l_api_name);
3986: AND mtrl.txn_source_id = we.wip_entity_id
3987: AND mtrl.organization_id = we.organization_id;
3988:
3989: BEGIN
3990: x_return_status := fnd_api.g_ret_sts_success;
3991:
3992: IF l_debug = 1 THEN
3993: print_debug
3994: ( 'Entered with parameters: ' || g_newline ||
4014: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
4015: , l_api_name
4016: );
4017: END IF;
4018: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4019: END IF;
4020:
4021: l_transaction_temp_id := g_current_drop_lpn.current_drop_list.FIRST;
4022:
4037: ( 'Unable to determine entity type'
4038: , l_api_name
4039: );
4040: END IF;
4041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4042: END IF;
4043:
4044: x_entity_type := l_wip_entity_type;
4045:
4042: END IF;
4043:
4044: x_entity_type := l_wip_entity_type;
4045:
4046: l_api_return_status := fnd_api.g_ret_sts_success;
4047: wms_wip_integration.get_wip_job_info
4048: ( p_temp_id => l_transaction_temp_id
4049: , p_wip_entity_type => l_wip_entity_type
4050: , x_job => x_job
4058: , x_msg_count => l_msg_count
4059: , x_msg_data => l_msg_data
4060: );
4061:
4062: IF l_api_return_status <> fnd_api.g_ret_sts_success
4063: THEN
4064: IF l_debug = 1 THEN
4065: print_debug
4066: ( 'wms_wip_integration.get_wip_job_info returned status '
4067: || l_api_return_status
4068: , l_api_name
4069: );
4070: END IF;
4071: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4072: ELSE
4073: IF l_debug = 1 THEN
4074: print_debug
4075: ( 'Return values from wms_wip_integration.get_wip_job_info: '
4085: END IF;
4086: END IF;
4087:
4088: EXCEPTION
4089: WHEN fnd_api.g_exc_error THEN
4090: x_return_status := fnd_api.g_ret_sts_error;
4091:
4092: fnd_msg_pub.count_and_get
4093: ( p_count => l_msg_count
4086: END IF;
4087:
4088: EXCEPTION
4089: WHEN fnd_api.g_exc_error THEN
4090: x_return_status := fnd_api.g_ret_sts_error;
4091:
4092: fnd_msg_pub.count_and_get
4093: ( p_count => l_msg_count
4094: , p_data => l_msg_data
4091:
4092: fnd_msg_pub.count_and_get
4093: ( p_count => l_msg_count
4094: , p_data => l_msg_data
4095: , p_encoded => fnd_api.g_false
4096: );
4097:
4098: IF l_debug = 1 THEN
4099: print_debug (l_msg_data, l_api_name);
4099: print_debug (l_msg_data, l_api_name);
4100: END IF;
4101:
4102: WHEN OTHERS THEN
4103: x_return_status := fnd_api.g_ret_sts_unexp_error;
4104:
4105: IF l_debug = 1 THEN
4106: print_debug ('Other error: ' || sqlerrm, l_api_name);
4107: END IF;
4142: FROM mtl_material_transactions_temp mmtt
4143: WHERE mmtt.transaction_temp_id = p_temp_id;
4144:
4145: BEGIN
4146: x_return_status := fnd_api.g_ret_sts_success;
4147:
4148: IF l_debug = 1 THEN
4149: print_debug
4150: ('Entered with parameters: ' || g_newline ||
4166: || g_newline || 'Cached Org ID: ' || to_char(g_current_drop_lpn.organization_id)
4167: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
4168: , l_api_name);
4169: END IF;
4170: RAISE fnd_api.g_exc_unexpected_error;
4171: END IF;
4172:
4173: l_transaction_temp_id := g_current_drop_lpn.current_drop_list.FIRST;
4174:
4217: END IF;
4218:
4219: EXCEPTION
4220: WHEN OTHERS THEN
4221: x_return_status := fnd_api.g_ret_sts_unexp_error;
4222:
4223: IF l_debug = 1 THEN
4224: print_debug ('Other error: ' || sqlerrm, l_api_name);
4225: END IF;
4268: FROM wms_license_plate_numbers wlpn
4269: WHERE wlpn.lpn_id = p_lpn_id;
4270:
4271: BEGIN
4272: x_return_status := fnd_api.g_ret_sts_success;
4273: x_drop_lpn_num := NULL;
4274:
4275: fnd_msg_pub.initialize;
4276:
4305: END IF;
4306:
4307: EXCEPTION
4308: WHEN OTHERS THEN
4309: x_return_status := fnd_api.g_ret_sts_unexp_error;
4310:
4311: IF l_debug = 1 THEN
4312: print_debug ('Other error: ' || sqlerrm, l_api_name);
4313: END IF;
4509:
4510: lot_details_rec c_get_lot_records%ROWTYPE;
4511:
4512: BEGIN
4513: x_return_status := fnd_api.g_ret_sts_success;
4514:
4515: IF l_debug = 1 THEN
4516: print_debug
4517: ( 'Entered with parameters: ' || g_newline ||
4569: , l_api_name
4570: );
4571: END IF;
4572:
4573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4574: END;
4575:
4576: IF NOT l_lot_controlled
4577: THEN
4587: , l_api_name
4588: );
4589: END IF;
4590: CLOSE c_get_msnt;
4591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4592: END IF;
4593:
4594: WHILE ( (c_get_msnt%FOUND)
4595: AND
4632: || to_char(l_srl_qty)
4633: , l_api_name
4634: );
4635: END IF;
4636: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4637: END IF;
4638:
4639: ELSE
4640: --
4668: , l_api_name
4669: );
4670: END IF;
4671: CLOSE c_get_lot_msnt;
4672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4673: ELSE
4674: IF l_debug = 1 THEN
4675: print_debug
4676: ( 'Fetched serial record for lot ' || lot_details_rec.lot_number
4735: || to_char(l_srl_qty)
4736: , l_api_name
4737: );
4738: END IF;
4739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4740: END IF;
4741:
4742: FETCH c_get_lot_records INTO lot_details_rec;
4743: END LOOP; -- done looping through lots
4746: EXCEPTION
4747: WHEN OTHERS THEN
4748: ROLLBACK TO insert_msnt_sp;
4749:
4750: x_return_status := fnd_api.g_ret_sts_unexp_error;
4751:
4752: IF l_debug = 1 THEN
4753: print_debug ('Other error: ' || sqlerrm, l_api_name);
4754: END IF;
4822: AND mmtt.content_lpn_id <> mmtt.transfer_lpn_id
4823: AND mmtt.content_lpn_id = wlpn.lpn_id;
4824:
4825: BEGIN
4826: x_return_status := fnd_api.g_ret_sts_success;
4827:
4828: fnd_msg_pub.initialize;
4829:
4830: IF l_debug = 1 THEN
4865: END IF;
4866:
4867: fnd_message.set_name('WMS', 'WMS_LPN_NOT_IN_OUTER');
4868: fnd_msg_pub.ADD;
4869: RAISE FND_API.G_EXC_ERROR;
4870: ELSE
4871: IF l_debug = 1 THEN
4872: print_debug
4873: ( 'Found scanned LPN ' || p_lpn ||
4883: THEN
4884: CLOSE c_get_inner_lpn_details;
4885: END IF;
4886:
4887: l_api_return_status := fnd_api.g_ret_sts_success;
4888: get_temp_list
4889: ( x_temp_tbl => l_temp_tbl
4890: , x_return_status => l_api_return_status
4891: , p_group_num => p_group_number
4891: , p_group_num => p_group_number
4892: , p_status => 'PENDING'
4893: );
4894:
4895: IF l_api_return_status <> fnd_api.g_ret_sts_success
4896: THEN
4897: IF l_debug = 1 THEN
4898: print_debug ('Error from get_temp_list', l_api_name);
4899: END IF;
4896: THEN
4897: IF l_debug = 1 THEN
4898: print_debug ('Error from get_temp_list', l_api_name);
4899: END IF;
4900: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4901: ELSIF NOT (l_temp_tbl.COUNT > 0)
4902: THEN
4903: IF l_debug = 1 THEN
4904: print_debug ('get_temp_list returned no MMTT records', l_api_name);
4902: THEN
4903: IF l_debug = 1 THEN
4904: print_debug ('get_temp_list returned no MMTT records', l_api_name);
4905: END IF;
4906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4907: ELSE
4908: IF l_debug = 1 THEN
4909: print_debug
4910: ( 'MMTT record count from get_temp_list: '
4999: IF x_ret_code = 2
5000: AND
5001: p_serial_control = 'TRUE'
5002: THEN
5003: l_api_return_status := fnd_api.g_ret_sts_success;
5004: insert_child_msnt
5005: ( x_return_status => l_api_return_status
5006: , p_temp_id => l_transaction_temp_id
5007: , p_parent_tmp_id => l_parent_temp_id
5006: , p_temp_id => l_transaction_temp_id
5007: , p_parent_tmp_id => l_parent_temp_id
5008: , p_txn_header_id => l_txn_header_id
5009: );
5010: IF l_api_return_status <> fnd_api.g_ret_sts_success
5011: THEN
5012: IF l_debug = 1 THEN
5013: print_debug ('Error from insert_child_msnt', l_api_name);
5014: END IF;
5011: THEN
5012: IF l_debug = 1 THEN
5013: print_debug ('Error from insert_child_msnt', l_api_name);
5014: END IF;
5015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5016: ELSE
5017: IF l_debug = 1 THEN
5018: print_debug ('Success status from insert_child_msnt', l_api_name);
5019: END IF;
5107: );
5108: END IF;
5109:
5110: ELSE
5111: l_api_return_status := fnd_api.g_ret_sts_success;
5112: split_mmtt
5113: ( x_new_temp_id => l_new_temp_id
5114: , x_return_status => l_api_return_status
5115: , p_temp_id => l_transaction_temp_id
5114: , x_return_status => l_api_return_status
5115: , p_temp_id => l_transaction_temp_id
5116: );
5117:
5118: IF l_api_return_status <> fnd_api.g_ret_sts_success
5119: THEN
5120: IF l_debug = 1 THEN
5121: print_debug
5122: ( 'split_mmtt returned status ' || l_api_return_status
5122: ( 'split_mmtt returned status ' || l_api_return_status
5123: , l_api_name
5124: );
5125: END IF;
5126: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5127: END IF;
5128:
5129: UPDATE mtl_material_transactions_temp
5130: SET transaction_quantity = DECODE( transaction_uom
5186: g_current_drop_lpn.current_drop_list(l_transaction_temp_id) := 'DONE';
5187:
5188: IF p_serial_control = 'TRUE'
5189: THEN
5190: l_api_return_status := fnd_api.g_ret_sts_success;
5191: insert_child_msnt
5192: ( x_return_status => l_api_return_status
5193: , p_temp_id => l_transaction_temp_id
5194: , p_parent_tmp_id => l_parent_temp_id
5193: , p_temp_id => l_transaction_temp_id
5194: , p_parent_tmp_id => l_parent_temp_id
5195: , p_txn_header_id => l_txn_header_id
5196: );
5197: IF l_api_return_status <> fnd_api.g_ret_sts_success
5198: THEN
5199: IF l_debug = 1 THEN
5200: print_debug ('Error from insert_child_msnt', l_api_name);
5201: END IF;
5198: THEN
5199: IF l_debug = 1 THEN
5200: print_debug ('Error from insert_child_msnt', l_api_name);
5201: END IF;
5202: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5203: ELSE
5204: IF l_debug = 1 THEN
5205: print_debug ('Success status from insert_child_msnt', l_api_name);
5206: END IF;
5236: ( 'Some qty remaining: ' || to_char(l_remaining_qty)
5237: , l_api_name
5238: );
5239: END IF;
5240: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5241: END IF;
5242:
5243: END IF; -- checking LPN avail qty against entered qty
5244:
5300:
5301: l_temp_tbl.DELETE;
5302:
5303: EXCEPTION
5304: WHEN fnd_api.g_exc_error THEN
5305: ROLLBACK to process_lpn_sp;
5306:
5307: x_return_status := fnd_api.g_ret_sts_error;
5308:
5303: EXCEPTION
5304: WHEN fnd_api.g_exc_error THEN
5305: ROLLBACK to process_lpn_sp;
5306:
5307: x_return_status := fnd_api.g_ret_sts_error;
5308:
5309: fnd_msg_pub.count_and_get
5310: ( p_count => l_msg_count
5311: , p_data => l_msg_data
5308:
5309: fnd_msg_pub.count_and_get
5310: ( p_count => l_msg_count
5311: , p_data => l_msg_data
5312: , p_encoded => fnd_api.g_false
5313: );
5314:
5315: IF l_debug = 1 THEN
5316: print_debug (l_msg_data, l_api_name);
5318:
5319: WHEN OTHERS THEN
5320: ROLLBACK to process_lpn_sp;
5321:
5322: x_return_status := fnd_api.g_ret_sts_unexp_error;
5323:
5324: IF l_debug = 1 THEN
5325: print_debug ('Other error: ' || sqlerrm, l_api_name);
5326: END IF;
5428:
5429: parent_rec c_get_parent_attributes%ROWTYPE;
5430:
5431: BEGIN
5432: x_return_status := fnd_api.g_ret_sts_success;
5433:
5434: fnd_msg_pub.initialize;
5435:
5436: IF l_debug = 1 THEN
5467: END IF;
5468:
5469: fnd_message.set_name('WMS', 'WMS_NOT_ENOUGH_LOOSE_QTY');
5470: fnd_msg_pub.ADD;
5471: RAISE FND_API.G_EXC_ERROR;
5472: ELSE
5473: IF l_debug = 1 THEN
5474: print_debug
5475: ( 'Available loose qty: ' || to_char(l_available_qty)
5477: );
5478: END IF;
5479: END IF;
5480:
5481: l_api_return_status := fnd_api.g_ret_sts_success;
5482: get_temp_list
5483: ( x_temp_tbl => l_temp_tbl
5484: , x_return_status => l_api_return_status
5485: , p_group_num => p_group_number
5485: , p_group_num => p_group_number
5486: , p_status => 'PENDING'
5487: );
5488:
5489: IF l_api_return_status <> fnd_api.g_ret_sts_success
5490: THEN
5491: IF l_debug = 1 THEN
5492: print_debug ('Error from get_temp_list', l_api_name);
5493: END IF;
5490: THEN
5491: IF l_debug = 1 THEN
5492: print_debug ('Error from get_temp_list', l_api_name);
5493: END IF;
5494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5495: ELSIF NOT (l_temp_tbl.COUNT > 0)
5496: THEN
5497: IF l_debug = 1 THEN
5498: print_debug ('get_temp_list returned no MMTT records', l_api_name);
5496: THEN
5497: IF l_debug = 1 THEN
5498: print_debug ('get_temp_list returned no MMTT records', l_api_name);
5499: END IF;
5500: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5501: ELSE
5502: IF l_debug = 1 THEN
5503: print_debug
5504: ( 'MMTT record count from get_temp_list: '
5563: l_process_tbl(kk) := l_transaction_temp_id;
5564: kk := kk + 1;
5565:
5566: ELSE
5567: l_api_return_status := fnd_api.g_ret_sts_success;
5568: split_mmtt
5569: ( x_new_temp_id => l_new_temp_id
5570: , x_return_status => l_api_return_status
5571: , p_temp_id => l_transaction_temp_id
5570: , x_return_status => l_api_return_status
5571: , p_temp_id => l_transaction_temp_id
5572: );
5573:
5574: IF l_api_return_status <> fnd_api.g_ret_sts_success
5575: THEN
5576: IF l_debug = 1 THEN
5577: print_debug
5578: ( 'split_mmtt returned status ' || l_api_return_status
5578: ( 'split_mmtt returned status ' || l_api_return_status
5579: , l_api_name
5580: );
5581: END IF;
5582: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5583: END IF;
5584:
5585: UPDATE mtl_material_transactions_temp
5586: SET transaction_quantity = DECODE( transaction_uom
5661: ( 'Some qty remaining: ' || to_char(l_remaining_qty)
5662: , l_api_name
5663: );
5664: END IF;
5665: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5666: END IF;
5667:
5668: OPEN c_get_parents
5669: ( g_current_drop_lpn.lpn_id
5678: THEN
5679: IF l_debug = 1 THEN
5680: print_debug ('No parent MMTT records found', l_api_name);
5681: END IF;
5682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5683: ELSE
5684: IF l_debug = 1 THEN
5685: print_debug
5686: ( 'MMTT parent record count: '
5768: , reservation_quantity - l_mmtt_qty
5769: )
5770: WHERE mmtt.transaction_temp_id = l_parent_temp_id;
5771: ELSE
5772: l_api_return_status := fnd_api.g_ret_sts_success;
5773: split_mmtt
5774: ( x_new_temp_id => l_new_temp_id
5775: , x_return_status => l_api_return_status
5776: , p_temp_id => l_transaction_temp_id
5775: , x_return_status => l_api_return_status
5776: , p_temp_id => l_transaction_temp_id
5777: );
5778:
5779: IF l_api_return_status <> fnd_api.g_ret_sts_success
5780: THEN
5781: IF l_debug = 1 THEN
5782: print_debug
5783: ( 'split_mmtt returned status ' || l_api_return_status
5783: ( 'split_mmtt returned status ' || l_api_return_status
5784: , l_api_name
5785: );
5786: END IF;
5787: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5788: END IF;
5789:
5790: UPDATE mtl_material_transactions_temp
5791: SET transaction_quantity = DECODE( transaction_uom
5876: ( 'No parent records remaining, and not all child records processed.'
5877: , l_api_name
5878: );
5879: END IF;
5880: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5881: END IF;
5882:
5883: OPEN c_get_parent_attributes (l_parent_temp_id);
5884: FETCH c_get_parent_attributes INTO parent_rec;
5928: l_process_tbl.DELETE;
5929: l_parent_tbl.DELETE;
5930:
5931: EXCEPTION
5932: WHEN fnd_api.g_exc_error THEN
5933: ROLLBACK to process_loose_sp;
5934:
5935: x_return_status := fnd_api.g_ret_sts_error;
5936:
5931: EXCEPTION
5932: WHEN fnd_api.g_exc_error THEN
5933: ROLLBACK to process_loose_sp;
5934:
5935: x_return_status := fnd_api.g_ret_sts_error;
5936:
5937: fnd_msg_pub.count_and_get
5938: ( p_count => l_msg_count
5939: , p_data => l_msg_data
5936:
5937: fnd_msg_pub.count_and_get
5938: ( p_count => l_msg_count
5939: , p_data => l_msg_data
5940: , p_encoded => fnd_api.g_false
5941: );
5942:
5943: IF l_debug = 1 THEN
5944: print_debug (l_msg_data, l_api_name);
5946:
5947: WHEN OTHERS THEN
5948: ROLLBACK to process_loose_sp;
5949:
5950: x_return_status := fnd_api.g_ret_sts_unexp_error;
5951:
5952: IF l_debug = 1 THEN
5953: print_debug ('Other error: ' || sqlerrm, l_api_name);
5954: END IF;
6127: GROUP BY mmtt.primary_quantity;
6128:
6129:
6130: BEGIN
6131: x_return_status := fnd_api.g_ret_sts_success;
6132:
6133: fnd_msg_pub.initialize;
6134:
6135: IF l_debug = 1 THEN
6165: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
6166: , l_api_name
6167: );
6168: END IF;
6169: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6170: END IF;
6171:
6172: IF p_lpn IS NOT NULL
6173: THEN
6189: END IF;
6190:
6191: fnd_message.set_name('WMS', 'WMS_LPN_NOT_IN_OUTER');
6192: fnd_msg_pub.ADD;
6193: RAISE FND_API.G_EXC_ERROR;
6194: ELSE
6195: IF l_debug = 1 THEN
6196: print_debug
6197: ( 'Found scanned LPN ' || p_lpn ||
6222: END IF;
6223: CLOSE c_get_lot_msnt;
6224: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
6225: fnd_msg_pub.ADD;
6226: RAISE FND_API.G_EXC_ERROR;
6227: END IF;
6228: IF c_get_lot_msnt%ISOPEN THEN
6229: CLOSE c_get_lot_msnt;
6230: END IF;
6247: END IF;
6248: CLOSE c_get_loose_msnt;
6249: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
6250: fnd_msg_pub.ADD;
6251: RAISE FND_API.G_EXC_ERROR;
6252: END IF;
6253: IF c_get_loose_msnt%ISOPEN THEN
6254: CLOSE c_get_loose_msnt;
6255: END IF;
6271: END IF;
6272: CLOSE c_get_lpn_msnt;
6273: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
6274: fnd_msg_pub.ADD;
6275: RAISE FND_API.G_EXC_ERROR;
6276: END IF;
6277: IF c_get_lpn_msnt%ISOPEN THEN
6278: CLOSE c_get_lpn_msnt;
6279: END IF;
6284: print_debug( 'Serial number found', l_api_name);
6285: END IF;
6286:
6287: IF (NOT (g_cur_pend_temp.COUNT > 0)) THEN
6288: l_api_return_status := fnd_api.g_ret_sts_success;
6289:
6290: IF p_lpn IS NOT NULL
6291: THEN
6292: get_temp_list
6303: , p_status => 'PENDING'
6304: );
6305: END IF;
6306:
6307: IF l_api_return_status <> fnd_api.g_ret_sts_success
6308: THEN
6309: IF l_debug = 1 THEN
6310: print_debug ('Error from get_temp_list', l_api_name);
6311: END IF;
6308: THEN
6309: IF l_debug = 1 THEN
6310: print_debug ('Error from get_temp_list', l_api_name);
6311: END IF;
6312: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6313: END IF;
6314: END IF;
6315:
6316: IF (NOT (g_cur_pend_temp.COUNT > 0)) THEN
6316: IF (NOT (g_cur_pend_temp.COUNT > 0)) THEN
6317: IF l_debug = 1 THEN
6318: print_debug ('No temp IDs found', l_api_name);
6319: END IF;
6320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6321: END IF;
6322:
6323: ii := g_cur_pend_temp.FIRST;
6324: jj := g_cur_pend_temp.LAST;
6376:
6377: IF NOT l_parent_found THEN
6378: l_orig_temp_id := g_cur_pend_temp(g_cur_pend_temp.FIRST);
6379:
6380: l_api_return_status := fnd_api.g_ret_sts_success;
6381: split_mmtt
6382: ( x_new_temp_id => l_transaction_temp_id
6383: , x_return_status => l_api_return_status
6384: , p_temp_id => l_orig_temp_id
6383: , x_return_status => l_api_return_status
6384: , p_temp_id => l_orig_temp_id
6385: );
6386:
6387: IF l_api_return_status <> fnd_api.g_ret_sts_success
6388: THEN
6389: IF l_debug = 1 THEN
6390: print_debug ('Error from split_mmtt', l_api_name);
6391: END IF;
6388: THEN
6389: IF l_debug = 1 THEN
6390: print_debug ('Error from split_mmtt', l_api_name);
6391: END IF;
6392: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6393: END IF;
6394:
6395: UPDATE mtl_material_transactions_temp
6396: SET transaction_quantity = transaction_quantity - 1
6712: ( 'Exception processing MTLT records: ' || sqlerrm
6713: , l_api_name
6714: );
6715: END IF;
6716: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6717: END;
6718: ELSE
6719: --
6720: -- Not lot controlled
6818: ': ' || sqlerrm
6819: , l_api_name
6820: );
6821: END IF;
6822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6823: END;
6824:
6825: IF l_srl_temp_id IS NULL
6826: THEN
6902: ( 'Error updating txn/primary quantity: ' || sqlerrm
6903: , l_api_name
6904: );
6905: END IF;
6906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6907: END;
6908:
6909: BEGIN
6910: SELECT mmtt.transaction_header_id
6918: ( 'Error getting txn header ID: ' || sqlerrm
6919: , l_api_name
6920: );
6921: END IF;
6922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6923: END;
6924:
6925: UPDATE mtl_serial_numbers
6926: SET group_mark_id = l_txn_header_id
6975: , l_api_name
6976: );
6977: END IF;
6978: CLOSE c_get_lot_srl_count;
6979: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6980: END IF;
6981:
6982: IF c_get_lot_srl_count%ISOPEN
6983: THEN
6997: , l_api_name
6998: );
6999: END IF;
7000: CLOSE c_get_serial_count;
7001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7002: END IF;
7003:
7004: IF c_get_serial_count%ISOPEN
7005: THEN
7065: ' in g_cur_pend_temp'
7066: , l_api_name
7067: );
7068: END IF;
7069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7070: ELSE
7071: IF l_debug = 1 THEN
7072: print_debug
7073: ( 'Found temp ID ' || g_cur_pend_temp(ii)
7113: x_loose_qty_exists := l_loose_qty_exists;
7114: END IF;
7115:
7116: EXCEPTION
7117: WHEN fnd_api.g_exc_error THEN
7118: ROLLBACK to process_serial_sp;
7119:
7120: x_return_status := fnd_api.g_ret_sts_error;
7121:
7116: EXCEPTION
7117: WHEN fnd_api.g_exc_error THEN
7118: ROLLBACK to process_serial_sp;
7119:
7120: x_return_status := fnd_api.g_ret_sts_error;
7121:
7122: fnd_msg_pub.count_and_get
7123: ( p_count => l_msg_count
7124: , p_data => l_msg_data
7121:
7122: fnd_msg_pub.count_and_get
7123: ( p_count => l_msg_count
7124: , p_data => l_msg_data
7125: , p_encoded => fnd_api.g_false
7126: );
7127:
7128: IF l_debug = 1 THEN
7129: print_debug (l_msg_data, l_api_name);
7131:
7132: WHEN OTHERS THEN
7133: ROLLBACK to process_serial_sp;
7134:
7135: x_return_status := fnd_api.g_ret_sts_unexp_error;
7136:
7137: IF l_debug = 1 THEN
7138: print_debug ('Other error: ' || sqlerrm, l_api_name);
7139: END IF;
7197: v_sub_tbl SubCodeTable;
7198: v_loc_id_tbl LocIDTable;
7199:
7200: BEGIN
7201: x_return_status := fnd_api.g_ret_sts_success;
7202:
7203: IF l_debug = 1 THEN
7204: print_debug
7205: ( 'Entered with parameters: ' || g_newline ||
7227: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
7228: , l_api_name
7229: );
7230: END IF;
7231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7232: END IF;
7233:
7234: ROLLBACK;
7235:
7288: IF l_debug = 1 THEN
7289: print_debug ('No. of child WDT records deleted: ' || SQL%ROWCOUNT, l_api_name);
7290: END IF;
7291:
7292: l_api_return_status := fnd_api.g_ret_sts_success;
7293: clear_lpn_cache(l_api_return_status);
7294:
7295: IF l_api_return_status <> fnd_api.g_ret_sts_success
7296: THEN
7291:
7292: l_api_return_status := fnd_api.g_ret_sts_success;
7293: clear_lpn_cache(l_api_return_status);
7294:
7295: IF l_api_return_status <> fnd_api.g_ret_sts_success
7296: THEN
7297: IF l_debug = 1 THEN
7298: print_debug ('Error from clear_lpn_cache', l_api_name);
7299: END IF;
7296: THEN
7297: IF l_debug = 1 THEN
7298: print_debug ('Error from clear_lpn_cache', l_api_name);
7299: END IF;
7300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7301: END IF;
7302:
7303: -- Start change for Bug 5620764
7304: -- Restore LPN context for bulk picked content LPNs back to "Packing Content" from "In Inventory"
7329: EXCEPTION
7330: WHEN OTHERS THEN
7331: ROLLBACK TO cancel_tsk_sp;
7332:
7333: x_return_status := fnd_api.g_ret_sts_unexp_error;
7334:
7335: IF l_debug = 1 THEN
7336: print_debug ('Other error: ' || sqlerrm, l_api_name);
7337: END IF;
7450: WHERE mmtt.transaction_temp_id = p_temp_id
7451: AND mmtt.move_order_line_id = mtrl.line_id;
7452:
7453: BEGIN
7454: x_return_status := fnd_api.g_ret_sts_success;
7455:
7456: IF l_debug = 1 THEN
7457: print_debug
7458: ( 'Entered with parameters: ' || g_newline ||
7488: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
7489: , l_api_name
7490: );
7491: END IF;
7492: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7493: END IF;
7494:
7495: --
7496: -- Check if new
7503: IF (l_debug = 1) THEN
7504: print_debug ('Xfer LPN is new.', l_api_name);
7505: END IF;
7506:
7507: l_api_return_status := fnd_api.g_ret_sts_success;
7508: wms_container_pub.create_lpn
7509: ( p_api_version => 1.0
7510: , x_return_status => l_api_return_status
7511: , x_msg_count => l_msg_count
7515: , x_lpn_id => l_lpn_id
7516: , p_source => wms_container_pub.lpn_context_pregenerated
7517: );
7518:
7519: IF l_api_return_status <> fnd_api.g_ret_sts_success
7520: THEN
7521: IF l_debug = 1 THEN
7522: print_debug
7523: ( 'Error from WMS_Container_PUB.create_lpn: ' || l_msg_data
7522: print_debug
7523: ( 'Error from WMS_Container_PUB.create_lpn: ' || l_msg_data
7524: , l_api_name);
7525: END IF;
7526: RAISE FND_API.G_EXC_ERROR;
7527: ELSE
7528: IF l_debug = 1 THEN
7529: print_debug
7530: ( 'WMS_Container_PUB.create_lpn returned LPN '
7551: END IF;
7552:
7553: fnd_message.set_name('WMS', 'WMS_LPN_HAS_MORE_DROP_MTL');
7554: fnd_msg_pub.ADD;
7555: RAISE FND_API.G_EXC_ERROR;
7556:
7557: ELSIF to_lpn_rec.lpn_context <> wms_container_pub.lpn_context_picked
7558: THEN
7559: IF (l_debug = 1) THEN
7565: END IF;
7566:
7567: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN_CONTEXT');
7568: fnd_msg_pub.ADD;
7569: RAISE FND_API.G_EXC_ERROR;
7570:
7571: ELSE
7572: --
7573: -- Check if staged in another sub/loc
7587: END IF;
7588:
7589: fnd_message.set_name('WMS', 'WMS_XFER_LPN_DIFF_SUBINV');
7590: fnd_msg_pub.ADD;
7591: RAISE FND_API.G_EXC_ERROR;
7592: ELSE
7593: OPEN c_get_lpn_delivery (to_lpn_rec.lpn_id, p_organization_id);
7594: FETCH c_get_lpn_delivery INTO l_lpn_delivery_id;
7595: CLOSE c_get_lpn_delivery;
7604: END IF;
7605:
7606: fnd_message.set_name('WMS', 'WMS_DROP_LPN_DIFF_DELIV');
7607: fnd_msg_pub.ADD;
7608: RAISE FND_API.G_EXC_ERROR;
7609: END IF;
7610:
7611: IF NVL(p_delivery_id,0) = 0 AND NVL(l_lpn_delivery_id,0) = 0 THEN
7612: OPEN c_get_lpn_carton_grp (to_lpn_rec.lpn_id, p_organization_id);
7644: END IF;
7645:
7646: fnd_message.set_name('WMS', 'WMS_INVALID_PACK_DELIVERY');
7647: fnd_msg_pub.ADD;
7648: RAISE FND_API.G_EXC_ERROR;
7649: END IF;
7650:
7651: END IF;
7652: END IF;
7659:
7660: --
7661: -- Update MMTT records that are PENDING
7662: --
7663: l_api_return_status := fnd_api.g_ret_sts_success;
7664: get_temp_list
7665: ( x_temp_tbl => l_temp_tbl
7666: , x_return_status => l_api_return_status
7667: , p_group_num => p_group_number
7667: , p_group_num => p_group_number
7668: , p_status => 'PENDING'
7669: );
7670:
7671: IF l_api_return_status <> fnd_api.g_ret_sts_success
7672: THEN
7673: IF l_debug = 1 THEN
7674: print_debug ('Error from get_temp_list', l_api_name);
7675: END IF;
7672: THEN
7673: IF l_debug = 1 THEN
7674: print_debug ('Error from get_temp_list', l_api_name);
7675: END IF;
7676: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7677: END IF;
7678:
7679: IF l_temp_tbl.COUNT > 0 THEN
7680: ii := l_temp_tbl.FIRST;
7740:
7741: --
7742: -- Update MMTT records for which serials have been processed
7743: --
7744: l_api_return_status := fnd_api.g_ret_sts_success;
7745: get_temp_list
7746: ( x_temp_tbl => l_temp_tbl
7747: , x_return_status => l_api_return_status
7748: , p_group_num => p_group_number
7748: , p_group_num => p_group_number
7749: , p_status => 'SRL_DONE'
7750: );
7751:
7752: IF l_api_return_status <> fnd_api.g_ret_sts_success
7753: THEN
7754: IF l_debug = 1 THEN
7755: print_debug ('Error from get_temp_list', l_api_name);
7756: END IF;
7753: THEN
7754: IF l_debug = 1 THEN
7755: print_debug ('Error from get_temp_list', l_api_name);
7756: END IF;
7757: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7758: END IF;
7759:
7760: IF l_temp_tbl.COUNT > 0 THEN
7761: ii := l_temp_tbl.FIRST;
7821:
7822: --
7823: -- Update MMTT records for which from LPN has been stamped
7824: --
7825: l_api_return_status := fnd_api.g_ret_sts_success;
7826: get_temp_list
7827: ( x_temp_tbl => l_temp_tbl
7828: , x_return_status => l_api_return_status
7829: , p_group_num => p_group_number
7829: , p_group_num => p_group_number
7830: , p_status => 'LPN_DONE'
7831: );
7832:
7833: IF l_api_return_status <> fnd_api.g_ret_sts_success
7834: THEN
7835: IF l_debug = 1 THEN
7836: print_debug ('Error from get_temp_list', l_api_name);
7837: END IF;
7834: THEN
7835: IF l_debug = 1 THEN
7836: print_debug ('Error from get_temp_list', l_api_name);
7837: END IF;
7838: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7839: END IF;
7840:
7841: IF l_temp_tbl.COUNT > 0 THEN
7842: ii := l_temp_tbl.FIRST;
7903: --
7904: -- Update MMTT records for which from loose qty
7905: -- has been processed
7906: --
7907: l_api_return_status := fnd_api.g_ret_sts_success;
7908: get_temp_list
7909: ( x_temp_tbl => l_temp_tbl
7910: , x_return_status => l_api_return_status
7911: , p_group_num => p_group_number
7911: , p_group_num => p_group_number
7912: , p_status => 'LSE_DONE'
7913: );
7914:
7915: IF l_api_return_status <> fnd_api.g_ret_sts_success
7916: THEN
7917: IF l_debug = 1 THEN
7918: print_debug ('Error from get_temp_list', l_api_name);
7919: END IF;
7916: THEN
7917: IF l_debug = 1 THEN
7918: print_debug ('Error from get_temp_list', l_api_name);
7919: END IF;
7920: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7921: END IF;
7922:
7923: IF l_temp_tbl.COUNT > 0 THEN
7924: ii := l_temp_tbl.FIRST;
7982:
7983: l_temp_tbl.DELETE;
7984:
7985: EXCEPTION
7986: WHEN fnd_api.g_exc_error THEN
7987: ROLLBACK to validate_xfer_sp;
7988:
7989: x_return_status := fnd_api.g_ret_sts_error;
7990:
7985: EXCEPTION
7986: WHEN fnd_api.g_exc_error THEN
7987: ROLLBACK to validate_xfer_sp;
7988:
7989: x_return_status := fnd_api.g_ret_sts_error;
7990:
7991: fnd_msg_pub.count_and_get
7992: ( p_count => l_msg_count
7993: , p_data => l_msg_data
7990:
7991: fnd_msg_pub.count_and_get
7992: ( p_count => l_msg_count
7993: , p_data => l_msg_data
7994: , p_encoded => fnd_api.g_false
7995: );
7996:
7997: IF l_debug = 1 THEN
7998: print_debug (l_msg_data, l_api_name);
8000:
8001: WHEN OTHERS THEN
8002: ROLLBACK to validate_xfer_sp;
8003:
8004: x_return_status := fnd_api.g_ret_sts_unexp_error;
8005:
8006: IF l_debug = 1 THEN
8007: print_debug ('Other error: ' || sqlerrm, l_api_name);
8008: END IF;
8028: l_child_temp_id NUMBER;
8029: l_pack_temp_id NUMBER;
8030:
8031: BEGIN
8032: x_return_status := fnd_api.g_ret_sts_success;
8033:
8034: IF l_debug = 1 THEN
8035: print_debug
8036: ( 'Entered with parameters: ' || g_newline ||
8065: ( 'Exception fetching child temp ID: ' || sqlerrm
8066: , l_api_name
8067: );
8068: END IF;
8069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8070: END;
8071:
8072: SELECT mtl_material_transactions_s.NEXTVAL
8073: INTO l_pack_temp_id
8473:
8474: x_pack_temp_id := l_pack_temp_id;
8475:
8476: EXCEPTION
8477: WHEN fnd_api.g_exc_error THEN
8478: ROLLBACK to insert_pack_sp;
8479:
8480: x_return_status := fnd_api.g_ret_sts_error;
8481:
8476: EXCEPTION
8477: WHEN fnd_api.g_exc_error THEN
8478: ROLLBACK to insert_pack_sp;
8479:
8480: x_return_status := fnd_api.g_ret_sts_error;
8481:
8482: fnd_msg_pub.count_and_get
8483: ( p_count => l_msg_count
8484: , p_data => l_msg_data
8481:
8482: fnd_msg_pub.count_and_get
8483: ( p_count => l_msg_count
8484: , p_data => l_msg_data
8485: , p_encoded => fnd_api.g_false
8486: );
8487:
8488: IF l_debug = 1 THEN
8489: print_debug (l_msg_data, l_api_name);
8491:
8492: WHEN OTHERS THEN
8493: ROLLBACK to insert_pack_sp;
8494:
8495: x_return_status := fnd_api.g_ret_sts_unexp_error;
8496:
8497: IF l_debug = 1 THEN
8498: print_debug ('Other error: ' || sqlerrm, l_api_name);
8499: END IF;
8630: );
8631:
8632:
8633: BEGIN
8634: x_return_status := fnd_api.g_ret_sts_success;
8635:
8636: IF l_debug = 1 THEN
8637: print_debug
8638: ( 'Entered with parameters: ' || g_newline ||
8654: THEN
8655: IF l_debug = 1 THEN
8656: print_debug ('c_get_bulk_tasks returned no MMTT records', l_api_name);
8657: END IF;
8658: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8659: END IF;
8660:
8661: --
8662: -- Process nested LPNs:
8726: END IF;
8727:
8728: IF l_pack_txn_ok
8729: THEN
8730: l_api_return_status := fnd_api.g_ret_sts_success;
8731: insert_mmtt_pack
8732: ( x_pack_temp_id => l_pack_temp_id
8733: , x_return_status => l_api_return_status
8734: , p_parent_temp_id => nested_lpn_rec.transaction_temp_id
8735: , p_lpn_id => nested_lpn_rec.content_lpn_id
8736: , p_outer_lpn_id => p_xfer_lpn_id
8737: );
8738:
8739: IF l_api_return_status <> fnd_api.g_ret_sts_success
8740: THEN
8741: IF l_debug = 1 THEN
8742: print_debug ('insert_mmtt_pack returned an error', l_api_name);
8743: END IF;
8740: THEN
8741: IF l_debug = 1 THEN
8742: print_debug ('insert_mmtt_pack returned an error', l_api_name);
8743: END IF;
8744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8745: END IF;
8746:
8747: ii := x_temp_tbl.LAST + 1;
8748: x_temp_tbl(ii) := l_pack_temp_id;
8771: ( 'Exception processing nested LPNs: ' || sqlerrm
8772: , l_api_name
8773: );
8774: END IF;
8775: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8776:
8777: END;
8778: END LOOP;
8779:
8803: ( 'Exception getting outermost LPN ID: ' || sqlerrm
8804: , l_api_name
8805: );
8806: END IF;
8807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8808: END;
8809:
8810: l_api_return_status := fnd_api.g_ret_sts_success;
8811: insert_mmtt_pack
8806: END IF;
8807: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8808: END;
8809:
8810: l_api_return_status := fnd_api.g_ret_sts_success;
8811: insert_mmtt_pack
8812: ( x_pack_temp_id => l_pack_temp_id
8813: , x_return_status => l_api_return_status
8814: , p_parent_temp_id => l_parent_temp_id
8815: , p_lpn_id => p_xfer_lpn_id
8816: , p_outer_lpn_id => l_outer_most_lpn_id
8817: );
8818:
8819: IF l_api_return_status <> fnd_api.g_ret_sts_success
8820: THEN
8821: IF l_debug = 1 THEN
8822: print_debug ('insert_mmtt_pack returned an error', l_api_name);
8823: END IF;
8820: THEN
8821: IF l_debug = 1 THEN
8822: print_debug ('insert_mmtt_pack returned an error', l_api_name);
8823: END IF;
8824: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8825: END IF;
8826:
8827: ii := x_temp_tbl.LAST + 1;
8828: x_temp_tbl(ii) := l_pack_temp_id;
8837: END IF;
8838: END IF;
8839:
8840: EXCEPTION
8841: WHEN fnd_api.g_exc_error THEN
8842: ROLLBACK TO preprocess_bulk_sp;
8843:
8844: x_return_status := fnd_api.g_ret_sts_error;
8845:
8840: EXCEPTION
8841: WHEN fnd_api.g_exc_error THEN
8842: ROLLBACK TO preprocess_bulk_sp;
8843:
8844: x_return_status := fnd_api.g_ret_sts_error;
8845:
8846: fnd_msg_pub.count_and_get
8847: ( p_count => l_msg_count
8848: , p_data => l_msg_data
8845:
8846: fnd_msg_pub.count_and_get
8847: ( p_count => l_msg_count
8848: , p_data => l_msg_data
8849: , p_encoded => fnd_api.g_false
8850: );
8851:
8852: IF l_debug = 1 THEN
8853: print_debug (l_msg_data, l_api_name);
8855:
8856: WHEN OTHERS THEN
8857: ROLLBACK TO preprocess_bulk_sp;
8858:
8859: x_return_status := fnd_api.g_ret_sts_unexp_error;
8860:
8861: IF l_debug = 1 THEN
8862: print_debug ('Other error: ' || sqlerrm, l_api_name);
8863: END IF;
9058: FROM mtl_material_transactions_temp mmtt
9059: WHERE transaction_temp_id = p_temp_id;
9060:
9061: BEGIN
9062: x_return_status := fnd_api.g_ret_sts_success;
9063:
9064: IF l_debug = 1 THEN
9065: print_debug
9066: ( '...Entered with parameters: ' || g_newline ||
9113: , x_lpn_id => l_drop_lpn_id
9114: , p_source => wms_container_pub.lpn_context_pregenerated
9115: );
9116:
9117: IF l_api_return_status <> fnd_api.g_ret_sts_success
9118: THEN
9119: IF l_debug = 1 THEN
9120: print_debug
9121: ( 'Error from WMS_Container_PUB.create_lpn: ' || l_msg_data
9120: print_debug
9121: ( 'Error from WMS_Container_PUB.create_lpn: ' || l_msg_data
9122: , l_api_name);
9123: END IF;
9124: RAISE FND_API.G_EXC_ERROR;
9125: ELSE
9126: IF l_debug = 1 THEN
9127: print_debug
9128: ( 'WMS_Container_PUB.create_lpn returned LPN '
9153: x_return_status => l_api_return_status,
9154: x_msg_count => l_msg_count,
9155: x_msg_data => l_msg_data);
9156:
9157: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
9158: IF l_debug = 1 THEN
9159: print_debug('Error from wms_mdc_pvt.validate_to_lpn: ' || l_msg_data, l_api_name);
9160: END IF;
9161: RAISE fnd_api.g_exc_error;
9157: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
9158: IF l_debug = 1 THEN
9159: print_debug('Error from wms_mdc_pvt.validate_to_lpn: ' || l_msg_data, l_api_name);
9160: END IF;
9161: RAISE fnd_api.g_exc_error;
9162: ELSE
9163: IF l_debug = 1 THEN
9164: print_debug('wms_mdc_pvt.validate_to_lpn returned: ' || l_allow_packing, l_api_name);
9165: END IF;
9164: print_debug('wms_mdc_pvt.validate_to_lpn returned: ' || l_allow_packing, l_api_name);
9165: END IF;
9166:
9167: IF l_allow_packing = 'N' THEN
9168: RAISE fnd_api.g_exc_error;
9169: END IF;
9170:
9171: END IF;
9172:
9181: AND mil.inventory_location_id = p_loc_id;
9182: IF (l_debug = 1) THEN print_debug('l_to_loc_type' || l_to_loc_type , l_api_name); END IF;
9183: EXCEPTION WHEN NO_DATA_FOUND THEN
9184: IF (l_debug = 1) THEN print_debug('exception selecting to_loc_type', l_api_name ); END IF;
9185: RAISE FND_API.G_exc_unexpected_error;
9186: END ;
9187: IF l_to_loc_type <> inv_globals.g_loc_type_staging_lane THEN
9188: fnd_message.set_name('WMS', 'WMS_STAGE_FROM_CONSOL_LPN');
9189: fnd_msg_pub.ADD;
9193: , l_api_name );
9194: -- {{- Destination Locator must be staging locator when one of the From LPNs is a consol LPN }}
9195:
9196: END IF;
9197: RAISE fnd_api.g_exc_error;
9198: END IF ;
9199: END IF ;
9200: END IF;
9201: END IF;
9218: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
9219: , l_api_name
9220: );
9221: END IF;
9222: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9223: END IF;
9224:
9225: l_pack_txn_exists := FALSE;
9226: IF l_debug = 1 THEN
9228: print_debug ('p_bulk_drop ' || p_bulk_drop, l_api_name);
9229: END IF;
9230: IF g_current_drop_lpn.multiple_drops = 'TRUE'
9231: THEN
9232: l_api_return_status := fnd_api.g_ret_sts_success;
9233: get_temp_list
9234: ( x_temp_tbl => l_temp_tbl
9235: , x_return_status => l_api_return_status
9236: , p_group_num => NULL
9236: , p_group_num => NULL
9237: , p_status => NULL
9238: );
9239:
9240: IF l_api_return_status <> fnd_api.g_ret_sts_success
9241: THEN
9242: IF l_debug = 1 THEN
9243: print_debug ('Error from get_temp_list', l_api_name);
9244: END IF;
9241: THEN
9242: IF l_debug = 1 THEN
9243: print_debug ('Error from get_temp_list', l_api_name);
9244: END IF;
9245: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9246: END IF;
9247: l_xfer_lpn_used := FALSE;
9248: ELSE
9249: IF p_bulk_drop = 'TRUE'
9247: l_xfer_lpn_used := FALSE;
9248: ELSE
9249: IF p_bulk_drop = 'TRUE'
9250: THEN
9251: l_api_return_status := fnd_api.g_ret_sts_success;
9252:
9253: preprocess_bulk_drop
9254: ( x_temp_tbl => l_temp_tbl
9255: , x_pack_txn_exists => l_pack_txn_exists
9258: , p_xfer_lpn_id => p_transfer_lpn_id
9259: , p_drop_lpn => p_drop_lpn
9260: );
9261:
9262: IF l_api_return_status <> fnd_api.g_ret_sts_success
9263: THEN
9264: IF l_debug = 1 THEN
9265: print_debug ('Error from preprocess_bulk_drop', l_api_name);
9266: END IF;
9263: THEN
9264: IF l_debug = 1 THEN
9265: print_debug ('Error from preprocess_bulk_drop', l_api_name);
9266: END IF;
9267: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9268: END IF;
9269: ELSE
9270: OPEN c_get_nonbulk_tasks (p_organization_id, p_transfer_lpn_id);
9271: FETCH c_get_nonbulk_tasks BULK COLLECT INTO l_temp_tbl;
9323: ('Error getting MMTT xfer LPN ID: ' || sqlerrm
9324: , l_api_name
9325: );
9326: END IF;
9327: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9328: END;
9329:
9330: IF (to_number(p_orig_locid) <> p_loc_id) AND (to_number(p_orig_locid) <> 0) THEN
9331: inv_loc_wms_utils.revert_loc_suggested_capacity(x_return_status => l_api_return_status,
9338: p_transaction_uom_code => l_transaction_uom,
9339: p_quantity => l_transaction_qty);
9340:
9341:
9342: IF l_api_return_status <> fnd_api.g_ret_sts_success
9343: THEN
9344: IF l_debug = 1 THEN
9345: print_debug('Error from revert_loc_suggested_capacity', l_api_name);
9346: END IF;
9344: IF l_debug = 1 THEN
9345: print_debug('Error from revert_loc_suggested_capacity', l_api_name);
9346: END IF;
9347: -- Bug 5393727: do not raise an exception if locator API returns an error
9348: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9349: END IF;
9350:
9351: END IF;
9352:
9420: FETCH c_get_srl_alloc_stat INTO l_srl_stat;
9421: CLOSE c_get_srl_alloc_stat;
9422:
9423: IF l_srl_stat = 'N' THEN
9424: l_api_return_status := fnd_api.g_ret_sts_success;
9425: insert_child_msnt
9426: ( x_return_status => l_api_return_status
9427: , p_temp_id => l_transaction_temp_id
9428: , p_parent_tmp_id => l_parent_line_id
9427: , p_temp_id => l_transaction_temp_id
9428: , p_parent_tmp_id => l_parent_line_id
9429: , p_txn_header_id => l_txn_header_id
9430: );
9431: IF l_api_return_status <> fnd_api.g_ret_sts_success
9432: THEN
9433: IF l_debug = 1 THEN
9434: print_debug ('Error from insert_child_msnt', l_api_name);
9435: END IF;
9432: THEN
9433: IF l_debug = 1 THEN
9434: print_debug ('Error from insert_child_msnt', l_api_name);
9435: END IF;
9436: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9437: ELSE
9438: IF l_debug = 1 THEN
9439: print_debug ('Success status from insert_child_msnt', l_api_name);
9440: END IF;
9512: ( 'Exception querying WDT: ' || sqlerrm
9513: , l_api_name
9514: );
9515: END IF;
9516: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9517: END;
9518:
9519: IF l_debug = 1 THEN
9520: print_debug
9533: || sqlerrm
9534: , l_api_name
9535: );
9536: END IF;
9537: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9538: END;
9539:
9540: --
9541: -- Update parent line to NULL
9556: ( 'Exception updating MMTT: ' || sqlerrm
9557: , l_api_name
9558: );
9559: END IF;
9560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9561: END;
9562: END IF; -- IF l_parent_line_id IS NOT NULL
9563:
9564: --
9565: -- Call complete_pick
9566: --
9567: IF l_txn_type_id <> INV_GLOBALS.G_TYPE_CONTAINER_PACK
9568: THEN
9569: l_api_return_status := fnd_api.g_ret_sts_success;
9570: wms_task_dispatch_gen.complete_pick
9571: ( p_lpn => p_drop_lpn
9572: , p_container_item_id => NULL
9573: , p_org_id => p_organization_id
9582: , x_msg_data => l_msg_data
9583: , p_ok_to_process => l_ok_to_process
9584: );
9585:
9586: IF l_api_return_status <> fnd_api.g_ret_sts_success
9587: THEN
9588: IF l_debug = 1 THEN
9589: print_debug
9590: ('Error from wms_task_dispatch_gen.complete_pick'
9590: ('Error from wms_task_dispatch_gen.complete_pick'
9591: , l_api_name
9592: );
9593: END IF;
9594: RAISE FND_API.G_EXC_ERROR;
9595: END IF;
9596:
9597: IF l_ok_to_process = 'false'
9598: THEN
9603: );
9604: END IF;
9605: fnd_message.set_name('INV', 'INV-SUBINV NOT RESERVABLE');
9606: fnd_msg_pub.ADD;
9607: RAISE FND_API.G_EXC_ERROR;
9608: END IF;
9609: END IF;
9610:
9611: BEGIN
9671: ( 'Exception updating batch sequence on MMTT: ' || sqlerrm
9672: , l_api_name
9673: );
9674: END IF;
9675: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9676: END;
9677:
9678: IF ii = jj THEN
9679: l_temp_tbl.DELETE(ii);
9707: ('Error getting MMTT xfer LPN ID: ' || sqlerrm
9708: , l_api_name
9709: );
9710: END IF;
9711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9712: END;
9713:
9714: IF l_next_xfer_lpn_id = l_curr_xfer_lpn_id
9715: THEN
9728:
9729: --
9730: -- Call pick_drop
9731: --
9732: l_api_return_status := fnd_api.g_ret_sts_success;
9733:
9734: IF g_current_drop_lpn.multiple_drops = 'FALSE'
9735: AND
9736: p_bulk_drop = 'TRUE'
9775: , p_commit => 'N'
9776: );
9777: END IF;
9778:
9779: IF l_api_return_status <> fnd_api.g_ret_sts_success
9780: THEN
9781: IF l_debug = 1 THEN
9782: print_debug ('Error from wms_task_dispatch_gen.pick_drop', l_api_name);
9783: END IF;
9780: THEN
9781: IF l_debug = 1 THEN
9782: print_debug ('Error from wms_task_dispatch_gen.pick_drop', l_api_name);
9783: END IF;
9784: RAISE FND_API.G_EXC_ERROR;
9785: END IF;
9786:
9787: END LOOP; -- end WHILE l_temp_tbl.COUNT > 0
9788:
9827: ( 'Exception updating WDTH: ' || sqlerrm
9828: , l_api_name
9829: );
9830: END IF;
9831: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9832: END;
9833:
9834: IF ii < jj THEN
9835: ii := l_task_tbl.NEXT(ii);
9870: , l_api_name
9871: );
9872: END IF;
9873:
9874: l_api_return_status := fnd_api.g_ret_sts_success;
9875: wms_task_dispatch_put_away.archive_task
9876: ( p_temp_id => parent_rec.transaction_temp_id
9877: , p_org_id => p_organization_id
9878: , x_return_status => l_api_return_status
9882: , p_txn_header_id => l_txn_header_id
9883: , p_transfer_lpn_id => p_transfer_lpn_id
9884: );
9885:
9886: IF l_api_return_status <> fnd_api.g_ret_sts_success
9887: THEN
9888: IF l_debug = 1 THEN
9889: print_debug
9890: ( 'Error from wms_task_dispatch_put_away.archive_task: '
9891: || l_msg_data
9892: , l_api_name
9893: );
9894: END IF;
9895: RAISE FND_API.G_EXC_ERROR;
9896: END IF;
9897:
9898: --
9899: -- Update parent_transaction_id in WDTH
9920: ( 'Exception updating WDTH: ' || sqlerrm
9921: , l_api_name
9922: );
9923: END IF;
9924: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9925: END;
9926:
9927: --
9928: -- Update child lines
9946: ( 'Exception updating WDTH: ' || sqlerrm
9947: , l_api_name
9948: );
9949: END IF;
9950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9951: END;
9952: END LOOP;
9953: END IF;
9954:
9962: AND
9963: (NOT l_xfer_lpn_used)
9964: )
9965: THEN
9966: l_api_return_status := fnd_api.g_ret_sts_success;
9967: wms_container_pub.modify_lpn_wrapper
9968: ( p_api_version => '1.0'
9969: , x_return_status => l_api_return_status
9970: , x_msg_count => l_msg_count
9972: , p_lpn_id => p_transfer_lpn_id
9973: , p_lpn_context => WMS_Container_PUB.LPN_CONTEXT_PREGENERATED
9974: );
9975:
9976: IF l_api_return_status <> fnd_api.g_ret_sts_success
9977: THEN
9978: IF l_debug = 1 THEN
9979: print_debug
9980: ( 'Error from modify_lpn_wrapper: ' || l_msg_data
9980: ( 'Error from modify_lpn_wrapper: ' || l_msg_data
9981: , l_api_name
9982: );
9983: END IF;
9984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9985: END IF;
9986: END IF;
9987:
9988: l_api_return_status := fnd_api.g_ret_sts_success;
9984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9985: END IF;
9986: END IF;
9987:
9988: l_api_return_status := fnd_api.g_ret_sts_success;
9989: clear_lpn_cache(l_api_return_status);
9990:
9991: IF l_api_return_status <> fnd_api.g_ret_sts_success
9992: THEN
9987:
9988: l_api_return_status := fnd_api.g_ret_sts_success;
9989: clear_lpn_cache(l_api_return_status);
9990:
9991: IF l_api_return_status <> fnd_api.g_ret_sts_success
9992: THEN
9993: IF l_debug = 1 THEN
9994: print_debug ('Error from clear_lpn_cache', l_api_name);
9995: END IF;
9992: THEN
9993: IF l_debug = 1 THEN
9994: print_debug ('Error from clear_lpn_cache', l_api_name);
9995: END IF;
9996: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9997: END IF;
9998: ELSE
9999: g_current_drop_lpn.current_drop_list.DELETE;
10000: g_current_drop_lpn.temp_id_group_ref.DELETE;
10002:
10003: COMMIT;
10004:
10005: EXCEPTION
10006: WHEN fnd_api.g_exc_error THEN
10007: ROLLBACK TO pick_drop_sp;
10008:
10009: x_return_status := fnd_api.g_ret_sts_error;
10010:
10005: EXCEPTION
10006: WHEN fnd_api.g_exc_error THEN
10007: ROLLBACK TO pick_drop_sp;
10008:
10009: x_return_status := fnd_api.g_ret_sts_error;
10010:
10011: fnd_msg_pub.count_and_get
10012: ( p_count => l_msg_count
10013: , p_data => l_msg_data
10010:
10011: fnd_msg_pub.count_and_get
10012: ( p_count => l_msg_count
10013: , p_data => l_msg_data
10014: , p_encoded => fnd_api.g_false
10015: );
10016:
10017: IF l_debug = 1 THEN
10018: print_debug (l_msg_data, l_api_name);
10020:
10021: WHEN OTHERS THEN
10022: ROLLBACK TO pick_drop_sp;
10023:
10024: x_return_status := fnd_api.g_ret_sts_unexp_error;
10025:
10026: IF l_debug = 1 THEN
10027: print_debug ('Other error: ' || sqlerrm, l_api_name);
10028: END IF;
10066: mmtt.parent_line_id IS NULL
10067: );
10068:
10069: BEGIN
10070: x_return_status := fnd_api.g_ret_sts_success;
10071:
10072: IF l_debug = 1 THEN
10073: print_debug
10074: ( 'Entered with parameters: ' || g_newline ||
10094: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
10095: , l_api_name
10096: );
10097: END IF;
10098: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10099: END IF;
10100:
10101: IF g_current_drop_lpn.multiple_drops = 'TRUE'
10102: THEN
10099: END IF;
10100:
10101: IF g_current_drop_lpn.multiple_drops = 'TRUE'
10102: THEN
10103: l_api_return_status := fnd_api.g_ret_sts_success;
10104: get_temp_list
10105: ( x_temp_tbl => l_temp_tbl
10106: , x_return_status => l_api_return_status
10107: , p_group_num => NULL
10107: , p_group_num => NULL
10108: , p_status => NULL
10109: );
10110:
10111: IF l_api_return_status <> fnd_api.g_ret_sts_success
10112: THEN
10113: IF l_debug = 1 THEN
10114: print_debug ('Error from get_temp_list', l_api_name);
10115: END IF;
10112: THEN
10113: IF l_debug = 1 THEN
10114: print_debug ('Error from get_temp_list', l_api_name);
10115: END IF;
10116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10117: END IF;
10118: ELSE
10119: OPEN c_get_tasks (p_organization_id, p_transfer_lpn_id);
10120: FETCH c_get_tasks BULK COLLECT INTO l_temp_tbl;
10161: x_temp_id_list := l_temp_id_list;
10162:
10163: EXCEPTION
10164: WHEN OTHERS THEN
10165: x_return_status := fnd_api.g_ret_sts_unexp_error;
10166:
10167: IF l_debug = 1 THEN
10168: print_debug ('Other error: ' || sqlerrm, l_api_name);
10169: END IF;
10210: AND wdd.source_line_id = oola.line_id
10211: AND oola.header_id = ooha.header_id;
10212:
10213: BEGIN
10214: x_return_status := fnd_api.g_ret_sts_success;
10215:
10216: IF l_debug = 1 THEN
10217: print_debug
10218: ( 'Entered with parameters: ' || g_newline ||
10239: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
10240: , l_api_name
10241: );
10242: END IF;
10243: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10244: END IF;
10245:
10246: OPEN c_get_delivery_name (p_delivery_id);
10247: FETCH c_get_delivery_name INTO l_delivery_name;
10262: END IF;
10263:
10264: EXCEPTION
10265: WHEN OTHERS THEN
10266: x_return_status := fnd_api.g_ret_sts_unexp_error;
10267:
10268: IF l_debug = 1 THEN
10269: print_debug ('Other error: ' || sqlerrm, l_api_name);
10270: END IF;
10324: AND msik.inventory_item_id = p_item_id;
10325:
10326:
10327: BEGIN
10328: x_return_status := fnd_api.g_ret_sts_success;
10329:
10330: IF l_debug = 1 THEN
10331: print_debug
10332: ( 'Entered with parameters: ' || g_newline ||
10354: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
10355: , l_api_name
10356: );
10357: END IF;
10358: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10359: END IF;
10360:
10361: OPEN c_get_item_xref
10362: ( p_organization_id
10398: END IF;
10399:
10400: EXCEPTION
10401: WHEN OTHERS THEN
10402: x_return_status := fnd_api.g_ret_sts_unexp_error;
10403:
10404: IF l_debug = 1 THEN
10405: print_debug ('Other error: ' || sqlerrm, l_api_name);
10406: END IF;
10477: ORDER BY wda.delivery_id;
10478:
10479:
10480: BEGIN
10481: x_return_status := fnd_api.g_ret_sts_success;
10482:
10483: IF l_debug = 1 THEN
10484: print_debug
10485: ( 'Entered with parameters: ' || g_newline ||
10510: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
10511: , l_api_name
10512: );
10513: END IF;
10514: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10515: END IF;
10516:
10517: OPEN c_drop_lpn_cursor (p_drop_lpn, p_organization_id);
10518: FETCH c_drop_lpn_cursor INTO drop_lpn_rec;
10549: );
10550: END IF;
10551: fnd_message.set_name('WMS', 'WMS_DROP_PICK_LPN_SAME');
10552: fnd_msg_pub.ADD;
10553: RAISE FND_API.G_EXC_ERROR;
10554: RETURN;
10555: /*
10556: IF g_current_drop_lpn.multiple_drops = 'TRUE'
10557: AND
10565: );
10566: END IF;
10567: fnd_message.set_name('WMS', 'WMS_LPN_HAS_MORE_DROP_MTL');
10568: fnd_msg_pub.ADD;
10569: RAISE FND_API.G_EXC_ERROR;
10570: ELSIF g_current_drop_lpn.multiple_drops <> 'TRUE'
10571: THEN
10572: CLOSE c_drop_lpn_cursor;
10573: IF l_debug = 1 THEN
10577: );
10578: END IF;
10579: fnd_message.set_name('WMS', 'WMS_DROP_PICK_LPN_SAME');
10580: fnd_msg_pub.ADD;
10581: RAISE FND_API.G_EXC_ERROR;
10582: END IF;
10583: RETURN; -- multiple drops is TRUE and outer LPN done
10584: */
10585: -- End change for bug 5620764
10602: );
10603: END IF;
10604: fnd_message.set_name('WMS', 'WMS_DROP_LPN_SUBLOC_MISMATCH');
10605: fnd_msg_pub.ADD;
10606: RAISE FND_API.G_EXC_ERROR;
10607: END IF;
10608: ELSIF drop_lpn_rec.lpn_context =
10609: WMS_Container_PUB.LPN_LOADED_FOR_SHIPMENT
10610: THEN
10616: );
10617: END IF;
10618: fnd_message.set_name('WMS', 'WMS_DROP_LPN_LOADED');
10619: fnd_msg_pub.ADD;
10620: RAISE FND_API.G_EXC_ERROR;
10621: END IF;
10622:
10623: IF c_drop_lpn_cursor%ISOPEN
10624: THEN
10626: END IF;
10627:
10628: IF g_current_drop_lpn.multiple_drops = 'TRUE'
10629: THEN
10630: l_api_return_status := fnd_api.g_ret_sts_success;
10631: get_temp_list
10632: ( x_temp_tbl => l_temp_tbl
10633: , x_return_status => l_api_return_status
10634: , p_group_num => NULL
10634: , p_group_num => NULL
10635: , p_status => NULL
10636: );
10637:
10638: IF l_api_return_status <> fnd_api.g_ret_sts_success
10639: THEN
10640: IF l_debug = 1 THEN
10641: print_debug ('Error from get_temp_list', l_api_name);
10642: END IF;
10639: THEN
10640: IF l_debug = 1 THEN
10641: print_debug ('Error from get_temp_list', l_api_name);
10642: END IF;
10643: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10644: END IF;
10645:
10646: --
10647: -- Check if transfer_lpn_id on any record matches
10680: || to_char(l_transaction_temp_id)
10681: , l_api_name
10682: );
10683: END IF;
10684: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10685: END IF;
10686:
10687: IF c_xfer_lpn_id%ISOPEN
10688: THEN
10703: l_temp_tbl.DELETE;
10704:
10705: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
10706: fnd_msg_pub.ADD;
10707: RAISE FND_API.G_EXC_ERROR;
10708: END IF;
10709:
10710: IF ii < jj THEN
10711: ii := l_temp_tbl.NEXT(ii);
10735: );
10736: END IF;
10737: fnd_message.set_name('WMS', 'WMS_INVALID_LPN_STATUS');
10738: fnd_msg_pub.ADD;
10739: RAISE FND_API.G_EXC_ERROR;
10740: END IF;
10741:
10742: --**MRANA temporary code for double validations and avoid data corruption
10743:
10749: x_return_status => l_api_return_status,
10750: x_msg_count => l_msg_count,
10751: x_msg_data => l_msg_data);
10752:
10753: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
10754: IF l_debug = 1 THEN
10755: print_debug('Error from wms_mdc_pvt.validate_to_lpn: ' || l_msg_data, l_api_name);
10756: END IF;
10757: RAISE fnd_api.g_exc_error;
10753: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
10754: IF l_debug = 1 THEN
10755: print_debug('Error from wms_mdc_pvt.validate_to_lpn: ' || l_msg_data, l_api_name);
10756: END IF;
10757: RAISE fnd_api.g_exc_error;
10758: ELSE
10759: IF l_debug = 1 THEN
10760: print_debug('wms_mdc_pvt.validate_to_lpn returned: ' || l_allow_packing, l_api_name);
10761: END IF;
10760: print_debug('wms_mdc_pvt.validate_to_lpn returned: ' || l_allow_packing, l_api_name);
10761: END IF;
10762:
10763: IF l_allow_packing = 'N' THEN
10764: RAISE fnd_api.g_exc_error;
10765: END IF;
10766:
10767: END IF;
10768:
10797: print_debug('count l_grp_rows'|| l_grouping_rows.count, l_api_name);
10798: print_debug('l_grp_rows(1) : '||l_grouping_rows(1) ||',l_grp_rows(2) : '||l_grouping_rows(2), l_api_name);
10799: END IF;
10800:
10801: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_grouping_rows(1) = l_grouping_rows(2) ) THEN
10802: IF (l_debug = 1) THEN
10803: print_debug('The LPN can be dropped into LPN_ID '||drop_lpn_rec.lpn_id, l_api_name);
10804: END IF;
10805: ELSE
10807: print_debug('Picked LPN does not belong to same delivery as Drop LPN. So cannot be dropped', l_api_name);
10808: END IF;
10809: fnd_message.set_name('WMS', 'WMS_DROP_LPN_DIFF_DELIV');
10810: fnd_msg_pub.ADD;
10811: RAISE FND_API.G_EXC_ERROR;
10812: END IF;
10813:
10814: EXCEPTION
10815: WHEN NO_DATA_FOUND THEN
10816: IF (l_debug = 1) THEN
10817: print_debug('No Data found Exception raised when checking for delivery grouping', l_api_name);
10818: print_debug('Picked LPN is not associated with a delivery, so dont show ANY lpn.', l_api_name);
10819: END IF;
10820: RAISE FND_API.G_EXC_ERROR;
10821: WHEN OTHERS THEN
10822: IF (l_debug = 1) THEN
10823: print_debug('Other Exception raised when checking for delivery grouping', l_api_name);
10824: print_debug('Picked LPN is not associated with a delivery, so dont show ANY lpn.', l_api_name);
10822: IF (l_debug = 1) THEN
10823: print_debug('Other Exception raised when checking for delivery grouping', l_api_name);
10824: print_debug('Picked LPN is not associated with a delivery, so dont show ANY lpn.', l_api_name);
10825: END IF;
10826: RAISE FND_API.G_EXC_ERROR;
10827: END; */ --End of Fix for bug#4106176 */
10828: --mrana END IF;
10829:
10830: EXCEPTION
10827: END; */ --End of Fix for bug#4106176 */
10828: --mrana END IF;
10829:
10830: EXCEPTION
10831: WHEN fnd_api.g_exc_error THEN
10832: x_return_status := fnd_api.g_ret_sts_error;
10833:
10834: fnd_msg_pub.count_and_get
10835: ( p_count => l_msg_count
10828: --mrana END IF;
10829:
10830: EXCEPTION
10831: WHEN fnd_api.g_exc_error THEN
10832: x_return_status := fnd_api.g_ret_sts_error;
10833:
10834: fnd_msg_pub.count_and_get
10835: ( p_count => l_msg_count
10836: , p_data => l_msg_data
10833:
10834: fnd_msg_pub.count_and_get
10835: ( p_count => l_msg_count
10836: , p_data => l_msg_data
10837: , p_encoded => fnd_api.g_false
10838: );
10839:
10840: IF l_debug = 1 THEN
10841: print_debug (l_msg_data, l_api_name);
10841: print_debug (l_msg_data, l_api_name);
10842: END IF;
10843:
10844: WHEN OTHERS THEN
10845: x_return_status := fnd_api.g_ret_sts_unexp_error;
10846:
10847: IF l_debug = 1 THEN
10848: print_debug ('Other error: ' || sqlerrm, l_api_name);
10849: END IF;