[Home] [Help]
10: -- Forward declaration
11: PROCEDURE Lock_Related_Entities(
12: p_rec_attr_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
13: p_action_prms IN action_parameters_rectype,
14: x_valid_ids_tab OUT NOCOPY WSH_UTIL_CORE.ID_TAB_TYPE,
15: x_return_status OUT NOCOPY VARCHAR2
16: );
17:
18: --===================
175: --
176: l_debug_on BOOLEAN;
177: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELIVERY_ACTION';
178: --
179: l_delivery_id_tab wsh_util_core.id_tab_type;
180: l_valid_ids_tab wsh_util_core.id_tab_type;
181: l_valid_index_tab wsh_util_core.id_tab_type;
182: l_error_ids wsh_util_core.id_tab_type;
183: l_org_id_tab wsh_util_core.id_tab_type;
176: l_debug_on BOOLEAN;
177: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELIVERY_ACTION';
178: --
179: l_delivery_id_tab wsh_util_core.id_tab_type;
180: l_valid_ids_tab wsh_util_core.id_tab_type;
181: l_valid_index_tab wsh_util_core.id_tab_type;
182: l_error_ids wsh_util_core.id_tab_type;
183: l_org_id_tab wsh_util_core.id_tab_type;
184: l_rec_attr_tab wsh_new_deliveries_pvt.Delivery_Attr_Tbl_Type;
177: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELIVERY_ACTION';
178: --
179: l_delivery_id_tab wsh_util_core.id_tab_type;
180: l_valid_ids_tab wsh_util_core.id_tab_type;
181: l_valid_index_tab wsh_util_core.id_tab_type;
182: l_error_ids wsh_util_core.id_tab_type;
183: l_org_id_tab wsh_util_core.id_tab_type;
184: l_rec_attr_tab wsh_new_deliveries_pvt.Delivery_Attr_Tbl_Type;
185: l_ship_method_code_tab WSH_NEW_DELIVERY_ACTIONS.ship_method_type;
178: --
179: l_delivery_id_tab wsh_util_core.id_tab_type;
180: l_valid_ids_tab wsh_util_core.id_tab_type;
181: l_valid_index_tab wsh_util_core.id_tab_type;
182: l_error_ids wsh_util_core.id_tab_type;
183: l_org_id_tab wsh_util_core.id_tab_type;
184: l_rec_attr_tab wsh_new_deliveries_pvt.Delivery_Attr_Tbl_Type;
185: l_ship_method_code_tab WSH_NEW_DELIVERY_ACTIONS.ship_method_type;
186: l_delivery_rec_tab wsh_delivery_validations.dlvy_rec_tab_type;
179: l_delivery_id_tab wsh_util_core.id_tab_type;
180: l_valid_ids_tab wsh_util_core.id_tab_type;
181: l_valid_index_tab wsh_util_core.id_tab_type;
182: l_error_ids wsh_util_core.id_tab_type;
183: l_org_id_tab wsh_util_core.id_tab_type;
184: l_rec_attr_tab wsh_new_deliveries_pvt.Delivery_Attr_Tbl_Type;
185: l_ship_method_code_tab WSH_NEW_DELIVERY_ACTIONS.ship_method_type;
186: l_delivery_rec_tab wsh_delivery_validations.dlvy_rec_tab_type;
187: l_dummy_id_tab wsh_util_core.id_tab_type;
183: l_org_id_tab wsh_util_core.id_tab_type;
184: l_rec_attr_tab wsh_new_deliveries_pvt.Delivery_Attr_Tbl_Type;
185: l_ship_method_code_tab WSH_NEW_DELIVERY_ACTIONS.ship_method_type;
186: l_delivery_rec_tab wsh_delivery_validations.dlvy_rec_tab_type;
187: l_dummy_id_tab wsh_util_core.id_tab_type;
188: l_dummy_doc_set_params wsh_document_sets.document_set_tab_type;
189: l_param_name VARCHAR2(100);
190: l_isWshLocation BOOLEAN DEFAULT FALSE;
191: --
196: l_cc_line_groups WSH_FTE_COMP_CONSTRAINT_PKG.line_group_tab_type;
197: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
198: b_cc_linefailed boolean;
199: b_cc_groupidexists boolean;
200: l_delivery_id_tab_temp wsh_util_core.id_tab_type;
201: l_delivery_id_tab_t wsh_util_core.id_tab_type;
202: l_rec_attr_tab_temp WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
203: l_cc_count_success NUMBER;
204: l_cc_count_group_ids NUMBER;
197: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
198: b_cc_linefailed boolean;
199: b_cc_groupidexists boolean;
200: l_delivery_id_tab_temp wsh_util_core.id_tab_type;
201: l_delivery_id_tab_t wsh_util_core.id_tab_type;
202: l_rec_attr_tab_temp WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
203: l_cc_count_success NUMBER;
204: l_cc_count_group_ids NUMBER;
205: l_cc_count_rec NUMBER;
202: l_rec_attr_tab_temp WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
203: l_cc_count_success NUMBER;
204: l_cc_count_group_ids NUMBER;
205: l_cc_count_rec NUMBER;
206: l_cc_group_ids wsh_util_core.id_tab_type;
207: l_cc_upd_dlvy_intmed_ship_to VARCHAR2(1);
208: l_cc_upd_dlvy_ship_method VARCHAR2(1);
209: l_cc_dlvy_intmed_ship_to NUMBER;
210: l_cc_dlvy_ship_method VARCHAR2(30);
207: l_cc_upd_dlvy_intmed_ship_to VARCHAR2(1);
208: l_cc_upd_dlvy_ship_method VARCHAR2(1);
209: l_cc_dlvy_intmed_ship_to NUMBER;
210: l_cc_dlvy_ship_method VARCHAR2(30);
211: l_cc_del_rows wsh_util_core.id_tab_type;
212: l_cc_grouping_rows wsh_util_core.id_tab_type;
213: l_cc_return_status VARCHAR2(1);
214: l_cc_count_del_rows NUMBER;
215: l_cc_count_trip_rows NUMBER;
208: l_cc_upd_dlvy_ship_method VARCHAR2(1);
209: l_cc_dlvy_intmed_ship_to NUMBER;
210: l_cc_dlvy_ship_method VARCHAR2(30);
211: l_cc_del_rows wsh_util_core.id_tab_type;
212: l_cc_grouping_rows wsh_util_core.id_tab_type;
213: l_cc_return_status VARCHAR2(1);
214: l_cc_count_del_rows NUMBER;
215: l_cc_count_trip_rows NUMBER;
216: l_cc_count_grouping_rows NUMBER;
213: l_cc_return_status VARCHAR2(1);
214: l_cc_count_del_rows NUMBER;
215: l_cc_count_trip_rows NUMBER;
216: l_cc_count_grouping_rows NUMBER;
217: l_cc_trip_id wsh_util_core.id_tab_type;
218: l_cc_trip_id_tab wsh_util_core.id_tab_type;
219: --dummy tables for calling validate_constraint_mainper
220: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
221: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
214: l_cc_count_del_rows NUMBER;
215: l_cc_count_trip_rows NUMBER;
216: l_cc_count_grouping_rows NUMBER;
217: l_cc_trip_id wsh_util_core.id_tab_type;
218: l_cc_trip_id_tab wsh_util_core.id_tab_type;
219: --dummy tables for calling validate_constraint_mainper
220: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
221: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
222: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
220: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
221: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
222: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
223: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
224: l_cc_in_ids wsh_util_core.id_tab_type;
225: l_cc_fail_ids wsh_util_core.id_tab_type;
226: --
227:
228: --Compatibility Changes
221: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
222: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
223: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
224: l_cc_in_ids wsh_util_core.id_tab_type;
225: l_cc_fail_ids wsh_util_core.id_tab_type;
226: --
227:
228: --Compatibility Changes
229: --
227:
228: --Compatibility Changes
229: --
230: l_tripindex NUMBER;
231: l_trip_names wsh_util_core.column_tab_type;
232:
233: --
234: -- l_trip_name VARCHAR2(30) := NULL;
235: l_action_code VARCHAR2(32767);
246: l_request_id NUMBER;
247:
248: -- Added for bug 4493263
249: l_doc_set_id NUMBER;
250: l_doc_delivery_id_tab wsh_util_core.id_tab_type;
251: l_doc_valid_ids_tab wsh_util_core.id_tab_type;
252:
253: l_dleg_prms WSH_DELIVERY_LEGS_GRP.action_parameters_rectype;
254: l_dleg_action_out_rec WSH_DELIVERY_LEGS_GRP.action_out_rec_type;
247:
248: -- Added for bug 4493263
249: l_doc_set_id NUMBER;
250: l_doc_delivery_id_tab wsh_util_core.id_tab_type;
251: l_doc_valid_ids_tab wsh_util_core.id_tab_type;
252:
253: l_dleg_prms WSH_DELIVERY_LEGS_GRP.action_parameters_rectype;
254: l_dleg_action_out_rec WSH_DELIVERY_LEGS_GRP.action_out_rec_type;
255: l_dleg_tab WSH_DELIVERY_LEGS_GRP.dlvy_leg_tab_type;
261: l_loop_num_err NUMBER := 0;
262: l_submitted_docs NUMBER :=0;
263: l_req_id_str VARCHAR2(2000);
264: -- PACK J: KVENKATE
265: l_routingRespIdTab wsh_util_core.id_tab_type;
266:
267: -- csun deliveryMerge
268: l_exception_id NUMBER;
269: l_initial_pickup_location_id NUMBER;
303: l_lpn_in_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_in_rec_type;
304: l_lpn_out_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_out_rec_type;
305: -- K LPN CONV. rv
306:
307: l_child_deliveries_tab wsh_util_core.id_tab_type;
308:
309: --OTM R12
310: l_new_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
311: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
306:
307: l_child_deliveries_tab wsh_util_core.id_tab_type;
308:
309: --OTM R12
310: l_new_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
311: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
312: l_gc3_is_installed VARCHAR2(1);
313: --
314:
307: l_child_deliveries_tab wsh_util_core.id_tab_type;
308:
309: --OTM R12
310: l_new_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
311: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
312: l_gc3_is_installed VARCHAR2(1);
313: --
314:
315: BEGIN
315: BEGIN
316: <
317: --
318: -- Bug 4070732
319: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
320: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
321: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
322: END IF;
323: --
316: <
317: --
318: -- Bug 4070732
319: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
320: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
321: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
322: END IF;
323: --
324: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
317: --
318: -- Bug 4070732
319: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
320: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
321: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
322: END IF;
323: --
324: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
325: --
383:
384: IF l_param_name is not null THEN
385: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
386: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
387: x_return_status := wsh_util_core.g_ret_sts_error;
388: wsh_util_core.add_message(x_return_status,l_module_name);
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
391:
384: IF l_param_name is not null THEN
385: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
386: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
387: x_return_status := wsh_util_core.g_ret_sts_error;
388: wsh_util_core.add_message(x_return_status,l_module_name);
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
391:
392: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
388: wsh_util_core.add_message(x_return_status,l_module_name);
389: RAISE FND_API.G_EXC_ERROR;
390: END IF;
391:
392: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
393:
394: --OTM R12
395: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
396:
391:
392: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
393:
394: --OTM R12
395: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
396:
397: IF l_gc3_is_installed IS NULL THEN
398: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
399: END IF;
394: --OTM R12
395: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
396:
397: IF l_gc3_is_installed IS NULL THEN
398: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
399: END IF;
400: --
401:
402: IF p_action_prms.caller IN ( 'WSH_FSTRX' , 'WSH_TPW_INBOUND')
482: IF l_debug_on THEN
483: wsh_debug_sv.log(l_module_name,'Return Status After Calling set_validation_level',l_return_status);
484: END IF;
485: --
486: wsh_util_core.api_post_call(
487: p_return_status => l_return_status,
488: x_num_warnings => l_num_warnings,
489: x_num_errors => l_num_errors);
490: --
506: IF l_debug_on THEN
507: wsh_debug_sv.log(l_module_name,'Return Status After Calling IS_Action_Enabled',l_return_status);
508: END IF;
509: --
510: wsh_util_core.api_post_call(
511: p_return_status => l_return_status,
512: x_num_warnings => l_num_warnings,
513: x_num_errors => l_num_errors,
514: p_msg_data => NULL,
538: IF l_debug_on THEN
539: wsh_debug_sv.log(l_module_name,'Return Status After Calling Lock_Delivery',l_return_status);
540: END IF;
541: --
542: wsh_util_core.api_post_call(
543: p_return_status => l_return_status,
544: x_num_warnings => l_num_warnings,
545: x_num_errors => l_num_errors,
546: p_msg_data => NULL,
553:
554: --
555: IF(l_num_errors >0 ) THEN
556: --{
557: x_return_status := wsh_util_core.g_ret_sts_error;
558: --
559: IF p_action_prms.caller = 'WSH_FSTRX' THEN
560: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION');
561: wsh_util_core.add_message(x_return_status,l_module_name);
557: x_return_status := wsh_util_core.g_ret_sts_error;
558: --
559: IF p_action_prms.caller = 'WSH_FSTRX' THEN
560: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION');
561: wsh_util_core.add_message(x_return_status,l_module_name);
562: END IF;
563: --
564: IF l_debug_on THEN
565: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION');
634: wsh_debug_sv.log(l_module_name,' DI flag ',x_defaults_rec.defer_interface_flag);
635:
636: END IF;
637: --
638: wsh_util_core.api_post_call(
639: p_return_status => l_return_status,
640: x_num_warnings => l_num_warnings,
641: x_num_errors => l_num_errors);
642: --
660: IF l_debug_on THEN
661: wsh_debug_sv.log(l_module_name,'Return Status After Calling check_unassign_trip',l_return_status);
662: END IF;
663: --
664: wsh_util_core.api_post_call(
665: p_return_status => l_return_status,
666: x_num_warnings => l_num_warnings,
667: x_num_errors => l_num_errors);
668: --
670: --
671: IF l_num_warnings > 0 THEN
672: --
673: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION_WARN');
674: x_return_status := wsh_util_core.g_ret_sts_warning;
675: wsh_util_core.add_message(x_return_status,l_module_name);
676: IF l_debug_on THEN
677: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION_WARN');
678: wsh_debug_sv.log(l_module_name, 'x_delivery_out_rec.valid_ids_tab count is', l_valid_ids_tab.count);
671: IF l_num_warnings > 0 THEN
672: --
673: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION_WARN');
674: x_return_status := wsh_util_core.g_ret_sts_warning;
675: wsh_util_core.add_message(x_return_status,l_module_name);
676: IF l_debug_on THEN
677: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION_WARN');
678: wsh_debug_sv.log(l_module_name, 'x_delivery_out_rec.valid_ids_tab count is', l_valid_ids_tab.count);
679: END IF;
679: END IF;
680: --
681: IF p_action_prms.caller IN ('WSH_FSTRX', 'WSH_TRCON') THEN
682: x_delivery_out_rec.selection_issue_flag := 'Y';
683: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
684: ELSE
685: RAISE FND_API.G_EXC_ERROR;
686: END IF;
687: --
690: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_VALIDATE_CONSTRAINTS_LVL) = 1 THEN --{
691: --Compatiblity Changes
692: --for autocreatetrip or if assign trip and caller is STF, phase=2
693:
694: IF wsh_util_core.fte_is_installed='Y' THEN
695:
696: l_caller_module := SUBSTR(p_action_prms.caller,1,3);
697: --
698: IF l_debug_on THEN
780: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
781: END IF;
782: --
783:
784: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
785: --fix l_rec_attr_tab to have only successful records
786: l_cc_count_success:=1;
787:
788: IF l_debug_on THEN
789: wsh_debug_sv.log(l_module_name,'p_rec_attr_tab.count before removing failed lines',p_rec_attr_tab.COUNT);
790: END IF;
791:
792: IF l_cc_failed_records.COUNT = 0 AND p_rec_attr_tab.COUNT>0 THEN
793: l_return_status := wsh_util_core.g_ret_sts_success;
794: END IF;
795:
796:
797: IF l_cc_failed_records.COUNT>0 AND p_rec_attr_tab.COUNT>0 THEN
797: IF l_cc_failed_records.COUNT>0 AND p_rec_attr_tab.COUNT>0 THEN
798:
799: --set return_status as warning
800: IF l_cc_failed_records.COUNT<>p_rec_attr_tab.COUNT THEN
801: l_return_status:=wsh_util_core.g_ret_sts_warning;
802: END IF;
803:
804: FOR i in p_rec_attr_tab.FIRST..p_rec_attr_tab.LAST LOOP
805: b_cc_linefailed:=FALSE;
808: IF (p_rec_attr_tab(i).delivery_id=l_cc_failed_records(j).entity_line_id) THEN
809: b_cc_linefailed:=TRUE;
810: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
811: FND_MESSAGE.SET_TOKEN('DEL_ID',l_cc_failed_records(j).entity_line_id);
812: wsh_util_core.add_message(l_return_status);
813: END IF;
814: END LOOP;
815:
816: IF (NOT(b_cc_linefailed)) THEN
827: --bsadri for assign-trip, if one line fails, then fail all lines {
828: IF l_action_code = 'ASSIGN-TRIP'
829: AND l_cc_failed_records.COUNT > 0 THEN
830: l_delivery_id_tab_t.DELETE;
831: l_return_status := wsh_util_core.g_ret_sts_error;
832: END IF;
833: --}
834:
835:
838: ELSE
839: IF l_debug_on THEN
840: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
841: END IF;
842: wsh_util_core.api_post_call(
843: p_return_status => l_return_status,
844: x_num_warnings => l_num_warnings,
845: x_num_errors => l_num_errors);
846:
850: wsh_debug_sv.log(l_module_name,'l_delivery_id_tab.count before removing failed lines',l_delivery_id_tab.COUNT);
851: END IF;
852: END IF;
853:
854: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
855: wsh_util_core.api_post_call(
856: p_return_status => l_return_status,
857: x_num_warnings => l_num_warnings,
858: x_num_errors => l_num_errors);
851: END IF;
852: END IF;
853:
854: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
855: wsh_util_core.api_post_call(
856: p_return_status => l_return_status,
857: x_num_warnings => l_num_warnings,
858: x_num_errors => l_num_errors);
859: END IF;
857: x_num_warnings => l_num_warnings,
858: x_num_errors => l_num_errors);
859: END IF;
860: --bug 3763800 : removed l_msg_data input so that message does not get added again
861: wsh_util_core.api_post_call(
862: p_return_status => l_return_status,
863: x_num_warnings => l_num_warnings,
864: x_num_errors => l_num_errors,
865: p_raise_error_flag => FALSE);
874: 'PRINT-DOC-SETS')
875: AND nvl(p_action_prms.phase,1) = 1
876: AND p_action_prms.caller = 'WSH_FSTRX'
877: THEN
878: x_return_status := wsh_util_core.g_ret_sts_success;
879:
880: --Start of bug 4070732
881: --Calling Reset_stops_for_load_tender as it is returning successfully.
882:
880: --Start of bug 4070732
881: --Calling Reset_stops_for_load_tender as it is returning successfully.
882:
883: --Bugfix 4070732 {
884: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
885: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
886: IF l_debug_on THEN
887: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
888: END IF;
881: --Calling Reset_stops_for_load_tender as it is returning successfully.
882:
883: --Bugfix 4070732 {
884: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
885: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
886: IF l_debug_on THEN
887: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
888: END IF;
889:
883: --Bugfix 4070732 {
884: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
885: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
886: IF l_debug_on THEN
887: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
888: END IF;
889:
890: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
891: x_return_status => x_return_status);
886: IF l_debug_on THEN
887: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
888: END IF;
889:
890: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
891: x_return_status => x_return_status);
892:
893: IF l_debug_on THEN
894: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
917: x_valid_ids_tab => l_delivery_id_tab,
918: x_return_status => l_return_status
919: );
920:
921: wsh_util_core.api_post_call(
922: p_return_status => l_return_status,
923: x_num_warnings => l_num_warnings,
924: x_num_errors => l_num_errors);
925: --
935: AND nvl(p_action_prms.trip_name, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR)
936: THEN
937: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_OR_NAME_REQUIRED');
938: FND_MESSAGE.SET_TOKEN('ACTION_CODE' , p_action_prms.action_code);
939: l_return_status := wsh_util_core.g_ret_sts_error;
940: wsh_util_core.add_message(l_return_status,l_module_name);
941: IF l_debug_on THEN
942: wsh_debug_sv.log (l_module_name,'Trip_id or Trip_name is required for this action');
943: END IF;
936: THEN
937: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_OR_NAME_REQUIRED');
938: FND_MESSAGE.SET_TOKEN('ACTION_CODE' , p_action_prms.action_code);
939: l_return_status := wsh_util_core.g_ret_sts_error;
940: wsh_util_core.add_message(l_return_status,l_module_name);
941: IF l_debug_on THEN
942: wsh_debug_sv.log (l_module_name,'Trip_id or Trip_name is required for this action');
943: END IF;
944: RAISE FND_API.G_EXC_ERROR;
965: IF l_debug_on THEN
966: wsh_debug_sv.log(l_module_name,'Return Status After Calling generate_routing_response',l_return_status);
967: END IF;
968: --
969: wsh_util_core.api_post_call(
970: p_return_status => l_return_status,
971: x_num_warnings => l_num_warnings,
972: x_num_errors => l_num_errors);
973: --
982: IF l_debug_on THEN
983: wsh_debug_sv.log(l_module_name,'Return Status After Calling Plan',l_return_status);
984: END IF;
985: --
986: wsh_util_core.api_post_call(
987: p_return_status => l_return_status,
988: x_num_warnings => l_num_warnings,
989: x_num_errors => l_num_errors);
990: --
998: IF l_debug_on THEN
999: wsh_debug_sv.log(l_module_name,'Return Status After Calling Unplan',l_return_status);
1000: END IF;
1001: --
1002: wsh_util_core.api_post_call(
1003: p_return_status => l_return_status,
1004: x_num_warnings => l_num_warnings,
1005: x_num_errors => l_num_errors);
1006: --
1014: IF l_debug_on THEN
1015: wsh_debug_sv.log(l_module_name,'Return Status After Calling firm',l_return_status);
1016: END IF;
1017: --
1018: wsh_util_core.api_post_call(
1019: p_return_status => l_return_status,
1020: x_num_warnings => l_num_warnings,
1021: x_num_errors => l_num_errors);
1022: --
1031: IF l_debug_on THEN
1032: wsh_debug_sv.log(l_module_name,'Return Status After Calling change_ignoreplan_status ',l_return_status);
1033: END IF;
1034: --
1035: wsh_util_core.api_post_call(
1036: p_return_status => l_return_status,
1037: x_num_warnings => l_num_warnings,
1038: x_num_errors => l_num_errors);
1039: --
1051: IF l_debug_on THEN
1052: wsh_debug_sv.log(l_module_name,'Return Status After Calling Launch_Pick_Release',l_return_status);
1053: END IF;
1054: --
1055: wsh_util_core.api_post_call(
1056: p_return_status => l_return_status,
1057: x_num_warnings => l_num_warnings,
1058: x_num_errors => l_num_errors);
1059: --
1071: IF l_debug_on THEN
1072: wsh_debug_sv.log(l_module_name,'Return Status After Calling Launch_Pick_Release',l_return_status);
1073: END IF;
1074: --
1075: wsh_util_core.api_post_call(
1076: p_return_status => l_return_status,
1077: x_num_warnings => l_num_warnings,
1078: x_num_errors => l_num_errors);
1079: --
1091: IF l_debug_on THEN
1092: wsh_debug_sv.log(l_module_name,'Return Status After Calling Launch_Pick_Release',l_return_status);
1093: END IF;
1094: --
1095: wsh_util_core.api_post_call(
1096: p_return_status => l_return_status,
1097: x_num_warnings => l_num_warnings,
1098: x_num_errors => l_num_errors);
1099: --
1109: IF l_debug_on THEN
1110: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Report_Set',l_return_status);
1111: END IF;
1112: --
1113: wsh_util_core.api_post_call(
1114: p_return_status => l_return_status,
1115: x_num_warnings => l_num_warnings,
1116: x_num_errors => l_num_errors);
1117: --
1147: IF l_debug_on THEN
1148: wsh_debug_sv.log(l_module_name,'Return Status After Calling Print_Document_Sets',l_return_status);
1149: END IF;
1150: --
1151: wsh_util_core.api_post_call(
1152: p_return_status => l_return_status,
1153: x_num_warnings => l_num_warnings,
1154: x_num_errors => l_num_errors);
1155: --
1173: IF l_debug_on THEN
1174: wsh_debug_sv.log(l_module_name,'Return Status After Calling Delivery_Weight_Volume',l_return_status);
1175: END IF;
1176: --
1177: wsh_util_core.api_post_call(
1178: p_return_status => l_return_status,
1179: x_num_warnings => l_num_warnings,
1180: x_num_errors => l_num_errors);
1181:
1218: IF l_debug_on THEN
1219: wsh_debug_sv.log(l_module_name,'Return Status After Calling Auto_Pack for Action Auto_Pack',l_return_status);
1220: END IF;
1221: --
1222: wsh_util_core.api_post_call(
1223: p_return_status => l_return_status,
1224: x_num_warnings => l_num_warnings,
1225: x_num_errors => l_num_errors,
1226: p_msg_data => l_msg_data);
1258: IF l_debug_on THEN
1259: wsh_debug_sv.log(l_module_name,'Return Status After Calling Auto_Pack for Action Auto_Pack_Master',l_return_status);
1260: END IF;
1261: --
1262: wsh_util_core.api_post_call(
1263: p_return_status => l_return_status,
1264: x_num_warnings => l_num_warnings,
1265: x_num_errors => l_num_errors,
1266: p_msg_data => l_msg_data);
1275: IF l_debug_on THEN
1276: wsh_debug_sv.log(l_module_name,'Return Status After Calling Generate_Loading_Seq',l_return_status);
1277: END IF;
1278: --
1279: wsh_util_core.api_post_call(
1280: p_return_status => l_return_status,
1281: x_num_warnings => l_num_warnings,
1282: x_num_errors => l_num_errors);
1283: --
1293: IF l_debug_on THEN
1294: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_AUTOCREATE.Autocreate_Consol_Delivery',l_return_status);
1295: END IF;
1296: --
1297: wsh_util_core.api_post_call(
1298: p_return_status => l_return_status,
1299: x_num_warnings => l_num_warnings,
1300: x_num_errors => l_num_errors,
1301: p_msg_data => l_msg_data);
1316: BEGIN
1317: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(
1318: x_param_info => l_global_parameters,
1319: x_return_status => l_return_status);
1320: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1321: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1322: x_return_status := l_return_status;
1323: IF l_debug_on THEN
1324: WSH_DEBUG_SV.pop(l_module_name,'get_global_parameters failed');
1317: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(
1318: x_param_info => l_global_parameters,
1319: x_return_status => l_return_status);
1320: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1321: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1322: x_return_status := l_return_status;
1323: IF l_debug_on THEN
1324: WSH_DEBUG_SV.pop(l_module_name,'get_global_parameters failed');
1325: END IF;
1327: END IF;
1328:
1329: IF l_global_parameters.enforce_ship_method = 'Y' THEN
1330: FND_MESSAGE.SET_NAME('WSH','WSH_SC_SM_REQUIRED');
1331: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1332: wsh_util_core.add_message(x_return_status,l_module_name);
1333: IF l_debug_on THEN
1334: WSH_DEBUG_SV.pop(l_module_name,'ship method is required');
1335: END IF;
1328:
1329: IF l_global_parameters.enforce_ship_method = 'Y' THEN
1330: FND_MESSAGE.SET_NAME('WSH','WSH_SC_SM_REQUIRED');
1331: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1332: wsh_util_core.add_message(x_return_status,l_module_name);
1333: IF l_debug_on THEN
1334: WSH_DEBUG_SV.pop(l_module_name,'ship method is required');
1335: END IF;
1336: RETURN;
1352: EXIT WHEN c_del_assign_to_trip%NOTFOUND;
1353: IF l_temp_trip_id is not NULL THEN
1354: l_is_del_assign_trip := TRUE;
1355:
1356: IF WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y' AND l_temp_lane_id is not NULL AND
1357: NVL(l_ship_method_code,l_temp_ship_method_code) <> l_temp_ship_method_code THEN
1358: CLOSE c_del_assign_to_trip;
1359: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1360: FND_MESSAGE.SET_NAME('FTE', 'FTE_SEGMENT_CSM_CHANGE_ERROR');
1355:
1356: IF WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y' AND l_temp_lane_id is not NULL AND
1357: NVL(l_ship_method_code,l_temp_ship_method_code) <> l_temp_ship_method_code THEN
1358: CLOSE c_del_assign_to_trip;
1359: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1360: FND_MESSAGE.SET_NAME('FTE', 'FTE_SEGMENT_CSM_CHANGE_ERROR');
1361: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME', wsh_trips_pvt.get_name(l_temp_trip_id));
1362: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1363:
1358: CLOSE c_del_assign_to_trip;
1359: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1360: FND_MESSAGE.SET_NAME('FTE', 'FTE_SEGMENT_CSM_CHANGE_ERROR');
1361: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME', wsh_trips_pvt.get_name(l_temp_trip_id));
1362: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1363:
1364: wsh_util_core.api_post_call(
1365: p_return_status => l_return_status,
1366: x_num_warnings => l_num_warnings,
1360: FND_MESSAGE.SET_NAME('FTE', 'FTE_SEGMENT_CSM_CHANGE_ERROR');
1361: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME', wsh_trips_pvt.get_name(l_temp_trip_id));
1362: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1363:
1364: wsh_util_core.api_post_call(
1365: p_return_status => l_return_status,
1366: x_num_warnings => l_num_warnings,
1367: x_num_errors => l_num_errors);
1368: END IF;
1384: ( p_ship_method_code => l_ship_method_code,
1385: p_ship_method_name => l_ship_method_name,
1386: x_return_status => l_return_status
1387: );
1388: wsh_util_core.api_post_call(p_return_status => l_return_status,
1389: x_num_warnings => l_num_warnings,
1390: x_num_errors => l_num_errors);
1391: END IF;
1392:
1414: IF l_debug_on THEN
1415: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Report_Set',l_return_status);
1416: END IF;
1417: --
1418: wsh_util_core.api_post_call(
1419: p_return_status => l_return_status,
1420: x_num_warnings => l_num_warnings,
1421: x_num_errors => l_num_errors);
1422: --
1466: IF l_debug_on THEN
1467: wsh_debug_sv.log(l_module_name,'Return Status After Calling Confirm_Delivery',l_return_status);
1468: END IF;
1469: --
1470: wsh_util_core.api_post_call(
1471: p_return_status => l_return_status,
1472: x_num_warnings => l_num_warnings,
1473: x_num_errors => l_num_errors);
1474: --
1477: -- Bug#5864517: Needs to call Print_Label API irrespective of p_intransit_flag and p_close_flag
1478: -- flag values.
1479: --
1480: IF l_debug_on THEN
1481: WSH_DEBUG_SV.log(l_module_name,'Calling WSH_UTIL_CORE.Print_Label');
1482: END IF;
1483:
1484: WSH_UTIL_CORE.Print_Label(
1485: p_stop_ids => l_dummy_id_tab,
1480: IF l_debug_on THEN
1481: WSH_DEBUG_SV.log(l_module_name,'Calling WSH_UTIL_CORE.Print_Label');
1482: END IF;
1483:
1484: WSH_UTIL_CORE.Print_Label(
1485: p_stop_ids => l_dummy_id_tab,
1486: p_delivery_ids => l_delivery_id_tab,
1487: x_return_status => l_return_status);
1488: --
1489: IF l_debug_on THEN
1490: wsh_debug_sv.log(l_module_name,'Return Status After Calling Print_Label',l_return_status);
1491: END IF;
1492: --
1493: wsh_util_core.api_post_call(
1494: p_return_status => l_return_status,
1495: x_num_warnings => l_num_warnings,
1496: x_num_errors => l_num_errors);
1497: --
1510: IF l_debug_on THEN
1511: wsh_debug_sv.log(l_module_name,'Return Status After Calling Change_Status',l_return_status);
1512: END IF;
1513: --
1514: wsh_util_core.api_post_call(
1515: p_return_status => l_return_status,
1516: x_num_warnings => l_num_warnings,
1517: x_num_errors => l_num_errors);
1518: --
1528: IF l_debug_on THEN
1529: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Trip_Name',l_return_status);
1530: END IF;
1531: --
1532: wsh_util_core.api_post_call(
1533: p_return_status => l_return_status,
1534: x_num_warnings => l_num_warnings,
1535: x_num_errors => l_num_errors);
1536: --
1547: IF l_debug_on THEN
1548: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Trip_Status',l_return_status);
1549: END IF;
1550: --
1551: wsh_util_core.api_post_call(
1552: p_return_status => l_return_status,
1553: x_num_warnings => l_num_warnings,
1554: x_num_errors => l_num_errors);
1555: --
1566: IF l_debug_on THEN
1567: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Location',l_return_status);
1568: END IF;
1569: --
1570: wsh_util_core.api_post_call(
1571: p_return_status => l_return_status,
1572: x_num_warnings => l_num_warnings,
1573: x_num_errors => l_num_errors);
1574: --
1581: IF l_debug_on THEN
1582: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Location',l_return_status);
1583: END IF;
1584: --
1585: wsh_util_core.api_post_call(
1586: p_return_status => l_return_status,
1587: x_num_warnings => l_num_warnings,
1588: x_num_errors => l_num_errors);
1589: --
1605: IF l_debug_on THEN
1606: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Stop_Name for pickup',l_return_status);
1607: END IF;
1608: --
1609: wsh_util_core.api_post_call(
1610: p_return_status => l_return_status,
1611: x_num_warnings => l_num_warnings,
1612: x_num_errors => l_num_errors);
1613: --
1625: IF l_debug_on THEN
1626: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Stop_Name for drop off',l_return_status);
1627: END IF;
1628: --
1629: wsh_util_core.api_post_call(
1630: p_return_status => l_return_status,
1631: x_num_warnings => l_num_warnings,
1632: x_num_errors => l_num_errors);
1633: --
1654: IF l_debug_on THEN
1655: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Sequence_Number',l_return_status);
1656: END IF;
1657: --
1658: wsh_util_core.api_post_call(
1659: p_return_status => l_return_status,
1660: x_num_warnings => l_num_warnings,
1661: x_num_errors => l_num_errors);
1662: --
1670: IF l_debug_on THEN
1671: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Sequence_Number',l_return_status);
1672: END IF;
1673: --
1674: wsh_util_core.api_post_call(
1675: p_return_status => l_return_status,
1676: x_num_warnings => l_num_warnings,
1677: x_num_errors => l_num_errors);
1678: --
1684:
1685: IF p_action_prms.pickup_dep_date is not NULL and
1686: p_action_prms.pickup_arr_date is not NULL and
1687: (p_action_prms.pickup_dep_date < p_action_prms.pickup_arr_date) THEN
1688: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1689:
1690: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1691: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1692: wsh_util_core.add_message(l_return_status, l_module_name);
1686: p_action_prms.pickup_arr_date is not NULL and
1687: (p_action_prms.pickup_dep_date < p_action_prms.pickup_arr_date) THEN
1688: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1689:
1690: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1691: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1692: wsh_util_core.add_message(l_return_status, l_module_name);
1693:
1694: wsh_util_core.api_post_call(
1688: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1689:
1690: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1691: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1692: wsh_util_core.add_message(l_return_status, l_module_name);
1693:
1694: wsh_util_core.api_post_call(
1695: p_return_status => l_return_status,
1696: x_num_warnings => l_num_warnings,
1690: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1691: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1692: wsh_util_core.add_message(l_return_status, l_module_name);
1693:
1694: wsh_util_core.api_post_call(
1695: p_return_status => l_return_status,
1696: x_num_warnings => l_num_warnings,
1697: x_num_errors => l_num_errors);
1698: END IF;
1700: IF p_action_prms.dropoff_dep_date is not NULL and
1701: p_action_prms.dropoff_arr_date is not NULL and
1702: (p_action_prms.dropoff_dep_date < p_action_prms.dropoff_arr_date) THEN
1703:
1704: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1705: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1706: wsh_util_core.add_message(l_return_status, l_module_name);
1707:
1708: wsh_util_core.api_post_call(
1702: (p_action_prms.dropoff_dep_date < p_action_prms.dropoff_arr_date) THEN
1703:
1704: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1705: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1706: wsh_util_core.add_message(l_return_status, l_module_name);
1707:
1708: wsh_util_core.api_post_call(
1709: p_return_status => l_return_status,
1710: x_num_warnings => l_num_warnings,
1704: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1705: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1706: wsh_util_core.add_message(l_return_status, l_module_name);
1707:
1708: wsh_util_core.api_post_call(
1709: p_return_status => l_return_status,
1710: x_num_warnings => l_num_warnings,
1711: x_num_errors => l_num_errors);
1712: END IF;
1734: END IF;
1735:
1736: FND_MESSAGE.SET_NAME('WSH', 'WSH_OTM_ASSIGN_TRIP');
1737:
1738: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1739: WSH_UTIL_CORE.add_message(x_return_status, l_module_name);
1740:
1741: wsh_util_core.api_post_call(
1742: p_return_status => l_return_status,
1735:
1736: FND_MESSAGE.SET_NAME('WSH', 'WSH_OTM_ASSIGN_TRIP');
1737:
1738: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1739: WSH_UTIL_CORE.add_message(x_return_status, l_module_name);
1740:
1741: wsh_util_core.api_post_call(
1742: p_return_status => l_return_status,
1743: x_num_warnings => l_num_warnings,
1737:
1738: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1739: WSH_UTIL_CORE.add_message(x_return_status, l_module_name);
1740:
1741: wsh_util_core.api_post_call(
1742: p_return_status => l_return_status,
1743: x_num_warnings => l_num_warnings,
1744: x_num_errors => l_num_errors);
1745:
1770: IF l_debug_on THEN
1771: wsh_debug_sv.log(l_module_name,'Return Status After Calling Assign_Trip',l_return_status);
1772: END IF;
1773: --
1774: wsh_util_core.api_post_call(
1775: p_return_status => l_return_status,
1776: x_num_warnings => l_num_warnings,
1777: x_num_errors => l_num_errors);
1778: --
1789: IF l_debug_on THEN
1790: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Trip_Name',l_return_status);
1791: END IF;
1792: --
1793: wsh_util_core.api_post_call(
1794: p_return_status => l_return_status,
1795: x_num_warnings => l_num_warnings,
1796: x_num_errors => l_num_errors);
1797: --
1805: IF l_debug_on THEN
1806: wsh_debug_sv.log(l_module_name,'Return Status After Calling Unassign_Trip',l_return_status);
1807: END IF;
1808: --
1809: wsh_util_core.api_post_call(
1810: p_return_status => l_return_status,
1811: x_num_warnings => l_num_warnings,
1812: x_num_errors => l_num_errors);
1813: --
1838: IF l_debug_on THEN
1839: wsh_debug_sv.log(l_module_name,'Return Status After Calling change_ignoreplan_sttatus',l_return_status);
1840: END IF;
1841:
1842: WSH_UTIL_CORE.api_post_call(
1843: p_return_status => l_return_status,
1844: x_num_warnings => l_num_warnings,
1845: x_num_errors => l_num_errors);
1846:
1869: IF l_debug_on THEN
1870: wsh_debug_sv.log(l_module_name,'Return Status After Calling update_tms_interface_flag',l_return_status);
1871: END IF;
1872:
1873: WSH_UTIL_CORE.api_post_call(
1874: p_return_status => l_return_status,
1875: x_num_warnings => l_num_warnings,
1876: x_num_errors => l_num_errors);
1877:
1896:
1897: ELSIF p_action_prms.action_code = 'AUTOCREATE-TRIP' THEN
1898: --
1899: --Compatibility Changes
1900: IF wsh_util_core.fte_is_installed = 'Y' AND l_cc_line_groups.COUNT>0 THEN
1901:
1902: --1. get the group ids by which the constraints API has grouped the lines
1903: l_cc_count_group_ids:=1;
1904: FOR i in l_cc_line_groups.FIRST..l_cc_line_groups.LAST LOOP
1989: l_cc_trip_id(l_cc_trip_id.COUNT+1):=x_delivery_out_rec.result_id_tab(l_tripindex);
1990: END LOOP;
1991: END IF;--x_delivery_out_rec.result_id_tab
1992: --
1993: IF (l_cc_return_status is not null AND l_cc_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1994: l_return_status:=l_cc_return_status;
1995: ELSIF (l_cc_return_status is not null AND l_cc_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING AND l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1996: l_return_status:=l_cc_return_status;
1997: ELSE
1991: END IF;--x_delivery_out_rec.result_id_tab
1992: --
1993: IF (l_cc_return_status is not null AND l_cc_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1994: l_return_status:=l_cc_return_status;
1995: ELSIF (l_cc_return_status is not null AND l_cc_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING AND l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1996: l_return_status:=l_cc_return_status;
1997: ELSE
1998: l_cc_return_status:=l_return_status;
1999: END IF;
2018: IF l_debug_on THEN
2019: wsh_debug_sv.log(l_module_name,'Return Status After Calling Autocreate_Trip',l_return_status);
2020: END IF;
2021: --
2022: wsh_util_core.api_post_call(
2023: p_return_status => l_return_status,
2024: x_num_warnings => l_num_warnings,
2025: x_num_errors => l_num_errors);
2026: --
2027: -- rlanka : Trip Consolidation Pack J
2028: --
2029: ELSIF p_action_prms.action_code = 'TRIP-CONSOLIDATION' THEN
2030: --
2031: IF wsh_util_core.fte_is_installed = 'Y' AND l_cc_line_groups.COUNT > 0 THEN
2032: --{
2033: -- 1. get the group ids by which the constraints API has grouped the lines
2034: --
2035: l_cc_count_group_ids:=1;
2119: --
2120: END LOOP;
2121: --
2122: IF (l_cc_return_status is not null AND
2123: l_cc_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2124: l_return_status:=l_cc_return_status;
2125: ELSIF (l_cc_return_status is not null AND
2126: l_cc_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING AND
2127: l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2122: IF (l_cc_return_status is not null AND
2123: l_cc_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2124: l_return_status:=l_cc_return_status;
2125: ELSIF (l_cc_return_status is not null AND
2126: l_cc_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING AND
2127: l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2128: l_return_status:=l_cc_return_status;
2129: ELSE
2130: l_cc_return_status:=l_return_status;
2123: l_cc_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2124: l_return_status:=l_cc_return_status;
2125: ELSIF (l_cc_return_status is not null AND
2126: l_cc_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING AND
2127: l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2128: l_return_status:=l_cc_return_status;
2129: ELSE
2130: l_cc_return_status:=l_return_status;
2131: END IF;
2162: IF l_debug_on THEN
2163: wsh_debug_sv.log(l_module_name,'Return Status After GroupDelivsIntoTrips',l_return_status);
2164: END IF;
2165: --
2166: wsh_util_core.api_post_call(
2167: p_return_status => l_return_status,
2168: x_num_warnings => l_num_warnings,
2169: x_num_errors => l_num_errors);
2170: --
2171: ELSIF p_action_prms.action_code = 'OUTBOUND-DOCUMENT' THEN
2172: --
2173: IF p_rec_attr_tab.COUNT > 1 THEN
2174: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2175: x_return_status := wsh_util_core.g_ret_sts_error;
2176: wsh_util_core.add_message(x_return_status,l_module_name);
2177: IF l_debug_on THEN
2178: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2179: END IF;
2172: --
2173: IF p_rec_attr_tab.COUNT > 1 THEN
2174: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2175: x_return_status := wsh_util_core.g_ret_sts_error;
2176: wsh_util_core.add_message(x_return_status,l_module_name);
2177: IF l_debug_on THEN
2178: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2179: END IF;
2180: RAISE FND_API.G_EXC_ERROR;
2191: IF l_debug_on THEN
2192: wsh_debug_sv.log(l_module_name,'Return Status After Calling Send_Document',l_return_status);
2193: END IF;
2194: --
2195: wsh_util_core.api_post_call(
2196: p_return_status => l_return_status,
2197: x_num_warnings => l_num_warnings,
2198: x_num_errors => l_num_errors);
2199: --
2198: x_num_errors => l_num_errors);
2199: --
2200: ELSIF p_action_prms.action_code = 'SELECT-CARRIER' THEN
2201: --
2202: IF wsh_util_core.fte_is_installed = 'Y' THEN
2203: --
2204: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2205: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2206: x_return_status := wsh_util_core.g_ret_sts_error;
2202: IF wsh_util_core.fte_is_installed = 'Y' THEN
2203: --
2204: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2205: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2206: x_return_status := wsh_util_core.g_ret_sts_error;
2207: wsh_util_core.add_message(x_return_status,l_module_name);
2208: FND_MSG_PUB.ADD;
2209: IF l_debug_on THEN
2210: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2203: --
2204: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2205: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2206: x_return_status := wsh_util_core.g_ret_sts_error;
2207: wsh_util_core.add_message(x_return_status,l_module_name);
2208: FND_MSG_PUB.ADD;
2209: IF l_debug_on THEN
2210: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2211: END IF;
2242: wsh_debug_sv.log(l_module_name,'Return Status After Calling Process_Carrier_Selection',l_return_status);
2243: END IF;
2244: --
2245: ELSE
2246: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2247: END IF;
2248:
2249: wsh_util_core.api_post_call(
2250: p_return_status => l_return_status,
2245: ELSE
2246: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2247: END IF;
2248:
2249: wsh_util_core.api_post_call(
2250: p_return_status => l_return_status,
2251: x_num_warnings => l_num_warnings,
2252: x_num_errors => l_num_errors);
2253:
2254:
2255: --
2256: ELSE
2257: FND_MESSAGE.SET_NAME('FTE', 'FTE_NOT_INSTALLED');
2258: x_return_status := wsh_util_core.g_ret_sts_error;
2259: wsh_util_core.add_message(x_return_status,l_module_name);
2260: IF l_debug_on THEN
2261: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2262: END IF;
2255: --
2256: ELSE
2257: FND_MESSAGE.SET_NAME('FTE', 'FTE_NOT_INSTALLED');
2258: x_return_status := wsh_util_core.g_ret_sts_error;
2259: wsh_util_core.add_message(x_return_status,l_module_name);
2260: IF l_debug_on THEN
2261: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2262: END IF;
2263: RAISE FND_API.G_EXC_ERROR;
2280: l_new_delivery_id_tab(l_counter) := l_delivery_id_tab(i);
2281: l_counter := l_counter + 1;
2282: ELSE
2283: --add a message for the delivery that cannot be deleted.
2284: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2285:
2286: IF l_debug_on THEN
2287: wsh_debug_sv.logmsg(l_module_name,'ERROR: delivery ' || l_delivery_id_tab(i) || ' cannot be deleted when it is not NS status');
2288: END IF;
2292:
2293: --we do not want the prefix error or warning for the message, so adding it with success
2294: --status will leave out the prefix. Reason being this is an error message but could be
2295: --displayed as a warning if not all deliveries fail.
2296: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_SUCCESS, l_module_name);
2297:
2298: l_num_warnings := l_num_warnings + 1;
2299:
2300: END IF;
2301: i := l_delivery_id_tab.NEXT(i);
2302: END LOOP;
2303:
2304: IF (l_new_delivery_id_tab.COUNT = 0) THEN
2305: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2306:
2307: IF l_debug_on THEN
2308: WSH_DEBUG_SV.log(l_module_name,'0 deliveries to delete');
2309: END IF;
2307: IF l_debug_on THEN
2308: WSH_DEBUG_SV.log(l_module_name,'0 deliveries to delete');
2309: END IF;
2310:
2311: wsh_util_core.api_post_call(
2312: p_return_status => l_return_status,
2313: x_num_warnings => l_num_warnings,
2314: x_num_errors => l_num_errors);
2315:
2319: l_delivery_id_tab := l_new_delivery_id_tab;
2320: END IF;
2321: --END OTM R12
2322:
2323: WSH_UTIL_CORE.Delete(
2324: p_type => 'DLVY',
2325: p_rows => l_delivery_id_tab,
2326: x_return_status => l_return_status);
2327: --
2328: IF l_debug_on THEN
2329: wsh_debug_sv.log(l_module_name,'Return Status After Calling Delete',l_return_status);
2330: END IF;
2331: --
2332: wsh_util_core.api_post_call(
2333: p_return_status => l_return_status,
2334: x_num_warnings => l_num_warnings,
2335: x_num_errors => l_num_errors);
2336: --
2339: /* ELSIF p_action_prms.action_code = 'GENERATE-PACK-SLIP' THEN
2340: --
2341: IF p_rec_attr_tab.COUNT > 1 THEN
2342: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2343: x_return_status := wsh_util_core.g_ret_sts_error;
2344: wsh_util_core.add_message(x_return_status,l_module_name);
2345: IF l_debug_on THEN
2346: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2347: END IF;
2340: --
2341: IF p_rec_attr_tab.COUNT > 1 THEN
2342: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2343: x_return_status := wsh_util_core.g_ret_sts_error;
2344: wsh_util_core.add_message(x_return_status,l_module_name);
2345: IF l_debug_on THEN
2346: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2347: END IF;
2348: RAISE FND_API.G_EXC_ERROR;
2365: IF l_debug_on THEN
2366: wsh_debug_sv.log(l_module_name,'Return Status After Calling Insert_Row',l_return_status);
2367: END IF;
2368: --
2369: wsh_util_core.api_post_call(
2370: p_return_status => l_return_status,
2371: x_num_warnings => l_num_warnings,
2372: x_num_errors => l_num_errors,
2373: p_msg_data => l_msg_data);
2377: AND p_action_prms.caller = 'WSH_FSTRX' THEN
2378: --
2379: IF p_rec_attr_tab.COUNT > 1 THEN
2380: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2381: x_return_status := wsh_util_core.g_ret_sts_error;
2382: wsh_util_core.add_message(x_return_status,l_module_name);
2383: IF l_debug_on THEN
2384: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2385: END IF;
2378: --
2379: IF p_rec_attr_tab.COUNT > 1 THEN
2380: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2381: x_return_status := wsh_util_core.g_ret_sts_error;
2382: wsh_util_core.add_message(x_return_status,l_module_name);
2383: IF l_debug_on THEN
2384: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2385: END IF;
2386: RAISE FND_API.G_EXC_ERROR;
2408: END IF;
2409:
2410: /* IF p_rec_attr_tab.COUNT > 1 THEN
2411: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2412: x_return_status := wsh_util_core.g_ret_sts_error;
2413: wsh_util_core.add_message(x_return_status,l_module_name);
2414: IF l_debug_on THEN
2415: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2416: END IF;
2409:
2410: /* IF p_rec_attr_tab.COUNT > 1 THEN
2411: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2412: x_return_status := wsh_util_core.g_ret_sts_error;
2413: wsh_util_core.add_message(x_return_status,l_module_name);
2414: IF l_debug_on THEN
2415: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2416: END IF;
2417: RAISE FND_API.G_EXC_ERROR;
2442: IF l_debug_on THEN
2443: wsh_debug_sv.log(l_module_name,'Return Status After Calling Insert_Row',l_return_status);
2444: END IF;
2445: --
2446: wsh_util_core.api_post_call(
2447: p_return_status => l_return_status,
2448: x_num_warnings => l_loop_num_warn,
2449: x_num_errors => l_loop_num_err,
2450: p_msg_data => l_msg_data);
2463: IF l_num_errors > 0 THEN
2464: IF l_num_errors = p_rec_attr_tab.count THEN
2465: RAISE FND_API.G_EXC_ERROR;
2466: ELSE
2467: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2468: END IF;
2469: ELSIF l_num_warnings > 0 THEN
2470: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2471: END IF;
2466: ELSE
2467: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2468: END IF;
2469: ELSIF l_num_warnings > 0 THEN
2470: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2471: END IF;
2472: --
2473:
2474: ELSIF p_action_prms.action_code IN ('PICK-RELEASE-UI','RESOLVE-EXCEPTIONS-UI','TRANSACTION-HISTORY-UI','FREIGHT-COSTS-UI')
2475: AND p_action_prms.caller = 'WSH_FSTRX' THEN
2476: --
2477: IF p_rec_attr_tab.COUNT > 1 THEN
2478: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2479: x_return_status := wsh_util_core.g_ret_sts_error;
2480: wsh_util_core.add_message(x_return_status,l_module_name);
2481: IF l_debug_on THEN
2482: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2483: END IF;
2476: --
2477: IF p_rec_attr_tab.COUNT > 1 THEN
2478: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2479: x_return_status := wsh_util_core.g_ret_sts_error;
2480: wsh_util_core.add_message(x_return_status,l_module_name);
2481: IF l_debug_on THEN
2482: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2483: END IF;
2484: RAISE FND_API.G_EXC_ERROR;
2487:
2488: ELSIF p_action_prms.action_code = 'GET-FREIGHT-COSTS' THEN
2489: --
2490:
2491: IF wsh_util_core.fte_is_installed = 'Y' THEN
2492: --
2493: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2494: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2495: x_return_status := wsh_util_core.g_ret_sts_error;
2491: IF wsh_util_core.fte_is_installed = 'Y' THEN
2492: --
2493: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2494: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2495: x_return_status := wsh_util_core.g_ret_sts_error;
2496: wsh_util_core.add_message(x_return_status,l_module_name);
2497: FND_MSG_PUB.ADD;
2498: IF l_debug_on THEN
2499: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2492: --
2493: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2494: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2495: x_return_status := wsh_util_core.g_ret_sts_error;
2496: wsh_util_core.add_message(x_return_status,l_module_name);
2497: FND_MSG_PUB.ADD;
2498: IF l_debug_on THEN
2499: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2500: END IF;
2531: END IF;
2532:
2533:
2534: IF p_action_prms.caller = 'WSH_DLMG' AND
2535: l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING ) THEN
2536: -- csun deliveryMerge , log exception
2537:
2538: i := l_out_param_rec.failed_delivery_id_list.FIRST;
2539: WHILE i is not NULL LOOP
2563: p_delivery_id => l_out_param_rec.failed_delivery_id_list(i));
2564: i := l_out_param_rec.failed_delivery_id_list.next(i);
2565: END LOOP;
2566:
2567: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2568:
2569: END IF;
2570:
2571: wsh_util_core.api_post_call(
2567: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2568:
2569: END IF;
2570:
2571: wsh_util_core.api_post_call(
2572: p_return_status => l_return_status,
2573: x_num_warnings => l_num_warnings,
2574: x_num_errors => l_num_errors,
2575: p_msg_data => l_msg_data);
2576:
2577: ELSE
2578: -- FTE is not installed
2579: FND_MESSAGE.SET_NAME('FTE', 'FTE_NOT_INSTALLED');
2580: x_return_status := wsh_util_core.g_ret_sts_error;
2581: wsh_util_core.add_message(x_return_status,l_module_name);
2582: IF l_debug_on THEN
2583: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2584: END IF;
2577: ELSE
2578: -- FTE is not installed
2579: FND_MESSAGE.SET_NAME('FTE', 'FTE_NOT_INSTALLED');
2580: x_return_status := wsh_util_core.g_ret_sts_error;
2581: wsh_util_core.add_message(x_return_status,l_module_name);
2582: IF l_debug_on THEN
2583: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2584: END IF;
2585: RAISE FND_API.G_EXC_ERROR;
2601: IF l_debug_on THEN
2602: wsh_debug_sv.log(l_module_name,'Return Status After Cancel Ship Method',l_return_status);
2603: END IF;
2604:
2605: wsh_util_core.api_post_call(
2606: p_return_status => l_return_status,
2607: x_num_warnings => l_num_warnings,
2608: x_num_errors => l_num_errors,
2609: p_msg_data => l_msg_data);
2622: IF l_debug_on THEN
2623: wsh_debug_sv.log(l_module_name,'Return Status from WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',l_return_status);
2624: END IF;
2625:
2626: wsh_util_core.api_post_call(
2627: p_return_status => l_return_status,
2628: x_num_warnings => l_num_warnings,
2629: x_num_errors => l_num_errors,
2630: p_msg_data => l_msg_data);
2667: x_msg_data => l_msg_data);
2668:
2669: -- Set raise error flag to false ,continue with next delivery in the loop
2670: -- after end of loop, check for l_num_errors
2671: wsh_util_core.api_post_call(
2672: p_return_status => l_return_status,
2673: x_num_warnings => l_loop_num_warn,
2674: x_num_errors => l_loop_num_err,
2675: p_msg_data => l_msg_data,
2716: p_delivery_ids => l_doc_delivery_id_tab,
2717: p_document_param_info => l_dummy_doc_set_params,
2718: x_return_status => l_return_status);
2719:
2720: wsh_util_core.api_post_call(
2721: p_return_status => l_return_status,
2722: x_num_warnings => l_loop_num_warn,
2723: x_num_errors => l_loop_num_err,
2724: p_msg_data => l_msg_data,
2732: IF l_num_errors > 0 THEN
2733: IF l_num_errors = p_rec_attr_tab.count THEN
2734: RAISE FND_API.G_EXC_ERROR;
2735: ELSE
2736: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2737: END IF;
2738: ELSIF l_num_warnings > 0 THEN
2739: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2740: END IF;
2735: ELSE
2736: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2737: END IF;
2738: ELSIF l_num_warnings > 0 THEN
2739: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2740: END IF;
2741:
2742: --} end print pack slip
2743: -- Bug 4493263 : added action 'GENERATE-BOL'
2780: --l_num_errors := l_num_errors + l_loop_num_err;
2781: l_num_errors := l_num_errors + 1;
2782: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NULL_SHIP_METHOD_ERROR');
2783: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(dlvy_leg_rec.trip_id));
2784: l_return_status := wsh_util_core.g_ret_sts_error;
2785: wsh_util_core.add_message(l_return_status,l_module_name);
2786: IF l_debug_on THEN
2787: wsh_debug_sv.log (l_module_name,'No Ship Method for the trip'||dlvy_leg_rec.trip_id);
2788: END IF;
2781: l_num_errors := l_num_errors + 1;
2782: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NULL_SHIP_METHOD_ERROR');
2783: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(dlvy_leg_rec.trip_id));
2784: l_return_status := wsh_util_core.g_ret_sts_error;
2785: wsh_util_core.add_message(l_return_status,l_module_name);
2786: IF l_debug_on THEN
2787: wsh_debug_sv.log (l_module_name,'No Ship Method for the trip'||dlvy_leg_rec.trip_id);
2788: END IF;
2789: exit leg_loop;
2799: p_delivery_leg_id => NVL(dlvy_leg_rec.parent_delivery_leg_id, dlvy_leg_rec.delivery_leg_id),
2800: x_delivery_leg_info => l_dleg_tab(1),
2801: x_return_status => l_return_status);
2802:
2803: wsh_util_core.api_post_call(
2804: p_return_status => l_return_status,
2805: x_num_warnings => l_loop_num_warn,
2806: x_num_errors => l_loop_num_err,
2807: p_raise_error_flag => FALSE);
2808:
2809: -- if there is an error for current delivery leg,
2810: -- need to skip this and proceed with next leg
2811: -- l_num_error count will be checked towards the end
2812: if l_return_status in (wsh_util_core.g_ret_sts_error,
2813: wsh_util_core.g_ret_sts_unexp_error) then
2814: l_num_warnings := l_num_warnings + l_loop_num_warn;
2815: l_num_errors := l_num_errors + l_loop_num_err;
2816: exit leg_loop;
2809: -- if there is an error for current delivery leg,
2810: -- need to skip this and proceed with next leg
2811: -- l_num_error count will be checked towards the end
2812: if l_return_status in (wsh_util_core.g_ret_sts_error,
2813: wsh_util_core.g_ret_sts_unexp_error) then
2814: l_num_warnings := l_num_warnings + l_loop_num_warn;
2815: l_num_errors := l_num_errors + l_loop_num_err;
2816: exit leg_loop;
2817: end if;
2863: -- Set raise error flag to FALSE so that the loop can continue
2864: -- with other legs or deliveries
2865: -- After end of loop, checks for l_num_warning, l_num_errors should set the final return_status
2866:
2867: wsh_util_core.api_post_call(
2868: p_return_status => l_return_status,
2869: x_num_warnings => l_loop_num_warn,
2870: x_num_errors => l_loop_num_err,
2871: p_msg_data => l_msg_data,
2884: IF l_dleg_found = 'N' THEN
2885: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NO_TRIP_FOR_DLVY');
2886: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_rec_attr_tab(i).delivery_id));
2887: l_num_errors := l_num_errors + 1;
2888: l_return_status := wsh_util_core.g_ret_sts_error;
2889: wsh_util_core.add_message(l_return_status,l_module_name);
2890: IF l_debug_on THEN
2891: wsh_debug_sv.log (l_module_name,'WSH_NO_DELIVERY_LEG_FOUND');
2892: END IF;
2885: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NO_TRIP_FOR_DLVY');
2886: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_rec_attr_tab(i).delivery_id));
2887: l_num_errors := l_num_errors + 1;
2888: l_return_status := wsh_util_core.g_ret_sts_error;
2889: wsh_util_core.add_message(l_return_status,l_module_name);
2890: IF l_debug_on THEN
2891: wsh_debug_sv.log (l_module_name,'WSH_NO_DELIVERY_LEG_FOUND');
2892: END IF;
2893: END IF;
2903:
2904: IF l_submitted_docs > 0 THEN
2905: fnd_message.set_name('WSH', 'WSH_PRINT_BOL_REQUEST');
2906: fnd_message.set_token('REQ_IDS', l_req_id_str);
2907: wsh_util_core.add_message(wsh_util_core.g_ret_sts_success);
2908: END IF;
2909:
2910: IF l_num_errors > 0 THEN
2911: -- 3311273
2911: -- 3311273
2912: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_SUMMARY_MESG');
2913: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',l_num_errors );
2914: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',p_rec_attr_tab.count - l_num_errors );
2915: l_return_status := wsh_util_core.g_ret_sts_error;
2916: wsh_util_core.add_message(l_return_status,l_module_name);
2917: IF l_debug_on THEN
2918: wsh_debug_sv.log (l_module_name,'Error processing deliveries-'||l_num_errors);
2919: END IF;
2912: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_SUMMARY_MESG');
2913: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',l_num_errors );
2914: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',p_rec_attr_tab.count - l_num_errors );
2915: l_return_status := wsh_util_core.g_ret_sts_error;
2916: wsh_util_core.add_message(l_return_status,l_module_name);
2917: IF l_debug_on THEN
2918: wsh_debug_sv.log (l_module_name,'Error processing deliveries-'||l_num_errors);
2919: END IF;
2920: -- End of 3311273
2920: -- End of 3311273
2921: IF l_num_errors = p_rec_attr_tab.count THEN
2922: RAISE FND_API.G_EXC_ERROR;
2923: ELSE
2924: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2925: END IF;
2926: ELSIF l_num_warnings > 0 THEN
2927: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2928: END IF;
2923: ELSE
2924: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2925: END IF;
2926: ELSIF l_num_warnings > 0 THEN
2927: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2928: END IF;
2929:
2930: --} end print bol
2931: ELSE
2931: ELSE
2932: --
2933: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
2934: FND_MESSAGE.SET_TOKEN('ACT_CODE',p_action_prms.action_code );
2935: x_return_status := wsh_util_core.g_ret_sts_error;
2936: wsh_util_core.add_message(x_return_status,l_module_name);
2937: IF l_debug_on THEN
2938: wsh_debug_sv.log (l_module_name,'WSH_INVALID_ACTION_CODE');
2939: END IF;
2932: --
2933: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
2934: FND_MESSAGE.SET_TOKEN('ACT_CODE',p_action_prms.action_code );
2935: x_return_status := wsh_util_core.g_ret_sts_error;
2936: wsh_util_core.add_message(x_return_status,l_module_name);
2937: IF l_debug_on THEN
2938: wsh_debug_sv.log (l_module_name,'WSH_INVALID_ACTION_CODE');
2939: END IF;
2940: RAISE FND_API.G_EXC_ERROR;
2967: IF l_debug_on THEN
2968: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
2969: END IF;
2970: --
2971: WSH_UTIL_CORE.API_POST_CALL
2972: (
2973: p_return_status => l_return_status,
2974: x_num_warnings => l_num_warnings,
2975: x_num_errors => l_num_errors
3034: IF l_num_warnings > 0 THEN
3035: IF l_debug_on THEN
3036: WSH_DEBUG_SV.log(l_module_name, 'l_num_warnings', l_num_warnings);
3037: END IF;
3038: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3039: ELSE
3040: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3041: END IF;
3042: --
3036: WSH_DEBUG_SV.log(l_module_name, 'l_num_warnings', l_num_warnings);
3037: END IF;
3038: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3039: ELSE
3040: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3041: END IF;
3042: --
3043: IF l_debug_on THEN
3044: WSH_DEBUG_SV.log(l_module_name, 'Return status ', l_return_status);
3049: -- Standard check of p_commit.
3050: IF FND_API.To_Boolean( p_commit ) THEN
3051:
3052: --bug 4070732
3053: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3054: --{
3055:
3056: l_reset_flags := FALSE;
3057:
3055:
3056: l_reset_flags := FALSE;
3057:
3058: IF l_debug_on THEN
3059: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3060: END IF;
3061:
3062: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
3063: x_return_status => l_return_status);
3058: IF l_debug_on THEN
3059: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3060: END IF;
3061:
3062: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
3063: x_return_status => l_return_status);
3064:
3065: IF l_debug_on THEN
3066: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3065: IF l_debug_on THEN
3066: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3067: END IF;
3068:
3069: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3070: RAISE FND_API.G_EXC_ERROR;
3071: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3073: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3067: END IF;
3068:
3069: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3070: RAISE FND_API.G_EXC_ERROR;
3071: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3073: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3074: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3075: END IF;
3069: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3070: RAISE FND_API.G_EXC_ERROR;
3071: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3073: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3074: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3075: END IF;
3076:
3077: --}
3070: RAISE FND_API.G_EXC_ERROR;
3071: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3072: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3073: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3074: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3075: END IF;
3076:
3077: --}
3078: END IF;
3081: COMMIT WORK;
3082: END IF;
3083: --
3084: --bug 4070732
3085: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3086: --{
3087: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3088: --{
3089:
3083: --
3084: --bug 4070732
3085: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3086: --{
3087: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3088: --{
3089:
3090: IF FND_API.To_Boolean( p_commit ) THEN
3091: IF l_debug_on THEN
3088: --{
3089:
3090: IF FND_API.To_Boolean( p_commit ) THEN
3091: IF l_debug_on THEN
3092: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3093: END IF;
3094:
3095: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
3096: x_return_status => l_return_status);
3091: IF l_debug_on THEN
3092: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3093: END IF;
3094:
3095: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
3096: x_return_status => l_return_status);
3097:
3098: ELSE
3099:
3098: ELSE
3099:
3100:
3101: IF l_debug_on THEN
3102: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3103: END IF;
3104:
3105: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3106: x_return_status => l_return_status);
3101: IF l_debug_on THEN
3102: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3103: END IF;
3104:
3105: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3106: x_return_status => l_return_status);
3107: END IF;
3108:
3109: IF l_debug_on THEN
3109: IF l_debug_on THEN
3110: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3111: END IF;
3112:
3113: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3114: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3115: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3116: x_return_status := l_return_status;
3117: END IF;
3110: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3111: END IF;
3112:
3113: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3114: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3115: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3116: x_return_status := l_return_status;
3117: END IF;
3118:
3111: END IF;
3112:
3113: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3114: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3115: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3116: x_return_status := l_return_status;
3117: END IF;
3118:
3119: --}
3142: --
3143: EXCEPTION
3144: WHEN FND_API.G_EXC_ERROR THEN
3145: -- ROLLBACK TO DELIVERY_ACTION_GRP;
3146: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3147:
3148: --OTM R12
3149: IF (c_get_delivery_id%ISOPEN) THEN
3150: CLOSE c_get_delivery_id;
3172: IF l_debug_on THEN
3173: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
3174: END IF;
3175: --
3176: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3177: x_return_status := l_return_status;
3178: END IF;
3179: --}
3180: END IF;
3183:
3184: --
3185: -- Start code for Bugfix 4070732
3186: --
3187: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3188: --{
3189: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3190: --{
3191: IF l_debug_on THEN
3185: -- Start code for Bugfix 4070732
3186: --
3187: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3188: --{
3189: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3190: --{
3191: IF l_debug_on THEN
3192: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3193: END IF;
3188: --{
3189: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3190: --{
3191: IF l_debug_on THEN
3192: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3193: END IF;
3194:
3195: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3196: x_return_status => l_return_status);
3191: IF l_debug_on THEN
3192: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3193: END IF;
3194:
3195: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3196: x_return_status => l_return_status);
3197:
3198:
3199: IF l_debug_on THEN
3199: IF l_debug_on THEN
3200: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3201: END IF;
3202:
3203: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3204: x_return_status := l_return_status;
3205: END IF;
3206: --}
3207: END IF;
3223: END IF;
3224: --
3225: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3226: -- ROLLBACK TO DELIVERY_ACTION_GRP;
3227: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3228:
3229: --OTM R12
3230: IF (c_get_delivery_id%ISOPEN) THEN
3231: CLOSE c_get_delivery_id;
3260: --
3261: --
3262: -- Start code for Bugfix 4070732
3263: --
3264: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3265: --{
3266: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3267: --{
3268: IF l_debug_on THEN
3262: -- Start code for Bugfix 4070732
3263: --
3264: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3265: --{
3266: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3267: --{
3268: IF l_debug_on THEN
3269: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3270: END IF;
3265: --{
3266: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3267: --{
3268: IF l_debug_on THEN
3269: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3270: END IF;
3271:
3272: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3273: x_return_status => l_return_status);
3268: IF l_debug_on THEN
3269: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3270: END IF;
3271:
3272: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3273: x_return_status => l_return_status);
3274:
3275:
3276: IF l_debug_on THEN
3276: IF l_debug_on THEN
3277: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3278: END IF;
3279:
3280: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3281: x_return_status := l_return_status;
3282: END IF;
3283: --}
3284: END IF;
3299: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3300: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3301: END IF;
3302: --
3303: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3304:
3305: --OTM R12
3306: IF (c_get_delivery_id%ISOPEN) THEN
3307: CLOSE c_get_delivery_id;
3308: END IF;
3309: --
3310:
3311: IF l_debug_on THEN
3312: WSH_DEBUG_SV.logmsg(l_module_name,' Raising: WSH_UTIL_CORE.G_EXC_WARNING');
3313: END IF;
3314: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3315: --
3316: -- K LPN CONV. rv
3310:
3311: IF l_debug_on THEN
3312: WSH_DEBUG_SV.logmsg(l_module_name,' Raising: WSH_UTIL_CORE.G_EXC_WARNING');
3313: END IF;
3314: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3315: --
3316: -- K LPN CONV. rv
3317: --
3318: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3333: IF l_debug_on THEN
3334: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
3335: END IF;
3336: --
3337: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3338: x_return_status := l_return_status;
3339: END IF;
3340: --}
3341: END IF;
3344:
3345: --
3346: -- Start code for Bugfix 4070732
3347: --
3348: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3349: --{
3350: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3351: --{
3352: IF l_debug_on THEN
3346: -- Start code for Bugfix 4070732
3347: --
3348: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3349: --{
3350: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3351: --{
3352: IF l_debug_on THEN
3353: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3354: END IF;
3349: --{
3350: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3351: --{
3352: IF l_debug_on THEN
3353: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3354: END IF;
3355:
3356: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3357: x_return_status => l_return_status);
3352: IF l_debug_on THEN
3353: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3354: END IF;
3355:
3356: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3357: x_return_status => l_return_status);
3358:
3359:
3360: IF l_debug_on THEN
3360: IF l_debug_on THEN
3361: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3362: END IF;
3363:
3364: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3365: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3366: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3367: x_return_status := l_return_status;
3368: END IF;
3361: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3362: END IF;
3363:
3364: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3365: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3366: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3367: x_return_status := l_return_status;
3368: END IF;
3369:
3362: END IF;
3363:
3364: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3365: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3366: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3367: x_return_status := l_return_status;
3368: END IF;
3369:
3370: --}
3384: p_encoded => FND_API.G_FALSE
3385: );
3386: --
3387: IF l_debug_on THEN
3388: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3389: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3390: END IF;
3391: --
3392: WHEN OTHERS THEN
3385: );
3386: --
3387: IF l_debug_on THEN
3388: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3389: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3390: END IF;
3391: --
3392: WHEN OTHERS THEN
3393:
3423: --}
3424: END IF;
3425: -- K LPN CONV. rv
3426: --
3427: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3428: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.DELIVERY_ACTION');
3429:
3430: --
3431: -- Start code for Bugfix 4070732
3424: END IF;
3425: -- K LPN CONV. rv
3426: --
3427: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3428: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.DELIVERY_ACTION');
3429:
3430: --
3431: -- Start code for Bugfix 4070732
3432: --
3429:
3430: --
3431: -- Start code for Bugfix 4070732
3432: --
3433: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3434: --{
3435: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3436: --{
3437: IF l_debug_on THEN
3431: -- Start code for Bugfix 4070732
3432: --
3433: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3434: --{
3435: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3436: --{
3437: IF l_debug_on THEN
3438: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3439: END IF;
3434: --{
3435: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3436: --{
3437: IF l_debug_on THEN
3438: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3439: END IF;
3440:
3441: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3442: x_return_status => l_return_status);
3437: IF l_debug_on THEN
3438: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3439: END IF;
3440:
3441: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3442: x_return_status => l_return_status);
3443:
3444:
3445: IF l_debug_on THEN
3445: IF l_debug_on THEN
3446: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3447: END IF;
3448:
3449: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3450: x_return_status := l_return_status;
3451: END IF;
3452: --}
3453: END IF;
3479: (x_rec_attr_tab IN OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
3480: p_in_rec_attr_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type, --Bug 5191354
3481: p_action_code IN VARCHAR2,
3482: p_caller IN VARCHAR2,
3483: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type,
3484: x_return_status OUT NOCOPY VARCHAR2)
3485: IS
3486: --
3487:
3544: WSH_DEBUG_SV.log(l_module_name,'Number of Delivery Records is', x_rec_attr_tab.COUNT);
3545: END IF;
3546: --
3547:
3548: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3549: --OTM R12
3550: l_adjusted_amount := 0;
3551: --
3552:
3577: IF l_debug_on THEN
3578: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_delivery_name',l_return_status);
3579: END IF;
3580: --
3581: WSH_UTIL_CORE.api_post_call(
3582: p_return_status => l_return_status,
3583: x_num_warnings => l_num_warnings,
3584: x_num_errors => l_num_errors);
3585: --
3590: IF p_action_code = 'CREATE'
3591: AND nvl(x_rec_attr_tab(l_index).organization_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3592: AND nvl(x_rec_attr_tab(l_index).organization_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3593: THEN
3594: x_return_status := wsh_util_core.g_ret_sts_error;
3595: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3596: x_num_warnings =>l_num_warnings,
3597: x_num_errors =>l_num_errors,
3598: p_module_name =>l_module_name,
3591: AND nvl(x_rec_attr_tab(l_index).organization_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3592: AND nvl(x_rec_attr_tab(l_index).organization_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3593: THEN
3594: x_return_status := wsh_util_core.g_ret_sts_error;
3595: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3596: x_num_warnings =>l_num_warnings,
3597: x_num_errors =>l_num_errors,
3598: p_module_name =>l_module_name,
3599: p_msg_data => 'WSH_DEL_ORG_NULL');
3608: IF ( p_action_code = 'UPDATE'
3609: AND x_rec_attr_tab(l_index).organization_id IS NULL
3610: AND x_rec_attr_tab(l_index).organization_code IS NULL) THEN
3611: --{ NULL case
3612: x_return_status := wsh_util_core.g_ret_sts_error;
3613: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3614: x_num_warnings =>l_num_warnings,
3615: x_num_errors =>l_num_errors,
3616: p_module_name =>l_module_name,
3609: AND x_rec_attr_tab(l_index).organization_id IS NULL
3610: AND x_rec_attr_tab(l_index).organization_code IS NULL) THEN
3611: --{ NULL case
3612: x_return_status := wsh_util_core.g_ret_sts_error;
3613: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3614: x_num_warnings =>l_num_warnings,
3615: x_num_errors =>l_num_errors,
3616: p_module_name =>l_module_name,
3617: p_msg_data => 'WSH_DEL_ORG_NULL');
3626: IF l_debug_on THEN
3627: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_org',l_return_status);
3628: END IF;
3629: --
3630: WSH_UTIL_CORE.api_post_call(
3631: p_return_status => l_return_status,
3632: x_num_warnings => l_num_warnings,
3633: x_num_errors => l_num_errors);
3634: --
3655: IF l_debug_on THEN
3656: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_loading_order',l_return_status);
3657: END IF;
3658: --
3659: WSH_UTIL_CORE.api_post_call(
3660: p_return_status => l_return_status,
3661: x_num_warnings => l_num_warnings,
3662: x_num_errors => l_num_errors);
3663: --
3669: IF p_action_code = 'CREATE'
3670: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3671: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3672: THEN
3673: x_return_status := wsh_util_core.g_ret_sts_error;
3674: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3675: x_num_warnings =>l_num_warnings,
3676: x_num_errors =>l_num_errors,
3677: p_module_name =>l_module_name,
3670: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3671: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3672: THEN
3673: x_return_status := wsh_util_core.g_ret_sts_error;
3674: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3675: x_num_warnings =>l_num_warnings,
3676: x_num_errors =>l_num_errors,
3677: p_module_name =>l_module_name,
3678: p_msg_data => 'WSH_DEL_PICKUP_LOC_NULL');
3687: IF (p_action_code = 'UPDATE'
3688: AND x_rec_attr_tab(l_index).initial_pickup_location_id IS NULL
3689: AND x_rec_attr_tab(l_index).initial_pickup_location_code IS NULL) THEN
3690: --{ NULL case
3691: x_return_status := wsh_util_core.g_ret_sts_error;
3692: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3693: x_num_warnings =>l_num_warnings,
3694: x_num_errors =>l_num_errors,
3695: p_module_name =>l_module_name,
3688: AND x_rec_attr_tab(l_index).initial_pickup_location_id IS NULL
3689: AND x_rec_attr_tab(l_index).initial_pickup_location_code IS NULL) THEN
3690: --{ NULL case
3691: x_return_status := wsh_util_core.g_ret_sts_error;
3692: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3693: x_num_warnings =>l_num_warnings,
3694: x_num_errors =>l_num_errors,
3695: p_module_name =>l_module_name,
3696: p_msg_data => 'WSH_DEL_PICKUP_LOC_NULL');
3701:
3702: -- J-IB-NPARIKH-{
3703: --
3704: IF NVL(x_rec_attr_tab(l_index).shipment_direction,'O') NOT IN ('O','IO')
3705: --AND x_rec_attr_tab(l_index).initial_pickup_location_id = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
3706: THEN
3707: --{
3708: --
3709: -- Check if delivery's transportation is arranged by supplier
3731: --
3732: END IF;
3733: --
3734: --
3735: WSH_UTIL_CORE.api_post_call(
3736: p_return_status => l_return_status,
3737: x_num_warnings => l_num_warnings,
3738: x_num_errors => l_num_errors);
3739: --}
3741: --
3742: -- J-IB-NPARIKH-}
3743: --
3744: IF NVL(x_rec_attr_tab(l_index).shipment_direction,'O') IN ('O','IO') -- J-IB-NPARIKH
3745: OR x_rec_attr_tab(l_index).initial_pickup_location_id <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID -- J-IB-NPARIKH
3746: --OR l_shipping_control <> 'SUPPLIER' -- J-IB-NPARIKH
3747: --OR l_routing_request_flag <> 'N' -- J-IB-NPARIKH
3748: THEN
3749: wsh_util_validate.validate_location(
3755: IF l_debug_on THEN
3756: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_location for Ship From',l_return_status);
3757: END IF;
3758: --
3759: WSH_UTIL_CORE.api_post_call(
3760: p_return_status => l_return_status,
3761: x_num_warnings => l_num_warnings,
3762: x_num_errors => l_num_errors);
3763: --
3788: IF l_debug_on THEN
3789: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_supplier_location for Ship From',l_return_status);
3790: END IF;
3791: --
3792: WSH_UTIL_CORE.api_post_call(
3793: p_return_status => l_return_status,
3794: x_num_warnings => l_num_warnings,
3795: x_num_errors => l_num_errors);
3796: --}
3816: wsh_debug_sv.log(l_module_name,'l_org_location_id',l_org_location_id);
3817: END IF;
3818:
3819: IF (l_org_location_id <> x_rec_attr_tab(l_index).initial_pickup_location_id) THEN
3820: x_return_status := wsh_util_core.g_ret_sts_error;
3821: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3822: x_num_warnings =>l_num_warnings,
3823: x_num_errors =>l_num_errors,
3824: p_module_name =>l_module_name,
3817: END IF;
3818:
3819: IF (l_org_location_id <> x_rec_attr_tab(l_index).initial_pickup_location_id) THEN
3820: x_return_status := wsh_util_core.g_ret_sts_error;
3821: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3822: x_num_warnings =>l_num_warnings,
3823: x_num_errors =>l_num_errors,
3824: p_module_name =>l_module_name,
3825: p_msg_data => 'WSH_DEL_PICK_LOC_NOT_MATCH');
3837: IF p_action_code = 'CREATE'
3838: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3839: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3840: THEN
3841: x_return_status := wsh_util_core.g_ret_sts_error;
3842: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3843: x_num_warnings =>l_num_warnings,
3844: x_num_errors =>l_num_errors,
3845: p_module_name =>l_module_name,
3838: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3839: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3840: THEN
3841: x_return_status := wsh_util_core.g_ret_sts_error;
3842: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3843: x_num_warnings =>l_num_warnings,
3844: x_num_errors =>l_num_errors,
3845: p_module_name =>l_module_name,
3846: p_msg_data => 'WSH_DEL_DROPOFF_LOC_NULL');
3855: IF ( p_action_code = 'UPDATE'
3856: AND x_rec_attr_tab(l_index).ultimate_dropoff_location_id IS NULL
3857: AND x_rec_attr_tab(l_index).ultimate_dropoff_location_code IS NULL ) THEN
3858: --{ NULL case
3859: x_return_status := wsh_util_core.g_ret_sts_error;
3860: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3861: x_num_warnings =>l_num_warnings,
3862: x_num_errors =>l_num_errors,
3863: p_module_name =>l_module_name,
3856: AND x_rec_attr_tab(l_index).ultimate_dropoff_location_id IS NULL
3857: AND x_rec_attr_tab(l_index).ultimate_dropoff_location_code IS NULL ) THEN
3858: --{ NULL case
3859: x_return_status := wsh_util_core.g_ret_sts_error;
3860: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3861: x_num_warnings =>l_num_warnings,
3862: x_num_errors =>l_num_errors,
3863: p_module_name =>l_module_name,
3864: p_msg_data => 'WSH_DEL_DROPOFF_LOC_NULL');
3874: IF l_debug_on THEN
3875: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_location for Ship To',l_return_status);
3876: END IF;
3877: --
3878: WSH_UTIL_CORE.api_post_call(
3879: p_return_status => l_return_status,
3880: x_num_warnings => l_num_warnings,
3881: x_num_errors => l_num_errors);
3882: --
3904: IF l_debug_on THEN
3905: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_location for Intmed Ship To',l_return_status);
3906: END IF;
3907: --
3908: WSH_UTIL_CORE.api_post_call(
3909: p_return_status => l_return_status,
3910: x_num_warnings => l_num_warnings,
3911: x_num_errors => l_num_errors);
3912: --
3928: IF l_debug_on THEN
3929: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_location for Pooled Ship To',l_return_status);
3930: END IF;
3931: --
3932: WSH_UTIL_CORE.api_post_call(
3933: p_return_status => l_return_status,
3934: x_num_warnings => l_num_warnings,
3935: x_num_errors => l_num_errors);
3936: --
3952: IF l_debug_on THEN
3953: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_location for fob location',l_return_status);
3954: END IF;
3955: --
3956: WSH_UTIL_CORE.api_post_call(
3957: p_return_status => l_return_status,
3958: x_num_warnings => l_num_warnings,
3959: x_num_errors => l_num_errors);
3960: --
3976: IF l_debug_on THEN
3977: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_customer',l_return_status);
3978: END IF;
3979: --
3980: WSH_UTIL_CORE.api_post_call(
3981: p_return_status => l_return_status,
3982: x_num_warnings => l_num_warnings,
3983: x_num_errors => l_num_errors);
3984:
3999: IF l_debug_on THEN
4000: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_freight_terms',l_return_status);
4001: END IF;
4002: --
4003: WSH_UTIL_CORE.api_post_call(
4004: p_return_status => l_return_status,
4005: x_num_warnings => l_num_warnings,
4006: x_num_errors => l_num_errors);
4007: --
4022: IF l_debug_on THEN
4023: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_fob',l_return_status);
4024: END IF;
4025: --
4026: WSH_UTIL_CORE.api_post_call(
4027: p_return_status => l_return_status,
4028: x_num_warnings => l_num_warnings,
4029: x_num_errors => l_num_errors);
4030: --
4048: IF l_debug_on THEN
4049: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_uom for Weight',l_return_status);
4050: END IF;
4051: --
4052: WSH_UTIL_CORE.api_post_call(
4053: p_return_status => l_return_status,
4054: x_num_warnings => l_num_warnings,
4055: x_num_errors => l_num_errors);
4056: --
4078: IF l_debug_on THEN
4079: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_uom for Volume',l_return_status);
4080: END IF;
4081: --
4082: WSH_UTIL_CORE.api_post_call(
4083: p_return_status => l_return_status,
4084: x_num_warnings => l_num_warnings,
4085: x_num_errors => l_num_errors);
4086: --
4111: IF l_debug_on THEN
4112: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_currency',l_return_status);
4113: END IF;
4114: --
4115: WSH_UTIL_CORE.api_post_call(
4116: p_return_status => l_return_status,
4117: x_num_warnings => l_num_warnings,
4118: x_num_errors => l_num_errors);
4119: --
4134: IF l_debug_on THEN
4135: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_from_to_dates',l_return_status);
4136: END IF;
4137: --
4138: WSH_UTIL_CORE.api_post_call(
4139: p_return_status => l_return_status,
4140: x_num_warnings => l_num_warnings,
4141: x_num_errors => l_num_errors);
4142: --
4154: IF l_debug_on THEN
4155: wsh_debug_sv.log(l_module_name,'Return Status After Calling derive_numer_of_lpn',l_return_status);
4156: END IF;
4157: --
4158: WSH_UTIL_CORE.api_post_call(
4159: p_return_status => l_return_status,
4160: x_num_warnings => l_num_warnings,
4161: x_num_errors => l_num_errors);
4162: --
4178: IF l_debug_on THEN
4179: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Routed_Export_Txn',l_return_status);
4180: END IF;
4181: --
4182: WSH_UTIL_CORE.api_post_call(
4183: p_return_status => l_return_status,
4184: x_num_warnings => l_num_warnings,
4185: x_num_errors => l_num_errors);
4186: --
4218: If caller is WSH_INBOUND, then need to convert warning to success
4219: for cases where validate_freight_carrier returns warning
4220: so that Inbound processing does not error out */
4221: IF p_caller IN ('WSH_INBOUND', 'WSH_TPW_INBOUND')
4222: AND l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
4223: THEN
4224: -- {
4225: IF l_debug_on THEN
4226: wsh_debug_sv.logmsg(l_module_name, 'Setting success for Inbound');
4224: -- {
4225: IF l_debug_on THEN
4226: wsh_debug_sv.logmsg(l_module_name, 'Setting success for Inbound');
4227: END IF;
4228: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4229: -- }
4230: END IF;
4231: WSH_UTIL_CORE.api_post_call(
4232: p_return_status => l_return_status,
4227: END IF;
4228: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4229: -- }
4230: END IF;
4231: WSH_UTIL_CORE.api_post_call(
4232: p_return_status => l_return_status,
4233: x_num_warnings => l_num_warnings,
4234: x_num_errors => l_num_errors);
4235: --
4255: IF l_debug_on THEN
4256: wsh_debug_sv.log(l_module_name,'Return Status After Calling derive_delivery_uom',l_return_status);
4257: END IF;
4258: --
4259: WSH_UTIL_CORE.api_post_call(
4260: p_return_status => l_return_status,
4261: x_num_warnings => l_num_warnings,
4262: x_num_errors => l_num_errors);
4263: --
4278: IF NVL(x_rec_attr_tab(l_index).GROSS_WEIGHT,0) > 0
4279: OR NVL(x_rec_attr_tab(l_index).NET_WEIGHT,0) > 0 THEN
4280: IF x_rec_attr_tab(l_index).WEIGHT_UOM_CODE IS NULL THEN
4281: FND_MESSAGE.SET_NAME('WSH','WSH_WTVOL_NULL');
4282: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
4283: RAISE FND_API.G_EXC_ERROR;
4284: END IF;
4285: END IF;
4286: --Bug 4140359
4286: --Bug 4140359
4287: IF NVL(x_rec_attr_tab(l_index).VOLUME,0) > 0
4288: AND x_rec_attr_tab(l_index).VOLUME_UOM_CODE IS NULL THEN
4289: FND_MESSAGE.SET_NAME('WSH','WSH_WTVOL_NULL');
4290: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
4291: RAISE FND_API.G_EXC_ERROR;
4292: END IF;
4293: END IF; --}
4294: x_valid_index_tab(l_index) := l_index;
4311: --
4312: IF l_num_errors = x_rec_attr_tab.COUNT THEN
4313: RAISE FND_API.G_EXC_ERROR;
4314: ELSIF l_num_errors > 0 THEN
4315: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4316: ELSIF l_num_warnings > 0 THEN
4317: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4318: ELSE
4319: x_return_status := wsh_util_core.g_ret_sts_success;
4313: RAISE FND_API.G_EXC_ERROR;
4314: ELSIF l_num_errors > 0 THEN
4315: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4316: ELSIF l_num_warnings > 0 THEN
4317: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4318: ELSE
4319: x_return_status := wsh_util_core.g_ret_sts_success;
4320: END IF;
4321:
4315: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4316: ELSIF l_num_warnings > 0 THEN
4317: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4318: ELSE
4319: x_return_status := wsh_util_core.g_ret_sts_success;
4320: END IF;
4321:
4322: /* Assumption is this should be taken care of by get_disabled list.
4323: l_assigned_to_trip := WSH_Delivery_Validations.Del_Assigned_To_Trip
4330: --
4331: EXCEPTION
4332: WHEN FND_API.G_EXC_ERROR THEN
4333: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4335: --
4336: IF l_debug_on THEN
4337: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4338: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4339: END IF;
4340: --
4341: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4342: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4343: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4344: --
4345: IF l_debug_on THEN
4346: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4347: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4346: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4347: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4348: END IF;
4349: --
4350: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4351: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4352: --
4353: IF l_debug_on THEN
4354: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4347: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4348: END IF;
4349: --
4350: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4351: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4352: --
4353: IF l_debug_on THEN
4354: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4355: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4350: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4351: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4352: --
4353: IF l_debug_on THEN
4354: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4355: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4356: END IF;
4357: --
4358: WHEN OTHERS THEN
4351: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4352: --
4353: IF l_debug_on THEN
4354: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4355: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4356: END IF;
4357: --
4358: WHEN OTHERS THEN
4359: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4356: END IF;
4357: --
4358: WHEN OTHERS THEN
4359: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4360: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4361: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.VALIDATE_DELIVERY');
4362: --
4363: IF l_debug_on THEN
4364: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4357: --
4358: WHEN OTHERS THEN
4359: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4360: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4361: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.VALIDATE_DELIVERY');
4362: --
4363: IF l_debug_on THEN
4364: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4365: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4411: l_msg_data VARCHAR2(32767);
4412:
4413: --
4414: l_rec_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4415: l_index_tab wsh_util_core.id_tab_type;
4416: --
4417: l_input_param_flag BOOLEAN := TRUE;
4418: --
4419: l_param_name VARCHAR2(100);
4428: l_cc_upd_dlvy_intmed_ship_to VARCHAR2(1);
4429: l_cc_upd_dlvy_ship_method VARCHAR2(1);
4430: l_cc_dlvy_intmed_ship_to NUMBER;
4431: l_cc_dlvy_ship_method VARCHAR2(30);
4432: l_cc_del_rows wsh_util_core.id_tab_type;
4433: l_cc_grouping_rows wsh_util_core.id_tab_type;
4434: l_cc_return_status VARCHAR2(1);
4435: l_cc_count_trip_rows NUMBER;
4436: l_cc_count_grouping_rows NUMBER;
4429: l_cc_upd_dlvy_ship_method VARCHAR2(1);
4430: l_cc_dlvy_intmed_ship_to NUMBER;
4431: l_cc_dlvy_ship_method VARCHAR2(30);
4432: l_cc_del_rows wsh_util_core.id_tab_type;
4433: l_cc_grouping_rows wsh_util_core.id_tab_type;
4434: l_cc_return_status VARCHAR2(1);
4435: l_cc_count_trip_rows NUMBER;
4436: l_cc_count_grouping_rows NUMBER;
4437: l_cc_trip_id wsh_util_core.id_tab_type;
4433: l_cc_grouping_rows wsh_util_core.id_tab_type;
4434: l_cc_return_status VARCHAR2(1);
4435: l_cc_count_trip_rows NUMBER;
4436: l_cc_count_grouping_rows NUMBER;
4437: l_cc_trip_id wsh_util_core.id_tab_type;
4438: l_cc_trip_id_tab wsh_util_core.id_tab_type;
4439: b_cc_linefailed boolean;
4440: l_rec_attr_tab_temp WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4441: l_cc_count_success NUMBER;
4434: l_cc_return_status VARCHAR2(1);
4435: l_cc_count_trip_rows NUMBER;
4436: l_cc_count_grouping_rows NUMBER;
4437: l_cc_trip_id wsh_util_core.id_tab_type;
4438: l_cc_trip_id_tab wsh_util_core.id_tab_type;
4439: b_cc_linefailed boolean;
4440: l_rec_attr_tab_temp WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4441: l_cc_count_success NUMBER;
4442:
4444: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4445: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
4446: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
4447: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
4448: l_cc_in_ids wsh_util_core.id_tab_type;
4449: l_cc_fail_ids wsh_util_core.id_tab_type;
4450: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
4451: l_log_itm_exc VARCHAR2(1);
4452:
4445: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
4446: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
4447: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
4448: l_cc_in_ids wsh_util_core.id_tab_type;
4449: l_cc_fail_ids wsh_util_core.id_tab_type;
4450: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
4451: l_log_itm_exc VARCHAR2(1);
4452:
4453: --Compatibility Changes
4463: l_smc wsh_new_deliveries.ship_method_code%TYPE;
4464: l_carrier_id wsh_new_deliveries.carrier_id%TYPE;
4465: l_ignore_for_planning wsh_new_deliveries.ignore_for_planning%TYPE;
4466: l_tmp_ignore wsh_new_deliveries.ignore_for_planning%TYPE;
4467: l_tmp_del_ids wsh_util_core.id_tab_type;
4468:
4469: -- Pack J: LCSS Rate Delivery.
4470: l_exception_id NUMBER;
4471: l_exception_message VARCHAR2(2000);
4471: l_exception_message VARCHAR2(2000);
4472: l_in_param_rec WSH_FTE_INTEGRATION.rate_del_in_param_rec;
4473: l_out_param_rec WSH_FTE_INTEGRATION.rate_del_out_param_rec;
4474: l_error_text VARCHAR2(2000);
4475: l_delivery_rows wsh_util_core.id_tab_type;
4476: --
4477:
4478: --OTM R12 Org-Specific Start.
4479: l_gc3_is_installed VARCHAR2(1);
4487: l_reset_flags BOOLEAN;
4488:
4489: BEGIN
4490: -- Bug 4070732
4491: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
4492: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4493: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4494: END IF;
4495:
4488:
4489: BEGIN
4490: -- Bug 4070732
4491: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
4492: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4493: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4494: END IF;
4495:
4496:
4489: BEGIN
4490: -- Bug 4070732
4491: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
4492: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4493: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4494: END IF;
4495:
4496:
4497: --
4520: END IF;
4521: --
4522:
4523: --OMT R12 Org-Specific Start
4524: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
4525: IF l_gc3_is_installed IS NULL THEN
4526: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
4527: END IF;
4528: IF l_debug_on THEN
4522:
4523: --OMT R12 Org-Specific Start
4524: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
4525: IF l_gc3_is_installed IS NULL THEN
4526: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
4527: END IF;
4528: IF l_debug_on THEN
4529: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed ',
4530: l_gc3_is_installed);
4553:
4554: IF not l_input_param_flag THEN
4555: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
4556: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
4557: x_return_status := wsh_util_core.g_ret_sts_error;
4558: wsh_util_core.add_message(x_return_status,l_module_name);
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF;
4561: --
4554: IF not l_input_param_flag THEN
4555: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
4556: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
4557: x_return_status := wsh_util_core.g_ret_sts_error;
4558: wsh_util_core.add_message(x_return_status,l_module_name);
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF;
4561: --
4562: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4558: wsh_util_core.add_message(x_return_status,l_module_name);
4559: RAISE FND_API.G_EXC_ERROR;
4560: END IF;
4561: --
4562: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4563: --
4564: WSH_ACTIONS_LEVELS.set_validation_level (
4565: p_entity => 'DLVY',
4566: p_caller => p_in_rec.caller,
4571: IF l_debug_on THEN
4572: wsh_debug_sv.log(l_module_name,'Return Status After Calling set_validation_level',l_return_status);
4573: END IF;
4574: --
4575: wsh_util_core.api_post_call(
4576: p_return_status => l_return_status,
4577: x_num_warnings => l_num_warnings,
4578: x_num_errors => l_num_errors);
4579: --
4595: IF l_debug_on THEN
4596: wsh_debug_sv.log(l_module_name,'Return Status After Calling get_disabled_list',l_return_status);
4597: END IF;
4598: --
4599: WSH_UTIL_CORE.api_post_call(
4600: p_return_status => l_return_status,
4601: x_num_warnings => l_num_warnings,
4602: x_num_errors => l_num_errors,
4603: p_msg_data => l_msg_data);
4625: --
4626: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_VALIDATE_CONSTRAINTS_LVL) = 1 THEN --{
4627: --Compatibility Constraints
4628: --Compatiblity Changes
4629: IF wsh_util_core.fte_is_installed = 'Y' THEN
4630:
4631: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main(
4632: p_api_version_number => p_api_version_number,
4633: p_init_msg_list => FND_API.G_FALSE,
4659: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
4660: END IF;
4661:
4662:
4663: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
4664: --fix p_rec_attr_tab to have only successful records
4665: l_cc_count_success:=1;
4666:
4667: IF l_debug_on THEN
4674: IF l_debug_on THEN
4675: wsh_debug_sv.logmsg(l_module_name,'all dels failed compatibility check');
4676: END IF;
4677: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
4678: wsh_util_core.api_post_call(
4679: p_return_status => l_return_status,
4680: x_num_warnings => l_num_warnings,
4681: x_num_errors => l_num_errors,
4682: p_msg_data => l_msg_data);
4680: x_num_warnings => l_num_warnings,
4681: x_num_errors => l_num_errors,
4682: p_msg_data => l_msg_data);
4683: ELSE
4684: l_return_status:=wsh_util_core.g_ret_sts_warning;
4685: END IF;
4686:
4687:
4688: FOR i in l_rec_attr_tab.FIRST..l_rec_attr_tab.LAST LOOP
4711: l_rec_attr_tab:=l_rec_attr_tab_temp;
4712: END IF;
4713:
4714: ELSE
4715: l_return_status:=wsh_util_core.g_ret_sts_warning;
4716: END IF;--failed_records.count>0
4717:
4718:
4719: IF l_debug_on THEN
4722: --fix p_rec_attr_tab to have only successful records
4723: END IF;--error
4724:
4725:
4726: IF l_return_status=wsh_util_core.g_ret_sts_error and l_cc_failed_records.COUNT<>l_rec_attr_tab.COUNT THEN
4727: l_return_status:=wsh_util_core.g_ret_sts_warning;
4728: END IF;
4729:
4730:
4723: END IF;--error
4724:
4725:
4726: IF l_return_status=wsh_util_core.g_ret_sts_error and l_cc_failed_records.COUNT<>l_rec_attr_tab.COUNT THEN
4727: l_return_status:=wsh_util_core.g_ret_sts_warning;
4728: END IF;
4729:
4730:
4731: --
4728: END IF;
4729:
4730:
4731: --
4732: wsh_util_core.api_post_call(
4733: p_return_status => l_return_status,
4734: x_num_warnings => l_num_warnings,
4735: x_num_errors => l_num_errors,
4736: p_msg_data => l_msg_data);
4747: p_caller => p_in_rec.caller,
4748: x_valid_index_tab => l_index_tab,
4749: x_return_status => l_return_status);
4750: --
4751: WSH_UTIL_CORE.api_post_call(
4752: p_return_status => l_return_status,
4753: x_num_warnings => l_num_warnings,
4754: x_num_errors => l_num_errors);
4755: --
4766: IF p_in_rec.action_code = 'CREATE' THEN
4767:
4768: /*** J changes TP release ****/
4769: l_tmp_ignore := l_rec_attr_tab(l_index).ignore_for_planning;
4770: IF (wsh_util_core.TP_is_installed ='Y' OR l_gc3_is_installed = 'Y' ) --OTM R12 Org-Specific . Added second OR condition
4771: AND (
4772: (l_tmp_ignore is null OR l_tmp_ignore=FND_API.G_MISS_CHAR)
4773: OR (l_tmp_ignore is not null AND l_tmp_ignore='N')-- need to check this as form always passes 'N'
4774: ) THEN
4783:
4784: IF l_debug_on THEN
4785: WSH_DEBUG_SV.log(l_module_name,' Get_Warehouse_Type l_wh_type,l_return_status',l_wh_type||l_return_status);
4786: END IF;
4787: WSH_UTIL_CORE.api_post_call(
4788: p_return_status => l_return_status,
4789: x_num_warnings => l_num_warnings,
4790: x_num_errors => l_num_errors);
4791:
4808: ||'lc_ignore_for_planning l_return_status',l_return_status);
4809: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning ',
4810: l_ignore_for_planning );
4811: END IF;
4812: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
4813: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4814: RAISE FND_API.G_EXC_ERROR;
4815: END IF;
4816: END IF;
4809: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning ',
4810: l_ignore_for_planning );
4811: END IF;
4812: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
4813: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4814: RAISE FND_API.G_EXC_ERROR;
4815: END IF;
4816: END IF;
4817: --OTM R12 End.
4815: END IF;
4816: END IF;
4817: --OTM R12 End.
4818: ELSIF (l_tmp_ignore='Y' and
4819: (WSH_UTIL_CORE.TP_Is_Installed ='Y' OR
4820: l_gc3_is_installed = 'Y')) THEN
4821: l_ignore_for_planning:=l_tmp_ignore;
4822: ELSE
4823: l_ignore_for_planning:='N';
4835: WSH_DELIVERY_AUTOCREATE.Create_Update_Hash(
4836: p_delivery_rec => l_rec_attr_tab(l_index),
4837: x_return_status => l_return_status);
4838:
4839: WSH_UTIL_CORE.api_post_call(
4840: p_return_status => l_return_status,
4841: x_num_warnings => l_num_warnings,
4842: x_num_errors => l_num_errors);
4843:
4859: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get',WSH_DEBUG_SV.C_PROC_LEVEL);
4860: END IF;
4861:
4862: --
4863: WSH_UTIL_CORE.api_post_call(
4864: p_return_status => l_return_status,
4865: x_num_warnings => l_num_warnings,
4866: x_num_errors => l_num_errors);
4867:
4874: IF l_debug_on THEN
4875: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_SHIPPING_PARAMS_PVT.Get',l_return_status);
4876: END IF;
4877:
4878: WSH_UTIL_CORE.api_post_call(
4879: p_return_status => l_return_status,
4880: x_num_warnings => l_num_warnings,
4881: x_num_errors => l_num_errors);
4882:
4896: IF l_debug_on THEN
4897: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',l_return_status);
4898: END IF;
4899:
4900: WSH_UTIL_CORE.api_post_call(
4901: p_return_status => l_return_status,
4902: x_num_warnings => l_num_warnings,
4903: x_num_errors => l_num_errors);
4904:
4914: IF l_debug_on THEN
4915: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception',l_return_status);
4916: END IF;
4917:
4918: WSH_UTIL_CORE.api_post_call(
4919: p_return_status => l_return_status,
4920: x_num_warnings => l_num_warnings,
4921: x_num_errors => l_num_errors);
4922: END IF;
4938: x_return_message => l_error_text,
4939: x_return_status => l_return_status);
4940:
4941:
4942: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4943:
4944: IF l_debug_on THEN
4945: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR OCCURRED WHILST PROCESSING CARRIER SELECTION' );
4946: END IF;
4944: IF l_debug_on THEN
4945: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR OCCURRED WHILST PROCESSING CARRIER SELECTION' );
4946: END IF;
4947:
4948: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4949:
4950: END IF;
4951:
4952: WSH_UTIL_CORE.api_post_call(
4948: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4949:
4950: END IF;
4951:
4952: WSH_UTIL_CORE.api_post_call(
4953: p_return_status => l_return_status,
4954: x_num_warnings => l_num_warnings,
4955: x_num_errors => l_num_errors);
4956:
4976: IF l_debug_on THEN
4977: wsh_debug_sv.log(l_module_name,'Return Status After Calling update_ship_from_location',l_return_status);
4978: END IF;
4979: --
4980: WSH_UTIL_CORE.api_post_call(
4981: p_return_status => l_return_status,
4982: x_num_warnings => l_num_warnings,
4983: x_num_errors => l_num_errors);
4984: --}
4990: WSH_DELIVERY_AUTOCREATE.Create_Update_Hash(
4991: p_delivery_rec => l_rec_attr_tab(l_index),
4992: x_return_status => l_return_status);
4993:
4994: WSH_UTIL_CORE.api_post_call(
4995: p_return_status => l_return_status,
4996: x_num_warnings => l_num_warnings,
4997: x_num_errors => l_num_errors);
4998:
5007: wsh_debug_sv.log(l_module_name,'Return Status After Calling Update Delivery',l_return_status);
5008: END IF;
5009: --
5010: --
5011: WSH_UTIL_CORE.api_post_call(
5012: p_return_status => l_return_status,
5013: x_num_warnings => l_num_warnings,
5014: x_num_errors => l_num_errors);
5015:
5021:
5022: IF (l_carrier_id is not null
5023: OR l_smc is not null
5024: OR l_organization_id is not null
5025: ) AND (WSH_UTIL_CORE.TP_Is_Installed = 'Y'
5026: OR l_gc3_is_installed = 'Y') THEN
5027:
5028: FOR cur in c_getorgcarriersmc (l_rec_attr_tab(l_index).delivery_id) LOOP
5029: IF l_organization_id is null THEN
5048: WSH_DEBUG_SV.log(l_module_name,'smc',l_smc);
5049: WSH_DEBUG_SV.log(l_module_name,'l_ignore',l_ignore_for_planning);
5050: END IF;
5051:
5052: WSH_UTIL_CORE.api_post_call(
5053: p_return_status => l_return_status,
5054: x_num_warnings => l_num_warnings,
5055: x_num_errors => l_num_errors);
5056:
5067: x_return_status => l_return_status);
5068: IF l_debug_on THEN
5069: wsh_debug_sv.log(l_module_name,'Return Status After Calling change_ignoreplan_sttatus',l_return_status);
5070: END IF;
5071: WSH_UTIL_CORE.api_post_call(
5072: p_return_status => l_return_status,
5073: x_num_warnings => l_num_warnings,
5074: x_num_errors => l_num_errors);
5075: END IF;
5097:
5098: IF (l_num_errors = l_rec_attr_tab.count ) THEN
5099: RAISE FND_API.G_EXC_ERROR;
5100: ELSIF (l_num_errors > 0 ) THEN
5101: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5102: ELSIF (l_num_warnings > 0 ) THEN
5103: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5104: ELSE
5105: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5099: RAISE FND_API.G_EXC_ERROR;
5100: ELSIF (l_num_errors > 0 ) THEN
5101: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5102: ELSIF (l_num_warnings > 0 ) THEN
5103: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5104: ELSE
5105: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5106: END IF;
5107:
5101: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5102: ELSIF (l_num_warnings > 0 ) THEN
5103: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5104: ELSE
5105: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5106: END IF;
5107:
5108: -- Standard check of p_commit.
5109: IF FND_API.To_Boolean( p_commit ) THEN
5108: -- Standard check of p_commit.
5109: IF FND_API.To_Boolean( p_commit ) THEN
5110:
5111: --bug 4070732
5112: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5113: --{
5114:
5115: l_reset_flags := FALSE;
5116:
5114:
5115: l_reset_flags := FALSE;
5116:
5117: IF l_debug_on THEN
5118: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5119: END IF;
5120:
5121: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
5122: x_return_status => l_return_status);
5117: IF l_debug_on THEN
5118: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5119: END IF;
5120:
5121: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
5122: x_return_status => l_return_status);
5123:
5124: IF l_debug_on THEN
5125: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5124: IF l_debug_on THEN
5125: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5126: END IF;
5127:
5128: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5129: RAISE FND_API.G_EXC_ERROR;
5130: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5132: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5126: END IF;
5127:
5128: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5129: RAISE FND_API.G_EXC_ERROR;
5130: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5132: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5133: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5134: END IF;
5128: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5129: RAISE FND_API.G_EXC_ERROR;
5130: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5132: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5133: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5134: END IF;
5135:
5136: --}
5129: RAISE FND_API.G_EXC_ERROR;
5130: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5131: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5132: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5133: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5134: END IF;
5135:
5136: --}
5137: END IF;
5140: COMMIT WORK;
5141: END IF;
5142: --
5143: --bug 4070732
5144: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5145: --{
5146: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5147: --{
5148:
5142: --
5143: --bug 4070732
5144: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5145: --{
5146: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5147: --{
5148:
5149: IF FND_API.To_Boolean( p_commit ) THEN
5150:
5148:
5149: IF FND_API.To_Boolean( p_commit ) THEN
5150:
5151: IF l_debug_on THEN
5152: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5153: END IF;
5154:
5155: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
5156: x_return_status => l_return_status);
5151: IF l_debug_on THEN
5152: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5153: END IF;
5154:
5155: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
5156: x_return_status => l_return_status);
5157: ELSE
5158:
5159: IF l_debug_on THEN
5156: x_return_status => l_return_status);
5157: ELSE
5158:
5159: IF l_debug_on THEN
5160: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5161: END IF;
5162:
5163: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
5164: x_return_status => l_return_status);
5159: IF l_debug_on THEN
5160: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5161: END IF;
5162:
5163: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
5164: x_return_status => l_return_status);
5165:
5166: END IF;
5167:
5168: IF l_debug_on THEN
5169: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5170: END IF;
5171:
5172: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5173: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5174: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5175: x_return_status := l_return_status;
5176: END IF;
5169: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5170: END IF;
5171:
5172: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5173: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5174: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5175: x_return_status := l_return_status;
5176: END IF;
5177:
5170: END IF;
5171:
5172: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5173: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5174: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5175: x_return_status := l_return_status;
5176: END IF;
5177:
5178: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5174: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5175: x_return_status := l_return_status;
5176: END IF;
5177:
5178: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5179: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5180: IF NOT FND_API.To_Boolean( p_commit ) THEN
5181: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5182: END IF;
5175: x_return_status := l_return_status;
5176: END IF;
5177:
5178: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5179: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5180: IF NOT FND_API.To_Boolean( p_commit ) THEN
5181: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5182: END IF;
5183: END IF;
5200: --
5201: EXCEPTION
5202: WHEN RECORD_LOCKED THEN
5203: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5204: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5205: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
5206: wsh_util_core.add_message(x_return_status,l_module_name);
5207: --
5208: -- Start code for Bugfix 4070732
5202: WHEN RECORD_LOCKED THEN
5203: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5204: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5205: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
5206: wsh_util_core.add_message(x_return_status,l_module_name);
5207: --
5208: -- Start code for Bugfix 4070732
5209: --
5210: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5206: wsh_util_core.add_message(x_return_status,l_module_name);
5207: --
5208: -- Start code for Bugfix 4070732
5209: --
5210: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5211: --{
5212: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5213: --{
5214: IF l_debug_on THEN
5208: -- Start code for Bugfix 4070732
5209: --
5210: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5211: --{
5212: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5213: --{
5214: IF l_debug_on THEN
5215: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5216: END IF;
5211: --{
5212: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5213: --{
5214: IF l_debug_on THEN
5215: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5216: END IF;
5217:
5218: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5219: x_return_status => l_return_status);
5214: IF l_debug_on THEN
5215: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5216: END IF;
5217:
5218: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5219: x_return_status => l_return_status);
5220:
5221:
5222: IF l_debug_on THEN
5222: IF l_debug_on THEN
5223: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5224: END IF;
5225:
5226: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5227: x_return_status := l_return_status;
5228: END IF;
5229: --}
5230: END IF;
5244: END IF;
5245:
5246: WHEN FND_API.G_EXC_ERROR THEN
5247: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5248: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5249: --
5250: -- Start code for Bugfix 4070732
5251: --
5252: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5248: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5249: --
5250: -- Start code for Bugfix 4070732
5251: --
5252: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5253: --{
5254: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5255: --{
5256: IF l_debug_on THEN
5250: -- Start code for Bugfix 4070732
5251: --
5252: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5253: --{
5254: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5255: --{
5256: IF l_debug_on THEN
5257: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5258: END IF;
5253: --{
5254: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5255: --{
5256: IF l_debug_on THEN
5257: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5258: END IF;
5259:
5260: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5261: x_return_status => l_return_status);
5256: IF l_debug_on THEN
5257: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5258: END IF;
5259:
5260: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5261: x_return_status => l_return_status);
5262:
5263:
5264: IF l_debug_on THEN
5264: IF l_debug_on THEN
5265: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5266: END IF;
5267:
5268: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5269: x_return_status := l_return_status;
5270: END IF;
5271: --}
5272: END IF;
5288: END IF;
5289: --
5290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5291: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5292: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5293:
5294: --
5295: -- Start code for Bugfix 4070732
5296: --
5293:
5294: --
5295: -- Start code for Bugfix 4070732
5296: --
5297: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5298: --{
5299: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5300: --{
5301: IF l_debug_on THEN
5295: -- Start code for Bugfix 4070732
5296: --
5297: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5298: --{
5299: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5300: --{
5301: IF l_debug_on THEN
5302: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5303: END IF;
5298: --{
5299: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5300: --{
5301: IF l_debug_on THEN
5302: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5303: END IF;
5304:
5305: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5306: x_return_status => l_return_status);
5301: IF l_debug_on THEN
5302: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5303: END IF;
5304:
5305: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5306: x_return_status => l_return_status);
5307:
5308:
5309: IF l_debug_on THEN
5309: IF l_debug_on THEN
5310: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5311: END IF;
5312:
5313: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5314: x_return_status := l_return_status;
5315: END IF;
5316: --}
5317: END IF;
5332: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5333: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5334: END IF;
5335: --
5336: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
5337: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5338: --
5339: -- Start code for Bugfix 4070732
5340: --
5333: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5334: END IF;
5335: --
5336: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
5337: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5338: --
5339: -- Start code for Bugfix 4070732
5340: --
5341: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5337: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5338: --
5339: -- Start code for Bugfix 4070732
5340: --
5341: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5342: --{
5343: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5344: --{
5345: IF l_debug_on THEN
5339: -- Start code for Bugfix 4070732
5340: --
5341: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5342: --{
5343: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5344: --{
5345: IF l_debug_on THEN
5346: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5347: END IF;
5342: --{
5343: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5344: --{
5345: IF l_debug_on THEN
5346: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5347: END IF;
5348:
5349: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
5350: x_return_status => l_return_status);
5345: IF l_debug_on THEN
5346: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5347: END IF;
5348:
5349: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
5350: x_return_status => l_return_status);
5351:
5352:
5353: IF l_debug_on THEN
5353: IF l_debug_on THEN
5354: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5355: END IF;
5356:
5357: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5358: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5359: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5360: x_return_status := l_return_status;
5361: END IF;
5354: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5355: END IF;
5356:
5357: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5358: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5359: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5360: x_return_status := l_return_status;
5361: END IF;
5362:
5355: END IF;
5356:
5357: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5358: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5359: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5360: x_return_status := l_return_status;
5361: END IF;
5362:
5363: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5359: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5360: x_return_status := l_return_status;
5361: END IF;
5362:
5363: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5364: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5365: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5366: END IF;
5367: --}
5360: x_return_status := l_return_status;
5361: END IF;
5362:
5363: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5364: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5365: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5366: END IF;
5367: --}
5368: END IF;
5379: );
5380:
5381: --
5382: IF l_debug_on THEN
5383: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5384: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
5385: END IF;
5386: --
5387: WHEN OTHERS THEN
5380:
5381: --
5382: IF l_debug_on THEN
5383: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5384: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
5385: END IF;
5386: --
5387: WHEN OTHERS THEN
5388: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5385: END IF;
5386: --
5387: WHEN OTHERS THEN
5388: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5389: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5390: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.CREATE_UPDATE_DELIVERY');
5391: --
5392: -- Start code for Bugfix 4070732
5393: --
5386: --
5387: WHEN OTHERS THEN
5388: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5389: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5390: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.CREATE_UPDATE_DELIVERY');
5391: --
5392: -- Start code for Bugfix 4070732
5393: --
5394: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5390: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.CREATE_UPDATE_DELIVERY');
5391: --
5392: -- Start code for Bugfix 4070732
5393: --
5394: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5395: --{
5396: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5397: --{
5398: IF l_debug_on THEN
5392: -- Start code for Bugfix 4070732
5393: --
5394: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5395: --{
5396: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5397: --{
5398: IF l_debug_on THEN
5399: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5400: END IF;
5395: --{
5396: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5397: --{
5398: IF l_debug_on THEN
5399: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5400: END IF;
5401:
5402: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5403: x_return_status => l_return_status);
5398: IF l_debug_on THEN
5399: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5400: END IF;
5401:
5402: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5403: x_return_status => l_return_status);
5404:
5405:
5406: IF l_debug_on THEN
5406: IF l_debug_on THEN
5407: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5408: END IF;
5409:
5410: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5411: x_return_status := l_return_status;
5412: END IF;
5413: --}
5414: END IF;
5479: WSH_DEBUG_SV.log(l_module_name,'p_delivery_info.name',
5480: p_delivery_info.name);
5481: END IF;
5482: --
5483: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5484: --OTM R12
5485: l_adjusted_amount := 0;
5486: --
5487:
5497: p_delivery_info.delivery_id,
5498: p_delivery_info.name,
5499: x_return_status);
5500:
5501: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5502: --
5503: IF l_debug_on THEN
5504: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5505: x_return_status);
5522: p_delivery_info.organization_id,
5523: p_delivery_info.organization_code,
5524: x_return_status);
5525:
5526: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5527: --
5528: IF l_debug_on THEN
5529: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5530: x_return_status);
5549: p_delivery_info.loading_order_flag,
5550: p_delivery_info.loading_order_desc,
5551: x_return_status);
5552:
5553: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5554: --
5555: IF l_debug_on THEN
5556: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5557: x_return_status);
5571: p_delivery_info.initial_pickup_location_id,
5572: p_delivery_info.initial_pickup_location_code,
5573: x_return_status);
5574:
5575: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5576: IF l_debug_on THEN
5577: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5578: x_return_status);
5579: WSH_DEBUG_SV.pop(l_module_name);
5592: p_delivery_info.ultimate_dropoff_location_id,
5593: p_delivery_info.ultimate_dropoff_location_code,
5594: x_return_status);
5595:
5596: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5597: IF l_debug_on THEN
5598: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5599: x_return_status);
5600: WSH_DEBUG_SV.pop(l_module_name);
5613: p_delivery_info.intmed_ship_to_location_id,
5614: p_delivery_info.intmed_ship_to_location_code,
5615: x_return_status);
5616:
5617: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5618: IF l_debug_on THEN
5619: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5620: x_return_status);
5621: WSH_DEBUG_SV.pop(l_module_name);
5634: p_delivery_info.pooled_ship_to_location_id,
5635: p_delivery_info.pooled_ship_to_location_code,
5636: x_return_status);
5637:
5638: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5639: --
5640: IF l_debug_on THEN
5641: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5642: x_return_status);
5656: p_delivery_info.customer_id,
5657: p_delivery_info.customer_number,
5658: x_return_status);
5659:
5660: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5661: --
5662: IF l_debug_on THEN
5663: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5664: x_return_status);
5680: p_delivery_info.ship_method_code,
5681: p_delivery_info.ship_method_name,
5682: x_return_status);
5683:
5684: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5685: --
5686: IF l_debug_on THEN
5687: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5688: x_return_status);
5702: p_delivery_info.freight_terms_code,
5703: p_delivery_info.freight_terms_name,
5704: x_return_status);
5705:
5706: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5707: --
5708: IF l_debug_on THEN
5709: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5710: x_return_status);
5724: p_delivery_info.fob_code,
5725: p_delivery_info.fob_name,
5726: x_return_status);
5727:
5728: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5729: --
5730: IF l_debug_on THEN
5731: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5732: x_return_status);
5746: p_delivery_info.fob_location_id,
5747: p_delivery_info.fob_location_code,
5748: x_return_status);
5749:
5750: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5751: --
5752: IF l_debug_on THEN
5753: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5754: x_return_status);
5771: p_delivery_info.weight_uom_code,
5772: p_delivery_info.weight_uom_desc,
5773: x_return_status);
5774:
5775: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5776: IF l_debug_on THEN
5777: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5778: x_return_status);
5779: WSH_DEBUG_SV.pop(l_module_name);
5794: p_delivery_info.volume_uom_code,
5795: p_delivery_info.volume_uom_desc,
5796: x_return_status);
5797:
5798: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5799: --
5800: IF l_debug_on THEN
5801: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5802: x_return_status);
5819: p_amount => NULL,
5820: x_return_status => x_return_status,
5821: x_adjusted_amount => l_adjusted_amount);
5822:
5823: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5824: IF l_debug_on THEN
5825: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5826: x_return_status);
5827: WSH_DEBUG_SV.pop(l_module_name);
5844: l_assigned_to_trip := WSH_Delivery_Validations.Del_Assigned_To_Trip
5845: (p_delivery_id => p_delivery_info.delivery_id,
5846: x_return_status => x_return_status);
5847:
5848: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5849: --
5850: IF l_debug_on THEN
5851: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5852: x_return_status);
5862: WSH_DEBUG_SV.log(l_module_name,'WSH_DEL_ASSIGNED_ERROR');
5863: END IF;
5864: --
5865: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_info.delivery_id));
5866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5867: wsh_util_core.add_message(x_return_status,l_module_name);
5868: IF l_debug_on THEN
5869: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5870: x_return_status);
5863: END IF;
5864: --
5865: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_info.delivery_id));
5866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5867: wsh_util_core.add_message(x_return_status,l_module_name);
5868: IF l_debug_on THEN
5869: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5870: x_return_status);
5871: WSH_DEBUG_SV.pop(l_module_name);
5881: END IF;
5882: --
5883: EXCEPTION
5884: WHEN others THEN
5885: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.Validate_Delivery',l_module_name);
5886: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5887: --
5888: IF l_debug_on THEN
5889: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5882: --
5883: EXCEPTION
5884: WHEN others THEN
5885: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.Validate_Delivery',l_module_name);
5886: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5887: --
5888: IF l_debug_on THEN
5889: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5890: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5914: --
5915: IF l_debug_on THEN
5916: WSH_DEBUG_SV.push(l_module_name);
5917: END IF;
5918: x_return_status := wsh_util_core.g_ret_sts_success;
5919: --
5920: x_pvt_rec.DELIVERY_ID := p_pub_rec.DELIVERY_ID;
5921: x_pvt_rec.NAME := p_pub_rec.NAME;
5922: x_pvt_rec.DELIVERY_TYPE := p_pub_rec.DELIVERY_TYPE;
6056: WSH_DEBUG_SV.pop(l_module_name);
6057: END IF;
6058: EXCEPTION
6059: WHEN OTHERS THEN
6060: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_DELIVERIES_GRP.map_grp_pvt',l_module_name);
6061: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6062: --
6063: IF l_debug_on THEN
6064: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6057: END IF;
6058: EXCEPTION
6059: WHEN OTHERS THEN
6060: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_DELIVERIES_GRP.map_grp_pvt',l_module_name);
6061: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6062: --
6063: IF l_debug_on THEN
6064: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6065: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6154: END IF;
6155: ELSIF ( p_action_code <> 'CREATE' ) THEN
6156: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
6157: FND_MESSAGE.SET_TOKEN('ACTION_CODE',p_action_code);
6158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6159: wsh_util_core.add_message(x_return_status);
6160: END IF;
6161: --
6162: map_grp_to_pvt(
6155: ELSIF ( p_action_code <> 'CREATE' ) THEN
6156: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
6157: FND_MESSAGE.SET_TOKEN('ACTION_CODE',p_action_code);
6158: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6159: wsh_util_core.add_message(x_return_status);
6160: END IF;
6161: --
6162: map_grp_to_pvt(
6163: p_pub_rec => p_delivery_info,
6167: IF l_debug_on THEN
6168: wsh_debug_sv.log(l_module_name,'Return Status After Calling map_grp_to_pvt',l_return_status);
6169: END IF;
6170: --
6171: wsh_util_core.api_post_call(
6172: p_return_status => l_return_status,
6173: x_num_errors => l_num_errors,
6174: x_num_warnings => l_num_warnings);
6175: --
6189: IF l_debug_on THEN
6190: wsh_debug_sv.log(l_module_name,'Return Status After Calling create_update_delivery',l_return_status);
6191: END IF;
6192: --
6193: wsh_util_core.api_post_call(
6194: p_return_status => l_return_status,
6195: x_num_errors => l_num_errors,
6196: x_num_warnings => l_num_warnings,
6197: p_msg_data => x_msg_data);
6203: --
6204: END IF;
6205: --
6206: IF l_num_warnings > 0 THEN
6207: x_return_status := wsh_util_core.g_ret_sts_warning;
6208: ELSE
6209: x_return_status := wsh_util_core.g_ret_sts_success; --bug 2398628
6210: END IF;
6211: --
6205: --
6206: IF l_num_warnings > 0 THEN
6207: x_return_status := wsh_util_core.g_ret_sts_warning;
6208: ELSE
6209: x_return_status := wsh_util_core.g_ret_sts_success; --bug 2398628
6210: END IF;
6211: --
6212: FND_MSG_PUB.Count_And_Get
6213: ( p_count => x_msg_count
6352: p_sc_report_set_name IN VARCHAR2 DEFAULT NULL,
6353: p_sc_defer_interface_flag IN VARCHAR2 DEFAULT 'Y',
6354: p_sc_send_945_flag IN VARCHAR2 DEFAULT NULL,
6355: p_wv_override_flag IN VARCHAR2 DEFAULT 'N',
6356: x_trip_rows OUT NOCOPY WSH_UTIL_CORE.id_tab_type)
6357: --
6358: IS
6359: --
6360: l_api_version_number CONSTANT NUMBER := 1.0;
6366: --
6367: --
6368: l_action_prms wsh_deliveries_grp.action_parameters_rectype;
6369: l_del_action_out_rec wsh_deliveries_grp.Delivery_Action_Out_Rec_Type;
6370: l_delivery_id_tab wsh_util_core.id_tab_type;
6371: --
6372: l_delivery_id NUMBER := p_delivery_id;
6373: --
6374: l_num_errors NUMBER := 0;
6413: IF l_debug_on THEN
6414: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_delivery_name',x_return_status);
6415: END IF;
6416: --
6417: wsh_util_core.api_post_call(
6418: p_return_status => x_return_status,
6419: x_num_errors => l_num_errors,
6420: x_num_warnings => l_num_warnings);
6421: --
6466: IF l_debug_on THEN
6467: wsh_debug_sv.log(l_module_name,'Return Status After Calling Delivery_Action',x_return_status);
6468: END IF;
6469: --
6470: wsh_util_core.api_post_call(
6471: p_return_status => x_return_status,
6472: x_num_errors => l_num_errors,
6473: x_num_warnings => l_num_warnings,
6474: p_msg_data => x_msg_data);
6481: x_trip_rows := l_del_action_out_rec.result_id_tab;
6482:
6483: --
6484: IF l_num_warnings > 0 THEN
6485: x_return_status := wsh_util_core.g_ret_sts_warning;
6486: ELSE
6487: x_return_status := wsh_util_core.g_ret_sts_success; --bug 2398628
6488: END IF;
6489: --
6483: --
6484: IF l_num_warnings > 0 THEN
6485: x_return_status := wsh_util_core.g_ret_sts_warning;
6486: ELSE
6487: x_return_status := wsh_util_core.g_ret_sts_success; --bug 2398628
6488: END IF;
6489: --
6490: FND_MSG_PUB.Count_And_Get
6491: ( p_count => x_msg_count
6563:
6564: PROCEDURE Lock_Related_Entities(
6565: p_rec_attr_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
6566: p_action_prms IN action_parameters_rectype,
6567: x_valid_ids_tab OUT NOCOPY WSH_UTIL_CORE.ID_TAB_TYPE,
6568: x_return_status OUT NOCOPY VARCHAR2
6569: ) IS
6570:
6571: l_index NUMBER;
6569: ) IS
6570:
6571: l_index NUMBER;
6572: l_stop_index NUMBER;
6573: l_stop_rows wsh_util_core.id_tab_type;
6574: l_min_stop_seq NUMBER;
6575: l_max_stop_seq NUMBER;
6576: l_stop_seq NUMBER;
6577: l_trip_id NUMBER;
6613: THEN
6614: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6615: END IF;
6616: --
6617: x_return_status := wsh_util_core.g_ret_sts_success;
6618:
6619: IF l_debug_on THEN
6620: WSH_DEBUG_SV.push(l_module_name);
6621: --
6703: wsh_debug_sv.log(l_module_name, 'Could not obtain lock of stop or trip for delivery', p_rec_attr_tab(l_index).delivery_id);
6704: END IF;
6705: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_STOP_TRIP_LOCK');
6706: FND_MESSAGE.SET_TOKEN('DLVY_NAME',l_dlvy_name);
6707: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
6708: --
6709: --
6710: WHEN others THEN
6711: IF l_debug_on THEN
6734: RAISE FND_API.G_EXC_ERROR;
6735: ELSIF x_valid_ids_tab.count >0
6736: AND x_valid_ids_tab.count < p_rec_attr_tab.count
6737: THEN
6738: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
6739: -- }
6740: END IF;
6741: -- }
6742: END IF;
6762: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6764: END IF;
6765: --
6766: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6767: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6768: --
6769: IF l_debug_on THEN
6770: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6764: END IF;
6765: --
6766: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6767: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6768: --
6769: IF l_debug_on THEN
6770: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6771: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6766: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6767: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6768: --
6769: IF l_debug_on THEN
6770: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6771: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6772: END IF;
6773: --
6774: WHEN OTHERS THEN
6767: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6768: --
6769: IF l_debug_on THEN
6770: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6771: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6772: END IF;
6773: --
6774: WHEN OTHERS THEN
6775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6772: END IF;
6773: --
6774: WHEN OTHERS THEN
6775: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6776: WSH_UTIL_CORE.default_handler('WSH_DELIVERIES_GRP.Lock_Related_Entities');
6777: IF l_debug_on THEN
6778: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6779: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6780: END IF;
6858: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'P_ENTITY_TYPE');
6859: ELSIF ( p_entity_id is null ) THEN
6860: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'P_ENTITY_ID');
6861: END IF;
6862: x_return_status := wsh_util_core.g_ret_sts_error;
6863: wsh_util_core.add_message(x_return_status, l_module_name);
6864: RAISE FND_API.G_EXC_ERROR;
6865: END IF;
6866:
6859: ELSIF ( p_entity_id is null ) THEN
6860: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'P_ENTITY_ID');
6861: END IF;
6862: x_return_status := wsh_util_core.g_ret_sts_error;
6863: wsh_util_core.add_message(x_return_status, l_module_name);
6864: RAISE FND_API.G_EXC_ERROR;
6865: END IF;
6866:
6867: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6863: wsh_util_core.add_message(x_return_status, l_module_name);
6864: RAISE FND_API.G_EXC_ERROR;
6865: END IF;
6866:
6867: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6868:
6869: --
6870: IF l_debug_on THEN
6871: wsh_debug_sv.logmsg(l_module_name, 'Calling Get_Delivery_Status', WSH_DEBUG_SV.C_PROC_LEVEL);
6870: IF l_debug_on THEN
6871: wsh_debug_sv.logmsg(l_module_name, 'Calling Get_Delivery_Status', WSH_DEBUG_SV.C_PROC_LEVEL);
6872: END IF;
6873: --
6874: WSH_UTIL_CORE.Get_Delivery_Status (
6875: p_entity_type => p_entity_type,
6876: p_entity_id => p_entity_id,
6877: x_status_code => x_status_code,
6878: x_return_status => l_return_status );
6880: IF l_debug_on THEN
6881: wsh_debug_sv.log(l_module_name, 'Return Status after Calling Get_Delivery_Status', l_return_status);
6882: END IF;
6883: --
6884: WSH_UTIL_CORE.api_post_call(
6885: p_return_status => l_return_status,
6886: x_num_warnings => l_num_warnings,
6887: x_num_errors => l_num_errors);
6888: --
6894: END IF;
6895: --
6896: EXCEPTION
6897: WHEN FND_API.G_EXC_ERROR THEN
6898: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6899: FND_MSG_PUB.Count_And_Get (
6900: p_count => x_msg_count,
6901: p_data => x_msg_data,
6902: p_encoded => FND_API.G_FALSE );
6906: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
6907: END IF;
6908: --
6909: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6910: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6911: FND_MSG_PUB.Count_And_Get (
6912: p_count => x_msg_count,
6913: p_data => x_msg_data,
6914: p_encoded => FND_API.G_FALSE );
6918: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6919: END IF;
6920: --
6921: WHEN OTHERS THEN
6922: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
6923: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Get_Delivery_Status');
6924: --
6925: IF l_debug_on THEN
6926: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6919: END IF;
6920: --
6921: WHEN OTHERS THEN
6922: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
6923: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Get_Delivery_Status');
6924: --
6925: IF l_debug_on THEN
6926: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6927: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:OTHERS');