[Home] [Help]
83: --
84: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
85: --
86: IF l_debug_on IS NULL THEN
87: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
88: END IF;
89: --
90: IF l_debug_on THEN
91: WSH_DEBUG_SV.push(l_module_name);
87: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
88: END IF;
89: --
90: IF l_debug_on THEN
91: WSH_DEBUG_SV.push(l_module_name);
92: WSH_DEBUG_SV.log(l_module_name,'Stop id'||p_stop_id);
93: END IF;
94: --
95: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
88: END IF;
89: --
90: IF l_debug_on THEN
91: WSH_DEBUG_SV.push(l_module_name);
92: WSH_DEBUG_SV.log(l_module_name,'Stop id'||p_stop_id);
93: END IF;
94: --
95: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
96:
106:
107: IF del_ids.COUNT <> 0 THEN
108: -- Call Confirm_Delivery for del_ids
109: IF l_debug_on THEN
110: WSH_DEBUG_SV.log(l_module_name,'Calling WSH_NEW_DELIVERY_ACTIONS.Confirm_Delivery');
111: END IF;
112: -- We always set the close_trip/set_intransit flags to 'N'
113: -- since we manually close the stops if necessary after the
114: -- call to confirm_delivery.
126: p_defer_interface_flag => p_defer_interface_flag,
127: p_send_945_flag => NULL,
128: x_return_status => l_return_status);
129: IF l_debug_on THEN
130: WSH_DEBUG_SV.log(l_module_name,'Return status from WSHDEACB.Confirm_Delivery: ' || l_return_status);
131: END IF;
132:
133: x_return_status := l_return_status ;
134:
136: -- Bug#5864517: Needs to call Print_Label API irrespective of p_intransit_flag and p_close_flag
137: -- flag values.
138: -- Call Print Label for WMS
139: IF l_debug_on THEN
140: WSH_DEBUG_SV.log(l_module_name,'Calling WSH_UTIL_CORE.Print_Label');
141: END IF;
142: WSH_UTIL_CORE.Print_Label(p_stop_ids => stop_ids,
143: p_delivery_ids => dummy_ids,
144: x_return_status => l_return_status);
142: WSH_UTIL_CORE.Print_Label(p_stop_ids => stop_ids,
143: p_delivery_ids => dummy_ids,
144: x_return_status => l_return_status);
145: IF l_debug_on THEN
146: WSH_DEBUG_SV.log(l_module_name,'Return status from WSH_UTIL_CORE.Print_Label : ' || l_return_status);
147: END IF;
148: IF l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
149: --{
150: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING AND
165:
166: IF x_return_status NOT IN ( WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
167:
168: IF l_debug_on THEN
169: WSH_DEBUG_SV.log(l_module_name,'In-transit flag'||p_intransit_flag);
170: WSH_DEBUG_SV.log(l_module_name,'Close flag'||p_close_flag);
171: END IF;
172: IF p_intransit_flag = 'Y' OR p_close_flag = 'Y' THEN
173: -- Call Change_Status for the Stop
166: IF x_return_status NOT IN ( WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
167:
168: IF l_debug_on THEN
169: WSH_DEBUG_SV.log(l_module_name,'In-transit flag'||p_intransit_flag);
170: WSH_DEBUG_SV.log(l_module_name,'Close flag'||p_close_flag);
171: END IF;
172: IF p_intransit_flag = 'Y' OR p_close_flag = 'Y' THEN
173: -- Call Change_Status for the Stop
174: IF l_debug_on THEN
171: END IF;
172: IF p_intransit_flag = 'Y' OR p_close_flag = 'Y' THEN
173: -- Call Change_Status for the Stop
174: IF l_debug_on THEN
175: WSH_DEBUG_SV.log(l_module_name,'IN IF CONDITION');
176: WSH_DEBUG_SV.log(l_module_name,'Stop id'||stop_ids(1));
177: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Check_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
178: END IF;
179: --l_exceptions_tab.delete; //Commented for bugfix 4017720.
172: IF p_intransit_flag = 'Y' OR p_close_flag = 'Y' THEN
173: -- Call Change_Status for the Stop
174: IF l_debug_on THEN
175: WSH_DEBUG_SV.log(l_module_name,'IN IF CONDITION');
176: WSH_DEBUG_SV.log(l_module_name,'Stop id'||stop_ids(1));
177: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Check_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
178: END IF;
179: --l_exceptions_tab.delete; //Commented for bugfix 4017720.
180: l_exp_logged := FALSE;
173: -- Call Change_Status for the Stop
174: IF l_debug_on THEN
175: WSH_DEBUG_SV.log(l_module_name,'IN IF CONDITION');
176: WSH_DEBUG_SV.log(l_module_name,'Stop id'||stop_ids(1));
177: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Check_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
178: END IF;
179: --l_exceptions_tab.delete; //Commented for bugfix 4017720.
180: l_exp_logged := FALSE;
181: l_exc_exist := 'N';
227: IF l_exc_exist = 'N' THEN
228:
229:
230: IF l_debug_on THEN
231: WSH_DEBUG_SV.log(l_module_name,'Calling WSHSTACB.change_status');
232: END IF;
233:
234:
235: Change_Status ( p_stop_rows => stop_ids,
237: p_actual_date => p_actual_dep_date,
238: p_defer_interface_flag => p_defer_interface_flag,
239: x_return_status => l_return_status);
240: IF l_debug_on THEN
241: WSH_DEBUG_SV.log(l_module_name,'Return status from WSHSTACB.change_status : ' || l_return_status);
242: END IF;
243:
244: IF l_return_status NOT IN
245: (WSH_UTIL_CORE.G_RET_STS_ERROR,
270: rollback to sp_confirm_stop;
271: END IF;
272:
273: IF l_debug_on THEN
274: WSH_DEBUG_SV.log(l_module_name,'Return status from WSHSTACB.Confirm_Stop: '||x_return_status);
275: WSH_DEBUG_SV.pop(l_module_name);
276: END IF;
277:
278: EXCEPTION
271: END IF;
272:
273: IF l_debug_on THEN
274: WSH_DEBUG_SV.log(l_module_name,'Return status from WSHSTACB.Confirm_Stop: '||x_return_status);
275: WSH_DEBUG_SV.pop(l_module_name);
276: END IF;
277:
278: EXCEPTION
279: WHEN others THEN
280: wsh_util_core.default_handler('WSH_TRIP_STOPS_ACTIONS.CONFIRM_STOP');
281: rollback to sp_confirm_stop;
282: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
283: IF l_debug_on THEN
284: WSH_DEBUG_SV.log(l_module_name,'Unexpected Error has Occured.Oracle error message is'||SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
285: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
286: END IF;
287:
288: END;
281: rollback to sp_confirm_stop;
282: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
283: IF l_debug_on THEN
284: WSH_DEBUG_SV.log(l_module_name,'Unexpected Error has Occured.Oracle error message is'||SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
285: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
286: END IF;
287:
288: END;
289:
342: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
343: --
344: IF l_debug_on IS NULL
345: THEN
346: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
347: END IF;
348: --
349: IF l_debug_on THEN
350: WSH_DEBUG_SV.push(l_module_name);
346: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
347: END IF;
348: --
349: IF l_debug_on THEN
350: WSH_DEBUG_SV.push(l_module_name);
351: END IF;
352: --
353: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
354:
373: --
374: -- Debug Statements
375: --
376: IF l_debug_on THEN
377: WSH_DEBUG_SV.pop(l_module_name);
378: END IF;
379: --
380: RETURN;
381: END IF;
387: --
388: -- Debug Statements
389: --
390: IF l_debug_on THEN
391: WSH_DEBUG_SV.pop(l_module_name);
392: END IF;
393: --
394: RETURN;
395: END IF;
399: --
400: -- Debug Statements
401: --
402: IF l_debug_on THEN
403: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
404: END IF;
405: --
406: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(p_stop_rows(i),p_caller));
407: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
409: --
410: -- Debug Statements
411: --
412: IF l_debug_on THEN
413: WSH_DEBUG_SV.pop(l_module_name);
414: END IF;
415: --
416: RETURN;
417: END IF;
431: --
432: -- Debug Statements
433: --
434: IF l_debug_on THEN
435: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
436: END IF;
437: --
438: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(p_stop_rows(i),p_caller));
439: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
441: --
442: -- Debug Statements
443: --
444: IF l_debug_on THEN
445: WSH_DEBUG_SV.pop(l_module_name);
446: END IF;
447: --
448: RETURN;
449: END IF;
457: --
458: -- Debug Statements
459: --
460: IF l_debug_on THEN
461: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
462: END IF;
463: --
464: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(p_stop_rows(i),p_caller));
465: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
479: --
480: -- Debug Statements
481: --
482: IF l_debug_on THEN
483: WSH_DEBUG_SV.pop(l_module_name);
484: END IF;
485: --
486: EXCEPTION
487: WHEN others THEN
491: --
492: -- Debug Statements
493: --
494: IF l_debug_on THEN
495: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
497: END IF;
498: --
499: END Check_Update_Stops;
492: -- Debug Statements
493: --
494: IF l_debug_on THEN
495: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
497: END IF;
498: --
499: END Check_Update_Stops;
500:
547: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
548: --
549: IF l_debug_on IS NULL
550: THEN
551: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
552: END IF;
553: --
554: IF l_debug_on THEN
555: WSH_DEBUG_SV.push(l_module_name);
551: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
552: END IF;
553: --
554: IF l_debug_on THEN
555: WSH_DEBUG_SV.push(l_module_name);
556: --
557: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
558: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DATE',P_ACTUAL_DATE);
559: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
553: --
554: IF l_debug_on THEN
555: WSH_DEBUG_SV.push(l_module_name);
556: --
557: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
558: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DATE',P_ACTUAL_DATE);
559: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
560: END IF;
561: --
554: IF l_debug_on THEN
555: WSH_DEBUG_SV.push(l_module_name);
556: --
557: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
558: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DATE',P_ACTUAL_DATE);
559: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
560: END IF;
561: --
562: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
555: WSH_DEBUG_SV.push(l_module_name);
556: --
557: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
558: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DATE',P_ACTUAL_DATE);
559: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
560: END IF;
561: --
562: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
563: l_num_warnings := 0;
584: --
585: l_num_warnings_bak := l_num_warnings;
586: --
587: IF l_debug_on THEN
588: WSH_DEBUG_SV.log(l_module_name,'l_num_warnings_bak',l_num_warnings_bak);
589: END IF;
590: --
591:
592: IF (p_action = 'CLOSE')
598: l_in_rec.actual_date := p_actual_date;
599: --
600: --
601: IF l_debug_on THEN
602: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_VALIDATIONS.CHECK_STOP_CLOSE',WSH_DEBUG_SV.C_PROC_LEVEL);
603: END IF;
604: --
605: WSH_TRIP_STOPS_VALIDATIONS.check_stop_close
606: (
609: x_return_status => l_return_status
610: );
611: --
612: IF l_debug_on THEN
613: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
614: WSH_DEBUG_SV.log(l_module_name,'l_out_rec.close_Allowed',l_out_rec.close_Allowed);
615: END IF;
616: --
617: WSH_UTIL_CORE.api_post_call
610: );
611: --
612: IF l_debug_on THEN
613: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
614: WSH_DEBUG_SV.log(l_module_name,'l_out_rec.close_Allowed',l_out_rec.close_Allowed);
615: END IF;
616: --
617: WSH_UTIL_CORE.api_post_call
618: (
638: END IF;
639: --
640: --
641: IF l_debug_on THEN
642: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_ACTIONS.SETCLOSE',WSH_DEBUG_SV.C_PROC_LEVEL);
643: END IF;
644: --
645: WSH_TRIP_STOPS_ACTIONS.setClose
646: (
657: x_num_errors => l_num_errors
658: );
659: --
660: IF l_debug_on THEN
661: WSH_DEBUG_SV.log(l_module_name,'After setclose-l_num_warnings',l_num_warnings);
662: END IF;
663: --
664: --
665: IF l_num_warnings > l_num_warnings_bak
670: END IF;
671:
672: -- Close Exceptions for the Stop and its contents
673: IF l_debug_on THEN
674: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Close_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
675: END IF;
676: WSH_XC_UTIL.Close_Exceptions (
677: p_api_version => 1.0,
678: x_return_status => l_return_status,
704: l_in_rec.actual_date := p_actual_date;
705: --
706: --
707: IF l_debug_on THEN
708: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_VALIDATIONS.CHECK_STOP_ARRIVE',WSH_DEBUG_SV.C_PROC_LEVEL);
709: END IF;
710: --
711: WSH_TRIP_VALIDATIONS.check_stop_arrive
712: (
740:
741: -- Workflow Project
742: -- Raise Stop Status change business event
743: IF l_debug_on THEN
744: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
745: END IF;
746: WSH_WF_STD.RAISE_EVENT( p_entity_type => 'STOP',
747: p_entity_id => p_stop_rows(i),
748: p_event => 'oracle.apps.wsh.stop.gen.arrived',
748: p_event => 'oracle.apps.wsh.stop.gen.arrived',
749: x_return_status => l_wf_rs
750: );
751: IF l_debug_on THEN
752: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
753: END IF;
754:
755: IF l_linked_stop_id IS NOT NULL THEN
756: IF l_debug_on THEN
753: END IF;
754:
755: IF l_linked_stop_id IS NOT NULL THEN
756: IF l_debug_on THEN
757: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
758: END IF;
759: WSH_WF_STD.RAISE_EVENT( p_entity_type => 'STOP',
760: p_entity_id => l_linked_stop_id,
761: p_event => 'oracle.apps.wsh.stop.gen.arrived',
761: p_event => 'oracle.apps.wsh.stop.gen.arrived',
762: x_return_status => l_wf_rs
763: );
764: IF l_debug_on THEN
765: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
766: END IF;
767: END IF;
768: -- End of code for Workflow project
769:
772: -- Updating WSH_TRIP_STOPS.
773: -- Call DBI API after the Update.
774: -- This API will also check for DBI Installed or not
775: IF l_debug_on THEN
776: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Stop Count -',l_stop_tab.count);
777: END IF;
778: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
779: (p_stop_id_tab => l_stop_tab,
780: p_dml_type => 'UPDATE',
780: p_dml_type => 'UPDATE',
781: x_return_status => l_dbi_rs);
782:
783: IF l_debug_on THEN
784: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
785: END IF;
786: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
787: x_return_status := l_dbi_rs;
788: ROLLBACK TO stop_chg_status_sp;
787: x_return_status := l_dbi_rs;
788: ROLLBACK TO stop_chg_status_sp;
789: -- just pass this return status to caller API
790: IF l_debug_on THEN
791: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
792: WSH_DEBUG_SV.pop(l_module_name);
793: END IF;
794: return;
795: END IF;
788: ROLLBACK TO stop_chg_status_sp;
789: -- just pass this return status to caller API
790: IF l_debug_on THEN
791: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
792: WSH_DEBUG_SV.pop(l_module_name);
793: END IF;
794: return;
795: END IF;
796: -- End of Code for DBI Project
820: THEN
821: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_ARRIVE_ERROR');
822: --
823: IF l_debug_on THEN
824: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
825: END IF;
826: --
827: FND_MESSAGE.SET_TOKEN('stop_name',wsh_trip_stops_pvt.get_name(p_stop_rows(i),p_caller));
828: END IF;
849: END LOOP;
850: --
851: --
852: IF l_debug_on THEN
853: wsh_debug_sv.log(l_module_name, 'l_stopsProcessed', l_stopsProcessed);
854: wsh_debug_sv.log(l_module_name, 'l_stopsProcessedWarnings', l_stopsProcessedWarnings);
855: wsh_debug_sv.log(l_module_name, 'l_num_errors', l_num_errors);
856: wsh_debug_sv.log(l_module_name, 'l_num_warnings', l_num_warnings);
857:
850: --
851: --
852: IF l_debug_on THEN
853: wsh_debug_sv.log(l_module_name, 'l_stopsProcessed', l_stopsProcessed);
854: wsh_debug_sv.log(l_module_name, 'l_stopsProcessedWarnings', l_stopsProcessedWarnings);
855: wsh_debug_sv.log(l_module_name, 'l_num_errors', l_num_errors);
856: wsh_debug_sv.log(l_module_name, 'l_num_warnings', l_num_warnings);
857:
858: END IF;
851: --
852: IF l_debug_on THEN
853: wsh_debug_sv.log(l_module_name, 'l_stopsProcessed', l_stopsProcessed);
854: wsh_debug_sv.log(l_module_name, 'l_stopsProcessedWarnings', l_stopsProcessedWarnings);
855: wsh_debug_sv.log(l_module_name, 'l_num_errors', l_num_errors);
856: wsh_debug_sv.log(l_module_name, 'l_num_warnings', l_num_warnings);
857:
858: END IF;
859:
852: IF l_debug_on THEN
853: wsh_debug_sv.log(l_module_name, 'l_stopsProcessed', l_stopsProcessed);
854: wsh_debug_sv.log(l_module_name, 'l_stopsProcessedWarnings', l_stopsProcessedWarnings);
855: wsh_debug_sv.log(l_module_name, 'l_num_errors', l_num_errors);
856: wsh_debug_sv.log(l_module_name, 'l_num_warnings', l_num_warnings);
857:
858: END IF;
859:
860: IF (l_stopsProcessed = 0 AND l_stopsProcessedWarnings = 0)
899: --
900: -- Debug Statements
901: --
902: IF l_debug_on THEN
903: WSH_DEBUG_SV.pop(l_module_name);
904: END IF;
905: --}
906: EXCEPTION
907: WHEN FND_API.G_EXC_ERROR THEN
909: --
910: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
911: --
912: IF l_debug_on THEN
913: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
914: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
915: END IF;
916: --
917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
910: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
911: --
912: IF l_debug_on THEN
913: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
914: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
915: END IF;
916: --
917: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
918:
920: --
921: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
922: --
923: IF l_debug_on THEN
924: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
925: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
926: END IF;
927: --
928: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
921: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
922: --
923: IF l_debug_on THEN
924: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
925: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
926: END IF;
927: --
928: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
929: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
928: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
929: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
930: --
931: IF l_debug_on THEN
932: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
933: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
934: END IF;
935: --
936: WHEN others THEN
929: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
930: --
931: IF l_debug_on THEN
932: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
933: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
934: END IF;
935: --
936: WHEN others THEN
937:
943: --
944: -- Debug Statements
945: --
946: IF l_debug_on THEN
947: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
948: END IF;
949: --
950: END Change_Status;
951:
997: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
998: --
999: IF l_debug_on IS NULL
1000: THEN
1001: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1002: END IF;
1003: --
1004: IF l_debug_on THEN
1005: WSH_DEBUG_SV.push(l_module_name);
1001: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1002: END IF;
1003: --
1004: IF l_debug_on THEN
1005: WSH_DEBUG_SV.push(l_module_name);
1006: --
1007: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
1008: END IF;
1009: --
1003: --
1004: IF l_debug_on THEN
1005: WSH_DEBUG_SV.push(l_module_name);
1006: --
1007: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
1008: END IF;
1009: --
1010: IF (p_stop_rows.count = 0) THEN
1011: raise others;
1030: --
1031: -- Debug Statements
1032: --
1033: IF l_debug_on THEN
1034: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.PLAN',WSH_DEBUG_SV.C_PROC_LEVEL);
1035: END IF;
1036: --
1037: wsh_new_delivery_actions.plan(l_del_rows, x_return_status);
1038: ELSE
1039: --
1040: -- Debug Statements
1041: --
1042: IF l_debug_on THEN
1043: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.UNPLAN',WSH_DEBUG_SV.C_PROC_LEVEL);
1044: END IF;
1045: --
1046: wsh_new_delivery_actions.unplan(l_del_rows, x_return_status);
1047: END IF;
1060: --
1061: -- Debug Statements
1062: --
1063: IF l_debug_on THEN
1064: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1065: END IF;
1066: --
1067: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(p_stop_rows(i),p_caller));
1068: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1106: --
1107: -- Debug Statements
1108: --
1109: IF l_debug_on THEN
1110: WSH_DEBUG_SV.pop(l_module_name);
1111: END IF;
1112: --
1113: EXCEPTION
1114: WHEN invalid_stop then
1124: --
1125: -- Debug Statements
1126: --
1127: IF l_debug_on THEN
1128: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_STOP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1129: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_STOP');
1130: END IF;
1131: --
1132: WHEN others THEN
1125: -- Debug Statements
1126: --
1127: IF l_debug_on THEN
1128: WSH_DEBUG_SV.logmsg(l_module_name,'INVALID_STOP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1129: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:INVALID_STOP');
1130: END IF;
1131: --
1132: WHEN others THEN
1133: wsh_util_core.default_handler('WSH_TRIP_STOPS_ACTIONS.CHANGE_STATUS');
1137: --
1138: -- Debug Statements
1139: --
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1143: END IF;
1144: --
1145: END Plan;
1138: -- Debug Statements
1139: --
1140: IF l_debug_on THEN
1141: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1143: END IF;
1144: --
1145: END Plan;
1146:
1175: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1176: --
1177: IF l_debug_on IS NULL
1178: THEN
1179: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1180: END IF;
1181: --
1182: IF l_debug_on THEN
1183: WSH_DEBUG_SV.push(l_module_name);
1179: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1180: END IF;
1181: --
1182: IF l_debug_on THEN
1183: WSH_DEBUG_SV.push(l_module_name);
1184: --
1185: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
1186: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
1187: END IF;
1181: --
1182: IF l_debug_on THEN
1183: WSH_DEBUG_SV.push(l_module_name);
1184: --
1185: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
1186: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
1187: END IF;
1188: --
1189: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1182: IF l_debug_on THEN
1183: WSH_DEBUG_SV.push(l_module_name);
1184: --
1185: WSH_DEBUG_SV.log(l_module_name,'P_OVERRIDE_FLAG',P_OVERRIDE_FLAG);
1186: WSH_DEBUG_SV.log(l_module_name,'P_CALC_WV_IF_FROZEN',P_CALC_WV_IF_FROZEN);
1187: END IF;
1188: --
1189: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1190:
1215: --
1216: -- Debug Statements
1217: --
1218: IF l_debug_on THEN
1219: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.TRIP_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
1220: END IF;
1221: --
1222: wsh_trips_actions.trip_weight_volume(
1223: p_trip_rows => dummy_trip_ids,
1231: --
1232: -- Debug Statements
1233: --
1234: IF l_debug_on THEN
1235: WSH_DEBUG_SV.pop(l_module_name);
1236: END IF;
1237: --
1238: EXCEPTION
1239: WHEN others THEN
1243: --
1244: -- Debug Statements
1245: --
1246: IF l_debug_on THEN
1247: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1248: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1249: END IF;
1250: --
1251: END calc_stop_weight_volume;
1244: -- Debug Statements
1245: --
1246: IF l_debug_on THEN
1247: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1248: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1249: END IF;
1250: --
1251: END calc_stop_weight_volume;
1252: --
1306: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1307: --
1308: IF l_debug_on IS NULL
1309: THEN
1310: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1311: END IF;
1312: --
1313: IF l_debug_on THEN
1314: WSH_DEBUG_SV.push(l_module_name);
1310: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1311: END IF;
1312: --
1313: IF l_debug_on THEN
1314: WSH_DEBUG_SV.push(l_module_name);
1315: --
1316: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1317: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1318: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1312: --
1313: IF l_debug_on THEN
1314: WSH_DEBUG_SV.push(l_module_name);
1315: --
1316: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1317: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1318: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1319: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1320: WSH_DEBUG_SV.log(l_module_name,'p_reopenStop',p_reopenStop);
1313: IF l_debug_on THEN
1314: WSH_DEBUG_SV.push(l_module_name);
1315: --
1316: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1317: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1318: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1319: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1320: WSH_DEBUG_SV.log(l_module_name,'p_reopenStop',p_reopenStop);
1321: END IF;
1314: WSH_DEBUG_SV.push(l_module_name);
1315: --
1316: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1317: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1318: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1319: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1320: WSH_DEBUG_SV.log(l_module_name,'p_reopenStop',p_reopenStop);
1321: END IF;
1322: --
1315: --
1316: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1317: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1318: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1319: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1320: WSH_DEBUG_SV.log(l_module_name,'p_reopenStop',p_reopenStop);
1321: END IF;
1322: --
1323: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1316: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1317: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1318: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1319: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1320: WSH_DEBUG_SV.log(l_module_name,'p_reopenStop',p_reopenStop);
1321: END IF;
1322: --
1323: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1324: x_stop_processed := 'N';
1329: l_in_rec.caller := 'WSH_IB_'||p_in_rec.caller;
1330: --
1331: --
1332: IF l_debug_on THEN
1333: WSH_DEBUG_SV.log(l_module_name,'l_in_rec.caller',l_in_rec.caller);
1334: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_VALIDATIONS.CHECK_STOP_CLOSE',WSH_DEBUG_SV.C_PROC_LEVEL);
1335: END IF;
1336: --
1337: -- Check if stop can be closed or not.
1330: --
1331: --
1332: IF l_debug_on THEN
1333: WSH_DEBUG_SV.log(l_module_name,'l_in_rec.caller',l_in_rec.caller);
1334: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_VALIDATIONS.CHECK_STOP_CLOSE',WSH_DEBUG_SV.C_PROC_LEVEL);
1335: END IF;
1336: --
1337: -- Check if stop can be closed or not.
1338: --
1354: AND NOT(p_reopenStop)
1355: THEN
1356: --{
1357: IF l_debug_on THEN
1358: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_VALIDATIONS.get_stop_close_date',WSH_DEBUG_SV.C_PROC_LEVEL);
1359: END IF;
1360: --
1361: -- Stop can be closed and input parameter p_reopenStop is FALSE.
1362: -- First, determine the stop close date
1383: l_in_rec.put_messages := TRUE;
1384: --
1385: --
1386: IF l_debug_on THEN
1387: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_ACTIONS.setClose',WSH_DEBUG_SV.C_PROC_LEVEL);
1388: END IF;
1389: --
1390: WSH_TRIP_STOPS_ACTIONS.setClose
1391: (
1415: l_in_rec.put_messages := TRUE;
1416: --
1417: --
1418: IF l_debug_on THEN
1419: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_ACTIONS.setOpen',WSH_DEBUG_SV.C_PROC_LEVEL);
1420: END IF;
1421: --
1422: WSH_TRIP_STOPS_ACTIONS.setOpen
1423: (
1451: --
1452: -- Debug Statements
1453: --
1454: IF l_debug_on THEN
1455: WSH_DEBUG_SV.pop(l_module_name);
1456: END IF;
1457: --}
1458: EXCEPTION
1459: --
1461:
1462: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1463: --
1464: IF l_debug_on THEN
1465: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1466: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1467: END IF;
1468: --
1469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1462: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1463: --
1464: IF l_debug_on THEN
1465: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1466: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1467: END IF;
1468: --
1469: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1470:
1470:
1471: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1472: --
1473: IF l_debug_on THEN
1474: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1475: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1476: END IF;
1477: --
1478: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1471: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1472: --
1473: IF l_debug_on THEN
1474: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1475: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1476: END IF;
1477: --
1478: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1479: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1478: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1479: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1480: --
1481: IF l_debug_on THEN
1482: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1483: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1484: END IF;
1485: --
1486: WHEN OTHERS THEN
1479: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1480: --
1481: IF l_debug_on THEN
1482: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1483: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1484: END IF;
1485: --
1486: WHEN OTHERS THEN
1487:
1487:
1488: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1489: wsh_util_core.default_handler('WSH_TRIP_STOPS_ACTIONS.autoCloseOpen', l_module_name);
1490: IF l_debug_on THEN
1491: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1492: END IF;
1493: --
1494: END autoCloseOpen;
1495:
1591: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1592: --
1593: IF l_debug_on IS NULL
1594: THEN
1595: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1596: END IF;
1597: --
1598: IF l_debug_on THEN
1599: WSH_DEBUG_SV.push(l_module_name);
1595: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1596: END IF;
1597: --
1598: IF l_debug_on THEN
1599: WSH_DEBUG_SV.push(l_module_name);
1600: --
1601: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1602: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1603: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1597: --
1598: IF l_debug_on THEN
1599: WSH_DEBUG_SV.push(l_module_name);
1600: --
1601: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1602: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1603: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1604: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1605: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
1598: IF l_debug_on THEN
1599: WSH_DEBUG_SV.push(l_module_name);
1600: --
1601: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1602: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1603: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1604: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1605: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
1606: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_id',P_in_rec1.trip_id);
1599: WSH_DEBUG_SV.push(l_module_name);
1600: --
1601: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1602: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1603: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1604: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1605: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
1606: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_id',P_in_rec1.trip_id);
1607: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.service_level',P_in_rec1.service_level);
1600: --
1601: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1602: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1603: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1604: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1605: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
1606: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_id',P_in_rec1.trip_id);
1607: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.service_level',P_in_rec1.service_level);
1608: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.carrier_id',P_in_rec1.carrier_id);
1601: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
1602: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1603: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1604: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1605: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
1606: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_id',P_in_rec1.trip_id);
1607: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.service_level',P_in_rec1.service_level);
1608: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.carrier_id',P_in_rec1.carrier_id);
1609: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.mode_of_transport',P_in_rec1.mode_of_transport);
1602: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
1603: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1604: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1605: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
1606: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_id',P_in_rec1.trip_id);
1607: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.service_level',P_in_rec1.service_level);
1608: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.carrier_id',P_in_rec1.carrier_id);
1609: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.mode_of_transport',P_in_rec1.mode_of_transport);
1610:
1603: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
1604: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1605: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
1606: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_id',P_in_rec1.trip_id);
1607: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.service_level',P_in_rec1.service_level);
1608: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.carrier_id',P_in_rec1.carrier_id);
1609: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.mode_of_transport',P_in_rec1.mode_of_transport);
1610:
1611: END IF;
1604: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
1605: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
1606: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_id',P_in_rec1.trip_id);
1607: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.service_level',P_in_rec1.service_level);
1608: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.carrier_id',P_in_rec1.carrier_id);
1609: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.mode_of_transport',P_in_rec1.mode_of_transport);
1610:
1611: END IF;
1612: --
1605: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
1606: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_id',P_in_rec1.trip_id);
1607: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.service_level',P_in_rec1.service_level);
1608: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.carrier_id',P_in_rec1.carrier_id);
1609: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.mode_of_transport',P_in_rec1.mode_of_transport);
1610:
1611: END IF;
1612: --
1613: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1619: IF l_gc3_is_installed IS NULL THEN
1620: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1621: END IF;
1622: IF l_debug_on THEN
1623: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed ',l_gc3_is_installed);
1624: END IF;
1625: -- end of OTM R12, glog proj
1626:
1627: --
1648: l_in_rec.caller := p_in_rec.caller;
1649: l_in_rec.stop_id := p_in_Rec.stop_id;
1650: --
1651: IF l_debug_on THEN
1652: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit setInTransit',WSH_DEBUG_SV.C_PROC_LEVEL);
1653: END IF;
1654: --
1655: -- Set delivery to in-transit.
1656: --
1660: x_return_status => l_return_status
1661: );
1662: --
1663: IF l_debug_on THEN
1664: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
1665: END IF;
1666: --
1667: --
1668: wsh_util_core.api_post_call
1708: IF p_in_rec1.initial_pu_err_dlvy_id_tbl.COUNT > 0
1709: THEN
1710: --{
1711: IF l_debug_on THEN
1712: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.UNASSIGN_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1713: END IF;
1714: --
1715: -- Unassign deliveries (which were idenified during check_stop_close routine)
1716: -- which cannot be set to in-transit, from the trip
1739: IF l_err_cnt > 0
1740: THEN
1741: --{
1742: IF l_debug_on THEN
1743: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.UNASSIGN_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1744: END IF;
1745: --
1746: --
1747: -- Unassign deliveries which cannot be set to in-transit(due to errors
1776: --
1777: -- Debug Statements
1778: --
1779: IF l_debug_on THEN
1780: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
1781: END IF;
1782: --
1783: -- Dellvieries which could not be set to in-transit, were unassigned from trip.
1784: -- This changed trip contents and hence need to mark other deliveries on trip
1847: ,x_last_pickup_stop_closed => l_last_pickup_stop_closed
1848: ,x_eligible_for_asr => l_eligible_for_asr
1849: ,x_return_status => l_return_status );
1850: IF l_debug_on THEN
1851: WSH_DEBUG_SV.log(l_module_name,'x_return_status',l_return_status);
1852: WSH_DEBUG_SV.log(l_module_name,'l_last_pickup_stop_closed',l_last_pickup_stop_closed);
1853: WSH_DEBUG_SV.log(l_module_name,'l_eligible_for_asr',l_eligible_for_asr);
1854: END IF;
1855:
1848: ,x_eligible_for_asr => l_eligible_for_asr
1849: ,x_return_status => l_return_status );
1850: IF l_debug_on THEN
1851: WSH_DEBUG_SV.log(l_module_name,'x_return_status',l_return_status);
1852: WSH_DEBUG_SV.log(l_module_name,'l_last_pickup_stop_closed',l_last_pickup_stop_closed);
1853: WSH_DEBUG_SV.log(l_module_name,'l_eligible_for_asr',l_eligible_for_asr);
1854: END IF;
1855:
1856: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1849: ,x_return_status => l_return_status );
1850: IF l_debug_on THEN
1851: WSH_DEBUG_SV.log(l_module_name,'x_return_status',l_return_status);
1852: WSH_DEBUG_SV.log(l_module_name,'l_last_pickup_stop_closed',l_last_pickup_stop_closed);
1853: WSH_DEBUG_SV.log(l_module_name,'l_eligible_for_asr',l_eligible_for_asr);
1854: END IF;
1855:
1856: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1857: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1856: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
1857: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1858:
1859: IF l_debug_on THEN
1860: wsh_debug_sv.log(l_module_name,'last_pickup_stop_closed return error');
1861: END IF;
1862: wsh_util_core.add_message(l_return_status);
1863: RAISE FND_API.G_EXC_ERROR;
1864: END IF;
1906:
1907: -- Workflow Project
1908: -- Raise Stop close business event
1909: IF l_debug_on THEN
1910: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
1911: END IF;
1912:
1913: WSH_WF_STD.RAISE_EVENT( p_entity_type => 'STOP',
1914: p_entity_id => p_in_rec.stop_id,
1915: p_event => 'oracle.apps.wsh.stop.gen.closed',
1916: x_return_status => l_wf_rs
1917: );
1918: IF l_debug_on THEN
1919: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
1920: END IF;
1921:
1922: IF p_in_rec1.linked_stop_id IS NOT NULL THEN
1923: IF l_debug_on THEN
1920: END IF;
1921:
1922: IF p_in_rec1.linked_stop_id IS NOT NULL THEN
1923: IF l_debug_on THEN
1924: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
1925: END IF;
1926: WSH_WF_STD.RAISE_EVENT( p_entity_type => 'STOP',
1927: p_entity_id => p_in_rec1.linked_stop_id,
1928: p_event => 'oracle.apps.wsh.stop.gen.closed',
1928: p_event => 'oracle.apps.wsh.stop.gen.closed',
1929: x_return_status => l_wf_rs
1930: );
1931: IF l_debug_on THEN
1932: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
1933: END IF;
1934: END IF;
1935: -- End of code for Workflow project
1936: --
1938: -- Updating WSH_TRIP_STOPS.
1939: -- Call DBI API after the Update.
1940: -- This API will also check for DBI Installed or not
1941: IF l_debug_on THEN
1942: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Stop Count -',l_stop_tab.count);
1943: END IF;
1944: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
1945: (p_stop_id_tab => l_stop_tab,
1946: p_dml_type => 'UPDATE',
1946: p_dml_type => 'UPDATE',
1947: x_return_status => l_dbi_rs);
1948:
1949: IF l_debug_on THEN
1950: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1951: END IF;
1952: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1953: x_return_status := l_dbi_rs;
1954: -- just pass this return status to caller API
1952: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1953: x_return_status := l_dbi_rs;
1954: -- just pass this return status to caller API
1955: IF l_debug_on THEN
1956: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1957: WSH_DEBUG_SV.pop(l_module_name);
1958: END IF;
1959: return;
1960: END IF;
1953: x_return_status := l_dbi_rs;
1954: -- just pass this return status to caller API
1955: IF l_debug_on THEN
1956: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1957: WSH_DEBUG_SV.pop(l_module_name);
1958: END IF;
1959: return;
1960: END IF;
1961: -- End of Code for DBI Project
1979: WHILE l_index IS NOT NULL
1980: LOOP
1981: --{
1982: IF l_debug_on THEN
1983: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXTERNAL_INTERFACE_SV.GET_WAREHOUSE_TYPE',WSH_DEBUG_SV.C_PROC_LEVEL);
1984: END IF;
1985: --
1986: l_warehouse_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type
1987: (
1990: p_delivery_id => l_dlvy_id_tbl(l_index)
1991: );
1992: --
1993: IF l_debug_on THEN
1994: wsh_debug_sv.log(l_module_name, 'Get WH type ret sts', l_return_status);
1995: wsh_debug_sv.log(l_module_name, 'Warehouse Type', l_warehouse_type);
1996: END IF;
1997: --
1998: --
1991: );
1992: --
1993: IF l_debug_on THEN
1994: wsh_debug_sv.log(l_module_name, 'Get WH type ret sts', l_return_status);
1995: wsh_debug_sv.log(l_module_name, 'Warehouse Type', l_warehouse_type);
1996: END IF;
1997: --
1998: --
1999: wsh_util_core.api_post_call
2018: WHILE l_index IS NOT NULL
2019: LOOP
2020: --{
2021: IF l_debug_on THEN
2022: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_EXTERNAL_INTERFACE_SV.GET_WAREHOUSE_TYPE',WSH_DEBUG_SV.C_PROC_LEVEL);
2023: END IF;
2024: --
2025: l_warehouse_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type
2026: (
2029: p_delivery_id => p_in_rec1.ultimate_do_dlvy_recTbl.id_tbl(l_index)
2030: );
2031: --
2032: IF l_debug_on THEN
2033: wsh_debug_sv.log(l_module_name, 'Get WH type ret sts', l_return_status);
2034: wsh_debug_sv.log(l_module_name, 'Warehouse Type', l_warehouse_type);
2035: END IF;
2036: --
2037: --
2030: );
2031: --
2032: IF l_debug_on THEN
2033: wsh_debug_sv.log(l_module_name, 'Get WH type ret sts', l_return_status);
2034: wsh_debug_sv.log(l_module_name, 'Warehouse Type', l_warehouse_type);
2035: END IF;
2036: --
2037: --
2038: wsh_util_core.api_post_call
2053: --
2054: -- Bug fix 2489164
2055: -- Call Shipment_Price_Consolidate API only for NON carrier manifest enabled cases
2056: IF l_debug_on THEN
2057: wsh_debug_sv.log(l_module_name, 'l_cms_flag', l_cms_flag);
2058: wsh_debug_sv.log(l_module_name, 'WSH_TRIPS_ACTIONS.g_rate_trip_id',WSH_TRIPS_ACTIONS.g_rate_trip_id);
2059: wsh_debug_sv.log(l_module_name, 'p_in_rec1.trip_id',p_in_rec1.trip_id);
2060: END IF;
2061: --
2054: -- Bug fix 2489164
2055: -- Call Shipment_Price_Consolidate API only for NON carrier manifest enabled cases
2056: IF l_debug_on THEN
2057: wsh_debug_sv.log(l_module_name, 'l_cms_flag', l_cms_flag);
2058: wsh_debug_sv.log(l_module_name, 'WSH_TRIPS_ACTIONS.g_rate_trip_id',WSH_TRIPS_ACTIONS.g_rate_trip_id);
2059: wsh_debug_sv.log(l_module_name, 'p_in_rec1.trip_id',p_in_rec1.trip_id);
2060: END IF;
2061: --
2062:
2055: -- Call Shipment_Price_Consolidate API only for NON carrier manifest enabled cases
2056: IF l_debug_on THEN
2057: wsh_debug_sv.log(l_module_name, 'l_cms_flag', l_cms_flag);
2058: wsh_debug_sv.log(l_module_name, 'WSH_TRIPS_ACTIONS.g_rate_trip_id',WSH_TRIPS_ACTIONS.g_rate_trip_id);
2059: wsh_debug_sv.log(l_module_name, 'p_in_rec1.trip_id',p_in_rec1.trip_id);
2060: END IF;
2061: --
2062:
2063: IF (nvl(WSH_TRIPS_ACTIONS.g_rate_trip_id,-99) <> p_in_rec1.trip_id) THEN --{
2068: THEN
2069: -- Bug 3296121 call rate_trip only if all of these fileds are specified
2070: --{
2071: IF l_debug_on THEN
2072: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.Rate_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
2073: END IF;
2074: --
2075: WSH_TRIPS_ACTIONS.g_rate_trip_id := p_in_rec1.trip_id;
2076:
2120: AND NVL(p_defer_interface_flag, 'Y') = 'N'
2121: THEN
2122: --{
2123: IF l_debug_on THEN
2124: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS.SHIP_CONFIRM_A_TRIP_STOP',WSH_DEBUG_SV.C_PROC_LEVEL);
2125: END IF;
2126: --
2127: wsh_ship_confirm_actions.ship_confirm_a_trip_stop
2128: (
2130: l_return_status
2131: );
2132: --
2133: IF l_debug_on THEN
2134: wsh_debug_sv.log(l_module_name, 'Return status ship_confirm_a_trip_stop', l_return_status);
2135: END IF;
2136: --
2137: --
2138: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2176: l_in_rec.caller := p_in_rec.caller;
2177: l_in_rec.stop_id := p_in_Rec.stop_id;
2178: --
2179: IF l_debug_on THEN
2180: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.setClose',WSH_DEBUG_SV.C_PROC_LEVEL);
2181: END IF;
2182: --
2183: -- Set delivery to close
2184: --
2188: x_return_status => l_return_status
2189: );
2190: --
2191: IF l_debug_on THEN
2192: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2193: END IF;
2194: --
2195: --
2196: wsh_util_core.api_post_call
2222: l_trip_in_rec.stop_id := p_in_Rec.stop_id;
2223: --
2224: --
2225: IF l_debug_on THEN
2226: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.CHANGESTATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
2227: END IF;
2228: --
2229: wsh_trips_actions.changeStatus
2230: (
2259: --
2260: -- Debug Statements
2261: --
2262: IF l_debug_on THEN
2263: WSH_DEBUG_SV.pop(l_module_name);
2264: END IF;
2265: --
2266: --}
2267: EXCEPTION
2272: --
2273: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2274: --
2275: IF l_debug_on THEN
2276: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2277: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2278: END IF;
2279: --
2280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2273: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2274: --
2275: IF l_debug_on THEN
2276: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2277: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2278: END IF;
2279: --
2280: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2281: --ROLLBACK TO close_stop_begin_sp;
2282: --
2283: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2284: --
2285: IF l_debug_on THEN
2286: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2287: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2288: END IF;
2289: --
2290: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2283: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2284: --
2285: IF l_debug_on THEN
2286: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2287: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2288: END IF;
2289: --
2290: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2291: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2290: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2291: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2292: --
2293: IF l_debug_on THEN
2294: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2295: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2296: END IF;
2297: WHEN others THEN
2298: wsh_util_core.default_handler('WSH_TRIP_STOPS_ACTIONS.setClose',l_module_name);
2291: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2292: --
2293: IF l_debug_on THEN
2294: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2295: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2296: END IF;
2297: WHEN others THEN
2298: wsh_util_core.default_handler('WSH_TRIP_STOPS_ACTIONS.setClose',l_module_name);
2299: --
2303: --
2304: -- Debug Statements
2305: --
2306: IF l_debug_on THEN
2307: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2308: END IF;
2309: --
2310: --}
2311: END setClose;
2457: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2458: --
2459: IF l_debug_on IS NULL
2460: THEN
2461: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2462: END IF;
2463: --
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.push(l_module_name);
2461: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2462: END IF;
2463: --
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.push(l_module_name);
2466: --
2467: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
2468: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
2469: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
2463: --
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.push(l_module_name);
2466: --
2467: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
2468: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
2469: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
2470: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
2471: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_status_code',P_in_rec1.trip_status_code);
2464: IF l_debug_on THEN
2465: WSH_DEBUG_SV.push(l_module_name);
2466: --
2467: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
2468: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
2469: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
2470: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
2471: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_status_code',P_in_rec1.trip_status_code);
2472: END IF;
2465: WSH_DEBUG_SV.push(l_module_name);
2466: --
2467: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
2468: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
2469: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
2470: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
2471: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_status_code',P_in_rec1.trip_status_code);
2472: END IF;
2473: --
2466: --
2467: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
2468: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
2469: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
2470: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
2471: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_status_code',P_in_rec1.trip_status_code);
2472: END IF;
2473: --
2474: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2467: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.STOP_ID',P_in_rec.STOP_ID);
2468: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.put_messages',P_in_rec.put_messages);
2469: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.caller',P_in_rec.caller);
2470: WSH_DEBUG_SV.log(l_module_name,'P_in_rec.actual_date',P_in_rec.actual_date);
2471: WSH_DEBUG_SV.log(l_module_name,'P_in_rec1.trip_status_code',P_in_rec1.trip_status_code);
2472: END IF;
2473: --
2474: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2475: --
2502:
2503: -- Workflow Project
2504: -- Raise Stop Open business event
2505: IF l_debug_on THEN
2506: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
2507: END IF;
2508:
2509: WSH_WF_STD.RAISE_EVENT( p_entity_type => 'STOP',
2510: p_entity_id => p_in_rec.stop_id,
2511: p_event => 'oracle.apps.wsh.stop.gen.open',
2512: x_return_status => l_wf_rs
2513: );
2514: IF l_debug_on THEN
2515: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
2516: END IF;
2517: -- End of code for Workflow project
2518: --
2519: -- DBI Project
2520: -- Updating WSH_TRIP_STOPS.
2521: -- Call DBI API after the Update.
2522: -- This API will also check for DBI Installed or not
2523: IF l_debug_on THEN
2524: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Stop Count -',l_stop_tab.count);
2525: END IF;
2526: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
2527: (p_stop_id_tab => l_stop_tab,
2528: p_dml_type => 'UPDATE',
2528: p_dml_type => 'UPDATE',
2529: x_return_status => l_dbi_rs);
2530:
2531: IF l_debug_on THEN
2532: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2533: END IF;
2534: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2535: x_return_status := l_dbi_rs;
2536: -- just pass this return status to caller API
2534: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2535: x_return_status := l_dbi_rs;
2536: -- just pass this return status to caller API
2537: IF l_debug_on THEN
2538: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
2539: WSH_DEBUG_SV.pop(l_module_name);
2540: END IF;
2541: return;
2542: END IF;
2535: x_return_status := l_dbi_rs;
2536: -- just pass this return status to caller API
2537: IF l_debug_on THEN
2538: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
2539: WSH_DEBUG_SV.pop(l_module_name);
2540: END IF;
2541: return;
2542: END IF;
2543: -- End of Code for DBI Project
2571: l_stop_in_rec.actual_date := p_in_rec.actual_date;
2572: --
2573: --
2574: IF l_debug_on THEN
2575: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_ACTIONS.autoCLOSE',WSH_DEBUG_SV.C_PROC_LEVEL);
2576: END IF;
2577: --
2578: WSH_TRIP_STOPS_ACTIONS.autoCloseOpen
2579: (
2637: l_trip_in_rec.stop_id := NULL; --p_in_Rec.stop_id;
2638: --
2639: --
2640: IF l_debug_on THEN
2641: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_VALIDATIONS.check_close',WSH_DEBUG_SV.C_PROC_LEVEL);
2642: END IF;
2643: --
2644: WSH_TRIP_VALIDATIONS.check_close
2645: (
2648: x_allowed => l_Allowed
2649: );
2650: --
2651: IF l_debug_on THEN
2652: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2653: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
2654: END IF;
2655: --
2656: wsh_util_core.api_post_call
2649: );
2650: --
2651: IF l_debug_on THEN
2652: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2653: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
2654: END IF;
2655: --
2656: wsh_util_core.api_post_call
2657: (
2687: l_trip_in_rec.stop_id := NULL; --p_in_Rec.stop_id;
2688: --
2689: --
2690: IF l_debug_on THEN
2691: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_VALIDATIONS.check_inTransit',WSH_DEBUG_SV.C_PROC_LEVEL);
2692: END IF;
2693: --
2694: WSH_TRIP_VALIDATIONS.check_inTransit
2695: (
2698: x_allowed => l_Allowed
2699: );
2700: --
2701: IF l_debug_on THEN
2702: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2703: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
2704: END IF;
2705: --
2706: wsh_util_core.api_post_call
2699: );
2700: --
2701: IF l_debug_on THEN
2702: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2703: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
2704: END IF;
2705: --
2706: wsh_util_core.api_post_call
2707: (
2718: --}
2719: END IF;
2720: --
2721: IF l_debug_on THEN
2722: WSH_DEBUG_SV.log(l_module_name,'l_trip_status_code',l_trip_status_code);
2723: END IF;
2724: --
2725: --
2726: IF p_in_rec1.trip_status_code <> l_trip_status_code
2737: l_trip_in_rec.stop_id := p_in_Rec.stop_id;
2738: --
2739: --
2740: IF l_debug_on THEN
2741: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.CHANGESTATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
2742: END IF;
2743: --
2744: wsh_trips_actions.changeStatus
2745: (
2794: l_stop_in_rec.actual_date := p_in_rec.actual_date;
2795: --
2796: --
2797: IF l_debug_on THEN
2798: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_ACTIONS.autoCLOSE',WSH_DEBUG_SV.C_PROC_LEVEL);
2799: END IF;
2800: --
2801: WSH_TRIP_STOPS_ACTIONS.autoCloseOpen
2802: (
2828: l_stop_in_rec.actual_date := p_in_rec.actual_date;
2829: --
2830: --
2831: IF l_debug_on THEN
2832: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_ACTIONS.autoCLOSE',WSH_DEBUG_SV.C_PROC_LEVEL);
2833: END IF;
2834: --
2835: WSH_TRIP_STOPS_ACTIONS.autoCloseOpen
2836: (
2889: --
2890: -- Debug Statements
2891: --
2892: IF l_debug_on THEN
2893: WSH_DEBUG_SV.pop(l_module_name);
2894: END IF;
2895: --
2896: --}
2897: EXCEPTION
2903: --
2904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2905: --
2906: IF l_debug_on THEN
2907: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2908: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2909: END IF;
2910: --
2911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2905: --
2906: IF l_debug_on THEN
2907: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2908: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2909: END IF;
2910: --
2911: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2912:
2914: --
2915: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2916: --
2917: IF l_debug_on THEN
2918: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2919: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2920: END IF;
2921: --
2922: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2915: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2916: --
2917: IF l_debug_on THEN
2918: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2919: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2920: END IF;
2921: --
2922: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2923: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2922: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2923: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2924: --
2925: IF l_debug_on THEN
2926: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2927: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2928: END IF;
2929: WHEN others THEN
2930: wsh_util_core.default_handler('WSH_TRIP_STOPS_ACTIONS.setOpen',l_module_name);
2923: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2924: --
2925: IF l_debug_on THEN
2926: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2927: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2928: END IF;
2929: WHEN others THEN
2930: wsh_util_core.default_handler('WSH_TRIP_STOPS_ACTIONS.setOpen',l_module_name);
2931: --
2935: --
2936: -- Debug Statements
2937: --
2938: IF l_debug_on THEN
2939: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2940: END IF;
2941: --
2942: --}
2943: END setOpen;
2998: --
2999: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3000: --
3001: IF l_debug_on IS NULL THEN
3002: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3003: END IF;
3004: --
3005: IF l_debug_on THEN
3006: WSH_DEBUG_SV.push(l_module_name);
3002: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3003: END IF;
3004: --
3005: IF l_debug_on THEN
3006: WSH_DEBUG_SV.push(l_module_name);
3007: WSH_DEBUG_SV.log(l_module_name,'Stop id ', p_stop_details_rec.stop_id);
3008: WSH_DEBUG_SV.log(l_module_name,'Trip id ', p_stop_details_rec.trip_id);
3009: WSH_DEBUG_SV.log(l_module_name,'Stop sequence number ', p_stop_details_rec.stop_sequence_number);
3010: END IF;
3003: END IF;
3004: --
3005: IF l_debug_on THEN
3006: WSH_DEBUG_SV.push(l_module_name);
3007: WSH_DEBUG_SV.log(l_module_name,'Stop id ', p_stop_details_rec.stop_id);
3008: WSH_DEBUG_SV.log(l_module_name,'Trip id ', p_stop_details_rec.trip_id);
3009: WSH_DEBUG_SV.log(l_module_name,'Stop sequence number ', p_stop_details_rec.stop_sequence_number);
3010: END IF;
3011: --
3004: --
3005: IF l_debug_on THEN
3006: WSH_DEBUG_SV.push(l_module_name);
3007: WSH_DEBUG_SV.log(l_module_name,'Stop id ', p_stop_details_rec.stop_id);
3008: WSH_DEBUG_SV.log(l_module_name,'Trip id ', p_stop_details_rec.trip_id);
3009: WSH_DEBUG_SV.log(l_module_name,'Stop sequence number ', p_stop_details_rec.stop_sequence_number);
3010: END IF;
3011: --
3012: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3005: IF l_debug_on THEN
3006: WSH_DEBUG_SV.push(l_module_name);
3007: WSH_DEBUG_SV.log(l_module_name,'Stop id ', p_stop_details_rec.stop_id);
3008: WSH_DEBUG_SV.log(l_module_name,'Trip id ', p_stop_details_rec.trip_id);
3009: WSH_DEBUG_SV.log(l_module_name,'Stop sequence number ', p_stop_details_rec.stop_sequence_number);
3010: END IF;
3011: --
3012: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3013: l_locking_stops := 'N';
3026: l_max_seq_number := 0;
3027: END IF;
3028:
3029: IF l_debug_on THEN
3030: WSH_DEBUG_SV.log(l_module_name,'maximum sequence number from cursor get_max_closed_seq',l_max_seq_number );
3031: END IF;
3032:
3033: l_stop_rec_tab.delete;
3034:
3073: update wsh_trip_stops set stop_sequence_number = l_max_seq_number
3074: where stop_id = l_stop_rec_tab(i).stop_id;
3075:
3076: IF l_debug_on THEN
3077: WSH_DEBUG_SV.logmsg(l_module_name,'updated stop '||l_stop_rec_tab(i).stop_id||' with sequence number '||to_char(l_max_seq_number));
3078: END IF;
3079: IF p_stop_details_rec.stop_id = l_stop_rec_tab(i).stop_id THEN
3080: p_stop_details_rec.stop_sequence_number := l_max_seq_number;
3081: END IF;
3090: END IF;
3091:
3092: -- Need to compute all stops weight/volumes since the sequence would have changed
3093: IF l_debug_on THEN
3094: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.trip_weight_volume',WSH_DEBUG_SV.C_PROC_LEVEL);
3095: END IF;
3096:
3097: l_trip_id_tab(1) := p_stop_details_rec.trip_id;
3098: WSH_TRIPS_ACTIONS.trip_weight_volume(
3105: p_suppress_errors => 'Y');
3106:
3107: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3108: IF l_debug_on THEN
3109: WSH_DEBUG_SV.logmsg(l_module_name,'Error calculating trip wt/vol');
3110: END IF;
3111: END IF;
3112:
3113: IF l_debug_on THEN
3110: END IF;
3111: END IF;
3112:
3113: IF l_debug_on THEN
3114: WSH_DEBUG_SV.pop(l_module_name);
3115: END IF;
3116:
3117: EXCEPTION
3118:
3129: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_LOCK_FAILED');
3130: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',to_char(l_trip_id_tmp));
3131: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
3132: IF l_debug_on THEN
3133: WSH_DEBUG_SV.log(l_module_name, 'ERROR: Failed to lock trip ID '||to_char(l_trip_id_tmp));
3134: WSH_DEBUG_SV.POP(l_module_name, 'EXCEPTION:RECORD_LOCKED');
3135: END IF;
3136: ELSE
3137: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_LOCK');
3130: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',to_char(l_trip_id_tmp));
3131: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
3132: IF l_debug_on THEN
3133: WSH_DEBUG_SV.log(l_module_name, 'ERROR: Failed to lock trip ID '||to_char(l_trip_id_tmp));
3134: WSH_DEBUG_SV.POP(l_module_name, 'EXCEPTION:RECORD_LOCKED');
3135: END IF;
3136: ELSE
3137: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_LOCK');
3138: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
3136: ELSE
3137: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_LOCK');
3138: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
3139: IF l_debug_on THEN
3140: WSH_DEBUG_SV.log(l_module_name, 'ERROR: Failed to lock trip stops belong to trip l_trip_id_tmp' );
3141: WSH_DEBUG_SV.POP(l_module_name, 'EXCEPTION:RECORD_LOCKED');
3142: END IF;
3143: END IF;
3144:
3137: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_LOCK');
3138: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
3139: IF l_debug_on THEN
3140: WSH_DEBUG_SV.log(l_module_name, 'ERROR: Failed to lock trip stops belong to trip l_trip_id_tmp' );
3141: WSH_DEBUG_SV.POP(l_module_name, 'EXCEPTION:RECORD_LOCKED');
3142: END IF;
3143: END IF;
3144:
3145: WHEN OTHERS THEN
3157: --
3158: -- Debug Statements
3159: --
3160: IF l_debug_on THEN
3161: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3162: END IF;
3163:
3164: END RESET_STOP_SEQ_NUMBERS;
3165:
3247:
3248: l_debug_on := wsh_debug_interface.g_debug;
3249: --
3250: IF l_debug_on IS NULL THEN
3251: l_debug_on := wsh_debug_sv.is_debug_enabled;
3252: END IF;
3253: --
3254: IF l_debug_on THEN
3255: wsh_debug_sv.push(l_module_name);
3251: l_debug_on := wsh_debug_sv.is_debug_enabled;
3252: END IF;
3253: --
3254: IF l_debug_on THEN
3255: wsh_debug_sv.push(l_module_name);
3256: wsh_debug_sv.LOG(l_module_name, 'p_trip_id', p_trip_id);
3257: wsh_debug_sv.LOG(l_module_name, 'p_stop_id', p_stop_id);
3258: END IF;
3259:
3252: END IF;
3253: --
3254: IF l_debug_on THEN
3255: wsh_debug_sv.push(l_module_name);
3256: wsh_debug_sv.LOG(l_module_name, 'p_trip_id', p_trip_id);
3257: wsh_debug_sv.LOG(l_module_name, 'p_stop_id', p_stop_id);
3258: END IF;
3259:
3260: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3253: --
3254: IF l_debug_on THEN
3255: wsh_debug_sv.push(l_module_name);
3256: wsh_debug_sv.LOG(l_module_name, 'p_trip_id', p_trip_id);
3257: wsh_debug_sv.LOG(l_module_name, 'p_stop_id', p_stop_id);
3258: END IF;
3259:
3260: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3261: x_last_pickup_stop_closed := 'N';
3263: -- This API is not exposed to end user, so no message needed here
3264: -- the developers need to know the mandatory parameters
3265: IF p_trip_id IS NULL OR p_stop_id IS NULL THEN
3266: IF l_debug_on THEN
3267: WSH_DEBUG_SV.logmsg(l_module_name,
3268: 'Please specify p_trip_id and p_stop_id');
3269: wsh_debug_sv.pop(l_module_name, 'ERROR EXCEPTION');
3270: END IF;
3271: RAISE FND_API.G_EXC_ERROR;
3265: IF p_trip_id IS NULL OR p_stop_id IS NULL THEN
3266: IF l_debug_on THEN
3267: WSH_DEBUG_SV.logmsg(l_module_name,
3268: 'Please specify p_trip_id and p_stop_id');
3269: wsh_debug_sv.pop(l_module_name, 'ERROR EXCEPTION');
3270: END IF;
3271: RAISE FND_API.G_EXC_ERROR;
3272: END IF;
3273:
3276: FETCH pickup_stop_csr INTO l_stop_id;
3277: CLOSE pickup_stop_csr;
3278:
3279: IF l_debug_on THEN
3280: WSH_DEBUG_SV.log(l_module_name,'l_stop_id', l_stop_id );
3281: END IF;
3282:
3283: IF l_stop_id = p_stop_id THEN --{
3284: x_last_pickup_stop_closed := 'Y';
3286: x_last_pickup_stop_closed := 'N';
3287: END IF; --}
3288:
3289: IF l_debug_on THEN
3290: WSH_DEBUG_SV.log(l_module_name,'x_last_pickup_stop_closed',
3291: x_last_pickup_stop_closed );
3292: END IF;
3293:
3294: --If last pickup stop closed then check whether any of the delivery orgs
3312: END IF;
3313: --OTM R12 End
3314:
3315: IF l_debug_on THEN
3316: wsh_debug_sv.LOG(l_module_name, 'x_eligible_for_asr', x_eligible_for_asr);
3317: wsh_debug_sv.LOG(l_module_name, 'x_last_pickup_stop_closed',
3318: x_last_pickup_stop_closed);
3319: wsh_debug_sv.LOG(l_module_name, 'x_return_status', x_return_status);
3320: wsh_debug_sv.pop(l_module_name);
3313: --OTM R12 End
3314:
3315: IF l_debug_on THEN
3316: wsh_debug_sv.LOG(l_module_name, 'x_eligible_for_asr', x_eligible_for_asr);
3317: wsh_debug_sv.LOG(l_module_name, 'x_last_pickup_stop_closed',
3318: x_last_pickup_stop_closed);
3319: wsh_debug_sv.LOG(l_module_name, 'x_return_status', x_return_status);
3320: wsh_debug_sv.pop(l_module_name);
3321: END IF;
3315: IF l_debug_on THEN
3316: wsh_debug_sv.LOG(l_module_name, 'x_eligible_for_asr', x_eligible_for_asr);
3317: wsh_debug_sv.LOG(l_module_name, 'x_last_pickup_stop_closed',
3318: x_last_pickup_stop_closed);
3319: wsh_debug_sv.LOG(l_module_name, 'x_return_status', x_return_status);
3320: wsh_debug_sv.pop(l_module_name);
3321: END IF;
3322:
3323: EXCEPTION
3316: wsh_debug_sv.LOG(l_module_name, 'x_eligible_for_asr', x_eligible_for_asr);
3317: wsh_debug_sv.LOG(l_module_name, 'x_last_pickup_stop_closed',
3318: x_last_pickup_stop_closed);
3319: wsh_debug_sv.LOG(l_module_name, 'x_return_status', x_return_status);
3320: wsh_debug_sv.pop(l_module_name);
3321: END IF;
3322:
3323: EXCEPTION
3324: --OTM R12 Org-Specific start.
3331: CLOSE check_eligible_for_asr_csr;
3332: END IF;
3333:
3334: IF l_debug_on THEN
3335: WSH_DEBUG_SV.log(l_module_name,
3336: 'Oracle error '||SQLERRM,
3337: WSH_DEBUG_SV.C_EXCEP_LEVEL);
3338: wsh_debug_sv.pop(l_module_name, 'FND_API.G_EXC_ERROR');
3339: END IF;
3333:
3334: IF l_debug_on THEN
3335: WSH_DEBUG_SV.log(l_module_name,
3336: 'Oracle error '||SQLERRM,
3337: WSH_DEBUG_SV.C_EXCEP_LEVEL);
3338: wsh_debug_sv.pop(l_module_name, 'FND_API.G_EXC_ERROR');
3339: END IF;
3340:
3341: --OTM R12 End
3334: IF l_debug_on THEN
3335: WSH_DEBUG_SV.log(l_module_name,
3336: 'Oracle error '||SQLERRM,
3337: WSH_DEBUG_SV.C_EXCEP_LEVEL);
3338: wsh_debug_sv.pop(l_module_name, 'FND_API.G_EXC_ERROR');
3339: END IF;
3340:
3341: --OTM R12 End
3342: WHEN OTHERS THEN
3350: wsh_util_core.default_handler('wsh_trip_stops_actions.last_pickup_stop_closed',
3351: l_module_name);
3352: --
3353: IF l_debug_on THEN
3354: WSH_DEBUG_SV.log(l_module_name,
3355: 'Unexpected Error has Occured.Oracle error message is'||SQLERRM,
3356: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3357: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
3358: END IF;
3352: --
3353: IF l_debug_on THEN
3354: WSH_DEBUG_SV.log(l_module_name,
3355: 'Unexpected Error has Occured.Oracle error message is'||SQLERRM,
3356: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3357: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
3358: END IF;
3359:
3360: END LAST_PICKUP_STOP_CLOSED;
3353: IF l_debug_on THEN
3354: WSH_DEBUG_SV.log(l_module_name,
3355: 'Unexpected Error has Occured.Oracle error message is'||SQLERRM,
3356: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3357: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
3358: END IF;
3359:
3360: END LAST_PICKUP_STOP_CLOSED;
3361: