[Home] [Help]
142: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
143: --
144: IF l_debug_on IS NULL
145: THEN
146: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
147: END IF;
148: --
149: IF l_debug_on THEN
150: wsh_debug_sv.push(l_module_name);
146: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
147: END IF;
148: --
149: IF l_debug_on THEN
150: wsh_debug_sv.push(l_module_name);
151: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
152: wsh_debug_sv.log (l_module_name, 'Event Key', p_event_key);
153: END IF;
154:
147: END IF;
148: --
149: IF l_debug_on THEN
150: wsh_debug_sv.push(l_module_name);
151: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
152: wsh_debug_sv.log (l_module_name, 'Event Key', p_event_key);
153: END IF;
154:
155: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
148: --
149: IF l_debug_on THEN
150: wsh_debug_sv.push(l_module_name);
151: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
152: wsh_debug_sv.log (l_module_name, 'Event Key', p_event_key);
153: END IF;
154:
155: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
156:
162: FETCH del_id INTO l_delivery_id, l_delivery_name,l_del_orgaization_id;
163: CLOSE del_id;
164:
165: IF l_debug_on THEN
166: wsh_debug_sv.log (l_module_name, 'Delivery ID', l_delivery_id);
167: END IF;
168:
169: IF(l_delivery_id IS NULL) THEN
170: raise invalid_input;
176: CLOSE get_inbd_trip_info;
177: --SA Trip Consolidation heali
178:
179: IF l_debug_on THEN
180: wsh_debug_sv.log (l_module_name, 'l_ignore_inbd_trip',l_ignore_inbd_trip);
181: END IF;
182:
183: ----Bug 3346237:ENFORCE SHIP METHOD NOT ENFORCED WHILE SHIP CONFIRMING
184: OPEN get_defer_interface_info;
185: FETCH get_defer_interface_info INTO l_defer_interface_flag;
186: CLOSE get_defer_interface_info;
187:
188: IF l_debug_on THEN
189: wsh_debug_sv.log (l_module_name, 'l_defer_interface_flag',l_defer_interface_flag);
190: END IF;
191:
192: -- Validate the delivery and the delivery details
193: -- This procedure checks if the incoming delivery_id and delivery_detail_ids
199: (p_delivery_id => l_delivery_id,
200: x_return_Status => l_return_status);
201:
202: IF l_debug_on THEN
203: wsh_debug_sv.log (l_module_name, 'Return status from Validate Deliveries', l_return_status);
204: END IF;
205:
206: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
207: raise validate_delivery_failed;
213: P_Event_Key => p_event_key,
214: X_Return_Status => l_return_status);
215:
216: IF l_debug_on THEN
217: wsh_debug_sv.log (l_module_name, 'Return status from get warehouse type', l_return_status);
218: wsh_debug_sv.log (l_module_name, 'Warehouse type ', l_warehouse_type);
219: END IF;
220:
221: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
214: X_Return_Status => l_return_status);
215:
216: IF l_debug_on THEN
217: wsh_debug_sv.log (l_module_name, 'Return status from get warehouse type', l_return_status);
218: wsh_debug_sv.log (l_module_name, 'Warehouse type ', l_warehouse_type);
219: END IF;
220:
221: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
222: raise get_warehouse_type_failed;
233: (P_Delivery_ID => l_delivery_id,
234: X_Return_Status => l_return_status);
235:
236: IF l_debug_on THEN
237: wsh_debug_sv.log (l_module_name, 'Return status from compare procedure', l_return_status);
238: END IF;
239:
240: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
241: raise validate_delivery_failed;
294: p_organization_id => l_organization_id,
295: x_return_status => l_wf_rs ) ;
296: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
297: IF l_debug_on THEN
298: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
299: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',l_detail_tab(i) );
300: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
301: END IF;
302: --Even if raising of event fails the flow continues.
295: x_return_status => l_wf_rs ) ;
296: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
297: IF l_debug_on THEN
298: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
299: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',l_detail_tab(i) );
300: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
301: END IF;
302: --Even if raising of event fails the flow continues.
303: --IF (l_wf_rs <>WSH_UTIL_CORE.G_RET_STS_SUCCESS ) then
296: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
297: IF l_debug_on THEN
298: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
299: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',l_detail_tab(i) );
300: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
301: END IF;
302: --Even if raising of event fails the flow continues.
303: --IF (l_wf_rs <>WSH_UTIL_CORE.G_RET_STS_SUCCESS ) then
304: --No Action
311: -- Update of wsh_delivery_details where requested_quantity/released_status
312: -- are changed, call DBI API after the update.
313: -- This API will also check for DBI Installed or not
314: IF l_debug_on THEN
315: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_detail_tab.count);
316: END IF;
317: WSH_INTEGRATION.DBI_Update_Detail_Log
318: (p_delivery_detail_id_tab => l_detail_tab,
319: p_dml_type => 'UPDATE',
319: p_dml_type => 'UPDATE',
320: x_return_status => l_dbi_rs);
321:
322: IF l_debug_on THEN
323: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
324: END IF;
325: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
326: -- just pass this return status to caller API
327: -- this is a pre-defined exception handled in parent EXCEPTIONS block
340: x_delivery_id => l_dummy,
341: x_return_status => l_return_status);
342:
343: IF l_debug_on THEN
344: wsh_debug_sv.log (l_module_name, 'Return status from Dlvy Wrapper', l_return_status);
345: END IF;
346:
347: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
348: raise process_delivery_failed;
356: l_not_recv_count := 0;
357: FOR l_cont_not_recv IN cont_not_recv_cur(l_delivery_id, p_delivery_interface_id) LOOP
358: l_not_recv_count := l_not_recv_count + 1;
359: IF l_debug_on THEN
360: wsh_debug_sv.log (l_module_name, 'Container not received', l_cont_not_recv.delivery_detail_id);
361: END IF;
362: -- For each of these containers, need to drill down and
363: -- backorder the delivery details that are not containers
364: FOR non_cont IN cont_contents_cur(l_cont_not_recv.delivery_detail_id) LOOP
362: -- For each of these containers, need to drill down and
363: -- backorder the delivery details that are not containers
364: FOR non_cont IN cont_contents_cur(l_cont_not_recv.delivery_detail_id) LOOP
365: IF l_debug_on THEN
366: wsh_debug_sv.log (l_module_name, 'Contents', non_cont.delivery_detail_id);
367: END IF;
368: OPEN det_qtys_cur(non_cont.delivery_detail_id);
369: FETCH det_qtys_cur INTO l_det_rq, l_det_pq, l_cont_flag;
370: CLOSE det_qtys_cur;
374: l_req_qtys(l_req_qtys.count + 1) := l_det_rq;
375: l_overpick_qty := LEAST(l_det_rq,
376: NVL(l_det_pq, l_det_rq) - l_det_rq);
377: IF l_debug_on THEN
378: wsh_debug_sv.log (l_module_name, 'Over picked qty', l_overpick_qty);
379: wsh_debug_sv.log (l_module_name, 'Req qty', l_det_rq);
380: wsh_debug_sv.log (l_module_name, 'Picked qty', l_det_pq);
381: END IF;
382: l_overpick_qtys(l_overpick_qtys.count + 1) := l_overpick_qty;
375: l_overpick_qty := LEAST(l_det_rq,
376: NVL(l_det_pq, l_det_rq) - l_det_rq);
377: IF l_debug_on THEN
378: wsh_debug_sv.log (l_module_name, 'Over picked qty', l_overpick_qty);
379: wsh_debug_sv.log (l_module_name, 'Req qty', l_det_rq);
380: wsh_debug_sv.log (l_module_name, 'Picked qty', l_det_pq);
381: END IF;
382: l_overpick_qtys(l_overpick_qtys.count + 1) := l_overpick_qty;
383: l_bo_qtys(l_bo_qtys.count + 1) := l_det_rq - l_overpick_qty;
376: NVL(l_det_pq, l_det_rq) - l_det_rq);
377: IF l_debug_on THEN
378: wsh_debug_sv.log (l_module_name, 'Over picked qty', l_overpick_qty);
379: wsh_debug_sv.log (l_module_name, 'Req qty', l_det_rq);
380: wsh_debug_sv.log (l_module_name, 'Picked qty', l_det_pq);
381: END IF;
382: l_overpick_qtys(l_overpick_qtys.count + 1) := l_overpick_qty;
383: l_bo_qtys(l_bo_qtys.count + 1) := l_det_rq - l_overpick_qty;
384: END IF;
386: END LOOP;
387: END LOOP;
388:
389: IF l_debug_on THEN
390: wsh_debug_sv.log (l_module_name, 'Rows count ', l_bo_rows.count);
391: wsh_debug_sv.log (l_module_name, 'Not received count', l_not_recv_count);
392: END IF;
393: IF(l_not_recv_count > 0 AND l_bo_rows.count > 0) THEN
394: wsh_ship_confirm_actions2.Backorder(
387: END LOOP;
388:
389: IF l_debug_on THEN
390: wsh_debug_sv.log (l_module_name, 'Rows count ', l_bo_rows.count);
391: wsh_debug_sv.log (l_module_name, 'Not received count', l_not_recv_count);
392: END IF;
393: IF(l_not_recv_count > 0 AND l_bo_rows.count > 0) THEN
394: wsh_ship_confirm_actions2.Backorder(
395: p_detail_ids => l_bo_rows ,
401: p_bo_mode => 'UNRESERVE',
402: x_out_rows => l_cc_ids ,
403: x_return_status => l_return_status);
404: IF l_debug_on THEN
405: wsh_debug_sv.log (l_module_name, 'Return status after backorder', l_return_status);
406: END IF;
407: END IF; -- if l_not_recv_count
408: END IF; -- if l_warehouse_type = cms
409:
429: x_trip_id => l_trip_id,
430: x_return_status => l_return_status);
431:
432: IF l_debug_on THEN
433: wsh_debug_sv.log (l_module_name, 'Return status from create-update-trip', l_return_status);
434: END IF;
435:
436: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
437: raise create_update_trip_failed;
455: -- But since the delivery is planned , the unassign api will fail.
456: -- Hence we need to UNPLAN the delivery in such cases.
457:
458: IF l_debug_on THEN
459: wsh_debug_sv.log (l_module_name, 'Contnr not received count', l_not_recv_count);
460: END IF;
461:
462: IF(l_not_recv_count > 0) THEN
463: l_unplan_del_rows(1) := l_delivery_id;
464: WSH_NEW_DELIVERY_ACTIONS.Unplan(
465: p_del_rows => l_unplan_del_rows,
466: x_return_status => l_return_status);
467: IF l_debug_on THEN
468: wsh_debug_sv.log (l_module_name, 'Return status after Unplan', l_return_status);
469: END IF;
470: END IF;
471: END IF; -- if l_warehouse_type
472:
474: WSH_PROCESS_INTERFACED_PKG.Delete_Interface_Records(
475: p_delivery_interface_id => p_delivery_interface_id,
476: x_return_status => l_return_status);
477: IF l_debug_on THEN
478: wsh_debug_sv.log(l_module_name,'Return status after delete interface records', l_return_status);
479: END IF;
480: END IF;
481: END IF; --}
482: EXCEPTION
529: p_caller => 'WSH_IB');
530:
531: wsh_util_core.get_messages('Y', l_msg_data, l_msg_details, l_msg_count);
532: IF l_debug_on THEN
533: wsh_debug_sv.log (l_module_name, 'Return status from ship confirm', l_return_status);
534: wsh_debug_sv.log (l_module_name, 'Ship confirm message count',l_msg_count);
535: wsh_debug_sv.log (l_module_name, 'Ship confirm messages', l_msg_data);
536: wsh_debug_sv.log (l_module_name, 'Ship confirm message details', l_msg_details);
537: END IF;
530:
531: wsh_util_core.get_messages('Y', l_msg_data, l_msg_details, l_msg_count);
532: IF l_debug_on THEN
533: wsh_debug_sv.log (l_module_name, 'Return status from ship confirm', l_return_status);
534: wsh_debug_sv.log (l_module_name, 'Ship confirm message count',l_msg_count);
535: wsh_debug_sv.log (l_module_name, 'Ship confirm messages', l_msg_data);
536: wsh_debug_sv.log (l_module_name, 'Ship confirm message details', l_msg_details);
537: END IF;
538:
531: wsh_util_core.get_messages('Y', l_msg_data, l_msg_details, l_msg_count);
532: IF l_debug_on THEN
533: wsh_debug_sv.log (l_module_name, 'Return status from ship confirm', l_return_status);
534: wsh_debug_sv.log (l_module_name, 'Ship confirm message count',l_msg_count);
535: wsh_debug_sv.log (l_module_name, 'Ship confirm messages', l_msg_data);
536: wsh_debug_sv.log (l_module_name, 'Ship confirm message details', l_msg_details);
537: END IF;
538:
539: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
532: IF l_debug_on THEN
533: wsh_debug_sv.log (l_module_name, 'Return status from ship confirm', l_return_status);
534: wsh_debug_sv.log (l_module_name, 'Ship confirm message count',l_msg_count);
535: wsh_debug_sv.log (l_module_name, 'Ship confirm messages', l_msg_data);
536: wsh_debug_sv.log (l_module_name, 'Ship confirm message details', l_msg_details);
537: END IF;
538:
539: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
540: IF(l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
542: -- Then need to raise the exception
543: -- Otherwise, i.e if the global variable is not 'E' then it means the warning
544: -- can be ignored and hence no need to raise the exception
545: IF l_debug_on THEN
546: wsh_debug_sv.log (l_module_name, 'Ship confirm global variable', WSH_NEW_DELIVERY_ACTIONS.g_error_level);
547: END IF;
548: IF(nvl(WSH_NEW_DELIVERY_ACTIONS.g_error_level, '!') = 'E') THEN
549: -- Reset the global variable to null
550: -- And then raise the exception
565: END;
566:
567:
568: IF l_debug_on THEN
569: wsh_debug_sv.pop(l_module_name);
570: END IF;
571:
572: EXCEPTION
573: WHEN invalid_input THEN
572: EXCEPTION
573: WHEN invalid_input THEN
574: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
575: IF l_debug_on THEN
576: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
577: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
578: END IF;
579: WHEN validate_delivery_failed THEN
580: FND_MESSAGE.SET_NAME('WSH','WSH_VALIDATE_DLVY_ERROR');
573: WHEN invalid_input THEN
574: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
575: IF l_debug_on THEN
576: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
577: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
578: END IF;
579: WHEN validate_delivery_failed THEN
580: FND_MESSAGE.SET_NAME('WSH','WSH_VALIDATE_DLVY_ERROR');
581: FND_MESSAGE.SET_TOKEN('DLVY', l_delivery_id);
580: FND_MESSAGE.SET_NAME('WSH','WSH_VALIDATE_DLVY_ERROR');
581: FND_MESSAGE.SET_TOKEN('DLVY', l_delivery_id);
582: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
583: IF l_debug_on THEN
584: WSH_DEBUG_SV.logmsg(l_module_name,'validate_delivery_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
585: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:validate_delivery_failed');
586: END IF;
587: WHEN process_delivery_failed THEN
588: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
581: FND_MESSAGE.SET_TOKEN('DLVY', l_delivery_id);
582: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
583: IF l_debug_on THEN
584: WSH_DEBUG_SV.logmsg(l_module_name,'validate_delivery_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
585: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:validate_delivery_failed');
586: END IF;
587: WHEN process_delivery_failed THEN
588: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
589: ROLLBACK TO before_update_dlvy_det;
587: WHEN process_delivery_failed THEN
588: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
589: ROLLBACK TO before_update_dlvy_det;
590: IF l_debug_on THEN
591: WSH_DEBUG_SV.logmsg(l_module_name,'process_delivery_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
592: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:process_delivery_failed');
593: END IF;
594: WHEN create_update_trip_failed THEN
595: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_PROCESS_ERROR');
588: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
589: ROLLBACK TO before_update_dlvy_det;
590: IF l_debug_on THEN
591: WSH_DEBUG_SV.logmsg(l_module_name,'process_delivery_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
592: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:process_delivery_failed');
593: END IF;
594: WHEN create_update_trip_failed THEN
595: FND_MESSAGE.SET_NAME('WSH', 'WSH_TRIP_PROCESS_ERROR');
596: FND_MESSAGE.SET_TOKEN('DLVY',l_delivery_id);
596: FND_MESSAGE.SET_TOKEN('DLVY',l_delivery_id);
597: ROLLBACK TO before_update_dlvy_det;
598: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
599: IF l_debug_on THEN
600: WSH_DEBUG_SV.logmsg(l_module_name,'create_update_trip_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
601: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:create_update_trip_failed');
602: END IF;
603: WHEN ship_confirm_failed THEN
604: FND_MESSAGE.SET_NAME('WSH','WSH_TXN_SHIP_CONFIRM_ERROR');
597: ROLLBACK TO before_update_dlvy_det;
598: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
599: IF l_debug_on THEN
600: WSH_DEBUG_SV.logmsg(l_module_name,'create_update_trip_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
601: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:create_update_trip_failed');
602: END IF;
603: WHEN ship_confirm_failed THEN
604: FND_MESSAGE.SET_NAME('WSH','WSH_TXN_SHIP_CONFIRM_ERROR');
605: FND_MESSAGE.SET_TOKEN('DLVY',l_delivery_id);
605: FND_MESSAGE.SET_TOKEN('DLVY',l_delivery_id);
606: ROLLBACK TO before_ship_confirm;
607: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
608: IF l_debug_on THEN
609: WSH_DEBUG_SV.logmsg(l_module_name,'ship_confirm_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
610: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ship_confirm_failed');
611: END IF;
612: WHEN update_dlvy_status_failed THEN
613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
606: ROLLBACK TO before_ship_confirm;
607: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
608: IF l_debug_on THEN
609: WSH_DEBUG_SV.logmsg(l_module_name,'ship_confirm_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
610: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:ship_confirm_failed');
611: END IF;
612: WHEN update_dlvy_status_failed THEN
613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
614: ROLLBACK TO before_update_dlvy_det;
612: WHEN update_dlvy_status_failed THEN
613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
614: ROLLBACK TO before_update_dlvy_det;
615: IF l_debug_on THEN
616: WSH_DEBUG_SV.logmsg(l_module_name,'update_dlvy_status_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
617: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:update_dlvy_status_failed');
618: END IF;
619: WHEN get_warehouse_type_failed THEN
620: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
613: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
614: ROLLBACK TO before_update_dlvy_det;
615: IF l_debug_on THEN
616: WSH_DEBUG_SV.logmsg(l_module_name,'update_dlvy_status_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
617: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:update_dlvy_status_failed');
618: END IF;
619: WHEN get_warehouse_type_failed THEN
620: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
621: IF l_debug_on THEN
618: END IF;
619: WHEN get_warehouse_type_failed THEN
620: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
621: IF l_debug_on THEN
622: WSH_DEBUG_SV.logmsg(l_module_name,'get_warehouse_type_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
623: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:get_warehouse_type_failed');
624: END IF;
625: WHEN others_update_dlvy_det THEN
626: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
619: WHEN get_warehouse_type_failed THEN
620: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
621: IF l_debug_on THEN
622: WSH_DEBUG_SV.logmsg(l_module_name,'get_warehouse_type_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
623: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:get_warehouse_type_failed');
624: END IF;
625: WHEN others_update_dlvy_det THEN
626: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
627: ROLLBACK TO before_update_dlvy_det;
625: WHEN others_update_dlvy_det THEN
626: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
627: ROLLBACK TO before_update_dlvy_det;
628: IF l_debug_on THEN
629: WSH_DEBUG_SV.logmsg(l_module_name,'others_update_dlvy_det exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
630: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:others_update_dlvy_det');
631: END IF;
632: WHEN others_create_update_trip THEN
633: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
626: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
627: ROLLBACK TO before_update_dlvy_det;
628: IF l_debug_on THEN
629: WSH_DEBUG_SV.logmsg(l_module_name,'others_update_dlvy_det exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
630: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:others_update_dlvy_det');
631: END IF;
632: WHEN others_create_update_trip THEN
633: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
634: ROLLBACK TO before_update_dlvy_det;
632: WHEN others_create_update_trip THEN
633: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
634: ROLLBACK TO before_update_dlvy_det;
635: IF l_debug_on THEN
636: WSH_DEBUG_SV.logmsg(l_module_name,'others_create_update_trip exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
637: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:others_create_update_trip');
638: END IF;
639: WHEN others_ship_confirm THEN
640: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
633: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
634: ROLLBACK TO before_update_dlvy_det;
635: IF l_debug_on THEN
636: WSH_DEBUG_SV.logmsg(l_module_name,'others_create_update_trip exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
637: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:others_create_update_trip');
638: END IF;
639: WHEN others_ship_confirm THEN
640: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
641: ROLLBACK TO before_ship_confirm;
639: WHEN others_ship_confirm THEN
640: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
641: ROLLBACK TO before_ship_confirm;
642: IF l_debug_on THEN
643: WSH_DEBUG_SV.logmsg(l_module_name,'others_ship_confirm exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
644: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:others_ship_confirm');
645: END IF;
646: WHEN OTHERS THEN
647: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
640: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
641: ROLLBACK TO before_ship_confirm;
642: IF l_debug_on THEN
643: WSH_DEBUG_SV.logmsg(l_module_name,'others_ship_confirm exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
644: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:others_ship_confirm');
645: END IF;
646: WHEN OTHERS THEN
647: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
648: IF l_debug_on THEN
645: END IF;
646: WHEN OTHERS THEN
647: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
648: IF l_debug_on THEN
649: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
650: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
652: END IF;
653:
646: WHEN OTHERS THEN
647: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
648: IF l_debug_on THEN
649: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
650: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
652: END IF;
653:
654: END Process_Ship_Advice;
647: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
648: IF l_debug_on THEN
649: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
650: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
652: END IF;
653:
654: END Process_Ship_Advice;
655: