9: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_NEW_DELIVERY_ACTIONS';
10: --
11:
12: -- Global variables used in Cont_Tobe_Unassigned and Get_Topmost_Unassignable_Cont
13: g_container_lines wsh_util_core.id_tab_type ;
14: g_traversed_containers wsh_util_core.id_tab_type;
15:
16: /* Added the following global variable for Ship Message Customization project
17: * for R12. This variable is accessed in procedure CONFIRM_DELIVERY. This
10: --
11:
12: -- Global variables used in Cont_Tobe_Unassigned and Get_Topmost_Unassignable_Cont
13: g_container_lines wsh_util_core.id_tab_type ;
14: g_traversed_containers wsh_util_core.id_tab_type;
15:
16: /* Added the following global variable for Ship Message Customization project
17: * for R12. This variable is accessed in procedure CONFIRM_DELIVERY. This
18: * variable is used to cache the Message Severity Level */
57:
58: -- K: MDC: Forward declaration
59:
60: PROCEDURE Confirm_Consolidation_Delivery(
61: p_consol_del_tab IN wsh_util_core.id_tab_type,
62: x_return_status OUT NOCOPY VARCHAR2);
63:
64: PROCEDURE Create_Deconsol_Trips(
65: p_deliveries_tab IN wsh_util_core.id_tab_type,
61: p_consol_del_tab IN wsh_util_core.id_tab_type,
62: x_return_status OUT NOCOPY VARCHAR2);
63:
64: PROCEDURE Create_Deconsol_Trips(
65: p_deliveries_tab IN wsh_util_core.id_tab_type,
66: x_return_status OUT NOCOPY VARCHAR2);
67:
68:
69: /* This procedure identifies the topmost container which contains only packed or unpacked staged line(s)
77: l_return_status Return Status
78: */
79:
80: PROCEDURE get_topmost_unassignable_cont ( p_curr_line_id IN NUMBER,
81: p_staged_lines IN wsh_util_core.id_tab_type,
82: x_return_status OUT NOCOPY VARCHAR2
83: )
84: IS
85:
96:
97: l_container_id NUMBER := NULL;
98: l_detail_found BOOLEAN ;
99:
100: x_immediate_contents wsh_util_core.id_tab_type;
101:
102: l_contents wsh_util_core.id_tab_type;
103:
104: get_lines_curr_fetch NUMBER;
98: l_detail_found BOOLEAN ;
99:
100: x_immediate_contents wsh_util_core.id_tab_type;
101:
102: l_contents wsh_util_core.id_tab_type;
103:
104: get_lines_curr_fetch NUMBER;
105: get_lines_prev_fetch NUMBER;
106:
128: IF l_debug_on THEN
129: WSH_DEBUG_SV.push(l_module_name);
130: END IF;
131: --
132: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
133:
134: OPEN get_container (p_curr_line_id) ;
135: FETCH get_container INTO l_container_id;
136: IF get_container%NOTFOUND THEN
238: WSH_DEBUG_SV.logmsg(l_module_name,'Recursive call for container :'||l_container_id);
239: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.GET_TOPMOST_UNASSIGNABLE_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
240: END IF;
241: get_topmost_unassignable_cont( l_container_id, p_staged_lines, l_return_status );
242: IF l_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
243: IF l_debug_on THEN
244: WSH_DEBUG_SV.log(l_module_name, 'Return Status from WSH_NEW_DELIVERY_ACTIONS.GET_TOPMOST_UNASSIGNABLE_CONT : ', l_return_status);
245: END IF;
246: g_container_lines.delete;
262: --
263:
264: EXCEPTION
265: WHEN OTHERS THEN
266: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Get_Topmost_Unassignable_Cont',l_module_name);
267: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
268: IF get_lines%ISOPEN THEN
269: CLOSE get_lines;
270: END IF;
263:
264: EXCEPTION
265: WHEN OTHERS THEN
266: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Get_Topmost_Unassignable_Cont',l_module_name);
267: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
268: IF get_lines%ISOPEN THEN
269: CLOSE get_lines;
270: END IF;
271: IF l_debug_on THEN
277: /* This procedure takes input as staged lines and then calls get_topmost_unassignable_cont to
278: see if the parent container(s) can also be unassigned. It then returns the list of lines or
279: containers which should be unassigned back to the calling program.
280: */
281: PROCEDURE Cont_ToBe_Unassigned ( p_staged_lines IN wsh_util_core.id_tab_type,
282: x_unassigned_cont OUT NOCOPY wsh_util_core.id_tab_type,
283: x_return_status OUT NOCOPY VARCHAR2
284: )
285: IS
278: see if the parent container(s) can also be unassigned. It then returns the list of lines or
279: containers which should be unassigned back to the calling program.
280: */
281: PROCEDURE Cont_ToBe_Unassigned ( p_staged_lines IN wsh_util_core.id_tab_type,
282: x_unassigned_cont OUT NOCOPY wsh_util_core.id_tab_type,
283: x_return_status OUT NOCOPY VARCHAR2
284: )
285: IS
286:
308: IF l_debug_on THEN
309: WSH_DEBUG_SV.push(l_module_name);
310: END IF;
311: --
312: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
313:
314: IF ( p_staged_lines.COUNT = 0 ) THEN
315: IF l_debug_on THEN
316: WSH_DEBUG_SV.pop(l_module_name);
331: END IF;
332: --
333: get_topmost_unassignable_cont( p_staged_lines(i), p_staged_lines, l_return_status );
334:
335: IF l_return_status IN ( WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
336: IF l_debug_on THEN
337: WSH_DEBUG_SV.log(l_module_name, 'Return Status from WSH_NEW_DELIVERY_ACTIONS.GET_TOPMOST_UNASSIGNABLE_CONT : ', l_return_status);
338: END IF;
339: x_unassigned_cont.delete;
361: --
362:
363: EXCEPTION
364: WHEN OTHERS THEN
365: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Cont_ToBe_Unassigned',l_module_name);
366: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
367: IF l_debug_on THEN
368: WSH_DEBUG_SV.pop(l_module_name,'When Others');
369: END IF;
362:
363: EXCEPTION
364: WHEN OTHERS THEN
365: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Cont_ToBe_Unassigned',l_module_name);
366: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
367: IF l_debug_on THEN
368: WSH_DEBUG_SV.pop(l_module_name,'When Others');
369: END IF;
370: END Cont_ToBe_Unassigned;
429: ELSE
430: l_cnt_flag := 'C';
431: END IF;
432: --
433: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
434: --
435: open l_del_contents_csr(p_delivery_id, l_cnt_flag);
436: fetch l_del_contents_csr into l_del_valid_flag;
437: close l_del_contents_csr;
449: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
450: END IF;
451:
452: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
453: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
454: --
455: END IF;
456: --
457: -- Debug Statements
464: --}
465: EXCEPTION
466: --{
467: WHEN OTHERS THEN
468: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.VALIDATE_DEL_CONTAINERS',l_module_name);
469: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
470: IF l_debug_on THEN
471: WSH_DEBUG_SV.pop(l_module_name,'When Others');
472: END IF;
465: EXCEPTION
466: --{
467: WHEN OTHERS THEN
468: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.VALIDATE_DEL_CONTAINERS',l_module_name);
469: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
470: IF l_debug_on THEN
471: WSH_DEBUG_SV.pop(l_module_name,'When Others');
472: END IF;
473:
476: -- bug 4505105
477:
478: /* J TP Release */
479: PROCEDURE FIRM
480: (p_del_rows IN wsh_util_core.id_tab_type,
481: x_return_status OUT NOCOPY VARCHAR2) IS
482:
483: l_return_status VARCHAR2(1);
484: l_net_weight NUMBER;
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.push(l_module_name);
511: END IF;
512: --
513: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
514:
515:
516: IF (p_del_rows.count = 0) THEN
517: raise others;
525: END IF;
526:
527: wsh_delivery_validations.check_plan( p_del_rows(i), x_return_status);
528:
529: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
530: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_FIRM_ERROR');
531:
532: IF l_debug_on THEN
533: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
533: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
534: END IF;
535:
536: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
537: wsh_util_core.add_message(x_return_status);
538: l_num_error := l_num_error + 1;
539: goto loop_end;
540: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
541: l_num_warn := l_num_warn + 1;
536: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
537: wsh_util_core.add_message(x_return_status);
538: l_num_error := l_num_error + 1;
539: goto loop_end;
540: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
541: l_num_warn := l_num_warn + 1;
542: END IF;
543:
544: wsh_tp_release.firm_entity( p_entity => 'DLVY',
543:
544: wsh_tp_release.firm_entity( p_entity => 'DLVY',
545: p_entity_id =>p_del_rows(i),
546: x_return_status =>x_return_status);
547: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
548: IF x_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING THEN
549: l_num_warn := l_num_warn + 1;
550: ELSE
551: l_num_error:=l_num_error+1;
544: wsh_tp_release.firm_entity( p_entity => 'DLVY',
545: p_entity_id =>p_del_rows(i),
546: x_return_status =>x_return_status);
547: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
548: IF x_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING THEN
549: l_num_warn := l_num_warn + 1;
550: ELSE
551: l_num_error:=l_num_error+1;
552: END IF;
559:
560:
561: IF (p_del_rows.count = 1) THEN
562: IF (l_num_warn > 0) AND (l_num_error = 0) THEN
563: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
564: END IF;
565: ELSIF (p_del_rows.count > 1) THEN
566: IF (l_num_error > 0) OR (l_num_warn > 0) THEN
567: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_FIRM_SUMMARY');
569: FND_MESSAGE.SET_TOKEN('NUM_WARN',l_num_warn);
570: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',p_del_rows.count - l_num_error - l_num_warn);
571:
572: IF (p_del_rows.count = l_num_error) THEN
573: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
574: ELSE
575: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
576: END IF;
577:
571:
572: IF (p_del_rows.count = l_num_error) THEN
573: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
574: ELSE
575: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
576: END IF;
577:
578: wsh_util_core.add_message(x_return_status);
579: ELSE
574: ELSE
575: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
576: END IF;
577:
578: wsh_util_core.add_message(x_return_status);
579: ELSE
580: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
581: END IF;
582: END IF;
576: END IF;
577:
578: wsh_util_core.add_message(x_return_status);
579: ELSE
580: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
581: END IF;
582: END IF;
583:
584: IF l_debug_on THEN
586: END IF;
587:
588: EXCEPTION
589: WHEN others THEN
590: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.FIRM');
591: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
592: IF l_debug_on THEN
593: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
594: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
587:
588: EXCEPTION
589: WHEN others THEN
590: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.FIRM');
591: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
592: IF l_debug_on THEN
593: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
594: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
595: END IF;
631: -- x_return_status - Success, Warning, Error, Unexpected Error
632: -- ----------------------------------------------------------------------
633:
634: PROCEDURE Adjust_Planned_Flag(
635: p_delivery_ids IN wsh_util_core.id_tab_type,
636: p_caller IN VARCHAR2,
637: p_force_appending_limit IN VARCHAR2,
638: p_call_lcss IN VARCHAR2,
639: p_event IN VARCHAR2,
699: l_select_carrier_tbl WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
700: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
701: l_return_status VARCHAR2(1);
702: l_status_code VARCHAR2(30) := 'OP';
703: l_dels_to_update WSH_UTIL_CORE.Id_Tab_Type;
704: l_action_prms WSH_DELIVERIES_GRP.action_parameters_rectype;
705: l_delivery_out_rec WSH_DELIVERIES_GRP.Delivery_Action_Out_Rec_Type;
706: l_defaults_rec WSH_DELIVERIES_GRP.default_parameters_rectype;
707: l_msg_count NUMBER;
735: IF l_debug_on THEN
736: WSH_DEBUG_SV.push(l_module_name);
737: END IF;
738:
739: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
740:
741:
742: l_select_carrier_tbl.delete;
743: l_auto_rate_tbl.delete;
782: END IF;
783: --
784: wsh_delivery_validations.check_plan( p_delivery_ids(i), x_return_status,p_called_for_sc);
785:
786: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
787: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PLAN_ERROR');
788: --
789: -- Debug Statements
790: --
792: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
793: END IF;
794: --
795: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_ids(i)));
796: wsh_util_core.add_message(x_return_status);
797: l_num_error := l_num_error + 1;
798: goto loop_end;
799: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
800: l_num_warn := l_num_warn + 1;
795: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_ids(i)));
796: wsh_util_core.add_message(x_return_status);
797: l_num_error := l_num_error + 1;
798: goto loop_end;
799: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
800: l_num_warn := l_num_warn + 1;
801: END IF;
802:
803: l_delfirm:='N';
806: wsh_tp_release.unfirm_entity( p_entity => 'DLVY',
807: p_entity_id =>p_delivery_ids(i),
808: p_action =>'PLAN',
809: x_return_status =>x_return_status);
810: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
811: IF x_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING THEN
812: l_num_warn := l_num_warn + 1;
813: ELSE
814: goto loop_end;
807: p_entity_id =>p_delivery_ids(i),
808: p_action =>'PLAN',
809: x_return_status =>x_return_status);
810: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
811: IF x_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING THEN
812: l_num_warn := l_num_warn + 1;
813: ELSE
814: goto loop_end;
815: END IF;
826: FOR UPDATE NOWAIT;
827:
828: IF (SQL%NOTFOUND) THEN
829: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
830: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
831: wsh_util_core.add_message(x_return_status);
832: l_num_error := l_num_error + 1;
833: goto loop_end;
834: END IF;
827:
828: IF (SQL%NOTFOUND) THEN
829: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
830: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
831: wsh_util_core.add_message(x_return_status);
832: l_num_error := l_num_error + 1;
833: goto loop_end;
834: END IF;
835:
841: wsh_debug_sv.logmsg(l_module_name, 'Delivery '|| p_delivery_ids(i)||' is goinging to be planned');
842: END IF;
843:
844: -- carrier selection and rate delivery when appending limit has been reached
845: IF p_call_lcss = 'Y' and WSH_UTIL_CORE.FTE_Is_Installed = 'Y' THEN
846: OPEN c_get_unplanned_delivery(p_delivery_ids(i));
847: FETCH c_get_unplanned_delivery INTO l_organization_id, l_planned_flag, l_initial_pickup_location_id;
848: IF c_get_unplanned_delivery%NOTFOUND THEN
849: CLOSE c_get_unplanned_delivery;
868: wsh_debug_sv.logmsg(l_module_name, 'Return status from WSH_SHIPPING_PARAMS_PVT.Get is :'||l_return_status );
869: END IF;
870:
871:
872: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
873: l_num_warn := l_num_warn + 1;
874: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
875: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
876: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
870:
871:
872: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
873: l_num_warn := l_num_warn + 1;
874: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
875: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
876: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
877: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
878: wsh_util_core.get_org_name(l_organization_id));
871:
872: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
873: l_num_warn := l_num_warn + 1;
874: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
875: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
876: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
877: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
878: wsh_util_core.get_org_name(l_organization_id));
879: wsh_util_core.add_message(x_return_status,l_module_name);
874: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
875: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
876: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
877: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
878: wsh_util_core.get_org_name(l_organization_id));
879: wsh_util_core.add_message(x_return_status,l_module_name);
880: l_num_error := l_num_error+1;
881: goto loop_end;
882: END IF;
875: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
876: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
877: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
878: wsh_util_core.get_org_name(l_organization_id));
879: wsh_util_core.add_message(x_return_status,l_module_name);
880: l_num_error := l_num_error+1;
881: goto loop_end;
882: END IF;
883:
899: l_auto_rate_tbl(l_auto_rate_tbl.count).status_code := 'OP';
900: END IF;
901:
902: END IF;
903: -- IF p_call_lcss = 'Y' and WSH_UTIL_CORE.FTE_Is_Installed = 'Y' THEN
904: END IF;
905: END IF;
906: <
907: null;
945: wsh_debug_sv.logmsg(l_module_name, 'Return status from WSH_SHIPPING_PARAMS_PVT.Get is :'||l_return_status );
946: END IF;
947: -- handle return status
948:
949: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
950: l_num_warn := l_num_warn + 1;
951: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
952: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
953: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
947: -- handle return status
948:
949: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
950: l_num_warn := l_num_warn + 1;
951: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
952: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
953: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
954: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
955: wsh_util_core.get_org_name(l_organization_id));
948:
949: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
950: l_num_warn := l_num_warn + 1;
951: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
952: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
953: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
954: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
955: wsh_util_core.get_org_name(l_organization_id));
956: wsh_util_core.add_message(x_return_status,l_module_name);
951: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
952: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
953: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
954: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
955: wsh_util_core.get_org_name(l_organization_id));
956: wsh_util_core.add_message(x_return_status,l_module_name);
957: l_num_error := l_num_error+1;
958: goto end_of_loop;
959: END IF;
952: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
953: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
954: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
955: wsh_util_core.get_org_name(l_organization_id));
956: wsh_util_core.add_message(x_return_status,l_module_name);
957: l_num_error := l_num_error+1;
958: goto end_of_loop;
959: END IF;
960:
1034: IF l_planned_flag is not NULL THEN
1035: -- prepare to plan the delivery
1036: wsh_delivery_validations.check_plan( p_delivery_ids(i), x_return_status,p_called_for_sc);
1037:
1038: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1039: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PLAN_ERROR');
1040: --
1041: -- Debug Statements
1042: --
1044: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1045: END IF;
1046: --
1047: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_ids(i)));
1048: wsh_util_core.add_message(x_return_status);
1049: l_num_error := l_num_error + 1;
1050: goto end_of_loop;
1051: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1052: l_num_warn := l_num_warn + 1;
1047: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_ids(i)));
1048: wsh_util_core.add_message(x_return_status);
1049: l_num_error := l_num_error + 1;
1050: goto end_of_loop;
1051: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1052: l_num_warn := l_num_warn + 1;
1053: END IF;
1054:
1055: l_dels_to_update(l_dels_to_update.count+1) := p_delivery_ids(i);
1056: IF l_debug_on THEN
1057: wsh_debug_sv.logmsg(l_module_name, 'Delivery '|| p_delivery_ids(i)||' is goinging to be planned');
1058: END IF;
1059:
1060: IF p_call_lcss = 'Y' AND WSH_UTIL_CORE.FTE_Is_Installed = 'Y' THEN
1061: IF NVL(l_param_info.AUTO_APPLY_ROUTING_RULES, 'D') = 'E'
1062: AND l_assigned_to_trip = 'N' THEN
1063: -- call carrier selection when appending limit is reached
1064: l_select_carrier_tbl(l_select_carrier_tbl.count+1).delivery_id := p_delivery_ids(i);
1159:
1160: -- prepare to plan the delivery
1161: wsh_delivery_validations.check_plan( p_delivery_ids(i), x_return_status,p_called_for_sc);
1162:
1163: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1164: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PLAN_ERROR');
1165: --
1166: -- Debug Statements
1167: --
1169: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1170: END IF;
1171: --
1172: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_ids(i)));
1173: wsh_util_core.add_message(x_return_status);
1174: l_num_error := l_num_error + 1;
1175: goto end_of_loop;
1176: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1177: l_num_warn := l_num_warn + 1;
1172: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_ids(i)));
1173: wsh_util_core.add_message(x_return_status);
1174: l_num_error := l_num_error + 1;
1175: goto end_of_loop;
1176: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1177: l_num_warn := l_num_warn + 1;
1178: END IF;
1179:
1180: l_dels_to_update(l_dels_to_update.count+1) := p_delivery_ids(i);
1181: IF l_debug_on THEN
1182: wsh_debug_sv.logmsg(l_module_name, 'Delivery '|| p_delivery_ids(i)||' is goinging to be planned');
1183: END IF;
1184:
1185: IF p_call_lcss = 'Y' AND WSH_UTIL_CORE.FTE_Is_Installed = 'Y' THEN
1186:
1187:
1188:
1189: IF NVL(l_param_info.AUTO_APPLY_ROUTING_RULES, 'D') = 'E' AND l_assigned_to_trip = 'N' THEN
1231: IF l_planned_flag is not NULL THEN
1232: -- prepare to plan the delivery
1233: wsh_delivery_validations.check_plan( p_delivery_ids(i), x_return_status,p_called_for_sc);
1234:
1235: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1236: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PLAN_ERROR');
1237: --
1238: -- Debug Statements
1239: --
1241: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1242: END IF;
1243: --
1244: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_ids(i)));
1245: wsh_util_core.add_message(x_return_status);
1246: l_num_error := l_num_error + 1;
1247: goto end_of_loop;
1248: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1249: l_num_warn := l_num_warn + 1;
1244: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_ids(i)));
1245: wsh_util_core.add_message(x_return_status);
1246: l_num_error := l_num_error + 1;
1247: goto end_of_loop;
1248: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1249: l_num_warn := l_num_warn + 1;
1250: END IF;
1251:
1252: l_dels_to_update(l_dels_to_update.count+1) := p_delivery_ids(i);
1254: IF l_debug_on THEN
1255: wsh_debug_sv.logmsg(l_module_name, 'Delivery '|| p_delivery_ids(i)||' is goinging to be planned');
1256: END IF;
1257:
1258: IF p_call_lcss = 'Y' AND WSH_UTIL_CORE.FTE_Is_Installed = 'Y' THEN
1259: IF NVL(l_param_info.AUTO_APPLY_ROUTING_RULES, 'D') = 'E'
1260: AND l_assigned_to_trip = ' N' THEN
1261: l_select_carrier_tbl(l_select_carrier_tbl.count+1).delivery_id := p_delivery_ids(i);
1262: l_select_carrier_tbl(l_select_carrier_tbl.count).organization_id := l_organization_id;
1310: x_return_status => l_return_status,
1311: x_msg_count => l_msg_count,
1312: x_msg_data => l_msg_data);
1313:
1314: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING OR
1315: l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1316: l_num_warn := l_num_warn + 1;
1317: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1318: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1311: x_msg_count => l_msg_count,
1312: x_msg_data => l_msg_data);
1313:
1314: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING OR
1315: l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1316: l_num_warn := l_num_warn + 1;
1317: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1318: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1319: raise Select_Carrier_Err;
1313:
1314: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING OR
1315: l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1316: l_num_warn := l_num_warn + 1;
1317: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1318: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1319: raise Select_Carrier_Err;
1320: END IF;
1321:
1314: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING OR
1315: l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1316: l_num_warn := l_num_warn + 1;
1317: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
1318: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1319: raise Select_Carrier_Err;
1320: END IF;
1321:
1322: END IF;
1343: x_msg_count => l_msg_count,
1344: x_msg_data => l_msg_data);
1345:
1346:
1347: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING OR
1348: l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1349: l_num_warn := l_num_warn + 1;
1350: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1351: raise Rate_Delivery_Err;
1344: x_msg_data => l_msg_data);
1345:
1346:
1347: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING OR
1348: l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1349: l_num_warn := l_num_warn + 1;
1350: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1351: raise Rate_Delivery_Err;
1352: END IF;
1346:
1347: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING OR
1348: l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
1349: l_num_warn := l_num_warn + 1;
1350: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1351: raise Rate_Delivery_Err;
1352: END IF;
1353: END IF;
1354:
1363: END IF;
1364:
1365: IF (p_delivery_ids.count = 1) THEN
1366: IF (l_num_warn > 0) AND (l_num_error = 0) THEN
1367: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1368: END IF;
1369: ELSIF (p_delivery_ids.count > 1) THEN
1370: IF (l_num_error > 0) OR (l_num_warn > 0) THEN
1371: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PLAN_SUMMARY');
1373: FND_MESSAGE.SET_TOKEN('NUM_WARN',l_num_warn);
1374: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',p_delivery_ids.count - l_num_error - l_num_warn);
1375:
1376: IF (p_delivery_ids.count = l_num_error) THEN
1377: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1378: ELSE
1379: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1380: END IF;
1381: wsh_util_core.add_message(x_return_status);
1375:
1376: IF (p_delivery_ids.count = l_num_error) THEN
1377: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1378: ELSE
1379: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1380: END IF;
1381: wsh_util_core.add_message(x_return_status);
1382: ELSE
1383: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1377: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1378: ELSE
1379: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1380: END IF;
1381: wsh_util_core.add_message(x_return_status);
1382: ELSE
1383: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1384: END IF;
1385: END IF;
1379: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1380: END IF;
1381: wsh_util_core.add_message(x_return_status);
1382: ELSE
1383: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1384: END IF;
1385: END IF;
1386:
1387: IF l_num_error > 0 and l_num_error = p_delivery_ids.count THEN
1384: END IF;
1385: END IF;
1386:
1387: IF l_num_error > 0 and l_num_error = p_delivery_ids.count THEN
1388: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1389: ELSIF l_num_warn > 0 OR l_num_error > 0 THEN
1390: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1391: END IF;
1392:
1386:
1387: IF l_num_error > 0 and l_num_error = p_delivery_ids.count THEN
1388: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1389: ELSIF l_num_warn > 0 OR l_num_error > 0 THEN
1390: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1391: END IF;
1392:
1393: IF l_debug_on THEN
1394: wsh_debug_sv.pop(l_module_name, 'Return status: '|| x_return_status);
1397: EXCEPTION
1398:
1399: WHEN invalid_caller THEN
1400: rollback to before_adjust_planned_flag;
1401: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1402: FND_MESSAGE.Set_Name('WSH', 'WSH_ADJUST_PLANNED_CALLER');
1403: wsh_util_core.add_message(x_return_status,l_module_name);
1404:
1405: IF l_debug_on THEN
1399: WHEN invalid_caller THEN
1400: rollback to before_adjust_planned_flag;
1401: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1402: FND_MESSAGE.Set_Name('WSH', 'WSH_ADJUST_PLANNED_CALLER');
1403: wsh_util_core.add_message(x_return_status,l_module_name);
1404:
1405: IF l_debug_on THEN
1406: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:invalid_caller');
1407: END IF;
1407: END IF;
1408:
1409: WHEN invalid_event THEN
1410: rollback to before_adjust_planned_flag;
1411: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1412: FND_MESSAGE.Set_Name('WSH', 'WSH_ADJUST_PLANNED_EVENT');
1413: wsh_util_core.add_message(x_return_status,l_module_name);
1414:
1415: IF l_debug_on THEN
1409: WHEN invalid_event THEN
1410: rollback to before_adjust_planned_flag;
1411: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1412: FND_MESSAGE.Set_Name('WSH', 'WSH_ADJUST_PLANNED_EVENT');
1413: wsh_util_core.add_message(x_return_status,l_module_name);
1414:
1415: IF l_debug_on THEN
1416: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:invalid_appending_limit');
1417: END IF;
1417: END IF;
1418:
1419: WHEN Rate_Delivery_Err THEN
1420: rollback to before_adjust_planned_flag;
1421: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1422:
1423: IF l_debug_on THEN
1424: wsh_debug_sv.logmsg(l_module_name, 'Rate Delivery failed');
1425: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:Rate_Delivery_Err');
1426: END IF;
1427:
1428: WHEN Select_Carrier_Err THEN
1429: rollback to before_adjust_planned_flag;
1430: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1431:
1432: IF l_debug_on THEN
1433: wsh_debug_sv.logmsg(l_module_name, 'Carrier Selection failed');
1434: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:Select_Carrier_Err');
1448: IF c_get_line_status_in_delivery%ISOPEN THEN
1449: CLOSE c_get_line_status_in_delivery;
1450: END IF;
1451:
1452: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1453: FND_MESSAGE.Set_Name('WSH', 'WSH_DLVY_LOCK_FAILED');
1454: FND_MESSAGE.Set_Token('ENTITY_NAME',to_char(l_delivery_id));
1455: wsh_util_core.add_message(x_return_status,l_module_name);
1456:
1451:
1452: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1453: FND_MESSAGE.Set_Name('WSH', 'WSH_DLVY_LOCK_FAILED');
1454: FND_MESSAGE.Set_Token('ENTITY_NAME',to_char(l_delivery_id));
1455: wsh_util_core.add_message(x_return_status,l_module_name);
1456:
1457: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.ADJUST_PLANNED_FLAG',l_module_name);
1458: IF l_debug_on THEN
1459: wsh_debug_sv.logmsg(l_module_name,'Delivery cannot be locked, Oracle error message is ' || SQLERRM);
1453: FND_MESSAGE.Set_Name('WSH', 'WSH_DLVY_LOCK_FAILED');
1454: FND_MESSAGE.Set_Token('ENTITY_NAME',to_char(l_delivery_id));
1455: wsh_util_core.add_message(x_return_status,l_module_name);
1456:
1457: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.ADJUST_PLANNED_FLAG',l_module_name);
1458: IF l_debug_on THEN
1459: wsh_debug_sv.logmsg(l_module_name,'Delivery cannot be locked, Oracle error message is ' || SQLERRM);
1460: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:record_locked');
1461: END IF;
1474: IF c_get_line_status_in_delivery%ISOPEN THEN
1475: CLOSE c_get_line_status_in_delivery;
1476: END IF;
1477:
1478: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1479: wsh_util_core.add_message(x_return_status,l_module_name);
1480: wsh_util_core.default_handler('WSH_DELIVERY_ACTIONS.ADJUST_PLANNED_FLAG',l_module_name);
1481: IF l_debug_on THEN
1482: wsh_debug_sv.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is ' || SQLERRM);
1475: CLOSE c_get_line_status_in_delivery;
1476: END IF;
1477:
1478: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1479: wsh_util_core.add_message(x_return_status,l_module_name);
1480: wsh_util_core.default_handler('WSH_DELIVERY_ACTIONS.ADJUST_PLANNED_FLAG',l_module_name);
1481: IF l_debug_on THEN
1482: wsh_debug_sv.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is ' || SQLERRM);
1483: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
1476: END IF;
1477:
1478: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1479: wsh_util_core.add_message(x_return_status,l_module_name);
1480: wsh_util_core.default_handler('WSH_DELIVERY_ACTIONS.ADJUST_PLANNED_FLAG',l_module_name);
1481: IF l_debug_on THEN
1482: wsh_debug_sv.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is ' || SQLERRM);
1483: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
1484: END IF;
1493: -- Description: This procedure will Plan deliveries for shipment
1494: --
1495:
1496: PROCEDURE Plan
1497: (p_del_rows IN wsh_util_core.id_tab_type,
1498: x_return_status OUT NOCOPY VARCHAR2,
1499: p_called_for_sc IN BOOLEAN default false) IS
1500:
1501:
1523: IF l_debug_on THEN
1524: WSH_DEBUG_SV.push(l_module_name);
1525: END IF;
1526: --
1527: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1528:
1529:
1530: IF (p_del_rows.count = 0) THEN
1531: raise others;
1548: END IF;
1549:
1550: EXCEPTION
1551: WHEN others THEN
1552: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.PLAN');
1553: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1554:
1555:
1556: --
1549:
1550: EXCEPTION
1551: WHEN others THEN
1552: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.PLAN');
1553: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1554:
1555:
1556: --
1557: -- Debug Statements
1571: -- Description: This procedure will unplan deliveries for shipment
1572: --
1573:
1574: PROCEDURE Unplan
1575: (p_del_rows IN wsh_util_core.id_tab_type,
1576: x_return_status OUT NOCOPY VARCHAR2) IS
1577:
1578: l_num_error NUMBER := 0;
1579: l_num_warn NUMBER := 0;
1610: IF l_debug_on THEN
1611: WSH_DEBUG_SV.push(l_module_name);
1612: END IF;
1613: --
1614: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1615:
1616: IF (p_del_rows.count = 0) THEN
1617: raise others;
1618: END IF;
1627: END IF;
1628: --
1629: wsh_delivery_validations.check_unplan( p_del_rows(i), x_return_status);
1630:
1631: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1632: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_UNPLAN_ERROR');
1633: --
1634: -- Debug Statements
1635: --
1637: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1638: END IF;
1639: --
1640: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
1641: wsh_util_core.add_message(x_return_status);
1642: l_num_error := l_num_error + 1;
1643: ELSE
1644:
1645: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1641: wsh_util_core.add_message(x_return_status);
1642: l_num_error := l_num_error + 1;
1643: ELSE
1644:
1645: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
1646: l_num_warn := l_num_warn + 1;
1647: END IF;
1648:
1649: l_delfirm:='N';
1652: wsh_tp_release.unfirm_entity( p_entity => 'DLVY',
1653: p_entity_id =>p_del_rows(i),
1654: p_action =>'UNPLAN',
1655: x_return_status =>x_return_status);
1656: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1657: IF x_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1658: l_num_warn := l_num_warn + 1;
1659: ELSE
1660: l_num_error := l_num_error + 1;
1653: p_entity_id =>p_del_rows(i),
1654: p_action =>'UNPLAN',
1655: x_return_status =>x_return_status);
1656: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1657: IF x_return_status=WSH_UTIL_CORE.G_RET_STS_WARNING THEN
1658: l_num_warn := l_num_warn + 1;
1659: ELSE
1660: l_num_error := l_num_error + 1;
1661: END IF;
1671: WHERE delivery_id = p_del_rows(i);
1672:
1673: IF (SQL%NOTFOUND) THEN
1674: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1675: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1676: wsh_util_core.add_message(x_return_status);
1677: l_num_error := l_num_error + 1;
1678: END IF;
1679: END IF;--l_del_firm=N
1672:
1673: IF (SQL%NOTFOUND) THEN
1674: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1675: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1676: wsh_util_core.add_message(x_return_status);
1677: l_num_error := l_num_error + 1;
1678: END IF;
1679: END IF;--l_del_firm=N
1680:
1684:
1685:
1686: IF (p_del_rows.count = 1) THEN
1687: IF (l_num_warn > 0) AND (l_num_error = 0) THEN
1688: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1689: END IF;
1690: ELSIF (p_del_rows.count > 1) THEN
1691:
1692: IF (l_num_error > 0) THEN
1695: FND_MESSAGE.SET_TOKEN('NUM_ERROR',l_num_error);
1696: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',p_del_rows.count - l_num_error);
1697:
1698: IF (p_del_rows.count = l_num_error) THEN
1699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1700: ELSE
1701: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1702: END IF;
1703:
1697:
1698: IF (p_del_rows.count = l_num_error) THEN
1699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1700: ELSE
1701: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1702: END IF;
1703:
1704: wsh_util_core.add_message(x_return_status);
1705: ELSIF (l_num_warn > 0) THEN
1700: ELSE
1701: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1702: END IF;
1703:
1704: wsh_util_core.add_message(x_return_status);
1705: ELSIF (l_num_warn > 0) THEN
1706: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1707: ELSE
1708: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1702: END IF;
1703:
1704: wsh_util_core.add_message(x_return_status);
1705: ELSIF (l_num_warn > 0) THEN
1706: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1707: ELSE
1708: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1709: END IF;
1710:
1704: wsh_util_core.add_message(x_return_status);
1705: ELSIF (l_num_warn > 0) THEN
1706: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1707: ELSE
1708: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1709: END IF;
1710:
1711: END IF;
1712:
1718: END IF;
1719: --
1720: EXCEPTION
1721: WHEN others THEN
1722: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UNPLAN');
1723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1724:
1725: --
1726: -- Debug Statements
1719: --
1720: EXCEPTION
1721: WHEN others THEN
1722: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UNPLAN');
1723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1724:
1725: --
1726: -- Debug Statements
1727: --
1797: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1798: --
1799: END IF;
1800: --
1801: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1802: --
1803: OPEN get_delivery_info;
1804: FETCH get_delivery_info INTO l_delivery_leg_id,
1805: l_pickup_location_id,
1818: FETCH get_ledger_id INTO l_ledger_id;
1819:
1820: IF (get_ledger_id%NOTFOUND) THEN
1821: FND_MESSAGE.SET_NAME('WSH','WSH_LEDGER_ID_NOT_FOUND');
1822: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1823: wsh_util_core.add_message(x_return_status);
1824: CLOSE get_ledger_id; -- bug 2045315
1825: --
1826: -- Debug Statements
1819:
1820: IF (get_ledger_id%NOTFOUND) THEN
1821: FND_MESSAGE.SET_NAME('WSH','WSH_LEDGER_ID_NOT_FOUND');
1822: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1823: wsh_util_core.add_message(x_return_status);
1824: CLOSE get_ledger_id; -- bug 2045315
1825: --
1826: -- Debug Statements
1827: --
1858: END IF;
1859: --
1860: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NULL_SHIP_METHOD_ERROR');
1861: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
1862: x_return_status := wsh_util_core.g_ret_sts_error;
1863: wsh_util_core.add_message(x_return_status);
1864: --
1865: RAISE wsh_create_document_error;
1866: --
1859: --
1860: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NULL_SHIP_METHOD_ERROR');
1861: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
1862: x_return_status := wsh_util_core.g_ret_sts_error;
1863: wsh_util_core.add_message(x_return_status);
1864: --
1865: RAISE wsh_create_document_error;
1866: --
1867:
1924: 200,
1925: l_document_number
1926: );
1927: --
1928: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1929: RAISE wsh_create_document_error;
1930: END IF;
1931: --
1932: END IF; /* if ship_method_code is null */
1940: EXCEPTION
1941:
1942: WHEN wsh_create_document_error THEN
1943: ROLLBACK TO sp1;
1944: x_return_status := wsh_util_core.g_ret_sts_error;
1945: --
1946: -- Debug Statements
1947: --
1948: IF l_debug_on THEN
2021: --
2022: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2023: END IF;
2024: --
2025: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2026:
2027: OPEN get_delivery_info;
2028: FETCH get_delivery_info INTO l_pickup_location_id,
2029: l_organization_id;
2040: FETCH get_ledger_id INTO l_ledger_id;
2041:
2042: IF (get_ledger_id%NOTFOUND) THEN
2043: FND_MESSAGE.SET_NAME('WSH','WSH_LEDGER_ID_NOT_FOUND');
2044: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2045: wsh_util_core.add_message(x_return_status);
2046: CLOSE get_ledger_id; -- bug 2045315
2047: --
2048: -- Debug Statements
2041:
2042: IF (get_ledger_id%NOTFOUND) THEN
2043: FND_MESSAGE.SET_NAME('WSH','WSH_LEDGER_ID_NOT_FOUND');
2044: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2045: wsh_util_core.add_message(x_return_status);
2046: CLOSE get_ledger_id; -- bug 2045315
2047: --
2048: -- Debug Statements
2049: --
2130: p_manual_sequence_number => 200,
2131: x_document_number => l_document_number
2132: );
2133:
2134: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2135: RAISE wsh_create_document_error;
2136: END IF;
2137: END IF;
2138: --
2145: EXCEPTION
2146:
2147: WHEN wsh_create_document_error THEN
2148: ROLLBACK TO sp2;
2149: x_return_status := wsh_util_core.g_ret_sts_error;
2150:
2151: --
2152: -- Debug Statements
2153: --
2166: -- based on input deliveries; the calling UI and integration API
2167: -- will finalize the ship method based on ship confirm rule.
2168: -- (references: frontport bugs 4310141 and 4178235)
2169: PROCEDURE Get_Delivery_Defaults
2170: (p_del_rows IN wsh_util_core.id_tab_type,
2171: p_org_ids IN wsh_util_core.id_tab_type,
2172: p_client_ids IN wsh_util_core.id_tab_type, --Modified R12.1.1 LSP PROJECT
2173: p_ship_method_code_vals IN ship_method_type,
2174: x_autointransit_flag OUT NOCOPY VARCHAR2,
2167: -- will finalize the ship method based on ship confirm rule.
2168: -- (references: frontport bugs 4310141 and 4178235)
2169: PROCEDURE Get_Delivery_Defaults
2170: (p_del_rows IN wsh_util_core.id_tab_type,
2171: p_org_ids IN wsh_util_core.id_tab_type,
2172: p_client_ids IN wsh_util_core.id_tab_type, --Modified R12.1.1 LSP PROJECT
2173: p_ship_method_code_vals IN ship_method_type,
2174: x_autointransit_flag OUT NOCOPY VARCHAR2,
2175: x_autoclose_flag OUT NOCOPY VARCHAR2,
2168: -- (references: frontport bugs 4310141 and 4178235)
2169: PROCEDURE Get_Delivery_Defaults
2170: (p_del_rows IN wsh_util_core.id_tab_type,
2171: p_org_ids IN wsh_util_core.id_tab_type,
2172: p_client_ids IN wsh_util_core.id_tab_type, --Modified R12.1.1 LSP PROJECT
2173: p_ship_method_code_vals IN ship_method_type,
2174: x_autointransit_flag OUT NOCOPY VARCHAR2,
2175: x_autoclose_flag OUT NOCOPY VARCHAR2,
2176: x_report_set_id OUT NOCOPY NUMBER, -- always NULL
2285: WSH_DEBUG_SV.logmsg(l_module_name,'Org id Count'||p_org_ids.count);
2286: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Method Count'||p_ship_method_code_vals.count);
2287: END IF;
2288: --
2289: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2290:
2291: l_all_orgids_match := TRUE;
2292:
2293: IF (p_del_rows.count = 0) THEN
2506: --
2507:
2508: EXCEPTION
2509: WHEN others THEN
2510: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Get_Delivery_Defaults');
2511: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2512: --
2513: IF l_debug_on THEN
2514: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2507:
2508: EXCEPTION
2509: WHEN others THEN
2510: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Get_Delivery_Defaults');
2511: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2512: --
2513: IF l_debug_on THEN
2514: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2515: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2536: -- on each delivery and confirms each delivery
2537: --
2538:
2539: PROCEDURE Confirm_Delivery
2540: (p_del_rows IN wsh_util_core.id_tab_type,
2541: p_action_flag IN VARCHAR2,
2542: p_intransit_flag IN VARCHAR2,
2543: p_close_flag IN VARCHAR2,
2544: p_stage_del_flag IN VARCHAR2,
2748: l_freight_code VARCHAR2(30);
2749: l_delivery_detail_id NUMBER;
2750: l_dummy_detail_id NUMBER;
2751: l_detail_num NUMBER;
2752: l_initial_pickup_date wsh_util_core.Date_tab_type;
2753: l_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2754:
2755: u_initial_pickup_date wsh_util_core.Date_tab_type; -- Bulk update variable
2756: u_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2749: l_delivery_detail_id NUMBER;
2750: l_dummy_detail_id NUMBER;
2751: l_detail_num NUMBER;
2752: l_initial_pickup_date wsh_util_core.Date_tab_type;
2753: l_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2754:
2755: u_initial_pickup_date wsh_util_core.Date_tab_type; -- Bulk update variable
2756: u_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2757:
2751: l_detail_num NUMBER;
2752: l_initial_pickup_date wsh_util_core.Date_tab_type;
2753: l_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2754:
2755: u_initial_pickup_date wsh_util_core.Date_tab_type; -- Bulk update variable
2756: u_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2757:
2758: l_organization_id NUMBER ;
2759: l_num_warn NUMBER :=0;
2752: l_initial_pickup_date wsh_util_core.Date_tab_type;
2753: l_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2754:
2755: u_initial_pickup_date wsh_util_core.Date_tab_type; -- Bulk update variable
2756: u_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2757:
2758: l_organization_id NUMBER ;
2759: l_num_warn NUMBER :=0;
2760: l_num_error NUMBER :=0;
2764: l_locator_id NUMBER ;
2765: /* muom */
2766: l_requested_quantity_uom2 VARCHAR2(4);
2767:
2768: l_unassign_dds wsh_util_core.id_tab_type; -- Renamed the variable l_unassign_line_ids for BO Consolidation
2769: /* H integration: 945 cancel staged wrudge */
2770: l_cancel_line_ids wsh_util_core.id_tab_type;
2771:
2772: l_assigned_counter NUMBER;
2766: l_requested_quantity_uom2 VARCHAR2(4);
2767:
2768: l_unassign_dds wsh_util_core.id_tab_type; -- Renamed the variable l_unassign_line_ids for BO Consolidation
2769: /* H integration: 945 cancel staged wrudge */
2770: l_cancel_line_ids wsh_util_core.id_tab_type;
2771:
2772: l_assigned_counter NUMBER;
2773: l_assigned_line_ids wsh_util_core.id_tab_type;
2774: l_assigned_cont_ids wsh_util_core.id_tab_type;
2769: /* H integration: 945 cancel staged wrudge */
2770: l_cancel_line_ids wsh_util_core.id_tab_type;
2771:
2772: l_assigned_counter NUMBER;
2773: l_assigned_line_ids wsh_util_core.id_tab_type;
2774: l_assigned_cont_ids wsh_util_core.id_tab_type;
2775: l_assigned_orgs wsh_util_core.id_tab_type;
2776: l_assigned_items wsh_util_core.id_tab_type;
2777: l_assigned_subs wsh_util_core.Column_Tab_Type;
2770: l_cancel_line_ids wsh_util_core.id_tab_type;
2771:
2772: l_assigned_counter NUMBER;
2773: l_assigned_line_ids wsh_util_core.id_tab_type;
2774: l_assigned_cont_ids wsh_util_core.id_tab_type;
2775: l_assigned_orgs wsh_util_core.id_tab_type;
2776: l_assigned_items wsh_util_core.id_tab_type;
2777: l_assigned_subs wsh_util_core.Column_Tab_Type;
2778: l_assigned_locs wsh_util_core.id_Tab_Type;
2771:
2772: l_assigned_counter NUMBER;
2773: l_assigned_line_ids wsh_util_core.id_tab_type;
2774: l_assigned_cont_ids wsh_util_core.id_tab_type;
2775: l_assigned_orgs wsh_util_core.id_tab_type;
2776: l_assigned_items wsh_util_core.id_tab_type;
2777: l_assigned_subs wsh_util_core.Column_Tab_Type;
2778: l_assigned_locs wsh_util_core.id_Tab_Type;
2779: -- muom
2772: l_assigned_counter NUMBER;
2773: l_assigned_line_ids wsh_util_core.id_tab_type;
2774: l_assigned_cont_ids wsh_util_core.id_tab_type;
2775: l_assigned_orgs wsh_util_core.id_tab_type;
2776: l_assigned_items wsh_util_core.id_tab_type;
2777: l_assigned_subs wsh_util_core.Column_Tab_Type;
2778: l_assigned_locs wsh_util_core.id_Tab_Type;
2779: -- muom
2780: l_assigned_req_qty_uoms2 wsh_util_core.Column_Tab_Type;
2773: l_assigned_line_ids wsh_util_core.id_tab_type;
2774: l_assigned_cont_ids wsh_util_core.id_tab_type;
2775: l_assigned_orgs wsh_util_core.id_tab_type;
2776: l_assigned_items wsh_util_core.id_tab_type;
2777: l_assigned_subs wsh_util_core.Column_Tab_Type;
2778: l_assigned_locs wsh_util_core.id_Tab_Type;
2779: -- muom
2780: l_assigned_req_qty_uoms2 wsh_util_core.Column_Tab_Type;
2781: l_assigned_src_codes wsh_util_core.Column_Tab_Type;
2774: l_assigned_cont_ids wsh_util_core.id_tab_type;
2775: l_assigned_orgs wsh_util_core.id_tab_type;
2776: l_assigned_items wsh_util_core.id_tab_type;
2777: l_assigned_subs wsh_util_core.Column_Tab_Type;
2778: l_assigned_locs wsh_util_core.id_Tab_Type;
2779: -- muom
2780: l_assigned_req_qty_uoms2 wsh_util_core.Column_Tab_Type;
2781: l_assigned_src_codes wsh_util_core.Column_Tab_Type;
2782:
2776: l_assigned_items wsh_util_core.id_tab_type;
2777: l_assigned_subs wsh_util_core.Column_Tab_Type;
2778: l_assigned_locs wsh_util_core.id_Tab_Type;
2779: -- muom
2780: l_assigned_req_qty_uoms2 wsh_util_core.Column_Tab_Type;
2781: l_assigned_src_codes wsh_util_core.Column_Tab_Type;
2782:
2783: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2784: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2777: l_assigned_subs wsh_util_core.Column_Tab_Type;
2778: l_assigned_locs wsh_util_core.id_Tab_Type;
2779: -- muom
2780: l_assigned_req_qty_uoms2 wsh_util_core.Column_Tab_Type;
2781: l_assigned_src_codes wsh_util_core.Column_Tab_Type;
2782:
2783: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2784: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2785: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2779: -- muom
2780: l_assigned_req_qty_uoms2 wsh_util_core.Column_Tab_Type;
2781: l_assigned_src_codes wsh_util_core.Column_Tab_Type;
2782:
2783: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2784: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2785: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2786: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2787:
2780: l_assigned_req_qty_uoms2 wsh_util_core.Column_Tab_Type;
2781: l_assigned_src_codes wsh_util_core.Column_Tab_Type;
2782:
2783: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2784: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2785: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2786: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2787:
2788: l_dd_org_ids wsh_util_core.id_tab_type; -- list of details org ids
2781: l_assigned_src_codes wsh_util_core.Column_Tab_Type;
2782:
2783: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2784: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2785: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2786: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2787:
2788: l_dd_org_ids wsh_util_core.id_tab_type; -- list of details org ids
2789: l_item_ids wsh_util_core.id_tab_type; -- list of details inventory_item_ids
2782:
2783: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2784: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2785: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2786: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2787:
2788: l_dd_org_ids wsh_util_core.id_tab_type; -- list of details org ids
2789: l_item_ids wsh_util_core.id_tab_type; -- list of details inventory_item_ids
2790:
2784: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2785: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2786: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2787:
2788: l_dd_org_ids wsh_util_core.id_tab_type; -- list of details org ids
2789: l_item_ids wsh_util_core.id_tab_type; -- list of details inventory_item_ids
2790:
2791: -- for non-transactable items
2792: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
2785: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2786: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2787:
2788: l_dd_org_ids wsh_util_core.id_tab_type; -- list of details org ids
2789: l_item_ids wsh_util_core.id_tab_type; -- list of details inventory_item_ids
2790:
2791: -- for non-transactable items
2792: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
2793: dft_subinv VARCHAR2(30);
2803:
2804: l_ship_from_location NUMBER;
2805: l_ship_to_location NUMBER;
2806:
2807: l_dummy_rows wsh_util_core.id_tab_type;
2808: l_dummy_rows1 wsh_util_core.id_tab_type;
2809: l_dummy_doc_set wsh_document_sets.document_set_tab_type;
2810:
2811: l_trip_id NUMBER;
2804: l_ship_from_location NUMBER;
2805: l_ship_to_location NUMBER;
2806:
2807: l_dummy_rows wsh_util_core.id_tab_type;
2808: l_dummy_rows1 wsh_util_core.id_tab_type;
2809: l_dummy_doc_set wsh_document_sets.document_set_tab_type;
2810:
2811: l_trip_id NUMBER;
2812: l_trip_name VARCHAR2(30);
2816: l_shipped_quantity NUMBER;
2817: l_cycle_quantity NUMBER;
2818: l_stage_quantity NUMBER;
2819: l_del_status_code VARCHAR2(2);
2820: l_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2821: l_number_of_lpn wsh_util_core.id_tab_type;
2822: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2823: u_number_of_lpn wsh_util_core.id_tab_type;
2824: /* H integration: 945 send document wrudge */
2817: l_cycle_quantity NUMBER;
2818: l_stage_quantity NUMBER;
2819: l_del_status_code VARCHAR2(2);
2820: l_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2821: l_number_of_lpn wsh_util_core.id_tab_type;
2822: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2823: u_number_of_lpn wsh_util_core.id_tab_type;
2824: /* H integration: 945 send document wrudge */
2825: u_organization_id wsh_util_core.id_tab_type;
2818: l_stage_quantity NUMBER;
2819: l_del_status_code VARCHAR2(2);
2820: l_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2821: l_number_of_lpn wsh_util_core.id_tab_type;
2822: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2823: u_number_of_lpn wsh_util_core.id_tab_type;
2824: /* H integration: 945 send document wrudge */
2825: u_organization_id wsh_util_core.id_tab_type;
2826: u_wsh_lines_exist wsh_util_core.id_tab_type;
2819: l_del_status_code VARCHAR2(2);
2820: l_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2821: l_number_of_lpn wsh_util_core.id_tab_type;
2822: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2823: u_number_of_lpn wsh_util_core.id_tab_type;
2824: /* H integration: 945 send document wrudge */
2825: u_organization_id wsh_util_core.id_tab_type;
2826: u_wsh_lines_exist wsh_util_core.id_tab_type;
2827: l_wsh_lines_exist NUMBER;
2821: l_number_of_lpn wsh_util_core.id_tab_type;
2822: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2823: u_number_of_lpn wsh_util_core.id_tab_type;
2824: /* H integration: 945 send document wrudge */
2825: u_organization_id wsh_util_core.id_tab_type;
2826: u_wsh_lines_exist wsh_util_core.id_tab_type;
2827: l_wsh_lines_exist NUMBER;
2828:
2829: -- hverddin : Begin of OPM Changes Added Dual Quantities 31-OCT-00
2822: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2823: u_number_of_lpn wsh_util_core.id_tab_type;
2824: /* H integration: 945 send document wrudge */
2825: u_organization_id wsh_util_core.id_tab_type;
2826: u_wsh_lines_exist wsh_util_core.id_tab_type;
2827: l_wsh_lines_exist NUMBER;
2828:
2829: -- hverddin : Begin of OPM Changes Added Dual Quantities 31-OCT-00
2830:
2843: l_picked_quantity2 NUMBER;
2844: l_unshipped_pick_quantity NUMBER;
2845: l_unshipped_pick_quantity2 NUMBER;
2846:
2847: l_shp_dd_shipped_qtys wsh_util_core.id_tab_type;
2848: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2849: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2850: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2851: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2844: l_unshipped_pick_quantity NUMBER;
2845: l_unshipped_pick_quantity2 NUMBER;
2846:
2847: l_shp_dd_shipped_qtys wsh_util_core.id_tab_type;
2848: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2849: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2850: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2851: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2852: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2845: l_unshipped_pick_quantity2 NUMBER;
2846:
2847: l_shp_dd_shipped_qtys wsh_util_core.id_tab_type;
2848: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2849: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2850: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2851: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2852: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2853: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2846:
2847: l_shp_dd_shipped_qtys wsh_util_core.id_tab_type;
2848: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2849: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2850: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2851: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2852: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2853: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2854: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2847: l_shp_dd_shipped_qtys wsh_util_core.id_tab_type;
2848: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2849: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2850: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2851: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2852: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2853: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2854: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2855: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2848: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2849: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2850: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2851: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2852: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2853: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2854: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2855: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2856: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2849: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2850: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2851: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2852: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2853: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2854: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2855: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2856: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2857: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2850: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2851: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2852: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2853: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2854: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2855: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2856: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2857: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2858: /* H integration: 945 check detail wrudge */
2851: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2852: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2853: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2854: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2855: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2856: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2857: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2858: /* H integration: 945 check detail wrudge */
2859: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2852: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2853: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2854: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2855: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2856: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2857: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2858: /* H integration: 945 check detail wrudge */
2859: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2860:
2853: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2854: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2855: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2856: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2857: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2858: /* H integration: 945 check detail wrudge */
2859: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2860:
2861: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2855: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2856: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2857: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2858: /* H integration: 945 check detail wrudge */
2859: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2860:
2861: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2862: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2863: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2857: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2858: /* H integration: 945 check detail wrudge */
2859: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2860:
2861: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2862: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2863: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2864: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2865: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2858: /* H integration: 945 check detail wrudge */
2859: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2860:
2861: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2862: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2863: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2864: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2865: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2866: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2859: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2860:
2861: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2862: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2863: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2864: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2865: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2866: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2867: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2860:
2861: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2862: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2863: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2864: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2865: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2866: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2867: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2868: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2861: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2862: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2863: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2864: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2865: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2866: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2867: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2868: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2869: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2862: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2863: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2864: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2865: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2866: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2867: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2868: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2869: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2870: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2863: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2864: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2865: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2866: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2867: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2868: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2869: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2870: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2871: /* H integration: 945 assigned detail wrudge */
2864: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2865: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2866: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2867: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2868: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2869: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2870: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2871: /* H integration: 945 assigned detail wrudge */
2872: l_assigned_source wsh_util_core.column_tab_type;
2865: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2866: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2867: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2868: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2869: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2870: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2871: /* H integration: 945 assigned detail wrudge */
2872: l_assigned_source wsh_util_core.column_tab_type;
2873:
2866: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2867: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2868: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2869: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2870: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2871: /* H integration: 945 assigned detail wrudge */
2872: l_assigned_source wsh_util_core.column_tab_type;
2873:
2874: l_stop_rows wsh_util_core.id_tab_type;
2868: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2869: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2870: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2871: /* H integration: 945 assigned detail wrudge */
2872: l_assigned_source wsh_util_core.column_tab_type;
2873:
2874: l_stop_rows wsh_util_core.id_tab_type;
2875: u_stop_rows wsh_util_core.id_tab_type; -- bug 2064810
2876: l_del_rows wsh_util_core.id_tab_type;
2870: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2871: /* H integration: 945 assigned detail wrudge */
2872: l_assigned_source wsh_util_core.column_tab_type;
2873:
2874: l_stop_rows wsh_util_core.id_tab_type;
2875: u_stop_rows wsh_util_core.id_tab_type; -- bug 2064810
2876: l_del_rows wsh_util_core.id_tab_type;
2877: u_del_rows wsh_util_core.id_tab_type;
2878:
2871: /* H integration: 945 assigned detail wrudge */
2872: l_assigned_source wsh_util_core.column_tab_type;
2873:
2874: l_stop_rows wsh_util_core.id_tab_type;
2875: u_stop_rows wsh_util_core.id_tab_type; -- bug 2064810
2876: l_del_rows wsh_util_core.id_tab_type;
2877: u_del_rows wsh_util_core.id_tab_type;
2878:
2879: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2872: l_assigned_source wsh_util_core.column_tab_type;
2873:
2874: l_stop_rows wsh_util_core.id_tab_type;
2875: u_stop_rows wsh_util_core.id_tab_type; -- bug 2064810
2876: l_del_rows wsh_util_core.id_tab_type;
2877: u_del_rows wsh_util_core.id_tab_type;
2878:
2879: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2880: l_enforce_packing_flag VARCHAR2(1) := 'N';
2873:
2874: l_stop_rows wsh_util_core.id_tab_type;
2875: u_stop_rows wsh_util_core.id_tab_type; -- bug 2064810
2876: l_del_rows wsh_util_core.id_tab_type;
2877: u_del_rows wsh_util_core.id_tab_type;
2878:
2879: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2880: l_enforce_packing_flag VARCHAR2(1) := 'N';
2881:
2878:
2879: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2880: l_enforce_packing_flag VARCHAR2(1) := 'N';
2881:
2882: l_cc_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2883: l_cc_req_qtys wsh_util_core.id_tab_type ;
2884: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2885: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2886: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2879: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2880: l_enforce_packing_flag VARCHAR2(1) := 'N';
2881:
2882: l_cc_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2883: l_cc_req_qtys wsh_util_core.id_tab_type ;
2884: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2885: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2886: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2887:
2880: l_enforce_packing_flag VARCHAR2(1) := 'N';
2881:
2882: l_cc_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2883: l_cc_req_qtys wsh_util_core.id_tab_type ;
2884: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2885: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2886: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2887:
2888: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2881:
2882: l_cc_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2883: l_cc_req_qtys wsh_util_core.id_tab_type ;
2884: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2885: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2886: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2887:
2888: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2889: l_bo_mode VARCHAR2 (15) ;
2882: l_cc_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2883: l_cc_req_qtys wsh_util_core.id_tab_type ;
2884: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2885: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2886: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2887:
2888: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2889: l_bo_mode VARCHAR2 (15) ;
2890: l_bo_req_qtys wsh_util_core.id_tab_type ;
2884: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2885: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2886: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2887:
2888: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2889: l_bo_mode VARCHAR2 (15) ;
2890: l_bo_req_qtys wsh_util_core.id_tab_type ;
2891: l_bo_overpick_qtys wsh_util_core.id_tab_type ;
2892: l_bo_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2886: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2887:
2888: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2889: l_bo_mode VARCHAR2 (15) ;
2890: l_bo_req_qtys wsh_util_core.id_tab_type ;
2891: l_bo_overpick_qtys wsh_util_core.id_tab_type ;
2892: l_bo_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2893: l_bo_overpick_qtys2 wsh_util_core.id_tab_type ;
2894:
2887:
2888: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2889: l_bo_mode VARCHAR2 (15) ;
2890: l_bo_req_qtys wsh_util_core.id_tab_type ;
2891: l_bo_overpick_qtys wsh_util_core.id_tab_type ;
2892: l_bo_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2893: l_bo_overpick_qtys2 wsh_util_core.id_tab_type ;
2894:
2895: l_staged_dd_id NUMBER ;
2888: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2889: l_bo_mode VARCHAR2 (15) ;
2890: l_bo_req_qtys wsh_util_core.id_tab_type ;
2891: l_bo_overpick_qtys wsh_util_core.id_tab_type ;
2892: l_bo_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2893: l_bo_overpick_qtys2 wsh_util_core.id_tab_type ;
2894:
2895: l_staged_dd_id NUMBER ;
2896: l_new_detail_id NUMBER ;
2889: l_bo_mode VARCHAR2 (15) ;
2890: l_bo_req_qtys wsh_util_core.id_tab_type ;
2891: l_bo_overpick_qtys wsh_util_core.id_tab_type ;
2892: l_bo_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2893: l_bo_overpick_qtys2 wsh_util_core.id_tab_type ;
2894:
2895: l_staged_dd_id NUMBER ;
2896: l_new_detail_id NUMBER ;
2897: l_stage_rows wsh_util_core.id_tab_type ;
2893: l_bo_overpick_qtys2 wsh_util_core.id_tab_type ;
2894:
2895: l_staged_dd_id NUMBER ;
2896: l_new_detail_id NUMBER ;
2897: l_stage_rows wsh_util_core.id_tab_type ;
2898:
2899: l_backorder_all_flag BOOLEAN := TRUE ;
2900: l_stage_all_flag BOOLEAN ;
2901: l_inv_cntrl_flag BOOLEAN ;
2899: l_backorder_all_flag BOOLEAN := TRUE ;
2900: l_stage_all_flag BOOLEAN ;
2901: l_inv_cntrl_flag BOOLEAN ;
2902: l_inv_material_flag BOOLEAN;
2903: l_del_tmp_rows wsh_util_core.id_tab_type;
2904: l_document_set_name VARCHAR2 ( 50 );
2905:
2906: l_user_name VARCHAR2(100);
2907: l_user_id NUMBER ;
2938: -- HW OPM added qty2
2939: l_max_quantity2 NUMBER ;
2940: l_msg_data VARCHAR2(2000);
2941: l_msg_count NUMBER;
2942: l_wms_delivery_id wsh_util_core.id_tab_type ;
2943: --2121399
2944: TYPE Flag_Tab_Type IS TABLE OF BOOLEAN INDEX BY BINARY_INTEGER;
2945: l_unassign_all_flag_tab Flag_Tab_Type ;
2946: --2121399
2958: l_wms_enabled_flag BOOLEAN;
2959: -- bug 2343058
2960: l_check_credit_init_flag BOOLEAN;
2961:
2962: x_unassigned_cont wsh_util_core.id_tab_type;
2963: l_msg_rec_count wsh_util_core.MsgCountType;
2964: l_error_exists BOOLEAN;
2965: l_msg_table WSH_INTEGRATION.MSG_TABLE ;
2966: l_count NUMBER := 0;
2959: -- bug 2343058
2960: l_check_credit_init_flag BOOLEAN;
2961:
2962: x_unassigned_cont wsh_util_core.id_tab_type;
2963: l_msg_rec_count wsh_util_core.MsgCountType;
2964: l_error_exists BOOLEAN;
2965: l_msg_table WSH_INTEGRATION.MSG_TABLE ;
2966: l_count NUMBER := 0;
2967: l_cont_name VARCHAR2(100);
2975: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
2976: l_cc_line_groups WSH_FTE_COMP_CONSTRAINT_PKG.line_group_tab_type;
2977:
2978: l_trip_info_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
2979: l_trip_id_tab_temp wsh_util_core.id_tab_type;
2980: l_cc_count_success NUMBER;
2981: b_cc_linefailed BOOLEAN;
2982: l_target_trip_id NUMBER;
2983: b_tripalreadychecked VARCHAR2(1);
2987: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2988: l_cc_det_attr_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
2989: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
2990: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
2991: l_cc_in_ids wsh_util_core.id_tab_type;
2992: l_cc_fail_ids wsh_util_core.id_tab_type;
2993: l_cc_carrier_id NUMBER;
2994: l_cc_mode VARCHAR2(30);
2995: G_HASH_TRIP wsh_util_core.id_tab_type;
2988: l_cc_det_attr_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
2989: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
2990: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
2991: l_cc_in_ids wsh_util_core.id_tab_type;
2992: l_cc_fail_ids wsh_util_core.id_tab_type;
2993: l_cc_carrier_id NUMBER;
2994: l_cc_mode VARCHAR2(30);
2995: G_HASH_TRIP wsh_util_core.id_tab_type;
2996: --Compatibility Changes
2991: l_cc_in_ids wsh_util_core.id_tab_type;
2992: l_cc_fail_ids wsh_util_core.id_tab_type;
2993: l_cc_carrier_id NUMBER;
2994: l_cc_mode VARCHAR2(30);
2995: G_HASH_TRIP wsh_util_core.id_tab_type;
2996: --Compatibility Changes
2997:
2998: l_with_mc_trip_flag Flag_Tab_Type;
2999:
2999:
3000: -- Variables added for Consolidation of BO Delivery Details project
3001: --
3002: l_global_parameters WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
3003: l_assigned_source_lines wsh_util_core.id_Tab_Type;
3004: l_unassign_backordered_dds wsh_util_core.id_Tab_Type; --Stores the list of BackOrder/Cycle-Count delivery detail ids
3005: l_unassign_rel_status wsh_util_core.Column_Tab_Type;
3006: -- Stores the corresponding Released_status of the delivery details in l_unassign_dds
3007: l_unassign_source_lines wsh_util_core.id_Tab_Type;
3000: -- Variables added for Consolidation of BO Delivery Details project
3001: --
3002: l_global_parameters WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
3003: l_assigned_source_lines wsh_util_core.id_Tab_Type;
3004: l_unassign_backordered_dds wsh_util_core.id_Tab_Type; --Stores the list of BackOrder/Cycle-Count delivery detail ids
3005: l_unassign_rel_status wsh_util_core.Column_Tab_Type;
3006: -- Stores the corresponding Released_status of the delivery details in l_unassign_dds
3007: l_unassign_source_lines wsh_util_core.id_Tab_Type;
3008: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
3001: --
3002: l_global_parameters WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
3003: l_assigned_source_lines wsh_util_core.id_Tab_Type;
3004: l_unassign_backordered_dds wsh_util_core.id_Tab_Type; --Stores the list of BackOrder/Cycle-Count delivery detail ids
3005: l_unassign_rel_status wsh_util_core.Column_Tab_Type;
3006: -- Stores the corresponding Released_status of the delivery details in l_unassign_dds
3007: l_unassign_source_lines wsh_util_core.id_Tab_Type;
3008: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
3009: l_bo_line_ids wsh_util_core.id_Tab_Type;
3003: l_assigned_source_lines wsh_util_core.id_Tab_Type;
3004: l_unassign_backordered_dds wsh_util_core.id_Tab_Type; --Stores the list of BackOrder/Cycle-Count delivery detail ids
3005: l_unassign_rel_status wsh_util_core.Column_Tab_Type;
3006: -- Stores the corresponding Released_status of the delivery details in l_unassign_dds
3007: l_unassign_source_lines wsh_util_core.id_Tab_Type;
3008: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
3009: l_bo_line_ids wsh_util_core.id_Tab_Type;
3010:
3011: l_bo_source_lines wsh_util_core.id_Tab_Type;
3005: l_unassign_rel_status wsh_util_core.Column_Tab_Type;
3006: -- Stores the corresponding Released_status of the delivery details in l_unassign_dds
3007: l_unassign_source_lines wsh_util_core.id_Tab_Type;
3008: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
3009: l_bo_line_ids wsh_util_core.id_Tab_Type;
3010:
3011: l_bo_source_lines wsh_util_core.id_Tab_Type;
3012: l_bo_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3013: l_cc_source_lines wsh_util_core.id_Tab_Type;
3007: l_unassign_source_lines wsh_util_core.id_Tab_Type;
3008: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
3009: l_bo_line_ids wsh_util_core.id_Tab_Type;
3010:
3011: l_bo_source_lines wsh_util_core.id_Tab_Type;
3012: l_bo_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3013: l_cc_source_lines wsh_util_core.id_Tab_Type;
3014: l_cc_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3015: l_cons_flags wsh_util_core.Column_Tab_Type;
3008: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
3009: l_bo_line_ids wsh_util_core.id_Tab_Type;
3010:
3011: l_bo_source_lines wsh_util_core.id_Tab_Type;
3012: l_bo_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3013: l_cc_source_lines wsh_util_core.id_Tab_Type;
3014: l_cc_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3015: l_cons_flags wsh_util_core.Column_Tab_Type;
3016: l_source_line_id NUMBER;
3009: l_bo_line_ids wsh_util_core.id_Tab_Type;
3010:
3011: l_bo_source_lines wsh_util_core.id_Tab_Type;
3012: l_bo_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3013: l_cc_source_lines wsh_util_core.id_Tab_Type;
3014: l_cc_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3015: l_cons_flags wsh_util_core.Column_Tab_Type;
3016: l_source_line_id NUMBER;
3017: l_idx NUMBER;
3010:
3011: l_bo_source_lines wsh_util_core.id_Tab_Type;
3012: l_bo_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3013: l_cc_source_lines wsh_util_core.id_Tab_Type;
3014: l_cc_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3015: l_cons_flags wsh_util_core.Column_Tab_Type;
3016: l_source_line_id NUMBER;
3017: l_idx NUMBER;
3018: l_cmp_idx NUMBER;
3011: l_bo_source_lines wsh_util_core.id_Tab_Type;
3012: l_bo_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3013: l_cc_source_lines wsh_util_core.id_Tab_Type;
3014: l_cc_sources wsh_util_core.column_Tab_Type; -- RTV BO Cons Changes
3015: l_cons_flags wsh_util_core.Column_Tab_Type;
3016: l_source_line_id NUMBER;
3017: l_idx NUMBER;
3018: l_cmp_idx NUMBER;
3019: j NUMBER;
3026: l_exceptions_tab wsh_xc_util.XC_TAB_TYPE;
3027: l_exp_logged BOOLEAN := FALSE;
3028:
3029: -- Pack J, table indexed by delivery_id to store whether ITM screening is required.
3030: l_itm_exc_flag wsh_util_core.column_Tab_Type;
3031: l_itm_stops_tab wsh_util_core.column_Tab_Type;
3032: l_lines_in_delivery NUMBER;
3033: l_itm_exc_severity VARCHAR2(30);
3034:
3027: l_exp_logged BOOLEAN := FALSE;
3028:
3029: -- Pack J, table indexed by delivery_id to store whether ITM screening is required.
3030: l_itm_exc_flag wsh_util_core.column_Tab_Type;
3031: l_itm_stops_tab wsh_util_core.column_Tab_Type;
3032: l_lines_in_delivery NUMBER;
3033: l_itm_exc_severity VARCHAR2(30);
3034:
3035: -- Checks if the itm exception is enabled and its severity.
3082: l_stop_name_list VARCHAR2(10000);
3083: --
3084:
3085: --/== Workflow Changes
3086: l_scpod_wf_del_rows wsh_util_core.id_tab_type;
3087: l_ctr NUMBER;
3088: l_aname_text wf_engine.nametabtyp;
3089: l_avalue_text wf_engine.texttabtyp;
3090: l_aname_num wf_engine.nametabtyp;
3098: l_custom_severity varchar2(10);
3099: l_activity_code varchar2(200) := 'SHIP_CONFIRM_MESSAGE' ;
3100: l_validation_code varchar2(200) := 'MISSING_CONTROLS';
3101:
3102: l_mdc_cl_del_tab wsh_util_core.id_tab_type;
3103: l_mdc_co_del_tab wsh_util_core.id_tab_type;
3104: l_mdc_index_i NUMBER;
3105:
3106: -- LPN CONV rv
3099: l_activity_code varchar2(200) := 'SHIP_CONFIRM_MESSAGE' ;
3100: l_validation_code varchar2(200) := 'MISSING_CONTROLS';
3101:
3102: l_mdc_cl_del_tab wsh_util_core.id_tab_type;
3103: l_mdc_co_del_tab wsh_util_core.id_tab_type;
3104: l_mdc_index_i NUMBER;
3105:
3106: -- LPN CONV rv
3107: cursor l_delete_wms_empty_cnt_csr is
3112: and wdd.delivery_detail_id = wwst.delivery_detail_id
3113: and wdd.container_flag = 'Y'
3114: and wdd.lpn_id is not null;
3115:
3116: l_delete_cnt_id_tbl wsh_util_core.id_tab_type;
3117: -- LPN CONV rv
3118: -- bug 4505105
3119: l_del_valid_flag VARCHAR2(1);
3120: -- bug 4505105
3118: -- bug 4505105
3119: l_del_valid_flag VARCHAR2(1);
3120: -- bug 4505105
3121: --Bug 5255366
3122: l_consol_del_doc_set wsh_util_core.id_tab_type;
3123: l_content_del_flag BOOLEAN := TRUE;
3124:
3125: --OTM R12
3126: l_ignore_for_planning WSH_NEW_DELIVERIES.IGNORE_FOR_PLANNING%TYPE;
3134: --
3135: -- Bug 8555654 : begin
3136: l_period_id NUMBER;
3137: l_open_past_period BOOLEAN;
3138: l_opn_prd_chk_orgs wsh_util_core.id_tab_type;
3139: -- Bug 8555654 : end
3140:
3141: -- muom
3142: l_fulfill_base VARCHAR2(1);
3176: END IF;
3177: --
3178: l_login_id := FND_GLOBAL.login_id;
3179: l_user_id := FND_GLOBAL.user_id ;
3180: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS ;
3181:
3182: --OTM R12
3183: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
3184:
3179: l_user_id := FND_GLOBAL.user_id ;
3180: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS ;
3181:
3182: --OTM R12
3183: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
3184:
3185: IF l_gc3_is_installed IS NULL THEN
3186: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
3187: END IF;
3182: --OTM R12
3183: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
3184:
3185: IF l_gc3_is_installed IS NULL THEN
3186: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
3187: END IF;
3188: --
3189:
3190: -- bug 2778035
3190: -- bug 2778035
3191: IF p_action_flag IS NULL
3192: OR p_action_flag NOT IN ('S', 'B', 'L', 'T', 'A', 'C', 'O') THEN
3193: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_SC_ACTION_FLAG');
3194: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
3195: RAISE FND_API.G_EXC_ERROR;
3196: END IF;
3197: -- bug 2778035
3198:
3215: -- End of fix for bug 3944151
3216:
3217: /* Bug 2761304 : The following call is now made inside the loop*/
3218:
3219: /* WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => TRUE,
3220: x_msg_rec_count => l_msg_rec_count,
3221: x_return_status => l_return_status);
3222: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3223: raise ship_confirm_error;
3218:
3219: /* WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => TRUE,
3220: x_msg_rec_count => l_msg_rec_count,
3221: x_return_status => l_return_status);
3222: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3223: raise ship_confirm_error;
3224: END IF;*/
3225:
3226: l_user_name := G_USER_NAME ;
3238: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit 2WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
3239: END IF;
3240: --
3241: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_parameters, l_return_status);
3242: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3243: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3244: raise ship_confirm_error;
3245: -- x_return_status := l_return_status;
3246: -- wsh_util_core.add_message(x_return_status);
3239: END IF;
3240: --
3241: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_parameters, l_return_status);
3242: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3243: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3244: raise ship_confirm_error;
3245: -- x_return_status := l_return_status;
3246: -- wsh_util_core.add_message(x_return_status);
3247: -- l_num_error := l_num_error + 1 ;
3242: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3243: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3244: raise ship_confirm_error;
3245: -- x_return_status := l_return_status;
3246: -- wsh_util_core.add_message(x_return_status);
3247: -- l_num_error := l_num_error + 1 ;
3248: -- goto loop_end;
3249: END IF;
3250:
3253:
3254: SAVEPOINT confirm_delivery_sp ;
3255:
3256: /* Bug 2761304*/
3257: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => TRUE,
3258: x_msg_rec_count => l_msg_rec_count,
3259: x_return_status => l_return_status);
3260:
3261: -- Bug 3913206
3261: -- Bug 3913206
3262: l_sc_pickup_date := NULL;
3263: l_sc_dropoff_date := NULL;
3264:
3265: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3266: raise ship_confirm_error;
3267: END IF;
3268:
3269: -- Bug 2713285, movedthe code outside the loop,since it is for same delivery
3300:
3301: FND_MESSAGE.SET_NAME('WSH','WSH_EMPTY_CONTAINER');
3302: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3303: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3304: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3305: l_num_warn := l_num_warn + 1;
3306: wsh_util_core.add_message(x_return_status,l_module_name);
3307: END LOOP;
3308: CLOSE get_empty_containers;
3302: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3303: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3304: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3305: l_num_warn := l_num_warn + 1;
3306: wsh_util_core.add_message(x_return_status,l_module_name);
3307: END LOOP;
3308: CLOSE get_empty_containers;
3309:
3310: l_bo_rows.delete ;
3480: IF l_debug_on THEN
3481: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_INTERFACE_EXT_GRP.OTM_PRE_SHIP_CONFIRM', l_return_status);
3482: END IF;
3483:
3484: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3485: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
3486: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3487:
3488: WSH_UTIL_CORE.add_message(l_return_status, l_module_name);
3484: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3485: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
3486: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3487:
3488: WSH_UTIL_CORE.add_message(l_return_status, l_module_name);
3489:
3490: l_num_error := l_num_error + 1 ;
3491: GOTO loop_end;
3492:
3489:
3490: l_num_error := l_num_error + 1 ;
3491: GOTO loop_end;
3492:
3493: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3494: l_num_warn := l_num_warn + 1 ;
3495: END IF;
3496:
3497: --we are checking that otm_plan_name is NOT NULL meaning
3514:
3515: FND_MESSAGE.SET_NAME('WSH', 'WSH_OTM_SHIP_CONFIRM_ERROR');
3516: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_delivery_name);
3517:
3518: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
3519: l_num_error := l_num_error + 1;
3520: GOTO loop_end;
3521: END IF;
3522: END IF;
3564: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3565: END IF;
3566: --
3567: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3568: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_SUCCESS);
3569: goto loop_end ;
3570: END IF;
3571:
3572: --b. If delivery is neither OPEN nor PACKED , then set WARNING and go to next one
3572: --b. If delivery is neither OPEN nor PACKED , then set WARNING and go to next one
3573:
3574: IF NOT ( (l_del_status_code IN ('OP', 'PA', 'SA'))) THEN -- sperera 940/945
3575: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_MULTI_ERROR');
3576: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3577: l_num_warn := l_num_warn + 1;
3578: wsh_util_core.add_message(x_return_status);
3579: goto loop_end ;
3580: END IF;
3574: IF NOT ( (l_del_status_code IN ('OP', 'PA', 'SA'))) THEN -- sperera 940/945
3575: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_MULTI_ERROR');
3576: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3577: l_num_warn := l_num_warn + 1;
3578: wsh_util_core.add_message(x_return_status);
3579: goto loop_end ;
3580: END IF;
3581:
3582: -- c. If ship Method is null , freight_code is null
3600: --
3601: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3602: FND_MESSAGE.SET_TOKEN('SHIP_METHOD',l_ship_method_code);
3603: FND_MESSAGE.SET_TOKEN('ORG_ID',l_organization_id);
3604: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING);
3605: x_return_Status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
3606: l_num_warn := l_num_warn + 1 ;
3607: ELSE
3608: CLOSE get_freight;
3601: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3602: FND_MESSAGE.SET_TOKEN('SHIP_METHOD',l_ship_method_code);
3603: FND_MESSAGE.SET_TOKEN('ORG_ID',l_organization_id);
3604: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING);
3605: x_return_Status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
3606: l_num_warn := l_num_warn + 1 ;
3607: ELSE
3608: CLOSE get_freight;
3609: END IF;
3624: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3625: END IF;
3626: --
3627: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3628: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3629: wsh_util_core.add_message(x_return_status);
3630:
3631: l_num_warn := l_num_warn + 1;
3632: END IF; --}
3625: END IF;
3626: --
3627: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3628: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3629: wsh_util_core.add_message(x_return_status);
3630:
3631: l_num_warn := l_num_warn + 1;
3632: END IF; --}
3633:
3653: (p_table_name => 'WSH_NEW_DELIVERIES',
3654: p_primary_id => p_del_rows(i),
3655: x_return_status => x_return_status);
3656:
3657: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3658: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
3659: --
3660: -- Debug Statements
3661: --
3663: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3664: END IF;
3665: --
3666: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3667: wsh_util_core.add_message(x_return_status);
3668: if ( x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) then
3669: l_num_error := l_num_error + 1 ;
3670: goto loop_end ;
3671: else
3664: END IF;
3665: --
3666: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3667: wsh_util_core.add_message(x_return_status);
3668: if ( x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) then
3669: l_num_error := l_num_error + 1 ;
3670: goto loop_end ;
3671: else
3672: l_num_warn := l_num_warn + 1 ;
3683: IF l_debug_on THEN
3684: WSH_DEBUG_SV.log(l_module_name,'x_return_status after calling validate_del_containers', x_return_status);
3685: END IF;
3686:
3687: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3688: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
3689: --
3690: -- Debug Statements
3691: --
3693: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3694: END IF;
3695: --
3696: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3697: wsh_util_core.add_message(x_return_status);
3698: END IF;
3699: --
3700: IF (nvl(l_del_valid_flag,'Y') = 'N') THEN
3701: l_num_error := l_num_error + 1 ;
3701: l_num_error := l_num_error + 1 ;
3702: goto loop_end ;
3703: END IF;
3704:
3705: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3706: l_num_error := l_num_error + 1 ;
3707: goto loop_end ;
3708: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3709: l_num_error := l_num_error + 1 ;
3704:
3705: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3706: l_num_error := l_num_error + 1 ;
3707: goto loop_end ;
3708: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3709: l_num_error := l_num_error + 1 ;
3710: goto loop_end ;
3711: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3712: l_num_warn := l_num_warn + 1 ;
3707: goto loop_end ;
3708: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3709: l_num_error := l_num_error + 1 ;
3710: goto loop_end ;
3711: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3712: l_num_warn := l_num_warn + 1 ;
3713: END IF;
3714: -- bug 4505105
3715:
3743: p_commit => 'F',
3744: p_init_msg_list => 'F',
3745: p_api_version => 1.0, -- Bugfix 3561335
3746: p_delivery_ids => l_wms_delivery_id);
3747: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3748: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
3749: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_PUB.DEL_WSTT_RECS_BY_DELIVERY_ID');
3750: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
3751: x_return_status := l_return_status;
3748: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
3749: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_PUB.DEL_WSTT_RECS_BY_DELIVERY_ID');
3750: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
3751: x_return_status := l_return_status;
3752: wsh_util_core.add_message(x_return_status);
3753: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3754: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3755: l_num_error := l_num_error + 1 ;
3756: goto confirm_error_no_msg;
3749: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_PUB.DEL_WSTT_RECS_BY_DELIVERY_ID');
3750: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
3751: x_return_status := l_return_status;
3752: wsh_util_core.add_message(x_return_status);
3753: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3754: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3755: l_num_error := l_num_error + 1 ;
3756: goto confirm_error_no_msg;
3757: ELSE
3750: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
3751: x_return_status := l_return_status;
3752: wsh_util_core.add_message(x_return_status);
3753: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3754: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3755: l_num_error := l_num_error + 1 ;
3756: goto confirm_error_no_msg;
3757: ELSE
3758: l_num_warn := l_num_warn + 1 ;
3777: p_consider_content => 'Y',
3778: x_exceptions_tab => l_exceptions_tab
3779: );
3780:
3781: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3782: x_return_status := l_return_status;
3783: wsh_util_core.add_message(x_return_status);
3784: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3785: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3779: );
3780:
3781: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3782: x_return_status := l_return_status;
3783: wsh_util_core.add_message(x_return_status);
3784: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3785: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3786: l_num_error := l_num_error + 1 ;
3787: goto confirm_error_no_msg;
3780:
3781: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3782: x_return_status := l_return_status;
3783: wsh_util_core.add_message(x_return_status);
3784: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3785: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3786: l_num_error := l_num_error + 1 ;
3787: goto confirm_error_no_msg;
3788: ELSE
3781: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3782: x_return_status := l_return_status;
3783: wsh_util_core.add_message(x_return_status);
3784: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3785: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3786: l_num_error := l_num_error + 1 ;
3787: goto confirm_error_no_msg;
3788: ELSE
3789: l_num_warn := l_num_warn + 1 ;
3803: END IF;
3804: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3805: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3806: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_error);
3807: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3808: wsh_util_core.add_message(x_return_status);
3809: l_num_error := l_num_error + 1 ;
3810: goto confirm_error_no_msg;
3811: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
3804: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3805: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3806: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_error);
3807: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3808: wsh_util_core.add_message(x_return_status);
3809: l_num_error := l_num_error + 1 ;
3810: goto confirm_error_no_msg;
3811: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
3812: IF l_exceptions_tab(exp_cnt).entity_name = 'DELIVERY' THEN
3813: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
3814: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3815: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3816: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_warn);
3817: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3818: wsh_util_core.add_message(x_return_status);
3819: l_num_warn := l_num_warn + 1 ;
3820: ELSIF NOT (l_exp_logged) THEN
3821: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
3814: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3815: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3816: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_warn);
3817: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3818: wsh_util_core.add_message(x_return_status);
3819: l_num_warn := l_num_warn + 1 ;
3820: ELSIF NOT (l_exp_logged) THEN
3821: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
3822: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3821: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
3822: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3823: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3824: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_warn);
3825: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3826: l_exp_logged := TRUE;
3827: wsh_util_core.add_message(x_return_status);
3828: l_num_warn := l_num_warn + 1 ;
3829: END IF;
3823: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3824: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_warn);
3825: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3826: l_exp_logged := TRUE;
3827: wsh_util_core.add_message(x_return_status);
3828: l_num_warn := l_num_warn + 1 ;
3829: END IF;
3830: END IF;
3831: END LOOP;
3879: IF detail_info%NOTFOUND AND l_lines_in_delivery = 0 THEN
3880: CLOSE detail_info;
3881: FND_MESSAGE.SET_NAME('WSH','WSH_EMPTY_DELIVERY');
3882: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3883: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3884: wsh_util_core.add_message(x_return_status);
3885: goto confirm_error_no_msg;
3886: END IF;
3887:
3880: CLOSE detail_info;
3881: FND_MESSAGE.SET_NAME('WSH','WSH_EMPTY_DELIVERY');
3882: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3883: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3884: wsh_util_core.add_message(x_return_status);
3885: goto confirm_error_no_msg;
3886: END IF;
3887:
3888: EXIT WHEN detail_info%NOTFOUND;
3921: --
3922: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3923: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_delivery_detail_id));
3924: IF l_severity_present IN ('H','M') THEN
3925: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3926: wsh_util_core.add_message(x_return_status);
3927: goto confirm_error;
3928: ELSIF l_severity_present = 'L' THEN
3929: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3922: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3923: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_delivery_detail_id));
3924: IF l_severity_present IN ('H','M') THEN
3925: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3926: wsh_util_core.add_message(x_return_status);
3927: goto confirm_error;
3928: ELSIF l_severity_present = 'L' THEN
3929: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3930: wsh_util_core.add_message(x_return_status);
3925: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3926: wsh_util_core.add_message(x_return_status);
3927: goto confirm_error;
3928: ELSIF l_severity_present = 'L' THEN
3929: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3930: wsh_util_core.add_message(x_return_status);
3931: l_num_warn := l_num_warn + 1 ;
3932: END IF;
3933: END IF;
3926: wsh_util_core.add_message(x_return_status);
3927: goto confirm_error;
3928: ELSIF l_severity_present = 'L' THEN
3929: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3930: wsh_util_core.add_message(x_return_status);
3931: l_num_warn := l_num_warn + 1 ;
3932: END IF;
3933: END IF;
3934:
3958: --
3959: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3960: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_container_id));
3961: IF l_severity_present IN ('H','M') THEN
3962: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3963: wsh_util_core.add_message(x_return_status);
3964: CLOSE Get_Containers;
3965: CLOSE detail_info;
3966: goto confirm_error;
3959: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3960: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_container_id));
3961: IF l_severity_present IN ('H','M') THEN
3962: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3963: wsh_util_core.add_message(x_return_status);
3964: CLOSE Get_Containers;
3965: CLOSE detail_info;
3966: goto confirm_error;
3967: ELSIF l_severity_present = 'L' THEN
3964: CLOSE Get_Containers;
3965: CLOSE detail_info;
3966: goto confirm_error;
3967: ELSIF l_severity_present = 'L' THEN
3968: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3969: wsh_util_core.add_message(x_return_status);
3970: l_num_warn := l_num_warn + 1 ;
3971: END IF;
3972: END IF;
3965: CLOSE detail_info;
3966: goto confirm_error;
3967: ELSIF l_severity_present = 'L' THEN
3968: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3969: wsh_util_core.add_message(x_return_status);
3970: l_num_warn := l_num_warn + 1 ;
3971: END IF;
3972: END IF;
3973:
3994:
3995: WSH_DEBUG_SV.logmsg(l_module_name,'Return status after calling Validate_DFF in DEACB is : '
3996: || x_return_status);
3997: END IF;
3998: IF ( x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) THEN
3999: --
4000: -- Debug Statements
4001: --
4002: IF l_debug_on THEN
4041: l_cycle_quantity > 0)
4042: ) THEN
4043: l_source_code_flag := 'Y';
4044: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_SHIP_MODE');
4045: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4046: wsh_util_core.add_message(x_return_status);
4047: l_num_error := l_num_error + 1;
4048: CLOSE detail_info;
4049: goto confirm_error_no_msg;
4042: ) THEN
4043: l_source_code_flag := 'Y';
4044: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_SHIP_MODE');
4045: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4046: wsh_util_core.add_message(x_return_status);
4047: l_num_error := l_num_error + 1;
4048: CLOSE detail_info;
4049: goto confirm_error_no_msg;
4050:
4058: FOR UPDATE NOWAIT;
4059:
4060: EXCEPTION
4061: WHEN record_locked THEN
4062: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4063: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
4064: wsh_util_core.add_message(x_return_status);
4065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4066: CLOSE detail_info;
4060: EXCEPTION
4061: WHEN record_locked THEN
4062: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4063: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
4064: wsh_util_core.add_message(x_return_status);
4065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4066: CLOSE detail_info;
4067: goto confirm_error;
4068: WHEN OTHERS THEN
4061: WHEN record_locked THEN
4062: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4063: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
4064: wsh_util_core.add_message(x_return_status);
4065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4066: CLOSE detail_info;
4067: goto confirm_error;
4068: WHEN OTHERS THEN
4069: RAISE;
4073: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_UNRELEASED');
4074: -- Bug 2713285
4075: -- for cancelling or unassigning the lines from delivery thru Batch process
4076: IF l_batch_id IS NULL THEN
4077: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4078: l_num_warn := l_num_warn + 1 ;
4079: ELSE
4080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4081: l_num_error := l_num_error + 1 ;
4076: IF l_batch_id IS NULL THEN
4077: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4078: l_num_warn := l_num_warn + 1 ;
4079: ELSE
4080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4081: l_num_error := l_num_error + 1 ;
4082: END IF;
4083:
4084: wsh_util_core.add_message(x_return_status);
4080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4081: l_num_error := l_num_error + 1 ;
4082: END IF;
4083:
4084: wsh_util_core.add_message(x_return_status);
4085: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4086: --bug 2770400
4087: IF l_batch_id IS NOT NULL THEN
4088: -- in batch mode ,stop confirming the delivery
4085: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4086: --bug 2770400
4087: IF l_batch_id IS NOT NULL THEN
4088: -- in batch mode ,stop confirming the delivery
4089: wsh_util_core.add_message(x_return_status);
4090: CLOSE detail_info;
4091: goto confirm_error_no_msg;
4092: END IF;
4093: -- End of Bug 2713285
4112: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4113: END IF;
4114: --
4115: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
4116: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4117: wsh_util_core.add_message(x_return_status);
4118: l_num_warn := l_num_warn + 1;
4119:
4120: UPDATE WSH_DELIVERY_DETAILS
4113: END IF;
4114: --
4115: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
4116: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4117: wsh_util_core.add_message(x_return_status);
4118: l_num_warn := l_num_warn + 1;
4119:
4120: UPDATE WSH_DELIVERY_DETAILS
4121: SET INSPECTION_FLAG = 'I'
4165: IF l_debug_on THEN
4166: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FLEXFIELD_UTILS.VALIDATE_DFF validation failed for delivery detail(s)',WSH_DEBUG_SV.C_PROC_LEVEL);
4167: END IF;
4168: --
4169: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4170: l_token := FND_MESSAGE.Get_String('WSH', 'WSH_DETAIL_DFF_TITLE');
4171:
4172: FND_MESSAGE.Set_Name('WSH', 'WSH_DFF_DETAIL_EMPTY');
4173: FND_MESSAGE.Set_Token('DFF_TITLE', l_token);
4171:
4172: FND_MESSAGE.Set_Name('WSH', 'WSH_DFF_DETAIL_EMPTY');
4173: FND_MESSAGE.Set_Token('DFF_TITLE', l_token);
4174: FND_MESSAGE.Set_Token('DETAIL_IDS', l_invalid_details);
4175: WSH_UTIL_CORE.Add_Message(x_return_status);
4176:
4177: IF ( x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING ) THEN
4178: l_num_warn := l_num_warn;
4179: END IF;
4173: FND_MESSAGE.Set_Token('DFF_TITLE', l_token);
4174: FND_MESSAGE.Set_Token('DETAIL_IDS', l_invalid_details);
4175: WSH_UTIL_CORE.Add_Message(x_return_status);
4176:
4177: IF ( x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING ) THEN
4178: l_num_warn := l_num_warn;
4179: END IF;
4180:
4181: goto loop_end;
4202: x_return_status => l_return_status,
4203: x_msg_count => l_msg_count,
4204: x_msg_data => l_msg_data
4205: );
4206: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4207: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
4208: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4209: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4210: x_return_status := l_return_status;
4207: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
4208: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4209: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4210: x_return_status := l_return_status;
4211: wsh_util_core.add_message(x_return_status);
4212: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4213: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4214: THEN
4215:
4208: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4209: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4210: x_return_status := l_return_status;
4211: wsh_util_core.add_message(x_return_status);
4212: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4213: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4214: THEN
4215:
4216: l_num_error := l_num_error + 1 ;
4209: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4210: x_return_status := l_return_status;
4211: wsh_util_core.add_message(x_return_status);
4212: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4213: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4214: THEN
4215:
4216: l_num_error := l_num_error + 1 ;
4217: ELSE
4244: x_out_rows => l_out_cc_rows ,
4245: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4246: x_return_status => l_return_status);
4247:
4248: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
4249: THEN
4250: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4251: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4252: THEN
4246: x_return_status => l_return_status);
4247:
4248: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
4249: THEN
4250: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4251: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4252: THEN
4253: l_num_error := l_num_error + 1 ;
4254: goto confirm_error_no_msg;
4247:
4248: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
4249: THEN
4250: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4251: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4252: THEN
4253: l_num_error := l_num_error + 1 ;
4254: goto confirm_error_no_msg;
4255: ELSE
4278: x_return_status => l_return_status,
4279: x_msg_count => l_msg_count,
4280: x_msg_data => l_msg_data
4281: );
4282: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4283: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
4284: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4285: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4286: x_return_status := l_return_status;
4283: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
4284: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4285: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4286: x_return_status := l_return_status;
4287: wsh_util_core.add_message(x_return_status);
4288: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4289: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4290: l_num_error := l_num_error + 1 ;
4291: ELSE
4284: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4285: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4286: x_return_status := l_return_status;
4287: wsh_util_core.add_message(x_return_status);
4288: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4289: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4290: l_num_error := l_num_error + 1 ;
4291: ELSE
4292: l_num_warn := l_num_warn + 1 ;
4285: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4286: x_return_status := l_return_status;
4287: wsh_util_core.add_message(x_return_status);
4288: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4289: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4290: l_num_error := l_num_error + 1 ;
4291: ELSE
4292: l_num_warn := l_num_warn + 1 ;
4293: END IF;
4316: x_out_rows => l_out_bo_rows ,
4317: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4318: x_return_status => l_return_status);
4319:
4320: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4321: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4322: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4323: THEN
4324: l_num_error := l_num_error + 1 ;
4317: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4318: x_return_status => l_return_status);
4319:
4320: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4321: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4322: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4323: THEN
4324: l_num_error := l_num_error + 1 ;
4325: goto confirm_error_no_msg;
4318: x_return_status => l_return_status);
4319:
4320: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4321: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4322: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4323: THEN
4324: l_num_error := l_num_error + 1 ;
4325: goto confirm_error_no_msg;
4326: ELSE
4441: -- muom
4442: IF l_debug_on THEN
4443: WSH_DEBUG_SV.logmsg(l_module_name,'l_stage_quantity '||l_stage_quantity||' l_stage_quantity2 '||l_stage_quantity2);
4444: END IF;
4445: l_fulfill_base := WSH_UTIL_CORE.Get_Line_Fulfillment_Base(l_assigned_src_codes(j), l_assigned_source_lines(j));
4446: -- When Fulfillment base is Secondary, the nothing should be Staged on Primary if there is nothing to be Staged on Secondary
4447: IF (l_stage_quantity > 0) and (nvl(l_stage_quantity2,0) <= 0) and (l_assigned_req_qty_uoms2(j) is not null) and
4448: (l_fulfill_base = 'S') THEN
4449: l_stage_quantity := 0;
4481: p_unassign_flag => 'N',
4482: p_req_quantity2 => l_stage_quantity2,
4483: p_manual_split => 'Y');
4484:
4485: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4486: l_num_error := l_num_error + 1 ;
4487: goto confirm_error;
4488: ELSE
4489: l_staged_dd_id := l_new_detail_id;
4496: -- Bug 2713285
4497: -- for cancelling any line in delivery thru Batch process
4498: IF l_batch_id IS NOT NULL THEN
4499: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CANCEL_DET_ERROR');
4500: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4501: wsh_util_core.add_message(x_return_status);
4502: l_num_error := l_num_error + 1;
4503: goto confirm_error_no_msg;
4504: END IF;
4497: -- for cancelling any line in delivery thru Batch process
4498: IF l_batch_id IS NOT NULL THEN
4499: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CANCEL_DET_ERROR');
4500: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4501: wsh_util_core.add_message(x_return_status);
4502: l_num_error := l_num_error + 1;
4503: goto confirm_error_no_msg;
4504: END IF;
4505: -- Bug 2713285
4614: x_net_weight => l_net_weight,
4615: x_volume => l_volume,
4616: x_return_status => l_return_status);
4617:
4618: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4619: x_return_status := l_return_status;
4620: IF l_debug_on THEN
4621: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
4622: WSH_DEBUG_SV.pop(l_module_name);
4678: x_out_rows => l_out_bo_rows ,
4679: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4680: x_return_status => l_return_status);
4681:
4682: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4683: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4684: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4685: l_num_error := l_num_error + 1 ;
4686: goto confirm_error_no_msg;
4679: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4680: x_return_status => l_return_status);
4681:
4682: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4683: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4684: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4685: l_num_error := l_num_error + 1 ;
4686: goto confirm_error_no_msg;
4687: ELSE
4680: x_return_status => l_return_status);
4681:
4682: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4683: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4684: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4685: l_num_error := l_num_error + 1 ;
4686: goto confirm_error_no_msg;
4687: ELSE
4688: l_num_warn := l_num_warn + 1 ;
4714: x_out_rows => l_out_cc_rows ,
4715: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4716: x_return_status => l_return_status);
4717:
4718: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4719: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4720: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4721: l_num_error := l_num_error + 1 ;
4722: goto confirm_error_no_msg;
4715: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4716: x_return_status => l_return_status);
4717:
4718: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4719: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4720: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4721: l_num_error := l_num_error + 1 ;
4722: goto confirm_error_no_msg;
4723: ELSE
4716: x_return_status => l_return_status);
4717:
4718: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4719: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4720: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4721: l_num_error := l_num_error + 1 ;
4722: goto confirm_error_no_msg;
4723: ELSE
4724: l_num_warn := l_num_warn + 1 ;
4748: p_check_credit_init_flag => l_check_credit_init_flag, -- bug 2343058
4749: x_line_inv_flag_rec => l_inv_controls_rec,
4750: x_return_status => l_return_status);
4751:
4752: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4753: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4754: l_num_error := l_num_error + 1;
4755: raise ship_confirm_error;
4756: /* H integration: 945 check detail wrudge */
4749: x_line_inv_flag_rec => l_inv_controls_rec,
4750: x_return_status => l_return_status);
4751:
4752: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4753: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4754: l_num_error := l_num_error + 1;
4755: raise ship_confirm_error;
4756: /* H integration: 945 check detail wrudge */
4757: ELSIF l_shp_dd_source(dd_count) = 'WSH' THEN
4764: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4765: END IF;
4766: --
4767: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
4768: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
4769: l_num_error := l_num_error + 1;
4770: goto confirm_error_no_msg;
4771: ELSE
4772: -- Bug 2713285
4772: -- Bug 2713285
4773: -- for inventory control items, lines are unassigned from Delivery
4774: -- thru batch process
4775: IF l_batch_id IS NOT NULL THEN
4776: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4777: IF l_inv_controls_rec.details_required_flag='Y' THEN --Bug 3773225
4778: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_REQUIRED');
4779: wsh_util_core.add_message(x_return_status);
4780: ELSIF l_inv_controls_rec.invalid_material_status_flag='Y' THEN --Material Status Impact
4775: IF l_batch_id IS NOT NULL THEN
4776: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4777: IF l_inv_controls_rec.details_required_flag='Y' THEN --Bug 3773225
4778: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_REQUIRED');
4779: wsh_util_core.add_message(x_return_status);
4780: ELSIF l_inv_controls_rec.invalid_material_status_flag='Y' THEN --Material Status Impact
4781: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MATERIAL_STATUS');
4782: wsh_util_core.add_message(x_return_status);
4783: END IF;
4778: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_REQUIRED');
4779: wsh_util_core.add_message(x_return_status);
4780: ELSIF l_inv_controls_rec.invalid_material_status_flag='Y' THEN --Material Status Impact
4781: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MATERIAL_STATUS');
4782: wsh_util_core.add_message(x_return_status);
4783: END IF;
4784: l_num_error := l_num_error + 1;
4785: goto confirm_error_no_msg;
4786: END IF;
4833: END IF;
4834: /***************************Material Status Project***************************************/
4835: end if;
4836:
4837: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
4838: END IF;
4839: ELSE
4840: l_unassign_all_flag_tab(i) := FALSE ;
4841:
4847: -- else it will be FALSE by default
4848: l_cont_exists_flag := TRUE;
4849: END IF; -- (if container_id IS NULL)
4850:
4851: END IF; -- (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
4852:
4853: -- bug 2320388
4854: l_check_credit_init_flag := FALSE;
4855:
4866: WSH_DELIVERY_DETAILS_INV.Default_Subinventory ( l_shp_dd_orgs ( dd_count ),
4867: l_shp_dd_items( dd_count ),
4868: dft_subinv,
4869: x_return_status);
4870: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
4871: raise ship_confirm_error;
4872: END IF;
4873:
4874: END IF;
4969:
4970: If g_missing_inv_severity = 'E' then
4971: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_INV_CONTROLS');
4972: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_ctrl_dd_ids);
4973: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4974: wsh_util_core.add_message(x_return_status);
4975: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4976: l_num_error := l_num_error + 1;
4977: goto confirm_error_no_msg;
4970: If g_missing_inv_severity = 'E' then
4971: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_INV_CONTROLS');
4972: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_ctrl_dd_ids);
4973: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4974: wsh_util_core.add_message(x_return_status);
4975: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4976: l_num_error := l_num_error + 1;
4977: goto confirm_error_no_msg;
4978: Else
4977: goto confirm_error_no_msg;
4978: Else
4979: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_INV_CONTROLS');
4980: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_ctrl_dd_ids);
4981: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4982: wsh_util_core.add_message(x_return_status);
4983: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4984: End If;
4985: END IF;
4978: Else
4979: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_INV_CONTROLS');
4980: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_ctrl_dd_ids);
4981: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4982: wsh_util_core.add_message(x_return_status);
4983: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4984: End If;
4985: END IF;
4986: /***************************Material Status Project***************************************/
5001:
5002: If g_missing_inv_severity = 'E' then
5003: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_MATERIAL_STATUS');
5004: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_material_dd_ids);
5005: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5006: wsh_util_core.add_message(x_return_status);
5007: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
5008: l_num_error := l_num_error + 1;
5009: goto confirm_error_no_msg;
5002: If g_missing_inv_severity = 'E' then
5003: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_MATERIAL_STATUS');
5004: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_material_dd_ids);
5005: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5006: wsh_util_core.add_message(x_return_status);
5007: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
5008: l_num_error := l_num_error + 1;
5009: goto confirm_error_no_msg;
5010: Else
5009: goto confirm_error_no_msg;
5010: Else
5011: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_MATERIAL_STATUS');
5012: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_material_dd_ids);
5013: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5014: wsh_util_core.add_message(x_return_status);
5015: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
5016: End If;
5017: END IF;
5010: Else
5011: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_MATERIAL_STATUS');
5012: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_material_dd_ids);
5013: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5014: wsh_util_core.add_message(x_return_status);
5015: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
5016: End If;
5017: END IF;
5018: /***************************Material Status Project***************************************/
5027: wsh_tpa_delivery_pkg.check_released_lines(
5028: p_del_rows(i), l_unassign_dds.count,
5029: l_detail_num-l_unassign_dds.count, l_return_status);
5030:
5031: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
5032: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
5033: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5034: l_num_error := l_num_error + 1 ;
5035: ELSE
5028: p_del_rows(i), l_unassign_dds.count,
5029: l_detail_num-l_unassign_dds.count, l_return_status);
5030:
5031: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
5032: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
5033: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5034: l_num_error := l_num_error + 1 ;
5035: ELSE
5036: l_num_warn := l_num_warn + 1 ;
5029: l_detail_num-l_unassign_dds.count, l_return_status);
5030:
5031: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
5032: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
5033: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5034: l_num_error := l_num_error + 1 ;
5035: ELSE
5036: l_num_warn := l_num_warn + 1 ;
5037: END IF ;
5154: p_validate_flag => 'N', -- want it to succeed in case of Planned Deliveries
5155: x_return_status => l_return_status
5156: );
5157:
5158: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5159: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5160: THEN
5161: x_return_status := l_return_status;
5162: l_num_error := l_num_error + 1 ;
5155: x_return_status => l_return_status
5156: );
5157:
5158: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5159: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5160: THEN
5161: x_return_status := l_return_status;
5162: l_num_error := l_num_error + 1 ;
5163: goto loop_end;
5160: THEN
5161: x_return_status := l_return_status;
5162: l_num_error := l_num_error + 1 ;
5163: goto loop_end;
5164: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5165: l_num_warn := l_num_warn + 1;
5166: END IF;
5167:
5168: --
5176: x_unassigned_cont => x_unassigned_cont,
5177: x_return_status => l_return_status
5178: );
5179:
5180: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5181: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5182: THEN
5183: x_return_status := l_return_status;
5184: wsh_util_core.add_message(x_return_status);
5177: x_return_status => l_return_status
5178: );
5179:
5180: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5181: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5182: THEN
5183: x_return_status := l_return_status;
5184: wsh_util_core.add_message(x_return_status);
5185: l_num_error := l_num_error + 1 ;
5180: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5181: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5182: THEN
5183: x_return_status := l_return_status;
5184: wsh_util_core.add_message(x_return_status);
5185: l_num_error := l_num_error + 1 ;
5186: goto loop_end;
5187: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5188: l_num_warn := l_num_warn + 1;
5183: x_return_status := l_return_status;
5184: wsh_util_core.add_message(x_return_status);
5185: l_num_error := l_num_error + 1 ;
5186: goto loop_end;
5187: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5188: l_num_warn := l_num_warn + 1;
5189: END IF;
5190:
5191: --
5200: p_validate_flag => 'N', -- want it to succeed for Planned Deliveries too
5201: x_return_status => l_return_status
5202: );
5203:
5204: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5205: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5206: THEN
5207: x_return_status := l_return_status;
5208: l_num_error := l_num_error + 1 ;
5201: x_return_status => l_return_status
5202: );
5203:
5204: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5205: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5206: THEN
5207: x_return_status := l_return_status;
5208: l_num_error := l_num_error + 1 ;
5209: goto loop_end;
5206: THEN
5207: x_return_status := l_return_status;
5208: l_num_error := l_num_error + 1 ;
5209: goto loop_end;
5210: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5211: l_num_warn := l_num_warn + 1;
5212: END IF;
5213:
5214: /* H integration: 945 cancel staged/unreleased */
5224: wsh_interface.delete_details(
5225: p_details_id => l_cancel_line_ids,
5226: x_return_status => l_return_status);
5227:
5228: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5229: /* new message: WSH_DEL_CANCEL_DET_ERROR, token DEL_NAME */
5230: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CANCEL_DET_ERROR');
5231: --
5232: -- Debug Statements
5236: END IF;
5237: --
5238: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5239: x_return_status := l_return_status;
5240: wsh_util_core.add_message(x_return_status);
5241: l_num_error := l_num_error + 1 ;
5242: goto loop_end;
5243: END IF;
5244: END IF;
5257: p_calc_wv_if_frozen => 'N',
5258: x_net_weight => l_net_weight,
5259: x_volume => l_volume,
5260: x_return_status => l_return_status);
5261: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5262: x_return_status := l_return_status;
5263: IF l_debug_on THEN
5264: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
5265: WSH_DEBUG_SV.pop(l_module_name);
5281: --
5282: WSH_DETAILS_VALIDATIONS.check_zero_req_confirm(p_delivery_id => p_del_rows(i),
5283: x_return_status => l_return_status);
5284:
5285: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
5286: x_return_status := l_return_Status ;
5287: --wsh_util_core.add_message(x_return_status);
5288: l_delivery_id := p_del_rows(i);
5289: goto confirm_error_no_msg;
5283: x_return_status => l_return_status);
5284:
5285: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
5286: x_return_status := l_return_Status ;
5287: --wsh_util_core.add_message(x_return_status);
5288: l_delivery_id := p_del_rows(i);
5289: goto confirm_error_no_msg;
5290: END IF;
5291:
5301: x_return_status => l_return_status
5302: );
5303:
5304:
5305: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5306: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
5307: --
5308: -- Debug Statements
5309: --
5307: --
5308: -- Debug Statements
5309: --
5310: IF l_debug_on THEN
5311: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5312: END IF;
5313: --
5314: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5315: wsh_util_core.get_org_name(l_organization_id));
5311: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5312: END IF;
5313: --
5314: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5315: wsh_util_core.get_org_name(l_organization_id));
5316: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5317: wsh_util_core.add_message(x_return_status);
5318: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
5319: goto confirm_error;
5312: END IF;
5313: --
5314: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5315: wsh_util_core.get_org_name(l_organization_id));
5316: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5317: wsh_util_core.add_message(x_return_status);
5318: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
5319: goto confirm_error;
5320: END IF;
5313: --
5314: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5315: wsh_util_core.get_org_name(l_organization_id));
5316: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5317: wsh_util_core.add_message(x_return_status);
5318: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
5319: goto confirm_error;
5320: END IF;
5321: --/== Workflow Changes
5373: x_del_rows => l_dummy_rows ,
5374: x_grouping_rows => l_dummy_rows ,
5375: x_return_status => l_return_status ) ;
5376:
5377: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5378: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5379: l_num_warn := l_num_warn + 1;
5380: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5381: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5374: x_grouping_rows => l_dummy_rows ,
5375: x_return_status => l_return_status ) ;
5376:
5377: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5378: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5379: l_num_warn := l_num_warn + 1;
5380: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5381: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5382: l_num_error := l_num_error + 1;
5376:
5377: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5378: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5379: l_num_warn := l_num_warn + 1;
5380: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5381: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5382: l_num_error := l_num_error + 1;
5383: END IF;
5384:
5377: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5378: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5379: l_num_warn := l_num_warn + 1;
5380: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5381: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5382: l_num_error := l_num_error + 1;
5383: END IF;
5384:
5385: --deliveryMerge
5397: IF l_debug_on THEN
5398: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag l_return_status',l_return_status);
5399: END IF;
5400:
5401: IF x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5402: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5403: l_num_warn := l_num_warn + 1;
5404: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5405: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5398: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag l_return_status',l_return_status);
5399: END IF;
5400:
5401: IF x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5402: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5403: l_num_warn := l_num_warn + 1;
5404: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5405: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5406: l_num_error := l_num_error + 1;
5400:
5401: IF x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5402: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5403: l_num_warn := l_num_warn + 1;
5404: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5405: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5406: l_num_error := l_num_error + 1;
5407: END IF;
5408:
5401: IF x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5402: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5403: l_num_warn := l_num_warn + 1;
5404: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5405: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5406: l_num_error := l_num_error + 1;
5407: END IF;
5408:
5409:
5450: WSH_DEBUG_SV.logmsg(l_module_name,'ITM flag: '||l_param_info.export_screening_flag);
5451: wsh_debug_sv.log(l_module_name,'l_itm_exc_flag for delivery: '|| p_del_rows(i),l_itm_exc_flag(i)); --Bug 9326608
5452: END IF;
5453:
5454: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5455: goto confirm_error;
5456: END IF;
5457: -- Find out the severity of the exception if it is enabled.
5458: --Bug 9326608 Changed l_itm_exc_flag to use i as index
5498: --
5499: FND_MESSAGE.SET_TOKEN('ENTITY_TYPE','Delivery');
5500: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5501: FND_MESSAGE.SET_TOKEN('WV','Weight');
5502: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5503: wsh_util_core.add_message(x_return_status);
5504: l_num_warn := l_num_warn + 1;
5505: END IF;
5506:
5499: FND_MESSAGE.SET_TOKEN('ENTITY_TYPE','Delivery');
5500: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5501: FND_MESSAGE.SET_TOKEN('WV','Weight');
5502: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5503: wsh_util_core.add_message(x_return_status);
5504: l_num_warn := l_num_warn + 1;
5505: END IF;
5506:
5507: IF (l_param_info.percent_fill_basis_flag = 'V' and l_volume is NULL) THEN
5512: --
5513: FND_MESSAGE.SET_TOKEN('ENTITY_TYPE','Delivery');
5514: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5515: FND_MESSAGE.SET_TOKEN('WV','Volume');
5516: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5517: wsh_util_core.add_message(x_return_status);
5518: l_num_warn := l_num_warn + 1;
5519: END IF;
5520: END IF;
5513: FND_MESSAGE.SET_TOKEN('ENTITY_TYPE','Delivery');
5514: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5515: FND_MESSAGE.SET_TOKEN('WV','Volume');
5516: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5517: wsh_util_core.add_message(x_return_status);
5518: l_num_warn := l_num_warn + 1;
5519: END IF;
5520: END IF;
5521: -- End J: W/V Changes
5545: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_fill_status);
5546: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_save_fill_status);
5547: END IF;
5548:
5549: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5550: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5551: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5552: ELSIF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
5553: raise ship_confirm_error;
5546: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_save_fill_status);
5547: END IF;
5548:
5549: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5550: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5551: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5552: ELSIF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
5553: raise ship_confirm_error;
5554: ELSIF (l_fill_status = 'U') THEN
5547: END IF;
5548:
5549: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5550: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5551: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5552: ELSIF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
5553: raise ship_confirm_error;
5554: ELSIF (l_fill_status = 'U') THEN
5555: l_underfilled_flag := TRUE;
5548:
5549: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5550: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5551: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5552: ELSIF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
5553: raise ship_confirm_error;
5554: ELSIF (l_fill_status = 'U') THEN
5555: l_underfilled_flag := TRUE;
5556: ELSIF (l_fill_status = 'O') THEN
5598:
5599: Create_Deconsol_Trips(p_deliveries_tab => p_del_rows,
5600: x_return_status => l_return_status);
5601:
5602: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5603: raise ship_confirm_error;
5604: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5605: l_num_warn := l_num_warn + 1;
5606: END IF;
5600: x_return_status => l_return_status);
5601:
5602: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5603: raise ship_confirm_error;
5604: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5605: l_num_warn := l_num_warn + 1;
5606: END IF;
5607:
5608:
5633: ** begin bug 2426743
5634: ** Warning should not set the message that delivery will not be confirmed.
5635: ** Error should rollback and not continue processing this delivery.
5636: */
5637: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5638:
5639: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_CONFIRM_ERROR');
5640: --
5641: -- Debug Statements
5644: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5645: END IF;
5646: --
5647: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5648: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5649: wsh_util_core.add_message(x_return_status);
5650: goto confirm_error_no_msg;
5651:
5652: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5645: END IF;
5646: --
5647: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5648: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5649: wsh_util_core.add_message(x_return_status);
5650: goto confirm_error_no_msg;
5651:
5652: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5653: -- Bug 2711786
5648: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5649: wsh_util_core.add_message(x_return_status);
5650: goto confirm_error_no_msg;
5651:
5652: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5653: -- Bug 2711786
5654: -- for ship set,but this would include other validations done in
5655: -- check_confirm API like for SMC also
5656: IF l_batch_id IS NOT NULL THEN
5654: -- for ship set,but this would include other validations done in
5655: -- check_confirm API like for SMC also
5656: IF l_batch_id IS NOT NULL THEN
5657: -- FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CANCEL_DET_ERROR');
5658: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5659: -- wsh_util_core.add_message(x_return_status);
5660: l_num_error := l_num_error + 1;
5661: goto confirm_error_no_msg;
5662: END IF;
5655: -- check_confirm API like for SMC also
5656: IF l_batch_id IS NOT NULL THEN
5657: -- FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CANCEL_DET_ERROR');
5658: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5659: -- wsh_util_core.add_message(x_return_status);
5660: l_num_error := l_num_error + 1;
5661: goto confirm_error_no_msg;
5662: END IF;
5663: -- Bug 2711786
5699: l_cont_exists_flag,
5700: l_unpacked_flag,
5701: l_return_status);
5702:
5703: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
5704: THEN
5705: x_return_status := l_return_status;
5706: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5707: raise ship_confirm_error;
5702:
5703: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
5704: THEN
5705: x_return_status := l_return_status;
5706: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5707: raise ship_confirm_error;
5708: ELSE
5709: l_num_warn := l_num_warn + 1;
5710: END IF;
5715: create_pack_slip(
5716: p_delivery_id => p_del_rows(i),
5717: x_return_status => l_return_status);
5718:
5719: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5720: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5721: THEN
5722: l_num_error := l_num_error + 1;
5723: goto loop_end;
5716: p_delivery_id => p_del_rows(i),
5717: x_return_status => l_return_status);
5718:
5719: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5720: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5721: THEN
5722: l_num_error := l_num_error + 1;
5723: goto loop_end;
5724: ELSE
5730: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5731: END IF;
5732: --
5733: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5734: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5735: wsh_util_core.add_message(x_return_status);
5736: l_num_warn := l_num_warn + 1;
5737: END IF;
5738: END IF;
5731: END IF;
5732: --
5733: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5734: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5735: wsh_util_core.add_message(x_return_status);
5736: l_num_warn := l_num_warn + 1;
5737: END IF;
5738: END IF;
5739:
5789:
5790: --Compatiblity Changes
5791: --for autocreatetrip if no ship method is provided do the compatibility check to see if trip can be created for the delivery else if ship method is provided, do the compatibility check before update trip call
5792: --bug 2811489 : call should be made regardless of ship_method being null
5793: IF wsh_util_core.fte_is_installed='Y' THEN
5794:
5795: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main(
5796: p_api_version_number => 1.0,
5797: p_init_msg_list => FND_API.G_FALSE,
5824: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5825: END IF;
5826: --
5827:
5828: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
5829: IF l_cc_failed_records.COUNT>0 THEN
5830:
5831: IF l_debug_on THEN
5832: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
5835:
5836: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
5837: FND_MESSAGE.SET_TOKEN('DEL_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5838: x_return_status := l_return_status;
5839: wsh_util_core.add_message(x_return_status);
5840: goto confirm_error;
5841: ELSE
5842: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5843: l_num_warn := l_num_warn + 1;
5838: x_return_status := l_return_status;
5839: wsh_util_core.add_message(x_return_status);
5840: goto confirm_error;
5841: ELSE
5842: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5843: l_num_warn := l_num_warn + 1;
5844: END IF;
5845: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5846: x_return_status := l_return_status;
5841: ELSE
5842: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5843: l_num_warn := l_num_warn + 1;
5844: END IF;
5845: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5846: x_return_status := l_return_status;
5847: goto confirm_error;
5848: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5849: x_return_status := l_return_status;
5844: END IF;
5845: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5846: x_return_status := l_return_status;
5847: goto confirm_error;
5848: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5849: x_return_status := l_return_status;
5850: l_num_warn := l_num_warn + 1;
5851: END IF;
5852: END IF;
5871: p_sc_pickup_date => l_sc_pickup_date,
5872: p_sc_dropoff_date => l_sc_dropoff_date
5873: );
5874:
5875: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
5876: THEN
5877: x_return_status := l_return_status;
5878: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_AUTOCREATE_TRIP_ERROR');
5879:
5881: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5882: END IF;
5883: --
5884: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5885: wsh_util_core.add_message(x_return_status);
5886: goto confirm_error;
5887: END IF;
5888: END IF;
5889: END IF;
5894: IF l_trip_id IS NULL THEN
5895:
5896: --Compatibility Changes
5897: -- if trip already exists, need to check for must use constraints if carrier/mode is null
5898: IF wsh_util_core.fte_is_installed='Y' THEN
5899: l_trip_info_tab.delete;
5900: l_cc_count_success:=0;
5901:
5902: IF l_debug_on THEN
5972: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5973: END IF;
5974: --
5975:
5976: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
5977: IF l_cc_fail_ids.COUNT>0 THEN
5978:
5979: IF l_debug_on THEN
5980: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_trips_pvt.get_name',WSH_DEBUG_SV.C_PROC_LEVEL);
5982:
5983: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_COMP_FAILED');
5984: FND_MESSAGE.SET_TOKEN('TRIP_ID',wsh_trips_pvt.get_name(l_cc_fail_ids(1)));
5985: x_return_status := l_return_status;
5986: wsh_util_core.add_message(x_return_status);
5987: goto confirm_error;
5988: ELSE
5989: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5990: l_num_warn := l_num_warn + 1;
5985: x_return_status := l_return_status;
5986: wsh_util_core.add_message(x_return_status);
5987: goto confirm_error;
5988: ELSE
5989: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5990: l_num_warn := l_num_warn + 1;
5991: END IF;
5992: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5993: x_return_status := l_return_status;
5988: ELSE
5989: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5990: l_num_warn := l_num_warn + 1;
5991: END IF;
5992: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5993: x_return_status := l_return_status;
5994: goto confirm_error;
5995: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5996: x_return_status := l_return_status;
5991: END IF;
5992: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5993: x_return_status := l_return_status;
5994: goto confirm_error;
5995: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5996: x_return_status := l_return_status;
5997: l_num_warn := l_num_warn + 1;
5998: END IF;
5999:
6019:
6020: IF l_del_first_trip IS NULL THEN
6021:
6022: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6023: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6024: wsh_util_core.add_message(x_return_status);
6025: goto confirm_error;
6026:
6027: ELSE
6020: IF l_del_first_trip IS NULL THEN
6021:
6022: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6023: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6024: wsh_util_core.add_message(x_return_status);
6025: goto confirm_error;
6026:
6027: ELSE
6028:
6032: WSH_CARRIERS_GRP.get_carrier_service_mode(
6033: p_carrier_service_inout_rec => l_carrier_rec,
6034: x_return_status => l_return_status);
6035:
6036: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6037: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6038: goto confirm_error;
6039: END IF;
6040:
6033: p_carrier_service_inout_rec => l_carrier_rec,
6034: x_return_status => l_return_status);
6035:
6036: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6037: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6038: goto confirm_error;
6039: END IF;
6040:
6041: BEGIN
6044:
6045: EXCEPTION
6046:
6047: WHEN app_exception.application_exception OR app_exception.record_lock_exception THEN
6048: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6049: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_STOP_TRIP_LOCK');
6050: FND_MESSAGE.SET_TOKEN('DLVY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6051: wsh_util_core.add_message(x_return_status);
6052: goto confirm_error;
6047: WHEN app_exception.application_exception OR app_exception.record_lock_exception THEN
6048: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6049: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_STOP_TRIP_LOCK');
6050: FND_MESSAGE.SET_TOKEN('DLVY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6051: wsh_util_core.add_message(x_return_status);
6052: goto confirm_error;
6053:
6054: END;
6055:
6061: WHERE trip_id = l_del_first_trip;
6062:
6063: IF (SQL%NOTFOUND) THEN
6064: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6066: wsh_util_core.add_message(x_return_status);
6067: goto confirm_error;
6068: END IF;
6069:
6062:
6063: IF (SQL%NOTFOUND) THEN
6064: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6065: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6066: wsh_util_core.add_message(x_return_status);
6067: goto confirm_error;
6068: END IF;
6069:
6070: END IF;
6072: END IF;
6073:
6074: ELSE
6075: /* H integration - call MultiLeg FTE */
6076: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
6077: -- Get pvt type record structure for trip
6078: --
6079: -- Debug Statements
6080: --
6085: wsh_trips_grp.get_trip_details_pvt
6086: (p_trip_id => l_trip_id,
6087: x_trip_rec => l_trip_rec,
6088: x_return_status => l_return_status);
6089: IF l_return_status <>WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6090: x_return_status := l_return_status;
6091: wsh_util_core.add_message(x_return_status);
6092: goto confirm_error;
6093: END IF;
6087: x_trip_rec => l_trip_rec,
6088: x_return_status => l_return_status);
6089: IF l_return_status <>WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6090: x_return_status := l_return_status;
6091: wsh_util_core.add_message(x_return_status);
6092: goto confirm_error;
6093: END IF;
6094:
6095: -- this is the updated record
6110: p_action => 'UPDATE',
6111: x_return_status => l_return_status);
6112:
6113: /* H integration changes */
6114: IF l_return_status <>WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6115: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6116: l_num_warn := l_num_warn + 1;
6117: ELSE
6118: x_return_status := l_return_status;
6111: x_return_status => l_return_status);
6112:
6113: /* H integration changes */
6114: IF l_return_status <>WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6115: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6116: l_num_warn := l_num_warn + 1;
6117: ELSE
6118: x_return_status := l_return_status;
6119: wsh_util_core.add_message(x_return_status);
6115: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6116: l_num_warn := l_num_warn + 1;
6117: ELSE
6118: x_return_status := l_return_status;
6119: wsh_util_core.add_message(x_return_status);
6120: goto confirm_error;
6121: END IF;
6122: END IF;
6123: END IF;
6127:
6128: --Compatiblity Changes
6129: --for autocreatetrip if no ship method is provided do the compatibility check to see if trip can be created for the delivery else if ship method is provided, do the compatibility check before update trip call
6130: --bug 2811489 : call should be made regardless of ship_method being null
6131: IF wsh_util_core.fte_is_installed='Y' THEN
6132:
6133: --only one record
6134: l_trip_info_tab(1).trip_id:=l_trip_id;
6135: IF p_ship_method is not null THEN
6172: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
6173: END IF;
6174: --
6175:
6176: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
6177: IF l_cc_fail_ids.COUNT>0 THEN
6178:
6179: IF l_debug_on THEN
6180: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
6183:
6184: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
6185: FND_MESSAGE.SET_TOKEN('DEL_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6186: x_return_status := l_return_status;
6187: wsh_util_core.add_message(x_return_status);
6188: goto confirm_error;
6189: ELSE
6190: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
6191: l_num_warn := l_num_warn + 1;
6186: x_return_status := l_return_status;
6187: wsh_util_core.add_message(x_return_status);
6188: goto confirm_error;
6189: ELSE
6190: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
6191: l_num_warn := l_num_warn + 1;
6192: END IF;
6193: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
6194: x_return_status := l_return_status;
6189: ELSE
6190: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
6191: l_num_warn := l_num_warn + 1;
6192: END IF;
6193: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
6194: x_return_status := l_return_status;
6195: goto confirm_error;
6196: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6197: x_return_status := l_return_status;
6192: END IF;
6193: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
6194: x_return_status := l_return_status;
6195: goto confirm_error;
6196: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6197: x_return_status := l_return_status;
6198: l_num_warn := l_num_warn + 1;
6199: END IF;
6200: END IF;
6209: WSH_CARRIERS_GRP.get_carrier_service_mode(
6210: p_carrier_service_inout_rec => l_carrier_rec,
6211: x_return_status => l_return_status);
6212:
6213: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6215: goto confirm_error;
6216: END IF;
6217:
6210: p_carrier_service_inout_rec => l_carrier_rec,
6211: x_return_status => l_return_status);
6212:
6213: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6215: goto confirm_error;
6216: END IF;
6217:
6218: UPDATE wsh_trips
6223: WHERE trip_id = l_trip_id;
6224:
6225: IF (SQL%NOTFOUND) THEN
6226: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6227: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6228: wsh_util_core.add_message(x_return_status);
6229: goto confirm_error;
6230: END IF;
6231:
6224:
6225: IF (SQL%NOTFOUND) THEN
6226: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6227: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6228: wsh_util_core.add_message(x_return_status);
6229: goto confirm_error;
6230: END IF;
6231:
6232: END IF;
6300: l_close_confirm_flag := 'F';
6301:
6302: FND_MESSAGE.SET_NAME('WSH','WSH_EXP_COMPL_SCRN_REQD');
6303: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
6304: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_SUCCESS);
6305:
6306: ELSE
6307:
6308: l_stop_rows(l_stop_rows.count + 1 ) := l_pickup_stop_id;
6319: FETCH get_del_first_trip into l_first_trip_id;
6320: CLOSE get_del_first_trip;
6321: IF l_first_trip_id IS NULL THEN
6322: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6323: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6324: wsh_util_core.add_message(x_return_status);
6325: goto confirm_error;
6326: END IF;
6327: OPEN stop_sequence_number_csr(l_pickup_stop_id);
6320: CLOSE get_del_first_trip;
6321: IF l_first_trip_id IS NULL THEN
6322: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6323: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6324: wsh_util_core.add_message(x_return_status);
6325: goto confirm_error;
6326: END IF;
6327: OPEN stop_sequence_number_csr(l_pickup_stop_id);
6328: FETCH stop_sequence_number_csr INTO l_pick_up_stop_sequence_num;
6342: exit when get_stops_csr%NOTFOUND;
6343: IF nvl(l_shipments_type_flag,'O') = 'I' THEN
6344: l_inbound_stops_exists := true;
6345: l_stop_name := SUBSTRB(
6346: WSH_UTIL_CORE.get_location_description
6347: ( l_stop_location_id,
6348: 'NEW UI CODE'
6349: ),
6350: 1,
6367: CLOSE get_trip_name_csr;
6368: FND_MESSAGE.SET_NAME('WSH','WSH_PREV_IB_STOPS_NOT_CLOSED');
6369: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_stops_trip_name);
6370: FND_MESSAGE.SET_TOKEN('STOP_NAME_LIST', l_stop_name_list);
6371: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6372: wsh_util_core.add_message(x_return_status);
6373: END IF;
6374: --} bugfix 3925963
6375: ELSIF ((p_close_flag = 'N') AND (p_intransit_flag = 'Y')) THEN
6368: FND_MESSAGE.SET_NAME('WSH','WSH_PREV_IB_STOPS_NOT_CLOSED');
6369: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_stops_trip_name);
6370: FND_MESSAGE.SET_TOKEN('STOP_NAME_LIST', l_stop_name_list);
6371: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6372: wsh_util_core.add_message(x_return_status);
6373: END IF;
6374: --} bugfix 3925963
6375: ELSIF ((p_close_flag = 'N') AND (p_intransit_flag = 'Y')) THEN
6376: OPEN prev_stop_csr(l_first_trip_id, l_pick_up_stop_sequence_num);
6430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6431: END IF;
6432: --
6433: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6434: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6435: wsh_util_core.add_message(x_return_status);
6436: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
6437: l_num_warn := l_num_warn + 1;
6438: END IF;
6431: END IF;
6432: --
6433: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6434: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6435: wsh_util_core.add_message(x_return_status);
6436: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
6437: l_num_warn := l_num_warn + 1;
6438: END IF;
6439:
6452: p_caller => p_caller,
6453: p_del_tab => l_mdc_cl_del_tab,
6454: x_return_status => l_return_status);
6455: l_mdc_cl_del_tab.delete;
6456: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6457: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6458: l_num_warn := l_num_warn + 1;
6459: ELSE
6460: x_return_status := l_return_status;
6453: p_del_tab => l_mdc_cl_del_tab,
6454: x_return_status => l_return_status);
6455: l_mdc_cl_del_tab.delete;
6456: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6457: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6458: l_num_warn := l_num_warn + 1;
6459: ELSE
6460: x_return_status := l_return_status;
6461: goto confirm_error;
6466: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_PVT.DELETE_DELIVERY_LEG',WSH_DEBUG_SV.C_PROC_LEVEL);
6467: END IF;
6468: wsh_delivery_legs_pvt.delete_delivery_leg
6469: (NULL, dg.delivery_leg_id, l_return_status);
6470: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6471: --Bug 2108310
6472: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6473: l_num_warn := l_num_warn + 1;
6474: ELSE
6468: wsh_delivery_legs_pvt.delete_delivery_leg
6469: (NULL, dg.delivery_leg_id, l_return_status);
6470: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6471: --Bug 2108310
6472: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6473: l_num_warn := l_num_warn + 1;
6474: ELSE
6475: x_return_status := l_return_status;
6476: goto confirm_error;
6512: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6513: END IF;
6514: --
6515: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6516: wsh_util_core.add_message(x_return_status);
6517:
6518: /* H integration: 940/945 wrudge */
6519: <
6520: ROLLBACK TO SAVEPOINT confirm_delivery_sp;
6571: END LOOP;
6572: l_msg_table.delete;
6573: END IF;
6574: -- Call Store_Msg_In_Table Api to push the messages in WSH_INTEGRATION.G_MSG_TABLE to fnd stack
6575: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
6576: x_msg_rec_count => l_msg_rec_count,
6577: x_return_status => l_return_status);
6578: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6579: raise ship_confirm_error;
6574: -- Call Store_Msg_In_Table Api to push the messages in WSH_INTEGRATION.G_MSG_TABLE to fnd stack
6575: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
6576: x_msg_rec_count => l_msg_rec_count,
6577: x_return_status => l_return_status);
6578: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6579: raise ship_confirm_error;
6580: END IF;
6581: -- If there is no Shipping error but WMS has turned one of the Warning to Error then set the l_num_error
6582: IF ( (l_num_error = 0) AND (l_error_exists) )THEN
6612: x_max_quantity => l_max_quantity ,
6613: x_max_quantity2 => l_max_quantity2 ,
6614: x_return_status => l_return_status ) ;
6615:
6616: if ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) then
6617: x_return_status := l_return_Status ;
6618: wsh_util_core.add_message(x_return_status);
6619: l_num_error := l_num_error + 1;
6620: l_delivery_id := p_del_rows(i);
6614: x_return_status => l_return_status ) ;
6615:
6616: if ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) then
6617: x_return_status := l_return_Status ;
6618: wsh_util_core.add_message(x_return_status);
6619: l_num_error := l_num_error + 1;
6620: l_delivery_id := p_del_rows(i);
6621: raise ship_confirm_error ;
6622: end if ;
6634: p_logging_entity_name => 'DELIVERY',
6635: p_consider_content => 'Y'
6636: ) ;
6637:
6638: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6639: x_return_status := l_return_status;
6640: wsh_util_core.add_message(x_return_status);
6641: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6642: l_num_error := l_num_error + 1 ;
6636: ) ;
6637:
6638: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6639: x_return_status := l_return_status;
6640: wsh_util_core.add_message(x_return_status);
6641: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6642: l_num_error := l_num_error + 1 ;
6643: l_delivery_id := p_del_rows(i);
6644: raise ship_confirm_error;
6637:
6638: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6639: x_return_status := l_return_status;
6640: wsh_util_core.add_message(x_return_status);
6641: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6642: l_num_error := l_num_error + 1 ;
6643: l_delivery_id := p_del_rows(i);
6644: raise ship_confirm_error;
6645: ELSE
6661:
6662: Create_Deconsol_Trips(p_deliveries_tab => u_del_rows,
6663: x_return_status => l_return_status);
6664:
6665: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6666: raise ship_confirm_error;
6667: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6668: l_num_warn := l_num_warn + 1;
6669: END IF;
6663: x_return_status => l_return_status);
6664:
6665: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6666: raise ship_confirm_error;
6667: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6668: l_num_warn := l_num_warn + 1;
6669: END IF;
6670:
6671:
6739: create_bol( p_delivery_id => u_del_rows(i),
6740: x_return_status => l_return_status);
6741: END IF;
6742:
6743: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
6744:
6745: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6746: l_num_error := l_num_error + 1;
6747: ELSE
6741: END IF;
6742:
6743: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
6744:
6745: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6746: l_num_error := l_num_error + 1;
6747: ELSE
6748: --Bug 3685366
6749: l_dummy_doc_set(1).bol_error_flag:='Y';
6757: END IF;
6758: --
6759:
6760: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6761: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6762: wsh_util_core.add_message(x_return_status);
6763: l_num_warn := l_num_warn + 1;
6764: END IF;
6765: END IF;
6758: --
6759:
6760: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6761: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6762: wsh_util_core.add_message(x_return_status);
6763: l_num_warn := l_num_warn + 1;
6764: END IF;
6765: END IF;
6766:
6774: create_bol( p_delivery_id => u_del_rows(i),
6775: x_return_status => l_return_status);
6776: END IF;
6777:
6778: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
6779:
6780: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6781: l_num_error := l_num_error + 1;
6782: ELSE
6776: END IF;
6777:
6778: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
6779:
6780: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6781: l_num_error := l_num_error + 1;
6782: ELSE
6783:
6784: -- Bug 3685366
6794: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6795: END IF;
6796: --
6797: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6798: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6799: wsh_util_core.add_message(x_return_status);
6800: l_num_warn := l_num_warn + 1;
6801: END IF;
6802: END IF;
6795: END IF;
6796: --
6797: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6798: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6799: wsh_util_core.add_message(x_return_status);
6800: l_num_warn := l_num_warn + 1;
6801: END IF;
6802: END IF;
6803:
6853: p_delivery_ids => l_del_tmp_rows,
6854: p_document_param_info => l_dummy_doc_set,
6855: x_return_status => l_return_status);
6856:
6857: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6858: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6859: l_num_error := l_num_error + 1;
6860: ELSE
6861: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DOC_SUB_ERROR');
6854: p_document_param_info => l_dummy_doc_set,
6855: x_return_status => l_return_status);
6856:
6857: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6858: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6859: l_num_error := l_num_error + 1;
6860: ELSE
6861: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DOC_SUB_ERROR');
6862: --
6866: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6867: END IF;
6868: --
6869: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6870: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6871: wsh_util_core.add_message(x_return_status);
6872: l_num_warn := l_num_warn + 1;
6873: END IF;
6874: END IF;
6867: END IF;
6868: --
6869: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6870: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6871: wsh_util_core.add_message(x_return_status);
6872: l_num_warn := l_num_warn + 1;
6873: END IF;
6874: END IF;
6875: END IF;
6882: END IF;
6883: END IF;
6884: --J TP Release : If TP is installed, confirmed delivery has to be planned
6885: --tkt
6886: IF (NOT l_unassign_all_flag_tab(i) and wsh_util_core.TP_IS_INSTALLED='Y') THEN
6887:
6888: l_del_tmp_rows.delete;
6889: l_del_tmp_rows(1) := u_del_rows(i);
6890:
6895: PLAN(p_del_rows => l_del_tmp_rows,
6896: x_return_status => l_return_status,
6897: p_called_for_sc => TRUE);
6898:
6899: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6900: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6901: l_num_error := l_num_error + 1;
6902: ELSE
6903: IF l_debug_on THEN
6896: x_return_status => l_return_status,
6897: p_called_for_sc => TRUE);
6898:
6899: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6900: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6901: l_num_error := l_num_error + 1;
6902: ELSE
6903: IF l_debug_on THEN
6904: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6903: IF l_debug_on THEN
6904: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6905: END IF;
6906: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6907: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6908: wsh_util_core.add_message(x_return_status);
6909: l_num_warn := l_num_warn + 1;
6910: END IF;
6911: END IF;
6904: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6905: END IF;
6906: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6907: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6908: wsh_util_core.add_message(x_return_status);
6909: l_num_warn := l_num_warn + 1;
6910: END IF;
6911: END IF;
6912:
6927: p_action_type => 'SHIP_CONFIRM',
6928: p_ship_from_location_id => l_ship_from_location,
6929: x_return_status => l_return_status);
6930:
6931: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6932: l_num_error := l_num_error + 1 ;
6933: l_delivery_id := u_del_rows(i);
6934: raise ship_confirm_error;
6935: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6931: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6932: l_num_error := l_num_error + 1 ;
6933: l_delivery_id := u_del_rows(i);
6934: raise ship_confirm_error;
6935: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6936: l_num_warn := l_num_warn + 1;
6937: END IF;
6938:
6939: END IF;
6948: wsh_new_delivery_actions.update_leg_sequence(
6949: p_delivery_id => u_del_rows(i),
6950: x_return_status => l_return_status);
6951:
6952: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6953: l_num_error := l_num_error + 1 ;
6954: l_delivery_id := u_del_rows(i);
6955: raise ship_confirm_error;
6956: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6952: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6953: l_num_error := l_num_error + 1 ;
6954: l_delivery_id := u_del_rows(i);
6955: raise ship_confirm_error;
6956: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6957: l_num_warn := l_num_warn + 1;
6958: END IF;
6959:
6960:
7026: Confirm_Consolidation_Delivery(
7027: p_consol_del_tab => l_mdc_co_del_tab,
7028: x_return_status => l_return_status);
7029:
7030: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7031: raise ship_confirm_error;
7032: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7033: l_num_warn := l_num_warn + 1;
7034: END IF;
7028: x_return_status => l_return_status);
7029:
7030: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7031: raise ship_confirm_error;
7032: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
7033: l_num_warn := l_num_warn + 1;
7034: END IF;
7035:
7036: END IF;
7099: avalue => P_ACTUAL_DEP_DATE);
7100:
7101: FND_MESSAGE.SET_NAME('WSH','WSH_WF_SCPOD_LAUNCHED');
7102: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(l_ctr)));
7103: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_SUCCESS,l_module_name);
7104:
7105: END IF;
7106: END LOOP;
7107: -- Workflow Changes ==/
7142: p_action_type => 'A',
7143: p_document_type => 'SA',
7144: p_organization_id => u_organization_id(i),
7145: x_return_status => l_return_status);
7146: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7147: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7148: l_num_error := l_num_error + 1;
7149: ELSE
7150: /* new message: WSH_DEL_OUTBOUND_FAILED, token DEL_NAME */
7143: p_document_type => 'SA',
7144: p_organization_id => u_organization_id(i),
7145: x_return_status => l_return_status);
7146: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7147: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7148: l_num_error := l_num_error + 1;
7149: ELSE
7150: /* new message: WSH_DEL_OUTBOUND_FAILED, token DEL_NAME */
7151: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_OUTBOUND_FAILED');
7156: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7157: END IF;
7158: --
7159: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
7160: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7161: wsh_util_core.add_message(x_return_status);
7162: l_num_warn := l_num_warn + 1;
7163: END IF;
7164: END IF;
7157: END IF;
7158: --
7159: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
7160: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7161: wsh_util_core.add_message(x_return_status);
7162: l_num_warn := l_num_warn + 1;
7163: END IF;
7164: END IF;
7165: END IF; -- u_wsh_lines_exist(i) > 0
7202: x_return_status => l_return_status,
7203: --tkt
7204: p_caller => p_caller);
7205:
7206: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7207: x_return_status := l_return_status;
7208: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7209: l_num_warn := l_num_warn + 1;
7210: ELSE
7204: p_caller => p_caller);
7205:
7206: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7207: x_return_status := l_return_status;
7208: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7209: l_num_warn := l_num_warn + 1;
7210: ELSE
7211: l_num_error := l_num_error + 1;
7212: END IF;
7236: --
7237: -- Debug Statements
7238: --
7239: IF l_debug_on THEN
7240: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
7241: END IF;
7242: --
7243: wsh_util_core.api_post_call(
7244: p_return_status => l_return_status,
7239: IF l_debug_on THEN
7240: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
7241: END IF;
7242: --
7243: wsh_util_core.api_post_call(
7244: p_return_status => l_return_status,
7245: x_num_warnings => l_num_error,
7246: x_num_errors => l_num_warn,
7247: p_raise_error_flag => FALSE);
7254: -- 20. set summary messages for warnings and errors
7255:
7256: IF (l_num_error > 0) THEN
7257: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_WARNING');
7258: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7259: wsh_util_core.add_message(x_return_status);
7260: rollback to savepoint start_ship_confirm_delivery;
7261:
7262: ELSE
7255:
7256: IF (l_num_error > 0) THEN
7257: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_WARNING');
7258: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7259: wsh_util_core.add_message(x_return_status);
7260: rollback to savepoint start_ship_confirm_delivery;
7261:
7262: ELSE
7263:
7265: IF ( l_close_del_cnt <> 0 ) THEN
7266:
7267: FND_MESSAGE.SET_NAME('WSH','WSH_CL_DELIVERIES');
7268: FND_MESSAGE.SET_TOKEN('CL_DEL',l_close_del_cnt);
7269: wsh_util_core.add_message(x_return_status);
7270:
7271: END IF;
7272:
7273: IF (l_confirm_del_cnt <> 0) THEN
7273: IF (l_confirm_del_cnt <> 0) THEN
7274:
7275: FND_MESSAGE.SET_NAME('WSH','WSH_CO_DELIVERIES');
7276: FND_MESSAGE.SET_TOKEN('CO_DEL',l_confirm_del_cnt);
7277: wsh_util_core.add_message(x_return_status);
7278:
7279: END IF;
7280:
7281: if (l_num_warn > 0) THEN
7279: END IF;
7280:
7281: if (l_num_warn > 0) THEN
7282: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_WARNING');
7283: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7284: wsh_util_core.add_message(x_return_status);
7285: elsif (p_del_rows.count > 1) THEN
7286: -- bug 2523074 (frontported bug 2508132):
7287: -- if multiple deliveries are processed, show summary message,
7280:
7281: if (l_num_warn > 0) THEN
7282: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_WARNING');
7283: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7284: wsh_util_core.add_message(x_return_status);
7285: elsif (p_del_rows.count > 1) THEN
7286: -- bug 2523074 (frontported bug 2508132):
7287: -- if multiple deliveries are processed, show summary message,
7288: -- so that the user does not think the first message (e.g.,
7287: -- if multiple deliveries are processed, show summary message,
7288: -- so that the user does not think the first message (e.g.,
7289: -- request number) applies to all deliveries.
7290: FND_MESSAGE.SET_NAME('WSH', 'WSH_DEL_CONFIRM_SUCCESS');
7291: wsh_util_core.add_message(x_return_status);
7292: else
7293: FND_MESSAGE.SET_NAME('WSH', 'WSH_ONE_DEL_CONFIRM_SUCCESS');
7294: wsh_util_core.add_message(x_return_status);
7295: end if;
7290: FND_MESSAGE.SET_NAME('WSH', 'WSH_DEL_CONFIRM_SUCCESS');
7291: wsh_util_core.add_message(x_return_status);
7292: else
7293: FND_MESSAGE.SET_NAME('WSH', 'WSH_ONE_DEL_CONFIRM_SUCCESS');
7294: wsh_util_core.add_message(x_return_status);
7295: end if;
7296: END IF;
7297:
7298: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7294: wsh_util_core.add_message(x_return_status);
7295: end if;
7296: END IF;
7297:
7298: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7299: x_msg_rec_count => l_msg_rec_count,
7300: x_return_status => l_return_status);
7301: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7302: raise ship_confirm_error;
7297:
7298: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7299: x_msg_rec_count => l_msg_rec_count,
7300: x_return_status => l_return_status);
7301: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7302: raise ship_confirm_error;
7303: END IF;
7304:
7305: --
7319: IF (get_delivery_name%ISOPEN) THEN
7320: CLOSE get_delivery_name;
7321: END IF;
7322:
7323: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7324: --
7325: IF l_debug_on THEN
7326: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7327: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
7345: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7346: END IF;
7347: --
7348: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
7349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7350: wsh_util_core.add_message(x_return_status);
7351: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7352: x_msg_rec_count => l_msg_rec_count,
7353: x_return_status => l_return_status);
7346: END IF;
7347: --
7348: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
7349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7350: wsh_util_core.add_message(x_return_status);
7351: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7352: x_msg_rec_count => l_msg_rec_count,
7353: x_return_status => l_return_status);
7354:
7347: --
7348: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
7349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7350: wsh_util_core.add_message(x_return_status);
7351: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7352: x_msg_rec_count => l_msg_rec_count,
7353: x_return_status => l_return_status);
7354:
7355: --
7370: CLOSE get_delivery_name;
7371: END IF;
7372:
7373: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
7374: wsh_util_core.add_message(x_return_status);
7375: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7376: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7377: x_msg_rec_count => l_msg_rec_count,
7378: x_return_status => l_return_status);
7371: END IF;
7372:
7373: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
7374: wsh_util_core.add_message(x_return_status);
7375: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7376: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7377: x_msg_rec_count => l_msg_rec_count,
7378: x_return_status => l_return_status);
7379:
7372:
7373: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
7374: wsh_util_core.add_message(x_return_status);
7375: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7376: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7377: x_msg_rec_count => l_msg_rec_count,
7378: x_return_status => l_return_status);
7379:
7380: --
7397:
7398: IF get_del_first_trip%isopen THEN
7399: CLOSE get_del_first_trip;
7400: END IF;
7401: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.CONFIRM_DELIVERY');
7402: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7403:
7404: --
7405: -- Debug Statements
7398: IF get_del_first_trip%isopen THEN
7399: CLOSE get_del_first_trip;
7400: END IF;
7401: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.CONFIRM_DELIVERY');
7402: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7403:
7404: --
7405: -- Debug Statements
7406: --
7407: IF l_debug_on THEN
7408: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR : ' || SQLERRM );
7409: END IF;
7410: --
7411: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7412: x_msg_rec_count => l_msg_rec_count,
7413: x_return_status => l_return_status);
7414:
7415: --
7462: l_msg_count NUMBER;
7463: l_msg_data VARCHAR2(4000);
7464: l_return_status VARCHAR2(1);
7465:
7466: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
7467: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
7468:
7469: --/== Workflow Changes
7470: l_org_id NUMBER;
7469: --/== Workflow Changes
7470: l_org_id NUMBER;
7471: l_wf_rs VARCHAR2(1);
7472: l_override_wf VARCHAR2(1);
7473: l_del_entity_ids WSH_UTIL_CORE.column_tab_type;
7474: l_purged_count NUMBER;
7475: --==/
7476:
7477: -- LPN CONV. rv
7501: l_warehouse_type VARCHAR2(3);
7502: --
7503: -- LSP PROJECT
7504: l_standalone_mode VARCHAR2(1);
7505: l_client_id_tab WSH_UTIL_CORE.id_tab_type;
7506: -- LSP PROJECT
7507:
7508: l_debug_on BOOLEAN;
7509: --
7537: END IF;
7538: --
7539: l_user_id := FND_GLOBAL.user_id;
7540: l_login_id := FND_GLOBAL.login_id;
7541: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7542: l_num_warnings := 0;
7543: l_num_errors := 0;
7544:
7545: --
7607: IF l_debug_on THEN
7608: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status ' || l_return_status);
7609: END IF;
7610: --
7611: WSH_UTIL_CORE.API_POST_CALL
7612: (
7613: p_return_status => l_return_status,
7614: x_num_warnings => l_num_warnings,
7615: x_num_errors => l_num_errors
7634: IF l_debug_on THEN
7635: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status ' || l_return_status);
7636: END IF;
7637: --
7638: WSH_UTIL_CORE.API_POST_CALL
7639: (
7640: p_return_status => l_return_status,
7641: x_num_warnings => l_num_warnings,
7642: x_num_errors => l_num_errors
7683: IF l_debug_on THEN
7684: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
7685: END IF;
7686: -- Only Handle Unexpected error
7687: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
7688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7689: END IF;
7690: -- End of Code for DBI Project
7691: --
7753: THEN
7754: --{
7755: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
7756: l_num_errors := l_num_errors + 1;
7757: wsh_util_core.add_message(x_return_status,l_module_name);
7758: --}
7759: ELSE
7760: --/== Workflow Changes
7761: l_del_entity_ids(1) := p_in_rec.delivery_id;
7822: --tkt
7823: p_caller => p_in_rec.caller
7824: ) ;
7825:
7826: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
7827: x_return_status := l_return_status;
7828: wsh_util_core.add_message(x_return_status);
7829: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7830: l_num_errors := l_num_errors + 1;
7824: ) ;
7825:
7826: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
7827: x_return_status := l_return_status;
7828: wsh_util_core.add_message(x_return_status);
7829: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7830: l_num_errors := l_num_errors + 1;
7831: RAISE FND_API.G_EXC_ERROR;
7832: ELSE
7825:
7826: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
7827: x_return_status := l_return_status;
7828: wsh_util_core.add_message(x_return_status);
7829: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7830: l_num_errors := l_num_errors + 1;
7831: RAISE FND_API.G_EXC_ERROR;
7832: ELSE
7833: l_num_warnings := l_num_warnings + 1 ;
7835: END IF;
7836:
7837: IF l_num_errors > 0
7838: THEN
7839: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7840: ELSIF l_num_warnings > 0
7841: THEN
7842: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7843: ELSE
7838: THEN
7839: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7840: ELSIF l_num_warnings > 0
7841: THEN
7842: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7843: ELSE
7844: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7845: END IF;
7846: --
7840: ELSIF l_num_warnings > 0
7841: THEN
7842: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7843: ELSE
7844: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7845: END IF;
7846: --
7847: --
7848: --
7858: WHEN FND_API.G_EXC_ERROR THEN
7859:
7860: --ROLLBACK TO dlvy_setInTransit_begin_sp;
7861: --
7862: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7863: --
7864: IF l_debug_on THEN
7865: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7866: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
7869: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7870:
7871: --ROLLBACK TO dlvy_setInTransit_begin_sp;
7872: --
7873: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
7874: --
7875: IF l_debug_on THEN
7876: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7877: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7876: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7877: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7878: END IF;
7879: --
7880: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
7881: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7882: --
7883: IF l_debug_on THEN
7884: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7877: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7878: END IF;
7879: --
7880: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
7881: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7882: --
7883: IF l_debug_on THEN
7884: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7885: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7880: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
7881: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7882: --
7883: IF l_debug_on THEN
7884: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7885: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7886: END IF;
7887: WHEN others THEN
7888: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setInTransit',l_module_name);
7881: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7882: --
7883: IF l_debug_on THEN
7884: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7885: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7886: END IF;
7887: WHEN others THEN
7888: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setInTransit',l_module_name);
7889: --
7884: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7885: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7886: END IF;
7887: WHEN others THEN
7888: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setInTransit',l_module_name);
7889: --
7890: --ROLLBACK TO dlvy_setInTransit_begin_sp;
7891: --
7892: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7888: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setInTransit',l_module_name);
7889: --
7890: --ROLLBACK TO dlvy_setInTransit_begin_sp;
7891: --
7892: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7893: --
7894: -- Debug Statements
7895: --
7896: IF l_debug_on THEN
7945: --
7946: l_user_id NUMBER;
7947: l_login_id NUMBER;
7948: l_cnt NUMBER := 0;
7949: l_stop_rows wsh_util_core.id_tab_type;
7950:
7951: l_msg_count NUMBER;
7952: l_msg_data VARCHAR2(4000);
7953:
7954: --/== Workflow Changes
7955: l_org_id NUMBER;
7956: l_wf_rs VARCHAR2(1);
7957: l_override_wf VARCHAR2(1);
7958: l_del_entity_ids WSH_UTIL_CORE.column_tab_type;
7959: l_purged_count NUMBER;
7960: --==/
7961:
7962: l_gc3_is_installed VARCHAR2(1); --OTM R12
7993: END IF;
7994: --
7995: l_user_id := FND_GLOBAL.user_id;
7996: l_login_id := FND_GLOBAL.login_id;
7997: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7998: l_num_warnings := 0;
7999: l_num_errors := 0;
8000: --
8001: --OTM R12
7998: l_num_warnings := 0;
7999: l_num_errors := 0;
8000: --
8001: --OTM R12
8002: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
8003:
8004: IF l_gc3_is_installed IS NULL THEN
8005: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
8006: END IF;
8001: --OTM R12
8002: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
8003:
8004: IF l_gc3_is_installed IS NULL THEN
8005: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
8006: END IF;
8007: --
8008: --
8009: UPDATE wsh_new_deliveries
8032: --
8033: IF (SQL%NOTFOUND)
8034: THEN
8035: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
8036: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8037: RAISE FND_API.G_EXC_ERROR;
8038: END IF;
8039: --
8040:
8086: p_logging_entity_name => 'DELIVERY',
8087: p_consider_content => 'Y'
8088: ) ;
8089:
8090: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
8091: x_return_status := l_return_status;
8092: wsh_util_core.add_message(x_return_status);
8093: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8094: l_num_errors := l_num_errors + 1;
8088: ) ;
8089:
8090: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
8091: x_return_status := l_return_status;
8092: wsh_util_core.add_message(x_return_status);
8093: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8094: l_num_errors := l_num_errors + 1;
8095: RAISE FND_API.G_EXC_ERROR;
8096: ELSE
8089:
8090: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
8091: x_return_status := l_return_status;
8092: wsh_util_core.add_message(x_return_status);
8093: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
8094: l_num_errors := l_num_errors + 1;
8095: RAISE FND_API.G_EXC_ERROR;
8096: ELSE
8097: l_num_warnings := l_num_warnings + 1 ;
8137: --tkt
8138: p_caller => p_in_rec.caller
8139: );
8140: --
8141: wsh_util_core.api_post_call
8142: (
8143: p_return_status => l_return_status,
8144: x_num_warnings => l_num_warnings,
8145: x_num_errors => l_num_errors
8152: END IF;
8153: --
8154: IF l_num_errors > 0
8155: THEN
8156: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8157: ELSIF l_num_warnings > 0
8158: THEN
8159: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8160: ELSE
8155: THEN
8156: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8157: ELSIF l_num_warnings > 0
8158: THEN
8159: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8160: ELSE
8161: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8162: END IF;
8163: --
8157: ELSIF l_num_warnings > 0
8158: THEN
8159: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8160: ELSE
8161: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8162: END IF;
8163: --
8164: --
8165: --
8176: WHEN FND_API.G_EXC_ERROR THEN
8177:
8178: --ROLLBACK TO dlvy_close_begin_sp;
8179: --
8180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8181: --
8182: IF l_debug_on THEN
8183: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8184: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
8187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8188:
8189: --ROLLBACK TO dlvy_close_begin_sp;
8190: --
8191: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8192: --
8193: IF l_debug_on THEN
8194: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8195: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8194: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8195: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8196: END IF;
8197: --
8198: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8199: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8200: --
8201: IF l_debug_on THEN
8202: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8195: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8196: END IF;
8197: --
8198: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8199: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8200: --
8201: IF l_debug_on THEN
8202: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8203: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8198: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8199: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8200: --
8201: IF l_debug_on THEN
8202: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8203: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8204: END IF;
8205: WHEN others THEN
8206: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setClose',l_module_name);
8199: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8200: --
8201: IF l_debug_on THEN
8202: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8203: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8204: END IF;
8205: WHEN others THEN
8206: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setClose',l_module_name);
8207: --
8202: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8203: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8204: END IF;
8205: WHEN others THEN
8206: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setClose',l_module_name);
8207: --
8208: --ROLLBACK TO dlvy_close_begin_sp;
8209: --
8210: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8206: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setClose',l_module_name);
8207: --
8208: --ROLLBACK TO dlvy_close_begin_sp;
8209: --
8210: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8211: --
8212: -- Debug Statements
8213: --
8214: IF l_debug_on THEN
8220: -- J-IB-NPARIKH---}
8221:
8222:
8223:
8224: PROCEDURE change_Status ( p_del_rows IN wsh_util_core.id_tab_type,
8225: p_action IN VARCHAR2,
8226: p_actual_date IN DATE,
8227: x_return_status OUT NOCOPY VARCHAR2,
8228: p_caller IN VARCHAR2) IS
8247: trip_cnt NUMBER;
8248: l_old_status VARCHAR2(2);
8249: l_name VARCHAR2(30);
8250: l_status_code VARCHAR2(2);
8251: l_del_rows wsh_util_core.id_tab_type;
8252:
8253: l_delivery_id NUMBER;
8254: l_stop_rows wsh_util_core.id_tab_type;
8255:
8250: l_status_code VARCHAR2(2);
8251: l_del_rows wsh_util_core.id_tab_type;
8252:
8253: l_delivery_id NUMBER;
8254: l_stop_rows wsh_util_core.id_tab_type;
8255:
8256: l_manual_flag VARCHAR2(1);
8257: l_close_rs VARCHAR2(1);
8258:
8307: --
8308: --
8309: l_user_id := FND_GLOBAL.user_id;
8310: l_login_id := FND_GLOBAL.login_id;
8311: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8312: --
8313: l_num_warnings := 0;
8314: l_num_errors := 0;
8315: l_num_dels_processed := 0;
8343: -- J-IB-NPARIKH---{
8344: IF (del_status%NOTFOUND)
8345: THEN
8346: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
8347: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8348: --CLOSE del_status;
8349: l_num_errors := l_num_errors + 1;
8350: RAISE FND_API.G_EXC_ERROR;
8351: END IF;
8386: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8387: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
8388: END IF;
8389: --
8390: WSH_UTIL_CORE.api_post_call
8391: (
8392: p_return_status => l_return_status,
8393: x_num_warnings => l_num_warnings,
8394: x_num_errors => l_num_errors
8402: l_num_warnings := l_num_warnings + 1;
8403: ELSIF l_Allowed = 'NW'
8404: THEN
8405: l_num_warnings := l_num_warnings + 1;
8406: RAISE wsh_util_core.g_exc_warning;
8407: ELSE
8408: l_num_errors := l_num_errors + 1;
8409: RAISE FND_API.G_EXC_ERROR;
8410: END IF;
8423: IF l_debug_on THEN
8424: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8425: END IF;
8426: --
8427: WSH_UTIL_CORE.api_post_call
8428: (
8429: p_return_status => l_return_status,
8430: x_num_warnings => l_num_warnings,
8431: x_num_errors => l_num_errors
8464: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8465: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
8466: END IF;
8467: --
8468: WSH_UTIL_CORE.api_post_call
8469: (
8470: p_return_status => l_return_status,
8471: x_num_warnings => l_num_warnings,
8472: x_num_errors => l_num_errors
8480: l_num_warnings := l_num_warnings + 1;
8481: ELSIF l_Allowed = 'NW'
8482: THEN
8483: l_num_warnings := l_num_warnings + 1;
8484: RAISE wsh_util_core.g_exc_warning;
8485: ELSE
8486: l_num_errors := l_num_errors + 1;
8487: RAISE FND_API.G_EXC_ERROR;
8488: END IF;
8501: IF l_debug_on THEN
8502: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8503: END IF;
8504: --
8505: WSH_UTIL_CORE.api_post_call
8506: (
8507: p_return_status => l_return_status,
8508: x_num_warnings => l_num_warnings,
8509: x_num_errors => l_num_errors
8524: END IF;
8525: --
8526: wsh_delivery_validations.check_pack(p_del_rows(i), l_return_status);
8527: --
8528: WSH_UTIL_CORE.api_post_call
8529: (
8530: p_return_status => l_return_status,
8531: x_num_warnings => l_num_warnings,
8532: x_num_errors => l_num_errors
8561:
8562: wsh_delivery_validations.check_reopen(p_del_rows(i), l_return_status);
8563:
8564: --
8565: WSH_UTIL_CORE.api_post_call
8566: (
8567: p_return_status => l_return_status,
8568: x_num_warnings => l_num_warnings,
8569: x_num_errors => l_num_errors
8578: wsh_debug_sv.log (l_module_name, 'Return status from get warehouse type', l_return_status);
8579: wsh_debug_sv.log (l_module_name, 'Warehouse type ', l_warehouse_type);
8580: END IF;
8581:
8582: WSH_UTIL_CORE.api_post_call (
8583: p_return_status => l_return_status,
8584: x_num_warnings => l_num_warnings,
8585: x_num_errors => l_num_errors);
8586:
8605: where delivery_id = p_del_rows(i);
8606:
8607: IF (SQL%NOTFOUND) THEN
8608: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
8609: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8610: l_num_errors := l_num_errors + 1;
8611: RAISE FND_API.G_EXC_ERROR;
8612: END IF;
8613:
8664: --
8665: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CHANGE_STATUS_ERROR');
8666: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_name);
8667: --
8668: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8669: --}
8670: WHEN wsh_util_core.g_exc_warning
8671: THEN
8672: --{
8666: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_name);
8667: --
8668: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8669: --}
8670: WHEN wsh_util_core.g_exc_warning
8671: THEN
8672: --{
8673: ROLLBACK TO dlvy_chg_status_sp;
8674: --
8674: --
8675: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CHANGE_STATUS_ERROR');
8676: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_name);
8677: --
8678: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
8679: --}
8680: --}
8681: END;
8682: --}
8684: --
8685: --
8686: IF l_num_dels_processed = 0
8687: THEN
8688: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8689: ELSIF l_num_dels_processed < p_del_rows.count
8690: THEN
8691: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8692: ELSIF l_num_warnings > 0
8687: THEN
8688: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8689: ELSIF l_num_dels_processed < p_del_rows.count
8690: THEN
8691: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8692: ELSIF l_num_warnings > 0
8693: THEN
8694: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8695: ELSE
8690: THEN
8691: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8692: ELSIF l_num_warnings > 0
8693: THEN
8694: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8695: ELSE
8696: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8697: END IF;
8698: --
8692: ELSIF l_num_warnings > 0
8693: THEN
8694: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8695: ELSE
8696: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8697: END IF;
8698: --
8699: x_return_status := l_return_status;
8700: --
8702: THEN
8703: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CHANGE_STATUS_SUMMARY');
8704: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',l_num_dels_processed);
8705: FND_MESSAGE.SET_TOKEN('NUM_ERROR',p_del_rows.count - l_num_dels_processed);
8706: wsh_util_core.add_message(l_return_status,l_module_name);
8707: END IF;
8708: --
8709: -- Debug Statements
8710: --
8715: EXCEPTION
8716: WHEN FND_API.G_EXC_ERROR THEN
8717: ROLLBACK TO dlvy_chg_status_begin_sp;
8718: --
8719: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8720: --
8721: IF l_debug_on THEN
8722: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8723: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
8726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8727:
8728: ROLLBACK TO dlvy_chg_status_begin_sp;
8729: --
8730: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8731: --
8732: IF l_debug_on THEN
8733: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8733: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8735: END IF;
8736: --
8737: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8738: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8739: --
8740: IF l_debug_on THEN
8741: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8735: END IF;
8736: --
8737: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8738: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8739: --
8740: IF l_debug_on THEN
8741: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8742: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8737: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8738: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8739: --
8740: IF l_debug_on THEN
8741: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8742: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8743: END IF;
8744: --
8745: WHEN others THEN
8738: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8739: --
8740: IF l_debug_on THEN
8741: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8742: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8743: END IF;
8744: --
8745: WHEN others THEN
8746:
8743: END IF;
8744: --
8745: WHEN others THEN
8746:
8747: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.CHANGE_STATUS',l_module_name);
8748: ROLLBACK TO dlvy_chg_status_begin_sp;
8749: --
8750: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8751:
8746:
8747: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.CHANGE_STATUS',l_module_name);
8748: ROLLBACK TO dlvy_chg_status_begin_sp;
8749: --
8750: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8751:
8752: --
8753: -- Debug Statements
8754: --
8834: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8835: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
8836: END IF;
8837: --
8838: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8839: x_leg_complete := 'N';
8840:
8841:
8842: OPEN delivery_info;
8844:
8845: IF (delivery_info%NOTFOUND) THEN
8846: CLOSE delivery_info;
8847:
8848: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8849: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
8850: wsh_util_core.add_message(x_return_status);
8851:
8852:
8846: CLOSE delivery_info;
8847:
8848: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8849: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
8850: wsh_util_core.add_message(x_return_status);
8851:
8852:
8853: IF l_debug_on THEN
8854: WSH_DEBUG_SV.pop(l_module_name);
8900: SET sequence_number = l_seq_num * 10
8901: WHERE delivery_leg_id = l_leg_id;
8902:
8903: IF (SQL%NOTFOUND) THEN
8904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8905:
8906: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
8907: wsh_util_core.add_message(x_return_status);
8908:
8903: IF (SQL%NOTFOUND) THEN
8904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8905:
8906: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
8907: wsh_util_core.add_message(x_return_status);
8908:
8909: IF l_debug_on THEN
8910: WSH_DEBUG_SV.pop(l_module_name);
8911: END IF;
8922:
8923: IF (p_insert_msg) THEN
8924: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_MULTIPLE_LEGS');
8925: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
8926: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8927: END IF;
8928:
8929: IF l_debug_on THEN
8930: WSH_DEBUG_SV.pop(l_module_name);
8941: IF (l_count > 1) THEN
8942: IF (p_insert_msg) THEN
8943: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_MULTIPLE_LEGS');
8944: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
8945: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8946: END IF;
8947:
8948: IF l_debug_on THEN
8949: WSH_DEBUG_SV.pop(l_module_name);
8961:
8962: IF (p_insert_msg) THEN
8963: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_INVALID_FLOW');
8964: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
8965: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8966: END IF;
8967: --
8968: IF l_debug_on THEN
8969: WSH_DEBUG_SV.pop(l_module_name);
8978:
8979: IF (p_insert_msg) THEN
8980: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NO_ULTIMATE_DROPOFF');
8981: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
8982: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8983: END IF;
8984: RETURN;
8985: END IF;
8986:
8992: END IF;
8993: --
8994: EXCEPTION
8995: WHEN others THEN
8996: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Complete_Leg_Sequence');
8997: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8998:
8999: IF l_debug_on THEN
9000: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8993: --
8994: EXCEPTION
8995: WHEN others THEN
8996: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Complete_Leg_Sequence');
8997: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8998:
8999: IF l_debug_on THEN
9000: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9001: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9043: WSH_DEBUG_SV.log(l_module_name,'l_leg_count',l_leg_count);
9044: WSH_DEBUG_SV.log(l_module_name,'l_leg_complete',l_leg_complete);
9045: END IF;
9046:
9047: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
9048: IF (l_leg_complete='NW') THEN
9049: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9050: ELSIF (l_leg_complete='Y') THEN
9051: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9045: END IF;
9046:
9047: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
9048: IF (l_leg_complete='NW') THEN
9049: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9050: ELSIF (l_leg_complete='Y') THEN
9051: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9052: ELSIF (l_leg_complete='N') THEN
9053: IF (l_leg_count IS NULL or l_leg_count=0) THEN
9047: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
9048: IF (l_leg_complete='NW') THEN
9049: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9050: ELSIF (l_leg_complete='Y') THEN
9051: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9052: ELSIF (l_leg_complete='N') THEN
9053: IF (l_leg_count IS NULL or l_leg_count=0) THEN
9054: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9055: ELSE
9050: ELSIF (l_leg_complete='Y') THEN
9051: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9052: ELSIF (l_leg_complete='N') THEN
9053: IF (l_leg_count IS NULL or l_leg_count=0) THEN
9054: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9055: ELSE
9056: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9057: END IF;
9058: END IF;
9052: ELSIF (l_leg_complete='N') THEN
9053: IF (l_leg_count IS NULL or l_leg_count=0) THEN
9054: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9055: ELSE
9056: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9057: END IF;
9058: END IF;
9059: ELSE
9060: x_return_status:= l_return_status;
9067: END IF;
9068: --
9069: EXCEPTION
9070: WHEN others THEN
9071: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE');
9072: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9073:
9074: IF l_debug_on THEN
9075: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9068: --
9069: EXCEPTION
9070: WHEN others THEN
9071: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE');
9072: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9073:
9074: IF l_debug_on THEN
9075: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9076: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9124: WSH_DEBUG_SV.log(l_module_name,'l_leg_count',l_leg_count);
9125: WSH_DEBUG_SV.log(l_module_name,'l_leg_complete',l_leg_complete);
9126: END IF;
9127:
9128: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
9129: IF (l_leg_complete = 'Y' ) THEN
9130: x_leg_complete := true;
9131: l_update_flag:='Y';
9132: ELSE
9157: END IF;
9158: --
9159: EXCEPTION
9160: WHEN others THEN
9161: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE');
9162: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9163:
9164: IF l_debug_on THEN
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9158: --
9159: EXCEPTION
9160: WHEN others THEN
9161: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE');
9162: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9163:
9164: IF l_debug_on THEN
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9166: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9176: -- Description: This procedure is used to generate loading sequence for deliveries
9177: --
9178:
9179: PROCEDURE Generate_Loading_Seq
9180: (p_del_rows IN wsh_util_core.id_tab_type,
9181: x_return_status OUT NOCOPY VARCHAR2) IS
9182:
9183: CURSOR loading_order (l_delivery_id NUMBER) IS
9184: SELECT loading_order_flag
9255: IF l_debug_on THEN
9256: WSH_DEBUG_SV.push(l_module_name);
9257: END IF;
9258: --
9259: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9260:
9261: IF (p_del_rows.count = 0) THEN
9262: raise others;
9263: END IF;
9279: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9280: END IF;
9281: --
9282: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9283: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9284: wsh_util_core.add_message(x_return_status);
9285: l_num_error := l_num_error + 1;
9286: goto loop_end;
9287: END IF;
9280: END IF;
9281: --
9282: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9283: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9284: wsh_util_core.add_message(x_return_status);
9285: l_num_error := l_num_error + 1;
9286: goto loop_end;
9287: END IF;
9288:
9352: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9353: END IF;
9354: --
9355: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9356: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9357: wsh_util_core.add_message(x_return_status);
9358: l_num_error := l_num_error + 1;
9359: EXIT;
9360: END IF;
9353: END IF;
9354: --
9355: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9356: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9357: wsh_util_core.add_message(x_return_status);
9358: l_num_error := l_num_error + 1;
9359: EXIT;
9360: END IF;
9361:
9374: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9375: END IF;
9376: --
9377: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9378: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9379: wsh_util_core.add_message(x_return_status);
9380: l_num_error := l_num_error + 1;
9381: END IF;
9382:
9375: END IF;
9376: --
9377: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9378: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9379: wsh_util_core.add_message(x_return_status);
9380: l_num_error := l_num_error + 1;
9381: END IF;
9382:
9383:
9396: FND_MESSAGE.SET_TOKEN('NUM_ERROR',l_num_error);
9397: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',p_del_rows.count - l_num_error);
9398:
9399: IF (p_del_rows.count = l_num_error) THEN
9400: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9401: ELSE
9402: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9403: END IF;
9404:
9398:
9399: IF (p_del_rows.count = l_num_error) THEN
9400: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9401: ELSE
9402: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9403: END IF;
9404:
9405: wsh_util_core.add_message(x_return_status);
9406: END IF;
9401: ELSE
9402: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9403: END IF;
9404:
9405: wsh_util_core.add_message(x_return_status);
9406: END IF;
9407: END IF;
9408:
9409: --
9420: END IF;
9421: IF (detailinfo_cv%ISOPEN) THEN
9422: CLOSE detailinfo_cv;
9423: END IF;
9424: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.GENERATE_LOADING_SEQ');
9425: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9426:
9427: --
9428: -- Debug Statements
9421: IF (detailinfo_cv%ISOPEN) THEN
9422: CLOSE detailinfo_cv;
9423: END IF;
9424: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.GENERATE_LOADING_SEQ');
9425: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9426:
9427: --
9428: -- Debug Statements
9429: --
9483: END IF;
9484: --
9485: wsh_new_deliveries_pvt.populate_record( p_delivery_id, l_del_info, x_return_status);
9486:
9487: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
9488: --
9489: -- Debug Statements
9490: --
9491: IF l_debug_on THEN
9649: wsh_debug_sv.LOG(l_module_name, 'p_action_code', p_action_code);
9650: wsh_debug_sv.LOG(l_module_name, 'p_line_freight_terms_Code', p_line_freight_terms_Code);
9651: END IF;
9652: --
9653: x_return_status := wsh_util_core.g_ret_sts_success;
9654: --
9655: --
9656: IF p_delivery_id IS NULL
9657: THEN
9870: --
9871: IF (SQL%NOTFOUND)
9872: THEN
9873: --{
9874: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9875: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
9876: RAISE FND_API.G_EXC_ERROR;
9877: --}
9878: END IF;
9908: --
9909: IF (SQL%NOTFOUND)
9910: THEN
9911: --{
9912: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9913: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
9914: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9915: --}
9916: END IF;
9910: THEN
9911: --{
9912: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9913: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
9914: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9915: --}
9916: END IF;
9917: --
9918: IF l_debug_on
9919: THEN
9920: WSH_DEBUG_SV.pop(l_module_name);
9921: END IF;
9922: WHEN FND_API.G_EXC_ERROR THEN
9923: x_return_status := wsh_util_core.g_ret_sts_error;
9924: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9925: --
9926: IF l_debug_on
9927: THEN
9920: WSH_DEBUG_SV.pop(l_module_name);
9921: END IF;
9922: WHEN FND_API.G_EXC_ERROR THEN
9923: x_return_status := wsh_util_core.g_ret_sts_error;
9924: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9925: --
9926: IF l_debug_on
9927: THEN
9928: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
9927: THEN
9928: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
9929: END IF;
9930: WHEN e_locked THEN
9931: x_return_status := wsh_util_core.g_ret_sts_error;
9932:
9933: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
9934: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', l_name);
9935: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9931: x_return_status := wsh_util_core.g_ret_sts_error;
9932:
9933: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
9934: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', l_name);
9935: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9936: --
9937: IF l_debug_on
9938: THEN
9939: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:e_locked');
9939: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:e_locked');
9940: END IF;
9941: WHEN OTHERS THEN
9942: x_return_status := fnd_api.g_ret_sts_unexp_error;
9943: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.update_freight_terms',l_module_name);
9944: --
9945: IF l_debug_on THEN
9946: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
9947: END IF;
10027:
10028: -- J+ Internal Location
10029: l_physical_stop_id WSH_TRIP_STOPS.physical_stop_id%TYPE;
10030: l_physical_location_id WSH_TRIP_STOPS.physical_location_id%TYPE;
10031: l_trip_id_tab wsh_util_core.id_tab_type;
10032: l_success_trip_ids wsh_util_core.id_tab_type;
10033: -- End of J+ Internal Location
10034: l_stop_rec WSH_TRIP_STOPS_PVT.TRIP_STOP_REC_TYPE;
10035: l_pub_stop_rec WSH_TRIP_STOPS_PUB.TRIP_STOP_PUB_REC_TYPE;
10028: -- J+ Internal Location
10029: l_physical_stop_id WSH_TRIP_STOPS.physical_stop_id%TYPE;
10030: l_physical_location_id WSH_TRIP_STOPS.physical_location_id%TYPE;
10031: l_trip_id_tab wsh_util_core.id_tab_type;
10032: l_success_trip_ids wsh_util_core.id_tab_type;
10033: -- End of J+ Internal Location
10034: l_stop_rec WSH_TRIP_STOPS_PVT.TRIP_STOP_REC_TYPE;
10035: l_pub_stop_rec WSH_TRIP_STOPS_PUB.TRIP_STOP_PUB_REC_TYPE;
10036: l_trip_rec WSH_TRIPS_PVT.TRIP_REC_TYPE;
10056: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10057: wsh_debug_sv.LOG(l_module_name, 'p_location_id', p_location_id);
10058: END IF;
10059: --
10060: x_return_status := wsh_util_core.g_ret_sts_success;
10061: --
10062: --
10063: IF p_delivery_id IS NULL
10064: THEN
10067: -- Delivery id is required field
10068: --
10069: FND_MESSAGE.SET_NAME('WSH', 'WSH_REQUIRED_FIELD_NULL');
10070: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'p_delivery_id');
10071: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
10072: --
10073: RAISE FND_API.G_EXC_ERROR;
10074: --}
10075: END IF;
10083: THEN
10084: --{
10085: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NOT_EXIST');
10086: FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_id);
10087: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
10088: --
10089: RAISE FND_API.G_EXC_ERROR;
10090: --}
10091: END IF;
10090: --}
10091: END IF;
10092: --
10093: --
10094: IF l_dlvy_rec.initial_pickup_location_id = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
10095: AND l_dlvy_rec.initial_pickup_location_id <> p_location_id
10096: THEN
10097: --{
10098: --
10139: (p_stop_id => stop_rec.stop_id,
10140: x_stop_rec => l_stop_rec,
10141: x_return_status => l_return_status);
10142: --
10143: wsh_util_core.api_post_call
10144: (
10145: p_return_status => l_return_status,
10146: x_num_warnings => l_num_warnings,
10147: x_num_errors => l_num_errors
10173: END IF;
10174: -- End of Internal Locations J+
10175: --
10176: /* H integration - call Multi Leg FTE */
10177: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
10178: -- Code changes made in J+ along with Internal Locations
10179: -- Update the Input record structure which FTE uses to validate
10180: -- the new stop location
10181: l_stop_rec.stop_location_id := p_location_id;
10189: p_trip_rec => l_trip_rec,
10190: p_action => 'UPDATE',
10191: x_return_status => l_return_status);
10192: --
10193: wsh_util_core.api_post_call
10194: (
10195: p_return_status => l_return_status,
10196: x_num_warnings => l_num_warnings,
10197: x_num_errors => l_num_errors
10225: p_caller => 'WSH_UPDATE_SHIP_FROM_LOC',
10226: x_success_trip_ids => l_success_trip_ids,
10227: x_return_status => l_return_status);
10228:
10229: wsh_util_core.api_post_call(
10230: p_return_status => l_return_status,
10231: x_num_warnings => l_num_warnings,
10232: x_num_errors => l_num_errors);
10233: -- End of Internal Locations J+
10266: IF l_location_name IS NULL
10267: THEN
10268: --{
10269: IF l_debug_on THEN
10270: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_location_description',WSH_DEBUG_SV.C_PROC_LEVEL);
10271: END IF;
10272: --
10273: l_location_name := SUBSTRB(
10274: WSH_UTIL_CORE.get_location_description
10270: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_location_description',WSH_DEBUG_SV.C_PROC_LEVEL);
10271: END IF;
10272: --
10273: l_location_name := SUBSTRB(
10274: WSH_UTIL_CORE.get_location_description
10275: (
10276: p_location_id,
10277: 'NEW UI CODE'
10278: ),
10285: --
10286: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_PU_LOCN_UPDATE');
10287: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', pickup_dlvy_rec.name);
10288: FND_MESSAGE.SET_TOKEN('LOCATION_NAME', l_location_name);
10289: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_warning,l_module_name);
10290: l_num_warnings := l_num_warnings + 1;
10291: --}
10292: END LOOP;
10293: --}
10298: --
10299: --
10300: IF l_num_errors > 0
10301: THEN
10302: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10303: ELSIF l_num_warnings > 0
10304: THEN
10305: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10306: ELSE
10301: THEN
10302: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10303: ELSIF l_num_warnings > 0
10304: THEN
10305: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10306: ELSE
10307: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10308: END IF;
10309: --
10303: ELSIF l_num_warnings > 0
10304: THEN
10305: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10306: ELSE
10307: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10308: END IF;
10309: --
10310: IF l_debug_on THEN
10311: wsh_debug_sv.pop(l_module_name);
10317: --
10318: WHEN FND_API.G_EXC_ERROR THEN
10319:
10320: ROLLBACK TO update_ship_from_location_sp;
10321: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10322: --
10323: IF l_debug_on THEN
10324: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10325: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10327: --
10328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10329:
10330: ROLLBACK TO update_ship_from_location_sp;
10331: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10332: --
10333: IF l_debug_on THEN
10334: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10335: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10334: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10335: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10336: END IF;
10337: --
10338: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10339: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10340: --
10341: IF l_debug_on THEN
10342: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10335: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10336: END IF;
10337: --
10338: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10339: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10340: --
10341: IF l_debug_on THEN
10342: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10343: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10338: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10339: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10340: --
10341: IF l_debug_on THEN
10342: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10343: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10344: END IF;
10345: --
10346: WHEN OTHERS THEN
10339: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10340: --
10341: IF l_debug_on THEN
10342: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10343: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10344: END IF;
10345: --
10346: WHEN OTHERS THEN
10347:
10345: --
10346: WHEN OTHERS THEN
10347:
10348: ROLLBACK TO update_ship_from_location_sp;
10349: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10350: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.update_ship_from_location', l_module_name);
10351: IF l_debug_on THEN
10352: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10353: END IF;
10346: WHEN OTHERS THEN
10347:
10348: ROLLBACK TO update_ship_from_location_sp;
10349: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10350: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.update_ship_from_location', l_module_name);
10351: IF l_debug_on THEN
10352: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10353: END IF;
10354: --
10433:
10434: EXCEPTION
10435:
10436: WHEN OTHERS THEN
10437: wsh_util_core.default_handler('wsh_new_delivery_actions.check_last_del_trip',l_module_name);
10438: --
10439: IF l_debug_on THEN
10440: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
10441: END IF;
10601: END IF;
10602:
10603: EXCEPTION
10604: WHEN OTHERS THEN
10605: wsh_util_core.default_handler('wsh_new_delivery_actions.get_trip_status',l_module_name);
10606: --
10607: IF l_debug_on THEN
10608: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
10609: END IF;
10675: IF c_get_console_delivery%ISOPEN THEN
10676: CLOSE c_get_console_delivery;
10677: END IF;
10678:
10679: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.IS_DLVY_CONTENT');
10680: --
10681: IF l_debug_on THEN
10682: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10683: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10723: AND ACCT_SITE.PARTY_SITE_ID = PARTY_SITE.PARTY_SITE_ID
10724: AND PARTY_SITE.LOCATION_ID = LOC.LOCATION_ID
10725: AND LOC.LOCATION_ID = c_location_id;
10726:
10727: l_site_tab WSH_UTIL_CORE.ID_TAB_TYPE;
10728: multiple_ship_to_site EXCEPTION;
10729: no_ship_to_site EXCEPTION;
10730:
10731: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
10732: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_SHIP_TO_SITE';
10733:
10734: BEGIN
10735:
10736: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10737: --
10738: IF l_debug_on THEN
10739: wsh_debug_sv.push (l_module_name);
10740: END IF;
10779: wsh_debug_sv.logmsg(l_module_name, 'Delivery is not assoociated with a site');
10780: END IF;
10781: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NO_SITE');
10782: FND_MESSAGE.Set_Token('DELIVERY',p_delivery_id);
10783: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10784: WSH_UTIL_CORE.add_message(x_return_status);
10785:
10786: IF l_debug_on THEN
10787: WSH_DEBUG_SV.pop(l_module_name);
10780: END IF;
10781: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NO_SITE');
10782: FND_MESSAGE.Set_Token('DELIVERY',p_delivery_id);
10783: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10784: WSH_UTIL_CORE.add_message(x_return_status);
10785:
10786: IF l_debug_on THEN
10787: WSH_DEBUG_SV.pop(l_module_name);
10788: END IF;
10794: wsh_debug_sv.logmsg(l_module_name, 'Delivery is not assoociated with multiple sites');
10795: END IF;
10796: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_MULT_SITE');
10797: FND_MESSAGE.Set_Token('DELIVERY',p_delivery_id);
10798: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10799: WSH_UTIL_CORE.add_message(x_return_status);
10800:
10801: IF l_debug_on THEN
10802: WSH_DEBUG_SV.pop(l_module_name);
10795: END IF;
10796: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_MULT_SITE');
10797: FND_MESSAGE.Set_Token('DELIVERY',p_delivery_id);
10798: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10799: WSH_UTIL_CORE.add_message(x_return_status);
10800:
10801: IF l_debug_on THEN
10802: WSH_DEBUG_SV.pop(l_module_name);
10803: END IF;
10807: IF ( c_get_ship_to_site%ISOPEN) THEN
10808: CLOSE c_get_ship_to_site;
10809: END IF;
10810: --
10811: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.get_ship_to_site');
10812: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10813: --
10814:
10815: IF l_debug_on THEN
10808: CLOSE c_get_ship_to_site;
10809: END IF;
10810: --
10811: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.get_ship_to_site');
10812: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10813: --
10814:
10815: IF l_debug_on THEN
10816: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10860: WHERE wda.delivery_detail_id = wdd.delivery_detail_id
10861: AND wda.delivery_id = p_delivery_id);
10862:
10863:
10864: l_cust_tab WSH_UTIL_CORE.ID_TAB_TYPE;
10865: no_cust_for_loc EXCEPTION;
10866: mult_cust_for_loc EXCEPTION;
10867:
10868: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
10869: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_SHIP_TO_CUSTOMER';
10870:
10871: BEGIN
10872:
10873: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10874: --
10875: IF l_debug_on THEN
10876: wsh_debug_sv.push (l_module_name);
10877: END IF;
10916: END IF;
10917: -- Location not associated with a customer.
10918: FND_MESSAGE.SET_NAME('WSH','WSH_CUST_NO_LOC');
10919: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
10920: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10921: WSH_UTIL_CORE.add_message(x_return_status);
10922:
10923: IF l_debug_on THEN
10924: WSH_DEBUG_SV.pop(l_module_name);
10917: -- Location not associated with a customer.
10918: FND_MESSAGE.SET_NAME('WSH','WSH_CUST_NO_LOC');
10919: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
10920: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10921: WSH_UTIL_CORE.add_message(x_return_status);
10922:
10923: IF l_debug_on THEN
10924: WSH_DEBUG_SV.pop(l_module_name);
10925: END IF;
10929: wsh_debug_sv.logmsg(l_module_name, 'Location associated with multiple customers');
10930: END IF;
10931: FND_MESSAGE.SET_NAME('WSH','WSH_CUST_MULT_LOC');
10932: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
10933: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10934: WSH_UTIL_CORE.add_message(x_return_status);
10935:
10936: IF l_debug_on THEN
10937: WSH_DEBUG_SV.pop(l_module_name);
10930: END IF;
10931: FND_MESSAGE.SET_NAME('WSH','WSH_CUST_MULT_LOC');
10932: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
10933: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10934: WSH_UTIL_CORE.add_message(x_return_status);
10935:
10936: IF l_debug_on THEN
10937: WSH_DEBUG_SV.pop(l_module_name);
10938: END IF;
10944: IF (c_get_shipto_cust_from_dlvy%ISOPEN) THEN
10945: CLOSE c_get_shipto_cust_from_dlvy;
10946: END IF;
10947: --
10948: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.get_ship_to_customer');
10949: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10950: --
10951: IF l_debug_on THEN
10952: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10945: CLOSE c_get_shipto_cust_from_dlvy;
10946: END IF;
10947: --
10948: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.get_ship_to_customer');
10949: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10950: --
10951: IF l_debug_on THEN
10952: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10953: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11016: AND SHIP_METHOD = p_ship_method;
11017:
11018: BEGIN
11019: --{
11020: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11021:
11022: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11023:
11024: --
11220: EXCEPTION
11221:
11222: WHEN OTHERS THEN
11223:
11224: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.SET_PICK_UP_DROP_OFF_DATES',l_module_name);
11225: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11226:
11227: IF get_transit_time%ISOPEN THEN
11228: CLOSE get_transit_time;
11221:
11222: WHEN OTHERS THEN
11223:
11224: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.SET_PICK_UP_DROP_OFF_DATES',l_module_name);
11225: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11226:
11227: IF get_transit_time%ISOPEN THEN
11228: CLOSE get_transit_time;
11229: END IF;
11308: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'FORMAT_DEL_UPDATE_TABLE';
11309: --
11310: BEGIN
11311:
11312: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11313: --
11314: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11315: --
11316: IF l_debug_on IS NULL
11683: WHEN OTHERS THEN
11684: x_rec_attr_tab.DELETE;
11685: l_error_code := SQLCODE;
11686: l_error_text := SQLERRM;
11687: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11688: --
11689: -- Debug Statements
11690: --
11691: IF l_debug_on THEN
11691: IF l_debug_on THEN
11692: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM WSH_NEW_DELIVERY_ACTIONS.FORMAT_DEL_UPDATE_TABLE IS ' ||l_error_text);
11693: END IF;
11694: --
11695: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.FORMAT_DEL_UPDATE_TABLE');
11696: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR);
11697: --
11698: -- Debug Statements
11699: --
11692: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM WSH_NEW_DELIVERY_ACTIONS.FORMAT_DEL_UPDATE_TABLE IS ' ||l_error_text);
11693: END IF;
11694: --
11695: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.FORMAT_DEL_UPDATE_TABLE');
11696: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR);
11697: --
11698: -- Debug Statements
11699: --
11700: IF l_debug_on THEN
11713: --
11714: END FORMAT_DEL_UPDATE_TABLE;
11715:
11716:
11717: PROCEDURE PROCESS_CARRIER_SELECTION(p_delivery_id_tab IN OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
11718: p_batch_id IN NUMBER,
11719: p_form_flag IN VARCHAR2,
11720: p_organization_id IN NUMBER DEFAULT NULL,
11721: p_caller IN VARCHAR2 DEFAULT NULL,
11747: NULL -- l_trip_id
11748: from wsh_new_deliveries
11749: where delivery_id = x_delivery_id
11750: and ship_method_code is null
11751: AND initial_pickup_location_id <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID -- J-IB-NPARIKH
11752: and planned_flag NOT IN ('Y','F');
11753:
11754: --
11755: -- cursor to get delivery info from the delivery table (for Pick Release Call)
11941: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
11942: END IF;
11943: --
11944:
11945: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11946: x_return_message := null;
11947:
11948: IF WSH_UTIL_CORE.FTE_Is_Installed <> 'Y' THEN
11949: return;
11944:
11945: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11946: x_return_message := null;
11947:
11948: IF WSH_UTIL_CORE.FTE_Is_Installed <> 'Y' THEN
11949: return;
11950: END IF;
11951:
11952: l_y_planned_flag := 'Y';
11966:
11967: END IF;
11968:
11969: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_INVALID_INPUT');
11970: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11971: WSH_UTIL_CORE.add_message(x_return_status);
11972: --
11973: -- Debug Statements
11974: --
11967: END IF;
11968:
11969: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_INVALID_INPUT');
11970: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11971: WSH_UTIL_CORE.add_message(x_return_status);
11972: --
11973: -- Debug Statements
11974: --
11975: IF l_debug_on THEN
11976: WSH_DEBUG_SV.logmsg(l_module_name, 'THE INPUT PARAMETERS ARE INVALID FOR THIS PROCEDURE' );
11977: END IF;
11978: --
11979:
11980: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11981: -- 2292513
11982: --
11983: -- Debug Statements
11984: --
12077: --
12078: -- [2003/01/29][I][ABLUNDEL][BUG# 2765987]
12079: -- Changed planned delivery to an ERROR from a WARNING
12080: --
12081: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12082: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
12083: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_PLAN_DEL');
12084: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
12085: wsh_util_core.add_message(x_return_status);
12078: -- [2003/01/29][I][ABLUNDEL][BUG# 2765987]
12079: -- Changed planned delivery to an ERROR from a WARNING
12080: --
12081: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12082: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
12083: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_PLAN_DEL');
12084: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
12085: wsh_util_core.add_message(x_return_status);
12086: --
12081: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12082: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
12083: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_PLAN_DEL');
12084: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
12085: wsh_util_core.add_message(x_return_status);
12086: --
12087: -- Debug Statements
12088: --
12089: IF l_debug_on THEN
12096: l_trip_status := get_trip_status(l_dlvy_info_rec.l_delivery_id,l_dlvy_info_rec.l_delivery_type);
12097: -- Delivery is assigned to more than one trip
12098: IF (l_trip_status = 'MANY') THEN
12099:
12100: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12101: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
12102: IF (substr(p_caller,1,3) = 'FTE') THEN
12103: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_MANY_FTE');
12104: ELSE
12097: -- Delivery is assigned to more than one trip
12098: IF (l_trip_status = 'MANY') THEN
12099:
12100: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12101: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
12102: IF (substr(p_caller,1,3) = 'FTE') THEN
12103: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_MANY_FTE');
12104: ELSE
12105: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_MANY');
12104: ELSE
12105: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_MANY');
12106: END IF;
12107: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
12108: wsh_util_core.add_message(x_return_status);
12109:
12110: IF l_debug_on THEN
12111: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY '||l_dlvy_info_rec.l_delivery_id||' IS ASSIGNED TO MANY TRIPS, CARRIER SELECTION IS NOT ALLOWED' );
12112: END IF;
12113:
12114: -- Trip to which this delivery is assigned has more than one deliveries
12115: ELSIF (l_trip_status = 'SHARED') THEN
12116:
12117: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12118: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
12119: IF (substr(p_caller,1,3) = 'FTE') THEN
12120: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_SHARED_FTE');
12121: ELSE
12114: -- Trip to which this delivery is assigned has more than one deliveries
12115: ELSIF (l_trip_status = 'SHARED') THEN
12116:
12117: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12118: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
12119: IF (substr(p_caller,1,3) = 'FTE') THEN
12120: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_SHARED_FTE');
12121: ELSE
12122: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_TRIP_SHARED');
12122: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_TRIP_SHARED');
12123: END IF;
12124:
12125: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
12126: wsh_util_core.add_message(x_return_status);
12127:
12128: IF l_debug_on THEN
12129: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY '||l_dlvy_info_rec.l_delivery_id||' IS ASSIGNED TO A SHARED TRIP, CARRIER SELECTION IS NOT ALLOWED' );
12130: END IF;
12131:
12132: -- Trip to which this delivery is assigned has Lane/Service
12133: ELSIF (l_trip_status = 'HAS_LANE') THEN
12134:
12135: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12136: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
12137:
12138: IF (substr(p_caller,1,3) = 'FTE') THEN
12139: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_HAS_LANE_FTE');
12132: -- Trip to which this delivery is assigned has Lane/Service
12133: ELSIF (l_trip_status = 'HAS_LANE') THEN
12134:
12135: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12136: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
12137:
12138: IF (substr(p_caller,1,3) = 'FTE') THEN
12139: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_HAS_LANE_FTE');
12140: ELSE
12140: ELSE
12141: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_TRIP_HAS_LANE');
12142: END IF;
12143: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
12144: wsh_util_core.add_message(x_return_status);
12145:
12146: IF l_debug_on THEN
12147: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY '||l_dlvy_info_rec.l_delivery_id||' IS ASSIGNED TO A TRIP WITH SERVICE, CARRIER SELECTION IS NOT ALLOWED' );
12148: END IF;
12218: IF l_debug_on THEN
12219: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after get_default_uoms'||l_return_status);
12220: END IF;
12221:
12222: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12223: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NO_UOM');
12224: FND_MESSAGE.SET_TOKEN('DELIVERY',l_dlvy_info_tab(i).l_delivery_id);
12225: WSH_UTIL_CORE.add_message(l_return_status);
12226: l_carrier_sel_entity_tab.DELETE(l_cnt);
12221:
12222: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12223: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NO_UOM');
12224: FND_MESSAGE.SET_TOKEN('DELIVERY',l_dlvy_info_tab(i).l_delivery_id);
12225: WSH_UTIL_CORE.add_message(l_return_status);
12226: l_carrier_sel_entity_tab.DELETE(l_cnt);
12227: GOTO dlvy_nextpass;
12228: END IF;
12229: ELSE
12246: IF l_debug_on THEN
12247: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after get_ship_to_site '||l_return_status);
12248: END IF;
12249:
12250: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12251: l_carrier_sel_entity_tab.DELETE(l_cnt);
12252: GOTO dlvy_nextpass;
12253: END IF;
12254: END IF;
12266: IF l_debug_on THEN
12267: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after getting shipping params '||l_return_status);
12268: END IF;
12269:
12270: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12271: l_carrier_sel_entity_tab.DELETE(l_cnt);
12272: GOTO dlvy_nextpass;
12273: END IF;
12274: --
12286: IF l_debug_on THEN
12287: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after get_ship_to_customer'||l_return_status);
12288: END IF;
12289:
12290: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12291: l_carrier_sel_entity_tab.DELETE(l_cnt);
12292: GOTO dlvy_nextpass;
12293: END IF;
12294: ELSE
12299:
12300: ELSE
12301: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DLVY_CONTENT');
12302: FND_MESSAGE.SET_TOKEN('DELIVERY',l_dlvy_info_tab(i).l_delivery_id);
12303: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
12304: END IF;
12305:
12306: <
12307: EXIT WHEN i = l_dlvy_info_tab.LAST;
12313: wsh_debug_sv.logmsg(l_module_name, 'None of the selected deliveries have been found as eligible for Carrier Selection');
12314: END IF;
12315: -- All deliveries are content.
12316: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DLVY_ALL_CONTENT');
12317: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12318: WSH_UTIL_CORE.add_message(x_return_status);
12319: IF l_debug_on THEN
12320: WSH_DEBUG_SV.pop(l_module_name);
12321: END IF;
12314: END IF;
12315: -- All deliveries are content.
12316: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DLVY_ALL_CONTENT');
12317: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12318: WSH_UTIL_CORE.add_message(x_return_status);
12319: IF l_debug_on THEN
12320: WSH_DEBUG_SV.pop(l_module_name);
12321: END IF;
12322: RETURN;
12334: x_cs_output_message_tab => l_cs_output_message_tab,
12335: x_return_message => l_return_message,
12336: x_return_status => l_return_status);
12337:
12338: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS OR l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING)
12339: AND (l_cs_result_tab.COUNT > 0) THEN
12340:
12341: --
12342: -- at least one result is found
12496: x_trip_name => l_trip_name,
12497: x_return_message => x_return_message,
12498: x_return_status => l_return_status);
12499:
12500: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12501: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12502: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12503: END IF;
12504: END IF;
12497: x_return_message => x_return_message,
12498: x_return_status => l_return_status);
12499:
12500: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12501: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12502: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12503: END IF;
12504: END IF;
12505:
12540: --{
12541: IF l_trip_rank_seq is NOT NULL THEN
12542: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_UPD_TRIP_RANK_LIST');
12543: FND_MESSAGE.SET_TOKEN('TRIPID',l_trip_id);
12544: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12545: WSH_UTIL_CORE.add_message(x_return_status);
12546: END IF;
12547:
12548: l_cs_result_tab(rec_cnt).trip_id := l_trip_id;
12541: IF l_trip_rank_seq is NOT NULL THEN
12542: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_UPD_TRIP_RANK_LIST');
12543: FND_MESSAGE.SET_TOKEN('TRIPID',l_trip_id);
12544: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12545: WSH_UTIL_CORE.add_message(x_return_status);
12546: END IF;
12547:
12548: l_cs_result_tab(rec_cnt).trip_id := l_trip_id;
12549:
12638: p_ranklist => l_ranked_list,
12639: p_trip_id => l_trip_id,
12640: p_rank_id => l_rank_id);
12641:
12642: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12643: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12644: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12645: END IF;
12646: END IF;
12639: p_trip_id => l_trip_id,
12640: p_rank_id => l_rank_id);
12641:
12642: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12643: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12644: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12645: END IF;
12646: END IF;
12647: */ -- Hiding project
12662: -- show error;
12663: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DEL_MLEG_ASG_TRIP');
12664: FND_MESSAGE.SET_TOKEN('DELIVERY_ID',l_delivery_id);
12665: FND_MESSAGE.SET_TOKEN('TRIP_ID',l_trip_id);
12666: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12667: WSH_UTIL_CORE.add_message(x_return_status);
12668:
12669: l_cs_result_tab(rec_cnt) := NULL;
12670:
12663: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DEL_MLEG_ASG_TRIP');
12664: FND_MESSAGE.SET_TOKEN('DELIVERY_ID',l_delivery_id);
12665: FND_MESSAGE.SET_TOKEN('TRIP_ID',l_trip_id);
12666: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12667: WSH_UTIL_CORE.add_message(x_return_status);
12668:
12669: l_cs_result_tab(rec_cnt) := NULL;
12670:
12671: IF l_debug_on THEN
12675: ELSIF p_caller = 'WSH_AUTO_CREATE_DEL_TRIP' AND l_skip_rtng_rule_ac_trip = 'Y' THEN
12676: --{
12677: IF l_delivery_id <> l_prev_delivery_id THEN
12678: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_MULTILEG');
12679: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12680: WSH_UTIL_CORE.add_message(x_return_status);
12681: END IF;
12682:
12683: l_cs_result_tab(rec_cnt) := NULL;
12676: --{
12677: IF l_delivery_id <> l_prev_delivery_id THEN
12678: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_MULTILEG');
12679: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12680: WSH_UTIL_CORE.add_message(x_return_status);
12681: END IF;
12682:
12683: l_cs_result_tab(rec_cnt) := NULL;
12684: --}
12754: x_trip_name => l_trip_name,
12755: x_return_message => x_return_message,
12756: x_return_status => l_return_status);
12757:
12758: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12759: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12760: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12761: END IF;
12762: END IF;
12755: x_return_message => x_return_message,
12756: x_return_status => l_return_status);
12757:
12758: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12759: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12760: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12761: END IF;
12762: END IF;
12763: l_cs_result_tab(j).trip_id := l_trip_id;
12793: p_ranklist => l_ranked_list,
12794: p_trip_id => l_trip_id,
12795: p_rank_id => l_rank_id);
12796:
12797: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12798: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12799: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12800: END IF;
12801: END IF;
12794: p_trip_id => l_trip_id,
12795: p_rank_id => l_rank_id);
12796:
12797: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12798: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12799: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12800: END IF;
12801: END IF;
12802: l_ranked_list.DELETE;
12851: x_msg_data => l_msg_data);
12852:
12853:
12854: IF ((l_return_status is not null) AND
12855: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
12856: --
12857: -- delivery not updated
12858: --
12859: x_return_status := l_return_status;
12856: --
12857: -- delivery not updated
12858: --
12859: x_return_status := l_return_status;
12860: WSH_UTIL_CORE.add_message(x_return_status);
12861: --
12862: -- Debug Statements
12863: --
12864: IF l_debug_on THEN
12891: p_in_rec => l_trip_in_rec,
12892: x_out_tab => l_trip_out_rec_tab);
12893:
12894: IF ((l_return_status is not null) AND
12895: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
12896:
12897: --
12898: -- trip not updated
12899: --
12897: --
12898: -- trip not updated
12899: --
12900: x_return_status := l_return_status;
12901: WSH_UTIL_CORE.add_message(x_return_status);
12902: --
12903: -- Debug Statements
12904: --
12905: IF l_debug_on THEN
12934: WHEN OTHERS THEN
12935: l_error_code := SQLCODE;
12936: l_error_text := SQLERRM;
12937:
12938: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.PROCESS_CARRIER_SELECTION');
12939: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12940: x_return_message := l_error_text;
12941:
12942:
12935: l_error_code := SQLCODE;
12936: l_error_text := SQLERRM;
12937:
12938: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.PROCESS_CARRIER_SELECTION');
12939: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12940: x_return_message := l_error_text;
12941:
12942:
12943: IF l_debug_on THEN
13065: l_parent_trip_id NUMBER;
13066: l_child_trip_id NUMBER;
13067: l_parent_del_id NUMBER;
13068: l_dropoff_loc_id NUMBER;
13069: l_child_details_tab wsh_util_core.id_tab_type;
13070: l_valid_children_tab wsh_util_core.id_tab_type;
13071: l_unassigned_trips_tab wsh_util_core.id_tab_type;
13072: l_assigned_trips_tab wsh_util_core.id_tab_type;
13073: l_delivery_leg_id_dummy NUMBER;
13066: l_child_trip_id NUMBER;
13067: l_parent_del_id NUMBER;
13068: l_dropoff_loc_id NUMBER;
13069: l_child_details_tab wsh_util_core.id_tab_type;
13070: l_valid_children_tab wsh_util_core.id_tab_type;
13071: l_unassigned_trips_tab wsh_util_core.id_tab_type;
13072: l_assigned_trips_tab wsh_util_core.id_tab_type;
13073: l_delivery_leg_id_dummy NUMBER;
13074: l_trip_id_tab wsh_util_core.id_tab_type;
13067: l_parent_del_id NUMBER;
13068: l_dropoff_loc_id NUMBER;
13069: l_child_details_tab wsh_util_core.id_tab_type;
13070: l_valid_children_tab wsh_util_core.id_tab_type;
13071: l_unassigned_trips_tab wsh_util_core.id_tab_type;
13072: l_assigned_trips_tab wsh_util_core.id_tab_type;
13073: l_delivery_leg_id_dummy NUMBER;
13074: l_trip_id_tab wsh_util_core.id_tab_type;
13075: l_wv_delivery_tab wsh_util_core.id_tab_type;
13068: l_dropoff_loc_id NUMBER;
13069: l_child_details_tab wsh_util_core.id_tab_type;
13070: l_valid_children_tab wsh_util_core.id_tab_type;
13071: l_unassigned_trips_tab wsh_util_core.id_tab_type;
13072: l_assigned_trips_tab wsh_util_core.id_tab_type;
13073: l_delivery_leg_id_dummy NUMBER;
13074: l_trip_id_tab wsh_util_core.id_tab_type;
13075: l_wv_delivery_tab wsh_util_core.id_tab_type;
13076: l_unassign_dels wsh_util_core.id_tab_type;
13070: l_valid_children_tab wsh_util_core.id_tab_type;
13071: l_unassigned_trips_tab wsh_util_core.id_tab_type;
13072: l_assigned_trips_tab wsh_util_core.id_tab_type;
13073: l_delivery_leg_id_dummy NUMBER;
13074: l_trip_id_tab wsh_util_core.id_tab_type;
13075: l_wv_delivery_tab wsh_util_core.id_tab_type;
13076: l_unassign_dels wsh_util_core.id_tab_type;
13077: l_ignore_plan_dels wsh_util_core.id_tab_type;
13078: l_include_plan_dels wsh_util_core.id_tab_type;
13071: l_unassigned_trips_tab wsh_util_core.id_tab_type;
13072: l_assigned_trips_tab wsh_util_core.id_tab_type;
13073: l_delivery_leg_id_dummy NUMBER;
13074: l_trip_id_tab wsh_util_core.id_tab_type;
13075: l_wv_delivery_tab wsh_util_core.id_tab_type;
13076: l_unassign_dels wsh_util_core.id_tab_type;
13077: l_ignore_plan_dels wsh_util_core.id_tab_type;
13078: l_include_plan_dels wsh_util_core.id_tab_type;
13079: l_change_plan_dels wsh_util_core.id_tab_type;
13072: l_assigned_trips_tab wsh_util_core.id_tab_type;
13073: l_delivery_leg_id_dummy NUMBER;
13074: l_trip_id_tab wsh_util_core.id_tab_type;
13075: l_wv_delivery_tab wsh_util_core.id_tab_type;
13076: l_unassign_dels wsh_util_core.id_tab_type;
13077: l_ignore_plan_dels wsh_util_core.id_tab_type;
13078: l_include_plan_dels wsh_util_core.id_tab_type;
13079: l_change_plan_dels wsh_util_core.id_tab_type;
13080: l_child_del_trips wsh_util_core.id_tab_type;
13073: l_delivery_leg_id_dummy NUMBER;
13074: l_trip_id_tab wsh_util_core.id_tab_type;
13075: l_wv_delivery_tab wsh_util_core.id_tab_type;
13076: l_unassign_dels wsh_util_core.id_tab_type;
13077: l_ignore_plan_dels wsh_util_core.id_tab_type;
13078: l_include_plan_dels wsh_util_core.id_tab_type;
13079: l_change_plan_dels wsh_util_core.id_tab_type;
13080: l_child_del_trips wsh_util_core.id_tab_type;
13081: l_child_del_trips_dummy wsh_util_core.id_tab_type;
13074: l_trip_id_tab wsh_util_core.id_tab_type;
13075: l_wv_delivery_tab wsh_util_core.id_tab_type;
13076: l_unassign_dels wsh_util_core.id_tab_type;
13077: l_ignore_plan_dels wsh_util_core.id_tab_type;
13078: l_include_plan_dels wsh_util_core.id_tab_type;
13079: l_change_plan_dels wsh_util_core.id_tab_type;
13080: l_child_del_trips wsh_util_core.id_tab_type;
13081: l_child_del_trips_dummy wsh_util_core.id_tab_type;
13082: l_parent_del_tab wsh_util_core.id_tab_type;
13075: l_wv_delivery_tab wsh_util_core.id_tab_type;
13076: l_unassign_dels wsh_util_core.id_tab_type;
13077: l_ignore_plan_dels wsh_util_core.id_tab_type;
13078: l_include_plan_dels wsh_util_core.id_tab_type;
13079: l_change_plan_dels wsh_util_core.id_tab_type;
13080: l_child_del_trips wsh_util_core.id_tab_type;
13081: l_child_del_trips_dummy wsh_util_core.id_tab_type;
13082: l_parent_del_tab wsh_util_core.id_tab_type;
13083: l_intermediate_loc_id NUMBER;
13076: l_unassign_dels wsh_util_core.id_tab_type;
13077: l_ignore_plan_dels wsh_util_core.id_tab_type;
13078: l_include_plan_dels wsh_util_core.id_tab_type;
13079: l_change_plan_dels wsh_util_core.id_tab_type;
13080: l_child_del_trips wsh_util_core.id_tab_type;
13081: l_child_del_trips_dummy wsh_util_core.id_tab_type;
13082: l_parent_del_tab wsh_util_core.id_tab_type;
13083: l_intermediate_loc_id NUMBER;
13084: l_dummy_child NUMBER;
13077: l_ignore_plan_dels wsh_util_core.id_tab_type;
13078: l_include_plan_dels wsh_util_core.id_tab_type;
13079: l_change_plan_dels wsh_util_core.id_tab_type;
13080: l_child_del_trips wsh_util_core.id_tab_type;
13081: l_child_del_trips_dummy wsh_util_core.id_tab_type;
13082: l_parent_del_tab wsh_util_core.id_tab_type;
13083: l_intermediate_loc_id NUMBER;
13084: l_dummy_child NUMBER;
13085: l_gross_wt NUMBER;
13078: l_include_plan_dels wsh_util_core.id_tab_type;
13079: l_change_plan_dels wsh_util_core.id_tab_type;
13080: l_child_del_trips wsh_util_core.id_tab_type;
13081: l_child_del_trips_dummy wsh_util_core.id_tab_type;
13082: l_parent_del_tab wsh_util_core.id_tab_type;
13083: l_intermediate_loc_id NUMBER;
13084: l_dummy_child NUMBER;
13085: l_gross_wt NUMBER;
13086: l_net_wt NUMBER;
13208: WSH_TRIPS_ACTIONS.Unassign_Trip(p_del_rows => l_unassign_dels,
13209: p_trip_id => l_parent_trip_rec.trip_id,
13210: x_return_status => l_return_status);
13211:
13212: wsh_util_core.api_post_call
13213: (
13214: p_return_status => l_return_status,
13215: x_num_warnings => l_num_warnings,
13216: x_num_errors => l_num_errors
13271: END LOOP;
13272:
13273: EXCEPTION
13274: WHEN OTHERS THEN
13275: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13276: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13277: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_valid_children_tab(i)));
13278: WSH_UTIL_CORE.Add_Message(x_return_status);
13279: --
13274: WHEN OTHERS THEN
13275: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13276: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13277: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_valid_children_tab(i)));
13278: WSH_UTIL_CORE.Add_Message(x_return_status);
13279: --
13280: -- Debug Statements
13281: --
13282: IF l_debug_on THEN
13379: p_in_ids => l_child_del_trips,
13380: p_action_code => 'IGNORE_PLAN',
13381: x_return_status => l_return_status);
13382:
13383: wsh_util_core.api_post_call
13384: (
13385: p_return_status => l_return_status,
13386: x_num_warnings => l_num_warnings,
13387: x_num_errors => l_num_errors
13397: p_in_ids => l_change_plan_dels,
13398: p_action_code => 'IGNORE_PLAN',
13399: x_return_status => l_return_status);
13400:
13401: wsh_util_core.api_post_call
13402: (
13403: p_return_status => l_return_status,
13404: x_num_warnings => l_num_warnings,
13405: x_num_errors => l_num_errors
13423: p_dropoff_arr_date => l_parent_trip_rec.do_ar_date,
13424: p_dropoff_dep_date => l_parent_trip_rec.do_dep_date,
13425: x_return_status => l_return_status);
13426:
13427: wsh_util_core.api_post_call
13428: (
13429: p_return_status => l_return_status,
13430: x_num_warnings => l_num_warnings,
13431: x_num_errors => l_num_errors
13448: p_in_ids => l_trip_id_tab,
13449: p_action_code => 'IGNORE_PLAN',
13450: x_return_status => l_return_status);
13451:
13452: wsh_util_core.api_post_call
13453: (
13454: p_return_status => l_return_status,
13455: x_num_warnings => l_num_warnings,
13456: x_num_errors => l_num_errors
13477: x_return_status => l_return_status);
13478:
13479:
13480:
13481: wsh_util_core.api_post_call
13482: (
13483: p_return_status => l_return_status,
13484: x_num_warnings => l_num_warnings,
13485: x_num_errors => l_num_errors
13493: END LOOP;
13494:
13495: EXCEPTION
13496: WHEN OTHERS THEN
13497: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13498: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13499: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_valid_children_tab(i)));
13500: WSH_UTIL_CORE.Add_Message(x_return_status);
13501: --
13496: WHEN OTHERS THEN
13497: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13498: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13499: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_valid_children_tab(i)));
13500: WSH_UTIL_CORE.Add_Message(x_return_status);
13501: --
13502: -- Debug Statements
13503: --
13504: IF l_debug_on THEN
13532: x_net_weight => l_net_wt,
13533: x_volume => l_volume,
13534: x_return_status => l_return_status);
13535:
13536: wsh_util_core.api_post_call
13537: (
13538: p_return_status => l_return_status,
13539: x_num_warnings => l_num_warnings,
13540: x_num_errors => l_num_errors
13546: p_entity_type => 'DELIVERY',
13547: p_entity_ids => l_parent_del_tab,
13548: x_return_status => l_return_status);
13549:
13550: wsh_util_core.api_post_call
13551: (
13552: p_return_status => l_return_status,
13553: x_num_warnings => l_num_warnings,
13554: x_num_errors => l_num_errors
13560:
13561: -- Not all deliveries were assigned to parent.
13562: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARTIAL_CONSOL_ASSIGN');
13563: FND_MESSAGE.SET_TOKEN('DEL_COUNT', 'l_valid_children_tab.count');
13564: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
13565: l_num_warnings := l_num_warnings + 1;
13566: END IF;
13567:
13568: IF l_num_errors > 0
13566: END IF;
13567:
13568: IF l_num_errors > 0
13569: THEN
13570: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13571: ELSIF l_num_warnings > 0
13572: THEN
13573: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13574: ELSE
13569: THEN
13570: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13571: ELSIF l_num_warnings > 0
13572: THEN
13573: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13574: ELSE
13575: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13576: END IF;
13577:
13571: ELSIF l_num_warnings > 0
13572: THEN
13573: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13574: ELSE
13575: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13576: END IF;
13577:
13578:
13579: IF l_debug_on THEN
13581: END IF;
13582:
13583: EXCEPTION
13584: WHEN FND_API.G_EXC_ERROR THEN
13585: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13586: IF c_check_trips%ISOPEN THEN
13587: CLOSE c_check_trips;
13588: END IF;
13589: IF c_get_top_child_details%ISOPEN THEN
13608: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
13609: END IF;
13610:
13611: WHEN WSH_INVALID_TRIP THEN
13612: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13613: IF c_check_trips%ISOPEN THEN
13614: CLOSE c_check_trips;
13615: END IF;
13616: IF c_get_top_child_details%ISOPEN THEN
13625: IF c_check_valid_child%ISOPEN THEN
13626: CLOSE c_check_valid_child;
13627: END IF;
13628: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRIP');
13629: WSH_UTIL_CORE.Add_Message(x_return_status);
13630: --
13631: -- Debug Statements
13632: --
13633: IF l_debug_on THEN
13636: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_TRIP');
13637: END IF;
13638:
13639: WHEN WSH_INVALID_DECONSOL_POINT THEN
13640: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13641: IF c_check_trips%ISOPEN THEN
13642: CLOSE c_check_trips;
13643: END IF;
13644: IF c_get_top_child_details%ISOPEN THEN
13653: IF c_check_valid_child%ISOPEN THEN
13654: CLOSE c_check_valid_child;
13655: END IF;
13656: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DECONSOL_POINT');
13657: WSH_UTIL_CORE.Add_Message(x_return_status);
13658: --
13659: -- Debug Statements
13660: --
13661: IF l_debug_on THEN
13664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_DECONSOL_POINT');
13665: END IF;
13666:
13667: WHEN WSH_INVALID_CHILDREN THEN
13668: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13669: IF c_check_trips%ISOPEN THEN
13670: CLOSE c_check_trips;
13671: END IF;
13672: IF c_get_top_child_details%ISOPEN THEN
13681: IF c_check_valid_child%ISOPEN THEN
13682: CLOSE c_check_valid_child;
13683: END IF;
13684: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CHILDREN');
13685: WSH_UTIL_CORE.Add_Message(x_return_status);
13686: --
13687: -- Debug Statements
13688: --
13689: IF l_debug_on THEN
13707: END IF;
13708: IF c_check_valid_child%ISOPEN THEN
13709: CLOSE c_check_valid_child;
13710: END IF;
13711: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13712: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_PARENT');
13713: WSH_UTIL_CORE.Add_Message(x_return_status);
13714: --
13715: -- Debug Statements
13709: CLOSE c_check_valid_child;
13710: END IF;
13711: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13712: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_PARENT');
13713: WSH_UTIL_CORE.Add_Message(x_return_status);
13714: --
13715: -- Debug Statements
13716: --
13717: IF l_debug_on THEN
13736: END IF;
13737: IF c_check_valid_child%ISOPEN THEN
13738: CLOSE c_check_valid_child;
13739: END IF;
13740: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13741: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_ASSIGN_DEL_TO_CONSOL');
13742: WSH_UTIL_CORE.Add_Message(x_return_status);
13743: --
13744: -- Debug Statements
13738: CLOSE c_check_valid_child;
13739: END IF;
13740: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13741: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_ASSIGN_DEL_TO_CONSOL');
13742: WSH_UTIL_CORE.Add_Message(x_return_status);
13743: --
13744: -- Debug Statements
13745: --
13746: IF l_debug_on THEN
13766: END IF;
13767: IF c_check_valid_child%ISOPEN THEN
13768: CLOSE c_check_valid_child;
13769: END IF;
13770: wsh_util_core.default_handler('wsh_new_delivery_actions.Assign_Del_to_Consol_Del',l_module_name);
13771: --
13772: IF l_debug_on THEN
13773: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
13774: END IF;
13796:
13797: Procedure Unassign_Dels_from_Consol_Del(
13798: p_parent_del IN NUMBER,
13799: p_caller IN VARCHAR2,
13800: p_del_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
13801: x_return_status OUT NOCOPY VARCHAR2) IS
13802:
13803: CURSOR c_check_parent_exists(p_child_delivery_id in number, p_parent_delivery_id in number) IS
13804: select l1.delivery_id, l2.delivery_id, l1.delivery_leg_id, s.trip_id
13835: and parent_delivery_detail_id IS NOT NULL
13836: and type = 'C'
13837: and rownum = 1;
13838:
13839: l_parent_dels_tab wsh_util_core.id_tab_type;
13840: l_assigned_dels_tab wsh_util_core.id_tab_type;
13841: l_trip_tab wsh_util_core.id_tab_type;
13842: l_delete_parent_dels wsh_util_core.id_tab_type;
13843: l_remaining_parent_dels wsh_util_core.id_tab_type;
13836: and type = 'C'
13837: and rownum = 1;
13838:
13839: l_parent_dels_tab wsh_util_core.id_tab_type;
13840: l_assigned_dels_tab wsh_util_core.id_tab_type;
13841: l_trip_tab wsh_util_core.id_tab_type;
13842: l_delete_parent_dels wsh_util_core.id_tab_type;
13843: l_remaining_parent_dels wsh_util_core.id_tab_type;
13844: l_child_legs_tab wsh_util_core.id_tab_type;
13837: and rownum = 1;
13838:
13839: l_parent_dels_tab wsh_util_core.id_tab_type;
13840: l_assigned_dels_tab wsh_util_core.id_tab_type;
13841: l_trip_tab wsh_util_core.id_tab_type;
13842: l_delete_parent_dels wsh_util_core.id_tab_type;
13843: l_remaining_parent_dels wsh_util_core.id_tab_type;
13844: l_child_legs_tab wsh_util_core.id_tab_type;
13845: l_trip_tab_dummy wsh_util_core.id_tab_type;
13838:
13839: l_parent_dels_tab wsh_util_core.id_tab_type;
13840: l_assigned_dels_tab wsh_util_core.id_tab_type;
13841: l_trip_tab wsh_util_core.id_tab_type;
13842: l_delete_parent_dels wsh_util_core.id_tab_type;
13843: l_remaining_parent_dels wsh_util_core.id_tab_type;
13844: l_child_legs_tab wsh_util_core.id_tab_type;
13845: l_trip_tab_dummy wsh_util_core.id_tab_type;
13846: l_distinct_parent_dels_tab wsh_util_core.id_tab_type;
13839: l_parent_dels_tab wsh_util_core.id_tab_type;
13840: l_assigned_dels_tab wsh_util_core.id_tab_type;
13841: l_trip_tab wsh_util_core.id_tab_type;
13842: l_delete_parent_dels wsh_util_core.id_tab_type;
13843: l_remaining_parent_dels wsh_util_core.id_tab_type;
13844: l_child_legs_tab wsh_util_core.id_tab_type;
13845: l_trip_tab_dummy wsh_util_core.id_tab_type;
13846: l_distinct_parent_dels_tab wsh_util_core.id_tab_type;
13847:
13840: l_assigned_dels_tab wsh_util_core.id_tab_type;
13841: l_trip_tab wsh_util_core.id_tab_type;
13842: l_delete_parent_dels wsh_util_core.id_tab_type;
13843: l_remaining_parent_dels wsh_util_core.id_tab_type;
13844: l_child_legs_tab wsh_util_core.id_tab_type;
13845: l_trip_tab_dummy wsh_util_core.id_tab_type;
13846: l_distinct_parent_dels_tab wsh_util_core.id_tab_type;
13847:
13848: l_parent_del_id_dummy NUMBER;
13841: l_trip_tab wsh_util_core.id_tab_type;
13842: l_delete_parent_dels wsh_util_core.id_tab_type;
13843: l_remaining_parent_dels wsh_util_core.id_tab_type;
13844: l_child_legs_tab wsh_util_core.id_tab_type;
13845: l_trip_tab_dummy wsh_util_core.id_tab_type;
13846: l_distinct_parent_dels_tab wsh_util_core.id_tab_type;
13847:
13848: l_parent_del_id_dummy NUMBER;
13849: l_parent_lpn_id_dummy NUMBER;
13842: l_delete_parent_dels wsh_util_core.id_tab_type;
13843: l_remaining_parent_dels wsh_util_core.id_tab_type;
13844: l_child_legs_tab wsh_util_core.id_tab_type;
13845: l_trip_tab_dummy wsh_util_core.id_tab_type;
13846: l_distinct_parent_dels_tab wsh_util_core.id_tab_type;
13847:
13848: l_parent_del_id_dummy NUMBER;
13849: l_parent_lpn_id_dummy NUMBER;
13850: l_child_leg_id_dummy NUMBER;
13952: IF check_consol_lpns%FOUND THEN
13953: CLOSE check_consol_lpns;
13954: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_UNASSIGN_DEL_LPN');
13955: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13956: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13957: wsh_util_core.add_message(l_return_status, l_module_name);
13958: wsh_util_core.api_post_call
13959: (
13960: p_return_status => l_return_status,
13953: CLOSE check_consol_lpns;
13954: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_UNASSIGN_DEL_LPN');
13955: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13956: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13957: wsh_util_core.add_message(l_return_status, l_module_name);
13958: wsh_util_core.api_post_call
13959: (
13960: p_return_status => l_return_status,
13961: x_num_warnings => l_num_warnings,
13954: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_UNASSIGN_DEL_LPN');
13955: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13956: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13957: wsh_util_core.add_message(l_return_status, l_module_name);
13958: wsh_util_core.api_post_call
13959: (
13960: p_return_status => l_return_status,
13961: x_num_warnings => l_num_warnings,
13962: x_num_errors => l_num_errors
13986: END LOOP;
13987:
13988: EXCEPTION
13989: WHEN OTHERS THEN
13990: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13991: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13992: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13993: WSH_UTIL_CORE.Add_Message(x_return_status);
13994: --
13989: WHEN OTHERS THEN
13990: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13991: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13992: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13993: WSH_UTIL_CORE.Add_Message(x_return_status);
13994: --
13995: -- Debug Statements
13996: --
13997: IF l_debug_on THEN
14056: END LOOP;
14057:
14058: EXCEPTION
14059: WHEN OTHERS THEN
14060: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14061: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_DEL_LEG_LOCK');
14062: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
14063: WSH_UTIL_CORE.Add_Message(x_return_status);
14064: --
14059: WHEN OTHERS THEN
14060: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14061: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_DEL_LEG_LOCK');
14062: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
14063: WSH_UTIL_CORE.Add_Message(x_return_status);
14064: --
14065: -- Debug Statements
14066: --
14067: IF l_debug_on THEN
14112:
14113: IF l_delete_parent_dels.count > 0 THEN
14114:
14115: IF l_debug_on THEN
14116: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.Delete',WSH_DEBUG_SV.C_PROC_LEVEL);
14117: END IF;
14118:
14119:
14120: WSH_UTIL_CORE.Delete(
14116: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.Delete',WSH_DEBUG_SV.C_PROC_LEVEL);
14117: END IF;
14118:
14119:
14120: WSH_UTIL_CORE.Delete(
14121: p_type => 'DLVY',
14122: p_rows => l_delete_parent_dels,
14123: p_caller => p_caller,
14124: x_return_status => l_return_status);
14123: p_caller => p_caller,
14124: x_return_status => l_return_status);
14125:
14126: -- Handle return status.
14127: wsh_util_core.api_post_call
14128: (
14129: p_return_status => l_return_status,
14130: x_num_warnings => l_num_warnings,
14131: x_num_errors => l_num_errors
14149: x_net_weight => l_net_weight,
14150: x_volume => l_volume,
14151: x_return_status => l_return_status);
14152:
14153: wsh_util_core.api_post_call
14154: (
14155: p_return_status => l_return_status,
14156: x_num_warnings => l_num_warnings,
14157: x_num_errors => l_num_errors
14163: p_entity_type => 'DELIVERY',
14164: p_entity_ids => l_remaining_parent_dels,
14165: x_return_status => l_return_status);
14166:
14167: wsh_util_core.api_post_call
14168: (
14169: p_return_status => l_return_status,
14170: x_num_warnings => l_num_warnings,
14171: x_num_errors => l_num_errors
14174: Confirm_Consolidation_Delivery(
14175: p_consol_del_tab => l_remaining_parent_dels,
14176: x_return_status => l_return_status);
14177:
14178: wsh_util_core.api_post_call
14179: (
14180: p_return_status => l_return_status,
14181: x_num_warnings => l_num_warnings,
14182: x_num_errors => l_num_errors
14185: END IF;
14186:
14187: IF l_num_errors > 0
14188: THEN
14189: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14190: ELSIF l_num_warnings > 0
14191: THEN
14192: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14193: ELSE
14188: THEN
14189: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14190: ELSIF l_num_warnings > 0
14191: THEN
14192: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14193: ELSE
14194: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14195: END IF;
14196:
14190: ELSIF l_num_warnings > 0
14191: THEN
14192: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14193: ELSE
14194: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14195: END IF;
14196:
14197: IF l_debug_on THEN
14198: WSH_DEBUG_SV.pop(l_module_name);
14199: END IF;
14200:
14201: EXCEPTION
14202: WHEN FND_API.G_EXC_ERROR THEN
14203: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14204: --
14205: -- Debug Statements
14206: --
14207: IF l_debug_on THEN
14210: END IF;
14211: --
14212:
14213: WHEN WSH_NO_OPEN_CHILD_DELIVERIES THEN
14214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14215: FND_MESSAGE.SET_NAME('WSH','WSH_NO_OPEN_DELIVERIES');
14216: WSH_UTIL_CORE.Add_Message(x_return_status);
14217: --
14218: -- Debug Statements
14212:
14213: WHEN WSH_NO_OPEN_CHILD_DELIVERIES THEN
14214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14215: FND_MESSAGE.SET_NAME('WSH','WSH_NO_OPEN_DELIVERIES');
14216: WSH_UTIL_CORE.Add_Message(x_return_status);
14217: --
14218: -- Debug Statements
14219: --
14220: IF l_debug_on THEN
14224: END IF;
14225: --
14226:
14227: WHEN WSH_INVALID_CHILD_DELIVERIES THEN
14228: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14229: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CHILD_DELIVERIES');
14230: WSH_UTIL_CORE.Add_Message(x_return_status);
14231: --
14232: -- Debug Statements
14226:
14227: WHEN WSH_INVALID_CHILD_DELIVERIES THEN
14228: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14229: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CHILD_DELIVERIES');
14230: WSH_UTIL_CORE.Add_Message(x_return_status);
14231: --
14232: -- Debug Statements
14233: --
14234: IF l_debug_on THEN
14237: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILD_DELIVERIES');
14238: END IF;
14239: --
14240: WHEN OTHERS THEN
14241: wsh_util_core.default_handler('wsh_new_delivery_actions.Unassign_Dels_from_Consol_Del',l_module_name);
14242: --
14243: IF c_check_parent_exists%ISOPEN THEN
14244: CLOSE c_check_parent_exists;
14245: END IF;
14263: END Unassign_Dels_from_Consol_Del;
14264:
14265:
14266: PROCEDURE Confirm_Consolidation_Delivery(
14267: p_consol_del_tab IN wsh_util_core.id_tab_type,
14268: x_return_status OUT NOCOPY VARCHAR2) IS
14269:
14270: cursor c_check_close_consol(p_del_id IN NUMBER) IS
14271: select d.delivery_id
14275: and l1.delivery_id = d.delivery_id
14276: and d.status_code = 'OP'
14277: and rownum = 1;
14278:
14279: l_u_consol_del_tab wsh_util_core.id_tab_type;
14280: l_co_consol_del_tab wsh_util_core.id_tab_type;
14281: l_number_of_lpn_tab wsh_util_core.id_tab_type;
14282: l_delivery_id NUMBER;
14283: l_lpn_number NUMBER;
14276: and d.status_code = 'OP'
14277: and rownum = 1;
14278:
14279: l_u_consol_del_tab wsh_util_core.id_tab_type;
14280: l_co_consol_del_tab wsh_util_core.id_tab_type;
14281: l_number_of_lpn_tab wsh_util_core.id_tab_type;
14282: l_delivery_id NUMBER;
14283: l_lpn_number NUMBER;
14284: i NUMBER;
14277: and rownum = 1;
14278:
14279: l_u_consol_del_tab wsh_util_core.id_tab_type;
14280: l_co_consol_del_tab wsh_util_core.id_tab_type;
14281: l_number_of_lpn_tab wsh_util_core.id_tab_type;
14282: l_delivery_id NUMBER;
14283: l_lpn_number NUMBER;
14284: i NUMBER;
14285: j NUMBER := 0;
14334: wsh_debug_sv.push (l_module_name);
14335: END IF;
14336:
14337: -- bug 4505105
14338: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14339: -- bug 4505105
14340:
14341: -- collect the unique parent deliveries.
14342: -- p_consol_del_tab may not be gapless and
14370: FETCH c_check_close_consol INTO l_delivery_id;
14371: IF c_check_close_consol%NOTFOUND THEN
14372: -- bug 4505105
14373: l_del_valid_flag := 'Y';
14374: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14375: -- Keeping it commented because as of today
14376: -- this procedure will be called only for WMS org.
14377: --l_org_id := NULL;
14378: --open l_get_consol_del_org_csr(p_consol_del_tab(i));
14391: IF l_debug_on THEN
14392: WSH_DEBUG_SV.log(l_module_name,'l_return_status after calling validate_del_containers', l_return_status);
14393: END IF;
14394:
14395: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
14396: RAISE FND_API.G_EXC_ERROR;
14397: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
14398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14399: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
14393: END IF;
14394:
14395: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
14396: RAISE FND_API.G_EXC_ERROR;
14397: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
14398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14399: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
14400: l_num_warnings := l_num_warnings + 1;
14401: END IF;
14395: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
14396: RAISE FND_API.G_EXC_ERROR;
14397: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
14398: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14399: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
14400: l_num_warnings := l_num_warnings + 1;
14401: END IF;
14402: --}
14403: --END IF;
14482:
14483: END LOOP;
14484: EXCEPTION
14485: WHEN OTHERS THEN
14486: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14487: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
14488: FND_MESSAGE.Set_Token('ENTITY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_co_consol_del_tab(l_lock_index)));
14489: WSH_UTIL_CORE.Add_Message(x_return_status);
14490: --
14485: WHEN OTHERS THEN
14486: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14487: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
14488: FND_MESSAGE.Set_Token('ENTITY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_co_consol_del_tab(l_lock_index)));
14489: WSH_UTIL_CORE.Add_Message(x_return_status);
14490: --
14491: -- Debug Statements
14492: --
14493: IF l_debug_on THEN
14508: WHERE delivery_id = l_co_consol_del_tab(m);
14509: END IF;
14510:
14511: -- bug 4505105
14512: IF (l_num_warnings > 0 and x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
14513: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14514: ELSE
14515: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14516: END IF;
14509: END IF;
14510:
14511: -- bug 4505105
14512: IF (l_num_warnings > 0 and x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
14513: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14514: ELSE
14515: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14516: END IF;
14517: -- bug 4505105
14511: -- bug 4505105
14512: IF (l_num_warnings > 0 and x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
14513: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14514: ELSE
14515: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14516: END IF;
14517: -- bug 4505105
14518:
14519: EXCEPTION
14518:
14519: EXCEPTION
14520: -- bug 4505105
14521: WHEN FND_API.G_EXC_ERROR THEN
14522: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14523: --
14524: IF l_debug_on THEN
14525: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14526: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14527: END IF;
14528: --
14529: -- bug 4505105
14530: WHEN OTHERS THEN
14531: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14532: wsh_util_core.default_handler('wsh_new_delivery_actions.Confirm_Consolidation_Delivery',l_module_name);
14533: --
14534: IF l_debug_on THEN
14535: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14528: --
14529: -- bug 4505105
14530: WHEN OTHERS THEN
14531: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14532: wsh_util_core.default_handler('wsh_new_delivery_actions.Confirm_Consolidation_Delivery',l_module_name);
14533: --
14534: IF l_debug_on THEN
14535: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14536: END IF;
14537:
14538: END Confirm_Consolidation_Delivery;
14539:
14540:
14541: PROCEDURE Create_Deconsol_Trips(p_deliveries_tab IN wsh_util_core.id_tab_type,
14542: x_return_status OUT NOCOPY VARCHAR2) IS
14543: CURSOR c_del_info(p_delivery_id IN NUMBER) IS
14544: SELECT parent.ultimate_dropoff_location_id pu_location,
14545: stop.planned_departure_date pu_date,
14573: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Create_Deconsol_Trips';
14574: l_debug_on BOOLEAN;
14575:
14576:
14577: l_del_tab wsh_util_core.id_tab_type;
14578: l_trip_tab wsh_util_core.id_tab_type;
14579:
14580:
14581: l_trip_in_rec WSH_TRIPS_GRP.tripInRecType;
14574: l_debug_on BOOLEAN;
14575:
14576:
14577: l_del_tab wsh_util_core.id_tab_type;
14578: l_trip_tab wsh_util_core.id_tab_type;
14579:
14580:
14581: l_trip_in_rec WSH_TRIPS_GRP.tripInRecType;
14582: l_init_msg_list VARCHAR2(100);
14606: IF l_debug_on THEN
14607: wsh_debug_sv.push (l_module_name);
14608: END IF;
14609:
14610: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14611:
14612: i := p_deliveries_tab.FIRST;
14613:
14614: WHILE i is NOT NULL LOOP
14627: p_del_rows => l_del_tab,
14628: p_trip_id => trip.trip_id,
14629: x_return_status => l_return_status);
14630:
14631: WSH_UTIL_CORE.Api_Post_Call
14632: (
14633: p_return_status => l_return_status,
14634: x_num_warnings => l_num_warnings,
14635: x_num_errors => l_num_errors
14666: p_trip_info_tab => l_trip_info_tab,
14667: p_in_rec => l_trip_in_rec,
14668: x_out_tab => l_trip_out_rec_tab);
14669:
14670: wsh_util_core.api_post_call
14671: (
14672: p_return_status => l_return_status,
14673: x_num_warnings => l_num_warnings,
14674: x_num_errors => l_num_errors
14698: p_dropoff_arr_date => l_do_date,
14699: p_dropoff_dep_date => l_do_date,
14700: x_return_status => l_return_status);
14701:
14702: wsh_util_core.api_post_call
14703: (
14704: p_return_status => l_return_status,
14705: x_num_warnings => l_num_warnings,
14706: x_num_errors => l_num_errors
14712:
14713:
14714: IF l_num_errors > 0
14715: THEN
14716: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14717: ELSIF l_num_warnings > 0
14718: THEN
14719: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14720: ELSE
14715: THEN
14716: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14717: ELSIF l_num_warnings > 0
14718: THEN
14719: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14720: ELSE
14721: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14722: END IF;
14723:
14717: ELSIF l_num_warnings > 0
14718: THEN
14719: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14720: ELSE
14721: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14722: END IF;
14723:
14724: IF l_debug_on THEN
14725: WSH_DEBUG_SV.pop(l_module_name);
14726: END IF;
14727:
14728: EXCEPTION
14729: WHEN FND_API.G_EXC_ERROR THEN
14730: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14731: --
14732: IF l_debug_on THEN
14733: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14735: END IF;
14736: --
14737: WHEN OTHERS THEN
14738: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14739: wsh_util_core.default_handler('wsh_new_delivery_actions.Confirm_Consolidation_Delivery',l_module_name);
14740: --
14741: IF l_debug_on THEN
14742: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14735: END IF;
14736: --
14737: WHEN OTHERS THEN
14738: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14739: wsh_util_core.default_handler('wsh_new_delivery_actions.Confirm_Consolidation_Delivery',l_module_name);
14740: --
14741: IF l_debug_on THEN
14742: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14743: END IF;
14805: l_return_value := 'Y';
14806: END IF;
14807: CLOSE c_delivery_detail_count;
14808: ELSE
14809: l_return_value := WSH_UTIL_CORE.G_RET_STS_ERROR;
14810: END IF;
14811:
14812: IF l_debug_on THEN
14813: wsh_debug_sv.log(l_module_name, 'RETURN VALUE', l_return_value);
14818: RETURN l_return_value;
14819: EXCEPTION
14820:
14821: WHEN OTHERS THEN
14822: wsh_util_core.default_handler('wsh_new_delivery_actions.is_delivery_empty',l_module_name);
14823: --
14824: IF (c_delivery_detail_count%ISOPEN) THEN
14825: CLOSE c_delivery_detail_count;
14826: END IF;
14823: --
14824: IF (c_delivery_detail_count%ISOPEN) THEN
14825: CLOSE c_delivery_detail_count;
14826: END IF;
14827: l_return_value := WSH_UTIL_CORE.G_RET_STS_ERROR;
14828:
14829: IF l_debug_on THEN
14830: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14831: wsh_debug_sv.LOG(l_module_name, 'RETURN VALUE', l_return_value);