[Home] [Help]
119: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
120: END IF;
121: --
122: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
123: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
124: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
125: --
126: -- Debug Statements
127: --
120: END IF;
121: --
122: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
123: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
124: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
125: --
126: -- Debug Statements
127: --
128: IF l_debug_on THEN
137:
138: IF (trip_info%NOTFOUND) THEN
139: CLOSE trip_info;
140: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
141: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
142: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
143: --
144: -- Debug Statements
145: --
138: IF (trip_info%NOTFOUND) THEN
139: CLOSE trip_info;
140: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
141: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
142: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
143: --
144: -- Debug Statements
145: --
146: IF l_debug_on THEN
156: --if tp is installed and mode happens to be TL, vehicle is required
157: IF (l_ship_method IS NULL) THEN
158: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_VEHICLE_SH_M_REQ');
159: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
160: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
161: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
162: --
163: -- Debug Statements
164: --
157: IF (l_ship_method IS NULL) THEN
158: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_VEHICLE_SH_M_REQ');
159: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
160: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
161: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
162: --
163: -- Debug Statements
164: --
165: IF l_debug_on THEN
168: --
169: RETURN;
170: END IF;
171:
172: IF l_mode='TRUCK' and l_vehicle is NULL AND WSH_UTIL_CORE.TP_IS_INSTALLED='Y' THEN
173: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_MODE_TR_REQ_VEH');
174: IF l_debug_on THEN
175: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
176: END IF;
174: IF l_debug_on THEN
175: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
176: END IF;
177: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
178: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
179: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
180: --
181: -- Debug Statements
182: --
175: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
176: END IF;
177: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
178: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
179: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
180: --
181: -- Debug Statements
182: --
183: IF l_debug_on THEN
186: --
187: RETURN;
188: END IF;
189:
190: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
191:
192: OPEN deliveries_exist;
193: FETCH deliveries_exist INTO l_del_id;
194: CLOSE deliveries_exist;
202: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
203: END IF;
204: --
205: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
206: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
207: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
208: END IF;
209:
210: IF (l_vehicle IS NOT NULL) THEN
203: END IF;
204: --
205: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
206: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
207: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
208: END IF;
209:
210: IF (l_vehicle IS NOT NULL) THEN
211: OPEN vehicle_info;
223: END IF;
224: --
225: -- Bug 3697947
226: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(st.stop_id,p_caller));
227: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
228: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
229: ELSIF ((st.departure_fill_percent IS NOT NULL) AND (st.departure_fill_percent > 100)) THEN
230: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_FILL_PC_MAX');
231: --
224: --
225: -- Bug 3697947
226: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(st.stop_id,p_caller));
227: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
228: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
229: ELSIF ((st.departure_fill_percent IS NOT NULL) AND (st.departure_fill_percent > 100)) THEN
230: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_FILL_PC_MAX');
231: --
232: -- Debug Statements
236: END IF;
237: --
238: -- Bug 3697947
239: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(st.stop_id,p_caller));
240: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
241: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
242: END IF;
243: IF ((st.departure_gross_weight IS NOT NULL) AND ( l_max_wt IS NOT NULL) AND (st.departure_gross_weight > l_max_wt)) OR
244: ((st.departure_fill_percent IS NOT NULL) AND ( l_max_vol IS NOT NULL) AND (st.departure_volume > l_max_vol)) THEN
237: --
238: -- Bug 3697947
239: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(st.stop_id,p_caller));
240: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
241: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
242: END IF;
243: IF ((st.departure_gross_weight IS NOT NULL) AND ( l_max_wt IS NOT NULL) AND (st.departure_gross_weight > l_max_wt)) OR
244: ((st.departure_fill_percent IS NOT NULL) AND ( l_max_vol IS NOT NULL) AND (st.departure_volume > l_max_vol)) THEN
245: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_MAX_WT_VOL_EXCEEDED');
251: END IF;
252: --
253: -- Bug 3697947
254: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(st.stop_id, p_caller));
255: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
256: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
257: END IF;
258:
259: END LOOP;
252: --
253: -- Bug 3697947
254: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(st.stop_id, p_caller));
255: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
256: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
257: END IF;
258:
259: END LOOP;
260:
268: END IF;
269: --
270: EXCEPTION
271: WHEN others THEN
272: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_PLAN');
273: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
274: IF l_debug_on THEN
275: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
276: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
269: --
270: EXCEPTION
271: WHEN others THEN
272: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_PLAN');
273: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
274: IF l_debug_on THEN
275: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
276: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
277: END IF;
334:
335: IF (trip_info%NOTFOUND) THEN
336: CLOSE trip_info;
337: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
338: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
339: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
340: --
341: -- Debug Statements
342: --
335: IF (trip_info%NOTFOUND) THEN
336: CLOSE trip_info;
337: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
338: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
339: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
340: --
341: -- Debug Statements
342: --
343: IF l_debug_on THEN
348: END IF;
349:
350: CLOSE trip_info;
351:
352: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
353:
354: --
355: -- Debug Statements
356: --
359: END IF;
360: --
361: EXCEPTION
362: WHEN others THEN
363: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_UNPLAN');
364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
365:
366: --
367: -- Debug Statements
360: --
361: EXCEPTION
362: WHEN others THEN
363: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_UNPLAN');
364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
365:
366: --
367: -- Debug Statements
368: --
416: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
417: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
418: END IF;
419: --
420: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
421:
422: OPEN prev_stop_info;
423: FETCH prev_stop_info INTO l_stop_id;
424: IF (prev_stop_info%FOUND) THEN
431: END IF;
432: --
433: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(p_stop_id, p_caller));
434: close prev_stop_info;
435: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
436: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
437: --
438: -- Debug Statements
439: --
432: --
433: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(p_stop_id, p_caller));
434: close prev_stop_info;
435: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
436: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
437: --
438: -- Debug Statements
439: --
440: IF l_debug_on THEN
453: END IF;
454: --
455: EXCEPTION
456: WHEN others THEN
457: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.Dropoff_Del_Intransit');
458: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
459: IF prev_stop_info%ISOPEN THEN
460: CLOSE prev_stop_info;
461: END IF;
454: --
455: EXCEPTION
456: WHEN others THEN
457: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.Dropoff_Del_Intransit');
458: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
459: IF prev_stop_info%ISOPEN THEN
460: CLOSE prev_stop_info;
461: END IF;
462:
554: WSH_DEBUG_SV.log(l_module_name, 'p_curr_stop_seq', p_curr_stop_seq);
555: WSH_DEBUG_SV.log(l_module_name, 'p_curr_stop_type', p_curr_stop_type);
556: END IF;
557: --
558: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
559:
560: --wr
561: OPEN c_linked_stop(p_trip_id, p_stop_id);
562: FETCH c_linked_stop into l_linked_stop_rec;
611: -- of current stop and the previous stop
612:
613: IF p_curr_stop_type IN ('O', 'M') AND prev_stop_rec.shipments_type_flag = 'I' THEN
614: l_num_warning := l_num_warning + 1;
615: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_WARNING);
616: ELSE
617: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
618: RAISE FND_API.G_EXC_ERROR;
619: END IF;
613: IF p_curr_stop_type IN ('O', 'M') AND prev_stop_rec.shipments_type_flag = 'I' THEN
614: l_num_warning := l_num_warning + 1;
615: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_WARNING);
616: ELSE
617: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
618: RAISE FND_API.G_EXC_ERROR;
619: END IF;
620:
621: --}
624: END LOOP;
625:
626: -- Pack J IB: KVENKATE
627: IF l_num_warning > 0 THEN
628: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
629: END IF;
630:
631: --
632: -- Debug Statements
637: --
638: EXCEPTION
639: -- Pack J IB: KVENKATE
640: WHEN FND_API.G_EXC_ERROR THEN
641: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
642: IF l_debug_on THEN
643: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
644: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
645: END IF;
648: WHEN others THEN
649: IF c_linked_stop%ISOPEN THEN
650: CLOSE c_linked_stop;
651: END IF;
652: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.Check_Prev_Stop_Close');
653: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
654: IF prev_stop_info%ISOPEN THEN
655: CLOSE prev_stop_info;
656: END IF;
649: IF c_linked_stop%ISOPEN THEN
650: CLOSE c_linked_stop;
651: END IF;
652: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.Check_Prev_Stop_Close');
653: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
654: IF prev_stop_info%ISOPEN THEN
655: CLOSE prev_stop_info;
656: END IF;
657:
714: --
715: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
716: END IF;
717: --
718: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
719:
720: OPEN open_stop(p_trip_id);
721: FETCH open_stop INTO l_dummy;
722:
720: OPEN open_stop(p_trip_id);
721: FETCH open_stop INTO l_dummy;
722:
723: IF (open_stop%FOUND) THEN
724: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
725: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
726: END IF;
727:
728: CLOSE open_stop;
721: FETCH open_stop INTO l_dummy;
722:
723: IF (open_stop%FOUND) THEN
724: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
725: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
726: END IF;
727:
728: CLOSE open_stop;
729:
735: END IF;
736: --
737: EXCEPTION
738: WHEN others THEN
739: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_TRIP_CLOSE');
740: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
741: IF open_stop%ISOPEN THEN
742: CLOSE open_stop;
743: END IF;
736: --
737: EXCEPTION
738: WHEN others THEN
739: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_TRIP_CLOSE');
740: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
741: IF open_stop%ISOPEN THEN
742: CLOSE open_stop;
743: END IF;
744:
822:
823: IF (trip_info%NOTFOUND) THEN
824: CLOSE trip_info;
825: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
826: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
827: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
828: --
829: -- Debug Statements
830: --
823: IF (trip_info%NOTFOUND) THEN
824: CLOSE trip_info;
825: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
826: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
827: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
828: --
829: -- Debug Statements
830: --
831: IF l_debug_on THEN
839:
840: IF (l_status_code <> 'OP') THEN
841: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_INVALID_STATUS');
842: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
843: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
844: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
845: --
846: -- Debug Statements
847: --
840: IF (l_status_code <> 'OP') THEN
841: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_INVALID_STATUS');
842: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
843: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
844: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
845: --
846: -- Debug Statements
847: --
848: IF l_debug_on THEN
851: --
852: RETURN;
853: END IF;
854:
855: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
856:
857: IF (l_planned_flag = 'Y') THEN
858: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_DELETE_PLAN_TRIP');
859: --
863: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
864: END IF;
865: --
866: FND_MESSAGE.SET_TOKEN('TRIP_NAME', wsh_trips_pvt.get_name(p_trip_id));
867: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
868: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
869: ELSIF (l_planned_flag='F') THEN
870: FND_MESSAGE.SET_NAME('WSH','WSH_DELETE_FIRM_TRIP');
871: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
864: END IF;
865: --
866: FND_MESSAGE.SET_TOKEN('TRIP_NAME', wsh_trips_pvt.get_name(p_trip_id));
867: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
868: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
869: ELSIF (l_planned_flag='F') THEN
870: FND_MESSAGE.SET_NAME('WSH','WSH_DELETE_FIRM_TRIP');
871: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
868: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
869: ELSIF (l_planned_flag='F') THEN
870: FND_MESSAGE.SET_NAME('WSH','WSH_DELETE_FIRM_TRIP');
871: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
873: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
874: IF l_debug_on THEN
875: WSH_DEBUG_SV.pop(l_module_name);
876: END IF;
869: ELSIF (l_planned_flag='F') THEN
870: FND_MESSAGE.SET_NAME('WSH','WSH_DELETE_FIRM_TRIP');
871: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
873: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
874: IF l_debug_on THEN
875: WSH_DEBUG_SV.pop(l_module_name);
876: END IF;
877: RETURN;
883: FOR st IN stops_info LOOP
884:
885: check_stop_delete( st.stop_id, l_return_status, 'Y', p_caller);
886:
887: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
888:
889: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
890: --
891: -- Debug Statements
885: check_stop_delete( st.stop_id, l_return_status, 'Y', p_caller);
886:
887: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
888:
889: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
890: --
891: -- Debug Statements
892: --
893: IF l_debug_on THEN
918: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
919: END IF;
920: --
921: FND_MESSAGE.SET_TOKEN('TRIP_NAME', wsh_trips_pvt.get_name(p_trip_id));
922: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
923: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
924: END IF;
925:
926: --
919: END IF;
920: --
921: FND_MESSAGE.SET_TOKEN('TRIP_NAME', wsh_trips_pvt.get_name(p_trip_id));
922: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
923: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
924: END IF;
925:
926: --
927: -- Debug Statements
931: END IF;
932: --
933: EXCEPTION
934: WHEN others THEN
935: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_TRIP_DELETE');
936: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
937:
938: --
939: -- Debug Statements
932: --
933: EXCEPTION
934: WHEN others THEN
935: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_TRIP_DELETE');
936: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
937:
938: --
939: -- Debug Statements
940: --
1013:
1014: IF (trip_info%NOTFOUND) THEN
1015: CLOSE trip_info;
1016: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
1017: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1018: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1019: --
1020: -- Debug Statements
1021: --
1014: IF (trip_info%NOTFOUND) THEN
1015: CLOSE trip_info;
1016: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
1017: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1018: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1019: --
1020: -- Debug Statements
1021: --
1022: IF l_debug_on THEN
1031: OPEN group_by_carrier_set;
1032: FETCH group_by_carrier_set INTO l_cnt;
1033: CLOSE group_by_carrier_set;
1034:
1035: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1036:
1037: IF (l_cnt IS NOT NULL) THEN
1038: FND_MESSAGE.SET_NAME('WSH','Group-by-carrier-set');
1039: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1035: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1036:
1037: IF (l_cnt IS NOT NULL) THEN
1038: FND_MESSAGE.SET_NAME('WSH','Group-by-carrier-set');
1039: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1040: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1041: END IF;
1042:
1043: --
1036:
1037: IF (l_cnt IS NOT NULL) THEN
1038: FND_MESSAGE.SET_NAME('WSH','Group-by-carrier-set');
1039: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1040: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1041: END IF;
1042:
1043: --
1044: -- Debug Statements
1048: END IF;
1049: --
1050: EXCEPTION
1051: WHEN others THEN
1052: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_CHANGE_CARRIER');
1053: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1054:
1055: --
1056: -- Debug Statements
1049: --
1050: EXCEPTION
1051: WHEN others THEN
1052: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_CHANGE_CARRIER');
1053: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1054:
1055: --
1056: -- Debug Statements
1057: --
1136:
1137: IF (stop_info%NOTFOUND) THEN
1138: CLOSE stop_info;
1139: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_NOT_FOUND');
1140: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1141: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1142: --
1143: -- Debug Statements
1144: --
1137: IF (stop_info%NOTFOUND) THEN
1138: CLOSE stop_info;
1139: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_NOT_FOUND');
1140: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1141: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1142: --
1143: -- Debug Statements
1144: --
1145: IF l_debug_on THEN
1152: CLOSE stop_info;
1153:
1154: IF (l_status_code = 'CL') THEN
1155: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_INVALID_STATUS');
1156: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1157: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1158: --
1159: -- Debug Statements
1160: --
1153:
1154: IF (l_status_code = 'CL') THEN
1155: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_INVALID_STATUS');
1156: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1157: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1158: --
1159: -- Debug Statements
1160: --
1161: IF l_debug_on THEN
1182: END IF;
1183: --
1184: EXCEPTION
1185: WHEN others THEN
1186: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_STOP_ARRIVE');
1187: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1188:
1189: --
1190: -- Debug Statements
1183: --
1184: EXCEPTION
1185: WHEN others THEN
1186: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_STOP_ARRIVE');
1187: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1188:
1189: --
1190: -- Debug Statements
1191: --
1262: --
1263: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
1264: END IF;
1265: --
1266: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1267:
1268: OPEN stop_info;
1269: FETCH stop_info INTO l_stop_date, l_status_code, l_trip_id;
1270:
1270:
1271: IF (stop_info%NOTFOUND) THEN
1272: CLOSE stop_info;
1273: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_NOT_FOUND');
1274: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1275: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1276: --
1277: -- Debug Statements
1278: --
1271: IF (stop_info%NOTFOUND) THEN
1272: CLOSE stop_info;
1273: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_NOT_FOUND');
1274: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1275: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1276: --
1277: -- Debug Statements
1278: --
1279: IF l_debug_on THEN
1302: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1303: END IF;
1304: --
1305: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(p_stop_id, p_caller));
1306: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1307: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1308: --
1309: -- Debug Statements
1310: --
1303: END IF;
1304: --
1305: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(p_stop_id, p_caller));
1306: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1307: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1308: --
1309: -- Debug Statements
1310: --
1311: IF l_debug_on THEN
1325: END IF;
1326: --
1327: EXCEPTION
1328: WHEN others THEN
1329: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_STOP_CLOSE');
1330: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1331:
1332: --
1333: -- Debug Statements
1326: --
1327: EXCEPTION
1328: WHEN others THEN
1329: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_STOP_CLOSE');
1330: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1331:
1332: --
1333: -- Debug Statements
1334: --
1380: WSH_DEBUG_SV.log(l_module_name,'P_STOP_ID',P_STOP_ID);
1381: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
1382: END IF;
1383: --
1384: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1385: --
1386: -- Debug Statements
1387: --
1388: IF l_debug_on THEN
1481:
1482: IF (stop_info%NOTFOUND) THEN
1483: CLOSE stop_info;
1484: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_NOT_FOUND');
1485: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1486: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1487: --
1488: -- Debug Statements
1489: --
1482: IF (stop_info%NOTFOUND) THEN
1483: CLOSE stop_info;
1484: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_NOT_FOUND');
1485: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1486: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1487: --
1488: -- Debug Statements
1489: --
1490: IF l_debug_on THEN
1497: CLOSE stop_info;
1498:
1499: IF (l_stop_status_code <> 'OP') THEN
1500: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_INVALID_STATUS');
1501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1502: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1503: --
1504: -- Debug Statements
1505: --
1498:
1499: IF (l_stop_status_code <> 'OP') THEN
1500: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_INVALID_STATUS');
1501: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1502: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1503: --
1504: -- Debug Statements
1505: --
1506: IF l_debug_on THEN
1512:
1513: IF (l_trip_status_code = 'CL') THEN
1514: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_INVALID_STATUS');
1515: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(l_trip_id));
1516: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1517: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1518: --
1519: -- Debug Statements
1520: --
1513: IF (l_trip_status_code = 'CL') THEN
1514: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_INVALID_STATUS');
1515: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(l_trip_id));
1516: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1517: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1518: --
1519: -- Debug Statements
1520: --
1521: IF l_debug_on THEN
1534: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1535: END IF;
1536: --
1537: FND_MESSAGE.SET_TOKEN('TRIP_NAME', wsh_trips_pvt.get_name(l_trip_id));
1538: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1539: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1540: --
1541: -- Debug Statements
1542: --
1535: END IF;
1536: --
1537: FND_MESSAGE.SET_TOKEN('TRIP_NAME', wsh_trips_pvt.get_name(l_trip_id));
1538: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1539: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1540: --
1541: -- Debug Statements
1542: --
1543: IF l_debug_on THEN
1554: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1555: END IF;
1556: --
1557: FND_MESSAGE.SET_TOKEN('TRIP_NAME', wsh_trips_pvt.get_name(l_trip_id));
1558: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1559: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1560: --
1561: -- Debug Statements
1562: --
1555: END IF;
1556: --
1557: FND_MESSAGE.SET_TOKEN('TRIP_NAME', wsh_trips_pvt.get_name(l_trip_id));
1558: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1559: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1560: --
1561: -- Debug Statements
1562: --
1563: IF l_debug_on THEN
1566: --
1567: RETURN;
1568: END IF;
1569:
1570: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1571:
1572: FOR pd IN pickup_deliveries LOOP
1573: l_del_flag := 'Y';
1574: END LOOP;
1590: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1591: END IF;
1592: --
1593: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(p_stop_id, p_caller));
1594: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1595: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1596: END IF;
1597:
1598: -- Checks if freight costs exist for the stop and locks them
1591: END IF;
1592: --
1593: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(p_stop_id, p_caller));
1594: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1595: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1596: END IF;
1597:
1598: -- Checks if freight costs exist for the stop and locks them
1599:
1610: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1611: END IF;
1612: --
1613: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(p_stop_id,p_caller));
1614: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1615: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1616: END IF;
1617:
1618: --
1611: END IF;
1612: --
1613: FND_MESSAGE.SET_TOKEN('STOP_NAME', wsh_trip_stops_pvt.get_name(p_stop_id,p_caller));
1614: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1615: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1616: END IF;
1617:
1618: --
1619: -- Debug Statements
1623: END IF;
1624: --
1625: EXCEPTION
1626: WHEN others THEN
1627: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_STOP_DELETE');
1628: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1629:
1630: --
1631: -- Debug Statements
1624: --
1625: EXCEPTION
1626: WHEN others THEN
1627: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.CHECK_STOP_DELETE');
1628: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1629:
1630: --
1631: -- Debug Statements
1632: --
1649: PROCEDURE Get_Disabled_List
1650: (p_trip_id IN NUMBER,
1651: p_list_type IN VARCHAR2,
1652: x_return_status OUT NOCOPY VARCHAR2,
1653: x_disabled_list OUT NOCOPY WSH_UTIL_CORE.COLUMN_TAB_TYPE,
1654: x_msg_count OUT NOCOPY NUMBER,
1655: x_msg_data OUT NOCOPY VARCHAR2,
1656: p_caller IN VARCHAR2 -- DEFAULT NULL, --3509004:public api changes
1657: ) IS
1701: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
1702: WSH_DEBUG_SV.log(l_module_name,'P_LIST_TYPE',P_LIST_TYPE);
1703: END IF;
1704: --
1705: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1706: --OTM R12, glog proj, use Global Variable
1707: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1708: IF l_gc3_is_installed IS NULL THEN-- call function
1709: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1703: END IF;
1704: --
1705: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1706: --OTM R12, glog proj, use Global Variable
1707: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1708: IF l_gc3_is_installed IS NULL THEN-- call function
1709: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1710: END IF;
1711:
1705: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1706: --OTM R12, glog proj, use Global Variable
1707: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1708: IF l_gc3_is_installed IS NULL THEN-- call function
1709: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1710: END IF;
1711:
1712: -- clear the disabled list first
1713: x_disabled_list.delete;
1904: -- OTM R12, glog proj
1905: IF get_trip_status%ISOPEN THEN
1906: CLOSE get_trip_status;
1907: END IF;
1908: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1909: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
1910: FND_MESSAGE.Set_Token('ENTITY_ID',p_trip_id);
1911: wsh_util_core.add_message(x_return_status,l_module_name);
1912: IF l_debug_on THEN
1907: END IF;
1908: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1909: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
1910: FND_MESSAGE.Set_Token('ENTITY_ID',p_trip_id);
1911: wsh_util_core.add_message(x_return_status,l_module_name);
1912: IF l_debug_on THEN
1913: -- Nothing is updateable
1914: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
1915: END IF;
1920: IF get_trip_status%ISOPEN THEN
1921: CLOSE get_trip_status;
1922: END IF;
1923: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_ENTITY');
1924: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR);
1925: x_return_status := FND_API.G_RET_STS_ERROR;
1926: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1927: if x_msg_count > 1 then
1928: x_msg_data := l_msg_summary || l_msg_details;
1922: END IF;
1923: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_ENTITY');
1924: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR);
1925: x_return_status := FND_API.G_RET_STS_ERROR;
1926: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1927: if x_msg_count > 1 then
1928: x_msg_data := l_msg_summary || l_msg_details;
1929: else
1930: x_msg_data := l_msg_summary;
1944: IF get_trip_status%ISOPEN THEN
1945: CLOSE get_trip_status;
1946: END IF;
1947: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
1948: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR);
1949: x_return_status := FND_API.G_RET_STS_ERROR;
1950: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1951: if x_msg_count > 1 then
1952: x_msg_data := l_msg_summary || l_msg_details;
1946: END IF;
1947: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
1948: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR);
1949: x_return_status := FND_API.G_RET_STS_ERROR;
1950: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
1951: if x_msg_count > 1 then
1952: x_msg_data := l_msg_summary || l_msg_details;
1953: else
1954: x_msg_data := l_msg_summary;
1967: CLOSE get_trip_status;
1968: END IF;
1969:
1970: FND_MESSAGE.Set_Name('WSH','WSH_UNEXPECTED_ERROR');
1971: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1972:
1973:
1974: --
1975: -- Debug Statements
2054: -- new message
2055: -- Stop Sequence Number cannot be updated for a planned trip.
2056: IF l_trip_planned ='Y' THEN
2057: FND_MESSAGE.Set_Name('WSH','WSH_PLANNED_TRIP');
2058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2059: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2060: --
2061: -- Debug Statements
2062: --
2055: -- Stop Sequence Number cannot be updated for a planned trip.
2056: IF l_trip_planned ='Y' THEN
2057: FND_MESSAGE.Set_Name('WSH','WSH_PLANNED_TRIP');
2058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2059: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2060: --
2061: -- Debug Statements
2062: --
2063: IF l_debug_on THEN
2066: --
2067: RETURN;
2068: ELSIF l_trip_planned = 'F' THEN
2069: FND_MESSAGE.Set_Name('WSH','WSH_FIRMED_TRIP');
2070: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2071: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2072: --
2073: -- Debug Statements
2074: --
2067: RETURN;
2068: ELSIF l_trip_planned = 'F' THEN
2069: FND_MESSAGE.Set_Name('WSH','WSH_FIRMED_TRIP');
2070: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2071: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2072: --
2073: -- Debug Statements
2074: --
2075: IF l_debug_on THEN
2086: /*
2087: ELSE -- fields are not null
2088: --invalid trip stop information
2089: FND_MESSAGE.Set_Name('WSH','WSH_STOP_NOT_FOUND');
2090: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2091: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2092: --
2093: -- Debug Statements
2094: --
2087: ELSE -- fields are not null
2088: --invalid trip stop information
2089: FND_MESSAGE.Set_Name('WSH','WSH_STOP_NOT_FOUND');
2090: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2091: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
2092: --
2093: -- Debug Statements
2094: --
2095: IF l_debug_on THEN
2100:
2101: END IF; -- fields are not null
2102:
2103: */
2104: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2105: --
2106: -- Debug Statements
2107: --
2108: IF l_debug_on THEN
2116: p_trip_rec_tab IN trip_rec_tab_type,
2117: p_action IN VARCHAR2,
2118: p_caller IN VARCHAR2,
2119: x_return_status OUT NOCOPY VARCHAR2,
2120: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
2121: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
2122: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
2123: ) IS
2124:
2117: p_action IN VARCHAR2,
2118: p_caller IN VARCHAR2,
2119: x_return_status OUT NOCOPY VARCHAR2,
2120: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
2121: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
2122: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
2123: ) IS
2124:
2125: -- Added wsp.otm_enabled column for OTM R12 - org specific
2118: p_caller IN VARCHAR2,
2119: x_return_status OUT NOCOPY VARCHAR2,
2120: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
2121: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
2122: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
2123: ) IS
2124:
2125: -- Added wsp.otm_enabled column for OTM R12 - org specific
2126: CURSOR trip_to_del_cur(p_trip_id IN NUMBER) is
2148: AND wt.trip_id = p_trip_id
2149: and wsp.organization_id = wnd.organization_id; -- OTM R12, glog proj
2150:
2151: l_trip_actions_tab TripActionsTabType;
2152: l_valid_ids wsh_util_core.id_tab_type;
2153: l_error_ids wsh_util_core.id_tab_type;
2154: l_valid_index_tab wsh_util_core.id_tab_type;
2155: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
2156: l_move_id NUMBER:= NULL;
2149: and wsp.organization_id = wnd.organization_id; -- OTM R12, glog proj
2150:
2151: l_trip_actions_tab TripActionsTabType;
2152: l_valid_ids wsh_util_core.id_tab_type;
2153: l_error_ids wsh_util_core.id_tab_type;
2154: l_valid_index_tab wsh_util_core.id_tab_type;
2155: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
2156: l_move_id NUMBER:= NULL;
2157:
2150:
2151: l_trip_actions_tab TripActionsTabType;
2152: l_valid_ids wsh_util_core.id_tab_type;
2153: l_error_ids wsh_util_core.id_tab_type;
2154: l_valid_index_tab wsh_util_core.id_tab_type;
2155: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
2156: l_move_id NUMBER:= NULL;
2157:
2158: l_pass_section_a VARCHAR2(1):='Y';
2194: IF l_debug_on THEN
2195: WSH_DEBUG_SV.log(l_module_name,'Init_Detail_Actions_Tbl x_return_status',x_return_status);
2196: END IF;
2197:
2198: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
2199: raise error_in_init_actions;
2200: END IF;
2201:
2202:
2267: IF l_debug_on THEN
2268: wsh_debug_sv.log(l_module_name, 'Message Name is', l_trip_actions_tab(l_loop_counter).message_name);
2269: END IF;
2270: FND_MESSAGE.SET_NAME('WSH',l_trip_actions_tab(l_loop_counter).message_name);
2271: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
2272: END IF;
2273: RAISE e_set_messages;
2274: END IF;
2275: EXIT WHEN l_loop_counter >= l_trip_actions_tab.LAST;
2298: IF l_debug_on THEN
2299: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_VALIDATIONS.Is_Action_Enabled l_return_status',l_return_status);
2300: END IF;
2301:
2302: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
2303: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)
2304: THEN
2305: RAISE e_set_messages;
2306: --J-IB-NPARIKH--{
2299: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_VALIDATIONS.Is_Action_Enabled l_return_status',l_return_status);
2300: END IF;
2301:
2302: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
2303: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)
2304: THEN
2305: RAISE e_set_messages;
2306: --J-IB-NPARIKH--{
2307: ELSIF p_action = 'INCLUDE_PLAN'
2304: THEN
2305: RAISE e_set_messages;
2306: --J-IB-NPARIKH--{
2307: ELSIF p_action = 'INCLUDE_PLAN'
2308: AND l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2309: THEN
2310: --
2311: -- If some of the deliveries cannot be included for planning,
2312: -- then trip cannot be included for planning.
2331: wsh_debug_sv.log(l_module_name, 'Trip has lane id : ', p_trip_rec_tab(j).lane_id);
2332: END IF;
2333: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_SEL_TRIP_LANE');
2334: FND_MESSAGE.SET_TOKEN('TRIPID',p_trip_rec_tab(j).trip_id);
2335: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
2336: RAISE e_set_messages;
2337: END IF;
2338:
2339: -- Perform continuous move check here
2345: wsh_debug_sv.log(l_module_name, 'Trip has continuous move id id : ', l_move_id);
2346: END IF;
2347: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_SEL_TRIP_MOVE');
2348: FND_MESSAGE.SET_TOKEN('TRIPID',p_trip_rec_tab(j).trip_id);
2349: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
2350: RAISE e_set_messages;
2351:
2352: END IF;
2353: x_valid_ids(x_valid_ids.COUNT + 1) := p_trip_rec_tab(j).trip_id;
2361: WHEN e_set_messages THEN
2362: x_error_ids(x_error_ids.COUNT + 1) := p_trip_rec_tab(j).trip_id;
2363: IF p_caller = 'WSH_PUB' or p_caller like 'FTE%' THEN
2364: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_ACTION_INELIGIBLE');
2365: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('TRIP',p_action));
2366: FND_MESSAGE.Set_Token('TRIP_NAME',
2367: wsh_trips_pvt.get_name(x_error_ids(x_error_ids.COUNT)));
2368: wsh_util_core.add_message('E',l_module_name);
2369: END IF;
2364: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_ACTION_INELIGIBLE');
2365: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('TRIP',p_action));
2366: FND_MESSAGE.Set_Token('TRIP_NAME',
2367: wsh_trips_pvt.get_name(x_error_ids(x_error_ids.COUNT)));
2368: wsh_util_core.add_message('E',l_module_name);
2369: END IF;
2370: END;
2371:
2372: END LOOP; -- FOR j IN p_trip_rec_tab.FIRST
2371:
2372: END LOOP; -- FOR j IN p_trip_rec_tab.FIRST
2373:
2374: IF (x_valid_ids.COUNT = 0 ) THEN
2375: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2376: --
2377: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2378: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
2379: wsh_util_core.add_message(x_return_status,l_module_name);
2375: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2376: --
2377: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2378: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
2379: wsh_util_core.add_message(x_return_status,l_module_name);
2380: END IF;
2381: --
2382: ELSIF (x_valid_ids.COUNT = p_trip_rec_tab.COUNT) THEN
2383: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2379: wsh_util_core.add_message(x_return_status,l_module_name);
2380: END IF;
2381: --
2382: ELSIF (x_valid_ids.COUNT = p_trip_rec_tab.COUNT) THEN
2383: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2384: ELSIF (x_valid_ids.COUNT < p_trip_rec_tab.COUNT ) THEN
2385: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2386: --
2387: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2381: --
2382: ELSIF (x_valid_ids.COUNT = p_trip_rec_tab.COUNT) THEN
2383: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2384: ELSIF (x_valid_ids.COUNT < p_trip_rec_tab.COUNT ) THEN
2385: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2386: --
2387: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2388: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
2389: wsh_util_core.add_message(x_return_status,l_module_name);
2385: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2386: --
2387: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2388: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
2389: wsh_util_core.add_message(x_return_status,l_module_name);
2390: END IF;
2391: --
2392: ElSE
2393: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2389: wsh_util_core.add_message(x_return_status,l_module_name);
2390: END IF;
2391: --
2392: ElSE
2393: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2394: --
2395: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2396: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
2397: wsh_util_core.add_message(x_return_status,l_module_name);
2393: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2394: --
2395: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2396: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
2397: wsh_util_core.add_message(x_return_status,l_module_name);
2398: END IF;
2399: --
2400: END IF;
2401:
2410: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:error_in_init_actions');
2411: END IF;
2412:
2413: WHEN OTHERS THEN
2414: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.IS_ACTION_ENABLED');
2415: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2416: IF l_debug_on THEN
2417: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2418: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2411: END IF;
2412:
2413: WHEN OTHERS THEN
2414: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.IS_ACTION_ENABLED');
2415: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2416: IF l_debug_on THEN
2417: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2418: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2419: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2457: WSH_DEBUG_SV.log(l_module_name,'p_arr_after_trip_id',p_arr_after_trip_id);
2458: WSH_DEBUG_SV.log(l_module_name,'p_arr_after_trip_name',p_arr_after_trip_name);
2459: END IF;
2460:
2461: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2462:
2463: IF ((p_trip_id IS NULL OR p_trip_id = fnd_api.g_miss_num)
2464: OR ((p_arr_after_trip_id IS NULL OR p_arr_after_trip_id=fnd_api.g_miss_num)
2465: and (p_arr_after_trip_name IS NULL or p_arr_after_trip_name=fnd_api.g_miss_char)
2464: OR ((p_arr_after_trip_id IS NULL OR p_arr_after_trip_id=fnd_api.g_miss_num)
2465: and (p_arr_after_trip_name IS NULL or p_arr_after_trip_name=fnd_api.g_miss_char)
2466: )
2467: ) THEN
2468: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2469: IF l_debug_on THEN
2470: WSH_DEBUG_SV.pop(l_module_name);
2471: END IF;
2472: RETURN;
2472: RETURN;
2473: END IF;
2474:
2475: IF (p_trip_id = p_arr_after_trip_id ) THEN
2476: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2477: ELSE
2478: IF (p_arr_after_trip_id IS NOT NULL ) THEN
2479: OPEN get_trip_id(p_arr_after_trip_id);
2480: FETCH get_trip_id INTO l_status;
2487: l_status := FND_API.G_MISS_CHAR;
2488: END IF;
2489:
2490: IF (l_status IS NULL OR p_trip_id = p_arr_after_trip_id) THEN
2491: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2492: END IF;
2493:
2494: END IF;
2495:
2492: END IF;
2493:
2494: END IF;
2495:
2496: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2497: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ARR_AFTER_TRIP');
2498: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
2499: END IF;
2500:
2494: END IF;
2495:
2496: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2497: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ARR_AFTER_TRIP');
2498: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
2499: END IF;
2500:
2501: IF l_debug_on THEN
2502: WSH_DEBUG_SV.pop(l_module_name);
2503: END IF;
2504:
2505: EXCEPTION
2506: WHEN OTHERS THEN
2507: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.VALIDATE_ARRIVE_AFTER_TRIP');
2508: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2509: IF l_debug_on THEN
2510: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2511: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2504:
2505: EXCEPTION
2506: WHEN OTHERS THEN
2507: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.VALIDATE_ARRIVE_AFTER_TRIP');
2508: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2509: IF l_debug_on THEN
2510: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2511: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2512: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2530:
2531: l_debug_on BOOLEAN;
2532: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'VALIDATE_CONSOL_ALLOWED';
2533: l_consolidation_allowed VARCHAR2(100);
2534: l_entity_ids WSH_UTIL_CORE.id_tab_type;
2535: BEGIN
2536: --
2537: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2538: --
2542: END IF;
2543: --
2544:
2545:
2546: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2547:
2548: -- Bug fix: 3365750
2549: -- Do not give error if FTE is not installed.
2550: -- Proceed with code only if FTE is installed. Do nothing if NOT installed.
2547:
2548: -- Bug fix: 3365750
2549: -- Do not give error if FTE is not installed.
2550: -- Proceed with code only if FTE is installed. Do nothing if NOT installed.
2551: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
2552: l_consolidation_allowed :=p_db_trip_info.consolidation_allowed;
2553: l_vehicle_item_id :=p_db_trip_info.vehicle_item_id;
2554: l_vehicle_organization_id :=p_db_trip_info.vehicle_organization_id;
2555: l_ship_method_code :=p_db_trip_info.ship_method_code;
2612: END IF;
2613:
2614: EXCEPTION
2615: WHEN OTHERS THEN
2616: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.VALIDATE_CONSOL_ALLOWED');
2617: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2618: IF l_debug_on THEN
2619: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2620: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2613:
2614: EXCEPTION
2615: WHEN OTHERS THEN
2616: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.VALIDATE_CONSOL_ALLOWED');
2617: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2618: IF l_debug_on THEN
2619: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2620: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2621: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2974:
2975: EXCEPTION
2976: -- OTM 12, glog proj, no debug or x_return_status variable here
2977: WHEN OTHERS THEN
2978: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.ELIMINATE_DISPLAYONLY_FIELDS');
2979:
2980: END eliminate_displayonly_fields;
2981:
2982: /*----------------------------------------------------------
2984: -- and disables the field contained in p_disabled_list.
2985: -----------------------------------------------------------*/
2986:
2987: PROCEDURE disable_from_list(
2988: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
2989: , p_in_rec IN WSH_TRIPS_PVT.trip_rec_type
2990: , x_out_rec IN OUT NOCOPY WSH_TRIPS_PVT.trip_rec_type
2991: , x_return_status OUT NOCOPY VARCHAR2
2992: , x_field_name OUT NOCOPY VARCHAR2
3031: NULL;
3032: ELSE
3033: -- invalid name
3034: x_field_name := p_disabled_list(i);
3035: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3036: RETURN;
3037: --
3038: END IF;
3039: END LOOP;
3150: -- included in p_disabled_list and will enable them
3151: -----------------------------------------------------------*/
3152:
3153: PROCEDURE enable_from_list(
3154: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
3155: , p_in_rec IN WSH_TRIPS_PVT.trip_rec_type
3156: , x_out_rec IN OUT NOCOPY WSH_TRIPS_PVT.trip_rec_type
3157: , x_return_status OUT NOCOPY VARCHAR2
3158: , x_field_name OUT NOCOPY VARCHAR2
3436: END IF;
3437: ELSE
3438: -- invalid name
3439: x_field_name := p_disabled_list(i);
3440: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3441: RETURN;
3442: --
3443: END IF;
3444: END LOOP;
3445:
3446: EXCEPTION
3447: -- OTM R12, glog proj, add when Others exception handler
3448: WHEN others THEN
3449: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.ENABLE_FROM_LIST');
3450: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3451:
3452: END enable_from_list;
3453:
3446: EXCEPTION
3447: -- OTM R12, glog proj, add when Others exception handler
3448: WHEN others THEN
3449: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.ENABLE_FROM_LIST');
3450: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3451:
3452: END enable_from_list;
3453:
3454: --
3463: , x_msg_data OUT NOCOPY VARCHAR2
3464: , x_trip_rec OUT NOCOPY WSH_TRIPS_PVT.trip_rec_type
3465: )
3466: IS
3467: l_disabled_list WSH_UTIL_CORE.column_tab_type;
3468: l_db_col_rec WSH_TRIPS_PVT.trip_rec_type;
3469: l_return_status VARCHAR2(30);
3470: l_field_name VARCHAR2(100);
3471: l_debug_on BOOLEAN;
3534: , x_msg_data
3535: , l_caller --3509004:public api changes
3536: );
3537: --
3538: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
3539: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
3540: THEN
3541: --
3542: IF l_debug_on THEN
3535: , l_caller --3509004:public api changes
3536: );
3537: --
3538: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
3539: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
3540: THEN
3541: --
3542: IF l_debug_on THEN
3543: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
3559: p_trip_id => p_trip_rec.trip_id,
3560: x_trip_info => x_trip_rec,
3561: x_return_status => x_return_status);
3562:
3563: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3564: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3565: RAISE e_dp_no_entity;
3566: END IF;
3567:
3560: x_trip_info => x_trip_rec,
3561: x_return_status => x_return_status);
3562:
3563: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3564: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3565: RAISE e_dp_no_entity;
3566: END IF;
3567:
3568: --
3649: p_trip_rec,
3650: x_trip_rec,
3651: l_return_status,
3652: l_field_name);
3653: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3654: RAISE e_bad_field;
3655: END IF;
3656: --
3657: END IF;
3680: x_trip_rec,
3681: l_return_status,
3682: l_field_name
3683: );
3684: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3685: RAISE e_bad_field;
3686: END IF;
3687: --
3688: END IF;
3697: p_out_rec => x_trip_rec,
3698: p_in_rec => p_in_rec,
3699: x_return_status => l_return_status);
3700: --
3701: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3702: x_return_status := l_return_status;
3703: END IF;
3704: --
3705: END IF;
3709: END IF;
3710: --
3711: EXCEPTION
3712: WHEN e_all_disabled THEN
3713: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3714: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
3715: FND_MESSAGE.Set_Token('ENTITY_ID',p_trip_rec.trip_id);
3716: wsh_util_core.add_message(x_return_status,l_module_name);
3717: IF l_debug_on THEN
3712: WHEN e_all_disabled THEN
3713: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3714: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
3715: FND_MESSAGE.Set_Token('ENTITY_ID',p_trip_rec.trip_id);
3716: wsh_util_core.add_message(x_return_status,l_module_name);
3717: IF l_debug_on THEN
3718: -- Nothing is updateable
3719: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
3720: END IF;
3718: -- Nothing is updateable
3719: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
3720: END IF;
3721: WHEN e_dp_no_entity THEN
3722: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3723: -- the message for this is set in original get_disabled_list
3724: IF l_debug_on THEN
3725: WSH_DEBUG_SV.pop(l_module_name,'e_dp_no_entity');
3726: END IF;
3724: IF l_debug_on THEN
3725: WSH_DEBUG_SV.pop(l_module_name,'e_dp_no_entity');
3726: END IF;
3727: WHEN e_bad_field THEN
3728: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3729: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
3730: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
3731: wsh_util_core.add_message(x_return_status,l_module_name);
3732: IF l_debug_on THEN
3727: WHEN e_bad_field THEN
3728: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3729: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
3730: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
3731: wsh_util_core.add_message(x_return_status,l_module_name);
3732: IF l_debug_on THEN
3733: WSH_DEBUG_SV.log(l_module_name,'Bad field name passed to the list:'
3734: ,l_field_name);
3735: WSH_DEBUG_SV.pop(l_module_name,'e_bad_field');
3735: WSH_DEBUG_SV.pop(l_module_name,'e_bad_field');
3736: END IF;
3737:
3738: WHEN OTHERS THEN
3739: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list'
3740: ,l_module_name);
3741: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3742: IF l_debug_on THEN
3743: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
3737:
3738: WHEN OTHERS THEN
3739: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list'
3740: ,l_module_name);
3741: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3742: IF l_debug_on THEN
3743: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
3744: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3745: END IF;
3770: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3771: END IF;
3772:
3773: --OTM R12, glog proj, use Global Variable
3774: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3775:
3776: -- If null, call the function
3777: IF l_gc3_is_installed IS NULL THEN
3778: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3774: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3775:
3776: -- If null, call the function
3777: IF l_gc3_is_installed IS NULL THEN
3778: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3779: END IF;
3780: -- end of OTM R12, glog proj
3781:
3782:
3929: --
3930: WSH_DEBUG_SV.log(l_module_name,'p_action', p_action);
3931: END IF;
3932: --
3933: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3934:
3935: IF l_debug_on THEN
3936: WSH_DEBUG_SV.pop(l_module_name);
3937: END IF;
3938:
3939: EXCEPTION
3940: -- OTM R12, glog proj
3941: WHEN OTHERS THEN
3942: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_TRIP_VALIDATIONS.init_trip_actions_tbl'
3943: ,l_module_name);
3944: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3945: IF l_debug_on THEN
3946: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3940: -- OTM R12, glog proj
3941: WHEN OTHERS THEN
3942: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_TRIP_VALIDATIONS.init_trip_actions_tbl'
3943: ,l_module_name);
3944: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3945: IF l_debug_on THEN
3946: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3947: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3948: END IF;
3966: ------------------------------------------------------------------------------
3967: */
3968: -- THIS PROCEDURE IS OBSOLETE
3969: PROCEDURE Get_Trip_Calc_Wtvol
3970: (p_tab_id IN wsh_util_core.id_tab_type,
3971: p_entity IN VARCHAR2,
3972: p_action_code IN VARCHAR2,
3973: p_phase IN NUMBER,
3974: x_trip_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
3970: (p_tab_id IN wsh_util_core.id_tab_type,
3971: p_entity IN VARCHAR2,
3972: p_action_code IN VARCHAR2,
3973: p_phase IN NUMBER,
3974: x_trip_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
3975: x_return_status OUT NOCOPY VARCHAR2
3976: ) IS
3977:
3978: BEGIN
3976: ) IS
3977:
3978: BEGIN
3979:
3980: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3981:
3982: END get_trip_calc_wtvol;
3983:
3984: -- End for Load Tender Project
4086: CLOSE any_open_stop;
4087: --bug 3410681
4088: x_allowed := 'NT';
4089:
4090: RAISE wsh_util_core.e_not_allowed;
4091: END IF;
4092: --
4093: CLOSE any_open_stop;
4094: --
4109: p_logging_entity_name => 'TRIP',
4110: p_consider_content => 'Y',
4111: x_exceptions_tab => l_exceptions_tab
4112: );
4113: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4114: x_return_status := l_return_status;
4115: wsh_util_core.add_message(x_return_status);
4116: RAISE FND_API.G_EXC_ERROR;
4117: END IF;
4111: x_exceptions_tab => l_exceptions_tab
4112: );
4113: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4114: x_return_status := l_return_status;
4115: wsh_util_core.add_message(x_return_status);
4116: RAISE FND_API.G_EXC_ERROR;
4117: END IF;
4118: FOR exp_cnt in 1..l_exceptions_tab.COUNT LOOP
4119: IF l_exceptions_tab(exp_cnt).exception_behavior = 'ERROR' THEN
4123: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4124: END IF;
4125:
4126: -- BugFix #3947506
4127: WSH_UTIL_CORE.Get_Entity_Name
4128: ( l_exceptions_tab(exp_cnt).entity_id,
4129: l_exceptions_tab(exp_cnt).entity_name,
4130: l_out_entity_id,
4131: l_out_entity_name,
4130: l_out_entity_id,
4131: l_out_entity_name,
4132: l_out_status);
4133:
4134: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4135: wsh_util_core.add_message(l_out_status);
4136: RAISE FND_API.G_EXC_ERROR;
4137: END IF;
4138: -- End of code BugFix #3947506
4131: l_out_entity_name,
4132: l_out_status);
4133:
4134: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4135: wsh_util_core.add_message(l_out_status);
4136: RAISE FND_API.G_EXC_ERROR;
4137: END IF;
4138: -- End of code BugFix #3947506
4139:
4139:
4140: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4141: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4142: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4143: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4144: wsh_util_core.add_message(x_return_status);
4145: l_num_warnings := l_num_warnings + 1;
4146:
4147: --bug 3410681
4140: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4141: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4142: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4143: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4144: wsh_util_core.add_message(x_return_status);
4145: l_num_warnings := l_num_warnings + 1;
4146:
4147: --bug 3410681
4148: x_allowed := 'N';
4148: x_allowed := 'N';
4149: l_out_entity_id := ''; -- BugFix #3947506
4150: l_out_entity_name := ''; -- BugFix #3947506
4151:
4152: RAISE wsh_util_core.e_not_allowed;
4153: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4154: IF l_exceptions_tab(exp_cnt).entity_name = 'TRIP' THEN
4155: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4156: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4155: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4156: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4157: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_trips_pvt.get_name(l_exceptions_tab(exp_cnt).entity_id));
4158: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4159: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4160: wsh_util_core.add_message(x_return_status);
4161: l_num_warnings := l_num_warnings + 1;
4162: l_exp_warning := TRUE;
4163: ELSIF NOT (l_exp_logged) THEN
4156: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4157: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_trips_pvt.get_name(l_exceptions_tab(exp_cnt).entity_id));
4158: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4159: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4160: wsh_util_core.add_message(x_return_status);
4161: l_num_warnings := l_num_warnings + 1;
4162: l_exp_warning := TRUE;
4163: ELSIF NOT (l_exp_logged) THEN
4164: -- BugFix #3947506
4161: l_num_warnings := l_num_warnings + 1;
4162: l_exp_warning := TRUE;
4163: ELSIF NOT (l_exp_logged) THEN
4164: -- BugFix #3947506
4165: WSH_UTIL_CORE.Get_Entity_Name
4166: ( l_exceptions_tab(exp_cnt).entity_id,
4167: l_exceptions_tab(exp_cnt).entity_name,
4168: l_out_entity_id,
4169: l_out_entity_name,
4168: l_out_entity_id,
4169: l_out_entity_name,
4170: l_out_status);
4171:
4172: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4173: wsh_util_core.add_message(l_out_status);
4174: RAISE FND_API.G_EXC_ERROR;
4175: END IF;
4176: -- End of code BugFix #3947506
4169: l_out_entity_name,
4170: l_out_status);
4171:
4172: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4173: wsh_util_core.add_message(l_out_status);
4174: RAISE FND_API.G_EXC_ERROR;
4175: END IF;
4176: -- End of code BugFix #3947506
4177: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4177: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4178: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4179: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4180: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4181: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4182: l_exp_logged := TRUE;
4183: wsh_util_core.add_message(x_return_status);
4184: l_num_warnings := l_num_warnings + 1;
4185: l_exp_warning := TRUE;
4179: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4180: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4181: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4182: l_exp_logged := TRUE;
4183: wsh_util_core.add_message(x_return_status);
4184: l_num_warnings := l_num_warnings + 1;
4185: l_exp_warning := TRUE;
4186: l_out_entity_id := ''; -- BugFix #3947506
4187: l_out_entity_name := ''; -- BugFix #3947506
4191: --
4192:
4193: IF l_num_errors > 0
4194: THEN
4195: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4196: x_allowed := 'N';
4197: ELSIF l_num_warnings > 0
4198: THEN
4199: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4195: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4196: x_allowed := 'N';
4197: ELSIF l_num_warnings > 0
4198: THEN
4199: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4200: ELSE
4201: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4202: END IF;
4203: --
4197: ELSIF l_num_warnings > 0
4198: THEN
4199: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4200: ELSE
4201: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4202: END IF;
4203: --
4204: -- If Exceptions have warnings, then display warnings but allow to proceed
4205: IF l_exp_warning THEN
4216: --
4217: --}
4218: EXCEPTION
4219: --{
4220: WHEN wsh_util_core.e_not_allowed THEN
4221: IF l_num_warnings > 0
4222: THEN
4223: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4224: ELSE
4219: --{
4220: WHEN wsh_util_core.e_not_allowed THEN
4221: IF l_num_warnings > 0
4222: THEN
4223: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4224: ELSE
4225: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4226: END IF;
4227: --
4221: IF l_num_warnings > 0
4222: THEN
4223: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4224: ELSE
4225: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4226: END IF;
4227: --
4228: --
4229: --
4231: WSH_DEBUG_SV.logmsg(l_module_name,'e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4232: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_not_allowed');
4233: END IF;
4234: --
4235: WHEN wsh_util_core.e_not_allowed_warning THEN
4236: IF l_num_warnings > 0
4237: THEN
4238: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4239: ELSE
4234: --
4235: WHEN wsh_util_core.e_not_allowed_warning THEN
4236: IF l_num_warnings > 0
4237: THEN
4238: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4239: ELSE
4240: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4241: END IF;
4242: --
4236: IF l_num_warnings > 0
4237: THEN
4238: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4239: ELSE
4240: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4241: END IF;
4242: --
4243: x_allowed := 'NW';
4244: --
4249: END IF;
4250: --
4251: WHEN FND_API.G_EXC_ERROR THEN
4252:
4253: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4254: --
4255: IF l_debug_on THEN
4256: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4257: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4258: END IF;
4259: --
4260: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4261:
4262: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4263: --
4264: IF l_debug_on THEN
4265: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4266: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4265: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4266: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4267: END IF;
4268: --
4269: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4270: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4271: --
4272: IF l_debug_on THEN
4273: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4266: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4267: END IF;
4268: --
4269: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4270: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4271: --
4272: IF l_debug_on THEN
4273: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4274: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4269: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4270: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4271: --
4272: IF l_debug_on THEN
4273: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4274: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4275: END IF;
4276: --
4277: WHEN OTHERS THEN
4270: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4271: --
4272: IF l_debug_on THEN
4273: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4274: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4275: END IF;
4276: --
4277: WHEN OTHERS THEN
4278:
4275: END IF;
4276: --
4277: WHEN OTHERS THEN
4278:
4279: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4280: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.check_Close',l_module_name);
4281: --
4282: IF l_debug_on THEN
4283: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4276: --
4277: WHEN OTHERS THEN
4278:
4279: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4280: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.check_Close',l_module_name);
4281: --
4282: IF l_debug_on THEN
4283: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4284: END IF;
4384: --
4385: IF any_closed_stop%NOTFOUND
4386: THEN
4387: CLOSE any_closed_stop;
4388: RAISE wsh_util_core.e_not_allowed;
4389: END IF;
4390: --
4391: CLOSE any_closed_stop;
4392: END IF;
4408: p_logging_entity_name => 'TRIP',
4409: p_consider_content => 'Y',
4410: x_exceptions_tab => l_exceptions_tab
4411: );
4412: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4413: x_return_status := l_return_status;
4414: wsh_util_core.add_message(x_return_status);
4415: RAISE FND_API.G_EXC_ERROR;
4416: END IF;
4410: x_exceptions_tab => l_exceptions_tab
4411: );
4412: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4413: x_return_status := l_return_status;
4414: wsh_util_core.add_message(x_return_status);
4415: RAISE FND_API.G_EXC_ERROR;
4416: END IF;
4417: FOR exp_cnt in 1..l_exceptions_tab.COUNT LOOP
4418: IF l_exceptions_tab(exp_cnt).exception_behavior = 'ERROR' THEN
4422: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4423: END IF;
4424:
4425: -- BugFix #3947506
4426: WSH_UTIL_CORE.Get_Entity_Name
4427: ( l_exceptions_tab(exp_cnt).entity_id,
4428: l_exceptions_tab(exp_cnt).entity_name,
4429: l_out_entity_id,
4430: l_out_entity_name,
4429: l_out_entity_id,
4430: l_out_entity_name,
4431: l_out_status);
4432:
4433: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4434: wsh_util_core.add_message(l_out_status);
4435: RAISE FND_API.G_EXC_ERROR;
4436: END IF;
4437: -- End of code BugFix #3947506
4430: l_out_entity_name,
4431: l_out_status);
4432:
4433: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4434: wsh_util_core.add_message(l_out_status);
4435: RAISE FND_API.G_EXC_ERROR;
4436: END IF;
4437: -- End of code BugFix #3947506
4438:
4438:
4439: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4440: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4441: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4442: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4443: wsh_util_core.add_message(x_return_status);
4444: l_num_warnings := l_num_warnings + 1;
4445: RAISE wsh_util_core.e_not_allowed;
4446: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4439: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4440: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4441: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4442: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4443: wsh_util_core.add_message(x_return_status);
4444: l_num_warnings := l_num_warnings + 1;
4445: RAISE wsh_util_core.e_not_allowed;
4446: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4447: IF l_exceptions_tab(exp_cnt).entity_name = 'TRIP' THEN
4441: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4442: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4443: wsh_util_core.add_message(x_return_status);
4444: l_num_warnings := l_num_warnings + 1;
4445: RAISE wsh_util_core.e_not_allowed;
4446: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4447: IF l_exceptions_tab(exp_cnt).entity_name = 'TRIP' THEN
4448: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4449: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4448: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4449: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4450: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_trips_pvt.get_name(l_exceptions_tab(exp_cnt).entity_id));
4451: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4452: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4453: wsh_util_core.add_message(x_return_status);
4454: l_num_warnings := l_num_warnings + 1;
4455: l_exp_warning := TRUE;
4456: ELSIF NOT (l_exp_logged) THEN
4449: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4450: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_trips_pvt.get_name(l_exceptions_tab(exp_cnt).entity_id));
4451: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4452: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4453: wsh_util_core.add_message(x_return_status);
4454: l_num_warnings := l_num_warnings + 1;
4455: l_exp_warning := TRUE;
4456: ELSIF NOT (l_exp_logged) THEN
4457: -- BugFix #3947506
4454: l_num_warnings := l_num_warnings + 1;
4455: l_exp_warning := TRUE;
4456: ELSIF NOT (l_exp_logged) THEN
4457: -- BugFix #3947506
4458: WSH_UTIL_CORE.Get_Entity_Name
4459: ( l_exceptions_tab(exp_cnt).entity_id,
4460: l_exceptions_tab(exp_cnt).entity_name,
4461: l_out_entity_id,
4462: l_out_entity_name,
4461: l_out_entity_id,
4462: l_out_entity_name,
4463: l_out_status);
4464:
4465: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4466: wsh_util_core.add_message(l_out_status);
4467: RAISE FND_API.G_EXC_ERROR;
4468: END IF;
4469: -- End of code BugFix #3947506
4462: l_out_entity_name,
4463: l_out_status);
4464:
4465: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4466: wsh_util_core.add_message(l_out_status);
4467: RAISE FND_API.G_EXC_ERROR;
4468: END IF;
4469: -- End of code BugFix #3947506
4470:
4471: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4472: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4473: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4474: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4475: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4476: l_exp_logged := TRUE;
4477: wsh_util_core.add_message(x_return_status);
4478: l_num_warnings := l_num_warnings + 1;
4479: l_exp_warning := TRUE;
4473: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4474: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4475: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4476: l_exp_logged := TRUE;
4477: wsh_util_core.add_message(x_return_status);
4478: l_num_warnings := l_num_warnings + 1;
4479: l_exp_warning := TRUE;
4480: END IF;
4481: END IF;
4483: --
4484:
4485: IF l_num_errors > 0
4486: THEN
4487: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4488: x_allowed := 'N';
4489: ELSIF l_num_warnings > 0
4490: THEN
4491: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4487: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4488: x_allowed := 'N';
4489: ELSIF l_num_warnings > 0
4490: THEN
4491: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4492: ELSE
4493: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4494: END IF;
4495: --
4489: ELSIF l_num_warnings > 0
4490: THEN
4491: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4492: ELSE
4493: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4494: END IF;
4495: --
4496: --
4497: -- If Exceptions have warnings, then display warnings but allow to proceed
4509: --
4510: --}
4511: EXCEPTION
4512: --{
4513: WHEN wsh_util_core.e_not_allowed THEN
4514: IF l_num_warnings > 0
4515: THEN
4516: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4517: ELSE
4512: --{
4513: WHEN wsh_util_core.e_not_allowed THEN
4514: IF l_num_warnings > 0
4515: THEN
4516: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4517: ELSE
4518: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4519: END IF;
4520: --
4514: IF l_num_warnings > 0
4515: THEN
4516: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4517: ELSE
4518: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4519: END IF;
4520: --
4521: x_allowed := 'N';
4522: --
4525: WSH_DEBUG_SV.logmsg(l_module_name,'e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4526: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_not_allowed');
4527: END IF;
4528: --
4529: WHEN wsh_util_core.e_not_allowed_warning THEN
4530: IF l_num_warnings > 0
4531: THEN
4532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4533: ELSE
4528: --
4529: WHEN wsh_util_core.e_not_allowed_warning THEN
4530: IF l_num_warnings > 0
4531: THEN
4532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4533: ELSE
4534: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4535: END IF;
4536: --
4530: IF l_num_warnings > 0
4531: THEN
4532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4533: ELSE
4534: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4535: END IF;
4536: --
4537: x_allowed := 'NW';
4538: --
4543: END IF;
4544: --
4545: WHEN FND_API.G_EXC_ERROR THEN
4546:
4547: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4548: --
4549: IF l_debug_on THEN
4550: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4551: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4552: END IF;
4553: --
4554: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4555:
4556: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4557: --
4558: IF l_debug_on THEN
4559: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4560: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4559: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4560: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4561: END IF;
4562: --
4563: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4564: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4565: --
4566: IF l_debug_on THEN
4567: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4560: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4561: END IF;
4562: --
4563: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4564: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4565: --
4566: IF l_debug_on THEN
4567: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4568: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4563: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4564: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4565: --
4566: IF l_debug_on THEN
4567: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4568: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4569: END IF;
4570: --
4571: WHEN OTHERS THEN
4564: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4565: --
4566: IF l_debug_on THEN
4567: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4568: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4569: END IF;
4570: --
4571: WHEN OTHERS THEN
4572:
4569: END IF;
4570: --
4571: WHEN OTHERS THEN
4572:
4573: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4574: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.check_inTransit',l_module_name);
4575: --
4576: IF l_debug_on THEN
4577: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4570: --
4571: WHEN OTHERS THEN
4572:
4573: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4574: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.check_inTransit',l_module_name);
4575: --
4576: IF l_debug_on THEN
4577: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4578: END IF;
4633: WSH_DEBUG_SV.log(l_module_name,'p_trip_id',p_trip_id);
4634: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
4635: END IF;
4636: --
4637: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4638: --
4639: IF (p_trip_id IS NOT NULL)
4640: THEN
4641: --{
4645: --
4646: IF l_trip_rec.planned_flag NOT IN ('N','Y')
4647: THEN
4648: -- Trip is routing and content firm.
4649: RAISE wsh_util_core.e_not_allowed;
4650: END IF;
4651: --
4652: IF l_trip_rec.status_code IN ('IT','CL')
4653: THEN
4650: END IF;
4651: --
4652: IF l_trip_rec.status_code IN ('IT','CL')
4653: THEN
4654: RAISE wsh_util_core.e_not_allowed;
4655: END IF;
4656: --
4657: --}
4658: END IF;
4662: END IF;
4663: --}
4664: EXCEPTION
4665: --{
4666: WHEN wsh_util_core.e_not_allowed THEN
4667: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4668: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_STATUS_NO_ACTION');
4669: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_rec.name);
4670: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
4663: --}
4664: EXCEPTION
4665: --{
4666: WHEN wsh_util_core.e_not_allowed THEN
4667: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4668: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_STATUS_NO_ACTION');
4669: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_rec.name);
4670: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
4671: --
4666: WHEN wsh_util_core.e_not_allowed THEN
4667: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4668: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_STATUS_NO_ACTION');
4669: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_rec.name);
4670: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
4671: --
4672: IF l_debug_on THEN
4673: WSH_DEBUG_SV.logmsg(l_module_name,'e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4674: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_not_allowed');
4674: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_not_allowed');
4675: END IF;
4676: --
4677: WHEN OTHERS THEN
4678: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4679: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.validate_trip_status', l_module_name);
4680: IF l_debug_on THEN
4681: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4682: END IF;
4675: END IF;
4676: --
4677: WHEN OTHERS THEN
4678: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4679: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.validate_trip_status', l_module_name);
4680: IF l_debug_on THEN
4681: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4682: END IF;
4683: --}
4782: --}
4783: EXCEPTION
4784: --{
4785: WHEN OTHERS THEN
4786: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.has_outbound_deliveries', l_module_name);
4787: --
4788: IF l_debug_on THEN
4789: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4790: END IF;
4892: --}
4893: EXCEPTION
4894: --{
4895: WHEN OTHERS THEN
4896: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.has_inbound_deliveries', l_module_name);
4897: --
4898: IF l_debug_on THEN
4899: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4900: END IF;
5019: --}
5020: EXCEPTION
5021: --{
5022: WHEN OTHERS THEN
5023: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.has_mixed_deliveries', l_module_name);
5024: --
5025: IF l_debug_on THEN
5026: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5027: END IF;
5776: p_attributes => l_attributes,
5777: x_return_status => l_return_status
5778: );
5779:
5780: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5781: THEN
5782: x_return_status := l_return_status;
5783: IF l_debug_on THEN
5784: wsh_debug_sv.logmsg(l_module_name,'Error returned by wsh_utilities.process_message',WSH_DEBUG_SV.C_PROC_LEVEL);
5786: wsh_debug_sv.pop(l_module_name);
5787: END IF;
5788: return;
5789: ELSE
5790: x_return_status := wsh_util_core.G_RET_STS_WARNING;
5791: END IF;
5792: END IF;
5793:
5794:
5800:
5801:
5802: EXCEPTION
5803: WHEN OTHERS THEN
5804: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5805: --
5806: IF l_debug_on THEN
5807: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5808: END IF;
5926:
5927: l_num_warn NUMBER;
5928: l_num_warn_total NUMBER;
5929: l_debug_on BOOLEAN;
5930: l_del_to_unassign WSH_UTIL_CORE.Id_Tab_Type;
5931: l_return_status VARCHAR2(1);
5932: --
5933: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Validate_Stop_Dates';
5934: invalid_input EXCEPTION;
5939:
5940: BEGIN
5941:
5942: -- initialize variables
5943: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5944: l_del_to_unassign.delete;
5945: l_num_warn := 0;
5946: l_batchsize := 1000;
5947: l_num_warn_total := 0;
6026: WSH_NEW_DELIVERIES_PVT.get_name(l_del_to_unassign(i)));
6027: FND_MESSAGE.SET_TOKEN('TRIP_NAME',
6028: WSH_TRIPS_PVT.get_name(p_trip_id));
6029: l_num_warn := l_num_warn + 1;
6030: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_WARNING);
6031:
6032: i := l_del_to_unassign.next(i);
6033: END LOOP;
6034:
6040: (p_del_rows => l_del_to_unassign,
6041: p_trip_id => p_trip_id,
6042: x_return_status => l_return_status);
6043:
6044: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6045: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6046: IF l_debug_on THEN
6047: WSH_DEBUG_SV.pop(l_module_name);
6048: END IF;
6041: p_trip_id => p_trip_id,
6042: x_return_status => l_return_status);
6043:
6044: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6045: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6046: IF l_debug_on THEN
6047: WSH_DEBUG_SV.pop(l_module_name);
6048: END IF;
6049: return;
6046: IF l_debug_on THEN
6047: WSH_DEBUG_SV.pop(l_module_name);
6048: END IF;
6049: return;
6050: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6051: l_num_warn := l_num_warn + 1;
6052: END IF;
6053:
6054: l_num_warn_total := l_num_warn_total + 1;
6062:
6063: -- bulk collection
6064:
6065: IF l_num_warn_total > 0 THEN
6066: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6067: END IF;
6068:
6069: IF l_debug_on THEN
6070: WSH_DEBUG_SV.pop(l_module_name);
6072:
6073: EXCEPTION
6074:
6075: WHEN invalid_input THEN
6076: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6077: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_REQUIRED');
6078: wsh_util_core.add_message(x_return_status, l_module_name);
6079: IF l_debug_on THEN
6080: WSH_DEBUG_SV.logmsg(l_module_name,'ERROR: Trip ID is NULL');
6074:
6075: WHEN invalid_input THEN
6076: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6077: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_REQUIRED');
6078: wsh_util_core.add_message(x_return_status, l_module_name);
6079: IF l_debug_on THEN
6080: WSH_DEBUG_SV.logmsg(l_module_name,'ERROR: Trip ID is NULL');
6081: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
6082: END IF;
6084: WHEN invalid_stop_date THEN
6085: IF get_invalid_planned_dates%ISOPEN THEN
6086: close get_invalid_planned_dates;
6087: END IF;
6088: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6089: IF l_invalid_planned_date.physical_stop_id is NULL THEN
6090: FND_MESSAGE.SET_NAME('WSH', 'WSH_STOP_DATE_OVERLAP');
6091: FND_MESSAGE.SET_TOKEN('CURRENT_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.cur_dep_date));
6092: FND_MESSAGE.SET_TOKEN('CURRENT_LOCATION_DESP',
6089: IF l_invalid_planned_date.physical_stop_id is NULL THEN
6090: FND_MESSAGE.SET_NAME('WSH', 'WSH_STOP_DATE_OVERLAP');
6091: FND_MESSAGE.SET_TOKEN('CURRENT_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.cur_dep_date));
6092: FND_MESSAGE.SET_TOKEN('CURRENT_LOCATION_DESP',
6093: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.cur_location_id,'NEW UI CODE INFO'));
6094: FND_MESSAGE.SET_TOKEN('NEXT_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.nxt_arr_date));
6095: ELSE
6096: -- No stop is allowed between dummy stop and physical stop.
6097: FND_MESSAGE.SET_NAME('WSH', 'WSH_BETWEEN_LINKED_STOPS');
6096: -- No stop is allowed between dummy stop and physical stop.
6097: FND_MESSAGE.SET_NAME('WSH', 'WSH_BETWEEN_LINKED_STOPS');
6098: FND_MESSAGE.SET_TOKEN('DUMMY_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.cur_arr_date));
6099: FND_MESSAGE.SET_TOKEN('DUMMY_LOCATION_DESP',
6100: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.cur_location_id,'NEW UI CODE INFO'));
6101: FND_MESSAGE.SET_TOKEN('PHYSICAL_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.nxt_arr_date));
6102: FND_MESSAGE.SET_TOKEN('PHYSICAL_LOCATION_DESP',
6103: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.nxt_location_id,'NEW UI CODE INFO'));
6104: END IF;
6099: FND_MESSAGE.SET_TOKEN('DUMMY_LOCATION_DESP',
6100: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.cur_location_id,'NEW UI CODE INFO'));
6101: FND_MESSAGE.SET_TOKEN('PHYSICAL_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.nxt_arr_date));
6102: FND_MESSAGE.SET_TOKEN('PHYSICAL_LOCATION_DESP',
6103: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.nxt_location_id,'NEW UI CODE INFO'));
6104: END IF;
6105: wsh_util_core.add_message(x_return_status, l_module_name);
6106:
6107: IF l_debug_on THEN
6101: FND_MESSAGE.SET_TOKEN('PHYSICAL_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.nxt_arr_date));
6102: FND_MESSAGE.SET_TOKEN('PHYSICAL_LOCATION_DESP',
6103: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.nxt_location_id,'NEW UI CODE INFO'));
6104: END IF;
6105: wsh_util_core.add_message(x_return_status, l_module_name);
6106:
6107: IF l_debug_on THEN
6108: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_stop_date');
6109: END IF;
6109: END IF;
6110:
6111: -- Bug 3782135
6112: WHEN invalid_arrival_date THEN
6113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6114:
6115: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_STOP_DATE');
6116: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(l_invalid_plarrival_date.cur_stop_id,p_caller));
6117: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
6113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6114:
6115: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_STOP_DATE');
6116: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(l_invalid_plarrival_date.cur_stop_id,p_caller));
6117: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
6118:
6119: IF l_debug_on THEN
6120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_planned_arrival_date');
6121: END IF;
6133:
6134: IF get_deliveries_to_unassign%ISOPEN THEN
6135: close get_deliveries_to_unassign;
6136: END IF;
6137: wsh_util_core.default_handler('WSH_TRIP_STOPS_VALIDATIONS.Validate_Stop_Dates',l_module_name);
6138: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6139: IF l_debug_on THEN
6140: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6141: END IF;
6134: IF get_deliveries_to_unassign%ISOPEN THEN
6135: close get_deliveries_to_unassign;
6136: END IF;
6137: wsh_util_core.default_handler('WSH_TRIP_STOPS_VALIDATIONS.Validate_Stop_Dates',l_module_name);
6138: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6139: IF l_debug_on THEN
6140: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6141: END IF;
6142: