[Home] [Help]
1122:
1123: -- Check for errors while inserting group task row
1124: IF l_cur_count = -1 THEN
1125: l_progress := '232';
1126: RAISE fnd_api.g_exc_unexpected_error;
1127: END IF;
1128:
1129: l_rec_count := l_rec_count + l_cur_count;
1130: l_progress := '235';
1153: RETURN l_rec_count;
1154:
1155: EXCEPTION
1156:
1157: WHEN fnd_api.g_exc_unexpected_error THEN
1158: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
1159: DEBUG(SQLERRM,l_proc_name,1);
1160:
1161: IF c_group_tasks_cursor%isopen THEN
1372:
1373: -- Check for errors while inserting group task row
1374: IF l_cur_count = -1 THEN
1375: l_progress := '232';
1376: RAISE fnd_api.g_exc_unexpected_error;
1377: END IF;
1378:
1379: l_rec_count := l_rec_count + l_cur_count;
1380: l_progress := '235';
1432:
1433: -- Check for errors while inserting group task row
1434: IF l_cur_count = -1 THEN
1435: l_progress := '332';
1436: RAISE fnd_api.g_exc_unexpected_error;
1437: END IF;
1438:
1439: l_rec_count := l_rec_count + l_cur_count;
1440: l_progress := '335';
1523:
1524:
1525: EXCEPTION
1526: WHEN OTHERS THEN
1527: RAISE fnd_api.g_exc_unexpected_error;
1528: END;
1529:
1530:
1531: IF (l_debug = 1) THEN
1536: l_progress := '1000';
1537: RETURN l_rec_count;
1538:
1539: EXCEPTION
1540: WHEN fnd_api.g_exc_unexpected_error THEN
1541: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
1542: DEBUG(SQLERRM,l_proc_name,1);
1543:
1544: IF c_group_item_drop_tasks_cursor%isopen THEN
2367: WHEN OTHERS THEN
2368: IF (l_debug = 1) THEN
2369: DEBUG('ERROR REVERTING MDC SUGGESTIONS',l_proc_name,4);
2370: END IF;
2371: RAISE fnd_api.g_exc_unexpected_error;
2372: END;
2373: --R12 END
2374:
2375: l_progress := '500';
2580: l_progress := '33';
2581: l_has_contents := 0;
2582: WHEN OTHERS THEN
2583: l_progress := '35';
2584: RAISE fnd_api.g_exc_unexpected_error;
2585: END;-- Check Whether contents exists for this lpn
2586:
2587: --Check for contents
2588: IF l_has_contents = 0 THEN
2812:
2813: EXCEPTION
2814: WHEN OTHERS THEN
2815: l_progress := '90';
2816: RAISE fnd_api.g_exc_unexpected_error;
2817: END; --Block to insert the 'All Task' rows
2818:
2819:
2820: BEGIN -- WIP Integration
2867: ,p_activity_type_id => G_OP_ACTIVITY_INBOUND
2868: ,p_organization_id => l_orgid_tab(i));
2869:
2870: l_progress := '331';
2871: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2872: IF (l_debug = 1) THEN
2873: DEBUG(' Validate Operation failed for MMTT = ' || l_tempid_tab(i) || ' hence erroring out' ,l_proc_name,1);
2874: DEBUG(' Error = ' || l_msg_data,l_proc_name,1);
2875: END IF;
2872: IF (l_debug = 1) THEN
2873: DEBUG(' Validate Operation failed for MMTT = ' || l_tempid_tab(i) || ' hence erroring out' ,l_proc_name,1);
2874: DEBUG(' Error = ' || l_msg_data,l_proc_name,1);
2875: END IF;
2876: --RAISE fnd_api.g_exc_error;
2877: RETURN -1;
2878: ELSE
2879: -- Successful execution. Check whether this step if crossdocked/not
2880: IF (l_debug = 1) THEN
2926: ,x_msg_data => l_msg_data
2927: );
2928: l_progress := '334';
2929:
2930: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
2931: IF (l_debug = 1) THEN
2932: DEBUG('WIP info for putaway failed for MMTT = ' || l_tempid_tab(i) ,l_proc_name,1);
2933: DEBUG('Error = ' || l_msg_data,l_proc_name,1);
2934: END IF;
2931: IF (l_debug = 1) THEN
2932: DEBUG('WIP info for putaway failed for MMTT = ' || l_tempid_tab(i) ,l_proc_name,1);
2933: DEBUG('Error = ' || l_msg_data,l_proc_name,1);
2934: END IF;
2935: --RAISE fnd_api.g_exc_error;
2936: RETURN -1;
2937: l_progress := '340';
2938: END IF;
2939: ELSE
3008: l_progress := '390';
3009:
3010: EXCEPTION
3011: WHEN OTHERS THEN
3012: RAISE fnd_api.g_exc_unexpected_error;
3013: END; -- WIP Integration
3014:
3015:
3016: IF (l_debug = 1) THEN
3039: RETURN l_rec_count;
3040:
3041:
3042: EXCEPTION
3043: WHEN fnd_api.g_exc_error THEN
3044: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3045: DEBUG(SQLERRM,l_proc_name,1);
3046:
3047: IF c_all_lpn_cursor%ISOPEN THEN
3054:
3055: RETURN -1;
3056:
3057:
3058: WHEN fnd_api.g_exc_unexpected_error THEN
3059: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3060: DEBUG(SQLERRM,l_proc_name,1);
3061:
3062: IF c_all_lpn_cursor%ISOPEN THEN
3154: END IF;
3155:
3156: -- Set the return status to success.
3157: l_progress := '20';
3158: x_return_status := fnd_api.g_ret_sts_success;
3159: l_progress := '30';
3160:
3161: -- Setting the values for the task record
3162: -- Neednot set these values for drop since there ia already WDT,
3210: ,x_drop_lpn_option => l_drop_lpn_option
3211: );
3212: l_progress := '310';
3213:
3214: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3215: IF (l_debug = 1) THEN
3216: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
3217: END IF;
3218: l_progress := '320';
3216: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
3217: END IF;
3218: l_progress := '320';
3219:
3220: RAISE fnd_api.g_exc_error;
3221: END IF;
3222:
3223: END LOOP; --All temp ids loop
3224:
3233: --Return the count of rows processed
3234: RETURN l_rec_count;
3235:
3236: EXCEPTION
3237: WHEN fnd_api.g_exc_error THEN
3238: x_return_status := fnd_api.g_ret_sts_error;
3239: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3240: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3241: DEBUG(SQLERRM,l_proc_name,1);
3234: RETURN l_rec_count;
3235:
3236: EXCEPTION
3237: WHEN fnd_api.g_exc_error THEN
3238: x_return_status := fnd_api.g_ret_sts_error;
3239: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3240: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3241: DEBUG(SQLERRM,l_proc_name,1);
3242:
3235:
3236: EXCEPTION
3237: WHEN fnd_api.g_exc_error THEN
3238: x_return_status := fnd_api.g_ret_sts_error;
3239: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3240: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3241: DEBUG(SQLERRM,l_proc_name,1);
3242:
3243: IF c_all_mmtt_cursor%ISOPEN THEN
3246:
3247: RETURN -1;
3248:
3249:
3250: WHEN fnd_api.g_exc_unexpected_error THEN
3251: x_return_status := fnd_api.g_ret_sts_unexp_error;
3252: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3253:
3254: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3247: RETURN -1;
3248:
3249:
3250: WHEN fnd_api.g_exc_unexpected_error THEN
3251: x_return_status := fnd_api.g_ret_sts_unexp_error;
3252: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3253:
3254: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3255: DEBUG(SQLERRM,l_proc_name,1);
3248:
3249:
3250: WHEN fnd_api.g_exc_unexpected_error THEN
3251: x_return_status := fnd_api.g_ret_sts_unexp_error;
3252: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3253:
3254: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3255: DEBUG(SQLERRM,l_proc_name,1);
3256:
3261: RETURN -1;
3262:
3263:
3264: WHEN OTHERS THEN
3265: x_return_status := fnd_api.g_ret_sts_unexp_error;
3266: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3267: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3268: DEBUG(SQLERRM,l_proc_name,1);
3269:
3262:
3263:
3264: WHEN OTHERS THEN
3265: x_return_status := fnd_api.g_ret_sts_unexp_error;
3266: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3267: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3268: DEBUG(SQLERRM,l_proc_name,1);
3269:
3270: IF c_all_mmtt_cursor%ISOPEN THEN
3337: END IF;
3338:
3339: -- Set the return status to success.
3340: l_progress := '20';
3341: x_return_status := fnd_api.g_ret_sts_success;
3342: l_progress := '30';
3343:
3344: l_progress := '100';
3345: OPEN c_all_mmtt_cursor;
3382: ,x_error_code => l_error_code
3383: );
3384: l_progress := '310';
3385:
3386: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3387: IF (l_debug = 1) THEN
3388: DEBUG(l_error_code || ' Error in complete_operation_instance ' ,l_proc_name,1);
3389: END IF;
3390: l_progress := '320';
3388: DEBUG(l_error_code || ' Error in complete_operation_instance ' ,l_proc_name,1);
3389: END IF;
3390: l_progress := '320';
3391:
3392: RAISE fnd_api.g_exc_error;
3393: END IF;
3394:
3395: END LOOP; --All temp ids loop
3396:
3405: --Return the count of rows processed
3406: RETURN l_rec_count;
3407:
3408: EXCEPTION
3409: WHEN fnd_api.g_exc_error THEN
3410: x_return_status := fnd_api.g_ret_sts_error;
3411: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3412: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3413: DEBUG(SQLERRM,l_proc_name,1);
3406: RETURN l_rec_count;
3407:
3408: EXCEPTION
3409: WHEN fnd_api.g_exc_error THEN
3410: x_return_status := fnd_api.g_ret_sts_error;
3411: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3412: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3413: DEBUG(SQLERRM,l_proc_name,1);
3414:
3407:
3408: EXCEPTION
3409: WHEN fnd_api.g_exc_error THEN
3410: x_return_status := fnd_api.g_ret_sts_error;
3411: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3412: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3413: DEBUG(SQLERRM,l_proc_name,1);
3414:
3415: IF c_all_mmtt_cursor%ISOPEN THEN
3418:
3419: RETURN -1;
3420:
3421:
3422: WHEN fnd_api.g_exc_unexpected_error THEN
3423: x_return_status := fnd_api.g_ret_sts_unexp_error;
3424: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3425:
3426: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3419: RETURN -1;
3420:
3421:
3422: WHEN fnd_api.g_exc_unexpected_error THEN
3423: x_return_status := fnd_api.g_ret_sts_unexp_error;
3424: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3425:
3426: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3427: DEBUG(SQLERRM,l_proc_name,1);
3420:
3421:
3422: WHEN fnd_api.g_exc_unexpected_error THEN
3423: x_return_status := fnd_api.g_ret_sts_unexp_error;
3424: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3425:
3426: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3427: DEBUG(SQLERRM,l_proc_name,1);
3428:
3433: RETURN -1;
3434:
3435:
3436: WHEN OTHERS THEN
3437: x_return_status := fnd_api.g_ret_sts_unexp_error;
3438: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3439: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3440: DEBUG(SQLERRM,l_proc_name,1);
3441:
3434:
3435:
3436: WHEN OTHERS THEN
3437: x_return_status := fnd_api.g_ret_sts_unexp_error;
3438: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3439: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3440: DEBUG(SQLERRM,l_proc_name,1);
3441:
3442: IF c_all_mmtt_cursor%ISOPEN THEN
3496: END IF;
3497:
3498: -- Set the return status to success.
3499: l_progress := '20';
3500: x_return_status := fnd_api.g_ret_sts_success;
3501: l_progress := '30';
3502:
3503: IF (l_debug = 1) THEN
3504: DEBUG(' Calling Activate Instance for the LOAD Operation ... ' || x_msg_data ,l_proc_name,9);
3515: ,p_emp_id => p_emp_id);
3516:
3517: l_progress := '110';
3518:
3519: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3520: IF (l_debug = 1) THEN
3521: DEBUG(' Error in Activate_Plan_For_Load ' || x_msg_data ,l_proc_name,1);
3522: END IF;
3523: l_progress := '120';
3521: DEBUG(' Error in Activate_Plan_For_Load ' || x_msg_data ,l_proc_name,1);
3522: END IF;
3523: l_progress := '120';
3524:
3525: RAISE fnd_api.g_exc_error;
3526: ELSE
3527: IF (l_debug = 1) THEN
3528: DEBUG('Successfully called Activate_Plan_For_Load for ' || l_rec_count || ' row(s)' ,l_proc_name,9);
3529: END IF;
3546: ,p_emp_id => p_emp_id);
3547:
3548: l_progress := '210';
3549:
3550: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3551: IF (l_debug = 1) THEN
3552: DEBUG(' Error in Complete_Plan_For_Load ' || x_msg_data ,l_proc_name,1);
3553: END IF;
3554: l_progress := '220';
3552: DEBUG(' Error in Complete_Plan_For_Load ' || x_msg_data ,l_proc_name,1);
3553: END IF;
3554: l_progress := '220';
3555:
3556: RAISE fnd_api.g_exc_error;
3557: ELSE
3558: IF (l_debug = 1) THEN
3559: DEBUG('Successfully called Complete_Plan_For_Load for ' || l_rec_count || ' row(s)' ,l_proc_name,9);
3560: END IF;
3564:
3565: l_progress := '990';
3566:
3567: EXCEPTION
3568: WHEN fnd_api.g_exc_error THEN
3569: x_return_status := fnd_api.g_ret_sts_error;
3570: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3571: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3572: DEBUG(SQLERRM,l_proc_name,1);
3565: l_progress := '990';
3566:
3567: EXCEPTION
3568: WHEN fnd_api.g_exc_error THEN
3569: x_return_status := fnd_api.g_ret_sts_error;
3570: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3571: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3572: DEBUG(SQLERRM,l_proc_name,1);
3573:
3566:
3567: EXCEPTION
3568: WHEN fnd_api.g_exc_error THEN
3569: x_return_status := fnd_api.g_ret_sts_error;
3570: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3571: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3572: DEBUG(SQLERRM,l_proc_name,1);
3573:
3574: WHEN fnd_api.g_exc_unexpected_error THEN
3570: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3571: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3572: DEBUG(SQLERRM,l_proc_name,1);
3573:
3574: WHEN fnd_api.g_exc_unexpected_error THEN
3575: x_return_status := fnd_api.g_ret_sts_unexp_error;
3576: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3577: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3578: DEBUG(SQLERRM,l_proc_name,1);
3571: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3572: DEBUG(SQLERRM,l_proc_name,1);
3573:
3574: WHEN fnd_api.g_exc_unexpected_error THEN
3575: x_return_status := fnd_api.g_ret_sts_unexp_error;
3576: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3577: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3578: DEBUG(SQLERRM,l_proc_name,1);
3579:
3572: DEBUG(SQLERRM,l_proc_name,1);
3573:
3574: WHEN fnd_api.g_exc_unexpected_error THEN
3575: x_return_status := fnd_api.g_ret_sts_unexp_error;
3576: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3577: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3578: DEBUG(SQLERRM,l_proc_name,1);
3579:
3580: WHEN OTHERS THEN
3577: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3578: DEBUG(SQLERRM,l_proc_name,1);
3579:
3580: WHEN OTHERS THEN
3581: x_return_status := fnd_api.g_ret_sts_unexp_error;
3582: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3583: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3584: DEBUG(SQLERRM,l_proc_name,1);
3585:
3578: DEBUG(SQLERRM,l_proc_name,1);
3579:
3580: WHEN OTHERS THEN
3581: x_return_status := fnd_api.g_ret_sts_unexp_error;
3582: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3583: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3584: DEBUG(SQLERRM,l_proc_name,1);
3585:
3586: END Complete_ATF_Load;
3679:
3680:
3681: -- Set the return status to success.
3682: l_progress := '20';
3683: x_return_status := fnd_api.g_ret_sts_success;
3684: l_progress := '30';
3685:
3686: -- Setting the values for the task record
3687: -- Neednot set these values for drop since there ia already WDT,
3758: --Assume that x_msg_data stores the translated string, so
3759: --the UI just needs to show the string without any translation
3760: l_error_code_tab(i) := x_msg_data;
3761:
3762: ELSIF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3763: IF (l_debug = 1) THEN
3764: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
3765: END IF;
3766: l_progress := '320';
3764: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
3765: END IF;
3766: l_progress := '320';
3767:
3768: RAISE fnd_api.g_exc_error;
3769: END IF;
3770:
3771: l_drop_lpn_option_tab(i) := l_drop_lpn_option;
3772: l_consolidation_method_id_tab(i) := l_consolidation_method_id;
3846: --Return the count of rows processed
3847: RETURN l_rec_count;
3848:
3849: EXCEPTION
3850: WHEN fnd_api.g_exc_error THEN
3851: x_return_status := fnd_api.g_ret_sts_error;
3852: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3853: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3854: DEBUG(SQLERRM,l_proc_name,1);
3847: RETURN l_rec_count;
3848:
3849: EXCEPTION
3850: WHEN fnd_api.g_exc_error THEN
3851: x_return_status := fnd_api.g_ret_sts_error;
3852: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3853: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3854: DEBUG(SQLERRM,l_proc_name,1);
3855:
3848:
3849: EXCEPTION
3850: WHEN fnd_api.g_exc_error THEN
3851: x_return_status := fnd_api.g_ret_sts_error;
3852: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3853: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3854: DEBUG(SQLERRM,l_proc_name,1);
3855:
3856: IF c_all_tasks_cursor%ISOPEN THEN
3863:
3864: RETURN -1;
3865:
3866:
3867: WHEN fnd_api.g_exc_unexpected_error THEN
3868: x_return_status := fnd_api.g_ret_sts_unexp_error;
3869: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3870:
3871: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3864: RETURN -1;
3865:
3866:
3867: WHEN fnd_api.g_exc_unexpected_error THEN
3868: x_return_status := fnd_api.g_ret_sts_unexp_error;
3869: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3870:
3871: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3872: DEBUG(SQLERRM,l_proc_name,1);
3865:
3866:
3867: WHEN fnd_api.g_exc_unexpected_error THEN
3868: x_return_status := fnd_api.g_ret_sts_unexp_error;
3869: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3870:
3871: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3872: DEBUG(SQLERRM,l_proc_name,1);
3873:
3882: RETURN -1;
3883:
3884:
3885: WHEN OTHERS THEN
3886: x_return_status := fnd_api.g_ret_sts_unexp_error;
3887: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3888: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3889: DEBUG(SQLERRM,l_proc_name,1);
3890:
3883:
3884:
3885: WHEN OTHERS THEN
3886: x_return_status := fnd_api.g_ret_sts_unexp_error;
3887: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3888: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3889: DEBUG(SQLERRM,l_proc_name,1);
3890:
3891: IF c_all_tasks_cursor%ISOPEN THEN
3934: debug(' Start of procedure. Trying to lock all the LPNs in the temp table', l_proc_name,1);
3935: END IF;
3936:
3937: l_progress := '100';
3938: x_return_status := fnd_api.g_ret_sts_success;
3939: l_progress := '110';
3940:
3941: -- Bulk Lock all LPNs which are in the temp table.
3942: -- So that other user can't work on them
3965:
3966: EXCEPTION
3967: WHEN no_data_found THEN
3968: debug(' No LPNs found in the temp table for locking', l_proc_name,1);
3969: x_return_status := fnd_api.g_ret_sts_success;
3970:
3971: WHEN record_locked THEN
3972: debug(' LPN Already locked by someone else', l_proc_name,1);
3973: x_return_status := fnd_api.g_ret_sts_error;
3969: x_return_status := fnd_api.g_ret_sts_success;
3970:
3971: WHEN record_locked THEN
3972: debug(' LPN Already locked by someone else', l_proc_name,1);
3973: x_return_status := fnd_api.g_ret_sts_error;
3974:
3975: fnd_message.set_name('WMS', 'WMS_LPN_UNAVAIL');
3976: fnd_msg_pub.ADD;
3977: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3973: x_return_status := fnd_api.g_ret_sts_error;
3974:
3975: fnd_message.set_name('WMS', 'WMS_LPN_UNAVAIL');
3976: fnd_msg_pub.ADD;
3977: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3978:
3979: WHEN OTHERS THEN
3980: debug(' Exception while trying to lock LPN(s) ' || SQLERRM, l_proc_name,1);
3981: x_return_status := fnd_api.g_ret_sts_unexp_error;
3977: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3978:
3979: WHEN OTHERS THEN
3980: debug(' Exception while trying to lock LPN(s) ' || SQLERRM, l_proc_name,1);
3981: x_return_status := fnd_api.g_ret_sts_unexp_error;
3982: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3983:
3984: END Lock_LPNs;
3985:
3978:
3979: WHEN OTHERS THEN
3980: debug(' Exception while trying to lock LPN(s) ' || SQLERRM, l_proc_name,1);
3981: x_return_status := fnd_api.g_ret_sts_unexp_error;
3982: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3983:
3984: END Lock_LPNs;
3985:
3986:
4059: DEBUG(' p_lpn_is_loaded => '||p_lpn_is_loaded, l_proc_name,4);
4060: END IF;
4061:
4062: l_progress := '20';
4063: x_return_status := fnd_api.g_ret_sts_success;
4064: l_progress := '30';
4065:
4066: -- Always delete the existing records in the temp table before creating it.
4067: -- This code has to be later forked if the grouping logic has to be called for
4078: l_progress := '50';
4079:
4080: IF l_del_count = -1 THEN
4081: --Deletion has failed so raise error.
4082: RAISE fnd_api.g_exc_unexpected_error;
4083: END IF;
4084:
4085: l_progress := '60';
4086:
4085: l_progress := '60';
4086:
4087: EXCEPTION
4088: WHEN OTHERS THEN
4089: RAISE fnd_api.g_exc_unexpected_error;
4090: END; -- Delete Existing rows in the temp table
4091:
4092:
4093: -- Check whether the LPN is already loaded or not.
4120: ,x_return_status => x_return_status
4121: ,x_msg_count => x_msg_count
4122: ,x_msg_data => x_msg_data
4123: );
4124: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4125: IF (l_debug = 1) THEN
4126: DEBUG(' Error Unpacking LPN from Parent LPN' ,l_proc_name,9);
4127: END IF;
4128: RAISE fnd_api.g_exc_error;
4124: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4125: IF (l_debug = 1) THEN
4126: DEBUG(' Error Unpacking LPN from Parent LPN' ,l_proc_name,9);
4127: END IF;
4128: RAISE fnd_api.g_exc_error;
4129: END IF;
4130: END IF;
4131:
4132: IF (l_debug = 1) THEN
4143: l_progress := '120';
4144:
4145:
4146: -- Check for the return status
4147: IF x_return_status = fnd_api.g_ret_sts_success THEN
4148: -- Activate completed successfully.
4149: NULL;
4150:
4151: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4147: IF x_return_status = fnd_api.g_ret_sts_success THEN
4148: -- Activate completed successfully.
4149: NULL;
4150:
4151: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4152: RAISE fnd_api.g_exc_error;
4153:
4154: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4155: RAISE fnd_api.g_exc_unexpected_error;
4148: -- Activate completed successfully.
4149: NULL;
4150:
4151: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4152: RAISE fnd_api.g_exc_error;
4153:
4154: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4155: RAISE fnd_api.g_exc_unexpected_error;
4156:
4150:
4151: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4152: RAISE fnd_api.g_exc_error;
4153:
4154: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4155: RAISE fnd_api.g_exc_unexpected_error;
4156:
4157: END IF;
4158:
4151: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4152: RAISE fnd_api.g_exc_error;
4153:
4154: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4155: RAISE fnd_api.g_exc_unexpected_error;
4156:
4157: END IF;
4158:
4159: l_progress := '130';
4159: l_progress := '130';
4160:
4161: EXCEPTION
4162: WHEN OTHERS THEN
4163: RAISE fnd_api.g_exc_unexpected_error;
4164: END; -- Simulate LOAAD
4165:
4166: END IF; --LPN already loaded check
4167:
4208:
4209: -- Error out since it is failure case
4210: IF l_rec_count = -1 THEN
4211: l_progress := '220';
4212: RAISE fnd_api.g_exc_error;
4213: END IF;
4214:
4215: -- No tasks available. Set the message and display it in the UI
4216: IF l_rec_count = 0 THEN
4234: l_progress := '260';
4235:
4236:
4237: -- Check for the return status
4238: IF x_return_status = fnd_api.g_ret_sts_success THEN
4239: -- Activate completed successfully.
4240: NULL;
4241:
4242: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4238: IF x_return_status = fnd_api.g_ret_sts_success THEN
4239: -- Activate completed successfully.
4240: NULL;
4241:
4242: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4243: RAISE fnd_api.g_exc_error;
4244:
4245: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4246: RAISE fnd_api.g_exc_unexpected_error;
4239: -- Activate completed successfully.
4240: NULL;
4241:
4242: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4243: RAISE fnd_api.g_exc_error;
4244:
4245: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4246: RAISE fnd_api.g_exc_unexpected_error;
4247:
4241:
4242: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4243: RAISE fnd_api.g_exc_error;
4244:
4245: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4246: RAISE fnd_api.g_exc_unexpected_error;
4247:
4248: ELSIF l_rec_count = -1 THEN
4249: RAISE fnd_api.g_exc_unexpected_error;
4242: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4243: RAISE fnd_api.g_exc_error;
4244:
4245: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4246: RAISE fnd_api.g_exc_unexpected_error;
4247:
4248: ELSIF l_rec_count = -1 THEN
4249: RAISE fnd_api.g_exc_unexpected_error;
4250:
4245: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4246: RAISE fnd_api.g_exc_unexpected_error;
4247:
4248: ELSIF l_rec_count = -1 THEN
4249: RAISE fnd_api.g_exc_unexpected_error;
4250:
4251: END IF;
4252:
4253:
4252:
4253:
4254: EXCEPTION
4255: WHEN OTHERS THEN
4256: RAISE fnd_api.g_exc_unexpected_error;
4257:
4258: END; --ATF Call to Activate
4259:
4260: -- Core Grouping logic
4291: DEBUG('Populate_Drop_type returned error and hence raising exception ',l_proc_name,1);
4292: END IF;
4293:
4294: l_progress := '340';
4295: RAISE fnd_api.g_exc_error;
4296: END IF; -- l_rec_count check
4297:
4298: l_progress := '350';
4299: EXCEPTION
4297:
4298: l_progress := '350';
4299: EXCEPTION
4300: WHEN OTHERS THEN
4301: RAISE fnd_api.g_exc_unexpected_error;
4302: END;--Populating the drop type
4303:
4304: -- END IF; --p_item_drop_flag check
4305:
4364: DEBUG('Mark_Consolidated_LPN returned error and hence raising exception ',l_proc_name,1);
4365: END IF;
4366:
4367: l_progress := '510';
4368: RAISE fnd_api.g_exc_error;
4369: END IF; -- l_rec_count check
4370:
4371: OPEN c_lpn_cursor;
4372: -- END BUG 5187983
4378:
4379:
4380: EXCEPTION
4381: WHEN OTHERS THEN
4382: RAISE fnd_api.g_exc_unexpected_error;
4383: END;-- Mark Consolidated LPN
4384:
4385:
4386: BEGIN --Group_Item_Drop_Tasks
4395: DEBUG('Group_Item_Drop_Tasks returned error and hence raising exception ',l_proc_name,1);
4396: END IF;
4397:
4398: l_progress := '640';
4399: RAISE fnd_api.g_exc_error;
4400: END IF; -- l_rec_count check
4401:
4402: l_progress := '650';
4403:
4402: l_progress := '650';
4403:
4404: EXCEPTION
4405: WHEN OTHERS THEN
4406: RAISE fnd_api.g_exc_unexpected_error;
4407: END;--Group_Item_Drop_Tasks
4408:
4409:
4410:
4420: DEBUG('Group_Consolidated_Drop_Tasks returned error and hence raising exception ',l_proc_name,1);
4421: END IF;
4422:
4423: l_progress := '740';
4424: RAISE fnd_api.g_exc_error;
4425: END IF; -- l_rec_count check
4426:
4427: l_progress := '750';
4428:
4427: l_progress := '750';
4428:
4429: EXCEPTION
4430: WHEN OTHERS THEN
4431: RAISE fnd_api.g_exc_unexpected_error;
4432: END;--Group_Consolidated_Drop_Tasks
4433:
4434:
4435: BEGIN --Sync_Group_Tasks
4444: DEBUG('Sync_Group_Tasks returned error and hence raising exception ',l_proc_name,1);
4445: END IF;
4446:
4447: l_progress := '840';
4448: RAISE fnd_api.g_exc_error;
4449: END IF; -- l_rec_count check
4450:
4451: l_progress := '850';
4452:
4451: l_progress := '850';
4452:
4453: EXCEPTION
4454: WHEN OTHERS THEN
4455: RAISE fnd_api.g_exc_unexpected_error;
4456: END;--Sync_Group_Tasks
4457:
4458:
4459: -- Done with the grouping logic, so go ahead and delete the dummy rows
4483: ,x_msg_data => x_msg_data );
4484:
4485: l_progress := '970';
4486:
4487: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4488: IF (l_debug = 1) THEN
4489: DEBUG(' Error in locking LPNs ' || x_msg_data ,l_proc_name,1);
4490: END IF;
4491:
4489: DEBUG(' Error in locking LPNs ' || x_msg_data ,l_proc_name,1);
4490: END IF;
4491:
4492: l_progress := '980';
4493: RAISE fnd_api.g_exc_error;
4494: END IF;
4495:
4496:
4497: IF (l_debug = 1) THEN
4503:
4504: l_progress := '1000';
4505:
4506: EXCEPTION
4507: WHEN fnd_api.g_exc_error THEN
4508: x_return_status := fnd_api.g_ret_sts_error;
4509: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4510: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4511: DEBUG(SQLERRM,l_proc_name,1);
4504: l_progress := '1000';
4505:
4506: EXCEPTION
4507: WHEN fnd_api.g_exc_error THEN
4508: x_return_status := fnd_api.g_ret_sts_error;
4509: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4510: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4511: DEBUG(SQLERRM,l_proc_name,1);
4512:
4505:
4506: EXCEPTION
4507: WHEN fnd_api.g_exc_error THEN
4508: x_return_status := fnd_api.g_ret_sts_error;
4509: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4510: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4511: DEBUG(SQLERRM,l_proc_name,1);
4512:
4513: IF c_lpn_cursor%isopen THEN
4513: IF c_lpn_cursor%isopen THEN
4514: CLOSE c_lpn_cursor;
4515: END IF;
4516:
4517: WHEN fnd_api.g_exc_unexpected_error THEN
4518: x_return_status := fnd_api.g_ret_sts_unexp_error;
4519: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4520: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4521: DEBUG(SQLERRM,l_proc_name,1);
4514: CLOSE c_lpn_cursor;
4515: END IF;
4516:
4517: WHEN fnd_api.g_exc_unexpected_error THEN
4518: x_return_status := fnd_api.g_ret_sts_unexp_error;
4519: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4520: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4521: DEBUG(SQLERRM,l_proc_name,1);
4522:
4515: END IF;
4516:
4517: WHEN fnd_api.g_exc_unexpected_error THEN
4518: x_return_status := fnd_api.g_ret_sts_unexp_error;
4519: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4520: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4521: DEBUG(SQLERRM,l_proc_name,1);
4522:
4523: IF c_lpn_cursor%isopen THEN
4525: END IF;
4526:
4527:
4528: WHEN OTHERS THEN
4529: x_return_status := fnd_api.g_ret_sts_unexp_error;
4530: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4531: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4532: DEBUG(SQLERRM,l_proc_name,1);
4533:
4526:
4527:
4528: WHEN OTHERS THEN
4529: x_return_status := fnd_api.g_ret_sts_unexp_error;
4530: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4531: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4532: DEBUG(SQLERRM,l_proc_name,1);
4533:
4534: IF c_lpn_cursor%isopen THEN
4607: END IF;
4608:
4609: -- Set the return status to success.
4610: l_progress := '20';
4611: x_return_status := fnd_api.g_ret_sts_success;
4612: l_progress := '30';
4613:
4614: -- Setting the values for the task record
4615: -- Thought this is for Drop, The existing WDTs if any for load would have been deleted
4665: );
4666:
4667: l_progress := '310';
4668:
4669: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4670: IF (l_debug = 1) THEN
4671: DEBUG(l_error_code || ' Error in abort_operation_instance ' ,l_proc_name,1);
4672: END IF;
4673: l_progress := '320';
4671: DEBUG(l_error_code || ' Error in abort_operation_instance ' ,l_proc_name,1);
4672: END IF;
4673: l_progress := '320';
4674:
4675: RAISE fnd_api.g_exc_error;
4676: END IF;
4677:
4678: ELSIF p_call_type = g_atf_cancel_plan THEN
4679: IF (l_debug = 1) THEN
4692: ,x_error_code => l_error_code
4693: );
4694: l_progress := '340';
4695:
4696: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4697: IF (l_debug = 1) THEN
4698: DEBUG(l_error_code || ' Error in cancel_operation_plan ' ,l_proc_name,1);
4699: END IF;
4700: l_progress := '350';
4698: DEBUG(l_error_code || ' Error in cancel_operation_plan ' ,l_proc_name,1);
4699: END IF;
4700: l_progress := '350';
4701:
4702: RAISE fnd_api.g_exc_error;
4703: END IF;
4704: ELSIF p_call_type = G_ATF_ACTIVATE_PLAN THEN
4705: IF (l_debug = 1) THEN
4706: DEBUG('Calling activate_operation_instance with ...',l_proc_name,9);
4724: ,x_drop_lpn_option => l_drop_lpn_option
4725: );
4726: l_progress := '340';
4727:
4728: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4729: IF (l_debug = 1) THEN
4730: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
4731: END IF;
4732: l_progress := '350';
4730: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
4731: END IF;
4732: l_progress := '350';
4733:
4734: RAISE fnd_api.g_exc_error;
4735: END IF;
4736:
4737: ELSE
4738: -- Invalid value for mode, return error
4735: END IF;
4736:
4737: ELSE
4738: -- Invalid value for mode, return error
4739: RAISE fnd_api.g_exc_error;
4740:
4741: END IF; -- Check the mode for which the integration API is called
4742:
4743:
4753:
4754:
4755: EXCEPTION
4756:
4757: WHEN fnd_api.g_exc_error THEN
4758: x_return_status := fnd_api.g_ret_sts_error;
4759: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4760: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4761: DEBUG(SQLERRM,l_proc_name,1);
4754:
4755: EXCEPTION
4756:
4757: WHEN fnd_api.g_exc_error THEN
4758: x_return_status := fnd_api.g_ret_sts_error;
4759: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4760: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4761: DEBUG(SQLERRM,l_proc_name,1);
4762:
4755: EXCEPTION
4756:
4757: WHEN fnd_api.g_exc_error THEN
4758: x_return_status := fnd_api.g_ret_sts_error;
4759: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4760: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4761: DEBUG(SQLERRM,l_proc_name,1);
4762:
4763: IF c_all_mmtt_cursor%isopen THEN
4763: IF c_all_mmtt_cursor%isopen THEN
4764: CLOSE c_all_mmtt_cursor;
4765: END IF;
4766:
4767: WHEN fnd_api.g_exc_unexpected_error THEN
4768: x_return_status := fnd_api.g_ret_sts_unexp_error;
4769: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4770: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4771: DEBUG(SQLERRM,l_proc_name,1);
4764: CLOSE c_all_mmtt_cursor;
4765: END IF;
4766:
4767: WHEN fnd_api.g_exc_unexpected_error THEN
4768: x_return_status := fnd_api.g_ret_sts_unexp_error;
4769: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4770: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4771: DEBUG(SQLERRM,l_proc_name,1);
4772:
4765: END IF;
4766:
4767: WHEN fnd_api.g_exc_unexpected_error THEN
4768: x_return_status := fnd_api.g_ret_sts_unexp_error;
4769: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4770: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4771: DEBUG(SQLERRM,l_proc_name,1);
4772:
4773: IF c_all_mmtt_cursor%isopen THEN
4775: END IF;
4776:
4777:
4778: WHEN OTHERS THEN
4779: x_return_status := fnd_api.g_ret_sts_unexp_error;
4780: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4781: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4782: DEBUG(SQLERRM,l_proc_name,1);
4783:
4776:
4777:
4778: WHEN OTHERS THEN
4779: x_return_status := fnd_api.g_ret_sts_unexp_error;
4780: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4781: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4782: DEBUG(SQLERRM,l_proc_name,1);
4783:
4784: IF c_all_mmtt_cursor%isopen THEN
4854: END IF;
4855:
4856: -- Set the return status to success.
4857: l_progress := '20';
4858: x_return_status := fnd_api.g_ret_sts_success;
4859: l_progress := '30';
4860:
4861: -- Get the employee ID so we can populate
4862: -- the person_id column in WDT properly.
4934: ,x_drop_lpn_option => l_drop_lpn_option
4935: );
4936: l_progress := '310';
4937:
4938: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4939: IF (l_debug = 1) THEN
4940: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
4941: END IF;
4942: l_progress := '320';
4940: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
4941: END IF;
4942: l_progress := '320';
4943:
4944: RAISE fnd_api.g_exc_error;
4945: END IF;
4946:
4947: END LOOP; --All temp ids loop
4948:
4957: --Return the count of rows processed
4958: RETURN l_rec_count;
4959:
4960: EXCEPTION
4961: WHEN fnd_api.g_exc_error THEN
4962: x_return_status := fnd_api.g_ret_sts_error;
4963: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4964: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4965: DEBUG(SQLERRM,l_proc_name,1);
4958: RETURN l_rec_count;
4959:
4960: EXCEPTION
4961: WHEN fnd_api.g_exc_error THEN
4962: x_return_status := fnd_api.g_ret_sts_error;
4963: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4964: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4965: DEBUG(SQLERRM,l_proc_name,1);
4966:
4959:
4960: EXCEPTION
4961: WHEN fnd_api.g_exc_error THEN
4962: x_return_status := fnd_api.g_ret_sts_error;
4963: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4964: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4965: DEBUG(SQLERRM,l_proc_name,1);
4966:
4967: IF c_mol_mmtt_cursor%ISOPEN THEN
4970:
4971: RETURN -1;
4972:
4973:
4974: WHEN fnd_api.g_exc_unexpected_error THEN
4975: x_return_status := fnd_api.g_ret_sts_unexp_error;
4976: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4977:
4978: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4971: RETURN -1;
4972:
4973:
4974: WHEN fnd_api.g_exc_unexpected_error THEN
4975: x_return_status := fnd_api.g_ret_sts_unexp_error;
4976: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4977:
4978: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4979: DEBUG(SQLERRM,l_proc_name,1);
4972:
4973:
4974: WHEN fnd_api.g_exc_unexpected_error THEN
4975: x_return_status := fnd_api.g_ret_sts_unexp_error;
4976: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4977:
4978: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4979: DEBUG(SQLERRM,l_proc_name,1);
4980:
4985: RETURN -1;
4986:
4987:
4988: WHEN OTHERS THEN
4989: x_return_status := fnd_api.g_ret_sts_unexp_error;
4990: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4991: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4992: DEBUG(SQLERRM,l_proc_name,1);
4993:
4986:
4987:
4988: WHEN OTHERS THEN
4989: x_return_status := fnd_api.g_ret_sts_unexp_error;
4990: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4991: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4992: DEBUG(SQLERRM,l_proc_name,1);
4993:
4994: IF c_mol_mmtt_cursor%ISOPEN THEN
5180:
5181: --Part of bugfix 4114695 - should initialize this variable so that
5182: --calls from java aren't mislead to think this failed when indeed
5183: --it was a clean exit. Upon EXCEPTION, this flag is changedw
5184: x_return_status := fnd_api.g_ret_sts_success;
5185:
5186: IF (l_debug = 1) THEN
5187: DEBUG('Start of function ' || l_proc_name ,l_proc_name,9);
5188: DEBUG(' p_call_type ==> '|| p_call_type,l_proc_name,4);
5211: WHEN OTHERS THEN
5212: IF (l_debug = 1) THEN
5213: DEBUG('Error querying WLPN. SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,l_proc_name,9);
5214: END IF;
5215: RAISE fnd_api.g_exc_error;
5216: END;
5217:
5218: IF (l_debug = 1) THEN
5219: DEBUG('Outermost LPN_ID:'||l_outermost_lpn_id,l_proc_name,9);
5269:
5270: ELSE
5271: -- Invalid inputs passed hence error out
5272: l_progress := '299';
5273: RAISE fnd_api.g_exc_error;
5274:
5275: END IF; -- Check which cursor to open
5276:
5277:
5297: ,x_return_status => x_return_status
5298: ,x_msg_count => x_msg_count
5299: ,x_msg_data => x_msg_data
5300: );
5301: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5302: IF (l_debug = 1) THEN
5303: DEBUG('Error packing LPN into original parent...', l_proc_name,9);
5304: END IF;
5305: RAISE fnd_api.g_exc_error;
5301: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5302: IF (l_debug = 1) THEN
5303: DEBUG('Error packing LPN into original parent...', l_proc_name,9);
5304: END IF;
5305: RAISE fnd_api.g_exc_error;
5306: END IF;
5307: END IF;
5308:
5309: l_lpn_context := NULL;
5328: ,x_error_code => l_error_code
5329: );
5330: l_progress := '310';
5331:
5332: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5333: IF (l_debug = 1) THEN
5334: DEBUG(l_error_code || ' Error in Rollback_operation_plan ' ,l_proc_name,1);
5335: END IF;
5336: l_progress := '320';
5333: IF (l_debug = 1) THEN
5334: DEBUG(l_error_code || ' Error in Rollback_operation_plan ' ,l_proc_name,1);
5335: END IF;
5336: l_progress := '320';
5337: x_return_status := fnd_api.g_ret_sts_error;
5338: /* Don't raise error in case of failure, instead set the ret status as error
5339: and proceed with the next record */
5340: --RAISE fnd_api.g_exc_error;
5341: END IF;
5336: l_progress := '320';
5337: x_return_status := fnd_api.g_ret_sts_error;
5338: /* Don't raise error in case of failure, instead set the ret status as error
5339: and proceed with the next record */
5340: --RAISE fnd_api.g_exc_error;
5341: END IF;
5342:
5343: --Bug 5075410: If the cleanup is called
5344: --for a single step drop for an inventory lpn and there is
5372: WHEN OTHERS THEN
5373: IF (l_debug = 1) THEN
5374: debug('Error querying op_plan_id of MMTT. SQLERRM:'||Sqlerrm,l_proc_name,1);
5375: END IF;
5376: RAISE fnd_api.g_exc_error;
5377: END;
5378:
5379: IF (l_lpn_context IS NULL) THEN
5380: BEGIN
5386: WHEN OTHERS THEN
5387: IF (l_debug = 1) THEN
5388: debug('Error querying lpn_context of WLPN. SQLERRM:'||Sqlerrm,l_proc_name,1);
5389: END IF;
5390: RAISE fnd_api.g_exc_error;
5391: END;
5392: END IF;
5393:
5394: l_mmtt_qty_mol_uom := inv_convert.inv_um_convert
5540: ,x_return_status => x_return_status
5541: ,x_msg_count => x_msg_count
5542: ,x_msg_data => x_msg_data
5543: );
5544: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5545: IF (l_debug = 1) THEN
5546: DEBUG('Error in Delete_dispatched_tasks ' ,l_proc_name,1);
5547: END IF;
5548: l_progress := '306';
5545: IF (l_debug = 1) THEN
5546: DEBUG('Error in Delete_dispatched_tasks ' ,l_proc_name,1);
5547: END IF;
5548: l_progress := '306';
5549: x_return_status := fnd_api.g_ret_sts_error;
5550: END IF;
5551:
5552: ELSE --IF (p_call_type = g_ct_inspect_b4_tm)
5553: IF (l_debug = 1) THEN
5566: ,x_error_code => l_error_code
5567: );
5568: l_progress := '320';
5569:
5570: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5571: IF (l_debug = 1) THEN
5572: DEBUG(l_error_code || ' Error in Cleanup_Operation_Instance ' ,l_proc_name,1);
5573: END IF;
5574: l_progress := '330';
5571: IF (l_debug = 1) THEN
5572: DEBUG(l_error_code || ' Error in Cleanup_Operation_Instance ' ,l_proc_name,1);
5573: END IF;
5574: l_progress := '330';
5575: x_return_status := fnd_api.g_ret_sts_error;
5576: /* Don't raise error in case of failure, instead set the ret status as error
5577: and proceed with the next record */
5578: --RAISE fnd_api.g_exc_error;
5579: END IF;
5574: l_progress := '330';
5575: x_return_status := fnd_api.g_ret_sts_error;
5576: /* Don't raise error in case of failure, instead set the ret status as error
5577: and proceed with the next record */
5578: --RAISE fnd_api.g_exc_error;
5579: END IF;
5580: END IF;--IF (p_call_type = g_ct_inspect_b4_tm) THEN
5581:
5582: --BUG 5075410
5602:
5603: ELSE
5604: -- Invalid inputs passed hence error out
5605: l_progress := '340';
5606: RAISE fnd_api.g_exc_error;
5607: END IF;
5608:
5609:
5610: IF c_mol_mmtt_cursor%ISOPEN THEN
5630: -- in an online transactions, the variables will not be reset
5631: inv_rcv_common_apis.rcv_clear_global;
5632:
5633: EXCEPTION
5634: WHEN fnd_api.g_exc_error THEN
5635: x_return_status := fnd_api.g_ret_sts_error;
5636: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5637: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5638: DEBUG(SQLERRM,l_proc_name,1);
5631: inv_rcv_common_apis.rcv_clear_global;
5632:
5633: EXCEPTION
5634: WHEN fnd_api.g_exc_error THEN
5635: x_return_status := fnd_api.g_ret_sts_error;
5636: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5637: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5638: DEBUG(SQLERRM,l_proc_name,1);
5639:
5632:
5633: EXCEPTION
5634: WHEN fnd_api.g_exc_error THEN
5635: x_return_status := fnd_api.g_ret_sts_error;
5636: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5637: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5638: DEBUG(SQLERRM,l_proc_name,1);
5639:
5640: IF c_mol_mmtt_cursor%ISOPEN THEN
5648: IF c_all_mmtt_cursor%isopen THEN
5649: CLOSE c_all_mmtt_cursor;
5650: END IF;
5651:
5652: WHEN fnd_api.g_exc_unexpected_error THEN
5653: x_return_status := fnd_api.g_ret_sts_unexp_error;
5654: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5655:
5656: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5649: CLOSE c_all_mmtt_cursor;
5650: END IF;
5651:
5652: WHEN fnd_api.g_exc_unexpected_error THEN
5653: x_return_status := fnd_api.g_ret_sts_unexp_error;
5654: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5655:
5656: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5657: DEBUG(SQLERRM,l_proc_name,1);
5650: END IF;
5651:
5652: WHEN fnd_api.g_exc_unexpected_error THEN
5653: x_return_status := fnd_api.g_ret_sts_unexp_error;
5654: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5655:
5656: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5657: DEBUG(SQLERRM,l_proc_name,1);
5658:
5667: IF c_all_mmtt_cursor%isopen THEN
5668: CLOSE c_all_mmtt_cursor;
5669: END IF;
5670: WHEN OTHERS THEN
5671: x_return_status := fnd_api.g_ret_sts_unexp_error;
5672: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5673: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5674: DEBUG(SQLERRM,l_proc_name,1);
5675:
5668: CLOSE c_all_mmtt_cursor;
5669: END IF;
5670: WHEN OTHERS THEN
5671: x_return_status := fnd_api.g_ret_sts_unexp_error;
5672: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5673: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5674: DEBUG(SQLERRM,l_proc_name,1);
5675:
5676: IF c_mol_mmtt_cursor%ISOPEN THEN
5767:
5768: -- Intialize out variables.
5769: l_progress := 10;
5770: l_content_lpn := 'N';
5771: x_return_status := fnd_api.g_ret_sts_success;
5772: x_loaded_status := 'N';
5773: x_ret := 0;
5774:
5775: IF (l_debug = 1) THEN
5882: END IF;
5883:
5884: END IF;
5885: x_ret := 3; --return error
5886: x_return_status := fnd_api.g_ret_sts_success;
5887: RETURN;
5888: END IF;--END IF (l_drop_active = 'Y') THEN
5889: END IF;--END IF (x_lpn_context = 3) THEN
5890:
5968: -- If return value is error then parent lpn state 'U' - INVALID
5969: -- else if return value = 0 then parent lpn state 'V' - VALID;
5970: -- else if return value = 1 then parent lpn state 'I' - INSPECT;
5971: -- else paretn lpn statue - 'U' - INVALID.
5972: IF (l_x_return_status = fnd_api.g_ret_sts_error OR l_x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
5973: l_parent_lpn_state := 'U'; -- invalid
5974: ELSIF (l_x_ret =0) THEN
5975: l_parent_lpn_state := 'V'; -- valid.
5976: ELSIF (l_x_ret =1) THEN
5992: -- In this case check for the given LPN itself and return.
5993:
5994: IF p_mode = 0 THEN
5995: -- In case of failures l_x_ret might be '0' set it to proper value;
5996: IF (l_x_return_status = fnd_api.g_ret_sts_error OR
5997: l_x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
5998: l_x_ret := 3;
5999: END IF;
6000: x_ret := l_x_ret;
5993:
5994: IF p_mode = 0 THEN
5995: -- In case of failures l_x_ret might be '0' set it to proper value;
5996: IF (l_x_return_status = fnd_api.g_ret_sts_error OR
5997: l_x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
5998: l_x_ret := 3;
5999: END IF;
6000: x_ret := l_x_ret;
6001: RETURN;
6058: -- If return value is error then child lpn state 'U' - INVALID
6059: -- else if return value = 0 then child lpn state 'V' - VALID;
6060: -- else if return value = 1 then child lpn state 'I' - INSPECT;
6061: -- else paretn lpn statue - 'U' - INVALID.
6062: IF (l_x_return_status = fnd_api.g_ret_sts_error OR l_x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
6063: l_child_lpn_state := 'U'; -- invalid
6064: ELSIF (l_x_ret =0) THEN
6065: l_child_lpn_state := 'V'; -- valid.
6066: ELSIF (l_x_ret =1) THEN
6157:
6158:
6159: EXCEPTION
6160: WHEN OTHERS THEN
6161: x_return_status := fnd_api.g_ret_sts_unexp_error;
6162: x_ret := 3;
6163: debug(SQLCODE, 1);
6164:
6165: IF lpn_cursor%isopen THEN
6228: CONNECT BY parent_lpn_id = PRIOR lpn_id;
6229: BEGIN
6230:
6231: -- Intializat out variables.
6232: x_return_status := fnd_api.g_ret_sts_success;
6233:
6234: -- Explode the LPN and for each child LPN call suggestions_pub_wrapper.
6235: IF (l_debug = 1) THEN
6236: debug('Patchset J code');
6239: debug(' p_user_id==> '|| p_user_id);
6240: END IF;
6241:
6242: -- Initialize out variables
6243: x_return_status := fnd_api.g_ret_sts_success;
6244: x_crossdock:= 'N';
6245: x_number_of_rows := 0;
6246:
6247: OPEN lpn_cursor;
6280: debug('ret status after suggestion pug for : ' ||l_lpn_id||' is '|| x_return_status);
6281: END IF;
6282:
6283:
6284: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6285: -- IF x_msg_count = 0 THEN
6286: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6287: -- FND_MSG_PUB.ADD;
6288: -- END IF;
6285: -- IF x_msg_count = 0 THEN
6286: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6287: -- FND_MSG_PUB.ADD;
6288: -- END IF;
6289: RAISE FND_API.g_exc_unexpected_error;
6290:
6291: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6292: -- IF x_msg_count = 0 THEN
6293: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6287: -- FND_MSG_PUB.ADD;
6288: -- END IF;
6289: RAISE FND_API.g_exc_unexpected_error;
6290:
6291: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
6292: -- IF x_msg_count = 0 THEN
6293: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6294: -- FND_MSG_PUB.ADD;
6295: -- END IF;
6292: -- IF x_msg_count = 0 THEN
6293: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6294: -- FND_MSG_PUB.ADD;
6295: -- END IF;
6296: RAISE FND_API.G_EXC_ERROR;
6297: END IF;
6298:
6299: IF l_x_crossdock = 'Y' THEN
6300: x_crossdock := 'Y';
6327: FOR i IN 2 .. l_msg_count LOOP
6328: fnd_msg_pub.delete_msg(i);
6329: END LOOP;
6330: END IF;
6331: RAISE fnd_api.g_exc_error;
6332: END IF;
6333:
6334: EXCEPTION
6335: WHEN OTHERS THEN
6332: END IF;
6333:
6334: EXCEPTION
6335: WHEN OTHERS THEN
6336: x_return_status := fnd_api.g_ret_sts_unexp_error;
6337: debug(SQLCODE, 1);
6338:
6339: IF lpn_cursor%isopen THEN
6340: CLOSE lpn_cursor;
6388: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
6389: l_ret NUMBER;
6390:
6391: BEGIN
6392: x_return_status := fnd_api.g_ret_sts_success;
6393: l_progress := 10;
6394:
6395: IF(l_debug =1) THEN
6396: debug('In Patchset J code: ','PackUnpackLpn');
6446: , p_task_id => p_task_id);
6447: END IF;
6448:
6449: IF (l_txn_temp_id <=0 ) OR (l_ret<>0) THEN
6450: x_return_status := fnd_api.g_ret_sts_unexp_error;
6451: END IF;
6452:
6453: -- Update batch id and seq id
6454: IF p_batch_id IS NOT NULL AND p_batch_seq IS NOT NULL THEN
6465: END IF;
6466:
6467: EXCEPTION
6468: WHEN OTHERS THEN
6469: x_return_status := fnd_api.g_ret_sts_unexp_error;
6470: debug(SQLCODE, 1);
6471:
6472: IF SQLCODE IS NOT NULL THEN
6473: l_progress := 100;
6525: l_msg_data VARCHAR2(10000);
6526: l_discrepancy NUMBER;
6527: BEGIN
6528: l_progress := 10;
6529: x_return_status := fnd_api.g_ret_sts_success;
6530:
6531: IF (l_debug = 1) THEN
6532: debug('Patchset J code - Load LPN');
6533: debug(' p_org_id=======> '|| p_org_id);
6645: IF (l_debug = 1) THEN
6646: debug('Error inserting MMTT ID: ' ||
6647: l_txn_temp_id,9);
6648: END IF;
6649: RAISE fnd_api.g_exc_error;
6650: END IF;
6651:
6652: BEGIN
6653: UPDATE mtl_material_transactions_temp
6660: IF (l_debug = 1) THEN
6661: debug('Error updating MMTT with ID: ' ||
6662: l_txn_temp_id,9);
6663: END IF;
6664: RAISE fnd_api.g_exc_error;
6665: END;
6666:
6667: packunpack_lpn
6668: (
6726: ,p_content_lpn_id => p_from_lpn_id
6727: ,p_lpn_id => l_parent_lpn_id
6728: ,p_operation => 2 -- Unpack
6729: ,p_organization_id => p_org_id
6730: ,p_commit => fnd_api.g_false
6731: ,x_return_status => x_return_status
6732: ,x_msg_count => x_msg_count
6733: ,x_msg_data => x_msg_data);
6734:
6731: ,x_return_status => x_return_status
6732: ,x_msg_count => x_msg_count
6733: ,x_msg_data => x_msg_data);
6734:
6735: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6736: IF (l_debug = 1) THEN
6737: DEBUG('Error unpacking content_lpn = ' ||
6738: p_from_lpn_id || ' into lpn = ' ||
6739: l_parent_lpn_id,'load_lpn',9);
6738: p_from_lpn_id || ' into lpn = ' ||
6739: l_parent_lpn_id,'load_lpn',9);
6740: debug('Error message:'||x_msg_data,9);
6741: END IF;
6742: RAISE fnd_api.g_exc_error;
6743: END IF;
6744: END IF; --IF l_parent_lpn_id IS NOT NULL THEN
6745:
6746: -- Pack the given LPN into ToLPN
6760: ,p_lpn_id => p_from_lpn_id
6761: ,p_subinventory => l_to_sub
6762: ,p_locator_id => l_to_loc
6763: );
6764: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6765: IF (l_debug = 1) THEN
6766: debug('Error modifying lpn',
6767: 'load_lpn', 9);
6768: END IF;
6774: ,p_content_lpn_id => p_from_lpn_id
6775: ,p_lpn_id => p_to_lpn_id
6776: ,p_operation => 1 --Pack
6777: ,p_organization_id => p_org_id
6778: ,p_commit => fnd_api.g_false
6779: ,x_return_status => x_return_status
6780: ,x_msg_count => x_msg_count
6781: ,x_msg_data => x_msg_data);
6782: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6778: ,p_commit => fnd_api.g_false
6779: ,x_return_status => x_return_status
6780: ,x_msg_count => x_msg_count
6781: ,x_msg_data => x_msg_data);
6782: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6783: IF (l_debug = 1) THEN
6784: DEBUG('Error packing content_lpn = ' ||
6785: p_from_lpn_id || ' into lpn = ' ||
6786: p_to_lpn_id,'load_lpn',9);
6785: p_from_lpn_id || ' into lpn = ' ||
6786: p_to_lpn_id,'load_lpn',9);
6787: debug('Error message:'||x_msg_data,9);
6788: END IF;
6789: RAISE fnd_api.g_exc_error;
6790: END IF;
6791: END IF; -- IF p_to_lpn_id IS NOT NULL AND p_to_lpn_id <> p_from_lpn_id AND (p_to_lpn_id <> 0) THEN
6792:
6793: END IF; --IF p_mode = 1
6806: ,p_txn_mode_code => 'ONLINE'
6807: ,x_return_status => x_return_status
6808: ,x_msg_count => x_msg_count
6809: ,x_msg_data => x_msg_data);
6810: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6811: IF (l_debug = 1) THEN
6812: debug('Error inserting RTI');
6813: END IF;
6814: RAISE fnd_api.g_exc_error;
6810: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6811: IF (l_debug = 1) THEN
6812: debug('Error inserting RTI');
6813: END IF;
6814: RAISE fnd_api.g_exc_error;
6815: END IF;
6816:
6817: IF (l_debug = 1 ) then
6818: debug('RTI inserted with group_id:'|| l_group_id, 9);
6852: debug('After creating suggestions for ' || p_from_lpn_id);
6853: END IF;
6854:
6855:
6856: IF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6857: -- IF (x_msg_count = 0) THEN
6858: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6859: -- FND_MSG_PUB.ADD;
6860: -- END IF;
6857: -- IF (x_msg_count = 0) THEN
6858: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6859: -- FND_MSG_PUB.ADD;
6860: -- END IF;
6861: RAISE FND_API.g_exc_unexpected_error;
6862: ELSIF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
6863: -- IF (x_msg_count = 0 ) THEN
6864: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6865: -- FND_MSG_PUB.ADD;
6858: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6859: -- FND_MSG_PUB.ADD;
6860: -- END IF;
6861: RAISE FND_API.g_exc_unexpected_error;
6862: ELSIF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
6863: -- IF (x_msg_count = 0 ) THEN
6864: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6865: -- FND_MSG_PUB.ADD;
6866: -- END IF;
6863: -- IF (x_msg_count = 0 ) THEN
6864: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6865: -- FND_MSG_PUB.ADD;
6866: -- END IF;
6867: RAISE FND_API.G_EXC_ERROR;
6868: END IF;
6869:
6870: --BUG 4345714: If any line is not detailed, then fail.
6871: BEGIN
6927: debug('After calling the revert_loc_suggested_capacity');
6928: ROLLBACK;
6929: -- 6962664
6930:
6931: RAISE fnd_api.g_exc_error;
6932: END IF;
6933:
6934: -- Call TM for Pack/Unpack the given lpn
6935: IF (l_is_tm_call_needed = TRUE) THEN
6934: -- Call TM for Pack/Unpack the given lpn
6935: IF (l_is_tm_call_needed = TRUE) THEN
6936: l_ret := inv_lpn_trx_pub.process_lpn_trx(
6937: p_trx_hdr_id => l_trx_header_id,
6938: p_commit => fnd_api.g_false,
6939: x_proc_msg => x_msg_data,
6940: p_atomic => fnd_api.g_true);
6941: -- Check return value and in case of failure raise exception
6942: IF (l_ret <> 0) THEN
6936: l_ret := inv_lpn_trx_pub.process_lpn_trx(
6937: p_trx_hdr_id => l_trx_header_id,
6938: p_commit => fnd_api.g_false,
6939: x_proc_msg => x_msg_data,
6940: p_atomic => fnd_api.g_true);
6941: -- Check return value and in case of failure raise exception
6942: IF (l_ret <> 0) THEN
6943: IF l_debug = 1 THEN
6944: debug('TM call for pack unpack faluire');
6944: debug('TM call for pack unpack faluire');
6945: debug('Failure message ' || x_msg_data);
6946: END IF;
6947: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
6948: RAISE FND_API.G_EXC_ERROR;
6949: END IF;
6950: END IF;
6951:
6952: IF (l_is_rcv_tm_call_needed = TRUE) THEN
6979: DEBUG('There is no employee id tied to the user','load_lpn',9);
6980: END IF;
6981: fnd_message.set_name('WMS', 'WMS_NO_EMP_FOR_USR');
6982: fnd_msg_pub.ADD;
6983: RAISE fnd_api.g_exc_error;
6984: END;
6985:
6986: -- BEGIN DBI FIX
6987: l_task_execute_rec.person_id := l_emp_id;
7018: ,x_error_code => l_error_code
7019: ,x_consolidation_method_id => l_consolidation_method_id
7020: ,x_drop_lpn_option => l_drop_lpn_option
7021: );
7022: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7023: IF (l_debug = 1) THEN
7024: DEBUG('xxx: Error in activate_operation_instance','transfer_contents',9);
7025: END IF;
7026: RAISE fnd_api.g_exc_error;
7022: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7023: IF (l_debug = 1) THEN
7024: DEBUG('xxx: Error in activate_operation_instance','transfer_contents',9);
7025: END IF;
7026: RAISE fnd_api.g_exc_error;
7027: END IF;
7028: END LOOP;
7029:
7030: --End of BUG FIX 3359835
7044: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
7045: IF (l_debug = 1) THEN
7046: DEBUG('xxx: Error - Rcv TM Failed','load_lpn',9);
7047: END IF;
7048: RAISE fnd_api.g_exc_error;
7049: END;
7050:
7051: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7052: IF (l_debug = 1) THEN
7047: END IF;
7048: RAISE fnd_api.g_exc_error;
7049: END;
7050:
7051: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7052: IF (l_debug = 1) THEN
7053: DEBUG('xxx: Error - Rcv TM Failed','load_lpn',9);
7054: END IF;
7055: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
7052: IF (l_debug = 1) THEN
7053: DEBUG('xxx: Error - Rcv TM Failed','load_lpn',9);
7054: END IF;
7055: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
7056: RAISE fnd_api.g_exc_error;
7057: END IF;
7058:
7059: l_progress := 150;
7060:
7075: DEBUG('There is no employee id tied to the user','transfer_contents',9);
7076: END IF;
7077: fnd_message.set_name('WMS', 'WMS_NO_EMP_FOR_USR');
7078: fnd_msg_pub.ADD;
7079: RAISE fnd_api.g_exc_error;
7080: END;
7081: debug('Calling complete_atf_load for:'||p_from_lpn_id);
7082: DEBUG(' p_org_id => '||p_org_id, 'load_lpn',4);
7083: DEBUG(' p_emp_id => '||l_emp_id, 'load_lpn',4);
7089: ,p_lpn_id => p_from_lpn_id
7090: ,p_emp_id => l_emp_id );
7091:
7092: -- Check for the return status
7093: IF x_return_status = fnd_api.g_ret_sts_success THEN
7094: -- Activate completed successfully.
7095: NULL;
7096: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7097: RAISE fnd_api.g_exc_error;
7092: -- Check for the return status
7093: IF x_return_status = fnd_api.g_ret_sts_success THEN
7094: -- Activate completed successfully.
7095: NULL;
7096: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7097: RAISE fnd_api.g_exc_error;
7098: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7099: RAISE fnd_api.g_exc_unexpected_error;
7100: END IF;
7093: IF x_return_status = fnd_api.g_ret_sts_success THEN
7094: -- Activate completed successfully.
7095: NULL;
7096: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7097: RAISE fnd_api.g_exc_error;
7098: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7099: RAISE fnd_api.g_exc_unexpected_error;
7100: END IF;
7101: END IF;
7094: -- Activate completed successfully.
7095: NULL;
7096: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7097: RAISE fnd_api.g_exc_error;
7098: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7099: RAISE fnd_api.g_exc_unexpected_error;
7100: END IF;
7101: END IF;
7102:
7095: NULL;
7096: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7097: RAISE fnd_api.g_exc_error;
7098: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7099: RAISE fnd_api.g_exc_unexpected_error;
7100: END IF;
7101: END IF;
7102:
7103: -- Before returning commit all changes to datbase.
7104: COMMIT;
7105:
7106: EXCEPTION
7107: WHEN OTHERS THEN
7108: x_return_status := fnd_api.g_ret_sts_unexp_error;
7109: debug(SQLCODE, 1);
7110:
7111: -- Get rid of the folloiwng, as it appends a junk message to the
7112: -- error message stack
7172:
7173: l_operating_unit_id MO_GLOB_ORG_ACCESS_TMP.ORGANIZATION_ID%TYPE; --
7174:
7175: BEGIN
7176: x_return_status := fnd_api.g_ret_sts_success;
7177:
7178: l_to_sub := p_to_sub;
7179: l_to_loc := p_to_loc;
7180: l_lpn_id := p_lpn_id;
7207: EXCEPTION
7208: WHEN NO_DATA_FOUND THEN
7209: fnd_message.set_name('INV', 'INV_RCV_PARAM');
7210: fnd_msg_pub.ADD;
7211: RAISE fnd_api.g_exc_error;
7212: END;
7213:
7214: l_progress := '2';
7215:
7240: , x_return_status => x_return_status
7241: , x_error_code => l_error_code
7242: );
7243:
7244: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7245: IF (l_debug = 1)THEN
7246: debug('Date validation failed','insert_rti',9);
7247: END IF;
7248: RAISE fnd_api.g_exc_error;
7244: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7245: IF (l_debug = 1)THEN
7246: debug('Date validation failed','insert_rti',9);
7247: END IF;
7248: RAISE fnd_api.g_exc_error;
7249: END IF;
7250:
7251: l_progress := '6';
7252:
7453:
7454: RETURN l_group_id;
7455: EXCEPTION
7456: WHEN OTHERS THEN
7457: x_return_status := fnd_api.g_ret_sts_error;
7458: IF (l_debug = 1) THEN
7459: debug('Error after progress = ' || l_progress,
7460: 'insert_rti',
7461: 9);
7509: BEGIN
7510:
7511: l_progress := 10;
7512:
7513: x_return_status := fnd_api.g_ret_sts_success;
7514:
7515: IF (l_debug = 1) THEN
7516: debug('Pre_Process_lpn : Patchset J code - Nested LPNs are supported');
7517: debug(' p_from_lpn_id: '||p_from_lpn_id);
7582: debug('TM call for pack unpack faluire');
7583: debug('Failure message ' || x_msg_data);
7584: END IF;
7585: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7586: RAISE FND_API.G_EXC_ERROR;
7587: END IF;
7588:
7589: l_batch_seq := l_batch_seq + 1;
7590: END IF;
7602: ,p_content_lpn_id => p_from_lpn_id
7603: ,p_lpn_id => p_parent_lpn_id
7604: ,p_operation => 2 -- Unpack
7605: ,p_organization_id => p_organization_id
7606: ,p_commit => fnd_api.g_false
7607: ,x_return_status => x_return_status
7608: ,x_msg_count => x_msg_count
7609: ,x_msg_data => x_msg_data);
7610:
7671: debug('TM call for pack unpack faluire');
7672: debug('Failure message ' || x_msg_data);
7673: END IF;
7674: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7675: RAISE FND_API.G_EXC_ERROR;
7676: END IF; -- if l_ret<> 0
7677:
7678: l_batch_seq := l_batch_seq + 1;
7679:
7690: ,p_content_lpn_id => l_lpn_id -- child LPN ID
7691: ,p_lpn_id => p_from_lpn_id -- Parent LPN ID
7692: ,p_operation => 2 -- Unpack
7693: ,p_organization_id => p_organization_id
7694: ,p_commit => fnd_api.g_false
7695: ,x_return_status => x_return_status
7696: ,x_msg_count => x_msg_count
7697: ,x_msg_data => x_msg_data);
7698:
7722:
7723: EXCEPTION
7724:
7725: WHEN OTHERS THEN
7726: x_return_status := fnd_api.g_ret_sts_unexp_error;
7727: debug(SQLCODE, 1);
7728:
7729: IF lpn_cursor%isopen THEN
7730: CLOSE lpn_cursor;
7770: BEGIN
7771:
7772: l_progress := 10;
7773:
7774: x_return_status := fnd_api.g_ret_sts_success;
7775:
7776: IF (l_debug = 1) THEN
7777: debug('Post_Process_lpn : Patchset J code - Nested LPNs are supported');
7778: END IF;
7852:
7853: EXCEPTION
7854:
7855: WHEN OTHERS THEN
7856: x_return_status := fnd_api.g_ret_sts_unexp_error;
7857: debug(SQLCODE, 1);
7858:
7859: IF lpn_cursor%isopen THEN
7860: CLOSE lpn_cursor;
7983: DEBUG('There is no employee id tied to the user','transfer_contents',9);
7984: END IF;
7985: fnd_message.set_name('WMS', 'WMS_NO_EMP_FOR_USR');
7986: fnd_msg_pub.ADD;
7987: RAISE fnd_api.g_exc_error;
7988: END;
7989:
7990: l_progress := '7';
7991:
8011: 'transfer_contents',9);
8012: END IF;
8013: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
8014: fnd_msg_pub.ADD;
8015: RAISE fnd_api.g_exc_error;
8016: END;
8017:
8018: l_progress := '9';
8019:
8037: 'transfer_contents',9);
8038: END IF;
8039: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
8040: fnd_msg_pub.ADD;
8041: RAISE fnd_api.g_exc_error;
8042: END;
8043:
8044: -- Set variable if sub/loc of toLPN is different from that of from LPN
8045: IF (Nvl(p_into_lpn_id,0) <> 0
8070: 'transfer_contents', 9);
8071: END IF;
8072: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN_CONTEXT');
8073: fnd_msg_pub.ADD;
8074: RAISE fnd_api.g_exc_error;
8075: END IF;
8076:
8077: l_progress := '30';
8078:
8095: ,x_msg_data => x_msg_data
8096: ,x_crossdock => l_crossdock
8097: );
8098:
8099: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8100: IF (l_debug = 1) THEN
8101: DEBUG('Error in suggestions_pub_wrapper','transfer_contents',9);
8102: END IF;
8103: RAISE fnd_api.g_exc_error;
8099: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8100: IF (l_debug = 1) THEN
8101: DEBUG('Error in suggestions_pub_wrapper','transfer_contents',9);
8102: END IF;
8103: RAISE fnd_api.g_exc_error;
8104: END IF;
8105:
8106: l_progress := '40';
8107:
8153: FOR i IN 2 .. l_msg_count LOOP
8154: fnd_msg_pub.delete_msg(i);
8155: END LOOP;
8156: END IF;
8157: RAISE fnd_api.g_exc_error;
8158: END IF;
8159:
8160: l_progress := '60';
8161:
8199: IF (l_debug = 1 ) THEN
8200: DEBUG('Unexpected Exception Raised in Bulk Select'
8201: ,'transfer_contents', 9);
8202: END IF;
8203: RAISE fnd_api.g_exc_error;
8204: END;
8205:
8206: IF (l_debug = 1) THEN
8207: debug('# of MMTT returned: '||l_txn_tmp_id_tb.COUNT,'transfer_contents',9);
8212: debug('No MMTT returned!','transfer_contents',9);
8213: END IF;
8214: FND_MESSAGE.SET_NAME('WMS','WMS_ALLOCATE_FAIL');
8215: FND_MSG_PUB.ADD;
8216: RAISE fnd_api.g_exc_error;
8217: END IF;
8218: ELSE
8219: -- For inventory and wip, just query based on move_order_line_id
8220: BEGIN
8239: IF (l_debug = 1 ) THEN
8240: DEBUG('Unexpected Exception Raised in Bulk Select'
8241: ,'transfer_contents', 9);
8242: END IF;
8243: RAISE fnd_api.g_exc_error;
8244: END;
8245: END IF; -- IF (l_from_context = 3)
8246:
8247: l_progress := '70';
8271: ,p_inventory_item_id => NULL
8272: ,p_lpn_id => NULL
8273: ,p_activity_type_id => 1 -- INBOUND
8274: ,p_organization_id => l_org_id);
8275: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8276: IF (l_debug = 1) THEN
8277: debug('Validate_operation failed','transfer_contents',9);
8278: END IF;
8279: RAISE fnd_api.g_exc_error;
8275: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8276: IF (l_debug = 1) THEN
8277: debug('Validate_operation failed','transfer_contents',9);
8278: END IF;
8279: RAISE fnd_api.g_exc_error;
8280: END IF;
8281:
8282: l_progress := '75';
8283:
8282: l_progress := '75';
8283:
8284: IF (l_load_flag <> 3) THEN
8285: debug('MMTT:'||l_txn_tmp_id_tb(i)||' not full loaded','transfer_contents',9);
8286: RAISE fnd_api.g_exc_error;
8287: END IF;
8288:
8289: l_progress := '77';
8290:
8307: ,x_error_code => l_error_code
8308: ,x_consolidation_method_id => l_consolidation_method_id
8309: ,x_drop_lpn_option => l_drop_lpn_option
8310: );
8311: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8312: IF (l_debug = 1) THEN
8313: DEBUG('xxx: Error in activate_operation_instance','transfer_contents',9);
8314: END IF;
8315: RAISE fnd_api.g_exc_error;
8311: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8312: IF (l_debug = 1) THEN
8313: DEBUG('xxx: Error in activate_operation_instance','transfer_contents',9);
8314: END IF;
8315: RAISE fnd_api.g_exc_error;
8316: END IF;
8317: END LOOP;
8318:
8319: l_progress := '80';
8386: ,x_msg_data => x_msg_data
8387: );
8388: END IF; -- IF (l_sub_loc_changed = 'Y') THEN
8389:
8390: IF (x_return_status <> fnd_api.g_ret_sts_success OR l_return_status = -1) THEN
8391: IF (l_debug = 1) THEN
8392: DEBUG('xxx: Error inserting_rti','transfer_contents',9);
8393: END IF;
8394: RAISE fnd_api.g_exc_error;
8390: IF (x_return_status <> fnd_api.g_ret_sts_success OR l_return_status = -1) THEN
8391: IF (l_debug = 1) THEN
8392: DEBUG('xxx: Error inserting_rti','transfer_contents',9);
8393: END IF;
8394: RAISE fnd_api.g_exc_error;
8395: END IF;
8396:
8397: l_progress := '120';
8398:
8436: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
8437: IF (l_debug = 1) THEN
8438: DEBUG('xxx: Error - Rcv TM Failed','transfer_contents',9);
8439: END IF;
8440: RAISE fnd_api.g_exc_error;
8441: END;
8442:
8443: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8444: IF (l_debug = 1) THEN
8439: END IF;
8440: RAISE fnd_api.g_exc_error;
8441: END;
8442:
8443: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8444: IF (l_debug = 1) THEN
8445: DEBUG('xxx: Error - Rcv TM Failed','transfer_contents',9);
8446: END IF;
8447: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
8444: IF (l_debug = 1) THEN
8445: DEBUG('xxx: Error - Rcv TM Failed','transfer_contents',9);
8446: END IF;
8447: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
8448: RAISE fnd_api.g_exc_error;
8449: END IF;
8450:
8451: l_progress := '140';
8452:
8485: ,x_return_status => x_return_status
8486: ,x_msg_count => x_msg_count
8487: ,x_msg_data => x_msg_data
8488: );
8489: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8490: IF (l_debug = 1) THEN
8491: DEBUG('xxx: Error unpacking content_lpn = ' ||
8492: l_lpn_ids(i) || ' from lpn = ' ||
8493: p_from_lpn_id,'transfer_contents',9);
8491: DEBUG('xxx: Error unpacking content_lpn = ' ||
8492: l_lpn_ids(i) || ' from lpn = ' ||
8493: p_from_lpn_id,'transfer_contents',9);
8494: END IF;
8495: RAISE fnd_api.g_exc_error;
8496: END IF;
8497:
8498: wms_container_pvt.packunpack_container
8499: (p_api_version => 1.0
8504: ,x_return_status => x_return_status
8505: ,x_msg_count => x_msg_count
8506: ,x_msg_data => x_msg_data
8507: );
8508: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8509: IF (l_debug = 1) THEN
8510: DEBUG('xxx: Error packing content_lpn = ' ||
8511: l_lpn_ids(i) || ' into lpn = ' ||
8512: p_into_lpn_id,'transfer_contents',9);
8510: DEBUG('xxx: Error packing content_lpn = ' ||
8511: l_lpn_ids(i) || ' into lpn = ' ||
8512: p_into_lpn_id,'transfer_contents',9);
8513: END IF;
8514: RAISE fnd_api.g_exc_error;
8515: END IF;
8516: END LOOP; -- end nested lpn loop
8517:
8518: l_progress := '170';
8527: ,p_lpn_context => 3 --RCV
8528: ,p_subinventory => l_sub_code -- same as from LPN
8529: ,p_locator_id => l_loc_id
8530: );
8531: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8532: IF (l_debug = 1) THEN
8533: debug('Error modifying lpn',
8534: 'transfer_contents', 9);
8535: END IF;
8545: ,x_msg_data => x_msg_data
8546: ,x_msg_count => x_msg_count
8547: ,x_error_code => l_error_code
8548: );
8549: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8550: IF (l_debug = 1) THEN
8551: DEBUG('xxx: Error in complete_operation_instance on '
8552: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
8553: END IF;
8550: IF (l_debug = 1) THEN
8551: DEBUG('xxx: Error in complete_operation_instance on '
8552: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
8553: END IF;
8554: RAISE fnd_api.g_exc_error;
8555: END IF;
8556:
8557: END LOOP;
8558:
8596: ,x_return_status => x_return_status
8597: ,x_msg_count => x_msg_count
8598: ,x_msg_data => x_msg_data
8599: );
8600: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8601: IF (l_debug = 1) THEN
8602: DEBUG('xxx: Error unpacking item_id = ' ||
8603: l_wlpnc_rec.inventory_item_id || ' from lpn = ' ||
8604: p_from_lpn_id,'transfer_contents',9);
8602: DEBUG('xxx: Error unpacking item_id = ' ||
8603: l_wlpnc_rec.inventory_item_id || ' from lpn = ' ||
8604: p_from_lpn_id,'transfer_contents',9);
8605: END IF;
8606: RAISE fnd_api.g_exc_error;
8607: END IF;
8608:
8609: wms_container_pvt.packunpack_container
8610: (p_api_version => 1.0
8619: ,x_return_status => x_return_status
8620: ,x_msg_count => x_msg_count
8621: ,x_msg_data => x_msg_data
8622: );
8623: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8624: IF (l_debug = 1) THEN
8625: DEBUG('xxx: Error packing item_id = ' ||
8626: l_wlpnc_rec.inventory_item_id || ' from lpn = ' ||
8627: p_from_lpn_id,'transfer_contents',9);
8625: DEBUG('xxx: Error packing item_id = ' ||
8626: l_wlpnc_rec.inventory_item_id || ' from lpn = ' ||
8627: p_from_lpn_id,'transfer_contents',9);
8628: END IF;
8629: RAISE fnd_api.g_exc_error;
8630: END IF;
8631: ELSE -- If item is serial controlled
8632: -- Call packunpack on each serial number
8633: IF (l_serial_numbers.COUNT > 0) THEN
8647: IF (l_debug = 1) THEN
8648: debug('Error retrieving entries from MTL_SERIAL_NUMBERS',
8649: 'transfer_contents', 9);
8650: END IF;
8651: RAISE fnd_api.g_exc_error;
8652: END;
8653:
8654: FOR i IN 1 .. l_serial_numbers.COUNT LOOP
8655: IF (l_debug = 1) THEN
8670: ,x_return_status => x_return_status
8671: ,x_msg_count => x_msg_count
8672: ,x_msg_data => x_msg_data
8673: );
8674: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8675: IF (l_debug = 1) THEN
8676: DEBUG('xxx: Error unpacking serial_number = ' ||
8677: l_serial_numbers(i) || ' from lpn = ' ||
8678: p_from_lpn_id,'transfer_contents',9);
8676: DEBUG('xxx: Error unpacking serial_number = ' ||
8677: l_serial_numbers(i) || ' from lpn = ' ||
8678: p_from_lpn_id,'transfer_contents',9);
8679: END IF;
8680: RAISE fnd_api.g_exc_error;
8681: END IF;
8682: wms_container_pvt.packunpack_container
8683: (p_api_version => 1.0
8684: ,p_lpn_id => p_into_lpn_id
8693: ,x_return_status => x_return_status
8694: ,x_msg_count => x_msg_count
8695: ,x_msg_data => x_msg_data
8696: );
8697: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8698: IF (l_debug = 1) THEN
8699: DEBUG('xxx: Error packing serial_number = ' ||
8700: l_serial_numbers(i) || ' from lpn = ' ||
8701: p_from_lpn_id,'transfer_contents',9);
8699: DEBUG('xxx: Error packing serial_number = ' ||
8700: l_serial_numbers(i) || ' from lpn = ' ||
8701: p_from_lpn_id,'transfer_contents',9);
8702: END IF;
8703: RAISE fnd_api.g_exc_error;
8704: END IF;
8705: END LOOP; -- FOR i in 1 .. l_serial_numbers.COUNT LOOP
8706: END IF; -- IF Nvl(l_wlpnc_rec.serial_number_control_code,1) IN (1, 6) THEN
8707: END LOOP; --FOR l_wlpnc_rec IN wlpnc_cur LOOP
8733: ,x_return_status => x_return_status
8734: ,x_msg_count => x_msg_count
8735: ,x_msg_data => x_msg_data
8736: );
8737: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8738: IF (l_debug = 1) THEN
8739: DEBUG('xxx: Error unpacking lpn = ' ||
8740: l_lpn_ids(i) || ' from lpn = ' ||
8741: p_from_lpn_id,'transfer_contents',9);
8739: DEBUG('xxx: Error unpacking lpn = ' ||
8740: l_lpn_ids(i) || ' from lpn = ' ||
8741: p_from_lpn_id,'transfer_contents',9);
8742: END IF;
8743: RAISE fnd_api.g_exc_error;
8744: END IF;
8745: wms_container_pvt.packunpack_container
8746: (p_api_version => 1.0
8747: ,p_content_lpn_id => l_lpn_ids(i)
8751: ,x_return_status => x_return_status
8752: ,x_msg_count => x_msg_count
8753: ,x_msg_data => x_msg_data
8754: );
8755: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8756: IF (l_debug = 1) THEN
8757: DEBUG('xxx: Error packing lpn = ' ||
8758: l_lpn_ids(i) || ' into lpn = ' ||
8759: p_into_lpn_id,'transfer_contents',9);
8757: DEBUG('xxx: Error packing lpn = ' ||
8758: l_lpn_ids(i) || ' into lpn = ' ||
8759: p_into_lpn_id,'transfer_contents',9);
8760: END IF;
8761: RAISE fnd_api.g_exc_error;
8762: END IF;
8763: END LOOP;
8764:
8765: l_progress := '220';
8772: ,x_msg_data => x_msg_data
8773: ,p_lpn_id => p_into_lpn_id
8774: ,p_lpn_context => 2 --WIP
8775: );
8776: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8777: IF (l_debug = 1) THEN
8778: debug('Error modifying lpn context to wip',
8779: 'transfer_contents', 9);
8780: END IF;
8790: ,x_msg_data => x_msg_data
8791: ,x_msg_count => x_msg_count
8792: ,x_error_code => l_error_code
8793: );
8794: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8795: IF (l_debug = 1) THEN
8796: DEBUG('xxx: Error in complete_operation_instance on '
8797: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
8798: END IF;
8795: IF (l_debug = 1) THEN
8796: DEBUG('xxx: Error in complete_operation_instance on '
8797: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
8798: END IF;
8799: RAISE fnd_api.g_exc_error;
8800: END IF;
8801:
8802: END LOOP;
8803:
8835: WHEN OTHERS THEN
8836: IF (l_debug =1 ) THEN
8837: DEBUG('xxx: Error updating MOL','transfer_contents',9);
8838: END IF;
8839: RAISE fnd_api.g_exc_error;
8840: END;
8841:
8842: l_progress := '230';
8843:
8888: IF (l_debug = 1) THEN
8889: debug('Error inserting MMTT ID: ' ||
8890: l_txn_tmp_id,'transfer_contents',9);
8891: END IF;
8892: RAISE fnd_api.g_exc_error;
8893: END IF;
8894:
8895: BEGIN
8896: UPDATE mtl_material_transactions_temp
8903: IF (l_debug = 1) THEN
8904: debug('Error updating MMTT with ID: ' ||
8905: l_txn_tmp_id,9);
8906: END IF;
8907: RAISE fnd_api.g_exc_error;
8908: END;
8909:
8910: l_batch_seq := l_batch_seq + 1;
8911: -- update local variables for sub and loc
8959: IF (l_return_status = -1) THEN
8960: IF (l_debug = 1) THEN
8961: debug('Error inserting MMTT', 'transfer_contents', 9);
8962: END IF;
8963: RAISE fnd_api.g_exc_error;
8964: END IF;
8965:
8966: BEGIN
8967: UPDATE mtl_material_transactions_temp
8974: IF (l_debug = 1) THEN
8975: debug('Error updating MMTT with ID: ' ||
8976: l_txn_tmp_id,9);
8977: END IF;
8978: RAISE fnd_api.g_exc_error;
8979: END;
8980:
8981: l_batch_seq := l_batch_seq + 1;
8982: END LOOP;
9025: IF (l_return_status = -1) THEN
9026: IF (l_debug = 1) THEN
9027: debug('Error inserting MMTT', 'transfer_contents', 9);
9028: END IF;
9029: RAISE fnd_api.g_exc_error;
9030: END IF;
9031:
9032: BEGIN
9033: UPDATE mtl_material_transactions_temp
9040: IF (l_debug = 1) THEN
9041: debug('Error updating MMTT with ID: ' ||
9042: l_txn_tmp_id,9);
9043: END IF;
9044: RAISE fnd_api.g_exc_error;
9045: END;
9046:
9047: l_batch_seq := l_batch_seq + 1;
9048:
9062: IF (l_return_status = -1) THEN
9063: IF (l_debug = 1) THEN
9064: debug('Error inserting MTLT', 'transfer_contents', 9);
9065: END IF;
9066: RAISE fnd_api.g_exc_error;
9067: END IF;
9068: END IF;
9069:
9070: IF (Nvl(l_wlpnc_rec.serial_number_control_code,1)
9086: IF (l_debug = 1) THEN
9087: debug('Error retrieving entries from MTL_SERIAL_NUMBERS',
9088: 'transfer_contents', 9);
9089: END IF;
9090: RAISE fnd_api.g_exc_error;
9091: END;
9092:
9093: IF (l_wlpnc_rec.lot_number IS NOT NULL) THEN
9094: l_txn_tmp_id := l_ser_trx_id;
9104: IF (l_return_status = -1) THEN
9105: IF (l_debug = 1) THEN
9106: debug('Error inserting MSNT', 'transfer_contents', 9);
9107: END IF;
9108: RAISE fnd_api.g_exc_error;
9109: END IF;
9110: END LOOP;
9111: END IF;
9112: END LOOP;
9118:
9119: l_return_status :=inv_lpn_trx_pub.process_lpn_trx
9120: (p_trx_hdr_id => l_hdr_id
9121: ,p_proc_mode => 1
9122: ,p_commit => fnd_api.g_false
9123: ,x_proc_msg => x_msg_data);
9124:
9125: -- Call complete operation instance
9126: FOR i IN 1 .. l_txn_tmp_id_tb.COUNT LOOP
9132: ,x_msg_data => x_msg_data
9133: ,x_msg_count => x_msg_count
9134: ,x_error_code => l_error_code
9135: );
9136: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9137: IF (l_debug = 1) THEN
9138: DEBUG('xxx: Error in complete_operation_instance on '
9139: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
9140: END IF;
9137: IF (l_debug = 1) THEN
9138: DEBUG('xxx: Error in complete_operation_instance on '
9139: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
9140: END IF;
9141: RAISE fnd_api.g_exc_error;
9142: END IF;
9143:
9144: END LOOP;
9145:
9181: WHEN OTHERS THEN
9182: IF (l_debug = 1) THEN
9183: DEBUG('xxx: Error updating MOLs','transfer_contents',9);
9184: END IF;
9185: RAISE fnd_api.g_exc_error;
9186: END;
9187:
9188: l_progress := '300';
9189:
9199: EXCEPTION
9200: WHEN OTHERS THEN
9201: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
9202: fnd_msg_pub.add;
9203: x_return_status := fnd_api.g_ret_sts_unexp_error;
9204: IF (l_debug = 1) THEN
9205: debug('Exception occured after l_progress ='|| l_progress, 'transfer_contents', 9);
9206: END IF;
9207: IF (wlpnc_cur%isopen) THEN
9610: DEBUG(' p_lpn_initially_loaded ==> '||p_lpn_initially_loaded,l_proc_name);
9611: END IF;
9612:
9613: -- Initialize the return status
9614: x_return_status := FND_API.G_RET_STS_SUCCESS;
9615:
9616: -- Read the input parameters
9617: l_group_id := p_group_id;
9618: l_product_transaction_id := p_product_transaction_id;
9679: IF (l_debug = 1) THEN
9680: debug('complete_putaway_wrapper: Return status of API: ' || x_return_status);
9681: END IF;
9682:
9683: IF x_return_status = fnd_api.g_ret_sts_success THEN
9684: -- Activate completed successfully.
9685: NULL;
9686: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9687: RAISE fnd_api.g_exc_error;
9682:
9683: IF x_return_status = fnd_api.g_ret_sts_success THEN
9684: -- Activate completed successfully.
9685: NULL;
9686: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9687: RAISE fnd_api.g_exc_error;
9688: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9689: RAISE fnd_api.g_exc_unexpected_error;
9690: END IF;
9683: IF x_return_status = fnd_api.g_ret_sts_success THEN
9684: -- Activate completed successfully.
9685: NULL;
9686: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9687: RAISE fnd_api.g_exc_error;
9688: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9689: RAISE fnd_api.g_exc_unexpected_error;
9690: END IF;
9691: l_progress := '5.5';
9684: -- Activate completed successfully.
9685: NULL;
9686: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9687: RAISE fnd_api.g_exc_error;
9688: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9689: RAISE fnd_api.g_exc_unexpected_error;
9690: END IF;
9691: l_progress := '5.5';
9692: EXCEPTION
9685: NULL;
9686: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9687: RAISE fnd_api.g_exc_error;
9688: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9689: RAISE fnd_api.g_exc_unexpected_error;
9690: END IF;
9691: l_progress := '5.5';
9692: EXCEPTION
9693: WHEN OTHERS THEN
9690: END IF;
9691: l_progress := '5.5';
9692: EXCEPTION
9693: WHEN OTHERS THEN
9694: RAISE fnd_api.g_exc_unexpected_error;
9695: END; -- Simulate Load Operation
9696:
9697: BEGIN -- Activate operation for Drop
9698: IF (l_debug = 1) THEN
9716: IF (l_debug = 1) THEN
9717: debug('complete_putaway_wrapper: Return status of API: ' || x_return_status);
9718: END IF;
9719:
9720: IF x_return_status = fnd_api.g_ret_sts_success THEN
9721: -- Activate op plan completed successfully.
9722: NULL;
9723: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9724: RAISE fnd_api.g_exc_error;
9719:
9720: IF x_return_status = fnd_api.g_ret_sts_success THEN
9721: -- Activate op plan completed successfully.
9722: NULL;
9723: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9724: RAISE fnd_api.g_exc_error;
9725: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9726: RAISE fnd_api.g_exc_unexpected_error;
9727: END IF;
9720: IF x_return_status = fnd_api.g_ret_sts_success THEN
9721: -- Activate op plan completed successfully.
9722: NULL;
9723: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9724: RAISE fnd_api.g_exc_error;
9725: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9726: RAISE fnd_api.g_exc_unexpected_error;
9727: END IF;
9728: l_progress := '5.8';
9721: -- Activate op plan completed successfully.
9722: NULL;
9723: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9724: RAISE fnd_api.g_exc_error;
9725: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9726: RAISE fnd_api.g_exc_unexpected_error;
9727: END IF;
9728: l_progress := '5.8';
9729: EXCEPTION
9722: NULL;
9723: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
9724: RAISE fnd_api.g_exc_error;
9725: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9726: RAISE fnd_api.g_exc_unexpected_error;
9727: END IF;
9728: l_progress := '5.8';
9729: EXCEPTION
9730: WHEN OTHERS THEN
9727: END IF;
9728: l_progress := '5.8';
9729: EXCEPTION
9730: WHEN OTHERS THEN
9731: RAISE fnd_api.g_exc_unexpected_error;
9732: END; -- Activate operation for Drop
9733: END IF; -- Manual Drop activate/complete operation instance
9734:
9735: --For the item drop scenario, first check if there was a quantity discrepancy
9806: DEBUG('Error fetching MMTTs for the current group. Cannot drop', l_proc_name, 1);
9807: END IF;
9808: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
9809: fnd_msg_pub.add;
9810: RAISE FND_API.G_EXC_ERROR;
9811: END;
9812: ELSE
9813: --For other drop types, the user would not be confirming quantity and uom
9814: --We would be transacting only the suggested quantities. Only sub and loc
10015: IF l_msni_qty_tbl(i) > 0 THEN
10016: IF(l_debug = 1) THEN
10017: DEBUG('complete_putaway_wrapper: Unable to match MOL for all serial IN the group! How?',l_proc_name);
10018: END IF;
10019: RAISE fnd_api.g_exc_error;
10020: END IF;
10021: END LOOP;
10022:
10023: --MO Splits for a non-serialized item
10155: IF (l_rem_user_qty > 0) THEN
10156: IF (l_debug = 1) THEN
10157: DEBUG('complete_putaway_wrapper: l_rem_user_qty > 0. Unable to find MOL for qty. There must be some data corruption'||l_proc_name);
10158: END IF;
10159: RAISE fnd_api.g_exc_error;
10160: END IF;
10161:
10162: --Close the mol cursor
10163: IF mol_csr%ISOPEN THEN
10192:
10193: inv_rcv_integration_apis.split_mo(
10194: p_orig_mol_id => l_mos_to_split_tbl(i).line_id
10195: , p_mo_splt_tb => l_mo_splt_tb
10196: , p_updt_putaway_temp_tbl => FND_API.G_TRUE
10197: , p_txn_header_id => p_txn_header_id
10198: , x_return_status => x_return_status
10199: , x_msg_count => x_msg_count
10200: , x_msg_data => x_msg_data);
10202: IF (l_debug = 1) THEN
10203: DEBUG('complete_putaway_wrapper: split_mo API return status: ' || x_return_status, 4);
10204: END IF;
10205:
10206: IF x_return_status = fnd_api.g_ret_sts_error THEN
10207: RAISE fnd_api.g_exc_error;
10208: END IF;
10209:
10210: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10203: DEBUG('complete_putaway_wrapper: split_mo API return status: ' || x_return_status, 4);
10204: END IF;
10205:
10206: IF x_return_status = fnd_api.g_ret_sts_error THEN
10207: RAISE fnd_api.g_exc_error;
10208: END IF;
10209:
10210: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10211: RAISE fnd_api.g_exc_unexpected_error;
10206: IF x_return_status = fnd_api.g_ret_sts_error THEN
10207: RAISE fnd_api.g_exc_error;
10208: END IF;
10209:
10210: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10211: RAISE fnd_api.g_exc_unexpected_error;
10212: END IF;
10213:
10214: IF (l_debug = 1) THEN
10207: RAISE fnd_api.g_exc_error;
10208: END IF;
10209:
10210: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10211: RAISE fnd_api.g_exc_unexpected_error;
10212: END IF;
10213:
10214: IF (l_debug = 1) THEN
10215: DEBUG('complete_putaway_wrapper: new MOL ID: ' || l_mo_splt_tb(1).line_id, 4);
10332: IF (l_debug = 1) THEN
10333: DEBUG('complete_putaway_wrapper: Progress: ' || l_progress || '. pre_process_lpn returns: ' || x_return_status, 4);
10334: END IF;
10335:
10336: IF x_return_status = fnd_api.g_ret_sts_error THEN
10337: RAISE fnd_api.g_exc_error;
10338: END IF;
10339:
10340: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10333: DEBUG('complete_putaway_wrapper: Progress: ' || l_progress || '. pre_process_lpn returns: ' || x_return_status, 4);
10334: END IF;
10335:
10336: IF x_return_status = fnd_api.g_ret_sts_error THEN
10337: RAISE fnd_api.g_exc_error;
10338: END IF;
10339:
10340: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10341: RAISE fnd_api.g_exc_unexpected_error;
10336: IF x_return_status = fnd_api.g_ret_sts_error THEN
10337: RAISE fnd_api.g_exc_error;
10338: END IF;
10339:
10340: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10341: RAISE fnd_api.g_exc_unexpected_error;
10342: END IF;
10343: -- Nested LPN changes end;
10344:
10337: RAISE fnd_api.g_exc_error;
10338: END IF;
10339:
10340: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10341: RAISE fnd_api.g_exc_unexpected_error;
10342: END IF;
10343: -- Nested LPN changes end;
10344:
10345: --We should be calling complete_putaway for the eligible rows
10560:
10561: --Call the insert_mtli API to insert the lot_number in MTLI
10562: inv_rcv_integration_apis.insert_mtli(
10563: p_api_version => 1.0
10564: , p_init_msg_lst => FND_API.G_FALSE
10565: , x_return_status => x_return_status
10566: , x_msg_count => x_msg_count
10567: , x_msg_data => x_msg_data
10568: , p_transaction_interface_id => l_dummy_temp_id --l_mmtt_temp_id
10579: , p_att_exist => 'Y'
10580: , p_update_mln => 'N'
10581: , p_secondary_quantity => l_mmtt_sec_qty); --OPM CONVERGENCE
10582:
10583: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
10584: IF (l_debug = 1) THEN
10585: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
10586: ' insert_mtli returns g_exc_error', l_proc_name, 1);
10587: END IF;
10584: IF (l_debug = 1) THEN
10585: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
10586: ' insert_mtli returns g_exc_error', l_proc_name, 1);
10587: END IF;
10588: RAISE FND_API.G_EXC_ERROR;
10589: END IF;
10590:
10591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10592: IF (l_debug = 1) THEN
10587: END IF;
10588: RAISE FND_API.G_EXC_ERROR;
10589: END IF;
10590:
10591: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10592: IF (l_debug = 1) THEN
10593: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
10594: ' insert_mtli returns g_unexp_error', l_proc_name, 1);
10595: END IF;
10592: IF (l_debug = 1) THEN
10593: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
10594: ' insert_mtli returns g_unexp_error', l_proc_name, 1);
10595: END IF;
10596: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10597: END IF;
10598:
10599: IF (l_debug = 1) THEN
10600: DEBUG('complete_putaway_wrapper: Inserted MTLI intf_txn_id: ' || l_transaction_interface_id ||
10646: IF NOT l_result THEN
10647: IF (l_debug = 1) THEN
10648: debug('Failure while Inserting MSNI records - lot and serial controlled item',l_proc_name);
10649: END IF;
10650: RAISE fnd_api.g_exc_unexpected_error;
10651: END IF; -- END IF check l_result
10652:
10653: l_cur_task_ser_count := l_cur_task_ser_count + 1;
10654: l_ser_mark_tbl(j) := 'Y';
10727: , x_return_status => x_return_status
10728: , x_msg_count => x_msg_count
10729: , x_msg_data => x_msg_data);
10730:
10731: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
10732: IF (l_debug = 1) THEN
10733: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
10734: ' process_lot_serial API returns g_exc_error', l_proc_name, 1);
10735: END IF;
10732: IF (l_debug = 1) THEN
10733: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
10734: ' process_lot_serial API returns g_exc_error', l_proc_name, 1);
10735: END IF;
10736: RAISE FND_API.G_EXC_ERROR;
10737: END IF;
10738:
10739: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10740: IF (l_debug = 1) THEN
10735: END IF;
10736: RAISE FND_API.G_EXC_ERROR;
10737: END IF;
10738:
10739: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10740: IF (l_debug = 1) THEN
10741: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
10742: ' process_lot_serial API returns g_unexp_error', l_proc_name, 1);
10743: END IF;
10740: IF (l_debug = 1) THEN
10741: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
10742: ' process_lot_serial API returns g_unexp_error', l_proc_name, 1);
10743: END IF;
10744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10745: END IF;
10746:
10747: --Mark the serial as processed so that it does not get picked up again
10748: l_ser_mark_tbl(k) := 'Y';
10947: , p_secondary_uom => l_secondary_uom --OPM Convergence
10948: , p_primary_uom => l_primary_uom_code_tbl(i)
10949: );
10950:
10951: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
10952: IF (l_debug = 1) THEN
10953: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress || ' complete_putaway API returns g_exc_error', l_proc_name, 1);
10954: END IF;
10955: RAISE FND_API.G_EXC_ERROR;
10951: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
10952: IF (l_debug = 1) THEN
10953: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress || ' complete_putaway API returns g_exc_error', l_proc_name, 1);
10954: END IF;
10955: RAISE FND_API.G_EXC_ERROR;
10956: END IF;
10957:
10958: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10959: IF (l_debug = 1) THEN
10954: END IF;
10955: RAISE FND_API.G_EXC_ERROR;
10956: END IF;
10957:
10958: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10959: IF (l_debug = 1) THEN
10960: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress || ' complete_putaway API returns g_unexp_error', l_proc_name, 1);
10961: END IF;
10962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10958: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
10959: IF (l_debug = 1) THEN
10960: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress || ' complete_putaway API returns g_unexp_error', l_proc_name, 1);
10961: END IF;
10962: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
10963: END IF;
10964:
10965: IF (l_debug = 1) THEN
10966: DEBUG('complete_putaway_wrapper: successful execution of complete_putaway for temp_id : ' || l_mmtt_temp_id, l_proc_name);
11046: DEBUG('status returned by the receiving manager ' || x_return_status, 4);
11047: DEBUG('complete_putaway_wrapper: Rxing TM Txn Message: ' || l_msg_data, 4);
11048: END IF;
11049:
11050: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
11051: IF (l_debug = 1) THEN
11052: DEBUG('complete_putaway_wrapper: Encountered g_exc_error while calling receiving manager;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
11053: END IF;
11054: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11052: DEBUG('complete_putaway_wrapper: Encountered g_exc_error while calling receiving manager;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
11053: END IF;
11054: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11055: fnd_msg_pub.add;
11056: RAISE FND_API.G_EXC_ERROR;
11057: END IF;
11058:
11059: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11060: IF (l_debug = 1) THEN
11055: fnd_msg_pub.add;
11056: RAISE FND_API.G_EXC_ERROR;
11057: END IF;
11058:
11059: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11060: IF (l_debug = 1) THEN
11061: DEBUG('complete_putaway_wrapper: Encountered g_exc_unexp_error while calling receiving manager;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
11062: END IF;
11063: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11061: DEBUG('complete_putaway_wrapper: Encountered g_exc_unexp_error while calling receiving manager;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
11062: END IF;
11063: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11064: fnd_msg_pub.add;
11065: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11066: END IF;
11067:
11068: --If the LPN context is Inventory/WIP
11069: ELSE
11111: IF (l_debug = 1) THEN
11112: DEBUG('complete_putaway_wrapper: post_process_lpn returns: ' || x_return_status, 4);
11113: END IF;
11114:
11115: IF x_return_status = fnd_api.g_ret_sts_error THEN
11116: RAISE fnd_api.g_exc_error;
11117: END IF;
11118:
11119: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11112: DEBUG('complete_putaway_wrapper: post_process_lpn returns: ' || x_return_status, 4);
11113: END IF;
11114:
11115: IF x_return_status = fnd_api.g_ret_sts_error THEN
11116: RAISE fnd_api.g_exc_error;
11117: END IF;
11118:
11119: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11120: RAISE fnd_api.g_exc_unexpected_error;
11115: IF x_return_status = fnd_api.g_ret_sts_error THEN
11116: RAISE fnd_api.g_exc_error;
11117: END IF;
11118:
11119: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11120: RAISE fnd_api.g_exc_unexpected_error;
11121: END IF;
11122: END IF;
11123: -- Nested LPN changes end
11116: RAISE fnd_api.g_exc_error;
11117: END IF;
11118:
11119: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11120: RAISE fnd_api.g_exc_unexpected_error;
11121: END IF;
11122: END IF;
11123: -- Nested LPN changes end
11124:
11129:
11130: IF p_lpn_context = 2 THEN
11131: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx(
11132: p_trx_hdr_id => l_new_txn_header_id
11133: , p_commit => fnd_api.g_false
11134: , x_proc_msg => x_msg_data
11135: , p_business_flow_code => l_business_flow_code
11136: , p_proc_mode => 1);
11137: ELSE
11136: , p_proc_mode => 1);
11137: ELSE
11138: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx(
11139: p_trx_hdr_id => l_new_txn_header_id
11140: , p_commit => fnd_api.g_false
11141: , x_proc_msg => x_msg_data
11142: , p_business_flow_code => l_business_flow_code);
11143: END IF;
11144:
11150:
11151: IF (l_txn_ret <> 0) THEN
11152: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11153: fnd_msg_pub.ADD;
11154: RAISE fnd_api.g_exc_unexpected_error;
11155: END IF;
11156: END IF; --END IF call the managers based on lpn_context
11157:
11158: --Done with the TM calls. Go delete the records from the global temp rable
11177: ,x_msg_data => x_msg_data );
11178:
11179: l_progress := '260';
11180:
11181: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11182: IF (l_debug = 1) THEN
11183: DEBUG(' Error in locking LPNs ' || x_msg_data ,l_proc_name,1);
11184: END IF;
11185: RAISE fnd_api.g_exc_error;
11181: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
11182: IF (l_debug = 1) THEN
11183: DEBUG(' Error in locking LPNs ' || x_msg_data ,l_proc_name,1);
11184: END IF;
11185: RAISE fnd_api.g_exc_error;
11186: END IF;
11187:
11188: IF (l_debug = 1) THEN
11189: DEBUG(':-)complete_putaway_wrapper exitted with success for group id ' || p_group_id || ' :-). Exit time: ' || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'), l_proc_name);
11190: END IF;
11191: END IF;
11192:
11193: EXCEPTION
11194: WHEN fnd_api.g_exc_error THEN
11195: x_return_status := fnd_api.g_ret_sts_error;
11196: --Close the cursors
11197: IF mol_csr%ISOPEN THEN
11198: CLOSE mol_csr;
11191: END IF;
11192:
11193: EXCEPTION
11194: WHEN fnd_api.g_exc_error THEN
11195: x_return_status := fnd_api.g_ret_sts_error;
11196: --Close the cursors
11197: IF mol_csr%ISOPEN THEN
11198: CLOSE mol_csr;
11199: END IF;
11220:
11221: --Get message count and data
11222: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11223:
11224: WHEN fnd_api.g_exc_unexpected_error THEN
11225: x_return_status := fnd_api.g_ret_sts_unexp_error;
11226:
11227: --Close the cursors
11228: IF mol_csr%ISOPEN THEN
11221: --Get message count and data
11222: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11223:
11224: WHEN fnd_api.g_exc_unexpected_error THEN
11225: x_return_status := fnd_api.g_ret_sts_unexp_error;
11226:
11227: --Close the cursors
11228: IF mol_csr%ISOPEN THEN
11229: CLOSE mol_csr;
11252: --Get message count and data
11253: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11254:
11255: WHEN OTHERS THEN
11256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
11257:
11258: --Close the cursors
11259: IF mol_csr%ISOPEN THEN
11260: CLOSE mol_csr;
11358: END IF;
11359:
11360: -- Set the savepoint
11361: SAVEPOINT validate_lpn_sp;
11362: x_return_status := fnd_api.g_ret_sts_success;
11363:
11364: l_progress := '10';
11365:
11366: -- Get the required LPN values
11400: IF (l_count <> 0 AND l_into_lpn_context = 5) THEN
11401: IF (l_debug = 1) THEN
11402: debug('Into LPN context is 5, so bypass all validation','validate_into_lpn',9);
11403: END IF;
11404: x_return_status := fnd_api.g_ret_sts_success;
11405: x_validation_passed := 'Y';
11406: x_new_lpn_created := 'N';
11407: RETURN;
11408: END IF;
11415:
11416: -- Create the LPN
11417: wms_container_pub.create_lpn
11418: ( p_api_version => 1.0,
11419: p_init_msg_list => fnd_api.g_false,
11420: p_commit => fnd_api.g_false,
11421: x_return_status => x_return_status,
11422: x_msg_count => x_msg_count,
11423: x_msg_data => x_msg_data,
11416: -- Create the LPN
11417: wms_container_pub.create_lpn
11418: ( p_api_version => 1.0,
11419: p_init_msg_list => fnd_api.g_false,
11420: p_commit => fnd_api.g_false,
11421: x_return_status => x_return_status,
11422: x_msg_count => x_msg_count,
11423: x_msg_data => x_msg_data,
11424: p_lpn => p_into_lpn,
11438: debug('Finished calling create LPN API: ' || l_into_lpn_id,'validate_into_lpn',9);
11439: END IF;
11440:
11441: -- Check the return status from the API call
11442: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
11443: IF (l_debug = 1) THEN
11444: debug('Success returned from wms_container_pub.create_lpn API','validate_into_lpn',9);
11445: END IF;
11446: ELSE
11448: debug('Failure returned from wms_container_pub.create_lpn API','validate_into_lpn',9);
11449: END IF;
11450: FND_MESSAGE.SET_NAME('WMS', 'WMS_TD_CREATE_LPN_ERROR');
11451: FND_MSG_PUB.ADD;
11452: RAISE fnd_api.g_exc_error;
11453: END IF;
11454: l_progress := '60';
11455:
11456: -- Set the validation passed output parameter
11462: --BUG 3354934
11463: IF (l_debug = 1) THEN
11464: debug('LPN created. Can bypass rest of validation','validate_into_lpn',9);
11465: END IF;
11466: x_return_status := fnd_api.g_ret_sts_success;
11467: RETURN;
11468:
11469: ELSE
11470: -- Existing LPN
11593: debug('Into LPN validation failed!','validate_into_lpn',9);
11594: END IF;
11595: FND_MESSAGE.SET_NAME('WMS','WMS_NO_LPN_LOAD_ALLOWED');
11596: FND_MSG_PUB.ADD;
11597: RAISE fnd_api.g_exc_error;
11598: ELSE
11599: x_validation_passed := 'Y';
11600: IF (l_debug = 1) THEN
11601: debug('Into LPN validation passed!','validate_into_lpn',9);
11633: IF (x_return_status = 'U') THEN
11634: IF (l_debug = 1) THEN
11635: DEBUG(' Error in wms_mdc_pvt.validate_to_lpn','validate_into_lpn',9);
11636: END IF;
11637: RAISE fnd_api.g_exc_error;
11638: ELSE
11639: IF (l_allowed = 'Y') THEN
11640: IF (l_debug = 1) THEN
11641: debug(' validation passed!','validate_into_lpn',9);
11689: /* Bug 5474915: Changed the error message from
11690: WMS_COMMINGLE_EXISTS to WMS_LOOSE_TO_LPN.*/
11691:
11692: IF l_allowed = 'N' THEN
11693: x_return_status := fnd_api.g_ret_sts_error;
11694: x_validation_passed := 'N';
11695: fnd_message.set_name('WMS', 'WMS_LOOSE_TO_LPN');
11696: fnd_msg_pub.ADD;
11697: RETURN;
11818: x_validation_passed := 'N';
11819: IF (l_debug = 1) THEN
11820: debug('Into LPN validation failed! for drop! ','validate_into_lpn',9);
11821: END IF;
11822: RAISE fnd_api.g_exc_error;
11823: ELSE
11824: x_validation_passed := 'Y';
11825: IF (l_debug = 1) THEN
11826: debug('Into LPN validation passed for drop!','validate_into_lpn',9);
12105: debug('validate project/task ID failed','validate_into_lpn',9);
12106: END IF;
12107:
12108: x_validation_passed := 'N';
12109: RAISE fnd_api.g_exc_error;
12110: END IF; --NOT (Nvl(p_project_id, 9999) = Nvl(l_into_lpn_project_id, 9999)
12111: -- AND Nvl(p_task_id, 9999) = Nvl(l_into_lpn_task_id, 9999))
12112: END IF; -- IF (x_new_lpn_created = 'N')
12113:
12111: -- AND Nvl(p_task_id, 9999) = Nvl(l_into_lpn_task_id, 9999))
12112: END IF; -- IF (x_new_lpn_created = 'N')
12113:
12114: -- Set the return status to success
12115: x_return_status := fnd_api.g_ret_sts_success;
12116: l_progress := '80';
12117:
12118: IF (l_debug = 1) THEN
12119: debug('***End of validate_into_lpn***','validate_into_lpn',9);
12119: debug('***End of validate_into_lpn***','validate_into_lpn',9);
12120: END IF;
12121:
12122: EXCEPTION
12123: WHEN FND_API.G_EXC_ERROR THEN
12124: ROLLBACK TO validate_lpn_sp;
12125: x_return_status := fnd_api.g_ret_sts_error;
12126: x_validation_passed := 'N';
12127: x_new_lpn_created := 'N';
12121:
12122: EXCEPTION
12123: WHEN FND_API.G_EXC_ERROR THEN
12124: ROLLBACK TO validate_lpn_sp;
12125: x_return_status := fnd_api.g_ret_sts_error;
12126: x_validation_passed := 'N';
12127: x_new_lpn_created := 'N';
12128: fnd_msg_pub.count_and_get(p_count => x_msg_count,
12129: p_data => x_msg_data);
12131: debug('Exiting validate_into_lpn - Execution error: ' ||
12132: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),'validate_into_lpn',9);
12133: END IF;
12134:
12135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12136: ROLLBACK TO validate_lpn_sp;
12137: x_return_status := fnd_api.g_ret_sts_unexp_error;
12138: x_validation_passed := 'N';
12139: x_new_lpn_created := 'N';
12133: END IF;
12134:
12135: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
12136: ROLLBACK TO validate_lpn_sp;
12137: x_return_status := fnd_api.g_ret_sts_unexp_error;
12138: x_validation_passed := 'N';
12139: x_new_lpn_created := 'N';
12140: fnd_msg_pub.count_and_get(p_count => x_msg_count,
12141: p_data => x_msg_data);
12145: END IF;
12146:
12147: WHEN OTHERS THEN
12148: ROLLBACK TO validate_lpn_sp;
12149: x_return_status := fnd_api.g_ret_sts_unexp_error;
12150: x_validation_passed := 'N';
12151: x_new_lpn_created := 'N';
12152: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
12153: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12348: , p_quantity => l_quantity
12349: );
12350: l_progress := '30';
12351:
12352: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
12353: IF (l_debug = 1) THEN
12354: debug('Success returned from update_loc_suggested_capacity API');
12355: END IF;
12356: ELSE
12357: IF (l_debug = 1) THEN
12358: debug('Failure returned from update_loc_suggested_capacity API');
12359: END IF;
12360: -- Bug 5393727: do not raise an exception if locator API returns an error
12361: -- RAISE fnd_api.g_exc_error;
12362: END IF;
12363:
12364: l_progress := '40';
12365: END LOOP;
12365: END LOOP;
12366:
12367: CLOSE l_suggestions_cursor;
12368: -- Set the output variable
12369: x_return_status := fnd_api.g_ret_sts_success;
12370: l_progress := '50';
12371:
12372: IF (l_debug = 1) THEN
12373: debug('***End of update_loc_suggested_capacity***');
12372: IF (l_debug = 1) THEN
12373: debug('***End of update_loc_suggested_capacity***');
12374: END IF;
12375: EXCEPTION
12376: WHEN fnd_api.g_exc_error THEN
12377: ROLLBACK TO update_capacity_sp;
12378: x_return_status := fnd_api.g_ret_sts_error;
12379: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12380:
12374: END IF;
12375: EXCEPTION
12376: WHEN fnd_api.g_exc_error THEN
12377: ROLLBACK TO update_capacity_sp;
12378: x_return_status := fnd_api.g_ret_sts_error;
12379: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12380:
12381: IF (l_debug = 1) THEN
12382: debug(
12383: 'Exiting update_loc_suggested_capacity - Execution error: ' || l_progress || ' '
12384: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
12385: );
12386: END IF;
12387: WHEN fnd_api.g_exc_unexpected_error THEN
12388: ROLLBACK TO update_capacity_sp;
12389: x_return_status := fnd_api.g_ret_sts_unexp_error;
12390: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12391:
12385: );
12386: END IF;
12387: WHEN fnd_api.g_exc_unexpected_error THEN
12388: ROLLBACK TO update_capacity_sp;
12389: x_return_status := fnd_api.g_ret_sts_unexp_error;
12390: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12391:
12392: IF (l_debug = 1) THEN
12393: debug(
12396: );
12397: END IF;
12398: WHEN OTHERS THEN
12399: ROLLBACK TO update_capacity_sp;
12400: x_return_status := fnd_api.g_ret_sts_unexp_error;
12401:
12402: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
12403: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12404: END IF;
12656:
12657: -- Intialize out variables.
12658: l_progress := 10;
12659: l_content_lpn := 'N';
12660: x_return_status := fnd_api.g_ret_sts_success;
12661:
12662: IF (l_debug = 1) THEN
12663: debug(l_progress||'Patchset J code - Cleanup_LPN_Crossdock_Wrapper');
12664: debug(l_progress||'p_org_id==> '|| p_org_id);
12732: , x_msg_count => l_x_msg_count
12733: , x_error_code => l_error_code
12734: );
12735:
12736: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
12737: IF (l_debug = 1) THEN
12738: debug(l_progress||l_error_code || ' Error in Cleanup_Operation_Instance ' ,l_proc_name,1);
12739: END IF;
12740: l_progress := 70;
12737: IF (l_debug = 1) THEN
12738: debug(l_progress||l_error_code || ' Error in Cleanup_Operation_Instance ' ,l_proc_name,1);
12739: END IF;
12740: l_progress := 70;
12741: x_return_status := fnd_api.g_ret_sts_error;
12742: /* Don't raise error in case of failure, instead set the ret status as error
12743: and proceed with the next record */
12744: END IF;
12745:
12756: , x_msg_data => l_x_msg_data
12757: , x_msg_count => l_x_msg_count
12758: );
12759:
12760: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
12761: IF (l_debug = 1) THEN
12762: debug(l_progress||l_error_code || ' Error in delete_operation_instance ' ,l_proc_name,1);
12763: END IF;
12764: l_progress := 90;
12761: IF (l_debug = 1) THEN
12762: debug(l_progress||l_error_code || ' Error in delete_operation_instance ' ,l_proc_name,1);
12763: END IF;
12764: l_progress := 90;
12765: x_return_status := fnd_api.g_ret_sts_error;
12766: /* Don't raise error in case of failure, instead set the ret status as error
12767: and proceed with the next record */
12768: END IF;
12769:
12782: , x_msg_data => l_x_msg_data
12783: , x_msg_count => l_x_msg_count
12784: );
12785:
12786: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
12787: IF (l_debug = 1) THEN
12788: debug(l_progress||l_error_code || ' Error in delete_plan_instance ' ,l_proc_name,1);
12789: END IF;
12790: l_progress := 120;
12787: IF (l_debug = 1) THEN
12788: debug(l_progress||l_error_code || ' Error in delete_plan_instance ' ,l_proc_name,1);
12789: END IF;
12790: l_progress := 120;
12791: x_return_status := fnd_api.g_ret_sts_error;
12792: /* Don't raise error in case of failure, instead set the ret status as error
12793: and proceed with the next record */
12794: END IF;
12795:
12803: , p_transaction_temp_id => l_mmtt_rec.transaction_temp_id
12804: , p_update_parent => true
12805: );
12806:
12807: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
12808: IF (l_debug = 1) THEN
12809: debug(l_progress||' Error in delete_transaction ' ,l_proc_name,1);
12810: END IF;
12811: l_progress := 140;
12808: IF (l_debug = 1) THEN
12809: debug(l_progress||' Error in delete_transaction ' ,l_proc_name,1);
12810: END IF;
12811: l_progress := 140;
12812: x_return_status := fnd_api.g_ret_sts_error;
12813: /* Don't raise error in case of failure, instead set the ret status as error
12814: and proceed with the next record */
12815: END IF;
12816: END IF;
12831: , p_inventory_item_id => l_mmtt_rec.inventory_item_id
12832: , p_primary_quantity => l_mmtt_rec.primary_quantity
12833: );
12834:
12835: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
12836: IF (l_debug = 1) THEN
12837: debug(l_progress||' Error in revert_crossdock ' ,l_proc_name,1);
12838: END IF;
12839: l_progress := 160;
12836: IF (l_debug = 1) THEN
12837: debug(l_progress||' Error in revert_crossdock ' ,l_proc_name,1);
12838: END IF;
12839: l_progress := 160;
12840: x_return_status := fnd_api.g_ret_sts_error;
12841: /* Don't raise error in case of failure, instead set the ret status as error
12842: and proceed with the next record */
12843: END IF;
12844:
12878:
12879: EXCEPTION
12880: WHEN OTHERS THEN
12881: ROLLBACK;
12882: x_return_status := fnd_api.g_ret_sts_unexp_error;
12883: debug(l_progress||SQLCODE, 1);
12884:
12885: IF lpn_cursor%isopen THEN
12886: CLOSE lpn_cursor;