[Home] [Help]
56: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
57: --
58: IF l_debug_on IS NULL
59: THEN
60: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
61: END IF;
62: --
63: IF l_debug_on THEN
64: WSH_DEBUG_SV.push(l_module_name);
60: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
61: END IF;
62: --
63: IF l_debug_on THEN
64: WSH_DEBUG_SV.push(l_module_name);
65: END IF;
66: --
67: OPEN get_next_delivery_leg;
68: FETCH get_next_delivery_leg INTO x_delivery_leg_id;
67: OPEN get_next_delivery_leg;
68: FETCH get_next_delivery_leg INTO x_delivery_leg_id;
69: CLOSE get_next_delivery_leg;
70: IF l_debug_on THEN
71: WSH_DEBUG_SV.log(l_module_name,'x_delivery_leg_id',x_delivery_leg_id);
72: END IF;
73: INSERT INTO wsh_delivery_legs (
74: delivery_leg_id
75: ,delivery_id
163: -- This API will also check for DBI Installed or not
164: l_stop_tab(1) := p_delivery_leg_info.pick_up_stop_id;
165: l_stop_tab(2) := p_delivery_leg_info.drop_off_stop_id;
166: IF l_debug_on THEN
167: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count -',l_stop_tab.count);
168: END IF;
169: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
170: (p_stop_id_tab => l_stop_tab,
171: p_dml_type => 'UPDATE',
171: p_dml_type => 'UPDATE',
172: x_return_status => l_dbi_rs);
173:
174: IF l_debug_on THEN
175: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
176: END IF;
177: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
178: x_return_status := l_dbi_rs;
179: -- just pass this return status to caller API
177: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
178: x_return_status := l_dbi_rs;
179: -- just pass this return status to caller API
180: IF l_debug_on THEN
181: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
182: WSH_DEBUG_SV.pop(l_module_name);
183: END IF;
184: return;
185: END IF;
178: x_return_status := l_dbi_rs;
179: -- just pass this return status to caller API
180: IF l_debug_on THEN
181: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
182: WSH_DEBUG_SV.pop(l_module_name);
183: END IF;
184: return;
185: END IF;
186: -- End of Code for DBI Project
187: --
188: OPEN get_rowid;
189: FETCH get_rowid INTO x_rowid;
190: IF l_debug_on THEN
191: WSH_DEBUG_SV.log(l_module_name,'Rows inserted',SQL%ROWCOUNT);
192: WSH_DEBUG_SV.log(l_module_name,'x_rowid',x_rowid);
193: END IF;
194: IF (get_rowid%NOTFOUND) THEN
195: CLOSE get_rowid;
188: OPEN get_rowid;
189: FETCH get_rowid INTO x_rowid;
190: IF l_debug_on THEN
191: WSH_DEBUG_SV.log(l_module_name,'Rows inserted',SQL%ROWCOUNT);
192: WSH_DEBUG_SV.log(l_module_name,'x_rowid',x_rowid);
193: END IF;
194: IF (get_rowid%NOTFOUND) THEN
195: CLOSE get_rowid;
196: RAISE others;
204: IF WSH_UTIL_CORE.FTE_Is_Installed = 'Y' THEN
205: l_leg_id_tab(1) := x_delivery_leg_id;
206: --
207: IF l_debug_on THEN
208: WSH_DEBUG_SV.log(l_module_name,'FTE is installed');
209: END IF;
210: --
211: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
212: p_entity_type => 'DELIVERY_LEG',
239:
240: END IF;
241: --
242: IF l_debug_on THEN
243: WSH_DEBUG_SV.pop(l_module_name);
244: END IF;
245: --
246: EXCEPTION
247:
250: WSH_UTIL_CORE.add_message(l_return_status,l_module_name);
251: x_return_status := l_return_status;
252: --
253: IF l_debug_on THEN
254: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
255: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
256: END IF;
257: --
258: WHEN WSH_CREATE_FC_ERROR THEN
251: x_return_status := l_return_status;
252: --
253: IF l_debug_on THEN
254: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
255: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
256: END IF;
257: --
258: WHEN WSH_CREATE_FC_ERROR THEN
259: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.CREATE_DELIVERY_LEG',l_module_name);
259: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.CREATE_DELIVERY_LEG',l_module_name);
260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
261: --
262: IF l_debug_on THEN
263: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CREATE_FC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
264: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_FC_ERROR');
265: END IF;
266: --
267: WHEN others THEN
260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
261: --
262: IF l_debug_on THEN
263: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CREATE_FC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
264: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_FC_ERROR');
265: END IF;
266: --
267: WHEN others THEN
268: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.CREATE_DELIVERY_LEG',l_module_name);
268: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.CREATE_DELIVERY_LEG',l_module_name);
269: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
270: --
271: IF l_debug_on THEN
272: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
273: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
274: END IF;
275: --
276: END Create_Delivery_Leg;
269: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
270: --
271: IF l_debug_on THEN
272: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
273: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
274: END IF;
275: --
276: END Create_Delivery_Leg;
277:
308: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
309: --
310: IF l_debug_on IS NULL
311: THEN
312: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
313: END IF;
314: --
315: IF l_debug_on THEN
316: WSH_DEBUG_SV.push(l_module_name);
312: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
313: END IF;
314: --
315: IF l_debug_on THEN
316: WSH_DEBUG_SV.push(l_module_name);
317: --
318: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
319: END IF;
320: --
314: --
315: IF l_debug_on THEN
316: WSH_DEBUG_SV.push(l_module_name);
317: --
318: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
319: END IF;
320: --
321: IF (p_rowid IS NULL) THEN
322: OPEN get_rowid;
321: IF (p_rowid IS NULL) THEN
322: OPEN get_rowid;
323: FETCH get_rowid INTO l_rowid;
324: IF l_debug_on THEN
325: WSH_DEBUG_SV.log(l_module_name,'l_rowid',l_rowid);
326: END IF;
327: IF (get_rowid%NOTFOUND) THEN
328: CLOSE get_rowid;
329: RAISE no_data_found;
406: ,parent_delivery_leg_id = p_delivery_leg_info.parent_delivery_leg_id
407:
408: WHERE rowid = l_rowid;
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.log(l_module_name,'Rows updated',SQL%ROWCOUNT);
411: END IF;
412: IF (SQL%NOTFOUND) THEN
413: RAISE no_data_found;
414: ELSE
415: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
416: END IF;
417: --
418: IF l_debug_on THEN
419: WSH_DEBUG_SV.pop(l_module_name);
420: END IF;
421: --
422: EXCEPTION
423: WHEN no_data_found THEN
425: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
426: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
427: --
428: IF l_debug_on THEN
429: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
430: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
431: END IF;
432: --
433: WHEN others THEN
426: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
427: --
428: IF l_debug_on THEN
429: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
430: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
431: END IF;
432: --
433: WHEN others THEN
434: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.UPDATE_DELIVERY_LEG',l_module_name);
434: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.UPDATE_DELIVERY_LEG',l_module_name);
435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
436: --
437: IF l_debug_on THEN
438: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
440: END IF;
441: --
442: END Update_Delivery_Leg;
435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
436: --
437: IF l_debug_on THEN
438: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
440: END IF;
441: --
442: END Update_Delivery_Leg;
443:
575: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
576: --
577: IF l_debug_on IS NULL
578: THEN
579: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
580: END IF;
581: --
582: IF l_debug_on THEN
583: WSH_DEBUG_SV.push(l_module_name);
579: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
580: END IF;
581: --
582: IF l_debug_on THEN
583: WSH_DEBUG_SV.push(l_module_name);
584: --
585: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
586: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_LEG_ID',P_DELIVERY_LEG_ID);
587: END IF;
581: --
582: IF l_debug_on THEN
583: WSH_DEBUG_SV.push(l_module_name);
584: --
585: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
586: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_LEG_ID',P_DELIVERY_LEG_ID);
587: END IF;
588: --
589: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
582: IF l_debug_on THEN
583: WSH_DEBUG_SV.push(l_module_name);
584: --
585: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
586: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_LEG_ID',P_DELIVERY_LEG_ID);
587: END IF;
588: --
589: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
590:
600: OPEN get_del_leg_id_rowid(p_rowid);
601: FETCH get_del_leg_id_rowid INTO l_delivery_leg_id;
602: CLOSE get_del_leg_id_rowid;
603: IF l_debug_on THEN
604: WSH_DEBUG_SV.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
605: END IF;
606: END IF;
607:
608: IF l_delivery_leg_id IS NULL THEN
630: --
631: CLOSE lock_trip_csr;
632: --
633: IF l_debug_on THEN
634: WSH_DEBUG_SV.log(l_module_name,'leg_rec.shipment_direction',leg_rec.shipment_direction);
635: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.pu_stop_shipments_type_flag',lock_trip_rec.pu_stop_shipments_type_flag);
636: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.do_stop_shipments_type_flag',lock_trip_rec.do_stop_shipments_type_flag);
637: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.trip_status_code',lock_trip_rec.trip_status_code);
638:
631: CLOSE lock_trip_csr;
632: --
633: IF l_debug_on THEN
634: WSH_DEBUG_SV.log(l_module_name,'leg_rec.shipment_direction',leg_rec.shipment_direction);
635: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.pu_stop_shipments_type_flag',lock_trip_rec.pu_stop_shipments_type_flag);
636: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.do_stop_shipments_type_flag',lock_trip_rec.do_stop_shipments_type_flag);
637: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.trip_status_code',lock_trip_rec.trip_status_code);
638:
639: END IF;
632: --
633: IF l_debug_on THEN
634: WSH_DEBUG_SV.log(l_module_name,'leg_rec.shipment_direction',leg_rec.shipment_direction);
635: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.pu_stop_shipments_type_flag',lock_trip_rec.pu_stop_shipments_type_flag);
636: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.do_stop_shipments_type_flag',lock_trip_rec.do_stop_shipments_type_flag);
637: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.trip_status_code',lock_trip_rec.trip_status_code);
638:
639: END IF;
640: --
633: IF l_debug_on THEN
634: WSH_DEBUG_SV.log(l_module_name,'leg_rec.shipment_direction',leg_rec.shipment_direction);
635: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.pu_stop_shipments_type_flag',lock_trip_rec.pu_stop_shipments_type_flag);
636: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.do_stop_shipments_type_flag',lock_trip_rec.do_stop_shipments_type_flag);
637: WSH_DEBUG_SV.log(l_module_name,'lock_trip_rec.trip_status_code',lock_trip_rec.trip_status_code);
638:
639: END IF;
640: --
641: --
662: OPEN check_docs(l_delivery_leg_id);
663: FETCH check_docs INTO l_doc_id;
664: CLOSE check_docs;
665: IF l_debug_on THEN
666: WSH_DEBUG_SV.log(l_module_name,'l_doc_id',l_doc_id);
667: END IF;
668: IF (l_doc_id IS NOT NULL) THEN
669: wsh_document_pvt.cancel_all_documents(
670: p_api_version => 1.0,
676:
677: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
678: --
679: IF l_debug_on THEN
680: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
681: x_return_status);
682: WSH_DEBUG_SV.pop(l_module_name);
683: END IF;
684: --
678: --
679: IF l_debug_on THEN
680: WSH_DEBUG_SV.log(l_module_name,'x_return_status',
681: x_return_status);
682: WSH_DEBUG_SV.pop(l_module_name);
683: END IF;
684: --
685: RETURN;
686: ELSE
707: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
709: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
710: IF l_debug_on THEN
711: WSH_DEBUG_SV.log(l_module_name,'WSH_LEG_NOT_FOUND');
712: END IF;
713:
714: RAISE FND_API.G_EXC_ERROR; -- J-IB-NPARIKH
715: END IF;
721: -- Call DBI API after the Update.
722: -- This API will also check for DBI Installed or not
723:
724: IF l_debug_on THEN
725: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count -',l_stop_tab.count);
726: END IF;
727: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
728: (p_stop_id_tab => l_stop_tab,
729: p_dml_type => 'UPDATE',
729: p_dml_type => 'UPDATE',
730: x_return_status => l_dbi_rs);
731:
732: IF l_debug_on THEN
733: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
734: END IF;
735: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
736: x_return_status := l_dbi_rs;
737: -- just pass this return status to caller API
735: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
736: x_return_status := l_dbi_rs;
737: -- just pass this return status to caller API
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
740: WSH_DEBUG_SV.pop(l_module_name);
741: END IF;
742: return;
743: END IF;
736: x_return_status := l_dbi_rs;
737: -- just pass this return status to caller API
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
740: WSH_DEBUG_SV.pop(l_module_name);
741: END IF;
742: return;
743: END IF;
744: -- End of Code for DBI Project
756: DELETE FROM wsh_freight_costs
757: WHERE delivery_leg_id = l_delivery_leg_id;
758:
759: IF l_debug_on THEN
760: WSH_DEBUG_SV.log(l_module_name,
761: 'Rows deleted from wsh_freight_costs',SQL%ROWCOUNT);
762: END IF;
763: END IF;
764: --
769: -- Recalculate value of shipments type flag for
770: -- pickup and dropoff stop
771: --
772: IF l_debug_on THEN
773: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WWSH_TRIP_STOPS_VALIDATIONS.refreshShipmentsTypeFlag',WSH_DEBUG_SV.C_PROC_LEVEL);
774: END IF;
775: --
776: -- Recalculate value of shipments type flag for pickup stop
777: --
807: --
808: -- Debug Statements
809: --
810: IF l_debug_on THEN
811: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_GRP.GET_STOP_DETAILS_PVT',WSH_DEBUG_SV.C_PROC_LEVEL);
812: END IF;
813: --
814: wsh_trip_stops_grp.get_stop_details_pvt
815: (p_stop_id => leg_rec.pick_up_stop_id,
824: );
825: --
826: --
827: IF l_debug_on THEN
828: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
829: END IF;
830: --
831: wsh_fte_integration.trip_stop_validations
832: (p_stop_rec => l_stop_rec,
858: -- Display a warning whenever stop changes from mixed to inbound
859: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_CHANGE_WARNING');
860: --
861: IF l_debug_on THEN
862: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
863: END IF;
864: --
865: --tkt calling get_namewith caller as FTE as inbound is available only with FTE
866: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(leg_rec.pick_up_stop_id, 'FTE'));
873: END IF;
874: --
875: --
876: IF l_debug_on THEN
877: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WWSH_TRIP_STOPS_VALIDATIONS.refreshShipmentsTypeFlag',WSH_DEBUG_SV.C_PROC_LEVEL);
878: END IF;
879: --
880: -- Recalculate value of shipments type flag for dropoff stop
881: --
890: x_return_status => l_return_status
891: );
892: --
893: IF l_debug_on THEN
894: WSH_DEBUG_SV.log(l_module_name,'refreshShipmentsTypeFlag l_return_status',l_return_status);
895: WSH_DEBUG_SV.log(l_module_name,'do_stop_shipments_type_flag',lock_trip_rec.do_stop_shipments_type_flag);
896: END IF;
897: wsh_util_core.api_post_call
898: (
891: );
892: --
893: IF l_debug_on THEN
894: WSH_DEBUG_SV.log(l_module_name,'refreshShipmentsTypeFlag l_return_status',l_return_status);
895: WSH_DEBUG_SV.log(l_module_name,'do_stop_shipments_type_flag',lock_trip_rec.do_stop_shipments_type_flag);
896: END IF;
897: wsh_util_core.api_post_call
898: (
899: p_return_status => l_return_status,
916: --
917: -- Debug Statements
918: --
919: IF l_debug_on THEN
920: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_GRP.GET_STOP_DETAILS_PVT',WSH_DEBUG_SV.C_PROC_LEVEL);
921: END IF;
922: --
923: wsh_trip_stops_grp.get_stop_details_pvt
924: (p_stop_id => leg_rec.drop_off_stop_id,
933: );
934: --
935: --
936: IF l_debug_on THEN
937: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
938: END IF;
939: --
940: wsh_fte_integration.trip_stop_validations
941: (p_stop_rec => l_stop_rec,
967: -- Display a warning whenever stop changes from mixed to inbound
968: FND_MESSAGE.SET_NAME('WSH','WSH_STOP_CHANGE_WARNING');
969: --
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
972: END IF;
973: --
974: --tkt calling get_namewith caller as FTE as inbound is available only with FTE
975: FND_MESSAGE.SET_TOKEN('STOP_NAME',wsh_trip_stops_pvt.get_name(leg_rec.drop_off_stop_id,'FTE'));
993: -- )
994: THEN
995: --{
996: IF l_debug_on THEN
997: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_VALIDATIONS.has_mixed_deliveries',WSH_DEBUG_SV.C_PROC_LEVEL);
998: END IF;
999: --
1000: -- Check if trip still has both inbound and outbound deliveries
1001: --
1004: p_trip_id => leg_rec.trip_id
1005: );
1006: --
1007: IF l_debug_on THEN
1008: WSH_DEBUG_SV.log(l_module_name,'l_has_mixed_deliveries',l_has_mixed_deliveries);
1009: END IF;
1010: --
1011: IF l_has_mixed_deliveries <> 'Y'
1012: THEN
1043: WHERE trip_id = leg_rec.trip_id
1044: AND shipments_type_flag <> lock_trip_rec.trip_shipments_type_flag;
1045:
1046: IF l_debug_on THEN
1047: WSH_DEBUG_SV.log(l_module_name,' Number of rows updated in WTS are',SQL%ROWCOUNT);
1048: END IF;
1049: --}
1050: END IF;
1051: --}
1052: END IF;
1053:
1054: ELSE
1055: IF l_debug_on THEN
1056: WSH_DEBUG_SV.log(l_module_name,'Raise others');
1057: END IF;
1058: raise others;
1059: END IF;
1060: --
1060: --
1061: --
1062: -- J-IB-HEALI-{
1063: IF l_debug_on THEN
1064: WSH_DEBUG_SV.log(l_module_name,'calling Process_Leg_Sequence delivery_id',leg_rec.delivery_id);
1065: END IF;
1066:
1067: WSH_NEW_DELIVERY_ACTIONS.Process_Leg_Sequence
1068: ( p_delivery_id => leg_rec.delivery_id,
1071: x_leg_complete => l_leg_complete,
1072: x_return_status => l_return_status);
1073:
1074: IF l_debug_on THEN
1075: WSH_DEBUG_SV.log(l_module_name,'Process_Leg_Sequence l_return_status',l_return_status);
1076: END IF;
1077:
1078: wsh_util_core.api_post_call
1079: (
1094: END IF;
1095: --
1096: --
1097: IF l_debug_on THEN
1098: WSH_DEBUG_SV.pop(l_module_name);
1099: END IF;
1100: --
1101: EXCEPTION
1102: -- J-IB-NPARIKH-{
1104:
1105: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1106: --
1107: IF l_debug_on THEN
1108: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1109: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1110: END IF;
1111: --
1112: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1105: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1106: --
1107: IF l_debug_on THEN
1108: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1109: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1110: END IF;
1111: --
1112: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1113:
1113:
1114: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1115: --
1116: IF l_debug_on THEN
1117: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1118: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1119: END IF;
1120: --
1121:
1114: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1115: --
1116: IF l_debug_on THEN
1117: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1118: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1119: END IF;
1120: --
1121:
1122: -- J-IB-NPARIKH-}
1125: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.DELETE_DELIVERY_LEG',l_module_name);
1126: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1127: --
1128: IF l_debug_on THEN
1129: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1130: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1131: END IF;
1132: --
1133: END Delete_Delivery_Leg;
1126: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1127: --
1128: IF l_debug_on THEN
1129: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1130: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1131: END IF;
1132: --
1133: END Delete_Delivery_Leg;
1134:
1164: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1165: --
1166: IF l_debug_on IS NULL
1167: THEN
1168: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1169: END IF;
1170: --
1171: IF l_debug_on THEN
1172: WSH_DEBUG_SV.push(l_module_name);
1168: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1169: END IF;
1170: --
1171: IF l_debug_on THEN
1172: WSH_DEBUG_SV.push(l_module_name);
1173: --
1174: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
1175: END IF;
1176: --
1170: --
1171: IF l_debug_on THEN
1172: WSH_DEBUG_SV.push(l_module_name);
1173: --
1174: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
1175: END IF;
1176: --
1177: OPEN lock_row;
1178: FETCH lock_row INTO Recinfo;
1177: OPEN lock_row;
1178: FETCH lock_row INTO Recinfo;
1179: IF (lock_row%NOTFOUND) THEN
1180: IF l_debug_on THEN
1181: WSH_DEBUG_SV.log(l_module_name,'FORM_RECORD_DELETED');
1182: END IF;
1183: CLOSE lock_row;
1184: FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
1185: app_exception.raise_exception;
1380: AND (p_delivery_leg_info.parent_delivery_leg_id IS NULL)))
1381: ) THEN
1382: --
1383: IF l_debug_on THEN
1384: WSH_DEBUG_SV.log(l_module_name,'Nothing has changed');
1385: WSH_DEBUG_SV.pop(l_module_name);
1386: END IF;
1387: --
1388: RETURN;
1381: ) THEN
1382: --
1383: IF l_debug_on THEN
1384: WSH_DEBUG_SV.log(l_module_name,'Nothing has changed');
1385: WSH_DEBUG_SV.pop(l_module_name);
1386: END IF;
1387: --
1388: RETURN;
1389: ELSE
1388: RETURN;
1389: ELSE
1390: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
1391: IF l_debug_on THEN
1392: WSH_DEBUG_SV.log(l_module_name,'FORM_RECORD_CHANGED');
1393: END IF;
1394: app_exception.raise_exception;
1395: END IF;
1396: --
1394: app_exception.raise_exception;
1395: END IF;
1396: --
1397: IF l_debug_on THEN
1398: WSH_DEBUG_SV.pop(l_module_name);
1399: END IF;
1400: --
1401: EXCEPTION
1402: WHEN others THEN
1408: close lock_row;
1409: end if;
1410: --
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1413: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1414: END IF;
1415: --
1416: raise;
1409: end if;
1410: --
1411: IF l_debug_on THEN
1412: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1413: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1414: END IF;
1415: --
1416: raise;
1417: END Lock_Delivery_Leg;
1512: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1513: --
1514: IF l_debug_on IS NULL
1515: THEN
1516: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1517: END IF;
1518: --
1519: IF l_debug_on THEN
1520: WSH_DEBUG_SV.push(l_module_name);
1516: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1517: END IF;
1518: --
1519: IF l_debug_on THEN
1520: WSH_DEBUG_SV.push(l_module_name);
1521: --
1522: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_LEG_ID',P_DELIVERY_LEG_ID);
1523: END IF;
1524: --
1518: --
1519: IF l_debug_on THEN
1520: WSH_DEBUG_SV.push(l_module_name);
1521: --
1522: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_LEG_ID',P_DELIVERY_LEG_ID);
1523: END IF;
1524: --
1525: IF (p_delivery_leg_id IS NULL) THEN
1526: raise others;
1533: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
1534: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1535: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
1536: IF l_debug_on THEN
1537: WSH_DEBUG_SV.log(l_module_name,'WSH_LEG_NOT_FOUND');
1538: END IF;
1539: ELSE
1540: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1541: END IF;
1542:
1543: CLOSE leg_record;
1544: --
1545: IF l_debug_on THEN
1546: WSH_DEBUG_SV.pop(l_module_name);
1547: END IF;
1548: --
1549: EXCEPTION
1550: WHEN others THEN
1551: wsh_util_core.default_handler('WSH_DELIVERY_LEGS_PVT.POPULATE_RECORD',l_module_name);
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1553: --
1554: IF l_debug_on THEN
1555: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1556: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1557: END IF;
1558: --
1559: END Populate_Record;
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1553: --
1554: IF l_debug_on THEN
1555: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1556: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1557: END IF;
1558: --
1559: END Populate_Record;
1560:
1621: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1622: --
1623: IF l_debug_on IS NULL
1624: THEN
1625: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1626: END IF;
1627: --
1628: IF l_debug_on THEN
1629: WSH_DEBUG_SV.push(l_module_name);
1625: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1626: END IF;
1627: --
1628: IF l_debug_on THEN
1629: WSH_DEBUG_SV.push(l_module_name);
1630: --
1631: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_LEG_ID',P_DELIVERY_LEG_ID);
1632: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_ENTITY_ID',P_PARENT_ENTITY_ID);
1633: WSH_DEBUG_SV.log(l_module_name,'P_LIST_TYPE',P_LIST_TYPE);
1627: --
1628: IF l_debug_on THEN
1629: WSH_DEBUG_SV.push(l_module_name);
1630: --
1631: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_LEG_ID',P_DELIVERY_LEG_ID);
1632: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_ENTITY_ID',P_PARENT_ENTITY_ID);
1633: WSH_DEBUG_SV.log(l_module_name,'P_LIST_TYPE',P_LIST_TYPE);
1634: END IF;
1635: --
1628: IF l_debug_on THEN
1629: WSH_DEBUG_SV.push(l_module_name);
1630: --
1631: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_LEG_ID',P_DELIVERY_LEG_ID);
1632: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_ENTITY_ID',P_PARENT_ENTITY_ID);
1633: WSH_DEBUG_SV.log(l_module_name,'P_LIST_TYPE',P_LIST_TYPE);
1634: END IF;
1635: --
1636: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1629: WSH_DEBUG_SV.push(l_module_name);
1630: --
1631: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_LEG_ID',P_DELIVERY_LEG_ID);
1632: WSH_DEBUG_SV.log(l_module_name,'P_PARENT_ENTITY_ID',P_PARENT_ENTITY_ID);
1633: WSH_DEBUG_SV.log(l_module_name,'P_LIST_TYPE',P_LIST_TYPE);
1634: END IF;
1635: --
1636: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1637: x_disabled_list.delete;
1643: FND_MESSAGE.Set_Name('WSH','WSH_API_INVALID_PARAM_VALUE');
1644: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1645: --
1646: IF l_debug_on THEN
1647: WSH_DEBUG_SV.pop(l_module_name);
1648: END IF;
1649: --
1650: RETURN;
1651: END IF;
1652:
1653: OPEN get_delivery_status(p_parent_entity_id);
1654: FETCH get_delivery_status INTO l_status_code, l_planned_flag;
1655: IF l_debug_on THEN
1656: WSH_DEBUG_SV.log(l_module_name,'l_status_code',l_status_code);
1657: WSH_DEBUG_SV.log(l_module_name,'l_planned_flag',l_planned_flag);
1658: END IF;
1659: IF get_delivery_status%NOTFOUND THEN
1660: CLOSE get_delivery_status;
1653: OPEN get_delivery_status(p_parent_entity_id);
1654: FETCH get_delivery_status INTO l_status_code, l_planned_flag;
1655: IF l_debug_on THEN
1656: WSH_DEBUG_SV.log(l_module_name,'l_status_code',l_status_code);
1657: WSH_DEBUG_SV.log(l_module_name,'l_planned_flag',l_planned_flag);
1658: END IF;
1659: IF get_delivery_status%NOTFOUND THEN
1660: CLOSE get_delivery_status;
1661: FND_MESSAGE.Set_Name('WSH','WSH_API_INVALID_PARAM_VALUE');
1661: FND_MESSAGE.Set_Name('WSH','WSH_API_INVALID_PARAM_VALUE');
1662: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1663: --
1664: IF l_debug_on THEN
1665: WSH_DEBUG_SV.pop(l_module_name);
1666: END IF;
1667: --
1668: RETURN;
1669: END IF;
1707: ELSE
1708: OPEN get_leg_status(p_delivery_leg_id);
1709: FETCH get_leg_status INTO l_delivery_id, l_pick_up_stop_id, l_drop_off_stop_id;
1710: IF l_debug_on THEN
1711: WSH_DEBUG_SV.log(l_module_name,'l_delivery_id',
1712: l_delivery_id);
1713: WSH_DEBUG_SV.log(l_module_name,'l_pick_up_stop_id',
1714: l_pick_up_stop_id);
1715: WSH_DEBUG_SV.log(l_module_name,'l_drop_off_stop_id',
1709: FETCH get_leg_status INTO l_delivery_id, l_pick_up_stop_id, l_drop_off_stop_id;
1710: IF l_debug_on THEN
1711: WSH_DEBUG_SV.log(l_module_name,'l_delivery_id',
1712: l_delivery_id);
1713: WSH_DEBUG_SV.log(l_module_name,'l_pick_up_stop_id',
1714: l_pick_up_stop_id);
1715: WSH_DEBUG_SV.log(l_module_name,'l_drop_off_stop_id',
1716: l_drop_off_stop_id);
1717: END IF;
1711: WSH_DEBUG_SV.log(l_module_name,'l_delivery_id',
1712: l_delivery_id);
1713: WSH_DEBUG_SV.log(l_module_name,'l_pick_up_stop_id',
1714: l_pick_up_stop_id);
1715: WSH_DEBUG_SV.log(l_module_name,'l_drop_off_stop_id',
1716: l_drop_off_stop_id);
1717: END IF;
1718: IF get_leg_status%NOTFOUND then
1719: CLOSE get_leg_status;
1723:
1724: OPEN get_stop_status(l_pick_up_stop_id);
1725: FETCH get_stop_status INTO l_pick_up_stop;
1726: IF l_debug_on THEN
1727: WSH_DEBUG_SV.log(l_module_name,'status_code',
1728: l_pick_up_stop.status_code);
1729: END IF;
1730: IF get_stop_status%NOTFOUND then
1731: CLOSE get_stop_status;
1735:
1736: OPEN get_stop_status(l_drop_off_stop_id);
1737: FETCH get_stop_status INTO l_drop_off_stop;
1738: IF l_debug_on THEN
1739: WSH_DEBUG_SV.log(l_module_name,'status_code',
1740: l_drop_off_stop.status_code);
1741: END IF;
1742: IF get_stop_status%NOTFOUND then
1743: CLOSE get_stop_status;
1754: END IF;
1755: END IF;
1756: --
1757: IF l_debug_on THEN
1758: WSH_DEBUG_SV.pop(l_module_name);
1759: END IF;
1760: --
1761: EXCEPTION
1762:
1771: x_msg_data := l_msg_summary;
1772: end if;
1773: --
1774: IF l_debug_on THEN
1775: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DP_NO_ENTITY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1776: IF x_msg_count > 1 then
1777: WSH_DEBUG_SV.log(l_module_name,'x_msg_data',
1778: SUBSTR(x_msg_data,1,200));
1779: END IF;
1773: --
1774: IF l_debug_on THEN
1775: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DP_NO_ENTITY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1776: IF x_msg_count > 1 then
1777: WSH_DEBUG_SV.log(l_module_name,'x_msg_data',
1778: SUBSTR(x_msg_data,1,200));
1779: END IF;
1780: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DP_NO_ENTITY');
1781: END IF;
1776: IF x_msg_count > 1 then
1777: WSH_DEBUG_SV.log(l_module_name,'x_msg_data',
1778: SUBSTR(x_msg_data,1,200));
1779: END IF;
1780: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DP_NO_ENTITY');
1781: END IF;
1782: --
1783: WHEN WSH_DP_NO_STOP THEN
1784: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_STOP');
1791: x_msg_data := l_msg_summary;
1792: end if;
1793: --
1794: IF l_debug_on THEN
1795: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DP_NO_STOP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1796: IF x_msg_count > 1 then
1797: WSH_DEBUG_SV.log(l_module_name,'x_msg_data',
1798: SUBSTR(x_msg_data,1,200));
1799: END IF;
1793: --
1794: IF l_debug_on THEN
1795: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DP_NO_STOP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1796: IF x_msg_count > 1 then
1797: WSH_DEBUG_SV.log(l_module_name,'x_msg_data',
1798: SUBSTR(x_msg_data,1,200));
1799: END IF;
1800: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DP_NO_STOP');
1801: END IF;
1796: IF x_msg_count > 1 then
1797: WSH_DEBUG_SV.log(l_module_name,'x_msg_data',
1798: SUBSTR(x_msg_data,1,200));
1799: END IF;
1800: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DP_NO_STOP');
1801: END IF;
1802: --
1803: WHEN WSH_INV_LIST_TYPE THEN
1804: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
1811: x_msg_data := l_msg_summary;
1812: end if;
1813: --
1814: IF l_debug_on THEN
1815: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INV_LIST_TYPE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1816: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INV_LIST_TYPE');
1817: END IF;
1818: --
1819: WHEN OTHERS THEN
1812: end if;
1813: --
1814: IF l_debug_on THEN
1815: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INV_LIST_TYPE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1816: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INV_LIST_TYPE');
1817: END IF;
1818: --
1819: WHEN OTHERS THEN
1820: IF get_delivery_status%ISOPEN THEN
1830: FND_MESSAGE.Set_Name('WSH','WSH_UNEXPECTED_ERROR');
1831: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1832:
1833: IF l_debug_on THEN
1834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1836: END IF;
1837: --
1838: END Get_Disabled_List;
1831: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1832:
1833: IF l_debug_on THEN
1834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1836: END IF;
1837: --
1838: END Get_Disabled_List;
1839:
1881: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1882: --
1883: IF l_debug_on IS NULL
1884: THEN
1885: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1886: END IF;
1887: --
1888: IF l_debug_on THEN
1889: WSH_DEBUG_SV.push(l_module_name);
1885: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1886: END IF;
1887: --
1888: IF l_debug_on THEN
1889: WSH_DEBUG_SV.push(l_module_name);
1890: WSH_DEBUG_SV.log(l_module_name,'p_dlvy_leg_id', p_dlvy_leg_id);
1891: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id', p_delivery_id);
1892: END IF;
1893: --
1886: END IF;
1887: --
1888: IF l_debug_on THEN
1889: WSH_DEBUG_SV.push(l_module_name);
1890: WSH_DEBUG_SV.log(l_module_name,'p_dlvy_leg_id', p_dlvy_leg_id);
1891: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id', p_delivery_id);
1892: END IF;
1893: --
1894: IF p_dlvy_leg_id IS NOT NULL THEN
1887: --
1888: IF l_debug_on THEN
1889: WSH_DEBUG_SV.push(l_module_name);
1890: WSH_DEBUG_SV.log(l_module_name,'p_dlvy_leg_id', p_dlvy_leg_id);
1891: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id', p_delivery_id);
1892: END IF;
1893: --
1894: IF p_dlvy_leg_id IS NOT NULL THEN
1895: open c_lock_dlvy_leg(p_dlvy_leg_id);
1901: close c_lock_legs_of_dlvy;
1902: END IF;
1903:
1904: IF l_debug_on THEN
1905: WSH_DEBUG_SV.pop(l_module_name);
1906: END IF;
1907: EXCEPTION
1908: WHEN app_exception.application_exception or app_exception.record_lock_exception THEN
1909: IF p_delivery_id IS NOT NULL THEN
1911: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_DEL_LEG_LOCK');
1912: FND_MESSAGE.SET_TOKEN('DEL_NAME', l_del_name);
1913: wsh_util_Core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
1914: IF l_debug_on THEN
1915: wsh_debug_sv.log(l_module_name, 'Could not obtain locks on some or all delivery legs of delivery', p_delivery_id);
1916: END IF;
1917: ELSE
1918: IF l_debug_on THEN
1919: wsh_debug_sv.log(l_module_name, 'Could not obtain lock on delivery leg', p_dlvy_leg_id);
1915: wsh_debug_sv.log(l_module_name, 'Could not obtain locks on some or all delivery legs of delivery', p_delivery_id);
1916: END IF;
1917: ELSE
1918: IF l_debug_on THEN
1919: wsh_debug_sv.log(l_module_name, 'Could not obtain lock on delivery leg', p_dlvy_leg_id);
1920: END IF;
1921: END IF;
1922: --
1923: IF l_debug_on THEN
1920: END IF;
1921: END IF;
1922: --
1923: IF l_debug_on THEN
1924: WSH_DEBUG_SV.logmsg(l_module_name,'APP_EXCEPTION.APPLICATION_EXCEPTION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1925: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:APP_EXCEPTION.APPLICATION_EXCEPTION');
1926: END IF;
1927: --
1928: RAISE;
1921: END IF;
1922: --
1923: IF l_debug_on THEN
1924: WSH_DEBUG_SV.logmsg(l_module_name,'APP_EXCEPTION.APPLICATION_EXCEPTION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1925: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:APP_EXCEPTION.APPLICATION_EXCEPTION');
1926: END IF;
1927: --
1928: RAISE;
1929: