[Home] [Help]
280: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
281: --
282: IF l_debug_on IS NULL
283: THEN
284: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
285: END IF;
286: --
287: IF l_debug_on THEN
288: wsh_debug_sv.push(l_module_name, 'Update_Contnr_Int_Assignments');
284: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
285: END IF;
286: --
287: IF l_debug_on THEN
288: wsh_debug_sv.push(l_module_name, 'Update_Contnr_Int_Assignments');
289: wsh_debug_sv.log (l_module_name,'parent_delivery_detail_id ',p_parent_delivery_detail_id);
290: wsh_debug_sv.log (l_module_name,'parent_detail_interface_id ',p_parent_detail_interface_id);
291: END IF;
292:
285: END IF;
286: --
287: IF l_debug_on THEN
288: wsh_debug_sv.push(l_module_name, 'Update_Contnr_Int_Assignments');
289: wsh_debug_sv.log (l_module_name,'parent_delivery_detail_id ',p_parent_delivery_detail_id);
290: wsh_debug_sv.log (l_module_name,'parent_detail_interface_id ',p_parent_detail_interface_id);
291: END IF;
292:
293: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
286: --
287: IF l_debug_on THEN
288: wsh_debug_sv.push(l_module_name, 'Update_Contnr_Int_Assignments');
289: wsh_debug_sv.log (l_module_name,'parent_delivery_detail_id ',p_parent_delivery_detail_id);
290: wsh_debug_sv.log (l_module_name,'parent_detail_interface_id ',p_parent_detail_interface_id);
291: END IF;
292:
293: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
294:
301: -- need to check with anil
302: END IF;
303:
304: IF l_debug_on THEN
305: wsh_debug_sv.pop(l_module_name);
306: END IF;
307:
308: EXCEPTION
309:
310: WHEN Others THEN
311:
312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
313: IF l_debug_on THEN
314: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
315: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
316: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
317: END IF;
318: END Update_Contnr_Int_Assignments;
311:
312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
313: IF l_debug_on THEN
314: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
315: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
316: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
317: END IF;
318: END Update_Contnr_Int_Assignments;
319:
312: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
313: IF l_debug_on THEN
314: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
315: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
316: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
317: END IF;
318: END Update_Contnr_Int_Assignments;
319:
320: /*
380: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
381: --
382: IF l_debug_on IS NULL
383: THEN
384: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
385: END IF;
386: --
387: IF l_debug_on THEN
388: wsh_debug_sv.push(l_module_name, 'Process_Interfaced_Del_Details');
384: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
385: END IF;
386: --
387: IF l_debug_on THEN
388: wsh_debug_sv.push(l_module_name, 'Process_Interfaced_Del_Details');
389: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id',p_delivery_interface_id);
390: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
391: wsh_debug_sv.log (l_module_name,'New Delivery Id', p_new_delivery_id);
392: wsh_debug_sv.log (l_module_name,'Action Code ',p_action_code);
385: END IF;
386: --
387: IF l_debug_on THEN
388: wsh_debug_sv.push(l_module_name, 'Process_Interfaced_Del_Details');
389: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id',p_delivery_interface_id);
390: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
391: wsh_debug_sv.log (l_module_name,'New Delivery Id', p_new_delivery_id);
392: wsh_debug_sv.log (l_module_name,'Action Code ',p_action_code);
393: END IF;
386: --
387: IF l_debug_on THEN
388: wsh_debug_sv.push(l_module_name, 'Process_Interfaced_Del_Details');
389: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id',p_delivery_interface_id);
390: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
391: wsh_debug_sv.log (l_module_name,'New Delivery Id', p_new_delivery_id);
392: wsh_debug_sv.log (l_module_name,'Action Code ',p_action_code);
393: END IF;
394:
387: IF l_debug_on THEN
388: wsh_debug_sv.push(l_module_name, 'Process_Interfaced_Del_Details');
389: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id',p_delivery_interface_id);
390: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
391: wsh_debug_sv.log (l_module_name,'New Delivery Id', p_new_delivery_id);
392: wsh_debug_sv.log (l_module_name,'Action Code ',p_action_code);
393: END IF;
394:
395: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
388: wsh_debug_sv.push(l_module_name, 'Process_Interfaced_Del_Details');
389: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id',p_delivery_interface_id);
390: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
391: wsh_debug_sv.log (l_module_name,'New Delivery Id', p_new_delivery_id);
392: wsh_debug_sv.log (l_module_name,'Action Code ',p_action_code);
393: END IF;
394:
395: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
396:
413: p_action_code => p_action_code,
414: x_return_status => l_return_status);
415:
416: IF l_debug_on THEN
417: wsh_debug_sv.log (l_module_name, 'Return Status from Process_Non_Splits', l_return_status);
418: END IF;
419:
420: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
421: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
428: x_return_status => l_return_status);
429: END IF;
430:
431: IF l_debug_on THEN
432: wsh_debug_sv.log (l_module_name, 'Return Status from Process Splits', l_return_status);
433: END IF;
434:
435: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
436: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
464: p_organization_id => l_organization_tab(i),
465: x_return_status => l_wf_rs ) ;
466: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
467: IF l_debug_on THEN
468: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
469: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',l_detail_tab(i) );
470: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
471: END IF;
472: END LOOP;
465: x_return_status => l_wf_rs ) ;
466: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
467: IF l_debug_on THEN
468: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
469: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',l_detail_tab(i) );
470: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
471: END IF;
472: END LOOP;
473: END IF; -- }
466: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
467: IF l_debug_on THEN
468: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
469: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',l_detail_tab(i) );
470: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
471: END IF;
472: END LOOP;
473: END IF; -- }
474: --Done Raise Event: Pick To Pod Workflow
477: -- Update of wsh_delivery_details where requested_quantity/released_status
478: -- are changed, call DBI API after the update.
479: -- This API will also check for DBI Installed or not
480: IF l_debug_on THEN
481: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_detail_tab.count);
482: END IF;
483: WSH_INTEGRATION.DBI_Update_Detail_Log(
484: p_delivery_detail_id_tab => l_detail_tab,
485: p_dml_type => 'UPDATE',
485: p_dml_type => 'UPDATE',
486: x_return_status => l_dbi_rs);
487: --
488: IF l_debug_on THEN
489: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
490: END IF;
491: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
492: -- just pass this return status to caller API
493: -- this is a pre-defined exception handled in parent EXCEPTIONS block
512: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
513: END IF;
514:
515: IF l_debug_on THEN
516: wsh_debug_sv.log (l_module_name, 'Packing Table Count', G_Packing_Detail_Tab.count);
517: END IF;
518: IF(G_Packing_Detail_Tab.count > 0) THEN
519: Pack_Lines(
520: x_return_status => l_return_status);
519: Pack_Lines(
520: x_return_status => l_return_status);
521:
522: IF l_debug_on THEN
523: wsh_debug_sv.log (l_module_name, 'Return Status from Pack Lines', l_return_status);
524: END IF;
525:
526: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
527: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
533: p_action_code => p_action_code,
534: x_return_status => l_return_status);
535:
536: IF l_debug_on THEN
537: wsh_debug_sv.log (l_module_name, 'Return Status from Update Del Details', l_return_status);
538: END IF;
539:
540: -- TPW - Distributed changes - Inv. Rsv API Integration Changes
541: -- Identified during Inventory Integration testing
544: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
545: END IF;
546:
547: IF l_debug_on THEN
548: wsh_debug_sv.pop(l_module_name);
549: END IF;
550:
551: EXCEPTION
552: WHEN invalid_action_code THEN
551: EXCEPTION
552: WHEN invalid_action_code THEN
553: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
554: IF l_debug_on THEN
555: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_action_code exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
556: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_action_code');
557: END IF;
558: WHEN invalid_input THEN
559: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
552: WHEN invalid_action_code THEN
553: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
554: IF l_debug_on THEN
555: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_action_code exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
556: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_action_code');
557: END IF;
558: WHEN invalid_input THEN
559: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
560: IF l_debug_on THEN
557: END IF;
558: WHEN invalid_input THEN
559: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
560: IF l_debug_on THEN
561: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
562: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
563: END IF;
564: -- TPW - Distributed changes
565: WHEN others_dbi THEN
558: WHEN invalid_input THEN
559: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
560: IF l_debug_on THEN
561: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
562: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
563: END IF;
564: -- TPW - Distributed changes
565: WHEN others_dbi THEN
566: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
564: -- TPW - Distributed changes
565: WHEN others_dbi THEN
566: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
567: IF l_debug_on THEN
568: WSH_DEBUG_SV.logmsg(l_module_name,'others_dbi exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
569: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:others_dbi');
570: END IF;
571: WHEN Others THEN
572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
565: WHEN others_dbi THEN
566: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
567: IF l_debug_on THEN
568: WSH_DEBUG_SV.logmsg(l_module_name,'others_dbi exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
569: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:others_dbi');
570: END IF;
571: WHEN Others THEN
572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
573: IF l_debug_on THEN
570: END IF;
571: WHEN Others THEN
572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
573: IF l_debug_on THEN
574: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
575: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
577: END IF;
578: END Process_Interfaced_Del_Details;
571: WHEN Others THEN
572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
573: IF l_debug_on THEN
574: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
575: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
577: END IF;
578: END Process_Interfaced_Del_Details;
579:
572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
573: IF l_debug_on THEN
574: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
575: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
577: END IF;
578: END Process_Interfaced_Del_Details;
579:
580:
717: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
718: --
719: IF l_debug_on IS NULL
720: THEN
721: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
722: END IF;
723: --
724: IF l_debug_on THEN
725: wsh_debug_sv.push(l_module_name, 'Process_Non_Splits');
721: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
722: END IF;
723: --
724: IF l_debug_on THEN
725: wsh_debug_sv.push(l_module_name, 'Process_Non_Splits');
726: wsh_debug_sv.log (l_module_name,'Delivery Interface Id',p_delivery_interface_id);
727: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
728: wsh_debug_sv.log (l_module_name, 'New Delivery Id', p_new_delivery_id);
729: wsh_debug_sv.log (l_module_name,'Action Code ',p_action_code);
722: END IF;
723: --
724: IF l_debug_on THEN
725: wsh_debug_sv.push(l_module_name, 'Process_Non_Splits');
726: wsh_debug_sv.log (l_module_name,'Delivery Interface Id',p_delivery_interface_id);
727: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
728: wsh_debug_sv.log (l_module_name, 'New Delivery Id', p_new_delivery_id);
729: wsh_debug_sv.log (l_module_name,'Action Code ',p_action_code);
730: END IF;
723: --
724: IF l_debug_on THEN
725: wsh_debug_sv.push(l_module_name, 'Process_Non_Splits');
726: wsh_debug_sv.log (l_module_name,'Delivery Interface Id',p_delivery_interface_id);
727: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
728: wsh_debug_sv.log (l_module_name, 'New Delivery Id', p_new_delivery_id);
729: wsh_debug_sv.log (l_module_name,'Action Code ',p_action_code);
730: END IF;
731:
724: IF l_debug_on THEN
725: wsh_debug_sv.push(l_module_name, 'Process_Non_Splits');
726: wsh_debug_sv.log (l_module_name,'Delivery Interface Id',p_delivery_interface_id);
727: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
728: wsh_debug_sv.log (l_module_name, 'New Delivery Id', p_new_delivery_id);
729: wsh_debug_sv.log (l_module_name,'Action Code ',p_action_code);
730: END IF;
731:
732: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
725: wsh_debug_sv.push(l_module_name, 'Process_Non_Splits');
726: wsh_debug_sv.log (l_module_name,'Delivery Interface Id',p_delivery_interface_id);
727: wsh_debug_sv.log (l_module_name,'Delivery Id', p_delivery_id);
728: wsh_debug_sv.log (l_module_name, 'New Delivery Id', p_new_delivery_id);
729: wsh_debug_sv.log (l_module_name,'Action Code ',p_action_code);
730: END IF;
731:
732: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
733:
748:
749: l_new_detail_ids.delete;
750:
751: IF l_debug_on THEN
752: wsh_debug_sv.logmsg(l_module_name, 'Before Looping thru details');
753: END IF;
754:
755: FOR det_id IN detail_ids_cur LOOP
756: /* Bug fix 2451920
762: l_cont_name := NULL;
763:
764:
765: IF l_debug_on THEN
766: wsh_debug_sv.log (l_module_name, 'Delivery Detail ID',det_id.delivery_detail_id);
767: END IF;
768:
769: -- TPW - Distributed changes
770: OPEN del_det_int_cur(det_id.source_header_number, det_id.delivery_detail_id, p_delivery_interface_id);
771: FETCH del_det_int_cur INTO del_det_int_rec;
772: CLOSE del_det_int_cur;
773:
774: IF l_debug_on THEN
775: wsh_debug_sv.log(l_module_name,'Delivery Detail Interf Id',del_det_int_rec.delivery_detail_interface_id);
776: END IF;
777:
778: IF(p_action_code = 'CREATE') THEN --{
779:
1000: END IF;
1001:
1002: --{Bug 8539281
1003: IF l_debug_on THEN
1004: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1005: wsh_debug_sv.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',WSH_DEBUG_SV.C_PROC_LEVEL);
1006: END IF;
1007:
1008: WSH_SHIPPING_PARAMS_PVT.GET( p_organization_id => l_del_details_info.organization_id,
1001:
1002: --{Bug 8539281
1003: IF l_debug_on THEN
1004: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1005: wsh_debug_sv.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',WSH_DEBUG_SV.C_PROC_LEVEL);
1006: END IF;
1007:
1008: WSH_SHIPPING_PARAMS_PVT.GET( p_organization_id => l_del_details_info.organization_id,
1009: x_param_info => l_shipping_param_info,
1009: x_param_info => l_shipping_param_info,
1010: x_return_status => l_return_status);
1011:
1012: IF l_debug_on THEN
1013: wsh_debug_sv.log (l_module_name, 'Return Status from WSH_SHIPPING_PARAMS_PVT.GET', l_return_status);
1014: END IF;
1015:
1016: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1017: raise FND_API.G_EXC_ERROR ;
1024: l_shipping_param_info.GROUP_BY_FOB_FLAG = 'Y' or
1025: l_shipping_param_info.GROUP_BY_INTMED_SHIP_TO_FLAG = 'Y') THEN
1026: --{
1027: IF l_debug_on THEN
1028: wsh_debug_sv.log (l_module_name, 'Getting the new delivery attributes-Delivery ID:',p_new_delivery_id);
1029: wsh_debug_sv.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.TABLE_TO_RECORD',WSH_DEBUG_SV.C_PROC_LEVEL);
1030: END IF;
1031:
1032: WSH_NEW_DELIVERIES_PVT.TABLE_TO_RECORD(p_delivery_id=>p_new_delivery_id,
1025: l_shipping_param_info.GROUP_BY_INTMED_SHIP_TO_FLAG = 'Y') THEN
1026: --{
1027: IF l_debug_on THEN
1028: wsh_debug_sv.log (l_module_name, 'Getting the new delivery attributes-Delivery ID:',p_new_delivery_id);
1029: wsh_debug_sv.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.TABLE_TO_RECORD',WSH_DEBUG_SV.C_PROC_LEVEL);
1030: END IF;
1031:
1032: WSH_NEW_DELIVERIES_PVT.TABLE_TO_RECORD(p_delivery_id=>p_new_delivery_id,
1033: x_delivery_rec=>l_delivery_rec,
1033: x_delivery_rec=>l_delivery_rec,
1034: x_return_status=>l_return_status);
1035:
1036: IF l_debug_on THEN
1037: wsh_debug_sv.log (l_module_name, 'Return Status from WSH_NEW_DELIVERIES_PVT.TABLE_TO_RECORD', l_return_status);
1038: END IF;
1039:
1040: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1041: raise FND_API.G_EXC_ERROR ;
1043:
1044: IF l_shipping_param_info.GROUP_BY_SHIP_METHOD_FLAG = 'Y' THEN
1045: --{
1046: IF l_debug_on THEN
1047: wsh_debug_sv.logmsg(l_module_name, 'Copying Ship Method attributes from delivery to delivery detail:'||
1048: ' Carrier_id - '||to_char(l_delivery_rec.carrier_id)||' ,'||
1049: ' service_level - '||l_delivery_rec.service_level||' ,'||
1050: ' mode_of_transport - '||l_delivery_rec.mode_of_transport||' ,'||
1051: ' ship_method_code - '||l_delivery_rec.ship_method_code,WSH_DEBUG_SV.C_STMT_LEVEL);
1047: wsh_debug_sv.logmsg(l_module_name, 'Copying Ship Method attributes from delivery to delivery detail:'||
1048: ' Carrier_id - '||to_char(l_delivery_rec.carrier_id)||' ,'||
1049: ' service_level - '||l_delivery_rec.service_level||' ,'||
1050: ' mode_of_transport - '||l_delivery_rec.mode_of_transport||' ,'||
1051: ' ship_method_code - '||l_delivery_rec.ship_method_code,WSH_DEBUG_SV.C_STMT_LEVEL);
1052: END IF;
1053: l_del_details_info.carrier_id := l_delivery_rec.carrier_id ;
1054: l_del_details_info.service_level := l_delivery_rec.service_level ;
1055: l_del_details_info.mode_of_transport := l_delivery_rec.mode_of_transport ;
1059:
1060: IF l_shipping_param_info.GROUP_BY_CUSTOMER_FLAG = 'Y' THEN
1061:
1062: IF l_debug_on THEN
1063: wsh_debug_sv.log (l_module_name, 'Copying customer_id value from delivery to delivery detail',l_delivery_rec.customer_id);
1064: END IF;
1065: l_del_details_info.customer_id := l_delivery_rec.customer_id ;
1066:
1067: END IF;
1068:
1069: IF l_shipping_param_info.GROUP_BY_FREIGHT_TERMS_FLAG = 'Y' THEN
1070:
1071: IF l_debug_on THEN
1072: wsh_debug_sv.log (l_module_name, 'Copying freight_terms_code value from delivery to delivery detail',l_delivery_rec.freight_terms_code);
1073: END IF;
1074: l_del_details_info.freight_terms_code := l_delivery_rec.freight_terms_code ;
1075:
1076: END IF;
1077:
1078: IF l_shipping_param_info.GROUP_BY_FOB_FLAG = 'Y' THEN
1079:
1080: IF l_debug_on THEN
1081: wsh_debug_sv.log (l_module_name, 'Copying fob_code value from delivery to delivery detail',l_delivery_rec.fob_code);
1082: END IF;
1083: l_del_details_info.fob_code := l_delivery_rec.fob_code ;
1084:
1085: END IF;
1086:
1087: IF l_shipping_param_info.GROUP_BY_INTMED_SHIP_TO_FLAG = 'Y' THEN
1088:
1089: IF l_debug_on THEN
1090: wsh_debug_sv.log (l_module_name, 'Copying intmed_ship_to_location_id value from delivery to delivery detail',l_delivery_rec.intmed_ship_to_location_id);
1091: END IF;
1092: l_del_details_info.intmed_ship_to_location_id := l_delivery_rec.intmed_ship_to_location_id ;
1093:
1094: END IF;
1096: END IF; --If any of the delivery grouping attribute is enabled
1097: --}Bug 8539281
1098:
1099: IF l_debug_on THEN
1100: wsh_debug_sv.log (l_module_name, 'calling create shipment lines');
1101: wsh_debug_sv.log (l_module_name, 'the mandatory attributes for create shipment lines are:');
1102: wsh_debug_sv.log (l_module_name, 'source_code',l_del_details_info.source_code);
1103: wsh_debug_sv.log (l_module_name, 'Source header id',l_del_details_info.source_header_id);
1104: wsh_debug_sv.log (l_module_name, 'Source header number',l_del_details_info.source_header_number);
1097: --}Bug 8539281
1098:
1099: IF l_debug_on THEN
1100: wsh_debug_sv.log (l_module_name, 'calling create shipment lines');
1101: wsh_debug_sv.log (l_module_name, 'the mandatory attributes for create shipment lines are:');
1102: wsh_debug_sv.log (l_module_name, 'source_code',l_del_details_info.source_code);
1103: wsh_debug_sv.log (l_module_name, 'Source header id',l_del_details_info.source_header_id);
1104: wsh_debug_sv.log (l_module_name, 'Source header number',l_del_details_info.source_header_number);
1105: wsh_debug_sv.log (l_module_name, 'Source line id',l_del_details_info.source_line_id);
1098:
1099: IF l_debug_on THEN
1100: wsh_debug_sv.log (l_module_name, 'calling create shipment lines');
1101: wsh_debug_sv.log (l_module_name, 'the mandatory attributes for create shipment lines are:');
1102: wsh_debug_sv.log (l_module_name, 'source_code',l_del_details_info.source_code);
1103: wsh_debug_sv.log (l_module_name, 'Source header id',l_del_details_info.source_header_id);
1104: wsh_debug_sv.log (l_module_name, 'Source header number',l_del_details_info.source_header_number);
1105: wsh_debug_sv.log (l_module_name, 'Source line id',l_del_details_info.source_line_id);
1106: wsh_debug_sv.log (l_module_name, 'Source line number',l_del_details_info.source_line_number);
1099: IF l_debug_on THEN
1100: wsh_debug_sv.log (l_module_name, 'calling create shipment lines');
1101: wsh_debug_sv.log (l_module_name, 'the mandatory attributes for create shipment lines are:');
1102: wsh_debug_sv.log (l_module_name, 'source_code',l_del_details_info.source_code);
1103: wsh_debug_sv.log (l_module_name, 'Source header id',l_del_details_info.source_header_id);
1104: wsh_debug_sv.log (l_module_name, 'Source header number',l_del_details_info.source_header_number);
1105: wsh_debug_sv.log (l_module_name, 'Source line id',l_del_details_info.source_line_id);
1106: wsh_debug_sv.log (l_module_name, 'Source line number',l_del_details_info.source_line_number);
1107: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1100: wsh_debug_sv.log (l_module_name, 'calling create shipment lines');
1101: wsh_debug_sv.log (l_module_name, 'the mandatory attributes for create shipment lines are:');
1102: wsh_debug_sv.log (l_module_name, 'source_code',l_del_details_info.source_code);
1103: wsh_debug_sv.log (l_module_name, 'Source header id',l_del_details_info.source_header_id);
1104: wsh_debug_sv.log (l_module_name, 'Source header number',l_del_details_info.source_header_number);
1105: wsh_debug_sv.log (l_module_name, 'Source line id',l_del_details_info.source_line_id);
1106: wsh_debug_sv.log (l_module_name, 'Source line number',l_del_details_info.source_line_number);
1107: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1108: wsh_debug_sv.log (l_module_name, 'Org Id', l_del_details_info.org_id);
1101: wsh_debug_sv.log (l_module_name, 'the mandatory attributes for create shipment lines are:');
1102: wsh_debug_sv.log (l_module_name, 'source_code',l_del_details_info.source_code);
1103: wsh_debug_sv.log (l_module_name, 'Source header id',l_del_details_info.source_header_id);
1104: wsh_debug_sv.log (l_module_name, 'Source header number',l_del_details_info.source_header_number);
1105: wsh_debug_sv.log (l_module_name, 'Source line id',l_del_details_info.source_line_id);
1106: wsh_debug_sv.log (l_module_name, 'Source line number',l_del_details_info.source_line_number);
1107: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1108: wsh_debug_sv.log (l_module_name, 'Org Id', l_del_details_info.org_id);
1109: wsh_debug_sv.log (l_module_name, 'Requested qty', l_del_details_info.requested_quantity);
1102: wsh_debug_sv.log (l_module_name, 'source_code',l_del_details_info.source_code);
1103: wsh_debug_sv.log (l_module_name, 'Source header id',l_del_details_info.source_header_id);
1104: wsh_debug_sv.log (l_module_name, 'Source header number',l_del_details_info.source_header_number);
1105: wsh_debug_sv.log (l_module_name, 'Source line id',l_del_details_info.source_line_id);
1106: wsh_debug_sv.log (l_module_name, 'Source line number',l_del_details_info.source_line_number);
1107: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1108: wsh_debug_sv.log (l_module_name, 'Org Id', l_del_details_info.org_id);
1109: wsh_debug_sv.log (l_module_name, 'Requested qty', l_del_details_info.requested_quantity);
1110: wsh_debug_sv.log (l_module_name, 'Requested qty uom',l_del_details_info.requested_quantity_uom );
1103: wsh_debug_sv.log (l_module_name, 'Source header id',l_del_details_info.source_header_id);
1104: wsh_debug_sv.log (l_module_name, 'Source header number',l_del_details_info.source_header_number);
1105: wsh_debug_sv.log (l_module_name, 'Source line id',l_del_details_info.source_line_id);
1106: wsh_debug_sv.log (l_module_name, 'Source line number',l_del_details_info.source_line_number);
1107: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1108: wsh_debug_sv.log (l_module_name, 'Org Id', l_del_details_info.org_id);
1109: wsh_debug_sv.log (l_module_name, 'Requested qty', l_del_details_info.requested_quantity);
1110: wsh_debug_sv.log (l_module_name, 'Requested qty uom',l_del_details_info.requested_quantity_uom );
1111: wsh_debug_sv.log (l_module_name, 'Src req qty',l_del_details_info. src_requested_quantity);
1104: wsh_debug_sv.log (l_module_name, 'Source header number',l_del_details_info.source_header_number);
1105: wsh_debug_sv.log (l_module_name, 'Source line id',l_del_details_info.source_line_id);
1106: wsh_debug_sv.log (l_module_name, 'Source line number',l_del_details_info.source_line_number);
1107: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1108: wsh_debug_sv.log (l_module_name, 'Org Id', l_del_details_info.org_id);
1109: wsh_debug_sv.log (l_module_name, 'Requested qty', l_del_details_info.requested_quantity);
1110: wsh_debug_sv.log (l_module_name, 'Requested qty uom',l_del_details_info.requested_quantity_uom );
1111: wsh_debug_sv.log (l_module_name, 'Src req qty',l_del_details_info. src_requested_quantity);
1112: wsh_debug_sv.log (l_module_name, 'Src req qty uom', l_del_details_info.src_requested_quantity_uom);
1105: wsh_debug_sv.log (l_module_name, 'Source line id',l_del_details_info.source_line_id);
1106: wsh_debug_sv.log (l_module_name, 'Source line number',l_del_details_info.source_line_number);
1107: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1108: wsh_debug_sv.log (l_module_name, 'Org Id', l_del_details_info.org_id);
1109: wsh_debug_sv.log (l_module_name, 'Requested qty', l_del_details_info.requested_quantity);
1110: wsh_debug_sv.log (l_module_name, 'Requested qty uom',l_del_details_info.requested_quantity_uom );
1111: wsh_debug_sv.log (l_module_name, 'Src req qty',l_del_details_info. src_requested_quantity);
1112: wsh_debug_sv.log (l_module_name, 'Src req qty uom', l_del_details_info.src_requested_quantity_uom);
1113: wsh_debug_sv.log (l_module_name, 'inventory item id',l_del_details_info.inventory_item_id);
1106: wsh_debug_sv.log (l_module_name, 'Source line number',l_del_details_info.source_line_number);
1107: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1108: wsh_debug_sv.log (l_module_name, 'Org Id', l_del_details_info.org_id);
1109: wsh_debug_sv.log (l_module_name, 'Requested qty', l_del_details_info.requested_quantity);
1110: wsh_debug_sv.log (l_module_name, 'Requested qty uom',l_del_details_info.requested_quantity_uom );
1111: wsh_debug_sv.log (l_module_name, 'Src req qty',l_del_details_info. src_requested_quantity);
1112: wsh_debug_sv.log (l_module_name, 'Src req qty uom', l_del_details_info.src_requested_quantity_uom);
1113: wsh_debug_sv.log (l_module_name, 'inventory item id',l_del_details_info.inventory_item_id);
1114: wsh_debug_sv.log (l_module_name, 'ship from loc id',l_del_details_info.ship_from_location_id);
1107: wsh_debug_sv.log (l_module_name, 'Organization id',l_del_details_info.organization_id);
1108: wsh_debug_sv.log (l_module_name, 'Org Id', l_del_details_info.org_id);
1109: wsh_debug_sv.log (l_module_name, 'Requested qty', l_del_details_info.requested_quantity);
1110: wsh_debug_sv.log (l_module_name, 'Requested qty uom',l_del_details_info.requested_quantity_uom );
1111: wsh_debug_sv.log (l_module_name, 'Src req qty',l_del_details_info. src_requested_quantity);
1112: wsh_debug_sv.log (l_module_name, 'Src req qty uom', l_del_details_info.src_requested_quantity_uom);
1113: wsh_debug_sv.log (l_module_name, 'inventory item id',l_del_details_info.inventory_item_id);
1114: wsh_debug_sv.log (l_module_name, 'ship from loc id',l_del_details_info.ship_from_location_id);
1115: wsh_debug_sv.log (l_module_name, 'ship to loc id', l_del_details_info.ship_to_location_id);
1108: wsh_debug_sv.log (l_module_name, 'Org Id', l_del_details_info.org_id);
1109: wsh_debug_sv.log (l_module_name, 'Requested qty', l_del_details_info.requested_quantity);
1110: wsh_debug_sv.log (l_module_name, 'Requested qty uom',l_del_details_info.requested_quantity_uom );
1111: wsh_debug_sv.log (l_module_name, 'Src req qty',l_del_details_info. src_requested_quantity);
1112: wsh_debug_sv.log (l_module_name, 'Src req qty uom', l_del_details_info.src_requested_quantity_uom);
1113: wsh_debug_sv.log (l_module_name, 'inventory item id',l_del_details_info.inventory_item_id);
1114: wsh_debug_sv.log (l_module_name, 'ship from loc id',l_del_details_info.ship_from_location_id);
1115: wsh_debug_sv.log (l_module_name, 'ship to loc id', l_del_details_info.ship_to_location_id);
1116: wsh_debug_sv.log (l_module_name, 'LINE_DIRECTION', l_del_details_info.LINE_DIRECTION);
1109: wsh_debug_sv.log (l_module_name, 'Requested qty', l_del_details_info.requested_quantity);
1110: wsh_debug_sv.log (l_module_name, 'Requested qty uom',l_del_details_info.requested_quantity_uom );
1111: wsh_debug_sv.log (l_module_name, 'Src req qty',l_del_details_info. src_requested_quantity);
1112: wsh_debug_sv.log (l_module_name, 'Src req qty uom', l_del_details_info.src_requested_quantity_uom);
1113: wsh_debug_sv.log (l_module_name, 'inventory item id',l_del_details_info.inventory_item_id);
1114: wsh_debug_sv.log (l_module_name, 'ship from loc id',l_del_details_info.ship_from_location_id);
1115: wsh_debug_sv.log (l_module_name, 'ship to loc id', l_del_details_info.ship_to_location_id);
1116: wsh_debug_sv.log (l_module_name, 'LINE_DIRECTION', l_del_details_info.LINE_DIRECTION);
1117: wsh_debug_sv.log (l_module_name, 'REQUEST_DATE_TYPE_CODE', l_del_details_info.REQUEST_DATE_TYPE_CODE);
1110: wsh_debug_sv.log (l_module_name, 'Requested qty uom',l_del_details_info.requested_quantity_uom );
1111: wsh_debug_sv.log (l_module_name, 'Src req qty',l_del_details_info. src_requested_quantity);
1112: wsh_debug_sv.log (l_module_name, 'Src req qty uom', l_del_details_info.src_requested_quantity_uom);
1113: wsh_debug_sv.log (l_module_name, 'inventory item id',l_del_details_info.inventory_item_id);
1114: wsh_debug_sv.log (l_module_name, 'ship from loc id',l_del_details_info.ship_from_location_id);
1115: wsh_debug_sv.log (l_module_name, 'ship to loc id', l_del_details_info.ship_to_location_id);
1116: wsh_debug_sv.log (l_module_name, 'LINE_DIRECTION', l_del_details_info.LINE_DIRECTION);
1117: wsh_debug_sv.log (l_module_name, 'REQUEST_DATE_TYPE_CODE', l_del_details_info.REQUEST_DATE_TYPE_CODE);
1118: wsh_debug_sv.log (l_module_name, 'EARLIEST_PICKUP_DATE', l_del_details_info.EARLIEST_PICKUP_DATE);
1111: wsh_debug_sv.log (l_module_name, 'Src req qty',l_del_details_info. src_requested_quantity);
1112: wsh_debug_sv.log (l_module_name, 'Src req qty uom', l_del_details_info.src_requested_quantity_uom);
1113: wsh_debug_sv.log (l_module_name, 'inventory item id',l_del_details_info.inventory_item_id);
1114: wsh_debug_sv.log (l_module_name, 'ship from loc id',l_del_details_info.ship_from_location_id);
1115: wsh_debug_sv.log (l_module_name, 'ship to loc id', l_del_details_info.ship_to_location_id);
1116: wsh_debug_sv.log (l_module_name, 'LINE_DIRECTION', l_del_details_info.LINE_DIRECTION);
1117: wsh_debug_sv.log (l_module_name, 'REQUEST_DATE_TYPE_CODE', l_del_details_info.REQUEST_DATE_TYPE_CODE);
1118: wsh_debug_sv.log (l_module_name, 'EARLIEST_PICKUP_DATE', l_del_details_info.EARLIEST_PICKUP_DATE);
1119: wsh_debug_sv.log (l_module_name, 'LATEST_PICKUP_DATE', l_del_details_info.LATEST_PICKUP_DATE);
1112: wsh_debug_sv.log (l_module_name, 'Src req qty uom', l_del_details_info.src_requested_quantity_uom);
1113: wsh_debug_sv.log (l_module_name, 'inventory item id',l_del_details_info.inventory_item_id);
1114: wsh_debug_sv.log (l_module_name, 'ship from loc id',l_del_details_info.ship_from_location_id);
1115: wsh_debug_sv.log (l_module_name, 'ship to loc id', l_del_details_info.ship_to_location_id);
1116: wsh_debug_sv.log (l_module_name, 'LINE_DIRECTION', l_del_details_info.LINE_DIRECTION);
1117: wsh_debug_sv.log (l_module_name, 'REQUEST_DATE_TYPE_CODE', l_del_details_info.REQUEST_DATE_TYPE_CODE);
1118: wsh_debug_sv.log (l_module_name, 'EARLIEST_PICKUP_DATE', l_del_details_info.EARLIEST_PICKUP_DATE);
1119: wsh_debug_sv.log (l_module_name, 'LATEST_PICKUP_DATE', l_del_details_info.LATEST_PICKUP_DATE);
1120: wsh_debug_sv.log (l_module_name, 'EARLIEST_DROPOFF_DATE', l_del_details_info.EARLIEST_DROPOFF_DATE);
1113: wsh_debug_sv.log (l_module_name, 'inventory item id',l_del_details_info.inventory_item_id);
1114: wsh_debug_sv.log (l_module_name, 'ship from loc id',l_del_details_info.ship_from_location_id);
1115: wsh_debug_sv.log (l_module_name, 'ship to loc id', l_del_details_info.ship_to_location_id);
1116: wsh_debug_sv.log (l_module_name, 'LINE_DIRECTION', l_del_details_info.LINE_DIRECTION);
1117: wsh_debug_sv.log (l_module_name, 'REQUEST_DATE_TYPE_CODE', l_del_details_info.REQUEST_DATE_TYPE_CODE);
1118: wsh_debug_sv.log (l_module_name, 'EARLIEST_PICKUP_DATE', l_del_details_info.EARLIEST_PICKUP_DATE);
1119: wsh_debug_sv.log (l_module_name, 'LATEST_PICKUP_DATE', l_del_details_info.LATEST_PICKUP_DATE);
1120: wsh_debug_sv.log (l_module_name, 'EARLIEST_DROPOFF_DATE', l_del_details_info.EARLIEST_DROPOFF_DATE);
1121: wsh_debug_sv.log (l_module_name, 'LATEST_DROPOFF_DATE', l_del_details_info.LATEST_DROPOFF_DATE);
1114: wsh_debug_sv.log (l_module_name, 'ship from loc id',l_del_details_info.ship_from_location_id);
1115: wsh_debug_sv.log (l_module_name, 'ship to loc id', l_del_details_info.ship_to_location_id);
1116: wsh_debug_sv.log (l_module_name, 'LINE_DIRECTION', l_del_details_info.LINE_DIRECTION);
1117: wsh_debug_sv.log (l_module_name, 'REQUEST_DATE_TYPE_CODE', l_del_details_info.REQUEST_DATE_TYPE_CODE);
1118: wsh_debug_sv.log (l_module_name, 'EARLIEST_PICKUP_DATE', l_del_details_info.EARLIEST_PICKUP_DATE);
1119: wsh_debug_sv.log (l_module_name, 'LATEST_PICKUP_DATE', l_del_details_info.LATEST_PICKUP_DATE);
1120: wsh_debug_sv.log (l_module_name, 'EARLIEST_DROPOFF_DATE', l_del_details_info.EARLIEST_DROPOFF_DATE);
1121: wsh_debug_sv.log (l_module_name, 'LATEST_DROPOFF_DATE', l_del_details_info.LATEST_DROPOFF_DATE);
1122: --}
1115: wsh_debug_sv.log (l_module_name, 'ship to loc id', l_del_details_info.ship_to_location_id);
1116: wsh_debug_sv.log (l_module_name, 'LINE_DIRECTION', l_del_details_info.LINE_DIRECTION);
1117: wsh_debug_sv.log (l_module_name, 'REQUEST_DATE_TYPE_CODE', l_del_details_info.REQUEST_DATE_TYPE_CODE);
1118: wsh_debug_sv.log (l_module_name, 'EARLIEST_PICKUP_DATE', l_del_details_info.EARLIEST_PICKUP_DATE);
1119: wsh_debug_sv.log (l_module_name, 'LATEST_PICKUP_DATE', l_del_details_info.LATEST_PICKUP_DATE);
1120: wsh_debug_sv.log (l_module_name, 'EARLIEST_DROPOFF_DATE', l_del_details_info.EARLIEST_DROPOFF_DATE);
1121: wsh_debug_sv.log (l_module_name, 'LATEST_DROPOFF_DATE', l_del_details_info.LATEST_DROPOFF_DATE);
1122: --}
1123: END IF;
1116: wsh_debug_sv.log (l_module_name, 'LINE_DIRECTION', l_del_details_info.LINE_DIRECTION);
1117: wsh_debug_sv.log (l_module_name, 'REQUEST_DATE_TYPE_CODE', l_del_details_info.REQUEST_DATE_TYPE_CODE);
1118: wsh_debug_sv.log (l_module_name, 'EARLIEST_PICKUP_DATE', l_del_details_info.EARLIEST_PICKUP_DATE);
1119: wsh_debug_sv.log (l_module_name, 'LATEST_PICKUP_DATE', l_del_details_info.LATEST_PICKUP_DATE);
1120: wsh_debug_sv.log (l_module_name, 'EARLIEST_DROPOFF_DATE', l_del_details_info.EARLIEST_DROPOFF_DATE);
1121: wsh_debug_sv.log (l_module_name, 'LATEST_DROPOFF_DATE', l_del_details_info.LATEST_DROPOFF_DATE);
1122: --}
1123: END IF;
1124:
1117: wsh_debug_sv.log (l_module_name, 'REQUEST_DATE_TYPE_CODE', l_del_details_info.REQUEST_DATE_TYPE_CODE);
1118: wsh_debug_sv.log (l_module_name, 'EARLIEST_PICKUP_DATE', l_del_details_info.EARLIEST_PICKUP_DATE);
1119: wsh_debug_sv.log (l_module_name, 'LATEST_PICKUP_DATE', l_del_details_info.LATEST_PICKUP_DATE);
1120: wsh_debug_sv.log (l_module_name, 'EARLIEST_DROPOFF_DATE', l_del_details_info.EARLIEST_DROPOFF_DATE);
1121: wsh_debug_sv.log (l_module_name, 'LATEST_DROPOFF_DATE', l_del_details_info.LATEST_DROPOFF_DATE);
1122: --}
1123: END IF;
1124:
1125:
1145: l_new_del_detail_id := l_detail_out_rec.detail_ids(l_index);
1146:
1147:
1148: IF l_debug_on THEN
1149: wsh_debug_sv.log (l_module_name, 'Create Shipment Lines l_new_del_detail_id,l_return_status',
1150: l_new_del_detail_id||','||l_return_status);
1151: END IF;
1152:
1153: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1155: l_loc_interface_error_rec.p_interface_table_name := 'WSH_NEW_DEL_INTERFACE';
1156: l_loc_interface_error_rec.p_interface_id := p_delivery_interface_id;
1157:
1158: IF l_debug_on THEN
1159: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
1160: END IF;
1161:
1162: Log_Errors(
1163: p_loc_interface_errors_rec => l_loc_interface_error_rec,
1165: p_api_name => 'WSH_INTERFACE_PUB.Create_Shipment_lines' ,
1166: x_return_status => l_return_status);
1167:
1168: IF l_debug_on THEN
1169: wsh_debug_sv.log (l_module_name, 'Return status after log_errors', l_return_status);
1170: END IF;
1171: raise create_lines_failed;
1172: END IF;
1173:
1179: raise create_lines_failed;
1180: END IF;
1181: ELSIF(p_action_code = 'UPDATE') THEN --}{
1182: IF l_debug_on THEN
1183: wsh_debug_sv.logmsg(l_module_name,'Starting Update Action');
1184: END IF;
1185: IF(nvl(del_det_int_rec.container_flag, 'N') = 'Y') THEN
1186: -- container record
1187: -- check if a container instance exists
1191: FETCH cont_inst_exists INTO l_cont_inst_exists;
1192: CLOSE cont_inst_exists;
1193:
1194: IF l_debug_on THEN
1195: wsh_debug_sv.log (l_module_name, 'Container Instance Check', l_cont_inst_exists);
1196: END IF;
1197:
1198: IF(nvl(l_cont_inst_exists, -9999) = 1) THEN
1199: -- Just add to the global update table.
1223: p_caller => 'WSH');
1224: --
1225: --
1226: IF l_debug_on THEN
1227: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
1228: WSH_DEBUG_SV.log(l_module_name,'count of l_cont_tab',l_cont_tab.count);
1229: END IF;
1230: l_cont_instance_id := l_cont_tab(1);
1231: -- K LPN CONV. rv
1224: --
1225: --
1226: IF l_debug_on THEN
1227: WSH_DEBUG_SV.log(l_module_name,'return status',l_return_status);
1228: WSH_DEBUG_SV.log(l_module_name,'count of l_cont_tab',l_cont_tab.count);
1229: END IF;
1230: l_cont_instance_id := l_cont_tab(1);
1231: -- K LPN CONV. rv
1232: --
1241: x_row_id => l_row_id,
1242: x_return_status => l_return_status);
1243:
1244: IF l_debug_on THEN
1245: wsh_debug_sv.log (l_module_name, 'Create_Container_Instance l_cont_instance_id,
1246: l_return_status',l_cont_instance_id||','||l_return_status);
1247: END IF;
1248: */
1249:
1283: p_delivery_id => l_delivery_id,
1284: x_return_status => l_return_status);
1285:
1286: IF l_debug_on THEN
1287: wsh_debug_sv.log (l_module_name, 'Add_To_Update_Table l_return_status',l_return_status);
1288: END IF;
1289:
1290: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1291: raise add_to_update_failed;
1294:
1295: ELSE -- not a container, plain update
1296: -- TPW - Distributed changes
1297: IF l_debug_on THEN
1298: wsh_debug_sv.log (l_module_name, 'in Else');
1299: wsh_debug_sv.log (l_module_name, 'del_det_int_rec.source_line_id', del_det_int_rec.source_line_id);
1300: wsh_debug_sv.log (l_module_name, 'del_det_int_rec.source_header_number', del_det_int_rec.source_header_number);
1301: END IF;
1302:
1295: ELSE -- not a container, plain update
1296: -- TPW - Distributed changes
1297: IF l_debug_on THEN
1298: wsh_debug_sv.log (l_module_name, 'in Else');
1299: wsh_debug_sv.log (l_module_name, 'del_det_int_rec.source_line_id', del_det_int_rec.source_line_id);
1300: wsh_debug_sv.log (l_module_name, 'del_det_int_rec.source_header_number', del_det_int_rec.source_header_number);
1301: END IF;
1302:
1303: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN --{
1296: -- TPW - Distributed changes
1297: IF l_debug_on THEN
1298: wsh_debug_sv.log (l_module_name, 'in Else');
1299: wsh_debug_sv.log (l_module_name, 'del_det_int_rec.source_line_id', del_det_int_rec.source_line_id);
1300: wsh_debug_sv.log (l_module_name, 'del_det_int_rec.source_header_number', del_det_int_rec.source_header_number);
1301: END IF;
1302:
1303: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN --{
1304:
1302:
1303: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN --{
1304:
1305: IF l_debug_on THEN
1306: wsh_debug_sv.logmsg(l_module_name, 'Line Direction '||del_det_int_rec.line_direction||
1307: ' SHN '||del_det_int_rec.source_header_number||
1308: ' Intf DDID '||del_det_int_rec.delivery_detail_id);
1309: END IF;
1310:
1341: END IF;
1342:
1343: IF l_debug_on THEN
1344: FOR i in 1..l_detail_id_tab.COUNT LOOP
1345: wsh_debug_sv.logmsg(l_module_name,'DD-id '||l_detail_id_tab(i)||' Req Qty '||l_detail_qty_tab(i));
1346: END LOOP;
1347: END IF;
1348:
1349: IF (del_det_int_rec.serial_number is not null) and (l_detail_id_tab.COUNT > 1) THEN
1348:
1349: IF (del_det_int_rec.serial_number is not null) and (l_detail_id_tab.COUNT > 1) THEN
1350: -- Not Supported
1351: IF l_debug_on THEN
1352: wsh_debug_sv.logmsg(l_module_name,'Serial types not supported for remnant models');
1353: END IF;
1354: raise fnd_api.g_exc_error;
1355: -- Serial Number is NOT NULL
1356: ELSIF del_det_int_rec.serial_number IS NOT NULL THEN
1354: raise fnd_api.g_exc_error;
1355: -- Serial Number is NOT NULL
1356: ELSIF del_det_int_rec.serial_number IS NOT NULL THEN
1357: IF l_debug_on THEN
1358: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.inventory_item_id', del_det_int_rec.inventory_item_id);
1359: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.organization_id', del_det_int_rec.organization_id);
1360: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.serial_number', del_det_int_rec.serial_number);
1361: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.to_serial_number', del_det_int_rec.to_serial_number);
1362: END IF;
1355: -- Serial Number is NOT NULL
1356: ELSIF del_det_int_rec.serial_number IS NOT NULL THEN
1357: IF l_debug_on THEN
1358: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.inventory_item_id', del_det_int_rec.inventory_item_id);
1359: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.organization_id', del_det_int_rec.organization_id);
1360: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.serial_number', del_det_int_rec.serial_number);
1361: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.to_serial_number', del_det_int_rec.to_serial_number);
1362: END IF;
1363:
1356: ELSIF del_det_int_rec.serial_number IS NOT NULL THEN
1357: IF l_debug_on THEN
1358: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.inventory_item_id', del_det_int_rec.inventory_item_id);
1359: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.organization_id', del_det_int_rec.organization_id);
1360: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.serial_number', del_det_int_rec.serial_number);
1361: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.to_serial_number', del_det_int_rec.to_serial_number);
1362: END IF;
1363:
1364: BEGIN
1357: IF l_debug_on THEN
1358: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.inventory_item_id', del_det_int_rec.inventory_item_id);
1359: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.organization_id', del_det_int_rec.organization_id);
1360: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.serial_number', del_det_int_rec.serial_number);
1361: wsh_debug_sv.log(l_module_name,'PNS: del_det_int_rec.to_serial_number', del_det_int_rec.to_serial_number);
1362: END IF;
1363:
1364: BEGIN
1365: SELECT serial_number_control_code
1368: WHERE inventory_item_id = del_det_int_rec.inventory_item_id
1369: AND organization_id = del_det_int_rec.organization_id;
1370:
1371: IF l_debug_on THEN
1372: wsh_debug_sv.log(l_module_name,'PNS: l_serial_number_control', l_serial_number_control);
1373: END IF;
1374:
1375: EXCEPTION
1376: WHEN NO_DATA_FOUND THEN
1374:
1375: EXCEPTION
1376: WHEN NO_DATA_FOUND THEN
1377: IF l_debug_on THEN
1378: wsh_debug_sv.logmsg(l_module_name,'PNS: Inside No-Data-Found');
1379: END IF;
1380: END;
1381:
1382: -- If item is not serial controlled then NULL out serial
1393:
1394: while (l_pending_req_qty > 0) loop --{
1395:
1396: if l_debug_on then
1397: wsh_debug_sv.logmsg(l_module_name, 'l_pending_req_qty '||l_pending_req_qty||
1398: ' l_pending_shp_qty '||l_pending_shp_qty);
1399: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||
1400: ' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
1401: end if;
1395:
1396: if l_debug_on then
1397: wsh_debug_sv.logmsg(l_module_name, 'l_pending_req_qty '||l_pending_req_qty||
1398: ' l_pending_shp_qty '||l_pending_shp_qty);
1399: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||
1400: ' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
1401: end if;
1402:
1403: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
1413:
1414: -- For the newly created base delivery detail, make updates
1415: -- Add the record with new detail id to the global table
1416: if l_debug_on then
1417: wsh_debug_sv.log(l_module_name, 'l_new_split_detail_id', l_new_split_detail_id);
1418: end if;
1419:
1420: IF (l_new_split_detail_id is not null) THEN
1421: del_det_int_rec.delivery_detail_id := l_new_split_detail_id;
1447: p_delivery_id => l_delivery_id,
1448: x_return_status => l_return_status);
1449:
1450: IF l_debug_on THEN
1451: wsh_debug_sv.log (l_module_name, 'Add_To_Update_Table l_return_status',l_return_status);
1452: END IF;
1453:
1454: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1455: raise add_to_update_failed;
1470: p_delivery_id => l_delivery_id,
1471: x_return_status => l_return_status);
1472:
1473: IF l_debug_on THEN
1474: wsh_debug_sv.log (l_module_name, 'Add_To_Update_Table l_return_status',l_return_status);
1475: END IF;
1476:
1477: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1478: raise add_to_update_failed;
1488: WHERE delivery_detail_interface_id = del_det_int_rec.delivery_detail_interface_id
1489: AND INTERFACE_ACTION_CODE = '94X_INBOUND';
1490:
1491: IF l_debug_on THEN
1492: wsh_debug_sv.log (l_module_name, 'Interface freight count', l_det_freight_costs);
1493: END IF;
1494:
1495: IF(l_det_freight_costs > 0 ) THEN
1496: Process_Int_Freight_Costs(
1499: p_delivery_detail_id => del_det_int_rec.delivery_detail_id,
1500: x_return_status => l_return_status);
1501:
1502: IF l_debug_on THEN
1503: wsh_debug_sv.log (l_module_name,'Return status from Process Int Freight Costs',l_return_status);
1504: END IF;
1505:
1506: IF( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1507: raise freight_cost_processing_error;
1514: END LOOP; -- for det_id
1515:
1516: -- For the newly created delivery details, call detail_to_delivery to assign them to delivery
1517: IF l_debug_on THEN
1518: wsh_debug_sv.log (l_module_name, 'Assign table count', l_new_detail_ids.count);
1519: END IF;
1520:
1521: IF(l_new_detail_ids.count > 0) THEN
1522: WSH_DELIVERY_DETAILS_GRP.Detail_To_Delivery(
1533: p_delivery_name => l_delivery_name
1534: );
1535:
1536: IF l_debug_on THEN
1537: wsh_debug_sv.log (l_module_name, 'Return status from Detail to delivery', l_return_status);
1538: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg count', l_msg_count);
1539: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg data', l_msg_data);
1540: END IF;
1541:
1534: );
1535:
1536: IF l_debug_on THEN
1537: wsh_debug_sv.log (l_module_name, 'Return status from Detail to delivery', l_return_status);
1538: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg count', l_msg_count);
1539: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg data', l_msg_data);
1540: END IF;
1541:
1542: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1535:
1536: IF l_debug_on THEN
1537: wsh_debug_sv.log (l_module_name, 'Return status from Detail to delivery', l_return_status);
1538: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg count', l_msg_count);
1539: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg data', l_msg_data);
1540: END IF;
1541:
1542: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1543: raise new_assignment_failed;
1544: END IF;
1545: END IF;
1546:
1547: IF l_debug_on THEN
1548: wsh_debug_sv.pop(l_module_name);
1549: END IF;
1550: EXCEPTION
1551: WHEN FND_API.G_EXC_ERROR THEN
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1550: EXCEPTION
1551: WHEN FND_API.G_EXC_ERROR THEN
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1553: IF l_debug_on THEN
1554: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1555: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION: FND_API.G_EXC_ERROR');
1556: END IF;
1557: WHEN create_cont_instance_failed THEN
1558: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1551: WHEN FND_API.G_EXC_ERROR THEN
1552: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1553: IF l_debug_on THEN
1554: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1555: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION: FND_API.G_EXC_ERROR');
1556: END IF;
1557: WHEN create_cont_instance_failed THEN
1558: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1559: IF l_debug_on THEN
1556: END IF;
1557: WHEN create_cont_instance_failed THEN
1558: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1559: IF l_debug_on THEN
1560: WSH_DEBUG_SV.logmsg(l_module_name,'create_cont_instance_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1561: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:create_cont_instance_failed');
1562: END IF;
1563: WHEN invalid_input THEN
1564: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1557: WHEN create_cont_instance_failed THEN
1558: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1559: IF l_debug_on THEN
1560: WSH_DEBUG_SV.logmsg(l_module_name,'create_cont_instance_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1561: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:create_cont_instance_failed');
1562: END IF;
1563: WHEN invalid_input THEN
1564: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1565: IF l_debug_on THEN
1562: END IF;
1563: WHEN invalid_input THEN
1564: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1565: IF l_debug_on THEN
1566: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1567: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
1568: END IF;
1569: WHEN create_lines_failed THEN
1570: FND_MESSAGE.SET_NAME('WSH', 'WSH_CREATE_LINES_FAILED');
1563: WHEN invalid_input THEN
1564: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1565: IF l_debug_on THEN
1566: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1567: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
1568: END IF;
1569: WHEN create_lines_failed THEN
1570: FND_MESSAGE.SET_NAME('WSH', 'WSH_CREATE_LINES_FAILED');
1571: FND_MESSAGE.SET_TOKEN('DET_INT',del_det_int_rec.delivery_detail_interface_id);
1570: FND_MESSAGE.SET_NAME('WSH', 'WSH_CREATE_LINES_FAILED');
1571: FND_MESSAGE.SET_TOKEN('DET_INT',del_det_int_rec.delivery_detail_interface_id);
1572: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1573: IF l_debug_on THEN
1574: WSH_DEBUG_SV.logmsg(l_module_name,'create_lines_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1575: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:create_lines_failed');
1576: END IF;
1577: WHEN new_assignment_failed THEN
1578: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSGN_ERROR');
1571: FND_MESSAGE.SET_TOKEN('DET_INT',del_det_int_rec.delivery_detail_interface_id);
1572: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1573: IF l_debug_on THEN
1574: WSH_DEBUG_SV.logmsg(l_module_name,'create_lines_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1575: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:create_lines_failed');
1576: END IF;
1577: WHEN new_assignment_failed THEN
1578: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSGN_ERROR');
1579: FND_MESSAGE.SET_TOKEN('DLVY', p_new_delivery_id);
1578: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSGN_ERROR');
1579: FND_MESSAGE.SET_TOKEN('DLVY', p_new_delivery_id);
1580: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1581: IF l_debug_on THEN
1582: WSH_DEBUG_SV.logmsg(l_module_name,'new_assignment_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1583: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:new_assignment_failed');
1584: END IF;
1585: WHEN freight_cost_processing_error THEN
1586: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1579: FND_MESSAGE.SET_TOKEN('DLVY', p_new_delivery_id);
1580: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1581: IF l_debug_on THEN
1582: WSH_DEBUG_SV.logmsg(l_module_name,'new_assignment_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1583: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:new_assignment_failed');
1584: END IF;
1585: WHEN freight_cost_processing_error THEN
1586: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1587: IF l_debug_on THEN
1584: END IF;
1585: WHEN freight_cost_processing_error THEN
1586: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1587: IF l_debug_on THEN
1588: WSH_DEBUG_SV.logmsg(l_module_name,'freight_cost_processing_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1589: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:freight_cost_processing_error');
1590: END IF;
1591: WHEN Others THEN
1592: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1585: WHEN freight_cost_processing_error THEN
1586: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1587: IF l_debug_on THEN
1588: WSH_DEBUG_SV.logmsg(l_module_name,'freight_cost_processing_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1589: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:freight_cost_processing_error');
1590: END IF;
1591: WHEN Others THEN
1592: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1593: IF l_debug_on THEN
1590: END IF;
1591: WHEN Others THEN
1592: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1593: IF l_debug_on THEN
1594: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1595: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1596: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1597: END IF;
1598: END Process_Non_Splits;
1591: WHEN Others THEN
1592: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1593: IF l_debug_on THEN
1594: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1595: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1596: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1597: END IF;
1598: END Process_Non_Splits;
1599:
1592: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1593: IF l_debug_on THEN
1594: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
1595: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1596: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1597: END IF;
1598: END Process_Non_Splits;
1599:
1600: PROCEDURE process_splits(
1671: l_debug_on := wsh_debug_interface.g_debug;
1672:
1673: --
1674: IF l_debug_on IS NULL THEN
1675: l_debug_on := wsh_debug_sv.is_debug_enabled;
1676: END IF;
1677:
1678: --
1679: IF l_debug_on THEN
1676: END IF;
1677:
1678: --
1679: IF l_debug_on THEN
1680: wsh_debug_sv.push(l_module_name, 'Process_Splits');
1681: wsh_debug_sv.LOG(l_module_name, 'Delivery Interface Id',
1682: p_delivery_interface_id);
1683: wsh_debug_sv.LOG(l_module_name, 'Delivery Id', p_delivery_id);
1684: END IF;
1677:
1678: --
1679: IF l_debug_on THEN
1680: wsh_debug_sv.push(l_module_name, 'Process_Splits');
1681: wsh_debug_sv.LOG(l_module_name, 'Delivery Interface Id',
1682: p_delivery_interface_id);
1683: wsh_debug_sv.LOG(l_module_name, 'Delivery Id', p_delivery_id);
1684: END IF;
1685:
1679: IF l_debug_on THEN
1680: wsh_debug_sv.push(l_module_name, 'Process_Splits');
1681: wsh_debug_sv.LOG(l_module_name, 'Delivery Interface Id',
1682: p_delivery_interface_id);
1683: wsh_debug_sv.LOG(l_module_name, 'Delivery Id', p_delivery_id);
1684: END IF;
1685:
1686: x_return_status := wsh_util_core.g_ret_sts_success;
1687:
1703:
1704: -- TPW - Distributed changes
1705: FOR del_det_int_rec IN del_det_int_cur(NULL, NULL, p_delivery_interface_id) LOOP --{
1706: IF l_debug_on THEN
1707: wsh_debug_sv.log(l_module_name, '*** Current Delivery_Detail_Id', del_det_int_rec.delivery_detail_id);
1708: wsh_debug_sv.log(l_module_name, 'Current del.detail_int_id', del_det_int_rec.delivery_detail_interface_id);
1709: wsh_debug_sv.log(l_module_name, 'Req Qty '||del_det_int_rec.requested_quantity||' Shp Qty '||
1710: del_det_int_rec.shipped_quantity||' Cyc Qty '||del_det_int_rec.cycle_count_quantity);
1711: wsh_debug_sv.log(l_module_name, 'Previous Delivery_detail_id', l_prev_int_rec.delivery_detail_id);
1704: -- TPW - Distributed changes
1705: FOR del_det_int_rec IN del_det_int_cur(NULL, NULL, p_delivery_interface_id) LOOP --{
1706: IF l_debug_on THEN
1707: wsh_debug_sv.log(l_module_name, '*** Current Delivery_Detail_Id', del_det_int_rec.delivery_detail_id);
1708: wsh_debug_sv.log(l_module_name, 'Current del.detail_int_id', del_det_int_rec.delivery_detail_interface_id);
1709: wsh_debug_sv.log(l_module_name, 'Req Qty '||del_det_int_rec.requested_quantity||' Shp Qty '||
1710: del_det_int_rec.shipped_quantity||' Cyc Qty '||del_det_int_rec.cycle_count_quantity);
1711: wsh_debug_sv.log(l_module_name, 'Previous Delivery_detail_id', l_prev_int_rec.delivery_detail_id);
1712: wsh_debug_sv.log(l_module_name, 'Previous del.detail_int_id', l_prev_int_rec.delivery_detail_interface_id);
1705: FOR del_det_int_rec IN del_det_int_cur(NULL, NULL, p_delivery_interface_id) LOOP --{
1706: IF l_debug_on THEN
1707: wsh_debug_sv.log(l_module_name, '*** Current Delivery_Detail_Id', del_det_int_rec.delivery_detail_id);
1708: wsh_debug_sv.log(l_module_name, 'Current del.detail_int_id', del_det_int_rec.delivery_detail_interface_id);
1709: wsh_debug_sv.log(l_module_name, 'Req Qty '||del_det_int_rec.requested_quantity||' Shp Qty '||
1710: del_det_int_rec.shipped_quantity||' Cyc Qty '||del_det_int_rec.cycle_count_quantity);
1711: wsh_debug_sv.log(l_module_name, 'Previous Delivery_detail_id', l_prev_int_rec.delivery_detail_id);
1712: wsh_debug_sv.log(l_module_name, 'Previous del.detail_int_id', l_prev_int_rec.delivery_detail_interface_id);
1713: wsh_debug_sv.logmsg(l_module_name, 'l_src_line_count '||l_src_line_count||' l_dd_count '||l_dd_count);
1707: wsh_debug_sv.log(l_module_name, '*** Current Delivery_Detail_Id', del_det_int_rec.delivery_detail_id);
1708: wsh_debug_sv.log(l_module_name, 'Current del.detail_int_id', del_det_int_rec.delivery_detail_interface_id);
1709: wsh_debug_sv.log(l_module_name, 'Req Qty '||del_det_int_rec.requested_quantity||' Shp Qty '||
1710: del_det_int_rec.shipped_quantity||' Cyc Qty '||del_det_int_rec.cycle_count_quantity);
1711: wsh_debug_sv.log(l_module_name, 'Previous Delivery_detail_id', l_prev_int_rec.delivery_detail_id);
1712: wsh_debug_sv.log(l_module_name, 'Previous del.detail_int_id', l_prev_int_rec.delivery_detail_interface_id);
1713: wsh_debug_sv.logmsg(l_module_name, 'l_src_line_count '||l_src_line_count||' l_dd_count '||l_dd_count);
1714: wsh_debug_sv.logmsg(l_module_name, 'Total req qty '|| l_total_req_qty ||' Total shp qty '||l_total_shp_qty||
1715: ' Total cc qty '||l_total_cc_qty);
1708: wsh_debug_sv.log(l_module_name, 'Current del.detail_int_id', del_det_int_rec.delivery_detail_interface_id);
1709: wsh_debug_sv.log(l_module_name, 'Req Qty '||del_det_int_rec.requested_quantity||' Shp Qty '||
1710: del_det_int_rec.shipped_quantity||' Cyc Qty '||del_det_int_rec.cycle_count_quantity);
1711: wsh_debug_sv.log(l_module_name, 'Previous Delivery_detail_id', l_prev_int_rec.delivery_detail_id);
1712: wsh_debug_sv.log(l_module_name, 'Previous del.detail_int_id', l_prev_int_rec.delivery_detail_interface_id);
1713: wsh_debug_sv.logmsg(l_module_name, 'l_src_line_count '||l_src_line_count||' l_dd_count '||l_dd_count);
1714: wsh_debug_sv.logmsg(l_module_name, 'Total req qty '|| l_total_req_qty ||' Total shp qty '||l_total_shp_qty||
1715: ' Total cc qty '||l_total_cc_qty);
1716: wsh_debug_sv.log(l_module_name, 'l_detail_id_tab.COUNT', l_detail_id_tab.COUNT);
1709: wsh_debug_sv.log(l_module_name, 'Req Qty '||del_det_int_rec.requested_quantity||' Shp Qty '||
1710: del_det_int_rec.shipped_quantity||' Cyc Qty '||del_det_int_rec.cycle_count_quantity);
1711: wsh_debug_sv.log(l_module_name, 'Previous Delivery_detail_id', l_prev_int_rec.delivery_detail_id);
1712: wsh_debug_sv.log(l_module_name, 'Previous del.detail_int_id', l_prev_int_rec.delivery_detail_interface_id);
1713: wsh_debug_sv.logmsg(l_module_name, 'l_src_line_count '||l_src_line_count||' l_dd_count '||l_dd_count);
1714: wsh_debug_sv.logmsg(l_module_name, 'Total req qty '|| l_total_req_qty ||' Total shp qty '||l_total_shp_qty||
1715: ' Total cc qty '||l_total_cc_qty);
1716: wsh_debug_sv.log(l_module_name, 'l_detail_id_tab.COUNT', l_detail_id_tab.COUNT);
1717: END IF;
1710: del_det_int_rec.shipped_quantity||' Cyc Qty '||del_det_int_rec.cycle_count_quantity);
1711: wsh_debug_sv.log(l_module_name, 'Previous Delivery_detail_id', l_prev_int_rec.delivery_detail_id);
1712: wsh_debug_sv.log(l_module_name, 'Previous del.detail_int_id', l_prev_int_rec.delivery_detail_interface_id);
1713: wsh_debug_sv.logmsg(l_module_name, 'l_src_line_count '||l_src_line_count||' l_dd_count '||l_dd_count);
1714: wsh_debug_sv.logmsg(l_module_name, 'Total req qty '|| l_total_req_qty ||' Total shp qty '||l_total_shp_qty||
1715: ' Total cc qty '||l_total_cc_qty);
1716: wsh_debug_sv.log(l_module_name, 'l_detail_id_tab.COUNT', l_detail_id_tab.COUNT);
1717: END IF;
1718:
1712: wsh_debug_sv.log(l_module_name, 'Previous del.detail_int_id', l_prev_int_rec.delivery_detail_interface_id);
1713: wsh_debug_sv.logmsg(l_module_name, 'l_src_line_count '||l_src_line_count||' l_dd_count '||l_dd_count);
1714: wsh_debug_sv.logmsg(l_module_name, 'Total req qty '|| l_total_req_qty ||' Total shp qty '||l_total_shp_qty||
1715: ' Total cc qty '||l_total_cc_qty);
1716: wsh_debug_sv.log(l_module_name, 'l_detail_id_tab.COUNT', l_detail_id_tab.COUNT);
1717: END IF;
1718:
1719: -- TPW - Distributed changes
1720: IF ((NVL(l_prev_int_rec.source_header_number, '-9999') = NVL(del_det_int_rec.source_header_number,'-9999')) AND
1719: -- TPW - Distributed changes
1720: IF ((NVL(l_prev_int_rec.source_header_number, '-9999') = NVL(del_det_int_rec.source_header_number,'-9999')) AND
1721: (NVL(l_prev_int_rec.delivery_detail_id, '-9999') = del_det_int_rec.delivery_detail_id)) THEN --{
1722: if l_debug_on then
1723: wsh_debug_sv.logmsg(l_module_name, 'Same Delivery Detail');
1724: end if;
1725: l_dd_count := l_dd_count + 1;
1726:
1727: IF NVL(l_prev_int_rec.source_line_id, '-9999') =
1726:
1727: IF NVL(l_prev_int_rec.source_line_id, '-9999') =
1728: del_det_int_rec.source_line_id THEN
1729: if l_debug_on then
1730: wsh_debug_sv.logmsg(l_module_name, 'Same Source Line');
1731: end if;
1732: ELSE --} {
1733:
1734: -- TPW - Distributed changes
1737:
1738: WHILE (l_pending_req_qty > 0) LOOP --{
1739:
1740: if l_debug_on then
1741: wsh_debug_sv.logmsg(l_module_name, '*** 1 **** l_pending_req_qty '||l_pending_req_qty||' l_pending_shp_qty '||l_pending_shp_qty);
1742: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
1743: end if;
1744:
1745: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
1738: WHILE (l_pending_req_qty > 0) LOOP --{
1739:
1740: if l_debug_on then
1741: wsh_debug_sv.logmsg(l_module_name, '*** 1 **** l_pending_req_qty '||l_pending_req_qty||' l_pending_shp_qty '||l_pending_shp_qty);
1742: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
1743: end if;
1744:
1745: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
1746:
1760:
1761: -- For the newly created base delivery detail, make updates
1762: -- Add the record with new detail id to the global table
1763: if l_debug_on then
1764: wsh_debug_sv.log(l_module_name, 'Splitted '||l_new_split_detail_id ||' from '|| l_detail_id_tab(l_curr_index) || ' for quantity '||l_pending_req_qty);
1765: end if;
1766:
1767: If l_new_split_detail_id IS NOT NULL THEN
1768: l_prev_int_rec.delivery_detail_id := l_new_split_detail_id;
1843:
1844: WHILE (l_pending_req_qty > 0) LOOP --{
1845:
1846: if l_debug_on then
1847: wsh_debug_sv.logmsg(l_module_name, '*** 2 **** l_pending_req_qty '||l_pending_req_qty||' l_pending_shp_qty '||l_pending_shp_qty);
1848: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
1849: end if;
1850:
1851: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
1844: WHILE (l_pending_req_qty > 0) LOOP --{
1845:
1846: if l_debug_on then
1847: wsh_debug_sv.logmsg(l_module_name, '*** 2 **** l_pending_req_qty '||l_pending_req_qty||' l_pending_shp_qty '||l_pending_shp_qty);
1848: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
1849: end if;
1850:
1851: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
1852:
1867:
1868: -- For the newly created base delivery detail, make updates
1869: -- Add the record with new detail id to the global table
1870: if l_debug_on then
1871: wsh_debug_sv.log(l_module_name, 'Splitted '||l_new_split_detail_id ||' from '|| l_detail_id_tab(l_curr_index) || ' for quantity '||l_pending_req_qty);
1872: end if;
1873:
1874: If l_new_split_detail_id IS NOT NULL THEN
1875: l_prev_int_rec.delivery_detail_id := l_new_split_detail_id;
1940:
1941: WHILE (l_pending_req_qty > 0) LOOP --{
1942:
1943: if l_debug_on then
1944: wsh_debug_sv.logmsg(l_module_name, '*** 3 **** l_pending_req_qty '||l_pending_req_qty||' l_pending_shp_qty '||l_pending_shp_qty);
1945: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
1946: end if;
1947:
1948: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
1941: WHILE (l_pending_req_qty > 0) LOOP --{
1942:
1943: if l_debug_on then
1944: wsh_debug_sv.logmsg(l_module_name, '*** 3 **** l_pending_req_qty '||l_pending_req_qty||' l_pending_shp_qty '||l_pending_shp_qty);
1945: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
1946: end if;
1947:
1948: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
1949:
1964:
1965: -- For the newly created base delivery detail, make updates
1966: -- Add the record with new detail id to the global table
1967: if l_debug_on then
1968: wsh_debug_sv.log(l_module_name, 'Splitted '||l_new_split_detail_id ||' from '|| l_detail_id_tab(l_curr_index) || ' for quantity '||l_pending_req_qty);
1969: end if;
1970:
1971: If l_new_split_detail_id IS NOT NULL THEN
1972: l_prev_int_rec.delivery_detail_id := l_new_split_detail_id;
2046: OPEN c_det_count_cur(del_det_int_rec.source_header_number, del_det_int_rec.delivery_detail_id, p_delivery_interface_id);
2047: FETCH c_det_count_cur INTO l_num_of_dtl;
2048: CLOSE c_det_count_cur;
2049: if l_debug_on THEN
2050: wsh_debug_sv.log(l_module_name, 'l_num_of_dtl', l_num_of_dtl);
2051: end if;
2052:
2053: -- TPW - Distributed changes
2054: if (del_det_int_rec.container_flag = 'N') THEN
2055:
2056: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
2057:
2058: IF l_debug_on THEN
2059: wsh_debug_sv.logmsg(l_module_name, 'Line Direction '||del_det_int_rec.line_direction||
2060: ' SHN '||del_det_int_rec.source_header_number||
2061: ' Intf DDID '||del_det_int_rec.delivery_detail_id);
2062: END IF;
2063:
2094: END IF;
2095:
2096: IF l_debug_on THEN
2097: FOR i in 1..l_detail_id_tab.COUNT LOOP
2098: wsh_debug_sv.logmsg(l_module_name,'DD-id '||l_detail_id_tab(i)||' Req Qty '||l_detail_qty_tab(i));
2099: END LOOP;
2100: END IF;
2101:
2102: ELSE
2132: IF del_det_int_rec.serial_number IS NOT NULL THEN
2133: -- { If Organization is TW2 then check if item is serial controlled - Start
2134: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
2135: IF l_debug_on THEN
2136: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.inventory_item_id', del_det_int_rec.inventory_item_id);
2137: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.organization_id', del_det_int_rec.organization_id);
2138: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.serial_number', del_det_int_rec.serial_number);
2139: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.to_serial_number', del_det_int_rec.to_serial_number);
2140: END IF;
2133: -- { If Organization is TW2 then check if item is serial controlled - Start
2134: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
2135: IF l_debug_on THEN
2136: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.inventory_item_id', del_det_int_rec.inventory_item_id);
2137: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.organization_id', del_det_int_rec.organization_id);
2138: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.serial_number', del_det_int_rec.serial_number);
2139: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.to_serial_number', del_det_int_rec.to_serial_number);
2140: END IF;
2141:
2134: IF (nvl(WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE, '!') = 'TW2') THEN
2135: IF l_debug_on THEN
2136: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.inventory_item_id', del_det_int_rec.inventory_item_id);
2137: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.organization_id', del_det_int_rec.organization_id);
2138: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.serial_number', del_det_int_rec.serial_number);
2139: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.to_serial_number', del_det_int_rec.to_serial_number);
2140: END IF;
2141:
2142: BEGIN
2135: IF l_debug_on THEN
2136: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.inventory_item_id', del_det_int_rec.inventory_item_id);
2137: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.organization_id', del_det_int_rec.organization_id);
2138: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.serial_number', del_det_int_rec.serial_number);
2139: wsh_debug_sv.log(l_module_name,'PS: del_det_int_rec.to_serial_number', del_det_int_rec.to_serial_number);
2140: END IF;
2141:
2142: BEGIN
2143: SELECT serial_number_control_code
2146: WHERE inventory_item_id = del_det_int_rec.inventory_item_id
2147: AND organization_id = del_det_int_rec.organization_id;
2148:
2149: IF l_debug_on THEN
2150: wsh_debug_sv.log(l_module_name,'PS: l_serial_number_control', l_serial_number_control);
2151: END IF;
2152:
2153: EXCEPTION
2154: WHEN NO_DATA_FOUND THEN
2152:
2153: EXCEPTION
2154: WHEN NO_DATA_FOUND THEN
2155: IF l_debug_on THEN
2156: wsh_debug_sv.logmsg(l_module_name,'PS: Inside No-Data-Found');
2157: END IF;
2158: END;
2159: ELSE -- Organization is TPW Enabled
2160: l_serial_number_control := 2;
2164: -- TPW - Distributed changes
2165: IF (l_detail_id_tab.COUNT = 1) THEN --{
2166: IF l_serial_number_control <> 1 THEN
2167: IF l_debug_on THEN
2168: wsh_debug_sv.logmsg(l_module_name, 'Adding serial number to serial table');
2169: END IF;
2170:
2171: l_ser_count := l_serial_range_tab.COUNT;
2172: l_serial_range_tab(l_ser_count + 1).delivery_detail_id :=
2184: del_det_int_rec.to_serial_number := NULL;
2185: ELSE
2186: -- Not Supported
2187: IF l_debug_on THEN
2188: wsh_debug_sv.logmsg(l_module_name,'Serial types not supported for remnant models');
2189: END IF;
2190: raise fnd_api.g_exc_error;
2191: END IF; --}
2192: END IF;
2196:
2197: END LOOP; -- for del_det_int_rec in cursor }
2198:
2199: IF l_debug_on THEN
2200: wsh_debug_sv.logmsg(l_module_name, '*** Outside the Loop ***');
2201: wsh_debug_sv.logmsg(l_module_name, 'l_src_line_count '|| l_src_line_count||' l_dd_count '||l_dd_count);
2202: wsh_debug_sv.logmsg(l_module_name, 'Total req qty '|| l_total_req_qty||' Total shp qty '||l_total_shp_qty||' Total cc qty '||l_total_cc_qty);
2203: END IF;
2204:
2197: END LOOP; -- for del_det_int_rec in cursor }
2198:
2199: IF l_debug_on THEN
2200: wsh_debug_sv.logmsg(l_module_name, '*** Outside the Loop ***');
2201: wsh_debug_sv.logmsg(l_module_name, 'l_src_line_count '|| l_src_line_count||' l_dd_count '||l_dd_count);
2202: wsh_debug_sv.logmsg(l_module_name, 'Total req qty '|| l_total_req_qty||' Total shp qty '||l_total_shp_qty||' Total cc qty '||l_total_cc_qty);
2203: END IF;
2204:
2205: IF (l_prev_int_rec.container_flag = 'N') THEN --{
2198:
2199: IF l_debug_on THEN
2200: wsh_debug_sv.logmsg(l_module_name, '*** Outside the Loop ***');
2201: wsh_debug_sv.logmsg(l_module_name, 'l_src_line_count '|| l_src_line_count||' l_dd_count '||l_dd_count);
2202: wsh_debug_sv.logmsg(l_module_name, 'Total req qty '|| l_total_req_qty||' Total shp qty '||l_total_shp_qty||' Total cc qty '||l_total_cc_qty);
2203: END IF;
2204:
2205: IF (l_prev_int_rec.container_flag = 'N') THEN --{
2206: IF l_src_line_count > 1 THEN
2211:
2212: WHILE (l_pending_req_qty > 0) LOOP --{
2213:
2214: if l_debug_on then
2215: wsh_debug_sv.logmsg(l_module_name, '*** 4 **** l_pending_req_qty '||l_pending_req_qty||' l_pending_shp_qty '||l_pending_shp_qty);
2216: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
2217: end if;
2218:
2219: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
2212: WHILE (l_pending_req_qty > 0) LOOP --{
2213:
2214: if l_debug_on then
2215: wsh_debug_sv.logmsg(l_module_name, '*** 4 **** l_pending_req_qty '||l_pending_req_qty||' l_pending_shp_qty '||l_pending_shp_qty);
2216: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
2217: end if;
2218:
2219: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
2220:
2235:
2236: -- For the newly created base delivery detail, make updates
2237: -- Add the record with new detail id to the global table
2238: if l_debug_on then
2239: wsh_debug_sv.log(l_module_name, 'Splitted '||l_new_split_detail_id ||' from '|| l_detail_id_tab(l_curr_index) || ' for quantity '||l_pending_req_qty);
2240: end if;
2241:
2242: If l_new_split_detail_id IS NOT NULL THEN
2243: l_prev_int_rec.delivery_detail_id := l_new_split_detail_id;
2308:
2309: WHILE (l_pending_req_qty > 0) LOOP --{
2310:
2311: if l_debug_on then
2312: wsh_debug_sv.logmsg(l_module_name, '*** 5 **** l_pending_req_qty '||l_pending_req_qty||' l_pending_shp_qty '||l_pending_shp_qty);
2313: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
2314: end if;
2315:
2316: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
2309: WHILE (l_pending_req_qty > 0) LOOP --{
2310:
2311: if l_debug_on then
2312: wsh_debug_sv.logmsg(l_module_name, '*** 5 **** l_pending_req_qty '||l_pending_req_qty||' l_pending_shp_qty '||l_pending_shp_qty);
2313: wsh_debug_sv.logmsg(l_module_name, ' l_curr_index '||l_curr_index||' l_detail_id_tab(l_curr_index) '||l_detail_id_tab(l_curr_index));
2314: end if;
2315:
2316: IF (l_pending_req_qty <= l_detail_qty_tab(l_curr_index)) THEN --{
2317:
2332:
2333: -- For the newly created base delivery detail, make updates
2334: -- Add the record with new detail id to the global table
2335: if l_debug_on then
2336: wsh_debug_sv.log(l_module_name, 'Splitted '||l_new_split_detail_id ||' from '|| l_detail_id_tab(l_curr_index) || ' for quantity '||l_pending_req_qty);
2337: end if;
2338:
2339: If l_new_split_detail_id IS NOT NULL THEN
2340: l_prev_int_rec.delivery_detail_id := l_new_split_detail_id;
2404: END IF; --}
2405:
2406: -- TPW - Distributed changes
2407: IF l_debug_on THEN
2408: wsh_debug_sv.log (l_module_name, 'Freight Table Count', l_frt_detail_intf_tab.COUNT);
2409: END IF;
2410:
2411: IF (l_frt_detail_intf_tab.COUNT > 0) THEN
2412: FOR i in 1..l_frt_detail_intf_tab.COUNT LOOP
2410:
2411: IF (l_frt_detail_intf_tab.COUNT > 0) THEN
2412: FOR i in 1..l_frt_detail_intf_tab.COUNT LOOP
2413: IF l_debug_on THEN
2414: wsh_debug_sv.log (l_module_name, 'i', i);
2415: wsh_debug_sv.log (l_module_name, 'l_frt_detail_intf_tab',l_frt_detail_intf_tab(i));
2416: wsh_debug_sv.log (l_module_name, 'l_frt_detail_tab',l_frt_detail_tab(i));
2417: END IF;
2418: -- Process interface freight costs
2411: IF (l_frt_detail_intf_tab.COUNT > 0) THEN
2412: FOR i in 1..l_frt_detail_intf_tab.COUNT LOOP
2413: IF l_debug_on THEN
2414: wsh_debug_sv.log (l_module_name, 'i', i);
2415: wsh_debug_sv.log (l_module_name, 'l_frt_detail_intf_tab',l_frt_detail_intf_tab(i));
2416: wsh_debug_sv.log (l_module_name, 'l_frt_detail_tab',l_frt_detail_tab(i));
2417: END IF;
2418: -- Process interface freight costs
2419: SELECT COUNT(*)
2412: FOR i in 1..l_frt_detail_intf_tab.COUNT LOOP
2413: IF l_debug_on THEN
2414: wsh_debug_sv.log (l_module_name, 'i', i);
2415: wsh_debug_sv.log (l_module_name, 'l_frt_detail_intf_tab',l_frt_detail_intf_tab(i));
2416: wsh_debug_sv.log (l_module_name, 'l_frt_detail_tab',l_frt_detail_tab(i));
2417: END IF;
2418: -- Process interface freight costs
2419: SELECT COUNT(*)
2420: INTO l_det_freight_costs
2422: WHERE delivery_detail_interface_id = l_frt_detail_intf_tab(i)
2423: AND INTERFACE_ACTION_CODE = '94X_INBOUND';
2424:
2425: IF l_debug_on THEN
2426: wsh_debug_sv.LOG(l_module_name, 'Interface freight count', l_det_freight_costs);
2427: END IF;
2428:
2429: IF (l_det_freight_costs > 0) THEN
2430: IF l_debug_on THEN
2427: END IF;
2428:
2429: IF (l_det_freight_costs > 0) THEN
2430: IF l_debug_on THEN
2431: wsh_debug_sv.LOG(l_module_name, 'Processing freight costs for interface detail', l_frt_detail_intf_tab(i));
2432: END IF;
2433:
2434: process_int_freight_costs(
2435: p_del_detail_interface_id => l_frt_detail_intf_tab(i),
2436: p_delivery_detail_id => l_frt_detail_tab(i),
2437: x_return_status => l_return_status);
2438:
2439: IF l_debug_on THEN
2440: wsh_debug_sv.LOG(l_module_name, 'Process_Int_Freight_Costs l_return_status', l_return_status);
2441: END IF;
2442:
2443: IF (l_return_status <> wsh_util_core.g_ret_sts_success) THEN
2444: RAISE freight_cost_processing_error;
2449:
2450: -- TPW - Distributed changes
2451: -- For the newly created delivery details, call detail_to_delivery to assign them to delivery
2452: IF l_debug_on THEN
2453: wsh_debug_sv.log (l_module_name, 'Assign table count', l_new_detail_ids.count);
2454: END IF;
2455:
2456: IF (l_new_detail_ids.count > 0) THEN
2457: WSH_DELIVERY_DETAILS_GRP.Detail_To_Delivery(
2467: p_delivery_id => l_delivery_id
2468: );
2469:
2470: IF l_debug_on THEN
2471: wsh_debug_sv.log (l_module_name, 'Return status from Detail to delivery', l_return_status);
2472: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg count', l_msg_count);
2473: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg data', l_msg_data);
2474: END IF;
2475:
2468: );
2469:
2470: IF l_debug_on THEN
2471: wsh_debug_sv.log (l_module_name, 'Return status from Detail to delivery', l_return_status);
2472: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg count', l_msg_count);
2473: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg data', l_msg_data);
2474: END IF;
2475:
2476: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2469:
2470: IF l_debug_on THEN
2471: wsh_debug_sv.log (l_module_name, 'Return status from Detail to delivery', l_return_status);
2472: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg count', l_msg_count);
2473: wsh_debug_sv.log (l_module_name, 'Detail to Delivery api msg data', l_msg_data);
2474: END IF;
2475:
2476: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2477: raise new_assignment_failed;
2479:
2480: END IF;
2481:
2482: IF l_debug_on THEN
2483: wsh_debug_sv.pop(l_module_name);
2484: END IF;
2485:
2486: EXCEPTION
2487: WHEN fnd_api.g_exc_error THEN
2487: WHEN fnd_api.g_exc_error THEN
2488: x_return_status := fnd_api.g_ret_sts_error;
2489: --
2490: IF l_debug_on THEN
2491: wsh_debug_sv.logmsg(l_module_name,
2492: 'FND_API.G_EXC_ERROR exception has occured.',
2493: wsh_debug_sv.c_excep_level);
2494: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
2495: END IF;
2489: --
2490: IF l_debug_on THEN
2491: wsh_debug_sv.logmsg(l_module_name,
2492: 'FND_API.G_EXC_ERROR exception has occured.',
2493: wsh_debug_sv.c_excep_level);
2494: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
2495: END IF;
2496: --
2497: --
2490: IF l_debug_on THEN
2491: wsh_debug_sv.logmsg(l_module_name,
2492: 'FND_API.G_EXC_ERROR exception has occured.',
2493: wsh_debug_sv.c_excep_level);
2494: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
2495: END IF;
2496: --
2497: --
2498: WHEN fnd_api.g_exc_unexpected_error THEN
2498: WHEN fnd_api.g_exc_unexpected_error THEN
2499: x_return_status := fnd_api.g_ret_sts_unexp_error;
2500: --
2501: IF l_debug_on THEN
2502: wsh_debug_sv.logmsg(l_module_name,
2503: 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',
2504: wsh_debug_sv.c_excep_level);
2505: wsh_debug_sv.pop(l_module_name,
2506: 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2500: --
2501: IF l_debug_on THEN
2502: wsh_debug_sv.logmsg(l_module_name,
2503: 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',
2504: wsh_debug_sv.c_excep_level);
2505: wsh_debug_sv.pop(l_module_name,
2506: 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2507: END IF;
2508: --
2501: IF l_debug_on THEN
2502: wsh_debug_sv.logmsg(l_module_name,
2503: 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',
2504: wsh_debug_sv.c_excep_level);
2505: wsh_debug_sv.pop(l_module_name,
2506: 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2507: END IF;
2508: --
2509: WHEN wsh_util_core.g_exc_warning THEN
2509: WHEN wsh_util_core.g_exc_warning THEN
2510: x_return_status := wsh_util_core.g_ret_sts_warning;
2511: --
2512: IF l_debug_on THEN
2513: wsh_debug_sv.logmsg(l_module_name,
2514: 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',
2515: wsh_debug_sv.c_excep_level);
2516: wsh_debug_sv.pop(l_module_name,
2517: 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2511: --
2512: IF l_debug_on THEN
2513: wsh_debug_sv.logmsg(l_module_name,
2514: 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',
2515: wsh_debug_sv.c_excep_level);
2516: wsh_debug_sv.pop(l_module_name,
2517: 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2518: END IF;
2519: --
2512: IF l_debug_on THEN
2513: wsh_debug_sv.logmsg(l_module_name,
2514: 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',
2515: wsh_debug_sv.c_excep_level);
2516: wsh_debug_sv.pop(l_module_name,
2517: 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2518: END IF;
2519: --
2520: WHEN invalid_input THEN
2520: WHEN invalid_input THEN
2521: x_return_status := wsh_util_core.g_ret_sts_error;
2522:
2523: IF l_debug_on THEN
2524: wsh_debug_sv.logmsg(l_module_name,
2525: 'invalid_input exception has occured.',
2526: wsh_debug_sv.c_excep_level);
2527: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:invalid_input');
2528: END IF;
2522:
2523: IF l_debug_on THEN
2524: wsh_debug_sv.logmsg(l_module_name,
2525: 'invalid_input exception has occured.',
2526: wsh_debug_sv.c_excep_level);
2527: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:invalid_input');
2528: END IF;
2529: WHEN freight_cost_processing_error THEN
2530: x_return_status := wsh_util_core.g_ret_sts_error;
2523: IF l_debug_on THEN
2524: wsh_debug_sv.logmsg(l_module_name,
2525: 'invalid_input exception has occured.',
2526: wsh_debug_sv.c_excep_level);
2527: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:invalid_input');
2528: END IF;
2529: WHEN freight_cost_processing_error THEN
2530: x_return_status := wsh_util_core.g_ret_sts_error;
2531:
2529: WHEN freight_cost_processing_error THEN
2530: x_return_status := wsh_util_core.g_ret_sts_error;
2531:
2532: IF l_debug_on THEN
2533: wsh_debug_sv.logmsg(l_module_name,
2534: 'freight_cost_processing_error exception has occured.',
2535: wsh_debug_sv.c_excep_level);
2536: wsh_debug_sv.pop(l_module_name,
2537: 'EXCEPTION:freight_cost_processing_error');
2531:
2532: IF l_debug_on THEN
2533: wsh_debug_sv.logmsg(l_module_name,
2534: 'freight_cost_processing_error exception has occured.',
2535: wsh_debug_sv.c_excep_level);
2536: wsh_debug_sv.pop(l_module_name,
2537: 'EXCEPTION:freight_cost_processing_error');
2538: END IF;
2539: -- TPW - Distributed changes
2532: IF l_debug_on THEN
2533: wsh_debug_sv.logmsg(l_module_name,
2534: 'freight_cost_processing_error exception has occured.',
2535: wsh_debug_sv.c_excep_level);
2536: wsh_debug_sv.pop(l_module_name,
2537: 'EXCEPTION:freight_cost_processing_error');
2538: END IF;
2539: -- TPW - Distributed changes
2540: WHEN new_assignment_failed THEN
2541: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSGN_ERROR');
2542: FND_MESSAGE.SET_TOKEN('DLVY', l_delivery_id);
2543: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2544: IF l_debug_on THEN
2545: WSH_DEBUG_SV.logmsg(l_module_name,'new_assignment_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2546: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:new_assignment_failed');
2547: END IF;
2548: WHEN OTHERS THEN
2549: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2542: FND_MESSAGE.SET_TOKEN('DLVY', l_delivery_id);
2543: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2544: IF l_debug_on THEN
2545: WSH_DEBUG_SV.logmsg(l_module_name,'new_assignment_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2546: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:new_assignment_failed');
2547: END IF;
2548: WHEN OTHERS THEN
2549: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2550:
2548: WHEN OTHERS THEN
2549: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
2550:
2551: IF l_debug_on THEN
2552: wsh_debug_sv.logmsg(l_module_name,
2553: 'Unexpected error has occured. Oracle error message is '
2554: || SQLERRM,
2555: wsh_debug_sv.c_unexpec_err_level);
2556: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
2551: IF l_debug_on THEN
2552: wsh_debug_sv.logmsg(l_module_name,
2553: 'Unexpected error has occured. Oracle error message is '
2554: || SQLERRM,
2555: wsh_debug_sv.c_unexpec_err_level);
2556: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
2557: END IF;
2558: END process_splits;
2559:
2552: wsh_debug_sv.logmsg(l_module_name,
2553: 'Unexpected error has occured. Oracle error message is '
2554: || SQLERRM,
2555: wsh_debug_sv.c_unexpec_err_level);
2556: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
2557: END IF;
2558: END process_splits;
2559:
2560:
2578: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2579: --
2580: IF l_debug_on IS NULL
2581: THEN
2582: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2583: END IF;
2584: --
2585: IF l_debug_on THEN
2586: wsh_debug_sv.push(l_module_name, 'Pack_Lines');
2582: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2583: END IF;
2584: --
2585: IF l_debug_on THEN
2586: wsh_debug_sv.push(l_module_name, 'Pack_Lines');
2587: wsh_debug_sv.log (l_module_name, 'Packing Table Count', G_Packing_Detail_Tab.count);
2588: END IF;
2589:
2590: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2583: END IF;
2584: --
2585: IF l_debug_on THEN
2586: wsh_debug_sv.push(l_module_name, 'Pack_Lines');
2587: wsh_debug_sv.log (l_module_name, 'Packing Table Count', G_Packing_Detail_Tab.count);
2588: END IF;
2589:
2590: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2591:
2597: l_del_detail_tab(1) := G_Packing_Detail_Tab(i).Delivery_Detail_Id;
2598: -- call packing api
2599:
2600: IF l_debug_on THEN
2601: wsh_debug_sv.logmsg(l_module_name, 'calling container_actions.assign_detail');
2602: wsh_debug_sv.log (l_module_name, 'Delivery detail id', G_Packing_Detail_Tab(i).Delivery_Detail_Id);
2603: wsh_debug_sv.log (l_module_name, 'Container instance id', G_Packing_Detail_Tab(i).Parent_Delivery_Detail_Id);
2604: END IF;
2605:
2598: -- call packing api
2599:
2600: IF l_debug_on THEN
2601: wsh_debug_sv.logmsg(l_module_name, 'calling container_actions.assign_detail');
2602: wsh_debug_sv.log (l_module_name, 'Delivery detail id', G_Packing_Detail_Tab(i).Delivery_Detail_Id);
2603: wsh_debug_sv.log (l_module_name, 'Container instance id', G_Packing_Detail_Tab(i).Parent_Delivery_Detail_Id);
2604: END IF;
2605:
2606: WSH_CONTAINER_ACTIONS.Assign_Detail(
2599:
2600: IF l_debug_on THEN
2601: wsh_debug_sv.logmsg(l_module_name, 'calling container_actions.assign_detail');
2602: wsh_debug_sv.log (l_module_name, 'Delivery detail id', G_Packing_Detail_Tab(i).Delivery_Detail_Id);
2603: wsh_debug_sv.log (l_module_name, 'Container instance id', G_Packing_Detail_Tab(i).Parent_Delivery_Detail_Id);
2604: END IF;
2605:
2606: WSH_CONTAINER_ACTIONS.Assign_Detail(
2607: p_container_instance_id => G_Packing_Detail_Tab(i).Parent_Delivery_Detail_Id,
2610: x_return_status => l_return_status);
2611:
2612: ELSE --} {
2613: IF l_debug_on THEN
2614: wsh_debug_sv.logmsg(l_module_name, 'calling container_actions.assign_to_container');
2615: wsh_debug_sv.log (l_module_name, 'Det Container instance id', G_Packing_Detail_Tab(i).Delivery_Detail_Id);
2616: wsh_debug_sv.log (l_module_name, 'Master Container instance id', G_Packing_Detail_Tab(i).Parent_Delivery_Detail_Id);
2617: END IF;
2618:
2611:
2612: ELSE --} {
2613: IF l_debug_on THEN
2614: wsh_debug_sv.logmsg(l_module_name, 'calling container_actions.assign_to_container');
2615: wsh_debug_sv.log (l_module_name, 'Det Container instance id', G_Packing_Detail_Tab(i).Delivery_Detail_Id);
2616: wsh_debug_sv.log (l_module_name, 'Master Container instance id', G_Packing_Detail_Tab(i).Parent_Delivery_Detail_Id);
2617: END IF;
2618:
2619: WSH_CONTAINER_ACTIONS.Assign_To_Container (
2612: ELSE --} {
2613: IF l_debug_on THEN
2614: wsh_debug_sv.logmsg(l_module_name, 'calling container_actions.assign_to_container');
2615: wsh_debug_sv.log (l_module_name, 'Det Container instance id', G_Packing_Detail_Tab(i).Delivery_Detail_Id);
2616: wsh_debug_sv.log (l_module_name, 'Master Container instance id', G_Packing_Detail_Tab(i).Parent_Delivery_Detail_Id);
2617: END IF;
2618:
2619: WSH_CONTAINER_ACTIONS.Assign_To_Container (
2620: p_det_cont_inst_id => G_Packing_Detail_Tab(i).Delivery_Detail_Id,
2623:
2624: END IF; --}
2625:
2626: IF l_debug_on THEN
2627: wsh_debug_sv.log (l_module_name,'Return Status', l_return_status);
2628: END IF;
2629:
2630: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2631: FND_MESSAGE.SET_NAME('WSH','WSH_PACKING_ERROR');
2634: END IF;
2635: END LOOP; -- for i in 1..G_Packing
2636:
2637: IF l_debug_on THEN
2638: wsh_debug_sv.pop(l_module_name);
2639: END IF;
2640:
2641: EXCEPTION
2642: WHEN packing_failed THEN
2641: EXCEPTION
2642: WHEN packing_failed THEN
2643: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2644: IF l_debug_on THEN
2645: WSH_DEBUG_SV.logmsg(l_module_name,'packing_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2646: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:packing_failed');
2647: END IF;
2648: WHEN Others THEN
2649: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2642: WHEN packing_failed THEN
2643: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2644: IF l_debug_on THEN
2645: WSH_DEBUG_SV.logmsg(l_module_name,'packing_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2646: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:packing_failed');
2647: END IF;
2648: WHEN Others THEN
2649: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2650: IF l_debug_on THEN
2647: END IF;
2648: WHEN Others THEN
2649: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2650: IF l_debug_on THEN
2651: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2652: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2653: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2654: END IF;
2655:
2648: WHEN Others THEN
2649: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2650: IF l_debug_on THEN
2651: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2652: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2653: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2654: END IF;
2655:
2656: END Pack_Lines;
2649: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2650: IF l_debug_on THEN
2651: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
2652: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2653: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2654: END IF;
2655:
2656: END Pack_Lines;
2657:
2898: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2899: --
2900: IF l_debug_on IS NULL
2901: THEN
2902: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2903: END IF;
2904: --
2905: IF l_debug_on THEN
2906: wsh_debug_sv.push(l_module_name,'Process_Interfaced_Deliveries');
2902: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2903: END IF;
2904: --
2905: IF l_debug_on THEN
2906: wsh_debug_sv.push(l_module_name,'Process_Interfaced_Deliveries');
2907: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
2908: wsh_debug_sv.log (l_module_name,'Action Code', p_action_code);
2909: wsh_debug_sv.log (l_module_name, 'Warehouse type', WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE);
2910: END IF;
2903: END IF;
2904: --
2905: IF l_debug_on THEN
2906: wsh_debug_sv.push(l_module_name,'Process_Interfaced_Deliveries');
2907: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
2908: wsh_debug_sv.log (l_module_name,'Action Code', p_action_code);
2909: wsh_debug_sv.log (l_module_name, 'Warehouse type', WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE);
2910: END IF;
2911:
2904: --
2905: IF l_debug_on THEN
2906: wsh_debug_sv.push(l_module_name,'Process_Interfaced_Deliveries');
2907: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
2908: wsh_debug_sv.log (l_module_name,'Action Code', p_action_code);
2909: wsh_debug_sv.log (l_module_name, 'Warehouse type', WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE);
2910: END IF;
2911:
2912: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2905: IF l_debug_on THEN
2906: wsh_debug_sv.push(l_module_name,'Process_Interfaced_Deliveries');
2907: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
2908: wsh_debug_sv.log (l_module_name,'Action Code', p_action_code);
2909: wsh_debug_sv.log (l_module_name, 'Warehouse type', WSH_INBOUND_SHIP_ADVICE_PKG.G_WAREHOUSE_TYPE);
2910: END IF;
2911:
2912: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2913:
2936: fetch l_get_enforce_shp_method_csr into l_enforce_ship_method;
2937: close l_get_enforce_shp_method_csr;
2938:
2939: IF l_debug_on THEN
2940: wsh_debug_sv.log (l_module_name, ' Ship Method ', l_del_int_rec.ship_method_code);
2941: END IF;
2942: -- need to send delivery id and name only for update
2943: --Bug Bug 3458160
2944: IF(p_action_code = 'UPDATE') THEN
2965: open get_carrier( l_del_int_rec.carrier_code );
2966: fetch get_carrier into l_carrier_id, l_manifesting_enabled_flag;
2967: close get_carrier;
2968: IF l_debug_on THEN
2969: wsh_debug_sv.log (l_module_name, ' l_carrier_id', l_carrier_id);
2970: wsh_debug_sv.log (l_module_name, ' l_manifesting_enabled_flag', l_manifesting_enabled_flag);
2971: END IF;
2972:
2973: l_del_int_rec.carrier_id := l_carrier_id;
2966: fetch get_carrier into l_carrier_id, l_manifesting_enabled_flag;
2967: close get_carrier;
2968: IF l_debug_on THEN
2969: wsh_debug_sv.log (l_module_name, ' l_carrier_id', l_carrier_id);
2970: wsh_debug_sv.log (l_module_name, ' l_manifesting_enabled_flag', l_manifesting_enabled_flag);
2971: END IF;
2972:
2973: l_del_int_rec.carrier_id := l_carrier_id;
2974: -- }
2986: -- combo of carrier, service level, and mode of transport.
2987: IF ( nvl(l_del_int_rec.carrier_code, fnd_api.g_miss_char) = fnd_api.g_miss_char) THEN
2988: --{
2989: IF l_debug_on THEN
2990: wsh_debug_sv.logmsg(l_module_name, 'Carrier is null');
2991: END IF;
2992: l_loc_interface_error_rec.p_message_name := 'WSH_NULL_INB_CARRIER';
2993: l_log_error_flag := 'Y';
2994: --}
2994: --}
2995: ELSIF (l_carrier_id IS NULL) THEN
2996: --{
2997: IF l_debug_on THEN
2998: wsh_debug_sv.logmsg(l_module_name, 'Carrier Id is null');
2999: END IF;
3000: l_loc_interface_error_rec.p_message_name := 'WSH_INVALID_INB_CARRIER';
3001: l_log_error_flag := 'Y';
3002: --}
3002: --}
3003: ELSIF (nvl(l_manifesting_enabled_flag, 'N') = 'N' ) THEN
3004: --{
3005: IF l_debug_on THEN
3006: wsh_debug_sv.logmsg(l_module_name, 'Carrier is not Manifesting Enabled');
3007: END IF;
3008: l_loc_interface_error_rec.p_message_name := 'WSH_INB_CAR_NOT_MFST_ENABLED';
3009: l_log_error_flag := 'Y';
3010: --}
3014: AND nvl(l_del_int_rec.ship_method_code, FND_API.G_MISS_CHAR) = FND_API.G_MISS_CHAR
3015: ) THEN
3016: --{
3017: IF l_debug_on THEN
3018: wsh_debug_sv.logmsg(l_module_name, 'Ship Method is enforced for the org and inbound Ship Method is NULL');
3019: END IF;
3020: l_loc_interface_error_rec.p_message_name := 'WSH_NULL_INB_SHIP_METHOD';
3021: l_log_error_flag := 'Y';
3022: --}
3027: open l_shp_method_org_csr(l_del_int_rec.ship_method_code, l_del_int_rec.organization_id);
3028: fetch l_shp_method_org_csr into l_valid_shp_method_flag;
3029: close l_shp_method_org_csr;
3030: IF l_debug_on THEN
3031: wsh_debug_sv.log (l_module_name, ' l_valid_shp_method_flag ', l_valid_shp_method_flag);
3032: END IF;
3033:
3034: IF (nvl(l_valid_shp_method_flag,'N') = 'N') THEN
3035: --{
3033:
3034: IF (nvl(l_valid_shp_method_flag,'N') = 'N') THEN
3035: --{
3036: IF l_debug_on THEN
3037: wsh_debug_sv.logmsg(l_module_name, 'Ship Method is not valid');
3038: END IF;
3039: l_loc_interface_error_rec.p_message_name := 'WSH_OI_INVALID_SHIP_METHOD';
3040: l_log_error_flag := 'Y';
3041: --}
3063: FROM wsh_new_deliveries
3064: WHERE delivery_id = l_del_int_rec.delivery_id;
3065:
3066: IF l_debug_on THEN
3067: wsh_debug_sv.log (l_module_name,'Current ship method', l_curr_ship_method);
3068: wsh_debug_sv.log (l_module_name,'Incoming ship method', l_del_int_rec.ship_method_code);
3069: END IF;
3070:
3071: IF nvl(l_curr_ship_method,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3064: WHERE delivery_id = l_del_int_rec.delivery_id;
3065:
3066: IF l_debug_on THEN
3067: wsh_debug_sv.log (l_module_name,'Current ship method', l_curr_ship_method);
3068: wsh_debug_sv.log (l_module_name,'Incoming ship method', l_del_int_rec.ship_method_code);
3069: END IF;
3070:
3071: IF nvl(l_curr_ship_method,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
3072: THEN
3228: END IF;
3229: l_txn_type := null;
3230:
3231: IF l_debug_on THEN
3232: wsh_debug_sv.log (l_module_name, ' Service Level ', l_del_int_rec.SERVICE_LEVEL);
3233: wsh_debug_sv.log (l_module_name, ' Transportation Method ', l_del_int_rec.MODE_OF_TRANSPORT);
3234: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3235: wsh_debug_sv.logmsg (l_module_name, 'The following are the values of Carrier, Service Level and MOT being passed to the Group API');
3236: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3229: l_txn_type := null;
3230:
3231: IF l_debug_on THEN
3232: wsh_debug_sv.log (l_module_name, ' Service Level ', l_del_int_rec.SERVICE_LEVEL);
3233: wsh_debug_sv.log (l_module_name, ' Transportation Method ', l_del_int_rec.MODE_OF_TRANSPORT);
3234: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3235: wsh_debug_sv.logmsg (l_module_name, 'The following are the values of Carrier, Service Level and MOT being passed to the Group API');
3236: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3237: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3230:
3231: IF l_debug_on THEN
3232: wsh_debug_sv.log (l_module_name, ' Service Level ', l_del_int_rec.SERVICE_LEVEL);
3233: wsh_debug_sv.log (l_module_name, ' Transportation Method ', l_del_int_rec.MODE_OF_TRANSPORT);
3234: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3235: wsh_debug_sv.logmsg (l_module_name, 'The following are the values of Carrier, Service Level and MOT being passed to the Group API');
3236: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3237: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3238: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3231: IF l_debug_on THEN
3232: wsh_debug_sv.log (l_module_name, ' Service Level ', l_del_int_rec.SERVICE_LEVEL);
3233: wsh_debug_sv.log (l_module_name, ' Transportation Method ', l_del_int_rec.MODE_OF_TRANSPORT);
3234: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3235: wsh_debug_sv.logmsg (l_module_name, 'The following are the values of Carrier, Service Level and MOT being passed to the Group API');
3236: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3237: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3238: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3239: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_ID',l_dlvy_attr_tab(l_index).CARRIER_ID);
3232: wsh_debug_sv.log (l_module_name, ' Service Level ', l_del_int_rec.SERVICE_LEVEL);
3233: wsh_debug_sv.log (l_module_name, ' Transportation Method ', l_del_int_rec.MODE_OF_TRANSPORT);
3234: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3235: wsh_debug_sv.logmsg (l_module_name, 'The following are the values of Carrier, Service Level and MOT being passed to the Group API');
3236: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3237: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3238: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3239: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_ID',l_dlvy_attr_tab(l_index).CARRIER_ID);
3240: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_CODE',l_dlvy_attr_tab(l_index).CARRIER_CODE);
3233: wsh_debug_sv.log (l_module_name, ' Transportation Method ', l_del_int_rec.MODE_OF_TRANSPORT);
3234: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3235: wsh_debug_sv.logmsg (l_module_name, 'The following are the values of Carrier, Service Level and MOT being passed to the Group API');
3236: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3237: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3238: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3239: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_ID',l_dlvy_attr_tab(l_index).CARRIER_ID);
3240: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_CODE',l_dlvy_attr_tab(l_index).CARRIER_CODE);
3241: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SERVICE_LEVEL',l_dlvy_attr_tab(l_index).SERVICE_LEVEL);
3234: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3235: wsh_debug_sv.logmsg (l_module_name, 'The following are the values of Carrier, Service Level and MOT being passed to the Group API');
3236: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3237: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3238: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3239: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_ID',l_dlvy_attr_tab(l_index).CARRIER_ID);
3240: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_CODE',l_dlvy_attr_tab(l_index).CARRIER_CODE);
3241: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SERVICE_LEVEL',l_dlvy_attr_tab(l_index).SERVICE_LEVEL);
3242: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT',l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT);
3235: wsh_debug_sv.logmsg (l_module_name, 'The following are the values of Carrier, Service Level and MOT being passed to the Group API');
3236: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3237: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3238: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3239: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_ID',l_dlvy_attr_tab(l_index).CARRIER_ID);
3240: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_CODE',l_dlvy_attr_tab(l_index).CARRIER_CODE);
3241: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SERVICE_LEVEL',l_dlvy_attr_tab(l_index).SERVICE_LEVEL);
3242: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT',l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT);
3243: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE',l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE);
3236: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3237: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3238: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3239: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_ID',l_dlvy_attr_tab(l_index).CARRIER_ID);
3240: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_CODE',l_dlvy_attr_tab(l_index).CARRIER_CODE);
3241: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SERVICE_LEVEL',l_dlvy_attr_tab(l_index).SERVICE_LEVEL);
3242: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT',l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT);
3243: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE',l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE);
3244: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3237: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3238: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3239: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_ID',l_dlvy_attr_tab(l_index).CARRIER_ID);
3240: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_CODE',l_dlvy_attr_tab(l_index).CARRIER_CODE);
3241: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SERVICE_LEVEL',l_dlvy_attr_tab(l_index).SERVICE_LEVEL);
3242: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT',l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT);
3243: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE',l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE);
3244: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3245: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3238: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3239: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_ID',l_dlvy_attr_tab(l_index).CARRIER_ID);
3240: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_CODE',l_dlvy_attr_tab(l_index).CARRIER_CODE);
3241: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SERVICE_LEVEL',l_dlvy_attr_tab(l_index).SERVICE_LEVEL);
3242: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT',l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT);
3243: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE',l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE);
3244: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3245: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3246: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3239: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_ID',l_dlvy_attr_tab(l_index).CARRIER_ID);
3240: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_CODE',l_dlvy_attr_tab(l_index).CARRIER_CODE);
3241: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SERVICE_LEVEL',l_dlvy_attr_tab(l_index).SERVICE_LEVEL);
3242: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT',l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT);
3243: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE',l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE);
3244: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3245: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3246: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3247: END IF;
3240: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).CARRIER_CODE',l_dlvy_attr_tab(l_index).CARRIER_CODE);
3241: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SERVICE_LEVEL',l_dlvy_attr_tab(l_index).SERVICE_LEVEL);
3242: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT',l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT);
3243: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE',l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE);
3244: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3245: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3246: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3247: END IF;
3248:
3241: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SERVICE_LEVEL',l_dlvy_attr_tab(l_index).SERVICE_LEVEL);
3242: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT',l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT);
3243: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE',l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE);
3244: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3245: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3246: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3247: END IF;
3248:
3249: l_index := l_index + 1;
3242: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT',l_dlvy_attr_tab(l_index).MODE_OF_TRANSPORT);
3243: wsh_debug_sv.log (l_module_name, 'l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE',l_dlvy_attr_tab(l_index).SHIP_METHOD_CODE);
3244: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3245: wsh_debug_sv.logmsg (l_module_name, '********************************************************************************************');
3246: wsh_debug_sv.logmsg (l_module_name, '--------------------------------------------------------------------------------------------');
3247: END IF;
3248:
3249: l_index := l_index + 1;
3250: -- }
3270: x_msg_count => l_msg_count,
3271: x_msg_data => l_msg_data);
3272:
3273: IF l_debug_on THEN
3274: wsh_debug_sv.log (l_module_name, 'Return status from create_Update_delivery',l_return_status);
3275: wsh_debug_sv.log (l_module_name, 'Create Update Delivery api msg count', l_msg_count);
3276: wsh_debug_sv.log (l_module_name, 'Create Update Delivery api msg', l_msg_data);
3277: END IF;
3278:
3271: x_msg_data => l_msg_data);
3272:
3273: IF l_debug_on THEN
3274: wsh_debug_sv.log (l_module_name, 'Return status from create_Update_delivery',l_return_status);
3275: wsh_debug_sv.log (l_module_name, 'Create Update Delivery api msg count', l_msg_count);
3276: wsh_debug_sv.log (l_module_name, 'Create Update Delivery api msg', l_msg_data);
3277: END IF;
3278:
3279: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3272:
3273: IF l_debug_on THEN
3274: wsh_debug_sv.log (l_module_name, 'Return status from create_Update_delivery',l_return_status);
3275: wsh_debug_sv.log (l_module_name, 'Create Update Delivery api msg count', l_msg_count);
3276: wsh_debug_sv.log (l_module_name, 'Create Update Delivery api msg', l_msg_data);
3277: END IF;
3278:
3279: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
3280: THEN
3288: p_api_name => 'WSH_INTERFACE_GRP.Create_Update_Delivery' ,
3289: x_return_status => l_return_status);
3290: --
3291: IF l_debug_on THEN
3292: wsh_debug_sv.log (l_module_name,'Log_Errors l_return_status',l_return_status);
3293: END IF;
3294:
3295: IF p_action_code = 'CREATE'
3296: THEN
3312: IF p_action_code = 'CREATE'
3313: THEN
3314: -- {
3315: IF l_debug_on THEN
3316: wsh_debug_sv.log (l_module_name, 'New delivery Id created', l_dlvy_out_rec_tab(l_dlvy_out_rec_tab.first).delivery_id);
3317: END IF;
3318: x_dlvy_id := l_dlvy_out_rec_tab(l_dlvy_out_rec_tab.first).delivery_id;
3319:
3320: -- TPW - Distributed changes
3336: WHERE delivery_interface_id = p_delivery_interface_id
3337: AND INTERFACE_ACTION_CODE = '94X_INBOUND';
3338:
3339: IF l_debug_on THEN
3340: wsh_debug_sv.log (l_module_name, 'Delivery Freight record count', l_del_freight_costs);
3341: END IF;
3342:
3343: IF(l_del_freight_costs > 0)
3344: THEN
3343: IF(l_del_freight_costs > 0)
3344: THEN
3345: -- {
3346: IF l_debug_on THEN
3347: wsh_debug_sv.log (l_module_name, 'calling process freight for delivery interface', p_delivery_interface_id);
3348: END IF;
3349:
3350: Process_Int_Freight_Costs(
3351: p_delivery_interface_id => p_delivery_interface_id,
3351: p_delivery_interface_id => p_delivery_interface_id,
3352: x_return_status => l_return_status);
3353:
3354: IF l_debug_on THEN
3355: wsh_debug_sv.log (l_module_name, 'Return status from process int freight costs', l_return_status);
3356: END IF;
3357: --
3358: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3359: raise freight_cost_processing_error;
3361: -- }
3362: END IF;
3363:
3364: IF l_debug_on THEN
3365: wsh_debug_sv.pop(l_module_name);
3366: END IF;
3367:
3368: EXCEPTION
3369: WHEN fnd_api.g_exc_error THEN
3369: WHEN fnd_api.g_exc_error THEN
3370: x_return_status := fnd_api.g_ret_sts_error;
3371: --
3372: IF l_debug_on THEN
3373: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
3374: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
3375: END IF;
3376: --
3377: WHEN fnd_api.g_exc_unexpected_error THEN
3370: x_return_status := fnd_api.g_ret_sts_error;
3371: --
3372: IF l_debug_on THEN
3373: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
3374: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
3375: END IF;
3376: --
3377: WHEN fnd_api.g_exc_unexpected_error THEN
3378: x_return_status := fnd_api.g_ret_sts_unexp_error;
3377: WHEN fnd_api.g_exc_unexpected_error THEN
3378: x_return_status := fnd_api.g_ret_sts_unexp_error;
3379: --
3380: IF l_debug_on THEN
3381: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
3382: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3383: END IF;
3384: --
3385: WHEN wsh_util_core.g_exc_warning THEN
3378: x_return_status := fnd_api.g_ret_sts_unexp_error;
3379: --
3380: IF l_debug_on THEN
3381: wsh_debug_sv.logmsg(l_module_name, 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.', wsh_debug_sv.c_excep_level);
3382: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3383: END IF;
3384: --
3385: WHEN wsh_util_core.g_exc_warning THEN
3386: x_return_status := wsh_util_core.g_ret_sts_warning;
3385: WHEN wsh_util_core.g_exc_warning THEN
3386: x_return_status := wsh_util_core.g_ret_sts_warning;
3387: --
3388: IF l_debug_on THEN
3389: wsh_debug_sv.logmsg(l_module_name, 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ', wsh_debug_sv.c_excep_level);
3390: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3391: END IF;
3392: --
3393: WHEN invalid_ship_method THEN
3386: x_return_status := wsh_util_core.g_ret_sts_warning;
3387: --
3388: IF l_debug_on THEN
3389: wsh_debug_sv.logmsg(l_module_name, 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ', wsh_debug_sv.c_excep_level);
3390: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3391: END IF;
3392: --
3393: WHEN invalid_ship_method THEN
3394: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3392: --
3393: WHEN invalid_ship_method THEN
3394: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3395: IF l_debug_on THEN
3396: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_ship_method exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3397: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_ship_method');
3398: END IF;
3399: WHEN freight_cost_processing_error THEN
3400: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3393: WHEN invalid_ship_method THEN
3394: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3395: IF l_debug_on THEN
3396: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_ship_method exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3397: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_ship_method');
3398: END IF;
3399: WHEN freight_cost_processing_error THEN
3400: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3401: IF l_debug_on THEN
3398: END IF;
3399: WHEN freight_cost_processing_error THEN
3400: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3401: IF l_debug_on THEN
3402: WSH_DEBUG_SV.logmsg(l_module_name,'freight_cost_processing_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3403: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:freight_cost_processing_error');
3404: END IF;
3405: WHEN OTHERS THEN
3406: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
3399: WHEN freight_cost_processing_error THEN
3400: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3401: IF l_debug_on THEN
3402: WSH_DEBUG_SV.logmsg(l_module_name,'freight_cost_processing_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3403: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:freight_cost_processing_error');
3404: END IF;
3405: WHEN OTHERS THEN
3406: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
3407: wsh_util_core.default_handler('WSH_INTERFACE_COMMON_ACTIONS.PROCESS_INTERFACED_DELIVERIES');
3406: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
3407: wsh_util_core.default_handler('WSH_INTERFACE_COMMON_ACTIONS.PROCESS_INTERFACED_DELIVERIES');
3408:
3409: IF l_debug_on THEN
3410: wsh_debug_sv.logmsg(l_module_name, 'Unexpected error has occured. Oracle error message is ' || SQLERRM, wsh_debug_sv.c_unexpec_err_level);
3411: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
3412: END IF;
3413:
3414: END Process_Interfaced_Deliveries;
3407: wsh_util_core.default_handler('WSH_INTERFACE_COMMON_ACTIONS.PROCESS_INTERFACED_DELIVERIES');
3408:
3409: IF l_debug_on THEN
3410: wsh_debug_sv.logmsg(l_module_name, 'Unexpected error has occured. Oracle error message is ' || SQLERRM, wsh_debug_sv.c_unexpec_err_level);
3411: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
3412: END IF;
3413:
3414: END Process_Interfaced_Deliveries;
3415:
3502: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3503: --
3504: IF l_debug_on IS NULL
3505: THEN
3506: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3507: END IF;
3508: --
3509: IF l_debug_on THEN
3510: wsh_debug_sv.push(l_module_name,'Delivery_Interface_Wrapper');
3506: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3507: END IF;
3508: --
3509: IF l_debug_on THEN
3510: wsh_debug_sv.push(l_module_name,'Delivery_Interface_Wrapper');
3511: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
3512: wsh_debug_sv.log (l_module_name,'Action Code', p_action_code);
3513: END IF;
3514:
3507: END IF;
3508: --
3509: IF l_debug_on THEN
3510: wsh_debug_sv.push(l_module_name,'Delivery_Interface_Wrapper');
3511: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
3512: wsh_debug_sv.log (l_module_name,'Action Code', p_action_code);
3513: END IF;
3514:
3515: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3508: --
3509: IF l_debug_on THEN
3510: wsh_debug_sv.push(l_module_name,'Delivery_Interface_Wrapper');
3511: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
3512: wsh_debug_sv.log (l_module_name,'Action Code', p_action_code);
3513: END IF;
3514:
3515: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3516:
3538: p_delivery_id => l_delivery_id,
3539: x_return_status => l_return_status);
3540:
3541: IF l_debug_on THEN
3542: wsh_debug_sv.log (l_module_name,'Return status from lock delivery and details', l_return_status);
3543: END IF;
3544:
3545: IF(l_return_status <> wsh_util_core.g_ret_sts_success) THEN
3546: l_loc_interface_error_rec.p_interface_table_name := 'WSH_NEW_DEL_INTERFACE';
3552: p_api_name =>'Delivery_Interface_Wrapper, Action=UPDATE' ,
3553: x_return_status => l_return_status);
3554:
3555: IF l_debug_on THEN
3556: wsh_debug_sv.log (l_module_name,'Log_Errors l_return_status', l_return_status);
3557: END IF;
3558: raise no_lock_found;
3559: END IF;
3560:
3566: p_delivery_interface_id => p_delivery_interface_id,
3567: x_return_status => l_return_status);
3568:
3569: IF l_debug_on THEN
3570: wsh_debug_sv.log (l_module_name,'Return status from Lock_Delivery_Details', l_return_status);
3571: END IF;
3572:
3573: IF(l_return_status <> wsh_util_core.g_ret_sts_success) THEN
3574: l_loc_interface_error_rec.p_interface_table_name := 'WSH_NEW_DEL_INTERFACE';
3580: p_api_name =>'Delivery_Interface_Wrapper, Action=CREATE' ,
3581: x_return_status => l_return_status);
3582:
3583: IF l_debug_on THEN
3584: wsh_debug_sv.log (l_module_name,'Log_Errors l_return_status', l_return_status);
3585: END IF;
3586: raise no_lock_found;
3587: END IF;
3588:
3594: x_dlvy_id => l_created_delivery_id,
3595: x_return_status => l_return_status);
3596:
3597: IF l_debug_on THEN
3598: wsh_debug_sv.log (l_module_name, 'Return Status from Process Deliveries', l_return_status);
3599: END IF;
3600:
3601: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3602: raise process_delivery_failed;
3628: x_return_status => l_return_status);
3629: END IF;
3630:
3631: IF l_debug_on THEN
3632: wsh_debug_sv.log (l_module_name, 'Return Status from Process Details', l_return_status);
3633: END IF;
3634:
3635: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3636: raise process_del_details_failed;
3669: p_diff_volume => NVL(l_volume,0) - l_org_volume,
3670: x_return_status => l_return_status);
3671:
3672: IF l_debug_on THEN
3673: wsh_debug_sv.log (l_module_name, 'Return status from WSH_WV_UTILS.Del_WV_Post_Process ',l_return_status);
3674: END IF;
3675:
3676: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3677:
3678: l_loc_interface_error_rec.p_interface_table_name := 'WSH_NEW_DEL_INTERFACE';
3679: l_loc_interface_error_rec.p_interface_id := p_delivery_interface_id;
3680:
3681: IF l_debug_on THEN
3682: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
3683: END IF;
3684:
3685: Log_Errors(
3686: p_loc_interface_errors_rec => l_loc_interface_error_rec,
3688: p_api_name => 'WSH_INTERFACE_PUB.Delivery_Interface_Wrapper' ,
3689: x_return_status => l_return_status);
3690:
3691: IF l_debug_on THEN
3692: wsh_debug_sv.log (l_module_name, 'Return status after log_errors', l_return_status);
3693: END IF;
3694: raise process_delivery_wv_failed;
3695: END IF;
3696:
3708: p_delivery_id => l_delivery_id,
3709: x_return_status => l_return_status);
3710:
3711: IF l_debug_on THEN
3712: wsh_debug_sv.log (l_module_name, 'Return Status from Process Cancel', l_return_status);
3713: END IF;
3714:
3715: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3716: raise cancel_lines_failed;
3720: raise invalid_action_code;
3721: END IF; -- if l_action_code
3722:
3723: IF l_debug_on THEN
3724: wsh_debug_sv.pop(l_module_name);
3725: END IF;
3726:
3727: EXCEPTION
3728: WHEN invalid_input THEN
3727: EXCEPTION
3728: WHEN invalid_input THEN
3729: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3730: IF l_debug_on THEN
3731: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3732: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
3733: END IF;
3734: WHEN no_lock_found THEN
3735: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3728: WHEN invalid_input THEN
3729: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3730: IF l_debug_on THEN
3731: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3732: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
3733: END IF;
3734: WHEN no_lock_found THEN
3735: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3736: IF l_debug_on THEN
3733: END IF;
3734: WHEN no_lock_found THEN
3735: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3736: IF l_debug_on THEN
3737: WSH_DEBUG_SV.logmsg(l_module_name,'no_lock_found exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3738: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:no_lock_found');
3739: END IF;
3740: WHEN invalid_action_code THEN
3741: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3734: WHEN no_lock_found THEN
3735: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3736: IF l_debug_on THEN
3737: WSH_DEBUG_SV.logmsg(l_module_name,'no_lock_found exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3738: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:no_lock_found');
3739: END IF;
3740: WHEN invalid_action_code THEN
3741: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3742: IF l_debug_on THEN
3739: END IF;
3740: WHEN invalid_action_code THEN
3741: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3742: IF l_debug_on THEN
3743: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_action_code exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3744: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_action_code');
3745: END IF;
3746: WHEN process_delivery_failed THEN
3747: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3740: WHEN invalid_action_code THEN
3741: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3742: IF l_debug_on THEN
3743: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_action_code exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3744: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_action_code');
3745: END IF;
3746: WHEN process_delivery_failed THEN
3747: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3748: IF l_debug_on THEN
3745: END IF;
3746: WHEN process_delivery_failed THEN
3747: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3748: IF l_debug_on THEN
3749: WSH_DEBUG_SV.logmsg(l_module_name,'process_delivery_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3750: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:process_delivery_failed');
3751: END IF;
3752: -- J: W/V Changes
3753: WHEN process_delivery_wv_failed THEN
3746: WHEN process_delivery_failed THEN
3747: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3748: IF l_debug_on THEN
3749: WSH_DEBUG_SV.logmsg(l_module_name,'process_delivery_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3750: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:process_delivery_failed');
3751: END IF;
3752: -- J: W/V Changes
3753: WHEN process_delivery_wv_failed THEN
3754: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3752: -- J: W/V Changes
3753: WHEN process_delivery_wv_failed THEN
3754: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3755: IF l_debug_on THEN
3756: WSH_DEBUG_SV.logmsg(l_module_name,'process_delivery_wv_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3757: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:process_delivery_wv_failed');
3758: END IF;
3759: WHEN process_del_details_failed THEN
3760: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3753: WHEN process_delivery_wv_failed THEN
3754: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3755: IF l_debug_on THEN
3756: WSH_DEBUG_SV.logmsg(l_module_name,'process_delivery_wv_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3757: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:process_delivery_wv_failed');
3758: END IF;
3759: WHEN process_del_details_failed THEN
3760: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3761: IF l_debug_on THEN
3758: END IF;
3759: WHEN process_del_details_failed THEN
3760: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3761: IF l_debug_on THEN
3762: WSH_DEBUG_SV.logmsg(l_module_name,'process_del_details_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:process_del_details_failed');
3764: END IF;
3765: WHEN cancel_lines_failed THEN
3766: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3759: WHEN process_del_details_failed THEN
3760: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3761: IF l_debug_on THEN
3762: WSH_DEBUG_SV.logmsg(l_module_name,'process_del_details_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3763: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:process_del_details_failed');
3764: END IF;
3765: WHEN cancel_lines_failed THEN
3766: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3767: IF l_debug_on THEN
3764: END IF;
3765: WHEN cancel_lines_failed THEN
3766: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3767: IF l_debug_on THEN
3768: WSH_DEBUG_SV.logmsg(l_module_name,'cancel_lines_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3769: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:cancel_lines_failed');
3770: END IF;
3771: WHEN Others THEN
3772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3765: WHEN cancel_lines_failed THEN
3766: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3767: IF l_debug_on THEN
3768: WSH_DEBUG_SV.logmsg(l_module_name,'cancel_lines_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3769: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:cancel_lines_failed');
3770: END IF;
3771: WHEN Others THEN
3772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3773: IF l_debug_on THEN
3770: END IF;
3771: WHEN Others THEN
3772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3773: IF l_debug_on THEN
3774: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
3775: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3776: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3777: END IF;
3778:
3771: WHEN Others THEN
3772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3773: IF l_debug_on THEN
3774: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
3775: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3776: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3777: END IF;
3778:
3779: END Delivery_Interface_Wrapper;
3772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3773: IF l_debug_on THEN
3774: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
3775: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3776: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3777: END IF;
3778:
3779: END Delivery_Interface_Wrapper;
3780:
3902: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3903: --
3904: IF l_debug_on IS NULL
3905: THEN
3906: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3907: END IF;
3908: --
3909: IF l_debug_on THEN
3910: wsh_debug_sv.push(l_module_name,'Process_Int_Freight_Costs');
3906: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3907: END IF;
3908: --
3909: IF l_debug_on THEN
3910: wsh_debug_sv.push(l_module_name,'Process_Int_Freight_Costs');
3911: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
3912: wsh_debug_sv.log (l_module_name,'del_detail_interface_id', p_del_detail_interface_id);
3913: wsh_debug_sv.log (l_module_name,'delivery detail id', p_delivery_detail_id);
3914: END IF;
3907: END IF;
3908: --
3909: IF l_debug_on THEN
3910: wsh_debug_sv.push(l_module_name,'Process_Int_Freight_Costs');
3911: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
3912: wsh_debug_sv.log (l_module_name,'del_detail_interface_id', p_del_detail_interface_id);
3913: wsh_debug_sv.log (l_module_name,'delivery detail id', p_delivery_detail_id);
3914: END IF;
3915:
3908: --
3909: IF l_debug_on THEN
3910: wsh_debug_sv.push(l_module_name,'Process_Int_Freight_Costs');
3911: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
3912: wsh_debug_sv.log (l_module_name,'del_detail_interface_id', p_del_detail_interface_id);
3913: wsh_debug_sv.log (l_module_name,'delivery detail id', p_delivery_detail_id);
3914: END IF;
3915:
3916: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3909: IF l_debug_on THEN
3910: wsh_debug_sv.push(l_module_name,'Process_Int_Freight_Costs');
3911: wsh_debug_sv.log (l_module_name,'Delivery interface Id', p_delivery_interface_id);
3912: wsh_debug_sv.log (l_module_name,'del_detail_interface_id', p_del_detail_interface_id);
3913: wsh_debug_sv.log (l_module_name,'delivery detail id', p_delivery_detail_id);
3914: END IF;
3915:
3916: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3917:
3918:
3919: IF(p_del_detail_interface_id IS NOT NULL) THEN
3920: IF(p_delivery_detail_id IS NULL) THEN
3921: IF l_debug_on THEN
3922: wsh_debug_sv.logmsg(l_module_name, 'Null Delivery Detail Id');
3923: END IF;
3924: raise invalid_input;
3925: END IF;
3926: ELSIF(p_delivery_interface_id IS NOT NULL) THEN
3930: WHERE delivery_interface_id = p_delivery_interface_id
3931: AND INTERFACE_ACTION_CODE = '94X_INBOUND';
3932:
3933: IF l_debug_on THEN
3934: wsh_debug_sv.log (l_module_name, 'Delivery Id', l_delivery_id);
3935: END IF;
3936: IF(l_delivery_id IS NULL) THEN
3937: IF l_debug_on THEN
3938: wsh_debug_sv.logmsg(l_module_name, 'Null Delivery Id');
3934: wsh_debug_sv.log (l_module_name, 'Delivery Id', l_delivery_id);
3935: END IF;
3936: IF(l_delivery_id IS NULL) THEN
3937: IF l_debug_on THEN
3938: wsh_debug_sv.logmsg(l_module_name, 'Null Delivery Id');
3939: END IF;
3940: raise invalid_input;
3941: END IF;
3942:
3945: ELSIF(p_trip_interface_id IS NOT NULL) THEN
3946: l_entity_interface_id := p_trip_interface_id;
3947: ELSE
3948: IF l_debug_on THEN
3949: wsh_debug_sv.logmsg(l_module_name, 'Entity IDs are Null');
3950: END IF;
3951: raise invalid_input;
3952: END IF;
3953:
3955:
3956: FOR l_freight_int_rec in freight_int_cur LOOP
3957:
3958: IF l_debug_on THEN
3959: wsh_debug_sv.log (l_module_name, 'Freight Cost Type Code', l_freight_int_rec.freight_cost_type_code);
3960: END IF;
3961:
3962: IF(l_freight_int_rec.freight_cost_type_code IS NOT NULL) THEN
3963: OPEN fc_type_id(l_freight_int_rec.freight_cost_type_code);
3967: raise invalid_freight_cost_type;
3968: END IF;
3969:
3970: IF l_debug_on THEN
3971: wsh_debug_sv.log (l_module_name, 'Freight Cost Type Id', l_fc_type_id);
3972: END IF;
3973: IF(l_fc_type_id IS NULL) THEN
3974: IF l_debug_on THEN
3975: wsh_debug_sv.logmsg(l_module_name, 'Invalid Freight Cost Type');
3971: wsh_debug_sv.log (l_module_name, 'Freight Cost Type Id', l_fc_type_id);
3972: END IF;
3973: IF(l_fc_type_id IS NULL) THEN
3974: IF l_debug_on THEN
3975: wsh_debug_sv.logmsg(l_module_name, 'Invalid Freight Cost Type');
3976: END IF;
3977:
3978: l_loc_interface_error_rec.p_interface_table_name := 'WSH_FREIGHT_COSTS_INTERFACE';
3979: l_loc_interface_error_rec.p_interface_id := l_entity_interface_id;
3983: p_msg_data => 'Invalid Freight Cost Type',
3984: p_api_name => 'WSH_FREIGHT_COSTS_PUB.Create_Update_Freight_Costs',
3985: x_return_status => l_return_status);
3986: IF l_debug_on THEN
3987: wsh_debug_sv.log (l_module_name, 'Log_Errors l_return_status',l_return_status);
3988: END IF;
3989: raise invalid_freight_cost_type;
3990: ELSE
3991: l_freight_costs_info.freight_cost_type_id := l_fc_type_id;
4022: l_freight_costs_info.attribute14 := l_freight_int_rec.attribute14;
4023: l_freight_costs_info.attribute15 := l_freight_int_rec.attribute15;
4024:
4025: IF l_debug_on THEN
4026: wsh_debug_sv.logmsg(l_module_name,'Calling freight public api');
4027: wsh_debug_sv.log (l_module_name, 'Unit amount', l_freight_costs_info.unit_amount);
4028: wsh_debug_sv.log (l_module_name, 'Currency code', l_freight_costs_info.currency_code);
4029: wsh_debug_sv.log (l_module_name, 'Delivery Id', l_freight_costs_info.delivery_id);
4030: wsh_debug_sv.log (l_module_name, 'Delivery Detail Id',l_freight_costs_info.delivery_detail_id);
4023: l_freight_costs_info.attribute15 := l_freight_int_rec.attribute15;
4024:
4025: IF l_debug_on THEN
4026: wsh_debug_sv.logmsg(l_module_name,'Calling freight public api');
4027: wsh_debug_sv.log (l_module_name, 'Unit amount', l_freight_costs_info.unit_amount);
4028: wsh_debug_sv.log (l_module_name, 'Currency code', l_freight_costs_info.currency_code);
4029: wsh_debug_sv.log (l_module_name, 'Delivery Id', l_freight_costs_info.delivery_id);
4030: wsh_debug_sv.log (l_module_name, 'Delivery Detail Id',l_freight_costs_info.delivery_detail_id);
4031: wsh_debug_sv.log (l_module_name, 'Trip Id', l_freight_costs_info.trip_id);
4024:
4025: IF l_debug_on THEN
4026: wsh_debug_sv.logmsg(l_module_name,'Calling freight public api');
4027: wsh_debug_sv.log (l_module_name, 'Unit amount', l_freight_costs_info.unit_amount);
4028: wsh_debug_sv.log (l_module_name, 'Currency code', l_freight_costs_info.currency_code);
4029: wsh_debug_sv.log (l_module_name, 'Delivery Id', l_freight_costs_info.delivery_id);
4030: wsh_debug_sv.log (l_module_name, 'Delivery Detail Id',l_freight_costs_info.delivery_detail_id);
4031: wsh_debug_sv.log (l_module_name, 'Trip Id', l_freight_costs_info.trip_id);
4032: wsh_debug_sv.log (l_module_name, 'Trip Name', l_freight_costs_info.trip_name);
4025: IF l_debug_on THEN
4026: wsh_debug_sv.logmsg(l_module_name,'Calling freight public api');
4027: wsh_debug_sv.log (l_module_name, 'Unit amount', l_freight_costs_info.unit_amount);
4028: wsh_debug_sv.log (l_module_name, 'Currency code', l_freight_costs_info.currency_code);
4029: wsh_debug_sv.log (l_module_name, 'Delivery Id', l_freight_costs_info.delivery_id);
4030: wsh_debug_sv.log (l_module_name, 'Delivery Detail Id',l_freight_costs_info.delivery_detail_id);
4031: wsh_debug_sv.log (l_module_name, 'Trip Id', l_freight_costs_info.trip_id);
4032: wsh_debug_sv.log (l_module_name, 'Trip Name', l_freight_costs_info.trip_name);
4033: wsh_debug_sv.log (l_module_name, 'Stop Id', l_freight_costs_info.stop_id);
4026: wsh_debug_sv.logmsg(l_module_name,'Calling freight public api');
4027: wsh_debug_sv.log (l_module_name, 'Unit amount', l_freight_costs_info.unit_amount);
4028: wsh_debug_sv.log (l_module_name, 'Currency code', l_freight_costs_info.currency_code);
4029: wsh_debug_sv.log (l_module_name, 'Delivery Id', l_freight_costs_info.delivery_id);
4030: wsh_debug_sv.log (l_module_name, 'Delivery Detail Id',l_freight_costs_info.delivery_detail_id);
4031: wsh_debug_sv.log (l_module_name, 'Trip Id', l_freight_costs_info.trip_id);
4032: wsh_debug_sv.log (l_module_name, 'Trip Name', l_freight_costs_info.trip_name);
4033: wsh_debug_sv.log (l_module_name, 'Stop Id', l_freight_costs_info.stop_id);
4034: END IF;
4027: wsh_debug_sv.log (l_module_name, 'Unit amount', l_freight_costs_info.unit_amount);
4028: wsh_debug_sv.log (l_module_name, 'Currency code', l_freight_costs_info.currency_code);
4029: wsh_debug_sv.log (l_module_name, 'Delivery Id', l_freight_costs_info.delivery_id);
4030: wsh_debug_sv.log (l_module_name, 'Delivery Detail Id',l_freight_costs_info.delivery_detail_id);
4031: wsh_debug_sv.log (l_module_name, 'Trip Id', l_freight_costs_info.trip_id);
4032: wsh_debug_sv.log (l_module_name, 'Trip Name', l_freight_costs_info.trip_name);
4033: wsh_debug_sv.log (l_module_name, 'Stop Id', l_freight_costs_info.stop_id);
4034: END IF;
4035:
4028: wsh_debug_sv.log (l_module_name, 'Currency code', l_freight_costs_info.currency_code);
4029: wsh_debug_sv.log (l_module_name, 'Delivery Id', l_freight_costs_info.delivery_id);
4030: wsh_debug_sv.log (l_module_name, 'Delivery Detail Id',l_freight_costs_info.delivery_detail_id);
4031: wsh_debug_sv.log (l_module_name, 'Trip Id', l_freight_costs_info.trip_id);
4032: wsh_debug_sv.log (l_module_name, 'Trip Name', l_freight_costs_info.trip_name);
4033: wsh_debug_sv.log (l_module_name, 'Stop Id', l_freight_costs_info.stop_id);
4034: END IF;
4035:
4036: WSH_FREIGHT_COSTS_PUB.Create_Update_Freight_Costs (
4029: wsh_debug_sv.log (l_module_name, 'Delivery Id', l_freight_costs_info.delivery_id);
4030: wsh_debug_sv.log (l_module_name, 'Delivery Detail Id',l_freight_costs_info.delivery_detail_id);
4031: wsh_debug_sv.log (l_module_name, 'Trip Id', l_freight_costs_info.trip_id);
4032: wsh_debug_sv.log (l_module_name, 'Trip Name', l_freight_costs_info.trip_name);
4033: wsh_debug_sv.log (l_module_name, 'Stop Id', l_freight_costs_info.stop_id);
4034: END IF;
4035:
4036: WSH_FREIGHT_COSTS_PUB.Create_Update_Freight_Costs (
4037: p_api_version_number => 1.0,
4044: p_action_code => 'CREATE',
4045: x_freight_cost_id => l_freight_cost_id);
4046:
4047: IF l_debug_on THEN
4048: wsh_debug_sv.log (l_module_name, 'return status from freight public api', l_return_status);
4049: wsh_debug_sv.log (l_module_name, 'Create Update Freight Costs api msg count', l_msg_count);
4050: wsh_debug_sv.log (l_module_name, 'Create Update Freight Costs api msg', l_msg_data);
4051: wsh_debug_sv.log (l_module_name, 'freight_cost id created', l_freight_cost_id);
4052: END IF;
4045: x_freight_cost_id => l_freight_cost_id);
4046:
4047: IF l_debug_on THEN
4048: wsh_debug_sv.log (l_module_name, 'return status from freight public api', l_return_status);
4049: wsh_debug_sv.log (l_module_name, 'Create Update Freight Costs api msg count', l_msg_count);
4050: wsh_debug_sv.log (l_module_name, 'Create Update Freight Costs api msg', l_msg_data);
4051: wsh_debug_sv.log (l_module_name, 'freight_cost id created', l_freight_cost_id);
4052: END IF;
4053:
4046:
4047: IF l_debug_on THEN
4048: wsh_debug_sv.log (l_module_name, 'return status from freight public api', l_return_status);
4049: wsh_debug_sv.log (l_module_name, 'Create Update Freight Costs api msg count', l_msg_count);
4050: wsh_debug_sv.log (l_module_name, 'Create Update Freight Costs api msg', l_msg_data);
4051: wsh_debug_sv.log (l_module_name, 'freight_cost id created', l_freight_cost_id);
4052: END IF;
4053:
4054: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4047: IF l_debug_on THEN
4048: wsh_debug_sv.log (l_module_name, 'return status from freight public api', l_return_status);
4049: wsh_debug_sv.log (l_module_name, 'Create Update Freight Costs api msg count', l_msg_count);
4050: wsh_debug_sv.log (l_module_name, 'Create Update Freight Costs api msg', l_msg_data);
4051: wsh_debug_sv.log (l_module_name, 'freight_cost id created', l_freight_cost_id);
4052: END IF;
4053:
4054: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4055: l_loc_interface_error_rec.p_interface_table_name := 'WSH_FREIGHT_COSTS_INTERFACE';
4060: p_msg_data => l_msg_data,
4061: p_api_name => 'WSH_FREIGHT_COSTS_PUB.Create_Update_Freight_Costs',
4062: x_return_status => l_return_status);
4063: IF l_debug_on THEN
4064: wsh_debug_sv.log (l_module_name, 'Log_Errors l_return_status',l_return_status);
4065: END IF;
4066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4067: END IF;
4068:
4068:
4069: END LOOP;
4070:
4071: IF l_debug_on THEN
4072: wsh_debug_sv.pop(l_module_name);
4073: END IF;
4074:
4075: EXCEPTION
4076: WHEN invalid_input THEN
4075: EXCEPTION
4076: WHEN invalid_input THEN
4077: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4078: IF l_debug_on THEN
4079: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4080: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
4081: END IF;
4082: WHEN invalid_freight_cost_type THEN
4083: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4076: WHEN invalid_input THEN
4077: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4078: IF l_debug_on THEN
4079: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4080: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
4081: END IF;
4082: WHEN invalid_freight_cost_type THEN
4083: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4084: IF l_debug_on THEN
4081: END IF;
4082: WHEN invalid_freight_cost_type THEN
4083: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4084: IF l_debug_on THEN
4085: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_freight_cost_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4086: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_freight_cost_type');
4087: END IF;
4088: WHEN no_freight_record THEN
4089: null;
4082: WHEN invalid_freight_cost_type THEN
4083: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4084: IF l_debug_on THEN
4085: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_freight_cost_type exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4086: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_freight_cost_type');
4087: END IF;
4088: WHEN no_freight_record THEN
4089: null;
4090: IF l_debug_on THEN
4087: END IF;
4088: WHEN no_freight_record THEN
4089: null;
4090: IF l_debug_on THEN
4091: WSH_DEBUG_SV.logmsg(l_module_name,'no_freight_record exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4092: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:no_freight_record');
4093: END IF;
4094: WHEN Others THEN
4095: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4088: WHEN no_freight_record THEN
4089: null;
4090: IF l_debug_on THEN
4091: WSH_DEBUG_SV.logmsg(l_module_name,'no_freight_record exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4092: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:no_freight_record');
4093: END IF;
4094: WHEN Others THEN
4095: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4096: IF l_debug_on THEN
4093: END IF;
4094: WHEN Others THEN
4095: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4096: IF l_debug_on THEN
4097: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4098: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4099: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4100: END IF;
4101:
4094: WHEN Others THEN
4095: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4096: IF l_debug_on THEN
4097: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4098: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4099: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4100: END IF;
4101:
4102: END Process_Int_Freight_Costs;
4095: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4096: IF l_debug_on THEN
4097: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4098: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4099: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4100: END IF;
4101:
4102: END Process_Int_Freight_Costs;
4103:
4153: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4154: --
4155: IF l_debug_on IS NULL
4156: THEN
4157: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4158: END IF;
4159: --
4160: IF l_debug_on THEN
4161: wsh_debug_sv.push(l_module_name,'Update_Delivery_Details');
4157: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4158: END IF;
4159: --
4160: IF l_debug_on THEN
4161: wsh_debug_sv.push(l_module_name,'Update_Delivery_Details');
4162: wsh_debug_sv.log (l_module_name, 'Source Code', p_source_code);
4163: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
4164: wsh_debug_sv.log (l_module_name, 'Update Table Count', G_Update_Attributes_Tab.count);
4165: wsh_debug_sv.log(l_module_name, 'Serial Range Tab count',G_SERIAL_RANGE_TAB.count);
4158: END IF;
4159: --
4160: IF l_debug_on THEN
4161: wsh_debug_sv.push(l_module_name,'Update_Delivery_Details');
4162: wsh_debug_sv.log (l_module_name, 'Source Code', p_source_code);
4163: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
4164: wsh_debug_sv.log (l_module_name, 'Update Table Count', G_Update_Attributes_Tab.count);
4165: wsh_debug_sv.log(l_module_name, 'Serial Range Tab count',G_SERIAL_RANGE_TAB.count);
4166: END IF;
4159: --
4160: IF l_debug_on THEN
4161: wsh_debug_sv.push(l_module_name,'Update_Delivery_Details');
4162: wsh_debug_sv.log (l_module_name, 'Source Code', p_source_code);
4163: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
4164: wsh_debug_sv.log (l_module_name, 'Update Table Count', G_Update_Attributes_Tab.count);
4165: wsh_debug_sv.log(l_module_name, 'Serial Range Tab count',G_SERIAL_RANGE_TAB.count);
4166: END IF;
4167:
4160: IF l_debug_on THEN
4161: wsh_debug_sv.push(l_module_name,'Update_Delivery_Details');
4162: wsh_debug_sv.log (l_module_name, 'Source Code', p_source_code);
4163: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
4164: wsh_debug_sv.log (l_module_name, 'Update Table Count', G_Update_Attributes_Tab.count);
4165: wsh_debug_sv.log(l_module_name, 'Serial Range Tab count',G_SERIAL_RANGE_TAB.count);
4166: END IF;
4167:
4168: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4161: wsh_debug_sv.push(l_module_name,'Update_Delivery_Details');
4162: wsh_debug_sv.log (l_module_name, 'Source Code', p_source_code);
4163: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
4164: wsh_debug_sv.log (l_module_name, 'Update Table Count', G_Update_Attributes_Tab.count);
4165: wsh_debug_sv.log(l_module_name, 'Serial Range Tab count',G_SERIAL_RANGE_TAB.count);
4166: END IF;
4167:
4168: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4169: -- Use the global table to call create_update Group API
4187: P_SERIAL_RANGE_TAB => G_SERIAL_RANGE_TAB
4188: );
4189:
4190: IF l_debug_on THEN
4191: wsh_debug_sv.log (l_module_name,'Return Status from create_update group api', l_return_status);
4192: wsh_debug_sv.log (l_module_name, 'Update Ship Attr api msg count', l_msg_count);
4193: wsh_debug_sv.log (l_module_name, 'Update Ship Attr api msg data', l_msg_data);
4194: END IF;
4195:
4188: );
4189:
4190: IF l_debug_on THEN
4191: wsh_debug_sv.log (l_module_name,'Return Status from create_update group api', l_return_status);
4192: wsh_debug_sv.log (l_module_name, 'Update Ship Attr api msg count', l_msg_count);
4193: wsh_debug_sv.log (l_module_name, 'Update Ship Attr api msg data', l_msg_data);
4194: END IF;
4195:
4196: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4189:
4190: IF l_debug_on THEN
4191: wsh_debug_sv.log (l_module_name,'Return Status from create_update group api', l_return_status);
4192: wsh_debug_sv.log (l_module_name, 'Update Ship Attr api msg count', l_msg_count);
4193: wsh_debug_sv.log (l_module_name, 'Update Ship Attr api msg data', l_msg_data);
4194: END IF;
4195:
4196: IF(l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4197: -- Need to insert record in interface errors table only
4209: p_api_name =>'WSH_DELIVERY_DETAILS_GRP.Create_Update_Delivery_Detail',
4210: x_return_status => l_return_status);
4211:
4212: IF l_debug_on THEN
4213: wsh_debug_sv.log (l_module_name,'Log_Errors l_return_status',l_return_status);
4214: END IF;
4215:
4216: END IF;
4217: raise update_shipping_att_failed;
4223: FOR i in G_Update_Attributes_Tab.first..G_Update_Attributes_Tab.last
4224: LOOP --{
4225: --
4226: IF l_debug_on THEN
4227: wsh_debug_sv.log (l_module_name, 'Container Flag for delivery detail: ' || G_Update_Attributes_Tab(i).delivery_detail_id, G_Update_Attributes_Tab(i).Container_Flag);
4228: END IF;
4229: --
4230: IF ( G_Update_Attributes_Tab(i).Container_Flag = 'N' )
4231: THEN -- {
4254: FROM wsh_delivery_details
4255: WHERE delivery_detail_id = G_Update_Attributes_Tab(i).delivery_detail_id;
4256: --
4257: IF l_debug_on THEN
4258: wsh_debug_sv.logmsg (l_module_name,'Calling INV_SALESORDER.Get_Salesorder_For_Oeheader', WSH_DEBUG_SV.C_PROC_LEVEL );
4259: END IF;
4260: --
4261: l_rsv_rec.demand_source_header_id := INV_SALESORDER.Get_Salesorder_For_Oeheader(P_OE_HEADER_ID => l_header_id);
4262: --
4260: --
4261: l_rsv_rec.demand_source_header_id := INV_SALESORDER.Get_Salesorder_For_Oeheader(P_OE_HEADER_ID => l_header_id);
4262: --
4263: IF l_debug_on THEN
4264: wsh_debug_sv.logmsg (l_module_name,'Calling INV_RSV_DETAIL_STAGE_PVT.Process_Reservation', WSH_DEBUG_SV.C_PROC_LEVEL );
4265: END IF;
4266: --
4267: -- After discussing with Inventory team, its been decided that
4268: -- 1. Serial Numbers will NOT be passed in p_serial_number parameter,
4280: x_msg_data => l_msg_data );
4281: --
4282: -- Bug 8579149 - Fixing the GSCC error introduced in previous fix
4283: IF l_debug_on THEN
4284: wsh_debug_sv.log (l_module_name, 'Return Status from INV_RSV_DETAIL_STAGE_PVT.Process_Reservation', l_return_status);
4285: wsh_debug_sv.log (l_module_name, 'Process_Reservation api msg count', l_msg_count);
4286: wsh_debug_sv.log (l_module_name, 'Process_Reservation api msg data', l_msg_data);
4287: END IF;
4288: --
4281: --
4282: -- Bug 8579149 - Fixing the GSCC error introduced in previous fix
4283: IF l_debug_on THEN
4284: wsh_debug_sv.log (l_module_name, 'Return Status from INV_RSV_DETAIL_STAGE_PVT.Process_Reservation', l_return_status);
4285: wsh_debug_sv.log (l_module_name, 'Process_Reservation api msg count', l_msg_count);
4286: wsh_debug_sv.log (l_module_name, 'Process_Reservation api msg data', l_msg_data);
4287: END IF;
4288: --
4289: -- Return Status of Process_Reservation api will NOT be handled
4282: -- Bug 8579149 - Fixing the GSCC error introduced in previous fix
4283: IF l_debug_on THEN
4284: wsh_debug_sv.log (l_module_name, 'Return Status from INV_RSV_DETAIL_STAGE_PVT.Process_Reservation', l_return_status);
4285: wsh_debug_sv.log (l_module_name, 'Process_Reservation api msg count', l_msg_count);
4286: wsh_debug_sv.log (l_module_name, 'Process_Reservation api msg data', l_msg_data);
4287: END IF;
4288: --
4289: -- Return Status of Process_Reservation api will NOT be handled
4290: END IF; --} Container Flag
4294:
4295: END IF; -- if G_Update_Attributes_Tab.count
4296:
4297: IF l_debug_on THEN
4298: wsh_debug_sv.pop(l_module_name);
4299: END IF;
4300:
4301: EXCEPTION
4302: WHEN update_shipping_att_failed THEN
4301: EXCEPTION
4302: WHEN update_shipping_att_failed THEN
4303: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4304: IF l_debug_on THEN
4305: WSH_DEBUG_SV.logmsg(l_module_name,'update_shipping_att_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4306: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:update_shipping_att_failed');
4307: END IF;
4308: WHEN cont_upd_ship_att_failed THEN
4309: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4302: WHEN update_shipping_att_failed THEN
4303: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4304: IF l_debug_on THEN
4305: WSH_DEBUG_SV.logmsg(l_module_name,'update_shipping_att_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4306: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:update_shipping_att_failed');
4307: END IF;
4308: WHEN cont_upd_ship_att_failed THEN
4309: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4310: IF l_debug_on THEN
4307: END IF;
4308: WHEN cont_upd_ship_att_failed THEN
4309: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4310: IF l_debug_on THEN
4311: WSH_DEBUG_SV.logmsg(l_module_name,'cont_upd_ship_att_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4312: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:cont_upd_ship_att_failed');
4313: END IF;
4314: WHEN Others THEN
4315: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4308: WHEN cont_upd_ship_att_failed THEN
4309: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4310: IF l_debug_on THEN
4311: WSH_DEBUG_SV.logmsg(l_module_name,'cont_upd_ship_att_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4312: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:cont_upd_ship_att_failed');
4313: END IF;
4314: WHEN Others THEN
4315: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4316: IF l_debug_on THEN
4313: END IF;
4314: WHEN Others THEN
4315: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4316: IF l_debug_on THEN
4317: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4318: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4319: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4320: END IF;
4321: END Update_Delivery_Details;
4314: WHEN Others THEN
4315: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4316: IF l_debug_on THEN
4317: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4318: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4319: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4320: END IF;
4321: END Update_Delivery_Details;
4322:
4315: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4316: IF l_debug_on THEN
4317: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4318: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4319: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4320: END IF;
4321: END Update_Delivery_Details;
4322:
4323:
4422: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4423: --
4424: IF l_debug_on IS NULL
4425: THEN
4426: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4427: END IF;
4428: --
4429: IF l_debug_on THEN
4430: wsh_debug_sv.push(l_module_name,'Create_Update_Trip_For_Dlvy');
4426: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4427: END IF;
4428: --
4429: IF l_debug_on THEN
4430: wsh_debug_sv.push(l_module_name,'Create_Update_Trip_For_Dlvy');
4431: wsh_debug_sv.log (l_module_name, 'Delivery id', p_delivery_id);
4432: END IF;
4433:
4434: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4427: END IF;
4428: --
4429: IF l_debug_on THEN
4430: wsh_debug_sv.push(l_module_name,'Create_Update_Trip_For_Dlvy');
4431: wsh_debug_sv.log (l_module_name, 'Delivery id', p_delivery_id);
4432: END IF;
4433:
4434: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4435:
4442: FETCH del_trip_stops INTO l_pickup_stop_id, l_dropoff_stop_id, l_trip_id;
4443: CLOSE del_trip_stops;
4444:
4445: IF l_debug_on THEN
4446: wsh_debug_sv.log (l_module_name, 'Pickup Stop Id', l_pickup_stop_id);
4447: wsh_debug_sv.log (l_module_name, 'Dropoff Stop Id', l_dropoff_stop_id);
4448: wsh_debug_sv.log (l_module_name, 'Trip Id', l_trip_id);
4449: END IF;
4450: IF (l_pickup_stop_id IS NULL) THEN
4443: CLOSE del_trip_stops;
4444:
4445: IF l_debug_on THEN
4446: wsh_debug_sv.log (l_module_name, 'Pickup Stop Id', l_pickup_stop_id);
4447: wsh_debug_sv.log (l_module_name, 'Dropoff Stop Id', l_dropoff_stop_id);
4448: wsh_debug_sv.log (l_module_name, 'Trip Id', l_trip_id);
4449: END IF;
4450: IF (l_pickup_stop_id IS NULL) THEN
4451:
4444:
4445: IF l_debug_on THEN
4446: wsh_debug_sv.log (l_module_name, 'Pickup Stop Id', l_pickup_stop_id);
4447: wsh_debug_sv.log (l_module_name, 'Dropoff Stop Id', l_dropoff_stop_id);
4448: wsh_debug_sv.log (l_module_name, 'Trip Id', l_trip_id);
4449: END IF;
4450: IF (l_pickup_stop_id IS NULL) THEN
4451:
4452: -- trip does not exist. so do autocreate_trip
4459: x_trip_name => l_trip_name,
4460: x_return_status => l_return_status);
4461:
4462: IF l_debug_on THEN
4463: wsh_debug_sv.log (l_module_name, 'Return status from autocreate trip', l_return_status);
4464: wsh_debug_sv.log (l_module_name, 'Trip created', l_trip_id);
4465: END IF;
4466:
4467: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4460: x_return_status => l_return_status);
4461:
4462: IF l_debug_on THEN
4463: wsh_debug_sv.log (l_module_name, 'Return status from autocreate trip', l_return_status);
4464: wsh_debug_sv.log (l_module_name, 'Trip created', l_trip_id);
4465: END IF;
4466:
4467: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4468: x_return_status := l_return_status;
4474: FETCH del_trip_stops INTO l_pickup_stop_id, l_dropoff_stop_id, l_trip_id;
4475: CLOSE del_trip_stops;
4476:
4477: IF l_debug_on THEN
4478: wsh_debug_sv.log (l_module_name, 'After doing autocreate trip');
4479: wsh_debug_sv.log (l_module_name, 'Pickup Stop Id', l_pickup_stop_id);
4480: wsh_debug_sv.log (l_module_name, 'Dropoff Stop Id', l_dropoff_stop_id);
4481: wsh_debug_sv.log (l_module_name, 'Trip Id', l_trip_id);
4482: END IF;
4475: CLOSE del_trip_stops;
4476:
4477: IF l_debug_on THEN
4478: wsh_debug_sv.log (l_module_name, 'After doing autocreate trip');
4479: wsh_debug_sv.log (l_module_name, 'Pickup Stop Id', l_pickup_stop_id);
4480: wsh_debug_sv.log (l_module_name, 'Dropoff Stop Id', l_dropoff_stop_id);
4481: wsh_debug_sv.log (l_module_name, 'Trip Id', l_trip_id);
4482: END IF;
4483:
4476:
4477: IF l_debug_on THEN
4478: wsh_debug_sv.log (l_module_name, 'After doing autocreate trip');
4479: wsh_debug_sv.log (l_module_name, 'Pickup Stop Id', l_pickup_stop_id);
4480: wsh_debug_sv.log (l_module_name, 'Dropoff Stop Id', l_dropoff_stop_id);
4481: wsh_debug_sv.log (l_module_name, 'Trip Id', l_trip_id);
4482: END IF;
4483:
4484: END IF; -- if l_pickup_stop_id is null
4477: IF l_debug_on THEN
4478: wsh_debug_sv.log (l_module_name, 'After doing autocreate trip');
4479: wsh_debug_sv.log (l_module_name, 'Pickup Stop Id', l_pickup_stop_id);
4480: wsh_debug_sv.log (l_module_name, 'Dropoff Stop Id', l_dropoff_stop_id);
4481: wsh_debug_sv.log (l_module_name, 'Trip Id', l_trip_id);
4482: END IF;
4483:
4484: END IF; -- if l_pickup_stop_id is null
4485:
4489: INTO l_pickup_stop_int_id, l_dropoff_stop_int_id, l_trip_interface_id;
4490: CLOSE int_del_trip_stops;
4491:
4492: IF l_debug_on THEN
4493: wsh_debug_sv.log (l_module_name, 'Pickup Stop Interface Id', l_pickup_stop_int_id);
4494: wsh_debug_sv.log (l_module_name, 'Dropoff Stop Interface Id', l_dropoff_stop_int_id);
4495: wsh_debug_sv.log (l_module_name, 'Trip Interface Id', l_trip_interface_id);
4496: END IF;
4497:
4490: CLOSE int_del_trip_stops;
4491:
4492: IF l_debug_on THEN
4493: wsh_debug_sv.log (l_module_name, 'Pickup Stop Interface Id', l_pickup_stop_int_id);
4494: wsh_debug_sv.log (l_module_name, 'Dropoff Stop Interface Id', l_dropoff_stop_int_id);
4495: wsh_debug_sv.log (l_module_name, 'Trip Interface Id', l_trip_interface_id);
4496: END IF;
4497:
4498: -- get the interface trip_stop info
4491:
4492: IF l_debug_on THEN
4493: wsh_debug_sv.log (l_module_name, 'Pickup Stop Interface Id', l_pickup_stop_int_id);
4494: wsh_debug_sv.log (l_module_name, 'Dropoff Stop Interface Id', l_dropoff_stop_int_id);
4495: wsh_debug_sv.log (l_module_name, 'Trip Interface Id', l_trip_interface_id);
4496: END IF;
4497:
4498: -- get the interface trip_stop info
4499: OPEN int_pickup_stop_cur(l_pickup_stop_int_id);
4503: NULL;
4504: -- need to decide what should be done
4505: END IF;
4506: IF l_debug_on THEN
4507: wsh_debug_sv.log (l_module_name, 'Updating Stop Id', l_pickup_stop_id);
4508: END IF;
4509:
4510: -- update the base trip_stops
4511: IF l_pickup_stop_id IS NOT NULL THEN
4520: -- Updating WSH_TRIP_STOPS.
4521: -- Call DBI API after the Update.
4522: -- This API will also check for DBI Installed or not
4523: IF l_debug_on THEN
4524: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Stop id -',l_pickup_stop_id);
4525: END IF;
4526: l_stop_tab(1) := l_pickup_stop_id;
4527: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
4528: (p_stop_id_tab => l_stop_tab,
4529: p_dml_type => 'UPDATE',
4530: x_return_status => l_dbi_rs);
4531:
4532: IF l_debug_on THEN
4533: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
4534: END IF;
4535: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4536: x_return_status := l_dbi_rs;
4537: -- just pass this return status to caller API
4535: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4536: x_return_status := l_dbi_rs;
4537: -- just pass this return status to caller API
4538: IF l_debug_on THEN
4539: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
4540: WSH_DEBUG_SV.pop(l_module_name);
4541: END IF;
4542: return;
4543: END IF;
4536: x_return_status := l_dbi_rs;
4537: -- just pass this return status to caller API
4538: IF l_debug_on THEN
4539: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
4540: WSH_DEBUG_SV.pop(l_module_name);
4541: END IF;
4542: return;
4543: END IF;
4544: -- End of Code for DBI Project
4559: NULL;
4560: -- need to decide what should be done
4561: END IF;
4562: IF l_debug_on THEN
4563: wsh_debug_sv.log (l_module_name, 'Updating Drop off Stop Id', l_dropoff_stop_id);
4564: END IF;
4565:
4566: IF l_dropoff_stop_id IS NOT NULL THEN
4567: UPDATE wsh_trip_stops
4573: -- Updating WSH_TRIP_STOPS.
4574: -- Call DBI API after the Update.
4575: -- This API will also check for DBI Installed or not
4576: IF l_debug_on THEN
4577: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Stop id -',l_dropoff_stop_id);
4578: END IF;
4579: l_stop_tab(1) := l_dropoff_stop_id;
4580: WSH_INTEGRATION.DBI_Update_Trip_Stop_Log
4581: (p_stop_id_tab => l_stop_tab,
4582: p_dml_type => 'UPDATE',
4583: x_return_status => l_dbi_rs);
4584:
4585: IF l_debug_on THEN
4586: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
4587: END IF;
4588: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4589: x_return_status := l_dbi_rs;
4590: -- just pass this return status to caller API
4588: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4589: x_return_status := l_dbi_rs;
4590: -- just pass this return status to caller API
4591: IF l_debug_on THEN
4592: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
4593: WSH_DEBUG_SV.pop(l_module_name);
4594: END IF;
4595: return;
4596: END IF;
4589: x_return_status := l_dbi_rs;
4590: -- just pass this return status to caller API
4591: IF l_debug_on THEN
4592: WSH_DEBUG_SV.log(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
4593: WSH_DEBUG_SV.pop(l_module_name);
4594: END IF;
4595: return;
4596: END IF;
4597: -- End of Code for DBI Project
4613: -- need to decide what should be done
4614: END IF;
4615:
4616: IF l_debug_on THEN
4617: wsh_debug_sv.log (l_module_name, 'Updating Trip Id', l_trip_id);
4618: END IF;
4619: -- update the base trip
4620: IF l_trip_id IS NOT NULL THEN
4621:
4636: CLOSE int_trip_cur;
4637: END IF;
4638:
4639: IF l_debug_on THEN
4640: wsh_debug_sv.pop(l_module_name);
4641: END IF;
4642: EXCEPTION
4643: WHEN trip_creation_failed THEN
4644: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4642: EXCEPTION
4643: WHEN trip_creation_failed THEN
4644: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4645: IF l_debug_on THEN
4646: WSH_DEBUG_SV.logmsg(l_module_name,'trip_creation_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:trip_creation_failed');
4648: END IF;
4649: WHEN invalid_input THEN
4650: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4643: WHEN trip_creation_failed THEN
4644: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4645: IF l_debug_on THEN
4646: WSH_DEBUG_SV.logmsg(l_module_name,'trip_creation_failed exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:trip_creation_failed');
4648: END IF;
4649: WHEN invalid_input THEN
4650: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4651: IF l_debug_on THEN
4648: END IF;
4649: WHEN invalid_input THEN
4650: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4651: IF l_debug_on THEN
4652: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4653: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
4654: END IF;
4655: WHEN Others THEN
4656: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4649: WHEN invalid_input THEN
4650: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4651: IF l_debug_on THEN
4652: WSH_DEBUG_SV.logmsg(l_module_name,'invalid_input exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4653: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:invalid_input');
4654: END IF;
4655: WHEN Others THEN
4656: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4657: IF l_debug_on THEN
4654: END IF;
4655: WHEN Others THEN
4656: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4657: IF l_debug_on THEN
4658: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4659: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4660: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4661: END IF;
4662:
4655: WHEN Others THEN
4656: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4657: IF l_debug_on THEN
4658: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4659: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4660: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4661: END IF;
4662:
4663: END Create_Update_Trip_For_Dlvy;
4656: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4657: IF l_debug_on THEN
4658: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4659: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4660: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4661: END IF;
4662:
4663: END Create_Update_Trip_For_Dlvy;
4664:
4692: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4693: --
4694: IF l_debug_on IS NULL
4695: THEN
4696: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4697: END IF;
4698: --
4699: IF l_debug_on THEN
4700: wsh_debug_sv.push(l_module_name,'Int_Trip_Stop_Info');
4696: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4697: END IF;
4698: --
4699: IF l_debug_on THEN
4700: wsh_debug_sv.push(l_module_name,'Int_Trip_Stop_Info');
4701: wsh_debug_sv.log (l_module_name, 'Delivery Interface id', p_delivery_interface_id);
4702: wsh_debug_sv.log (l_module_name, 'Act Departure Date', p_act_dep_date);
4703: wsh_debug_sv.log (l_module_name, 'Dep Seal Code', p_dep_seal_code);
4704: wsh_debug_sv.log (l_module_name, 'Act Arrival Date', p_act_arr_date);
4697: END IF;
4698: --
4699: IF l_debug_on THEN
4700: wsh_debug_sv.push(l_module_name,'Int_Trip_Stop_Info');
4701: wsh_debug_sv.log (l_module_name, 'Delivery Interface id', p_delivery_interface_id);
4702: wsh_debug_sv.log (l_module_name, 'Act Departure Date', p_act_dep_date);
4703: wsh_debug_sv.log (l_module_name, 'Dep Seal Code', p_dep_seal_code);
4704: wsh_debug_sv.log (l_module_name, 'Act Arrival Date', p_act_arr_date);
4705: wsh_debug_sv.log (l_module_name, 'Vehicle Num', p_trip_vehicle_num);
4698: --
4699: IF l_debug_on THEN
4700: wsh_debug_sv.push(l_module_name,'Int_Trip_Stop_Info');
4701: wsh_debug_sv.log (l_module_name, 'Delivery Interface id', p_delivery_interface_id);
4702: wsh_debug_sv.log (l_module_name, 'Act Departure Date', p_act_dep_date);
4703: wsh_debug_sv.log (l_module_name, 'Dep Seal Code', p_dep_seal_code);
4704: wsh_debug_sv.log (l_module_name, 'Act Arrival Date', p_act_arr_date);
4705: wsh_debug_sv.log (l_module_name, 'Vehicle Num', p_trip_vehicle_num);
4706: wsh_debug_sv.log (l_module_name, 'Vehicle Num Prefix', p_trip_veh_num_pfx);
4699: IF l_debug_on THEN
4700: wsh_debug_sv.push(l_module_name,'Int_Trip_Stop_Info');
4701: wsh_debug_sv.log (l_module_name, 'Delivery Interface id', p_delivery_interface_id);
4702: wsh_debug_sv.log (l_module_name, 'Act Departure Date', p_act_dep_date);
4703: wsh_debug_sv.log (l_module_name, 'Dep Seal Code', p_dep_seal_code);
4704: wsh_debug_sv.log (l_module_name, 'Act Arrival Date', p_act_arr_date);
4705: wsh_debug_sv.log (l_module_name, 'Vehicle Num', p_trip_vehicle_num);
4706: wsh_debug_sv.log (l_module_name, 'Vehicle Num Prefix', p_trip_veh_num_pfx);
4707: wsh_debug_sv.log (l_module_name, 'Route Id', p_trip_route_id);
4700: wsh_debug_sv.push(l_module_name,'Int_Trip_Stop_Info');
4701: wsh_debug_sv.log (l_module_name, 'Delivery Interface id', p_delivery_interface_id);
4702: wsh_debug_sv.log (l_module_name, 'Act Departure Date', p_act_dep_date);
4703: wsh_debug_sv.log (l_module_name, 'Dep Seal Code', p_dep_seal_code);
4704: wsh_debug_sv.log (l_module_name, 'Act Arrival Date', p_act_arr_date);
4705: wsh_debug_sv.log (l_module_name, 'Vehicle Num', p_trip_vehicle_num);
4706: wsh_debug_sv.log (l_module_name, 'Vehicle Num Prefix', p_trip_veh_num_pfx);
4707: wsh_debug_sv.log (l_module_name, 'Route Id', p_trip_route_id);
4708: wsh_debug_sv.log (l_module_name, 'Routing Ins', p_trip_routing_ins);
4701: wsh_debug_sv.log (l_module_name, 'Delivery Interface id', p_delivery_interface_id);
4702: wsh_debug_sv.log (l_module_name, 'Act Departure Date', p_act_dep_date);
4703: wsh_debug_sv.log (l_module_name, 'Dep Seal Code', p_dep_seal_code);
4704: wsh_debug_sv.log (l_module_name, 'Act Arrival Date', p_act_arr_date);
4705: wsh_debug_sv.log (l_module_name, 'Vehicle Num', p_trip_vehicle_num);
4706: wsh_debug_sv.log (l_module_name, 'Vehicle Num Prefix', p_trip_veh_num_pfx);
4707: wsh_debug_sv.log (l_module_name, 'Route Id', p_trip_route_id);
4708: wsh_debug_sv.log (l_module_name, 'Routing Ins', p_trip_routing_ins);
4709: wsh_debug_sv.log (l_module_name, 'p_operator', p_operator);
4702: wsh_debug_sv.log (l_module_name, 'Act Departure Date', p_act_dep_date);
4703: wsh_debug_sv.log (l_module_name, 'Dep Seal Code', p_dep_seal_code);
4704: wsh_debug_sv.log (l_module_name, 'Act Arrival Date', p_act_arr_date);
4705: wsh_debug_sv.log (l_module_name, 'Vehicle Num', p_trip_vehicle_num);
4706: wsh_debug_sv.log (l_module_name, 'Vehicle Num Prefix', p_trip_veh_num_pfx);
4707: wsh_debug_sv.log (l_module_name, 'Route Id', p_trip_route_id);
4708: wsh_debug_sv.log (l_module_name, 'Routing Ins', p_trip_routing_ins);
4709: wsh_debug_sv.log (l_module_name, 'p_operator', p_operator);
4710: END IF;
4703: wsh_debug_sv.log (l_module_name, 'Dep Seal Code', p_dep_seal_code);
4704: wsh_debug_sv.log (l_module_name, 'Act Arrival Date', p_act_arr_date);
4705: wsh_debug_sv.log (l_module_name, 'Vehicle Num', p_trip_vehicle_num);
4706: wsh_debug_sv.log (l_module_name, 'Vehicle Num Prefix', p_trip_veh_num_pfx);
4707: wsh_debug_sv.log (l_module_name, 'Route Id', p_trip_route_id);
4708: wsh_debug_sv.log (l_module_name, 'Routing Ins', p_trip_routing_ins);
4709: wsh_debug_sv.log (l_module_name, 'p_operator', p_operator);
4710: END IF;
4711:
4704: wsh_debug_sv.log (l_module_name, 'Act Arrival Date', p_act_arr_date);
4705: wsh_debug_sv.log (l_module_name, 'Vehicle Num', p_trip_vehicle_num);
4706: wsh_debug_sv.log (l_module_name, 'Vehicle Num Prefix', p_trip_veh_num_pfx);
4707: wsh_debug_sv.log (l_module_name, 'Route Id', p_trip_route_id);
4708: wsh_debug_sv.log (l_module_name, 'Routing Ins', p_trip_routing_ins);
4709: wsh_debug_sv.log (l_module_name, 'p_operator', p_operator);
4710: END IF;
4711:
4712: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4705: wsh_debug_sv.log (l_module_name, 'Vehicle Num', p_trip_vehicle_num);
4706: wsh_debug_sv.log (l_module_name, 'Vehicle Num Prefix', p_trip_veh_num_pfx);
4707: wsh_debug_sv.log (l_module_name, 'Route Id', p_trip_route_id);
4708: wsh_debug_sv.log (l_module_name, 'Routing Ins', p_trip_routing_ins);
4709: wsh_debug_sv.log (l_module_name, 'p_operator', p_operator);
4710: END IF;
4711:
4712: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4713: -- get delivery_leg_interface_id, stop_interface_id, trip_interface_id
4819: '94X_INBOUND',
4820: p_operator);
4821:
4822: IF l_debug_on THEN
4823: wsh_debug_sv.pop(l_module_name);
4824: END IF;
4825: EXCEPTION
4826:
4827: WHEN Others THEN
4826:
4827: WHEN Others THEN
4828: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4829: IF l_debug_on THEN
4830: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4831: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4832: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4833: END IF;
4834: END Int_Trip_Stop_Info;
4827: WHEN Others THEN
4828: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4829: IF l_debug_on THEN
4830: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4831: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4832: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4833: END IF;
4834: END Int_Trip_Stop_Info;
4835:
4828: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4829: IF l_debug_on THEN
4830: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
4831: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4832: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4833: END IF;
4834: END Int_Trip_Stop_Info;
4835:
4836:
4894: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
4895: --
4896: IF l_debug_on IS NULL
4897: THEN
4898: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4899: END IF;
4900: --
4901: IF l_debug_on THEN
4902: wsh_debug_sv.push(l_module_name, 'Add_To_Update_Table');
4898: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
4899: END IF;
4900: --
4901: IF l_debug_on THEN
4902: wsh_debug_sv.push(l_module_name, 'Add_To_Update_Table');
4903: wsh_debug_sv.log (l_module_name, 'Update Mode' , p_update_mode);
4904: wsh_debug_sv.log (l_module_name, 'p_delivery_id', p_delivery_id);
4905: wsh_debug_sv.log(l_module_name, 'Delivery Detail Id', p_del_det_int_rec.delivery_detail_id);
4906: END IF;
4899: END IF;
4900: --
4901: IF l_debug_on THEN
4902: wsh_debug_sv.push(l_module_name, 'Add_To_Update_Table');
4903: wsh_debug_sv.log (l_module_name, 'Update Mode' , p_update_mode);
4904: wsh_debug_sv.log (l_module_name, 'p_delivery_id', p_delivery_id);
4905: wsh_debug_sv.log(l_module_name, 'Delivery Detail Id', p_del_det_int_rec.delivery_detail_id);
4906: END IF;
4907:
4900: --
4901: IF l_debug_on THEN
4902: wsh_debug_sv.push(l_module_name, 'Add_To_Update_Table');
4903: wsh_debug_sv.log (l_module_name, 'Update Mode' , p_update_mode);
4904: wsh_debug_sv.log (l_module_name, 'p_delivery_id', p_delivery_id);
4905: wsh_debug_sv.log(l_module_name, 'Delivery Detail Id', p_del_det_int_rec.delivery_detail_id);
4906: END IF;
4907:
4908: -- Add To Packing Table, only for update cases
4901: IF l_debug_on THEN
4902: wsh_debug_sv.push(l_module_name, 'Add_To_Update_Table');
4903: wsh_debug_sv.log (l_module_name, 'Update Mode' , p_update_mode);
4904: wsh_debug_sv.log (l_module_name, 'p_delivery_id', p_delivery_id);
4905: wsh_debug_sv.log(l_module_name, 'Delivery Detail Id', p_del_det_int_rec.delivery_detail_id);
4906: END IF;
4907:
4908: -- Add To Packing Table, only for update cases
4909: IF(p_update_mode = 'UPDATE') THEN
4911: FETCH intf_parent_det_cur INTO l_intf_parent_det_id, l_container_flag;
4912: CLOSE intf_parent_det_cur;
4913:
4914: IF l_debug_on THEN
4915: wsh_debug_sv.log (l_module_name, 'l_container_flag', l_container_flag);
4916: wsh_debug_sv.log (l_module_name, 'Parent del.detail in intef assgn', l_intf_parent_det_id);
4917: wsh_debug_sv.log(l_module_name, 'Organization id of detail', p_del_det_int_rec.organization_id);
4918: END IF;
4919:
4912: CLOSE intf_parent_det_cur;
4913:
4914: IF l_debug_on THEN
4915: wsh_debug_sv.log (l_module_name, 'l_container_flag', l_container_flag);
4916: wsh_debug_sv.log (l_module_name, 'Parent del.detail in intef assgn', l_intf_parent_det_id);
4917: wsh_debug_sv.log(l_module_name, 'Organization id of detail', p_del_det_int_rec.organization_id);
4918: END IF;
4919:
4920: IF(l_intf_parent_det_id IS NOT NULL) THEN
4913:
4914: IF l_debug_on THEN
4915: wsh_debug_sv.log (l_module_name, 'l_container_flag', l_container_flag);
4916: wsh_debug_sv.log (l_module_name, 'Parent del.detail in intef assgn', l_intf_parent_det_id);
4917: wsh_debug_sv.log(l_module_name, 'Organization id of detail', p_del_det_int_rec.organization_id);
4918: END IF;
4919:
4920: IF(l_intf_parent_det_id IS NOT NULL) THEN
4921:
4925: OPEN base_detail_cur(l_intf_parent_det_id);
4926: FETCH base_detail_cur INTO l_packing_detail_rec.parent_delivery_detail_id;
4927:
4928: IF l_debug_on THEN
4929: wsh_debug_sv.log (l_module_name, 'Base table detail id', l_packing_detail_rec.parent_delivery_detail_id);
4930: END IF;
4931:
4932: IF( base_detail_cur%NOTFOUND) THEN
4933: raise packing_error;
4963: FETCH inv_detail_cur INTO l_delivery_detail_id,l_subinventory,l_locator_id;
4964: CLOSE inv_detail_cur;
4965: --
4966: IF l_debug_on THEN
4967: wsh_debug_sv.log (l_module_name, 'Base table delivery detail id', l_delivery_detail_id);
4968: wsh_debug_sv.log (l_module_name, 'Base table subinventory', l_subinventory);
4969: wsh_debug_sv.log (l_module_name, 'Base table locator ', l_locator_id);
4970: END IF;
4971: --
4964: CLOSE inv_detail_cur;
4965: --
4966: IF l_debug_on THEN
4967: wsh_debug_sv.log (l_module_name, 'Base table delivery detail id', l_delivery_detail_id);
4968: wsh_debug_sv.log (l_module_name, 'Base table subinventory', l_subinventory);
4969: wsh_debug_sv.log (l_module_name, 'Base table locator ', l_locator_id);
4970: END IF;
4971: --
4972: l_changed_attributes.subinventory := nvl(p_del_det_int_rec.subinventory,l_subinventory);
4965: --
4966: IF l_debug_on THEN
4967: wsh_debug_sv.log (l_module_name, 'Base table delivery detail id', l_delivery_detail_id);
4968: wsh_debug_sv.log (l_module_name, 'Base table subinventory', l_subinventory);
4969: wsh_debug_sv.log (l_module_name, 'Base table locator ', l_locator_id);
4970: END IF;
4971: --
4972: l_changed_attributes.subinventory := nvl(p_del_det_int_rec.subinventory,l_subinventory);
4973:
5030: l_changed_attributes.cust_po_number := p_del_det_int_rec.cust_po_number;
5031: l_changed_attributes.packing_instructions := p_del_det_int_rec.packing_instructions;
5032: l_changed_attributes.shipping_instructions := p_del_det_int_rec.shipping_instructions;
5033: IF l_debug_on THEN
5034: wsh_debug_sv.log(l_module_name,'Orig Container Name',
5035: p_del_det_int_rec.container_name);
5036: wsh_debug_sv.log(l_module_name,'delivery detail id',
5037: p_del_det_int_rec.delivery_detail_id);
5038: wsh_debug_sv.log(l_module_name,'container flag',
5032: l_changed_attributes.shipping_instructions := p_del_det_int_rec.shipping_instructions;
5033: IF l_debug_on THEN
5034: wsh_debug_sv.log(l_module_name,'Orig Container Name',
5035: p_del_det_int_rec.container_name);
5036: wsh_debug_sv.log(l_module_name,'delivery detail id',
5037: p_del_det_int_rec.delivery_detail_id);
5038: wsh_debug_sv.log(l_module_name,'container flag',
5039: p_del_det_int_rec.container_flag);
5040: END IF;
5034: wsh_debug_sv.log(l_module_name,'Orig Container Name',
5035: p_del_det_int_rec.container_name);
5036: wsh_debug_sv.log(l_module_name,'delivery detail id',
5037: p_del_det_int_rec.delivery_detail_id);
5038: wsh_debug_sv.log(l_module_name,'container flag',
5039: p_del_det_int_rec.container_flag);
5040: END IF;
5041:
5042: --Bugfix 11070825 removed concatenation of dd to container name in case of CMS org
5054: nvl(p_del_det_int_rec.container_name,FND_API.G_MISS_CHAR);
5055: END IF;
5056:
5057: IF l_debug_on THEN
5058: wsh_debug_sv.log(l_module_name,'New container name',
5059: l_changed_attributes.container_name);
5060: END IF;
5061:
5062: l_changed_attributes.container_flag := p_del_det_int_rec.container_flag ;
5062: l_changed_attributes.container_flag := p_del_det_int_rec.container_flag ;
5063: l_changed_attributes.delivery_detail_id := p_del_det_int_rec.delivery_detail_id;
5064:
5065: IF l_debug_on THEN
5066: wsh_debug_sv.log (l_module_name, 'Shipped Quantity ', p_del_det_int_rec.shipped_quantity);
5067: END IF;
5068:
5069: IF nvl(p_del_det_int_rec.shipped_quantity,FND_API.G_MISS_NUM) = FND_API.G_MISS_NUM THEN
5070: l_changed_attributes.shipped_quantity := 0;
5091: l_changed_attributes.to_serial_number := p_del_det_int_rec.to_serial_number;
5092: l_changed_attributes.requested_quantity_uom := p_del_det_int_rec.requested_quantity_uom;
5093:
5094: if l_debug_on then
5095: wsh_debug_sv.log(l_module_name, 'subinventory:', l_changed_attributes.subinventory);
5096: wsh_debug_sv.log(l_module_name, 'Container Name:', l_changed_attributes.container_name);
5097: wsh_debug_sv.log(l_module_name, 'Tracking Number', l_changed_attributes.tracking_number);
5098: end if;
5099:
5092: l_changed_attributes.requested_quantity_uom := p_del_det_int_rec.requested_quantity_uom;
5093:
5094: if l_debug_on then
5095: wsh_debug_sv.log(l_module_name, 'subinventory:', l_changed_attributes.subinventory);
5096: wsh_debug_sv.log(l_module_name, 'Container Name:', l_changed_attributes.container_name);
5097: wsh_debug_sv.log(l_module_name, 'Tracking Number', l_changed_attributes.tracking_number);
5098: end if;
5099:
5100:
5093:
5094: if l_debug_on then
5095: wsh_debug_sv.log(l_module_name, 'subinventory:', l_changed_attributes.subinventory);
5096: wsh_debug_sv.log(l_module_name, 'Container Name:', l_changed_attributes.container_name);
5097: wsh_debug_sv.log(l_module_name, 'Tracking Number', l_changed_attributes.tracking_number);
5098: end if;
5099:
5100:
5101:
5106: -- kvenkate. Removed the code for direct update.
5107: */
5108:
5109: IF l_debug_on THEN
5110: wsh_debug_sv.pop(l_module_name);
5111: END IF;
5112:
5113: EXCEPTION
5114: WHEN packing_error THEN
5116: CLOSE base_detail_cur;
5117: END IF;
5118: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5119: IF l_debug_on THEN
5120: WSH_DEBUG_SV.logmsg(l_module_name,'packing_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5121: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:packing_error');
5122: END IF;
5123:
5124: WHEN Others THEN
5117: END IF;
5118: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5119: IF l_debug_on THEN
5120: WSH_DEBUG_SV.logmsg(l_module_name,'packing_error exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5121: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:packing_error');
5122: END IF;
5123:
5124: WHEN Others THEN
5125: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5123:
5124: WHEN Others THEN
5125: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5126: IF l_debug_on THEN
5127: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5128: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5129: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5130: END IF;
5131:
5124: WHEN Others THEN
5125: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5126: IF l_debug_on THEN
5127: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5128: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5129: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5130: END IF;
5131:
5132: END Add_To_Update_Table;
5125: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5126: IF l_debug_on THEN
5127: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5128: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5129: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5130: END IF;
5131:
5132: END Add_To_Update_Table;
5133:
5160: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5161: --
5162: IF l_debug_on IS NULL
5163: THEN
5164: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5165: END IF;
5166: --
5167: IF l_debug_on THEN
5168: wsh_debug_sv.push(l_module_name, 'Process_Cancel');
5164: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5165: END IF;
5166: --
5167: IF l_debug_on THEN
5168: wsh_debug_sv.push(l_module_name, 'Process_Cancel');
5169: wsh_debug_sv.log (l_module_name, 'Delivery Id', p_delivery_id);
5170: END IF;
5171:
5172: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5165: END IF;
5166: --
5167: IF l_debug_on THEN
5168: wsh_debug_sv.push(l_module_name, 'Process_Cancel');
5169: wsh_debug_sv.log (l_module_name, 'Delivery Id', p_delivery_id);
5170: END IF;
5171:
5172: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5173:
5181: l_del_det_int_rec.source_code := del_details_rec.source_code;
5182: l_del_det_int_rec.container_flag := del_details_rec.container_flag;
5183: l_del_det_int_rec.requested_quantity_uom := del_details_rec.requested_quantity_uom;
5184: IF l_debug_on THEN
5185: wsh_debug_sv.log (l_module_name, 'For cancel, delivery detail id',l_del_det_int_rec.delivery_detail_id);
5186: END IF;
5187:
5188: Add_To_Update_Table(
5189: l_del_det_int_rec,
5191: p_delivery_id,
5192: l_return_status);
5193:
5194: IF l_debug_on THEN
5195: wsh_debug_sv.log (l_module_name, 'return status from add_to_update_tbl', l_return_status);
5196: END IF;
5197:
5198: END LOOP; -- for del_details_rec
5199:
5205: x_return_status => l_return_status
5206: );
5207:
5208: IF l_debug_on THEN
5209: wsh_debug_sv.log (l_module_name, 'Update_Delivery_Details l_return_status',l_return_status);
5210: END IF;
5211:
5212: IF l_debug_on THEN
5213: wsh_debug_sv.pop(l_module_name);
5209: wsh_debug_sv.log (l_module_name, 'Update_Delivery_Details l_return_status',l_return_status);
5210: END IF;
5211:
5212: IF l_debug_on THEN
5213: wsh_debug_sv.pop(l_module_name);
5214: END IF;
5215:
5216: EXCEPTION
5217: WHEN Others THEN
5216: EXCEPTION
5217: WHEN Others THEN
5218: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5219: IF l_debug_on THEN
5220: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5221: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5222: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5223: END IF;
5224:
5217: WHEN Others THEN
5218: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5219: IF l_debug_on THEN
5220: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5221: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5222: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5223: END IF;
5224:
5225: END Process_Cancel;
5218: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5219: IF l_debug_on THEN
5220: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5221: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5222: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5223: END IF;
5224:
5225: END Process_Cancel;
5226:
5251: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5252: --
5253: IF l_debug_on IS NULL
5254: THEN
5255: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5256: END IF;
5257: --
5258: IF l_debug_on THEN
5259: wsh_debug_sv.push(l_module_name, 'Lock_Delivery_And_Details');
5255: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5256: END IF;
5257: --
5258: IF l_debug_on THEN
5259: wsh_debug_sv.push(l_module_name, 'Lock_Delivery_And_Details');
5260: wsh_debug_sv.log (l_module_name, 'Delivery Id', p_delivery_id);
5261: END IF;
5262:
5263: x_return_status := wsh_util_core.g_ret_sts_success;
5256: END IF;
5257: --
5258: IF l_debug_on THEN
5259: wsh_debug_sv.push(l_module_name, 'Lock_Delivery_And_Details');
5260: wsh_debug_sv.log (l_module_name, 'Delivery Id', p_delivery_id);
5261: END IF;
5262:
5263: x_return_status := wsh_util_core.g_ret_sts_success;
5264:
5262:
5263: x_return_status := wsh_util_core.g_ret_sts_success;
5264:
5265: IF l_debug_on THEN
5266: wsh_debug_sv.logmsg(l_module_name, 'Locking the Delivery');
5267: END IF;
5268: SELECT delivery_id
5269: INTO l_dummy_id
5270: FROM wsh_new_deliveries
5271: WHERE delivery_id = p_delivery_id
5272: FOR UPDATE NOWAIT;
5273:
5274: IF l_debug_on THEN
5275: wsh_debug_sv.logmsg(l_module_name, 'Locking the delivery details');
5276: END IF;
5277: OPEN lock_delivery_details;
5278: FETCH lock_delivery_details INTO det_ids;
5279: IF lock_delivery_details%NOTFOUND THEN
5277: OPEN lock_delivery_details;
5278: FETCH lock_delivery_details INTO det_ids;
5279: IF lock_delivery_details%NOTFOUND THEN
5280: IF l_debug_on THEN
5281: wsh_debug_sv.logmsg(l_module_name, 'No details found');
5282: END IF;
5283:
5284: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5285: CLOSE lock_delivery_details;
5287: IF (lock_delivery_details%ISOPEN) THEN
5288: CLOSE lock_delivery_details;
5289: END IF;
5290: IF l_debug_on THEN
5291: wsh_debug_sv.pop(l_module_name);
5292: END IF;
5293:
5294: EXCEPTION
5295: WHEN RECORD_LOCKED THEN
5295: WHEN RECORD_LOCKED THEN
5296: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5297:
5298: IF l_debug_on THEN
5299: wsh_debug_sv.logmsg(l_module_name, 'Could not obtain lock');
5300: END IF;
5301:
5302: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
5303: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
5301:
5302: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
5303: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
5304: IF l_debug_on THEN
5305: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5306: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
5307: END IF;
5308:
5309: WHEN others THEN
5302: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
5303: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
5304: IF l_debug_on THEN
5305: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5306: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
5307: END IF;
5308:
5309: WHEN others THEN
5310: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5308:
5309: WHEN others THEN
5310: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5311: IF l_debug_on THEN
5312: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5313: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5314: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5315: END IF;
5316: END Lock_Delivery_And_Details;
5309: WHEN others THEN
5310: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5311: IF l_debug_on THEN
5312: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5313: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5314: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5315: END IF;
5316: END Lock_Delivery_And_Details;
5317:
5310: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5311: IF l_debug_on THEN
5312: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5313: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5314: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5315: END IF;
5316: END Lock_Delivery_And_Details;
5317:
5318:
5385: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5386: --
5387: IF l_debug_on IS NULL
5388: THEN
5389: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5390: END IF;
5391: --
5392: IF l_debug_on THEN
5393: wsh_debug_sv.push(l_module_name, 'Lock_Delivery_Details');
5389: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5390: END IF;
5391: --
5392: IF l_debug_on THEN
5393: wsh_debug_sv.push(l_module_name, 'Lock_Delivery_Details');
5394: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
5395: END IF;
5396:
5397: x_return_status := wsh_util_core.g_ret_sts_success;
5390: END IF;
5391: --
5392: IF l_debug_on THEN
5393: wsh_debug_sv.push(l_module_name, 'Lock_Delivery_Details');
5394: wsh_debug_sv.log (l_module_name, 'Delivery Interface Id', p_delivery_interface_id);
5395: END IF;
5396:
5397: x_return_status := wsh_util_core.g_ret_sts_success;
5398:
5396:
5397: x_return_status := wsh_util_core.g_ret_sts_success;
5398:
5399: IF l_debug_on THEN
5400: wsh_debug_sv.logmsg(l_module_name, 'Locking the delivery details');
5401: END IF;
5402: OPEN lock_delivery_details;
5403: FETCH lock_delivery_details INTO det_ids;
5404: IF lock_delivery_details%NOTFOUND THEN
5402: OPEN lock_delivery_details;
5403: FETCH lock_delivery_details INTO det_ids;
5404: IF lock_delivery_details%NOTFOUND THEN
5405: IF l_debug_on THEN
5406: wsh_debug_sv.logmsg(l_module_name, 'No details found');
5407: END IF;
5408:
5409: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5410: CLOSE lock_delivery_details;
5412: IF (lock_delivery_details%ISOPEN) THEN
5413: CLOSE lock_delivery_details;
5414: END IF;
5415: IF l_debug_on THEN
5416: wsh_debug_sv.pop(l_module_name);
5417: END IF;
5418:
5419: EXCEPTION
5420: WHEN RECORD_LOCKED THEN
5420: WHEN RECORD_LOCKED THEN
5421: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5422:
5423: IF l_debug_on THEN
5424: wsh_debug_sv.logmsg(l_module_name, 'Could not obtain lock');
5425: END IF;
5426:
5427: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
5428: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
5426:
5427: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
5428: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
5429: IF l_debug_on THEN
5430: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5431: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
5432: END IF;
5433:
5434: WHEN others THEN
5427: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
5428: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
5429: IF l_debug_on THEN
5430: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
5431: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
5432: END IF;
5433:
5434: WHEN others THEN
5435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5433:
5434: WHEN others THEN
5435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5436: IF l_debug_on THEN
5437: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5438: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5440: END IF;
5441: END Lock_Delivery_Details;
5434: WHEN others THEN
5435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5436: IF l_debug_on THEN
5437: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5438: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5440: END IF;
5441: END Lock_Delivery_Details;
5442:
5435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5436: IF l_debug_on THEN
5437: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5438: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5440: END IF;
5441: END Lock_Delivery_Details;
5442:
5443: PROCEDURE log_errors(
5456: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
5457: --
5458: IF l_debug_on IS NULL
5459: THEN
5460: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5461: END IF;
5462: --
5463: IF l_debug_on THEN
5464: wsh_debug_sv.push(l_module_name, 'log_errors');
5460: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
5461: END IF;
5462: --
5463: IF l_debug_on THEN
5464: wsh_debug_sv.push(l_module_name, 'log_errors');
5465: wsh_debug_sv.log (l_module_name, 'Interface table name', p_loc_interface_errors_rec.p_interface_table_name);
5466: wsh_debug_sv.log (l_module_name, 'Interface Id', p_loc_interface_errors_rec.p_interface_id);
5467: wsh_debug_sv.log (l_module_name, 'Message Name', p_loc_interface_errors_rec.p_message_name);
5468: END IF;
5461: END IF;
5462: --
5463: IF l_debug_on THEN
5464: wsh_debug_sv.push(l_module_name, 'log_errors');
5465: wsh_debug_sv.log (l_module_name, 'Interface table name', p_loc_interface_errors_rec.p_interface_table_name);
5466: wsh_debug_sv.log (l_module_name, 'Interface Id', p_loc_interface_errors_rec.p_interface_id);
5467: wsh_debug_sv.log (l_module_name, 'Message Name', p_loc_interface_errors_rec.p_message_name);
5468: END IF;
5469:
5462: --
5463: IF l_debug_on THEN
5464: wsh_debug_sv.push(l_module_name, 'log_errors');
5465: wsh_debug_sv.log (l_module_name, 'Interface table name', p_loc_interface_errors_rec.p_interface_table_name);
5466: wsh_debug_sv.log (l_module_name, 'Interface Id', p_loc_interface_errors_rec.p_interface_id);
5467: wsh_debug_sv.log (l_module_name, 'Message Name', p_loc_interface_errors_rec.p_message_name);
5468: END IF;
5469:
5470: WSH_INTERFACE_VALIDATIONS_PKG.Log_Interface_Errors(
5463: IF l_debug_on THEN
5464: wsh_debug_sv.push(l_module_name, 'log_errors');
5465: wsh_debug_sv.log (l_module_name, 'Interface table name', p_loc_interface_errors_rec.p_interface_table_name);
5466: wsh_debug_sv.log (l_module_name, 'Interface Id', p_loc_interface_errors_rec.p_interface_id);
5467: wsh_debug_sv.log (l_module_name, 'Message Name', p_loc_interface_errors_rec.p_message_name);
5468: END IF;
5469:
5470: WSH_INTERFACE_VALIDATIONS_PKG.Log_Interface_Errors(
5471: p_interface_errors_rec => p_loc_interface_errors_rec,
5473: p_api_name => p_api_name,
5474: x_return_status => x_return_status);
5475:
5476: IF l_debug_on THEN
5477: wsh_debug_sv.log (l_module_name, 'Return status from Log_Interface_Errors', x_return_status);
5478: wsh_debug_sv.pop(l_module_name);
5479: END IF;
5480: EXCEPTION
5481: WHEN others THEN
5474: x_return_status => x_return_status);
5475:
5476: IF l_debug_on THEN
5477: wsh_debug_sv.log (l_module_name, 'Return status from Log_Interface_Errors', x_return_status);
5478: wsh_debug_sv.pop(l_module_name);
5479: END IF;
5480: EXCEPTION
5481: WHEN others THEN
5482: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5480: EXCEPTION
5481: WHEN others THEN
5482: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5483: IF l_debug_on THEN
5484: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5485: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5486: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5487: END IF;
5488:
5481: WHEN others THEN
5482: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5483: IF l_debug_on THEN
5484: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5485: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5486: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5487: END IF;
5488:
5489: END Log_Errors;
5482: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5483: IF l_debug_on THEN
5484: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,
5485: WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5486: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5487: END IF;
5488:
5489: END Log_Errors;
5490:
5514: l_debug_on := wsh_debug_interface.g_debug;
5515:
5516: --
5517: IF l_debug_on IS NULL THEN
5518: l_debug_on := wsh_debug_sv.is_debug_enabled;
5519: END IF;
5520:
5521: --
5522: IF l_debug_on THEN
5519: END IF;
5520:
5521: --
5522: IF l_debug_on THEN
5523: wsh_debug_sv.push(l_module_name, 'split_delivery_detail');
5524: wsh_debug_sv.LOG(l_module_name, 'p_delivery_detail_id',p_delivery_detail_id);
5525: wsh_debug_sv.LOG(l_module_name, 'p_qty_to_split', p_qty_to_split);
5526: END IF;
5527:
5520:
5521: --
5522: IF l_debug_on THEN
5523: wsh_debug_sv.push(l_module_name, 'split_delivery_detail');
5524: wsh_debug_sv.LOG(l_module_name, 'p_delivery_detail_id',p_delivery_detail_id);
5525: wsh_debug_sv.LOG(l_module_name, 'p_qty_to_split', p_qty_to_split);
5526: END IF;
5527:
5528: OPEN base_detail_qty(p_delivery_detail_id);
5521: --
5522: IF l_debug_on THEN
5523: wsh_debug_sv.push(l_module_name, 'split_delivery_detail');
5524: wsh_debug_sv.LOG(l_module_name, 'p_delivery_detail_id',p_delivery_detail_id);
5525: wsh_debug_sv.LOG(l_module_name, 'p_qty_to_split', p_qty_to_split);
5526: END IF;
5527:
5528: OPEN base_detail_qty(p_delivery_detail_id);
5529: FETCH base_detail_qty INTO l_base_req_qty;
5529: FETCH base_detail_qty INTO l_base_req_qty;
5530: CLOSE base_detail_qty;
5531:
5532: IF l_debug_on THEN
5533: wsh_debug_sv.LOG(l_module_name, 'Base req qty', l_base_req_qty);
5534: END IF;
5535:
5536: IF (p_qty_to_split > l_base_req_qty) THEN
5537: -- Quantity has exceeded
5541: NULL;
5542: ELSE
5543: -- call split_delivery_details
5544: IF l_debug_on THEN
5545: wsh_debug_sv.LOG(l_module_name, 'qty to split', p_qty_to_split);
5546: END IF;
5547:
5548: IF p_qty_to_split IS NULL THEN
5549: fnd_message.set_name('WSH', 'WSH_REQUIRED_FIELD_NULL');
5559: x_new_detail_id => x_new_detail_id,
5560: x_return_status => l_return_status);
5561:
5562: IF l_debug_on THEN
5563: wsh_debug_sv.LOG(l_module_name, 'Split_Delivery_Details x_new_detail_id,l_return_status',
5564: x_new_detail_id || ',' || l_return_status);
5565: END IF;
5566:
5567: wsh_util_core.api_post_call(
5571: END IF;
5572:
5573: IF l_number_of_warnings > 0 THEN
5574: IF l_debug_on THEN
5575: wsh_debug_sv.logmsg (l_module_name,'Number of warnings', l_number_of_warnings);
5576: END IF;
5577: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
5578: END IF;
5579:
5579:
5580: x_return_status := wsh_util_core.g_ret_sts_success;
5581:
5582: IF l_debug_on THEN
5583: wsh_debug_sv.pop(l_module_name);
5584: END IF;
5585: EXCEPTION
5586: WHEN fnd_api.g_exc_error THEN
5587: x_return_status := fnd_api.g_ret_sts_error;
5586: WHEN fnd_api.g_exc_error THEN
5587: x_return_status := fnd_api.g_ret_sts_error;
5588: --
5589: IF l_debug_on THEN
5590: wsh_debug_sv.logmsg(l_module_name,
5591: 'FND_API.G_EXC_ERROR exception has occured.',
5592: wsh_debug_sv.c_excep_level);
5593: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
5594: END IF;
5588: --
5589: IF l_debug_on THEN
5590: wsh_debug_sv.logmsg(l_module_name,
5591: 'FND_API.G_EXC_ERROR exception has occured.',
5592: wsh_debug_sv.c_excep_level);
5593: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
5594: END IF;
5595: --
5596: WHEN fnd_api.g_exc_unexpected_error THEN
5589: IF l_debug_on THEN
5590: wsh_debug_sv.logmsg(l_module_name,
5591: 'FND_API.G_EXC_ERROR exception has occured.',
5592: wsh_debug_sv.c_excep_level);
5593: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
5594: END IF;
5595: --
5596: WHEN fnd_api.g_exc_unexpected_error THEN
5597: x_return_status := fnd_api.g_ret_sts_unexp_error;
5596: WHEN fnd_api.g_exc_unexpected_error THEN
5597: x_return_status := fnd_api.g_ret_sts_unexp_error;
5598: --
5599: IF l_debug_on THEN
5600: wsh_debug_sv.logmsg(l_module_name,
5601: 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',
5602: wsh_debug_sv.c_excep_level);
5603: wsh_debug_sv.pop(l_module_name,
5604: 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5598: --
5599: IF l_debug_on THEN
5600: wsh_debug_sv.logmsg(l_module_name,
5601: 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',
5602: wsh_debug_sv.c_excep_level);
5603: wsh_debug_sv.pop(l_module_name,
5604: 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5605: END IF;
5606: --
5599: IF l_debug_on THEN
5600: wsh_debug_sv.logmsg(l_module_name,
5601: 'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',
5602: wsh_debug_sv.c_excep_level);
5603: wsh_debug_sv.pop(l_module_name,
5604: 'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5605: END IF;
5606: --
5607: WHEN wsh_util_core.g_exc_warning THEN
5607: WHEN wsh_util_core.g_exc_warning THEN
5608: x_return_status := wsh_util_core.g_ret_sts_warning;
5609: --
5610: IF l_debug_on THEN
5611: wsh_debug_sv.logmsg(l_module_name,
5612: 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',
5613: wsh_debug_sv.c_excep_level);
5614: wsh_debug_sv.pop(l_module_name,
5615: 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
5609: --
5610: IF l_debug_on THEN
5611: wsh_debug_sv.logmsg(l_module_name,
5612: 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',
5613: wsh_debug_sv.c_excep_level);
5614: wsh_debug_sv.pop(l_module_name,
5615: 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
5616: END IF;
5617: WHEN OTHERS THEN
5610: IF l_debug_on THEN
5611: wsh_debug_sv.logmsg(l_module_name,
5612: 'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',
5613: wsh_debug_sv.c_excep_level);
5614: wsh_debug_sv.pop(l_module_name,
5615: 'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
5616: END IF;
5617: WHEN OTHERS THEN
5618: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
5618: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
5619: wsh_util_core.default_handler('WSH_INTERFACE_COMMON_ACTIONS.split_delivery_detail');
5620: --
5621: IF l_debug_on THEN
5622: wsh_debug_sv.logmsg(l_module_name,
5623: 'Unexpected error has occured. Oracle error message is '
5624: || SQLERRM,
5625: wsh_debug_sv.c_unexpec_err_level);
5626: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
5621: IF l_debug_on THEN
5622: wsh_debug_sv.logmsg(l_module_name,
5623: 'Unexpected error has occured. Oracle error message is '
5624: || SQLERRM,
5625: wsh_debug_sv.c_unexpec_err_level);
5626: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
5627: END IF;
5628: END split_delivery_detail;
5629:
5622: wsh_debug_sv.logmsg(l_module_name,
5623: 'Unexpected error has occured. Oracle error message is '
5624: || SQLERRM,
5625: wsh_debug_sv.c_unexpec_err_level);
5626: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
5627: END IF;
5628: END split_delivery_detail;
5629:
5630: