[Home] [Help]
11: PROCEDURE Lock_Related_Entity
12: (
13: p_action_prms IN action_parameters_rectype,
14: p_stop_attr_tab IN WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type,
15: x_valid_ids_tab OUT NOCOPY WSH_UTIL_CORE.id_Tab_Type,
16: x_return_status OUT NOCOPY VARCHAR2
17: );
18:
19: PROCEDURE Add_to_Delete_List(
18:
19: PROCEDURE Add_to_Delete_List(
20: p_stop_tab IN WSH_TRIP_STOPS_VALIDATIONS.stop_details_tab,
21: p_caller IN VARCHAR2,
22: x_stop_delete_tab OUT NOCOPY wsh_util_core.id_tab_type,
23: x_trip_affected_tab OUT NOCOPY wsh_util_core.id_tab_type,
24: x_return_status OUT NOCOPY VARCHAR2) ;
25: --===================
26: -- PROCEDURES
19: PROCEDURE Add_to_Delete_List(
20: p_stop_tab IN WSH_TRIP_STOPS_VALIDATIONS.stop_details_tab,
21: p_caller IN VARCHAR2,
22: x_stop_delete_tab OUT NOCOPY wsh_util_core.id_tab_type,
23: x_trip_affected_tab OUT NOCOPY wsh_util_core.id_tab_type,
24: x_return_status OUT NOCOPY VARCHAR2) ;
25: --===================
26: -- PROCEDURES
27: --===================
75:
76:
77: --
78:
79: l_stop_rows wsh_util_core.id_tab_type;
80: l_action_prms WSH_TRIP_STOPS_GRP.action_parameters_rectype;
81:
82: l_encoded VARCHAR2(1) := 'F';
83:
128: l_trip_id,
129: p_stop_info.trip_name,
130: l_return_status);
131:
132: wsh_util_core.api_post_call(p_return_status =>l_return_status,
133: x_num_warnings =>l_num_warning,
134: x_num_errors =>l_num_errors);
135:
136: -- Stop location id can be -1 for inbound stops
136: -- Stop location id can be -1 for inbound stops
137: -- in such case, we do not need to call validate location, as it wil fail
138: -- in turn preventing any action on stops
139: --
140: IF l_stop_location_id <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID -- J-IB-NPARIKH
141: OR l_stop_location_id IS NULL
142: THEN
143: wsh_util_validate.validate_location(
144: l_stop_location_id,
144: l_stop_location_id,
145: p_stop_info.stop_location_code,
146: l_return_status);
147:
148: wsh_util_core.api_post_call(p_return_status =>l_return_status,
149: x_num_warnings =>l_num_warning,
150: x_num_errors =>l_num_errors);
151: END IF;
152:
159: IF l_debug_on THEN
160: WSH_DEBUG_SV.log(l_module_name,'l_stop_id', l_stop_id);
161: END IF;
162:
163: wsh_util_core.api_post_call(p_return_status =>l_return_status,
164: x_num_warnings =>l_num_warning,
165: x_num_errors =>l_num_errors);
166:
167: IF (l_stop_id IS NULL) THEN
199: WHEN FND_API.G_EXC_ERROR THEN
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: FND_MESSAGE.SET_NAME('WSH','WSH_OI_STOP_ACTION_ERROR');
202: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(l_stop_id));
203: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('STOP',p_stop_IN_rec.action_code));
204: wsh_util_core.add_message(x_return_status,l_module_name);
205: FND_MSG_PUB.Count_And_Get
206: ( p_encoded => l_encoded
207: , p_count => x_msg_count
200: x_return_status := FND_API.G_RET_STS_ERROR;
201: FND_MESSAGE.SET_NAME('WSH','WSH_OI_STOP_ACTION_ERROR');
202: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(l_stop_id));
203: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('STOP',p_stop_IN_rec.action_code));
204: wsh_util_core.add_message(x_return_status,l_module_name);
205: FND_MSG_PUB.Count_And_Get
206: ( p_encoded => l_encoded
207: , p_count => x_msg_count
208: , p_data => x_msg_data
216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
218: FND_MESSAGE.SET_NAME('WSH','WSH_OI_STOP_ACTION_ERROR');
219: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(l_stop_id));
220: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('STOP',p_stop_IN_rec.action_code));
221: wsh_util_core.add_message(x_return_status,l_module_name);
222: -- Get message count and data
223: FND_MSG_PUB.Count_And_Get
224: ( p_encoded => l_encoded
217: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
218: FND_MESSAGE.SET_NAME('WSH','WSH_OI_STOP_ACTION_ERROR');
219: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(l_stop_id));
220: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('STOP',p_stop_IN_rec.action_code));
221: wsh_util_core.add_message(x_return_status,l_module_name);
222: -- Get message count and data
223: FND_MSG_PUB.Count_And_Get
224: ( p_encoded => l_encoded
225: , p_count => x_msg_count
302: l_api_name CONSTANT VARCHAR2(30):= 'Stop_Action';
303:
304: --
305:
306: l_stop_rows wsh_util_core.id_tab_type;
307:
308:
309: l_stop_id NUMBER := p_stop_id;
310: l_trip_id NUMBER := p_trip_id;
366: l_trip_id,
367: p_trip_name,
368: l_return_status);
369:
370: wsh_util_core.api_post_call(p_return_status =>l_return_status,
371: x_num_warnings =>l_num_warning,
372: x_num_errors =>l_num_errors);
373:
374: -- Stop location id can be -1 for inbound stops
374: -- Stop location id can be -1 for inbound stops
375: -- in such case, we do not need to call validate location, as it wil fail
376: -- in turn preventing any action on stops
377: --
378: IF l_stop_location_id <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID -- J-IB-NPARIKH
379: OR l_stop_location_id IS NULL
380: THEN
381: wsh_util_validate.validate_location(
382: l_stop_location_id,
382: l_stop_location_id,
383: p_stop_location_code,
384: l_return_status);
385:
386: wsh_util_core.api_post_call(p_return_status =>l_return_status,
387: x_num_warnings =>l_num_warning,
388: x_num_errors =>l_num_errors);
389: END IF;
390:
397: IF l_debug_on THEN
398: WSH_DEBUG_SV.log(l_module_name,'l_stop_id', l_stop_id);
399: END IF;
400:
401: wsh_util_core.api_post_call(p_return_status =>l_return_status,
402: x_num_warnings =>l_num_warning,
403: x_num_errors =>l_num_errors);
404:
405: IF (l_stop_id IS NULL) THEN
437: x_return_status := FND_API.G_RET_STS_ERROR;
438: -- Get message count and data
439: FND_MESSAGE.SET_NAME('WSH','WSH_OI_STOP_ACTION_ERROR');
440: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(l_stop_id));
441: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('STOP',p_action_code));
442: wsh_util_core.add_message(x_return_status,l_module_name);
443: FND_MSG_PUB.Count_And_Get
444: ( p_encoded => l_encoded
445: , p_count => x_msg_count
438: -- Get message count and data
439: FND_MESSAGE.SET_NAME('WSH','WSH_OI_STOP_ACTION_ERROR');
440: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(l_stop_id));
441: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('STOP',p_action_code));
442: wsh_util_core.add_message(x_return_status,l_module_name);
443: FND_MSG_PUB.Count_And_Get
444: ( p_encoded => l_encoded
445: , p_count => x_msg_count
446: , p_data => x_msg_data
453: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
455: FND_MESSAGE.SET_NAME('WSH','WSH_OI_STOP_ACTION_ERROR');
456: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(l_stop_id));
457: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('STOP',p_action_code));
458: wsh_util_core.add_message(x_return_status,l_module_name);
459: -- Get message count and data
460: FND_MSG_PUB.Count_And_Get
461: ( p_encoded => l_encoded
454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
455: FND_MESSAGE.SET_NAME('WSH','WSH_OI_STOP_ACTION_ERROR');
456: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(l_stop_id));
457: FND_MESSAGE.SET_TOKEN('ACTION', wsh_util_core.get_action_meaning('STOP',p_action_code));
458: wsh_util_core.add_message(x_return_status,l_module_name);
459: -- Get message count and data
460: FND_MSG_PUB.Count_And_Get
461: ( p_encoded => l_encoded
462: , p_count => x_msg_count
509: x_msg_count OUT NOCOPY NUMBER,
510: x_msg_data OUT NOCOPY VARCHAR2)
511:
512: IS
513: l_stop_id_tab wsh_util_core.id_tab_type;
514: -- for load tender add l_trip_id_tab
515: l_trip_id_tab wsh_util_core.id_tab_type;
516: l_error_ids wsh_util_core.id_tab_type;
517: l_dummy_ids wsh_util_core.id_tab_type;
511:
512: IS
513: l_stop_id_tab wsh_util_core.id_tab_type;
514: -- for load tender add l_trip_id_tab
515: l_trip_id_tab wsh_util_core.id_tab_type;
516: l_error_ids wsh_util_core.id_tab_type;
517: l_dummy_ids wsh_util_core.id_tab_type;
518: l_dummy_doc_param WSH_DOCUMENT_SETS.DOCUMENT_SET_TAB_TYPE;
519: l_num NUMBER;
512: IS
513: l_stop_id_tab wsh_util_core.id_tab_type;
514: -- for load tender add l_trip_id_tab
515: l_trip_id_tab wsh_util_core.id_tab_type;
516: l_error_ids wsh_util_core.id_tab_type;
517: l_dummy_ids wsh_util_core.id_tab_type;
518: l_dummy_doc_param WSH_DOCUMENT_SETS.DOCUMENT_SET_TAB_TYPE;
519: l_num NUMBER;
520: l_stop_rec_tab wsh_trip_stops_validations.stop_rec_tab_type;
513: l_stop_id_tab wsh_util_core.id_tab_type;
514: -- for load tender add l_trip_id_tab
515: l_trip_id_tab wsh_util_core.id_tab_type;
516: l_error_ids wsh_util_core.id_tab_type;
517: l_dummy_ids wsh_util_core.id_tab_type;
518: l_dummy_doc_param WSH_DOCUMENT_SETS.DOCUMENT_SET_TAB_TYPE;
519: l_num NUMBER;
520: l_stop_rec_tab wsh_trip_stops_validations.stop_rec_tab_type;
521: l_first NUMBER;
522: l_next NUMBER;
523: l_last NUMBER;
524: l_stop_id NUMBER;
525: l_is_installed VARCHAR2(10);
526: l_valid_index_tab wsh_util_core.id_tab_type;
527: l_valid_id_tab wsh_util_core.id_tab_type;
528: l_valid_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
529: l_num_warning NUMBER := 0;
530: l_num_errors NUMBER := 0;
523: l_last NUMBER;
524: l_stop_id NUMBER;
525: l_is_installed VARCHAR2(10);
526: l_valid_index_tab wsh_util_core.id_tab_type;
527: l_valid_id_tab wsh_util_core.id_tab_type;
528: l_valid_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
529: l_num_warning NUMBER := 0;
530: l_num_errors NUMBER := 0;
531: l_return_status VARCHAR2(500);
553: l_cc_failed_records WSH_FTE_COMP_CONSTRAINT_PKG.failed_line_tab_type;
554: l_cc_line_groups WSH_FTE_COMP_CONSTRAINT_PKG.line_group_tab_type;
555: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
556: b_cc_linefailed boolean;
557: l_stop_id_tab_t wsh_util_core.id_tab_type;
558: l_cc_stop_id_tab wsh_util_core.id_tab_type;
559: l_cc_count_success NUMBER;
560: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
561: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
554: l_cc_line_groups WSH_FTE_COMP_CONSTRAINT_PKG.line_group_tab_type;
555: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
556: b_cc_linefailed boolean;
557: l_stop_id_tab_t wsh_util_core.id_tab_type;
558: l_cc_stop_id_tab wsh_util_core.id_tab_type;
559: l_cc_count_success NUMBER;
560: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
561: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
562: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
560: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
561: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
562: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
563: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
564: l_cc_in_ids wsh_util_core.id_tab_type;
565: l_cc_fail_ids wsh_util_core.id_tab_type;
566: l_msg_count NUMBER;
567: l_msg_data VARCHAR2(32767);
568: --Compatibility Changes
561: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
562: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
563: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
564: l_cc_in_ids wsh_util_core.id_tab_type;
565: l_cc_fail_ids wsh_util_core.id_tab_type;
566: l_msg_count NUMBER;
567: l_msg_data VARCHAR2(32767);
568: --Compatibility Changes
569: l_stop_delete_tab wsh_util_core.id_tab_type;
565: l_cc_fail_ids wsh_util_core.id_tab_type;
566: l_msg_count NUMBER;
567: l_msg_data VARCHAR2(32767);
568: --Compatibility Changes
569: l_stop_delete_tab wsh_util_core.id_tab_type;
570: l_trip_affected_tab wsh_util_core.id_tab_type;
571: l_success_trip_tab wsh_util_core.id_tab_type;
572: l_delete_tmp_tab WSH_TRIP_STOPS_VALIDATIONS.stop_details_tab;
573: l_delete_t WSH_TRIP_STOPS_VALIDATIONS.stop_details_tab;
566: l_msg_count NUMBER;
567: l_msg_data VARCHAR2(32767);
568: --Compatibility Changes
569: l_stop_delete_tab wsh_util_core.id_tab_type;
570: l_trip_affected_tab wsh_util_core.id_tab_type;
571: l_success_trip_tab wsh_util_core.id_tab_type;
572: l_delete_tmp_tab WSH_TRIP_STOPS_VALIDATIONS.stop_details_tab;
573: l_delete_t WSH_TRIP_STOPS_VALIDATIONS.stop_details_tab;
574:
567: l_msg_data VARCHAR2(32767);
568: --Compatibility Changes
569: l_stop_delete_tab wsh_util_core.id_tab_type;
570: l_trip_affected_tab wsh_util_core.id_tab_type;
571: l_success_trip_tab wsh_util_core.id_tab_type;
572: l_delete_tmp_tab WSH_TRIP_STOPS_VALIDATIONS.stop_details_tab;
573: l_delete_t WSH_TRIP_STOPS_VALIDATIONS.stop_details_tab;
574:
575: CURSOR c_check_trip_close (p_trip_id IN NUMBER) IS
596: -- End of OTM R12 : packing ECO
597:
598:
599: BEGIN
600: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
601: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
602: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
603: END IF;
604: --
597:
598:
599: BEGIN
600: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
601: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
602: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
603: END IF;
604: --
605: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
598:
599: BEGIN
600: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
601: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
602: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
603: END IF;
604: --
605: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
606: --
649: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_rec_attr_tab.COUNT');
650: RAISE e_req_field;
651: END IF;
652: --
653: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
654:
655: IF p_action_prms.caller IN ( 'WSH_FSTRX', 'WSH_TPW_INBOUND')
656: OR p_action_prms.caller LIKE 'FTE%' THEN
657: l_isWshLocation := TRUE;
702: p_action =>p_action_prms.action_code ,
703: x_return_status => l_return_status);
704:
705:
706: wsh_util_core.api_post_call(p_return_status =>l_return_status,
707: x_num_warnings =>l_num_warning,
708: x_num_errors =>l_num_errors);
709:
710: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_STOP_NAME_LVL) = 1 THEN
721: x_return_status => l_return_status);
722: IF l_debug_on THEN
723: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_Stop_Name l_return_status',l_return_status);
724: END IF;
725: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
726: x_num_warnings =>l_num_warning,
727: x_num_errors =>l_num_errors);
728:
729: l_next := p_rec_attr_tab.NEXT(l_next);
739: x_return_status => l_return_status,
740: x_valid_ids => l_valid_id_tab ,
741: x_error_ids => l_error_ids ,
742: x_valid_index_tab => l_valid_index_tab);
743: wsh_util_core.api_post_call(p_return_status =>l_return_status,
744: x_num_warnings =>l_num_warning,
745: x_num_errors =>l_num_errors,
746: p_msg_data => NULL,
747: p_raise_error_flag => FALSE);
757: p_valid_index_tab =>l_valid_index_tab,
758: x_valid_ids_tab =>x_stop_out_rec.valid_ids_tab,
759: x_return_status=>l_return_status);
760:
761: wsh_util_core.api_post_call(p_return_status =>l_return_status,
762: x_num_warnings =>l_num_warning,
763: x_num_errors =>l_num_errors,
764: p_msg_data => NULL,
765: p_raise_error_flag => FALSE);
769:
770:
771: IF(l_num_errors >0 ) THEN
772: --{
773: x_return_status := wsh_util_core.g_ret_sts_error;
774: --
775: IF (p_action_prms.caller = 'WSH_FSTRX') THEN
776: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION');
777: wsh_util_core.add_message(x_return_status,l_module_name);
773: x_return_status := wsh_util_core.g_ret_sts_error;
774: --
775: IF (p_action_prms.caller = 'WSH_FSTRX') THEN
776: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION');
777: wsh_util_core.add_message(x_return_status,l_module_name);
778: END IF;
779: --
780: IF l_debug_on THEN
781: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION');
804: x_def_rec.status_code := 'AR';
805: x_def_rec.status_name := 'Arrived';
806: x_def_rec.stop_action := 'ARRIVE';
807: IF l_num_warning > 0 THEN
808: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
809: ELSE
810: --Bugfix 4070732 { Phase 1 just call the rest API
811: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
812: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
807: IF l_num_warning > 0 THEN
808: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
809: ELSE
810: --Bugfix 4070732 { Phase 1 just call the rest API
811: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
812: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
813: IF l_debug_on THEN
814: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
815: END IF;
808: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
809: ELSE
810: --Bugfix 4070732 { Phase 1 just call the rest API
811: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
812: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
813: IF l_debug_on THEN
814: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
815: END IF;
816:
810: --Bugfix 4070732 { Phase 1 just call the rest API
811: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
812: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
813: IF l_debug_on THEN
814: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
815: END IF;
816:
817: WSH_UTIL_CORE.reset_stops_for_load_tender(
818: p_reset_flags => TRUE,
813: IF l_debug_on THEN
814: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
815: END IF;
816:
817: WSH_UTIL_CORE.reset_stops_for_load_tender(
818: p_reset_flags => TRUE,
819: x_return_status => x_return_status);
820:
821: IF l_debug_on THEN
834: x_def_rec.status_code := 'CL';
835: x_def_rec.status_name := 'Closed';
836: x_def_rec.stop_action := 'CLOSE';
837: IF l_num_warning > 0 THEN
838: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
839: ELSE
840: --Bugfix 4070732 { Phase one just call the reset API
841: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
842: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
837: IF l_num_warning > 0 THEN
838: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
839: ELSE
840: --Bugfix 4070732 { Phase one just call the reset API
841: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
842: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
843: IF l_debug_on THEN
844: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
845: END IF;
838: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
839: ELSE
840: --Bugfix 4070732 { Phase one just call the reset API
841: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
842: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
843: IF l_debug_on THEN
844: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
845: END IF;
846: WSH_UTIL_CORE.reset_stops_for_load_tender(
840: --Bugfix 4070732 { Phase one just call the reset API
841: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
842: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
843: IF l_debug_on THEN
844: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
845: END IF;
846: WSH_UTIL_CORE.reset_stops_for_load_tender(
847: p_reset_flags => TRUE,
848: x_return_status => x_return_status);
842: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
843: IF l_debug_on THEN
844: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
845: END IF;
846: WSH_UTIL_CORE.reset_stops_for_load_tender(
847: p_reset_flags => TRUE,
848: x_return_status => x_return_status);
849:
850: IF l_debug_on THEN
863: END IF;
864:
865: IF l_num_warning > 0 THEN
866: --{
867: x_return_status := wsh_util_core.g_ret_sts_warning;
868: --
869: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION_WARN');
870: wsh_util_core.add_message(x_return_status,l_module_name);
871: --
866: --{
867: x_return_status := wsh_util_core.g_ret_sts_warning;
868: --
869: FND_MESSAGE.SET_NAME('WSH', 'WSH_DISABLE_ACTION_WARN');
870: wsh_util_core.add_message(x_return_status,l_module_name);
871: --
872: IF l_debug_on THEN
873: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION_WARN');
874: END IF;
873: wsh_debug_sv.logmsg(l_module_name, 'WSH_DISABLE_ACTION_WARN');
874: END IF;
875: --
876: IF p_action_prms.caller = 'WSH_FSTRX' THEN
877: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
878: ELSE
879: RAISE FND_API.G_EXC_ERROR;
880: END IF;
881: --}
888: AND p_action_prms.caller = 'WSH_FSTRX'
889: THEN
890: --Bugfix 4070732 { Phase 1 need to call the reset API only
891: l_return_status := NULL;
892: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
893: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
894: IF l_debug_on THEN
895: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
896: END IF;
889: THEN
890: --Bugfix 4070732 { Phase 1 need to call the reset API only
891: l_return_status := NULL;
892: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
893: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
894: IF l_debug_on THEN
895: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
896: END IF;
897: WSH_UTIL_CORE.reset_stops_for_load_tender(
891: l_return_status := NULL;
892: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
893: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
894: IF l_debug_on THEN
895: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
896: END IF;
897: WSH_UTIL_CORE.reset_stops_for_load_tender(
898: p_reset_flags => TRUE,
899: x_return_status => x_return_status);
893: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
894: IF l_debug_on THEN
895: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
896: END IF;
897: WSH_UTIL_CORE.reset_stops_for_load_tender(
898: p_reset_flags => TRUE,
899: x_return_status => x_return_status);
900:
901: IF l_debug_on THEN
904:
905: END IF;
906: END IF;
907: --}
908: x_return_status := NVL(l_return_status, WSH_UTIL_CORE.G_RET_STS_SUCCESS);
909: RETURN; -- Non-Generic Actions.
910: END IF;
911:
912:
915: --for autocreatetrip or if assign trip and caller is STF, phase=2
916:
917:
918:
919: IF wsh_util_core.fte_is_installed='Y' THEN
920:
921: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main(
922: p_api_version_number => p_api_version_number,
923: p_init_msg_list => FND_API.G_FALSE,
947: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
948: END IF;
949: --
950:
951: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
952: --fix l_rec_attr_tab to have only successful records
953: l_cc_count_success:=1;
954:
955: IF l_debug_on THEN
959: IF l_cc_fail_ids.COUNT>0 AND l_stop_id_tab.COUNT>0 THEN
960:
961: --set return_status as warning
962: IF l_cc_fail_ids.COUNT<>l_stop_id_tab.COUNT THEN
963: l_return_status:=wsh_util_core.g_ret_sts_warning;
964: END IF;
965:
966: FOR i in l_stop_id_tab.FIRST..l_stop_id_tab.LAST LOOP
967: b_cc_linefailed:=FALSE;
977: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
978: END IF;
979: --tkt
980: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(l_cc_fail_ids(j),p_action_prms.caller));
981: wsh_util_core.add_message(l_return_status);
982: END IF;
983: END LOOP;
984:
985: IF (NOT(b_cc_linefailed)) THEN
999: ELSE
1000: IF l_debug_on THEN
1001: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
1002: END IF;
1003: wsh_util_core.api_post_call(
1004: p_return_status => l_return_status,
1005: x_num_warnings => l_num_warning,
1006: x_num_errors => l_num_errors,
1007: p_msg_data => l_msg_data);
1008:
1009: END IF;
1010: END IF;
1011:
1012: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
1013: wsh_util_core.api_post_call(
1014: p_return_status => l_return_status,
1015: x_num_warnings => l_num_warning,
1016: x_num_errors => l_num_errors,
1009: END IF;
1010: END IF;
1011:
1012: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
1013: wsh_util_core.api_post_call(
1014: p_return_status => l_return_status,
1015: x_num_warnings => l_num_warning,
1016: x_num_errors => l_num_errors,
1017: p_msg_data => l_msg_data);
1016: x_num_errors => l_num_errors,
1017: p_msg_data => l_msg_data);
1018: END IF;
1019:
1020: wsh_util_core.api_post_call(
1021: p_return_status => l_return_status,
1022: x_num_warnings => l_num_warning,
1023: x_num_errors => l_num_errors,
1024: p_msg_data => l_msg_data,
1041: if l_debug_on then
1042: wsh_debug_sv.log(l_module_name, 'l_stop_id_tab count', l_stop_id_tab.count);
1043: end if;
1044:
1045: wsh_util_core.api_post_call( p_return_status =>l_return_status,
1046: x_num_warnings =>l_num_warning,
1047: x_num_errors =>l_num_errors);
1048:
1049: END IF;
1055: --tkt
1056: p_caller => p_action_prms.caller,
1057: x_return_status => l_return_status
1058: );
1059: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1060: x_num_warnings =>l_num_warning,
1061: x_num_errors =>l_num_errors);
1062: ELSIF p_action_prms.action_code = 'UNPLAN' THEN
1063: WSH_TRIP_STOPS_ACTIONS.plan (
1066: --tkt
1067: p_caller => p_action_prms.caller,
1068: x_return_status => l_return_status
1069: );
1070: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1071: x_num_warnings =>l_num_warning,
1072: x_num_errors =>l_num_errors);
1073:
1074: ELSIF p_action_prms.action_code = 'PICK-RELEASE' THEN
1079: p_detail_ids => l_dummy_ids,
1080: x_request_ids => x_stop_out_rec.result_id_tab,
1081: x_return_status => l_return_status
1082: );
1083: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1084: x_num_warnings =>l_num_warning,
1085: x_num_errors =>l_num_errors);
1086:
1087: ELSIF p_action_prms.action_code = 'PRINT-DOC-SETS' THEN
1087: ELSIF p_action_prms.action_code = 'PRINT-DOC-SETS' THEN
1088: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_DOCUMENT_SETS_LVL)=1 THEN
1089: IF l_report_set_id IS NULL THEN
1090: FND_MESSAGE.SET_NAME('WSH','WSH_DOC_MISSING');
1091: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1092: IF l_debug_on THEN
1093: wsh_debug_sv.log (l_module_name,'WSH_DOC_MISSING');
1094: END IF;
1095: RAISE FND_API.G_EXC_ERROR;
1097: WSH_UTIL_VALIDATE.validate_report_set(
1098: p_report_set_id => l_report_set_id,
1099: p_report_set_name => NULL,
1100: x_return_status => l_return_status);
1101: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1102: x_num_warnings =>l_num_warning,
1103: x_num_errors =>l_num_errors);
1104: END IF;
1105: WSH_DOCUMENT_SETS.print_document_sets(
1110: p_delivery_ids => l_dummy_ids,
1111: p_document_param_info => l_dummy_doc_param,
1112: x_return_status => l_return_status
1113: );
1114: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1115: x_num_warnings =>l_num_warning,
1116: x_num_errors =>l_num_errors);
1117: ELSIF p_action_prms.action_code = 'WT-VOL' THEN
1118:
1120: -- This change was introduced to mark the G_RESET_WV flag
1121: -- before calling calc_stop_weight_volume so the procedure will know
1122: -- to invoke update tms_interface_flag process.
1123:
1124: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1125: IF l_gc3_is_installed IS NULL THEN
1126: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1127: END IF;
1128:
1122: -- to invoke update tms_interface_flag process.
1123:
1124: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1125: IF l_gc3_is_installed IS NULL THEN
1126: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1127: END IF;
1128:
1129: IF l_gc3_is_installed = 'Y' THEN
1130: WSH_WV_UTILS.G_RESET_WV := 'Y'; -- set to Y to enable the update
1137: x_return_status => l_return_status,
1138: --tkt
1139: p_caller => p_action_prms.caller
1140: );
1141: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1142: x_num_warnings =>l_num_warning,
1143: x_num_errors =>l_num_errors);
1144:
1145: -- OTM R12 : packing ECO
1179:
1180: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_TRIP_STOP_VALIDATION_LVL) = 1
1181: THEN
1182: --
1183: l_is_installed := WSH_UTIL_CORE.FTE_Is_Installed ;
1184: IF l_is_installed = 'Y' THEN
1185: --
1186: FOR i IN l_stop_id_tab.FIRST..l_stop_id_tab.last LOOP
1187: BEGIN
1192: p_stop_id => l_stop_id_tab(i),
1193: x_stop_rec => l_stop_rec,
1194: x_return_status => l_return_status
1195: );
1196: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1197: x_num_warnings =>l_num_warning,
1198: x_num_errors =>l_num_errors);
1199:
1200:
1203: p_trip_rec => l_trip_rec,
1204: p_action => 'UPDATE',
1205: x_return_status => l_return_status
1206: );
1207: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1208: x_num_warnings =>l_num_warning,
1209: x_num_errors =>l_num_errors);
1210: EXCEPTION
1211: WHEN FND_API.G_EXC_ERROR THEN
1250: --tkt
1251: p_caller => p_action_prms.caller,
1252: x_return_status => l_return_status
1253: );
1254: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1255: x_num_warnings =>l_num_warning,
1256: x_num_errors =>l_num_errors);
1257: END IF;
1258:
1263: p_defer_interface_flag => p_action_prms.defer_interface_flag,
1264: x_return_status => l_return_status,
1265: p_caller => p_action_prms.caller
1266: );
1267: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1268: x_num_warnings =>l_num_warning,
1269: x_num_errors =>l_num_errors);
1270:
1271: ELSIF p_action_prms.action_code = 'DELETE' THEN
1270:
1271: ELSIF p_action_prms.action_code = 'DELETE' THEN
1272:
1273: --TL Rating
1274: IF( WSH_UTIL_CORE.FTE_Is_Installed = 'Y') THEN
1275: IF l_stop_id_tab.count > 0 THEN
1276: --
1277: IF l_debug_on THEN
1278: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
1284: x_return_status => l_return_status
1285: );
1286:
1287: --
1288: wsh_util_core.api_post_call(
1289: p_return_status => l_return_status,
1290: x_num_warnings => l_num_warning,
1291: x_num_errors => l_num_errors
1292: );
1303: x_trip_affected_tab => l_trip_affected_tab,
1304: x_return_status => l_return_status);
1305:
1306:
1307: WSH_UTIL_CORE.delete(
1308: p_type => 'STOP',
1309: p_rows => l_stop_delete_tab,
1310: x_return_status => l_return_status,
1311: --tkt
1310: x_return_status => l_return_status,
1311: --tkt
1312: p_caller => p_action_prms.caller
1313: );
1314: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1315: x_num_warnings =>l_num_warning,
1316: x_num_errors =>l_num_errors);
1317:
1318:
1321: p_caller => p_action_prms.caller,
1322: x_success_trip_ids => l_success_trip_tab,
1323: x_return_status => l_return_status);
1324:
1325: wsh_util_core.api_post_call(p_return_status =>l_return_status,
1326: x_num_warnings =>l_num_warning,
1327: x_num_errors =>l_num_errors);
1328:
1329: --update status of trip to close if already in-transit
1347: p_in_rec => l_trip_in_rec,
1348: x_return_status => l_return_status
1349: );
1350:
1351: wsh_util_core.api_post_call
1352: (
1353: p_return_status => l_return_status,
1354: x_num_warnings => l_num_warning,
1355: x_num_errors => l_num_errors
1361:
1362: ELSIF p_action_prms.action_code IN ( 'PICK-RELEASE-UI', 'RESOLVE-EXCEPTIONS-UI', 'FREIGHT-COSTS-UI') THEN
1363: IF p_rec_attr_tab.COUNT > 1 THEN
1364: FND_MESSAGE.SET_NAME('WSH','WSH_UI_MULTI_SELECTION');
1365: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1366: IF l_debug_on THEN
1367: wsh_debug_sv.log (l_module_name,'WSH_UI_MULTI_SELECTION');
1368: END IF;
1369: RAISE FND_API.G_EXC_ERROR;
1370: ELSIF p_rec_attr_tab.COUNT = 1
1371: AND p_action_prms.caller <> 'WSH_FSTRX' THEN
1372: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
1373: FND_MESSAGE.SET_TOKEN('ACT_CODE',p_action_prms.action_code );
1374: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1375: IF l_debug_on THEN
1376: wsh_debug_sv.log (l_module_name,'WSH_INVALID_ACTION_CODE COUNT');
1377: END IF;
1378: RAISE FND_API.G_EXC_ERROR;
1381: ELSE
1382: -- give message for invalid action
1383: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_ACTION_CODE');
1384: FND_MESSAGE.SET_TOKEN('ACT_CODE',p_action_prms.action_code );
1385: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1386: IF l_debug_on THEN
1387: wsh_debug_sv.log (l_module_name,'WSH_INVALID_ACTION_CODE');
1388: END IF;
1389: RAISE FND_API.G_EXC_ERROR;
1390: END IF;
1391:
1392: -- TP call back to unfirm continuous move or delete continuous move or
1393: -- any other action that will be done in the future based on the action performed
1394: IF WSH_UTIL_CORE.TP_IS_INSTALLED='Y' THEN
1395: WSH_FTE_TP_INTEGRATION.stop_callback (
1396: p_api_version_number => 1.0,
1397: p_init_msg_list => FND_API.G_TRUE,
1398: x_return_status => l_return_status,
1404: IF l_debug_on THEN
1405: WSH_DEBUG_SV.log(l_module_name,'after calling stop_callback l_return_status',l_return_status);
1406: END IF;
1407:
1408: wsh_util_core.api_post_call(
1409: p_return_status => l_return_status,
1410: x_num_warnings => l_num_warning,
1411: x_num_errors => l_num_errors
1412: );
1434: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1435: END IF;
1436: --
1437: --
1438: WSH_UTIL_CORE.API_POST_CALL
1439: (
1440: p_return_status => l_return_status,
1441: x_num_warnings => l_num_warning,
1442: x_num_errors => l_num_errors
1447: -- K LPN CONV. rv
1448:
1449:
1450: IF l_num_warning > 0 THEN
1451: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
1452: ELSE
1453: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1454: END IF;
1455:
1449:
1450: IF l_num_warning > 0 THEN
1451: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
1452: ELSE
1453: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1454: END IF;
1455:
1456: IF p_commit = FND_API.G_TRUE THEN
1457: --Bugfix 4070732 {
1454: END IF;
1455:
1456: IF p_commit = FND_API.G_TRUE THEN
1457: --Bugfix 4070732 {
1458: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1459: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1460:
1461: IF l_debug_on THEN
1462: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1455:
1456: IF p_commit = FND_API.G_TRUE THEN
1457: --Bugfix 4070732 {
1458: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1459: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1460:
1461: IF l_debug_on THEN
1462: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1463: END IF;
1458: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1459: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1460:
1461: IF l_debug_on THEN
1462: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1463: END IF;
1464:
1465: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => FALSE,
1466: x_return_status => l_return_status);
1461: IF l_debug_on THEN
1462: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1463: END IF;
1464:
1465: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => FALSE,
1466: x_return_status => l_return_status);
1467:
1468: IF l_debug_on THEN
1469: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1471:
1472: END IF;
1473:
1474: --}
1475: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)
1476: OR (l_return_status = wsh_util_core.g_ret_sts_warning) THEN
1477: COMMIT;
1478: END IF;
1479: --if return status is not success rollback in the exception
1472: END IF;
1473:
1474: --}
1475: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS)
1476: OR (l_return_status = wsh_util_core.g_ret_sts_warning) THEN
1477: COMMIT;
1478: END IF;
1479: --if return status is not success rollback in the exception
1480: -- handling block
1477: COMMIT;
1478: END IF;
1479: --if return status is not success rollback in the exception
1480: -- handling block
1481: wsh_util_core.api_post_call
1482: (
1483: p_return_status => l_return_status,
1484: x_num_warnings => l_num_warning,
1485: x_num_errors => l_num_errors
1489: -- when l_return_status = warning
1490: END IF;
1491: --
1492: --Bugfix 4070732 { logical end of the API
1493: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN --{
1494: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1495:
1496: IF p_commit = FND_API.G_TRUE THEN
1497:
1490: END IF;
1491: --
1492: --Bugfix 4070732 { logical end of the API
1493: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN --{
1494: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1495:
1496: IF p_commit = FND_API.G_TRUE THEN
1497:
1498: IF l_debug_on THEN
1495:
1496: IF p_commit = FND_API.G_TRUE THEN
1497:
1498: IF l_debug_on THEN
1499: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1500: END IF;
1501: WSH_UTIL_CORE.reset_stops_for_load_tender(
1502: p_reset_flags => TRUE,
1503: x_return_status => l_return_status);
1497:
1498: IF l_debug_on THEN
1499: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1500: END IF;
1501: WSH_UTIL_CORE.reset_stops_for_load_tender(
1502: p_reset_flags => TRUE,
1503: x_return_status => l_return_status);
1504: ELSE
1505:
1503: x_return_status => l_return_status);
1504: ELSE
1505:
1506: IF l_debug_on THEN
1507: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1508: END IF;
1509: WSH_UTIL_CORE.Process_stops_for_load_tender(
1510: p_reset_flags => TRUE,
1511: x_return_status => l_return_status);
1505:
1506: IF l_debug_on THEN
1507: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1508: END IF;
1509: WSH_UTIL_CORE.Process_stops_for_load_tender(
1510: p_reset_flags => TRUE,
1511: x_return_status => l_return_status);
1512: END IF;
1513:
1515: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1516: END IF;
1517:
1518: --
1519: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1520: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1521: THEN --{
1522: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1523: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
1516: END IF;
1517:
1518: --
1519: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1520: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1521: THEN --{
1522: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1523: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
1524: THEN
1518: --
1519: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1520: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1521: THEN --{
1522: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1523: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
1524: THEN
1525: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1519: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1520: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1521: THEN --{
1522: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1523: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
1524: THEN
1525: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1527: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
1521: THEN --{
1522: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1523: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
1524: THEN
1525: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1527: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
1528: THEN
1529: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1522: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1523: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
1524: THEN
1525: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1527: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
1528: THEN
1529: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1530: END IF;
1523: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
1524: THEN
1525: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1527: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
1528: THEN
1529: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1530: END IF;
1531: END IF; --}
1525: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1526: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1527: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
1528: THEN
1529: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1530: END IF;
1531: END IF; --}
1532: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1533: OR x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
1528: THEN
1529: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1530: END IF;
1531: END IF; --}
1532: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1533: OR x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
1534: THEN
1535: IF p_commit = FND_API.G_TRUE THEN
1536: null;
1529: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1530: END IF;
1531: END IF; --}
1532: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1533: OR x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
1534: THEN
1535: IF p_commit = FND_API.G_TRUE THEN
1536: null;
1537: ELSE
1562: ROLLBACK TO s_stop_action_grp;
1563: IF c_check_trip_close%ISOPEN THEN
1564: CLOSE c_check_trip_close;
1565: END IF;
1566: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1567: --Bugfix 4070732 {
1568: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1569: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1570: IF l_debug_on THEN
1564: CLOSE c_check_trip_close;
1565: END IF;
1566: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1567: --Bugfix 4070732 {
1568: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1569: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1570: IF l_debug_on THEN
1571: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1572: END IF;
1565: END IF;
1566: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1567: --Bugfix 4070732 {
1568: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1569: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1570: IF l_debug_on THEN
1571: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1572: END IF;
1573:
1567: --Bugfix 4070732 {
1568: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1569: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1570: IF l_debug_on THEN
1571: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1572: END IF;
1573:
1574: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1575: x_return_status => l_return_status);
1570: IF l_debug_on THEN
1571: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1572: END IF;
1573:
1574: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1575: x_return_status => l_return_status);
1576:
1577:
1578: IF l_debug_on THEN
1577:
1578: IF l_debug_on THEN
1579: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1580: END IF;
1581: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1582: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1583: END IF;
1584:
1585: END IF;
1578: IF l_debug_on THEN
1579: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1580: END IF;
1581: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1582: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1583: END IF;
1584:
1585: END IF;
1586: END IF;
1595: WSH_DEBUG_SV.pop(l_module_name);
1596: END IF;
1597: WHEN e_req_field THEN
1598: ROLLBACK TO s_stop_action_grp;
1599: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1600: wsh_util_core.add_message(x_return_status,l_module_name);
1601: --Bugfix 4070732 {
1602: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1603: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1596: END IF;
1597: WHEN e_req_field THEN
1598: ROLLBACK TO s_stop_action_grp;
1599: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1600: wsh_util_core.add_message(x_return_status,l_module_name);
1601: --Bugfix 4070732 {
1602: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1603: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1604: IF l_debug_on THEN
1598: ROLLBACK TO s_stop_action_grp;
1599: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1600: wsh_util_core.add_message(x_return_status,l_module_name);
1601: --Bugfix 4070732 {
1602: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1603: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1604: IF l_debug_on THEN
1605: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1606: END IF;
1599: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1600: wsh_util_core.add_message(x_return_status,l_module_name);
1601: --Bugfix 4070732 {
1602: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1603: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1604: IF l_debug_on THEN
1605: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1606: END IF;
1607:
1601: --Bugfix 4070732 {
1602: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1603: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1604: IF l_debug_on THEN
1605: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1606: END IF;
1607:
1608: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1609: x_return_status => l_return_status);
1604: IF l_debug_on THEN
1605: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1606: END IF;
1607:
1608: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1609: x_return_status => l_return_status);
1610:
1611:
1612: IF l_debug_on THEN
1612: IF l_debug_on THEN
1613: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1614: END IF;
1615:
1616: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1617: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1618: END IF;
1619: END IF;
1620: END IF;
1613: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1614: END IF;
1615:
1616: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1617: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1618: END IF;
1619: END IF;
1620: END IF;
1621: --}
1632: ROLLBACK TO s_stop_action_grp;
1633: IF c_check_trip_close%ISOPEN THEN
1634: CLOSE c_check_trip_close;
1635: END IF;
1636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1637: --Bugfix 4070732 {
1638: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1639: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1640: IF l_debug_on THEN
1634: CLOSE c_check_trip_close;
1635: END IF;
1636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1637: --Bugfix 4070732 {
1638: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1639: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1640: IF l_debug_on THEN
1641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1642: END IF;
1635: END IF;
1636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1637: --Bugfix 4070732 {
1638: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1639: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1640: IF l_debug_on THEN
1641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1642: END IF;
1643:
1637: --Bugfix 4070732 {
1638: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1639: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1640: IF l_debug_on THEN
1641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1642: END IF;
1643:
1644: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1645: x_return_status => l_return_status);
1640: IF l_debug_on THEN
1641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1642: END IF;
1643:
1644: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1645: x_return_status => l_return_status);
1646:
1647:
1648: IF l_debug_on THEN
1661: IF l_debug_on THEN
1662: wsh_debug_sv.log (l_module_name,'G_EXC_UNEXPECTED_ERROR');
1663: WSH_DEBUG_SV.pop(l_module_name);
1664: END IF;
1665: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1666: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1667: --Bugfix 4070732 {
1668: --
1669: -- K LPN CONV. rv
1662: wsh_debug_sv.log (l_module_name,'G_EXC_UNEXPECTED_ERROR');
1663: WSH_DEBUG_SV.pop(l_module_name);
1664: END IF;
1665: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1666: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1667: --Bugfix 4070732 {
1668: --
1669: -- K LPN CONV. rv
1670: --
1687: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
1688: END IF;
1689: --
1690: --
1691: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
1692: x_return_status := l_return_status;
1693: END IF;
1694: --
1695: --}
1696: END IF;
1697: --
1698: -- K LPN CONV. rv
1699: --
1700: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1701: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1702: IF l_debug_on THEN
1703: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1704: END IF;
1697: --
1698: -- K LPN CONV. rv
1699: --
1700: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1701: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1702: IF l_debug_on THEN
1703: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1704: END IF;
1705:
1699: --
1700: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1701: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1702: IF l_debug_on THEN
1703: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1704: END IF;
1705:
1706: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
1707: x_return_status => l_return_status);
1702: IF l_debug_on THEN
1703: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1704: END IF;
1705:
1706: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
1707: x_return_status => l_return_status);
1708:
1709: IF l_debug_on THEN
1710: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1709: IF l_debug_on THEN
1710: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1711: END IF;
1712:
1713: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1714: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1715: ROLLBACK TO s_stop_action_grp;
1716: x_return_status := l_return_status;
1717: END IF;
1710: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1711: END IF;
1712:
1713: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
1714: OR (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1715: ROLLBACK TO s_stop_action_grp;
1716: x_return_status := l_return_status;
1717: END IF;
1718:
1732: ROLLBACK TO s_stop_action_grp;
1733: IF c_check_trip_close%ISOPEN THEN
1734: CLOSE c_check_trip_close;
1735: END IF;
1736: wsh_util_core.default_handler('WSH_TRIP_STOPS_GRP.STOP_ACTION',
1737: l_module_name);
1738:
1739:
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1736: wsh_util_core.default_handler('WSH_TRIP_STOPS_GRP.STOP_ACTION',
1737: l_module_name);
1738:
1739:
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1741: --Bugfix 4070732 {
1742: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1743: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1744: IF l_debug_on THEN
1738:
1739:
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1741: --Bugfix 4070732 {
1742: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1743: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1744: IF l_debug_on THEN
1745: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1746: END IF;
1739:
1740: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1741: --Bugfix 4070732 {
1742: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1743: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1744: IF l_debug_on THEN
1745: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1746: END IF;
1747:
1741: --Bugfix 4070732 {
1742: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
1743: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
1744: IF l_debug_on THEN
1745: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1746: END IF;
1747:
1748: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1749: x_return_status => l_return_status);
1744: IF l_debug_on THEN
1745: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1746: END IF;
1747:
1748: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
1749: x_return_status => l_return_status);
1750:
1751:
1752: IF l_debug_on THEN
1800: WSH_DEBUG_SV.log(l_module_name,'p_grp_stop_rec.TRIP_ID',p_grp_stop_rec.TRIP_ID);
1801: WSH_DEBUG_SV.log(l_module_name,'p_grp_stop_rec.TRIP_NAME',p_grp_stop_rec.TRIP_NAME);
1802: END IF;
1803:
1804: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1805:
1806: x_pvt_stop_rec.STOP_ID := p_grp_stop_rec.STOP_ID;
1807: x_pvt_stop_rec.TRIP_ID := p_grp_stop_rec.TRIP_ID;
1808: x_pvt_stop_rec.STOP_LOCATION_ID := p_grp_stop_rec.STOP_LOCATION_ID;
1881: WSH_DEBUG_SV.pop(l_module_name);
1882: END IF;
1883: EXCEPTION
1884: WHEN OTHERS THEN
1885: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_FTE_INTEGRATION.map_stopgrp_to_pvt',l_module_name);
1886: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1887: --
1888: IF l_debug_on THEN
1889: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1882: END IF;
1883: EXCEPTION
1884: WHEN OTHERS THEN
1885: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_FTE_INTEGRATION.map_stopgrp_to_pvt',l_module_name);
1886: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1887: --
1888: IF l_debug_on THEN
1889: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
1890: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1897: -- PROCEDURE : Validate_Stop PRIVATE
1898: --
1899: -- PARAMETERS: p_rec_attr_tab IN OUT stop_attr_tab_type
1900: -- p_action_code IN 'CREATE', 'UPDATE'
1901: -- x_valid_id_index_tab OUT wsh_util_core.id_tab_type
1902: -- x_return_status return status
1903: -- COMMENT : This procedure takes tabe of Stops and validate them and return the validate stops in x_valid_id_index_tab.
1904: --========================================================================
1905: PROCEDURE Validate_Stop
1905: PROCEDURE Validate_Stop
1906: (p_rec_attr_tab IN OUT NOCOPY WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type,
1907: p_action_code IN VARCHAR2,
1908: p_caller IN VARCHAR2,
1909: x_valid_id_index_tab OUT NOCOPY wsh_util_core.id_tab_type,
1910: x_return_status OUT NOCOPY VARCHAR2) IS
1911:
1912: l_debug_on BOOLEAN;
1913: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'VALIDATE_STOP';
1987: x_return_status => l_return_status);
1988: IF l_debug_on THEN
1989: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_Stop_Name l_return_status',l_return_status);
1990: END IF;
1991: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
1992: x_num_warnings =>l_num_warnings,
1993: x_num_errors =>l_num_errors);
1994:
1995: END IF;
2016: x_return_status => l_return_status);
2017: IF l_debug_on THEN
2018: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_Trip_Name l_return_status',l_return_status);
2019: END IF;
2020: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2021: x_num_warnings =>l_num_warnings,
2022: x_num_errors =>l_num_errors);
2023: END IF;
2024:
2029: x_return_status => l_return_status);
2030: IF l_debug_on THEN
2031: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_Trip_status l_return_status',l_return_status);
2032: END IF;
2033: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2034: x_num_warnings =>l_num_warnings,
2035: x_num_errors =>l_num_errors);
2036: END IF;
2037:
2040: -- Stop location id can be -1 for inbound stops
2041: -- in such case, we do not need to call validate location, as it wil fail
2042: -- in turn preventing any update of stop attributes
2043: --
2044: IF p_rec_attr_tab(l_index).stop_location_id <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID -- J-IB-NPARIKH
2045: OR p_rec_attr_tab(l_index).stop_location_id IS NULL
2046: THEN
2047: WSH_UTIL_VALIDATE.Validate_Location (
2048: p_location_id => p_rec_attr_tab(l_index).stop_location_id,
2051: p_isWshLocation => l_isWshLocation);
2052: IF l_debug_on THEN
2053: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_Location l_return_status',l_return_status);
2054: END IF;
2055: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2056: x_num_warnings =>l_num_warnings,
2057: x_num_errors =>l_num_errors);
2058: END IF;
2059: END IF;
2067:
2068: IF l_debug_on THEN
2069: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.validate_planned_trip l_return_status',l_return_status);
2070: END IF;
2071: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2072: x_num_warnings =>l_num_warnings,
2073: x_num_errors =>l_num_errors);
2074: END IF;
2075:
2082: l_return_status);
2083: IF l_debug_on THEN
2084: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.validate_uom-WEIGHT l_return_status',l_return_status);
2085: END IF;
2086: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2087: x_num_warnings =>l_num_warnings,
2088: x_num_errors =>l_num_errors);
2089: END IF;
2090:
2097: l_return_status);
2098: IF l_debug_on THEN
2099: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.validate_uom-VOLUME l_return_status',l_return_status);
2100: END IF;
2101: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2102: x_num_warnings =>l_num_warnings,
2103: x_num_errors =>l_num_errors);
2104: END IF;
2105:
2111: x_return_status => l_return_status);
2112: IF l_debug_on THEN
2113: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.validate_from_to_dates l_return_status',l_return_status);
2114: END IF;
2115: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2116: x_num_warnings =>l_num_warnings,
2117: x_num_errors =>l_num_errors);
2118: END IF;
2119:
2132:
2133: IF l_debug_on THEN
2134: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_SSN l_return_status',l_return_status);
2135: END IF;
2136: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2137: x_num_warnings =>l_num_warnings,
2138: x_num_errors =>l_num_errors);
2139: END IF;
2140: END IF;
2138: x_num_errors =>l_num_errors);
2139: END IF;
2140: END IF;
2141:
2142: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
2143: IF ( WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_TRIP_STOP_VALIDATION_LVL) = 1 ) THEN
2144: WSH_FTE_INTEGRATION.trip_stop_validations
2145: (p_stop_rec => p_rec_attr_tab(l_index),
2146: p_trip_rec => l_trip_rec,
2148: x_return_status => l_return_status);
2149: IF l_debug_on THEN
2150: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_Trip_Name l_return_status',l_return_status);
2151: END IF;
2152: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2153: x_num_warnings =>l_num_warnings,
2154: x_num_errors =>l_num_errors);
2155: END IF;
2156: END IF;
2160: OR
2161: nvl(p_rec_attr_tab(l_index).DEPARTURE_NET_WEIGHT,0) > 0 THEN
2162: IF p_rec_attr_tab(l_index). WEIGHT_UOM_CODE IS NULL THEN
2163: FND_MESSAGE.SET_NAME('WSH', 'WSH_WTVOL_NULL');
2164: WSH_UTIL_CORE.ADD_MESSAGE(wsh_util_core.g_ret_sts_error, l_module_name);
2165: RAISE fnd_api.g_exc_error;
2166: END IF;
2167: END IF;
2168: --Bug 4140359
2168: --Bug 4140359
2169: IF nvl(p_rec_attr_tab(l_index).DEPARTURE_VOLUME,0) > 0
2170: AND p_rec_attr_tab(l_index).VOLUME_UOM_CODE IS NULL THEN
2171: FND_MESSAGE.SET_NAME('WSH', 'WSH_WTVOL_NULL');
2172: WSH_UTIL_CORE.ADD_MESSAGE(wsh_util_core.g_ret_sts_error, l_module_name);
2173: RAISE fnd_api.g_exc_error;
2174: END IF;
2175: END IF; --}
2176: x_valid_id_index_tab(x_valid_id_index_tab.COUNT + 1) := l_index;
2184: WHEN e_mixed_Stop_error THEN
2185: ROLLBACK TO validate_stop_loop_grp;
2186: l_num_errors := l_num_errors + 1;
2187: FND_MESSAGE.SET_NAME('WSH', 'WSH_MIXED_STOP_ERROR');
2188: WSH_UTIL_CORE.ADD_MESSAGE(wsh_util_core.g_ret_sts_error, l_module_name);
2189: IF l_debug_on THEN
2190: WSH_DEBUG_SV.logmsg(l_module_name,'e_mixed_Stop_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2191: END IF;
2192: -- J-IB-NPARIKH-}
2205: l_index := p_rec_attr_tab.NEXT(l_index);
2206: END LOOP;
2207:
2208: IF (l_num_errors = p_rec_attr_tab.count ) THEN
2209: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2210: ELSIF (l_num_errors > 0 ) THEN
2211: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2212: ELSIF (l_num_warnings > 0 ) THEN
2213: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2207:
2208: IF (l_num_errors = p_rec_attr_tab.count ) THEN
2209: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2210: ELSIF (l_num_errors > 0 ) THEN
2211: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2212: ELSIF (l_num_warnings > 0 ) THEN
2213: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2214: ELSE
2215: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2209: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2210: ELSIF (l_num_errors > 0 ) THEN
2211: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2212: ELSIF (l_num_warnings > 0 ) THEN
2213: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2214: ELSE
2215: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2216: END IF;
2217:
2211: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2212: ELSIF (l_num_warnings > 0 ) THEN
2213: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2214: ELSE
2215: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2216: END IF;
2217:
2218:
2219: IF l_debug_on THEN
2220: WSH_DEBUG_SV.pop(l_module_name);
2221: END IF;
2222: EXCEPTION
2223: WHEN FND_API.G_EXC_ERROR THEN
2224: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
2225: FND_MSG_PUB.Count_And_Get (
2226: p_count => x_msg_count,
2227: p_data => x_msg_data,
2228: p_encoded => FND_API.G_FALSE);
2232: END IF;
2233: ROLLBACK TO SAVEPOINT validate_stop_grp;
2234:
2235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2236: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2237: FND_MSG_PUB.Count_And_Get (
2238: p_count => x_msg_count,
2239: p_data => x_msg_data,
2240: p_encoded => FND_API.G_FALSE);
2243: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2244: END IF;
2245: ROLLBACK TO SAVEPOINT validate_stop_grp;
2246:
2247: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2248: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2249: FND_MSG_PUB.Count_And_Get (
2250: p_count => x_msg_count,
2251: p_data => x_msg_data,
2244: END IF;
2245: ROLLBACK TO SAVEPOINT validate_stop_grp;
2246:
2247: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2248: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2249: FND_MSG_PUB.Count_And_Get (
2250: p_count => x_msg_count,
2251: p_data => x_msg_data,
2252: p_encoded => FND_API.G_FALSE);
2250: p_count => x_msg_count,
2251: p_data => x_msg_data,
2252: p_encoded => FND_API.G_FALSE);
2253: IF l_debug_on THEN
2254: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2255: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2256: END IF;
2257:
2258: WHEN OTHERS THEN
2251: p_data => x_msg_data,
2252: p_encoded => FND_API.G_FALSE);
2253: IF l_debug_on THEN
2254: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2255: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2256: END IF;
2257:
2258: WHEN OTHERS THEN
2259: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2255: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2256: END IF;
2257:
2258: WHEN OTHERS THEN
2259: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2260: wsh_util_core.default_handler ('WSH_TRIP_STOPS_GRP.Validate_Stop');
2261: FND_MSG_PUB.Count_And_Get (
2262: p_count => x_msg_count,
2263: p_data => x_msg_data,
2256: END IF;
2257:
2258: WHEN OTHERS THEN
2259: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2260: wsh_util_core.default_handler ('WSH_TRIP_STOPS_GRP.Validate_Stop');
2261: FND_MSG_PUB.Count_And_Get (
2262: p_count => x_msg_count,
2263: p_data => x_msg_data,
2264: p_encoded => FND_API.G_FALSE);
2313: l_num_warnings NUMBER := 0;
2314: l_return_status VARCHAR2(1);
2315: l_index NUMBER;
2316: l_rec_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
2317: x_index_id_tab wsh_util_core.id_tab_type;
2318:
2319: --Compatibility Changes
2320: l_cc_validate_result VARCHAR2(1);
2321: l_cc_failed_records WSH_FTE_COMP_CONSTRAINT_PKG.failed_line_tab_type;
2332: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2333: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
2334: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
2335: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
2336: l_cc_in_ids wsh_util_core.id_tab_type;
2337: l_cc_fail_ids wsh_util_core.id_tab_type;
2338:
2339: --Compatibility Changes
2340: -- csun 10+
2333: l_cc_det_attr_tab wsh_glbl_var_strct_grp.Delivery_Details_Attr_Tbl_Type;
2334: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
2335: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
2336: l_cc_in_ids wsh_util_core.id_tab_type;
2337: l_cc_fail_ids wsh_util_core.id_tab_type;
2338:
2339: --Compatibility Changes
2340: -- csun 10+
2341: l_trip_id_tab wsh_util_core.id_tab_type;
2337: l_cc_fail_ids wsh_util_core.id_tab_type;
2338:
2339: --Compatibility Changes
2340: -- csun 10+
2341: l_trip_id_tab wsh_util_core.id_tab_type;
2342: l_success_trip_ids wsh_util_core.id_tab_type;
2343: l_trips wsh_util_core.id_tab_type;
2344: l_found BOOLEAN;
2345:
2338:
2339: --Compatibility Changes
2340: -- csun 10+
2341: l_trip_id_tab wsh_util_core.id_tab_type;
2342: l_success_trip_ids wsh_util_core.id_tab_type;
2343: l_trips wsh_util_core.id_tab_type;
2344: l_found BOOLEAN;
2345:
2346: --TL Rating
2339: --Compatibility Changes
2340: -- csun 10+
2341: l_trip_id_tab wsh_util_core.id_tab_type;
2342: l_success_trip_ids wsh_util_core.id_tab_type;
2343: l_trips wsh_util_core.id_tab_type;
2344: l_found BOOLEAN;
2345:
2346: --TL Rating
2347: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
2343: l_trips wsh_util_core.id_tab_type;
2344: l_found BOOLEAN;
2345:
2346: --TL Rating
2347: l_details_marked WSH_UTIL_CORE.Id_Tab_Type;
2348: --TL Rating
2349:
2350: l_action_prms action_parameters_rectype;
2351: l_stop_rec WSH_TRIP_STOPS_PVT.trip_stop_rec_type;
2400: l_lpn_out_sync_comm_rec WSH_GLBL_VAR_STRCT_GRP.lpn_sync_comm_out_rec_type;
2401: -- K LPN CONV. rv
2402:
2403: BEGIN
2404: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
2405: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
2406: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
2407: END IF;
2408: --
2401: -- K LPN CONV. rv
2402:
2403: BEGIN
2404: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
2405: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
2406: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
2407: END IF;
2408: --
2409: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2402:
2403: BEGIN
2404: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
2405: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
2406: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
2407: END IF;
2408: --
2409: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2410: --
2438: FND_MSG_PUB.initialize;
2439: END IF;
2440:
2441: -- Initialize the Variables
2442: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2443:
2444: --OTM R12, glog proj, use Global Variable
2445: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
2446:
2441: -- Initialize the Variables
2442: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2443:
2444: --OTM R12, glog proj, use Global Variable
2445: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
2446:
2447: -- If null, call the function
2448: IF l_gc3_is_installed IS NULL THEN
2449: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
2445: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
2446:
2447: -- If null, call the function
2448: IF l_gc3_is_installed IS NULL THEN
2449: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
2450: END IF;
2451: -- end of OTM R12, glog proj
2452:
2453:
2454:
2455: IF (p_in_rec.caller IS NULL) THEN
2456: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
2457: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_in_rec.caller');
2458: wsh_util_core.add_message(x_return_status,l_module_name);
2459: raise fnd_api.g_exc_error;
2460: END IF;
2461: IF (p_in_rec.action_code IS NULL OR p_in_rec.action_code NOT IN ('CREATE','UPDATE') ) THEN
2462: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
2460: END IF;
2461: IF (p_in_rec.action_code IS NULL OR p_in_rec.action_code NOT IN ('CREATE','UPDATE') ) THEN
2462: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
2463: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_in_rec.action_code');
2464: wsh_util_core.add_message(x_return_status,l_module_name);
2465: raise fnd_api.g_exc_error;
2466: END IF;
2467:
2468: IF (nvl(p_in_rec.phase,1) < 1) THEN
2467:
2468: IF (nvl(p_in_rec.phase,1) < 1) THEN
2469: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
2470: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_in_rec.phase');
2471: wsh_util_core.add_message(x_return_status,l_module_name);
2472: raise fnd_api.g_exc_error;
2473: END IF;
2474:
2475: IF (p_rec_attr_tab.count < 0 ) THEN
2474:
2475: IF (p_rec_attr_tab.count < 0 ) THEN
2476: FND_MESSAGE.SET_NAME('WSH','WSH_REQUIRED_FIELD_NULL');
2477: FND_MESSAGE.SET_TOKEN('FIELD_NAME','p_rec_attr_tab.count');
2478: wsh_util_core.add_message(x_return_status,l_module_name);
2479: raise fnd_api.g_exc_error;
2480: END IF;
2481:
2482: WSH_ACTIONS_LEVELS.set_validation_level (
2489: IF l_debug_on THEN
2490: WSH_DEBUG_SV.log(l_module_name,'WSH_ACTIONS_LEVELS.set_validation_level l_return_status',l_return_status);
2491: END IF;
2492:
2493: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2494: x_num_warnings =>l_num_warnings,
2495: x_num_errors =>l_num_errors);
2496:
2497:
2513: x_msg_count => x_msg_count,
2514: x_msg_data => x_msg_data,
2515: x_stop_rec => l_rec_attr_tab(l_index));
2516:
2517: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2518: x_num_warnings =>l_num_warnings,
2519: x_num_errors =>l_num_errors);
2520:
2521: EXCEPTION
2546: END IF;
2547:
2548: IF WSH_ACTIONS_LEVELS.g_validation_level_tab(WSH_ACTIONS_LEVELS.C_VALIDATE_CONSTRAINTS_LVL) = 1 THEN --{
2549: --Compatiblity Changes
2550: IF (wsh_util_core.fte_is_installed = 'Y') THEN
2551:
2552: -- populate physical_location_id before validate_constraint_main
2553: i := l_rec_attr_tab.first;
2554: WHILE i is NOT NULL LOOP
2596: END IF;
2597: --
2598:
2599: --fix p_rec_attr_tab to have only successful records if there are some failed lines
2600: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
2601: l_cc_count_success:=1;
2602:
2603: IF l_debug_on THEN
2604: wsh_debug_sv.log(l_module_name,'l_rec_attr_tab count before removing failed lines',l_rec_attr_tab.COUNT);
2609: IF l_debug_on THEN
2610: wsh_debug_sv.logmsg(l_module_name,'all stops failed compatibility check');
2611: END IF;
2612: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_COMP_FAILED');
2613: wsh_util_core.api_post_call(
2614: p_return_status => l_return_status,
2615: x_num_warnings => l_num_warnings,
2616: x_num_errors => l_num_errors,
2617: p_msg_data => l_msg_data);
2615: x_num_warnings => l_num_warnings,
2616: x_num_errors => l_num_errors,
2617: p_msg_data => l_msg_data);
2618: ELSE
2619: l_return_status:=wsh_util_core.g_ret_sts_warning;
2620: END IF;
2621:
2622: FOR i in l_rec_attr_tab.FIRST..l_rec_attr_tab.LAST LOOP
2623: b_cc_linefailed:=FALSE;
2649: l_rec_attr_tab:=l_rec_attr_tab_temp;
2650: END IF;
2651:
2652: ELSE
2653: l_return_status:=wsh_util_core.g_ret_sts_warning;
2654: END IF; --fail_ids count>0
2655:
2656:
2657: IF l_debug_on THEN
2659: END IF;
2660:
2661: END IF;--error
2662:
2663: wsh_util_core.api_post_call(
2664: p_return_status => l_return_status,
2665: x_num_warnings => l_num_warnings,
2666: x_num_errors => l_num_errors,
2667: p_msg_data => l_msg_data);
2682: IF l_debug_on THEN
2683: WSH_DEBUG_SV.log(l_module_name,'Validate_stop l_return_status',l_return_status);
2684: END IF;
2685:
2686: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2687: x_num_warnings =>l_num_warnings,
2688: x_num_errors =>l_num_errors);
2689:
2690:
2717: IF (l_ignore = 'N' AND
2718: l_tp_plan_name IS NOT NULL AND
2719: l_gc3_is_installed = 'Y' AND
2720: p_in_rec.caller <> 'FTE_TMS_INTEGRATION') THEN
2721: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2722: RAISE e_gc3_trip_exception;
2723: END IF;
2724: --
2725:
2728: x_rowid => x_stop_out_tab(l_index).rowid,
2729: x_stop_id => x_stop_out_tab(l_index).stop_id,
2730: x_return_status => l_return_status);
2731:
2732: wsh_util_core.api_post_call(p_return_status =>l_return_status,
2733: x_num_warnings =>l_num_warnings,
2734: x_num_errors =>l_num_errors);
2735:
2736:
2741: p_caller => 'WSH_CREATE_TRIP_STOP',
2742: x_success_trip_ids => l_success_trip_ids,
2743: x_return_status => l_return_status);
2744:
2745: wsh_util_core.api_post_call(
2746: p_return_status => l_return_status,
2747: x_num_warnings => l_num_warnings,
2748: x_num_errors => l_num_errors);
2749:
2749:
2750: -- 4106444 -skattama
2751: -- After Trip is created and internal location is linked
2752: -- If mode is other than TRUCK, the stops should not be greater than 2
2753: IF( WSH_UTIL_CORE.FTE_Is_Installed = 'Y') THEN
2754: WSH_UTIL_VALIDATE.Validate_Trip_MultiStops (
2755: p_trip_id => l_rec_attr_tab(x_index_id_tab(l_index)).trip_id,
2756: p_mode_of_transport => l_mode_of_transport,
2757: x_return_status => l_return_status);
2757: x_return_status => l_return_status);
2758: IF l_debug_on THEN
2759: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_MultiStops l_return_status',l_return_status);
2760: END IF;
2761: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2762: x_num_warnings =>l_num_warnings,
2763: x_num_errors =>l_num_errors);
2764: END IF;
2765: -- end 4106444
2773: (p_stop_id => l_rec_attr_tab(x_index_id_tab(l_index)).stop_id,
2774: x_stop_rec => l_stop_rec,
2775: x_return_status => l_return_status);
2776:
2777: wsh_util_core.api_post_call(p_return_status =>l_return_status,
2778: x_num_warnings =>l_num_warnings,
2779: x_num_errors =>l_num_errors);
2780:
2781: -- begin csun 10+ internal location
2810: p_rowid => l_rec_attr_tab(x_index_id_tab(l_index)).rowid,
2811: p_stop_info => l_rec_attr_tab(x_index_id_tab(l_index)),
2812: x_return_status => l_return_status);
2813:
2814: wsh_util_core.api_post_call(p_return_status =>l_return_status,
2815: x_num_warnings =>l_num_warnings,
2816: x_num_errors =>l_num_errors);
2817:
2818: -- bug 4253803: change in planned departure date needs to be validated.
2866: p_caller => p_in_rec.caller,
2867: x_success_trip_ids => l_success_trip_ids,
2868: x_return_status => l_return_status);
2869:
2870: wsh_util_core.api_post_call(
2871: p_return_status => l_return_status,
2872: x_num_warnings => l_num_warnings,
2873: x_num_errors => l_num_errors);
2874:
2876: -- csun end of stop sequence change
2877: -- 4106444 - skattama
2878: -- After Trip is updated with stop and internal location is linked/delinked
2879: -- If mode is other than TRUCK, the stops of the trip should not be greater than 2
2880: IF( WSH_UTIL_CORE.FTE_Is_Installed = 'Y') THEN
2881: WSH_UTIL_VALIDATE.Validate_Trip_MultiStops (
2882: p_trip_id => l_rec_attr_tab(x_index_id_tab(l_index)).trip_id,
2883: p_mode_of_transport => l_mode_of_transport,
2884: x_return_status => l_return_status);
2884: x_return_status => l_return_status);
2885: IF l_debug_on THEN
2886: WSH_DEBUG_SV.log(l_module_name,'WSH_UTIL_VALIDATE.Validate_MultiStops l_return_status',l_return_status);
2887: END IF;
2888: WSH_UTIL_CORE.api_post_call(p_return_status =>l_return_status,
2889: x_num_warnings =>l_num_warnings,
2890: x_num_errors =>l_num_errors);
2891: END IF;
2892: -- end 4106444
2901: END IF;
2902:
2903: IF l_debug_on THEN
2904: wsh_debug_sv.logmsg(l_module_name,p_in_rec.action_code);
2905: wsh_debug_sv.log(l_module_name,'WSH_UTIL_CORE.FTE_Is_Installed', WSH_UTIL_CORE.FTE_Is_Installed);
2906: END IF;
2907:
2908: --TL Rating
2909: IF (p_in_rec.action_code = 'CREATE' ) THEN
2909: IF (p_in_rec.action_code = 'CREATE' ) THEN
2910: l_details_marked(l_details_marked.COUNT+1):=x_stop_out_tab(l_index).stop_id;
2911: ELSIF (p_in_rec.action_code = 'UPDATE' ) THEN
2912:
2913: IF( WSH_UTIL_CORE.FTE_Is_Installed = 'Y') THEN
2914: -- Bug 3848771
2915: -- Mark as reprice required only when certain conditions are met
2916: -- during update.
2917:
2969: END IF;
2970: l_num_errors := l_num_errors + 1;
2971: fnd_message.set_name('WSH', 'WSH_LOCATION_CONVERT_ERR');
2972: fnd_message.set_token('LOCATION_NAME',
2973: SUBSTRB(WSH_UTIL_CORE.get_location_description(l_rec_attr_tab(x_index_id_tab(l_index)).stop_location_id,'NEW UI CODE'), 1, 60));
2974: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2975:
2976: -- OTM R12, glog proj
2977: WHEN e_gc3_trip_exception THEN
2970: l_num_errors := l_num_errors + 1;
2971: fnd_message.set_name('WSH', 'WSH_LOCATION_CONVERT_ERR');
2972: fnd_message.set_token('LOCATION_NAME',
2973: SUBSTRB(WSH_UTIL_CORE.get_location_description(l_rec_attr_tab(x_index_id_tab(l_index)).stop_location_id,'NEW UI CODE'), 1, 60));
2974: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
2975:
2976: -- OTM R12, glog proj
2977: WHEN e_gc3_trip_exception THEN
2978: Rollback to s_trip_stop_grp;
2981: CLOSE c_trip_info;
2982: END IF;
2983: l_num_errors := l_num_errors + 1;
2984: FND_MESSAGE.SET_NAME('WSH','WSH_OTM_TRIP_STOP_CR_ERROR');
2985: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
2986: --
2987: -- Debug Statements
2988: --
2989: IF l_debug_on THEN
2995: WHEN no_data_found THEN
2996: Rollback to s_trip_stop_grp;
2997: -- Cursor is already closed, before raising this exception
2998: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
2999: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3000: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
3001: --
3002: -- Debug Statements
3003: --
2996: Rollback to s_trip_stop_grp;
2997: -- Cursor is already closed, before raising this exception
2998: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
2999: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3000: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
3001: --
3002: -- Debug Statements
3003: --
3004: IF l_debug_on THEN
3035:
3036:
3037: -- TP call back to unfirm continuous move or delete continuous move or
3038: -- any other action that will be done in the future based on the action performed
3039: IF WSH_UTIL_CORE.TP_IS_INSTALLED='Y' THEN
3040: l_action_prms.action_code:=p_in_rec.action_code;
3041: l_action_prms.caller:=p_in_rec.caller;
3042: WSH_FTE_TP_INTEGRATION.stop_callback (
3043: p_api_version_number => 1.0,
3051: IF l_debug_on THEN
3052: WSH_DEBUG_SV.log(l_module_name,'after calling stop_callback l_return_status',l_return_status);
3053: END IF;
3054:
3055: wsh_util_core.api_post_call(
3056: p_return_status => l_return_status,
3057: x_num_warnings => l_num_warnings,
3058: x_num_errors => l_num_errors
3059: );
3059: );
3060: END IF;--tp_is_installed
3061:
3062: --TL Rating mark trip as needing reprice
3063: IF( WSH_UTIL_CORE.FTE_Is_Installed = 'Y') THEN
3064: IF l_details_marked.count > 0 THEN
3065: --
3066: IF l_debug_on THEN
3067: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
3072: p_entity_ids => l_details_marked,
3073: x_return_status => l_return_status);
3074:
3075: --
3076: wsh_util_core.api_post_call(
3077: p_return_status => l_return_status,
3078: x_num_warnings => l_num_warnings,
3079: x_num_errors => l_num_errors
3080: );
3136: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
3137: END IF;
3138: --
3139: --
3140: WSH_UTIL_CORE.API_POST_CALL
3141: (
3142: p_return_status => l_return_status,
3143: x_num_warnings => l_num_warnings,
3144: x_num_errors => l_num_errors
3149: -- K LPN CONV. rv
3150:
3151:
3152: IF (l_num_errors = l_rec_attr_tab.count ) THEN
3153: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3154: ELSIF (l_num_errors > 0 ) THEN
3155: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3156: ELSIF (l_num_warnings > 0 ) THEN
3157: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3151:
3152: IF (l_num_errors = l_rec_attr_tab.count ) THEN
3153: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3154: ELSIF (l_num_errors > 0 ) THEN
3155: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3156: ELSIF (l_num_warnings > 0 ) THEN
3157: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3158: ELSE
3159: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3153: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3154: ELSIF (l_num_errors > 0 ) THEN
3155: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3156: ELSIF (l_num_warnings > 0 ) THEN
3157: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3158: ELSE
3159: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3160: END IF;
3161:
3155: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3156: ELSIF (l_num_warnings > 0 ) THEN
3157: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3158: ELSE
3159: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3160: END IF;
3161:
3162:
3163: IF FND_API.To_Boolean( p_commit ) THEN
3161:
3162:
3163: IF FND_API.To_Boolean( p_commit ) THEN
3164: --Bugfix 4070732 {
3165: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3166: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3167:
3168: IF l_debug_on THEN
3169: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3162:
3163: IF FND_API.To_Boolean( p_commit ) THEN
3164: --Bugfix 4070732 {
3165: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3166: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3167:
3168: IF l_debug_on THEN
3169: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3170: END IF;
3165: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3166: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3167:
3168: IF l_debug_on THEN
3169: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3170: END IF;
3171:
3172: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => FALSE,
3173: x_return_status => l_return_status);
3168: IF l_debug_on THEN
3169: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3170: END IF;
3171:
3172: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => FALSE,
3173: x_return_status => l_return_status);
3174:
3175: IF l_debug_on THEN
3176: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3176: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3177: END IF;
3178: END IF;
3179: --}
3180: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
3181: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3182: ROLLBACK to create_update_stop_grp;
3183: ELSE
3184: COMMIT WORK;
3177: END IF;
3178: END IF;
3179: --}
3180: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
3181: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3182: ROLLBACK to create_update_stop_grp;
3183: ELSE
3184: COMMIT WORK;
3185: END IF;
3182: ROLLBACK to create_update_stop_grp;
3183: ELSE
3184: COMMIT WORK;
3185: END IF;
3186: wsh_util_core.api_post_call
3187: (
3188: p_return_status => l_return_status,
3189: x_num_warnings => l_num_warnings,
3190: x_num_errors => l_num_errors
3189: x_num_warnings => l_num_warnings,
3190: x_num_errors => l_num_errors
3191: );
3192: --if l_return_status = warning
3193: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3194: x_return_status := l_return_status;
3195: END IF;
3196: END IF;
3197:
3195: END IF;
3196: END IF;
3197:
3198: --Bugfix 4070732 {
3199: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN --{
3200: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3201:
3202: IF FND_API.TO_BOOLEAN(p_commit) THEN
3203:
3196: END IF;
3197:
3198: --Bugfix 4070732 {
3199: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN --{
3200: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3201:
3202: IF FND_API.TO_BOOLEAN(p_commit) THEN
3203:
3204: IF l_debug_on THEN
3201:
3202: IF FND_API.TO_BOOLEAN(p_commit) THEN
3203:
3204: IF l_debug_on THEN
3205: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3206: END IF;
3207: WSH_UTIL_CORE.reset_stops_for_load_tender(
3208: p_reset_flags => TRUE,
3209: x_return_status => l_return_status);
3203:
3204: IF l_debug_on THEN
3205: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3206: END IF;
3207: WSH_UTIL_CORE.reset_stops_for_load_tender(
3208: p_reset_flags => TRUE,
3209: x_return_status => l_return_status);
3210: ELSE
3211:
3209: x_return_status => l_return_status);
3210: ELSE
3211:
3212: IF l_debug_on THEN
3213: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3214: END IF;
3215: WSH_UTIL_CORE.Process_stops_for_load_tender(
3216: p_reset_flags => TRUE,
3217: x_return_status => l_return_status);
3211:
3212: IF l_debug_on THEN
3213: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3214: END IF;
3215: WSH_UTIL_CORE.Process_stops_for_load_tender(
3216: p_reset_flags => TRUE,
3217: x_return_status => l_return_status);
3218: END IF;
3219:
3220: IF l_debug_on THEN
3221: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3222: END IF;
3223:
3224: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3225: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3226: IF NOT(FND_API.TO_BOOLEAN(p_commit)) THEN
3227: rollback to create_update_stop_grp;
3228: end if;
3221: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3222: END IF;
3223:
3224: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3225: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3226: IF NOT(FND_API.TO_BOOLEAN(p_commit)) THEN
3227: rollback to create_update_stop_grp;
3228: end if;
3229: END IF;
3227: rollback to create_update_stop_grp;
3228: end if;
3229: END IF;
3230:
3231: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3232: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3233: THEN --{
3234: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3235: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
3228: end if;
3229: END IF;
3230:
3231: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3232: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3233: THEN --{
3234: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3235: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
3236: THEN
3230:
3231: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3232: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3233: THEN --{
3234: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3235: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
3236: THEN
3237: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3238: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3231: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3232: OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
3233: THEN --{
3234: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3235: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
3236: THEN
3237: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3238: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3239: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
3233: THEN --{
3234: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3235: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
3236: THEN
3237: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3238: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3239: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
3240: THEN
3241: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3234: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3235: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
3236: THEN
3237: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3238: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3239: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
3240: THEN
3241: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3242: END IF;
3235: ELSIF x_return_status <> WSH_UTIL_CORE.G_RET_STS_ERROR
3236: THEN
3237: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3238: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3239: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
3240: THEN
3241: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3242: END IF;
3243: END IF; --}
3237: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3238: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3239: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
3240: THEN
3241: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3242: END IF;
3243: END IF; --}
3244:
3245: END IF;
3267: END IF;
3268: IF c_trip_info%ISOPEN THEN
3269: CLOSE c_trip_info;
3270: END IF;
3271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3272: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
3273: wsh_util_core.add_message(x_return_status,l_module_name);
3274: --Bugfix 4070732 {
3275: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3269: CLOSE c_trip_info;
3270: END IF;
3271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3272: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
3273: wsh_util_core.add_message(x_return_status,l_module_name);
3274: --Bugfix 4070732 {
3275: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3276: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3277: IF l_debug_on THEN
3271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3272: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
3273: wsh_util_core.add_message(x_return_status,l_module_name);
3274: --Bugfix 4070732 {
3275: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3276: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3277: IF l_debug_on THEN
3278: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3279: END IF;
3272: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
3273: wsh_util_core.add_message(x_return_status,l_module_name);
3274: --Bugfix 4070732 {
3275: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3276: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3277: IF l_debug_on THEN
3278: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3279: END IF;
3280:
3274: --Bugfix 4070732 {
3275: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3276: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3277: IF l_debug_on THEN
3278: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3279: END IF;
3280:
3281: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3282: x_return_status => l_return_status);
3277: IF l_debug_on THEN
3278: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3279: END IF;
3280:
3281: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3282: x_return_status => l_return_status);
3283:
3284:
3285: IF l_debug_on THEN
3285: IF l_debug_on THEN
3286: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3287: END IF;
3288:
3289: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3290: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3291: END IF;
3292: END IF;
3293: END IF;
3286: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3287: END IF;
3288:
3289: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3290: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3291: END IF;
3292: END IF;
3293: END IF;
3294: --}
3309: END IF;
3310: IF c_trip_info%ISOPEN THEN
3311: CLOSE c_trip_info;
3312: END IF;
3313: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
3314: --Bugfix 4070732 {
3315: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3316: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3317: IF l_debug_on THEN
3311: CLOSE c_trip_info;
3312: END IF;
3313: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
3314: --Bugfix 4070732 {
3315: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3316: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3317: IF l_debug_on THEN
3318: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3319: END IF;
3312: END IF;
3313: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR ;
3314: --Bugfix 4070732 {
3315: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3316: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3317: IF l_debug_on THEN
3318: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3319: END IF;
3320:
3314: --Bugfix 4070732 {
3315: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3316: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3317: IF l_debug_on THEN
3318: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3319: END IF;
3320:
3321: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3322: x_return_status => l_return_status);
3317: IF l_debug_on THEN
3318: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3319: END IF;
3320:
3321: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3322: x_return_status => l_return_status);
3323:
3324:
3325: IF l_debug_on THEN
3325: IF l_debug_on THEN
3326: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3327: END IF;
3328:
3329: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3330: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3331: END IF;
3332:
3333: END IF;
3326: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3327: END IF;
3328:
3329: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3330: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3331: END IF;
3332:
3333: END IF;
3334: END IF;
3352: END IF;
3353: IF c_trip_info%ISOPEN THEN
3354: CLOSE c_trip_info;
3355: END IF;
3356: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3357: --Bugfix 4070732 {
3358: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3359: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3360: IF l_debug_on THEN
3354: CLOSE c_trip_info;
3355: END IF;
3356: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3357: --Bugfix 4070732 {
3358: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3359: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3360: IF l_debug_on THEN
3361: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3362: END IF;
3355: END IF;
3356: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3357: --Bugfix 4070732 {
3358: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3359: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3360: IF l_debug_on THEN
3361: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3362: END IF;
3363:
3357: --Bugfix 4070732 {
3358: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3359: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3360: IF l_debug_on THEN
3361: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3362: END IF;
3363:
3364: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3365: x_return_status => l_return_status);
3360: IF l_debug_on THEN
3361: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3362: END IF;
3363:
3364: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3365: x_return_status => l_return_status);
3366:
3367:
3368: IF l_debug_on THEN
3381: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3382: END IF;
3383: ROLLBACK TO create_update_stop_grp;
3384:
3385: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3386: -- OTM R12, glog proj, close cursors
3387: IF c_get_all_trip_stops%ISOPEN THEN
3388: CLOSE c_get_all_trip_stops;
3389: END IF;
3389: END IF;
3390: IF c_trip_info%ISOPEN THEN
3391: CLOSE c_trip_info;
3392: END IF;
3393: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3394: --
3395: -- K LPN CONV. rv
3396: --
3397: IF WSH_WMS_LPN_GRP.G_CALLBACK_REQUIRED = 'Y'
3413: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_LPN_SYNC_COMM_PKG.SYNC_LPNS_TO_WMS',l_return_status);
3414: END IF;
3415: --
3416: --
3417: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
3418: x_return_status := l_return_status;
3419: END IF;
3420: --
3421: --}
3423: --
3424: -- K LPN CONV. rv
3425: --
3426: --Bugfix 4070732 {
3427: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3428: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3429: IF l_debug_on THEN
3430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3431: END IF;
3424: -- K LPN CONV. rv
3425: --
3426: --Bugfix 4070732 {
3427: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3428: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3429: IF l_debug_on THEN
3430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3431: END IF;
3432:
3426: --Bugfix 4070732 {
3427: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3428: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3429: IF l_debug_on THEN
3430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3431: END IF;
3432:
3433: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3434: x_return_status => l_return_status);
3429: IF l_debug_on THEN
3430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3431: END IF;
3432:
3433: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3434: x_return_status => l_return_status);
3435:
3436: IF l_debug_on THEN
3437: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3436: IF l_debug_on THEN
3437: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3438: END IF;
3439:
3440: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
3441: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3442: rollback to create_update_stop_grp;
3443: X_return_status := l_return_status;
3444: END IF;
3437: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3438: END IF;
3439:
3440: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
3441: OR l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3442: rollback to create_update_stop_grp;
3443: X_return_status := l_return_status;
3444: END IF;
3445: END IF;
3449: p_count => x_msg_count,
3450: p_data => x_msg_data,
3451: p_encoded => FND_API.G_FALSE);
3452: IF l_debug_on THEN
3453: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3454: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3455: END IF;
3456:
3457: WHEN OTHERS THEN
3450: p_data => x_msg_data,
3451: p_encoded => FND_API.G_FALSE);
3452: IF l_debug_on THEN
3453: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3454: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3455: END IF;
3456:
3457: WHEN OTHERS THEN
3458: -- OTM R12, glog proj, close cursors
3461: END IF;
3462: IF c_trip_info%ISOPEN THEN
3463: CLOSE c_trip_info;
3464: END IF;
3465: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3466: wsh_util_core.default_handler ('WSH_TRIP_STOPS_GRP.CREATE_UPDATE_STOP');
3467: --Bugfix 4070732 {
3468: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3469: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3462: IF c_trip_info%ISOPEN THEN
3463: CLOSE c_trip_info;
3464: END IF;
3465: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3466: wsh_util_core.default_handler ('WSH_TRIP_STOPS_GRP.CREATE_UPDATE_STOP');
3467: --Bugfix 4070732 {
3468: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3469: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3470: IF l_debug_on THEN
3464: END IF;
3465: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3466: wsh_util_core.default_handler ('WSH_TRIP_STOPS_GRP.CREATE_UPDATE_STOP');
3467: --Bugfix 4070732 {
3468: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3469: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3470: IF l_debug_on THEN
3471: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3472: END IF;
3465: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3466: wsh_util_core.default_handler ('WSH_TRIP_STOPS_GRP.CREATE_UPDATE_STOP');
3467: --Bugfix 4070732 {
3468: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3469: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3470: IF l_debug_on THEN
3471: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3472: END IF;
3473:
3467: --Bugfix 4070732 {
3468: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3469: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3470: IF l_debug_on THEN
3471: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3472: END IF;
3473:
3474: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3475: x_return_status => l_return_status);
3470: IF l_debug_on THEN
3471: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3472: END IF;
3473:
3474: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3475: x_return_status => l_return_status);
3476:
3477:
3478: IF l_debug_on THEN
3584: x_return_status => x_return_status);
3585: IF l_debug_on THEN
3586: wsh_debug_sv.log (l_module_name, 'map_stoppub_to_pvt x_return_status',x_return_status);
3587: END IF;
3588: IF ( x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3589: raise FND_API.G_EXC_ERROR;
3590: END IF;
3591:
3592: IF (p_trip_id IS NOT NULL) AND (p_trip_id <> FND_API.G_MISS_NUM) THEN
3628: IF l_debug_on THEN
3629: WSH_DEBUG_SV.log(l_module_name,'WSH_TRIP_STOPS_GRP.CREATE_UPDATE_STOP x_return_status',x_return_status);
3630: END IF;
3631:
3632: IF ( x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_stop_out_tab.count > 0) THEN
3633: x_stop_id := l_stop_out_tab(l_stop_out_tab.FIRST).stop_id;
3634: END IF;
3635:
3636: FND_MSG_PUB.Count_And_Get (
3643: END IF;
3644:
3645: EXCEPTION
3646: WHEN OTHERS THEN
3647: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3648: wsh_util_core.default_handler ('WSH_TRIP_STOPS_GRP.CREATE_UPDATE_STOP');
3649: IF l_debug_on THEN
3650: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
3651: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3644:
3645: EXCEPTION
3646: WHEN OTHERS THEN
3647: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3648: wsh_util_core.default_handler ('WSH_TRIP_STOPS_GRP.CREATE_UPDATE_STOP');
3649: IF l_debug_on THEN
3650: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
3651: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3652: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3752: x_return_status => x_return_status);
3753: IF l_debug_on THEN
3754: wsh_debug_sv.log (l_module_name, 'map_stoppub_to_pvt x_return_status',x_return_status);
3755: END IF;
3756: IF ( x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3757: raise FND_API.G_EXC_ERROR;
3758: END IF;
3759:
3760: l_rec_attr_tab(1):= l_pvt_stop_rec;
3773: IF l_debug_on THEN
3774: WSH_DEBUG_SV.log(l_module_name,'WSH_TRIP_STOPS_GRP.CREATE_UPDATE_STOP x_return_status',x_return_status);
3775: END IF;
3776:
3777: IF ( x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_stop_out_tab.count > 0) THEN
3778: x_stop_out_rec := l_stop_out_tab(l_stop_out_tab.FIRST);
3779: END IF;
3780:
3781: FND_MSG_PUB.Count_And_Get (
3793: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3794: END IF;
3795:
3796: WHEN OTHERS THEN
3797: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3798: wsh_util_core.default_handler ('WSH_TRIP_STOPS_GRP.CREATE_UPDATE_STOP');
3799: IF l_debug_on THEN
3800: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
3801: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3794: END IF;
3795:
3796: WHEN OTHERS THEN
3797: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3798: wsh_util_core.default_handler ('WSH_TRIP_STOPS_GRP.CREATE_UPDATE_STOP');
3799: IF l_debug_on THEN
3800: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
3801: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3802: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3832: --
3833: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
3834: END IF;
3835: --
3836: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3837:
3838: WSH_TRIP_STOPS_PVT.Populate_Record(
3839: p_stop_id => p_stop_id,
3840: x_stop_info => x_stop_rec,
3847: END IF;
3848: --
3849: EXCEPTION
3850: WHEN OTHERS THEN
3851: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_TRIP_STOPS_GRP.get_stop_details_pvt',l_module_name);
3852: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3853: --
3854: IF l_debug_on THEN
3855: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3848: --
3849: EXCEPTION
3850: WHEN OTHERS THEN
3851: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_TRIP_STOPS_GRP.get_stop_details_pvt',l_module_name);
3852: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3853: --
3854: IF l_debug_on THEN
3855: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3856: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3878: PROCEDURE Lock_Related_Entity
3879: (
3880: p_action_prms IN action_parameters_rectype,
3881: p_stop_attr_tab IN WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type,
3882: x_valid_ids_tab OUT NOCOPY WSH_UTIL_CORE.id_Tab_Type,
3883: x_return_status OUT NOCOPY VARCHAR2
3884: )
3885: IS
3886: --
3930: THEN
3931: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3932: END IF;
3933: --
3934: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3935:
3936: IF l_debug_on THEN
3937: WSH_DEBUG_SV.push(l_module_name);
3938: WSH_DEBUG_SV.log(l_module_name, 'Action_Code', p_action_prms.action_code);
4023: ROLLBACK TO LOCK_RELATED_ENTITY_GRP_LOOP;
4024: FND_MESSAGE.SET_NAME('WSH', 'WSH_STOP_DLVY_TRIP_LOCK');
4025: -- set token
4026: FND_MESSAGE.SET_TOKEN('STOP_ID', p_stop_attr_tab(l_index).stop_id);
4027: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
4028: WHEN FND_API.G_EXC_ERROR THEN
4029: ROLLBACK TO LOCK_RELATED_ENTITY_GRP_LOOP;
4030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4031: ROLLBACK TO LOCK_RELATED_ENTITY_GRP_LOOP;
4054: RAISE FND_API.G_EXC_ERROR;
4055: ELSIF x_valid_ids_tab.count >0
4056: AND x_valid_ids_tab.count < p_stop_attr_tab.count
4057: THEN
4058: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
4059: -- }
4060: END IF;
4061: -- }
4062: END IF;
4071: END IF;
4072:
4073: EXCEPTION
4074: WHEN FND_API.G_EXC_ERROR THEN
4075: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4076: --
4077: IF l_debug_on THEN
4078: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4079: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4079: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4080: END IF;
4081: --
4082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4083: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4084: --
4085: IF l_debug_on THEN
4086: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4087: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4086: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4087: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4088: END IF;
4089: --
4090: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4091: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4092: --
4093: IF l_debug_on THEN
4094: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4087: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4088: END IF;
4089: --
4090: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4091: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4092: --
4093: IF l_debug_on THEN
4094: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4095: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4090: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4091: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4092: --
4093: IF l_debug_on THEN
4094: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4095: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4096: END IF;
4097: --
4098: WHEN OTHERS THEN
4091: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4092: --
4093: IF l_debug_on THEN
4094: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4095: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4096: END IF;
4097: --
4098: WHEN OTHERS THEN
4099: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4095: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4096: END IF;
4097: --
4098: WHEN OTHERS THEN
4099: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4100: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.LOCK_RELATED_ENTITY');
4101:
4102: --
4103: IF l_debug_on THEN
4096: END IF;
4097: --
4098: WHEN OTHERS THEN
4099: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4100: wsh_util_core.default_handler('WSH_DELIVERIES_GRP.LOCK_RELATED_ENTITY');
4101:
4102: --
4103: IF l_debug_on THEN
4104: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4112:
4113: PROCEDURE Add_to_Delete_List(
4114: p_stop_tab IN WSH_TRIP_STOPS_VALIDATIONS.stop_details_tab,
4115: p_caller IN VARCHAR2,
4116: x_stop_delete_tab OUT NOCOPY wsh_util_core.id_tab_type,
4117: x_trip_affected_tab OUT NOCOPY wsh_util_core.id_tab_type,
4118: x_return_status OUT NOCOPY VARCHAR2)
4119:
4120: IS
4113: PROCEDURE Add_to_Delete_List(
4114: p_stop_tab IN WSH_TRIP_STOPS_VALIDATIONS.stop_details_tab,
4115: p_caller IN VARCHAR2,
4116: x_stop_delete_tab OUT NOCOPY wsh_util_core.id_tab_type,
4117: x_trip_affected_tab OUT NOCOPY wsh_util_core.id_tab_type,
4118: x_return_status OUT NOCOPY VARCHAR2)
4119:
4120: IS
4121:
4138:
4139: i NUMBER;
4140: j NUMBER;
4141: k NUMBER;
4142: l_stop_delete_tab wsh_util_core.id_tab_type;
4143:
4144: l_tmp NUMBER;
4145:
4146: l_stop_exist BOOLEAN;
4162: WSH_DEBUG_SV.log(l_module_name,'p_stop_tab.count', p_stop_tab.count);
4163: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller );
4164: END IF;
4165:
4166: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4167: x_stop_delete_tab.delete;
4168: l_stop_delete_tab.delete;
4169: x_trip_affected_tab.delete;
4170:
4253: IF c_linked_stop%ISOPEN THEN
4254: close c_linked_stop;
4255: END IF;
4256:
4257: wsh_util_core.default_handler('WSH_TRIP_STOPS_VALIDATIONS.Add_to_Delete_List',l_module_name);
4258: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4259: IF l_debug_on THEN
4260: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4261: END IF;
4254: close c_linked_stop;
4255: END IF;
4256:
4257: wsh_util_core.default_handler('WSH_TRIP_STOPS_VALIDATIONS.Add_to_Delete_List',l_module_name);
4258: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4259: IF l_debug_on THEN
4260: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4261: END IF;
4262: