[Home] [Help]
72: ( x_return_status OUT NOCOPY VARCHAR2
73: ) IS
74: l_debug NUMBER := NVL(FND_PROFILE.VALUE('INV_DEBUG_TRACE'),0);
75: BEGIN
76: x_return_status := fnd_api.g_ret_sts_success;
77:
78: g_current_drop_lpn.current_drop_list.DELETE;
79: g_current_drop_lpn.temp_id_group_ref.DELETE;
80:
87: g_current_drop_lpn.drop_lpn_option := 1;
88:
89: EXCEPTION
90: WHEN OTHERS THEN
91: x_return_status := fnd_api.g_ret_sts_unexp_error;
92:
93: IF l_debug = 1 THEN
94: print_debug (sqlerrm, 'clear_lpn_cache');
95: END IF;
135: l_wms_task_type NUMBER;
136:
137: BEGIN
138:
139: x_return_status := fnd_api.g_ret_sts_success;
140:
141: IF l_debug = 1 THEN
142: print_debug
143: ( 'Entered with parameters: ' || g_newline ||
160: , l_api_name
161: );
162: END IF;
163: CLOSE c_txn_info;
164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
165: ELSE
166: IF l_debug = 1 THEN
167: print_debug
168: ( 'l_mo_line_id: ' || to_char(l_mo_line_id) ||
223: || g_newline || 'l_mo_line_stat: ' || to_char(l_mo_line_stat)
224: , l_api_name
225: );
226: END IF;
227: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
228: ELSE
229: IF l_debug = 1 THEN
230: print_debug
231: ( 'Drop type: ' || x_drop_type
235: END IF;
236:
237: EXCEPTION
238: WHEN OTHERS THEN
239: x_return_status := fnd_api.g_ret_sts_unexp_error;
240:
241: IF l_debug = 1 THEN
242: print_debug ('Other error: ' || sqlerrm, l_api_name);
243: END IF;
270: AND wdd.organization_id = mmtt.organization_id
271: AND mmtt.transaction_temp_id = p_tmp_id;
272:
273: BEGIN
274: x_return_status := fnd_api.g_ret_sts_success;
275:
276: IF l_debug = 1 THEN
277: print_debug
278: ( 'Entered with parameters: ' || g_newline ||
313: END IF ;
314:
315: EXCEPTION
316: WHEN OTHERS THEN
317: x_return_status := fnd_api.g_ret_sts_unexp_error;
318:
319: IF c_get_deliv_id%ISOPEN THEN
320: CLOSE c_get_deliv_id;
321: END IF;
345: l_first_temp_id NUMBER;
346: l_last_temp_id NUMBER;
347:
348: BEGIN
349: x_return_status := fnd_api.g_ret_sts_success;
350:
351: IF l_debug = 1 THEN
352: print_debug
353: ( 'Entered with parameters: ' || g_newline ||
386: END IF;
387:
388: EXCEPTION
389: WHEN OTHERS THEN
390: x_return_status := fnd_api.g_ret_sts_unexp_error;
391:
392: IF l_debug = 1 THEN
393: print_debug (sqlerrm, l_api_name);
394: END IF;
410: l_api_return_status VARCHAR2(1);
411: l_lock_req_stat NUMBER;
412:
413: BEGIN
414: x_return_status := fnd_api.g_ret_sts_success;
415:
416: IF l_debug = 1 THEN
417: print_debug
418: ( 'Entered with parameters: ' || g_newline ||
421: , l_api_name
422: );
423: END IF;
424:
425: /* l_api_return_status := fnd_api.g_ret_sts_success;
426:
427: gen_lock_handle
428: ( x_lock_handle => l_lock_handle
429: , x_return_status => l_api_return_status
430: , p_organization_id => p_org_id
431: , p_transfer_lpn_id => p_xfer_lpn_id
432: );
433:
434: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
435: IF l_debug = 1 THEN
436: print_debug
437: ( 'Error status from gen_lock_handle: ' || l_api_return_status
438: , l_api_name
437: ( 'Error status from gen_lock_handle: ' || l_api_return_status
438: , l_api_name
439: );
440: END IF;
441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442: END IF;
443:
444: l_lock_req_stat := dbms_lock.request
445: ( lockhandle => l_lock_handle
457: to_char(l_lock_req_stat)
458: , l_api_name
459: );
460: END IF;
461: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
462: END IF;
463: */
464: EXCEPTION
465: WHEN OTHERS THEN
462: END IF;
463: */
464: EXCEPTION
465: WHEN OTHERS THEN
466: x_return_status := fnd_api.g_ret_sts_unexp_error;
467:
468: IF l_debug = 1 THEN
469: print_debug (sqlerrm, l_api_name);
470: END IF;
503: FROM wms_dispatched_tasks wdt
504: WHERE wdt.transaction_temp_id = p_temp_id;
505:
506: BEGIN
507: x_return_status := fnd_api.g_ret_sts_success;
508:
509: IF l_debug = 1 THEN
510: print_debug
511: ( 'Entered with temp ID: ' || to_char(p_txn_temp_id)
515:
516: --
517: -- Derive the drop type
518: --
519: l_api_return_status := fnd_api.g_ret_sts_success;
520: get_drop_type
521: ( x_drop_type => x_drop_type
522: , x_return_status => l_api_return_status
523: , p_temp_id => p_txn_temp_id
522: , x_return_status => l_api_return_status
523: , p_temp_id => p_txn_temp_id
524: );
525:
526: IF l_api_return_status <> fnd_api.g_ret_sts_success
527: THEN
528: IF l_debug = 1 THEN
529: print_debug
530: ( 'Error from get_drop_type'
530: ( 'Error from get_drop_type'
531: , l_api_name
532: );
533: END IF;
534: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
535: ELSE
536: IF l_debug = 1 THEN
537: print_debug
538: ( 'Drop type: ' || x_drop_type
569: IF l_debug = 1 THEN print_debug ( 'Outside ..Stg xfer or stg mv ' || x_drop_type , l_api_name); END IF;
570: IF x_drop_type = 'STG_XFER' OR x_drop_type = 'CONS_STG_MV' THEN
571: -- mrana : added staging move too
572: IF l_debug = 1 THEN print_debug ( 'Stg xfer or stg mv ' , l_api_name); END IF;
573: l_api_return_status := fnd_api.g_ret_sts_success;
574: get_delivery_id
575: ( x_delivery_id => x_delivery_id
576: , x_return_status => l_api_return_status
577: , p_drop_type => x_drop_type
577: , p_drop_type => x_drop_type
578: , p_temp_id => p_txn_temp_id
579: );
580:
581: IF l_api_return_status <> fnd_api.g_ret_sts_success
582: THEN
583: IF l_debug = 1 THEN
584: print_debug
585: ( 'Error from get_delivery_id'
585: ( 'Error from get_delivery_id'
586: , l_api_name
587: );
588: END IF;
589: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
590: ELSE
591: IF l_debug = 1 THEN
592: print_debug
593: ( 'Delivery ID: ' || to_char(x_delivery_id)
624: END IF;
625:
626: EXCEPTION
627: WHEN OTHERS THEN
628: x_return_status := fnd_api.g_ret_sts_unexp_error;
629:
630: IF l_debug = 1 THEN
631: print_debug ('Other error: ' || sqlerrm, l_api_name);
632: END IF;
673:
674: c_parent_task_rec c_parent_task_details%ROWTYPE;
675:
676: BEGIN
677: x_return_status := fnd_api.g_ret_sts_success;
678:
679: IF l_debug = 1 THEN
680: print_debug
681: ( 'Entered with parameters: ' || g_newline ||
763: EXCEPTION
764: WHEN OTHERS THEN
765: ROLLBACK TO insert_task_sp;
766:
767: x_return_status := fnd_api.g_ret_sts_unexp_error;
768:
769: IF l_debug = 1 THEN
770: print_debug (sqlerrm, l_api_name);
771: END IF;
1086: mmtt.parent_line_id IS NULL
1087: );
1088:
1089: BEGIN
1090: x_return_status := fnd_api.g_ret_sts_success;
1091:
1092: fnd_msg_pub.initialize;
1093:
1094: IF l_debug = 1 THEN
1113:
1114: --
1115: -- Attempt to get a lock on this LPN
1116: --
1117: l_api_return_status := fnd_api.g_ret_sts_success;
1118: lock_lpn
1119: ( x_return_status => l_api_return_status
1120: , p_org_id => p_organization_id
1121: , p_xfer_lpn_id => p_transfer_lpn_id
1130: );
1131: END IF;
1132: fnd_message.set_name('WMS', 'WMS_DROP_LPN_LOCKED');
1133: fnd_msg_pub.ADD;
1134: RAISE FND_API.G_EXC_ERROR;
1135: ELSIF l_api_return_status <> fnd_api.g_ret_sts_success
1136: THEN
1137: IF l_debug = 1 THEN
1138: print_debug
1131: END IF;
1132: fnd_message.set_name('WMS', 'WMS_DROP_LPN_LOCKED');
1133: fnd_msg_pub.ADD;
1134: RAISE FND_API.G_EXC_ERROR;
1135: ELSIF l_api_return_status <> fnd_api.g_ret_sts_success
1136: THEN
1137: IF l_debug = 1 THEN
1138: print_debug
1139: ( 'Error from lock_lpn'
1139: ( 'Error from lock_lpn'
1140: , l_api_name
1141: );
1142: END IF;
1143: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1144: END IF;
1145:
1146: --
1147: -- Verify this LPNs has associated transactions
1158: CLOSE c_check_txns;
1159:
1160: fnd_message.set_name('WMS', 'WMS_DROP_LPN_NO_MTL');
1161: fnd_msg_pub.ADD;
1162: RAISE FND_API.G_EXC_ERROR;
1163: END IF;
1164: CLOSE c_check_txns;
1165:
1166: l_progress := 20;
1168: --
1169: -- Bug 4884284: insert WDT records for child MMTT records
1170: -- prior to calling ATF locator suggestion
1171: --
1172: l_api_return_status := fnd_api.g_ret_sts_success;
1173: insert_wdt
1174: ( x_return_status => l_api_return_status
1175: , p_organization_id => p_organization_id
1176: , p_transfer_lpn_id => p_transfer_lpn_id
1175: , p_organization_id => p_organization_id
1176: , p_transfer_lpn_id => p_transfer_lpn_id
1177: );
1178:
1179: IF l_api_return_status <> fnd_api.g_ret_sts_success
1180: THEN
1181: IF l_debug = 1 THEN
1182: print_debug
1183: ( 'Error from insert_wdt'
1183: ( 'Error from insert_wdt'
1184: , l_api_name
1185: );
1186: END IF;
1187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1188: END IF;
1189:
1190: --
1191: -- This API just updates transfer_locator of each MMTT record for
1194: --
1195: -- This API needs to be called even if the LPN is cached since
1196: -- the updates to MMTT would be lost due to a rollback.
1197: --
1198: l_api_return_status := fnd_api.g_ret_sts_success;
1199: wms_op_runtime_pub_apis.update_drop_locator_for_task
1200: ( x_return_status => l_api_return_status
1201: , x_message => l_message
1202: , x_drop_lpn_option => l_drop_lpn_option
1212: , l_api_name
1213: );
1214: END IF;
1215:
1216: IF l_api_return_status NOT IN (fnd_api.g_ret_sts_success,'W') THEN
1217: IF (l_debug = 1) THEN
1218: print_debug('Error status from update_drop_locator_for_task: ' || l_api_return_status
1219: , l_api_name);
1220: END IF;
1218: print_debug('Error status from update_drop_locator_for_task: ' || l_api_return_status
1219: , l_api_name);
1220: END IF;
1221:
1222: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1223: RAISE fnd_api.g_exc_error;
1224: ELSE
1225: RAISE fnd_api.g_exc_unexpected_error;
1226: END IF;
1219: , l_api_name);
1220: END IF;
1221:
1222: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1223: RAISE fnd_api.g_exc_error;
1224: ELSE
1225: RAISE fnd_api.g_exc_unexpected_error;
1226: END IF;
1227: ELSE
1221:
1222: IF l_api_return_status = fnd_api.g_ret_sts_error THEN
1223: RAISE fnd_api.g_exc_error;
1224: ELSE
1225: RAISE fnd_api.g_exc_unexpected_error;
1226: END IF;
1227: ELSE
1228: IF (l_debug = 1) THEN
1229: print_debug('update_drop_locator_for_task returned success', l_api_name);
1266: END IF;
1267:
1268: fnd_message.set_name('WMS', 'WMS_DROP_LPN_NO_MTL');
1269: fnd_msg_pub.ADD;
1270: RAISE FND_API.G_EXC_ERROR;
1271: ELSE
1272: x_first_temp_id := l_txn_temp_id;
1273: x_txn_type_id := l_txn_type_id;
1274: END IF;
1272: x_first_temp_id := l_txn_temp_id;
1273: x_txn_type_id := l_txn_type_id;
1274: END IF;
1275:
1276: l_api_return_status := fnd_api.g_ret_sts_success;
1277: get_group_info
1278: ( x_drop_type => x_drop_type
1279: , x_bulk_pick => x_bulk_pick
1280: , x_delivery_id => x_delivery_id
1282: , x_return_status => l_api_return_status
1283: , p_txn_temp_id => l_txn_temp_id
1284: );
1285:
1286: IF l_api_return_status <> fnd_api.g_ret_sts_success
1287: THEN
1288: IF l_debug = 1 THEN
1289: print_debug
1290: ( 'Error from get_group_info'
1290: ( 'Error from get_group_info'
1291: , l_api_name
1292: );
1293: END IF;
1294: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1295: END IF;
1296:
1297: l_progress := 45;
1298:
1320: --
1321: -- LPN in cache is different from passed in LPN
1322: --
1323: IF l_debug = 1 THEN print_debug ( 'ELSE LPN info already cached ..clear_lpn_cache' , l_api_name); END IF;
1324: l_api_return_status := fnd_api.g_ret_sts_success;
1325: clear_lpn_cache(l_api_return_status);
1326:
1327: IF l_api_return_status <> fnd_api.g_ret_sts_success
1328: THEN
1323: IF l_debug = 1 THEN print_debug ( 'ELSE LPN info already cached ..clear_lpn_cache' , l_api_name); END IF;
1324: l_api_return_status := fnd_api.g_ret_sts_success;
1325: clear_lpn_cache(l_api_return_status);
1326:
1327: IF l_api_return_status <> fnd_api.g_ret_sts_success
1328: THEN
1329: IF l_debug = 1 THEN
1330: print_debug ('Error from clear_lpn_cache', l_api_name);
1331: END IF;
1328: THEN
1329: IF l_debug = 1 THEN
1330: print_debug ('Error from clear_lpn_cache', l_api_name);
1331: END IF;
1332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1333: END IF;
1334: END IF;
1335:
1336: g_current_drop_lpn.lpn_id := p_transfer_lpn_id;
1373:
1374: IF l_drop_count > 1 THEN
1375: g_current_drop_lpn.multiple_drops := 'TRUE';
1376: x_multiple_drops := 'TRUE';
1377: x_return_status := fnd_api.g_ret_sts_success;
1378: RETURN;
1379: END IF;
1380:
1381: l_progress := 70;
1393:
1394: IF l_drop_count > 1 THEN
1395: g_current_drop_lpn.multiple_drops := 'TRUE';
1396: x_multiple_drops := 'TRUE';
1397: x_return_status := fnd_api.g_ret_sts_success;
1398: RETURN;
1399: END IF;
1400:
1401: l_progress := 80;
1450: p_line_rows => l_line_rows,
1451: x_grouping_rows => l_grouping_rows,
1452: x_return_status => l_return_status);
1453: --
1454: IF (l_return_status = FND_API.G_RET_STS_SUCCESS) THEN
1455: l_same_carton_grouping := TRUE;
1456: FOR i IN (l_grouping_rows.FIRST+1) .. l_grouping_rows.LAST LOOP
1457: IF (l_grouping_rows(i-1) <> l_grouping_rows(i)) THEN
1458: l_same_carton_grouping := FALSE;
1519: END IF;
1520: ELSE
1521: IF l_debug = 1 THEN
1522: print_debug ('Unknown transaction', l_api_name);
1523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1524: END IF;
1525: END IF;
1526:
1527: l_progress := 100;
1528:
1529: IF l_drop_count > 1 THEN
1530: g_current_drop_lpn.multiple_drops := 'TRUE';
1531: x_multiple_drops := 'TRUE';
1532: x_return_status := fnd_api.g_ret_sts_success;
1533: ELSIF l_drop_count = 1 THEN
1534: g_current_drop_lpn.multiple_drops := 'FALSE';
1535: x_multiple_drops := 'FALSE';
1536: ELSIF l_drop_count = 0 THEN
1539: ( 'LPN has leftover MMTT records that cannot be processed'
1540: , l_api_name
1541: );
1542: END IF;
1543: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1544: ELSE
1545: IF l_debug = 1 THEN
1546: print_debug
1547: ( 'Invalid drop count: ' || to_char(l_drop_count)
1547: ( 'Invalid drop count: ' || to_char(l_drop_count)
1548: , l_api_name
1549: );
1550: END IF;
1551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1552: END IF;
1553:
1554: EXCEPTION
1555: WHEN fnd_api.g_exc_error THEN
1551: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1552: END IF;
1553:
1554: EXCEPTION
1555: WHEN fnd_api.g_exc_error THEN
1556: ROLLBACK TO chk_if_d_sp;
1557:
1558: x_return_status := fnd_api.g_ret_sts_error;
1559:
1554: EXCEPTION
1555: WHEN fnd_api.g_exc_error THEN
1556: ROLLBACK TO chk_if_d_sp;
1557:
1558: x_return_status := fnd_api.g_ret_sts_error;
1559:
1560: fnd_msg_pub.count_and_get
1561: ( p_count => l_msg_count
1562: , p_data => l_msg_data
1559:
1560: fnd_msg_pub.count_and_get
1561: ( p_count => l_msg_count
1562: , p_data => l_msg_data
1563: , p_encoded => fnd_api.g_false
1564: );
1565:
1566: IF l_debug = 1 THEN
1567: print_debug (l_msg_data, l_api_name);
1570:
1571: WHEN OTHERS THEN
1572: ROLLBACK TO chk_if_d_sp;
1573:
1574: x_return_status := fnd_api.g_ret_sts_unexp_error;
1575:
1576: IF l_debug = 1 THEN
1577: print_debug ('Other error: ' || sqlerrm, l_api_name);
1578: print_debug ('l_progress = ' || to_char(l_progress), l_api_name);
1692: FROM mtl_serial_numbers_temp msnt
1693: WHERE msnt.transaction_temp_id = p_temp_id;
1694:
1695: BEGIN
1696: x_return_status := fnd_api.g_ret_sts_success;
1697:
1698: IF l_debug = 1 THEN
1699: print_debug
1700: ( 'Entered with parameters: ' || g_newline ||
1735: , l_api_name
1736: );
1737: END IF;
1738: CLOSE c_mmtt_info;
1739: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1740: ELSE
1741: IF l_debug = 1 THEN
1742: print_debug
1743: ( 'Fetched temp ID: ' || to_char(l_transaction_temp_id) || g_newline ||
1925: ( 'Unexpected error inserting content LPN: ' || sqlerrm
1926: , l_api_name
1927: );
1928: END IF;
1929: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1930: END;
1931: ELSIF p_drop_type = 'WIP_ISSUE'
1932: OR
1933: p_drop_type = 'WIP_SUB_XFER'
2013: ( 'Unexpected error updating record for WIP drop ' || sqlerrm
2014: , l_api_name
2015: );
2016: END IF;
2017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2018: END;
2019: ELSIF NVL(l_lot_alloc,'N') = 'Y'
2020: THEN
2021: OPEN c_lot_details (l_transaction_temp_id);
2030: , l_api_name
2031: );
2032: END IF;
2033: CLOSE c_lot_details;
2034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2035: END IF;
2036:
2037: IF c_lot_details%ISOPEN
2038: THEN
2147: ( 'Unexpected error checking if lot exists: ' || sqlerrm
2148: , l_api_name
2149: );
2150: END IF;
2151: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2152: END;
2153:
2154: IF NVL(l_serial_alloc,'N') = 'Y'
2155: THEN
2210: END IF;
2211: IF c_srl_lot_details%ISOPEN THEN
2212: CLOSE c_srl_lot_details;
2213: END IF;
2214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2215: END;
2216: END LOOP;
2217: END IF; -- end if serials allocated for lot item
2218: ELSIF NVL(l_serial_alloc,'N') = 'Y' THEN
2306: END IF;
2307: IF c_srl_numbers%ISOPEN THEN
2308: CLOSE c_srl_numbers;
2309: END IF;
2310: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2311: END;
2312: END LOOP;
2313: ELSE
2314: --
2429: , l_api_name
2430: );
2431: END IF;
2432:
2433: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2434: END IF;
2435:
2436: END IF;
2437:
2565: 'vanilla/revision/serial (not allocated) exists: ' || sqlerrm
2566: , l_api_name
2567: );
2568: END IF;
2569: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2570: END;
2571: END IF;
2572:
2573: IF ii < jj THEN
2589: EXCEPTION
2590: WHEN OTHERS THEN
2591: ROLLBACK to group_drop_det_sp;
2592:
2593: x_return_status := fnd_api.g_ret_sts_unexp_error;
2594:
2595: IF l_debug = 1 THEN
2596: print_debug ('Other error: ' || sqlerrm, l_api_name);
2597: END IF;
2615:
2616: l_new_temp_id NUMBER;
2617:
2618: BEGIN
2619: x_return_status := fnd_api.g_ret_sts_success;
2620:
2621: IF l_debug = 1 THEN
2622: print_debug
2623: ( 'Entered with p_temp_id => ' || to_char(p_temp_id)
3097: EXCEPTION
3098: WHEN OTHERS THEN
3099: ROLLBACK to split_mmtt_sp;
3100:
3101: x_return_status := fnd_api.g_ret_sts_unexp_error;
3102:
3103: IF l_debug = 1 THEN
3104: print_debug ('Other error: ' || sqlerrm, l_api_name);
3105: END IF;
3130: TYPE cur_typ IS REF CURSOR; -- For bug#9247514
3131: l_mmtt_cur cur_typ; -- For bug#9247514
3132:
3133: BEGIN
3134: x_return_status := fnd_api.g_ret_sts_success;
3135:
3136: IF l_debug = 1 THEN
3137: print_debug
3138: ( 'Entered with parameters: ' || g_newline ||
3230: END LOOP;
3231:
3232: EXCEPTION
3233: WHEN OTHERS THEN
3234: x_return_status := fnd_api.g_ret_sts_unexp_error;
3235:
3236: IF l_debug = 1 THEN
3237: print_debug ('Other error: ' || sqlerrm, l_api_name);
3238: END IF;
3278:
3279: lot_dtl_rec c_get_lot_details%ROWTYPE;
3280:
3281: BEGIN
3282: x_return_status := fnd_api.g_ret_sts_success;
3283:
3284: SAVEPOINT split_lots_sp;
3285:
3286: l_api_return_status := fnd_api.g_ret_sts_success;
3282: x_return_status := fnd_api.g_ret_sts_success;
3283:
3284: SAVEPOINT split_lots_sp;
3285:
3286: l_api_return_status := fnd_api.g_ret_sts_success;
3287: get_temp_list
3288: ( x_temp_tbl => l_temp_tbl
3289: , x_return_status => l_api_return_status
3290: , p_group_num => NULL
3290: , p_group_num => NULL
3291: , p_status => NULL
3292: );
3293:
3294: IF l_api_return_status <> fnd_api.g_ret_sts_success
3295: THEN
3296: IF l_debug = 1 THEN
3297: print_debug ('Error from get_temp_list', l_api_name);
3298: END IF;
3295: THEN
3296: IF l_debug = 1 THEN
3297: print_debug ('Error from get_temp_list', l_api_name);
3298: END IF;
3299: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3300: END IF;
3301:
3302: IF l_temp_tbl.COUNT > 0 THEN
3303: ii := l_temp_tbl.FIRST;
3353: END IF;
3354:
3355: WHILE (c_get_lot_details%FOUND)
3356: LOOP
3357: l_api_return_status := fnd_api.g_ret_sts_success;
3358: split_mmtt
3359: ( x_new_temp_id => l_transaction_temp_id
3360: , x_return_status => l_api_return_status
3361: , p_temp_id => l_orig_temp_id
3360: , x_return_status => l_api_return_status
3361: , p_temp_id => l_orig_temp_id
3362: );
3363:
3364: IF l_api_return_status <> fnd_api.g_ret_sts_success
3365: THEN
3366: IF l_debug = 1 THEN
3367: print_debug ('Error from split_mmtt', l_api_name);
3368: END IF;
3365: THEN
3366: IF l_debug = 1 THEN
3367: print_debug ('Error from split_mmtt', l_api_name);
3368: END IF;
3369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3370: END IF;
3371:
3372: UPDATE mtl_material_transactions_temp
3373: SET transaction_quantity = transaction_quantity
3445: EXCEPTION
3446: WHEN OTHERS THEN
3447: ROLLBACK to split_lots_sp;
3448:
3449: x_return_status := fnd_api.g_ret_sts_unexp_error;
3450:
3451: IF c_get_lot_details%ISOPEN
3452: THEN
3453: CLOSE c_get_lot_details;
3473: -- p_organization_id - Org ID
3474: -- p_transfer_lpn_id - LPN being dropped
3475: --
3476: -- Output Parameters
3477: -- x_return_status - fnd_api.g_ret_sts_error
3478: -- - fnd_api.g_ret_sts_unexp_error
3479: --
3480:
3481: PROCEDURE fetch_next_drop
3474: -- p_transfer_lpn_id - LPN being dropped
3475: --
3476: -- Output Parameters
3477: -- x_return_status - fnd_api.g_ret_sts_error
3478: -- - fnd_api.g_ret_sts_unexp_error
3479: --
3480:
3481: PROCEDURE fetch_next_drop
3482: ( x_drop_type OUT NOCOPY VARCHAR2
3783: WHERE mmtt.transaction_temp_id = p_temp_id;
3784:
3785: BEGIN
3786:
3787: x_return_status := fnd_api.g_ret_sts_success;
3788:
3789: IF l_debug = 1 THEN
3790: print_debug
3791: ( 'Entered with parameters: ' || g_newline ||
3976: p_line_rows => l_line_rows,
3977: x_grouping_rows => l_grouping_rows,
3978: x_return_status => l_return_status);
3979: --
3980: IF (l_return_status = FND_API.G_RET_STS_SUCCESS
3981: AND l_grouping_rows (1) = l_grouping_rows(2) ) THEN
3982:
3983: IF l_debug = 1 THEN
3984: print_debug
4024: IF NOT g_current_drop_lpn.current_drop_list.COUNT > 0
4025: THEN
4026: fnd_message.set_name('WMS', 'WMS_DROP_LPN_NO_MTL');
4027: fnd_msg_pub.ADD;
4028: RAISE FND_API.G_EXC_ERROR;
4029: END IF;
4030:
4031: ELSE
4032: IF l_debug = 1 THEN
4037: END IF;
4038:
4039: fnd_message.set_name('WMS', 'WMS_DROP_LPN_NO_MTL');
4040: fnd_msg_pub.ADD;
4041: RAISE FND_API.G_EXC_ERROR;
4042: END IF; -- end if c_remaining_tasks%FOUND
4043:
4044: l_progress := 40;
4045:
4059: l_transaction_temp_id := g_current_drop_lpn.current_drop_list.FIRST;
4060:
4061: x_first_temp_id := l_transaction_temp_id;
4062:
4063: l_api_return_status := fnd_api.g_ret_sts_success;
4064: get_group_info
4065: ( x_drop_type => x_drop_type
4066: , x_bulk_pick => x_bulk_pick
4067: , x_delivery_id => x_delivery_id
4069: , x_return_status => l_api_return_status
4070: , p_txn_temp_id => l_transaction_temp_id
4071: );
4072:
4073: IF l_api_return_status <> fnd_api.g_ret_sts_success
4074: THEN
4075: IF l_debug = 1 THEN
4076: print_debug
4077: ( 'Error from get_group_info'
4077: ( 'Error from get_group_info'
4078: , l_api_name
4079: );
4080: END IF;
4081: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4082: END IF;
4083:
4084: --
4085: -- Don't deconsolidate replenishments
4094: -- This is required so that we do not have more than
4095: -- one lot/revision per temp ID, and one temp ID
4096: -- will only belong to one group in the drop page.
4097: --
4098: l_api_return_status := fnd_api.g_ret_sts_success;
4099: split_lots(x_return_status => l_api_return_status);
4100:
4101: IF l_api_return_status <> fnd_api.g_ret_sts_success
4102: THEN
4097: --
4098: l_api_return_status := fnd_api.g_ret_sts_success;
4099: split_lots(x_return_status => l_api_return_status);
4100:
4101: IF l_api_return_status <> fnd_api.g_ret_sts_success
4102: THEN
4103: IF l_debug = 1 THEN
4104: print_debug
4105: ( 'Error from split_lots'
4105: ( 'Error from split_lots'
4106: , l_api_name
4107: );
4108: END IF;
4109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4110: END IF;
4111:
4112: l_api_return_status := fnd_api.g_ret_sts_success;
4113: group_drop_details(x_drop_type, l_api_return_status);
4108: END IF;
4109: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4110: END IF;
4111:
4112: l_api_return_status := fnd_api.g_ret_sts_success;
4113: group_drop_details(x_drop_type, l_api_return_status);
4114:
4115: IF l_api_return_status <> fnd_api.g_ret_sts_success
4116: THEN
4111:
4112: l_api_return_status := fnd_api.g_ret_sts_success;
4113: group_drop_details(x_drop_type, l_api_return_status);
4114:
4115: IF l_api_return_status <> fnd_api.g_ret_sts_success
4116: THEN
4117: IF l_debug = 1 THEN
4118: print_debug
4119: ( 'Error from group_drop_details'
4119: ( 'Error from group_drop_details'
4120: , l_api_name
4121: );
4122: END IF;
4123: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4124: END IF;
4125:
4126: BEGIN
4127: SELECT count(*)
4180: || to_char(l_count)
4181: , l_api_name
4182: );
4183: END IF;
4184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4185: END IF;
4186: END IF;
4187:
4188: x_total_qty:=g_total_qty; -- Added for bug 12853197
4187:
4188: x_total_qty:=g_total_qty; -- Added for bug 12853197
4189:
4190: EXCEPTION
4191: WHEN fnd_api.g_exc_error THEN
4192: x_return_status := fnd_api.g_ret_sts_error;
4193:
4194: fnd_msg_pub.count_and_get
4195: ( p_count => l_msg_count
4188: x_total_qty:=g_total_qty; -- Added for bug 12853197
4189:
4190: EXCEPTION
4191: WHEN fnd_api.g_exc_error THEN
4192: x_return_status := fnd_api.g_ret_sts_error;
4193:
4194: fnd_msg_pub.count_and_get
4195: ( p_count => l_msg_count
4196: , p_data => l_msg_data
4193:
4194: fnd_msg_pub.count_and_get
4195: ( p_count => l_msg_count
4196: , p_data => l_msg_data
4197: , p_encoded => fnd_api.g_false
4198: );
4199:
4200: IF l_debug = 1 THEN
4201: print_debug (l_msg_data, l_api_name);
4208:
4209: x_total_qty:=g_total_qty; -- Added for bug 12853197
4210:
4211: WHEN OTHERS THEN
4212: x_return_status := fnd_api.g_ret_sts_unexp_error;
4213:
4214: IF l_debug = 1 THEN
4215: print_debug ('Other error: ' || sqlerrm, l_api_name);
4216: print_debug ('l_progress = ' || to_char(l_progress), l_api_name);
4264: AND mtrl.txn_source_id = we.wip_entity_id
4265: AND mtrl.organization_id = we.organization_id;
4266:
4267: BEGIN
4268: x_return_status := fnd_api.g_ret_sts_success;
4269:
4270: IF l_debug = 1 THEN
4271: print_debug
4272: ( 'Entered with parameters: ' || g_newline ||
4292: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
4293: , l_api_name
4294: );
4295: END IF;
4296: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4297: END IF;
4298:
4299: l_transaction_temp_id := g_current_drop_lpn.current_drop_list.FIRST;
4300:
4315: ( 'Unable to determine entity type'
4316: , l_api_name
4317: );
4318: END IF;
4319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4320: END IF;
4321:
4322: x_entity_type := l_wip_entity_type;
4323:
4320: END IF;
4321:
4322: x_entity_type := l_wip_entity_type;
4323:
4324: l_api_return_status := fnd_api.g_ret_sts_success;
4325: wms_wip_integration.get_wip_job_info
4326: ( p_temp_id => l_transaction_temp_id
4327: , p_wip_entity_type => l_wip_entity_type
4328: , x_job => x_job
4336: , x_msg_count => l_msg_count
4337: , x_msg_data => l_msg_data
4338: );
4339:
4340: IF l_api_return_status <> fnd_api.g_ret_sts_success
4341: THEN
4342: IF l_debug = 1 THEN
4343: print_debug
4344: ( 'wms_wip_integration.get_wip_job_info returned status '
4345: || l_api_return_status
4346: , l_api_name
4347: );
4348: END IF;
4349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4350: ELSE
4351: IF l_debug = 1 THEN
4352: print_debug
4353: ( 'Return values from wms_wip_integration.get_wip_job_info: '
4363: END IF;
4364: END IF;
4365:
4366: EXCEPTION
4367: WHEN fnd_api.g_exc_error THEN
4368: x_return_status := fnd_api.g_ret_sts_error;
4369:
4370: fnd_msg_pub.count_and_get
4371: ( p_count => l_msg_count
4364: END IF;
4365:
4366: EXCEPTION
4367: WHEN fnd_api.g_exc_error THEN
4368: x_return_status := fnd_api.g_ret_sts_error;
4369:
4370: fnd_msg_pub.count_and_get
4371: ( p_count => l_msg_count
4372: , p_data => l_msg_data
4369:
4370: fnd_msg_pub.count_and_get
4371: ( p_count => l_msg_count
4372: , p_data => l_msg_data
4373: , p_encoded => fnd_api.g_false
4374: );
4375:
4376: IF l_debug = 1 THEN
4377: print_debug (l_msg_data, l_api_name);
4377: print_debug (l_msg_data, l_api_name);
4378: END IF;
4379:
4380: WHEN OTHERS THEN
4381: x_return_status := fnd_api.g_ret_sts_unexp_error;
4382:
4383: IF l_debug = 1 THEN
4384: print_debug ('Other error: ' || sqlerrm, l_api_name);
4385: END IF;
4420: FROM mtl_material_transactions_temp mmtt
4421: WHERE mmtt.transaction_temp_id = p_temp_id;
4422:
4423: BEGIN
4424: x_return_status := fnd_api.g_ret_sts_success;
4425:
4426: IF l_debug = 1 THEN
4427: print_debug
4428: ('Entered with parameters: ' || g_newline ||
4444: || g_newline || 'Cached Org ID: ' || to_char(g_current_drop_lpn.organization_id)
4445: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
4446: , l_api_name);
4447: END IF;
4448: RAISE fnd_api.g_exc_unexpected_error;
4449: END IF;
4450:
4451: l_transaction_temp_id := g_current_drop_lpn.current_drop_list.FIRST;
4452:
4495: END IF;
4496:
4497: EXCEPTION
4498: WHEN OTHERS THEN
4499: x_return_status := fnd_api.g_ret_sts_unexp_error;
4500:
4501: IF l_debug = 1 THEN
4502: print_debug ('Other error: ' || sqlerrm, l_api_name);
4503: END IF;
4546: FROM wms_license_plate_numbers wlpn
4547: WHERE wlpn.lpn_id = p_lpn_id;
4548:
4549: BEGIN
4550: x_return_status := fnd_api.g_ret_sts_success;
4551: x_drop_lpn_num := NULL;
4552:
4553: fnd_msg_pub.initialize;
4554:
4583: END IF;
4584:
4585: EXCEPTION
4586: WHEN OTHERS THEN
4587: x_return_status := fnd_api.g_ret_sts_unexp_error;
4588:
4589: IF l_debug = 1 THEN
4590: print_debug ('Other error: ' || sqlerrm, l_api_name);
4591: END IF;
4787:
4788: lot_details_rec c_get_lot_records%ROWTYPE;
4789:
4790: BEGIN
4791: x_return_status := fnd_api.g_ret_sts_success;
4792:
4793: IF l_debug = 1 THEN
4794: print_debug
4795: ( 'Entered with parameters: ' || g_newline ||
4847: , l_api_name
4848: );
4849: END IF;
4850:
4851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4852: END;
4853:
4854: IF NOT l_lot_controlled
4855: THEN
4865: , l_api_name
4866: );
4867: END IF;
4868: CLOSE c_get_msnt;
4869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4870: END IF;
4871:
4872: WHILE ( (c_get_msnt%FOUND)
4873: AND
4910: || to_char(l_srl_qty)
4911: , l_api_name
4912: );
4913: END IF;
4914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4915: END IF;
4916:
4917: ELSE
4918: --
4946: , l_api_name
4947: );
4948: END IF;
4949: CLOSE c_get_lot_msnt;
4950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4951: ELSE
4952: IF l_debug = 1 THEN
4953: print_debug
4954: ( 'Fetched serial record for lot ' || lot_details_rec.lot_number
5013: || to_char(l_srl_qty)
5014: , l_api_name
5015: );
5016: END IF;
5017: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5018: END IF;
5019:
5020: FETCH c_get_lot_records INTO lot_details_rec;
5021: END LOOP; -- done looping through lots
5024: EXCEPTION
5025: WHEN OTHERS THEN
5026: ROLLBACK TO insert_msnt_sp;
5027:
5028: x_return_status := fnd_api.g_ret_sts_unexp_error;
5029:
5030: IF l_debug = 1 THEN
5031: print_debug ('Other error: ' || sqlerrm, l_api_name);
5032: END IF;
5100: AND mmtt.content_lpn_id <> mmtt.transfer_lpn_id
5101: AND mmtt.content_lpn_id = wlpn.lpn_id;
5102:
5103: BEGIN
5104: x_return_status := fnd_api.g_ret_sts_success;
5105:
5106: fnd_msg_pub.initialize;
5107:
5108: IF l_debug = 1 THEN
5143: END IF;
5144:
5145: fnd_message.set_name('WMS', 'WMS_LPN_NOT_IN_OUTER');
5146: fnd_msg_pub.ADD;
5147: RAISE FND_API.G_EXC_ERROR;
5148: ELSE
5149: IF l_debug = 1 THEN
5150: print_debug
5151: ( 'Found scanned LPN ' || p_lpn ||
5161: THEN
5162: CLOSE c_get_inner_lpn_details;
5163: END IF;
5164:
5165: l_api_return_status := fnd_api.g_ret_sts_success;
5166: get_temp_list
5167: ( x_temp_tbl => l_temp_tbl
5168: , x_return_status => l_api_return_status
5169: , p_group_num => p_group_number
5169: , p_group_num => p_group_number
5170: , p_status => 'PENDING'
5171: );
5172:
5173: IF l_api_return_status <> fnd_api.g_ret_sts_success
5174: THEN
5175: IF l_debug = 1 THEN
5176: print_debug ('Error from get_temp_list', l_api_name);
5177: END IF;
5174: THEN
5175: IF l_debug = 1 THEN
5176: print_debug ('Error from get_temp_list', l_api_name);
5177: END IF;
5178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5179: ELSIF NOT (l_temp_tbl.COUNT > 0)
5180: THEN
5181: IF l_debug = 1 THEN
5182: print_debug ('get_temp_list returned no MMTT records', l_api_name);
5180: THEN
5181: IF l_debug = 1 THEN
5182: print_debug ('get_temp_list returned no MMTT records', l_api_name);
5183: END IF;
5184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5185: ELSE
5186: IF l_debug = 1 THEN
5187: print_debug
5188: ( 'MMTT record count from get_temp_list: '
5277: IF x_ret_code = 2
5278: AND
5279: p_serial_control = 'TRUE'
5280: THEN
5281: l_api_return_status := fnd_api.g_ret_sts_success;
5282: insert_child_msnt
5283: ( x_return_status => l_api_return_status
5284: , p_temp_id => l_transaction_temp_id
5285: , p_parent_tmp_id => l_parent_temp_id
5284: , p_temp_id => l_transaction_temp_id
5285: , p_parent_tmp_id => l_parent_temp_id
5286: , p_txn_header_id => l_txn_header_id
5287: );
5288: IF l_api_return_status <> fnd_api.g_ret_sts_success
5289: THEN
5290: IF l_debug = 1 THEN
5291: print_debug ('Error from insert_child_msnt', l_api_name);
5292: END IF;
5289: THEN
5290: IF l_debug = 1 THEN
5291: print_debug ('Error from insert_child_msnt', l_api_name);
5292: END IF;
5293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5294: ELSE
5295: IF l_debug = 1 THEN
5296: print_debug ('Success status from insert_child_msnt', l_api_name);
5297: END IF;
5385: );
5386: END IF;
5387:
5388: ELSE
5389: l_api_return_status := fnd_api.g_ret_sts_success;
5390: split_mmtt
5391: ( x_new_temp_id => l_new_temp_id
5392: , x_return_status => l_api_return_status
5393: , p_temp_id => l_transaction_temp_id
5392: , x_return_status => l_api_return_status
5393: , p_temp_id => l_transaction_temp_id
5394: );
5395:
5396: IF l_api_return_status <> fnd_api.g_ret_sts_success
5397: THEN
5398: IF l_debug = 1 THEN
5399: print_debug
5400: ( 'split_mmtt returned status ' || l_api_return_status
5400: ( 'split_mmtt returned status ' || l_api_return_status
5401: , l_api_name
5402: );
5403: END IF;
5404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5405: END IF;
5406:
5407: UPDATE mtl_material_transactions_temp
5408: SET transaction_quantity = DECODE( transaction_uom
5464: g_current_drop_lpn.current_drop_list(l_transaction_temp_id) := 'DONE';
5465:
5466: IF p_serial_control = 'TRUE'
5467: THEN
5468: l_api_return_status := fnd_api.g_ret_sts_success;
5469: insert_child_msnt
5470: ( x_return_status => l_api_return_status
5471: , p_temp_id => l_transaction_temp_id
5472: , p_parent_tmp_id => l_parent_temp_id
5471: , p_temp_id => l_transaction_temp_id
5472: , p_parent_tmp_id => l_parent_temp_id
5473: , p_txn_header_id => l_txn_header_id
5474: );
5475: IF l_api_return_status <> fnd_api.g_ret_sts_success
5476: THEN
5477: IF l_debug = 1 THEN
5478: print_debug ('Error from insert_child_msnt', l_api_name);
5479: END IF;
5476: THEN
5477: IF l_debug = 1 THEN
5478: print_debug ('Error from insert_child_msnt', l_api_name);
5479: END IF;
5480: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5481: ELSE
5482: IF l_debug = 1 THEN
5483: print_debug ('Success status from insert_child_msnt', l_api_name);
5484: END IF;
5514: ( 'Some qty remaining: ' || to_char(l_remaining_qty)
5515: , l_api_name
5516: );
5517: END IF;
5518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5519: END IF;
5520:
5521: END IF; -- checking LPN avail qty against entered qty
5522:
5578:
5579: l_temp_tbl.DELETE;
5580:
5581: EXCEPTION
5582: WHEN fnd_api.g_exc_error THEN
5583: ROLLBACK to process_lpn_sp;
5584:
5585: x_return_status := fnd_api.g_ret_sts_error;
5586:
5581: EXCEPTION
5582: WHEN fnd_api.g_exc_error THEN
5583: ROLLBACK to process_lpn_sp;
5584:
5585: x_return_status := fnd_api.g_ret_sts_error;
5586:
5587: fnd_msg_pub.count_and_get
5588: ( p_count => l_msg_count
5589: , p_data => l_msg_data
5586:
5587: fnd_msg_pub.count_and_get
5588: ( p_count => l_msg_count
5589: , p_data => l_msg_data
5590: , p_encoded => fnd_api.g_false
5591: );
5592:
5593: IF l_debug = 1 THEN
5594: print_debug (l_msg_data, l_api_name);
5596:
5597: WHEN OTHERS THEN
5598: ROLLBACK to process_lpn_sp;
5599:
5600: x_return_status := fnd_api.g_ret_sts_unexp_error;
5601:
5602: IF l_debug = 1 THEN
5603: print_debug ('Other error: ' || sqlerrm, l_api_name);
5604: END IF;
5706:
5707: parent_rec c_get_parent_attributes%ROWTYPE;
5708:
5709: BEGIN
5710: x_return_status := fnd_api.g_ret_sts_success;
5711:
5712: fnd_msg_pub.initialize;
5713:
5714: IF l_debug = 1 THEN
5745: END IF;
5746:
5747: fnd_message.set_name('WMS', 'WMS_NOT_ENOUGH_LOOSE_QTY');
5748: fnd_msg_pub.ADD;
5749: RAISE FND_API.G_EXC_ERROR;
5750: ELSE
5751: IF l_debug = 1 THEN
5752: print_debug
5753: ( 'Available loose qty: ' || to_char(l_available_qty)
5755: );
5756: END IF;
5757: END IF;
5758:
5759: l_api_return_status := fnd_api.g_ret_sts_success;
5760: get_temp_list
5761: ( x_temp_tbl => l_temp_tbl
5762: , x_return_status => l_api_return_status
5763: , p_group_num => p_group_number
5763: , p_group_num => p_group_number
5764: , p_status => 'PENDING'
5765: );
5766:
5767: IF l_api_return_status <> fnd_api.g_ret_sts_success
5768: THEN
5769: IF l_debug = 1 THEN
5770: print_debug ('Error from get_temp_list', l_api_name);
5771: END IF;
5768: THEN
5769: IF l_debug = 1 THEN
5770: print_debug ('Error from get_temp_list', l_api_name);
5771: END IF;
5772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5773: ELSIF NOT (l_temp_tbl.COUNT > 0)
5774: THEN
5775: IF l_debug = 1 THEN
5776: print_debug ('get_temp_list returned no MMTT records', l_api_name);
5774: THEN
5775: IF l_debug = 1 THEN
5776: print_debug ('get_temp_list returned no MMTT records', l_api_name);
5777: END IF;
5778: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5779: ELSE
5780: IF l_debug = 1 THEN
5781: print_debug
5782: ( 'MMTT record count from get_temp_list: '
5841: l_process_tbl(kk) := l_transaction_temp_id;
5842: kk := kk + 1;
5843:
5844: ELSE
5845: l_api_return_status := fnd_api.g_ret_sts_success;
5846: split_mmtt
5847: ( x_new_temp_id => l_new_temp_id
5848: , x_return_status => l_api_return_status
5849: , p_temp_id => l_transaction_temp_id
5848: , x_return_status => l_api_return_status
5849: , p_temp_id => l_transaction_temp_id
5850: );
5851:
5852: IF l_api_return_status <> fnd_api.g_ret_sts_success
5853: THEN
5854: IF l_debug = 1 THEN
5855: print_debug
5856: ( 'split_mmtt returned status ' || l_api_return_status
5856: ( 'split_mmtt returned status ' || l_api_return_status
5857: , l_api_name
5858: );
5859: END IF;
5860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5861: END IF;
5862:
5863: UPDATE mtl_material_transactions_temp
5864: SET transaction_quantity = DECODE( transaction_uom
5939: ( 'Some qty remaining: ' || to_char(l_remaining_qty)
5940: , l_api_name
5941: );
5942: END IF;
5943: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5944: END IF;
5945:
5946: OPEN c_get_parents
5947: ( g_current_drop_lpn.lpn_id
5956: THEN
5957: IF l_debug = 1 THEN
5958: print_debug ('No parent MMTT records found', l_api_name);
5959: END IF;
5960: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5961: ELSE
5962: IF l_debug = 1 THEN
5963: print_debug
5964: ( 'MMTT parent record count: '
6046: , reservation_quantity - l_mmtt_qty
6047: )
6048: WHERE mmtt.transaction_temp_id = l_parent_temp_id;
6049: ELSE
6050: l_api_return_status := fnd_api.g_ret_sts_success;
6051: split_mmtt
6052: ( x_new_temp_id => l_new_temp_id
6053: , x_return_status => l_api_return_status
6054: , p_temp_id => l_transaction_temp_id
6053: , x_return_status => l_api_return_status
6054: , p_temp_id => l_transaction_temp_id
6055: );
6056:
6057: IF l_api_return_status <> fnd_api.g_ret_sts_success
6058: THEN
6059: IF l_debug = 1 THEN
6060: print_debug
6061: ( 'split_mmtt returned status ' || l_api_return_status
6061: ( 'split_mmtt returned status ' || l_api_return_status
6062: , l_api_name
6063: );
6064: END IF;
6065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6066: END IF;
6067:
6068: UPDATE mtl_material_transactions_temp
6069: SET transaction_quantity = DECODE( transaction_uom
6154: ( 'No parent records remaining, and not all child records processed.'
6155: , l_api_name
6156: );
6157: END IF;
6158: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6159: END IF;
6160:
6161: OPEN c_get_parent_attributes (l_parent_temp_id);
6162: FETCH c_get_parent_attributes INTO parent_rec;
6206: l_process_tbl.DELETE;
6207: l_parent_tbl.DELETE;
6208:
6209: EXCEPTION
6210: WHEN fnd_api.g_exc_error THEN
6211: ROLLBACK to process_loose_sp;
6212:
6213: x_return_status := fnd_api.g_ret_sts_error;
6214:
6209: EXCEPTION
6210: WHEN fnd_api.g_exc_error THEN
6211: ROLLBACK to process_loose_sp;
6212:
6213: x_return_status := fnd_api.g_ret_sts_error;
6214:
6215: fnd_msg_pub.count_and_get
6216: ( p_count => l_msg_count
6217: , p_data => l_msg_data
6214:
6215: fnd_msg_pub.count_and_get
6216: ( p_count => l_msg_count
6217: , p_data => l_msg_data
6218: , p_encoded => fnd_api.g_false
6219: );
6220:
6221: IF l_debug = 1 THEN
6222: print_debug (l_msg_data, l_api_name);
6224:
6225: WHEN OTHERS THEN
6226: ROLLBACK to process_loose_sp;
6227:
6228: x_return_status := fnd_api.g_ret_sts_unexp_error;
6229:
6230: IF l_debug = 1 THEN
6231: print_debug ('Other error: ' || sqlerrm, l_api_name);
6232: END IF;
6405: GROUP BY mmtt.primary_quantity;
6406:
6407:
6408: BEGIN
6409: x_return_status := fnd_api.g_ret_sts_success;
6410:
6411: fnd_msg_pub.initialize;
6412:
6413: IF l_debug = 1 THEN
6443: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
6444: , l_api_name
6445: );
6446: END IF;
6447: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6448: END IF;
6449:
6450: IF p_lpn IS NOT NULL
6451: THEN
6467: END IF;
6468:
6469: fnd_message.set_name('WMS', 'WMS_LPN_NOT_IN_OUTER');
6470: fnd_msg_pub.ADD;
6471: RAISE FND_API.G_EXC_ERROR;
6472: ELSE
6473: IF l_debug = 1 THEN
6474: print_debug
6475: ( 'Found scanned LPN ' || p_lpn ||
6500: END IF;
6501: CLOSE c_get_lot_msnt;
6502: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
6503: fnd_msg_pub.ADD;
6504: RAISE FND_API.G_EXC_ERROR;
6505: END IF;
6506: IF c_get_lot_msnt%ISOPEN THEN
6507: CLOSE c_get_lot_msnt;
6508: END IF;
6525: END IF;
6526: CLOSE c_get_loose_msnt;
6527: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
6528: fnd_msg_pub.ADD;
6529: RAISE FND_API.G_EXC_ERROR;
6530: END IF;
6531: IF c_get_loose_msnt%ISOPEN THEN
6532: CLOSE c_get_loose_msnt;
6533: END IF;
6549: END IF;
6550: CLOSE c_get_lpn_msnt;
6551: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_SER');
6552: fnd_msg_pub.ADD;
6553: RAISE FND_API.G_EXC_ERROR;
6554: END IF;
6555: IF c_get_lpn_msnt%ISOPEN THEN
6556: CLOSE c_get_lpn_msnt;
6557: END IF;
6562: print_debug( 'Serial number found', l_api_name);
6563: END IF;
6564:
6565: IF (NOT (g_cur_pend_temp.COUNT > 0)) THEN
6566: l_api_return_status := fnd_api.g_ret_sts_success;
6567:
6568: IF p_lpn IS NOT NULL
6569: THEN
6570: get_temp_list
6581: , p_status => 'PENDING'
6582: );
6583: END IF;
6584:
6585: IF l_api_return_status <> fnd_api.g_ret_sts_success
6586: THEN
6587: IF l_debug = 1 THEN
6588: print_debug ('Error from get_temp_list', l_api_name);
6589: END IF;
6586: THEN
6587: IF l_debug = 1 THEN
6588: print_debug ('Error from get_temp_list', l_api_name);
6589: END IF;
6590: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6591: END IF;
6592: END IF;
6593:
6594: IF (NOT (g_cur_pend_temp.COUNT > 0)) THEN
6594: IF (NOT (g_cur_pend_temp.COUNT > 0)) THEN
6595: IF l_debug = 1 THEN
6596: print_debug ('No temp IDs found', l_api_name);
6597: END IF;
6598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6599: END IF;
6600:
6601: ii := g_cur_pend_temp.FIRST;
6602: jj := g_cur_pend_temp.LAST;
6654:
6655: IF NOT l_parent_found THEN
6656: l_orig_temp_id := g_cur_pend_temp(g_cur_pend_temp.FIRST);
6657:
6658: l_api_return_status := fnd_api.g_ret_sts_success;
6659: split_mmtt
6660: ( x_new_temp_id => l_transaction_temp_id
6661: , x_return_status => l_api_return_status
6662: , p_temp_id => l_orig_temp_id
6661: , x_return_status => l_api_return_status
6662: , p_temp_id => l_orig_temp_id
6663: );
6664:
6665: IF l_api_return_status <> fnd_api.g_ret_sts_success
6666: THEN
6667: IF l_debug = 1 THEN
6668: print_debug ('Error from split_mmtt', l_api_name);
6669: END IF;
6666: THEN
6667: IF l_debug = 1 THEN
6668: print_debug ('Error from split_mmtt', l_api_name);
6669: END IF;
6670: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6671: END IF;
6672:
6673: UPDATE mtl_material_transactions_temp
6674: SET transaction_quantity = transaction_quantity - 1
6990: ( 'Exception processing MTLT records: ' || sqlerrm
6991: , l_api_name
6992: );
6993: END IF;
6994: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6995: END;
6996: ELSE
6997: --
6998: -- Not lot controlled
7096: ': ' || sqlerrm
7097: , l_api_name
7098: );
7099: END IF;
7100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7101: END;
7102:
7103: IF l_srl_temp_id IS NULL
7104: THEN
7180: ( 'Error updating txn/primary quantity: ' || sqlerrm
7181: , l_api_name
7182: );
7183: END IF;
7184: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7185: END;
7186:
7187: BEGIN
7188: SELECT mmtt.transaction_header_id
7196: ( 'Error getting txn header ID: ' || sqlerrm
7197: , l_api_name
7198: );
7199: END IF;
7200: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7201: END;
7202:
7203: UPDATE mtl_serial_numbers
7204: SET group_mark_id = l_txn_header_id
7253: , l_api_name
7254: );
7255: END IF;
7256: CLOSE c_get_lot_srl_count;
7257: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7258: END IF;
7259:
7260: IF c_get_lot_srl_count%ISOPEN
7261: THEN
7275: , l_api_name
7276: );
7277: END IF;
7278: CLOSE c_get_serial_count;
7279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7280: END IF;
7281:
7282: IF c_get_serial_count%ISOPEN
7283: THEN
7343: ' in g_cur_pend_temp'
7344: , l_api_name
7345: );
7346: END IF;
7347: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7348: ELSE
7349: IF l_debug = 1 THEN
7350: print_debug
7351: ( 'Found temp ID ' || g_cur_pend_temp(ii)
7391: x_loose_qty_exists := l_loose_qty_exists;
7392: END IF;
7393:
7394: EXCEPTION
7395: WHEN fnd_api.g_exc_error THEN
7396: ROLLBACK to process_serial_sp;
7397:
7398: x_return_status := fnd_api.g_ret_sts_error;
7399:
7394: EXCEPTION
7395: WHEN fnd_api.g_exc_error THEN
7396: ROLLBACK to process_serial_sp;
7397:
7398: x_return_status := fnd_api.g_ret_sts_error;
7399:
7400: fnd_msg_pub.count_and_get
7401: ( p_count => l_msg_count
7402: , p_data => l_msg_data
7399:
7400: fnd_msg_pub.count_and_get
7401: ( p_count => l_msg_count
7402: , p_data => l_msg_data
7403: , p_encoded => fnd_api.g_false
7404: );
7405:
7406: IF l_debug = 1 THEN
7407: print_debug (l_msg_data, l_api_name);
7409:
7410: WHEN OTHERS THEN
7411: ROLLBACK to process_serial_sp;
7412:
7413: x_return_status := fnd_api.g_ret_sts_unexp_error;
7414:
7415: IF l_debug = 1 THEN
7416: print_debug ('Other error: ' || sqlerrm, l_api_name);
7417: END IF;
7475: v_sub_tbl SubCodeTable;
7476: v_loc_id_tbl LocIDTable;
7477:
7478: BEGIN
7479: x_return_status := fnd_api.g_ret_sts_success;
7480:
7481: IF l_debug = 1 THEN
7482: print_debug
7483: ( 'Entered with parameters: ' || g_newline ||
7505: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
7506: , l_api_name
7507: );
7508: END IF;
7509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7510: END IF;
7511:
7512: ROLLBACK;
7513:
7566: IF l_debug = 1 THEN
7567: print_debug ('No. of child WDT records deleted: ' || SQL%ROWCOUNT, l_api_name);
7568: END IF;
7569:
7570: l_api_return_status := fnd_api.g_ret_sts_success;
7571: clear_lpn_cache(l_api_return_status);
7572:
7573: IF l_api_return_status <> fnd_api.g_ret_sts_success
7574: THEN
7569:
7570: l_api_return_status := fnd_api.g_ret_sts_success;
7571: clear_lpn_cache(l_api_return_status);
7572:
7573: IF l_api_return_status <> fnd_api.g_ret_sts_success
7574: THEN
7575: IF l_debug = 1 THEN
7576: print_debug ('Error from clear_lpn_cache', l_api_name);
7577: END IF;
7574: THEN
7575: IF l_debug = 1 THEN
7576: print_debug ('Error from clear_lpn_cache', l_api_name);
7577: END IF;
7578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7579: END IF;
7580:
7581: -- Start change for Bug 5620764
7582: -- Restore LPN context for bulk picked content LPNs back to "Packing Content" from "In Inventory"
7607: EXCEPTION
7608: WHEN OTHERS THEN
7609: ROLLBACK TO cancel_tsk_sp;
7610:
7611: x_return_status := fnd_api.g_ret_sts_unexp_error;
7612:
7613: IF l_debug = 1 THEN
7614: print_debug ('Other error: ' || sqlerrm, l_api_name);
7615: END IF;
7728: WHERE mmtt.transaction_temp_id = p_temp_id
7729: AND mmtt.move_order_line_id = mtrl.line_id;
7730:
7731: BEGIN
7732: x_return_status := fnd_api.g_ret_sts_success;
7733:
7734: IF l_debug = 1 THEN
7735: print_debug
7736: ( 'Entered with parameters: ' || g_newline ||
7766: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
7767: , l_api_name
7768: );
7769: END IF;
7770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7771: END IF;
7772:
7773: --
7774: -- Check if new
7781: IF (l_debug = 1) THEN
7782: print_debug ('Xfer LPN is new.', l_api_name);
7783: END IF;
7784:
7785: l_api_return_status := fnd_api.g_ret_sts_success;
7786: wms_container_pub.create_lpn
7787: ( p_api_version => 1.0
7788: , x_return_status => l_api_return_status
7789: , x_msg_count => l_msg_count
7793: , x_lpn_id => l_lpn_id
7794: , p_source => wms_container_pub.lpn_context_pregenerated
7795: );
7796:
7797: IF l_api_return_status <> fnd_api.g_ret_sts_success
7798: THEN
7799: IF l_debug = 1 THEN
7800: print_debug
7801: ( 'Error from WMS_Container_PUB.create_lpn: ' || l_msg_data
7800: print_debug
7801: ( 'Error from WMS_Container_PUB.create_lpn: ' || l_msg_data
7802: , l_api_name);
7803: END IF;
7804: RAISE FND_API.G_EXC_ERROR;
7805: ELSE
7806: IF l_debug = 1 THEN
7807: print_debug
7808: ( 'WMS_Container_PUB.create_lpn returned LPN '
7829: END IF;
7830:
7831: fnd_message.set_name('WMS', 'WMS_LPN_HAS_MORE_DROP_MTL');
7832: fnd_msg_pub.ADD;
7833: RAISE FND_API.G_EXC_ERROR;
7834:
7835: ELSIF to_lpn_rec.lpn_context <> wms_container_pub.lpn_context_picked
7836: THEN
7837: IF (l_debug = 1) THEN
7843: END IF;
7844:
7845: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN_CONTEXT');
7846: fnd_msg_pub.ADD;
7847: RAISE FND_API.G_EXC_ERROR;
7848:
7849: ELSE
7850: --
7851: -- Check if staged in another sub/loc
7865: END IF;
7866:
7867: fnd_message.set_name('WMS', 'WMS_XFER_LPN_DIFF_SUBINV');
7868: fnd_msg_pub.ADD;
7869: RAISE FND_API.G_EXC_ERROR;
7870: ELSE
7871: OPEN c_get_lpn_delivery (to_lpn_rec.lpn_id, p_organization_id);
7872: FETCH c_get_lpn_delivery INTO l_lpn_delivery_id;
7873: CLOSE c_get_lpn_delivery;
7882: END IF;
7883:
7884: fnd_message.set_name('WMS', 'WMS_DROP_LPN_DIFF_DELIV');
7885: fnd_msg_pub.ADD;
7886: RAISE FND_API.G_EXC_ERROR;
7887: END IF;
7888:
7889: IF NVL(p_delivery_id,0) = 0 AND NVL(l_lpn_delivery_id,0) = 0 THEN
7890: OPEN c_get_lpn_carton_grp (to_lpn_rec.lpn_id, p_organization_id);
7922: END IF;
7923:
7924: fnd_message.set_name('WMS', 'WMS_INVALID_PACK_DELIVERY');
7925: fnd_msg_pub.ADD;
7926: RAISE FND_API.G_EXC_ERROR;
7927: END IF;
7928:
7929: END IF;
7930: END IF;
7953:
7954: --
7955: -- Update MMTT records that are PENDING
7956: --
7957: l_api_return_status := fnd_api.g_ret_sts_success;
7958: get_temp_list
7959: ( x_temp_tbl => l_temp_tbl
7960: , x_return_status => l_api_return_status
7961: , p_group_num => p_group_number
7961: , p_group_num => p_group_number
7962: , p_status => 'PENDING'
7963: );
7964:
7965: IF l_api_return_status <> fnd_api.g_ret_sts_success
7966: THEN
7967: IF l_debug = 1 THEN
7968: print_debug ('Error from get_temp_list', l_api_name);
7969: END IF;
7966: THEN
7967: IF l_debug = 1 THEN
7968: print_debug ('Error from get_temp_list', l_api_name);
7969: END IF;
7970: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7971: END IF;
7972:
7973: IF l_temp_tbl.COUNT > 0 THEN
7974: ii := l_temp_tbl.FIRST;
8034:
8035: --
8036: -- Update MMTT records for which serials have been processed
8037: --
8038: l_api_return_status := fnd_api.g_ret_sts_success;
8039: get_temp_list
8040: ( x_temp_tbl => l_temp_tbl
8041: , x_return_status => l_api_return_status
8042: , p_group_num => p_group_number
8042: , p_group_num => p_group_number
8043: , p_status => 'SRL_DONE'
8044: );
8045:
8046: IF l_api_return_status <> fnd_api.g_ret_sts_success
8047: THEN
8048: IF l_debug = 1 THEN
8049: print_debug ('Error from get_temp_list', l_api_name);
8050: END IF;
8047: THEN
8048: IF l_debug = 1 THEN
8049: print_debug ('Error from get_temp_list', l_api_name);
8050: END IF;
8051: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8052: END IF;
8053:
8054: IF l_temp_tbl.COUNT > 0 THEN
8055: ii := l_temp_tbl.FIRST;
8115:
8116: --
8117: -- Update MMTT records for which from LPN has been stamped
8118: --
8119: l_api_return_status := fnd_api.g_ret_sts_success;
8120: get_temp_list
8121: ( x_temp_tbl => l_temp_tbl
8122: , x_return_status => l_api_return_status
8123: , p_group_num => p_group_number
8123: , p_group_num => p_group_number
8124: , p_status => 'LPN_DONE'
8125: );
8126:
8127: IF l_api_return_status <> fnd_api.g_ret_sts_success
8128: THEN
8129: IF l_debug = 1 THEN
8130: print_debug ('Error from get_temp_list', l_api_name);
8131: END IF;
8128: THEN
8129: IF l_debug = 1 THEN
8130: print_debug ('Error from get_temp_list', l_api_name);
8131: END IF;
8132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8133: END IF;
8134:
8135: IF l_temp_tbl.COUNT > 0 THEN
8136: ii := l_temp_tbl.FIRST;
8197: --
8198: -- Update MMTT records for which from loose qty
8199: -- has been processed
8200: --
8201: l_api_return_status := fnd_api.g_ret_sts_success;
8202: get_temp_list
8203: ( x_temp_tbl => l_temp_tbl
8204: , x_return_status => l_api_return_status
8205: , p_group_num => p_group_number
8205: , p_group_num => p_group_number
8206: , p_status => 'LSE_DONE'
8207: );
8208:
8209: IF l_api_return_status <> fnd_api.g_ret_sts_success
8210: THEN
8211: IF l_debug = 1 THEN
8212: print_debug ('Error from get_temp_list', l_api_name);
8213: END IF;
8210: THEN
8211: IF l_debug = 1 THEN
8212: print_debug ('Error from get_temp_list', l_api_name);
8213: END IF;
8214: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8215: END IF;
8216:
8217: IF l_temp_tbl.COUNT > 0 THEN
8218: ii := l_temp_tbl.FIRST;
8276:
8277: l_temp_tbl.DELETE;
8278:
8279: EXCEPTION
8280: WHEN fnd_api.g_exc_error THEN
8281: ROLLBACK to validate_xfer_sp;
8282:
8283: x_return_status := fnd_api.g_ret_sts_error;
8284:
8279: EXCEPTION
8280: WHEN fnd_api.g_exc_error THEN
8281: ROLLBACK to validate_xfer_sp;
8282:
8283: x_return_status := fnd_api.g_ret_sts_error;
8284:
8285: fnd_msg_pub.count_and_get
8286: ( p_count => l_msg_count
8287: , p_data => l_msg_data
8284:
8285: fnd_msg_pub.count_and_get
8286: ( p_count => l_msg_count
8287: , p_data => l_msg_data
8288: , p_encoded => fnd_api.g_false
8289: );
8290:
8291: IF l_debug = 1 THEN
8292: print_debug (l_msg_data, l_api_name);
8294:
8295: WHEN OTHERS THEN
8296: ROLLBACK to validate_xfer_sp;
8297:
8298: x_return_status := fnd_api.g_ret_sts_unexp_error;
8299:
8300: IF l_debug = 1 THEN
8301: print_debug ('Other error: ' || sqlerrm, l_api_name);
8302: END IF;
8322: l_child_temp_id NUMBER;
8323: l_pack_temp_id NUMBER;
8324:
8325: BEGIN
8326: x_return_status := fnd_api.g_ret_sts_success;
8327:
8328: IF l_debug = 1 THEN
8329: print_debug
8330: ( 'Entered with parameters: ' || g_newline ||
8359: ( 'Exception fetching child temp ID: ' || sqlerrm
8360: , l_api_name
8361: );
8362: END IF;
8363: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8364: END;
8365:
8366: SELECT mtl_material_transactions_s.NEXTVAL
8367: INTO l_pack_temp_id
8767:
8768: x_pack_temp_id := l_pack_temp_id;
8769:
8770: EXCEPTION
8771: WHEN fnd_api.g_exc_error THEN
8772: ROLLBACK to insert_pack_sp;
8773:
8774: x_return_status := fnd_api.g_ret_sts_error;
8775:
8770: EXCEPTION
8771: WHEN fnd_api.g_exc_error THEN
8772: ROLLBACK to insert_pack_sp;
8773:
8774: x_return_status := fnd_api.g_ret_sts_error;
8775:
8776: fnd_msg_pub.count_and_get
8777: ( p_count => l_msg_count
8778: , p_data => l_msg_data
8775:
8776: fnd_msg_pub.count_and_get
8777: ( p_count => l_msg_count
8778: , p_data => l_msg_data
8779: , p_encoded => fnd_api.g_false
8780: );
8781:
8782: IF l_debug = 1 THEN
8783: print_debug (l_msg_data, l_api_name);
8785:
8786: WHEN OTHERS THEN
8787: ROLLBACK to insert_pack_sp;
8788:
8789: x_return_status := fnd_api.g_ret_sts_unexp_error;
8790:
8791: IF l_debug = 1 THEN
8792: print_debug ('Other error: ' || sqlerrm, l_api_name);
8793: END IF;
8924: );
8925:
8926:
8927: BEGIN
8928: x_return_status := fnd_api.g_ret_sts_success;
8929:
8930: IF l_debug = 1 THEN
8931: print_debug
8932: ( 'Entered with parameters: ' || g_newline ||
8948: THEN
8949: IF l_debug = 1 THEN
8950: print_debug ('c_get_bulk_tasks returned no MMTT records', l_api_name);
8951: END IF;
8952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8953: END IF;
8954:
8955: --
8956: -- Process nested LPNs:
9020: END IF;
9021:
9022: IF l_pack_txn_ok
9023: THEN
9024: l_api_return_status := fnd_api.g_ret_sts_success;
9025: insert_mmtt_pack
9026: ( x_pack_temp_id => l_pack_temp_id
9027: , x_return_status => l_api_return_status
9028: , p_parent_temp_id => nested_lpn_rec.transaction_temp_id
9029: , p_lpn_id => nested_lpn_rec.content_lpn_id
9030: , p_outer_lpn_id => p_xfer_lpn_id
9031: );
9032:
9033: IF l_api_return_status <> fnd_api.g_ret_sts_success
9034: THEN
9035: IF l_debug = 1 THEN
9036: print_debug ('insert_mmtt_pack returned an error', l_api_name);
9037: END IF;
9034: THEN
9035: IF l_debug = 1 THEN
9036: print_debug ('insert_mmtt_pack returned an error', l_api_name);
9037: END IF;
9038: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9039: END IF;
9040:
9041: ii := x_temp_tbl.LAST + 1;
9042: x_temp_tbl(ii) := l_pack_temp_id;
9065: ( 'Exception processing nested LPNs: ' || sqlerrm
9066: , l_api_name
9067: );
9068: END IF;
9069: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9070:
9071: END;
9072: END LOOP;
9073:
9097: ( 'Exception getting outermost LPN ID: ' || sqlerrm
9098: , l_api_name
9099: );
9100: END IF;
9101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9102: END;
9103:
9104: l_api_return_status := fnd_api.g_ret_sts_success;
9105: insert_mmtt_pack
9100: END IF;
9101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9102: END;
9103:
9104: l_api_return_status := fnd_api.g_ret_sts_success;
9105: insert_mmtt_pack
9106: ( x_pack_temp_id => l_pack_temp_id
9107: , x_return_status => l_api_return_status
9108: , p_parent_temp_id => l_parent_temp_id
9109: , p_lpn_id => p_xfer_lpn_id
9110: , p_outer_lpn_id => l_outer_most_lpn_id
9111: );
9112:
9113: IF l_api_return_status <> fnd_api.g_ret_sts_success
9114: THEN
9115: IF l_debug = 1 THEN
9116: print_debug ('insert_mmtt_pack returned an error', l_api_name);
9117: END IF;
9114: THEN
9115: IF l_debug = 1 THEN
9116: print_debug ('insert_mmtt_pack returned an error', l_api_name);
9117: END IF;
9118: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9119: END IF;
9120:
9121: ii := x_temp_tbl.LAST + 1;
9122: x_temp_tbl(ii) := l_pack_temp_id;
9131: END IF;
9132: END IF;
9133:
9134: EXCEPTION
9135: WHEN fnd_api.g_exc_error THEN
9136: ROLLBACK TO preprocess_bulk_sp;
9137:
9138: x_return_status := fnd_api.g_ret_sts_error;
9139:
9134: EXCEPTION
9135: WHEN fnd_api.g_exc_error THEN
9136: ROLLBACK TO preprocess_bulk_sp;
9137:
9138: x_return_status := fnd_api.g_ret_sts_error;
9139:
9140: fnd_msg_pub.count_and_get
9141: ( p_count => l_msg_count
9142: , p_data => l_msg_data
9139:
9140: fnd_msg_pub.count_and_get
9141: ( p_count => l_msg_count
9142: , p_data => l_msg_data
9143: , p_encoded => fnd_api.g_false
9144: );
9145:
9146: IF l_debug = 1 THEN
9147: print_debug (l_msg_data, l_api_name);
9149:
9150: WHEN OTHERS THEN
9151: ROLLBACK TO preprocess_bulk_sp;
9152:
9153: x_return_status := fnd_api.g_ret_sts_unexp_error;
9154:
9155: IF l_debug = 1 THEN
9156: print_debug ('Other error: ' || sqlerrm, l_api_name);
9157: END IF;
9361: FROM mtl_material_transactions_temp mmtt
9362: WHERE transaction_temp_id = p_temp_id;
9363:
9364: BEGIN
9365: x_return_status := fnd_api.g_ret_sts_success;
9366:
9367: IF l_debug = 1 THEN
9368: print_debug
9369: ( '...Entered with parameters: ' || g_newline ||
9416: , x_lpn_id => l_drop_lpn_id
9417: , p_source => wms_container_pub.lpn_context_pregenerated
9418: );
9419:
9420: IF l_api_return_status <> fnd_api.g_ret_sts_success
9421: THEN
9422: IF l_debug = 1 THEN
9423: print_debug
9424: ( 'Error from WMS_Container_PUB.create_lpn: ' || l_msg_data
9423: print_debug
9424: ( 'Error from WMS_Container_PUB.create_lpn: ' || l_msg_data
9425: , l_api_name);
9426: END IF;
9427: RAISE FND_API.G_EXC_ERROR;
9428: ELSE
9429: IF l_debug = 1 THEN
9430: print_debug
9431: ( 'WMS_Container_PUB.create_lpn returned LPN '
9472: x_return_status => l_api_return_status,
9473: x_msg_count => l_msg_count,
9474: x_msg_data => l_msg_data);
9475:
9476: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
9477: IF l_debug = 1 THEN
9478: print_debug('Error from wms_mdc_pvt.validate_to_lpn: ' || l_msg_data, l_api_name);
9479: END IF;
9480: RAISE fnd_api.g_exc_error;
9476: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
9477: IF l_debug = 1 THEN
9478: print_debug('Error from wms_mdc_pvt.validate_to_lpn: ' || l_msg_data, l_api_name);
9479: END IF;
9480: RAISE fnd_api.g_exc_error;
9481: ELSE
9482: IF l_debug = 1 THEN
9483: print_debug('wms_mdc_pvt.validate_to_lpn returned: ' || l_allow_packing, l_api_name);
9484: END IF;
9483: print_debug('wms_mdc_pvt.validate_to_lpn returned: ' || l_allow_packing, l_api_name);
9484: END IF;
9485:
9486: IF l_allow_packing = 'N' THEN
9487: RAISE fnd_api.g_exc_error;
9488: END IF;
9489:
9490: END IF;
9491:
9500: AND mil.inventory_location_id = p_loc_id;
9501: IF (l_debug = 1) THEN print_debug('l_to_loc_type' || l_to_loc_type , l_api_name); END IF;
9502: EXCEPTION WHEN NO_DATA_FOUND THEN
9503: IF (l_debug = 1) THEN print_debug('exception selecting to_loc_type', l_api_name ); END IF;
9504: RAISE FND_API.G_exc_unexpected_error;
9505: END ;
9506: IF l_to_loc_type <> inv_globals.g_loc_type_staging_lane THEN
9507: fnd_message.set_name('WMS', 'WMS_STAGE_FROM_CONSOL_LPN');
9508: fnd_msg_pub.ADD;
9512: , l_api_name );
9513: -- {{- Destination Locator must be staging locator when one of the From LPNs is a consol LPN }}
9514:
9515: END IF;
9516: RAISE fnd_api.g_exc_error;
9517: END IF ;
9518: END IF ;
9519: END IF;
9520: END IF;
9537: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
9538: , l_api_name
9539: );
9540: END IF;
9541: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9542: END IF;
9543:
9544: l_pack_txn_exists := FALSE;
9545: IF l_debug = 1 THEN
9547: print_debug ('p_bulk_drop ' || p_bulk_drop, l_api_name);
9548: END IF;
9549: IF g_current_drop_lpn.multiple_drops = 'TRUE'
9550: THEN
9551: l_api_return_status := fnd_api.g_ret_sts_success;
9552: get_temp_list
9553: ( x_temp_tbl => l_temp_tbl
9554: , x_return_status => l_api_return_status
9555: , p_group_num => NULL
9555: , p_group_num => NULL
9556: , p_status => NULL
9557: );
9558:
9559: IF l_api_return_status <> fnd_api.g_ret_sts_success
9560: THEN
9561: IF l_debug = 1 THEN
9562: print_debug ('Error from get_temp_list', l_api_name);
9563: END IF;
9560: THEN
9561: IF l_debug = 1 THEN
9562: print_debug ('Error from get_temp_list', l_api_name);
9563: END IF;
9564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9565: END IF;
9566: l_xfer_lpn_used := FALSE;
9567: ELSE
9568: IF p_bulk_drop = 'TRUE'
9566: l_xfer_lpn_used := FALSE;
9567: ELSE
9568: IF p_bulk_drop = 'TRUE'
9569: THEN
9570: l_api_return_status := fnd_api.g_ret_sts_success;
9571:
9572: preprocess_bulk_drop
9573: ( x_temp_tbl => l_temp_tbl
9574: , x_pack_txn_exists => l_pack_txn_exists
9577: , p_xfer_lpn_id => p_transfer_lpn_id
9578: , p_drop_lpn => p_drop_lpn
9579: );
9580:
9581: IF l_api_return_status <> fnd_api.g_ret_sts_success
9582: THEN
9583: IF l_debug = 1 THEN
9584: print_debug ('Error from preprocess_bulk_drop', l_api_name);
9585: END IF;
9582: THEN
9583: IF l_debug = 1 THEN
9584: print_debug ('Error from preprocess_bulk_drop', l_api_name);
9585: END IF;
9586: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9587: END IF;
9588: ELSE
9589: OPEN c_get_nonbulk_tasks (p_organization_id, p_transfer_lpn_id);
9590: FETCH c_get_nonbulk_tasks BULK COLLECT INTO l_temp_tbl;
9642: ('Error getting MMTT xfer LPN ID: ' || sqlerrm
9643: , l_api_name
9644: );
9645: END IF;
9646: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9647: END;
9648:
9649: IF (to_number(p_orig_locid) <> p_loc_id) AND (to_number(p_orig_locid) <> 0) THEN
9650: inv_loc_wms_utils.revert_loc_suggested_capacity(x_return_status => l_api_return_status,
9657: p_transaction_uom_code => l_transaction_uom,
9658: p_quantity => l_transaction_qty);
9659:
9660:
9661: IF l_api_return_status <> fnd_api.g_ret_sts_success
9662: THEN
9663: IF l_debug = 1 THEN
9664: print_debug('Error from revert_loc_suggested_capacity', l_api_name);
9665: END IF;
9663: IF l_debug = 1 THEN
9664: print_debug('Error from revert_loc_suggested_capacity', l_api_name);
9665: END IF;
9666: -- Bug 5393727: do not raise an exception if locator API returns an error
9667: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9668: END IF;
9669:
9670: END IF;
9671:
9739: FETCH c_get_srl_alloc_stat INTO l_srl_stat;
9740: CLOSE c_get_srl_alloc_stat;
9741:
9742: IF l_srl_stat = 'N' THEN
9743: l_api_return_status := fnd_api.g_ret_sts_success;
9744: insert_child_msnt
9745: ( x_return_status => l_api_return_status
9746: , p_temp_id => l_transaction_temp_id
9747: , p_parent_tmp_id => l_parent_line_id
9746: , p_temp_id => l_transaction_temp_id
9747: , p_parent_tmp_id => l_parent_line_id
9748: , p_txn_header_id => l_txn_header_id
9749: );
9750: IF l_api_return_status <> fnd_api.g_ret_sts_success
9751: THEN
9752: IF l_debug = 1 THEN
9753: print_debug ('Error from insert_child_msnt', l_api_name);
9754: END IF;
9751: THEN
9752: IF l_debug = 1 THEN
9753: print_debug ('Error from insert_child_msnt', l_api_name);
9754: END IF;
9755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9756: ELSE
9757: IF l_debug = 1 THEN
9758: print_debug ('Success status from insert_child_msnt', l_api_name);
9759: END IF;
9835: ( 'Exception querying WDT: ' || sqlerrm
9836: , l_api_name
9837: );
9838: END IF;
9839: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9840: END;
9841:
9842: IF l_debug = 1 THEN
9843: print_debug
9856: || sqlerrm
9857: , l_api_name
9858: );
9859: END IF;
9860: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9861: END;
9862:
9863: --
9864: -- Update parent line to NULL
9879: ( 'Exception updating MMTT: ' || sqlerrm
9880: , l_api_name
9881: );
9882: END IF;
9883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9884: END;
9885: END IF; -- IF l_parent_line_id IS NOT NULL
9886:
9887: --
9888: -- Call complete_pick
9889: --
9890: IF l_txn_type_id <> INV_GLOBALS.G_TYPE_CONTAINER_PACK
9891: THEN
9892: l_api_return_status := fnd_api.g_ret_sts_success;
9893: wms_task_dispatch_gen.complete_pick
9894: ( p_lpn => p_drop_lpn
9895: , p_container_item_id => NULL
9896: , p_org_id => p_organization_id
9905: , x_msg_data => l_msg_data
9906: , p_ok_to_process => l_ok_to_process
9907: );
9908:
9909: IF l_api_return_status <> fnd_api.g_ret_sts_success
9910: THEN
9911: IF l_debug = 1 THEN
9912: print_debug
9913: ('Error from wms_task_dispatch_gen.complete_pick'
9913: ('Error from wms_task_dispatch_gen.complete_pick'
9914: , l_api_name
9915: );
9916: END IF;
9917: RAISE FND_API.G_EXC_ERROR;
9918: END IF;
9919:
9920: IF l_ok_to_process = 'false'
9921: THEN
9926: );
9927: END IF;
9928: fnd_message.set_name('INV', 'INV-SUBINV NOT RESERVABLE');
9929: fnd_msg_pub.ADD;
9930: RAISE FND_API.G_EXC_ERROR;
9931: END IF;
9932: END IF;
9933:
9934: BEGIN
9994: ( 'Exception updating batch sequence on MMTT: ' || sqlerrm
9995: , l_api_name
9996: );
9997: END IF;
9998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9999: END;
10000:
10001: IF ii = jj THEN
10002: l_temp_tbl.DELETE(ii);
10030: ('Error getting MMTT xfer LPN ID: ' || sqlerrm
10031: , l_api_name
10032: );
10033: END IF;
10034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10035: END;
10036:
10037: IF l_next_xfer_lpn_id = l_curr_xfer_lpn_id
10038: THEN
10051:
10052: --
10053: -- Call pick_drop
10054: --
10055: l_api_return_status := fnd_api.g_ret_sts_success;
10056:
10057: IF g_current_drop_lpn.multiple_drops = 'FALSE'
10058: AND
10059: p_bulk_drop = 'TRUE'
10098: , p_commit => 'N'
10099: );
10100: END IF;
10101:
10102: IF l_api_return_status <> fnd_api.g_ret_sts_success
10103: THEN
10104: IF l_debug = 1 THEN
10105: print_debug ('Error from wms_task_dispatch_gen.pick_drop', l_api_name);
10106: END IF;
10103: THEN
10104: IF l_debug = 1 THEN
10105: print_debug ('Error from wms_task_dispatch_gen.pick_drop', l_api_name);
10106: END IF;
10107: RAISE FND_API.G_EXC_ERROR;
10108: END IF;
10109:
10110: END LOOP; -- end WHILE l_temp_tbl.COUNT > 0
10111:
10150: ( 'Exception updating WDTH: ' || sqlerrm
10151: , l_api_name
10152: );
10153: END IF;
10154: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10155: END;
10156:
10157: IF ii < jj THEN
10158: ii := l_task_tbl.NEXT(ii);
10193: , l_api_name
10194: );
10195: END IF;
10196:
10197: l_api_return_status := fnd_api.g_ret_sts_success;
10198: wms_task_dispatch_put_away.archive_task
10199: ( p_temp_id => parent_rec.transaction_temp_id
10200: , p_org_id => p_organization_id
10201: , x_return_status => l_api_return_status
10205: , p_txn_header_id => l_txn_header_id
10206: , p_transfer_lpn_id => p_transfer_lpn_id
10207: );
10208:
10209: IF l_api_return_status <> fnd_api.g_ret_sts_success
10210: THEN
10211: IF l_debug = 1 THEN
10212: print_debug
10213: ( 'Error from wms_task_dispatch_put_away.archive_task: '
10214: || l_msg_data
10215: , l_api_name
10216: );
10217: END IF;
10218: RAISE FND_API.G_EXC_ERROR;
10219: END IF;
10220:
10221: --
10222: -- Update parent_transaction_id in WDTH
10243: ( 'Exception updating WDTH: ' || sqlerrm
10244: , l_api_name
10245: );
10246: END IF;
10247: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10248: END;
10249:
10250: --
10251: -- Update child lines
10269: ( 'Exception updating WDTH: ' || sqlerrm
10270: , l_api_name
10271: );
10272: END IF;
10273: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10274: END;
10275: END LOOP;
10276: END IF;
10277:
10285: AND
10286: (NOT l_xfer_lpn_used)
10287: )
10288: THEN
10289: l_api_return_status := fnd_api.g_ret_sts_success;
10290: wms_container_pub.modify_lpn_wrapper
10291: ( p_api_version => '1.0'
10292: , x_return_status => l_api_return_status
10293: , x_msg_count => l_msg_count
10295: , p_lpn_id => p_transfer_lpn_id
10296: , p_lpn_context => WMS_Container_PUB.LPN_CONTEXT_PREGENERATED
10297: );
10298:
10299: IF l_api_return_status <> fnd_api.g_ret_sts_success
10300: THEN
10301: IF l_debug = 1 THEN
10302: print_debug
10303: ( 'Error from modify_lpn_wrapper: ' || l_msg_data
10303: ( 'Error from modify_lpn_wrapper: ' || l_msg_data
10304: , l_api_name
10305: );
10306: END IF;
10307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10308: END IF;
10309: END IF;
10310:
10311: l_api_return_status := fnd_api.g_ret_sts_success;
10307: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10308: END IF;
10309: END IF;
10310:
10311: l_api_return_status := fnd_api.g_ret_sts_success;
10312: clear_lpn_cache(l_api_return_status);
10313:
10314: IF l_api_return_status <> fnd_api.g_ret_sts_success
10315: THEN
10310:
10311: l_api_return_status := fnd_api.g_ret_sts_success;
10312: clear_lpn_cache(l_api_return_status);
10313:
10314: IF l_api_return_status <> fnd_api.g_ret_sts_success
10315: THEN
10316: IF l_debug = 1 THEN
10317: print_debug ('Error from clear_lpn_cache', l_api_name);
10318: END IF;
10315: THEN
10316: IF l_debug = 1 THEN
10317: print_debug ('Error from clear_lpn_cache', l_api_name);
10318: END IF;
10319: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10320: END IF;
10321: ELSE
10322: g_current_drop_lpn.current_drop_list.DELETE;
10323: g_current_drop_lpn.temp_id_group_ref.DELETE;
10325:
10326: COMMIT;
10327:
10328: EXCEPTION
10329: WHEN fnd_api.g_exc_error THEN
10330: ROLLBACK TO pick_drop_sp;
10331:
10332: x_return_status := fnd_api.g_ret_sts_error;
10333:
10328: EXCEPTION
10329: WHEN fnd_api.g_exc_error THEN
10330: ROLLBACK TO pick_drop_sp;
10331:
10332: x_return_status := fnd_api.g_ret_sts_error;
10333:
10334: fnd_msg_pub.count_and_get
10335: ( p_count => l_msg_count
10336: , p_data => l_msg_data
10333:
10334: fnd_msg_pub.count_and_get
10335: ( p_count => l_msg_count
10336: , p_data => l_msg_data
10337: , p_encoded => fnd_api.g_false
10338: );
10339:
10340: IF l_debug = 1 THEN
10341: print_debug (l_msg_data, l_api_name);
10343:
10344: WHEN OTHERS THEN
10345: ROLLBACK TO pick_drop_sp;
10346:
10347: x_return_status := fnd_api.g_ret_sts_unexp_error;
10348:
10349: IF l_debug = 1 THEN
10350: print_debug ('Other error: ' || sqlerrm, l_api_name);
10351: END IF;
10389: mmtt.parent_line_id IS NULL
10390: );
10391:
10392: BEGIN
10393: x_return_status := fnd_api.g_ret_sts_success;
10394:
10395: IF l_debug = 1 THEN
10396: print_debug
10397: ( 'Entered with parameters: ' || g_newline ||
10417: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
10418: , l_api_name
10419: );
10420: END IF;
10421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10422: END IF;
10423:
10424: IF g_current_drop_lpn.multiple_drops = 'TRUE'
10425: THEN
10422: END IF;
10423:
10424: IF g_current_drop_lpn.multiple_drops = 'TRUE'
10425: THEN
10426: l_api_return_status := fnd_api.g_ret_sts_success;
10427: get_temp_list
10428: ( x_temp_tbl => l_temp_tbl
10429: , x_return_status => l_api_return_status
10430: , p_group_num => NULL
10430: , p_group_num => NULL
10431: , p_status => NULL
10432: );
10433:
10434: IF l_api_return_status <> fnd_api.g_ret_sts_success
10435: THEN
10436: IF l_debug = 1 THEN
10437: print_debug ('Error from get_temp_list', l_api_name);
10438: END IF;
10435: THEN
10436: IF l_debug = 1 THEN
10437: print_debug ('Error from get_temp_list', l_api_name);
10438: END IF;
10439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10440: END IF;
10441: ELSE
10442: OPEN c_get_tasks (p_organization_id, p_transfer_lpn_id);
10443: FETCH c_get_tasks BULK COLLECT INTO l_temp_tbl;
10484: x_temp_id_list := l_temp_id_list;
10485:
10486: EXCEPTION
10487: WHEN OTHERS THEN
10488: x_return_status := fnd_api.g_ret_sts_unexp_error;
10489:
10490: IF l_debug = 1 THEN
10491: print_debug ('Other error: ' || sqlerrm, l_api_name);
10492: END IF;
10533: AND wdd.source_line_id = oola.line_id
10534: AND oola.header_id = ooha.header_id;
10535:
10536: BEGIN
10537: x_return_status := fnd_api.g_ret_sts_success;
10538:
10539: IF l_debug = 1 THEN
10540: print_debug
10541: ( 'Entered with parameters: ' || g_newline ||
10562: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
10563: , l_api_name
10564: );
10565: END IF;
10566: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10567: END IF;
10568:
10569: OPEN c_get_delivery_name (p_delivery_id);
10570: FETCH c_get_delivery_name INTO l_delivery_name;
10585: END IF;
10586:
10587: EXCEPTION
10588: WHEN OTHERS THEN
10589: x_return_status := fnd_api.g_ret_sts_unexp_error;
10590:
10591: IF l_debug = 1 THEN
10592: print_debug ('Other error: ' || sqlerrm, l_api_name);
10593: END IF;
10647: AND msik.inventory_item_id = p_item_id;
10648:
10649:
10650: BEGIN
10651: x_return_status := fnd_api.g_ret_sts_success;
10652:
10653: IF l_debug = 1 THEN
10654: print_debug
10655: ( 'Entered with parameters: ' || g_newline ||
10677: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
10678: , l_api_name
10679: );
10680: END IF;
10681: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10682: END IF;
10683:
10684: OPEN c_get_item_xref
10685: ( p_organization_id
10721: END IF;
10722:
10723: EXCEPTION
10724: WHEN OTHERS THEN
10725: x_return_status := fnd_api.g_ret_sts_unexp_error;
10726:
10727: IF l_debug = 1 THEN
10728: print_debug ('Other error: ' || sqlerrm, l_api_name);
10729: END IF;
10800: ORDER BY wda.delivery_id;
10801:
10802:
10803: BEGIN
10804: x_return_status := fnd_api.g_ret_sts_success;
10805:
10806: IF l_debug = 1 THEN
10807: print_debug
10808: ( 'Entered with parameters: ' || g_newline ||
10833: || g_newline || 'Cached LPN ID: ' || to_char(g_current_drop_lpn.lpn_id)
10834: , l_api_name
10835: );
10836: END IF;
10837: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10838: END IF;
10839:
10840: OPEN c_drop_lpn_cursor (p_drop_lpn, p_organization_id);
10841: FETCH c_drop_lpn_cursor INTO drop_lpn_rec;
10872: );
10873: END IF;
10874: fnd_message.set_name('WMS', 'WMS_DROP_PICK_LPN_SAME');
10875: fnd_msg_pub.ADD;
10876: RAISE FND_API.G_EXC_ERROR;
10877: RETURN;
10878: /*
10879: IF g_current_drop_lpn.multiple_drops = 'TRUE'
10880: AND
10888: );
10889: END IF;
10890: fnd_message.set_name('WMS', 'WMS_LPN_HAS_MORE_DROP_MTL');
10891: fnd_msg_pub.ADD;
10892: RAISE FND_API.G_EXC_ERROR;
10893: ELSIF g_current_drop_lpn.multiple_drops <> 'TRUE'
10894: THEN
10895: CLOSE c_drop_lpn_cursor;
10896: IF l_debug = 1 THEN
10900: );
10901: END IF;
10902: fnd_message.set_name('WMS', 'WMS_DROP_PICK_LPN_SAME');
10903: fnd_msg_pub.ADD;
10904: RAISE FND_API.G_EXC_ERROR;
10905: END IF;
10906: RETURN; -- multiple drops is TRUE and outer LPN done
10907: */
10908: -- End change for bug 5620764
10925: );
10926: END IF;
10927: fnd_message.set_name('WMS', 'WMS_DROP_LPN_SUBLOC_MISMATCH');
10928: fnd_msg_pub.ADD;
10929: RAISE FND_API.G_EXC_ERROR;
10930: END IF;
10931: ELSIF drop_lpn_rec.lpn_context =
10932: WMS_Container_PUB.LPN_LOADED_FOR_SHIPMENT
10933: THEN
10939: );
10940: END IF;
10941: fnd_message.set_name('WMS', 'WMS_DROP_LPN_LOADED');
10942: fnd_msg_pub.ADD;
10943: RAISE FND_API.G_EXC_ERROR;
10944: END IF;
10945:
10946: IF c_drop_lpn_cursor%ISOPEN
10947: THEN
10949: END IF;
10950:
10951: IF g_current_drop_lpn.multiple_drops = 'TRUE'
10952: THEN
10953: l_api_return_status := fnd_api.g_ret_sts_success;
10954: get_temp_list
10955: ( x_temp_tbl => l_temp_tbl
10956: , x_return_status => l_api_return_status
10957: , p_group_num => NULL
10957: , p_group_num => NULL
10958: , p_status => NULL
10959: );
10960:
10961: IF l_api_return_status <> fnd_api.g_ret_sts_success
10962: THEN
10963: IF l_debug = 1 THEN
10964: print_debug ('Error from get_temp_list', l_api_name);
10965: END IF;
10962: THEN
10963: IF l_debug = 1 THEN
10964: print_debug ('Error from get_temp_list', l_api_name);
10965: END IF;
10966: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10967: END IF;
10968:
10969: --
10970: -- Check if transfer_lpn_id on any record matches
11003: || to_char(l_transaction_temp_id)
11004: , l_api_name
11005: );
11006: END IF;
11007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11008: END IF;
11009:
11010: IF c_xfer_lpn_id%ISOPEN
11011: THEN
11026: l_temp_tbl.DELETE;
11027:
11028: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
11029: fnd_msg_pub.ADD;
11030: RAISE FND_API.G_EXC_ERROR;
11031: END IF;
11032:
11033: IF ii < jj THEN
11034: ii := l_temp_tbl.NEXT(ii);
11058: );
11059: END IF;
11060: fnd_message.set_name('WMS', 'WMS_INVALID_LPN_STATUS');
11061: fnd_msg_pub.ADD;
11062: RAISE FND_API.G_EXC_ERROR;
11063: END IF;
11064:
11065: --**MRANA temporary code for double validations and avoid data corruption
11066:
11072: x_return_status => l_api_return_status,
11073: x_msg_count => l_msg_count,
11074: x_msg_data => l_msg_data);
11075:
11076: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
11077: IF l_debug = 1 THEN
11078: print_debug('Error from wms_mdc_pvt.validate_to_lpn: ' || l_msg_data, l_api_name);
11079: END IF;
11080: RAISE fnd_api.g_exc_error;
11076: IF l_api_return_status <> fnd_api.g_ret_sts_success THEN
11077: IF l_debug = 1 THEN
11078: print_debug('Error from wms_mdc_pvt.validate_to_lpn: ' || l_msg_data, l_api_name);
11079: END IF;
11080: RAISE fnd_api.g_exc_error;
11081: ELSE
11082: IF l_debug = 1 THEN
11083: print_debug('wms_mdc_pvt.validate_to_lpn returned: ' || l_allow_packing, l_api_name);
11084: END IF;
11083: print_debug('wms_mdc_pvt.validate_to_lpn returned: ' || l_allow_packing, l_api_name);
11084: END IF;
11085:
11086: IF l_allow_packing = 'N' THEN
11087: RAISE fnd_api.g_exc_error;
11088: END IF;
11089:
11090: END IF;
11091:
11120: print_debug('count l_grp_rows'|| l_grouping_rows.count, l_api_name);
11121: print_debug('l_grp_rows(1) : '||l_grouping_rows(1) ||',l_grp_rows(2) : '||l_grouping_rows(2), l_api_name);
11122: END IF;
11123:
11124: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_grouping_rows(1) = l_grouping_rows(2) ) THEN
11125: IF (l_debug = 1) THEN
11126: print_debug('The LPN can be dropped into LPN_ID '||drop_lpn_rec.lpn_id, l_api_name);
11127: END IF;
11128: ELSE
11130: print_debug('Picked LPN does not belong to same delivery as Drop LPN. So cannot be dropped', l_api_name);
11131: END IF;
11132: fnd_message.set_name('WMS', 'WMS_DROP_LPN_DIFF_DELIV');
11133: fnd_msg_pub.ADD;
11134: RAISE FND_API.G_EXC_ERROR;
11135: END IF;
11136:
11137: EXCEPTION
11138: WHEN NO_DATA_FOUND THEN
11139: IF (l_debug = 1) THEN
11140: print_debug('No Data found Exception raised when checking for delivery grouping', l_api_name);
11141: print_debug('Picked LPN is not associated with a delivery, so dont show ANY lpn.', l_api_name);
11142: END IF;
11143: RAISE FND_API.G_EXC_ERROR;
11144: WHEN OTHERS THEN
11145: IF (l_debug = 1) THEN
11146: print_debug('Other Exception raised when checking for delivery grouping', l_api_name);
11147: print_debug('Picked LPN is not associated with a delivery, so dont show ANY lpn.', l_api_name);
11145: IF (l_debug = 1) THEN
11146: print_debug('Other Exception raised when checking for delivery grouping', l_api_name);
11147: print_debug('Picked LPN is not associated with a delivery, so dont show ANY lpn.', l_api_name);
11148: END IF;
11149: RAISE FND_API.G_EXC_ERROR;
11150: END; */ --End of Fix for bug#4106176 */
11151: --mrana END IF;
11152:
11153: EXCEPTION
11150: END; */ --End of Fix for bug#4106176 */
11151: --mrana END IF;
11152:
11153: EXCEPTION
11154: WHEN fnd_api.g_exc_error THEN
11155: x_return_status := fnd_api.g_ret_sts_error;
11156:
11157: fnd_msg_pub.count_and_get
11158: ( p_count => l_msg_count
11151: --mrana END IF;
11152:
11153: EXCEPTION
11154: WHEN fnd_api.g_exc_error THEN
11155: x_return_status := fnd_api.g_ret_sts_error;
11156:
11157: fnd_msg_pub.count_and_get
11158: ( p_count => l_msg_count
11159: , p_data => l_msg_data
11156:
11157: fnd_msg_pub.count_and_get
11158: ( p_count => l_msg_count
11159: , p_data => l_msg_data
11160: , p_encoded => fnd_api.g_false
11161: );
11162:
11163: IF l_debug = 1 THEN
11164: print_debug (l_msg_data, l_api_name);
11164: print_debug (l_msg_data, l_api_name);
11165: END IF;
11166:
11167: WHEN OTHERS THEN
11168: x_return_status := fnd_api.g_ret_sts_unexp_error;
11169:
11170: IF l_debug = 1 THEN
11171: print_debug ('Other error: ' || sqlerrm, l_api_name);
11172: END IF;