[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: --===================
204: --
205: l_debug_on BOOLEAN;
206: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELIVERY_ACTION';
207: --
208: l_delivery_id_tab wsh_util_core.id_tab_type;
209: l_valid_ids_tab wsh_util_core.id_tab_type;
210: l_valid_index_tab wsh_util_core.id_tab_type;
211: l_error_ids wsh_util_core.id_tab_type;
212: l_org_id_tab wsh_util_core.id_tab_type;
205: l_debug_on BOOLEAN;
206: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELIVERY_ACTION';
207: --
208: l_delivery_id_tab wsh_util_core.id_tab_type;
209: l_valid_ids_tab wsh_util_core.id_tab_type;
210: l_valid_index_tab wsh_util_core.id_tab_type;
211: l_error_ids wsh_util_core.id_tab_type;
212: l_org_id_tab wsh_util_core.id_tab_type;
213: l_Client_id_tab wsh_util_core.id_tab_type; -- Modified R12.1.1 LSP PROJECT
206: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'DELIVERY_ACTION';
207: --
208: l_delivery_id_tab wsh_util_core.id_tab_type;
209: l_valid_ids_tab wsh_util_core.id_tab_type;
210: l_valid_index_tab wsh_util_core.id_tab_type;
211: l_error_ids wsh_util_core.id_tab_type;
212: l_org_id_tab wsh_util_core.id_tab_type;
213: l_Client_id_tab wsh_util_core.id_tab_type; -- Modified R12.1.1 LSP PROJECT
214: l_rec_attr_tab wsh_new_deliveries_pvt.Delivery_Attr_Tbl_Type;
207: --
208: l_delivery_id_tab wsh_util_core.id_tab_type;
209: l_valid_ids_tab wsh_util_core.id_tab_type;
210: l_valid_index_tab wsh_util_core.id_tab_type;
211: l_error_ids wsh_util_core.id_tab_type;
212: l_org_id_tab wsh_util_core.id_tab_type;
213: l_Client_id_tab wsh_util_core.id_tab_type; -- Modified R12.1.1 LSP PROJECT
214: l_rec_attr_tab wsh_new_deliveries_pvt.Delivery_Attr_Tbl_Type;
215: l_ship_method_code_tab WSH_NEW_DELIVERY_ACTIONS.ship_method_type;
208: l_delivery_id_tab wsh_util_core.id_tab_type;
209: l_valid_ids_tab wsh_util_core.id_tab_type;
210: l_valid_index_tab wsh_util_core.id_tab_type;
211: l_error_ids wsh_util_core.id_tab_type;
212: l_org_id_tab wsh_util_core.id_tab_type;
213: l_Client_id_tab wsh_util_core.id_tab_type; -- Modified R12.1.1 LSP PROJECT
214: l_rec_attr_tab wsh_new_deliveries_pvt.Delivery_Attr_Tbl_Type;
215: l_ship_method_code_tab WSH_NEW_DELIVERY_ACTIONS.ship_method_type;
216: l_delivery_rec_tab wsh_delivery_validations.dlvy_rec_tab_type;
209: l_valid_ids_tab wsh_util_core.id_tab_type;
210: l_valid_index_tab wsh_util_core.id_tab_type;
211: l_error_ids wsh_util_core.id_tab_type;
212: l_org_id_tab wsh_util_core.id_tab_type;
213: l_Client_id_tab wsh_util_core.id_tab_type; -- Modified R12.1.1 LSP PROJECT
214: l_rec_attr_tab wsh_new_deliveries_pvt.Delivery_Attr_Tbl_Type;
215: l_ship_method_code_tab WSH_NEW_DELIVERY_ACTIONS.ship_method_type;
216: l_delivery_rec_tab wsh_delivery_validations.dlvy_rec_tab_type;
217: l_dummy_id_tab wsh_util_core.id_tab_type;
213: l_Client_id_tab wsh_util_core.id_tab_type; -- Modified R12.1.1 LSP PROJECT
214: l_rec_attr_tab wsh_new_deliveries_pvt.Delivery_Attr_Tbl_Type;
215: l_ship_method_code_tab WSH_NEW_DELIVERY_ACTIONS.ship_method_type;
216: l_delivery_rec_tab wsh_delivery_validations.dlvy_rec_tab_type;
217: l_dummy_id_tab wsh_util_core.id_tab_type;
218: l_dummy_doc_set_params wsh_document_sets.document_set_tab_type;
219: l_param_name VARCHAR2(100);
220: l_isWshLocation BOOLEAN DEFAULT FALSE;
221: --
226: l_cc_line_groups WSH_FTE_COMP_CONSTRAINT_PKG.line_group_tab_type;
227: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
228: b_cc_linefailed boolean;
229: b_cc_groupidexists boolean;
230: l_delivery_id_tab_temp wsh_util_core.id_tab_type;
231: l_delivery_id_tab_t wsh_util_core.id_tab_type;
232: l_rec_attr_tab_temp WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
233: l_cc_count_success NUMBER;
234: l_cc_count_group_ids NUMBER;
227: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
228: b_cc_linefailed boolean;
229: b_cc_groupidexists boolean;
230: l_delivery_id_tab_temp wsh_util_core.id_tab_type;
231: l_delivery_id_tab_t wsh_util_core.id_tab_type;
232: l_rec_attr_tab_temp WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
233: l_cc_count_success NUMBER;
234: l_cc_count_group_ids NUMBER;
235: l_cc_count_rec NUMBER;
232: l_rec_attr_tab_temp WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
233: l_cc_count_success NUMBER;
234: l_cc_count_group_ids NUMBER;
235: l_cc_count_rec NUMBER;
236: l_cc_group_ids wsh_util_core.id_tab_type;
237: l_cc_upd_dlvy_intmed_ship_to VARCHAR2(1);
238: l_cc_upd_dlvy_ship_method VARCHAR2(1);
239: l_cc_dlvy_intmed_ship_to NUMBER;
240: l_cc_dlvy_ship_method VARCHAR2(30);
237: l_cc_upd_dlvy_intmed_ship_to VARCHAR2(1);
238: l_cc_upd_dlvy_ship_method VARCHAR2(1);
239: l_cc_dlvy_intmed_ship_to NUMBER;
240: l_cc_dlvy_ship_method VARCHAR2(30);
241: l_cc_del_rows wsh_util_core.id_tab_type;
242: l_cc_grouping_rows wsh_util_core.id_tab_type;
243: l_cc_return_status VARCHAR2(1);
244: l_cc_count_del_rows NUMBER;
245: l_cc_count_trip_rows NUMBER;
238: l_cc_upd_dlvy_ship_method VARCHAR2(1);
239: l_cc_dlvy_intmed_ship_to NUMBER;
240: l_cc_dlvy_ship_method VARCHAR2(30);
241: l_cc_del_rows wsh_util_core.id_tab_type;
242: l_cc_grouping_rows wsh_util_core.id_tab_type;
243: l_cc_return_status VARCHAR2(1);
244: l_cc_count_del_rows NUMBER;
245: l_cc_count_trip_rows NUMBER;
246: l_cc_count_grouping_rows NUMBER;
243: l_cc_return_status VARCHAR2(1);
244: l_cc_count_del_rows NUMBER;
245: l_cc_count_trip_rows NUMBER;
246: l_cc_count_grouping_rows NUMBER;
247: l_cc_trip_id wsh_util_core.id_tab_type;
248: l_cc_trip_id_tab wsh_util_core.id_tab_type;
249: --dummy tables for calling validate_constraint_mainper
250: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
251: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
244: l_cc_count_del_rows NUMBER;
245: l_cc_count_trip_rows NUMBER;
246: l_cc_count_grouping_rows NUMBER;
247: l_cc_trip_id wsh_util_core.id_tab_type;
248: l_cc_trip_id_tab wsh_util_core.id_tab_type;
249: --dummy tables for calling validate_constraint_mainper
250: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
251: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
252: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
250: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
251: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
252: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
253: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
254: l_cc_in_ids wsh_util_core.id_tab_type;
255: l_cc_fail_ids wsh_util_core.id_tab_type;
256: --
257:
258: --Compatibility Changes
251: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
252: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
253: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
254: l_cc_in_ids wsh_util_core.id_tab_type;
255: l_cc_fail_ids wsh_util_core.id_tab_type;
256: --
257:
258: --Compatibility Changes
259: --
257:
258: --Compatibility Changes
259: --
260: l_tripindex NUMBER;
261: l_trip_names wsh_util_core.column_tab_type;
262:
263: --
264: -- l_trip_name VARCHAR2(30) := NULL;
265: l_action_code VARCHAR2(32767);
276: l_request_id NUMBER;
277:
278: -- Added for bug 4493263
279: l_doc_set_id NUMBER;
280: l_doc_delivery_id_tab wsh_util_core.id_tab_type;
281: l_doc_valid_ids_tab wsh_util_core.id_tab_type;
282:
283: l_dleg_prms WSH_DELIVERY_LEGS_GRP.action_parameters_rectype;
284: l_dleg_action_out_rec WSH_DELIVERY_LEGS_GRP.action_out_rec_type;
277:
278: -- Added for bug 4493263
279: l_doc_set_id NUMBER;
280: l_doc_delivery_id_tab wsh_util_core.id_tab_type;
281: l_doc_valid_ids_tab wsh_util_core.id_tab_type;
282:
283: l_dleg_prms WSH_DELIVERY_LEGS_GRP.action_parameters_rectype;
284: l_dleg_action_out_rec WSH_DELIVERY_LEGS_GRP.action_out_rec_type;
285: l_dleg_tab WSH_DELIVERY_LEGS_GRP.dlvy_leg_tab_type;
291: l_loop_num_err NUMBER := 0;
292: l_submitted_docs NUMBER :=0;
293: l_req_id_str VARCHAR2(2000);
294: -- PACK J: KVENKATE
295: l_routingRespIdTab wsh_util_core.id_tab_type;
296:
297: -- csun deliveryMerge
298: l_exception_id NUMBER;
299: l_initial_pickup_location_id NUMBER;
333: l_lpn_in_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_in_rec_type;
334: l_lpn_out_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_out_rec_type;
335: -- K LPN CONV. rv
336:
337: l_child_deliveries_tab wsh_util_core.id_tab_type;
338:
339: --OTM R12
340: l_new_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
341: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
336:
337: l_child_deliveries_tab wsh_util_core.id_tab_type;
338:
339: --OTM R12
340: l_new_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
341: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
342: l_gc3_is_installed VARCHAR2(1);
343: --
344:
337: l_child_deliveries_tab wsh_util_core.id_tab_type;
338:
339: --OTM R12
340: l_new_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
341: l_new_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
342: l_gc3_is_installed VARCHAR2(1);
343: --
344:
345: BEGIN
345: BEGIN
346: <
347: --
348: -- Bug 4070732
349: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
350: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
351: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
352: END IF;
353: --
346: <
347: --
348: -- Bug 4070732
349: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
350: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
351: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
352: END IF;
353: --
354: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
347: --
348: -- Bug 4070732
349: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN
350: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
351: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
352: END IF;
353: --
354: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
355: --
413:
414: IF l_param_name is not null THEN
415: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
416: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
417: x_return_status := wsh_util_core.g_ret_sts_error;
418: wsh_util_core.add_message(x_return_status,l_module_name);
419: RAISE FND_API.G_EXC_ERROR;
420: END IF;
421:
414: IF l_param_name is not null THEN
415: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
416: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
417: x_return_status := wsh_util_core.g_ret_sts_error;
418: wsh_util_core.add_message(x_return_status,l_module_name);
419: RAISE FND_API.G_EXC_ERROR;
420: END IF;
421:
422: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
418: wsh_util_core.add_message(x_return_status,l_module_name);
419: RAISE FND_API.G_EXC_ERROR;
420: END IF;
421:
422: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
423:
424: --OTM R12
425: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
426:
421:
422: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
423:
424: --OTM R12
425: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
426:
427: IF l_gc3_is_installed IS NULL THEN
428: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
429: END IF;
424: --OTM R12
425: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
426:
427: IF l_gc3_is_installed IS NULL THEN
428: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
429: END IF;
430: --
431:
432: IF p_action_prms.caller IN ( 'WSH_FSTRX' , 'WSH_TPW_INBOUND')
518: IF l_debug_on THEN
519: wsh_debug_sv.log(l_module_name,'Return Status After Calling set_validation_level',l_return_status);
520: END IF;
521: --
522: wsh_util_core.api_post_call(
523: p_return_status => l_return_status,
524: x_num_warnings => l_num_warnings,
525: x_num_errors => l_num_errors);
526: --
542: IF l_debug_on THEN
543: wsh_debug_sv.log(l_module_name,'Return Status After Calling IS_Action_Enabled',l_return_status);
544: END IF;
545: --
546: wsh_util_core.api_post_call(
547: p_return_status => l_return_status,
548: x_num_warnings => l_num_warnings,
549: x_num_errors => l_num_errors,
550: p_msg_data => NULL,
574: IF l_debug_on THEN
575: wsh_debug_sv.log(l_module_name,'Return Status After Calling Lock_Delivery',l_return_status);
576: END IF;
577: --
578: wsh_util_core.api_post_call(
579: p_return_status => l_return_status,
580: x_num_warnings => l_num_warnings,
581: x_num_errors => l_num_errors,
582: p_msg_data => NULL,
589:
590: --
591: IF(l_num_errors >0 ) THEN
592: --{
593: x_return_status := wsh_util_core.g_ret_sts_error;
594: --
595: IF p_action_prms.caller = 'WSH_FSTRX' THEN
596: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION');
597: wsh_util_core.add_message(x_return_status,l_module_name);
593: x_return_status := wsh_util_core.g_ret_sts_error;
594: --
595: IF p_action_prms.caller = 'WSH_FSTRX' THEN
596: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION');
597: wsh_util_core.add_message(x_return_status,l_module_name);
598: END IF;
599: --
600: IF l_debug_on THEN
601: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION');
674: wsh_debug_sv.log(l_module_name,' DI flag ',x_defaults_rec.defer_interface_flag);
675:
676: END IF;
677: --
678: wsh_util_core.api_post_call(
679: p_return_status => l_return_status,
680: x_num_warnings => l_num_warnings,
681: x_num_errors => l_num_errors);
682: --
700: IF l_debug_on THEN
701: wsh_debug_sv.log(l_module_name,'Return Status After Calling check_unassign_trip',l_return_status);
702: END IF;
703: --
704: wsh_util_core.api_post_call(
705: p_return_status => l_return_status,
706: x_num_warnings => l_num_warnings,
707: x_num_errors => l_num_errors);
708: --
710: --
711: IF l_num_warnings > 0 THEN
712: --
713: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION_WARN');
714: x_return_status := wsh_util_core.g_ret_sts_warning;
715: wsh_util_core.add_message(x_return_status,l_module_name);
716: IF l_debug_on THEN
717: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION_WARN');
718: wsh_debug_sv.log(l_module_name, 'x_delivery_out_rec.valid_ids_tab count is', l_valid_ids_tab.count);
711: IF l_num_warnings > 0 THEN
712: --
713: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION_WARN');
714: x_return_status := wsh_util_core.g_ret_sts_warning;
715: wsh_util_core.add_message(x_return_status,l_module_name);
716: IF l_debug_on THEN
717: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION_WARN');
718: wsh_debug_sv.log(l_module_name, 'x_delivery_out_rec.valid_ids_tab count is', l_valid_ids_tab.count);
719: END IF;
719: END IF;
720: --
721: IF p_action_prms.caller IN ('WSH_FSTRX', 'WSH_TRCON') THEN
722: x_delivery_out_rec.selection_issue_flag := 'Y';
723: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
724: ELSE
725: RAISE FND_API.G_EXC_ERROR;
726: END IF;
727: --
730: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_VALIDATE_CONSTRAINTS_LVL) = 1 THEN --{
731: --Compatiblity Changes
732: --for autocreatetrip or if assign trip and caller is STF, phase=2
733:
734: IF wsh_util_core.fte_is_installed='Y' THEN
735:
736: l_caller_module := SUBSTR(p_action_prms.caller,1,3);
737: --
738: IF l_debug_on THEN
820: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
821: END IF;
822: --
823:
824: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
825: --fix l_rec_attr_tab to have only successful records
826: l_cc_count_success:=1;
827:
828: IF l_debug_on THEN
829: wsh_debug_sv.log(l_module_name,'p_rec_attr_tab.count before removing failed lines',p_rec_attr_tab.COUNT);
830: END IF;
831:
832: IF l_cc_failed_records.COUNT = 0 AND p_rec_attr_tab.COUNT>0 THEN
833: l_return_status := wsh_util_core.g_ret_sts_success;
834: END IF;
835:
836:
837: IF l_cc_failed_records.COUNT>0 AND p_rec_attr_tab.COUNT>0 THEN
837: IF l_cc_failed_records.COUNT>0 AND p_rec_attr_tab.COUNT>0 THEN
838:
839: --set return_status as warning
840: IF l_cc_failed_records.COUNT<>p_rec_attr_tab.COUNT THEN
841: l_return_status:=wsh_util_core.g_ret_sts_warning;
842: END IF;
843:
844: FOR i in p_rec_attr_tab.FIRST..p_rec_attr_tab.LAST LOOP
845: b_cc_linefailed:=FALSE;
848: IF (p_rec_attr_tab(i).delivery_id=l_cc_failed_records(j).entity_line_id) THEN
849: b_cc_linefailed:=TRUE;
850: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
851: FND_MESSAGE.SET_TOKEN('DEL_ID',l_cc_failed_records(j).entity_line_id);
852: wsh_util_core.add_message(l_return_status);
853: END IF;
854: END LOOP;
855:
856: IF (NOT(b_cc_linefailed)) THEN
867: --bsadri for assign-trip, if one line fails, then fail all lines {
868: IF l_action_code = 'ASSIGN-TRIP'
869: AND l_cc_failed_records.COUNT > 0 THEN
870: l_delivery_id_tab_t.DELETE;
871: l_return_status := wsh_util_core.g_ret_sts_error;
872: END IF;
873: --}
874:
875:
878: ELSE
879: IF l_debug_on THEN
880: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
881: END IF;
882: wsh_util_core.api_post_call(
883: p_return_status => l_return_status,
884: x_num_warnings => l_num_warnings,
885: x_num_errors => l_num_errors);
886:
890: wsh_debug_sv.log(l_module_name,'l_delivery_id_tab.count before removing failed lines',l_delivery_id_tab.COUNT);
891: END IF;
892: END IF;
893:
894: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
895: wsh_util_core.api_post_call(
896: p_return_status => l_return_status,
897: x_num_warnings => l_num_warnings,
898: x_num_errors => l_num_errors);
891: END IF;
892: END IF;
893:
894: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
895: wsh_util_core.api_post_call(
896: p_return_status => l_return_status,
897: x_num_warnings => l_num_warnings,
898: x_num_errors => l_num_errors);
899: END IF;
897: x_num_warnings => l_num_warnings,
898: x_num_errors => l_num_errors);
899: END IF;
900: --bug 3763800 : removed l_msg_data input so that message does not get added again
901: wsh_util_core.api_post_call(
902: p_return_status => l_return_status,
903: x_num_warnings => l_num_warnings,
904: x_num_errors => l_num_errors,
905: p_raise_error_flag => FALSE);
914: 'PRINT-DOC-SETS')
915: AND nvl(p_action_prms.phase,1) = 1
916: AND p_action_prms.caller = 'WSH_FSTRX'
917: THEN
918: x_return_status := wsh_util_core.g_ret_sts_success;
919:
920: --Start of bug 4070732
921: --Calling Reset_stops_for_load_tender as it is returning successfully.
922:
920: --Start of bug 4070732
921: --Calling Reset_stops_for_load_tender as it is returning successfully.
922:
923: --Bugfix 4070732 {
924: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
925: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
926: IF l_debug_on THEN
927: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
928: END IF;
921: --Calling Reset_stops_for_load_tender as it is returning successfully.
922:
923: --Bugfix 4070732 {
924: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
925: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
926: IF l_debug_on THEN
927: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
928: END IF;
929:
923: --Bugfix 4070732 {
924: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
925: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
926: IF l_debug_on THEN
927: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
928: END IF;
929:
930: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
931: x_return_status => x_return_status);
926: IF l_debug_on THEN
927: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
928: END IF;
929:
930: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
931: x_return_status => x_return_status);
932:
933: IF l_debug_on THEN
934: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
957: x_valid_ids_tab => l_delivery_id_tab,
958: x_return_status => l_return_status
959: );
960:
961: wsh_util_core.api_post_call(
962: p_return_status => l_return_status,
963: x_num_warnings => l_num_warnings,
964: x_num_errors => l_num_errors);
965: --
975: AND nvl(p_action_prms.trip_name, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR)
976: THEN
977: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_OR_NAME_REQUIRED');
978: FND_MESSAGE.SET_TOKEN('ACTION_CODE' , p_action_prms.action_code);
979: l_return_status := wsh_util_core.g_ret_sts_error;
980: wsh_util_core.add_message(l_return_status,l_module_name);
981: IF l_debug_on THEN
982: wsh_debug_sv.log (l_module_name,'Trip_id or Trip_name is required for this action');
983: END IF;
976: THEN
977: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_OR_NAME_REQUIRED');
978: FND_MESSAGE.SET_TOKEN('ACTION_CODE' , p_action_prms.action_code);
979: l_return_status := wsh_util_core.g_ret_sts_error;
980: wsh_util_core.add_message(l_return_status,l_module_name);
981: IF l_debug_on THEN
982: wsh_debug_sv.log (l_module_name,'Trip_id or Trip_name is required for this action');
983: END IF;
984: RAISE FND_API.G_EXC_ERROR;
1005: IF l_debug_on THEN
1006: wsh_debug_sv.log(l_module_name,'Return Status After Calling generate_routing_response',l_return_status);
1007: END IF;
1008: --
1009: wsh_util_core.api_post_call(
1010: p_return_status => l_return_status,
1011: x_num_warnings => l_num_warnings,
1012: x_num_errors => l_num_errors);
1013: --
1022: IF l_debug_on THEN
1023: wsh_debug_sv.log(l_module_name,'Return Status After Calling Plan',l_return_status);
1024: END IF;
1025: --
1026: wsh_util_core.api_post_call(
1027: p_return_status => l_return_status,
1028: x_num_warnings => l_num_warnings,
1029: x_num_errors => l_num_errors);
1030: --
1038: IF l_debug_on THEN
1039: wsh_debug_sv.log(l_module_name,'Return Status After Calling Unplan',l_return_status);
1040: END IF;
1041: --
1042: wsh_util_core.api_post_call(
1043: p_return_status => l_return_status,
1044: x_num_warnings => l_num_warnings,
1045: x_num_errors => l_num_errors);
1046: --
1054: IF l_debug_on THEN
1055: wsh_debug_sv.log(l_module_name,'Return Status After Calling firm',l_return_status);
1056: END IF;
1057: --
1058: wsh_util_core.api_post_call(
1059: p_return_status => l_return_status,
1060: x_num_warnings => l_num_warnings,
1061: x_num_errors => l_num_errors);
1062: --
1071: IF l_debug_on THEN
1072: wsh_debug_sv.log(l_module_name,'Return Status After Calling change_ignoreplan_status ',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: --
1111: IF l_debug_on THEN
1112: wsh_debug_sv.log(l_module_name,'Return Status After Calling Launch_Pick_Release',l_return_status);
1113: END IF;
1114: --
1115: wsh_util_core.api_post_call(
1116: p_return_status => l_return_status,
1117: x_num_warnings => l_num_warnings,
1118: x_num_errors => l_num_errors);
1119: --
1131: IF l_debug_on THEN
1132: wsh_debug_sv.log(l_module_name,'Return Status After Calling Launch_Pick_Release',l_return_status);
1133: END IF;
1134: --
1135: wsh_util_core.api_post_call(
1136: p_return_status => l_return_status,
1137: x_num_warnings => l_num_warnings,
1138: x_num_errors => l_num_errors);
1139: --
1149: IF l_debug_on THEN
1150: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Report_Set',l_return_status);
1151: END IF;
1152: --
1153: wsh_util_core.api_post_call(
1154: p_return_status => l_return_status,
1155: x_num_warnings => l_num_warnings,
1156: x_num_errors => l_num_errors);
1157: --
1187: IF l_debug_on THEN
1188: wsh_debug_sv.log(l_module_name,'Return Status After Calling Print_Document_Sets',l_return_status);
1189: END IF;
1190: --
1191: wsh_util_core.api_post_call(
1192: p_return_status => l_return_status,
1193: x_num_warnings => l_num_warnings,
1194: x_num_errors => l_num_errors);
1195: --
1213: IF l_debug_on THEN
1214: wsh_debug_sv.log(l_module_name,'Return Status After Calling Delivery_Weight_Volume',l_return_status);
1215: END IF;
1216: --
1217: wsh_util_core.api_post_call(
1218: p_return_status => l_return_status,
1219: x_num_warnings => l_num_warnings,
1220: x_num_errors => l_num_errors);
1221:
1258: IF l_debug_on THEN
1259: wsh_debug_sv.log(l_module_name,'Return Status After Calling Auto_Pack for Action Auto_Pack',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);
1298: IF l_debug_on THEN
1299: wsh_debug_sv.log(l_module_name,'Return Status After Calling Auto_Pack for Action Auto_Pack_Master',l_return_status);
1300: END IF;
1301: --
1302: wsh_util_core.api_post_call(
1303: p_return_status => l_return_status,
1304: x_num_warnings => l_num_warnings,
1305: x_num_errors => l_num_errors,
1306: p_msg_data => l_msg_data);
1315: IF l_debug_on THEN
1316: wsh_debug_sv.log(l_module_name,'Return Status After Calling Generate_Loading_Seq',l_return_status);
1317: END IF;
1318: --
1319: wsh_util_core.api_post_call(
1320: p_return_status => l_return_status,
1321: x_num_warnings => l_num_warnings,
1322: x_num_errors => l_num_errors);
1323: --
1333: IF l_debug_on THEN
1334: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_AUTOCREATE.Autocreate_Consol_Delivery',l_return_status);
1335: END IF;
1336: --
1337: wsh_util_core.api_post_call(
1338: p_return_status => l_return_status,
1339: x_num_warnings => l_num_warnings,
1340: x_num_errors => l_num_errors,
1341: p_msg_data => l_msg_data);
1370: BEGIN
1371: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(
1372: x_param_info => l_global_parameters,
1373: x_return_status => l_return_status);
1374: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1375: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1376: x_return_status := l_return_status;
1377: IF l_debug_on THEN
1378: WSH_DEBUG_SV.pop(l_module_name,'get_global_parameters failed');
1371: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(
1372: x_param_info => l_global_parameters,
1373: x_return_status => l_return_status);
1374: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1375: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1376: x_return_status := l_return_status;
1377: IF l_debug_on THEN
1378: WSH_DEBUG_SV.pop(l_module_name,'get_global_parameters failed');
1379: END IF;
1381: END IF;
1382:
1383: IF l_global_parameters.enforce_ship_method = 'Y' THEN
1384: FND_MESSAGE.SET_NAME('WSH','WSH_SC_SM_REQUIRED');
1385: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1386: wsh_util_core.add_message(x_return_status,l_module_name);
1387: IF l_debug_on THEN
1388: WSH_DEBUG_SV.pop(l_module_name,'ship method is required');
1389: END IF;
1382:
1383: IF l_global_parameters.enforce_ship_method = 'Y' THEN
1384: FND_MESSAGE.SET_NAME('WSH','WSH_SC_SM_REQUIRED');
1385: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1386: wsh_util_core.add_message(x_return_status,l_module_name);
1387: IF l_debug_on THEN
1388: WSH_DEBUG_SV.pop(l_module_name,'ship method is required');
1389: END IF;
1390: RETURN;
1407: EXIT WHEN c_del_assign_to_trip%NOTFOUND;
1408: IF l_temp_trip_id is not NULL THEN
1409: l_is_del_assign_trip := TRUE;
1410:
1411: IF WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y' AND l_temp_lane_id is not NULL AND
1412: NVL(l_ship_method_code,l_temp_ship_method_code) <> l_temp_ship_method_code THEN
1413: CLOSE c_del_assign_to_trip;
1414: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1415: FND_MESSAGE.SET_NAME('FTE', 'FTE_SEGMENT_CSM_CHANGE_ERROR');
1410:
1411: IF WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y' AND l_temp_lane_id is not NULL AND
1412: NVL(l_ship_method_code,l_temp_ship_method_code) <> l_temp_ship_method_code THEN
1413: CLOSE c_del_assign_to_trip;
1414: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1415: FND_MESSAGE.SET_NAME('FTE', 'FTE_SEGMENT_CSM_CHANGE_ERROR');
1416: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME', wsh_trips_pvt.get_name(l_temp_trip_id));
1417: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1418:
1413: CLOSE c_del_assign_to_trip;
1414: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1415: FND_MESSAGE.SET_NAME('FTE', 'FTE_SEGMENT_CSM_CHANGE_ERROR');
1416: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME', wsh_trips_pvt.get_name(l_temp_trip_id));
1417: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1418:
1419: wsh_util_core.api_post_call(
1420: p_return_status => l_return_status,
1421: x_num_warnings => l_num_warnings,
1415: FND_MESSAGE.SET_NAME('FTE', 'FTE_SEGMENT_CSM_CHANGE_ERROR');
1416: FND_MESSAGE.SET_TOKEN('TRIP_SEGMENT_NAME', wsh_trips_pvt.get_name(l_temp_trip_id));
1417: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
1418:
1419: wsh_util_core.api_post_call(
1420: p_return_status => l_return_status,
1421: x_num_warnings => l_num_warnings,
1422: x_num_errors => l_num_errors);
1423: END IF;
1439: ( p_ship_method_code => l_ship_method_code,
1440: p_ship_method_name => l_ship_method_name,
1441: x_return_status => l_return_status
1442: );
1443: wsh_util_core.api_post_call(p_return_status => l_return_status,
1444: x_num_warnings => l_num_warnings,
1445: x_num_errors => l_num_errors);
1446: END IF;
1447:
1469: IF l_debug_on THEN
1470: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Report_Set',l_return_status);
1471: END IF;
1472: --
1473: wsh_util_core.api_post_call(
1474: p_return_status => l_return_status,
1475: x_num_warnings => l_num_warnings,
1476: x_num_errors => l_num_errors);
1477: --
1521: IF l_debug_on THEN
1522: wsh_debug_sv.log(l_module_name,'Return Status After Calling Confirm_Delivery',l_return_status);
1523: END IF;
1524: --
1525: wsh_util_core.api_post_call(
1526: p_return_status => l_return_status,
1527: x_num_warnings => l_num_warnings,
1528: x_num_errors => l_num_errors);
1529: --
1532: -- Bug#5864517: Needs to call Print_Label API irrespective of p_intransit_flag and p_close_flag
1533: -- flag values.
1534: --
1535: IF l_debug_on THEN
1536: WSH_DEBUG_SV.log(l_module_name,'Calling WSH_UTIL_CORE.Print_Label');
1537: END IF;
1538:
1539: WSH_UTIL_CORE.Print_Label(
1540: p_stop_ids => l_dummy_id_tab,
1535: IF l_debug_on THEN
1536: WSH_DEBUG_SV.log(l_module_name,'Calling WSH_UTIL_CORE.Print_Label');
1537: END IF;
1538:
1539: WSH_UTIL_CORE.Print_Label(
1540: p_stop_ids => l_dummy_id_tab,
1541: p_delivery_ids => l_delivery_id_tab,
1542: x_return_status => l_return_status);
1543: --
1544: IF l_debug_on THEN
1545: wsh_debug_sv.log(l_module_name,'Return Status After Calling Print_Label',l_return_status);
1546: END IF;
1547: --
1548: wsh_util_core.api_post_call(
1549: p_return_status => l_return_status,
1550: x_num_warnings => l_num_warnings,
1551: x_num_errors => l_num_errors);
1552: --
1565: IF l_debug_on THEN
1566: wsh_debug_sv.log(l_module_name,'Return Status After Calling Change_Status',l_return_status);
1567: END IF;
1568: --
1569: wsh_util_core.api_post_call(
1570: p_return_status => l_return_status,
1571: x_num_warnings => l_num_warnings,
1572: x_num_errors => l_num_errors);
1573: --
1583: IF l_debug_on THEN
1584: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Trip_Name',l_return_status);
1585: END IF;
1586: --
1587: wsh_util_core.api_post_call(
1588: p_return_status => l_return_status,
1589: x_num_warnings => l_num_warnings,
1590: x_num_errors => l_num_errors);
1591: --
1602: IF l_debug_on THEN
1603: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Trip_Status',l_return_status);
1604: END IF;
1605: --
1606: wsh_util_core.api_post_call(
1607: p_return_status => l_return_status,
1608: x_num_warnings => l_num_warnings,
1609: x_num_errors => l_num_errors);
1610: --
1621: IF l_debug_on THEN
1622: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Location',l_return_status);
1623: END IF;
1624: --
1625: wsh_util_core.api_post_call(
1626: p_return_status => l_return_status,
1627: x_num_warnings => l_num_warnings,
1628: x_num_errors => l_num_errors);
1629: --
1636: IF l_debug_on THEN
1637: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Location',l_return_status);
1638: END IF;
1639: --
1640: wsh_util_core.api_post_call(
1641: p_return_status => l_return_status,
1642: x_num_warnings => l_num_warnings,
1643: x_num_errors => l_num_errors);
1644: --
1660: IF l_debug_on THEN
1661: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Stop_Name for pickup',l_return_status);
1662: END IF;
1663: --
1664: wsh_util_core.api_post_call(
1665: p_return_status => l_return_status,
1666: x_num_warnings => l_num_warnings,
1667: x_num_errors => l_num_errors);
1668: --
1680: IF l_debug_on THEN
1681: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Stop_Name for drop off',l_return_status);
1682: END IF;
1683: --
1684: wsh_util_core.api_post_call(
1685: p_return_status => l_return_status,
1686: x_num_warnings => l_num_warnings,
1687: x_num_errors => l_num_errors);
1688: --
1709: IF l_debug_on THEN
1710: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Sequence_Number',l_return_status);
1711: END IF;
1712: --
1713: wsh_util_core.api_post_call(
1714: p_return_status => l_return_status,
1715: x_num_warnings => l_num_warnings,
1716: x_num_errors => l_num_errors);
1717: --
1725: IF l_debug_on THEN
1726: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Sequence_Number',l_return_status);
1727: END IF;
1728: --
1729: wsh_util_core.api_post_call(
1730: p_return_status => l_return_status,
1731: x_num_warnings => l_num_warnings,
1732: x_num_errors => l_num_errors);
1733: --
1739:
1740: IF p_action_prms.pickup_dep_date is not NULL and
1741: p_action_prms.pickup_arr_date is not NULL and
1742: (p_action_prms.pickup_dep_date < p_action_prms.pickup_arr_date) THEN
1743: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1744:
1745: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1746: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1747: wsh_util_core.add_message(l_return_status, l_module_name);
1741: p_action_prms.pickup_arr_date is not NULL and
1742: (p_action_prms.pickup_dep_date < p_action_prms.pickup_arr_date) THEN
1743: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1744:
1745: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1746: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1747: wsh_util_core.add_message(l_return_status, l_module_name);
1748:
1749: wsh_util_core.api_post_call(
1743: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1744:
1745: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1746: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1747: wsh_util_core.add_message(l_return_status, l_module_name);
1748:
1749: wsh_util_core.api_post_call(
1750: p_return_status => l_return_status,
1751: x_num_warnings => l_num_warnings,
1745: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1746: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1747: wsh_util_core.add_message(l_return_status, l_module_name);
1748:
1749: wsh_util_core.api_post_call(
1750: p_return_status => l_return_status,
1751: x_num_warnings => l_num_warnings,
1752: x_num_errors => l_num_errors);
1753: END IF;
1755: IF p_action_prms.dropoff_dep_date is not NULL and
1756: p_action_prms.dropoff_arr_date is not NULL and
1757: (p_action_prms.dropoff_dep_date < p_action_prms.dropoff_arr_date) THEN
1758:
1759: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1760: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1761: wsh_util_core.add_message(l_return_status, l_module_name);
1762:
1763: wsh_util_core.api_post_call(
1757: (p_action_prms.dropoff_dep_date < p_action_prms.dropoff_arr_date) THEN
1758:
1759: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1760: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1761: wsh_util_core.add_message(l_return_status, l_module_name);
1762:
1763: wsh_util_core.api_post_call(
1764: p_return_status => l_return_status,
1765: x_num_warnings => l_num_warnings,
1759: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1760: FND_MESSAGE.SET_NAME('WSH', 'WSH_PLAN_DEP_ARR_DATE');
1761: wsh_util_core.add_message(l_return_status, l_module_name);
1762:
1763: wsh_util_core.api_post_call(
1764: p_return_status => l_return_status,
1765: x_num_warnings => l_num_warnings,
1766: x_num_errors => l_num_errors);
1767: END IF;
1789: END IF;
1790:
1791: FND_MESSAGE.SET_NAME('WSH', 'WSH_OTM_ASSIGN_TRIP');
1792:
1793: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1794: WSH_UTIL_CORE.add_message(x_return_status, l_module_name);
1795:
1796: wsh_util_core.api_post_call(
1797: p_return_status => l_return_status,
1790:
1791: FND_MESSAGE.SET_NAME('WSH', 'WSH_OTM_ASSIGN_TRIP');
1792:
1793: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1794: WSH_UTIL_CORE.add_message(x_return_status, l_module_name);
1795:
1796: wsh_util_core.api_post_call(
1797: p_return_status => l_return_status,
1798: x_num_warnings => l_num_warnings,
1792:
1793: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1794: WSH_UTIL_CORE.add_message(x_return_status, l_module_name);
1795:
1796: wsh_util_core.api_post_call(
1797: p_return_status => l_return_status,
1798: x_num_warnings => l_num_warnings,
1799: x_num_errors => l_num_errors);
1800:
1825: IF l_debug_on THEN
1826: wsh_debug_sv.log(l_module_name,'Return Status After Calling Assign_Trip',l_return_status);
1827: END IF;
1828: --
1829: wsh_util_core.api_post_call(
1830: p_return_status => l_return_status,
1831: x_num_warnings => l_num_warnings,
1832: x_num_errors => l_num_errors);
1833: --
1844: IF l_debug_on THEN
1845: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Trip_Name',l_return_status);
1846: END IF;
1847: --
1848: wsh_util_core.api_post_call(
1849: p_return_status => l_return_status,
1850: x_num_warnings => l_num_warnings,
1851: x_num_errors => l_num_errors);
1852: --
1860: IF l_debug_on THEN
1861: wsh_debug_sv.log(l_module_name,'Return Status After Calling Unassign_Trip',l_return_status);
1862: END IF;
1863: --
1864: wsh_util_core.api_post_call(
1865: p_return_status => l_return_status,
1866: x_num_warnings => l_num_warnings,
1867: x_num_errors => l_num_errors);
1868: --
1893: IF l_debug_on THEN
1894: wsh_debug_sv.log(l_module_name,'Return Status After Calling change_ignoreplan_sttatus',l_return_status);
1895: END IF;
1896:
1897: WSH_UTIL_CORE.api_post_call(
1898: p_return_status => l_return_status,
1899: x_num_warnings => l_num_warnings,
1900: x_num_errors => l_num_errors);
1901:
1924: IF l_debug_on THEN
1925: wsh_debug_sv.log(l_module_name,'Return Status After Calling update_tms_interface_flag',l_return_status);
1926: END IF;
1927:
1928: WSH_UTIL_CORE.api_post_call(
1929: p_return_status => l_return_status,
1930: x_num_warnings => l_num_warnings,
1931: x_num_errors => l_num_errors);
1932:
1951:
1952: ELSIF p_action_prms.action_code = 'AUTOCREATE-TRIP' THEN
1953: --
1954: --Compatibility Changes
1955: IF wsh_util_core.fte_is_installed = 'Y' AND l_cc_line_groups.COUNT>0 THEN
1956:
1957: --1. get the group ids by which the constraints API has grouped the lines
1958: l_cc_count_group_ids:=1;
1959: FOR i in l_cc_line_groups.FIRST..l_cc_line_groups.LAST LOOP
2044: l_cc_trip_id(l_cc_trip_id.COUNT+1):=x_delivery_out_rec.result_id_tab(l_tripindex);
2045: END LOOP;
2046: END IF;--x_delivery_out_rec.result_id_tab
2047: --
2048: 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
2049: l_return_status:=l_cc_return_status;
2050: 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
2051: l_return_status:=l_cc_return_status;
2052: ELSE
2046: END IF;--x_delivery_out_rec.result_id_tab
2047: --
2048: 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
2049: l_return_status:=l_cc_return_status;
2050: 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
2051: l_return_status:=l_cc_return_status;
2052: ELSE
2053: l_cc_return_status:=l_return_status;
2054: END IF;
2073: IF l_debug_on THEN
2074: wsh_debug_sv.log(l_module_name,'Return Status After Calling Autocreate_Trip',l_return_status);
2075: END IF;
2076: --
2077: wsh_util_core.api_post_call(
2078: p_return_status => l_return_status,
2079: x_num_warnings => l_num_warnings,
2080: x_num_errors => l_num_errors);
2081: --
2082: -- rlanka : Trip Consolidation Pack J
2083: --
2084: ELSIF p_action_prms.action_code = 'TRIP-CONSOLIDATION' THEN
2085: --
2086: IF wsh_util_core.fte_is_installed = 'Y' AND l_cc_line_groups.COUNT > 0 THEN
2087: --{
2088: -- 1. get the group ids by which the constraints API has grouped the lines
2089: --
2090: l_cc_count_group_ids:=1;
2174: --
2175: END LOOP;
2176: --
2177: IF (l_cc_return_status is not null AND
2178: l_cc_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2179: l_return_status:=l_cc_return_status;
2180: ELSIF (l_cc_return_status is not null AND
2181: l_cc_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING AND
2182: l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2177: IF (l_cc_return_status is not null AND
2178: l_cc_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2179: l_return_status:=l_cc_return_status;
2180: ELSIF (l_cc_return_status is not null AND
2181: l_cc_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING AND
2182: l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2183: l_return_status:=l_cc_return_status;
2184: ELSE
2185: l_cc_return_status:=l_return_status;
2178: l_cc_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2179: l_return_status:=l_cc_return_status;
2180: ELSIF (l_cc_return_status is not null AND
2181: l_cc_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING AND
2182: l_return_status=WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2183: l_return_status:=l_cc_return_status;
2184: ELSE
2185: l_cc_return_status:=l_return_status;
2186: END IF;
2217: IF l_debug_on THEN
2218: wsh_debug_sv.log(l_module_name,'Return Status After GroupDelivsIntoTrips',l_return_status);
2219: END IF;
2220: --
2221: wsh_util_core.api_post_call(
2222: p_return_status => l_return_status,
2223: x_num_warnings => l_num_warnings,
2224: x_num_errors => l_num_errors);
2225: --
2226: ELSIF p_action_prms.action_code = 'OUTBOUND-DOCUMENT' THEN
2227: --
2228: IF p_rec_attr_tab.COUNT > 1 THEN
2229: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2230: x_return_status := wsh_util_core.g_ret_sts_error;
2231: wsh_util_core.add_message(x_return_status,l_module_name);
2232: IF l_debug_on THEN
2233: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2234: END IF;
2227: --
2228: IF p_rec_attr_tab.COUNT > 1 THEN
2229: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2230: x_return_status := wsh_util_core.g_ret_sts_error;
2231: wsh_util_core.add_message(x_return_status,l_module_name);
2232: IF l_debug_on THEN
2233: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2234: END IF;
2235: RAISE FND_API.G_EXC_ERROR;
2279: IF l_debug_on THEN
2280: wsh_debug_sv.log(l_module_name,'Return Status After Calling Send_Document',l_return_status);
2281: END IF;
2282: --
2283: wsh_util_core.api_post_call(
2284: p_return_status => l_return_status,
2285: x_num_warnings => l_num_warnings,
2286: x_num_errors => l_num_errors);
2287: --
2286: x_num_errors => l_num_errors);
2287: --
2288: ELSIF p_action_prms.action_code = 'SELECT-CARRIER' THEN
2289: --
2290: IF wsh_util_core.fte_is_installed = 'Y' THEN
2291: --
2292: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2293: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2294: x_return_status := wsh_util_core.g_ret_sts_error;
2290: IF wsh_util_core.fte_is_installed = 'Y' THEN
2291: --
2292: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2293: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2294: x_return_status := wsh_util_core.g_ret_sts_error;
2295: wsh_util_core.add_message(x_return_status,l_module_name);
2296: FND_MSG_PUB.ADD;
2297: IF l_debug_on THEN
2298: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2291: --
2292: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2293: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2294: x_return_status := wsh_util_core.g_ret_sts_error;
2295: wsh_util_core.add_message(x_return_status,l_module_name);
2296: FND_MSG_PUB.ADD;
2297: IF l_debug_on THEN
2298: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2299: END IF;
2330: wsh_debug_sv.log(l_module_name,'Return Status After Calling Process_Carrier_Selection',l_return_status);
2331: END IF;
2332: --
2333: ELSE
2334: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2335: END IF;
2336:
2337: wsh_util_core.api_post_call(
2338: p_return_status => l_return_status,
2333: ELSE
2334: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2335: END IF;
2336:
2337: wsh_util_core.api_post_call(
2338: p_return_status => l_return_status,
2339: x_num_warnings => l_num_warnings,
2340: x_num_errors => l_num_errors);
2341:
2342:
2343: --
2344: ELSE
2345: FND_MESSAGE.SET_NAME('FTE', 'FTE_NOT_INSTALLED');
2346: x_return_status := wsh_util_core.g_ret_sts_error;
2347: wsh_util_core.add_message(x_return_status,l_module_name);
2348: IF l_debug_on THEN
2349: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2350: END IF;
2343: --
2344: ELSE
2345: FND_MESSAGE.SET_NAME('FTE', 'FTE_NOT_INSTALLED');
2346: x_return_status := wsh_util_core.g_ret_sts_error;
2347: wsh_util_core.add_message(x_return_status,l_module_name);
2348: IF l_debug_on THEN
2349: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2350: END IF;
2351: RAISE FND_API.G_EXC_ERROR;
2368: l_new_delivery_id_tab(l_counter) := l_delivery_id_tab(i);
2369: l_counter := l_counter + 1;
2370: ELSE
2371: --add a message for the delivery that cannot be deleted.
2372: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2373:
2374: IF l_debug_on THEN
2375: wsh_debug_sv.logmsg(l_module_name,'ERROR: delivery ' || l_delivery_id_tab(i) || ' cannot be deleted when it is not NS status');
2376: END IF;
2380:
2381: --we do not want the prefix error or warning for the message, so adding it with success
2382: --status will leave out the prefix. Reason being this is an error message but could be
2383: --displayed as a warning if not all deliveries fail.
2384: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_SUCCESS, l_module_name);
2385:
2386: l_num_warnings := l_num_warnings + 1;
2387:
2388: END IF;
2389: i := l_delivery_id_tab.NEXT(i);
2390: END LOOP;
2391:
2392: IF (l_new_delivery_id_tab.COUNT = 0) THEN
2393: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2394:
2395: IF l_debug_on THEN
2396: WSH_DEBUG_SV.log(l_module_name,'0 deliveries to delete');
2397: END IF;
2395: IF l_debug_on THEN
2396: WSH_DEBUG_SV.log(l_module_name,'0 deliveries to delete');
2397: END IF;
2398:
2399: wsh_util_core.api_post_call(
2400: p_return_status => l_return_status,
2401: x_num_warnings => l_num_warnings,
2402: x_num_errors => l_num_errors);
2403:
2407: l_delivery_id_tab := l_new_delivery_id_tab;
2408: END IF;
2409: --END OTM R12
2410:
2411: WSH_UTIL_CORE.Delete(
2412: p_type => 'DLVY',
2413: p_rows => l_delivery_id_tab,
2414: x_return_status => l_return_status);
2415: --
2416: IF l_debug_on THEN
2417: wsh_debug_sv.log(l_module_name,'Return Status After Calling Delete',l_return_status);
2418: END IF;
2419: --
2420: wsh_util_core.api_post_call(
2421: p_return_status => l_return_status,
2422: x_num_warnings => l_num_warnings,
2423: x_num_errors => l_num_errors);
2424: --
2427: /* ELSIF p_action_prms.action_code = 'GENERATE-PACK-SLIP' THEN
2428: --
2429: IF p_rec_attr_tab.COUNT > 1 THEN
2430: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2431: x_return_status := wsh_util_core.g_ret_sts_error;
2432: wsh_util_core.add_message(x_return_status,l_module_name);
2433: IF l_debug_on THEN
2434: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2435: END IF;
2428: --
2429: IF p_rec_attr_tab.COUNT > 1 THEN
2430: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2431: x_return_status := wsh_util_core.g_ret_sts_error;
2432: wsh_util_core.add_message(x_return_status,l_module_name);
2433: IF l_debug_on THEN
2434: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2435: END IF;
2436: RAISE FND_API.G_EXC_ERROR;
2453: IF l_debug_on THEN
2454: wsh_debug_sv.log(l_module_name,'Return Status After Calling Insert_Row',l_return_status);
2455: END IF;
2456: --
2457: wsh_util_core.api_post_call(
2458: p_return_status => l_return_status,
2459: x_num_warnings => l_num_warnings,
2460: x_num_errors => l_num_errors,
2461: p_msg_data => l_msg_data);
2465: AND p_action_prms.caller = 'WSH_FSTRX' THEN
2466: --
2467: IF p_rec_attr_tab.COUNT > 1 THEN
2468: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2469: x_return_status := wsh_util_core.g_ret_sts_error;
2470: wsh_util_core.add_message(x_return_status,l_module_name);
2471: IF l_debug_on THEN
2472: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2473: END IF;
2466: --
2467: IF p_rec_attr_tab.COUNT > 1 THEN
2468: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2469: x_return_status := wsh_util_core.g_ret_sts_error;
2470: wsh_util_core.add_message(x_return_status,l_module_name);
2471: IF l_debug_on THEN
2472: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2473: END IF;
2474: RAISE FND_API.G_EXC_ERROR;
2496: END IF;
2497:
2498: /* IF p_rec_attr_tab.COUNT > 1 THEN
2499: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2500: x_return_status := wsh_util_core.g_ret_sts_error;
2501: wsh_util_core.add_message(x_return_status,l_module_name);
2502: IF l_debug_on THEN
2503: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2504: END IF;
2497:
2498: /* IF p_rec_attr_tab.COUNT > 1 THEN
2499: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2500: x_return_status := wsh_util_core.g_ret_sts_error;
2501: wsh_util_core.add_message(x_return_status,l_module_name);
2502: IF l_debug_on THEN
2503: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2504: END IF;
2505: RAISE FND_API.G_EXC_ERROR;
2530: IF l_debug_on THEN
2531: wsh_debug_sv.log(l_module_name,'Return Status After Calling Insert_Row',l_return_status);
2532: END IF;
2533: --
2534: wsh_util_core.api_post_call(
2535: p_return_status => l_return_status,
2536: x_num_warnings => l_loop_num_warn,
2537: x_num_errors => l_loop_num_err,
2538: p_msg_data => l_msg_data);
2551: IF l_num_errors > 0 THEN
2552: IF l_num_errors = p_rec_attr_tab.count THEN
2553: RAISE FND_API.G_EXC_ERROR;
2554: ELSE
2555: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2556: END IF;
2557: ELSIF l_num_warnings > 0 THEN
2558: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2559: END IF;
2554: ELSE
2555: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2556: END IF;
2557: ELSIF l_num_warnings > 0 THEN
2558: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2559: END IF;
2560: --
2561:
2562: ELSIF p_action_prms.action_code IN ('PICK-RELEASE-UI','RESOLVE-EXCEPTIONS-UI','TRANSACTION-HISTORY-UI','FREIGHT-COSTS-UI')
2563: AND p_action_prms.caller = 'WSH_FSTRX' THEN
2564: --
2565: IF p_rec_attr_tab.COUNT > 1 THEN
2566: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2567: x_return_status := wsh_util_core.g_ret_sts_error;
2568: wsh_util_core.add_message(x_return_status,l_module_name);
2569: IF l_debug_on THEN
2570: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2571: END IF;
2564: --
2565: IF p_rec_attr_tab.COUNT > 1 THEN
2566: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2567: x_return_status := wsh_util_core.g_ret_sts_error;
2568: wsh_util_core.add_message(x_return_status,l_module_name);
2569: IF l_debug_on THEN
2570: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
2571: END IF;
2572: RAISE FND_API.G_EXC_ERROR;
2575:
2576: ELSIF p_action_prms.action_code = 'GET-FREIGHT-COSTS' THEN
2577: --
2578:
2579: IF wsh_util_core.fte_is_installed = 'Y' THEN
2580: --
2581: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2582: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2583: x_return_status := wsh_util_core.g_ret_sts_error;
2579: IF wsh_util_core.fte_is_installed = 'Y' THEN
2580: --
2581: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2582: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2583: x_return_status := wsh_util_core.g_ret_sts_error;
2584: wsh_util_core.add_message(x_return_status,l_module_name);
2585: FND_MSG_PUB.ADD;
2586: IF l_debug_on THEN
2587: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2580: --
2581: IF p_rec_attr_tab.COUNT > 1 and p_action_prms.caller in('WSH_FSTRX', 'WSH_PUB') THEN
2582: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
2583: x_return_status := wsh_util_core.g_ret_sts_error;
2584: wsh_util_core.add_message(x_return_status,l_module_name);
2585: FND_MSG_PUB.ADD;
2586: IF l_debug_on THEN
2587: wsh_debug_sv.logmsg(l_module_name,'WSH_UI_MULTI_SELECTION');
2588: END IF;
2619: END IF;
2620:
2621:
2622: IF p_action_prms.caller = 'WSH_DLMG' AND
2623: l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING ) THEN
2624: -- csun deliveryMerge , log exception
2625:
2626: i := l_out_param_rec.failed_delivery_id_list.FIRST;
2627: WHILE i is not NULL LOOP
2651: p_delivery_id => l_out_param_rec.failed_delivery_id_list(i));
2652: i := l_out_param_rec.failed_delivery_id_list.next(i);
2653: END LOOP;
2654:
2655: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2656:
2657: END IF;
2658:
2659: wsh_util_core.api_post_call(
2655: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2656:
2657: END IF;
2658:
2659: wsh_util_core.api_post_call(
2660: p_return_status => l_return_status,
2661: x_num_warnings => l_num_warnings,
2662: x_num_errors => l_num_errors,
2663: p_msg_data => l_msg_data);
2664:
2665: ELSE
2666: -- FTE is not installed
2667: FND_MESSAGE.SET_NAME('FTE', 'FTE_NOT_INSTALLED');
2668: x_return_status := wsh_util_core.g_ret_sts_error;
2669: wsh_util_core.add_message(x_return_status,l_module_name);
2670: IF l_debug_on THEN
2671: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2672: END IF;
2665: ELSE
2666: -- FTE is not installed
2667: FND_MESSAGE.SET_NAME('FTE', 'FTE_NOT_INSTALLED');
2668: x_return_status := wsh_util_core.g_ret_sts_error;
2669: wsh_util_core.add_message(x_return_status,l_module_name);
2670: IF l_debug_on THEN
2671: wsh_debug_sv.logmsg(l_module_name,'FTE_NOT_INSTALLED');
2672: END IF;
2673: RAISE FND_API.G_EXC_ERROR;
2689: IF l_debug_on THEN
2690: wsh_debug_sv.log(l_module_name,'Return Status After Cancel Ship Method',l_return_status);
2691: END IF;
2692:
2693: wsh_util_core.api_post_call(
2694: p_return_status => l_return_status,
2695: x_num_warnings => l_num_warnings,
2696: x_num_errors => l_num_errors,
2697: p_msg_data => l_msg_data);
2710: IF l_debug_on THEN
2711: wsh_debug_sv.log(l_module_name,'Return Status from WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',l_return_status);
2712: END IF;
2713:
2714: wsh_util_core.api_post_call(
2715: p_return_status => l_return_status,
2716: x_num_warnings => l_num_warnings,
2717: x_num_errors => l_num_errors,
2718: p_msg_data => l_msg_data);
2755: x_msg_data => l_msg_data);
2756:
2757: -- Set raise error flag to false ,continue with next delivery in the loop
2758: -- after end of loop, check for l_num_errors
2759: wsh_util_core.api_post_call(
2760: p_return_status => l_return_status,
2761: x_num_warnings => l_loop_num_warn,
2762: x_num_errors => l_loop_num_err,
2763: p_msg_data => l_msg_data,
2804: p_delivery_ids => l_doc_delivery_id_tab,
2805: p_document_param_info => l_dummy_doc_set_params,
2806: x_return_status => l_return_status);
2807:
2808: wsh_util_core.api_post_call(
2809: p_return_status => l_return_status,
2810: x_num_warnings => l_loop_num_warn,
2811: x_num_errors => l_loop_num_err,
2812: p_msg_data => l_msg_data,
2820: IF l_num_errors > 0 THEN
2821: IF l_num_errors = p_rec_attr_tab.count THEN
2822: RAISE FND_API.G_EXC_ERROR;
2823: ELSE
2824: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2825: END IF;
2826: ELSIF l_num_warnings > 0 THEN
2827: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2828: END IF;
2823: ELSE
2824: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2825: END IF;
2826: ELSIF l_num_warnings > 0 THEN
2827: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2828: END IF;
2829:
2830: --} end print pack slip
2831: -- Bug 4493263 : added action 'GENERATE-BOL'
2868: --l_num_errors := l_num_errors + l_loop_num_err;
2869: l_num_errors := l_num_errors + 1;
2870: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NULL_SHIP_METHOD_ERROR');
2871: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(dlvy_leg_rec.trip_id));
2872: l_return_status := wsh_util_core.g_ret_sts_error;
2873: wsh_util_core.add_message(l_return_status,l_module_name);
2874: IF l_debug_on THEN
2875: wsh_debug_sv.log (l_module_name,'No Ship Method for the trip'||dlvy_leg_rec.trip_id);
2876: END IF;
2869: l_num_errors := l_num_errors + 1;
2870: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NULL_SHIP_METHOD_ERROR');
2871: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(dlvy_leg_rec.trip_id));
2872: l_return_status := wsh_util_core.g_ret_sts_error;
2873: wsh_util_core.add_message(l_return_status,l_module_name);
2874: IF l_debug_on THEN
2875: wsh_debug_sv.log (l_module_name,'No Ship Method for the trip'||dlvy_leg_rec.trip_id);
2876: END IF;
2877: exit leg_loop;
2887: p_delivery_leg_id => NVL(dlvy_leg_rec.parent_delivery_leg_id, dlvy_leg_rec.delivery_leg_id),
2888: x_delivery_leg_info => l_dleg_tab(1),
2889: x_return_status => l_return_status);
2890:
2891: wsh_util_core.api_post_call(
2892: p_return_status => l_return_status,
2893: x_num_warnings => l_loop_num_warn,
2894: x_num_errors => l_loop_num_err,
2895: p_raise_error_flag => FALSE);
2896:
2897: -- if there is an error for current delivery leg,
2898: -- need to skip this and proceed with next leg
2899: -- l_num_error count will be checked towards the end
2900: if l_return_status in (wsh_util_core.g_ret_sts_error,
2901: wsh_util_core.g_ret_sts_unexp_error) then
2902: l_num_warnings := l_num_warnings + l_loop_num_warn;
2903: l_num_errors := l_num_errors + l_loop_num_err;
2904: exit leg_loop;
2897: -- if there is an error for current delivery leg,
2898: -- need to skip this and proceed with next leg
2899: -- l_num_error count will be checked towards the end
2900: if l_return_status in (wsh_util_core.g_ret_sts_error,
2901: wsh_util_core.g_ret_sts_unexp_error) then
2902: l_num_warnings := l_num_warnings + l_loop_num_warn;
2903: l_num_errors := l_num_errors + l_loop_num_err;
2904: exit leg_loop;
2905: end if;
2951: -- Set raise error flag to FALSE so that the loop can continue
2952: -- with other legs or deliveries
2953: -- After end of loop, checks for l_num_warning, l_num_errors should set the final return_status
2954:
2955: wsh_util_core.api_post_call(
2956: p_return_status => l_return_status,
2957: x_num_warnings => l_loop_num_warn,
2958: x_num_errors => l_loop_num_err,
2959: p_msg_data => l_msg_data,
2972: IF l_dleg_found = 'N' THEN
2973: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NO_TRIP_FOR_DLVY');
2974: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_rec_attr_tab(i).delivery_id));
2975: l_num_errors := l_num_errors + 1;
2976: l_return_status := wsh_util_core.g_ret_sts_error;
2977: wsh_util_core.add_message(l_return_status,l_module_name);
2978: IF l_debug_on THEN
2979: wsh_debug_sv.log (l_module_name,'WSH_NO_DELIVERY_LEG_FOUND');
2980: END IF;
2973: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NO_TRIP_FOR_DLVY');
2974: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_rec_attr_tab(i).delivery_id));
2975: l_num_errors := l_num_errors + 1;
2976: l_return_status := wsh_util_core.g_ret_sts_error;
2977: wsh_util_core.add_message(l_return_status,l_module_name);
2978: IF l_debug_on THEN
2979: wsh_debug_sv.log (l_module_name,'WSH_NO_DELIVERY_LEG_FOUND');
2980: END IF;
2981: END IF;
2991:
2992: IF l_submitted_docs > 0 THEN
2993: fnd_message.set_name('WSH', 'WSH_PRINT_BOL_REQUEST');
2994: fnd_message.set_token('REQ_IDS', l_req_id_str);
2995: wsh_util_core.add_message(wsh_util_core.g_ret_sts_success);
2996: END IF;
2997:
2998: IF l_num_errors > 0 THEN
2999: -- 3311273
2999: -- 3311273
3000: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_SUMMARY_MESG');
3001: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',l_num_errors );
3002: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',p_rec_attr_tab.count - l_num_errors );
3003: l_return_status := wsh_util_core.g_ret_sts_error;
3004: wsh_util_core.add_message(l_return_status,l_module_name);
3005: IF l_debug_on THEN
3006: wsh_debug_sv.log (l_module_name,'Error processing deliveries-'||l_num_errors);
3007: END IF;
3000: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_SUMMARY_MESG');
3001: FND_MESSAGE.SET_TOKEN('ERROR_COUNT',l_num_errors );
3002: FND_MESSAGE.SET_TOKEN('SUCC_COUNT',p_rec_attr_tab.count - l_num_errors );
3003: l_return_status := wsh_util_core.g_ret_sts_error;
3004: wsh_util_core.add_message(l_return_status,l_module_name);
3005: IF l_debug_on THEN
3006: wsh_debug_sv.log (l_module_name,'Error processing deliveries-'||l_num_errors);
3007: END IF;
3008: -- End of 3311273
3008: -- End of 3311273
3009: IF l_num_errors = p_rec_attr_tab.count THEN
3010: RAISE FND_API.G_EXC_ERROR;
3011: ELSE
3012: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3013: END IF;
3014: ELSIF l_num_warnings > 0 THEN
3015: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3016: END IF;
3011: ELSE
3012: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3013: END IF;
3014: ELSIF l_num_warnings > 0 THEN
3015: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3016: END IF;
3017:
3018: --} end print bol
3019: ELSE
3019: ELSE
3020: --
3021: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
3022: FND_MESSAGE.SET_TOKEN('ACT_CODE',p_action_prms.action_code );
3023: x_return_status := wsh_util_core.g_ret_sts_error;
3024: wsh_util_core.add_message(x_return_status,l_module_name);
3025: IF l_debug_on THEN
3026: wsh_debug_sv.log (l_module_name,'WSH_INVALID_ACTION_CODE');
3027: END IF;
3020: --
3021: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
3022: FND_MESSAGE.SET_TOKEN('ACT_CODE',p_action_prms.action_code );
3023: x_return_status := wsh_util_core.g_ret_sts_error;
3024: wsh_util_core.add_message(x_return_status,l_module_name);
3025: IF l_debug_on THEN
3026: wsh_debug_sv.log (l_module_name,'WSH_INVALID_ACTION_CODE');
3027: END IF;
3028: RAISE FND_API.G_EXC_ERROR;
3055: IF l_debug_on THEN
3056: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
3057: END IF;
3058: --
3059: WSH_UTIL_CORE.API_POST_CALL
3060: (
3061: p_return_status => l_return_status,
3062: x_num_warnings => l_num_warnings,
3063: x_num_errors => l_num_errors
3122: IF l_num_warnings > 0 THEN
3123: IF l_debug_on THEN
3124: WSH_DEBUG_SV.log(l_module_name, 'l_num_warnings', l_num_warnings);
3125: END IF;
3126: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3127: ELSE
3128: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3129: END IF;
3130: --
3124: WSH_DEBUG_SV.log(l_module_name, 'l_num_warnings', l_num_warnings);
3125: END IF;
3126: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3127: ELSE
3128: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3129: END IF;
3130: --
3131: IF l_debug_on THEN
3132: WSH_DEBUG_SV.log(l_module_name, 'Return status ', l_return_status);
3137: -- Standard check of p_commit.
3138: IF FND_API.To_Boolean( p_commit ) THEN
3139:
3140: --bug 4070732
3141: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3142: --{
3143:
3144: l_reset_flags := FALSE;
3145:
3143:
3144: l_reset_flags := FALSE;
3145:
3146: IF l_debug_on THEN
3147: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3148: END IF;
3149:
3150: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
3151: x_return_status => l_return_status);
3146: IF l_debug_on THEN
3147: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3148: END IF;
3149:
3150: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
3151: x_return_status => l_return_status);
3152:
3153: IF l_debug_on THEN
3154: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3153: IF l_debug_on THEN
3154: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3155: END IF;
3156:
3157: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3158: RAISE FND_API.G_EXC_ERROR;
3159: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3161: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3155: END IF;
3156:
3157: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3158: RAISE FND_API.G_EXC_ERROR;
3159: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3161: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3162: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3163: END IF;
3157: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3158: RAISE FND_API.G_EXC_ERROR;
3159: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3161: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3162: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3163: END IF;
3164:
3165: --}
3158: RAISE FND_API.G_EXC_ERROR;
3159: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3160: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3161: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3162: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3163: END IF;
3164:
3165: --}
3166: END IF;
3169: COMMIT WORK;
3170: END IF;
3171: --
3172: --bug 4070732
3173: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3174: --{
3175: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3176: --{
3177:
3171: --
3172: --bug 4070732
3173: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3174: --{
3175: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3176: --{
3177:
3178: IF FND_API.To_Boolean( p_commit ) THEN
3179: IF l_debug_on THEN
3176: --{
3177:
3178: IF FND_API.To_Boolean( p_commit ) THEN
3179: IF l_debug_on THEN
3180: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3181: END IF;
3182:
3183: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
3184: x_return_status => l_return_status);
3179: IF l_debug_on THEN
3180: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3181: END IF;
3182:
3183: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
3184: x_return_status => l_return_status);
3185:
3186: ELSE
3187:
3186: ELSE
3187:
3188:
3189: IF l_debug_on THEN
3190: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3191: END IF;
3192:
3193: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3194: x_return_status => l_return_status);
3189: IF l_debug_on THEN
3190: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3191: END IF;
3192:
3193: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3194: x_return_status => l_return_status);
3195: END IF;
3196:
3197: IF l_debug_on THEN
3197: IF l_debug_on THEN
3198: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3199: END IF;
3200:
3201: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3202: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3203: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3204: x_return_status := l_return_status;
3205: END IF;
3198: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3199: END IF;
3200:
3201: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3202: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3203: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3204: x_return_status := l_return_status;
3205: END IF;
3206:
3199: END IF;
3200:
3201: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3202: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3203: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3204: x_return_status := l_return_status;
3205: END IF;
3206:
3207: --}
3230: --
3231: EXCEPTION
3232: WHEN FND_API.G_EXC_ERROR THEN
3233: -- ROLLBACK TO DELIVERY_ACTION_GRP;
3234: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3235:
3236: --OTM R12
3237: IF (c_get_delivery_id%ISOPEN) THEN
3238: CLOSE c_get_delivery_id;
3260: IF l_debug_on THEN
3261: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
3262: END IF;
3263: --
3264: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3265: x_return_status := l_return_status;
3266: END IF;
3267: --}
3268: END IF;
3271:
3272: --
3273: -- Start code for Bugfix 4070732
3274: --
3275: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3276: --{
3277: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3278: --{
3279: IF l_debug_on THEN
3273: -- Start code for Bugfix 4070732
3274: --
3275: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3276: --{
3277: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3278: --{
3279: IF l_debug_on THEN
3280: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3281: END IF;
3276: --{
3277: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3278: --{
3279: IF l_debug_on THEN
3280: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3281: END IF;
3282:
3283: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3284: x_return_status => l_return_status);
3279: IF l_debug_on THEN
3280: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3281: END IF;
3282:
3283: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3284: x_return_status => l_return_status);
3285:
3286:
3287: IF l_debug_on THEN
3287: IF l_debug_on THEN
3288: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3289: END IF;
3290:
3291: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3292: x_return_status := l_return_status;
3293: END IF;
3294: --}
3295: END IF;
3311: END IF;
3312: --
3313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3314: -- ROLLBACK TO DELIVERY_ACTION_GRP;
3315: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3316:
3317: --OTM R12
3318: IF (c_get_delivery_id%ISOPEN) THEN
3319: CLOSE c_get_delivery_id;
3348: --
3349: --
3350: -- Start code for Bugfix 4070732
3351: --
3352: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3353: --{
3354: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3355: --{
3356: IF l_debug_on THEN
3350: -- Start code for Bugfix 4070732
3351: --
3352: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3353: --{
3354: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3355: --{
3356: IF l_debug_on THEN
3357: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3358: END IF;
3353: --{
3354: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3355: --{
3356: IF l_debug_on THEN
3357: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3358: END IF;
3359:
3360: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3361: x_return_status => l_return_status);
3356: IF l_debug_on THEN
3357: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3358: END IF;
3359:
3360: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3361: x_return_status => l_return_status);
3362:
3363:
3364: IF l_debug_on THEN
3364: IF l_debug_on THEN
3365: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3366: END IF;
3367:
3368: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3369: x_return_status := l_return_status;
3370: END IF;
3371: --}
3372: END IF;
3387: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3388: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3389: END IF;
3390: --
3391: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3392:
3393: --OTM R12
3394: IF (c_get_delivery_id%ISOPEN) THEN
3395: CLOSE c_get_delivery_id;
3396: END IF;
3397: --
3398:
3399: IF l_debug_on THEN
3400: WSH_DEBUG_SV.logmsg(l_module_name,' Raising: WSH_UTIL_CORE.G_EXC_WARNING');
3401: END IF;
3402: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3403: --
3404: -- K LPN CONV. rv
3398:
3399: IF l_debug_on THEN
3400: WSH_DEBUG_SV.logmsg(l_module_name,' Raising: WSH_UTIL_CORE.G_EXC_WARNING');
3401: END IF;
3402: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3403: --
3404: -- K LPN CONV. rv
3405: --
3406: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3421: IF l_debug_on THEN
3422: WSH_DEBUG_SV.log(l_module_name, 'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS', l_return_status);
3423: END IF;
3424: --
3425: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3426: x_return_status := l_return_status;
3427: END IF;
3428: --}
3429: END IF;
3432:
3433: --
3434: -- Start code for Bugfix 4070732
3435: --
3436: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3437: --{
3438: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3439: --{
3440: IF l_debug_on THEN
3434: -- Start code for Bugfix 4070732
3435: --
3436: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3437: --{
3438: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3439: --{
3440: IF l_debug_on THEN
3441: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3442: END IF;
3437: --{
3438: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3439: --{
3440: IF l_debug_on THEN
3441: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3442: END IF;
3443:
3444: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3445: x_return_status => l_return_status);
3440: IF l_debug_on THEN
3441: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3442: END IF;
3443:
3444: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3445: x_return_status => l_return_status);
3446:
3447:
3448: IF l_debug_on THEN
3448: IF l_debug_on THEN
3449: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3450: END IF;
3451:
3452: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3453: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3454: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3455: x_return_status := l_return_status;
3456: END IF;
3449: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3450: END IF;
3451:
3452: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3453: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3454: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3455: x_return_status := l_return_status;
3456: END IF;
3457:
3450: END IF;
3451:
3452: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3453: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3454: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3455: x_return_status := l_return_status;
3456: END IF;
3457:
3458: --}
3472: p_encoded => FND_API.G_FALSE
3473: );
3474: --
3475: IF l_debug_on THEN
3476: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3477: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3478: END IF;
3479: --
3480: WHEN OTHERS THEN
3473: );
3474: --
3475: IF l_debug_on THEN
3476: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3477: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3478: END IF;
3479: --
3480: WHEN OTHERS THEN
3481:
3511: --}
3512: END IF;
3513: -- K LPN CONV. rv
3514: --
3515: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3516: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.DELIVERY_ACTION');
3517:
3518: --
3519: -- Start code for Bugfix 4070732
3512: END IF;
3513: -- K LPN CONV. rv
3514: --
3515: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3516: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.DELIVERY_ACTION');
3517:
3518: --
3519: -- Start code for Bugfix 4070732
3520: --
3517:
3518: --
3519: -- Start code for Bugfix 4070732
3520: --
3521: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3522: --{
3523: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3524: --{
3525: IF l_debug_on THEN
3519: -- Start code for Bugfix 4070732
3520: --
3521: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3522: --{
3523: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3524: --{
3525: IF l_debug_on THEN
3526: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3527: END IF;
3522: --{
3523: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3524: --{
3525: IF l_debug_on THEN
3526: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3527: END IF;
3528:
3529: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3530: x_return_status => l_return_status);
3525: IF l_debug_on THEN
3526: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3527: END IF;
3528:
3529: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3530: x_return_status => l_return_status);
3531:
3532:
3533: IF l_debug_on THEN
3533: IF l_debug_on THEN
3534: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3535: END IF;
3536:
3537: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3538: x_return_status := l_return_status;
3539: END IF;
3540: --}
3541: END IF;
3567: (x_rec_attr_tab IN OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
3568: p_in_rec_attr_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type, --Bug 5191354
3569: p_action_code IN VARCHAR2,
3570: p_caller IN VARCHAR2,
3571: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type,
3572: x_return_status OUT NOCOPY VARCHAR2)
3573: IS
3574: --
3575:
3640: WSH_DEBUG_SV.log(l_module_name,'Number of Delivery Records is', x_rec_attr_tab.COUNT);
3641: END IF;
3642: --
3643:
3644: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3645: --OTM R12
3646: l_adjusted_amount := 0;
3647: --
3648:
3673: IF l_debug_on THEN
3674: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_delivery_name',l_return_status);
3675: END IF;
3676: --
3677: WSH_UTIL_CORE.api_post_call(
3678: p_return_status => l_return_status,
3679: x_num_warnings => l_num_warnings,
3680: x_num_errors => l_num_errors);
3681: --
3686: IF p_action_code = 'CREATE'
3687: AND nvl(x_rec_attr_tab(l_index).organization_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3688: AND nvl(x_rec_attr_tab(l_index).organization_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3689: THEN
3690: x_return_status := wsh_util_core.g_ret_sts_error;
3691: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3692: x_num_warnings =>l_num_warnings,
3693: x_num_errors =>l_num_errors,
3694: p_module_name =>l_module_name,
3687: AND nvl(x_rec_attr_tab(l_index).organization_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3688: AND nvl(x_rec_attr_tab(l_index).organization_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3689: THEN
3690: x_return_status := wsh_util_core.g_ret_sts_error;
3691: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3692: x_num_warnings =>l_num_warnings,
3693: x_num_errors =>l_num_errors,
3694: p_module_name =>l_module_name,
3695: p_msg_data => 'WSH_DEL_ORG_NULL');
3704: IF ( p_action_code = 'UPDATE'
3705: AND x_rec_attr_tab(l_index).organization_id IS NULL
3706: AND x_rec_attr_tab(l_index).organization_code IS NULL) THEN
3707: --{ NULL case
3708: x_return_status := wsh_util_core.g_ret_sts_error;
3709: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3710: x_num_warnings =>l_num_warnings,
3711: x_num_errors =>l_num_errors,
3712: p_module_name =>l_module_name,
3705: AND x_rec_attr_tab(l_index).organization_id IS NULL
3706: AND x_rec_attr_tab(l_index).organization_code IS NULL) THEN
3707: --{ NULL case
3708: x_return_status := wsh_util_core.g_ret_sts_error;
3709: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3710: x_num_warnings =>l_num_warnings,
3711: x_num_errors =>l_num_errors,
3712: p_module_name =>l_module_name,
3713: p_msg_data => 'WSH_DEL_ORG_NULL');
3722: IF l_debug_on THEN
3723: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_org',l_return_status);
3724: END IF;
3725: --
3726: WSH_UTIL_CORE.api_post_call(
3727: p_return_status => l_return_status,
3728: x_num_warnings => l_num_warnings,
3729: x_num_errors => l_num_errors);
3730: --
3751: IF l_debug_on THEN
3752: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_loading_order',l_return_status);
3753: END IF;
3754: --
3755: WSH_UTIL_CORE.api_post_call(
3756: p_return_status => l_return_status,
3757: x_num_warnings => l_num_warnings,
3758: x_num_errors => l_num_errors);
3759: --
3765: IF p_action_code = 'CREATE'
3766: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3767: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3768: THEN
3769: x_return_status := wsh_util_core.g_ret_sts_error;
3770: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3771: x_num_warnings =>l_num_warnings,
3772: x_num_errors =>l_num_errors,
3773: p_module_name =>l_module_name,
3766: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3767: AND nvl(x_rec_attr_tab(l_index).initial_pickup_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3768: THEN
3769: x_return_status := wsh_util_core.g_ret_sts_error;
3770: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3771: x_num_warnings =>l_num_warnings,
3772: x_num_errors =>l_num_errors,
3773: p_module_name =>l_module_name,
3774: p_msg_data => 'WSH_DEL_PICKUP_LOC_NULL');
3783: IF (p_action_code = 'UPDATE'
3784: AND x_rec_attr_tab(l_index).initial_pickup_location_id IS NULL
3785: AND x_rec_attr_tab(l_index).initial_pickup_location_code IS NULL) THEN
3786: --{ NULL case
3787: x_return_status := wsh_util_core.g_ret_sts_error;
3788: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3789: x_num_warnings =>l_num_warnings,
3790: x_num_errors =>l_num_errors,
3791: p_module_name =>l_module_name,
3784: AND x_rec_attr_tab(l_index).initial_pickup_location_id IS NULL
3785: AND x_rec_attr_tab(l_index).initial_pickup_location_code IS NULL) THEN
3786: --{ NULL case
3787: x_return_status := wsh_util_core.g_ret_sts_error;
3788: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3789: x_num_warnings =>l_num_warnings,
3790: x_num_errors =>l_num_errors,
3791: p_module_name =>l_module_name,
3792: p_msg_data => 'WSH_DEL_PICKUP_LOC_NULL');
3797:
3798: -- J-IB-NPARIKH-{
3799: --
3800: IF NVL(x_rec_attr_tab(l_index).shipment_direction,'O') NOT IN ('O','IO')
3801: --AND x_rec_attr_tab(l_index).initial_pickup_location_id = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
3802: THEN
3803: --{
3804: --
3805: -- Check if delivery's transportation is arranged by supplier
3827: --
3828: END IF;
3829: --
3830: --
3831: WSH_UTIL_CORE.api_post_call(
3832: p_return_status => l_return_status,
3833: x_num_warnings => l_num_warnings,
3834: x_num_errors => l_num_errors);
3835: --}
3837: --
3838: -- J-IB-NPARIKH-}
3839: --
3840: IF NVL(x_rec_attr_tab(l_index).shipment_direction,'O') IN ('O','IO') -- J-IB-NPARIKH
3841: OR x_rec_attr_tab(l_index).initial_pickup_location_id <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID -- J-IB-NPARIKH
3842: --OR l_shipping_control <> 'SUPPLIER' -- J-IB-NPARIKH
3843: --OR l_routing_request_flag <> 'N' -- J-IB-NPARIKH
3844: THEN
3845: wsh_util_validate.validate_location(
3851: IF l_debug_on THEN
3852: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_location for Ship From',l_return_status);
3853: END IF;
3854: --
3855: WSH_UTIL_CORE.api_post_call(
3856: p_return_status => l_return_status,
3857: x_num_warnings => l_num_warnings,
3858: x_num_errors => l_num_errors);
3859: --
3884: IF l_debug_on THEN
3885: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_supplier_location for Ship From',l_return_status);
3886: END IF;
3887: --
3888: WSH_UTIL_CORE.api_post_call(
3889: p_return_status => l_return_status,
3890: x_num_warnings => l_num_warnings,
3891: x_num_errors => l_num_errors);
3892: --}
3912: wsh_debug_sv.log(l_module_name,'l_org_location_id',l_org_location_id);
3913: END IF;
3914:
3915: IF (l_org_location_id <> x_rec_attr_tab(l_index).initial_pickup_location_id) THEN
3916: x_return_status := wsh_util_core.g_ret_sts_error;
3917: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3918: x_num_warnings =>l_num_warnings,
3919: x_num_errors =>l_num_errors,
3920: p_module_name =>l_module_name,
3913: END IF;
3914:
3915: IF (l_org_location_id <> x_rec_attr_tab(l_index).initial_pickup_location_id) THEN
3916: x_return_status := wsh_util_core.g_ret_sts_error;
3917: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3918: x_num_warnings =>l_num_warnings,
3919: x_num_errors =>l_num_errors,
3920: p_module_name =>l_module_name,
3921: p_msg_data => 'WSH_DEL_PICK_LOC_NOT_MATCH');
3933: IF p_action_code = 'CREATE'
3934: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3935: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3936: THEN
3937: x_return_status := wsh_util_core.g_ret_sts_error;
3938: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3939: x_num_warnings =>l_num_warnings,
3940: x_num_errors =>l_num_errors,
3941: p_module_name =>l_module_name,
3934: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_id,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM
3935: AND nvl(x_rec_attr_tab(l_index).ultimate_dropoff_location_code,FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3936: THEN
3937: x_return_status := wsh_util_core.g_ret_sts_error;
3938: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3939: x_num_warnings =>l_num_warnings,
3940: x_num_errors =>l_num_errors,
3941: p_module_name =>l_module_name,
3942: p_msg_data => 'WSH_DEL_DROPOFF_LOC_NULL');
3951: IF ( p_action_code = 'UPDATE'
3952: AND x_rec_attr_tab(l_index).ultimate_dropoff_location_id IS NULL
3953: AND x_rec_attr_tab(l_index).ultimate_dropoff_location_code IS NULL ) THEN
3954: --{ NULL case
3955: x_return_status := wsh_util_core.g_ret_sts_error;
3956: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3957: x_num_warnings =>l_num_warnings,
3958: x_num_errors =>l_num_errors,
3959: p_module_name =>l_module_name,
3952: AND x_rec_attr_tab(l_index).ultimate_dropoff_location_id IS NULL
3953: AND x_rec_attr_tab(l_index).ultimate_dropoff_location_code IS NULL ) THEN
3954: --{ NULL case
3955: x_return_status := wsh_util_core.g_ret_sts_error;
3956: WSH_UTIL_CORE.api_post_call(p_return_status => x_return_status,
3957: x_num_warnings =>l_num_warnings,
3958: x_num_errors =>l_num_errors,
3959: p_module_name =>l_module_name,
3960: p_msg_data => 'WSH_DEL_DROPOFF_LOC_NULL');
3970: IF l_debug_on THEN
3971: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_location for Ship To',l_return_status);
3972: END IF;
3973: --
3974: WSH_UTIL_CORE.api_post_call(
3975: p_return_status => l_return_status,
3976: x_num_warnings => l_num_warnings,
3977: x_num_errors => l_num_errors);
3978: --
4000: IF l_debug_on THEN
4001: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_location for Intmed Ship To',l_return_status);
4002: END IF;
4003: --
4004: WSH_UTIL_CORE.api_post_call(
4005: p_return_status => l_return_status,
4006: x_num_warnings => l_num_warnings,
4007: x_num_errors => l_num_errors);
4008: --
4024: IF l_debug_on THEN
4025: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_location for Pooled Ship To',l_return_status);
4026: END IF;
4027: --
4028: WSH_UTIL_CORE.api_post_call(
4029: p_return_status => l_return_status,
4030: x_num_warnings => l_num_warnings,
4031: x_num_errors => l_num_errors);
4032: --
4048: IF l_debug_on THEN
4049: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_location for fob location',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: --
4077: OPEN c_check_vendor( x_rec_attr_tab(l_index).customer_id);
4078: FETCH c_check_vendor INTO l_vendor_name;
4079: IF c_check_vendor%NOTFOUND THEN
4080: CLOSE c_check_vendor;
4081: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4082: raise FND_API.G_EXC_UNEXPECTED_ERROR;
4083: END IF;
4084: CLOSE c_check_vendor;
4085: --}
4089: IF l_debug_on THEN
4090: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_customer',l_return_status);
4091: END IF;
4092: --
4093: WSH_UTIL_CORE.api_post_call(
4094: p_return_status => l_return_status,
4095: x_num_warnings => l_num_warnings,
4096: x_num_errors => l_num_errors);
4097:
4124: IF l_return_status <> 'S' THEN
4125: --{
4126: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4127: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CLIENT');
4128: wsh_util_core.add_message(l_return_status,l_module_name);
4129: --}
4130: END IF;
4131: WSH_UTIL_CORE.api_post_call(
4132: p_return_status => l_return_status,
4127: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','CLIENT');
4128: wsh_util_core.add_message(l_return_status,l_module_name);
4129: --}
4130: END IF;
4131: WSH_UTIL_CORE.api_post_call(
4132: p_return_status => l_return_status,
4133: x_num_warnings => l_num_warnings,
4134: x_num_errors => l_num_errors);
4135: --}
4152: IF l_debug_on THEN
4153: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_freight_terms',l_return_status);
4154: END IF;
4155: --
4156: WSH_UTIL_CORE.api_post_call(
4157: p_return_status => l_return_status,
4158: x_num_warnings => l_num_warnings,
4159: x_num_errors => l_num_errors);
4160: --
4175: IF l_debug_on THEN
4176: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_fob',l_return_status);
4177: END IF;
4178: --
4179: WSH_UTIL_CORE.api_post_call(
4180: p_return_status => l_return_status,
4181: x_num_warnings => l_num_warnings,
4182: x_num_errors => l_num_errors);
4183: --
4201: IF l_debug_on THEN
4202: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_uom for Weight',l_return_status);
4203: END IF;
4204: --
4205: WSH_UTIL_CORE.api_post_call(
4206: p_return_status => l_return_status,
4207: x_num_warnings => l_num_warnings,
4208: x_num_errors => l_num_errors);
4209: --
4231: IF l_debug_on THEN
4232: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_uom for Volume',l_return_status);
4233: END IF;
4234: --
4235: WSH_UTIL_CORE.api_post_call(
4236: p_return_status => l_return_status,
4237: x_num_warnings => l_num_warnings,
4238: x_num_errors => l_num_errors);
4239: --
4264: IF l_debug_on THEN
4265: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_currency',l_return_status);
4266: END IF;
4267: --
4268: WSH_UTIL_CORE.api_post_call(
4269: p_return_status => l_return_status,
4270: x_num_warnings => l_num_warnings,
4271: x_num_errors => l_num_errors);
4272: --
4287: IF l_debug_on THEN
4288: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_from_to_dates',l_return_status);
4289: END IF;
4290: --
4291: WSH_UTIL_CORE.api_post_call(
4292: p_return_status => l_return_status,
4293: x_num_warnings => l_num_warnings,
4294: x_num_errors => l_num_errors);
4295: --
4307: IF l_debug_on THEN
4308: wsh_debug_sv.log(l_module_name,'Return Status After Calling derive_numer_of_lpn',l_return_status);
4309: END IF;
4310: --
4311: WSH_UTIL_CORE.api_post_call(
4312: p_return_status => l_return_status,
4313: x_num_warnings => l_num_warnings,
4314: x_num_errors => l_num_errors);
4315: --
4331: IF l_debug_on THEN
4332: wsh_debug_sv.log(l_module_name,'Return Status After Calling Validate_Routed_Export_Txn',l_return_status);
4333: END IF;
4334: --
4335: WSH_UTIL_CORE.api_post_call(
4336: p_return_status => l_return_status,
4337: x_num_warnings => l_num_warnings,
4338: x_num_errors => l_num_errors);
4339: --
4371: If caller is WSH_INBOUND, then need to convert warning to success
4372: for cases where validate_freight_carrier returns warning
4373: so that Inbound processing does not error out */
4374: IF p_caller IN ('WSH_INBOUND', 'WSH_TPW_INBOUND')
4375: AND l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
4376: THEN
4377: -- {
4378: IF l_debug_on THEN
4379: wsh_debug_sv.logmsg(l_module_name, 'Setting success for Inbound');
4377: -- {
4378: IF l_debug_on THEN
4379: wsh_debug_sv.logmsg(l_module_name, 'Setting success for Inbound');
4380: END IF;
4381: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4382: -- }
4383: END IF;
4384: WSH_UTIL_CORE.api_post_call(
4385: p_return_status => l_return_status,
4380: END IF;
4381: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4382: -- }
4383: END IF;
4384: WSH_UTIL_CORE.api_post_call(
4385: p_return_status => l_return_status,
4386: x_num_warnings => l_num_warnings,
4387: x_num_errors => l_num_errors);
4388: --
4408: IF l_debug_on THEN
4409: wsh_debug_sv.log(l_module_name,'Return Status After Calling derive_delivery_uom',l_return_status);
4410: END IF;
4411: --
4412: WSH_UTIL_CORE.api_post_call(
4413: p_return_status => l_return_status,
4414: x_num_warnings => l_num_warnings,
4415: x_num_errors => l_num_errors);
4416: --
4431: IF NVL(x_rec_attr_tab(l_index).GROSS_WEIGHT,0) > 0
4432: OR NVL(x_rec_attr_tab(l_index).NET_WEIGHT,0) > 0 THEN
4433: IF x_rec_attr_tab(l_index).WEIGHT_UOM_CODE IS NULL THEN
4434: FND_MESSAGE.SET_NAME('WSH','WSH_WTVOL_NULL');
4435: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
4436: RAISE FND_API.G_EXC_ERROR;
4437: END IF;
4438: END IF;
4439: --Bug 4140359
4439: --Bug 4140359
4440: IF NVL(x_rec_attr_tab(l_index).VOLUME,0) > 0
4441: AND x_rec_attr_tab(l_index).VOLUME_UOM_CODE IS NULL THEN
4442: FND_MESSAGE.SET_NAME('WSH','WSH_WTVOL_NULL');
4443: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
4444: RAISE FND_API.G_EXC_ERROR;
4445: END IF;
4446: END IF; --}
4447: x_valid_index_tab(l_index) := l_index;
4464: --
4465: IF l_num_errors = x_rec_attr_tab.COUNT THEN
4466: RAISE FND_API.G_EXC_ERROR;
4467: ELSIF l_num_errors > 0 THEN
4468: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4469: ELSIF l_num_warnings > 0 THEN
4470: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4471: ELSE
4472: x_return_status := wsh_util_core.g_ret_sts_success;
4466: RAISE FND_API.G_EXC_ERROR;
4467: ELSIF l_num_errors > 0 THEN
4468: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4469: ELSIF l_num_warnings > 0 THEN
4470: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4471: ELSE
4472: x_return_status := wsh_util_core.g_ret_sts_success;
4473: END IF;
4474:
4468: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4469: ELSIF l_num_warnings > 0 THEN
4470: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4471: ELSE
4472: x_return_status := wsh_util_core.g_ret_sts_success;
4473: END IF;
4474:
4475: /* Assumption is this should be taken care of by get_disabled list.
4476: l_assigned_to_trip := WSH_Delivery_Validations.Del_Assigned_To_Trip
4483: --
4484: EXCEPTION
4485: WHEN FND_API.G_EXC_ERROR THEN
4486: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4487: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4488: --
4489: IF l_debug_on THEN
4490: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4491: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4497: END IF;
4498: --RTV changes
4499: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4500: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4501: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4502: --
4503: IF l_debug_on THEN
4504: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4505: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4509: IF c_check_vendor%ISOPEN THEN
4510: CLOSE c_check_vendor;
4511: END IF;
4512: --RTV changes
4513: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4514: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4515: --
4516: IF l_debug_on THEN
4517: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4510: CLOSE c_check_vendor;
4511: END IF;
4512: --RTV changes
4513: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4514: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4515: --
4516: IF l_debug_on THEN
4517: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4513: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4514: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4515: --
4516: IF l_debug_on THEN
4517: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4519: END IF;
4520: --
4521: --RTV changes
4514: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4515: --
4516: IF l_debug_on THEN
4517: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4518: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4519: END IF;
4520: --
4521: --RTV changes
4522: IF c_check_vendor%ISOPEN THEN
4524: END IF;
4525: --RTV changes
4526: WHEN OTHERS THEN
4527: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4528: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4529: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.VALIDATE_DELIVERY');
4530: --
4531: IF l_debug_on THEN
4532: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4525: --RTV changes
4526: WHEN OTHERS THEN
4527: ROLLBACK TO VALIDATE_DELIVERY_GRP;
4528: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4529: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.VALIDATE_DELIVERY');
4530: --
4531: IF l_debug_on THEN
4532: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4533: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4584: l_msg_data VARCHAR2(32767);
4585:
4586: --
4587: l_rec_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4588: l_index_tab wsh_util_core.id_tab_type;
4589: --
4590: l_input_param_flag BOOLEAN := TRUE;
4591: --
4592: l_param_name VARCHAR2(100);
4601: l_cc_upd_dlvy_intmed_ship_to VARCHAR2(1);
4602: l_cc_upd_dlvy_ship_method VARCHAR2(1);
4603: l_cc_dlvy_intmed_ship_to NUMBER;
4604: l_cc_dlvy_ship_method VARCHAR2(30);
4605: l_cc_del_rows wsh_util_core.id_tab_type;
4606: l_cc_grouping_rows wsh_util_core.id_tab_type;
4607: l_cc_return_status VARCHAR2(1);
4608: l_cc_count_trip_rows NUMBER;
4609: l_cc_count_grouping_rows NUMBER;
4602: l_cc_upd_dlvy_ship_method VARCHAR2(1);
4603: l_cc_dlvy_intmed_ship_to NUMBER;
4604: l_cc_dlvy_ship_method VARCHAR2(30);
4605: l_cc_del_rows wsh_util_core.id_tab_type;
4606: l_cc_grouping_rows wsh_util_core.id_tab_type;
4607: l_cc_return_status VARCHAR2(1);
4608: l_cc_count_trip_rows NUMBER;
4609: l_cc_count_grouping_rows NUMBER;
4610: l_cc_trip_id wsh_util_core.id_tab_type;
4606: l_cc_grouping_rows wsh_util_core.id_tab_type;
4607: l_cc_return_status VARCHAR2(1);
4608: l_cc_count_trip_rows NUMBER;
4609: l_cc_count_grouping_rows NUMBER;
4610: l_cc_trip_id wsh_util_core.id_tab_type;
4611: l_cc_trip_id_tab wsh_util_core.id_tab_type;
4612: b_cc_linefailed boolean;
4613: l_rec_attr_tab_temp WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4614: l_cc_count_success NUMBER;
4607: l_cc_return_status VARCHAR2(1);
4608: l_cc_count_trip_rows NUMBER;
4609: l_cc_count_grouping_rows NUMBER;
4610: l_cc_trip_id wsh_util_core.id_tab_type;
4611: l_cc_trip_id_tab wsh_util_core.id_tab_type;
4612: b_cc_linefailed boolean;
4613: l_rec_attr_tab_temp WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4614: l_cc_count_success NUMBER;
4615:
4617: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
4618: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
4619: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
4620: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
4621: l_cc_in_ids wsh_util_core.id_tab_type;
4622: l_cc_fail_ids wsh_util_core.id_tab_type;
4623: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
4624: l_log_itm_exc VARCHAR2(1);
4625:
4618: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
4619: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
4620: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
4621: l_cc_in_ids wsh_util_core.id_tab_type;
4622: l_cc_fail_ids wsh_util_core.id_tab_type;
4623: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
4624: l_log_itm_exc VARCHAR2(1);
4625:
4626: --Compatibility Changes
4636: l_smc wsh_new_deliveries.ship_method_code%TYPE;
4637: l_carrier_id wsh_new_deliveries.carrier_id%TYPE;
4638: l_ignore_for_planning wsh_new_deliveries.ignore_for_planning%TYPE;
4639: l_tmp_ignore wsh_new_deliveries.ignore_for_planning%TYPE;
4640: l_tmp_del_ids wsh_util_core.id_tab_type;
4641:
4642: -- Pack J: LCSS Rate Delivery.
4643: l_exception_id NUMBER;
4644: l_exception_message VARCHAR2(2000);
4644: l_exception_message VARCHAR2(2000);
4645: l_in_param_rec WSH_FTE_INTEGRATION.rate_del_in_param_rec;
4646: l_out_param_rec WSH_FTE_INTEGRATION.rate_del_out_param_rec;
4647: l_error_text VARCHAR2(2000);
4648: l_delivery_rows wsh_util_core.id_tab_type;
4649: --
4650:
4651: --OTM R12 Org-Specific Start.
4652: l_gc3_is_installed VARCHAR2(1);
4660: l_reset_flags BOOLEAN;
4661:
4662: BEGIN
4663: -- Bug 4070732
4664: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
4665: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4666: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4667: END IF;
4668:
4661:
4662: BEGIN
4663: -- Bug 4070732
4664: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
4665: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4666: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4667: END IF;
4668:
4669:
4662: BEGIN
4663: -- Bug 4070732
4664: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
4665: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
4666: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
4667: END IF;
4668:
4669:
4670: --
4693: END IF;
4694: --
4695:
4696: --OMT R12 Org-Specific Start
4697: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
4698: IF l_gc3_is_installed IS NULL THEN
4699: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
4700: END IF;
4701: IF l_debug_on THEN
4695:
4696: --OMT R12 Org-Specific Start
4697: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
4698: IF l_gc3_is_installed IS NULL THEN
4699: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
4700: END IF;
4701: IF l_debug_on THEN
4702: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed ',
4703: l_gc3_is_installed);
4726:
4727: IF not l_input_param_flag THEN
4728: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
4729: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
4730: x_return_status := wsh_util_core.g_ret_sts_error;
4731: wsh_util_core.add_message(x_return_status,l_module_name);
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4734: --
4727: IF not l_input_param_flag THEN
4728: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
4729: FND_MESSAGE.SET_TOKEN('FIELD_NAME',l_param_name);
4730: x_return_status := wsh_util_core.g_ret_sts_error;
4731: wsh_util_core.add_message(x_return_status,l_module_name);
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4734: --
4735: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4731: wsh_util_core.add_message(x_return_status,l_module_name);
4732: RAISE FND_API.G_EXC_ERROR;
4733: END IF;
4734: --
4735: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4736: --
4737: WSH_ACTIONS_LEVELS.set_validation_level (
4738: p_entity => 'DLVY',
4739: p_caller => p_in_rec.caller,
4744: IF l_debug_on THEN
4745: wsh_debug_sv.log(l_module_name,'Return Status After Calling set_validation_level',l_return_status);
4746: END IF;
4747: --
4748: wsh_util_core.api_post_call(
4749: p_return_status => l_return_status,
4750: x_num_warnings => l_num_warnings,
4751: x_num_errors => l_num_errors);
4752: --
4768: IF l_debug_on THEN
4769: wsh_debug_sv.log(l_module_name,'Return Status After Calling get_disabled_list',l_return_status);
4770: END IF;
4771: --
4772: WSH_UTIL_CORE.api_post_call(
4773: p_return_status => l_return_status,
4774: x_num_warnings => l_num_warnings,
4775: x_num_errors => l_num_errors,
4776: p_msg_data => l_msg_data);
4798: --
4799: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_VALIDATE_CONSTRAINTS_LVL) = 1 THEN --{
4800: --Compatibility Constraints
4801: --Compatiblity Changes
4802: IF wsh_util_core.fte_is_installed = 'Y' THEN
4803:
4804: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main(
4805: p_api_version_number => p_api_version_number,
4806: p_init_msg_list => FND_API.G_FALSE,
4832: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
4833: END IF;
4834:
4835:
4836: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
4837: --fix p_rec_attr_tab to have only successful records
4838: l_cc_count_success:=1;
4839:
4840: IF l_debug_on THEN
4847: IF l_debug_on THEN
4848: wsh_debug_sv.logmsg(l_module_name,'all dels failed compatibility check');
4849: END IF;
4850: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
4851: wsh_util_core.api_post_call(
4852: p_return_status => l_return_status,
4853: x_num_warnings => l_num_warnings,
4854: x_num_errors => l_num_errors,
4855: p_msg_data => l_msg_data);
4853: x_num_warnings => l_num_warnings,
4854: x_num_errors => l_num_errors,
4855: p_msg_data => l_msg_data);
4856: ELSE
4857: l_return_status:=wsh_util_core.g_ret_sts_warning;
4858: END IF;
4859:
4860:
4861: FOR i in l_rec_attr_tab.FIRST..l_rec_attr_tab.LAST LOOP
4884: l_rec_attr_tab:=l_rec_attr_tab_temp;
4885: END IF;
4886:
4887: ELSE
4888: l_return_status:=wsh_util_core.g_ret_sts_warning;
4889: END IF;--failed_records.count>0
4890:
4891:
4892: IF l_debug_on THEN
4895: --fix p_rec_attr_tab to have only successful records
4896: END IF;--error
4897:
4898:
4899: IF l_return_status=wsh_util_core.g_ret_sts_error and l_cc_failed_records.COUNT<>l_rec_attr_tab.COUNT THEN
4900: l_return_status:=wsh_util_core.g_ret_sts_warning;
4901: END IF;
4902:
4903:
4896: END IF;--error
4897:
4898:
4899: IF l_return_status=wsh_util_core.g_ret_sts_error and l_cc_failed_records.COUNT<>l_rec_attr_tab.COUNT THEN
4900: l_return_status:=wsh_util_core.g_ret_sts_warning;
4901: END IF;
4902:
4903:
4904: --
4901: END IF;
4902:
4903:
4904: --
4905: wsh_util_core.api_post_call(
4906: p_return_status => l_return_status,
4907: x_num_warnings => l_num_warnings,
4908: x_num_errors => l_num_errors,
4909: p_msg_data => l_msg_data);
4920: p_caller => p_in_rec.caller,
4921: x_valid_index_tab => l_index_tab,
4922: x_return_status => l_return_status);
4923: --
4924: WSH_UTIL_CORE.api_post_call(
4925: p_return_status => l_return_status,
4926: x_num_warnings => l_num_warnings,
4927: x_num_errors => l_num_errors);
4928: --
4939: IF p_in_rec.action_code = 'CREATE' THEN
4940:
4941: /*** J changes TP release ****/
4942: l_tmp_ignore := l_rec_attr_tab(l_index).ignore_for_planning;
4943: IF (wsh_util_core.TP_is_installed ='Y' OR l_gc3_is_installed = 'Y' ) --OTM R12 Org-Specific . Added second OR condition
4944: AND (
4945: (l_tmp_ignore is null OR l_tmp_ignore=FND_API.G_MISS_CHAR)
4946: OR (l_tmp_ignore is not null AND l_tmp_ignore='N')-- need to check this as form always passes 'N'
4947: ) THEN
4956:
4957: IF l_debug_on THEN
4958: WSH_DEBUG_SV.log(l_module_name,' Get_Warehouse_Type l_wh_type,l_return_status',l_wh_type||l_return_status);
4959: END IF;
4960: WSH_UTIL_CORE.api_post_call(
4961: p_return_status => l_return_status,
4962: x_num_warnings => l_num_warnings,
4963: x_num_errors => l_num_errors);
4964:
4983: ||'lc_ignore_for_planning l_return_status',l_return_status);
4984: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning ',
4985: l_ignore_for_planning );
4986: END IF;
4987: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
4988: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4989: RAISE FND_API.G_EXC_ERROR;
4990: END IF;
4991: END IF;
4984: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning ',
4985: l_ignore_for_planning );
4986: END IF;
4987: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
4988: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4989: RAISE FND_API.G_EXC_ERROR;
4990: END IF;
4991: END IF;
4992: --OTM R12 End.
4990: END IF;
4991: END IF;
4992: --OTM R12 End.
4993: ELSIF (l_tmp_ignore='Y' and
4994: (WSH_UTIL_CORE.TP_Is_Installed ='Y' OR
4995: l_gc3_is_installed = 'Y')) THEN
4996: l_ignore_for_planning:=l_tmp_ignore;
4997: ELSE
4998: l_ignore_for_planning:='N';
5010: WSH_DELIVERY_AUTOCREATE.Create_Update_Hash(
5011: p_delivery_rec => l_rec_attr_tab(l_index),
5012: x_return_status => l_return_status);
5013:
5014: WSH_UTIL_CORE.api_post_call(
5015: p_return_status => l_return_status,
5016: x_num_warnings => l_num_warnings,
5017: x_num_errors => l_num_errors);
5018:
5034: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get',WSH_DEBUG_SV.C_PROC_LEVEL);
5035: END IF;
5036:
5037: --
5038: WSH_UTIL_CORE.api_post_call(
5039: p_return_status => l_return_status,
5040: x_num_warnings => l_num_warnings,
5041: x_num_errors => l_num_errors);
5042:
5049: IF l_debug_on THEN
5050: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_SHIPPING_PARAMS_PVT.Get',l_return_status);
5051: END IF;
5052:
5053: WSH_UTIL_CORE.api_post_call(
5054: p_return_status => l_return_status,
5055: x_num_warnings => l_num_warnings,
5056: x_num_errors => l_num_errors);
5057:
5071: IF l_debug_on THEN
5072: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',l_return_status);
5073: END IF;
5074:
5075: WSH_UTIL_CORE.api_post_call(
5076: p_return_status => l_return_status,
5077: x_num_warnings => l_num_warnings,
5078: x_num_errors => l_num_errors);
5079:
5089: IF l_debug_on THEN
5090: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception',l_return_status);
5091: END IF;
5092:
5093: WSH_UTIL_CORE.api_post_call(
5094: p_return_status => l_return_status,
5095: x_num_warnings => l_num_warnings,
5096: x_num_errors => l_num_errors);
5097: END IF;
5113: x_return_message => l_error_text,
5114: x_return_status => l_return_status);
5115:
5116:
5117: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5118:
5119: IF l_debug_on THEN
5120: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR OCCURRED WHILST PROCESSING CARRIER SELECTION' );
5121: END IF;
5119: IF l_debug_on THEN
5120: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR OCCURRED WHILST PROCESSING CARRIER SELECTION' );
5121: END IF;
5122:
5123: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5124:
5125: END IF;
5126:
5127: WSH_UTIL_CORE.api_post_call(
5123: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5124:
5125: END IF;
5126:
5127: WSH_UTIL_CORE.api_post_call(
5128: p_return_status => l_return_status,
5129: x_num_warnings => l_num_warnings,
5130: x_num_errors => l_num_errors);
5131:
5151: IF l_debug_on THEN
5152: wsh_debug_sv.log(l_module_name,'Return Status After Calling update_ship_from_location',l_return_status);
5153: END IF;
5154: --
5155: WSH_UTIL_CORE.api_post_call(
5156: p_return_status => l_return_status,
5157: x_num_warnings => l_num_warnings,
5158: x_num_errors => l_num_errors);
5159: --}
5165: WSH_DELIVERY_AUTOCREATE.Create_Update_Hash(
5166: p_delivery_rec => l_rec_attr_tab(l_index),
5167: x_return_status => l_return_status);
5168:
5169: WSH_UTIL_CORE.api_post_call(
5170: p_return_status => l_return_status,
5171: x_num_warnings => l_num_warnings,
5172: x_num_errors => l_num_errors);
5173:
5182: wsh_debug_sv.log(l_module_name,'Return Status After Calling Update Delivery',l_return_status);
5183: END IF;
5184: --
5185: --
5186: WSH_UTIL_CORE.api_post_call(
5187: p_return_status => l_return_status,
5188: x_num_warnings => l_num_warnings,
5189: x_num_errors => l_num_errors);
5190:
5196:
5197: IF (l_carrier_id is not null
5198: OR l_smc is not null
5199: OR l_organization_id is not null
5200: ) AND (WSH_UTIL_CORE.TP_Is_Installed = 'Y'
5201: OR l_gc3_is_installed = 'Y') THEN
5202:
5203: FOR cur in c_getorgcarriersmc (l_rec_attr_tab(l_index).delivery_id) LOOP
5204: IF l_organization_id is null THEN
5223: WSH_DEBUG_SV.log(l_module_name,'smc',l_smc);
5224: WSH_DEBUG_SV.log(l_module_name,'l_ignore',l_ignore_for_planning);
5225: END IF;
5226:
5227: WSH_UTIL_CORE.api_post_call(
5228: p_return_status => l_return_status,
5229: x_num_warnings => l_num_warnings,
5230: x_num_errors => l_num_errors);
5231:
5242: x_return_status => l_return_status);
5243: IF l_debug_on THEN
5244: wsh_debug_sv.log(l_module_name,'Return Status After Calling change_ignoreplan_sttatus',l_return_status);
5245: END IF;
5246: WSH_UTIL_CORE.api_post_call(
5247: p_return_status => l_return_status,
5248: x_num_warnings => l_num_warnings,
5249: x_num_errors => l_num_errors);
5250: END IF;
5272:
5273: IF (l_num_errors = l_rec_attr_tab.count ) THEN
5274: RAISE FND_API.G_EXC_ERROR;
5275: ELSIF (l_num_errors > 0 ) THEN
5276: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5277: ELSIF (l_num_warnings > 0 ) THEN
5278: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5279: ELSE
5280: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5274: RAISE FND_API.G_EXC_ERROR;
5275: ELSIF (l_num_errors > 0 ) THEN
5276: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5277: ELSIF (l_num_warnings > 0 ) THEN
5278: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5279: ELSE
5280: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5281: END IF;
5282:
5276: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5277: ELSIF (l_num_warnings > 0 ) THEN
5278: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5279: ELSE
5280: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5281: END IF;
5282:
5283: -- Standard check of p_commit.
5284: IF FND_API.To_Boolean( p_commit ) THEN
5283: -- Standard check of p_commit.
5284: IF FND_API.To_Boolean( p_commit ) THEN
5285:
5286: --bug 4070732
5287: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5288: --{
5289:
5290: l_reset_flags := FALSE;
5291:
5289:
5290: l_reset_flags := FALSE;
5291:
5292: IF l_debug_on THEN
5293: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5294: END IF;
5295:
5296: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
5297: x_return_status => l_return_status);
5292: IF l_debug_on THEN
5293: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5294: END IF;
5295:
5296: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
5297: x_return_status => l_return_status);
5298:
5299: IF l_debug_on THEN
5300: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5299: IF l_debug_on THEN
5300: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5301: END IF;
5302:
5303: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5304: RAISE FND_API.G_EXC_ERROR;
5305: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5307: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5301: END IF;
5302:
5303: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5304: RAISE FND_API.G_EXC_ERROR;
5305: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5307: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5308: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5309: END IF;
5303: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5304: RAISE FND_API.G_EXC_ERROR;
5305: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5307: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5308: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5309: END IF;
5310:
5311: --}
5304: RAISE FND_API.G_EXC_ERROR;
5305: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5306: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5307: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5308: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5309: END IF;
5310:
5311: --}
5312: END IF;
5315: COMMIT WORK;
5316: END IF;
5317: --
5318: --bug 4070732
5319: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5320: --{
5321: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5322: --{
5323:
5317: --
5318: --bug 4070732
5319: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5320: --{
5321: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5322: --{
5323:
5324: IF FND_API.To_Boolean( p_commit ) THEN
5325:
5323:
5324: IF FND_API.To_Boolean( p_commit ) THEN
5325:
5326: IF l_debug_on THEN
5327: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5328: END IF;
5329:
5330: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
5331: x_return_status => l_return_status);
5326: IF l_debug_on THEN
5327: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5328: END IF;
5329:
5330: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
5331: x_return_status => l_return_status);
5332: ELSE
5333:
5334: IF l_debug_on THEN
5331: x_return_status => l_return_status);
5332: ELSE
5333:
5334: IF l_debug_on THEN
5335: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5336: END IF;
5337:
5338: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
5339: x_return_status => l_return_status);
5334: IF l_debug_on THEN
5335: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5336: END IF;
5337:
5338: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
5339: x_return_status => l_return_status);
5340:
5341: END IF;
5342:
5343: IF l_debug_on THEN
5344: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5345: END IF;
5346:
5347: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5348: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5349: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5350: x_return_status := l_return_status;
5351: END IF;
5344: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5345: END IF;
5346:
5347: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5348: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5349: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5350: x_return_status := l_return_status;
5351: END IF;
5352:
5345: END IF;
5346:
5347: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5348: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5349: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5350: x_return_status := l_return_status;
5351: END IF;
5352:
5353: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5349: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5350: x_return_status := l_return_status;
5351: END IF;
5352:
5353: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5354: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5355: IF NOT FND_API.To_Boolean( p_commit ) THEN
5356: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5357: END IF;
5350: x_return_status := l_return_status;
5351: END IF;
5352:
5353: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5354: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5355: IF NOT FND_API.To_Boolean( p_commit ) THEN
5356: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5357: END IF;
5358: END IF;
5375: --
5376: EXCEPTION
5377: WHEN RECORD_LOCKED THEN
5378: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5379: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5380: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
5381: wsh_util_core.add_message(x_return_status,l_module_name);
5382: --
5383: -- Start code for Bugfix 4070732
5377: WHEN RECORD_LOCKED THEN
5378: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5379: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5380: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
5381: wsh_util_core.add_message(x_return_status,l_module_name);
5382: --
5383: -- Start code for Bugfix 4070732
5384: --
5385: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5381: wsh_util_core.add_message(x_return_status,l_module_name);
5382: --
5383: -- Start code for Bugfix 4070732
5384: --
5385: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5386: --{
5387: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5388: --{
5389: IF l_debug_on THEN
5383: -- Start code for Bugfix 4070732
5384: --
5385: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5386: --{
5387: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5388: --{
5389: IF l_debug_on THEN
5390: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5391: END IF;
5386: --{
5387: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5388: --{
5389: IF l_debug_on THEN
5390: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5391: END IF;
5392:
5393: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5394: x_return_status => l_return_status);
5389: IF l_debug_on THEN
5390: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5391: END IF;
5392:
5393: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5394: x_return_status => l_return_status);
5395:
5396:
5397: IF l_debug_on THEN
5397: IF l_debug_on THEN
5398: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5399: END IF;
5400:
5401: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5402: x_return_status := l_return_status;
5403: END IF;
5404: --}
5405: END IF;
5419: END IF;
5420:
5421: WHEN FND_API.G_EXC_ERROR THEN
5422: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5423: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5424: --
5425: -- Start code for Bugfix 4070732
5426: --
5427: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5423: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5424: --
5425: -- Start code for Bugfix 4070732
5426: --
5427: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5428: --{
5429: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5430: --{
5431: IF l_debug_on THEN
5425: -- Start code for Bugfix 4070732
5426: --
5427: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5428: --{
5429: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5430: --{
5431: IF l_debug_on THEN
5432: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5433: END IF;
5428: --{
5429: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5430: --{
5431: IF l_debug_on THEN
5432: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5433: END IF;
5434:
5435: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5436: x_return_status => l_return_status);
5431: IF l_debug_on THEN
5432: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5433: END IF;
5434:
5435: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5436: x_return_status => l_return_status);
5437:
5438:
5439: IF l_debug_on THEN
5439: IF l_debug_on THEN
5440: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5441: END IF;
5442:
5443: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5444: x_return_status := l_return_status;
5445: END IF;
5446: --}
5447: END IF;
5463: END IF;
5464: --
5465: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5466: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5467: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5468:
5469: --
5470: -- Start code for Bugfix 4070732
5471: --
5468:
5469: --
5470: -- Start code for Bugfix 4070732
5471: --
5472: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5473: --{
5474: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5475: --{
5476: IF l_debug_on THEN
5470: -- Start code for Bugfix 4070732
5471: --
5472: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5473: --{
5474: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5475: --{
5476: IF l_debug_on THEN
5477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5478: END IF;
5473: --{
5474: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5475: --{
5476: IF l_debug_on THEN
5477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5478: END IF;
5479:
5480: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5481: x_return_status => l_return_status);
5476: IF l_debug_on THEN
5477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5478: END IF;
5479:
5480: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5481: x_return_status => l_return_status);
5482:
5483:
5484: IF l_debug_on THEN
5484: IF l_debug_on THEN
5485: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5486: END IF;
5487:
5488: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5489: x_return_status := l_return_status;
5490: END IF;
5491: --}
5492: END IF;
5507: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5508: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5509: END IF;
5510: --
5511: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
5512: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5513: --
5514: -- Start code for Bugfix 4070732
5515: --
5508: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5509: END IF;
5510: --
5511: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
5512: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5513: --
5514: -- Start code for Bugfix 4070732
5515: --
5516: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5512: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5513: --
5514: -- Start code for Bugfix 4070732
5515: --
5516: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5517: --{
5518: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5519: --{
5520: IF l_debug_on THEN
5514: -- Start code for Bugfix 4070732
5515: --
5516: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5517: --{
5518: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5519: --{
5520: IF l_debug_on THEN
5521: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5522: END IF;
5517: --{
5518: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5519: --{
5520: IF l_debug_on THEN
5521: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5522: END IF;
5523:
5524: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
5525: x_return_status => l_return_status);
5520: IF l_debug_on THEN
5521: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5522: END IF;
5523:
5524: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
5525: x_return_status => l_return_status);
5526:
5527:
5528: IF l_debug_on THEN
5528: IF l_debug_on THEN
5529: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5530: END IF;
5531:
5532: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5533: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5534: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5535: x_return_status := l_return_status;
5536: END IF;
5529: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5530: END IF;
5531:
5532: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5533: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5534: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5535: x_return_status := l_return_status;
5536: END IF;
5537:
5530: END IF;
5531:
5532: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5533: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
5534: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5535: x_return_status := l_return_status;
5536: END IF;
5537:
5538: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5534: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5535: x_return_status := l_return_status;
5536: END IF;
5537:
5538: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5539: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5540: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5541: END IF;
5542: --}
5535: x_return_status := l_return_status;
5536: END IF;
5537:
5538: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5539: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5540: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5541: END IF;
5542: --}
5543: END IF;
5554: );
5555:
5556: --
5557: IF l_debug_on THEN
5558: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5559: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
5560: END IF;
5561: --
5562: WHEN OTHERS THEN
5555:
5556: --
5557: IF l_debug_on THEN
5558: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5559: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
5560: END IF;
5561: --
5562: WHEN OTHERS THEN
5563: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5560: END IF;
5561: --
5562: WHEN OTHERS THEN
5563: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5564: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5565: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.CREATE_UPDATE_DELIVERY');
5566: --
5567: -- Start code for Bugfix 4070732
5568: --
5561: --
5562: WHEN OTHERS THEN
5563: ROLLBACK TO CREATE_UPDATE_DELIVERY_GRP;
5564: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5565: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.CREATE_UPDATE_DELIVERY');
5566: --
5567: -- Start code for Bugfix 4070732
5568: --
5569: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5565: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.CREATE_UPDATE_DELIVERY');
5566: --
5567: -- Start code for Bugfix 4070732
5568: --
5569: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5570: --{
5571: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5572: --{
5573: IF l_debug_on THEN
5567: -- Start code for Bugfix 4070732
5568: --
5569: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
5570: --{
5571: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5572: --{
5573: IF l_debug_on THEN
5574: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5575: END IF;
5570: --{
5571: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
5572: --{
5573: IF l_debug_on THEN
5574: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5575: END IF;
5576:
5577: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5578: x_return_status => l_return_status);
5573: IF l_debug_on THEN
5574: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
5575: END IF;
5576:
5577: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
5578: x_return_status => l_return_status);
5579:
5580:
5581: IF l_debug_on THEN
5581: IF l_debug_on THEN
5582: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
5583: END IF;
5584:
5585: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5586: x_return_status := l_return_status;
5587: END IF;
5588: --}
5589: END IF;
5654: WSH_DEBUG_SV.log(l_module_name,'p_delivery_info.name',
5655: p_delivery_info.name);
5656: END IF;
5657: --
5658: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5659: --OTM R12
5660: l_adjusted_amount := 0;
5661: --
5662:
5672: p_delivery_info.delivery_id,
5673: p_delivery_info.name,
5674: x_return_status);
5675:
5676: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5677: --
5678: IF l_debug_on THEN
5679: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5680: x_return_status);
5697: p_delivery_info.organization_id,
5698: p_delivery_info.organization_code,
5699: x_return_status);
5700:
5701: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5702: --
5703: IF l_debug_on THEN
5704: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5705: x_return_status);
5724: p_delivery_info.loading_order_flag,
5725: p_delivery_info.loading_order_desc,
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.initial_pickup_location_id,
5747: p_delivery_info.initial_pickup_location_code,
5748: x_return_status);
5749:
5750: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5751: IF l_debug_on THEN
5752: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5753: x_return_status);
5754: WSH_DEBUG_SV.pop(l_module_name);
5767: p_delivery_info.ultimate_dropoff_location_id,
5768: p_delivery_info.ultimate_dropoff_location_code,
5769: x_return_status);
5770:
5771: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5772: IF l_debug_on THEN
5773: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5774: x_return_status);
5775: WSH_DEBUG_SV.pop(l_module_name);
5788: p_delivery_info.intmed_ship_to_location_id,
5789: p_delivery_info.intmed_ship_to_location_code,
5790: x_return_status);
5791:
5792: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5793: IF l_debug_on THEN
5794: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5795: x_return_status);
5796: WSH_DEBUG_SV.pop(l_module_name);
5809: p_delivery_info.pooled_ship_to_location_id,
5810: p_delivery_info.pooled_ship_to_location_code,
5811: x_return_status);
5812:
5813: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5814: --
5815: IF l_debug_on THEN
5816: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5817: x_return_status);
5836: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_customer',x_return_status);
5837: END IF;
5838: --
5839:
5840: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5841: --
5842: IF l_debug_on THEN
5843: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5844: x_return_status);
5860: p_delivery_info.ship_method_code,
5861: p_delivery_info.ship_method_name,
5862: x_return_status);
5863:
5864: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5865: --
5866: IF l_debug_on THEN
5867: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5868: x_return_status);
5882: p_delivery_info.freight_terms_code,
5883: p_delivery_info.freight_terms_name,
5884: x_return_status);
5885:
5886: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5887: --
5888: IF l_debug_on THEN
5889: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5890: x_return_status);
5904: p_delivery_info.fob_code,
5905: p_delivery_info.fob_name,
5906: x_return_status);
5907:
5908: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5909: --
5910: IF l_debug_on THEN
5911: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5912: x_return_status);
5926: p_delivery_info.fob_location_id,
5927: p_delivery_info.fob_location_code,
5928: x_return_status);
5929:
5930: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5931: --
5932: IF l_debug_on THEN
5933: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5934: x_return_status);
5951: p_delivery_info.weight_uom_code,
5952: p_delivery_info.weight_uom_desc,
5953: x_return_status);
5954:
5955: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5956: IF l_debug_on THEN
5957: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5958: x_return_status);
5959: WSH_DEBUG_SV.pop(l_module_name);
5974: p_delivery_info.volume_uom_code,
5975: p_delivery_info.volume_uom_desc,
5976: x_return_status);
5977:
5978: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5979: --
5980: IF l_debug_on THEN
5981: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
5982: x_return_status);
5999: p_amount => NULL,
6000: x_return_status => x_return_status,
6001: x_adjusted_amount => l_adjusted_amount);
6002:
6003: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6004: IF l_debug_on THEN
6005: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
6006: x_return_status);
6007: WSH_DEBUG_SV.pop(l_module_name);
6024: l_assigned_to_trip := WSH_Delivery_Validations.Del_Assigned_To_Trip
6025: (p_delivery_id => p_delivery_info.delivery_id,
6026: x_return_status => x_return_status);
6027:
6028: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6029: --
6030: IF l_debug_on THEN
6031: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
6032: x_return_status);
6042: WSH_DEBUG_SV.log(l_module_name,'WSH_DEL_ASSIGNED_ERROR');
6043: END IF;
6044: --
6045: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_info.delivery_id));
6046: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6047: wsh_util_core.add_message(x_return_status,l_module_name);
6048: IF l_debug_on THEN
6049: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
6050: x_return_status);
6043: END IF;
6044: --
6045: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_info.delivery_id));
6046: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6047: wsh_util_core.add_message(x_return_status,l_module_name);
6048: IF l_debug_on THEN
6049: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
6050: x_return_status);
6051: WSH_DEBUG_SV.pop(l_module_name);
6061: END IF;
6062: --
6063: EXCEPTION
6064: WHEN others THEN
6065: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.Validate_Delivery',l_module_name);
6066: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6067: --
6068: IF l_debug_on THEN
6069: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6062: --
6063: EXCEPTION
6064: WHEN others THEN
6065: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.Validate_Delivery',l_module_name);
6066: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6067: --
6068: IF l_debug_on THEN
6069: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6070: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6094: --
6095: IF l_debug_on THEN
6096: WSH_DEBUG_SV.push(l_module_name);
6097: END IF;
6098: x_return_status := wsh_util_core.g_ret_sts_success;
6099: --
6100: x_pvt_rec.DELIVERY_ID := p_pub_rec.DELIVERY_ID;
6101: x_pvt_rec.NAME := p_pub_rec.NAME;
6102: x_pvt_rec.DELIVERY_TYPE := p_pub_rec.DELIVERY_TYPE;
6236: WSH_DEBUG_SV.pop(l_module_name);
6237: END IF;
6238: EXCEPTION
6239: WHEN OTHERS THEN
6240: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_DELIVERIES_GRP.map_grp_pvt',l_module_name);
6241: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6242: --
6243: IF l_debug_on THEN
6244: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6237: END IF;
6238: EXCEPTION
6239: WHEN OTHERS THEN
6240: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_DELIVERIES_GRP.map_grp_pvt',l_module_name);
6241: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6242: --
6243: IF l_debug_on THEN
6244: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6245: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6334: END IF;
6335: ELSIF ( p_action_code <> 'CREATE' ) THEN
6336: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
6337: FND_MESSAGE.SET_TOKEN('ACTION_CODE',p_action_code);
6338: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6339: wsh_util_core.add_message(x_return_status);
6340: END IF;
6341: --
6342: map_grp_to_pvt(
6335: ELSIF ( p_action_code <> 'CREATE' ) THEN
6336: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
6337: FND_MESSAGE.SET_TOKEN('ACTION_CODE',p_action_code);
6338: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6339: wsh_util_core.add_message(x_return_status);
6340: END IF;
6341: --
6342: map_grp_to_pvt(
6343: p_pub_rec => p_delivery_info,
6347: IF l_debug_on THEN
6348: wsh_debug_sv.log(l_module_name,'Return Status After Calling map_grp_to_pvt',l_return_status);
6349: END IF;
6350: --
6351: wsh_util_core.api_post_call(
6352: p_return_status => l_return_status,
6353: x_num_errors => l_num_errors,
6354: x_num_warnings => l_num_warnings);
6355: --
6369: IF l_debug_on THEN
6370: wsh_debug_sv.log(l_module_name,'Return Status After Calling create_update_delivery',l_return_status);
6371: END IF;
6372: --
6373: wsh_util_core.api_post_call(
6374: p_return_status => l_return_status,
6375: x_num_errors => l_num_errors,
6376: x_num_warnings => l_num_warnings,
6377: p_msg_data => x_msg_data);
6383: --
6384: END IF;
6385: --
6386: IF l_num_warnings > 0 THEN
6387: x_return_status := wsh_util_core.g_ret_sts_warning;
6388: ELSE
6389: x_return_status := wsh_util_core.g_ret_sts_success; --bug 2398628
6390: END IF;
6391: --
6385: --
6386: IF l_num_warnings > 0 THEN
6387: x_return_status := wsh_util_core.g_ret_sts_warning;
6388: ELSE
6389: x_return_status := wsh_util_core.g_ret_sts_success; --bug 2398628
6390: END IF;
6391: --
6392: FND_MSG_PUB.Count_And_Get
6393: ( p_count => x_msg_count
6532: p_sc_report_set_name IN VARCHAR2 DEFAULT NULL,
6533: p_sc_defer_interface_flag IN VARCHAR2 DEFAULT 'Y',
6534: p_sc_send_945_flag IN VARCHAR2 DEFAULT NULL,
6535: p_wv_override_flag IN VARCHAR2 DEFAULT 'N',
6536: x_trip_rows OUT NOCOPY WSH_UTIL_CORE.id_tab_type)
6537: --
6538: IS
6539: --
6540: l_api_version_number CONSTANT NUMBER := 1.0;
6546: --
6547: --
6548: l_action_prms wsh_deliveries_grp.action_parameters_rectype;
6549: l_del_action_out_rec wsh_deliveries_grp.Delivery_Action_Out_Rec_Type;
6550: l_delivery_id_tab wsh_util_core.id_tab_type;
6551: --
6552: l_delivery_id NUMBER := p_delivery_id;
6553: --
6554: l_num_errors NUMBER := 0;
6593: IF l_debug_on THEN
6594: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_delivery_name',x_return_status);
6595: END IF;
6596: --
6597: wsh_util_core.api_post_call(
6598: p_return_status => x_return_status,
6599: x_num_errors => l_num_errors,
6600: x_num_warnings => l_num_warnings);
6601: --
6646: IF l_debug_on THEN
6647: wsh_debug_sv.log(l_module_name,'Return Status After Calling Delivery_Action',x_return_status);
6648: END IF;
6649: --
6650: wsh_util_core.api_post_call(
6651: p_return_status => x_return_status,
6652: x_num_errors => l_num_errors,
6653: x_num_warnings => l_num_warnings,
6654: p_msg_data => x_msg_data);
6661: x_trip_rows := l_del_action_out_rec.result_id_tab;
6662:
6663: --
6664: IF l_num_warnings > 0 THEN
6665: x_return_status := wsh_util_core.g_ret_sts_warning;
6666: ELSE
6667: x_return_status := wsh_util_core.g_ret_sts_success; --bug 2398628
6668: END IF;
6669: --
6663: --
6664: IF l_num_warnings > 0 THEN
6665: x_return_status := wsh_util_core.g_ret_sts_warning;
6666: ELSE
6667: x_return_status := wsh_util_core.g_ret_sts_success; --bug 2398628
6668: END IF;
6669: --
6670: FND_MSG_PUB.Count_And_Get
6671: ( p_count => x_msg_count
6743:
6744: PROCEDURE Lock_Related_Entities(
6745: p_rec_attr_tab IN WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type,
6746: p_action_prms IN action_parameters_rectype,
6747: x_valid_ids_tab OUT NOCOPY WSH_UTIL_CORE.ID_TAB_TYPE,
6748: x_return_status OUT NOCOPY VARCHAR2
6749: ) IS
6750:
6751: l_index NUMBER;
6749: ) IS
6750:
6751: l_index NUMBER;
6752: l_stop_index NUMBER;
6753: l_stop_rows wsh_util_core.id_tab_type;
6754: l_min_stop_seq NUMBER;
6755: l_max_stop_seq NUMBER;
6756: l_stop_seq NUMBER;
6757: l_trip_id NUMBER;
6793: THEN
6794: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6795: END IF;
6796: --
6797: x_return_status := wsh_util_core.g_ret_sts_success;
6798:
6799: IF l_debug_on THEN
6800: WSH_DEBUG_SV.push(l_module_name);
6801: --
6883: 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);
6884: END IF;
6885: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_STOP_TRIP_LOCK');
6886: FND_MESSAGE.SET_TOKEN('DLVY_NAME',l_dlvy_name);
6887: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
6888: --
6889: --
6890: WHEN others THEN
6891: IF l_debug_on THEN
6914: RAISE FND_API.G_EXC_ERROR;
6915: ELSIF x_valid_ids_tab.count >0
6916: AND x_valid_ids_tab.count < p_rec_attr_tab.count
6917: THEN
6918: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
6919: -- }
6920: END IF;
6921: -- }
6922: END IF;
6942: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6943: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6944: END IF;
6945: --
6946: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6947: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6948: --
6949: IF l_debug_on THEN
6950: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6943: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6944: END IF;
6945: --
6946: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6947: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6948: --
6949: IF l_debug_on THEN
6950: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6951: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6946: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
6947: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6948: --
6949: IF l_debug_on THEN
6950: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6951: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6952: END IF;
6953: --
6954: WHEN OTHERS THEN
6947: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6948: --
6949: IF l_debug_on THEN
6950: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6951: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
6952: END IF;
6953: --
6954: WHEN OTHERS THEN
6955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6952: END IF;
6953: --
6954: WHEN OTHERS THEN
6955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6956: WSH_UTIL_CORE.default_handler('WSH_DELIVERIES_GRP.Lock_Related_Entities');
6957: IF l_debug_on THEN
6958: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6959: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6960: END IF;
7038: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'P_ENTITY_TYPE');
7039: ELSIF ( p_entity_id is null ) THEN
7040: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'P_ENTITY_ID');
7041: END IF;
7042: x_return_status := wsh_util_core.g_ret_sts_error;
7043: wsh_util_core.add_message(x_return_status, l_module_name);
7044: RAISE FND_API.G_EXC_ERROR;
7045: END IF;
7046:
7039: ELSIF ( p_entity_id is null ) THEN
7040: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'P_ENTITY_ID');
7041: END IF;
7042: x_return_status := wsh_util_core.g_ret_sts_error;
7043: wsh_util_core.add_message(x_return_status, l_module_name);
7044: RAISE FND_API.G_EXC_ERROR;
7045: END IF;
7046:
7047: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7043: wsh_util_core.add_message(x_return_status, l_module_name);
7044: RAISE FND_API.G_EXC_ERROR;
7045: END IF;
7046:
7047: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7048:
7049: --
7050: IF l_debug_on THEN
7051: wsh_debug_sv.logmsg(l_module_name, 'Calling Get_Delivery_Status', WSH_DEBUG_SV.C_PROC_LEVEL);
7050: IF l_debug_on THEN
7051: wsh_debug_sv.logmsg(l_module_name, 'Calling Get_Delivery_Status', WSH_DEBUG_SV.C_PROC_LEVEL);
7052: END IF;
7053: --
7054: WSH_UTIL_CORE.Get_Delivery_Status (
7055: p_entity_type => p_entity_type,
7056: p_entity_id => p_entity_id,
7057: x_status_code => x_status_code,
7058: x_return_status => l_return_status );
7060: IF l_debug_on THEN
7061: wsh_debug_sv.log(l_module_name, 'Return Status after Calling Get_Delivery_Status', l_return_status);
7062: END IF;
7063: --
7064: WSH_UTIL_CORE.api_post_call(
7065: p_return_status => l_return_status,
7066: x_num_warnings => l_num_warnings,
7067: x_num_errors => l_num_errors);
7068: --
7074: END IF;
7075: --
7076: EXCEPTION
7077: WHEN FND_API.G_EXC_ERROR THEN
7078: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7079: FND_MSG_PUB.Count_And_Get (
7080: p_count => x_msg_count,
7081: p_data => x_msg_data,
7082: p_encoded => FND_API.G_FALSE );
7086: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
7087: END IF;
7088: --
7089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7091: FND_MSG_PUB.Count_And_Get (
7092: p_count => x_msg_count,
7093: p_data => x_msg_data,
7094: p_encoded => FND_API.G_FALSE );
7098: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7099: END IF;
7100: --
7101: WHEN OTHERS THEN
7102: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
7103: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Get_Delivery_Status');
7104: --
7105: IF l_debug_on THEN
7106: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7099: END IF;
7100: --
7101: WHEN OTHERS THEN
7102: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
7103: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Get_Delivery_Status');
7104: --
7105: IF l_debug_on THEN
7106: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM, WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7107: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:OTHERS');