[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
2151: AND wsp.organization_id = wnd.organization_id -- OTM R12, glog proj
2152: AND wnd.client_id = mcp.client_id (+); -- LSP PROJECT
2153:
2154: l_trip_actions_tab TripActionsTabType;
2155: l_valid_ids wsh_util_core.id_tab_type;
2156: l_error_ids wsh_util_core.id_tab_type;
2157: l_valid_index_tab wsh_util_core.id_tab_type;
2158: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
2159: l_move_id NUMBER:= NULL;
2152: AND wnd.client_id = mcp.client_id (+); -- LSP PROJECT
2153:
2154: l_trip_actions_tab TripActionsTabType;
2155: l_valid_ids wsh_util_core.id_tab_type;
2156: l_error_ids wsh_util_core.id_tab_type;
2157: l_valid_index_tab wsh_util_core.id_tab_type;
2158: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
2159: l_move_id NUMBER:= NULL;
2160:
2153:
2154: l_trip_actions_tab TripActionsTabType;
2155: l_valid_ids wsh_util_core.id_tab_type;
2156: l_error_ids wsh_util_core.id_tab_type;
2157: l_valid_index_tab wsh_util_core.id_tab_type;
2158: l_dlvy_rec_tab WSH_DELIVERY_VALIDATIONS.dlvy_rec_tab_type;
2159: l_move_id NUMBER:= NULL;
2160:
2161: l_pass_section_a VARCHAR2(1):='Y';
2197: IF l_debug_on THEN
2198: WSH_DEBUG_SV.log(l_module_name,'Init_Detail_Actions_Tbl x_return_status',x_return_status);
2199: END IF;
2200:
2201: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
2202: raise error_in_init_actions;
2203: END IF;
2204:
2205:
2270: IF l_debug_on THEN
2271: wsh_debug_sv.log(l_module_name, 'Message Name is', l_trip_actions_tab(l_loop_counter).message_name);
2272: END IF;
2273: FND_MESSAGE.SET_NAME('WSH',l_trip_actions_tab(l_loop_counter).message_name);
2274: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
2275: END IF;
2276: RAISE e_set_messages;
2277: END IF;
2278: EXIT WHEN l_loop_counter >= l_trip_actions_tab.LAST;
2301: IF l_debug_on THEN
2302: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_VALIDATIONS.Is_Action_Enabled l_return_status',l_return_status);
2303: END IF;
2304:
2305: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
2306: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)
2307: THEN
2308: RAISE e_set_messages;
2309: --J-IB-NPARIKH--{
2302: WSH_DEBUG_SV.log(l_module_name,'WSH_DELIVERY_VALIDATIONS.Is_Action_Enabled l_return_status',l_return_status);
2303: END IF;
2304:
2305: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
2306: AND (l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING)
2307: THEN
2308: RAISE e_set_messages;
2309: --J-IB-NPARIKH--{
2310: ELSIF p_action = 'INCLUDE_PLAN'
2307: THEN
2308: RAISE e_set_messages;
2309: --J-IB-NPARIKH--{
2310: ELSIF p_action = 'INCLUDE_PLAN'
2311: AND l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2312: THEN
2313: --
2314: -- If some of the deliveries cannot be included for planning,
2315: -- then trip cannot be included for planning.
2334: wsh_debug_sv.log(l_module_name, 'Trip has lane id : ', p_trip_rec_tab(j).lane_id);
2335: END IF;
2336: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_SEL_TRIP_LANE');
2337: FND_MESSAGE.SET_TOKEN('TRIPID',p_trip_rec_tab(j).trip_id);
2338: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
2339: RAISE e_set_messages;
2340: END IF;
2341:
2342: -- Perform continuous move check here
2348: wsh_debug_sv.log(l_module_name, 'Trip has continuous move id id : ', l_move_id);
2349: END IF;
2350: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_SEL_TRIP_MOVE');
2351: FND_MESSAGE.SET_TOKEN('TRIPID',p_trip_rec_tab(j).trip_id);
2352: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
2353: RAISE e_set_messages;
2354:
2355: END IF;
2356: x_valid_ids(x_valid_ids.COUNT + 1) := p_trip_rec_tab(j).trip_id;
2364: WHEN e_set_messages THEN
2365: x_error_ids(x_error_ids.COUNT + 1) := p_trip_rec_tab(j).trip_id;
2366: IF p_caller = 'WSH_PUB' or p_caller like 'FTE%' THEN
2367: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_ACTION_INELIGIBLE');
2368: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('TRIP',p_action));
2369: FND_MESSAGE.Set_Token('TRIP_NAME',
2370: wsh_trips_pvt.get_name(x_error_ids(x_error_ids.COUNT)));
2371: wsh_util_core.add_message('E',l_module_name);
2372: END IF;
2367: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_ACTION_INELIGIBLE');
2368: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('TRIP',p_action));
2369: FND_MESSAGE.Set_Token('TRIP_NAME',
2370: wsh_trips_pvt.get_name(x_error_ids(x_error_ids.COUNT)));
2371: wsh_util_core.add_message('E',l_module_name);
2372: END IF;
2373: END;
2374:
2375: END LOOP; -- FOR j IN p_trip_rec_tab.FIRST
2374:
2375: END LOOP; -- FOR j IN p_trip_rec_tab.FIRST
2376:
2377: IF (x_valid_ids.COUNT = 0 ) THEN
2378: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2379: --
2380: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2381: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
2382: wsh_util_core.add_message(x_return_status,l_module_name);
2378: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2379: --
2380: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2381: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
2382: wsh_util_core.add_message(x_return_status,l_module_name);
2383: END IF;
2384: --
2385: ELSIF (x_valid_ids.COUNT = p_trip_rec_tab.COUNT) THEN
2386: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2382: wsh_util_core.add_message(x_return_status,l_module_name);
2383: END IF;
2384: --
2385: ELSIF (x_valid_ids.COUNT = p_trip_rec_tab.COUNT) THEN
2386: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2387: ELSIF (x_valid_ids.COUNT < p_trip_rec_tab.COUNT ) THEN
2388: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2389: --
2390: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2384: --
2385: ELSIF (x_valid_ids.COUNT = p_trip_rec_tab.COUNT) THEN
2386: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2387: ELSIF (x_valid_ids.COUNT < p_trip_rec_tab.COUNT ) THEN
2388: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2389: --
2390: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2391: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
2392: wsh_util_core.add_message(x_return_status,l_module_name);
2388: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2389: --
2390: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2391: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
2392: wsh_util_core.add_message(x_return_status,l_module_name);
2393: END IF;
2394: --
2395: ElSE
2396: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2392: wsh_util_core.add_message(x_return_status,l_module_name);
2393: END IF;
2394: --
2395: ElSE
2396: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2397: --
2398: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2399: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
2400: wsh_util_core.add_message(x_return_status,l_module_name);
2396: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2397: --
2398: IF NOT (l_caller = 'WSH_PUB' OR l_caller LIKE 'FTE%') THEN
2399: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
2400: wsh_util_core.add_message(x_return_status,l_module_name);
2401: END IF;
2402: --
2403: END IF;
2404:
2413: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:error_in_init_actions');
2414: END IF;
2415:
2416: WHEN OTHERS THEN
2417: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.IS_ACTION_ENABLED');
2418: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2419: IF l_debug_on THEN
2420: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2421: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2414: END IF;
2415:
2416: WHEN OTHERS THEN
2417: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.IS_ACTION_ENABLED');
2418: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2419: IF l_debug_on THEN
2420: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2421: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2422: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2460: WSH_DEBUG_SV.log(l_module_name,'p_arr_after_trip_id',p_arr_after_trip_id);
2461: WSH_DEBUG_SV.log(l_module_name,'p_arr_after_trip_name',p_arr_after_trip_name);
2462: END IF;
2463:
2464: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2465:
2466: IF ((p_trip_id IS NULL OR p_trip_id = fnd_api.g_miss_num)
2467: OR ((p_arr_after_trip_id IS NULL OR p_arr_after_trip_id=fnd_api.g_miss_num)
2468: and (p_arr_after_trip_name IS NULL or p_arr_after_trip_name=fnd_api.g_miss_char)
2467: OR ((p_arr_after_trip_id IS NULL OR p_arr_after_trip_id=fnd_api.g_miss_num)
2468: and (p_arr_after_trip_name IS NULL or p_arr_after_trip_name=fnd_api.g_miss_char)
2469: )
2470: ) THEN
2471: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2472: IF l_debug_on THEN
2473: WSH_DEBUG_SV.pop(l_module_name);
2474: END IF;
2475: RETURN;
2475: RETURN;
2476: END IF;
2477:
2478: IF (p_trip_id = p_arr_after_trip_id ) THEN
2479: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2480: ELSE
2481: IF (p_arr_after_trip_id IS NOT NULL ) THEN
2482: OPEN get_trip_id(p_arr_after_trip_id);
2483: FETCH get_trip_id INTO l_status;
2490: l_status := FND_API.G_MISS_CHAR;
2491: END IF;
2492:
2493: IF (l_status IS NULL OR p_trip_id = p_arr_after_trip_id) THEN
2494: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2495: END IF;
2496:
2497: END IF;
2498:
2495: END IF;
2496:
2497: END IF;
2498:
2499: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2500: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ARR_AFTER_TRIP');
2501: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
2502: END IF;
2503:
2497: END IF;
2498:
2499: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2500: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ARR_AFTER_TRIP');
2501: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
2502: END IF;
2503:
2504: IF l_debug_on THEN
2505: WSH_DEBUG_SV.pop(l_module_name);
2506: END IF;
2507:
2508: EXCEPTION
2509: WHEN OTHERS THEN
2510: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.VALIDATE_ARRIVE_AFTER_TRIP');
2511: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2512: IF l_debug_on THEN
2513: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2514: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2507:
2508: EXCEPTION
2509: WHEN OTHERS THEN
2510: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.VALIDATE_ARRIVE_AFTER_TRIP');
2511: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2512: IF l_debug_on THEN
2513: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2514: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2515: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2533:
2534: l_debug_on BOOLEAN;
2535: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'VALIDATE_CONSOL_ALLOWED';
2536: l_consolidation_allowed VARCHAR2(100);
2537: l_entity_ids WSH_UTIL_CORE.id_tab_type;
2538: BEGIN
2539: --
2540: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2541: --
2545: END IF;
2546: --
2547:
2548:
2549: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2550:
2551: -- Bug fix: 3365750
2552: -- Do not give error if FTE is not installed.
2553: -- Proceed with code only if FTE is installed. Do nothing if NOT installed.
2550:
2551: -- Bug fix: 3365750
2552: -- Do not give error if FTE is not installed.
2553: -- Proceed with code only if FTE is installed. Do nothing if NOT installed.
2554: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
2555: l_consolidation_allowed :=p_db_trip_info.consolidation_allowed;
2556: l_vehicle_item_id :=p_db_trip_info.vehicle_item_id;
2557: l_vehicle_organization_id :=p_db_trip_info.vehicle_organization_id;
2558: l_ship_method_code :=p_db_trip_info.ship_method_code;
2615: END IF;
2616:
2617: EXCEPTION
2618: WHEN OTHERS THEN
2619: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.VALIDATE_CONSOL_ALLOWED');
2620: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2621: IF l_debug_on THEN
2622: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2623: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2616:
2617: EXCEPTION
2618: WHEN OTHERS THEN
2619: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.VALIDATE_CONSOL_ALLOWED');
2620: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2621: IF l_debug_on THEN
2622: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
2623: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2624: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2977:
2978: EXCEPTION
2979: -- OTM 12, glog proj, no debug or x_return_status variable here
2980: WHEN OTHERS THEN
2981: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.ELIMINATE_DISPLAYONLY_FIELDS');
2982:
2983: END eliminate_displayonly_fields;
2984:
2985: /*----------------------------------------------------------
2987: -- and disables the field contained in p_disabled_list.
2988: -----------------------------------------------------------*/
2989:
2990: PROCEDURE disable_from_list(
2991: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
2992: , p_in_rec IN WSH_TRIPS_PVT.trip_rec_type
2993: , x_out_rec IN OUT NOCOPY WSH_TRIPS_PVT.trip_rec_type
2994: , x_return_status OUT NOCOPY VARCHAR2
2995: , x_field_name OUT NOCOPY VARCHAR2
3034: NULL;
3035: ELSE
3036: -- invalid name
3037: x_field_name := p_disabled_list(i);
3038: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3039: RETURN;
3040: --
3041: END IF;
3042: END LOOP;
3153: -- included in p_disabled_list and will enable them
3154: -----------------------------------------------------------*/
3155:
3156: PROCEDURE enable_from_list(
3157: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
3158: , p_in_rec IN WSH_TRIPS_PVT.trip_rec_type
3159: , x_out_rec IN OUT NOCOPY WSH_TRIPS_PVT.trip_rec_type
3160: , x_return_status OUT NOCOPY VARCHAR2
3161: , x_field_name OUT NOCOPY VARCHAR2
3439: END IF;
3440: ELSE
3441: -- invalid name
3442: x_field_name := p_disabled_list(i);
3443: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3444: RETURN;
3445: --
3446: END IF;
3447: END LOOP;
3448:
3449: EXCEPTION
3450: -- OTM R12, glog proj, add when Others exception handler
3451: WHEN others THEN
3452: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.ENABLE_FROM_LIST');
3453: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3454:
3455: END enable_from_list;
3456:
3449: EXCEPTION
3450: -- OTM R12, glog proj, add when Others exception handler
3451: WHEN others THEN
3452: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.ENABLE_FROM_LIST');
3453: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3454:
3455: END enable_from_list;
3456:
3457: --
3466: , x_msg_data OUT NOCOPY VARCHAR2
3467: , x_trip_rec OUT NOCOPY WSH_TRIPS_PVT.trip_rec_type
3468: )
3469: IS
3470: l_disabled_list WSH_UTIL_CORE.column_tab_type;
3471: l_db_col_rec WSH_TRIPS_PVT.trip_rec_type;
3472: l_return_status VARCHAR2(30);
3473: l_field_name VARCHAR2(100);
3474: l_debug_on BOOLEAN;
3537: , x_msg_data
3538: , l_caller --3509004:public api changes
3539: );
3540: --
3541: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
3542: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
3543: THEN
3544: --
3545: IF l_debug_on THEN
3538: , l_caller --3509004:public api changes
3539: );
3540: --
3541: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
3542: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
3543: THEN
3544: --
3545: IF l_debug_on THEN
3546: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
3562: p_trip_id => p_trip_rec.trip_id,
3563: x_trip_info => x_trip_rec,
3564: x_return_status => x_return_status);
3565:
3566: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3567: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3568: RAISE e_dp_no_entity;
3569: END IF;
3570:
3563: x_trip_info => x_trip_rec,
3564: x_return_status => x_return_status);
3565:
3566: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3567: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3568: RAISE e_dp_no_entity;
3569: END IF;
3570:
3571: --
3652: p_trip_rec,
3653: x_trip_rec,
3654: l_return_status,
3655: l_field_name);
3656: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3657: RAISE e_bad_field;
3658: END IF;
3659: --
3660: END IF;
3683: x_trip_rec,
3684: l_return_status,
3685: l_field_name
3686: );
3687: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3688: RAISE e_bad_field;
3689: END IF;
3690: --
3691: END IF;
3700: p_out_rec => x_trip_rec,
3701: p_in_rec => p_in_rec,
3702: x_return_status => l_return_status);
3703: --
3704: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3705: x_return_status := l_return_status;
3706: END IF;
3707: --
3708: END IF;
3712: END IF;
3713: --
3714: EXCEPTION
3715: WHEN e_all_disabled THEN
3716: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3717: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
3718: FND_MESSAGE.Set_Token('ENTITY_ID',p_trip_rec.trip_id);
3719: wsh_util_core.add_message(x_return_status,l_module_name);
3720: IF l_debug_on THEN
3715: WHEN e_all_disabled THEN
3716: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3717: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
3718: FND_MESSAGE.Set_Token('ENTITY_ID',p_trip_rec.trip_id);
3719: wsh_util_core.add_message(x_return_status,l_module_name);
3720: IF l_debug_on THEN
3721: -- Nothing is updateable
3722: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
3723: END IF;
3721: -- Nothing is updateable
3722: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
3723: END IF;
3724: WHEN e_dp_no_entity THEN
3725: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3726: -- the message for this is set in original get_disabled_list
3727: IF l_debug_on THEN
3728: WSH_DEBUG_SV.pop(l_module_name,'e_dp_no_entity');
3729: END IF;
3727: IF l_debug_on THEN
3728: WSH_DEBUG_SV.pop(l_module_name,'e_dp_no_entity');
3729: END IF;
3730: WHEN e_bad_field THEN
3731: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3732: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
3733: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
3734: wsh_util_core.add_message(x_return_status,l_module_name);
3735: IF l_debug_on THEN
3730: WHEN e_bad_field THEN
3731: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3732: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
3733: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
3734: wsh_util_core.add_message(x_return_status,l_module_name);
3735: IF l_debug_on THEN
3736: WSH_DEBUG_SV.log(l_module_name,'Bad field name passed to the list:'
3737: ,l_field_name);
3738: WSH_DEBUG_SV.pop(l_module_name,'e_bad_field');
3738: WSH_DEBUG_SV.pop(l_module_name,'e_bad_field');
3739: END IF;
3740:
3741: WHEN OTHERS THEN
3742: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list'
3743: ,l_module_name);
3744: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3745: IF l_debug_on THEN
3746: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
3740:
3741: WHEN OTHERS THEN
3742: wsh_util_core.default_handler('WSH_DETAILS_VALIDATIONS.get_disabled_list'
3743: ,l_module_name);
3744: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3745: IF l_debug_on THEN
3746: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
3747: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3748: END IF;
3773: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3774: END IF;
3775:
3776: --OTM R12, glog proj, use Global Variable
3777: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3778:
3779: -- If null, call the function
3780: IF l_gc3_is_installed IS NULL THEN
3781: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3777: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3778:
3779: -- If null, call the function
3780: IF l_gc3_is_installed IS NULL THEN
3781: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3782: END IF;
3783: -- end of OTM R12, glog proj
3784:
3785:
3932: --
3933: WSH_DEBUG_SV.log(l_module_name,'p_action', p_action);
3934: END IF;
3935: --
3936: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3937:
3938: IF l_debug_on THEN
3939: WSH_DEBUG_SV.pop(l_module_name);
3940: END IF;
3941:
3942: EXCEPTION
3943: -- OTM R12, glog proj
3944: WHEN OTHERS THEN
3945: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_TRIP_VALIDATIONS.init_trip_actions_tbl'
3946: ,l_module_name);
3947: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3948: IF l_debug_on THEN
3949: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3943: -- OTM R12, glog proj
3944: WHEN OTHERS THEN
3945: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_TRIP_VALIDATIONS.init_trip_actions_tbl'
3946: ,l_module_name);
3947: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3948: IF l_debug_on THEN
3949: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3950: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3951: END IF;
3969: ------------------------------------------------------------------------------
3970: */
3971: -- THIS PROCEDURE IS OBSOLETE
3972: PROCEDURE Get_Trip_Calc_Wtvol
3973: (p_tab_id IN wsh_util_core.id_tab_type,
3974: p_entity IN VARCHAR2,
3975: p_action_code IN VARCHAR2,
3976: p_phase IN NUMBER,
3977: x_trip_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
3973: (p_tab_id IN wsh_util_core.id_tab_type,
3974: p_entity IN VARCHAR2,
3975: p_action_code IN VARCHAR2,
3976: p_phase IN NUMBER,
3977: x_trip_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
3978: x_return_status OUT NOCOPY VARCHAR2
3979: ) IS
3980:
3981: BEGIN
3979: ) IS
3980:
3981: BEGIN
3982:
3983: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3984:
3985: END get_trip_calc_wtvol;
3986:
3987: -- End for Load Tender Project
4089: CLOSE any_open_stop;
4090: --bug 3410681
4091: x_allowed := 'NT';
4092:
4093: RAISE wsh_util_core.e_not_allowed;
4094: END IF;
4095: --
4096: CLOSE any_open_stop;
4097: --
4112: p_logging_entity_name => 'TRIP',
4113: p_consider_content => 'Y',
4114: x_exceptions_tab => l_exceptions_tab
4115: );
4116: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4117: x_return_status := l_return_status;
4118: wsh_util_core.add_message(x_return_status);
4119: RAISE FND_API.G_EXC_ERROR;
4120: END IF;
4114: x_exceptions_tab => l_exceptions_tab
4115: );
4116: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4117: x_return_status := l_return_status;
4118: wsh_util_core.add_message(x_return_status);
4119: RAISE FND_API.G_EXC_ERROR;
4120: END IF;
4121: FOR exp_cnt in 1..l_exceptions_tab.COUNT LOOP
4122: IF l_exceptions_tab(exp_cnt).exception_behavior = 'ERROR' THEN
4126: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4127: END IF;
4128:
4129: -- BugFix #3947506
4130: WSH_UTIL_CORE.Get_Entity_Name
4131: ( l_exceptions_tab(exp_cnt).entity_id,
4132: l_exceptions_tab(exp_cnt).entity_name,
4133: l_out_entity_id,
4134: l_out_entity_name,
4133: l_out_entity_id,
4134: l_out_entity_name,
4135: l_out_status);
4136:
4137: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4138: wsh_util_core.add_message(l_out_status);
4139: RAISE FND_API.G_EXC_ERROR;
4140: END IF;
4141: -- End of code BugFix #3947506
4134: l_out_entity_name,
4135: l_out_status);
4136:
4137: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4138: wsh_util_core.add_message(l_out_status);
4139: RAISE FND_API.G_EXC_ERROR;
4140: END IF;
4141: -- End of code BugFix #3947506
4142:
4142:
4143: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4144: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4145: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4146: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4147: wsh_util_core.add_message(x_return_status);
4148: l_num_warnings := l_num_warnings + 1;
4149:
4150: --bug 3410681
4143: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4144: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4145: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4146: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4147: wsh_util_core.add_message(x_return_status);
4148: l_num_warnings := l_num_warnings + 1;
4149:
4150: --bug 3410681
4151: x_allowed := 'N';
4151: x_allowed := 'N';
4152: l_out_entity_id := ''; -- BugFix #3947506
4153: l_out_entity_name := ''; -- BugFix #3947506
4154:
4155: RAISE wsh_util_core.e_not_allowed;
4156: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4157: IF l_exceptions_tab(exp_cnt).entity_name = 'TRIP' THEN
4158: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4159: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4158: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4159: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4160: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_trips_pvt.get_name(l_exceptions_tab(exp_cnt).entity_id));
4161: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4162: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4163: wsh_util_core.add_message(x_return_status);
4164: l_num_warnings := l_num_warnings + 1;
4165: l_exp_warning := TRUE;
4166: ELSIF NOT (l_exp_logged) THEN
4159: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4160: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_trips_pvt.get_name(l_exceptions_tab(exp_cnt).entity_id));
4161: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4162: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4163: wsh_util_core.add_message(x_return_status);
4164: l_num_warnings := l_num_warnings + 1;
4165: l_exp_warning := TRUE;
4166: ELSIF NOT (l_exp_logged) THEN
4167: -- BugFix #3947506
4164: l_num_warnings := l_num_warnings + 1;
4165: l_exp_warning := TRUE;
4166: ELSIF NOT (l_exp_logged) THEN
4167: -- BugFix #3947506
4168: WSH_UTIL_CORE.Get_Entity_Name
4169: ( l_exceptions_tab(exp_cnt).entity_id,
4170: l_exceptions_tab(exp_cnt).entity_name,
4171: l_out_entity_id,
4172: l_out_entity_name,
4171: l_out_entity_id,
4172: l_out_entity_name,
4173: l_out_status);
4174:
4175: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4176: wsh_util_core.add_message(l_out_status);
4177: RAISE FND_API.G_EXC_ERROR;
4178: END IF;
4179: -- End of code BugFix #3947506
4172: l_out_entity_name,
4173: l_out_status);
4174:
4175: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4176: wsh_util_core.add_message(l_out_status);
4177: RAISE FND_API.G_EXC_ERROR;
4178: END IF;
4179: -- End of code BugFix #3947506
4180: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4180: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4181: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4182: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4183: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4184: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4185: l_exp_logged := TRUE;
4186: wsh_util_core.add_message(x_return_status);
4187: l_num_warnings := l_num_warnings + 1;
4188: l_exp_warning := TRUE;
4182: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4183: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4184: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4185: l_exp_logged := TRUE;
4186: wsh_util_core.add_message(x_return_status);
4187: l_num_warnings := l_num_warnings + 1;
4188: l_exp_warning := TRUE;
4189: l_out_entity_id := ''; -- BugFix #3947506
4190: l_out_entity_name := ''; -- BugFix #3947506
4194: --
4195:
4196: IF l_num_errors > 0
4197: THEN
4198: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4199: x_allowed := 'N';
4200: ELSIF l_num_warnings > 0
4201: THEN
4202: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4198: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4199: x_allowed := 'N';
4200: ELSIF l_num_warnings > 0
4201: THEN
4202: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4203: ELSE
4204: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4205: END IF;
4206: --
4200: ELSIF l_num_warnings > 0
4201: THEN
4202: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4203: ELSE
4204: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4205: END IF;
4206: --
4207: -- If Exceptions have warnings, then display warnings but allow to proceed
4208: IF l_exp_warning THEN
4219: --
4220: --}
4221: EXCEPTION
4222: --{
4223: WHEN wsh_util_core.e_not_allowed THEN
4224: IF l_num_warnings > 0
4225: THEN
4226: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4227: ELSE
4222: --{
4223: WHEN wsh_util_core.e_not_allowed THEN
4224: IF l_num_warnings > 0
4225: THEN
4226: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4227: ELSE
4228: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4229: END IF;
4230: --
4224: IF l_num_warnings > 0
4225: THEN
4226: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4227: ELSE
4228: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4229: END IF;
4230: --
4231: --
4232: --
4234: WSH_DEBUG_SV.logmsg(l_module_name,'e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4235: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_not_allowed');
4236: END IF;
4237: --
4238: WHEN wsh_util_core.e_not_allowed_warning THEN
4239: IF l_num_warnings > 0
4240: THEN
4241: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4242: ELSE
4237: --
4238: WHEN wsh_util_core.e_not_allowed_warning THEN
4239: IF l_num_warnings > 0
4240: THEN
4241: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4242: ELSE
4243: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4244: END IF;
4245: --
4239: IF l_num_warnings > 0
4240: THEN
4241: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4242: ELSE
4243: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4244: END IF;
4245: --
4246: x_allowed := 'NW';
4247: --
4252: END IF;
4253: --
4254: WHEN FND_API.G_EXC_ERROR THEN
4255:
4256: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4257: --
4258: IF l_debug_on THEN
4259: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4260: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4261: END IF;
4262: --
4263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4264:
4265: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4266: --
4267: IF l_debug_on THEN
4268: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4269: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4268: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4269: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4270: END IF;
4271: --
4272: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4273: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4274: --
4275: IF l_debug_on THEN
4276: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4269: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4270: END IF;
4271: --
4272: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4273: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4274: --
4275: IF l_debug_on THEN
4276: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4277: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4272: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4273: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4274: --
4275: IF l_debug_on THEN
4276: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4277: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4278: END IF;
4279: --
4280: WHEN OTHERS THEN
4273: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4274: --
4275: IF l_debug_on THEN
4276: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4277: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4278: END IF;
4279: --
4280: WHEN OTHERS THEN
4281:
4278: END IF;
4279: --
4280: WHEN OTHERS THEN
4281:
4282: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4283: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.check_Close',l_module_name);
4284: --
4285: IF l_debug_on THEN
4286: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4279: --
4280: WHEN OTHERS THEN
4281:
4282: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4283: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.check_Close',l_module_name);
4284: --
4285: IF l_debug_on THEN
4286: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4287: END IF;
4387: --
4388: IF any_closed_stop%NOTFOUND
4389: THEN
4390: CLOSE any_closed_stop;
4391: RAISE wsh_util_core.e_not_allowed;
4392: END IF;
4393: --
4394: CLOSE any_closed_stop;
4395: END IF;
4411: p_logging_entity_name => 'TRIP',
4412: p_consider_content => 'Y',
4413: x_exceptions_tab => l_exceptions_tab
4414: );
4415: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4416: x_return_status := l_return_status;
4417: wsh_util_core.add_message(x_return_status);
4418: RAISE FND_API.G_EXC_ERROR;
4419: END IF;
4413: x_exceptions_tab => l_exceptions_tab
4414: );
4415: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4416: x_return_status := l_return_status;
4417: wsh_util_core.add_message(x_return_status);
4418: RAISE FND_API.G_EXC_ERROR;
4419: END IF;
4420: FOR exp_cnt in 1..l_exceptions_tab.COUNT LOOP
4421: IF l_exceptions_tab(exp_cnt).exception_behavior = 'ERROR' THEN
4425: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4426: END IF;
4427:
4428: -- BugFix #3947506
4429: WSH_UTIL_CORE.Get_Entity_Name
4430: ( l_exceptions_tab(exp_cnt).entity_id,
4431: l_exceptions_tab(exp_cnt).entity_name,
4432: l_out_entity_id,
4433: l_out_entity_name,
4432: l_out_entity_id,
4433: l_out_entity_name,
4434: l_out_status);
4435:
4436: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4437: wsh_util_core.add_message(l_out_status);
4438: RAISE FND_API.G_EXC_ERROR;
4439: END IF;
4440: -- End of code BugFix #3947506
4433: l_out_entity_name,
4434: l_out_status);
4435:
4436: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4437: wsh_util_core.add_message(l_out_status);
4438: RAISE FND_API.G_EXC_ERROR;
4439: END IF;
4440: -- End of code BugFix #3947506
4441:
4441:
4442: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4443: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4444: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4445: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4446: wsh_util_core.add_message(x_return_status);
4447: l_num_warnings := l_num_warnings + 1;
4448: RAISE wsh_util_core.e_not_allowed;
4449: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4442: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4443: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4444: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4445: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4446: wsh_util_core.add_message(x_return_status);
4447: l_num_warnings := l_num_warnings + 1;
4448: RAISE wsh_util_core.e_not_allowed;
4449: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4450: IF l_exceptions_tab(exp_cnt).entity_name = 'TRIP' THEN
4444: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4445: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4446: wsh_util_core.add_message(x_return_status);
4447: l_num_warnings := l_num_warnings + 1;
4448: RAISE wsh_util_core.e_not_allowed;
4449: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4450: IF l_exceptions_tab(exp_cnt).entity_name = 'TRIP' THEN
4451: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4452: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4451: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4452: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4453: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_trips_pvt.get_name(l_exceptions_tab(exp_cnt).entity_id));
4454: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4455: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4456: wsh_util_core.add_message(x_return_status);
4457: l_num_warnings := l_num_warnings + 1;
4458: l_exp_warning := TRUE;
4459: ELSIF NOT (l_exp_logged) THEN
4452: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Trip');
4453: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_trips_pvt.get_name(l_exceptions_tab(exp_cnt).entity_id));
4454: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4455: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4456: wsh_util_core.add_message(x_return_status);
4457: l_num_warnings := l_num_warnings + 1;
4458: l_exp_warning := TRUE;
4459: ELSIF NOT (l_exp_logged) THEN
4460: -- BugFix #3947506
4457: l_num_warnings := l_num_warnings + 1;
4458: l_exp_warning := TRUE;
4459: ELSIF NOT (l_exp_logged) THEN
4460: -- BugFix #3947506
4461: WSH_UTIL_CORE.Get_Entity_Name
4462: ( l_exceptions_tab(exp_cnt).entity_id,
4463: l_exceptions_tab(exp_cnt).entity_name,
4464: l_out_entity_id,
4465: l_out_entity_name,
4464: l_out_entity_id,
4465: l_out_entity_name,
4466: l_out_status);
4467:
4468: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4469: wsh_util_core.add_message(l_out_status);
4470: RAISE FND_API.G_EXC_ERROR;
4471: END IF;
4472: -- End of code BugFix #3947506
4465: l_out_entity_name,
4466: l_out_status);
4467:
4468: IF ( l_out_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4469: wsh_util_core.add_message(l_out_status);
4470: RAISE FND_API.G_EXC_ERROR;
4471: END IF;
4472: -- End of code BugFix #3947506
4473:
4474: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4475: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_out_entity_name); -- BugFix #3947506
4476: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4477: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4478: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4479: l_exp_logged := TRUE;
4480: wsh_util_core.add_message(x_return_status);
4481: l_num_warnings := l_num_warnings + 1;
4482: l_exp_warning := TRUE;
4476: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_out_entity_id); -- BugFix #3947506
4477: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4478: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4479: l_exp_logged := TRUE;
4480: wsh_util_core.add_message(x_return_status);
4481: l_num_warnings := l_num_warnings + 1;
4482: l_exp_warning := TRUE;
4483: END IF;
4484: END IF;
4486: --
4487:
4488: IF l_num_errors > 0
4489: THEN
4490: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4491: x_allowed := 'N';
4492: ELSIF l_num_warnings > 0
4493: THEN
4494: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4490: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4491: x_allowed := 'N';
4492: ELSIF l_num_warnings > 0
4493: THEN
4494: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4495: ELSE
4496: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4497: END IF;
4498: --
4492: ELSIF l_num_warnings > 0
4493: THEN
4494: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4495: ELSE
4496: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4497: END IF;
4498: --
4499: --
4500: -- If Exceptions have warnings, then display warnings but allow to proceed
4512: --
4513: --}
4514: EXCEPTION
4515: --{
4516: WHEN wsh_util_core.e_not_allowed THEN
4517: IF l_num_warnings > 0
4518: THEN
4519: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4520: ELSE
4515: --{
4516: WHEN wsh_util_core.e_not_allowed THEN
4517: IF l_num_warnings > 0
4518: THEN
4519: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4520: ELSE
4521: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4522: END IF;
4523: --
4517: IF l_num_warnings > 0
4518: THEN
4519: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4520: ELSE
4521: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4522: END IF;
4523: --
4524: x_allowed := 'N';
4525: --
4528: WSH_DEBUG_SV.logmsg(l_module_name,'e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4529: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_not_allowed');
4530: END IF;
4531: --
4532: WHEN wsh_util_core.e_not_allowed_warning THEN
4533: IF l_num_warnings > 0
4534: THEN
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4536: ELSE
4531: --
4532: WHEN wsh_util_core.e_not_allowed_warning THEN
4533: IF l_num_warnings > 0
4534: THEN
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4536: ELSE
4537: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4538: END IF;
4539: --
4533: IF l_num_warnings > 0
4534: THEN
4535: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4536: ELSE
4537: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4538: END IF;
4539: --
4540: x_allowed := 'NW';
4541: --
4546: END IF;
4547: --
4548: WHEN FND_API.G_EXC_ERROR THEN
4549:
4550: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4551: --
4552: IF l_debug_on THEN
4553: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4554: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4555: END IF;
4556: --
4557: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4558:
4559: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4560: --
4561: IF l_debug_on THEN
4562: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4563: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4562: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4563: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4564: END IF;
4565: --
4566: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4567: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4568: --
4569: IF l_debug_on THEN
4570: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4563: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4564: END IF;
4565: --
4566: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4567: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4568: --
4569: IF l_debug_on THEN
4570: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4571: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4566: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4567: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4568: --
4569: IF l_debug_on THEN
4570: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4571: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4572: END IF;
4573: --
4574: WHEN OTHERS THEN
4567: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4568: --
4569: IF l_debug_on THEN
4570: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4571: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4572: END IF;
4573: --
4574: WHEN OTHERS THEN
4575:
4572: END IF;
4573: --
4574: WHEN OTHERS THEN
4575:
4576: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4577: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.check_inTransit',l_module_name);
4578: --
4579: IF l_debug_on THEN
4580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4573: --
4574: WHEN OTHERS THEN
4575:
4576: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4577: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.check_inTransit',l_module_name);
4578: --
4579: IF l_debug_on THEN
4580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4581: END IF;
4636: WSH_DEBUG_SV.log(l_module_name,'p_trip_id',p_trip_id);
4637: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
4638: END IF;
4639: --
4640: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4641: --
4642: IF (p_trip_id IS NOT NULL)
4643: THEN
4644: --{
4648: --
4649: IF l_trip_rec.planned_flag NOT IN ('N','Y')
4650: THEN
4651: -- Trip is routing and content firm.
4652: RAISE wsh_util_core.e_not_allowed;
4653: END IF;
4654: --
4655: IF l_trip_rec.status_code IN ('IT','CL')
4656: THEN
4653: END IF;
4654: --
4655: IF l_trip_rec.status_code IN ('IT','CL')
4656: THEN
4657: RAISE wsh_util_core.e_not_allowed;
4658: END IF;
4659: --
4660: --}
4661: END IF;
4665: END IF;
4666: --}
4667: EXCEPTION
4668: --{
4669: WHEN wsh_util_core.e_not_allowed THEN
4670: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4671: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_STATUS_NO_ACTION');
4672: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_rec.name);
4673: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
4666: --}
4667: EXCEPTION
4668: --{
4669: WHEN wsh_util_core.e_not_allowed THEN
4670: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4671: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_STATUS_NO_ACTION');
4672: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_rec.name);
4673: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
4674: --
4669: WHEN wsh_util_core.e_not_allowed THEN
4670: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4671: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_STATUS_NO_ACTION');
4672: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_rec.name);
4673: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
4674: --
4675: IF l_debug_on THEN
4676: WSH_DEBUG_SV.logmsg(l_module_name,'e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4677: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_not_allowed');
4677: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:e_not_allowed');
4678: END IF;
4679: --
4680: WHEN OTHERS THEN
4681: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4682: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.validate_trip_status', l_module_name);
4683: IF l_debug_on THEN
4684: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4685: END IF;
4678: END IF;
4679: --
4680: WHEN OTHERS THEN
4681: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4682: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.validate_trip_status', l_module_name);
4683: IF l_debug_on THEN
4684: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4685: END IF;
4686: --}
4785: --}
4786: EXCEPTION
4787: --{
4788: WHEN OTHERS THEN
4789: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.has_outbound_deliveries', l_module_name);
4790: --
4791: IF l_debug_on THEN
4792: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4793: END IF;
4895: --}
4896: EXCEPTION
4897: --{
4898: WHEN OTHERS THEN
4899: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.has_inbound_deliveries', l_module_name);
4900: --
4901: IF l_debug_on THEN
4902: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4903: END IF;
5022: --}
5023: EXCEPTION
5024: --{
5025: WHEN OTHERS THEN
5026: wsh_util_core.default_handler('WSH_TRIP_VALIDATIONS.has_mixed_deliveries', l_module_name);
5027: --
5028: IF l_debug_on THEN
5029: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5030: END IF;
5779: p_attributes => l_attributes,
5780: x_return_status => l_return_status
5781: );
5782:
5783: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5784: THEN
5785: x_return_status := l_return_status;
5786: IF l_debug_on THEN
5787: wsh_debug_sv.logmsg(l_module_name,'Error returned by wsh_utilities.process_message',WSH_DEBUG_SV.C_PROC_LEVEL);
5789: wsh_debug_sv.pop(l_module_name);
5790: END IF;
5791: return;
5792: ELSE
5793: x_return_status := wsh_util_core.G_RET_STS_WARNING;
5794: END IF;
5795: END IF;
5796:
5797:
5803:
5804:
5805: EXCEPTION
5806: WHEN OTHERS THEN
5807: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5808: --
5809: IF l_debug_on THEN
5810: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5811: END IF;
5929:
5930: l_num_warn NUMBER;
5931: l_num_warn_total NUMBER;
5932: l_debug_on BOOLEAN;
5933: l_del_to_unassign WSH_UTIL_CORE.Id_Tab_Type;
5934: l_return_status VARCHAR2(1);
5935: --
5936: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Validate_Stop_Dates';
5937: invalid_input EXCEPTION;
5942:
5943: BEGIN
5944:
5945: -- initialize variables
5946: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5947: l_del_to_unassign.delete;
5948: l_num_warn := 0;
5949: l_batchsize := 1000;
5950: l_num_warn_total := 0;
6029: WSH_NEW_DELIVERIES_PVT.get_name(l_del_to_unassign(i)));
6030: FND_MESSAGE.SET_TOKEN('TRIP_NAME',
6031: WSH_TRIPS_PVT.get_name(p_trip_id));
6032: l_num_warn := l_num_warn + 1;
6033: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_WARNING);
6034:
6035: i := l_del_to_unassign.next(i);
6036: END LOOP;
6037:
6043: (p_del_rows => l_del_to_unassign,
6044: p_trip_id => p_trip_id,
6045: x_return_status => l_return_status);
6046:
6047: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6048: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6049: IF l_debug_on THEN
6050: WSH_DEBUG_SV.pop(l_module_name);
6051: END IF;
6044: p_trip_id => p_trip_id,
6045: x_return_status => l_return_status);
6046:
6047: IF l_return_status in (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
6048: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6049: IF l_debug_on THEN
6050: WSH_DEBUG_SV.pop(l_module_name);
6051: END IF;
6052: return;
6049: IF l_debug_on THEN
6050: WSH_DEBUG_SV.pop(l_module_name);
6051: END IF;
6052: return;
6053: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6054: l_num_warn := l_num_warn + 1;
6055: END IF;
6056:
6057: l_num_warn_total := l_num_warn_total + 1;
6065:
6066: -- bulk collection
6067:
6068: IF l_num_warn_total > 0 THEN
6069: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6070: END IF;
6071:
6072: IF l_debug_on THEN
6073: WSH_DEBUG_SV.pop(l_module_name);
6075:
6076: EXCEPTION
6077:
6078: WHEN invalid_input THEN
6079: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6080: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_REQUIRED');
6081: wsh_util_core.add_message(x_return_status, l_module_name);
6082: IF l_debug_on THEN
6083: WSH_DEBUG_SV.logmsg(l_module_name,'ERROR: Trip ID is NULL');
6077:
6078: WHEN invalid_input THEN
6079: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6080: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_ID_REQUIRED');
6081: wsh_util_core.add_message(x_return_status, l_module_name);
6082: IF l_debug_on THEN
6083: WSH_DEBUG_SV.logmsg(l_module_name,'ERROR: Trip ID is NULL');
6084: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
6085: END IF;
6087: WHEN invalid_stop_date THEN
6088: IF get_invalid_planned_dates%ISOPEN THEN
6089: close get_invalid_planned_dates;
6090: END IF;
6091: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6092: IF l_invalid_planned_date.physical_stop_id is NULL THEN
6093: FND_MESSAGE.SET_NAME('WSH', 'WSH_STOP_DATE_OVERLAP');
6094: FND_MESSAGE.SET_TOKEN('CURRENT_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.cur_dep_date,calendar_aware=>FND_DATE.calendar_aware_alt));
6095: FND_MESSAGE.SET_TOKEN('CURRENT_LOCATION_DESP',
6092: IF l_invalid_planned_date.physical_stop_id is NULL THEN
6093: FND_MESSAGE.SET_NAME('WSH', 'WSH_STOP_DATE_OVERLAP');
6094: FND_MESSAGE.SET_TOKEN('CURRENT_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.cur_dep_date,calendar_aware=>FND_DATE.calendar_aware_alt));
6095: FND_MESSAGE.SET_TOKEN('CURRENT_LOCATION_DESP',
6096: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.cur_location_id,'NEW UI CODE INFO'));
6097: FND_MESSAGE.SET_TOKEN('NEXT_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.nxt_arr_date,calendar_aware=>FND_DATE.calendar_aware_alt));
6098: ELSE
6099: -- No stop is allowed between dummy stop and physical stop.
6100: FND_MESSAGE.SET_NAME('WSH', 'WSH_BETWEEN_LINKED_STOPS');
6099: -- No stop is allowed between dummy stop and physical stop.
6100: FND_MESSAGE.SET_NAME('WSH', 'WSH_BETWEEN_LINKED_STOPS');
6101: FND_MESSAGE.SET_TOKEN('DUMMY_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.cur_arr_date,calendar_aware=>FND_DATE.calendar_aware_alt));
6102: FND_MESSAGE.SET_TOKEN('DUMMY_LOCATION_DESP',
6103: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.cur_location_id,'NEW UI CODE INFO'));
6104: FND_MESSAGE.SET_TOKEN('PHYSICAL_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.nxt_arr_date,calendar_aware=>FND_DATE.calendar_aware_alt));
6105: FND_MESSAGE.SET_TOKEN('PHYSICAL_LOCATION_DESP',
6106: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.nxt_location_id,'NEW UI CODE INFO'));
6107: END IF;
6102: FND_MESSAGE.SET_TOKEN('DUMMY_LOCATION_DESP',
6103: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.cur_location_id,'NEW UI CODE INFO'));
6104: FND_MESSAGE.SET_TOKEN('PHYSICAL_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.nxt_arr_date,calendar_aware=>FND_DATE.calendar_aware_alt));
6105: FND_MESSAGE.SET_TOKEN('PHYSICAL_LOCATION_DESP',
6106: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.nxt_location_id,'NEW UI CODE INFO'));
6107: END IF;
6108: wsh_util_core.add_message(x_return_status, l_module_name);
6109:
6110: IF l_debug_on THEN
6104: FND_MESSAGE.SET_TOKEN('PHYSICAL_STOP_DATE', fnd_date.date_to_displaydt(l_invalid_planned_date.nxt_arr_date,calendar_aware=>FND_DATE.calendar_aware_alt));
6105: FND_MESSAGE.SET_TOKEN('PHYSICAL_LOCATION_DESP',
6106: WSH_UTIL_CORE.Get_Location_Description (l_invalid_planned_date.nxt_location_id,'NEW UI CODE INFO'));
6107: END IF;
6108: wsh_util_core.add_message(x_return_status, l_module_name);
6109:
6110: IF l_debug_on THEN
6111: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_stop_date');
6112: END IF;
6112: END IF;
6113:
6114: -- Bug 3782135
6115: WHEN invalid_arrival_date THEN
6116: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6117:
6118: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_STOP_DATE');
6119: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(l_invalid_plarrival_date.cur_stop_id,p_caller));
6120: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
6116: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6117:
6118: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_STOP_DATE');
6119: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(l_invalid_plarrival_date.cur_stop_id,p_caller));
6120: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
6121:
6122: IF l_debug_on THEN
6123: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_planned_arrival_date');
6124: END IF;
6136:
6137: IF get_deliveries_to_unassign%ISOPEN THEN
6138: close get_deliveries_to_unassign;
6139: END IF;
6140: wsh_util_core.default_handler('WSH_TRIP_STOPS_VALIDATIONS.Validate_Stop_Dates',l_module_name);
6141: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6142: IF l_debug_on THEN
6143: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6144: END IF;
6137: IF get_deliveries_to_unassign%ISOPEN THEN
6138: close get_deliveries_to_unassign;
6139: END IF;
6140: wsh_util_core.default_handler('WSH_TRIP_STOPS_VALIDATIONS.Validate_Stop_Dates',l_module_name);
6141: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6142: IF l_debug_on THEN
6143: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6144: END IF;
6145: