[Home] [Help]
377: ,p_content_lpn_id => l_lpn_id -- child LPN ID
378: ,p_lpn_id => l_par_lpn_id -- Parent LPN ID
379: ,p_operation => 2 -- Unpack
380: ,p_organization_id => p_org_id
381: ,p_commit => fnd_api.g_false
382: ,x_return_status => l_return_status
383: ,x_msg_count => l_msg_count
384: ,x_msg_data => l_msg_data);
385:
382: ,x_return_status => l_return_status
383: ,x_msg_count => l_msg_count
384: ,x_msg_data => l_msg_data);
385:
386: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
387: IF (l_debug = 1) THEN
388: debug('ERROR!!! while Unpacking.Msg:'||l_msg_data);
389: END IF;
390: RAISE fnd_api.g_exc_error;
386: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
387: IF (l_debug = 1) THEN
388: debug('ERROR!!! while Unpacking.Msg:'||l_msg_data);
389: END IF;
390: RAISE fnd_api.g_exc_error;
391: END IF;
392: END IF;
393: END LOOP;
394: CLOSE loaded_lpn_cur;
625: IF (l_debug = 1) THEN
626: DEBUG(' Function Entered at ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
627: END IF;
628:
629: x_return_status := fnd_api.g_ret_sts_success;
630:
631: SAVEPOINT update_gtmp_sp;
632:
633: l_task_rec.person_id := p_emp_id;
725:
726:
727: l_progress := '260';
728:
729: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
730: IF (l_debug = 1) THEN
731: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
732: END IF;
733: l_progress := '270';
730: IF (l_debug = 1) THEN
731: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
732: END IF;
733: l_progress := '270';
734: RAISE fnd_api.g_exc_error;
735: END IF;
736:
737:
738: INSERT INTO WMS_PUTAWAY_GROUP_TASKS_GTMP
1068:
1069: l_progress := '350';
1070:
1071: EXCEPTION
1072: WHEN FND_API.G_EXC_ERROR THEN
1073: IF (l_debug=1) THEN
1074: DEBUG('Expected Error at '||l_progress, l_proc_name,1);
1075: END IF;
1076:
1082: p_count => x_msg_count,
1083: p_data => x_msg_data
1084: );
1085: --x_error_code := SQLCODE;
1086: x_return_status := fnd_api.g_ret_sts_error;
1087:
1088: ROLLBACK TO update_gtmp_sp;
1089:
1090: WHEN OTHERS THEN
1101: p_count => x_msg_count,
1102: p_data => x_msg_data
1103: );
1104: --x_error_code := SQLCODE;
1105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1106: ROLLBACK TO update_gtmp_sp;
1107: END Update_Tasks_In_Group;
1108:
1109:
1743:
1744: -- Check for errors while inserting group task row
1745: IF l_cur_count = -1 THEN
1746: l_progress := '232';
1747: RAISE fnd_api.g_exc_unexpected_error;
1748: END IF;
1749:
1750: l_rec_count := l_rec_count + l_cur_count;
1751: l_progress := '235';
1774: RETURN l_rec_count;
1775:
1776: EXCEPTION
1777:
1778: WHEN fnd_api.g_exc_unexpected_error THEN
1779: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
1780: DEBUG(SQLERRM,l_proc_name,1);
1781:
1782: IF c_group_tasks_cursor%isopen THEN
1993:
1994: -- Check for errors while inserting group task row
1995: IF l_cur_count = -1 THEN
1996: l_progress := '232';
1997: RAISE fnd_api.g_exc_unexpected_error;
1998: END IF;
1999:
2000: l_rec_count := l_rec_count + l_cur_count;
2001: l_progress := '235';
2053:
2054: -- Check for errors while inserting group task row
2055: IF l_cur_count = -1 THEN
2056: l_progress := '332';
2057: RAISE fnd_api.g_exc_unexpected_error;
2058: END IF;
2059:
2060: l_rec_count := l_rec_count + l_cur_count;
2061: l_progress := '335';
2144:
2145:
2146: EXCEPTION
2147: WHEN OTHERS THEN
2148: RAISE fnd_api.g_exc_unexpected_error;
2149: END;
2150:
2151:
2152: IF (l_debug = 1) THEN
2157: l_progress := '1000';
2158: RETURN l_rec_count;
2159:
2160: EXCEPTION
2161: WHEN fnd_api.g_exc_unexpected_error THEN
2162: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
2163: DEBUG(SQLERRM,l_proc_name,1);
2164:
2165: IF c_group_item_drop_tasks_cursor%isopen THEN
2988: WHEN OTHERS THEN
2989: IF (l_debug = 1) THEN
2990: DEBUG('ERROR REVERTING MDC SUGGESTIONS',l_proc_name,4);
2991: END IF;
2992: RAISE fnd_api.g_exc_unexpected_error;
2993: END;
2994: --R12 END
2995:
2996: l_progress := '500';
3225: l_progress := '33';
3226: l_has_contents := 0;
3227: WHEN OTHERS THEN
3228: l_progress := '35';
3229: RAISE fnd_api.g_exc_unexpected_error;
3230: END;-- Check Whether contents exists for this lpn
3231:
3232: --Check for contents
3233: IF l_has_contents = 0 THEN
3465:
3466: EXCEPTION
3467: WHEN OTHERS THEN
3468: l_progress := '90';
3469: RAISE fnd_api.g_exc_unexpected_error;
3470: END; --Block to insert the 'All Task' rows
3471:
3472:
3473: BEGIN -- WIP Integration
3520: ,p_activity_type_id => G_OP_ACTIVITY_INBOUND
3521: ,p_organization_id => l_orgid_tab(i));
3522:
3523: l_progress := '331';
3524: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
3525: IF (l_debug = 1) THEN
3526: DEBUG(' Validate Operation failed for MMTT = ' || l_tempid_tab(i) || ' hence erroring out' ,l_proc_name,1);
3527: DEBUG(' Error = ' || l_msg_data,l_proc_name,1);
3528: END IF;
3525: IF (l_debug = 1) THEN
3526: DEBUG(' Validate Operation failed for MMTT = ' || l_tempid_tab(i) || ' hence erroring out' ,l_proc_name,1);
3527: DEBUG(' Error = ' || l_msg_data,l_proc_name,1);
3528: END IF;
3529: --RAISE fnd_api.g_exc_error;
3530: RETURN -1;
3531: ELSE
3532: -- Successful execution. Check whether this step if crossdocked/not
3533: IF (l_debug = 1) THEN
3579: ,x_msg_data => l_msg_data
3580: );
3581: l_progress := '334';
3582:
3583: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
3584: IF (l_debug = 1) THEN
3585: DEBUG('WIP info for putaway failed for MMTT = ' || l_tempid_tab(i) ,l_proc_name,1);
3586: DEBUG('Error = ' || l_msg_data,l_proc_name,1);
3587: END IF;
3584: IF (l_debug = 1) THEN
3585: DEBUG('WIP info for putaway failed for MMTT = ' || l_tempid_tab(i) ,l_proc_name,1);
3586: DEBUG('Error = ' || l_msg_data,l_proc_name,1);
3587: END IF;
3588: --RAISE fnd_api.g_exc_error;
3589: RETURN -1;
3590: l_progress := '340';
3591: END IF;
3592: /*If the supply type is 0, and is crossdocked, it is an OPM batch*/
3691: l_progress := '390';
3692:
3693: EXCEPTION
3694: WHEN OTHERS THEN
3695: RAISE fnd_api.g_exc_unexpected_error;
3696: END; -- WIP Integration
3697:
3698:
3699: IF (l_debug = 1) THEN
3722: RETURN l_rec_count;
3723:
3724:
3725: EXCEPTION
3726: WHEN fnd_api.g_exc_error THEN
3727: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3728: DEBUG(SQLERRM,l_proc_name,1);
3729:
3730: /* bug10354084 */
3743:
3744: RETURN -1;
3745:
3746:
3747: WHEN fnd_api.g_exc_unexpected_error THEN
3748: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3749: DEBUG(SQLERRM,l_proc_name,1);
3750:
3751: /* bug10354084 */
3857: END IF;
3858:
3859: -- Set the return status to success.
3860: l_progress := '20';
3861: x_return_status := fnd_api.g_ret_sts_success;
3862: l_progress := '30';
3863:
3864: -- Setting the values for the task record
3865: -- Neednot set these values for drop since there ia already WDT,
3913: ,x_drop_lpn_option => l_drop_lpn_option
3914: );
3915: l_progress := '310';
3916:
3917: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3918: IF (l_debug = 1) THEN
3919: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
3920: END IF;
3921: l_progress := '320';
3919: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
3920: END IF;
3921: l_progress := '320';
3922:
3923: RAISE fnd_api.g_exc_error;
3924: END IF;
3925:
3926: END LOOP; --All temp ids loop
3927:
3936: --Return the count of rows processed
3937: RETURN l_rec_count;
3938:
3939: EXCEPTION
3940: WHEN fnd_api.g_exc_error THEN
3941: x_return_status := fnd_api.g_ret_sts_error;
3942: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3943: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3944: DEBUG(SQLERRM,l_proc_name,1);
3937: RETURN l_rec_count;
3938:
3939: EXCEPTION
3940: WHEN fnd_api.g_exc_error THEN
3941: x_return_status := fnd_api.g_ret_sts_error;
3942: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3943: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3944: DEBUG(SQLERRM,l_proc_name,1);
3945:
3938:
3939: EXCEPTION
3940: WHEN fnd_api.g_exc_error THEN
3941: x_return_status := fnd_api.g_ret_sts_error;
3942: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3943: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3944: DEBUG(SQLERRM,l_proc_name,1);
3945:
3946: IF c_all_mmtt_cursor%ISOPEN THEN
3949:
3950: RETURN -1;
3951:
3952:
3953: WHEN fnd_api.g_exc_unexpected_error THEN
3954: x_return_status := fnd_api.g_ret_sts_unexp_error;
3955: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3956:
3957: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3950: RETURN -1;
3951:
3952:
3953: WHEN fnd_api.g_exc_unexpected_error THEN
3954: x_return_status := fnd_api.g_ret_sts_unexp_error;
3955: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3956:
3957: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3958: DEBUG(SQLERRM,l_proc_name,1);
3951:
3952:
3953: WHEN fnd_api.g_exc_unexpected_error THEN
3954: x_return_status := fnd_api.g_ret_sts_unexp_error;
3955: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3956:
3957: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3958: DEBUG(SQLERRM,l_proc_name,1);
3959:
3964: RETURN -1;
3965:
3966:
3967: WHEN OTHERS THEN
3968: x_return_status := fnd_api.g_ret_sts_unexp_error;
3969: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3970: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3971: DEBUG(SQLERRM,l_proc_name,1);
3972:
3965:
3966:
3967: WHEN OTHERS THEN
3968: x_return_status := fnd_api.g_ret_sts_unexp_error;
3969: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
3970: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
3971: DEBUG(SQLERRM,l_proc_name,1);
3972:
3973: IF c_all_mmtt_cursor%ISOPEN THEN
4042: END IF;
4043:
4044: -- Set the return status to success.
4045: l_progress := '20';
4046: x_return_status := fnd_api.g_ret_sts_success;
4047: l_progress := '30';
4048:
4049: l_progress := '100';
4050: OPEN c_all_mmtt_cursor;
4087: ,x_error_code => l_error_code
4088: );
4089: l_progress := '310';
4090:
4091: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4092: IF (l_debug = 1) THEN
4093: DEBUG(l_error_code || ' Error in complete_operation_instance ' ,l_proc_name,1);
4094: END IF;
4095: l_progress := '320';
4093: DEBUG(l_error_code || ' Error in complete_operation_instance ' ,l_proc_name,1);
4094: END IF;
4095: l_progress := '320';
4096:
4097: RAISE fnd_api.g_exc_error;
4098: END IF;
4099:
4100: END LOOP; --All temp ids loop
4101:
4110: --Return the count of rows processed
4111: RETURN l_rec_count;
4112:
4113: EXCEPTION
4114: WHEN fnd_api.g_exc_error THEN
4115: x_return_status := fnd_api.g_ret_sts_error;
4116: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4117: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4118: DEBUG(SQLERRM,l_proc_name,1);
4111: RETURN l_rec_count;
4112:
4113: EXCEPTION
4114: WHEN fnd_api.g_exc_error THEN
4115: x_return_status := fnd_api.g_ret_sts_error;
4116: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4117: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4118: DEBUG(SQLERRM,l_proc_name,1);
4119:
4112:
4113: EXCEPTION
4114: WHEN fnd_api.g_exc_error THEN
4115: x_return_status := fnd_api.g_ret_sts_error;
4116: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4117: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4118: DEBUG(SQLERRM,l_proc_name,1);
4119:
4120: IF c_all_mmtt_cursor%ISOPEN THEN
4123:
4124: RETURN -1;
4125:
4126:
4127: WHEN fnd_api.g_exc_unexpected_error THEN
4128: x_return_status := fnd_api.g_ret_sts_unexp_error;
4129: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4130:
4131: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4124: RETURN -1;
4125:
4126:
4127: WHEN fnd_api.g_exc_unexpected_error THEN
4128: x_return_status := fnd_api.g_ret_sts_unexp_error;
4129: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4130:
4131: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4132: DEBUG(SQLERRM,l_proc_name,1);
4125:
4126:
4127: WHEN fnd_api.g_exc_unexpected_error THEN
4128: x_return_status := fnd_api.g_ret_sts_unexp_error;
4129: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4130:
4131: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4132: DEBUG(SQLERRM,l_proc_name,1);
4133:
4138: RETURN -1;
4139:
4140:
4141: WHEN OTHERS THEN
4142: x_return_status := fnd_api.g_ret_sts_unexp_error;
4143: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4144: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4145: DEBUG(SQLERRM,l_proc_name,1);
4146:
4139:
4140:
4141: WHEN OTHERS THEN
4142: x_return_status := fnd_api.g_ret_sts_unexp_error;
4143: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4144: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4145: DEBUG(SQLERRM,l_proc_name,1);
4146:
4147: IF c_all_mmtt_cursor%ISOPEN THEN
4201: END IF;
4202:
4203: -- Set the return status to success.
4204: l_progress := '20';
4205: x_return_status := fnd_api.g_ret_sts_success;
4206: l_progress := '30';
4207:
4208: IF (l_debug = 1) THEN
4209: DEBUG(' Calling Activate Instance for the LOAD Operation ... ' || x_msg_data ,l_proc_name,9);
4220: ,p_emp_id => p_emp_id);
4221:
4222: l_progress := '110';
4223:
4224: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4225: IF (l_debug = 1) THEN
4226: DEBUG(' Error in Activate_Plan_For_Load ' || x_msg_data ,l_proc_name,1);
4227: END IF;
4228: l_progress := '120';
4226: DEBUG(' Error in Activate_Plan_For_Load ' || x_msg_data ,l_proc_name,1);
4227: END IF;
4228: l_progress := '120';
4229:
4230: RAISE fnd_api.g_exc_error;
4231: ELSE
4232: IF (l_debug = 1) THEN
4233: DEBUG('Successfully called Activate_Plan_For_Load for ' || l_rec_count || ' row(s)' ,l_proc_name,9);
4234: END IF;
4251: ,p_emp_id => p_emp_id);
4252:
4253: l_progress := '210';
4254:
4255: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4256: IF (l_debug = 1) THEN
4257: DEBUG(' Error in Complete_Plan_For_Load ' || x_msg_data ,l_proc_name,1);
4258: END IF;
4259: l_progress := '220';
4257: DEBUG(' Error in Complete_Plan_For_Load ' || x_msg_data ,l_proc_name,1);
4258: END IF;
4259: l_progress := '220';
4260:
4261: RAISE fnd_api.g_exc_error;
4262: ELSE
4263: IF (l_debug = 1) THEN
4264: DEBUG('Successfully called Complete_Plan_For_Load for ' || l_rec_count || ' row(s)' ,l_proc_name,9);
4265: END IF;
4269:
4270: l_progress := '990';
4271:
4272: EXCEPTION
4273: WHEN fnd_api.g_exc_error THEN
4274: x_return_status := fnd_api.g_ret_sts_error;
4275: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4276: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4277: DEBUG(SQLERRM,l_proc_name,1);
4270: l_progress := '990';
4271:
4272: EXCEPTION
4273: WHEN fnd_api.g_exc_error THEN
4274: x_return_status := fnd_api.g_ret_sts_error;
4275: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4276: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4277: DEBUG(SQLERRM,l_proc_name,1);
4278:
4271:
4272: EXCEPTION
4273: WHEN fnd_api.g_exc_error THEN
4274: x_return_status := fnd_api.g_ret_sts_error;
4275: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4276: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4277: DEBUG(SQLERRM,l_proc_name,1);
4278:
4279: WHEN fnd_api.g_exc_unexpected_error THEN
4275: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4276: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4277: DEBUG(SQLERRM,l_proc_name,1);
4278:
4279: WHEN fnd_api.g_exc_unexpected_error THEN
4280: x_return_status := fnd_api.g_ret_sts_unexp_error;
4281: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4282: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4283: DEBUG(SQLERRM,l_proc_name,1);
4276: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4277: DEBUG(SQLERRM,l_proc_name,1);
4278:
4279: WHEN fnd_api.g_exc_unexpected_error THEN
4280: x_return_status := fnd_api.g_ret_sts_unexp_error;
4281: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4282: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4283: DEBUG(SQLERRM,l_proc_name,1);
4284:
4277: DEBUG(SQLERRM,l_proc_name,1);
4278:
4279: WHEN fnd_api.g_exc_unexpected_error THEN
4280: x_return_status := fnd_api.g_ret_sts_unexp_error;
4281: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4282: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4283: DEBUG(SQLERRM,l_proc_name,1);
4284:
4285: WHEN OTHERS THEN
4282: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4283: DEBUG(SQLERRM,l_proc_name,1);
4284:
4285: WHEN OTHERS THEN
4286: x_return_status := fnd_api.g_ret_sts_unexp_error;
4287: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4288: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4289: DEBUG(SQLERRM,l_proc_name,1);
4290:
4283: DEBUG(SQLERRM,l_proc_name,1);
4284:
4285: WHEN OTHERS THEN
4286: x_return_status := fnd_api.g_ret_sts_unexp_error;
4287: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4288: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4289: DEBUG(SQLERRM,l_proc_name,1);
4290:
4291: END Complete_ATF_Load;
4384:
4385:
4386: -- Set the return status to success.
4387: l_progress := '20';
4388: x_return_status := fnd_api.g_ret_sts_success;
4389: l_progress := '30';
4390:
4391: -- Setting the values for the task record
4392: -- Neednot set these values for drop since there ia already WDT,
4463: --Assume that x_msg_data stores the translated string, so
4464: --the UI just needs to show the string without any translation
4465: l_error_code_tab(i) := x_msg_data;
4466:
4467: ELSIF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4468: IF (l_debug = 1) THEN
4469: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
4470: END IF;
4471: l_progress := '320';
4469: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
4470: END IF;
4471: l_progress := '320';
4472:
4473: RAISE fnd_api.g_exc_error;
4474: END IF;
4475:
4476: l_drop_lpn_option_tab(i) := l_drop_lpn_option;
4477: l_consolidation_method_id_tab(i) := l_consolidation_method_id;
4551: --Return the count of rows processed
4552: RETURN l_rec_count;
4553:
4554: EXCEPTION
4555: WHEN fnd_api.g_exc_error THEN
4556: x_return_status := fnd_api.g_ret_sts_error;
4557: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4558: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4559: DEBUG(SQLERRM,l_proc_name,1);
4552: RETURN l_rec_count;
4553:
4554: EXCEPTION
4555: WHEN fnd_api.g_exc_error THEN
4556: x_return_status := fnd_api.g_ret_sts_error;
4557: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4558: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4559: DEBUG(SQLERRM,l_proc_name,1);
4560:
4553:
4554: EXCEPTION
4555: WHEN fnd_api.g_exc_error THEN
4556: x_return_status := fnd_api.g_ret_sts_error;
4557: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4558: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4559: DEBUG(SQLERRM,l_proc_name,1);
4560:
4561: IF c_all_tasks_cursor%ISOPEN THEN
4568:
4569: RETURN -1;
4570:
4571:
4572: WHEN fnd_api.g_exc_unexpected_error THEN
4573: x_return_status := fnd_api.g_ret_sts_unexp_error;
4574: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4575:
4576: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4569: RETURN -1;
4570:
4571:
4572: WHEN fnd_api.g_exc_unexpected_error THEN
4573: x_return_status := fnd_api.g_ret_sts_unexp_error;
4574: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4575:
4576: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4577: DEBUG(SQLERRM,l_proc_name,1);
4570:
4571:
4572: WHEN fnd_api.g_exc_unexpected_error THEN
4573: x_return_status := fnd_api.g_ret_sts_unexp_error;
4574: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4575:
4576: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4577: DEBUG(SQLERRM,l_proc_name,1);
4578:
4587: RETURN -1;
4588:
4589:
4590: WHEN OTHERS THEN
4591: x_return_status := fnd_api.g_ret_sts_unexp_error;
4592: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4593: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4594: DEBUG(SQLERRM,l_proc_name,1);
4595:
4588:
4589:
4590: WHEN OTHERS THEN
4591: x_return_status := fnd_api.g_ret_sts_unexp_error;
4592: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4593: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
4594: DEBUG(SQLERRM,l_proc_name,1);
4595:
4596: IF c_all_tasks_cursor%ISOPEN THEN
4639: debug(' Start of procedure. Trying to lock all the LPNs in the temp table', l_proc_name,1);
4640: END IF;
4641:
4642: l_progress := '100';
4643: x_return_status := fnd_api.g_ret_sts_success;
4644: l_progress := '110';
4645:
4646: -- Bulk Lock all LPNs which are in the temp table.
4647: -- So that other user can't work on them
4670:
4671: EXCEPTION
4672: WHEN no_data_found THEN
4673: debug(' No LPNs found in the temp table for locking', l_proc_name,1);
4674: x_return_status := fnd_api.g_ret_sts_success;
4675:
4676: WHEN record_locked THEN
4677: debug(' LPN Already locked by someone else', l_proc_name,1);
4678: x_return_status := fnd_api.g_ret_sts_error;
4674: x_return_status := fnd_api.g_ret_sts_success;
4675:
4676: WHEN record_locked THEN
4677: debug(' LPN Already locked by someone else', l_proc_name,1);
4678: x_return_status := fnd_api.g_ret_sts_error;
4679:
4680: fnd_message.set_name('WMS', 'WMS_LPN_UNAVAIL');
4681: fnd_msg_pub.ADD;
4682: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4678: x_return_status := fnd_api.g_ret_sts_error;
4679:
4680: fnd_message.set_name('WMS', 'WMS_LPN_UNAVAIL');
4681: fnd_msg_pub.ADD;
4682: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4683:
4684: WHEN OTHERS THEN
4685: debug(' Exception while trying to lock LPN(s) ' || SQLERRM, l_proc_name,1);
4686: x_return_status := fnd_api.g_ret_sts_unexp_error;
4682: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4683:
4684: WHEN OTHERS THEN
4685: debug(' Exception while trying to lock LPN(s) ' || SQLERRM, l_proc_name,1);
4686: x_return_status := fnd_api.g_ret_sts_unexp_error;
4687: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4688:
4689: END Lock_LPNs;
4690:
4683:
4684: WHEN OTHERS THEN
4685: debug(' Exception while trying to lock LPN(s) ' || SQLERRM, l_proc_name,1);
4686: x_return_status := fnd_api.g_ret_sts_unexp_error;
4687: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
4688:
4689: END Lock_LPNs;
4690:
4691:
4764: DEBUG(' p_lpn_is_loaded => '||p_lpn_is_loaded, l_proc_name,4);
4765: END IF;
4766:
4767: l_progress := '20';
4768: x_return_status := fnd_api.g_ret_sts_success;
4769: l_progress := '30';
4770:
4771: -- Always delete the existing records in the temp table before creating it.
4772: -- This code has to be later forked if the grouping logic has to be called for
4783: l_progress := '50';
4784:
4785: IF l_del_count = -1 THEN
4786: --Deletion has failed so raise error.
4787: RAISE fnd_api.g_exc_unexpected_error;
4788: END IF;
4789:
4790: l_progress := '60';
4791:
4790: l_progress := '60';
4791:
4792: EXCEPTION
4793: WHEN OTHERS THEN
4794: RAISE fnd_api.g_exc_unexpected_error;
4795: END; -- Delete Existing rows in the temp table
4796:
4797:
4798: -- Check whether the LPN is already loaded or not.
4825: ,x_return_status => x_return_status
4826: ,x_msg_count => x_msg_count
4827: ,x_msg_data => x_msg_data
4828: );
4829: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4830: IF (l_debug = 1) THEN
4831: DEBUG(' Error Unpacking LPN from Parent LPN' ,l_proc_name,9);
4832: END IF;
4833: RAISE fnd_api.g_exc_error;
4829: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
4830: IF (l_debug = 1) THEN
4831: DEBUG(' Error Unpacking LPN from Parent LPN' ,l_proc_name,9);
4832: END IF;
4833: RAISE fnd_api.g_exc_error;
4834: END IF;
4835: END IF;
4836:
4837: IF (l_debug = 1) THEN
4848: l_progress := '120';
4849:
4850:
4851: -- Check for the return status
4852: IF x_return_status = fnd_api.g_ret_sts_success THEN
4853: -- Activate completed successfully.
4854: NULL;
4855:
4856: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4852: IF x_return_status = fnd_api.g_ret_sts_success THEN
4853: -- Activate completed successfully.
4854: NULL;
4855:
4856: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4857: RAISE fnd_api.g_exc_error;
4858:
4859: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4860: RAISE fnd_api.g_exc_unexpected_error;
4853: -- Activate completed successfully.
4854: NULL;
4855:
4856: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4857: RAISE fnd_api.g_exc_error;
4858:
4859: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4860: RAISE fnd_api.g_exc_unexpected_error;
4861:
4855:
4856: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4857: RAISE fnd_api.g_exc_error;
4858:
4859: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4860: RAISE fnd_api.g_exc_unexpected_error;
4861:
4862: END IF;
4863:
4856: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4857: RAISE fnd_api.g_exc_error;
4858:
4859: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4860: RAISE fnd_api.g_exc_unexpected_error;
4861:
4862: END IF;
4863:
4864: l_progress := '130';
4864: l_progress := '130';
4865:
4866: EXCEPTION
4867: WHEN OTHERS THEN
4868: RAISE fnd_api.g_exc_unexpected_error;
4869: END; -- Simulate LOAAD
4870:
4871: END IF; --LPN already loaded check
4872:
4913:
4914: -- Error out since it is failure case
4915: IF l_rec_count = -1 THEN
4916: l_progress := '220';
4917: RAISE fnd_api.g_exc_error;
4918: END IF;
4919:
4920: -- No tasks available. Set the message and display it in the UI
4921: IF l_rec_count = 0 THEN
4939: l_progress := '260';
4940:
4941:
4942: -- Check for the return status
4943: IF x_return_status = fnd_api.g_ret_sts_success THEN
4944: -- Activate completed successfully.
4945: NULL;
4946:
4947: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4943: IF x_return_status = fnd_api.g_ret_sts_success THEN
4944: -- Activate completed successfully.
4945: NULL;
4946:
4947: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4948: RAISE fnd_api.g_exc_error;
4949:
4950: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4951: RAISE fnd_api.g_exc_unexpected_error;
4944: -- Activate completed successfully.
4945: NULL;
4946:
4947: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4948: RAISE fnd_api.g_exc_error;
4949:
4950: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4951: RAISE fnd_api.g_exc_unexpected_error;
4952:
4946:
4947: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4948: RAISE fnd_api.g_exc_error;
4949:
4950: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4951: RAISE fnd_api.g_exc_unexpected_error;
4952:
4953: ELSIF l_rec_count = -1 THEN
4954: RAISE fnd_api.g_exc_unexpected_error;
4947: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
4948: RAISE fnd_api.g_exc_error;
4949:
4950: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4951: RAISE fnd_api.g_exc_unexpected_error;
4952:
4953: ELSIF l_rec_count = -1 THEN
4954: RAISE fnd_api.g_exc_unexpected_error;
4955:
4950: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
4951: RAISE fnd_api.g_exc_unexpected_error;
4952:
4953: ELSIF l_rec_count = -1 THEN
4954: RAISE fnd_api.g_exc_unexpected_error;
4955:
4956: END IF;
4957:
4958:
4957:
4958:
4959: EXCEPTION
4960: WHEN OTHERS THEN
4961: RAISE fnd_api.g_exc_unexpected_error;
4962:
4963: END; --ATF Call to Activate
4964:
4965: -- Core Grouping logic
4996: DEBUG('Populate_Drop_type returned error and hence raising exception ',l_proc_name,1);
4997: END IF;
4998:
4999: l_progress := '340';
5000: RAISE fnd_api.g_exc_error;
5001: END IF; -- l_rec_count check
5002:
5003: l_progress := '350';
5004: EXCEPTION
5002:
5003: l_progress := '350';
5004: EXCEPTION
5005: WHEN OTHERS THEN
5006: RAISE fnd_api.g_exc_unexpected_error;
5007: END;--Populating the drop type
5008:
5009: -- END IF; --p_item_drop_flag check
5010:
5069: DEBUG('Mark_Consolidated_LPN returned error and hence raising exception ',l_proc_name,1);
5070: END IF;
5071:
5072: l_progress := '510';
5073: RAISE fnd_api.g_exc_error;
5074: END IF; -- l_rec_count check
5075:
5076: OPEN c_lpn_cursor;
5077: -- END BUG 5187983
5083:
5084:
5085: EXCEPTION
5086: WHEN OTHERS THEN
5087: RAISE fnd_api.g_exc_unexpected_error;
5088: END;-- Mark Consolidated LPN
5089:
5090:
5091: BEGIN --Group_Item_Drop_Tasks
5100: DEBUG('Group_Item_Drop_Tasks returned error and hence raising exception ',l_proc_name,1);
5101: END IF;
5102:
5103: l_progress := '640';
5104: RAISE fnd_api.g_exc_error;
5105: END IF; -- l_rec_count check
5106:
5107: l_progress := '650';
5108:
5107: l_progress := '650';
5108:
5109: EXCEPTION
5110: WHEN OTHERS THEN
5111: RAISE fnd_api.g_exc_unexpected_error;
5112: END;--Group_Item_Drop_Tasks
5113:
5114:
5115:
5125: DEBUG('Group_Consolidated_Drop_Tasks returned error and hence raising exception ',l_proc_name,1);
5126: END IF;
5127:
5128: l_progress := '740';
5129: RAISE fnd_api.g_exc_error;
5130: END IF; -- l_rec_count check
5131:
5132: l_progress := '750';
5133:
5132: l_progress := '750';
5133:
5134: EXCEPTION
5135: WHEN OTHERS THEN
5136: RAISE fnd_api.g_exc_unexpected_error;
5137: END;--Group_Consolidated_Drop_Tasks
5138:
5139:
5140: BEGIN --Sync_Group_Tasks
5149: DEBUG('Sync_Group_Tasks returned error and hence raising exception ',l_proc_name,1);
5150: END IF;
5151:
5152: l_progress := '840';
5153: RAISE fnd_api.g_exc_error;
5154: END IF; -- l_rec_count check
5155:
5156: l_progress := '850';
5157:
5156: l_progress := '850';
5157:
5158: EXCEPTION
5159: WHEN OTHERS THEN
5160: RAISE fnd_api.g_exc_unexpected_error;
5161: END;--Sync_Group_Tasks
5162:
5163:
5164: -- Done with the grouping logic, so go ahead and delete the dummy rows
5188: ,x_msg_data => x_msg_data );
5189:
5190: l_progress := '970';
5191:
5192: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5193: IF (l_debug = 1) THEN
5194: DEBUG(' Error in locking LPNs ' || x_msg_data ,l_proc_name,1);
5195: END IF;
5196:
5194: DEBUG(' Error in locking LPNs ' || x_msg_data ,l_proc_name,1);
5195: END IF;
5196:
5197: l_progress := '980';
5198: RAISE fnd_api.g_exc_error;
5199: END IF;
5200:
5201:
5202: IF (l_debug = 1) THEN
5208:
5209: l_progress := '1000';
5210:
5211: EXCEPTION
5212: WHEN fnd_api.g_exc_error THEN
5213: x_return_status := fnd_api.g_ret_sts_error;
5214: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5215: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5216: DEBUG(SQLERRM,l_proc_name,1);
5209: l_progress := '1000';
5210:
5211: EXCEPTION
5212: WHEN fnd_api.g_exc_error THEN
5213: x_return_status := fnd_api.g_ret_sts_error;
5214: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5215: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5216: DEBUG(SQLERRM,l_proc_name,1);
5217:
5210:
5211: EXCEPTION
5212: WHEN fnd_api.g_exc_error THEN
5213: x_return_status := fnd_api.g_ret_sts_error;
5214: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5215: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5216: DEBUG(SQLERRM,l_proc_name,1);
5217:
5218: IF c_lpn_cursor%isopen THEN
5218: IF c_lpn_cursor%isopen THEN
5219: CLOSE c_lpn_cursor;
5220: END IF;
5221:
5222: WHEN fnd_api.g_exc_unexpected_error THEN
5223: x_return_status := fnd_api.g_ret_sts_unexp_error;
5224: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5225: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5226: DEBUG(SQLERRM,l_proc_name,1);
5219: CLOSE c_lpn_cursor;
5220: END IF;
5221:
5222: WHEN fnd_api.g_exc_unexpected_error THEN
5223: x_return_status := fnd_api.g_ret_sts_unexp_error;
5224: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5225: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5226: DEBUG(SQLERRM,l_proc_name,1);
5227:
5220: END IF;
5221:
5222: WHEN fnd_api.g_exc_unexpected_error THEN
5223: x_return_status := fnd_api.g_ret_sts_unexp_error;
5224: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5225: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5226: DEBUG(SQLERRM,l_proc_name,1);
5227:
5228: IF c_lpn_cursor%isopen THEN
5230: END IF;
5231:
5232:
5233: WHEN OTHERS THEN
5234: x_return_status := fnd_api.g_ret_sts_unexp_error;
5235: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5236: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5237: DEBUG(SQLERRM,l_proc_name,1);
5238:
5231:
5232:
5233: WHEN OTHERS THEN
5234: x_return_status := fnd_api.g_ret_sts_unexp_error;
5235: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5236: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5237: DEBUG(SQLERRM,l_proc_name,1);
5238:
5239: IF c_lpn_cursor%isopen THEN
5312: END IF;
5313:
5314: -- Set the return status to success.
5315: l_progress := '20';
5316: x_return_status := fnd_api.g_ret_sts_success;
5317: l_progress := '30';
5318:
5319: -- Setting the values for the task record
5320: -- Thought this is for Drop, The existing WDTs if any for load would have been deleted
5370: );
5371:
5372: l_progress := '310';
5373:
5374: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5375: IF (l_debug = 1) THEN
5376: DEBUG(l_error_code || ' Error in abort_operation_instance ' ,l_proc_name,1);
5377: END IF;
5378: l_progress := '320';
5376: DEBUG(l_error_code || ' Error in abort_operation_instance ' ,l_proc_name,1);
5377: END IF;
5378: l_progress := '320';
5379:
5380: RAISE fnd_api.g_exc_error;
5381: END IF;
5382:
5383: ELSIF p_call_type = g_atf_cancel_plan THEN
5384: IF (l_debug = 1) THEN
5397: ,x_error_code => l_error_code
5398: );
5399: l_progress := '340';
5400:
5401: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5402: IF (l_debug = 1) THEN
5403: DEBUG(l_error_code || ' Error in cancel_operation_plan ' ,l_proc_name,1);
5404: END IF;
5405: l_progress := '350';
5403: DEBUG(l_error_code || ' Error in cancel_operation_plan ' ,l_proc_name,1);
5404: END IF;
5405: l_progress := '350';
5406:
5407: RAISE fnd_api.g_exc_error;
5408: END IF;
5409: ELSIF p_call_type = G_ATF_ACTIVATE_PLAN THEN
5410: IF (l_debug = 1) THEN
5411: DEBUG('Calling activate_operation_instance with ...',l_proc_name,9);
5429: ,x_drop_lpn_option => l_drop_lpn_option
5430: );
5431: l_progress := '340';
5432:
5433: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5434: IF (l_debug = 1) THEN
5435: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
5436: END IF;
5437: l_progress := '350';
5435: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
5436: END IF;
5437: l_progress := '350';
5438:
5439: RAISE fnd_api.g_exc_error;
5440: END IF;
5441:
5442: ELSE
5443: -- Invalid value for mode, return error
5440: END IF;
5441:
5442: ELSE
5443: -- Invalid value for mode, return error
5444: RAISE fnd_api.g_exc_error;
5445:
5446: END IF; -- Check the mode for which the integration API is called
5447:
5448:
5458:
5459:
5460: EXCEPTION
5461:
5462: WHEN fnd_api.g_exc_error THEN
5463: x_return_status := fnd_api.g_ret_sts_error;
5464: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5465: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5466: DEBUG(SQLERRM,l_proc_name,1);
5459:
5460: EXCEPTION
5461:
5462: WHEN fnd_api.g_exc_error THEN
5463: x_return_status := fnd_api.g_ret_sts_error;
5464: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5465: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5466: DEBUG(SQLERRM,l_proc_name,1);
5467:
5460: EXCEPTION
5461:
5462: WHEN fnd_api.g_exc_error THEN
5463: x_return_status := fnd_api.g_ret_sts_error;
5464: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5465: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5466: DEBUG(SQLERRM,l_proc_name,1);
5467:
5468: IF c_all_mmtt_cursor%isopen THEN
5468: IF c_all_mmtt_cursor%isopen THEN
5469: CLOSE c_all_mmtt_cursor;
5470: END IF;
5471:
5472: WHEN fnd_api.g_exc_unexpected_error THEN
5473: x_return_status := fnd_api.g_ret_sts_unexp_error;
5474: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5475: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5476: DEBUG(SQLERRM,l_proc_name,1);
5469: CLOSE c_all_mmtt_cursor;
5470: END IF;
5471:
5472: WHEN fnd_api.g_exc_unexpected_error THEN
5473: x_return_status := fnd_api.g_ret_sts_unexp_error;
5474: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5475: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5476: DEBUG(SQLERRM,l_proc_name,1);
5477:
5470: END IF;
5471:
5472: WHEN fnd_api.g_exc_unexpected_error THEN
5473: x_return_status := fnd_api.g_ret_sts_unexp_error;
5474: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5475: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5476: DEBUG(SQLERRM,l_proc_name,1);
5477:
5478: IF c_all_mmtt_cursor%isopen THEN
5480: END IF;
5481:
5482:
5483: WHEN OTHERS THEN
5484: x_return_status := fnd_api.g_ret_sts_unexp_error;
5485: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5486: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5487: DEBUG(SQLERRM,l_proc_name,1);
5488:
5481:
5482:
5483: WHEN OTHERS THEN
5484: x_return_status := fnd_api.g_ret_sts_unexp_error;
5485: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5486: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5487: DEBUG(SQLERRM,l_proc_name,1);
5488:
5489: IF c_all_mmtt_cursor%isopen THEN
5559: END IF;
5560:
5561: -- Set the return status to success.
5562: l_progress := '20';
5563: x_return_status := fnd_api.g_ret_sts_success;
5564: l_progress := '30';
5565:
5566: -- Get the employee ID so we can populate
5567: -- the person_id column in WDT properly.
5639: ,x_drop_lpn_option => l_drop_lpn_option
5640: );
5641: l_progress := '310';
5642:
5643: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5644: IF (l_debug = 1) THEN
5645: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
5646: END IF;
5647: l_progress := '320';
5645: DEBUG(l_error_code || ' Error in activate_operation_instance ' ,l_proc_name,1);
5646: END IF;
5647: l_progress := '320';
5648:
5649: RAISE fnd_api.g_exc_error;
5650: END IF;
5651:
5652: END LOOP; --All temp ids loop
5653:
5662: --Return the count of rows processed
5663: RETURN l_rec_count;
5664:
5665: EXCEPTION
5666: WHEN fnd_api.g_exc_error THEN
5667: x_return_status := fnd_api.g_ret_sts_error;
5668: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5669: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5670: DEBUG(SQLERRM,l_proc_name,1);
5663: RETURN l_rec_count;
5664:
5665: EXCEPTION
5666: WHEN fnd_api.g_exc_error THEN
5667: x_return_status := fnd_api.g_ret_sts_error;
5668: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5669: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5670: DEBUG(SQLERRM,l_proc_name,1);
5671:
5664:
5665: EXCEPTION
5666: WHEN fnd_api.g_exc_error THEN
5667: x_return_status := fnd_api.g_ret_sts_error;
5668: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5669: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5670: DEBUG(SQLERRM,l_proc_name,1);
5671:
5672: IF c_mol_mmtt_cursor%ISOPEN THEN
5675:
5676: RETURN -1;
5677:
5678:
5679: WHEN fnd_api.g_exc_unexpected_error THEN
5680: x_return_status := fnd_api.g_ret_sts_unexp_error;
5681: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5682:
5683: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5676: RETURN -1;
5677:
5678:
5679: WHEN fnd_api.g_exc_unexpected_error THEN
5680: x_return_status := fnd_api.g_ret_sts_unexp_error;
5681: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5682:
5683: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5684: DEBUG(SQLERRM,l_proc_name,1);
5677:
5678:
5679: WHEN fnd_api.g_exc_unexpected_error THEN
5680: x_return_status := fnd_api.g_ret_sts_unexp_error;
5681: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5682:
5683: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5684: DEBUG(SQLERRM,l_proc_name,1);
5685:
5690: RETURN -1;
5691:
5692:
5693: WHEN OTHERS THEN
5694: x_return_status := fnd_api.g_ret_sts_unexp_error;
5695: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5696: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5697: DEBUG(SQLERRM,l_proc_name,1);
5698:
5691:
5692:
5693: WHEN OTHERS THEN
5694: x_return_status := fnd_api.g_ret_sts_unexp_error;
5695: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
5696: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
5697: DEBUG(SQLERRM,l_proc_name,1);
5698:
5699: IF c_mol_mmtt_cursor%ISOPEN THEN
5887:
5888: --Part of bugfix 4114695 - should initialize this variable so that
5889: --calls from java aren't mislead to think this failed when indeed
5890: --it was a clean exit. Upon EXCEPTION, this flag is changedw
5891: x_return_status := fnd_api.g_ret_sts_success;
5892:
5893: IF (l_debug = 1) THEN
5894: DEBUG('Start of function ' || l_proc_name ,l_proc_name,9);
5895: DEBUG(' p_call_type ==> '|| p_call_type,l_proc_name,4);
5918: WHEN OTHERS THEN
5919: IF (l_debug = 1) THEN
5920: DEBUG('Error querying WLPN. SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,l_proc_name,9);
5921: END IF;
5922: RAISE fnd_api.g_exc_error;
5923: END;
5924:
5925: IF (l_debug = 1) THEN
5926: DEBUG('Outermost LPN_ID:'||l_outermost_lpn_id,l_proc_name,9);
5976:
5977: ELSE
5978: -- Invalid inputs passed hence error out
5979: l_progress := '299';
5980: RAISE fnd_api.g_exc_error;
5981:
5982: END IF; -- Check which cursor to open
5983:
5984:
6026: ,x_return_status => x_return_status
6027: ,x_msg_count => x_msg_count
6028: ,x_msg_data => x_msg_data
6029: );
6030: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6031: IF (l_debug = 1) THEN
6032: DEBUG('Error packing LPN into original parent...', l_proc_name,9);
6033: END IF;
6034: RAISE fnd_api.g_exc_error;
6030: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6031: IF (l_debug = 1) THEN
6032: DEBUG('Error packing LPN into original parent...', l_proc_name,9);
6033: END IF;
6034: RAISE fnd_api.g_exc_error;
6035: END IF;
6036: END IF;
6037:
6038: l_lpn_context := NULL;
6057: ,x_error_code => l_error_code
6058: );
6059: l_progress := '310';
6060:
6061: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6062: IF (l_debug = 1) THEN
6063: DEBUG(l_error_code || ' Error in Rollback_operation_plan ' ,l_proc_name,1);
6064: END IF;
6065: l_progress := '320';
6062: IF (l_debug = 1) THEN
6063: DEBUG(l_error_code || ' Error in Rollback_operation_plan ' ,l_proc_name,1);
6064: END IF;
6065: l_progress := '320';
6066: x_return_status := fnd_api.g_ret_sts_error;
6067: /* Don't raise error in case of failure, instead set the ret status as error
6068: and proceed with the next record */
6069: --RAISE fnd_api.g_exc_error;
6070: END IF;
6065: l_progress := '320';
6066: x_return_status := fnd_api.g_ret_sts_error;
6067: /* Don't raise error in case of failure, instead set the ret status as error
6068: and proceed with the next record */
6069: --RAISE fnd_api.g_exc_error;
6070: END IF;
6071:
6072: --Bug 5075410: If the cleanup is called
6073: --for a single step drop for an inventory lpn and there is
6101: WHEN OTHERS THEN
6102: IF (l_debug = 1) THEN
6103: debug('Error querying op_plan_id of MMTT. SQLERRM:'||Sqlerrm,l_proc_name,1);
6104: END IF;
6105: RAISE fnd_api.g_exc_error;
6106: END;
6107:
6108: IF (l_lpn_context IS NULL) THEN
6109: BEGIN
6115: WHEN OTHERS THEN
6116: IF (l_debug = 1) THEN
6117: debug('Error querying lpn_context of WLPN. SQLERRM:'||Sqlerrm,l_proc_name,1);
6118: END IF;
6119: RAISE fnd_api.g_exc_error;
6120: END;
6121: END IF;
6122:
6123: l_mmtt_qty_mol_uom := inv_convert.inv_um_convert
6269: ,x_return_status => x_return_status
6270: ,x_msg_count => x_msg_count
6271: ,x_msg_data => x_msg_data
6272: );
6273: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6274: IF (l_debug = 1) THEN
6275: DEBUG('Error in Delete_dispatched_tasks ' ,l_proc_name,1);
6276: END IF;
6277: l_progress := '306';
6274: IF (l_debug = 1) THEN
6275: DEBUG('Error in Delete_dispatched_tasks ' ,l_proc_name,1);
6276: END IF;
6277: l_progress := '306';
6278: x_return_status := fnd_api.g_ret_sts_error;
6279: END IF;
6280:
6281: ELSE --IF (p_call_type = g_ct_inspect_b4_tm)
6282: IF (l_debug = 1) THEN
6295: ,x_error_code => l_error_code
6296: );
6297: l_progress := '320';
6298:
6299: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
6300: IF (l_debug = 1) THEN
6301: DEBUG(l_error_code || ' Error in Cleanup_Operation_Instance ' ,l_proc_name,1);
6302: END IF;
6303: l_progress := '330';
6300: IF (l_debug = 1) THEN
6301: DEBUG(l_error_code || ' Error in Cleanup_Operation_Instance ' ,l_proc_name,1);
6302: END IF;
6303: l_progress := '330';
6304: x_return_status := fnd_api.g_ret_sts_error;
6305: /* Don't raise error in case of failure, instead set the ret status as error
6306: and proceed with the next record */
6307: --RAISE fnd_api.g_exc_error;
6308: END IF;
6303: l_progress := '330';
6304: x_return_status := fnd_api.g_ret_sts_error;
6305: /* Don't raise error in case of failure, instead set the ret status as error
6306: and proceed with the next record */
6307: --RAISE fnd_api.g_exc_error;
6308: END IF;
6309: END IF;--IF (p_call_type = g_ct_inspect_b4_tm) THEN
6310:
6311: --BUG 5075410
6331:
6332: ELSE
6333: -- Invalid inputs passed hence error out
6334: l_progress := '340';
6335: RAISE fnd_api.g_exc_error;
6336: END IF;
6337:
6338:
6339: IF c_mol_mmtt_cursor%ISOPEN THEN
6359: -- in an online transactions, the variables will not be reset
6360: inv_rcv_common_apis.rcv_clear_global;
6361:
6362: EXCEPTION
6363: WHEN fnd_api.g_exc_error THEN
6364: x_return_status := fnd_api.g_ret_sts_error;
6365: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6366: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
6367: DEBUG(SQLERRM,l_proc_name,1);
6360: inv_rcv_common_apis.rcv_clear_global;
6361:
6362: EXCEPTION
6363: WHEN fnd_api.g_exc_error THEN
6364: x_return_status := fnd_api.g_ret_sts_error;
6365: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6366: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
6367: DEBUG(SQLERRM,l_proc_name,1);
6368:
6361:
6362: EXCEPTION
6363: WHEN fnd_api.g_exc_error THEN
6364: x_return_status := fnd_api.g_ret_sts_error;
6365: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6366: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
6367: DEBUG(SQLERRM,l_proc_name,1);
6368:
6369: IF c_mol_mmtt_cursor%ISOPEN THEN
6377: IF c_all_mmtt_cursor%isopen THEN
6378: CLOSE c_all_mmtt_cursor;
6379: END IF;
6380:
6381: WHEN fnd_api.g_exc_unexpected_error THEN
6382: x_return_status := fnd_api.g_ret_sts_unexp_error;
6383: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6384:
6385: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
6378: CLOSE c_all_mmtt_cursor;
6379: END IF;
6380:
6381: WHEN fnd_api.g_exc_unexpected_error THEN
6382: x_return_status := fnd_api.g_ret_sts_unexp_error;
6383: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6384:
6385: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
6386: DEBUG(SQLERRM,l_proc_name,1);
6379: END IF;
6380:
6381: WHEN fnd_api.g_exc_unexpected_error THEN
6382: x_return_status := fnd_api.g_ret_sts_unexp_error;
6383: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6384:
6385: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
6386: DEBUG(SQLERRM,l_proc_name,1);
6387:
6396: IF c_all_mmtt_cursor%isopen THEN
6397: CLOSE c_all_mmtt_cursor;
6398: END IF;
6399: WHEN OTHERS THEN
6400: x_return_status := fnd_api.g_ret_sts_unexp_error;
6401: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6402: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
6403: DEBUG(SQLERRM,l_proc_name,1);
6404:
6397: CLOSE c_all_mmtt_cursor;
6398: END IF;
6399: WHEN OTHERS THEN
6400: x_return_status := fnd_api.g_ret_sts_unexp_error;
6401: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
6402: DEBUG(' Exception occured at l_progress = ' || l_progress || ' during ' || to_char(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
6403: DEBUG(SQLERRM,l_proc_name,1);
6404:
6405: IF c_mol_mmtt_cursor%ISOPEN THEN
6499:
6500: -- Intialize out variables.
6501: l_progress := 10;
6502: l_content_lpn := 'N';
6503: x_return_status := fnd_api.g_ret_sts_success;
6504: x_loaded_status := 'N';
6505: x_ret := 0;
6506:
6507: IF (l_debug = 1) THEN
6614: END IF;
6615:
6616: END IF;
6617: x_ret := 3; --return error
6618: x_return_status := fnd_api.g_ret_sts_success;
6619: RETURN;
6620: END IF;--END IF (l_drop_active = 'Y') THEN
6621: END IF;--END IF (x_lpn_context = 3) THEN
6622:
6737: -- If return value is error then parent lpn state 'U' - INVALID
6738: -- else if return value = 0 then parent lpn state 'V' - VALID;
6739: -- else if return value = 1 then parent lpn state 'I' - INSPECT;
6740: -- else paretn lpn statue - 'U' - INVALID.
6741: IF (l_x_return_status = fnd_api.g_ret_sts_error OR l_x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
6742: l_parent_lpn_state := 'U'; -- invalid
6743: ELSIF (l_x_ret =0) THEN
6744: l_parent_lpn_state := 'V'; -- valid.
6745: ELSIF (l_x_ret =1) THEN
6761: -- In this case check for the given LPN itself and return.
6762:
6763: IF p_mode = 0 THEN
6764: -- In case of failures l_x_ret might be '0' set it to proper value;
6765: IF (l_x_return_status = fnd_api.g_ret_sts_error OR
6766: l_x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
6767: l_x_ret := 3;
6768: END IF;
6769: x_ret := l_x_ret;
6762:
6763: IF p_mode = 0 THEN
6764: -- In case of failures l_x_ret might be '0' set it to proper value;
6765: IF (l_x_return_status = fnd_api.g_ret_sts_error OR
6766: l_x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
6767: l_x_ret := 3;
6768: END IF;
6769: x_ret := l_x_ret;
6770: RETURN;
6790: fnd_msg_pub.add ;
6791: IF (l_debug = 1) THEN
6792: debug('check_lpn_validity: Error!!!, LPN is Allocated' );
6793: END IF;
6794: x_return_status := fnd_api.g_ret_sts_unexp_error;
6795: return;
6796: END IF;
6797:
6798: SELECT COUNT(1) INTO l_invalid_cnt
6806: fnd_msg_pub.add ;
6807: IF (l_debug = 1) THEN
6808: debug('check_lpn_validity: Error!!!, LPN has loaded tasks ' );
6809: END IF;
6810: x_return_status := fnd_api.g_ret_sts_unexp_error;
6811: return;
6812: END IF;
6813: END;
6814:
6869: -- If return value is error then child lpn state 'U' - INVALID
6870: -- else if return value = 0 then child lpn state 'V' - VALID;
6871: -- else if return value = 1 then child lpn state 'I' - INSPECT;
6872: -- else paretn lpn statue - 'U' - INVALID.
6873: IF (l_x_return_status = fnd_api.g_ret_sts_error OR l_x_return_status = fnd_api.g_ret_sts_unexp_error ) THEN
6874: l_child_lpn_state := 'U'; -- invalid
6875: ELSIF (l_x_ret =0) THEN
6876: l_child_lpn_state := 'V'; -- valid.
6877: ELSIF (l_x_ret =1) THEN
6974: IF l_lpn_context = WMS_CONTAINER_PUB.LPN_CONTEXT_PREGENERATED THEN
6975: debug('There is no LPN content available for this transaction.');
6976: fnd_message.set_name('WMS', 'WMS_LPN_UNAVAIL');
6977: fnd_msg_pub.ADD;
6978: x_return_status := fnd_api.g_ret_sts_unexp_error;
6979: x_ret := 3;
6980: RETURN;
6981: END IF;
6982: END IF;
6984:
6985:
6986: EXCEPTION
6987: WHEN OTHERS THEN
6988: x_return_status := fnd_api.g_ret_sts_unexp_error;
6989: x_ret := 3;
6990: debug(SQLCODE, 1);
6991:
6992: IF lpn_cursor%isopen THEN
7056: CONNECT BY parent_lpn_id = PRIOR lpn_id;
7057: BEGIN
7058:
7059: -- Intializat out variables.
7060: x_return_status := fnd_api.g_ret_sts_success;
7061:
7062: -- Explode the LPN and for each child LPN call suggestions_pub_wrapper.
7063: IF (l_debug = 1) THEN
7064: debug('Patchset J code');
7067: debug(' p_user_id==> '|| p_user_id);
7068: END IF;
7069:
7070: -- Initialize out variables
7071: x_return_status := fnd_api.g_ret_sts_success;
7072: x_crossdock:= 'N';
7073: x_number_of_rows := 0;
7074:
7075: SAVEPOINT before_suggestions_pub_call;
7109: debug('ret status after suggestion pug for : ' ||l_lpn_id||' is '|| x_return_status);
7110: END IF;
7111:
7112:
7113: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7114: -- IF x_msg_count = 0 THEN
7115: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7116: -- FND_MSG_PUB.ADD;
7117: -- END IF;
7114: -- IF x_msg_count = 0 THEN
7115: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7116: -- FND_MSG_PUB.ADD;
7117: -- END IF;
7118: RAISE FND_API.g_exc_unexpected_error;
7119:
7120: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7121: -- IF x_msg_count = 0 THEN
7122: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7116: -- FND_MSG_PUB.ADD;
7117: -- END IF;
7118: RAISE FND_API.g_exc_unexpected_error;
7119:
7120: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
7121: -- IF x_msg_count = 0 THEN
7122: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7123: -- FND_MSG_PUB.ADD;
7124: -- END IF;
7121: -- IF x_msg_count = 0 THEN
7122: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7123: -- FND_MSG_PUB.ADD;
7124: -- END IF;
7125: RAISE FND_API.G_EXC_ERROR;
7126: END IF;
7127:
7128: IF l_x_crossdock = 'Y' THEN
7129: x_crossdock := 'Y';
7164: --fnd_msg_pub.initialize();
7165: fnd_message.set_name('WMS', 'WMS_INVLID_LPN_MOVE');
7166: fnd_msg_pub.ADD;
7167: ROLLBACK TO before_suggestions_pub_call;
7168: RAISE fnd_api.g_exc_error;
7169: END IF;
7170: END IF;
7171: --BUG12681832 End
7172:
7189: FOR i IN 2 .. l_msg_count LOOP
7190: fnd_msg_pub.delete_msg(i);
7191: END LOOP;
7192: END IF;
7193: RAISE fnd_api.g_exc_error;
7194: END IF;
7195:
7196: EXCEPTION
7197: WHEN OTHERS THEN
7194: END IF;
7195:
7196: EXCEPTION
7197: WHEN OTHERS THEN
7198: x_return_status := fnd_api.g_ret_sts_unexp_error;
7199: debug(SQLCODE, 1);
7200:
7201: IF lpn_cursor%isopen THEN
7202: CLOSE lpn_cursor;
7250: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
7251: l_ret NUMBER;
7252:
7253: BEGIN
7254: x_return_status := fnd_api.g_ret_sts_success;
7255: l_progress := 10;
7256:
7257: IF(l_debug =1) THEN
7258: debug('In Patchset J code: ','PackUnpackLpn');
7308: , p_task_id => p_task_id);
7309: END IF;
7310:
7311: IF (l_txn_temp_id <=0 ) OR (l_ret<>0) THEN
7312: x_return_status := fnd_api.g_ret_sts_unexp_error;
7313: END IF;
7314:
7315: -- Update batch id and seq id
7316: IF p_batch_id IS NOT NULL AND p_batch_seq IS NOT NULL THEN
7327: END IF;
7328:
7329: EXCEPTION
7330: WHEN OTHERS THEN
7331: x_return_status := fnd_api.g_ret_sts_unexp_error;
7332: debug(SQLCODE, 1);
7333:
7334: IF SQLCODE IS NOT NULL THEN
7335: l_progress := 100;
7387: l_msg_data VARCHAR2(10000);
7388: l_discrepancy NUMBER;
7389: BEGIN
7390: l_progress := 10;
7391: x_return_status := fnd_api.g_ret_sts_success;
7392:
7393: IF (l_debug = 1) THEN
7394: debug('Patchset J code - Load LPN');
7395: debug(' p_org_id=======> '|| p_org_id);
7507: IF (l_debug = 1) THEN
7508: debug('Error inserting MMTT ID: ' ||
7509: l_txn_temp_id,9);
7510: END IF;
7511: RAISE fnd_api.g_exc_error;
7512: END IF;
7513:
7514: BEGIN
7515: UPDATE mtl_material_transactions_temp
7522: IF (l_debug = 1) THEN
7523: debug('Error updating MMTT with ID: ' ||
7524: l_txn_temp_id,9);
7525: END IF;
7526: RAISE fnd_api.g_exc_error;
7527: END;
7528:
7529: packunpack_lpn
7530: (
7588: ,p_content_lpn_id => p_from_lpn_id
7589: ,p_lpn_id => l_parent_lpn_id
7590: ,p_operation => 2 -- Unpack
7591: ,p_organization_id => p_org_id
7592: ,p_commit => fnd_api.g_false
7593: ,x_return_status => x_return_status
7594: ,x_msg_count => x_msg_count
7595: ,x_msg_data => x_msg_data);
7596:
7593: ,x_return_status => x_return_status
7594: ,x_msg_count => x_msg_count
7595: ,x_msg_data => x_msg_data);
7596:
7597: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7598: IF (l_debug = 1) THEN
7599: DEBUG('Error unpacking content_lpn = ' ||
7600: p_from_lpn_id || ' into lpn = ' ||
7601: l_parent_lpn_id,'load_lpn',9);
7600: p_from_lpn_id || ' into lpn = ' ||
7601: l_parent_lpn_id,'load_lpn',9);
7602: debug('Error message:'||x_msg_data,9);
7603: END IF;
7604: RAISE fnd_api.g_exc_error;
7605: END IF;
7606: END IF; --IF l_parent_lpn_id IS NOT NULL THEN
7607:
7608: -- Pack the given LPN into ToLPN
7622: ,p_lpn_id => p_from_lpn_id
7623: ,p_subinventory => l_to_sub
7624: ,p_locator_id => l_to_loc
7625: );
7626: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7627: IF (l_debug = 1) THEN
7628: debug('Error modifying lpn',
7629: 'load_lpn', 9);
7630: END IF;
7636: ,p_content_lpn_id => p_from_lpn_id
7637: ,p_lpn_id => p_to_lpn_id
7638: ,p_operation => 1 --Pack
7639: ,p_organization_id => p_org_id
7640: ,p_commit => fnd_api.g_false
7641: ,x_return_status => x_return_status
7642: ,x_msg_count => x_msg_count
7643: ,x_msg_data => x_msg_data);
7644: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7640: ,p_commit => fnd_api.g_false
7641: ,x_return_status => x_return_status
7642: ,x_msg_count => x_msg_count
7643: ,x_msg_data => x_msg_data);
7644: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7645: IF (l_debug = 1) THEN
7646: DEBUG('Error packing content_lpn = ' ||
7647: p_from_lpn_id || ' into lpn = ' ||
7648: p_to_lpn_id,'load_lpn',9);
7647: p_from_lpn_id || ' into lpn = ' ||
7648: p_to_lpn_id,'load_lpn',9);
7649: debug('Error message:'||x_msg_data,9);
7650: END IF;
7651: RAISE fnd_api.g_exc_error;
7652: END IF;
7653: 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
7654:
7655: END IF; --IF p_mode = 1
7668: ,p_txn_mode_code => 'ONLINE'
7669: ,x_return_status => x_return_status
7670: ,x_msg_count => x_msg_count
7671: ,x_msg_data => x_msg_data);
7672: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7673: IF (l_debug = 1) THEN
7674: debug('Error inserting RTI');
7675: END IF;
7676: RAISE fnd_api.g_exc_error;
7672: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7673: IF (l_debug = 1) THEN
7674: debug('Error inserting RTI');
7675: END IF;
7676: RAISE fnd_api.g_exc_error;
7677: END IF;
7678:
7679: IF (l_debug = 1 ) then
7680: debug('RTI inserted with group_id:'|| l_group_id, 9);
7714: debug('After creating suggestions for ' || p_from_lpn_id);
7715: END IF;
7716:
7717:
7718: IF l_x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
7719: -- IF (x_msg_count = 0) THEN
7720: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7721: -- FND_MSG_PUB.ADD;
7722: -- END IF;
7719: -- IF (x_msg_count = 0) THEN
7720: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7721: -- FND_MSG_PUB.ADD;
7722: -- END IF;
7723: RAISE FND_API.g_exc_unexpected_error;
7724: ELSIF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
7725: -- IF (x_msg_count = 0 ) THEN
7726: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7727: -- FND_MSG_PUB.ADD;
7720: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7721: -- FND_MSG_PUB.ADD;
7722: -- END IF;
7723: RAISE FND_API.g_exc_unexpected_error;
7724: ELSIF l_x_return_status = FND_API.G_RET_STS_ERROR THEN
7725: -- IF (x_msg_count = 0 ) THEN
7726: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7727: -- FND_MSG_PUB.ADD;
7728: -- END IF;
7725: -- IF (x_msg_count = 0 ) THEN
7726: -- FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7727: -- FND_MSG_PUB.ADD;
7728: -- END IF;
7729: RAISE FND_API.G_EXC_ERROR;
7730: END IF;
7731:
7732: --BUG 4345714: If any line is not detailed, then fail.
7733: BEGIN
7789: debug('After calling the revert_loc_suggested_capacity');
7790: ROLLBACK;
7791: -- 6962664
7792:
7793: RAISE fnd_api.g_exc_error;
7794: END IF;
7795:
7796: -- Call TM for Pack/Unpack the given lpn
7797: IF (l_is_tm_call_needed = TRUE) THEN
7796: -- Call TM for Pack/Unpack the given lpn
7797: IF (l_is_tm_call_needed = TRUE) THEN
7798: l_ret := inv_lpn_trx_pub.process_lpn_trx(
7799: p_trx_hdr_id => l_trx_header_id,
7800: p_commit => fnd_api.g_false,
7801: x_proc_msg => x_msg_data,
7802: p_atomic => fnd_api.g_true);
7803: -- Check return value and in case of failure raise exception
7804: IF (l_ret <> 0) THEN
7798: l_ret := inv_lpn_trx_pub.process_lpn_trx(
7799: p_trx_hdr_id => l_trx_header_id,
7800: p_commit => fnd_api.g_false,
7801: x_proc_msg => x_msg_data,
7802: p_atomic => fnd_api.g_true);
7803: -- Check return value and in case of failure raise exception
7804: IF (l_ret <> 0) THEN
7805: IF l_debug = 1 THEN
7806: debug('TM call for pack unpack faluire');
7806: debug('TM call for pack unpack faluire');
7807: debug('Failure message ' || x_msg_data);
7808: END IF;
7809: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
7810: RAISE FND_API.G_EXC_ERROR;
7811: END IF;
7812: END IF;
7813:
7814: IF (l_is_rcv_tm_call_needed = TRUE) THEN
7841: DEBUG('There is no employee id tied to the user','load_lpn',9);
7842: END IF;
7843: fnd_message.set_name('WMS', 'WMS_NO_EMP_FOR_USR');
7844: fnd_msg_pub.ADD;
7845: RAISE fnd_api.g_exc_error;
7846: END;
7847:
7848: -- BEGIN DBI FIX
7849: l_task_execute_rec.person_id := l_emp_id;
7880: ,x_error_code => l_error_code
7881: ,x_consolidation_method_id => l_consolidation_method_id
7882: ,x_drop_lpn_option => l_drop_lpn_option
7883: );
7884: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7885: IF (l_debug = 1) THEN
7886: DEBUG('xxx: Error in activate_operation_instance','transfer_contents',9);
7887: END IF;
7888: RAISE fnd_api.g_exc_error;
7884: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7885: IF (l_debug = 1) THEN
7886: DEBUG('xxx: Error in activate_operation_instance','transfer_contents',9);
7887: END IF;
7888: RAISE fnd_api.g_exc_error;
7889: END IF;
7890: END LOOP;
7891:
7892: --End of BUG FIX 3359835
7906: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
7907: IF (l_debug = 1) THEN
7908: DEBUG('xxx: Error - Rcv TM Failed','load_lpn',9);
7909: END IF;
7910: RAISE fnd_api.g_exc_error;
7911: END;
7912:
7913: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7914: IF (l_debug = 1) THEN
7909: END IF;
7910: RAISE fnd_api.g_exc_error;
7911: END;
7912:
7913: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
7914: IF (l_debug = 1) THEN
7915: DEBUG('xxx: Error - Rcv TM Failed','load_lpn',9);
7916: END IF;
7917: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
7914: IF (l_debug = 1) THEN
7915: DEBUG('xxx: Error - Rcv TM Failed','load_lpn',9);
7916: END IF;
7917: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
7918: RAISE fnd_api.g_exc_error;
7919: END IF;
7920:
7921: l_progress := 150;
7922:
7937: DEBUG('There is no employee id tied to the user','transfer_contents',9);
7938: END IF;
7939: fnd_message.set_name('WMS', 'WMS_NO_EMP_FOR_USR');
7940: fnd_msg_pub.ADD;
7941: RAISE fnd_api.g_exc_error;
7942: END;
7943: debug('Calling complete_atf_load for:'||p_from_lpn_id);
7944: DEBUG(' p_org_id => '||p_org_id, 'load_lpn',4);
7945: DEBUG(' p_emp_id => '||l_emp_id, 'load_lpn',4);
7951: ,p_lpn_id => p_from_lpn_id
7952: ,p_emp_id => l_emp_id );
7953:
7954: -- Check for the return status
7955: IF x_return_status = fnd_api.g_ret_sts_success THEN
7956: -- Activate completed successfully.
7957: NULL;
7958: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7959: RAISE fnd_api.g_exc_error;
7954: -- Check for the return status
7955: IF x_return_status = fnd_api.g_ret_sts_success THEN
7956: -- Activate completed successfully.
7957: NULL;
7958: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7959: RAISE fnd_api.g_exc_error;
7960: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7961: RAISE fnd_api.g_exc_unexpected_error;
7962: END IF;
7955: IF x_return_status = fnd_api.g_ret_sts_success THEN
7956: -- Activate completed successfully.
7957: NULL;
7958: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7959: RAISE fnd_api.g_exc_error;
7960: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7961: RAISE fnd_api.g_exc_unexpected_error;
7962: END IF;
7963: END IF;
7956: -- Activate completed successfully.
7957: NULL;
7958: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7959: RAISE fnd_api.g_exc_error;
7960: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7961: RAISE fnd_api.g_exc_unexpected_error;
7962: END IF;
7963: END IF;
7964:
7957: NULL;
7958: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
7959: RAISE fnd_api.g_exc_error;
7960: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
7961: RAISE fnd_api.g_exc_unexpected_error;
7962: END IF;
7963: END IF;
7964:
7965: -- Before returning commit all changes to datbase.
7966: COMMIT;
7967:
7968: EXCEPTION
7969: WHEN OTHERS THEN
7970: x_return_status := fnd_api.g_ret_sts_unexp_error;
7971: debug(SQLCODE, 1);
7972:
7973: -- Get rid of the folloiwng, as it appends a junk message to the
7974: -- error message stack
8034:
8035: l_operating_unit_id MO_GLOB_ORG_ACCESS_TMP.ORGANIZATION_ID%TYPE; --
8036:
8037: BEGIN
8038: x_return_status := fnd_api.g_ret_sts_success;
8039:
8040: l_to_sub := p_to_sub;
8041: l_to_loc := p_to_loc;
8042: l_lpn_id := p_lpn_id;
8069: EXCEPTION
8070: WHEN NO_DATA_FOUND THEN
8071: fnd_message.set_name('INV', 'INV_RCV_PARAM');
8072: fnd_msg_pub.ADD;
8073: RAISE fnd_api.g_exc_error;
8074: END;
8075:
8076: l_progress := '2';
8077:
8102: , x_return_status => x_return_status
8103: , x_error_code => l_error_code
8104: );
8105:
8106: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8107: IF (l_debug = 1)THEN
8108: debug('Date validation failed','insert_rti',9);
8109: END IF;
8110: RAISE fnd_api.g_exc_error;
8106: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8107: IF (l_debug = 1)THEN
8108: debug('Date validation failed','insert_rti',9);
8109: END IF;
8110: RAISE fnd_api.g_exc_error;
8111: END IF;
8112:
8113: l_progress := '6';
8114:
8315:
8316: RETURN l_group_id;
8317: EXCEPTION
8318: WHEN OTHERS THEN
8319: x_return_status := fnd_api.g_ret_sts_error;
8320: IF (l_debug = 1) THEN
8321: debug('Error after progress = ' || l_progress,
8322: 'insert_rti',
8323: 9);
8371: BEGIN
8372:
8373: l_progress := 10;
8374:
8375: x_return_status := fnd_api.g_ret_sts_success;
8376:
8377: IF (l_debug = 1) THEN
8378: debug('Pre_Process_lpn : Patchset J code - Nested LPNs are supported');
8379: debug(' p_from_lpn_id: '||p_from_lpn_id);
8444: debug('TM call for pack unpack faluire');
8445: debug('Failure message ' || x_msg_data);
8446: END IF;
8447: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
8448: RAISE FND_API.G_EXC_ERROR;
8449: END IF;
8450:
8451: l_batch_seq := l_batch_seq + 1;
8452: END IF;
8464: ,p_content_lpn_id => p_from_lpn_id
8465: ,p_lpn_id => p_parent_lpn_id
8466: ,p_operation => 2 -- Unpack
8467: ,p_organization_id => p_organization_id
8468: ,p_commit => fnd_api.g_false
8469: ,x_return_status => x_return_status
8470: ,x_msg_count => x_msg_count
8471: ,x_msg_data => x_msg_data);
8472:
8533: debug('TM call for pack unpack faluire');
8534: debug('Failure message ' || x_msg_data);
8535: END IF;
8536: FND_MESSAGE.SET_NAME('WMS','WMS_LOG_EXCEPTION_FAIL');
8537: RAISE FND_API.G_EXC_ERROR;
8538: END IF; -- if l_ret<> 0
8539:
8540: l_batch_seq := l_batch_seq + 1;
8541:
8552: ,p_content_lpn_id => l_lpn_id -- child LPN ID
8553: ,p_lpn_id => p_from_lpn_id -- Parent LPN ID
8554: ,p_operation => 2 -- Unpack
8555: ,p_organization_id => p_organization_id
8556: ,p_commit => fnd_api.g_false
8557: ,x_return_status => x_return_status
8558: ,x_msg_count => x_msg_count
8559: ,x_msg_data => x_msg_data);
8560:
8584:
8585: EXCEPTION
8586:
8587: WHEN OTHERS THEN
8588: x_return_status := fnd_api.g_ret_sts_unexp_error;
8589: debug(SQLCODE, 1);
8590:
8591: IF lpn_cursor%isopen THEN
8592: CLOSE lpn_cursor;
8632: BEGIN
8633:
8634: l_progress := 10;
8635:
8636: x_return_status := fnd_api.g_ret_sts_success;
8637:
8638: IF (l_debug = 1) THEN
8639: debug('Post_Process_lpn : Patchset J code - Nested LPNs are supported');
8640: END IF;
8714:
8715: EXCEPTION
8716:
8717: WHEN OTHERS THEN
8718: x_return_status := fnd_api.g_ret_sts_unexp_error;
8719: debug(SQLCODE, 1);
8720:
8721: IF lpn_cursor%isopen THEN
8722: CLOSE lpn_cursor;
8847: DEBUG('There is no employee id tied to the user','transfer_contents',9);
8848: END IF;
8849: fnd_message.set_name('WMS', 'WMS_NO_EMP_FOR_USR');
8850: fnd_msg_pub.ADD;
8851: RAISE fnd_api.g_exc_error;
8852: END;
8853:
8854: l_progress := '7';
8855:
8875: 'transfer_contents',9);
8876: END IF;
8877: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
8878: fnd_msg_pub.ADD;
8879: RAISE fnd_api.g_exc_error;
8880: END;
8881:
8882: l_progress := '9';
8883:
8901: 'transfer_contents',9);
8902: END IF;
8903: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN');
8904: fnd_msg_pub.ADD;
8905: RAISE fnd_api.g_exc_error;
8906: END;
8907:
8908: -- Set variable if sub/loc of toLPN is different from that of from LPN
8909: IF (Nvl(p_into_lpn_id,0) <> 0
8934: 'transfer_contents', 9);
8935: END IF;
8936: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LPN_CONTEXT');
8937: fnd_msg_pub.ADD;
8938: RAISE fnd_api.g_exc_error;
8939: END IF;
8940:
8941: l_progress := '30';
8942:
8959: ,x_msg_data => x_msg_data
8960: ,x_crossdock => l_crossdock
8961: );
8962:
8963: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8964: IF (l_debug = 1) THEN
8965: DEBUG('Error in suggestions_pub_wrapper','transfer_contents',9);
8966: END IF;
8967: RAISE fnd_api.g_exc_error;
8963: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
8964: IF (l_debug = 1) THEN
8965: DEBUG('Error in suggestions_pub_wrapper','transfer_contents',9);
8966: END IF;
8967: RAISE fnd_api.g_exc_error;
8968: END IF;
8969:
8970: l_progress := '40';
8971:
9018: FOR i IN 2 .. l_msg_count LOOP
9019: fnd_msg_pub.delete_msg(i);
9020: END LOOP;
9021: END IF;
9022: RAISE fnd_api.g_exc_error;
9023: END IF;
9024:
9025: l_progress := '60';
9026:
9064: IF (l_debug = 1 ) THEN
9065: DEBUG('Unexpected Exception Raised in Bulk Select'
9066: ,'transfer_contents', 9);
9067: END IF;
9068: RAISE fnd_api.g_exc_error;
9069: END;
9070:
9071: IF (l_debug = 1) THEN
9072: debug('# of MMTT returned: '||l_txn_tmp_id_tb.COUNT,'transfer_contents',9);
9077: debug('No MMTT returned!','transfer_contents',9);
9078: END IF;
9079: FND_MESSAGE.SET_NAME('WMS','WMS_ALLOCATE_FAIL');
9080: FND_MSG_PUB.ADD;
9081: RAISE fnd_api.g_exc_error;
9082: END IF;
9083: ELSE
9084: -- For inventory and wip, just query based on move_order_line_id
9085: BEGIN
9104: IF (l_debug = 1 ) THEN
9105: DEBUG('Unexpected Exception Raised in Bulk Select'
9106: ,'transfer_contents', 9);
9107: END IF;
9108: RAISE fnd_api.g_exc_error;
9109: END;
9110: END IF; -- IF (l_from_context = 3)
9111:
9112: l_progress := '70';
9136: ,p_inventory_item_id => NULL
9137: ,p_lpn_id => NULL
9138: ,p_activity_type_id => 1 -- INBOUND
9139: ,p_organization_id => l_org_id);
9140: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9141: IF (l_debug = 1) THEN
9142: debug('Validate_operation failed','transfer_contents',9);
9143: END IF;
9144: RAISE fnd_api.g_exc_error;
9140: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9141: IF (l_debug = 1) THEN
9142: debug('Validate_operation failed','transfer_contents',9);
9143: END IF;
9144: RAISE fnd_api.g_exc_error;
9145: END IF;
9146:
9147: l_progress := '75';
9148:
9147: l_progress := '75';
9148:
9149: IF (l_load_flag <> 3) THEN
9150: debug('MMTT:'||l_txn_tmp_id_tb(i)||' not full loaded','transfer_contents',9);
9151: RAISE fnd_api.g_exc_error;
9152: END IF;
9153:
9154: l_progress := '77';
9155:
9172: ,x_error_code => l_error_code
9173: ,x_consolidation_method_id => l_consolidation_method_id
9174: ,x_drop_lpn_option => l_drop_lpn_option
9175: );
9176: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9177: IF (l_debug = 1) THEN
9178: DEBUG('xxx: Error in activate_operation_instance','transfer_contents',9);
9179: END IF;
9180: RAISE fnd_api.g_exc_error;
9176: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9177: IF (l_debug = 1) THEN
9178: DEBUG('xxx: Error in activate_operation_instance','transfer_contents',9);
9179: END IF;
9180: RAISE fnd_api.g_exc_error;
9181: END IF;
9182: END LOOP;
9183:
9184: l_progress := '80';
9251: ,x_msg_data => x_msg_data
9252: );
9253: END IF; -- IF (l_sub_loc_changed = 'Y') THEN
9254:
9255: IF (x_return_status <> fnd_api.g_ret_sts_success OR l_return_status = -1) THEN
9256: IF (l_debug = 1) THEN
9257: DEBUG('xxx: Error inserting_rti','transfer_contents',9);
9258: END IF;
9259: RAISE fnd_api.g_exc_error;
9255: IF (x_return_status <> fnd_api.g_ret_sts_success OR l_return_status = -1) THEN
9256: IF (l_debug = 1) THEN
9257: DEBUG('xxx: Error inserting_rti','transfer_contents',9);
9258: END IF;
9259: RAISE fnd_api.g_exc_error;
9260: END IF;
9261:
9262: l_progress := '120';
9263:
9301: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
9302: IF (l_debug = 1) THEN
9303: DEBUG('xxx: Error - Rcv TM Failed','transfer_contents',9);
9304: END IF;
9305: RAISE fnd_api.g_exc_error;
9306: END;
9307:
9308: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9309: IF (l_debug = 1) THEN
9304: END IF;
9305: RAISE fnd_api.g_exc_error;
9306: END;
9307:
9308: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9309: IF (l_debug = 1) THEN
9310: DEBUG('xxx: Error - Rcv TM Failed','transfer_contents',9);
9311: END IF;
9312: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
9309: IF (l_debug = 1) THEN
9310: DEBUG('xxx: Error - Rcv TM Failed','transfer_contents',9);
9311: END IF;
9312: inv_rcv_common_apis.g_po_startup_value.transaction_mode := l_old_txn_mode_code;
9313: RAISE fnd_api.g_exc_error;
9314: END IF;
9315:
9316: l_progress := '140';
9317:
9350: ,x_return_status => x_return_status
9351: ,x_msg_count => x_msg_count
9352: ,x_msg_data => x_msg_data
9353: );
9354: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9355: IF (l_debug = 1) THEN
9356: DEBUG('xxx: Error unpacking content_lpn = ' ||
9357: l_lpn_ids(i) || ' from lpn = ' ||
9358: p_from_lpn_id,'transfer_contents',9);
9356: DEBUG('xxx: Error unpacking content_lpn = ' ||
9357: l_lpn_ids(i) || ' from lpn = ' ||
9358: p_from_lpn_id,'transfer_contents',9);
9359: END IF;
9360: RAISE fnd_api.g_exc_error;
9361: END IF;
9362:
9363: wms_container_pvt.packunpack_container
9364: (p_api_version => 1.0
9369: ,x_return_status => x_return_status
9370: ,x_msg_count => x_msg_count
9371: ,x_msg_data => x_msg_data
9372: );
9373: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9374: IF (l_debug = 1) THEN
9375: DEBUG('xxx: Error packing content_lpn = ' ||
9376: l_lpn_ids(i) || ' into lpn = ' ||
9377: p_into_lpn_id,'transfer_contents',9);
9375: DEBUG('xxx: Error packing content_lpn = ' ||
9376: l_lpn_ids(i) || ' into lpn = ' ||
9377: p_into_lpn_id,'transfer_contents',9);
9378: END IF;
9379: RAISE fnd_api.g_exc_error;
9380: END IF;
9381: END LOOP; -- end nested lpn loop
9382:
9383: l_progress := '170';
9392: ,p_lpn_context => 3 --RCV
9393: ,p_subinventory => l_sub_code -- same as from LPN
9394: ,p_locator_id => l_loc_id
9395: );
9396: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9397: IF (l_debug = 1) THEN
9398: debug('Error modifying lpn',
9399: 'transfer_contents', 9);
9400: END IF;
9410: ,x_msg_data => x_msg_data
9411: ,x_msg_count => x_msg_count
9412: ,x_error_code => l_error_code
9413: );
9414: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9415: IF (l_debug = 1) THEN
9416: DEBUG('xxx: Error in complete_operation_instance on '
9417: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
9418: END IF;
9415: IF (l_debug = 1) THEN
9416: DEBUG('xxx: Error in complete_operation_instance on '
9417: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
9418: END IF;
9419: RAISE fnd_api.g_exc_error;
9420: END IF;
9421:
9422: END LOOP;
9423:
9461: ,x_return_status => x_return_status
9462: ,x_msg_count => x_msg_count
9463: ,x_msg_data => x_msg_data
9464: );
9465: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9466: IF (l_debug = 1) THEN
9467: DEBUG('xxx: Error unpacking item_id = ' ||
9468: l_wlpnc_rec.inventory_item_id || ' from lpn = ' ||
9469: p_from_lpn_id,'transfer_contents',9);
9467: DEBUG('xxx: Error unpacking item_id = ' ||
9468: l_wlpnc_rec.inventory_item_id || ' from lpn = ' ||
9469: p_from_lpn_id,'transfer_contents',9);
9470: END IF;
9471: RAISE fnd_api.g_exc_error;
9472: END IF;
9473:
9474: wms_container_pvt.packunpack_container
9475: (p_api_version => 1.0
9484: ,x_return_status => x_return_status
9485: ,x_msg_count => x_msg_count
9486: ,x_msg_data => x_msg_data
9487: );
9488: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9489: IF (l_debug = 1) THEN
9490: DEBUG('xxx: Error packing item_id = ' ||
9491: l_wlpnc_rec.inventory_item_id || ' from lpn = ' ||
9492: p_from_lpn_id,'transfer_contents',9);
9490: DEBUG('xxx: Error packing item_id = ' ||
9491: l_wlpnc_rec.inventory_item_id || ' from lpn = ' ||
9492: p_from_lpn_id,'transfer_contents',9);
9493: END IF;
9494: RAISE fnd_api.g_exc_error;
9495: END IF;
9496: ELSE -- If item is serial controlled
9497: -- Call packunpack on each serial number
9498: IF (l_serial_numbers.COUNT > 0) THEN
9512: IF (l_debug = 1) THEN
9513: debug('Error retrieving entries from MTL_SERIAL_NUMBERS',
9514: 'transfer_contents', 9);
9515: END IF;
9516: RAISE fnd_api.g_exc_error;
9517: END;
9518:
9519: FOR i IN 1 .. l_serial_numbers.COUNT LOOP
9520: IF (l_debug = 1) THEN
9535: ,x_return_status => x_return_status
9536: ,x_msg_count => x_msg_count
9537: ,x_msg_data => x_msg_data
9538: );
9539: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9540: IF (l_debug = 1) THEN
9541: DEBUG('xxx: Error unpacking serial_number = ' ||
9542: l_serial_numbers(i) || ' from lpn = ' ||
9543: p_from_lpn_id,'transfer_contents',9);
9541: DEBUG('xxx: Error unpacking serial_number = ' ||
9542: l_serial_numbers(i) || ' from lpn = ' ||
9543: p_from_lpn_id,'transfer_contents',9);
9544: END IF;
9545: RAISE fnd_api.g_exc_error;
9546: END IF;
9547: wms_container_pvt.packunpack_container
9548: (p_api_version => 1.0
9549: ,p_lpn_id => p_into_lpn_id
9558: ,x_return_status => x_return_status
9559: ,x_msg_count => x_msg_count
9560: ,x_msg_data => x_msg_data
9561: );
9562: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9563: IF (l_debug = 1) THEN
9564: DEBUG('xxx: Error packing serial_number = ' ||
9565: l_serial_numbers(i) || ' from lpn = ' ||
9566: p_from_lpn_id,'transfer_contents',9);
9564: DEBUG('xxx: Error packing serial_number = ' ||
9565: l_serial_numbers(i) || ' from lpn = ' ||
9566: p_from_lpn_id,'transfer_contents',9);
9567: END IF;
9568: RAISE fnd_api.g_exc_error;
9569: END IF;
9570: END LOOP; -- FOR i in 1 .. l_serial_numbers.COUNT LOOP
9571: END IF; -- IF Nvl(l_wlpnc_rec.serial_number_control_code,1) IN (1, 6) THEN
9572: END LOOP; --FOR l_wlpnc_rec IN wlpnc_cur LOOP
9598: ,x_return_status => x_return_status
9599: ,x_msg_count => x_msg_count
9600: ,x_msg_data => x_msg_data
9601: );
9602: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9603: IF (l_debug = 1) THEN
9604: DEBUG('xxx: Error unpacking lpn = ' ||
9605: l_lpn_ids(i) || ' from lpn = ' ||
9606: p_from_lpn_id,'transfer_contents',9);
9604: DEBUG('xxx: Error unpacking lpn = ' ||
9605: l_lpn_ids(i) || ' from lpn = ' ||
9606: p_from_lpn_id,'transfer_contents',9);
9607: END IF;
9608: RAISE fnd_api.g_exc_error;
9609: END IF;
9610: wms_container_pvt.packunpack_container
9611: (p_api_version => 1.0
9612: ,p_content_lpn_id => l_lpn_ids(i)
9616: ,x_return_status => x_return_status
9617: ,x_msg_count => x_msg_count
9618: ,x_msg_data => x_msg_data
9619: );
9620: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9621: IF (l_debug = 1) THEN
9622: DEBUG('xxx: Error packing lpn = ' ||
9623: l_lpn_ids(i) || ' into lpn = ' ||
9624: p_into_lpn_id,'transfer_contents',9);
9622: DEBUG('xxx: Error packing lpn = ' ||
9623: l_lpn_ids(i) || ' into lpn = ' ||
9624: p_into_lpn_id,'transfer_contents',9);
9625: END IF;
9626: RAISE fnd_api.g_exc_error;
9627: END IF;
9628: END LOOP;
9629:
9630: l_progress := '220';
9637: ,x_msg_data => x_msg_data
9638: ,p_lpn_id => p_into_lpn_id
9639: ,p_lpn_context => 2 --WIP
9640: );
9641: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9642: IF (l_debug = 1) THEN
9643: debug('Error modifying lpn context to wip',
9644: 'transfer_contents', 9);
9645: END IF;
9655: ,x_msg_data => x_msg_data
9656: ,x_msg_count => x_msg_count
9657: ,x_error_code => l_error_code
9658: );
9659: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
9660: IF (l_debug = 1) THEN
9661: DEBUG('xxx: Error in complete_operation_instance on '
9662: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
9663: END IF;
9660: IF (l_debug = 1) THEN
9661: DEBUG('xxx: Error in complete_operation_instance on '
9662: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
9663: END IF;
9664: RAISE fnd_api.g_exc_error;
9665: END IF;
9666:
9667: END LOOP;
9668:
9700: WHEN OTHERS THEN
9701: IF (l_debug =1 ) THEN
9702: DEBUG('xxx: Error updating MOL','transfer_contents',9);
9703: END IF;
9704: RAISE fnd_api.g_exc_error;
9705: END;
9706:
9707: l_progress := '230';
9708:
9753: IF (l_debug = 1) THEN
9754: debug('Error inserting MMTT ID: ' ||
9755: l_txn_tmp_id,'transfer_contents',9);
9756: END IF;
9757: RAISE fnd_api.g_exc_error;
9758: END IF;
9759:
9760: BEGIN
9761: UPDATE mtl_material_transactions_temp
9768: IF (l_debug = 1) THEN
9769: debug('Error updating MMTT with ID: ' ||
9770: l_txn_tmp_id,9);
9771: END IF;
9772: RAISE fnd_api.g_exc_error;
9773: END;
9774:
9775: l_batch_seq := l_batch_seq + 1;
9776: -- update local variables for sub and loc
9824: IF (l_return_status = -1) THEN
9825: IF (l_debug = 1) THEN
9826: debug('Error inserting MMTT', 'transfer_contents', 9);
9827: END IF;
9828: RAISE fnd_api.g_exc_error;
9829: END IF;
9830:
9831: BEGIN
9832: UPDATE mtl_material_transactions_temp
9839: IF (l_debug = 1) THEN
9840: debug('Error updating MMTT with ID: ' ||
9841: l_txn_tmp_id,9);
9842: END IF;
9843: RAISE fnd_api.g_exc_error;
9844: END;
9845:
9846: l_batch_seq := l_batch_seq + 1;
9847: END LOOP;
9892: IF (l_return_status = -1) THEN
9893: IF (l_debug = 1) THEN
9894: debug('Error inserting MMTT', 'transfer_contents', 9);
9895: END IF;
9896: RAISE fnd_api.g_exc_error;
9897: END IF;
9898:
9899: BEGIN
9900: UPDATE mtl_material_transactions_temp
9907: IF (l_debug = 1) THEN
9908: debug('Error updating MMTT with ID: ' ||
9909: l_txn_tmp_id,9);
9910: END IF;
9911: RAISE fnd_api.g_exc_error;
9912: END;
9913:
9914: l_batch_seq := l_batch_seq + 1;
9915:
9931: IF (l_return_status = -1) THEN
9932: IF (l_debug = 1) THEN
9933: debug('Error inserting MTLT', 'transfer_contents', 9);
9934: END IF;
9935: RAISE fnd_api.g_exc_error;
9936: END IF;
9937: END IF;
9938:
9939: IF (Nvl(l_wlpnc_rec.serial_number_control_code,1)
9955: IF (l_debug = 1) THEN
9956: debug('Error retrieving entries from MTL_SERIAL_NUMBERS',
9957: 'transfer_contents', 9);
9958: END IF;
9959: RAISE fnd_api.g_exc_error;
9960: END;
9961:
9962: IF (l_wlpnc_rec.lot_number IS NOT NULL) THEN
9963: l_txn_tmp_id := l_ser_trx_id;
9973: IF (l_return_status = -1) THEN
9974: IF (l_debug = 1) THEN
9975: debug('Error inserting MSNT', 'transfer_contents', 9);
9976: END IF;
9977: RAISE fnd_api.g_exc_error;
9978: END IF;
9979: END LOOP;
9980: END IF;
9981: END LOOP;
9987:
9988: l_return_status :=inv_lpn_trx_pub.process_lpn_trx
9989: (p_trx_hdr_id => l_hdr_id
9990: ,p_proc_mode => 1
9991: ,p_commit => fnd_api.g_false
9992: ,x_proc_msg => x_msg_data);
9993:
9994: -- Call complete operation instance
9995: FOR i IN 1 .. l_txn_tmp_id_tb.COUNT LOOP
10001: ,x_msg_data => x_msg_data
10002: ,x_msg_count => x_msg_count
10003: ,x_error_code => l_error_code
10004: );
10005: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
10006: IF (l_debug = 1) THEN
10007: DEBUG('xxx: Error in complete_operation_instance on '
10008: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
10009: END IF;
10006: IF (l_debug = 1) THEN
10007: DEBUG('xxx: Error in complete_operation_instance on '
10008: || ' MMTT = ' || l_txn_tmp_id_tb(i),'transfer_contents',9);
10009: END IF;
10010: RAISE fnd_api.g_exc_error;
10011: END IF;
10012:
10013: END LOOP;
10014:
10050: WHEN OTHERS THEN
10051: IF (l_debug = 1) THEN
10052: DEBUG('xxx: Error updating MOLs','transfer_contents',9);
10053: END IF;
10054: RAISE fnd_api.g_exc_error;
10055: END;
10056:
10057: l_progress := '300';
10058:
10068: EXCEPTION
10069: WHEN OTHERS THEN
10070: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
10071: fnd_msg_pub.add;
10072: x_return_status := fnd_api.g_ret_sts_unexp_error;
10073: IF (l_debug = 1) THEN
10074: debug('Exception occured after l_progress ='|| l_progress, 'transfer_contents', 9);
10075: END IF;
10076: IF (wlpnc_cur%isopen) THEN
10489: DEBUG(' p_lpn_initially_loaded ==> '||p_lpn_initially_loaded,l_proc_name);
10490: END IF;
10491:
10492: -- Initialize the return status
10493: x_return_status := FND_API.G_RET_STS_SUCCESS;
10494:
10495: -- Read the input parameters
10496: l_group_id := p_group_id;
10497: l_product_transaction_id := p_product_transaction_id;
10558: IF (l_debug = 1) THEN
10559: debug('complete_putaway_wrapper: Return status of API: ' || x_return_status);
10560: END IF;
10561:
10562: IF x_return_status = fnd_api.g_ret_sts_success THEN
10563: -- Activate completed successfully.
10564: NULL;
10565: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10566: RAISE fnd_api.g_exc_error;
10561:
10562: IF x_return_status = fnd_api.g_ret_sts_success THEN
10563: -- Activate completed successfully.
10564: NULL;
10565: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10566: RAISE fnd_api.g_exc_error;
10567: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10568: RAISE fnd_api.g_exc_unexpected_error;
10569: END IF;
10562: IF x_return_status = fnd_api.g_ret_sts_success THEN
10563: -- Activate completed successfully.
10564: NULL;
10565: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10566: RAISE fnd_api.g_exc_error;
10567: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10568: RAISE fnd_api.g_exc_unexpected_error;
10569: END IF;
10570: l_progress := '5.5';
10563: -- Activate completed successfully.
10564: NULL;
10565: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10566: RAISE fnd_api.g_exc_error;
10567: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10568: RAISE fnd_api.g_exc_unexpected_error;
10569: END IF;
10570: l_progress := '5.5';
10571: EXCEPTION
10564: NULL;
10565: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10566: RAISE fnd_api.g_exc_error;
10567: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10568: RAISE fnd_api.g_exc_unexpected_error;
10569: END IF;
10570: l_progress := '5.5';
10571: EXCEPTION
10572: WHEN OTHERS THEN
10569: END IF;
10570: l_progress := '5.5';
10571: EXCEPTION
10572: WHEN OTHERS THEN
10573: RAISE fnd_api.g_exc_unexpected_error;
10574: END; -- Simulate Load Operation
10575:
10576: BEGIN -- Activate operation for Drop
10577: IF (l_debug = 1) THEN
10595: IF (l_debug = 1) THEN
10596: debug('complete_putaway_wrapper: Return status of API: ' || x_return_status);
10597: END IF;
10598:
10599: IF x_return_status = fnd_api.g_ret_sts_success THEN
10600: -- Activate op plan completed successfully.
10601: NULL;
10602: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10603: RAISE fnd_api.g_exc_error;
10598:
10599: IF x_return_status = fnd_api.g_ret_sts_success THEN
10600: -- Activate op plan completed successfully.
10601: NULL;
10602: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10603: RAISE fnd_api.g_exc_error;
10604: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10605: RAISE fnd_api.g_exc_unexpected_error;
10606: END IF;
10599: IF x_return_status = fnd_api.g_ret_sts_success THEN
10600: -- Activate op plan completed successfully.
10601: NULL;
10602: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10603: RAISE fnd_api.g_exc_error;
10604: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10605: RAISE fnd_api.g_exc_unexpected_error;
10606: END IF;
10607: l_progress := '5.8';
10600: -- Activate op plan completed successfully.
10601: NULL;
10602: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10603: RAISE fnd_api.g_exc_error;
10604: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10605: RAISE fnd_api.g_exc_unexpected_error;
10606: END IF;
10607: l_progress := '5.8';
10608: EXCEPTION
10601: NULL;
10602: ELSIF x_return_status = fnd_api.g_ret_sts_error THEN
10603: RAISE fnd_api.g_exc_error;
10604: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
10605: RAISE fnd_api.g_exc_unexpected_error;
10606: END IF;
10607: l_progress := '5.8';
10608: EXCEPTION
10609: WHEN OTHERS THEN
10606: END IF;
10607: l_progress := '5.8';
10608: EXCEPTION
10609: WHEN OTHERS THEN
10610: RAISE fnd_api.g_exc_unexpected_error;
10611: END; -- Activate operation for Drop
10612: END IF; -- Manual Drop activate/complete operation instance
10613:
10614: --For the item drop scenario, first check if there was a quantity discrepancy
10685: DEBUG('Error fetching MMTTs for the current group. Cannot drop', l_proc_name, 1);
10686: END IF;
10687: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
10688: fnd_msg_pub.add;
10689: RAISE FND_API.G_EXC_ERROR;
10690: END;
10691: ELSE
10692: --For other drop types, the user would not be confirming quantity and uom
10693: --We would be transacting only the suggested quantities. Only sub and loc
10897: IF l_msni_qty_tbl(i) > 0 THEN
10898: IF(l_debug = 1) THEN
10899: DEBUG('complete_putaway_wrapper: Unable to match MOL for all serial IN the group! How?',l_proc_name);
10900: END IF;
10901: RAISE fnd_api.g_exc_error;
10902: END IF;
10903: END LOOP;
10904:
10905: --MO Splits for a non-serialized item
11045: IF (l_rem_user_qty > 0) THEN
11046: IF (l_debug = 1) THEN
11047: DEBUG('complete_putaway_wrapper: l_rem_user_qty > 0. Unable to find MOL for qty. There must be some data corruption'||l_proc_name);
11048: END IF;
11049: RAISE fnd_api.g_exc_error;
11050: END IF;
11051:
11052: --Close the mol cursor
11053: IF mol_csr%ISOPEN THEN
11087:
11088: inv_rcv_integration_apis.split_mo(
11089: p_orig_mol_id => l_mos_to_split_tbl(i).line_id
11090: , p_mo_splt_tb => l_mo_splt_tb
11091: , p_updt_putaway_temp_tbl => FND_API.G_TRUE
11092: , p_txn_header_id => p_txn_header_id
11093: , x_return_status => x_return_status
11094: , x_msg_count => x_msg_count
11095: , x_msg_data => x_msg_data);
11097: IF (l_debug = 1) THEN
11098: DEBUG('complete_putaway_wrapper: split_mo API return status: ' || x_return_status, 4);
11099: END IF;
11100:
11101: IF x_return_status = fnd_api.g_ret_sts_error THEN
11102: RAISE fnd_api.g_exc_error;
11103: END IF;
11104:
11105: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11098: DEBUG('complete_putaway_wrapper: split_mo API return status: ' || x_return_status, 4);
11099: END IF;
11100:
11101: IF x_return_status = fnd_api.g_ret_sts_error THEN
11102: RAISE fnd_api.g_exc_error;
11103: END IF;
11104:
11105: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11106: RAISE fnd_api.g_exc_unexpected_error;
11101: IF x_return_status = fnd_api.g_ret_sts_error THEN
11102: RAISE fnd_api.g_exc_error;
11103: END IF;
11104:
11105: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11106: RAISE fnd_api.g_exc_unexpected_error;
11107: END IF;
11108:
11109: IF (l_debug = 1) THEN
11102: RAISE fnd_api.g_exc_error;
11103: END IF;
11104:
11105: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11106: RAISE fnd_api.g_exc_unexpected_error;
11107: END IF;
11108:
11109: IF (l_debug = 1) THEN
11110: DEBUG('complete_putaway_wrapper: new MOL ID: ' || l_mo_splt_tb(1).line_id, 4);
11226: IF (l_debug = 1) THEN
11227: DEBUG('complete_putaway_wrapper: Progress: ' || l_progress || '. pre_process_lpn returns: ' || x_return_status, 4);
11228: END IF;
11229:
11230: IF x_return_status = fnd_api.g_ret_sts_error THEN
11231: RAISE fnd_api.g_exc_error;
11232: END IF;
11233:
11234: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11227: DEBUG('complete_putaway_wrapper: Progress: ' || l_progress || '. pre_process_lpn returns: ' || x_return_status, 4);
11228: END IF;
11229:
11230: IF x_return_status = fnd_api.g_ret_sts_error THEN
11231: RAISE fnd_api.g_exc_error;
11232: END IF;
11233:
11234: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11235: RAISE fnd_api.g_exc_unexpected_error;
11230: IF x_return_status = fnd_api.g_ret_sts_error THEN
11231: RAISE fnd_api.g_exc_error;
11232: END IF;
11233:
11234: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11235: RAISE fnd_api.g_exc_unexpected_error;
11236: END IF;
11237: -- Nested LPN changes end;
11238:
11231: RAISE fnd_api.g_exc_error;
11232: END IF;
11233:
11234: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
11235: RAISE fnd_api.g_exc_unexpected_error;
11236: END IF;
11237: -- Nested LPN changes end;
11238:
11239: --We should be calling complete_putaway for the eligible rows
11461:
11462: --Call the insert_mtli API to insert the lot_number in MTLI
11463: inv_rcv_integration_apis.insert_mtli(
11464: p_api_version => 1.0
11465: , p_init_msg_lst => FND_API.G_FALSE
11466: , x_return_status => x_return_status
11467: , x_msg_count => x_msg_count
11468: , x_msg_data => x_msg_data
11469: , p_transaction_interface_id => l_dummy_temp_id --l_mmtt_temp_id
11482: , p_secondary_quantity => l_mmtt_sec_qty); --OPM CONVERGENCE
11483:
11484: l_secondary_quantity := l_mmtt_sec_qty ; --OPM Convergence -- 9037915
11485:
11486: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
11487: IF (l_debug = 1) THEN
11488: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
11489: ' insert_mtli returns g_exc_error', l_proc_name, 1);
11490: END IF;
11487: IF (l_debug = 1) THEN
11488: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
11489: ' insert_mtli returns g_exc_error', l_proc_name, 1);
11490: END IF;
11491: RAISE FND_API.G_EXC_ERROR;
11492: END IF;
11493:
11494: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11495: IF (l_debug = 1) THEN
11490: END IF;
11491: RAISE FND_API.G_EXC_ERROR;
11492: END IF;
11493:
11494: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11495: IF (l_debug = 1) THEN
11496: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
11497: ' insert_mtli returns g_unexp_error', l_proc_name, 1);
11498: END IF;
11495: IF (l_debug = 1) THEN
11496: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
11497: ' insert_mtli returns g_unexp_error', l_proc_name, 1);
11498: END IF;
11499: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11500: END IF;
11501:
11502: IF (l_debug = 1) THEN
11503: DEBUG('complete_putaway_wrapper: Inserted MTLI intf_txn_id: ' || l_transaction_interface_id ||
11549: IF NOT l_result THEN
11550: IF (l_debug = 1) THEN
11551: debug('Failure while Inserting MSNI records - lot and serial controlled item',l_proc_name);
11552: END IF;
11553: RAISE fnd_api.g_exc_unexpected_error;
11554: END IF; -- END IF check l_result
11555:
11556: l_cur_task_ser_count := l_cur_task_ser_count + 1;
11557: l_ser_mark_tbl(j) := 'Y';
11632: , x_return_status => x_return_status
11633: , x_msg_count => x_msg_count
11634: , x_msg_data => x_msg_data);
11635:
11636: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
11637: IF (l_debug = 1) THEN
11638: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
11639: ' process_lot_serial API returns g_exc_error', l_proc_name, 1);
11640: END IF;
11637: IF (l_debug = 1) THEN
11638: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
11639: ' process_lot_serial API returns g_exc_error', l_proc_name, 1);
11640: END IF;
11641: RAISE FND_API.G_EXC_ERROR;
11642: END IF;
11643:
11644: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11645: IF (l_debug = 1) THEN
11640: END IF;
11641: RAISE FND_API.G_EXC_ERROR;
11642: END IF;
11643:
11644: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11645: IF (l_debug = 1) THEN
11646: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
11647: ' process_lot_serial API returns g_unexp_error', l_proc_name, 1);
11648: END IF;
11645: IF (l_debug = 1) THEN
11646: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress ||
11647: ' process_lot_serial API returns g_unexp_error', l_proc_name, 1);
11648: END IF;
11649: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11650: END IF;
11651:
11652: --Mark the serial as processed so that it does not get picked up again
11653: l_ser_mark_tbl(k) := 'Y';
11869: , p_secondary_uom => l_secondary_uom --OPM Convergence
11870: , p_primary_uom => l_primary_uom_code_tbl(i)
11871: );
11872:
11873: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
11874: IF (l_debug = 1) THEN
11875: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress || ' complete_putaway API returns g_exc_error', l_proc_name, 1);
11876: END IF;
11877: RAISE FND_API.G_EXC_ERROR;
11873: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
11874: IF (l_debug = 1) THEN
11875: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress || ' complete_putaway API returns g_exc_error', l_proc_name, 1);
11876: END IF;
11877: RAISE FND_API.G_EXC_ERROR;
11878: END IF;
11879:
11880: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11881: IF (l_debug = 1) THEN
11876: END IF;
11877: RAISE FND_API.G_EXC_ERROR;
11878: END IF;
11879:
11880: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11881: IF (l_debug = 1) THEN
11882: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress || ' complete_putaway API returns g_unexp_error', l_proc_name, 1);
11883: END IF;
11884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11880: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11881: IF (l_debug = 1) THEN
11882: DEBUG('complete_putaway_wrapper: Error at progress: ' || l_progress || ' complete_putaway API returns g_unexp_error', l_proc_name, 1);
11883: END IF;
11884: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11885: END IF;
11886:
11887: IF (l_debug = 1) THEN
11888: DEBUG('complete_putaway_wrapper: successful execution of complete_putaway for temp_id : ' || l_mmtt_temp_id, l_proc_name);
11968: DEBUG('status returned by the receiving manager ' || x_return_status, 4);
11969: DEBUG('complete_putaway_wrapper: Rxing TM Txn Message: ' || l_msg_data, 4);
11970: END IF;
11971:
11972: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
11973: IF (l_debug = 1) THEN
11974: DEBUG('complete_putaway_wrapper: Encountered g_exc_error while calling receiving manager;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
11975: END IF;
11976: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11974: DEBUG('complete_putaway_wrapper: Encountered g_exc_error while calling receiving manager;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
11975: END IF;
11976: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11977: fnd_msg_pub.add;
11978: RAISE FND_API.G_EXC_ERROR;
11979: END IF;
11980:
11981: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11982: IF (l_debug = 1) THEN
11977: fnd_msg_pub.add;
11978: RAISE FND_API.G_EXC_ERROR;
11979: END IF;
11980:
11981: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
11982: IF (l_debug = 1) THEN
11983: DEBUG('complete_putaway_wrapper: Encountered g_exc_unexp_error while calling receiving manager;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
11984: END IF;
11985: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11983: DEBUG('complete_putaway_wrapper: Encountered g_exc_unexp_error while calling receiving manager;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
11984: END IF;
11985: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
11986: fnd_msg_pub.add;
11987: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
11988: END IF;
11989:
11990: /*************** For bug 7428404 *****************/
11991: --Done with the TM calls. Go delete the processed records from the global temp rable
12011: DEBUG('status returned by Update_Tasks_In_Group ' || x_return_status, 4);
12012: DEBUG('complete_putaway_wrapper: Txn Message: ' || l_msg_data, 4);
12013: END IF;
12014:
12015: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
12016: IF (l_debug = 1) THEN
12017: DEBUG('complete_putaway_wrapper: Encountered g_exc_error while calling Update_Tasks_In_Group;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
12018: END IF;
12019: RAISE FND_API.G_EXC_ERROR;
12015: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
12016: IF (l_debug = 1) THEN
12017: DEBUG('complete_putaway_wrapper: Encountered g_exc_error while calling Update_Tasks_In_Group;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
12018: END IF;
12019: RAISE FND_API.G_EXC_ERROR;
12020: END IF;
12021:
12022: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12023: IF (l_debug = 1) THEN
12018: END IF;
12019: RAISE FND_API.G_EXC_ERROR;
12020: END IF;
12021:
12022: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12023: IF (l_debug = 1) THEN
12024: DEBUG('complete_putaway_wrapper: Encountered g_exc_unexp_error while calling Update_Tasks_In_Group;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
12025: END IF;
12026: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12022: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
12023: IF (l_debug = 1) THEN
12024: DEBUG('complete_putaway_wrapper: Encountered g_exc_unexp_error while calling Update_Tasks_In_Group;'|| to_char(sysdate, 'YYYY-MM-DD HH:DD:SS'), 4);
12025: END IF;
12026: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
12027: END IF;
12028:
12029:
12030: ELSE
12080: IF (l_debug = 1) THEN
12081: DEBUG('complete_putaway_wrapper: post_process_lpn returns: ' || x_return_status, 4);
12082: END IF;
12083:
12084: IF x_return_status = fnd_api.g_ret_sts_error THEN
12085: RAISE fnd_api.g_exc_error;
12086: END IF;
12087:
12088: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12081: DEBUG('complete_putaway_wrapper: post_process_lpn returns: ' || x_return_status, 4);
12082: END IF;
12083:
12084: IF x_return_status = fnd_api.g_ret_sts_error THEN
12085: RAISE fnd_api.g_exc_error;
12086: END IF;
12087:
12088: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12089: RAISE fnd_api.g_exc_unexpected_error;
12084: IF x_return_status = fnd_api.g_ret_sts_error THEN
12085: RAISE fnd_api.g_exc_error;
12086: END IF;
12087:
12088: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12089: RAISE fnd_api.g_exc_unexpected_error;
12090: END IF;
12091: END IF;
12092: -- Nested LPN changes end
12085: RAISE fnd_api.g_exc_error;
12086: END IF;
12087:
12088: IF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
12089: RAISE fnd_api.g_exc_unexpected_error;
12090: END IF;
12091: END IF;
12092: -- Nested LPN changes end
12093:
12098:
12099: IF p_lpn_context = 2 THEN
12100: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx(
12101: p_trx_hdr_id => l_new_txn_header_id
12102: , p_commit => fnd_api.g_false
12103: , x_proc_msg => x_msg_data
12104: , p_business_flow_code => l_business_flow_code
12105: , p_proc_mode => 1);
12106: ELSE
12105: , p_proc_mode => 1);
12106: ELSE
12107: l_txn_ret := inv_lpn_trx_pub.process_lpn_trx(
12108: p_trx_hdr_id => l_new_txn_header_id
12109: , p_commit => fnd_api.g_false
12110: , x_proc_msg => x_msg_data
12111: , p_business_flow_code => l_business_flow_code);
12112: END IF;
12113:
12119:
12120: IF (l_txn_ret <> 0) THEN
12121: fnd_message.set_name('WMS', 'WMS_TD_TXNMGR_ERROR');
12122: fnd_msg_pub.ADD;
12123: RAISE fnd_api.g_exc_unexpected_error;
12124: END IF;
12125:
12126:
12127: --Done with the TM calls. Go delete the records from the global temp rable
12148: ,x_msg_data => x_msg_data );
12149:
12150: l_progress := '260';
12151:
12152: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
12153: IF (l_debug = 1) THEN
12154: DEBUG(' Error in locking LPNs ' || x_msg_data ,l_proc_name,1);
12155: END IF;
12156: RAISE fnd_api.g_exc_error;
12152: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
12153: IF (l_debug = 1) THEN
12154: DEBUG(' Error in locking LPNs ' || x_msg_data ,l_proc_name,1);
12155: END IF;
12156: RAISE fnd_api.g_exc_error;
12157: END IF;
12158:
12159: IF (l_debug = 1) THEN
12160: 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);
12161: END IF;
12162: END IF;
12163:
12164: EXCEPTION
12165: WHEN fnd_api.g_exc_error THEN
12166: x_return_status := fnd_api.g_ret_sts_error;
12167: --Close the cursors
12168: IF mol_csr%ISOPEN THEN
12169: CLOSE mol_csr;
12162: END IF;
12163:
12164: EXCEPTION
12165: WHEN fnd_api.g_exc_error THEN
12166: x_return_status := fnd_api.g_ret_sts_error;
12167: --Close the cursors
12168: IF mol_csr%ISOPEN THEN
12169: CLOSE mol_csr;
12170: END IF;
12191:
12192: --Get message count and data
12193: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12194:
12195: WHEN fnd_api.g_exc_unexpected_error THEN
12196: x_return_status := fnd_api.g_ret_sts_unexp_error;
12197:
12198: --Close the cursors
12199: IF mol_csr%ISOPEN THEN
12192: --Get message count and data
12193: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12194:
12195: WHEN fnd_api.g_exc_unexpected_error THEN
12196: x_return_status := fnd_api.g_ret_sts_unexp_error;
12197:
12198: --Close the cursors
12199: IF mol_csr%ISOPEN THEN
12200: CLOSE mol_csr;
12223: --Get message count and data
12224: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12225:
12226: WHEN OTHERS THEN
12227: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
12228:
12229: --Close the cursors
12230: IF mol_csr%ISOPEN THEN
12231: CLOSE mol_csr;
12337: END IF;
12338:
12339: -- Set the savepoint
12340: SAVEPOINT validate_lpn_sp;
12341: x_return_status := fnd_api.g_ret_sts_success;
12342:
12343: l_progress := '10';
12344:
12345: -- Get the required LPN values
12379: IF (l_count <> 0 AND l_into_lpn_context = 5) THEN
12380: IF (l_debug = 1) THEN
12381: debug('Into LPN context is 5, so bypass all validation','validate_into_lpn',9);
12382: END IF;
12383: x_return_status := fnd_api.g_ret_sts_success;
12384: x_validation_passed := 'Y';
12385: x_new_lpn_created := 'N';
12386: --RETURN; --BUG#11769042
12387: END IF;
12394:
12395: -- Create the LPN
12396: wms_container_pub.create_lpn
12397: ( p_api_version => 1.0,
12398: p_init_msg_list => fnd_api.g_false,
12399: p_commit => fnd_api.g_false,
12400: x_return_status => x_return_status,
12401: x_msg_count => x_msg_count,
12402: x_msg_data => x_msg_data,
12395: -- Create the LPN
12396: wms_container_pub.create_lpn
12397: ( p_api_version => 1.0,
12398: p_init_msg_list => fnd_api.g_false,
12399: p_commit => fnd_api.g_false,
12400: x_return_status => x_return_status,
12401: x_msg_count => x_msg_count,
12402: x_msg_data => x_msg_data,
12403: p_lpn => p_into_lpn,
12417: debug('Finished calling create LPN API: ' || l_into_lpn_id,'validate_into_lpn',9);
12418: END IF;
12419:
12420: -- Check the return status from the API call
12421: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
12422: IF (l_debug = 1) THEN
12423: debug('Success returned from wms_container_pub.create_lpn API','validate_into_lpn',9);
12424: END IF;
12425: ELSE
12427: debug('Failure returned from wms_container_pub.create_lpn API','validate_into_lpn',9);
12428: END IF;
12429: FND_MESSAGE.SET_NAME('WMS', 'WMS_TD_CREATE_LPN_ERROR');
12430: FND_MSG_PUB.ADD;
12431: RAISE fnd_api.g_exc_error;
12432: END IF;
12433: l_progress := '60';
12434:
12435: -- Set the validation passed output parameter
12441: --BUG 3354934
12442: IF (l_debug = 1) THEN
12443: debug('LPN created. Can bypass rest of validation','validate_into_lpn',9);
12444: END IF;
12445: x_return_status := fnd_api.g_ret_sts_success;
12446: RETURN;
12447:
12448: ELSE
12449: -- Existing LPN
12572: debug('Into LPN validation failed!','validate_into_lpn',9);
12573: END IF;
12574: FND_MESSAGE.SET_NAME('WMS','WMS_NO_LPN_LOAD_ALLOWED');
12575: FND_MSG_PUB.ADD;
12576: RAISE fnd_api.g_exc_error;
12577: ELSE
12578: x_validation_passed := 'Y';
12579: IF (l_debug = 1) THEN
12580: debug('Into LPN validation passed!','validate_into_lpn',9);
12612: IF (x_return_status = 'U') THEN
12613: IF (l_debug = 1) THEN
12614: DEBUG(' Error in wms_mdc_pvt.validate_to_lpn','validate_into_lpn',9);
12615: END IF;
12616: RAISE fnd_api.g_exc_error;
12617: ELSE
12618: IF (l_allowed = 'Y') THEN
12619: IF (l_debug = 1) THEN
12620: debug(' validation passed!','validate_into_lpn',9);
12672: WMS_COMMINGLE_EXISTS to WMS_LOOSE_TO_LPN.*/
12673:
12674: --Commented for BUG#11769042
12675: /* IF l_allowed = 'N' THEN
12676: x_return_status := fnd_api.g_ret_sts_error;
12677: x_validation_passed := 'N';
12678: fnd_message.set_name('WMS', 'WMS_LOOSE_TO_LPN');
12679: fnd_msg_pub.ADD;
12680: RETURN;
12740: IF (l_debug = 1) THEN
12741: debug('In Exp l_bo_d_to_id : '||SQLERRM,'validate_into_lpn',9);
12742: END IF;
12743: l_allowed := 'Y';
12744: x_return_status := fnd_api.g_ret_sts_success;
12745: x_validation_passed := 'Y';
12746: l_bo_d_to_id := NULL;
12747: END;
12748:
12764:
12765: IF v_grouping_rows(1) <> v_grouping_rows(2) THEN
12766: IF (l_debug = 1) THEN
12767: debug('Grouping does not match','validate_into_lpn',9);
12768: debug('Raise fnd_api.g_ret_sts_error','validate_into_lpn',9);
12769: END IF;
12770: l_allowed := 'N';
12771: x_return_status := fnd_api.g_ret_sts_error;
12772: x_validation_passed := 'N';
12767: debug('Grouping does not match','validate_into_lpn',9);
12768: debug('Raise fnd_api.g_ret_sts_error','validate_into_lpn',9);
12769: END IF;
12770: l_allowed := 'N';
12771: x_return_status := fnd_api.g_ret_sts_error;
12772: x_validation_passed := 'N';
12773: fnd_message.set_name('WMS', 'WMS_LOOSE_TO_LPN');
12774: fnd_msg_pub.ADD;
12775: RETURN;
12781: debug('l_allowed := Y','validate_into_lpn',9);
12782: END IF;
12783:
12784: l_allowed := 'Y';
12785: x_return_status := fnd_api.g_ret_sts_success;
12786: x_validation_passed := 'Y';
12787: END IF;
12788: ELSE
12789: l_allowed := 'Y';
12786: x_validation_passed := 'Y';
12787: END IF;
12788: ELSE
12789: l_allowed := 'Y';
12790: x_return_status := fnd_api.g_ret_sts_success;
12791: x_validation_passed := 'Y';
12792: END IF;
12793:
12794: EXCEPTION
12797: debug('In Exp: '||SQLERRM,'validate_into_lpn',9);
12798: END IF;
12799:
12800: l_allowed := 'Y';
12801: x_return_status := fnd_api.g_ret_sts_success;
12802: x_validation_passed := 'Y';
12803: END;
12804: /*Validating for Correct BO dd ID from Gtmp*/
12805: --BUG#11769042
12919: x_validation_passed := 'N';
12920: IF (l_debug = 1) THEN
12921: debug('Into LPN validation failed! for drop! ','validate_into_lpn',9);
12922: END IF;
12923: RAISE fnd_api.g_exc_error;
12924: ELSE
12925: x_validation_passed := 'Y';
12926: IF (l_debug = 1) THEN
12927: debug('Into LPN validation passed for drop!','validate_into_lpn',9);
13208: debug('validate project/task ID failed','validate_into_lpn',9);
13209: END IF;
13210:
13211: x_validation_passed := 'N';
13212: RAISE fnd_api.g_exc_error;
13213: END IF; --NOT (Nvl(p_project_id, 9999) = Nvl(l_into_lpn_project_id, 9999)
13214: -- AND Nvl(p_task_id, 9999) = Nvl(l_into_lpn_task_id, 9999))
13215: END IF; -- IF (x_new_lpn_created = 'N')
13216:
13214: -- AND Nvl(p_task_id, 9999) = Nvl(l_into_lpn_task_id, 9999))
13215: END IF; -- IF (x_new_lpn_created = 'N')
13216:
13217: -- Set the return status to success
13218: x_return_status := fnd_api.g_ret_sts_success;
13219: l_progress := '80';
13220:
13221: IF (l_debug = 1) THEN
13222: debug('***End of validate_into_lpn***','validate_into_lpn',9);
13222: debug('***End of validate_into_lpn***','validate_into_lpn',9);
13223: END IF;
13224:
13225: EXCEPTION
13226: WHEN FND_API.G_EXC_ERROR THEN
13227: ROLLBACK TO validate_lpn_sp;
13228: x_return_status := fnd_api.g_ret_sts_error;
13229: x_validation_passed := 'N';
13230: x_new_lpn_created := 'N';
13224:
13225: EXCEPTION
13226: WHEN FND_API.G_EXC_ERROR THEN
13227: ROLLBACK TO validate_lpn_sp;
13228: x_return_status := fnd_api.g_ret_sts_error;
13229: x_validation_passed := 'N';
13230: x_new_lpn_created := 'N';
13231: fnd_msg_pub.count_and_get(p_count => x_msg_count,
13232: p_data => x_msg_data);
13234: debug('Exiting validate_into_lpn - Execution error: ' ||
13235: l_progress ||' '|| TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS'),'validate_into_lpn',9);
13236: END IF;
13237:
13238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13239: ROLLBACK TO validate_lpn_sp;
13240: x_return_status := fnd_api.g_ret_sts_unexp_error;
13241: x_validation_passed := 'N';
13242: x_new_lpn_created := 'N';
13236: END IF;
13237:
13238: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13239: ROLLBACK TO validate_lpn_sp;
13240: x_return_status := fnd_api.g_ret_sts_unexp_error;
13241: x_validation_passed := 'N';
13242: x_new_lpn_created := 'N';
13243: fnd_msg_pub.count_and_get(p_count => x_msg_count,
13244: p_data => x_msg_data);
13248: END IF;
13249:
13250: WHEN OTHERS THEN
13251: ROLLBACK TO validate_lpn_sp;
13252: x_return_status := fnd_api.g_ret_sts_unexp_error;
13253: x_validation_passed := 'N';
13254: x_new_lpn_created := 'N';
13255: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
13256: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
13510: DEBUG(' Unload LPN is => '||p_lpn_id , 4);
13511: DEBUG(' Unload LPN user_id => '||l_user_id , 4);
13512: END IF;
13513:
13514: l_return_status := fnd_api.g_ret_sts_success;
13515:
13516: l_progress := 1 ;
13517:
13518:
13536:
13537: IF (cur_mtrl_wlc_qty_mismatch%FOUND) THEN
13538: fnd_message.set_name('WMS', 'WMS_MO_NOT_FOUND');
13539: fnd_msg_pub.add;
13540: RAISE fnd_api.g_exc_error;
13541:
13542: ELSE
13543: IF (l_debug = 1) THEN
13544: DEBUG(' Move order exists for wlc qty for lpn_id: => '||p_lpn_id , 4);
13561: IF (cur_wlc_without_mtrl%FOUND) THEN
13562: fnd_message.set_name('WMS', 'WMS_MO_NOT_FOUND');
13563: --fnd_message.set_token('LPN', l_lpn);
13564: fnd_msg_pub.add;
13565: RAISE fnd_api.g_exc_error;
13566: ELSE
13567: IF (l_debug = 1) THEN
13568: DEBUG(' Move order exis for the lpn_id. => '||p_lpn_id , 4);
13569: END IF;
13583: IF cur_mtrl_wlpn_mismatch%FOUND THEN
13584: fnd_message.set_name('WMS', 'WMS_LPN_SUBLOC_MISMATCH');
13585: --fnd_message.set_token('LPN', l_lpn);
13586: fnd_msg_pub.add;
13587: RAISE fnd_api.g_exc_error;
13588: ELSE
13589: IF (l_debug = 1) THEN
13590: DEBUG(' There is no Sub-Inventory Mismatch between MTRL and WLC => '||p_lpn_id , 4);
13591: END IF;
13614: IF (cur_mtrl_wlc_lot_mismatch%found) THEN
13615: fnd_message.set_name('WMS', 'WMS_CONT_INVALID_LOT');
13616: --fnd_message.set_token('LPN', l_lpn);
13617: fnd_msg_pub.add;
13618: RAISE fnd_api.g_exc_error;
13619:
13620: ELSE
13621: IF (l_debug = 1) THEN
13622: DEBUG(' There is no Lot Mismatch between MTRL and WLC => '||p_lpn_id , 4);
13668: l_tempid_tab(i) ,p_activity_type_id => G_OP_ACTIVITY_INBOUND ,
13669: x_return_status => l_return_status ,x_msg_data => x_message ,
13670: x_msg_count => l_msg_count ,x_error_code => l_error_code );
13671: l_progress := '310';
13672: IF (l_return_status = fnd_api.g_ret_sts_success) THEN
13673: --Updating WLC and Deleting RTI manually as we are not doing it as part of
13674: -- cancel_operation_plan call
13675: UPDATE
13676: wms_lpn_contents
13730: -- End bug:15926098
13731:
13732:
13733: -- x_ret_value := 1;
13734: x_return_status := fnd_api.g_ret_sts_success;
13735: ELSE
13736: IF (l_debug = 1) THEN
13737: DEBUG(l_error_code || ' Error in cancel_operation_plane ' ,l_proc_name,1);
13738: END IF;
13745: IF c_all_mmtt_cursor%ISOPEN THEN
13746: CLOSE c_all_mmtt_cursor;
13747: END IF;
13748:
13749: IF ( (l_return_status <> fnd_api.g_ret_sts_success) OR l_cal_api = FALSE) THEN
13750: l_progress := '12';
13751: IF (l_debug = 1) THEN
13752: DEBUG('Calling Manual Putaway Cleanup..',l_proc_name,9);
13753: END IF;
14160: lpn_id IN (p_lpn_id)
14161: );
14162:
14163:
14164: x_return_status := fnd_api.g_ret_sts_success;
14165:
14166: END IF ;
14167:
14168: COMMIT;
14167:
14168: COMMIT;
14169:
14170: EXCEPTION
14171: WHEN FND_API.G_EXC_ERROR THEN
14172: IF (l_debug = 1) THEN
14173: DEBUG('Expected Error at '||l_progress, l_proc_name,1);
14174: END IF;
14175:
14175:
14176: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
14177: fnd_msg_pub.add_exc_msg(g_pkg_name, l_proc_name, SQLERRM);
14178: END IF;
14179: x_return_status := fnd_api.g_ret_sts_error;
14180:
14181: IF c_all_mmtt_cursor%ISOPEN THEN
14182: CLOSE c_all_mmtt_cursor;
14183: END IF;
14206: SYSDATE, 'YYYY-MM-DD HH:DD:SS'),l_proc_name,1);
14207: DEBUG(SQLERRM,l_proc_name,1);
14208: END IF;
14209: --x_ret_value := -1;
14210: x_return_status := fnd_api.g_ret_sts_unexp_error;
14211:
14212: IF c_all_mmtt_cursor%ISOPEN THEN
14213: CLOSE c_all_mmtt_cursor;
14214: END IF;
14421: , p_quantity => l_quantity
14422: );
14423: l_progress := '30';
14424:
14425: IF (x_return_status = fnd_api.g_ret_sts_success) THEN
14426: IF (l_debug = 1) THEN
14427: debug('Success returned from update_loc_suggested_capacity API');
14428: END IF;
14429: ELSE
14430: IF (l_debug = 1) THEN
14431: debug('Failure returned from update_loc_suggested_capacity API');
14432: END IF;
14433: -- Bug 5393727: do not raise an exception if locator API returns an error
14434: -- RAISE fnd_api.g_exc_error;
14435: END IF;
14436:
14437: l_progress := '40';
14438: END LOOP;
14438: END LOOP;
14439:
14440: CLOSE l_suggestions_cursor;
14441: -- Set the output variable
14442: x_return_status := fnd_api.g_ret_sts_success;
14443: l_progress := '50';
14444:
14445: IF (l_debug = 1) THEN
14446: debug('***End of update_loc_suggested_capacity***');
14445: IF (l_debug = 1) THEN
14446: debug('***End of update_loc_suggested_capacity***');
14447: END IF;
14448: EXCEPTION
14449: WHEN fnd_api.g_exc_error THEN
14450: ROLLBACK TO update_capacity_sp;
14451: x_return_status := fnd_api.g_ret_sts_error;
14452: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14453:
14447: END IF;
14448: EXCEPTION
14449: WHEN fnd_api.g_exc_error THEN
14450: ROLLBACK TO update_capacity_sp;
14451: x_return_status := fnd_api.g_ret_sts_error;
14452: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14453:
14454: IF (l_debug = 1) THEN
14455: debug(
14456: 'Exiting update_loc_suggested_capacity - Execution error: ' || l_progress || ' '
14457: || TO_CHAR(SYSDATE, 'YYYY-MM-DD HH:DD:SS')
14458: );
14459: END IF;
14460: WHEN fnd_api.g_exc_unexpected_error THEN
14461: ROLLBACK TO update_capacity_sp;
14462: x_return_status := fnd_api.g_ret_sts_unexp_error;
14463: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14464:
14458: );
14459: END IF;
14460: WHEN fnd_api.g_exc_unexpected_error THEN
14461: ROLLBACK TO update_capacity_sp;
14462: x_return_status := fnd_api.g_ret_sts_unexp_error;
14463: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
14464:
14465: IF (l_debug = 1) THEN
14466: debug(
14469: );
14470: END IF;
14471: WHEN OTHERS THEN
14472: ROLLBACK TO update_capacity_sp;
14473: x_return_status := fnd_api.g_ret_sts_unexp_error;
14474:
14475: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
14476: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
14477: END IF;
14789:
14790: -- Intialize out variables.
14791: l_progress := 10;
14792: l_content_lpn := 'N';
14793: x_return_status := fnd_api.g_ret_sts_success;
14794:
14795: IF (l_debug = 1) THEN
14796: debug(l_progress||'Patchset J code - Cleanup_LPN_Crossdock_Wrapper');
14797: debug(l_progress||'p_org_id==> '|| p_org_id);
14865: , x_msg_count => l_x_msg_count
14866: , x_error_code => l_error_code
14867: );
14868:
14869: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
14870: IF (l_debug = 1) THEN
14871: debug(l_progress||l_error_code || ' Error in Cleanup_Operation_Instance ' ,l_proc_name,1);
14872: END IF;
14873: l_progress := 70;
14870: IF (l_debug = 1) THEN
14871: debug(l_progress||l_error_code || ' Error in Cleanup_Operation_Instance ' ,l_proc_name,1);
14872: END IF;
14873: l_progress := 70;
14874: x_return_status := fnd_api.g_ret_sts_error;
14875: /* Don't raise error in case of failure, instead set the ret status as error
14876: and proceed with the next record */
14877: END IF;
14878:
14889: , x_msg_data => l_x_msg_data
14890: , x_msg_count => l_x_msg_count
14891: );
14892:
14893: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
14894: IF (l_debug = 1) THEN
14895: debug(l_progress||l_error_code || ' Error in delete_operation_instance ' ,l_proc_name,1);
14896: END IF;
14897: l_progress := 90;
14894: IF (l_debug = 1) THEN
14895: debug(l_progress||l_error_code || ' Error in delete_operation_instance ' ,l_proc_name,1);
14896: END IF;
14897: l_progress := 90;
14898: x_return_status := fnd_api.g_ret_sts_error;
14899: /* Don't raise error in case of failure, instead set the ret status as error
14900: and proceed with the next record */
14901: END IF;
14902:
14915: , x_msg_data => l_x_msg_data
14916: , x_msg_count => l_x_msg_count
14917: );
14918:
14919: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
14920: IF (l_debug = 1) THEN
14921: debug(l_progress||l_error_code || ' Error in delete_plan_instance ' ,l_proc_name,1);
14922: END IF;
14923: l_progress := 120;
14920: IF (l_debug = 1) THEN
14921: debug(l_progress||l_error_code || ' Error in delete_plan_instance ' ,l_proc_name,1);
14922: END IF;
14923: l_progress := 120;
14924: x_return_status := fnd_api.g_ret_sts_error;
14925: /* Don't raise error in case of failure, instead set the ret status as error
14926: and proceed with the next record */
14927: END IF;
14928:
14936: , p_transaction_temp_id => l_mmtt_rec.transaction_temp_id
14937: , p_update_parent => true
14938: );
14939:
14940: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
14941: IF (l_debug = 1) THEN
14942: debug(l_progress||' Error in delete_transaction ' ,l_proc_name,1);
14943: END IF;
14944: l_progress := 140;
14941: IF (l_debug = 1) THEN
14942: debug(l_progress||' Error in delete_transaction ' ,l_proc_name,1);
14943: END IF;
14944: l_progress := 140;
14945: x_return_status := fnd_api.g_ret_sts_error;
14946: /* Don't raise error in case of failure, instead set the ret status as error
14947: and proceed with the next record */
14948: END IF;
14949: END IF;
14964: , p_inventory_item_id => l_mmtt_rec.inventory_item_id
14965: , p_primary_quantity => l_mmtt_rec.primary_quantity
14966: );
14967:
14968: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
14969: IF (l_debug = 1) THEN
14970: debug(l_progress||' Error in revert_crossdock ' ,l_proc_name,1);
14971: END IF;
14972: l_progress := 160;
14969: IF (l_debug = 1) THEN
14970: debug(l_progress||' Error in revert_crossdock ' ,l_proc_name,1);
14971: END IF;
14972: l_progress := 160;
14973: x_return_status := fnd_api.g_ret_sts_error;
14974: /* Don't raise error in case of failure, instead set the ret status as error
14975: and proceed with the next record */
14976: END IF;
14977:
15011:
15012: EXCEPTION
15013: WHEN OTHERS THEN
15014: ROLLBACK;
15015: x_return_status := fnd_api.g_ret_sts_unexp_error;
15016: debug(l_progress||SQLCODE, 1);
15017:
15018: IF lpn_cursor%isopen THEN
15019: CLOSE lpn_cursor;