1: PACKAGE BODY WMS_ATF_Util_APIs AS
2: /* $Header: WMSOPUTB.pls 120.0.12020000.2 2012/07/04 06:35:08 abasheer ship $ */
3:
4: g_ret_sts_success VARCHAR2(1) := fnd_api.g_ret_sts_success;
5: g_ret_sts_unexp_error VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
6: g_ret_sts_error VARCHAR2(1) := fnd_api.g_ret_sts_error;
7: G_ACTION_RECEIPT CONSTANT NUMBER := inv_globals.g_action_receipt ;
8: G_ACTION_INTRANSITRECEIPT CONSTANT NUMBER := inv_globals.G_ACTION_INTRANSITRECEIPT;
1: PACKAGE BODY WMS_ATF_Util_APIs AS
2: /* $Header: WMSOPUTB.pls 120.0.12020000.2 2012/07/04 06:35:08 abasheer ship $ */
3:
4: g_ret_sts_success VARCHAR2(1) := fnd_api.g_ret_sts_success;
5: g_ret_sts_unexp_error VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
6: g_ret_sts_error VARCHAR2(1) := fnd_api.g_ret_sts_error;
7: G_ACTION_RECEIPT CONSTANT NUMBER := inv_globals.g_action_receipt ;
8: G_ACTION_INTRANSITRECEIPT CONSTANT NUMBER := inv_globals.G_ACTION_INTRANSITRECEIPT;
9: G_ACTION_SUBXFR CONSTANT NUMBER := inv_globals.g_action_subxfr;
2: /* $Header: WMSOPUTB.pls 120.0.12020000.2 2012/07/04 06:35:08 abasheer ship $ */
3:
4: g_ret_sts_success VARCHAR2(1) := fnd_api.g_ret_sts_success;
5: g_ret_sts_unexp_error VARCHAR2(1) := fnd_api.g_ret_sts_unexp_error;
6: g_ret_sts_error VARCHAR2(1) := fnd_api.g_ret_sts_error;
7: G_ACTION_RECEIPT CONSTANT NUMBER := inv_globals.g_action_receipt ;
8: G_ACTION_INTRANSITRECEIPT CONSTANT NUMBER := inv_globals.G_ACTION_INTRANSITRECEIPT;
9: G_ACTION_SUBXFR CONSTANT NUMBER := inv_globals.g_action_subxfr;
10: G_SOURCETYPE_MOVEORDER CONSTANT NUMBER := inv_globals.g_sourcetype_moveorder;
93: print_debug('x_msg_count = '||l_msg_count, 4);
94: print_debug('x_msg_data = '||l_msg_data, 4);
95: END IF;
96:
97: IF x_return_status <>FND_API.g_ret_sts_success THEN
98: IF (l_debug=1) THEN
99: print_debug('wms_rule_pvt_ext_psetj.assign_operation_plan_psetj finished with error. l_return_status = ' || l_return_status,4);
100: END IF;
101:
98: IF (l_debug=1) THEN
99: print_debug('wms_rule_pvt_ext_psetj.assign_operation_plan_psetj finished with error. l_return_status = ' || l_return_status,4);
100: END IF;
101:
102: RAISE FND_API.G_EXC_ERROR;
103: END IF;
104:
105:
106: IF (l_debug = 1) THEN
110: END IF;
111:
112:
113: EXCEPTION
114: WHEN FND_API.G_EXC_ERROR THEN
115: x_return_status:=FND_API.G_RET_STS_ERROR;
116: IF (l_debug=1) THEN
117: print_debug('assign_operation_plan expected Error Obtained at'||l_progress,1);
118: END IF;
111:
112:
113: EXCEPTION
114: WHEN FND_API.G_EXC_ERROR THEN
115: x_return_status:=FND_API.G_RET_STS_ERROR;
116: IF (l_debug=1) THEN
117: print_debug('assign_operation_plan expected Error Obtained at'||l_progress,1);
118: END IF;
119: ROLLBACK TO sp_assign_operation_plan_intf;
117: print_debug('assign_operation_plan expected Error Obtained at'||l_progress,1);
118: END IF;
119: ROLLBACK TO sp_assign_operation_plan_intf;
120:
121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
122: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
123: IF (l_debug=1) THEN
124: print_debug('assign_operation_plan Unexpected Error Obtained at'||l_progress,1);
125: END IF;
118: END IF;
119: ROLLBACK TO sp_assign_operation_plan_intf;
120:
121: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
122: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
123: IF (l_debug=1) THEN
124: print_debug('assign_operation_plan Unexpected Error Obtained at'||l_progress,1);
125: END IF;
126: ROLLBACK TO sp_assign_operation_plan_intf;
125: END IF;
126: ROLLBACK TO sp_assign_operation_plan_intf;
127:
128: WHEN OTHERS THEN
129: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
130: IF (l_debug=1) THEN
131: print_debug('assign_operation_plan OTHER Error Obtained at'||l_progress,1);
132: IF SQLCODE IS NOT NULL THEN
133: print_debug('With SQL error : ' || SQLERRM(SQLCODE), 1);
320: print_debug('l_msg_data => '||l_msg_data, 4);
321: print_debug('l_msg_count => '||l_msg_count, 4);
322: END IF;
323:
324: IF l_return_status <>FND_API.g_ret_sts_success THEN
325: IF (l_debug=1) THEN
326: print_debug('wms_atf_runtime_pub_apis.Cancel_operation_Plan - transfer_lpn_id finished with error. l_return_status = ' || l_return_status, 4);
327: END IF;
328:
325: IF (l_debug=1) THEN
326: print_debug('wms_atf_runtime_pub_apis.Cancel_operation_Plan - transfer_lpn_id finished with error. l_return_status = ' || l_return_status, 4);
327: END IF;
328:
329: RAISE FND_API.G_EXC_ERROR;
330: END IF;
331: l_progress := 20.003;
332:
333: END LOOP;
364: print_debug('l_msg_data => '||l_msg_data, 4);
365: print_debug('l_msg_count => '||l_msg_count, 4);
366: END IF;
367:
368: IF l_return_status <>FND_API.g_ret_sts_success THEN
369: IF (l_debug=1) THEN
370: print_debug('wms_atf_runtime_pub_apis.Cancel_operation_Plan - content_lpn_id finished with error. l_return_status = ' || l_return_status, 4);
371: END IF;
372:
369: IF (l_debug=1) THEN
370: print_debug('wms_atf_runtime_pub_apis.Cancel_operation_Plan - content_lpn_id finished with error. l_return_status = ' || l_return_status, 4);
371: END IF;
372:
373: RAISE FND_API.G_EXC_ERROR;
374: END IF;
375: l_progress := 20.006;
376:
377: END LOOP;
408: print_debug('l_msg_data => '||l_msg_data, 4);
409: print_debug('l_msg_count => '||l_msg_count, 4);
410: END IF;
411:
412: IF l_return_status <>FND_API.g_ret_sts_success THEN
413: IF (l_debug=1) THEN
414: print_debug('wms_atf_runtime_pub_apis.Cancel_operation_Plan - lpn_id finished with error. l_return_status = ' || l_return_status, 4);
415: END IF;
416:
413: IF (l_debug=1) THEN
414: print_debug('wms_atf_runtime_pub_apis.Cancel_operation_Plan - lpn_id finished with error. l_return_status = ' || l_return_status, 4);
415: END IF;
416:
417: RAISE FND_API.G_EXC_ERROR;
418: END IF;
419:
420: l_progress := 20.008;
421: END LOOP;
620: print_debug('x_msg_data = '||x_msg_data, 4);
621:
622: END IF;
623:
624: IF l_return_status <>FND_API.g_ret_sts_success THEN
625: IF (l_debug=1) THEN
626: print_debug('wms_atf_runtime_pub_apis.complete_operation_instance finished with error. l_return_status = ' || l_return_status, 4);
627: END IF;
628:
625: IF (l_debug=1) THEN
626: print_debug('wms_atf_runtime_pub_apis.complete_operation_instance finished with error. l_return_status = ' || l_return_status, 4);
627: END IF;
628:
629: RAISE FND_API.G_EXC_ERROR;
630: END IF;
631:
632: ELSE -- TM failed
633: IF l_proc_mode <> 1 -- TM processing mode is NOT online
666: print_debug('x_msg_data = '||x_msg_data, 4);
667:
668: END IF;
669:
670: IF l_return_status <>FND_API.g_ret_sts_success THEN
671: IF (l_debug=1) THEN
672: print_debug('wms_atf_runtime_pub_apis.cleanup_operation_instance finished with error. l_return_status = ' || l_return_status, 4);
673: END IF;
674:
671: IF (l_debug=1) THEN
672: print_debug('wms_atf_runtime_pub_apis.cleanup_operation_instance finished with error. l_return_status = ' || l_return_status, 4);
673: END IF;
674:
675: RAISE FND_API.G_EXC_ERROR;
676: END IF;
677:
678: END IF; -- IF l_proc_mode <> 1
679:
702: END IF;
703:
704:
705: EXCEPTION
706: WHEN FND_API.G_EXC_ERROR THEN
707: x_return_status:=FND_API.G_RET_STS_ERROR;
708: IF (l_debug=1) THEN
709: print_debug('complete_tm_processing expected Error Obtained at'||l_progress,1);
710: END IF;
703:
704:
705: EXCEPTION
706: WHEN FND_API.G_EXC_ERROR THEN
707: x_return_status:=FND_API.G_RET_STS_ERROR;
708: IF (l_debug=1) THEN
709: print_debug('complete_tm_processing expected Error Obtained at'||l_progress,1);
710: END IF;
711: ROLLBACK TO sp_complete_tm_processing;
730: CLOSE c_mmtts_in_lpn;
731: END IF;
732:
733:
734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
735: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
736: IF (l_debug=1) THEN
737: print_debug('complete_tm_processing Unexpected Error Obtained at'||l_progress,1);
738: END IF;
731: END IF;
732:
733:
734: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
735: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
736: IF (l_debug=1) THEN
737: print_debug('complete_tm_processing Unexpected Error Obtained at'||l_progress,1);
738: END IF;
739: ROLLBACK TO sp_complete_tm_processing;
759: END IF;
760:
761:
762: WHEN OTHERS THEN
763: x_return_status:=FND_API.G_RET_STS_UNEXP_ERROR;
764: IF (l_debug=1) THEN
765: print_debug('complete_tm_processing OTHER Error Obtained at'||l_progress,1);
766: IF SQLCODE IS NOT NULL THEN
767: print_debug('With SQL error : ' || SQLERRM(SQLCODE), 1);