[Home] [Help]
56: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
57: --
58: IF l_debug_on IS NULL
59: THEN
60: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
61: END IF;
62: --
63: IF l_debug_on THEN
64: WSH_DEBUG_SV.push(l_module_name);
60: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
61: END IF;
62: --
63: IF l_debug_on THEN
64: WSH_DEBUG_SV.push(l_module_name);
65: END IF;
66:
67: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
68: x_selected_del_tab.delete;
430: END IF;
431: END LOOP;
432:
433: IF l_debug_on THEN
434: WSH_DEBUG_SV.log(l_module_name, to_char(x_selected_del_tab.count)||' deliveries fetched to be processed');
435: WSH_DEBUG_SV.pop(l_module_name);
436: END IF;
437:
438: EXCEPTION
431: END LOOP;
432:
433: IF l_debug_on THEN
434: WSH_DEBUG_SV.log(l_module_name, to_char(x_selected_del_tab.count)||' deliveries fetched to be processed');
435: WSH_DEBUG_SV.pop(l_module_name);
436: END IF;
437:
438: EXCEPTION
439:
441:
442: wsh_util_core.default_handler('WSH_BATCH_PROCESS.Select_Deliveries');
443: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
444: IF l_debug_on THEN
445: WSH_DEBUG_SV.pop(l_module_name);
446: END IF;
447:
448: END Select_Deliveries;
449:
535: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
536: --
537: IF l_debug_on IS NULL
538: THEN
539: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
540: END IF;
541: --
542: IF l_debug_on THEN
543: WSH_DEBUG_SV.push(l_module_name);
539: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
540: END IF;
541: --
542: IF l_debug_on THEN
543: WSH_DEBUG_SV.push(l_module_name);
544: END IF;
545:
546: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
547:
548: l_tmp_del_tab.delete;
549: l_tmp_del_tab(1) := p_delivery_id;
550:
551: IF l_debug_on THEN
552: WSH_DEBUG_SV.log(l_module_name, 'Locking delivery '|| p_delivery_id);
553: END IF;
554:
555: OPEN get_delivery(p_delivery_id);
556: FETCH get_delivery INTO l_delivery_rec;
555: OPEN get_delivery(p_delivery_id);
556: FETCH get_delivery INTO l_delivery_rec;
557: IF get_delivery%FOUND THEN
558: IF l_debug_on THEN
559: WSH_DEBUG_SV.log(l_module_name, 'Check if ship confirm is allowed for delivery ID: ' || to_char(l_tmp_del_tab(1)));
560: END IF;
561:
562: UPDATE WSH_NEW_DELIVERIES SET BATCH_ID = p_sc_batch_id
563: WHERE delivery_id = p_delivery_id;
595: IF p_ship_confirm_rule_rec.ship_method_default_flag = 'R' THEN
596: l_action_prms.ship_method_code := p_ship_confirm_rule_rec.ship_method_code;
597: ELSE
598: IF l_debug_on THEN
599: WSH_DEBUG_SV.logmsg(l_module_name,'deriving trip/delivery SM');
600: END IF;
601: OPEN c_first_trip_ship_method(
602: l_delivery_rec.delivery_id,
603: l_delivery_rec.initial_pickup_location_id);
611: l_action_prms.actual_dep_date := l_actual_dep_date;
612: l_action_prms.send_945_flag := p_ship_confirm_rule_rec.send_945_flag;
613:
614: IF l_debug_on THEN
615: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_code: ',l_action_prms.action_code);
616: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.caller:',l_action_prms.caller);
617: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.phase: ',l_action_prms.phase);
618: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_flag: ',l_action_prms.action_flag);
619: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.intransit_flag: ',l_action_prms.intransit_flag);
612: l_action_prms.send_945_flag := p_ship_confirm_rule_rec.send_945_flag;
613:
614: IF l_debug_on THEN
615: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_code: ',l_action_prms.action_code);
616: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.caller:',l_action_prms.caller);
617: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.phase: ',l_action_prms.phase);
618: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_flag: ',l_action_prms.action_flag);
619: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.intransit_flag: ',l_action_prms.intransit_flag);
620: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.close_trip_flag: ',l_action_prms.close_trip_flag);
613:
614: IF l_debug_on THEN
615: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_code: ',l_action_prms.action_code);
616: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.caller:',l_action_prms.caller);
617: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.phase: ',l_action_prms.phase);
618: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_flag: ',l_action_prms.action_flag);
619: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.intransit_flag: ',l_action_prms.intransit_flag);
620: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.close_trip_flag: ',l_action_prms.close_trip_flag);
621: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.stage_del_flag: ',l_action_prms.stage_del_flag);
614: IF l_debug_on THEN
615: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_code: ',l_action_prms.action_code);
616: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.caller:',l_action_prms.caller);
617: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.phase: ',l_action_prms.phase);
618: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_flag: ',l_action_prms.action_flag);
619: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.intransit_flag: ',l_action_prms.intransit_flag);
620: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.close_trip_flag: ',l_action_prms.close_trip_flag);
621: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.stage_del_flag: ',l_action_prms.stage_del_flag);
622: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.report_set_id: ',l_action_prms.report_set_id);
615: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_code: ',l_action_prms.action_code);
616: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.caller:',l_action_prms.caller);
617: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.phase: ',l_action_prms.phase);
618: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_flag: ',l_action_prms.action_flag);
619: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.intransit_flag: ',l_action_prms.intransit_flag);
620: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.close_trip_flag: ',l_action_prms.close_trip_flag);
621: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.stage_del_flag: ',l_action_prms.stage_del_flag);
622: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.report_set_id: ',l_action_prms.report_set_id);
623: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.bill_of_lading_flag: ',l_action_prms.bill_of_lading_flag);
616: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.caller:',l_action_prms.caller);
617: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.phase: ',l_action_prms.phase);
618: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_flag: ',l_action_prms.action_flag);
619: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.intransit_flag: ',l_action_prms.intransit_flag);
620: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.close_trip_flag: ',l_action_prms.close_trip_flag);
621: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.stage_del_flag: ',l_action_prms.stage_del_flag);
622: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.report_set_id: ',l_action_prms.report_set_id);
623: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.bill_of_lading_flag: ',l_action_prms.bill_of_lading_flag);
624: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.mc_bill_of_lading_flag: ',l_action_prms.mc_bill_of_lading_flag);
617: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.phase: ',l_action_prms.phase);
618: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_flag: ',l_action_prms.action_flag);
619: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.intransit_flag: ',l_action_prms.intransit_flag);
620: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.close_trip_flag: ',l_action_prms.close_trip_flag);
621: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.stage_del_flag: ',l_action_prms.stage_del_flag);
622: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.report_set_id: ',l_action_prms.report_set_id);
623: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.bill_of_lading_flag: ',l_action_prms.bill_of_lading_flag);
624: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.mc_bill_of_lading_flag: ',l_action_prms.mc_bill_of_lading_flag);
625: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.defer_interface_flag: ',l_action_prms.defer_interface_flag);
618: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.action_flag: ',l_action_prms.action_flag);
619: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.intransit_flag: ',l_action_prms.intransit_flag);
620: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.close_trip_flag: ',l_action_prms.close_trip_flag);
621: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.stage_del_flag: ',l_action_prms.stage_del_flag);
622: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.report_set_id: ',l_action_prms.report_set_id);
623: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.bill_of_lading_flag: ',l_action_prms.bill_of_lading_flag);
624: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.mc_bill_of_lading_flag: ',l_action_prms.mc_bill_of_lading_flag);
625: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.defer_interface_flag: ',l_action_prms.defer_interface_flag);
626: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.ship_method_code: ',l_action_prms.ship_method_code);
619: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.intransit_flag: ',l_action_prms.intransit_flag);
620: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.close_trip_flag: ',l_action_prms.close_trip_flag);
621: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.stage_del_flag: ',l_action_prms.stage_del_flag);
622: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.report_set_id: ',l_action_prms.report_set_id);
623: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.bill_of_lading_flag: ',l_action_prms.bill_of_lading_flag);
624: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.mc_bill_of_lading_flag: ',l_action_prms.mc_bill_of_lading_flag);
625: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.defer_interface_flag: ',l_action_prms.defer_interface_flag);
626: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.ship_method_code: ',l_action_prms.ship_method_code);
627: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.actual_dep_date: ',l_action_prms.actual_dep_date);
620: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.close_trip_flag: ',l_action_prms.close_trip_flag);
621: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.stage_del_flag: ',l_action_prms.stage_del_flag);
622: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.report_set_id: ',l_action_prms.report_set_id);
623: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.bill_of_lading_flag: ',l_action_prms.bill_of_lading_flag);
624: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.mc_bill_of_lading_flag: ',l_action_prms.mc_bill_of_lading_flag);
625: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.defer_interface_flag: ',l_action_prms.defer_interface_flag);
626: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.ship_method_code: ',l_action_prms.ship_method_code);
627: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.actual_dep_date: ',l_action_prms.actual_dep_date);
628: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.send_945_flag: ',l_action_prms.send_945_flag);
621: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.stage_del_flag: ',l_action_prms.stage_del_flag);
622: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.report_set_id: ',l_action_prms.report_set_id);
623: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.bill_of_lading_flag: ',l_action_prms.bill_of_lading_flag);
624: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.mc_bill_of_lading_flag: ',l_action_prms.mc_bill_of_lading_flag);
625: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.defer_interface_flag: ',l_action_prms.defer_interface_flag);
626: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.ship_method_code: ',l_action_prms.ship_method_code);
627: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.actual_dep_date: ',l_action_prms.actual_dep_date);
628: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.send_945_flag: ',l_action_prms.send_945_flag);
629: END IF;
622: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.report_set_id: ',l_action_prms.report_set_id);
623: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.bill_of_lading_flag: ',l_action_prms.bill_of_lading_flag);
624: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.mc_bill_of_lading_flag: ',l_action_prms.mc_bill_of_lading_flag);
625: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.defer_interface_flag: ',l_action_prms.defer_interface_flag);
626: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.ship_method_code: ',l_action_prms.ship_method_code);
627: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.actual_dep_date: ',l_action_prms.actual_dep_date);
628: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.send_945_flag: ',l_action_prms.send_945_flag);
629: END IF;
630:
623: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.bill_of_lading_flag: ',l_action_prms.bill_of_lading_flag);
624: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.mc_bill_of_lading_flag: ',l_action_prms.mc_bill_of_lading_flag);
625: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.defer_interface_flag: ',l_action_prms.defer_interface_flag);
626: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.ship_method_code: ',l_action_prms.ship_method_code);
627: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.actual_dep_date: ',l_action_prms.actual_dep_date);
628: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.send_945_flag: ',l_action_prms.send_945_flag);
629: END IF;
630:
631: WSH_DELIVERIES_GRP.Delivery_Action
624: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.mc_bill_of_lading_flag: ',l_action_prms.mc_bill_of_lading_flag);
625: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.defer_interface_flag: ',l_action_prms.defer_interface_flag);
626: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.ship_method_code: ',l_action_prms.ship_method_code);
627: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.actual_dep_date: ',l_action_prms.actual_dep_date);
628: WSH_DEBUG_SV.log(l_module_name,'l_action_prms.send_945_flag: ',l_action_prms.send_945_flag);
629: END IF;
630:
631: WSH_DELIVERIES_GRP.Delivery_Action
632: ( p_api_version_number => 1.0,
659: END IF; -- if delivery exist
660:
661: CLOSE get_delivery; /* unlock the delivery */
662: IF l_debug_on THEN
663: WSH_DEBUG_SV.POP(l_module_name);
664: END IF;
665:
666: EXCEPTION
667:
675: CLOSE c_first_trip_ship_method;
676: END IF;
677: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to lock delivery ID '||to_char(p_delivery_id));
678: IF l_debug_on THEN
679: WSH_DEBUG_SV.log(l_module_name, 'ERROR: Failed to lock delivery ID '||to_char(p_delivery_id));
680: WSH_DEBUG_SV.POP(l_module_name);
681: END IF;
682:
683: WHEN others THEN
676: END IF;
677: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to lock delivery ID '||to_char(p_delivery_id));
678: IF l_debug_on THEN
679: WSH_DEBUG_SV.log(l_module_name, 'ERROR: Failed to lock delivery ID '||to_char(p_delivery_id));
680: WSH_DEBUG_SV.POP(l_module_name);
681: END IF;
682:
683: WHEN others THEN
684: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
690: END IF;
691: WSH_UTIL_CORE.PrintMsg('ERROR: unhandled exception');
692: wsh_util_core.default_handler('WSH_BATCH_PROCESS.Ship_Confirm_A_Delivery');
693: IF l_debug_on THEN
694: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: unhandled exception');
695: WSH_DEBUG_SV.POP(l_module_name);
696: END IF;
697:
698: END Ship_Confirm_A_Delivery;
691: WSH_UTIL_CORE.PrintMsg('ERROR: unhandled exception');
692: wsh_util_core.default_handler('WSH_BATCH_PROCESS.Ship_Confirm_A_Delivery');
693: IF l_debug_on THEN
694: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: unhandled exception');
695: WSH_DEBUG_SV.POP(l_module_name);
696: END IF;
697:
698: END Ship_Confirm_A_Delivery;
699:
757: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
758: --
759: IF l_debug_on IS NULL
760: THEN
761: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
762: END IF;
763: --
764: IF l_debug_on THEN
765: WSH_DEBUG_SV.push(l_module_name);
761: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
762: END IF;
763: --
764: IF l_debug_on THEN
765: WSH_DEBUG_SV.push(l_module_name);
766: WSH_DEBUG_SV.log(l_module_name, 'Locking stop '|| to_char(p_stop_id));
767: END IF;
768:
769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
762: END IF;
763: --
764: IF l_debug_on THEN
765: WSH_DEBUG_SV.push(l_module_name);
766: WSH_DEBUG_SV.log(l_module_name, 'Locking stop '|| to_char(p_stop_id));
767: END IF;
768:
769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
770: OPEN lock_stop_trip(p_stop_id);
773:
774: SAVEPOINT beginning_of_the_procedure;
775:
776: IF l_debug_on THEN
777: WSH_DEBUG_SV.log(l_module_name, 'Stop locked, calling WSH_TRIP_STOPS_GRP.Stop_Action for stop '|| to_char(p_stop_id));
778: END IF;
779:
780: l_action_prms.action_code := 'UPDATE-STATUS';
781: l_action_prms.stop_action := 'CLOSE';
813: END IF;
814:
815:
816: IF l_debug_on THEN
817: WSH_DEBUG_SV.pop(l_module_name);
818: END IF;
819:
820: EXCEPTION
821: WHEN stop_trip_locked THEN
825: FND_MESSAGE.SET_NAME('WSH', 'WSH_STOP_LOCK_FAILED');
826: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',to_char(p_stop_id));
827: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
828: IF l_debug_on THEN
829: WSH_DEBUG_SV.log(l_module_name, 'ERROR: Failed to lock stop and trip, stop ID '||to_char(p_stop_id));
830: WSH_DEBUG_SV.POP(l_module_name);
831: END IF;
832:
833: WHEN others THEN
826: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',to_char(p_stop_id));
827: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
828: IF l_debug_on THEN
829: WSH_DEBUG_SV.log(l_module_name, 'ERROR: Failed to lock stop and trip, stop ID '||to_char(p_stop_id));
830: WSH_DEBUG_SV.POP(l_module_name);
831: END IF;
832:
833: WHEN others THEN
834: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
837: FND_MESSAGE.SET_NAME('WSH', 'WSH_STOP_LOCK_FAILED');
838: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',to_char(p_stop_id));
839: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
840: IF l_debug_on THEN
841: WSH_DEBUG_SV.log(l_module_name, 'ERROR: Failed to lock stop and trip, stop ID '||to_char(p_stop_id));
842: WSH_DEBUG_SV.POP(l_module_name);
843: END IF;
844: END Close_A_Stop;
845:
838: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',to_char(p_stop_id));
839: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
840: IF l_debug_on THEN
841: WSH_DEBUG_SV.log(l_module_name, 'ERROR: Failed to lock stop and trip, stop ID '||to_char(p_stop_id));
842: WSH_DEBUG_SV.POP(l_module_name);
843: END IF;
844: END Close_A_Stop;
845:
846: -- -----------------------------------------------------------------------
993: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
994: --
995: IF l_debug_on IS NULL
996: THEN
997: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
998: END IF;
999: --
1000: x_results_summary.success := 0;
1001: x_results_summary.warning := 0;
1003: x_results_summary.report_req_id := 0;
1004: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1005:
1006: IF l_debug_on THEN
1007: WSH_DEBUG_SV.push(l_module_name);
1008: END IF;
1009:
1010: l_sc_confirmed_dels.delete;
1011: l_stops_to_close.delete;
1018: FETCH get_sc_batch INTO l_ship_confirm_rule_id, l_batch_creation_date,
1019: l_actual_departure_date;
1020:
1021: IF l_debug_on THEN
1022: WSH_DEBUG_SV.log(l_module_name, 'Batch Creation Date',
1023: to_char(l_batch_creation_date, 'MM-DD-YYYY HH24:MI:SS'));
1024: WSH_DEBUG_SV.log(l_module_name, 'Actual Departure Date',
1025: to_char(l_actual_departure_date, 'MM/DD/YYYY HH24:MI:SS'));
1026: END IF;
1020:
1021: IF l_debug_on THEN
1022: WSH_DEBUG_SV.log(l_module_name, 'Batch Creation Date',
1023: to_char(l_batch_creation_date, 'MM-DD-YYYY HH24:MI:SS'));
1024: WSH_DEBUG_SV.log(l_module_name, 'Actual Departure Date',
1025: to_char(l_actual_departure_date, 'MM/DD/YYYY HH24:MI:SS'));
1026: END IF;
1027:
1028: IF get_sc_batch%NOTFOUND THEN
1063: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',to_char(p_del_tab(i).delivery_id));
1064: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
1065: log_batch_messages(p_sc_batch_id, NULL ,NULL, p_del_tab(i).initial_pickup_location_id, NULL);
1066: IF l_debug_on THEN
1067: WSH_DEBUG_SV.logmsg('wsh.plsql.' || G_PKG_NAME || '.' || 'Ship_Confirm_A_Delivery', 'ERROR: Failed to lock delivery ID '||to_char(p_del_tab(i).delivery_id));
1068: WSH_DEBUG_SV.POP('wsh.plsql.' || G_PKG_NAME || '.' || 'Ship_Confirm_A_Delivery');
1069: END IF;
1070:
1071: WHEN OTHERS THEN
1064: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
1065: log_batch_messages(p_sc_batch_id, NULL ,NULL, p_del_tab(i).initial_pickup_location_id, NULL);
1066: IF l_debug_on THEN
1067: WSH_DEBUG_SV.logmsg('wsh.plsql.' || G_PKG_NAME || '.' || 'Ship_Confirm_A_Delivery', 'ERROR: Failed to lock delivery ID '||to_char(p_del_tab(i).delivery_id));
1068: WSH_DEBUG_SV.POP('wsh.plsql.' || G_PKG_NAME || '.' || 'Ship_Confirm_A_Delivery');
1069: END IF;
1070:
1071: WHEN OTHERS THEN
1072: /* this will catch the exception when failing to obtain the lock on the delivery */
1075: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_LOCK_FAILED');
1076: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',to_char(p_del_tab(i).delivery_id));
1077: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
1078: IF l_debug_on THEN
1079: WSH_DEBUG_SV.logmsg('wsh.plsql.' || G_PKG_NAME || '.' || 'Ship_Confirm_A_Delivery', 'ERROR: Failed to lock delivery ID '||to_char(p_del_tab(i).delivery_id));
1080: WSH_DEBUG_SV.POP('wsh.plsql.' || G_PKG_NAME || '.' || 'Ship_Confirm_A_Delivery');
1081: END IF;
1082: END;
1083:
1076: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',to_char(p_del_tab(i).delivery_id));
1077: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
1078: IF l_debug_on THEN
1079: WSH_DEBUG_SV.logmsg('wsh.plsql.' || G_PKG_NAME || '.' || 'Ship_Confirm_A_Delivery', 'ERROR: Failed to lock delivery ID '||to_char(p_del_tab(i).delivery_id));
1080: WSH_DEBUG_SV.POP('wsh.plsql.' || G_PKG_NAME || '.' || 'Ship_Confirm_A_Delivery');
1081: END IF;
1082: END;
1083:
1084: --
1091:
1092: l_reset_flags := FALSE;
1093:
1094: IF l_debug_on THEN
1095: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1096: END IF;
1097:
1098: BEGIN
1099:
1099:
1100: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
1101: x_return_status => l_return_status1);
1102: IF l_debug_on THEN
1103: WSH_DEBUG_SV.log(l_module_name,'l_return_status1',l_return_status1);
1104: END IF;
1105:
1106: IF l_return_status1 IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1107: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1123: x_results_summary.success := x_results_summary.success + 1;
1124: l_sc_confirmed_dels(l_sc_confirmed_dels.count+1):= p_del_tab(i).delivery_id;
1125: IF l_debug_on THEN
1126: select status_code into l_status_code from wsh_new_deliveries where delivery_id = p_del_tab(i).delivery_id;
1127: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery ID ' || to_char(p_del_tab(i).delivery_id)||' is ship confirmed successfully with status '|| l_status_code);
1128: END IF;
1129:
1130:
1131: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1132: x_results_summary.warning := x_results_summary.warning + 1;
1133: l_sc_confirmed_dels(l_sc_confirmed_dels.count+1):= p_del_tab(i).delivery_id;
1134: log_batch_messages(p_sc_batch_id, p_del_tab(i).delivery_id, NULL, p_del_tab(i).initial_pickup_location_id, NULL);
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery ID '|| to_char(p_del_tab(i).delivery_id)||' is ship confirmed with warnings');
1137: END IF;
1138:
1139: ELSE
1140: x_results_summary.failure := x_results_summary.failure + 1;
1141:
1142: log_batch_messages(p_sc_batch_id, p_del_tab(i).delivery_id,NULL, p_del_tab(i).initial_pickup_location_id, NULL);
1143:
1144: IF l_debug_on THEN
1145: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery ID '|| to_char(p_del_tab(i).delivery_id)||' cannot be ship confirmed');
1146: END IF;
1147:
1148:
1149: END IF;
1190: END IF;
1191:
1192: IF l_stops_to_close.count > 0 THEN
1193: IF l_debug_on THEN
1194: WSH_DEBUG_SV.logmsg(l_module_name, 'Closing manually created stops');
1195: END IF;
1196: FOR i in 1..l_stops_to_close.count LOOP
1197: BEGIN
1198: l_lock_error := 'N';
1210: l_lock_error := 'Y';
1211:
1212: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to lock stop and trip, stop ID '||to_char(l_stops_to_close(i)));
1213: IF l_debug_on THEN
1214: WSH_DEBUG_SV.logmsg('wsh.plsql.' || G_PKG_NAME || '.' || 'Close_A_Stop', 'ERROR: Failed to lock stop and trip, stop ID '||to_char(l_stops_to_close(i)));
1215: WSH_DEBUG_SV.POP('wsh.plsql.' || G_PKG_NAME || '.' || 'Close_A_Stop');
1216: END IF;
1217: END;
1218:
1211:
1212: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to lock stop and trip, stop ID '||to_char(l_stops_to_close(i)));
1213: IF l_debug_on THEN
1214: WSH_DEBUG_SV.logmsg('wsh.plsql.' || G_PKG_NAME || '.' || 'Close_A_Stop', 'ERROR: Failed to lock stop and trip, stop ID '||to_char(l_stops_to_close(i)));
1215: WSH_DEBUG_SV.POP('wsh.plsql.' || G_PKG_NAME || '.' || 'Close_A_Stop');
1216: END IF;
1217: END;
1218:
1219: --
1226:
1227: l_reset_flags := FALSE;
1228:
1229: IF l_debug_on THEN
1230: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1231: END IF;
1232:
1233: BEGIN
1234:
1234:
1235: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
1236: x_return_status => l_return_status1);
1237: IF l_debug_on THEN
1238: WSH_DEBUG_SV.log(l_module_name,'l_return_status1',l_return_status1);
1239: END IF;
1240:
1241: IF l_return_status1 IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1242: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1256:
1257: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1258:
1259: IF l_debug_on THEN
1260: WSH_DEBUG_SV.logmsg(l_module_name,'Successfully closed stop '|| l_stops_to_close(i));
1261: END IF;
1262: l_closing_stop_success := l_closing_stop_success + 1;
1263: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1264: IF l_debug_on THEN
1261: END IF;
1262: l_closing_stop_success := l_closing_stop_success + 1;
1263: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1264: IF l_debug_on THEN
1265: WSH_DEBUG_SV.logmsg(l_module_name,'Trip stop '|| l_stops_to_close(i) ||' is closed with warnings');
1266: END IF;
1267: l_closing_stop_warning := l_closing_stop_warning + 1;
1268: log_batch_messages(p_sc_batch_id, NULL , l_stops_to_close(i) , l_stop_location_ids(i), NULL);
1269: ELSE
1267: l_closing_stop_warning := l_closing_stop_warning + 1;
1268: log_batch_messages(p_sc_batch_id, NULL , l_stops_to_close(i) , l_stop_location_ids(i), NULL);
1269: ELSE
1270: IF l_debug_on THEN
1271: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to close stop '|| l_stops_to_close(i));
1272: END IF;
1273:
1274: IF l_lock_error = 'Y' THEN
1275: FND_MESSAGE.SET_NAME('WSH', 'WSH_STOP_LOCK_FAILED');
1288:
1289: END LOOP;
1290:
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.logmsg(l_module_name,'Successfully closed '|| l_closing_stop_success ||' stops' );
1293: WSH_DEBUG_SV.logmsg(l_module_name,'Closed '|| l_closing_stop_warning ||' stops with warnings' );
1294: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to close '|| l_closing_stop_failure ||' stops' );
1295: END IF;
1296:
1289: END LOOP;
1290:
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.logmsg(l_module_name,'Successfully closed '|| l_closing_stop_success ||' stops' );
1293: WSH_DEBUG_SV.logmsg(l_module_name,'Closed '|| l_closing_stop_warning ||' stops with warnings' );
1294: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to close '|| l_closing_stop_failure ||' stops' );
1295: END IF;
1296:
1297: ELSE
1290:
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.logmsg(l_module_name,'Successfully closed '|| l_closing_stop_success ||' stops' );
1293: WSH_DEBUG_SV.logmsg(l_module_name,'Closed '|| l_closing_stop_warning ||' stops with warnings' );
1294: WSH_DEBUG_SV.logmsg(l_module_name,'Failed to close '|| l_closing_stop_failure ||' stops' );
1295: END IF;
1296:
1297: ELSE
1298: IF l_debug_on THEN
1295: END IF;
1296:
1297: ELSE
1298: IF l_debug_on THEN
1299: WSH_DEBUG_SV.logmsg(l_module_name, 'No manually created stops to close');
1300: END IF;
1301: END IF;
1302:
1303: IF l_ship_confirm_rule_rec.ac_defer_interface_flag = 'N' THEN
1345: raise WSH_SUBMIT_SC_REPORT_ERR;
1346: END IF;
1347:
1348: IF l_debug_on THEN
1349: WSH_DEBUG_SV.pop(l_module_name);
1350: END IF;
1351:
1352: EXCEPTION
1353:
1355: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1356: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to find the ship confirm batch ');
1357:
1358: IF l_debug_on THEN
1359: WSH_DEBUG_SV.pop(l_module_name);
1360: END IF;
1361:
1362: WHEN wsh_missing_sc_rule THEN
1363: IF get_sc_batch%ISOPEN THEN
1365: END IF;
1366: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1367: WSH_UTIL_CORE.PrintMsg('ERROR: Ship Confirm Rule is not found or has expired');
1368: IF l_debug_on THEN
1369: WSH_DEBUG_SV.pop(l_module_name);
1370: END IF;
1371:
1372: WHEN inv_inter_req_submission THEN
1373: IF get_sc_batch%ISOPEN THEN
1378: END IF;
1379: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1380: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to submit Interface concurrent request ');
1381: IF l_debug_on THEN
1382: WSH_DEBUG_SV.pop(l_module_name);
1383: END IF;
1384:
1385: WHEN WSH_SUBMIT_SC_REPORT_ERR THEN
1386: IF get_sc_batch%ISOPEN THEN
1391: END IF;
1392: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1393: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to submit Auto Ship Confirm Report ');
1394: IF l_debug_on THEN
1395: WSH_DEBUG_SV.pop(l_module_name);
1396: END IF;
1397:
1398: WHEN delivery_locked THEN
1399: IF get_sc_batch%ISOPEN THEN
1404: END IF;
1405: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1406: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to lock delivery ID ');
1407: IF l_debug_on THEN
1408: WSH_DEBUG_SV.pop(l_module_name);
1409: END IF;
1410:
1411: WHEN others THEN
1412: IF get_sc_batch%ISOPEN THEN
1417: END IF;
1418: wsh_util_core.default_handler('WSH_BATCH_PROCESS.Ship_Confirm_Batch');
1419: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1420: IF l_debug_on THEN
1421: WSH_DEBUG_SV.pop(l_module_name);
1422: END IF;
1423:
1424: END Ship_Confirm_Batch;
1425:
1494: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1495: --
1496: IF l_debug_on IS NULL
1497: THEN
1498: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1499: END IF;
1500: --
1501: IF l_debug_on THEN
1502: WSH_DEBUG_SV.push(l_module_name);
1498: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1499: END IF;
1500: --
1501: IF l_debug_on THEN
1502: WSH_DEBUG_SV.push(l_module_name);
1503: END IF;
1504:
1505: l_tmp_del_tab.delete;
1506: l_tmp_del_tab(1) := p_delivery_id;
1517: RAISE WSH_INVALID_AUTO_PACK_LEVEL;
1518: END IF;
1519:
1520: IF l_debug_on THEN
1521: WSH_DEBUG_SV.logmsg(l_module_name, 'Locking delivery '|| p_delivery_id);
1522: END IF;
1523:
1524:
1525: OPEN get_delivery(p_delivery_id);
1573: END IF; -- if delivery exist
1574:
1575: CLOSE get_delivery;
1576: IF l_debug_on THEN
1577: WSH_DEBUG_SV.pop(l_module_name);
1578: END IF;
1579:
1580: EXCEPTION
1581:
1582: WHEN WSH_INVALID_AUTO_PACK_LEVEL THEN
1583: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1584: WSH_UTIL_CORE.PrintMsg('ERROR: invalid auto pack level');
1585: IF l_debug_on THEN
1586: WSH_DEBUG_SV.logmsg(l_module_name, 'Invalid Auot Pack Level');
1587: WSH_DEBUG_SV.pop(l_module_name);
1588: END IF;
1589:
1590: WHEN delivery_locked THEN
1583: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1584: WSH_UTIL_CORE.PrintMsg('ERROR: invalid auto pack level');
1585: IF l_debug_on THEN
1586: WSH_DEBUG_SV.logmsg(l_module_name, 'Invalid Auot Pack Level');
1587: WSH_DEBUG_SV.pop(l_module_name);
1588: END IF;
1589:
1590: WHEN delivery_locked THEN
1591: CLOSE get_delivery;
1591: CLOSE get_delivery;
1592: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1593: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to lock delivery '|| to_char(p_delivery_id));
1594: IF l_debug_on THEN
1595: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: Failed to lock delivery '|| to_char(p_delivery_id));
1596: WSH_DEBUG_SV.pop(l_module_name);
1597: END IF;
1598:
1599:
1592: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1593: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to lock delivery '|| to_char(p_delivery_id));
1594: IF l_debug_on THEN
1595: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: Failed to lock delivery '|| to_char(p_delivery_id));
1596: WSH_DEBUG_SV.pop(l_module_name);
1597: END IF;
1598:
1599:
1600:
1603: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1604: wsh_util_core.default_handler('WSH_BATCH_PROCESS.Auto_Pack_A_Delivery');
1605: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to lock delivery '|| to_char(p_delivery_id));
1606: IF l_debug_on THEN
1607: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: Failed to lock delivery '|| to_char(p_delivery_id));
1608: WSH_DEBUG_SV.pop(l_module_name);
1609: END IF;
1610:
1611: END Auto_Pack_A_Delivery;
1604: wsh_util_core.default_handler('WSH_BATCH_PROCESS.Auto_Pack_A_Delivery');
1605: WSH_UTIL_CORE.PrintMsg('ERROR: Failed to lock delivery '|| to_char(p_delivery_id));
1606: IF l_debug_on THEN
1607: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: Failed to lock delivery '|| to_char(p_delivery_id));
1608: WSH_DEBUG_SV.pop(l_module_name);
1609: END IF;
1610:
1611: END Auto_Pack_A_Delivery;
1612:
1665: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1666: --
1667: IF l_debug_on IS NULL
1668: THEN
1669: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1670: END IF;
1671: --
1672: x_results_summary.success := 0;
1673: x_results_summary.warning := 0;
1677:
1678: x_packed_del_tab.delete;
1679:
1680: IF l_debug_on THEN
1681: WSH_DEBUG_SV.push(l_module_name);
1682: WSH_DEBUG_SV.logmsg(l_module_name,'AP level'||p_auto_pack_level);
1683: END IF;
1684:
1685: WSH_UTIL_CORE.PrintDateTime;
1678: x_packed_del_tab.delete;
1679:
1680: IF l_debug_on THEN
1681: WSH_DEBUG_SV.push(l_module_name);
1682: WSH_DEBUG_SV.logmsg(l_module_name,'AP level'||p_auto_pack_level);
1683: END IF;
1684:
1685: WSH_UTIL_CORE.PrintDateTime;
1686:
1690:
1691: FOR i in 1 .. p_del_tab.count LOOP
1692:
1693: IF l_debug_on THEN
1694: WSH_DEBUG_SV.logmsg(l_module_name,'Auto pack delivery ID: ' || to_char(p_del_tab(i).delivery_id));
1695: END IF;
1696:
1697: BEGIN
1698: Auto_Pack_A_Delivery(
1713: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
1714: log_batch_messages(p_ap_batch_id, NULL ,NULL, p_del_tab(i).initial_pickup_location_id, 'E');
1715:
1716: IF l_debug_on THEN
1717: WSH_DEBUG_SV.logmsg(l_module_name, 'Failed to lock delivery '|| to_char(p_del_tab(i).delivery_id));
1718: WSH_DEBUG_SV.pop('wsh.plsql.' || G_PKG_NAME || '.' || 'Auto_Pack_A_Delivery');
1719: END IF;
1720:
1721: WHEN OTHERS THEN
1714: log_batch_messages(p_ap_batch_id, NULL ,NULL, p_del_tab(i).initial_pickup_location_id, 'E');
1715:
1716: IF l_debug_on THEN
1717: WSH_DEBUG_SV.logmsg(l_module_name, 'Failed to lock delivery '|| to_char(p_del_tab(i).delivery_id));
1718: WSH_DEBUG_SV.pop('wsh.plsql.' || G_PKG_NAME || '.' || 'Auto_Pack_A_Delivery');
1719: END IF;
1720:
1721: WHEN OTHERS THEN
1722: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1725: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',to_char(p_del_tab(i).delivery_id));
1726: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
1727:
1728: IF l_debug_on THEN
1729: WSH_DEBUG_SV.logmsg(l_module_name, 'Failed to lock delivery '|| to_char(p_del_tab(i).delivery_id));
1730: WSH_DEBUG_SV.pop('wsh.plsql.' || G_PKG_NAME || '.' || 'Auto_Pack_A_Delivery');
1731: END IF;
1732:
1733:
1726: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error,l_module_name);
1727:
1728: IF l_debug_on THEN
1729: WSH_DEBUG_SV.logmsg(l_module_name, 'Failed to lock delivery '|| to_char(p_del_tab(i).delivery_id));
1730: WSH_DEBUG_SV.pop('wsh.plsql.' || G_PKG_NAME || '.' || 'Auto_Pack_A_Delivery');
1731: END IF;
1732:
1733:
1734: END;
1743:
1744: l_reset_flags := FALSE;
1745:
1746: IF l_debug_on THEN
1747: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
1748: END IF;
1749:
1750: BEGIN
1751:
1751:
1752: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
1753: x_return_status => l_return_status1);
1754: IF l_debug_on THEN
1755: WSH_DEBUG_SV.log(l_module_name,'l_return_status1',l_return_status1);
1756: END IF;
1757:
1758: IF l_return_status1 IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1759: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
1776: x_packed_del_tab(x_packed_del_tab.count).organization_id := p_del_tab(i).organization_id;
1777: x_packed_del_tab(x_packed_del_tab.count).initial_pickup_location_id := p_del_tab(i).initial_pickup_location_id;
1778:
1779: IF l_debug_on THEN
1780: WSH_DEBUG_SV.logmsg(l_module_name,'Auto Pack succeed for delivery ID: ' || to_char(p_del_tab(i).delivery_id));
1781: END IF;
1782:
1783: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1784: x_results_summary.warning := x_results_summary.warning + 1;
1787: x_packed_del_tab(x_packed_del_tab.count).initial_pickup_location_id := p_del_tab(i).initial_pickup_location_id;
1788:
1789: log_batch_messages(p_ap_batch_id, p_del_tab(i).delivery_id, NULL, p_del_tab(i).initial_pickup_location_id, 'W');
1790: IF l_debug_on THEN
1791: WSH_DEBUG_SV.logmsg(l_module_name,'Auto Pack completed with warnings for delivery ID: ' || to_char(p_del_tab(i).delivery_id));
1792: END IF;
1793:
1794: ELSE -- error or unexpected error
1795:
1796: x_results_summary.failure := x_results_summary.failure + 1;
1797:
1798:
1799: IF l_debug_on THEN
1800: WSH_DEBUG_SV.logmsg(l_module_name,'Auto Pack failed for delivery ID: ' || to_char(p_del_tab(i).delivery_id));
1801: END IF;
1802:
1803: log_batch_messages(p_ap_batch_id, p_del_tab(i).delivery_id,NULL, p_del_tab(i).initial_pickup_location_id, 'E');
1804:
1812:
1813: END LOOP;
1814:
1815: IF l_debug_on THEN
1816: WSH_DEBUG_SV.logmsg(l_module_name,'All the deliveries have been packed');
1817: END IF;
1818:
1819: -- submit Auto Pack Deliveries Reprot here
1820: x_results_summary.report_req_id := fnd_request.submit_request(
1835: END IF;
1836:
1837: --
1838: IF l_debug_on THEN
1839: WSH_DEBUG_SV.pop(l_module_name);
1840: END IF;
1841:
1842: EXCEPTION
1843:
1845: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1846: FND_MESSAGE.SET_NAME('WSH' , 'WSH_INVALID_AUTO_PACK_LEVEL');
1847: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1848: IF l_debug_on THEN
1849: WSH_DEBUG_SV.pop(l_module_name);
1850: END IF;
1851:
1852: WHEN WSH_SUBMIT_AP_REPORT_ERR THEN
1853: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1853: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1854: FND_MESSAGE.SET_NAME('WSH' , 'WSH_SUBMIT_AP_REPORT_ERR');
1855: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1856: IF l_debug_on THEN
1857: WSH_DEBUG_SV.pop(l_module_name);
1858: END IF;
1859:
1860: WHEN others THEN
1861: wsh_util_core.default_handler('WSH_BATCH_PROCESS.Auto_Pack_Deliveries_Batch');
1860: WHEN others THEN
1861: wsh_util_core.default_handler('WSH_BATCH_PROCESS.Auto_Pack_Deliveries_Batch');
1862: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1863: IF l_debug_on THEN
1864: WSH_DEBUG_SV.pop(l_module_name);
1865: END IF;
1866:
1867: END Auto_Pack_Deliveries_Batch;
1868:
1986: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1987: --
1988: IF l_debug_on IS NULL
1989: THEN
1990: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1991: END IF;
1992: --
1993: IF l_debug_on THEN
1994: WSH_DEBUG_SV.push(l_module_name);
1990: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1991: END IF;
1992: --
1993: IF l_debug_on THEN
1994: WSH_DEBUG_SV.push(l_module_name);
1995: END IF;
1996:
1997: l_completion_status := 'NORMAL';
1998:
2068: -- call adjust_planned_flag to plan the deliveries
2069: -- because during ship confirm, no other delivery
2070: -- detail lines should be appended to the deliveries
2071: IF l_debug_on THEN
2072: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling Adjust_Planned_Flag');
2073: END IF;
2074:
2075: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag(
2076: p_delivery_ids => l_delivery_ids,
2078: p_force_appending_limit => 'Y',
2079: p_call_lcss => 'N',
2080: x_return_status => l_return_status);
2081: IF l_debug_on THEN
2082: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status from Calling Adjust_Planned_Flag:'||l_return_status);
2083: END IF;
2084:
2085: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2086: l_warning_num := l_warning_num + 1;
2098: l_batch_rec.actual_departure_date :=
2099: FND_DATE.canonical_to_date(p_actual_departure_date);
2100: --
2101: IF l_debug_on THEN
2102: WSH_DEBUG_SV.log(l_module_name, 'Non Picking Flag',
2103: l_batch_rec.non_picking_flag);
2104: WSH_DEBUG_SV.log(l_module_name, 'Ship Confirm Rule ID',
2105: l_batch_rec.ship_confirm_rule_id);
2106: WSH_DEBUG_SV.log(l_module_name, 'Actual Departure Date',
2100: --
2101: IF l_debug_on THEN
2102: WSH_DEBUG_SV.log(l_module_name, 'Non Picking Flag',
2103: l_batch_rec.non_picking_flag);
2104: WSH_DEBUG_SV.log(l_module_name, 'Ship Confirm Rule ID',
2105: l_batch_rec.ship_confirm_rule_id);
2106: WSH_DEBUG_SV.log(l_module_name, 'Actual Departure Date',
2107: l_batch_rec.actual_departure_date);
2108: --
2102: WSH_DEBUG_SV.log(l_module_name, 'Non Picking Flag',
2103: l_batch_rec.non_picking_flag);
2104: WSH_DEBUG_SV.log(l_module_name, 'Ship Confirm Rule ID',
2105: l_batch_rec.ship_confirm_rule_id);
2106: WSH_DEBUG_SV.log(l_module_name, 'Actual Departure Date',
2107: l_batch_rec.actual_departure_date);
2108: --
2109: IF l_batch_rec.actual_departure_date IS NULL THEN
2110: wsh_debug_sv.logmsg(l_module_name,
2106: WSH_DEBUG_SV.log(l_module_name, 'Actual Departure Date',
2107: l_batch_rec.actual_departure_date);
2108: --
2109: IF l_batch_rec.actual_departure_date IS NULL THEN
2110: wsh_debug_sv.logmsg(l_module_name,
2111: 'NULL input parameter p_actual_departure_date');
2112: ELSE
2113: wsh_debug_sv.logmsg(l_module_name,
2114: 'NOT NULL input parameter p_actual_departure_date');
2109: IF l_batch_rec.actual_departure_date IS NULL THEN
2110: wsh_debug_sv.logmsg(l_module_name,
2111: 'NULL input parameter p_actual_departure_date');
2112: ELSE
2113: wsh_debug_sv.logmsg(l_module_name,
2114: 'NOT NULL input parameter p_actual_departure_date');
2115: END IF;
2116: --
2117: END IF;
2117: END IF;
2118:
2119: -- bug 5117876, direct insert into wsh_picking_batches table is replaced
2120: IF l_debug_on THEN
2121: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2122: END IF;
2123:
2124: WSH_PICKING_BATCHES_PKG.Insert_Row(
2125: X_Rowid => l_rowid,
2214:
2215: WSH_UTIL_CORE.PrintMsg('Ship Confirm Batch Name: ' || l_batch_rec.name);
2216:
2217: IF l_debug_on THEN
2218: WSH_DEBUG_SV.logmsg(l_module_name, 'Deliveries selected to be ship confirmed are: ');
2219: FOR k in 1 .. l_selected_del_tab.count LOOP
2220: WSH_DEBUG_SV.logmsg(l_module_name, ' delivery: ' || l_selected_del_tab(k).delivery_id);
2221: END LOOP;
2222: END IF;
2216:
2217: IF l_debug_on THEN
2218: WSH_DEBUG_SV.logmsg(l_module_name, 'Deliveries selected to be ship confirmed are: ');
2219: FOR k in 1 .. l_selected_del_tab.count LOOP
2220: WSH_DEBUG_SV.logmsg(l_module_name, ' delivery: ' || l_selected_del_tab(k).delivery_id);
2221: END LOOP;
2222: END IF;
2223:
2224: Ship_Confirm_Batch(
2257:
2258: errbuf := 'Automated Ship Confirm is completed successfully';
2259: retcode := '0';
2260: IF l_debug_on THEN
2261: WSH_DEBUG_SV.pop(l_module_name);
2262: END IF;
2263:
2264:
2265: EXCEPTION
2278: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2279: errbuf := 'Automated Ship Confirm is completed with warning';
2280: retcode := '1';
2281: IF l_debug_on THEN
2282: WSH_DEBUG_SV.pop(l_module_name);
2283: END IF;
2284:
2285: WHEN WSH_MISSING_SC_RULE THEN
2286: l_completion_status := 'WARNING';
2288: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2289: errbuf := 'Automated Ship Confirm is completed with warning';
2290: retcode := '1';
2291: IF l_debug_on THEN
2292: WSH_DEBUG_SV.pop(l_module_name);
2293: END IF;
2294:
2295: WHEN WSH_MISSING_SC_BATCH_PREFIX THEN
2296: l_completion_status := 'WARNING';
2298: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2299: errbuf := 'Automated Ship Confirm is completed with warning';
2300: retcode := '1';
2301: IF l_debug_on THEN
2302: WSH_DEBUG_SV.pop(l_module_name);
2303: END IF;
2304:
2305: WHEN WSH_NO_FUTURE_SHIPDATE THEN
2306: l_completion_status := 'WARNING';
2308: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2309: errbuf := 'Automated Ship Confirm is completed with warning';
2310: retcode := '1';
2311: IF l_debug_on THEN
2312: WSH_DEBUG_SV.pop(l_module_name);
2313: END IF;
2314:
2315: WHEN WSH_SELECT_ERR THEN
2316: l_completion_status := 'WARNING';
2318: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2319: errbuf := 'Automated Ship Confirm is completed with warning';
2320: retcode := '1';
2321: IF l_debug_on THEN
2322: WSH_DEBUG_SV.pop(l_module_name);
2323: END IF;
2324:
2325: WHEN WSH_SC_BATCH_ERR THEN
2326: l_completion_status := 'WARNING';
2328: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2329: errbuf := 'Automated Ship Confirm is completed with warning';
2330: retcode := '1';
2331: IF l_debug_on THEN
2332: WSH_DEBUG_SV.pop(l_module_name);
2333: END IF;
2334:
2335: WHEN OTHERS THEN
2336: l_completion_status := 'ERROR';
2341: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2342: errbuf := 'Automated Ship Confirm failed with unexpected error';
2343: retcode := '2';
2344: IF l_debug_on THEN
2345: WSH_DEBUG_SV.pop(l_module_name);
2346: END IF;
2347:
2348: END CONFIRM_DELIVERY_SRS;
2349:
2443: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2444: --
2445: IF l_debug_on IS NULL
2446: THEN
2447: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2448: END IF;
2449: --
2450: IF l_debug_on THEN
2451: WSH_DEBUG_SV.push(l_module_name);
2447: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2448: END IF;
2449: --
2450: IF l_debug_on THEN
2451: WSH_DEBUG_SV.push(l_module_name);
2452: END IF;
2453:
2454: l_completion_status := 'NORMAL';
2455:
2519: l_batch_rec.autopack_flag := 'Y';
2520: l_batch_rec.autopack_level := l_auto_pack_level;
2521: --
2522: IF l_debug_on THEN
2523: WSH_DEBUG_SV.log(l_module_name, 'Non Picking Flag', l_batch_rec.non_picking_flag);
2524: WSH_DEBUG_SV.log(l_module_name, 'Batch Name', l_batch_rec.name);
2525: WSH_DEBUG_SV.log(l_module_name, 'Auto Pack Flag', l_batch_rec.autopack_flag);
2526: WSH_DEBUG_SV.log(l_module_name, 'Auto Pack Level', l_batch_rec.autopack_level);
2527: END IF;
2520: l_batch_rec.autopack_level := l_auto_pack_level;
2521: --
2522: IF l_debug_on THEN
2523: WSH_DEBUG_SV.log(l_module_name, 'Non Picking Flag', l_batch_rec.non_picking_flag);
2524: WSH_DEBUG_SV.log(l_module_name, 'Batch Name', l_batch_rec.name);
2525: WSH_DEBUG_SV.log(l_module_name, 'Auto Pack Flag', l_batch_rec.autopack_flag);
2526: WSH_DEBUG_SV.log(l_module_name, 'Auto Pack Level', l_batch_rec.autopack_level);
2527: END IF;
2528:
2521: --
2522: IF l_debug_on THEN
2523: WSH_DEBUG_SV.log(l_module_name, 'Non Picking Flag', l_batch_rec.non_picking_flag);
2524: WSH_DEBUG_SV.log(l_module_name, 'Batch Name', l_batch_rec.name);
2525: WSH_DEBUG_SV.log(l_module_name, 'Auto Pack Flag', l_batch_rec.autopack_flag);
2526: WSH_DEBUG_SV.log(l_module_name, 'Auto Pack Level', l_batch_rec.autopack_level);
2527: END IF;
2528:
2529: -- bug 5117876, direct insert into wsh_picking_batches table is replaced
2522: IF l_debug_on THEN
2523: WSH_DEBUG_SV.log(l_module_name, 'Non Picking Flag', l_batch_rec.non_picking_flag);
2524: WSH_DEBUG_SV.log(l_module_name, 'Batch Name', l_batch_rec.name);
2525: WSH_DEBUG_SV.log(l_module_name, 'Auto Pack Flag', l_batch_rec.autopack_flag);
2526: WSH_DEBUG_SV.log(l_module_name, 'Auto Pack Level', l_batch_rec.autopack_level);
2527: END IF;
2528:
2529: -- bug 5117876, direct insert into wsh_picking_batches table is replaced
2530: IF l_debug_on THEN
2527: END IF;
2528:
2529: -- bug 5117876, direct insert into wsh_picking_batches table is replaced
2530: IF l_debug_on THEN
2531: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PICKING_BATCHES_PKG.INSERT_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2532: END IF;
2533:
2534: WSH_PICKING_BATCHES_PKG.Insert_Row(
2535: X_Rowid => l_rowid,
2624:
2625: WSH_UTIL_CORE.PrintMsg('Auto Pack Batch Name: ' || l_batch_rec.name);
2626:
2627: IF l_debug_on THEN
2628: WSH_DEBUG_SV.logmsg(l_module_name, 'Deliveries selected to be auto packed are: ');
2629: FOR k in 1 .. l_selected_del_tab.count LOOP
2630: WSH_DEBUG_SV.logmsg(l_module_name, ' delivery: ' || l_selected_del_tab(k).delivery_id);
2631: END LOOP;
2632: END IF;
2626:
2627: IF l_debug_on THEN
2628: WSH_DEBUG_SV.logmsg(l_module_name, 'Deliveries selected to be auto packed are: ');
2629: FOR k in 1 .. l_selected_del_tab.count LOOP
2630: WSH_DEBUG_SV.logmsg(l_module_name, ' delivery: ' || l_selected_del_tab(k).delivery_id);
2631: END LOOP;
2632: END IF;
2633:
2634: Auto_Pack_Deliveries_Batch(
2641: x_return_status => l_return_status,
2642: p_commit => FND_API.G_TRUE); -- BugFix #4001135
2643:
2644: IF l_debug_on THEN
2645: WSH_DEBUG_SV.logmsg(l_module_name, 'Deliveries successfully packed are: ');
2646: FOR k in 1 .. l_packed_del_tab.count LOOP
2647: WSH_DEBUG_SV.logmsg(l_module_name, ' delivery: ' || l_packed_del_tab(k).delivery_id);
2648: END LOOP;
2649: END IF;
2643:
2644: IF l_debug_on THEN
2645: WSH_DEBUG_SV.logmsg(l_module_name, 'Deliveries successfully packed are: ');
2646: FOR k in 1 .. l_packed_del_tab.count LOOP
2647: WSH_DEBUG_SV.logmsg(l_module_name, ' delivery: ' || l_packed_del_tab(k).delivery_id);
2648: END LOOP;
2649: END IF;
2650:
2651: WSH_UTIL_CORE.PrintDateTime;
2674: errbuf := 'Auto Pack Deliveries is completed successfully';
2675: retcode := '0';
2676:
2677: IF l_debug_on THEN
2678: WSH_DEBUG_SV.pop(l_module_name);
2679: END IF;
2680:
2681:
2682: EXCEPTION
2687: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2688: errbuf := 'Auto Pack Deliveries is completed with warning';
2689: retcode := '1';
2690: IF l_debug_on THEN
2691: WSH_DEBUG_SV.pop(l_module_name);
2692: END IF;
2693:
2694: WHEN WSH_PK_BATCH_ERR THEN
2695: l_completion_status := 'WARNING';
2697: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2698: errbuf := 'Auto Pack Deliveries is completed with warning';
2699: retcode := '1';
2700: IF l_debug_on THEN
2701: WSH_DEBUG_SV.pop(l_module_name);
2702: END IF;
2703:
2704: WHEN WSH_SELECT_ERR THEN
2705: l_completion_status := 'WARNING';
2707: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2708: errbuf := 'Auto Pack Deliveries is completed with warning';
2709: retcode := '1';
2710: IF l_debug_on THEN
2711: WSH_DEBUG_SV.pop(l_module_name);
2712: END IF;
2713:
2714: WHEN OTHERS THEN
2715: l_completion_status := 'ERROR';
2720: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
2721: errbuf := 'Auto Pack Deliveries failed with unexpected error';
2722: retcode := '2';
2723: IF l_debug_on THEN
2724: WSH_DEBUG_SV.pop(l_module_name);
2725: END IF;
2726: END Auto_Pack_Deliveries_SRS;
2727:
2728:
2755: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2756: --
2757: IF l_debug_on IS NULL
2758: THEN
2759: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2760: END IF;
2761: --
2762: IF l_debug_on THEN
2763: WSH_DEBUG_SV.push(l_module_name);
2759: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2760: END IF;
2761: --
2762: IF l_debug_on THEN
2763: WSH_DEBUG_SV.push(l_module_name);
2764: --
2765: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2766: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2767: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
2761: --
2762: IF l_debug_on THEN
2763: WSH_DEBUG_SV.push(l_module_name);
2764: --
2765: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2766: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2767: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
2768: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_LOCATION_ID',P_EXCEPTION_LOCATION_ID);
2769: WSH_DEBUG_SV.log(l_module_name,'P_ERROR_STATUS',P_ERROR_STATUS);
2762: IF l_debug_on THEN
2763: WSH_DEBUG_SV.push(l_module_name);
2764: --
2765: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2766: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2767: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
2768: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_LOCATION_ID',P_EXCEPTION_LOCATION_ID);
2769: WSH_DEBUG_SV.log(l_module_name,'P_ERROR_STATUS',P_ERROR_STATUS);
2770: END IF;
2763: WSH_DEBUG_SV.push(l_module_name);
2764: --
2765: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2766: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2767: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
2768: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_LOCATION_ID',P_EXCEPTION_LOCATION_ID);
2769: WSH_DEBUG_SV.log(l_module_name,'P_ERROR_STATUS',P_ERROR_STATUS);
2770: END IF;
2771:
2764: --
2765: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2766: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2767: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
2768: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_LOCATION_ID',P_EXCEPTION_LOCATION_ID);
2769: WSH_DEBUG_SV.log(l_module_name,'P_ERROR_STATUS',P_ERROR_STATUS);
2770: END IF;
2771:
2772: IF p_batch_id IS NULL THEN
2765: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
2766: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2767: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
2768: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_LOCATION_ID',P_EXCEPTION_LOCATION_ID);
2769: WSH_DEBUG_SV.log(l_module_name,'P_ERROR_STATUS',P_ERROR_STATUS);
2770: END IF;
2771:
2772: IF p_batch_id IS NULL THEN
2773: RETURN;
2790: l_error_message := p_error_status;
2791:
2792: c := FND_MSG_PUB.count_msg;
2793: IF l_debug_on THEN
2794: WSH_DEBUG_SV.logmsg(l_module_name,'COUNT--',c);
2795: END IF;
2796: FOR i in 1..c LOOP
2797: FND_MSG_PUB.get(p_encoded => FND_API.G_FALSE,
2798: p_msg_index => i,
2821: END IF;
2822: END LOOP;
2823: --
2824: IF l_debug_on THEN
2825: WSH_DEBUG_SV.pop(l_module_name);
2826: END IF;
2827: --
2828:
2829:
2831: WHEN OTHERS THEN
2832: WSH_UTIL_CORE.Default_Handler('WSH_BATCH_PROCESS.log_batch_messages');
2833: --
2834: IF l_debug_on THEN
2835: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION: OTHERS');
2836: END IF;
2837: --
2838:
2839: END log_batch_messages;
2899: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2900: --
2901: IF l_debug_on IS NULL
2902: THEN
2903: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2904: END IF;
2905: --
2906: IF l_debug_on THEN
2907: WSH_DEBUG_SV.push(l_module_name);
2903: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2904: END IF;
2905: --
2906: IF l_debug_on THEN
2907: WSH_DEBUG_SV.push(l_module_name);
2908: END IF;
2909: -- set default return status to SUCCESS
2910: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2911: -- clear up x_selected_det_tbl table
2928:
2929: ELSE
2930: -- invalud value in p_autocreate_deliveries
2931: IF l_debug_on THEN
2932: WSH_DEBUG_SV.logmsg(l_module_name, ' No delivery lines fetched because p_autocreate_deliveries is: '||p_autocreate_deliveries);
2933: WSH_DEBUG_SV.pop(l_module_name);
2934: END IF;
2935: return;
2936: END IF;
2929: ELSE
2930: -- invalud value in p_autocreate_deliveries
2931: IF l_debug_on THEN
2932: WSH_DEBUG_SV.logmsg(l_module_name, ' No delivery lines fetched because p_autocreate_deliveries is: '||p_autocreate_deliveries);
2933: WSH_DEBUG_SV.pop(l_module_name);
2934: END IF;
2935: return;
2936: END IF;
2937:
3112: END LOOP;
3113: END IF;
3114:
3115: IF l_debug_on THEN
3116: WSH_DEBUG_SV.logmsg(l_module_name,'Bind variables: ');
3117: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3118: WSH_DEBUG_SV.log(l_module_name,' x_organization_id', to_char(p_select_criteria.organization_id));
3119: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_lo', to_char(l_scheduled_ship_date_lo, 'DD-MON-YYYY HH24:MI:SS'));
3120: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_hi', to_char(l_scheduled_ship_date_hi, 'DD-MON-YYYY HH24:MI:SS'));
3113: END IF;
3114:
3115: IF l_debug_on THEN
3116: WSH_DEBUG_SV.logmsg(l_module_name,'Bind variables: ');
3117: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3118: WSH_DEBUG_SV.log(l_module_name,' x_organization_id', to_char(p_select_criteria.organization_id));
3119: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_lo', to_char(l_scheduled_ship_date_lo, 'DD-MON-YYYY HH24:MI:SS'));
3120: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_hi', to_char(l_scheduled_ship_date_hi, 'DD-MON-YYYY HH24:MI:SS'));
3121: WSH_DEBUG_SV.log(l_module_name,' x_source_code', p_select_criteria.source_code);
3114:
3115: IF l_debug_on THEN
3116: WSH_DEBUG_SV.logmsg(l_module_name,'Bind variables: ');
3117: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3118: WSH_DEBUG_SV.log(l_module_name,' x_organization_id', to_char(p_select_criteria.organization_id));
3119: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_lo', to_char(l_scheduled_ship_date_lo, 'DD-MON-YYYY HH24:MI:SS'));
3120: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_hi', to_char(l_scheduled_ship_date_hi, 'DD-MON-YYYY HH24:MI:SS'));
3121: WSH_DEBUG_SV.log(l_module_name,' x_source_code', p_select_criteria.source_code);
3122: WSH_DEBUG_SV.log(l_module_name,' x_ship_to_loc_id', to_char(p_select_criteria.ship_to_loc_id));
3115: IF l_debug_on THEN
3116: WSH_DEBUG_SV.logmsg(l_module_name,'Bind variables: ');
3117: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3118: WSH_DEBUG_SV.log(l_module_name,' x_organization_id', to_char(p_select_criteria.organization_id));
3119: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_lo', to_char(l_scheduled_ship_date_lo, 'DD-MON-YYYY HH24:MI:SS'));
3120: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_hi', to_char(l_scheduled_ship_date_hi, 'DD-MON-YYYY HH24:MI:SS'));
3121: WSH_DEBUG_SV.log(l_module_name,' x_source_code', p_select_criteria.source_code);
3122: WSH_DEBUG_SV.log(l_module_name,' x_ship_to_loc_id', to_char(p_select_criteria.ship_to_loc_id));
3123: WSH_DEBUG_SV.log(l_module_name,' x_customer_id', to_char(p_select_criteria.customer_id));
3116: WSH_DEBUG_SV.logmsg(l_module_name,'Bind variables: ');
3117: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3118: WSH_DEBUG_SV.log(l_module_name,' x_organization_id', to_char(p_select_criteria.organization_id));
3119: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_lo', to_char(l_scheduled_ship_date_lo, 'DD-MON-YYYY HH24:MI:SS'));
3120: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_hi', to_char(l_scheduled_ship_date_hi, 'DD-MON-YYYY HH24:MI:SS'));
3121: WSH_DEBUG_SV.log(l_module_name,' x_source_code', p_select_criteria.source_code);
3122: WSH_DEBUG_SV.log(l_module_name,' x_ship_to_loc_id', to_char(p_select_criteria.ship_to_loc_id));
3123: WSH_DEBUG_SV.log(l_module_name,' x_customer_id', to_char(p_select_criteria.customer_id));
3124: WSH_DEBUG_SV.log(l_module_name,' x_ship_method_code', p_select_criteria.ship_method_code);
3117: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3118: WSH_DEBUG_SV.log(l_module_name,' x_organization_id', to_char(p_select_criteria.organization_id));
3119: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_lo', to_char(l_scheduled_ship_date_lo, 'DD-MON-YYYY HH24:MI:SS'));
3120: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_hi', to_char(l_scheduled_ship_date_hi, 'DD-MON-YYYY HH24:MI:SS'));
3121: WSH_DEBUG_SV.log(l_module_name,' x_source_code', p_select_criteria.source_code);
3122: WSH_DEBUG_SV.log(l_module_name,' x_ship_to_loc_id', to_char(p_select_criteria.ship_to_loc_id));
3123: WSH_DEBUG_SV.log(l_module_name,' x_customer_id', to_char(p_select_criteria.customer_id));
3124: WSH_DEBUG_SV.log(l_module_name,' x_ship_method_code', p_select_criteria.ship_method_code);
3125: WSH_DEBUG_SV.log(l_module_name,' x_released_status', p_select_criteria.delivery_lines_status);
3118: WSH_DEBUG_SV.log(l_module_name,' x_organization_id', to_char(p_select_criteria.organization_id));
3119: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_lo', to_char(l_scheduled_ship_date_lo, 'DD-MON-YYYY HH24:MI:SS'));
3120: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_hi', to_char(l_scheduled_ship_date_hi, 'DD-MON-YYYY HH24:MI:SS'));
3121: WSH_DEBUG_SV.log(l_module_name,' x_source_code', p_select_criteria.source_code);
3122: WSH_DEBUG_SV.log(l_module_name,' x_ship_to_loc_id', to_char(p_select_criteria.ship_to_loc_id));
3123: WSH_DEBUG_SV.log(l_module_name,' x_customer_id', to_char(p_select_criteria.customer_id));
3124: WSH_DEBUG_SV.log(l_module_name,' x_ship_method_code', p_select_criteria.ship_method_code);
3125: WSH_DEBUG_SV.log(l_module_name,' x_released_status', p_select_criteria.delivery_lines_status);
3126: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3119: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_lo', to_char(l_scheduled_ship_date_lo, 'DD-MON-YYYY HH24:MI:SS'));
3120: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_hi', to_char(l_scheduled_ship_date_hi, 'DD-MON-YYYY HH24:MI:SS'));
3121: WSH_DEBUG_SV.log(l_module_name,' x_source_code', p_select_criteria.source_code);
3122: WSH_DEBUG_SV.log(l_module_name,' x_ship_to_loc_id', to_char(p_select_criteria.ship_to_loc_id));
3123: WSH_DEBUG_SV.log(l_module_name,' x_customer_id', to_char(p_select_criteria.customer_id));
3124: WSH_DEBUG_SV.log(l_module_name,' x_ship_method_code', p_select_criteria.ship_method_code);
3125: WSH_DEBUG_SV.log(l_module_name,' x_released_status', p_select_criteria.delivery_lines_status);
3126: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3127: END IF;
3120: WSH_DEBUG_SV.log(l_module_name,' x_scheduled_ship_date_hi', to_char(l_scheduled_ship_date_hi, 'DD-MON-YYYY HH24:MI:SS'));
3121: WSH_DEBUG_SV.log(l_module_name,' x_source_code', p_select_criteria.source_code);
3122: WSH_DEBUG_SV.log(l_module_name,' x_ship_to_loc_id', to_char(p_select_criteria.ship_to_loc_id));
3123: WSH_DEBUG_SV.log(l_module_name,' x_customer_id', to_char(p_select_criteria.customer_id));
3124: WSH_DEBUG_SV.log(l_module_name,' x_ship_method_code', p_select_criteria.ship_method_code);
3125: WSH_DEBUG_SV.log(l_module_name,' x_released_status', p_select_criteria.delivery_lines_status);
3126: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3127: END IF;
3128:
3121: WSH_DEBUG_SV.log(l_module_name,' x_source_code', p_select_criteria.source_code);
3122: WSH_DEBUG_SV.log(l_module_name,' x_ship_to_loc_id', to_char(p_select_criteria.ship_to_loc_id));
3123: WSH_DEBUG_SV.log(l_module_name,' x_customer_id', to_char(p_select_criteria.customer_id));
3124: WSH_DEBUG_SV.log(l_module_name,' x_ship_method_code', p_select_criteria.ship_method_code);
3125: WSH_DEBUG_SV.log(l_module_name,' x_released_status', p_select_criteria.delivery_lines_status);
3126: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3127: END IF;
3128:
3129: -- open cursor
3122: WSH_DEBUG_SV.log(l_module_name,' x_ship_to_loc_id', to_char(p_select_criteria.ship_to_loc_id));
3123: WSH_DEBUG_SV.log(l_module_name,' x_customer_id', to_char(p_select_criteria.customer_id));
3124: WSH_DEBUG_SV.log(l_module_name,' x_ship_method_code', p_select_criteria.ship_method_code);
3125: WSH_DEBUG_SV.log(l_module_name,' x_released_status', p_select_criteria.delivery_lines_status);
3126: WSH_DEBUG_SV.logmsg(l_module_name,'========================');
3127: END IF;
3128:
3129: -- open cursor
3130: v_CursorID := DBMS_SQL.Open_Cursor;
3145: l_line_status := p_select_criteria.delivery_lines_status;
3146: END IF;
3147: --
3148: IF l_debug_on THEN
3149: WSH_DEBUG_SV.log(l_module_name, ' l_line_status', l_line_status);
3150: WSH_DEBUG_SV.log(l_module_name, 'p_select_criteria.delivery_lines_status',
3151: p_select_criteria.delivery_lines_status);
3152: END IF;
3153: --
3146: END IF;
3147: --
3148: IF l_debug_on THEN
3149: WSH_DEBUG_SV.log(l_module_name, ' l_line_status', l_line_status);
3150: WSH_DEBUG_SV.log(l_module_name, 'p_select_criteria.delivery_lines_status',
3151: p_select_criteria.delivery_lines_status);
3152: END IF;
3153: --
3154: IF p_select_criteria.delivery_lines_status IS NOT NULL AND
3194: Loop
3195: l_records_fetched := dbms_sql.fetch_rows(v_CursorID) ;
3196: dbms_sql.column_value(v_CursorID,1,v_delivery_detail_id_tbl);
3197: IF l_debug_on THEN
3198: WSH_DEBUG_SV.logmsg(l_module_name,' Records Fetched in this pass '|| l_records_fetched);
3199: WSH_DEBUG_SV.logmsg(l_module_name,' l_fetch_count '|| l_fetch_count);
3200: WSH_DEBUG_SV.logmsg(l_module_name,' Record count in v_delivery_detail_id_tbl '||
3201: v_delivery_detail_id_tbl.count);
3202: END IF;
3195: l_records_fetched := dbms_sql.fetch_rows(v_CursorID) ;
3196: dbms_sql.column_value(v_CursorID,1,v_delivery_detail_id_tbl);
3197: IF l_debug_on THEN
3198: WSH_DEBUG_SV.logmsg(l_module_name,' Records Fetched in this pass '|| l_records_fetched);
3199: WSH_DEBUG_SV.logmsg(l_module_name,' l_fetch_count '|| l_fetch_count);
3200: WSH_DEBUG_SV.logmsg(l_module_name,' Record count in v_delivery_detail_id_tbl '||
3201: v_delivery_detail_id_tbl.count);
3202: END IF;
3203: Exit when l_records_fetched <> l_fetch_count ;
3196: dbms_sql.column_value(v_CursorID,1,v_delivery_detail_id_tbl);
3197: IF l_debug_on THEN
3198: WSH_DEBUG_SV.logmsg(l_module_name,' Records Fetched in this pass '|| l_records_fetched);
3199: WSH_DEBUG_SV.logmsg(l_module_name,' l_fetch_count '|| l_fetch_count);
3200: WSH_DEBUG_SV.logmsg(l_module_name,' Record count in v_delivery_detail_id_tbl '||
3201: v_delivery_detail_id_tbl.count);
3202: END IF;
3203: Exit when l_records_fetched <> l_fetch_count ;
3204: End Loop;
3207: For i in 1..v_delivery_detail_id_tbl.count
3208: loop
3209: x_selected_det_tbl(i) := v_delivery_detail_id_tbl(i);
3210: If l_debug_on THEN
3211: WSH_DEBUG_SV.logmsg(l_module_name,' Fetched delivery line '|| to_char(x_selected_det_tbl(i)));
3212: End If;
3213: End Loop;
3214: End If;
3215:
3214: End If;
3215:
3216: IF v_cursorID <> 0 THEN
3217: If l_debug_on THEN
3218: WSH_DEBUG_SV.logmsg(l_module_name,' Before closing cursor = '||v_cursorID );
3219: End If;
3220:
3221: DBMS_SQL.Close_Cursor(v_cursorID);
3222:
3220:
3221: DBMS_SQL.Close_Cursor(v_cursorID);
3222:
3223: If l_debug_on THEN
3224: WSH_DEBUG_SV.logmsg(l_module_name,' After closing cursor = '||v_cursorID );
3225: End If;
3226: END IF;
3227: -- done fetching
3228: -- print debug messages
3227: -- done fetching
3228: -- print debug messages
3229:
3230: IF l_debug_on THEN
3231: WSH_DEBUG_SV.logmsg(l_module_name, to_char(x_selected_det_tbl.count)||' delivery lines fetched to be processed');
3232: WSH_DEBUG_SV.pop(l_module_name);
3233: END IF;
3234:
3235: EXCEPTION
3228: -- print debug messages
3229:
3230: IF l_debug_on THEN
3231: WSH_DEBUG_SV.logmsg(l_module_name, to_char(x_selected_det_tbl.count)||' delivery lines fetched to be processed');
3232: WSH_DEBUG_SV.pop(l_module_name);
3233: END IF;
3234:
3235: EXCEPTION
3236:
3241: END IF;
3242: wsh_util_core.default_handler('WSH_BATCH_PROCESS.Select_Deliveries');
3243: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3244: IF l_debug_on THEN
3245: WSH_DEBUG_SV.pop(l_module_name);
3246: END IF;
3247:
3248: END Select_Delivery_Lines;
3249:
3310: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3311: --
3312: IF l_debug_on IS NULL
3313: THEN
3314: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3315: END IF;
3316: --
3317: IF l_debug_on THEN
3318: WSH_DEBUG_SV.push(l_module_name);
3314: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3315: END IF;
3316: --
3317: IF l_debug_on THEN
3318: WSH_DEBUG_SV.push(l_module_name);
3319: END IF;
3320:
3321: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3322: x_appended_det_num := 0;
3326: l_unappended_det_tbl.delete;
3327:
3328: -- print input parameter if debug is turned on
3329: IF l_debug_on THEN
3330: WSH_DEBUG_SV.logmsg(l_module_name,'Input Parameters:',WSH_DEBUG_SV.C_PROC_LEVEL);
3331: WSH_DEBUG_SV.logmsg(l_module_name,' p_append_flag: '|| p_append_flag,WSH_DEBUG_SV.C_PROC_LEVEL);
3332: WSH_DEBUG_SV.logmsg(l_module_name,' p_ac_del_criteria: '|| p_ac_del_criteria,WSH_DEBUG_SV.C_PROC_LEVEL);
3333: END IF;
3334:
3327:
3328: -- print input parameter if debug is turned on
3329: IF l_debug_on THEN
3330: WSH_DEBUG_SV.logmsg(l_module_name,'Input Parameters:',WSH_DEBUG_SV.C_PROC_LEVEL);
3331: WSH_DEBUG_SV.logmsg(l_module_name,' p_append_flag: '|| p_append_flag,WSH_DEBUG_SV.C_PROC_LEVEL);
3332: WSH_DEBUG_SV.logmsg(l_module_name,' p_ac_del_criteria: '|| p_ac_del_criteria,WSH_DEBUG_SV.C_PROC_LEVEL);
3333: END IF;
3334:
3335: -- set append flag
3328: -- print input parameter if debug is turned on
3329: IF l_debug_on THEN
3330: WSH_DEBUG_SV.logmsg(l_module_name,'Input Parameters:',WSH_DEBUG_SV.C_PROC_LEVEL);
3331: WSH_DEBUG_SV.logmsg(l_module_name,' p_append_flag: '|| p_append_flag,WSH_DEBUG_SV.C_PROC_LEVEL);
3332: WSH_DEBUG_SV.logmsg(l_module_name,' p_ac_del_criteria: '|| p_ac_del_criteria,WSH_DEBUG_SV.C_PROC_LEVEL);
3333: END IF;
3334:
3335: -- set append flag
3336: IF p_append_flag = 'SP' THEN
3350:
3351: -- calling WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries
3352: IF l_append_flag is NULL or l_append_flag = 'Y' THEN
3353: IF l_debug_on THEN
3354: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries',WSH_DEBUG_SV.C_PROC_LEVEL);
3355: END IF;
3356: WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries(
3357: p_delivery_detail_tbl => p_selected_det_tbl,
3358: p_append_flag => l_append_flag,
3375: x_msg_count := l_msg_count;
3376: x_msg_data := l_msg_data;
3377:
3378: IF l_debug_on THEN
3379: WSH_DEBUG_SV.logmsg(l_module_name,'Return status from DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries: '|| l_return_status,WSH_DEBUG_SV.C_PROC_LEVEL);
3380: END IF;
3381:
3382: -- handle return status from WSH_DELIVERY_DETAILS_UTILITIES.Append_to_Deliveries
3383: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3394: END IF;
3395:
3396: IF l_unappended_det_tbl.count > 0 THEN
3397: IF l_debug_on THEN
3398: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTERFACE_GRP.DELIVERY_DETAIL_ACTION',WSH_DEBUG_SV.C_PROC_LEVEL);
3399: END IF;
3400:
3401: -- calling wsh_interface_grp.delivery_detail_action with action code 'AUTOCREATE-DEL'
3402: l_action_prms.caller := 'WSH_DEPS';
3414: p_action_prms => l_action_prms ,
3415: x_action_out_rec => l_action_out_rec);
3416:
3417: IF l_debug_on THEN
3418: WSH_DEBUG_SV.logmsg(l_module_name,'Return status from WSH_INTERFACE_GRP.DELIVERY_DETAIL_ACTION:'|| l_return_status,WSH_DEBUG_SV.C_PROC_LEVEL);
3419: END IF;
3420:
3421: x_autocreate_del_det_num := l_unappended_det_tbl.count;
3422: x_appended_del_num := l_appended_del_tbl.count;
3441: COMMIT;
3442:
3443:
3444: IF l_debug_on THEN
3445: WSH_DEBUG_SV.pop(l_module_name);
3446: END IF;
3447:
3448: EXCEPTION
3449:
3450: WHEN append_to_deliveries_failed THEN
3451: ROLLBACK TO BEFORE_PROCESS_DELIVERIES;
3452: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3453: IF l_debug_on THEN
3454: WSH_DEBUG_SV.logmsg(l_module_name,'APPEND_TO_DELIVERIES_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3455: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:APPEND_TO_DELIVERIES_FAILED');
3456: END IF;
3457:
3458: WHEN autocreate_delivery_failed THEN
3451: ROLLBACK TO BEFORE_PROCESS_DELIVERIES;
3452: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3453: IF l_debug_on THEN
3454: WSH_DEBUG_SV.logmsg(l_module_name,'APPEND_TO_DELIVERIES_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3455: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:APPEND_TO_DELIVERIES_FAILED');
3456: END IF;
3457:
3458: WHEN autocreate_delivery_failed THEN
3459: ROLLBACK TO BEFORE_PROCESS_DELIVERIES;
3458: WHEN autocreate_delivery_failed THEN
3459: ROLLBACK TO BEFORE_PROCESS_DELIVERIES;
3460: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3461: IF l_debug_on THEN
3462: WSH_DEBUG_SV.logmsg(l_module_name,'AUTOCREATE_DELIVERY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3463: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:AUTOCREATE_DELIVERY_FAILED');
3464: END IF;
3465:
3466: WHEN OTHERS THEN
3459: ROLLBACK TO BEFORE_PROCESS_DELIVERIES;
3460: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3461: IF l_debug_on THEN
3462: WSH_DEBUG_SV.logmsg(l_module_name,'AUTOCREATE_DELIVERY_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3463: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:AUTOCREATE_DELIVERY_FAILED');
3464: END IF;
3465:
3466: WHEN OTHERS THEN
3467: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3475: p_encoded => FND_API.G_FALSE
3476: );
3477:
3478: IF l_debug_on THEN
3479: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3480: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3481: END IF;
3482:
3483: END Process_Delivery_Lines_Batch;
3476: );
3477:
3478: IF l_debug_on THEN
3479: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3480: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3481: END IF;
3482:
3483: END Process_Delivery_Lines_Batch;
3484:
3615: --
3616: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3617: --
3618: IF l_debug_on IS NULL THEN
3619: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3620: END IF;
3621: --
3622: IF l_debug_on THEN
3623: WSH_DEBUG_SV.push(l_module_name);
3619: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3620: END IF;
3621: --
3622: IF l_debug_on THEN
3623: WSH_DEBUG_SV.push(l_module_name);
3624: WSH_DEBUG_SV.logmsg(l_module_name,'Input Parameters: ',WSH_DEBUG_SV.C_PROC_LEVEL);
3625: WSH_DEBUG_SV.logmsg(l_module_name,'=================================',WSH_DEBUG_SV.C_PROC_LEVEL);
3626: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type: '|| p_entity_type,WSH_DEBUG_SV.C_PROC_LEVEL);
3627: WSH_DEBUG_SV.logmsg(l_module_name,'p_append_deliveries: '|| p_append_deliveries,WSH_DEBUG_SV.C_PROC_LEVEL);
3620: END IF;
3621: --
3622: IF l_debug_on THEN
3623: WSH_DEBUG_SV.push(l_module_name);
3624: WSH_DEBUG_SV.logmsg(l_module_name,'Input Parameters: ',WSH_DEBUG_SV.C_PROC_LEVEL);
3625: WSH_DEBUG_SV.logmsg(l_module_name,'=================================',WSH_DEBUG_SV.C_PROC_LEVEL);
3626: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type: '|| p_entity_type,WSH_DEBUG_SV.C_PROC_LEVEL);
3627: WSH_DEBUG_SV.logmsg(l_module_name,'p_append_deliveries: '|| p_append_deliveries,WSH_DEBUG_SV.C_PROC_LEVEL);
3628: END IF;
3621: --
3622: IF l_debug_on THEN
3623: WSH_DEBUG_SV.push(l_module_name);
3624: WSH_DEBUG_SV.logmsg(l_module_name,'Input Parameters: ',WSH_DEBUG_SV.C_PROC_LEVEL);
3625: WSH_DEBUG_SV.logmsg(l_module_name,'=================================',WSH_DEBUG_SV.C_PROC_LEVEL);
3626: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type: '|| p_entity_type,WSH_DEBUG_SV.C_PROC_LEVEL);
3627: WSH_DEBUG_SV.logmsg(l_module_name,'p_append_deliveries: '|| p_append_deliveries,WSH_DEBUG_SV.C_PROC_LEVEL);
3628: END IF;
3629:
3622: IF l_debug_on THEN
3623: WSH_DEBUG_SV.push(l_module_name);
3624: WSH_DEBUG_SV.logmsg(l_module_name,'Input Parameters: ',WSH_DEBUG_SV.C_PROC_LEVEL);
3625: WSH_DEBUG_SV.logmsg(l_module_name,'=================================',WSH_DEBUG_SV.C_PROC_LEVEL);
3626: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type: '|| p_entity_type,WSH_DEBUG_SV.C_PROC_LEVEL);
3627: WSH_DEBUG_SV.logmsg(l_module_name,'p_append_deliveries: '|| p_append_deliveries,WSH_DEBUG_SV.C_PROC_LEVEL);
3628: END IF;
3629:
3630:
3623: WSH_DEBUG_SV.push(l_module_name);
3624: WSH_DEBUG_SV.logmsg(l_module_name,'Input Parameters: ',WSH_DEBUG_SV.C_PROC_LEVEL);
3625: WSH_DEBUG_SV.logmsg(l_module_name,'=================================',WSH_DEBUG_SV.C_PROC_LEVEL);
3626: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type: '|| p_entity_type,WSH_DEBUG_SV.C_PROC_LEVEL);
3627: WSH_DEBUG_SV.logmsg(l_module_name,'p_append_deliveries: '|| p_append_deliveries,WSH_DEBUG_SV.C_PROC_LEVEL);
3628: END IF;
3629:
3630:
3631:
3867: WSH_UTIL_CORE.PrintMsg(' Log Level: '|| l_log_level );
3868: END IF;
3869:
3870: IF l_debug_on THEN
3871: WSH_DEBUG_SV.logmsg(l_module_name,'Calling WSH_TRIP_CONSOLIDATION.Create_Consolidated_Trips',WSH_DEBUG_SV.C_PROC_LEVEL);
3872: END IF;
3873:
3874: -- calling WSH_TRIP_CONSOLIDATION.Create_Consolidated_Trips to create trips
3875: WSH_TRIP_CONSOLIDATION.Create_Consolidated_Trips(
3916: WSH_UTIL_CORE.PrintMsg(to_char(l_trip_num)||' trips have been successfully created');
3917:
3918: -- print return status of autocreate trips
3919: IF l_debug_on THEN
3920: WSH_DEBUG_SV.logmsg(l_module_name,'Return status from WSH_TRIP_CONSOLIDATION.Create_Consolidated_Trips is '|| l_return_status ,WSH_DEBUG_SV.C_PROC_LEVEL);
3921: END IF;
3922:
3923: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3924: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3958: END IF; -- TP is not installed
3959: ELSE
3960:
3961: IF l_debug_on THEN
3962: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Select_Deliveries_Lines ',WSH_DEBUG_SV.C_PROC_LEVEL);
3963: END IF;
3964:
3965: -- bug 3319789
3966: IF p_pickup_date_lo is not NULL OR
4117: x_selected_det_tbl => l_selected_det_tbl,
4118: x_return_status => l_return_status);
4119:
4120: IF l_debug_on THEN
4121: WSH_DEBUG_SV.logmsg(l_module_name,'Return status from Select_Deliveries_Lines is '|| l_return_status,WSH_DEBUG_SV.C_PROC_LEVEL);
4122: END IF;
4123:
4124: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4125: -- select_delivery_lines failed, exit
4143: End Loop;
4144:
4145: -- have selected some lines for auto create
4146: IF l_debug_on THEN
4147: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery lines selected to be processed are: ');
4148: FOR k in 1 .. l_selected_det_tbl_tmp.count LOOP
4149: WSH_DEBUG_SV.logmsg(l_module_name, ' delivery lines: ' || l_selected_det_tbl_tmp(k));
4150: END LOOP;
4151:
4145: -- have selected some lines for auto create
4146: IF l_debug_on THEN
4147: WSH_DEBUG_SV.logmsg(l_module_name, 'Delivery lines selected to be processed are: ');
4148: FOR k in 1 .. l_selected_det_tbl_tmp.count LOOP
4149: WSH_DEBUG_SV.logmsg(l_module_name, ' delivery lines: ' || l_selected_det_tbl_tmp(k));
4150: END LOOP;
4151:
4152: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Process_Delivery_Lines_Batch',WSH_DEBUG_SV.C_PROC_LEVEL);
4153: END IF;
4148: FOR k in 1 .. l_selected_det_tbl_tmp.count LOOP
4149: WSH_DEBUG_SV.logmsg(l_module_name, ' delivery lines: ' || l_selected_det_tbl_tmp(k));
4150: END LOOP;
4151:
4152: WSH_DEBUG_SV.logmsg(l_module_name,'Calling Process_Delivery_Lines_Batch',WSH_DEBUG_SV.C_PROC_LEVEL);
4153: END IF;
4154:
4155: -- call Process_delivery_lines_batch to append deliveries and autocreate deliveries
4156: Process_Delivery_Lines_Batch(
4205: g_appended_del_num := g_appended_del_num + l_appended_del_num;
4206: g_new_del_num := g_new_del_num + l_new_del_num ;
4207:
4208: IF l_debug_on THEN
4209: WSH_DEBUG_SV.logmsg(l_module_name,'Return status from Process_Delivery_Lines_Batch is '|| l_return_status ,WSH_DEBUG_SV.C_PROC_LEVEL);
4210:
4211: WSH_DEBUG_SV.logmsg(l_module_name,'l_selected_det_tbl_tmp.count = '|| l_selected_det_tbl_tmp.count ,WSH_DEBUG_SV.C_PROC_LEVEL);
4212: WSH_DEBUG_SV.logmsg(l_module_name,'g_selected_det_count = '|| g_selected_det_count ,WSH_DEBUG_SV.C_PROC_LEVEL);
4213:
4207:
4208: IF l_debug_on THEN
4209: WSH_DEBUG_SV.logmsg(l_module_name,'Return status from Process_Delivery_Lines_Batch is '|| l_return_status ,WSH_DEBUG_SV.C_PROC_LEVEL);
4210:
4211: WSH_DEBUG_SV.logmsg(l_module_name,'l_selected_det_tbl_tmp.count = '|| l_selected_det_tbl_tmp.count ,WSH_DEBUG_SV.C_PROC_LEVEL);
4212: WSH_DEBUG_SV.logmsg(l_module_name,'g_selected_det_count = '|| g_selected_det_count ,WSH_DEBUG_SV.C_PROC_LEVEL);
4213:
4214: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_det_num = '|| l_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4215: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_det_num = '|| g_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4208: IF l_debug_on THEN
4209: WSH_DEBUG_SV.logmsg(l_module_name,'Return status from Process_Delivery_Lines_Batch is '|| l_return_status ,WSH_DEBUG_SV.C_PROC_LEVEL);
4210:
4211: WSH_DEBUG_SV.logmsg(l_module_name,'l_selected_det_tbl_tmp.count = '|| l_selected_det_tbl_tmp.count ,WSH_DEBUG_SV.C_PROC_LEVEL);
4212: WSH_DEBUG_SV.logmsg(l_module_name,'g_selected_det_count = '|| g_selected_det_count ,WSH_DEBUG_SV.C_PROC_LEVEL);
4213:
4214: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_det_num = '|| l_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4215: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_det_num = '|| g_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4216:
4210:
4211: WSH_DEBUG_SV.logmsg(l_module_name,'l_selected_det_tbl_tmp.count = '|| l_selected_det_tbl_tmp.count ,WSH_DEBUG_SV.C_PROC_LEVEL);
4212: WSH_DEBUG_SV.logmsg(l_module_name,'g_selected_det_count = '|| g_selected_det_count ,WSH_DEBUG_SV.C_PROC_LEVEL);
4213:
4214: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_det_num = '|| l_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4215: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_det_num = '|| g_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4216:
4217: WSH_DEBUG_SV.logmsg(l_module_name,'l_autocreate_del_det_num = '|| l_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4218: WSH_DEBUG_SV.logmsg(l_module_name,'g_autocreate_del_det_num = '|| g_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4211: WSH_DEBUG_SV.logmsg(l_module_name,'l_selected_det_tbl_tmp.count = '|| l_selected_det_tbl_tmp.count ,WSH_DEBUG_SV.C_PROC_LEVEL);
4212: WSH_DEBUG_SV.logmsg(l_module_name,'g_selected_det_count = '|| g_selected_det_count ,WSH_DEBUG_SV.C_PROC_LEVEL);
4213:
4214: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_det_num = '|| l_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4215: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_det_num = '|| g_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4216:
4217: WSH_DEBUG_SV.logmsg(l_module_name,'l_autocreate_del_det_num = '|| l_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4218: WSH_DEBUG_SV.logmsg(l_module_name,'g_autocreate_del_det_num = '|| g_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4219:
4213:
4214: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_det_num = '|| l_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4215: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_det_num = '|| g_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4216:
4217: WSH_DEBUG_SV.logmsg(l_module_name,'l_autocreate_del_det_num = '|| l_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4218: WSH_DEBUG_SV.logmsg(l_module_name,'g_autocreate_del_det_num = '|| g_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4219:
4220: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_del_num = '|| l_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4221: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_del_num = '|| g_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4214: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_det_num = '|| l_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4215: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_det_num = '|| g_appended_det_num,WSH_DEBUG_SV.C_PROC_LEVEL);
4216:
4217: WSH_DEBUG_SV.logmsg(l_module_name,'l_autocreate_del_det_num = '|| l_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4218: WSH_DEBUG_SV.logmsg(l_module_name,'g_autocreate_del_det_num = '|| g_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4219:
4220: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_del_num = '|| l_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4221: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_del_num = '|| g_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4222:
4216:
4217: WSH_DEBUG_SV.logmsg(l_module_name,'l_autocreate_del_det_num = '|| l_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4218: WSH_DEBUG_SV.logmsg(l_module_name,'g_autocreate_del_det_num = '|| g_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4219:
4220: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_del_num = '|| l_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4221: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_del_num = '|| g_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4222:
4223: WSH_DEBUG_SV.logmsg(l_module_name,'l_new_del_num = '|| l_new_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4224: WSH_DEBUG_SV.logmsg(l_module_name,'g_new_del_num = '|| g_new_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4217: WSH_DEBUG_SV.logmsg(l_module_name,'l_autocreate_del_det_num = '|| l_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4218: WSH_DEBUG_SV.logmsg(l_module_name,'g_autocreate_del_det_num = '|| g_autocreate_del_det_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4219:
4220: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_del_num = '|| l_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4221: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_del_num = '|| g_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4222:
4223: WSH_DEBUG_SV.logmsg(l_module_name,'l_new_del_num = '|| l_new_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4224: WSH_DEBUG_SV.logmsg(l_module_name,'g_new_del_num = '|| g_new_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4225: END IF;
4219:
4220: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_del_num = '|| l_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4221: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_del_num = '|| g_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4222:
4223: WSH_DEBUG_SV.logmsg(l_module_name,'l_new_del_num = '|| l_new_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4224: WSH_DEBUG_SV.logmsg(l_module_name,'g_new_del_num = '|| g_new_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4225: END IF;
4226:
4227: exit when l_processed = l_selected_det_tbl.count;
4220: WSH_DEBUG_SV.logmsg(l_module_name,'l_appended_del_num = '|| l_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4221: WSH_DEBUG_SV.logmsg(l_module_name,'g_appended_del_num = '|| g_appended_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4222:
4223: WSH_DEBUG_SV.logmsg(l_module_name,'l_new_del_num = '|| l_new_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4224: WSH_DEBUG_SV.logmsg(l_module_name,'g_new_del_num = '|| g_new_del_num, WSH_DEBUG_SV.C_PROC_LEVEL);
4225: END IF;
4226:
4227: exit when l_processed = l_selected_det_tbl.count;
4228: l_selected_det_tbl_tmp.delete;
4289: retcode := '0';
4290: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
4291:
4292: IF l_debug_on THEN
4293: WSH_DEBUG_SV.pop(l_module_name);
4294: END IF;
4295:
4296:
4297: EXCEPTION
4301: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
4302: errbuf := 'Process Deliveries completed with warnings';
4303: retcode := '1';
4304: IF l_debug_on THEN
4305: WSH_DEBUG_SV.pop(l_module_name);
4306: END IF;
4307:
4308: WHEN Process_Delivery_Lines_ERR THEN
4309: l_completion_status := 'WARNING';
4310: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
4311: errbuf := 'Process Deliveries completed with warnings';
4312: retcode := '1';
4313: IF l_debug_on THEN
4314: WSH_DEBUG_SV.pop(l_module_name);
4315: END IF;
4316:
4317: WHEN WSH_SELECT_ERR THEN
4318: WSH_UTIL_CORE.PrintMsg('Error Messages: ' || l_msg_data);
4321: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
4322: errbuf := 'Process Deliveries is completed with warning';
4323: retcode := '1';
4324: IF l_debug_on THEN
4325: WSH_DEBUG_SV.pop(l_module_name);
4326: END IF;
4327:
4328: WHEN Parameters_ERR THEN
4329: l_completion_status := 'WARNING';
4330: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
4331: errbuf := 'Process Deliveries is completed with warning';
4332: retcode := '1';
4333: IF l_debug_on THEN
4334: WSH_DEBUG_SV.pop(l_module_name);
4335: END IF;
4336:
4337:
4338: WHEN OTHERS THEN
4344: l_temp := FND_CONCURRENT.SET_COMPLETION_STATUS(l_completion_status,'');
4345: errbuf := 'Process Deliveries failed with unexpected error';
4346: retcode := '2';
4347: IF l_debug_on THEN
4348: WSH_DEBUG_SV.pop(l_module_name);
4349: END IF;
4350:
4351: END Process_Deliveries_SRS;
4352: