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_ship_method_code_vals IN ship_method_type,
2173: x_autointransit_flag OUT NOCOPY VARCHAR2,
2174: x_autoclose_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_ship_method_code_vals IN ship_method_type,
2173: x_autointransit_flag OUT NOCOPY VARCHAR2,
2174: x_autoclose_flag OUT NOCOPY VARCHAR2,
2175: x_report_set_id OUT NOCOPY NUMBER, -- always NULL
2276: WSH_DEBUG_SV.logmsg(l_module_name,'Org id Count'||p_org_ids.count);
2277: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Method Count'||p_ship_method_code_vals.count);
2278: END IF;
2279: --
2280: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2281:
2282: l_all_orgids_match := TRUE;
2283:
2284: IF (p_del_rows.count = 0) THEN
2475: --
2476:
2477: EXCEPTION
2478: WHEN others THEN
2479: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Get_Delivery_Defaults');
2480: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2481: --
2482: IF l_debug_on THEN
2483: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2476:
2477: EXCEPTION
2478: WHEN others THEN
2479: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Get_Delivery_Defaults');
2480: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2481: --
2482: IF l_debug_on THEN
2483: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2484: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2505: -- on each delivery and confirms each delivery
2506: --
2507:
2508: PROCEDURE Confirm_Delivery
2509: (p_del_rows IN wsh_util_core.id_tab_type,
2510: p_action_flag IN VARCHAR2,
2511: p_intransit_flag IN VARCHAR2,
2512: p_close_flag IN VARCHAR2,
2513: p_stage_del_flag IN VARCHAR2,
2715: l_freight_code VARCHAR2(30);
2716: l_delivery_detail_id NUMBER;
2717: l_dummy_detail_id NUMBER;
2718: l_detail_num NUMBER;
2719: l_initial_pickup_date wsh_util_core.Date_tab_type;
2720: l_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2721:
2722: u_initial_pickup_date wsh_util_core.Date_tab_type; -- Bulk update variable
2723: u_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2716: l_delivery_detail_id NUMBER;
2717: l_dummy_detail_id NUMBER;
2718: l_detail_num NUMBER;
2719: l_initial_pickup_date wsh_util_core.Date_tab_type;
2720: l_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2721:
2722: u_initial_pickup_date wsh_util_core.Date_tab_type; -- Bulk update variable
2723: u_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2724:
2718: l_detail_num NUMBER;
2719: l_initial_pickup_date wsh_util_core.Date_tab_type;
2720: l_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2721:
2722: u_initial_pickup_date wsh_util_core.Date_tab_type; -- Bulk update variable
2723: u_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2724:
2725: l_organization_id NUMBER ;
2726: l_num_warn NUMBER :=0;
2719: l_initial_pickup_date wsh_util_core.Date_tab_type;
2720: l_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2721:
2722: u_initial_pickup_date wsh_util_core.Date_tab_type; -- Bulk update variable
2723: u_ultimate_dropoff_date wsh_util_core.Date_tab_type;
2724:
2725: l_organization_id NUMBER ;
2726: l_num_warn NUMBER :=0;
2727: l_num_error NUMBER :=0;
2729: l_inventory_item_id NUMBER ;
2730: l_subinventory VARCHAR2 (30);
2731: l_locator_id NUMBER ;
2732:
2733: l_unassign_dds wsh_util_core.id_tab_type; -- Renamed the variable l_unassign_line_ids for BO Consolidation
2734: /* H integration: 945 cancel staged wrudge */
2735: l_cancel_line_ids wsh_util_core.id_tab_type;
2736:
2737: l_assigned_counter NUMBER;
2731: l_locator_id NUMBER ;
2732:
2733: l_unassign_dds wsh_util_core.id_tab_type; -- Renamed the variable l_unassign_line_ids for BO Consolidation
2734: /* H integration: 945 cancel staged wrudge */
2735: l_cancel_line_ids wsh_util_core.id_tab_type;
2736:
2737: l_assigned_counter NUMBER;
2738: l_assigned_line_ids wsh_util_core.id_tab_type;
2739: l_assigned_cont_ids wsh_util_core.id_tab_type;
2734: /* H integration: 945 cancel staged wrudge */
2735: l_cancel_line_ids wsh_util_core.id_tab_type;
2736:
2737: l_assigned_counter NUMBER;
2738: l_assigned_line_ids wsh_util_core.id_tab_type;
2739: l_assigned_cont_ids wsh_util_core.id_tab_type;
2740: l_assigned_orgs wsh_util_core.id_tab_type;
2741: l_assigned_items wsh_util_core.id_tab_type;
2742: l_assigned_subs wsh_util_core.Column_Tab_Type;
2735: l_cancel_line_ids wsh_util_core.id_tab_type;
2736:
2737: l_assigned_counter NUMBER;
2738: l_assigned_line_ids wsh_util_core.id_tab_type;
2739: l_assigned_cont_ids wsh_util_core.id_tab_type;
2740: l_assigned_orgs wsh_util_core.id_tab_type;
2741: l_assigned_items wsh_util_core.id_tab_type;
2742: l_assigned_subs wsh_util_core.Column_Tab_Type;
2743: l_assigned_locs wsh_util_core.id_Tab_Type;
2736:
2737: l_assigned_counter NUMBER;
2738: l_assigned_line_ids wsh_util_core.id_tab_type;
2739: l_assigned_cont_ids wsh_util_core.id_tab_type;
2740: l_assigned_orgs wsh_util_core.id_tab_type;
2741: l_assigned_items wsh_util_core.id_tab_type;
2742: l_assigned_subs wsh_util_core.Column_Tab_Type;
2743: l_assigned_locs wsh_util_core.id_Tab_Type;
2744:
2737: l_assigned_counter NUMBER;
2738: l_assigned_line_ids wsh_util_core.id_tab_type;
2739: l_assigned_cont_ids wsh_util_core.id_tab_type;
2740: l_assigned_orgs wsh_util_core.id_tab_type;
2741: l_assigned_items wsh_util_core.id_tab_type;
2742: l_assigned_subs wsh_util_core.Column_Tab_Type;
2743: l_assigned_locs wsh_util_core.id_Tab_Type;
2744:
2745: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2738: l_assigned_line_ids wsh_util_core.id_tab_type;
2739: l_assigned_cont_ids wsh_util_core.id_tab_type;
2740: l_assigned_orgs wsh_util_core.id_tab_type;
2741: l_assigned_items wsh_util_core.id_tab_type;
2742: l_assigned_subs wsh_util_core.Column_Tab_Type;
2743: l_assigned_locs wsh_util_core.id_Tab_Type;
2744:
2745: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2746: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2739: l_assigned_cont_ids wsh_util_core.id_tab_type;
2740: l_assigned_orgs wsh_util_core.id_tab_type;
2741: l_assigned_items wsh_util_core.id_tab_type;
2742: l_assigned_subs wsh_util_core.Column_Tab_Type;
2743: l_assigned_locs wsh_util_core.id_Tab_Type;
2744:
2745: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2746: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2747: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2741: l_assigned_items wsh_util_core.id_tab_type;
2742: l_assigned_subs wsh_util_core.Column_Tab_Type;
2743: l_assigned_locs wsh_util_core.id_Tab_Type;
2744:
2745: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2746: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2747: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2748: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2749:
2742: l_assigned_subs wsh_util_core.Column_Tab_Type;
2743: l_assigned_locs wsh_util_core.id_Tab_Type;
2744:
2745: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2746: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2747: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2748: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2749:
2750: l_dd_org_ids wsh_util_core.id_tab_type; -- list of details org ids
2743: l_assigned_locs wsh_util_core.id_Tab_Type;
2744:
2745: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2746: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2747: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2748: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2749:
2750: l_dd_org_ids wsh_util_core.id_tab_type; -- list of details org ids
2751: l_item_ids wsh_util_core.id_tab_type; -- list of details inventory_item_ids
2744:
2745: l_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2746: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2747: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2748: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2749:
2750: l_dd_org_ids wsh_util_core.id_tab_type; -- list of details org ids
2751: l_item_ids wsh_util_core.id_tab_type; -- list of details inventory_item_ids
2752:
2746: l_cc_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2747: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2748: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2749:
2750: l_dd_org_ids wsh_util_core.id_tab_type; -- list of details org ids
2751: l_item_ids wsh_util_core.id_tab_type; -- list of details inventory_item_ids
2752:
2753: -- for non-transactable items
2754: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
2747: l_out_bo_rows wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to Backorder
2748: l_out_cc_rows wsh_util_core.id_tab_type; -- list of new details that got backordered
2749:
2750: l_dd_org_ids wsh_util_core.id_tab_type; -- list of details org ids
2751: l_item_ids wsh_util_core.id_tab_type; -- list of details inventory_item_ids
2752:
2753: -- for non-transactable items
2754: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
2755: dft_subinv VARCHAR2(30);
2765:
2766: l_ship_from_location NUMBER;
2767: l_ship_to_location NUMBER;
2768:
2769: l_dummy_rows wsh_util_core.id_tab_type;
2770: l_dummy_rows1 wsh_util_core.id_tab_type;
2771: l_dummy_doc_set wsh_document_sets.document_set_tab_type;
2772:
2773: l_trip_id NUMBER;
2766: l_ship_from_location NUMBER;
2767: l_ship_to_location NUMBER;
2768:
2769: l_dummy_rows wsh_util_core.id_tab_type;
2770: l_dummy_rows1 wsh_util_core.id_tab_type;
2771: l_dummy_doc_set wsh_document_sets.document_set_tab_type;
2772:
2773: l_trip_id NUMBER;
2774: l_trip_name VARCHAR2(30);
2778: l_shipped_quantity NUMBER;
2779: l_cycle_quantity NUMBER;
2780: l_stage_quantity NUMBER;
2781: l_del_status_code VARCHAR2(2);
2782: l_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2783: l_number_of_lpn wsh_util_core.id_tab_type;
2784: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2785: u_number_of_lpn wsh_util_core.id_tab_type;
2786: /* H integration: 945 send document wrudge */
2779: l_cycle_quantity NUMBER;
2780: l_stage_quantity NUMBER;
2781: l_del_status_code VARCHAR2(2);
2782: l_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2783: l_number_of_lpn wsh_util_core.id_tab_type;
2784: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2785: u_number_of_lpn wsh_util_core.id_tab_type;
2786: /* H integration: 945 send document wrudge */
2787: u_organization_id wsh_util_core.id_tab_type;
2780: l_stage_quantity NUMBER;
2781: l_del_status_code VARCHAR2(2);
2782: l_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2783: l_number_of_lpn wsh_util_core.id_tab_type;
2784: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2785: u_number_of_lpn wsh_util_core.id_tab_type;
2786: /* H integration: 945 send document wrudge */
2787: u_organization_id wsh_util_core.id_tab_type;
2788: u_wsh_lines_exist wsh_util_core.id_tab_type;
2781: l_del_status_code VARCHAR2(2);
2782: l_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2783: l_number_of_lpn wsh_util_core.id_tab_type;
2784: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2785: u_number_of_lpn wsh_util_core.id_tab_type;
2786: /* H integration: 945 send document wrudge */
2787: u_organization_id wsh_util_core.id_tab_type;
2788: u_wsh_lines_exist wsh_util_core.id_tab_type;
2789: l_wsh_lines_exist NUMBER;
2783: l_number_of_lpn wsh_util_core.id_tab_type;
2784: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2785: u_number_of_lpn wsh_util_core.id_tab_type;
2786: /* H integration: 945 send document wrudge */
2787: u_organization_id wsh_util_core.id_tab_type;
2788: u_wsh_lines_exist wsh_util_core.id_tab_type;
2789: l_wsh_lines_exist NUMBER;
2790:
2791: -- hverddin : Begin of OPM Changes Added Dual Quantities 31-OCT-00
2784: u_status_code WSH_UTIL_CORE.Column_Tab_Type ;
2785: u_number_of_lpn wsh_util_core.id_tab_type;
2786: /* H integration: 945 send document wrudge */
2787: u_organization_id wsh_util_core.id_tab_type;
2788: u_wsh_lines_exist wsh_util_core.id_tab_type;
2789: l_wsh_lines_exist NUMBER;
2790:
2791: -- hverddin : Begin of OPM Changes Added Dual Quantities 31-OCT-00
2792:
2805: l_picked_quantity2 NUMBER;
2806: l_unshipped_pick_quantity NUMBER;
2807: l_unshipped_pick_quantity2 NUMBER;
2808:
2809: l_shp_dd_shipped_qtys wsh_util_core.id_tab_type;
2810: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2811: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2812: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2813: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2806: l_unshipped_pick_quantity NUMBER;
2807: l_unshipped_pick_quantity2 NUMBER;
2808:
2809: l_shp_dd_shipped_qtys wsh_util_core.id_tab_type;
2810: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2811: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2812: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2813: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2814: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2807: l_unshipped_pick_quantity2 NUMBER;
2808:
2809: l_shp_dd_shipped_qtys wsh_util_core.id_tab_type;
2810: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2811: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2812: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2813: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2814: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2815: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2808:
2809: l_shp_dd_shipped_qtys wsh_util_core.id_tab_type;
2810: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2811: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2812: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2813: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2814: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2815: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2816: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2809: l_shp_dd_shipped_qtys wsh_util_core.id_tab_type;
2810: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2811: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2812: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2813: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2814: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2815: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2816: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2817: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2810: l_shp_dd_shipped_qtys2 wsh_util_core.id_tab_type;
2811: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2812: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2813: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2814: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2815: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2816: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2817: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2818: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2811: l_shp_dd_cc_qtys wsh_util_core.id_tab_type;
2812: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2813: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2814: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2815: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2816: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2817: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2818: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2819: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2812: l_shp_dd_cc_qtys2 wsh_util_core.id_tab_type;
2813: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2814: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2815: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2816: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2817: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2818: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2819: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2820: /* H integration: 945 check detail wrudge */
2813: l_shp_dd_req_qtys wsh_util_core.id_tab_type;
2814: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2815: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2816: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2817: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2818: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2819: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2820: /* H integration: 945 check detail wrudge */
2821: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2814: l_shp_dd_ids wsh_util_core.id_tab_type; -- Bug 1672188 : list of details to to Ship
2815: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2816: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2817: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2818: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2819: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2820: /* H integration: 945 check detail wrudge */
2821: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2822:
2815: l_shp_dd_items wsh_util_core.id_tab_type ; -- : list of items in details to Ship
2816: l_shp_dd_orgs wsh_util_core.id_tab_type; -- : list of org of details to Ship
2817: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2818: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2819: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2820: /* H integration: 945 check detail wrudge */
2821: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2822:
2823: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2817: l_shp_dd_subs wsh_util_core.column_tab_type; -- : list of subinventories of details to Ship
2818: l_shp_dd_locs wsh_util_core.id_tab_type; -- : list of locators of details to Ship
2819: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2820: /* H integration: 945 check detail wrudge */
2821: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2822:
2823: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2824: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2825: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2819: l_shp_dd_cont_ids wsh_util_core.id_tab_type; -- : list of containers of details to Ship
2820: /* H integration: 945 check detail wrudge */
2821: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2822:
2823: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2824: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2825: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2826: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2827: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2820: /* H integration: 945 check detail wrudge */
2821: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2822:
2823: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2824: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2825: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2826: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2827: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2828: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2821: l_shp_dd_source wsh_util_core.column_tab_type; -- : list of source_code of details to ship
2822:
2823: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2824: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2825: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2826: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2827: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2828: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2829: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2822:
2823: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2824: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2825: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2826: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2827: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2828: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2829: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2830: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2823: l_assigned_req_qtys wsh_util_core.id_tab_type; -- list of details req qty
2824: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2825: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2826: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2827: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2828: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2829: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2830: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2831: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2824: l_assigned_shp_qtys wsh_util_core.id_tab_type ;
2825: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2826: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2827: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2828: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2829: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2830: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2831: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2832: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2825: l_assigned_cc_qtys wsh_util_core.id_tab_type ;
2826: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2827: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2828: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2829: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2830: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2831: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2832: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2833: /* H integration: 945 assigned detail wrudge */
2826: l_assigned_req_qtys2 wsh_util_core.id_tab_type; -- list of details req qty2
2827: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2828: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2829: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2830: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2831: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2832: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2833: /* H integration: 945 assigned detail wrudge */
2834: l_assigned_source wsh_util_core.column_tab_type;
2827: l_assigned_shp_qtys2 wsh_util_core.id_tab_type ;
2828: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2829: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2830: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2831: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2832: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2833: /* H integration: 945 assigned detail wrudge */
2834: l_assigned_source wsh_util_core.column_tab_type;
2835:
2828: l_assigned_cc_qtys2 wsh_util_core.id_tab_type ;
2829: l_assigned_pick_qtys wsh_util_core.id_tab_type; -- overpicking NVL(picked, requested)
2830: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2831: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2832: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2833: /* H integration: 945 assigned detail wrudge */
2834: l_assigned_source wsh_util_core.column_tab_type;
2835:
2836: l_stop_rows wsh_util_core.id_tab_type;
2830: l_assigned_pick_qtys2 wsh_util_core.id_tab_type;
2831: l_assigned_overpick_qtys wsh_util_core.id_tab_type; -- for backordering or cycle-counting overpicked quantities
2832: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2833: /* H integration: 945 assigned detail wrudge */
2834: l_assigned_source wsh_util_core.column_tab_type;
2835:
2836: l_stop_rows wsh_util_core.id_tab_type;
2837: u_stop_rows wsh_util_core.id_tab_type; -- bug 2064810
2838: l_del_rows wsh_util_core.id_tab_type;
2832: l_assigned_overpick_qtys2 wsh_util_core.id_tab_type;
2833: /* H integration: 945 assigned detail wrudge */
2834: l_assigned_source wsh_util_core.column_tab_type;
2835:
2836: l_stop_rows wsh_util_core.id_tab_type;
2837: u_stop_rows wsh_util_core.id_tab_type; -- bug 2064810
2838: l_del_rows wsh_util_core.id_tab_type;
2839: u_del_rows wsh_util_core.id_tab_type;
2840:
2833: /* H integration: 945 assigned detail wrudge */
2834: l_assigned_source wsh_util_core.column_tab_type;
2835:
2836: l_stop_rows wsh_util_core.id_tab_type;
2837: u_stop_rows wsh_util_core.id_tab_type; -- bug 2064810
2838: l_del_rows wsh_util_core.id_tab_type;
2839: u_del_rows wsh_util_core.id_tab_type;
2840:
2841: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2834: l_assigned_source wsh_util_core.column_tab_type;
2835:
2836: l_stop_rows wsh_util_core.id_tab_type;
2837: u_stop_rows wsh_util_core.id_tab_type; -- bug 2064810
2838: l_del_rows wsh_util_core.id_tab_type;
2839: u_del_rows wsh_util_core.id_tab_type;
2840:
2841: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2842: l_enforce_packing_flag VARCHAR2(1) := 'N';
2835:
2836: l_stop_rows wsh_util_core.id_tab_type;
2837: u_stop_rows wsh_util_core.id_tab_type; -- bug 2064810
2838: l_del_rows wsh_util_core.id_tab_type;
2839: u_del_rows wsh_util_core.id_tab_type;
2840:
2841: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2842: l_enforce_packing_flag VARCHAR2(1) := 'N';
2843:
2840:
2841: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2842: l_enforce_packing_flag VARCHAR2(1) := 'N';
2843:
2844: l_cc_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2845: l_cc_req_qtys wsh_util_core.id_tab_type ;
2846: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2847: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2848: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2841: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
2842: l_enforce_packing_flag VARCHAR2(1) := 'N';
2843:
2844: l_cc_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2845: l_cc_req_qtys wsh_util_core.id_tab_type ;
2846: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2847: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2848: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2849:
2842: l_enforce_packing_flag VARCHAR2(1) := 'N';
2843:
2844: l_cc_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2845: l_cc_req_qtys wsh_util_core.id_tab_type ;
2846: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2847: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2848: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2849:
2850: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2843:
2844: l_cc_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2845: l_cc_req_qtys wsh_util_core.id_tab_type ;
2846: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2847: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2848: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2849:
2850: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2851: l_bo_mode VARCHAR2 (15) ;
2844: l_cc_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2845: l_cc_req_qtys wsh_util_core.id_tab_type ;
2846: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2847: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2848: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2849:
2850: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2851: l_bo_mode VARCHAR2 (15) ;
2852: l_bo_req_qtys wsh_util_core.id_tab_type ;
2846: l_cc_overpick_qtys wsh_util_core.id_tab_type ;
2847: l_cc_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2848: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2849:
2850: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2851: l_bo_mode VARCHAR2 (15) ;
2852: l_bo_req_qtys wsh_util_core.id_tab_type ;
2853: l_bo_overpick_qtys wsh_util_core.id_tab_type ;
2854: l_bo_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2848: l_cc_overpick_qtys2 wsh_util_core.id_tab_type ;
2849:
2850: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2851: l_bo_mode VARCHAR2 (15) ;
2852: l_bo_req_qtys wsh_util_core.id_tab_type ;
2853: l_bo_overpick_qtys wsh_util_core.id_tab_type ;
2854: l_bo_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2855: l_bo_overpick_qtys2 wsh_util_core.id_tab_type ;
2856:
2849:
2850: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2851: l_bo_mode VARCHAR2 (15) ;
2852: l_bo_req_qtys wsh_util_core.id_tab_type ;
2853: l_bo_overpick_qtys wsh_util_core.id_tab_type ;
2854: l_bo_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2855: l_bo_overpick_qtys2 wsh_util_core.id_tab_type ;
2856:
2857: l_staged_dd_id NUMBER ;
2850: l_bo_qtys wsh_util_core.id_tab_type; -- list of details BO qty
2851: l_bo_mode VARCHAR2 (15) ;
2852: l_bo_req_qtys wsh_util_core.id_tab_type ;
2853: l_bo_overpick_qtys wsh_util_core.id_tab_type ;
2854: l_bo_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2855: l_bo_overpick_qtys2 wsh_util_core.id_tab_type ;
2856:
2857: l_staged_dd_id NUMBER ;
2858: l_new_detail_id NUMBER ;
2851: l_bo_mode VARCHAR2 (15) ;
2852: l_bo_req_qtys wsh_util_core.id_tab_type ;
2853: l_bo_overpick_qtys wsh_util_core.id_tab_type ;
2854: l_bo_qtys2 wsh_util_core.id_tab_type; -- list of details BO qty2
2855: l_bo_overpick_qtys2 wsh_util_core.id_tab_type ;
2856:
2857: l_staged_dd_id NUMBER ;
2858: l_new_detail_id NUMBER ;
2859: l_stage_rows wsh_util_core.id_tab_type ;
2855: l_bo_overpick_qtys2 wsh_util_core.id_tab_type ;
2856:
2857: l_staged_dd_id NUMBER ;
2858: l_new_detail_id NUMBER ;
2859: l_stage_rows wsh_util_core.id_tab_type ;
2860:
2861: l_backorder_all_flag BOOLEAN := TRUE ;
2862: l_stage_all_flag BOOLEAN ;
2863: l_inv_cntrl_flag BOOLEAN ;
2861: l_backorder_all_flag BOOLEAN := TRUE ;
2862: l_stage_all_flag BOOLEAN ;
2863: l_inv_cntrl_flag BOOLEAN ;
2864: l_inv_material_flag BOOLEAN;
2865: l_del_tmp_rows wsh_util_core.id_tab_type;
2866: l_document_set_name VARCHAR2 ( 50 );
2867:
2868: l_user_name VARCHAR2(100);
2869: l_user_id NUMBER ;
2900: -- HW OPM added qty2
2901: l_max_quantity2 NUMBER ;
2902: l_msg_data VARCHAR2(2000);
2903: l_msg_count NUMBER;
2904: l_wms_delivery_id wsh_util_core.id_tab_type ;
2905: --2121399
2906: TYPE Flag_Tab_Type IS TABLE OF BOOLEAN INDEX BY BINARY_INTEGER;
2907: l_unassign_all_flag_tab Flag_Tab_Type ;
2908: --2121399
2920: l_wms_enabled_flag BOOLEAN;
2921: -- bug 2343058
2922: l_check_credit_init_flag BOOLEAN;
2923:
2924: x_unassigned_cont wsh_util_core.id_tab_type;
2925: l_msg_rec_count wsh_util_core.MsgCountType;
2926: l_error_exists BOOLEAN;
2927: l_msg_table WSH_INTEGRATION.MSG_TABLE ;
2928: l_count NUMBER := 0;
2921: -- bug 2343058
2922: l_check_credit_init_flag BOOLEAN;
2923:
2924: x_unassigned_cont wsh_util_core.id_tab_type;
2925: l_msg_rec_count wsh_util_core.MsgCountType;
2926: l_error_exists BOOLEAN;
2927: l_msg_table WSH_INTEGRATION.MSG_TABLE ;
2928: l_count NUMBER := 0;
2929: l_cont_name VARCHAR2(100);
2937: l_cc_group_info WSH_FTE_COMP_CONSTRAINT_PKG.cc_group_tab_type;
2938: l_cc_line_groups WSH_FTE_COMP_CONSTRAINT_PKG.line_group_tab_type;
2939:
2940: l_trip_info_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
2941: l_trip_id_tab_temp wsh_util_core.id_tab_type;
2942: l_cc_count_success NUMBER;
2943: b_cc_linefailed BOOLEAN;
2944: l_target_trip_id NUMBER;
2945: b_tripalreadychecked VARCHAR2(1);
2949: l_cc_del_attr_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2950: l_cc_det_attr_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
2951: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
2952: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
2953: l_cc_in_ids wsh_util_core.id_tab_type;
2954: l_cc_fail_ids wsh_util_core.id_tab_type;
2955: l_cc_carrier_id NUMBER;
2956: l_cc_mode VARCHAR2(30);
2957: G_HASH_TRIP wsh_util_core.id_tab_type;
2950: l_cc_det_attr_tab WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type;
2951: l_cc_trip_attr_tab WSH_TRIPS_PVT.Trip_Attr_Tbl_Type;
2952: l_cc_stop_attr_tab WSH_TRIP_STOPS_PVT.Stop_Attr_Tbl_Type;
2953: l_cc_in_ids wsh_util_core.id_tab_type;
2954: l_cc_fail_ids wsh_util_core.id_tab_type;
2955: l_cc_carrier_id NUMBER;
2956: l_cc_mode VARCHAR2(30);
2957: G_HASH_TRIP wsh_util_core.id_tab_type;
2958: --Compatibility Changes
2953: l_cc_in_ids wsh_util_core.id_tab_type;
2954: l_cc_fail_ids wsh_util_core.id_tab_type;
2955: l_cc_carrier_id NUMBER;
2956: l_cc_mode VARCHAR2(30);
2957: G_HASH_TRIP wsh_util_core.id_tab_type;
2958: --Compatibility Changes
2959:
2960: l_with_mc_trip_flag Flag_Tab_Type;
2961:
2961:
2962: -- Variables added for Consolidation of BO Delivery Details project
2963: --
2964: l_global_parameters WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
2965: l_assigned_source_lines wsh_util_core.id_Tab_Type;
2966: l_unassign_backordered_dds wsh_util_core.id_Tab_Type; --Stores the list of BackOrder/Cycle-Count delivery detail ids
2967: l_unassign_rel_status wsh_util_core.Column_Tab_Type;
2968: -- Stores the corresponding Released_status of the delivery details in l_unassign_dds
2969: l_unassign_source_lines wsh_util_core.id_Tab_Type;
2962: -- Variables added for Consolidation of BO Delivery Details project
2963: --
2964: l_global_parameters WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
2965: l_assigned_source_lines wsh_util_core.id_Tab_Type;
2966: l_unassign_backordered_dds wsh_util_core.id_Tab_Type; --Stores the list of BackOrder/Cycle-Count delivery detail ids
2967: l_unassign_rel_status wsh_util_core.Column_Tab_Type;
2968: -- Stores the corresponding Released_status of the delivery details in l_unassign_dds
2969: l_unassign_source_lines wsh_util_core.id_Tab_Type;
2970: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
2963: --
2964: l_global_parameters WSH_SHIPPING_PARAMS_PVT.Global_Parameters_Rec_Typ;
2965: l_assigned_source_lines wsh_util_core.id_Tab_Type;
2966: l_unassign_backordered_dds wsh_util_core.id_Tab_Type; --Stores the list of BackOrder/Cycle-Count delivery detail ids
2967: l_unassign_rel_status wsh_util_core.Column_Tab_Type;
2968: -- Stores the corresponding Released_status of the delivery details in l_unassign_dds
2969: l_unassign_source_lines wsh_util_core.id_Tab_Type;
2970: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
2971: l_bo_line_ids wsh_util_core.id_Tab_Type;
2965: l_assigned_source_lines wsh_util_core.id_Tab_Type;
2966: l_unassign_backordered_dds wsh_util_core.id_Tab_Type; --Stores the list of BackOrder/Cycle-Count delivery detail ids
2967: l_unassign_rel_status wsh_util_core.Column_Tab_Type;
2968: -- Stores the corresponding Released_status of the delivery details in l_unassign_dds
2969: l_unassign_source_lines wsh_util_core.id_Tab_Type;
2970: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
2971: l_bo_line_ids wsh_util_core.id_Tab_Type;
2972:
2973: l_bo_source_lines wsh_util_core.id_Tab_Type;
2967: l_unassign_rel_status wsh_util_core.Column_Tab_Type;
2968: -- Stores the corresponding Released_status of the delivery details in l_unassign_dds
2969: l_unassign_source_lines wsh_util_core.id_Tab_Type;
2970: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
2971: l_bo_line_ids wsh_util_core.id_Tab_Type;
2972:
2973: l_bo_source_lines wsh_util_core.id_Tab_Type;
2974: l_cc_source_lines wsh_util_core.id_Tab_Type;
2975: l_cons_flags wsh_util_core.Column_Tab_Type;
2969: l_unassign_source_lines wsh_util_core.id_Tab_Type;
2970: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
2971: l_bo_line_ids wsh_util_core.id_Tab_Type;
2972:
2973: l_bo_source_lines wsh_util_core.id_Tab_Type;
2974: l_cc_source_lines wsh_util_core.id_Tab_Type;
2975: l_cons_flags wsh_util_core.Column_Tab_Type;
2976: l_source_line_id NUMBER;
2977: l_idx NUMBER;
2970: -- Stores the Source line ids of the delivery details that are going to be unassigned from the Delivery
2971: l_bo_line_ids wsh_util_core.id_Tab_Type;
2972:
2973: l_bo_source_lines wsh_util_core.id_Tab_Type;
2974: l_cc_source_lines wsh_util_core.id_Tab_Type;
2975: l_cons_flags wsh_util_core.Column_Tab_Type;
2976: l_source_line_id NUMBER;
2977: l_idx NUMBER;
2978: l_cmp_idx NUMBER;
2971: l_bo_line_ids wsh_util_core.id_Tab_Type;
2972:
2973: l_bo_source_lines wsh_util_core.id_Tab_Type;
2974: l_cc_source_lines wsh_util_core.id_Tab_Type;
2975: l_cons_flags wsh_util_core.Column_Tab_Type;
2976: l_source_line_id NUMBER;
2977: l_idx NUMBER;
2978: l_cmp_idx NUMBER;
2979: j NUMBER;
2986: l_exceptions_tab wsh_xc_util.XC_TAB_TYPE;
2987: l_exp_logged BOOLEAN := FALSE;
2988:
2989: -- Pack J, table indexed by delivery_id to store whether ITM screening is required.
2990: l_itm_exc_flag wsh_util_core.column_Tab_Type;
2991: l_itm_stops_tab wsh_util_core.column_Tab_Type;
2992: l_lines_in_delivery NUMBER;
2993: l_itm_exc_severity VARCHAR2(30);
2994:
2987: l_exp_logged BOOLEAN := FALSE;
2988:
2989: -- Pack J, table indexed by delivery_id to store whether ITM screening is required.
2990: l_itm_exc_flag wsh_util_core.column_Tab_Type;
2991: l_itm_stops_tab wsh_util_core.column_Tab_Type;
2992: l_lines_in_delivery NUMBER;
2993: l_itm_exc_severity VARCHAR2(30);
2994:
2995: -- Checks if the itm exception is enabled and its severity.
3042: l_stop_name_list VARCHAR2(10000);
3043: --
3044:
3045: --/== Workflow Changes
3046: l_scpod_wf_del_rows wsh_util_core.id_tab_type;
3047: l_ctr NUMBER;
3048: l_aname_text wf_engine.nametabtyp;
3049: l_avalue_text wf_engine.texttabtyp;
3050: l_aname_num wf_engine.nametabtyp;
3058: l_custom_severity varchar2(10);
3059: l_activity_code varchar2(200) := 'SHIP_CONFIRM_MESSAGE' ;
3060: l_validation_code varchar2(200) := 'MISSING_CONTROLS';
3061:
3062: l_mdc_cl_del_tab wsh_util_core.id_tab_type;
3063: l_mdc_co_del_tab wsh_util_core.id_tab_type;
3064: l_mdc_index_i NUMBER;
3065:
3066: -- LPN CONV rv
3059: l_activity_code varchar2(200) := 'SHIP_CONFIRM_MESSAGE' ;
3060: l_validation_code varchar2(200) := 'MISSING_CONTROLS';
3061:
3062: l_mdc_cl_del_tab wsh_util_core.id_tab_type;
3063: l_mdc_co_del_tab wsh_util_core.id_tab_type;
3064: l_mdc_index_i NUMBER;
3065:
3066: -- LPN CONV rv
3067: cursor l_delete_wms_empty_cnt_csr is
3072: and wdd.delivery_detail_id = wwst.delivery_detail_id
3073: and wdd.container_flag = 'Y'
3074: and wdd.lpn_id is not null;
3075:
3076: l_delete_cnt_id_tbl wsh_util_core.id_tab_type;
3077: -- LPN CONV rv
3078: -- bug 4505105
3079: l_del_valid_flag VARCHAR2(1);
3080: -- bug 4505105
3078: -- bug 4505105
3079: l_del_valid_flag VARCHAR2(1);
3080: -- bug 4505105
3081: --Bug 5255366
3082: l_consol_del_doc_set wsh_util_core.id_tab_type;
3083: l_content_del_flag BOOLEAN := TRUE;
3084:
3085: --OTM R12
3086: l_ignore_for_planning WSH_NEW_DELIVERIES.IGNORE_FOR_PLANNING%TYPE;
3128: END IF;
3129: --
3130: l_login_id := FND_GLOBAL.login_id;
3131: l_user_id := FND_GLOBAL.user_id ;
3132: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS ;
3133:
3134: --OTM R12
3135: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
3136:
3131: l_user_id := FND_GLOBAL.user_id ;
3132: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS ;
3133:
3134: --OTM R12
3135: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
3136:
3137: IF l_gc3_is_installed IS NULL THEN
3138: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
3139: END IF;
3134: --OTM R12
3135: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
3136:
3137: IF l_gc3_is_installed IS NULL THEN
3138: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
3139: END IF;
3140: --
3141:
3142: -- bug 2778035
3142: -- bug 2778035
3143: IF p_action_flag IS NULL
3144: OR p_action_flag NOT IN ('S', 'B', 'L', 'T', 'A', 'C', 'O') THEN
3145: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_SC_ACTION_FLAG');
3146: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
3147: RAISE FND_API.G_EXC_ERROR;
3148: END IF;
3149: -- bug 2778035
3150:
3167: -- End of fix for bug 3944151
3168:
3169: /* Bug 2761304 : The following call is now made inside the loop*/
3170:
3171: /* WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => TRUE,
3172: x_msg_rec_count => l_msg_rec_count,
3173: x_return_status => l_return_status);
3174: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3175: raise ship_confirm_error;
3170:
3171: /* WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => TRUE,
3172: x_msg_rec_count => l_msg_rec_count,
3173: x_return_status => l_return_status);
3174: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3175: raise ship_confirm_error;
3176: END IF;*/
3177:
3178: l_user_name := G_USER_NAME ;
3190: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit 2WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
3191: END IF;
3192: --
3193: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_parameters, l_return_status);
3194: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3195: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3196: raise ship_confirm_error;
3197: -- x_return_status := l_return_status;
3198: -- wsh_util_core.add_message(x_return_status);
3191: END IF;
3192: --
3193: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_parameters, l_return_status);
3194: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3195: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3196: raise ship_confirm_error;
3197: -- x_return_status := l_return_status;
3198: -- wsh_util_core.add_message(x_return_status);
3199: -- l_num_error := l_num_error + 1 ;
3194: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3195: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3196: raise ship_confirm_error;
3197: -- x_return_status := l_return_status;
3198: -- wsh_util_core.add_message(x_return_status);
3199: -- l_num_error := l_num_error + 1 ;
3200: -- goto loop_end;
3201: END IF;
3202:
3205:
3206: SAVEPOINT confirm_delivery_sp ;
3207:
3208: /* Bug 2761304*/
3209: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => TRUE,
3210: x_msg_rec_count => l_msg_rec_count,
3211: x_return_status => l_return_status);
3212:
3213: -- Bug 3913206
3213: -- Bug 3913206
3214: l_sc_pickup_date := NULL;
3215: l_sc_dropoff_date := NULL;
3216:
3217: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3218: raise ship_confirm_error;
3219: END IF;
3220:
3221: -- Bug 2713285, movedthe code outside the loop,since it is for same delivery
3252:
3253: FND_MESSAGE.SET_NAME('WSH','WSH_EMPTY_CONTAINER');
3254: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3255: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3256: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3257: l_num_warn := l_num_warn + 1;
3258: wsh_util_core.add_message(x_return_status,l_module_name);
3259: END LOOP;
3260: CLOSE get_empty_containers;
3254: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3255: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3256: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3257: l_num_warn := l_num_warn + 1;
3258: wsh_util_core.add_message(x_return_status,l_module_name);
3259: END LOOP;
3260: CLOSE get_empty_containers;
3261:
3262: l_bo_rows.delete ;
3427: IF l_debug_on THEN
3428: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_INTERFACE_EXT_GRP.OTM_PRE_SHIP_CONFIRM', l_return_status);
3429: END IF;
3430:
3431: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3432: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
3433: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3434:
3435: WSH_UTIL_CORE.add_message(l_return_status, l_module_name);
3431: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3432: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
3433: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3434:
3435: WSH_UTIL_CORE.add_message(l_return_status, l_module_name);
3436:
3437: l_num_error := l_num_error + 1 ;
3438: GOTO loop_end;
3439:
3436:
3437: l_num_error := l_num_error + 1 ;
3438: GOTO loop_end;
3439:
3440: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3441: l_num_warn := l_num_warn + 1 ;
3442: END IF;
3443:
3444: --we are checking that otm_plan_name is NOT NULL meaning
3461:
3462: FND_MESSAGE.SET_NAME('WSH', 'WSH_OTM_SHIP_CONFIRM_ERROR');
3463: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_delivery_name);
3464:
3465: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
3466: l_num_error := l_num_error + 1;
3467: GOTO loop_end;
3468: END IF;
3469: END IF;
3511: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3512: END IF;
3513: --
3514: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3515: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_SUCCESS);
3516: goto loop_end ;
3517: END IF;
3518:
3519: --b. If delivery is neither OPEN nor PACKED , then set WARNING and go to next one
3519: --b. If delivery is neither OPEN nor PACKED , then set WARNING and go to next one
3520:
3521: IF NOT ( (l_del_status_code IN ('OP', 'PA', 'SA'))) THEN -- sperera 940/945
3522: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_MULTI_ERROR');
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3524: l_num_warn := l_num_warn + 1;
3525: wsh_util_core.add_message(x_return_status);
3526: goto loop_end ;
3527: END IF;
3521: IF NOT ( (l_del_status_code IN ('OP', 'PA', 'SA'))) THEN -- sperera 940/945
3522: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_MULTI_ERROR');
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3524: l_num_warn := l_num_warn + 1;
3525: wsh_util_core.add_message(x_return_status);
3526: goto loop_end ;
3527: END IF;
3528:
3529: -- c. If ship Method is null , freight_code is null
3547: --
3548: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3549: FND_MESSAGE.SET_TOKEN('SHIP_METHOD',l_ship_method_code);
3550: FND_MESSAGE.SET_TOKEN('ORG_ID',l_organization_id);
3551: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING);
3552: x_return_Status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
3553: l_num_warn := l_num_warn + 1 ;
3554: ELSE
3555: CLOSE get_freight;
3548: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3549: FND_MESSAGE.SET_TOKEN('SHIP_METHOD',l_ship_method_code);
3550: FND_MESSAGE.SET_TOKEN('ORG_ID',l_organization_id);
3551: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING);
3552: x_return_Status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
3553: l_num_warn := l_num_warn + 1 ;
3554: ELSE
3555: CLOSE get_freight;
3556: END IF;
3571: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3572: END IF;
3573: --
3574: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3575: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3576: wsh_util_core.add_message(x_return_status);
3577:
3578: l_num_warn := l_num_warn + 1;
3579: END IF; --}
3572: END IF;
3573: --
3574: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3575: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3576: wsh_util_core.add_message(x_return_status);
3577:
3578: l_num_warn := l_num_warn + 1;
3579: END IF; --}
3580:
3600: (p_table_name => 'WSH_NEW_DELIVERIES',
3601: p_primary_id => p_del_rows(i),
3602: x_return_status => x_return_status);
3603:
3604: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3605: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
3606: --
3607: -- Debug Statements
3608: --
3610: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3611: END IF;
3612: --
3613: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3614: wsh_util_core.add_message(x_return_status);
3615: if ( x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) then
3616: l_num_error := l_num_error + 1 ;
3617: goto loop_end ;
3618: else
3611: END IF;
3612: --
3613: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3614: wsh_util_core.add_message(x_return_status);
3615: if ( x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) then
3616: l_num_error := l_num_error + 1 ;
3617: goto loop_end ;
3618: else
3619: l_num_warn := l_num_warn + 1 ;
3630: IF l_debug_on THEN
3631: WSH_DEBUG_SV.log(l_module_name,'x_return_status after calling validate_del_containers', x_return_status);
3632: END IF;
3633:
3634: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3635: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
3636: --
3637: -- Debug Statements
3638: --
3640: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3641: END IF;
3642: --
3643: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3644: wsh_util_core.add_message(x_return_status);
3645: END IF;
3646: --
3647: IF (nvl(l_del_valid_flag,'Y') = 'N') THEN
3648: l_num_error := l_num_error + 1 ;
3648: l_num_error := l_num_error + 1 ;
3649: goto loop_end ;
3650: END IF;
3651:
3652: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3653: l_num_error := l_num_error + 1 ;
3654: goto loop_end ;
3655: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3656: l_num_error := l_num_error + 1 ;
3651:
3652: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3653: l_num_error := l_num_error + 1 ;
3654: goto loop_end ;
3655: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3656: l_num_error := l_num_error + 1 ;
3657: goto loop_end ;
3658: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3659: l_num_warn := l_num_warn + 1 ;
3654: goto loop_end ;
3655: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3656: l_num_error := l_num_error + 1 ;
3657: goto loop_end ;
3658: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3659: l_num_warn := l_num_warn + 1 ;
3660: END IF;
3661: -- bug 4505105
3662:
3690: p_commit => 'F',
3691: p_init_msg_list => 'F',
3692: p_api_version => 1.0, -- Bugfix 3561335
3693: p_delivery_ids => l_wms_delivery_id);
3694: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3695: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
3696: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_PUB.DEL_WSTT_RECS_BY_DELIVERY_ID');
3697: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
3698: x_return_status := l_return_status;
3695: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
3696: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_PUB.DEL_WSTT_RECS_BY_DELIVERY_ID');
3697: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
3698: x_return_status := l_return_status;
3699: wsh_util_core.add_message(x_return_status);
3700: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3701: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3702: l_num_error := l_num_error + 1 ;
3703: goto confirm_error_no_msg;
3696: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_PUB.DEL_WSTT_RECS_BY_DELIVERY_ID');
3697: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
3698: x_return_status := l_return_status;
3699: wsh_util_core.add_message(x_return_status);
3700: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3701: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3702: l_num_error := l_num_error + 1 ;
3703: goto confirm_error_no_msg;
3704: ELSE
3697: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
3698: x_return_status := l_return_status;
3699: wsh_util_core.add_message(x_return_status);
3700: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3701: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3702: l_num_error := l_num_error + 1 ;
3703: goto confirm_error_no_msg;
3704: ELSE
3705: l_num_warn := l_num_warn + 1 ;
3724: p_consider_content => 'Y',
3725: x_exceptions_tab => l_exceptions_tab
3726: );
3727:
3728: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3729: x_return_status := l_return_status;
3730: wsh_util_core.add_message(x_return_status);
3731: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3732: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3726: );
3727:
3728: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3729: x_return_status := l_return_status;
3730: wsh_util_core.add_message(x_return_status);
3731: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3732: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3733: l_num_error := l_num_error + 1 ;
3734: goto confirm_error_no_msg;
3727:
3728: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3729: x_return_status := l_return_status;
3730: wsh_util_core.add_message(x_return_status);
3731: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3732: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3733: l_num_error := l_num_error + 1 ;
3734: goto confirm_error_no_msg;
3735: ELSE
3728: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
3729: x_return_status := l_return_status;
3730: wsh_util_core.add_message(x_return_status);
3731: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
3732: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3733: l_num_error := l_num_error + 1 ;
3734: goto confirm_error_no_msg;
3735: ELSE
3736: l_num_warn := l_num_warn + 1 ;
3750: END IF;
3751: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3752: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3753: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_error);
3754: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3755: wsh_util_core.add_message(x_return_status);
3756: l_num_error := l_num_error + 1 ;
3757: goto confirm_error_no_msg;
3758: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
3751: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3752: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3753: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_error);
3754: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3755: wsh_util_core.add_message(x_return_status);
3756: l_num_error := l_num_error + 1 ;
3757: goto confirm_error_no_msg;
3758: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
3759: IF l_exceptions_tab(exp_cnt).entity_name = 'DELIVERY' THEN
3760: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
3761: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3762: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3763: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_warn);
3764: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3765: wsh_util_core.add_message(x_return_status);
3766: l_num_warn := l_num_warn + 1 ;
3767: ELSIF NOT (l_exp_logged) THEN
3768: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
3761: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3762: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3763: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_warn);
3764: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3765: wsh_util_core.add_message(x_return_status);
3766: l_num_warn := l_num_warn + 1 ;
3767: ELSIF NOT (l_exp_logged) THEN
3768: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
3769: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3768: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
3769: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',l_entity_name);
3770: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3771: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_warn);
3772: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3773: l_exp_logged := TRUE;
3774: wsh_util_core.add_message(x_return_status);
3775: l_num_warn := l_num_warn + 1 ;
3776: END IF;
3770: FND_MESSAGE.SET_TOKEN('ENTITY_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3771: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR',l_exc_beh_warn);
3772: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3773: l_exp_logged := TRUE;
3774: wsh_util_core.add_message(x_return_status);
3775: l_num_warn := l_num_warn + 1 ;
3776: END IF;
3777: END IF;
3778: END LOOP;
3826: IF detail_info%NOTFOUND AND l_lines_in_delivery = 0 THEN
3827: CLOSE detail_info;
3828: FND_MESSAGE.SET_NAME('WSH','WSH_EMPTY_DELIVERY');
3829: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3830: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3831: wsh_util_core.add_message(x_return_status);
3832: goto confirm_error_no_msg;
3833: END IF;
3834:
3827: CLOSE detail_info;
3828: FND_MESSAGE.SET_NAME('WSH','WSH_EMPTY_DELIVERY');
3829: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
3830: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3831: wsh_util_core.add_message(x_return_status);
3832: goto confirm_error_no_msg;
3833: END IF;
3834:
3835: EXIT WHEN detail_info%NOTFOUND;
3868: --
3869: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3870: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_delivery_detail_id));
3871: IF l_severity_present IN ('H','M') THEN
3872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3873: wsh_util_core.add_message(x_return_status);
3874: goto confirm_error;
3875: ELSIF l_severity_present = 'L' THEN
3876: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3869: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3870: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_delivery_detail_id));
3871: IF l_severity_present IN ('H','M') THEN
3872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3873: wsh_util_core.add_message(x_return_status);
3874: goto confirm_error;
3875: ELSIF l_severity_present = 'L' THEN
3876: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3877: wsh_util_core.add_message(x_return_status);
3872: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3873: wsh_util_core.add_message(x_return_status);
3874: goto confirm_error;
3875: ELSIF l_severity_present = 'L' THEN
3876: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3877: wsh_util_core.add_message(x_return_status);
3878: l_num_warn := l_num_warn + 1 ;
3879: END IF;
3880: END IF;
3873: wsh_util_core.add_message(x_return_status);
3874: goto confirm_error;
3875: ELSIF l_severity_present = 'L' THEN
3876: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3877: wsh_util_core.add_message(x_return_status);
3878: l_num_warn := l_num_warn + 1 ;
3879: END IF;
3880: END IF;
3881:
3905: --
3906: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3907: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_container_id));
3908: IF l_severity_present IN ('H','M') THEN
3909: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3910: wsh_util_core.add_message(x_return_status);
3911: CLOSE Get_Containers;
3912: CLOSE detail_info;
3913: goto confirm_error;
3906: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3907: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_container_id));
3908: IF l_severity_present IN ('H','M') THEN
3909: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3910: wsh_util_core.add_message(x_return_status);
3911: CLOSE Get_Containers;
3912: CLOSE detail_info;
3913: goto confirm_error;
3914: ELSIF l_severity_present = 'L' THEN
3911: CLOSE Get_Containers;
3912: CLOSE detail_info;
3913: goto confirm_error;
3914: ELSIF l_severity_present = 'L' THEN
3915: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3916: wsh_util_core.add_message(x_return_status);
3917: l_num_warn := l_num_warn + 1 ;
3918: END IF;
3919: END IF;
3912: CLOSE detail_info;
3913: goto confirm_error;
3914: ELSIF l_severity_present = 'L' THEN
3915: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3916: wsh_util_core.add_message(x_return_status);
3917: l_num_warn := l_num_warn + 1 ;
3918: END IF;
3919: END IF;
3920:
3941:
3942: WSH_DEBUG_SV.logmsg(l_module_name,'Return status after calling Validate_DFF in DEACB is : '
3943: || x_return_status);
3944: END IF;
3945: IF ( x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) THEN
3946: --
3947: -- Debug Statements
3948: --
3949: IF l_debug_on THEN
3988: l_cycle_quantity > 0)
3989: ) THEN
3990: l_source_code_flag := 'Y';
3991: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_SHIP_MODE');
3992: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3993: wsh_util_core.add_message(x_return_status);
3994: l_num_error := l_num_error + 1;
3995: CLOSE detail_info;
3996: goto confirm_error_no_msg;
3989: ) THEN
3990: l_source_code_flag := 'Y';
3991: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_SHIP_MODE');
3992: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3993: wsh_util_core.add_message(x_return_status);
3994: l_num_error := l_num_error + 1;
3995: CLOSE detail_info;
3996: goto confirm_error_no_msg;
3997:
4005: FOR UPDATE NOWAIT;
4006:
4007: EXCEPTION
4008: WHEN record_locked THEN
4009: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4010: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
4011: wsh_util_core.add_message(x_return_status);
4012: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4013: CLOSE detail_info;
4007: EXCEPTION
4008: WHEN record_locked THEN
4009: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4010: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
4011: wsh_util_core.add_message(x_return_status);
4012: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4013: CLOSE detail_info;
4014: goto confirm_error;
4015: WHEN OTHERS THEN
4008: WHEN record_locked THEN
4009: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4010: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
4011: wsh_util_core.add_message(x_return_status);
4012: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4013: CLOSE detail_info;
4014: goto confirm_error;
4015: WHEN OTHERS THEN
4016: RAISE;
4020: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_UNRELEASED');
4021: -- Bug 2713285
4022: -- for cancelling or unassigning the lines from delivery thru Batch process
4023: IF l_batch_id IS NULL THEN
4024: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4025: l_num_warn := l_num_warn + 1 ;
4026: ELSE
4027: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4028: l_num_error := l_num_error + 1 ;
4023: IF l_batch_id IS NULL THEN
4024: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4025: l_num_warn := l_num_warn + 1 ;
4026: ELSE
4027: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4028: l_num_error := l_num_error + 1 ;
4029: END IF;
4030:
4031: wsh_util_core.add_message(x_return_status);
4027: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4028: l_num_error := l_num_error + 1 ;
4029: END IF;
4030:
4031: wsh_util_core.add_message(x_return_status);
4032: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4033: --bug 2770400
4034: IF l_batch_id IS NOT NULL THEN
4035: -- in batch mode ,stop confirming the delivery
4032: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4033: --bug 2770400
4034: IF l_batch_id IS NOT NULL THEN
4035: -- in batch mode ,stop confirming the delivery
4036: wsh_util_core.add_message(x_return_status);
4037: CLOSE detail_info;
4038: goto confirm_error_no_msg;
4039: END IF;
4040: -- End of Bug 2713285
4059: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4060: END IF;
4061: --
4062: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
4063: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4064: wsh_util_core.add_message(x_return_status);
4065: l_num_warn := l_num_warn + 1;
4066:
4067: UPDATE WSH_DELIVERY_DETAILS
4060: END IF;
4061: --
4062: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
4063: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4064: wsh_util_core.add_message(x_return_status);
4065: l_num_warn := l_num_warn + 1;
4066:
4067: UPDATE WSH_DELIVERY_DETAILS
4068: SET INSPECTION_FLAG = 'I'
4108: IF l_debug_on THEN
4109: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FLEXFIELD_UTILS.VALIDATE_DFF validation failed for delivery detail(s)',WSH_DEBUG_SV.C_PROC_LEVEL);
4110: END IF;
4111: --
4112: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4113: l_token := FND_MESSAGE.Get_String('WSH', 'WSH_DETAIL_DFF_TITLE');
4114:
4115: FND_MESSAGE.Set_Name('WSH', 'WSH_DFF_DETAIL_EMPTY');
4116: FND_MESSAGE.Set_Token('DFF_TITLE', l_token);
4114:
4115: FND_MESSAGE.Set_Name('WSH', 'WSH_DFF_DETAIL_EMPTY');
4116: FND_MESSAGE.Set_Token('DFF_TITLE', l_token);
4117: FND_MESSAGE.Set_Token('DETAIL_IDS', l_invalid_details);
4118: WSH_UTIL_CORE.Add_Message(x_return_status);
4119:
4120: IF ( x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING ) THEN
4121: l_num_warn := l_num_warn;
4122: END IF;
4116: FND_MESSAGE.Set_Token('DFF_TITLE', l_token);
4117: FND_MESSAGE.Set_Token('DETAIL_IDS', l_invalid_details);
4118: WSH_UTIL_CORE.Add_Message(x_return_status);
4119:
4120: IF ( x_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING ) THEN
4121: l_num_warn := l_num_warn;
4122: END IF;
4123:
4124: goto loop_end;
4145: x_return_status => l_return_status,
4146: x_msg_count => l_msg_count,
4147: x_msg_data => l_msg_data
4148: );
4149: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4150: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
4151: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4152: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4153: x_return_status := l_return_status;
4150: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
4151: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4152: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4153: x_return_status := l_return_status;
4154: wsh_util_core.add_message(x_return_status);
4155: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4156: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4157: THEN
4158:
4151: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4152: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4153: x_return_status := l_return_status;
4154: wsh_util_core.add_message(x_return_status);
4155: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4156: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4157: THEN
4158:
4159: l_num_error := l_num_error + 1 ;
4152: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4153: x_return_status := l_return_status;
4154: wsh_util_core.add_message(x_return_status);
4155: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4156: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4157: THEN
4158:
4159: l_num_error := l_num_error + 1 ;
4160: ELSE
4186: x_out_rows => l_out_cc_rows ,
4187: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4188: x_return_status => l_return_status);
4189:
4190: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
4191: THEN
4192: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4193: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4194: THEN
4188: x_return_status => l_return_status);
4189:
4190: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
4191: THEN
4192: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4193: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4194: THEN
4195: l_num_error := l_num_error + 1 ;
4196: goto confirm_error_no_msg;
4189:
4190: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS )
4191: THEN
4192: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4193: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4194: THEN
4195: l_num_error := l_num_error + 1 ;
4196: goto confirm_error_no_msg;
4197: ELSE
4220: x_return_status => l_return_status,
4221: x_msg_count => l_msg_count,
4222: x_msg_data => l_msg_data
4223: );
4224: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4225: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
4226: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4227: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4228: x_return_status := l_return_status;
4225: FND_MESSAGE.SET_NAME('WSH','WSH_INTG_ERROR');
4226: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4227: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4228: x_return_status := l_return_status;
4229: wsh_util_core.add_message(x_return_status);
4230: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4231: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4232: l_num_error := l_num_error + 1 ;
4233: ELSE
4226: FND_MESSAGE.SET_TOKEN('API_NAME', 'WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT');
4227: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4228: x_return_status := l_return_status;
4229: wsh_util_core.add_message(x_return_status);
4230: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4231: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4232: l_num_error := l_num_error + 1 ;
4233: ELSE
4234: l_num_warn := l_num_warn + 1 ;
4227: FND_MESSAGE.SET_TOKEN('MSG_TEXT', l_msg_data);
4228: x_return_status := l_return_status;
4229: wsh_util_core.add_message(x_return_status);
4230: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4231: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4232: l_num_error := l_num_error + 1 ;
4233: ELSE
4234: l_num_warn := l_num_warn + 1 ;
4235: END IF;
4257: x_out_rows => l_out_bo_rows ,
4258: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4259: x_return_status => l_return_status);
4260:
4261: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4262: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4263: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4264: THEN
4265: l_num_error := l_num_error + 1 ;
4258: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4259: x_return_status => l_return_status);
4260:
4261: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4262: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4263: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4264: THEN
4265: l_num_error := l_num_error + 1 ;
4266: goto confirm_error_no_msg;
4259: x_return_status => l_return_status);
4260:
4261: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4262: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4263: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
4264: THEN
4265: l_num_error := l_num_error + 1 ;
4266: goto confirm_error_no_msg;
4267: ELSE
4411: p_unassign_flag => 'N',
4412: p_req_quantity2 => l_stage_quantity2,
4413: p_manual_split => 'Y');
4414:
4415: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4416: l_num_error := l_num_error + 1 ;
4417: goto confirm_error;
4418: ELSE
4419: l_staged_dd_id := l_new_detail_id;
4426: -- Bug 2713285
4427: -- for cancelling any line in delivery thru Batch process
4428: IF l_batch_id IS NOT NULL THEN
4429: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CANCEL_DET_ERROR');
4430: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4431: wsh_util_core.add_message(x_return_status);
4432: l_num_error := l_num_error + 1;
4433: goto confirm_error_no_msg;
4434: END IF;
4427: -- for cancelling any line in delivery thru Batch process
4428: IF l_batch_id IS NOT NULL THEN
4429: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CANCEL_DET_ERROR');
4430: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4431: wsh_util_core.add_message(x_return_status);
4432: l_num_error := l_num_error + 1;
4433: goto confirm_error_no_msg;
4434: END IF;
4435: -- Bug 2713285
4532: x_net_weight => l_net_weight,
4533: x_volume => l_volume,
4534: x_return_status => l_return_status);
4535:
4536: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4537: x_return_status := l_return_status;
4538: IF l_debug_on THEN
4539: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
4540: WSH_DEBUG_SV.pop(l_module_name);
4595: x_out_rows => l_out_bo_rows ,
4596: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4597: x_return_status => l_return_status);
4598:
4599: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4600: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4601: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4602: l_num_error := l_num_error + 1 ;
4603: goto confirm_error_no_msg;
4596: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4597: x_return_status => l_return_status);
4598:
4599: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4600: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4601: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4602: l_num_error := l_num_error + 1 ;
4603: goto confirm_error_no_msg;
4604: ELSE
4597: x_return_status => l_return_status);
4598:
4599: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4600: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4601: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4602: l_num_error := l_num_error + 1 ;
4603: goto confirm_error_no_msg;
4604: ELSE
4605: l_num_warn := l_num_warn + 1 ;
4630: x_out_rows => l_out_cc_rows ,
4631: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4632: x_return_status => l_return_status);
4633:
4634: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4635: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4636: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4637: l_num_error := l_num_error + 1 ;
4638: goto confirm_error_no_msg;
4631: x_cons_flags => l_cons_flags, -- Consolidation of BO Delivery Details project
4632: x_return_status => l_return_status);
4633:
4634: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4635: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4636: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4637: l_num_error := l_num_error + 1 ;
4638: goto confirm_error_no_msg;
4639: ELSE
4632: x_return_status => l_return_status);
4633:
4634: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4635: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4636: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4637: l_num_error := l_num_error + 1 ;
4638: goto confirm_error_no_msg;
4639: ELSE
4640: l_num_warn := l_num_warn + 1 ;
4664: p_check_credit_init_flag => l_check_credit_init_flag, -- bug 2343058
4665: x_line_inv_flag_rec => l_inv_controls_rec,
4666: x_return_status => l_return_status);
4667:
4668: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4669: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4670: l_num_error := l_num_error + 1;
4671: raise ship_confirm_error;
4672: /* H integration: 945 check detail wrudge */
4665: x_line_inv_flag_rec => l_inv_controls_rec,
4666: x_return_status => l_return_status);
4667:
4668: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4669: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4670: l_num_error := l_num_error + 1;
4671: raise ship_confirm_error;
4672: /* H integration: 945 check detail wrudge */
4673: ELSIF l_shp_dd_source(dd_count) = 'WSH' THEN
4680: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4681: END IF;
4682: --
4683: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
4684: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
4685: l_num_error := l_num_error + 1;
4686: goto confirm_error_no_msg;
4687: ELSE
4688: -- Bug 2713285
4688: -- Bug 2713285
4689: -- for inventory control items, lines are unassigned from Delivery
4690: -- thru batch process
4691: IF l_batch_id IS NOT NULL THEN
4692: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4693: IF l_inv_controls_rec.details_required_flag='Y' THEN --Bug 3773225
4694: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_REQUIRED');
4695: wsh_util_core.add_message(x_return_status);
4696: ELSIF l_inv_controls_rec.invalid_material_status_flag='Y' THEN --Material Status Impact
4691: IF l_batch_id IS NOT NULL THEN
4692: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4693: IF l_inv_controls_rec.details_required_flag='Y' THEN --Bug 3773225
4694: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_REQUIRED');
4695: wsh_util_core.add_message(x_return_status);
4696: ELSIF l_inv_controls_rec.invalid_material_status_flag='Y' THEN --Material Status Impact
4697: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MATERIAL_STATUS');
4698: wsh_util_core.add_message(x_return_status);
4699: END IF;
4694: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_REQUIRED');
4695: wsh_util_core.add_message(x_return_status);
4696: ELSIF l_inv_controls_rec.invalid_material_status_flag='Y' THEN --Material Status Impact
4697: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MATERIAL_STATUS');
4698: wsh_util_core.add_message(x_return_status);
4699: END IF;
4700: l_num_error := l_num_error + 1;
4701: goto confirm_error_no_msg;
4702: END IF;
4749: END IF;
4750: /***************************Material Status Project***************************************/
4751: end if;
4752:
4753: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING ;
4754: END IF;
4755: ELSE
4756: l_unassign_all_flag_tab(i) := FALSE ;
4757:
4763: -- else it will be FALSE by default
4764: l_cont_exists_flag := TRUE;
4765: END IF; -- (if container_id IS NULL)
4766:
4767: END IF; -- (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
4768:
4769: -- bug 2320388
4770: l_check_credit_init_flag := FALSE;
4771:
4782: WSH_DELIVERY_DETAILS_INV.Default_Subinventory ( l_shp_dd_orgs ( dd_count ),
4783: l_shp_dd_items( dd_count ),
4784: dft_subinv,
4785: x_return_status);
4786: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
4787: raise ship_confirm_error;
4788: END IF;
4789:
4790: END IF;
4885:
4886: If g_missing_inv_severity = 'E' then
4887: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_INV_CONTROLS');
4888: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_ctrl_dd_ids);
4889: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4890: wsh_util_core.add_message(x_return_status);
4891: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4892: l_num_error := l_num_error + 1;
4893: goto confirm_error_no_msg;
4886: If g_missing_inv_severity = 'E' then
4887: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_INV_CONTROLS');
4888: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_ctrl_dd_ids);
4889: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4890: wsh_util_core.add_message(x_return_status);
4891: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4892: l_num_error := l_num_error + 1;
4893: goto confirm_error_no_msg;
4894: Else
4893: goto confirm_error_no_msg;
4894: Else
4895: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_INV_CONTROLS');
4896: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_ctrl_dd_ids);
4897: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4898: wsh_util_core.add_message(x_return_status);
4899: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4900: End If;
4901: END IF;
4894: Else
4895: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_INV_CONTROLS');
4896: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_ctrl_dd_ids);
4897: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4898: wsh_util_core.add_message(x_return_status);
4899: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4900: End If;
4901: END IF;
4902: /***************************Material Status Project***************************************/
4917:
4918: If g_missing_inv_severity = 'E' then
4919: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_MATERIAL_STATUS');
4920: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_material_dd_ids);
4921: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4922: wsh_util_core.add_message(x_return_status);
4923: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4924: l_num_error := l_num_error + 1;
4925: goto confirm_error_no_msg;
4918: If g_missing_inv_severity = 'E' then
4919: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_MATERIAL_STATUS');
4920: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_material_dd_ids);
4921: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4922: wsh_util_core.add_message(x_return_status);
4923: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4924: l_num_error := l_num_error + 1;
4925: goto confirm_error_no_msg;
4926: Else
4925: goto confirm_error_no_msg;
4926: Else
4927: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_MATERIAL_STATUS');
4928: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_material_dd_ids);
4929: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4930: wsh_util_core.add_message(x_return_status);
4931: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4932: End If;
4933: END IF;
4926: Else
4927: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_MATERIAL_STATUS');
4928: FND_MESSAGE.Set_Token('DETAIL_IDS', l_inv_material_dd_ids);
4929: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4930: wsh_util_core.add_message(x_return_status);
4931: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
4932: End If;
4933: END IF;
4934: /***************************Material Status Project***************************************/
4943: wsh_tpa_delivery_pkg.check_released_lines(
4944: p_del_rows(i), l_unassign_dds.count,
4945: l_detail_num-l_unassign_dds.count, l_return_status);
4946:
4947: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4948: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4949: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4950: l_num_error := l_num_error + 1 ;
4951: ELSE
4944: p_del_rows(i), l_unassign_dds.count,
4945: l_detail_num-l_unassign_dds.count, l_return_status);
4946:
4947: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4948: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4949: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4950: l_num_error := l_num_error + 1 ;
4951: ELSE
4952: l_num_warn := l_num_warn + 1 ;
4945: l_detail_num-l_unassign_dds.count, l_return_status);
4946:
4947: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4948: IF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR
4949: l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4950: l_num_error := l_num_error + 1 ;
4951: ELSE
4952: l_num_warn := l_num_warn + 1 ;
4953: END IF ;
5070: p_validate_flag => 'N', -- want it to succeed in case of Planned Deliveries
5071: x_return_status => l_return_status
5072: );
5073:
5074: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5075: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5076: THEN
5077: x_return_status := l_return_status;
5078: l_num_error := l_num_error + 1 ;
5071: x_return_status => l_return_status
5072: );
5073:
5074: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5075: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5076: THEN
5077: x_return_status := l_return_status;
5078: l_num_error := l_num_error + 1 ;
5079: goto loop_end;
5076: THEN
5077: x_return_status := l_return_status;
5078: l_num_error := l_num_error + 1 ;
5079: goto loop_end;
5080: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5081: l_num_warn := l_num_warn + 1;
5082: END IF;
5083:
5084: --
5092: x_unassigned_cont => x_unassigned_cont,
5093: x_return_status => l_return_status
5094: );
5095:
5096: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5097: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5098: THEN
5099: x_return_status := l_return_status;
5100: wsh_util_core.add_message(x_return_status);
5093: x_return_status => l_return_status
5094: );
5095:
5096: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5097: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5098: THEN
5099: x_return_status := l_return_status;
5100: wsh_util_core.add_message(x_return_status);
5101: l_num_error := l_num_error + 1 ;
5096: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5097: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5098: THEN
5099: x_return_status := l_return_status;
5100: wsh_util_core.add_message(x_return_status);
5101: l_num_error := l_num_error + 1 ;
5102: goto loop_end;
5103: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5104: l_num_warn := l_num_warn + 1;
5099: x_return_status := l_return_status;
5100: wsh_util_core.add_message(x_return_status);
5101: l_num_error := l_num_error + 1 ;
5102: goto loop_end;
5103: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5104: l_num_warn := l_num_warn + 1;
5105: END IF;
5106:
5107: --
5116: p_validate_flag => 'N', -- want it to succeed for Planned Deliveries too
5117: x_return_status => l_return_status
5118: );
5119:
5120: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5121: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5122: THEN
5123: x_return_status := l_return_status;
5124: l_num_error := l_num_error + 1 ;
5117: x_return_status => l_return_status
5118: );
5119:
5120: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5121: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR))
5122: THEN
5123: x_return_status := l_return_status;
5124: l_num_error := l_num_error + 1 ;
5125: goto loop_end;
5122: THEN
5123: x_return_status := l_return_status;
5124: l_num_error := l_num_error + 1 ;
5125: goto loop_end;
5126: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5127: l_num_warn := l_num_warn + 1;
5128: END IF;
5129:
5130: /* H integration: 945 cancel staged/unreleased */
5140: wsh_interface.delete_details(
5141: p_details_id => l_cancel_line_ids,
5142: x_return_status => l_return_status);
5143:
5144: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5145: /* new message: WSH_DEL_CANCEL_DET_ERROR, token DEL_NAME */
5146: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CANCEL_DET_ERROR');
5147: --
5148: -- Debug Statements
5152: END IF;
5153: --
5154: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5155: x_return_status := l_return_status;
5156: wsh_util_core.add_message(x_return_status);
5157: l_num_error := l_num_error + 1 ;
5158: goto loop_end;
5159: END IF;
5160: END IF;
5173: p_calc_wv_if_frozen => 'N',
5174: x_net_weight => l_net_weight,
5175: x_volume => l_volume,
5176: x_return_status => l_return_status);
5177: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5178: x_return_status := l_return_status;
5179: IF l_debug_on THEN
5180: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
5181: WSH_DEBUG_SV.pop(l_module_name);
5197: --
5198: WSH_DETAILS_VALIDATIONS.check_zero_req_confirm(p_delivery_id => p_del_rows(i),
5199: x_return_status => l_return_status);
5200:
5201: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
5202: x_return_status := l_return_Status ;
5203: --wsh_util_core.add_message(x_return_status);
5204: l_delivery_id := p_del_rows(i);
5205: goto confirm_error_no_msg;
5199: x_return_status => l_return_status);
5200:
5201: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
5202: x_return_status := l_return_Status ;
5203: --wsh_util_core.add_message(x_return_status);
5204: l_delivery_id := p_del_rows(i);
5205: goto confirm_error_no_msg;
5206: END IF;
5207:
5217: x_return_status => l_return_status
5218: );
5219:
5220:
5221: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5222: FND_MESSAGE.Set_Name('WSH', 'WSH_PARAM_NOT_DEFINED');
5223: --
5224: -- Debug Statements
5225: --
5223: --
5224: -- Debug Statements
5225: --
5226: IF l_debug_on THEN
5227: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5228: END IF;
5229: --
5230: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5231: wsh_util_core.get_org_name(l_organization_id));
5227: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5228: END IF;
5229: --
5230: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5231: wsh_util_core.get_org_name(l_organization_id));
5232: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5233: wsh_util_core.add_message(x_return_status);
5234: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
5235: goto confirm_error;
5228: END IF;
5229: --
5230: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5231: wsh_util_core.get_org_name(l_organization_id));
5232: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5233: wsh_util_core.add_message(x_return_status);
5234: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
5235: goto confirm_error;
5236: END IF;
5229: --
5230: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5231: wsh_util_core.get_org_name(l_organization_id));
5232: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5233: wsh_util_core.add_message(x_return_status);
5234: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
5235: goto confirm_error;
5236: END IF;
5237:
5264: x_del_rows => l_dummy_rows ,
5265: x_grouping_rows => l_dummy_rows ,
5266: x_return_status => l_return_status ) ;
5267:
5268: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5269: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5270: l_num_warn := l_num_warn + 1;
5271: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5272: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5265: x_grouping_rows => l_dummy_rows ,
5266: x_return_status => l_return_status ) ;
5267:
5268: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5269: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5270: l_num_warn := l_num_warn + 1;
5271: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5272: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5273: l_num_error := l_num_error + 1;
5267:
5268: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5269: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5270: l_num_warn := l_num_warn + 1;
5271: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5272: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5273: l_num_error := l_num_error + 1;
5274: END IF;
5275:
5268: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
5269: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5270: l_num_warn := l_num_warn + 1;
5271: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5272: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5273: l_num_error := l_num_error + 1;
5274: END IF;
5275:
5276: --deliveryMerge
5288: IF l_debug_on THEN
5289: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag l_return_status',l_return_status);
5290: END IF;
5291:
5292: IF x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5293: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5294: l_num_warn := l_num_warn + 1;
5295: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5296: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5289: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag l_return_status',l_return_status);
5290: END IF;
5291:
5292: IF x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5293: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5294: l_num_warn := l_num_warn + 1;
5295: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5296: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5297: l_num_error := l_num_error + 1;
5291:
5292: IF x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5293: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5294: l_num_warn := l_num_warn + 1;
5295: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5296: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5297: l_num_error := l_num_error + 1;
5298: END IF;
5299:
5292: IF x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5293: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5294: l_num_warn := l_num_warn + 1;
5295: ELSIF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
5296: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5297: l_num_error := l_num_error + 1;
5298: END IF;
5299:
5300:
5341: WSH_DEBUG_SV.logmsg(l_module_name,'ITM flag: '||l_param_info.export_screening_flag);
5342: wsh_debug_sv.log(l_module_name,'l_itm_exc_flag for delivery: '|| p_del_rows(i),l_itm_exc_flag(p_del_rows(i)));
5343: END IF;
5344:
5345: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5346: goto confirm_error;
5347: END IF;
5348: -- Find out the severity of the exception if it is enabled.
5349: IF l_itm_exc_flag(p_del_rows(i)) = 'Y' THEN
5397: --
5398: FND_MESSAGE.SET_TOKEN('ENTITY_TYPE','Delivery');
5399: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5400: FND_MESSAGE.SET_TOKEN('WV','Weight');
5401: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5402: wsh_util_core.add_message(x_return_status);
5403: l_num_warn := l_num_warn + 1;
5404: END IF;
5405:
5398: FND_MESSAGE.SET_TOKEN('ENTITY_TYPE','Delivery');
5399: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5400: FND_MESSAGE.SET_TOKEN('WV','Weight');
5401: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5402: wsh_util_core.add_message(x_return_status);
5403: l_num_warn := l_num_warn + 1;
5404: END IF;
5405:
5406: IF (l_param_info.percent_fill_basis_flag = 'V' and l_volume is NULL) THEN
5411: --
5412: FND_MESSAGE.SET_TOKEN('ENTITY_TYPE','Delivery');
5413: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5414: FND_MESSAGE.SET_TOKEN('WV','Volume');
5415: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5416: wsh_util_core.add_message(x_return_status);
5417: l_num_warn := l_num_warn + 1;
5418: END IF;
5419: END IF;
5412: FND_MESSAGE.SET_TOKEN('ENTITY_TYPE','Delivery');
5413: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5414: FND_MESSAGE.SET_TOKEN('WV','Volume');
5415: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5416: wsh_util_core.add_message(x_return_status);
5417: l_num_warn := l_num_warn + 1;
5418: END IF;
5419: END IF;
5420: -- End J: W/V Changes
5444: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_fill_status);
5445: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_save_fill_status);
5446: END IF;
5447:
5448: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5449: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5450: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5451: ELSIF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
5452: raise ship_confirm_error;
5445: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_save_fill_status);
5446: END IF;
5447:
5448: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5449: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5450: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5451: ELSIF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
5452: raise ship_confirm_error;
5453: ELSIF (l_fill_status = 'U') THEN
5446: END IF;
5447:
5448: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5449: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5450: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5451: ELSIF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
5452: raise ship_confirm_error;
5453: ELSIF (l_fill_status = 'U') THEN
5454: l_underfilled_flag := TRUE;
5447:
5448: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5449: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5450: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5451: ELSIF ( l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ) THEN
5452: raise ship_confirm_error;
5453: ELSIF (l_fill_status = 'U') THEN
5454: l_underfilled_flag := TRUE;
5455: ELSIF (l_fill_status = 'O') THEN
5497:
5498: Create_Deconsol_Trips(p_deliveries_tab => p_del_rows,
5499: x_return_status => l_return_status);
5500:
5501: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5502: raise ship_confirm_error;
5503: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5504: l_num_warn := l_num_warn + 1;
5505: END IF;
5499: x_return_status => l_return_status);
5500:
5501: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5502: raise ship_confirm_error;
5503: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5504: l_num_warn := l_num_warn + 1;
5505: END IF;
5506:
5507:
5532: ** begin bug 2426743
5533: ** Warning should not set the message that delivery will not be confirmed.
5534: ** Error should rollback and not continue processing this delivery.
5535: */
5536: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5537:
5538: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_CONFIRM_ERROR');
5539: --
5540: -- Debug Statements
5543: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5544: END IF;
5545: --
5546: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5547: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5548: wsh_util_core.add_message(x_return_status);
5549: goto confirm_error_no_msg;
5550:
5551: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5544: END IF;
5545: --
5546: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5547: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5548: wsh_util_core.add_message(x_return_status);
5549: goto confirm_error_no_msg;
5550:
5551: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5552: -- Bug 2711786
5547: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5548: wsh_util_core.add_message(x_return_status);
5549: goto confirm_error_no_msg;
5550:
5551: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5552: -- Bug 2711786
5553: -- for ship set,but this would include other validations done in
5554: -- check_confirm API like for SMC also
5555: IF l_batch_id IS NOT NULL THEN
5553: -- for ship set,but this would include other validations done in
5554: -- check_confirm API like for SMC also
5555: IF l_batch_id IS NOT NULL THEN
5556: -- FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CANCEL_DET_ERROR');
5557: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5558: -- wsh_util_core.add_message(x_return_status);
5559: l_num_error := l_num_error + 1;
5560: goto confirm_error_no_msg;
5561: END IF;
5554: -- check_confirm API like for SMC also
5555: IF l_batch_id IS NOT NULL THEN
5556: -- FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CANCEL_DET_ERROR');
5557: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5558: -- wsh_util_core.add_message(x_return_status);
5559: l_num_error := l_num_error + 1;
5560: goto confirm_error_no_msg;
5561: END IF;
5562: -- Bug 2711786
5598: l_cont_exists_flag,
5599: l_unpacked_flag,
5600: l_return_status);
5601:
5602: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
5603: THEN
5604: x_return_status := l_return_status;
5605: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5606: raise ship_confirm_error;
5601:
5602: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
5603: THEN
5604: x_return_status := l_return_status;
5605: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5606: raise ship_confirm_error;
5607: ELSE
5608: l_num_warn := l_num_warn + 1;
5609: END IF;
5614: create_pack_slip(
5615: p_delivery_id => p_del_rows(i),
5616: x_return_status => l_return_status);
5617:
5618: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5619: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5620: THEN
5621: l_num_error := l_num_error + 1;
5622: goto loop_end;
5615: p_delivery_id => p_del_rows(i),
5616: x_return_status => l_return_status);
5617:
5618: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5619: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
5620: THEN
5621: l_num_error := l_num_error + 1;
5622: goto loop_end;
5623: ELSE
5629: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5630: END IF;
5631: --
5632: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5633: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5634: wsh_util_core.add_message(x_return_status);
5635: l_num_warn := l_num_warn + 1;
5636: END IF;
5637: END IF;
5630: END IF;
5631: --
5632: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5633: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5634: wsh_util_core.add_message(x_return_status);
5635: l_num_warn := l_num_warn + 1;
5636: END IF;
5637: END IF;
5638:
5688:
5689: --Compatiblity Changes
5690: --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
5691: --bug 2811489 : call should be made regardless of ship_method being null
5692: IF wsh_util_core.fte_is_installed='Y' THEN
5693:
5694: WSH_FTE_COMP_CONSTRAINT_PKG.validate_constraint_main(
5695: p_api_version_number => 1.0,
5696: p_init_msg_list => FND_API.G_FALSE,
5723: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5724: END IF;
5725: --
5726:
5727: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
5728: IF l_cc_failed_records.COUNT>0 THEN
5729:
5730: IF l_debug_on THEN
5731: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
5734:
5735: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
5736: FND_MESSAGE.SET_TOKEN('DEL_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5737: x_return_status := l_return_status;
5738: wsh_util_core.add_message(x_return_status);
5739: goto confirm_error;
5740: ELSE
5741: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5742: l_num_warn := l_num_warn + 1;
5737: x_return_status := l_return_status;
5738: wsh_util_core.add_message(x_return_status);
5739: goto confirm_error;
5740: ELSE
5741: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5742: l_num_warn := l_num_warn + 1;
5743: END IF;
5744: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5745: x_return_status := l_return_status;
5740: ELSE
5741: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5742: l_num_warn := l_num_warn + 1;
5743: END IF;
5744: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5745: x_return_status := l_return_status;
5746: goto confirm_error;
5747: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5748: x_return_status := l_return_status;
5743: END IF;
5744: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5745: x_return_status := l_return_status;
5746: goto confirm_error;
5747: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5748: x_return_status := l_return_status;
5749: l_num_warn := l_num_warn + 1;
5750: END IF;
5751: END IF;
5770: p_sc_pickup_date => l_sc_pickup_date,
5771: p_sc_dropoff_date => l_sc_dropoff_date
5772: );
5773:
5774: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)
5775: THEN
5776: x_return_status := l_return_status;
5777: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_AUTOCREATE_TRIP_ERROR');
5778:
5780: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5781: END IF;
5782: --
5783: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5784: wsh_util_core.add_message(x_return_status);
5785: goto confirm_error;
5786: END IF;
5787: END IF;
5788: END IF;
5793: IF l_trip_id IS NULL THEN
5794:
5795: --Compatibility Changes
5796: -- if trip already exists, need to check for must use constraints if carrier/mode is null
5797: IF wsh_util_core.fte_is_installed='Y' THEN
5798: l_trip_info_tab.delete;
5799: l_cc_count_success:=0;
5800:
5801: IF l_debug_on THEN
5871: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5872: END IF;
5873: --
5874:
5875: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
5876: IF l_cc_fail_ids.COUNT>0 THEN
5877:
5878: IF l_debug_on THEN
5879: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_trips_pvt.get_name',WSH_DEBUG_SV.C_PROC_LEVEL);
5881:
5882: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_COMP_FAILED');
5883: FND_MESSAGE.SET_TOKEN('TRIP_ID',wsh_trips_pvt.get_name(l_cc_fail_ids(1)));
5884: x_return_status := l_return_status;
5885: wsh_util_core.add_message(x_return_status);
5886: goto confirm_error;
5887: ELSE
5888: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5889: l_num_warn := l_num_warn + 1;
5884: x_return_status := l_return_status;
5885: wsh_util_core.add_message(x_return_status);
5886: goto confirm_error;
5887: ELSE
5888: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5889: l_num_warn := l_num_warn + 1;
5890: END IF;
5891: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5892: x_return_status := l_return_status;
5887: ELSE
5888: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
5889: l_num_warn := l_num_warn + 1;
5890: END IF;
5891: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5892: x_return_status := l_return_status;
5893: goto confirm_error;
5894: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5895: x_return_status := l_return_status;
5890: END IF;
5891: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
5892: x_return_status := l_return_status;
5893: goto confirm_error;
5894: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
5895: x_return_status := l_return_status;
5896: l_num_warn := l_num_warn + 1;
5897: END IF;
5898:
5918:
5919: IF l_del_first_trip IS NULL THEN
5920:
5921: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
5922: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5923: wsh_util_core.add_message(x_return_status);
5924: goto confirm_error;
5925:
5926: ELSE
5919: IF l_del_first_trip IS NULL THEN
5920:
5921: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
5922: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5923: wsh_util_core.add_message(x_return_status);
5924: goto confirm_error;
5925:
5926: ELSE
5927:
5931: WSH_CARRIERS_GRP.get_carrier_service_mode(
5932: p_carrier_service_inout_rec => l_carrier_rec,
5933: x_return_status => l_return_status);
5934:
5935: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5936: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5937: goto confirm_error;
5938: END IF;
5939:
5932: p_carrier_service_inout_rec => l_carrier_rec,
5933: x_return_status => l_return_status);
5934:
5935: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5936: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5937: goto confirm_error;
5938: END IF;
5939:
5940: BEGIN
5943:
5944: EXCEPTION
5945:
5946: WHEN app_exception.application_exception OR app_exception.record_lock_exception THEN
5947: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5948: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_STOP_TRIP_LOCK');
5949: FND_MESSAGE.SET_TOKEN('DLVY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5950: wsh_util_core.add_message(x_return_status);
5951: goto confirm_error;
5946: WHEN app_exception.application_exception OR app_exception.record_lock_exception THEN
5947: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5948: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_STOP_TRIP_LOCK');
5949: FND_MESSAGE.SET_TOKEN('DLVY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5950: wsh_util_core.add_message(x_return_status);
5951: goto confirm_error;
5952:
5953: END;
5954:
5960: WHERE trip_id = l_del_first_trip;
5961:
5962: IF (SQL%NOTFOUND) THEN
5963: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
5964: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5965: wsh_util_core.add_message(x_return_status);
5966: goto confirm_error;
5967: END IF;
5968:
5961:
5962: IF (SQL%NOTFOUND) THEN
5963: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
5964: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5965: wsh_util_core.add_message(x_return_status);
5966: goto confirm_error;
5967: END IF;
5968:
5969: END IF;
5971: END IF;
5972:
5973: ELSE
5974: /* H integration - call MultiLeg FTE */
5975: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
5976: -- Get pvt type record structure for trip
5977: --
5978: -- Debug Statements
5979: --
5984: wsh_trips_grp.get_trip_details_pvt
5985: (p_trip_id => l_trip_id,
5986: x_trip_rec => l_trip_rec,
5987: x_return_status => l_return_status);
5988: IF l_return_status <>WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5989: x_return_status := l_return_status;
5990: wsh_util_core.add_message(x_return_status);
5991: goto confirm_error;
5992: END IF;
5986: x_trip_rec => l_trip_rec,
5987: x_return_status => l_return_status);
5988: IF l_return_status <>WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5989: x_return_status := l_return_status;
5990: wsh_util_core.add_message(x_return_status);
5991: goto confirm_error;
5992: END IF;
5993:
5994: -- this is the updated record
6009: p_action => 'UPDATE',
6010: x_return_status => l_return_status);
6011:
6012: /* H integration changes */
6013: IF l_return_status <>WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6014: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6015: l_num_warn := l_num_warn + 1;
6016: ELSE
6017: x_return_status := l_return_status;
6010: x_return_status => l_return_status);
6011:
6012: /* H integration changes */
6013: IF l_return_status <>WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
6014: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6015: l_num_warn := l_num_warn + 1;
6016: ELSE
6017: x_return_status := l_return_status;
6018: wsh_util_core.add_message(x_return_status);
6014: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6015: l_num_warn := l_num_warn + 1;
6016: ELSE
6017: x_return_status := l_return_status;
6018: wsh_util_core.add_message(x_return_status);
6019: goto confirm_error;
6020: END IF;
6021: END IF;
6022: END IF;
6026:
6027: --Compatiblity Changes
6028: --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
6029: --bug 2811489 : call should be made regardless of ship_method being null
6030: IF wsh_util_core.fte_is_installed='Y' THEN
6031:
6032: --only one record
6033: l_trip_info_tab(1).trip_id:=l_trip_id;
6034: IF p_ship_method is not null THEN
6071: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
6072: END IF;
6073: --
6074:
6075: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
6076: IF l_cc_fail_ids.COUNT>0 THEN
6077:
6078: IF l_debug_on THEN
6079: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
6082:
6083: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
6084: FND_MESSAGE.SET_TOKEN('DEL_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6085: x_return_status := l_return_status;
6086: wsh_util_core.add_message(x_return_status);
6087: goto confirm_error;
6088: ELSE
6089: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
6090: l_num_warn := l_num_warn + 1;
6085: x_return_status := l_return_status;
6086: wsh_util_core.add_message(x_return_status);
6087: goto confirm_error;
6088: ELSE
6089: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
6090: l_num_warn := l_num_warn + 1;
6091: END IF;
6092: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
6093: x_return_status := l_return_status;
6088: ELSE
6089: x_return_status:= WSH_UTIL_CORE.G_RET_STS_WARNING;
6090: l_num_warn := l_num_warn + 1;
6091: END IF;
6092: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
6093: x_return_status := l_return_status;
6094: goto confirm_error;
6095: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6096: x_return_status := l_return_status;
6091: END IF;
6092: ELSIF l_return_status=wsh_util_core.g_ret_sts_unexp_error THEN
6093: x_return_status := l_return_status;
6094: goto confirm_error;
6095: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6096: x_return_status := l_return_status;
6097: l_num_warn := l_num_warn + 1;
6098: END IF;
6099: END IF;
6108: WSH_CARRIERS_GRP.get_carrier_service_mode(
6109: p_carrier_service_inout_rec => l_carrier_rec,
6110: x_return_status => l_return_status);
6111:
6112: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6114: goto confirm_error;
6115: END IF;
6116:
6109: p_carrier_service_inout_rec => l_carrier_rec,
6110: x_return_status => l_return_status);
6111:
6112: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6114: goto confirm_error;
6115: END IF;
6116:
6117: UPDATE wsh_trips
6122: WHERE trip_id = l_trip_id;
6123:
6124: IF (SQL%NOTFOUND) THEN
6125: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6126: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6127: wsh_util_core.add_message(x_return_status);
6128: goto confirm_error;
6129: END IF;
6130:
6123:
6124: IF (SQL%NOTFOUND) THEN
6125: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6126: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6127: wsh_util_core.add_message(x_return_status);
6128: goto confirm_error;
6129: END IF;
6130:
6131: END IF;
6160: l_close_confirm_flag := 'F';
6161:
6162: FND_MESSAGE.SET_NAME('WSH','WSH_EXP_COMPL_SCRN_REQD');
6163: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_delivery_name);
6164: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_SUCCESS);
6165:
6166: ELSE
6167:
6168: l_stop_rows(l_stop_rows.count + 1 ) := l_pickup_stop_id;
6179: FETCH get_del_first_trip into l_first_trip_id;
6180: CLOSE get_del_first_trip;
6181: IF l_first_trip_id IS NULL THEN
6182: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6183: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6184: wsh_util_core.add_message(x_return_status);
6185: goto confirm_error;
6186: END IF;
6187: OPEN stop_sequence_number_csr(l_pickup_stop_id);
6180: CLOSE get_del_first_trip;
6181: IF l_first_trip_id IS NULL THEN
6182: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_NOT_FOUND');
6183: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6184: wsh_util_core.add_message(x_return_status);
6185: goto confirm_error;
6186: END IF;
6187: OPEN stop_sequence_number_csr(l_pickup_stop_id);
6188: FETCH stop_sequence_number_csr INTO l_pick_up_stop_sequence_num;
6202: exit when get_stops_csr%NOTFOUND;
6203: IF nvl(l_shipments_type_flag,'O') = 'I' THEN
6204: l_inbound_stops_exists := true;
6205: l_stop_name := SUBSTRB(
6206: WSH_UTIL_CORE.get_location_description
6207: ( l_stop_location_id,
6208: 'NEW UI CODE'
6209: ),
6210: 1,
6227: CLOSE get_trip_name_csr;
6228: FND_MESSAGE.SET_NAME('WSH','WSH_PREV_IB_STOPS_NOT_CLOSED');
6229: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_stops_trip_name);
6230: FND_MESSAGE.SET_TOKEN('STOP_NAME_LIST', l_stop_name_list);
6231: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6232: wsh_util_core.add_message(x_return_status);
6233: END IF;
6234: --} bugfix 3925963
6235: ELSIF ((p_close_flag = 'N') AND (p_intransit_flag = 'Y')) THEN
6228: FND_MESSAGE.SET_NAME('WSH','WSH_PREV_IB_STOPS_NOT_CLOSED');
6229: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_stops_trip_name);
6230: FND_MESSAGE.SET_TOKEN('STOP_NAME_LIST', l_stop_name_list);
6231: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6232: wsh_util_core.add_message(x_return_status);
6233: END IF;
6234: --} bugfix 3925963
6235: ELSIF ((p_close_flag = 'N') AND (p_intransit_flag = 'Y')) THEN
6236: OPEN prev_stop_csr(l_first_trip_id, l_pick_up_stop_sequence_num);
6290: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6291: END IF;
6292: --
6293: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6294: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6295: wsh_util_core.add_message(x_return_status);
6296: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
6297: l_num_warn := l_num_warn + 1;
6298: END IF;
6291: END IF;
6292: --
6293: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6294: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6295: wsh_util_core.add_message(x_return_status);
6296: WSH_NEW_DELIVERY_ACTIONS.g_error_level := 'E';
6297: l_num_warn := l_num_warn + 1;
6298: END IF;
6299:
6312: p_caller => p_caller,
6313: p_del_tab => l_mdc_cl_del_tab,
6314: x_return_status => l_return_status);
6315: l_mdc_cl_del_tab.delete;
6316: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6317: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6318: l_num_warn := l_num_warn + 1;
6319: ELSE
6320: x_return_status := l_return_status;
6313: p_del_tab => l_mdc_cl_del_tab,
6314: x_return_status => l_return_status);
6315: l_mdc_cl_del_tab.delete;
6316: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6317: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6318: l_num_warn := l_num_warn + 1;
6319: ELSE
6320: x_return_status := l_return_status;
6321: goto confirm_error;
6326: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_PVT.DELETE_DELIVERY_LEG',WSH_DEBUG_SV.C_PROC_LEVEL);
6327: END IF;
6328: wsh_delivery_legs_pvt.delete_delivery_leg
6329: (NULL, dg.delivery_leg_id, l_return_status);
6330: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6331: --Bug 2108310
6332: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6333: l_num_warn := l_num_warn + 1;
6334: ELSE
6328: wsh_delivery_legs_pvt.delete_delivery_leg
6329: (NULL, dg.delivery_leg_id, l_return_status);
6330: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6331: --Bug 2108310
6332: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
6333: l_num_warn := l_num_warn + 1;
6334: ELSE
6335: x_return_status := l_return_status;
6336: goto confirm_error;
6372: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6373: END IF;
6374: --
6375: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6376: wsh_util_core.add_message(x_return_status);
6377:
6378: /* H integration: 940/945 wrudge */
6379: <
6380: ROLLBACK TO SAVEPOINT confirm_delivery_sp;
6431: END LOOP;
6432: l_msg_table.delete;
6433: END IF;
6434: -- Call Store_Msg_In_Table Api to push the messages in WSH_INTEGRATION.G_MSG_TABLE to fnd stack
6435: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
6436: x_msg_rec_count => l_msg_rec_count,
6437: x_return_status => l_return_status);
6438: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6439: raise ship_confirm_error;
6434: -- Call Store_Msg_In_Table Api to push the messages in WSH_INTEGRATION.G_MSG_TABLE to fnd stack
6435: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
6436: x_msg_rec_count => l_msg_rec_count,
6437: x_return_status => l_return_status);
6438: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6439: raise ship_confirm_error;
6440: END IF;
6441: -- If there is no Shipping error but WMS has turned one of the Warning to Error then set the l_num_error
6442: IF ( (l_num_error = 0) AND (l_error_exists) )THEN
6472: x_max_quantity => l_max_quantity ,
6473: x_max_quantity2 => l_max_quantity2 ,
6474: x_return_status => l_return_status ) ;
6475:
6476: if ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) then
6477: x_return_status := l_return_Status ;
6478: wsh_util_core.add_message(x_return_status);
6479: l_num_error := l_num_error + 1;
6480: l_delivery_id := p_del_rows(i);
6474: x_return_status => l_return_status ) ;
6475:
6476: if ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) then
6477: x_return_status := l_return_Status ;
6478: wsh_util_core.add_message(x_return_status);
6479: l_num_error := l_num_error + 1;
6480: l_delivery_id := p_del_rows(i);
6481: raise ship_confirm_error ;
6482: end if ;
6494: p_logging_entity_name => 'DELIVERY',
6495: p_consider_content => 'Y'
6496: ) ;
6497:
6498: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6499: x_return_status := l_return_status;
6500: wsh_util_core.add_message(x_return_status);
6501: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6502: l_num_error := l_num_error + 1 ;
6496: ) ;
6497:
6498: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6499: x_return_status := l_return_status;
6500: wsh_util_core.add_message(x_return_status);
6501: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6502: l_num_error := l_num_error + 1 ;
6503: l_delivery_id := p_del_rows(i);
6504: raise ship_confirm_error;
6497:
6498: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6499: x_return_status := l_return_status;
6500: wsh_util_core.add_message(x_return_status);
6501: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6502: l_num_error := l_num_error + 1 ;
6503: l_delivery_id := p_del_rows(i);
6504: raise ship_confirm_error;
6505: ELSE
6521:
6522: Create_Deconsol_Trips(p_deliveries_tab => u_del_rows,
6523: x_return_status => l_return_status);
6524:
6525: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6526: raise ship_confirm_error;
6527: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6528: l_num_warn := l_num_warn + 1;
6529: END IF;
6523: x_return_status => l_return_status);
6524:
6525: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6526: raise ship_confirm_error;
6527: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6528: l_num_warn := l_num_warn + 1;
6529: END IF;
6530:
6531:
6599: create_bol( p_delivery_id => u_del_rows(i),
6600: x_return_status => l_return_status);
6601: END IF;
6602:
6603: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
6604:
6605: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6606: l_num_error := l_num_error + 1;
6607: ELSE
6601: END IF;
6602:
6603: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
6604:
6605: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6606: l_num_error := l_num_error + 1;
6607: ELSE
6608: --Bug 3685366
6609: l_dummy_doc_set(1).bol_error_flag:='Y';
6617: END IF;
6618: --
6619:
6620: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6621: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6622: wsh_util_core.add_message(x_return_status);
6623: l_num_warn := l_num_warn + 1;
6624: END IF;
6625: END IF;
6618: --
6619:
6620: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6621: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6622: wsh_util_core.add_message(x_return_status);
6623: l_num_warn := l_num_warn + 1;
6624: END IF;
6625: END IF;
6626:
6634: create_bol( p_delivery_id => u_del_rows(i),
6635: x_return_status => l_return_status);
6636: END IF;
6637:
6638: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
6639:
6640: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6641: l_num_error := l_num_error + 1;
6642: ELSE
6636: END IF;
6637:
6638: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
6639:
6640: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6641: l_num_error := l_num_error + 1;
6642: ELSE
6643:
6644: -- Bug 3685366
6654: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6655: END IF;
6656: --
6657: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6658: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6659: wsh_util_core.add_message(x_return_status);
6660: l_num_warn := l_num_warn + 1;
6661: END IF;
6662: END IF;
6655: END IF;
6656: --
6657: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6658: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6659: wsh_util_core.add_message(x_return_status);
6660: l_num_warn := l_num_warn + 1;
6661: END IF;
6662: END IF;
6663:
6713: p_delivery_ids => l_del_tmp_rows,
6714: p_document_param_info => l_dummy_doc_set,
6715: x_return_status => l_return_status);
6716:
6717: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6718: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6719: l_num_error := l_num_error + 1;
6720: ELSE
6721: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DOC_SUB_ERROR');
6714: p_document_param_info => l_dummy_doc_set,
6715: x_return_status => l_return_status);
6716:
6717: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6718: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6719: l_num_error := l_num_error + 1;
6720: ELSE
6721: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DOC_SUB_ERROR');
6722: --
6726: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6727: END IF;
6728: --
6729: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6730: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6731: wsh_util_core.add_message(x_return_status);
6732: l_num_warn := l_num_warn + 1;
6733: END IF;
6734: END IF;
6727: END IF;
6728: --
6729: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6730: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6731: wsh_util_core.add_message(x_return_status);
6732: l_num_warn := l_num_warn + 1;
6733: END IF;
6734: END IF;
6735: END IF;
6742: END IF;
6743: END IF;
6744: --J TP Release : If TP is installed, confirmed delivery has to be planned
6745: --tkt
6746: IF (NOT l_unassign_all_flag_tab(i) and wsh_util_core.TP_IS_INSTALLED='Y') THEN
6747:
6748: l_del_tmp_rows.delete;
6749: l_del_tmp_rows(1) := u_del_rows(i);
6750:
6755: PLAN(p_del_rows => l_del_tmp_rows,
6756: x_return_status => l_return_status,
6757: p_called_for_sc => TRUE);
6758:
6759: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6760: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6761: l_num_error := l_num_error + 1;
6762: ELSE
6763: IF l_debug_on THEN
6756: x_return_status => l_return_status,
6757: p_called_for_sc => TRUE);
6758:
6759: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6760: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6761: l_num_error := l_num_error + 1;
6762: ELSE
6763: IF l_debug_on THEN
6764: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6763: IF l_debug_on THEN
6764: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6765: END IF;
6766: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6767: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6768: wsh_util_core.add_message(x_return_status);
6769: l_num_warn := l_num_warn + 1;
6770: END IF;
6771: END IF;
6764: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6765: END IF;
6766: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6767: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6768: wsh_util_core.add_message(x_return_status);
6769: l_num_warn := l_num_warn + 1;
6770: END IF;
6771: END IF;
6772:
6787: p_action_type => 'SHIP_CONFIRM',
6788: p_ship_from_location_id => l_ship_from_location,
6789: x_return_status => l_return_status);
6790:
6791: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6792: l_num_error := l_num_error + 1 ;
6793: l_delivery_id := u_del_rows(i);
6794: raise ship_confirm_error;
6795: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6791: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6792: l_num_error := l_num_error + 1 ;
6793: l_delivery_id := u_del_rows(i);
6794: raise ship_confirm_error;
6795: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6796: l_num_warn := l_num_warn + 1;
6797: END IF;
6798:
6799: END IF;
6808: wsh_new_delivery_actions.update_leg_sequence(
6809: p_delivery_id => u_del_rows(i),
6810: x_return_status => l_return_status);
6811:
6812: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6813: l_num_error := l_num_error + 1 ;
6814: l_delivery_id := u_del_rows(i);
6815: raise ship_confirm_error;
6816: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6812: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6813: l_num_error := l_num_error + 1 ;
6814: l_delivery_id := u_del_rows(i);
6815: raise ship_confirm_error;
6816: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6817: l_num_warn := l_num_warn + 1;
6818: END IF;
6819:
6820:
6886: Confirm_Consolidation_Delivery(
6887: p_consol_del_tab => l_mdc_co_del_tab,
6888: x_return_status => l_return_status);
6889:
6890: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6891: raise ship_confirm_error;
6892: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6893: l_num_warn := l_num_warn + 1;
6894: END IF;
6888: x_return_status => l_return_status);
6889:
6890: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
6891: raise ship_confirm_error;
6892: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
6893: l_num_warn := l_num_warn + 1;
6894: END IF;
6895:
6896: END IF;
6959: avalue => P_ACTUAL_DEP_DATE);
6960:
6961: FND_MESSAGE.SET_NAME('WSH','WSH_WF_SCPOD_LAUNCHED');
6962: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(l_ctr)));
6963: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_SUCCESS,l_module_name);
6964:
6965: END IF;
6966: END LOOP;
6967: -- Workflow Changes ==/
7002: p_action_type => 'A',
7003: p_document_type => 'SA',
7004: p_organization_id => u_organization_id(i),
7005: x_return_status => l_return_status);
7006: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7007: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7008: l_num_error := l_num_error + 1;
7009: ELSE
7010: /* new message: WSH_DEL_OUTBOUND_FAILED, token DEL_NAME */
7003: p_document_type => 'SA',
7004: p_organization_id => u_organization_id(i),
7005: x_return_status => l_return_status);
7006: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7007: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7008: l_num_error := l_num_error + 1;
7009: ELSE
7010: /* new message: WSH_DEL_OUTBOUND_FAILED, token DEL_NAME */
7011: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_OUTBOUND_FAILED');
7016: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7017: END IF;
7018: --
7019: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
7020: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7021: wsh_util_core.add_message(x_return_status);
7022: l_num_warn := l_num_warn + 1;
7023: END IF;
7024: END IF;
7017: END IF;
7018: --
7019: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
7020: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7021: wsh_util_core.add_message(x_return_status);
7022: l_num_warn := l_num_warn + 1;
7023: END IF;
7024: END IF;
7025: END IF; -- u_wsh_lines_exist(i) > 0
7062: x_return_status => l_return_status,
7063: --tkt
7064: p_caller => p_caller);
7065:
7066: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7067: x_return_status := l_return_status;
7068: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7069: l_num_warn := l_num_warn + 1;
7070: ELSE
7064: p_caller => p_caller);
7065:
7066: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7067: x_return_status := l_return_status;
7068: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
7069: l_num_warn := l_num_warn + 1;
7070: ELSE
7071: l_num_error := l_num_error + 1;
7072: END IF;
7096: --
7097: -- Debug Statements
7098: --
7099: IF l_debug_on THEN
7100: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
7101: END IF;
7102: --
7103: wsh_util_core.api_post_call(
7104: p_return_status => l_return_status,
7099: IF l_debug_on THEN
7100: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
7101: END IF;
7102: --
7103: wsh_util_core.api_post_call(
7104: p_return_status => l_return_status,
7105: x_num_warnings => l_num_error,
7106: x_num_errors => l_num_warn,
7107: p_raise_error_flag => FALSE);
7114: -- 20. set summary messages for warnings and errors
7115:
7116: IF (l_num_error > 0) THEN
7117: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_WARNING');
7118: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7119: wsh_util_core.add_message(x_return_status);
7120: rollback to savepoint start_ship_confirm_delivery;
7121:
7122: ELSE
7115:
7116: IF (l_num_error > 0) THEN
7117: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_WARNING');
7118: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7119: wsh_util_core.add_message(x_return_status);
7120: rollback to savepoint start_ship_confirm_delivery;
7121:
7122: ELSE
7123:
7125: IF ( l_close_del_cnt <> 0 ) THEN
7126:
7127: FND_MESSAGE.SET_NAME('WSH','WSH_CL_DELIVERIES');
7128: FND_MESSAGE.SET_TOKEN('CL_DEL',l_close_del_cnt);
7129: wsh_util_core.add_message(x_return_status);
7130:
7131: END IF;
7132:
7133: IF (l_confirm_del_cnt <> 0) THEN
7133: IF (l_confirm_del_cnt <> 0) THEN
7134:
7135: FND_MESSAGE.SET_NAME('WSH','WSH_CO_DELIVERIES');
7136: FND_MESSAGE.SET_TOKEN('CO_DEL',l_confirm_del_cnt);
7137: wsh_util_core.add_message(x_return_status);
7138:
7139: END IF;
7140:
7141: if (l_num_warn > 0) THEN
7139: END IF;
7140:
7141: if (l_num_warn > 0) THEN
7142: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_WARNING');
7143: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7144: wsh_util_core.add_message(x_return_status);
7145: elsif (p_del_rows.count > 1) THEN
7146: -- bug 2523074 (frontported bug 2508132):
7147: -- if multiple deliveries are processed, show summary message,
7140:
7141: if (l_num_warn > 0) THEN
7142: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_WARNING');
7143: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7144: wsh_util_core.add_message(x_return_status);
7145: elsif (p_del_rows.count > 1) THEN
7146: -- bug 2523074 (frontported bug 2508132):
7147: -- if multiple deliveries are processed, show summary message,
7148: -- so that the user does not think the first message (e.g.,
7147: -- if multiple deliveries are processed, show summary message,
7148: -- so that the user does not think the first message (e.g.,
7149: -- request number) applies to all deliveries.
7150: FND_MESSAGE.SET_NAME('WSH', 'WSH_DEL_CONFIRM_SUCCESS');
7151: wsh_util_core.add_message(x_return_status);
7152: else
7153: FND_MESSAGE.SET_NAME('WSH', 'WSH_ONE_DEL_CONFIRM_SUCCESS');
7154: wsh_util_core.add_message(x_return_status);
7155: end if;
7150: FND_MESSAGE.SET_NAME('WSH', 'WSH_DEL_CONFIRM_SUCCESS');
7151: wsh_util_core.add_message(x_return_status);
7152: else
7153: FND_MESSAGE.SET_NAME('WSH', 'WSH_ONE_DEL_CONFIRM_SUCCESS');
7154: wsh_util_core.add_message(x_return_status);
7155: end if;
7156: END IF;
7157:
7158: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7154: wsh_util_core.add_message(x_return_status);
7155: end if;
7156: END IF;
7157:
7158: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7159: x_msg_rec_count => l_msg_rec_count,
7160: x_return_status => l_return_status);
7161: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7162: raise ship_confirm_error;
7157:
7158: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7159: x_msg_rec_count => l_msg_rec_count,
7160: x_return_status => l_return_status);
7161: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
7162: raise ship_confirm_error;
7163: END IF;
7164:
7165: --
7179: IF (get_delivery_name%ISOPEN) THEN
7180: CLOSE get_delivery_name;
7181: END IF;
7182:
7183: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7184: --
7185: IF l_debug_on THEN
7186: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7187: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
7205: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7206: END IF;
7207: --
7208: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
7209: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7210: wsh_util_core.add_message(x_return_status);
7211: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7212: x_msg_rec_count => l_msg_rec_count,
7213: x_return_status => l_return_status);
7206: END IF;
7207: --
7208: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
7209: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7210: wsh_util_core.add_message(x_return_status);
7211: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7212: x_msg_rec_count => l_msg_rec_count,
7213: x_return_status => l_return_status);
7214:
7207: --
7208: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
7209: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7210: wsh_util_core.add_message(x_return_status);
7211: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7212: x_msg_rec_count => l_msg_rec_count,
7213: x_return_status => l_return_status);
7214:
7215: --
7230: CLOSE get_delivery_name;
7231: END IF;
7232:
7233: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
7234: wsh_util_core.add_message(x_return_status);
7235: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7236: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7237: x_msg_rec_count => l_msg_rec_count,
7238: x_return_status => l_return_status);
7231: END IF;
7232:
7233: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
7234: wsh_util_core.add_message(x_return_status);
7235: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7236: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7237: x_msg_rec_count => l_msg_rec_count,
7238: x_return_status => l_return_status);
7239:
7232:
7233: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LOCK_ERR');
7234: wsh_util_core.add_message(x_return_status);
7235: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7236: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7237: x_msg_rec_count => l_msg_rec_count,
7238: x_return_status => l_return_status);
7239:
7240: --
7257:
7258: IF get_del_first_trip%isopen THEN
7259: CLOSE get_del_first_trip;
7260: END IF;
7261: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.CONFIRM_DELIVERY');
7262: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7263:
7264: --
7265: -- Debug Statements
7258: IF get_del_first_trip%isopen THEN
7259: CLOSE get_del_first_trip;
7260: END IF;
7261: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.CONFIRM_DELIVERY');
7262: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7263:
7264: --
7265: -- Debug Statements
7266: --
7267: IF l_debug_on THEN
7268: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR : ' || SQLERRM );
7269: END IF;
7270: --
7271: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7272: x_msg_rec_count => l_msg_rec_count,
7273: x_return_status => l_return_status);
7274:
7275: --
7322: l_msg_count NUMBER;
7323: l_msg_data VARCHAR2(4000);
7324: l_return_status VARCHAR2(1);
7325:
7326: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
7327: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
7328:
7329: --/== Workflow Changes
7330: l_org_id NUMBER;
7329: --/== Workflow Changes
7330: l_org_id NUMBER;
7331: l_wf_rs VARCHAR2(1);
7332: l_override_wf VARCHAR2(1);
7333: l_del_entity_ids WSH_UTIL_CORE.column_tab_type;
7334: l_purged_count NUMBER;
7335: --==/
7336:
7337: -- LPN CONV. rv
7387: END IF;
7388: --
7389: l_user_id := FND_GLOBAL.user_id;
7390: l_login_id := FND_GLOBAL.login_id;
7391: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7392: l_num_warnings := 0;
7393: l_num_errors := 0;
7394:
7395: --
7457: IF l_debug_on THEN
7458: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status ' || l_return_status);
7459: END IF;
7460: --
7461: WSH_UTIL_CORE.API_POST_CALL
7462: (
7463: p_return_status => l_return_status,
7464: x_num_warnings => l_num_warnings,
7465: x_num_errors => l_num_errors
7484: IF l_debug_on THEN
7485: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status ' || l_return_status);
7486: END IF;
7487: --
7488: WSH_UTIL_CORE.API_POST_CALL
7489: (
7490: p_return_status => l_return_status,
7491: x_num_warnings => l_num_warnings,
7492: x_num_errors => l_num_errors
7533: IF l_debug_on THEN
7534: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
7535: END IF;
7536: -- Only Handle Unexpected error
7537: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
7538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7539: END IF;
7540: -- End of Code for DBI Project
7541: --
7557: THEN
7558: --{
7559: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
7560: l_num_errors := l_num_errors + 1;
7561: wsh_util_core.add_message(x_return_status,l_module_name);
7562: --}
7563: ELSE
7564: --/== Workflow Changes
7565: l_del_entity_ids(1) := p_in_rec.delivery_id;
7626: --tkt
7627: p_caller => p_in_rec.caller
7628: ) ;
7629:
7630: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
7631: x_return_status := l_return_status;
7632: wsh_util_core.add_message(x_return_status);
7633: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7634: l_num_errors := l_num_errors + 1;
7628: ) ;
7629:
7630: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
7631: x_return_status := l_return_status;
7632: wsh_util_core.add_message(x_return_status);
7633: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7634: l_num_errors := l_num_errors + 1;
7635: RAISE FND_API.G_EXC_ERROR;
7636: ELSE
7629:
7630: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
7631: x_return_status := l_return_status;
7632: wsh_util_core.add_message(x_return_status);
7633: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7634: l_num_errors := l_num_errors + 1;
7635: RAISE FND_API.G_EXC_ERROR;
7636: ELSE
7637: l_num_warnings := l_num_warnings + 1 ;
7639: END IF;
7640:
7641: IF l_num_errors > 0
7642: THEN
7643: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7644: ELSIF l_num_warnings > 0
7645: THEN
7646: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7647: ELSE
7642: THEN
7643: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7644: ELSIF l_num_warnings > 0
7645: THEN
7646: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7647: ELSE
7648: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7649: END IF;
7650: --
7644: ELSIF l_num_warnings > 0
7645: THEN
7646: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7647: ELSE
7648: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7649: END IF;
7650: --
7651: --
7652: --
7662: WHEN FND_API.G_EXC_ERROR THEN
7663:
7664: --ROLLBACK TO dlvy_setInTransit_begin_sp;
7665: --
7666: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7667: --
7668: IF l_debug_on THEN
7669: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7670: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
7673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7674:
7675: --ROLLBACK TO dlvy_setInTransit_begin_sp;
7676: --
7677: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
7678: --
7679: IF l_debug_on THEN
7680: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7681: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7680: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7681: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7682: END IF;
7683: --
7684: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
7685: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7686: --
7687: IF l_debug_on THEN
7688: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7681: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7682: END IF;
7683: --
7684: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
7685: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7686: --
7687: IF l_debug_on THEN
7688: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7689: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7684: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
7685: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7686: --
7687: IF l_debug_on THEN
7688: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7689: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7690: END IF;
7691: WHEN others THEN
7692: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setInTransit',l_module_name);
7685: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7686: --
7687: IF l_debug_on THEN
7688: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7689: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7690: END IF;
7691: WHEN others THEN
7692: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setInTransit',l_module_name);
7693: --
7688: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7689: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7690: END IF;
7691: WHEN others THEN
7692: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setInTransit',l_module_name);
7693: --
7694: --ROLLBACK TO dlvy_setInTransit_begin_sp;
7695: --
7696: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7692: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setInTransit',l_module_name);
7693: --
7694: --ROLLBACK TO dlvy_setInTransit_begin_sp;
7695: --
7696: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7697: --
7698: -- Debug Statements
7699: --
7700: IF l_debug_on THEN
7749: --
7750: l_user_id NUMBER;
7751: l_login_id NUMBER;
7752: l_cnt NUMBER := 0;
7753: l_stop_rows wsh_util_core.id_tab_type;
7754:
7755: l_msg_count NUMBER;
7756: l_msg_data VARCHAR2(4000);
7757:
7758: --/== Workflow Changes
7759: l_org_id NUMBER;
7760: l_wf_rs VARCHAR2(1);
7761: l_override_wf VARCHAR2(1);
7762: l_del_entity_ids WSH_UTIL_CORE.column_tab_type;
7763: l_purged_count NUMBER;
7764: --==/
7765:
7766: l_gc3_is_installed VARCHAR2(1); --OTM R12
7797: END IF;
7798: --
7799: l_user_id := FND_GLOBAL.user_id;
7800: l_login_id := FND_GLOBAL.login_id;
7801: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7802: l_num_warnings := 0;
7803: l_num_errors := 0;
7804: --
7805: --OTM R12
7802: l_num_warnings := 0;
7803: l_num_errors := 0;
7804: --
7805: --OTM R12
7806: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
7807:
7808: IF l_gc3_is_installed IS NULL THEN
7809: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
7810: END IF;
7805: --OTM R12
7806: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
7807:
7808: IF l_gc3_is_installed IS NULL THEN
7809: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
7810: END IF;
7811: --
7812: --
7813: UPDATE wsh_new_deliveries
7836: --
7837: IF (SQL%NOTFOUND)
7838: THEN
7839: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
7840: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
7841: RAISE FND_API.G_EXC_ERROR;
7842: END IF;
7843: --
7844:
7890: p_logging_entity_name => 'DELIVERY',
7891: p_consider_content => 'Y'
7892: ) ;
7893:
7894: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
7895: x_return_status := l_return_status;
7896: wsh_util_core.add_message(x_return_status);
7897: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7898: l_num_errors := l_num_errors + 1;
7892: ) ;
7893:
7894: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
7895: x_return_status := l_return_status;
7896: wsh_util_core.add_message(x_return_status);
7897: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7898: l_num_errors := l_num_errors + 1;
7899: RAISE FND_API.G_EXC_ERROR;
7900: ELSE
7893:
7894: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
7895: x_return_status := l_return_status;
7896: wsh_util_core.add_message(x_return_status);
7897: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
7898: l_num_errors := l_num_errors + 1;
7899: RAISE FND_API.G_EXC_ERROR;
7900: ELSE
7901: l_num_warnings := l_num_warnings + 1 ;
7941: --tkt
7942: p_caller => p_in_rec.caller
7943: );
7944: --
7945: wsh_util_core.api_post_call
7946: (
7947: p_return_status => l_return_status,
7948: x_num_warnings => l_num_warnings,
7949: x_num_errors => l_num_errors
7956: END IF;
7957: --
7958: IF l_num_errors > 0
7959: THEN
7960: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7961: ELSIF l_num_warnings > 0
7962: THEN
7963: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7964: ELSE
7959: THEN
7960: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7961: ELSIF l_num_warnings > 0
7962: THEN
7963: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7964: ELSE
7965: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7966: END IF;
7967: --
7961: ELSIF l_num_warnings > 0
7962: THEN
7963: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7964: ELSE
7965: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7966: END IF;
7967: --
7968: --
7969: --
7980: WHEN FND_API.G_EXC_ERROR THEN
7981:
7982: --ROLLBACK TO dlvy_close_begin_sp;
7983: --
7984: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7985: --
7986: IF l_debug_on THEN
7987: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7988: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
7991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7992:
7993: --ROLLBACK TO dlvy_close_begin_sp;
7994: --
7995: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
7996: --
7997: IF l_debug_on THEN
7998: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7999: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7998: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7999: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8000: END IF;
8001: --
8002: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8003: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8004: --
8005: IF l_debug_on THEN
8006: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7999: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8000: END IF;
8001: --
8002: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8003: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8004: --
8005: IF l_debug_on THEN
8006: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8007: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8002: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8003: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8004: --
8005: IF l_debug_on THEN
8006: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8007: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8008: END IF;
8009: WHEN others THEN
8010: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setClose',l_module_name);
8003: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8004: --
8005: IF l_debug_on THEN
8006: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8007: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8008: END IF;
8009: WHEN others THEN
8010: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setClose',l_module_name);
8011: --
8006: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8007: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8008: END IF;
8009: WHEN others THEN
8010: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setClose',l_module_name);
8011: --
8012: --ROLLBACK TO dlvy_close_begin_sp;
8013: --
8014: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8010: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setClose',l_module_name);
8011: --
8012: --ROLLBACK TO dlvy_close_begin_sp;
8013: --
8014: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8015: --
8016: -- Debug Statements
8017: --
8018: IF l_debug_on THEN
8024: -- J-IB-NPARIKH---}
8025:
8026:
8027:
8028: PROCEDURE change_Status ( p_del_rows IN wsh_util_core.id_tab_type,
8029: p_action IN VARCHAR2,
8030: p_actual_date IN DATE,
8031: x_return_status OUT NOCOPY VARCHAR2,
8032: p_caller IN VARCHAR2) IS
8051: trip_cnt NUMBER;
8052: l_old_status VARCHAR2(2);
8053: l_name VARCHAR2(30);
8054: l_status_code VARCHAR2(2);
8055: l_del_rows wsh_util_core.id_tab_type;
8056:
8057: l_delivery_id NUMBER;
8058: l_stop_rows wsh_util_core.id_tab_type;
8059:
8054: l_status_code VARCHAR2(2);
8055: l_del_rows wsh_util_core.id_tab_type;
8056:
8057: l_delivery_id NUMBER;
8058: l_stop_rows wsh_util_core.id_tab_type;
8059:
8060: l_manual_flag VARCHAR2(1);
8061: l_close_rs VARCHAR2(1);
8062:
8111: --
8112: --
8113: l_user_id := FND_GLOBAL.user_id;
8114: l_login_id := FND_GLOBAL.login_id;
8115: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8116: --
8117: l_num_warnings := 0;
8118: l_num_errors := 0;
8119: l_num_dels_processed := 0;
8147: -- J-IB-NPARIKH---{
8148: IF (del_status%NOTFOUND)
8149: THEN
8150: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
8151: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8152: --CLOSE del_status;
8153: l_num_errors := l_num_errors + 1;
8154: RAISE FND_API.G_EXC_ERROR;
8155: END IF;
8190: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8191: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
8192: END IF;
8193: --
8194: WSH_UTIL_CORE.api_post_call
8195: (
8196: p_return_status => l_return_status,
8197: x_num_warnings => l_num_warnings,
8198: x_num_errors => l_num_errors
8206: l_num_warnings := l_num_warnings + 1;
8207: ELSIF l_Allowed = 'NW'
8208: THEN
8209: l_num_warnings := l_num_warnings + 1;
8210: RAISE wsh_util_core.g_exc_warning;
8211: ELSE
8212: l_num_errors := l_num_errors + 1;
8213: RAISE FND_API.G_EXC_ERROR;
8214: END IF;
8227: IF l_debug_on THEN
8228: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8229: END IF;
8230: --
8231: WSH_UTIL_CORE.api_post_call
8232: (
8233: p_return_status => l_return_status,
8234: x_num_warnings => l_num_warnings,
8235: x_num_errors => l_num_errors
8268: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8269: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
8270: END IF;
8271: --
8272: WSH_UTIL_CORE.api_post_call
8273: (
8274: p_return_status => l_return_status,
8275: x_num_warnings => l_num_warnings,
8276: x_num_errors => l_num_errors
8284: l_num_warnings := l_num_warnings + 1;
8285: ELSIF l_Allowed = 'NW'
8286: THEN
8287: l_num_warnings := l_num_warnings + 1;
8288: RAISE wsh_util_core.g_exc_warning;
8289: ELSE
8290: l_num_errors := l_num_errors + 1;
8291: RAISE FND_API.G_EXC_ERROR;
8292: END IF;
8305: IF l_debug_on THEN
8306: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8307: END IF;
8308: --
8309: WSH_UTIL_CORE.api_post_call
8310: (
8311: p_return_status => l_return_status,
8312: x_num_warnings => l_num_warnings,
8313: x_num_errors => l_num_errors
8328: END IF;
8329: --
8330: wsh_delivery_validations.check_pack(p_del_rows(i), l_return_status);
8331: --
8332: WSH_UTIL_CORE.api_post_call
8333: (
8334: p_return_status => l_return_status,
8335: x_num_warnings => l_num_warnings,
8336: x_num_errors => l_num_errors
8365:
8366: wsh_delivery_validations.check_reopen(p_del_rows(i), l_return_status);
8367:
8368: --
8369: WSH_UTIL_CORE.api_post_call
8370: (
8371: p_return_status => l_return_status,
8372: x_num_warnings => l_num_warnings,
8373: x_num_errors => l_num_errors
8382: wsh_debug_sv.log (l_module_name, 'Return status from get warehouse type', l_return_status);
8383: wsh_debug_sv.log (l_module_name, 'Warehouse type ', l_warehouse_type);
8384: END IF;
8385:
8386: WSH_UTIL_CORE.api_post_call (
8387: p_return_status => l_return_status,
8388: x_num_warnings => l_num_warnings,
8389: x_num_errors => l_num_errors);
8390:
8409: where delivery_id = p_del_rows(i);
8410:
8411: IF (SQL%NOTFOUND) THEN
8412: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
8413: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8414: l_num_errors := l_num_errors + 1;
8415: RAISE FND_API.G_EXC_ERROR;
8416: END IF;
8417:
8468: --
8469: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CHANGE_STATUS_ERROR');
8470: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_name);
8471: --
8472: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8473: --}
8474: WHEN wsh_util_core.g_exc_warning
8475: THEN
8476: --{
8470: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_name);
8471: --
8472: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
8473: --}
8474: WHEN wsh_util_core.g_exc_warning
8475: THEN
8476: --{
8477: ROLLBACK TO dlvy_chg_status_sp;
8478: --
8478: --
8479: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CHANGE_STATUS_ERROR');
8480: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_name);
8481: --
8482: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_WARNING,l_module_name);
8483: --}
8484: --}
8485: END;
8486: --}
8488: --
8489: --
8490: IF l_num_dels_processed = 0
8491: THEN
8492: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8493: ELSIF l_num_dels_processed < p_del_rows.count
8494: THEN
8495: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8496: ELSIF l_num_warnings > 0
8491: THEN
8492: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8493: ELSIF l_num_dels_processed < p_del_rows.count
8494: THEN
8495: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8496: ELSIF l_num_warnings > 0
8497: THEN
8498: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8499: ELSE
8494: THEN
8495: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8496: ELSIF l_num_warnings > 0
8497: THEN
8498: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8499: ELSE
8500: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8501: END IF;
8502: --
8496: ELSIF l_num_warnings > 0
8497: THEN
8498: l_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8499: ELSE
8500: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8501: END IF;
8502: --
8503: x_return_status := l_return_status;
8504: --
8506: THEN
8507: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CHANGE_STATUS_SUMMARY');
8508: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',l_num_dels_processed);
8509: FND_MESSAGE.SET_TOKEN('NUM_ERROR',p_del_rows.count - l_num_dels_processed);
8510: wsh_util_core.add_message(l_return_status,l_module_name);
8511: END IF;
8512: --
8513: -- Debug Statements
8514: --
8519: EXCEPTION
8520: WHEN FND_API.G_EXC_ERROR THEN
8521: ROLLBACK TO dlvy_chg_status_begin_sp;
8522: --
8523: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8524: --
8525: IF l_debug_on THEN
8526: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8527: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
8530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8531:
8532: ROLLBACK TO dlvy_chg_status_begin_sp;
8533: --
8534: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8535: --
8536: IF l_debug_on THEN
8537: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8538: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8537: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8538: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8539: END IF;
8540: --
8541: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8542: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8543: --
8544: IF l_debug_on THEN
8545: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8538: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8539: END IF;
8540: --
8541: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8542: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8543: --
8544: IF l_debug_on THEN
8545: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8546: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8541: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8542: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8543: --
8544: IF l_debug_on THEN
8545: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8546: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8547: END IF;
8548: --
8549: WHEN others THEN
8542: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8543: --
8544: IF l_debug_on THEN
8545: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8546: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8547: END IF;
8548: --
8549: WHEN others THEN
8550:
8547: END IF;
8548: --
8549: WHEN others THEN
8550:
8551: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.CHANGE_STATUS',l_module_name);
8552: ROLLBACK TO dlvy_chg_status_begin_sp;
8553: --
8554: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8555:
8550:
8551: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.CHANGE_STATUS',l_module_name);
8552: ROLLBACK TO dlvy_chg_status_begin_sp;
8553: --
8554: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8555:
8556: --
8557: -- Debug Statements
8558: --
8638: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8639: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
8640: END IF;
8641: --
8642: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8643: x_leg_complete := 'N';
8644:
8645:
8646: OPEN delivery_info;
8648:
8649: IF (delivery_info%NOTFOUND) THEN
8650: CLOSE delivery_info;
8651:
8652: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8653: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
8654: wsh_util_core.add_message(x_return_status);
8655:
8656:
8650: CLOSE delivery_info;
8651:
8652: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8653: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
8654: wsh_util_core.add_message(x_return_status);
8655:
8656:
8657: IF l_debug_on THEN
8658: WSH_DEBUG_SV.pop(l_module_name);
8704: SET sequence_number = l_seq_num * 10
8705: WHERE delivery_leg_id = l_leg_id;
8706:
8707: IF (SQL%NOTFOUND) THEN
8708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8709:
8710: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
8711: wsh_util_core.add_message(x_return_status);
8712:
8707: IF (SQL%NOTFOUND) THEN
8708: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8709:
8710: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
8711: wsh_util_core.add_message(x_return_status);
8712:
8713: IF l_debug_on THEN
8714: WSH_DEBUG_SV.pop(l_module_name);
8715: END IF;
8726:
8727: IF (p_insert_msg) THEN
8728: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_MULTIPLE_LEGS');
8729: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
8730: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8731: END IF;
8732:
8733: IF l_debug_on THEN
8734: WSH_DEBUG_SV.pop(l_module_name);
8745: IF (l_count > 1) THEN
8746: IF (p_insert_msg) THEN
8747: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_MULTIPLE_LEGS');
8748: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
8749: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8750: END IF;
8751:
8752: IF l_debug_on THEN
8753: WSH_DEBUG_SV.pop(l_module_name);
8765:
8766: IF (p_insert_msg) THEN
8767: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_INVALID_FLOW');
8768: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
8769: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8770: END IF;
8771: --
8772: IF l_debug_on THEN
8773: WSH_DEBUG_SV.pop(l_module_name);
8782:
8783: IF (p_insert_msg) THEN
8784: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NO_ULTIMATE_DROPOFF');
8785: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
8786: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8787: END IF;
8788: RETURN;
8789: END IF;
8790:
8796: END IF;
8797: --
8798: EXCEPTION
8799: WHEN others THEN
8800: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Complete_Leg_Sequence');
8801: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8802:
8803: IF l_debug_on THEN
8804: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8797: --
8798: EXCEPTION
8799: WHEN others THEN
8800: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Complete_Leg_Sequence');
8801: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8802:
8803: IF l_debug_on THEN
8804: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8805: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8847: WSH_DEBUG_SV.log(l_module_name,'l_leg_count',l_leg_count);
8848: WSH_DEBUG_SV.log(l_module_name,'l_leg_complete',l_leg_complete);
8849: END IF;
8850:
8851: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8852: IF (l_leg_complete='NW') THEN
8853: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8854: ELSIF (l_leg_complete='Y') THEN
8855: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8849: END IF;
8850:
8851: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8852: IF (l_leg_complete='NW') THEN
8853: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8854: ELSIF (l_leg_complete='Y') THEN
8855: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8856: ELSIF (l_leg_complete='N') THEN
8857: IF (l_leg_count IS NULL or l_leg_count=0) THEN
8851: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
8852: IF (l_leg_complete='NW') THEN
8853: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8854: ELSIF (l_leg_complete='Y') THEN
8855: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8856: ELSIF (l_leg_complete='N') THEN
8857: IF (l_leg_count IS NULL or l_leg_count=0) THEN
8858: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8859: ELSE
8854: ELSIF (l_leg_complete='Y') THEN
8855: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8856: ELSIF (l_leg_complete='N') THEN
8857: IF (l_leg_count IS NULL or l_leg_count=0) THEN
8858: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8859: ELSE
8860: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8861: END IF;
8862: END IF;
8856: ELSIF (l_leg_complete='N') THEN
8857: IF (l_leg_count IS NULL or l_leg_count=0) THEN
8858: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8859: ELSE
8860: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8861: END IF;
8862: END IF;
8863: ELSE
8864: x_return_status:= l_return_status;
8871: END IF;
8872: --
8873: EXCEPTION
8874: WHEN others THEN
8875: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE');
8876: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8877:
8878: IF l_debug_on THEN
8879: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8872: --
8873: EXCEPTION
8874: WHEN others THEN
8875: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE');
8876: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8877:
8878: IF l_debug_on THEN
8879: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8880: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8928: WSH_DEBUG_SV.log(l_module_name,'l_leg_count',l_leg_count);
8929: WSH_DEBUG_SV.log(l_module_name,'l_leg_complete',l_leg_complete);
8930: END IF;
8931:
8932: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
8933: IF (l_leg_complete = 'Y' ) THEN
8934: x_leg_complete := true;
8935: l_update_flag:='Y';
8936: ELSE
8961: END IF;
8962: --
8963: EXCEPTION
8964: WHEN others THEN
8965: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE');
8966: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8967:
8968: IF l_debug_on THEN
8969: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8962: --
8963: EXCEPTION
8964: WHEN others THEN
8965: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE');
8966: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8967:
8968: IF l_debug_on THEN
8969: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8970: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8980: -- Description: This procedure is used to generate loading sequence for deliveries
8981: --
8982:
8983: PROCEDURE Generate_Loading_Seq
8984: (p_del_rows IN wsh_util_core.id_tab_type,
8985: x_return_status OUT NOCOPY VARCHAR2) IS
8986:
8987: CURSOR loading_order (l_delivery_id NUMBER) IS
8988: SELECT loading_order_flag
9059: IF l_debug_on THEN
9060: WSH_DEBUG_SV.push(l_module_name);
9061: END IF;
9062: --
9063: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9064:
9065: IF (p_del_rows.count = 0) THEN
9066: raise others;
9067: END IF;
9083: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9084: END IF;
9085: --
9086: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9087: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9088: wsh_util_core.add_message(x_return_status);
9089: l_num_error := l_num_error + 1;
9090: goto loop_end;
9091: END IF;
9084: END IF;
9085: --
9086: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9087: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9088: wsh_util_core.add_message(x_return_status);
9089: l_num_error := l_num_error + 1;
9090: goto loop_end;
9091: END IF;
9092:
9156: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9157: END IF;
9158: --
9159: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9160: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9161: wsh_util_core.add_message(x_return_status);
9162: l_num_error := l_num_error + 1;
9163: EXIT;
9164: END IF;
9157: END IF;
9158: --
9159: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9160: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9161: wsh_util_core.add_message(x_return_status);
9162: l_num_error := l_num_error + 1;
9163: EXIT;
9164: END IF;
9165:
9178: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9179: END IF;
9180: --
9181: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9182: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9183: wsh_util_core.add_message(x_return_status);
9184: l_num_error := l_num_error + 1;
9185: END IF;
9186:
9179: END IF;
9180: --
9181: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9182: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9183: wsh_util_core.add_message(x_return_status);
9184: l_num_error := l_num_error + 1;
9185: END IF;
9186:
9187:
9200: FND_MESSAGE.SET_TOKEN('NUM_ERROR',l_num_error);
9201: FND_MESSAGE.SET_TOKEN('NUM_SUCCESS',p_del_rows.count - l_num_error);
9202:
9203: IF (p_del_rows.count = l_num_error) THEN
9204: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9205: ELSE
9206: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9207: END IF;
9208:
9202:
9203: IF (p_del_rows.count = l_num_error) THEN
9204: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9205: ELSE
9206: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9207: END IF;
9208:
9209: wsh_util_core.add_message(x_return_status);
9210: END IF;
9205: ELSE
9206: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
9207: END IF;
9208:
9209: wsh_util_core.add_message(x_return_status);
9210: END IF;
9211: END IF;
9212:
9213: --
9224: END IF;
9225: IF (detailinfo_cv%ISOPEN) THEN
9226: CLOSE detailinfo_cv;
9227: END IF;
9228: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.GENERATE_LOADING_SEQ');
9229: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9230:
9231: --
9232: -- Debug Statements
9225: IF (detailinfo_cv%ISOPEN) THEN
9226: CLOSE detailinfo_cv;
9227: END IF;
9228: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.GENERATE_LOADING_SEQ');
9229: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9230:
9231: --
9232: -- Debug Statements
9233: --
9287: END IF;
9288: --
9289: wsh_new_deliveries_pvt.populate_record( p_delivery_id, l_del_info, x_return_status);
9290:
9291: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
9292: --
9293: -- Debug Statements
9294: --
9295: IF l_debug_on THEN
9453: wsh_debug_sv.LOG(l_module_name, 'p_action_code', p_action_code);
9454: wsh_debug_sv.LOG(l_module_name, 'p_line_freight_terms_Code', p_line_freight_terms_Code);
9455: END IF;
9456: --
9457: x_return_status := wsh_util_core.g_ret_sts_success;
9458: --
9459: --
9460: IF p_delivery_id IS NULL
9461: THEN
9674: --
9675: IF (SQL%NOTFOUND)
9676: THEN
9677: --{
9678: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9679: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
9680: RAISE FND_API.G_EXC_ERROR;
9681: --}
9682: END IF;
9712: --
9713: IF (SQL%NOTFOUND)
9714: THEN
9715: --{
9716: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9717: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
9718: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9719: --}
9720: END IF;
9714: THEN
9715: --{
9716: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9717: fnd_message.SET_name('WSH', 'WSH_DET_INVALID_DEL');
9718: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9719: --}
9720: END IF;
9721: --
9722: IF l_debug_on
9723: THEN
9724: WSH_DEBUG_SV.pop(l_module_name);
9725: END IF;
9726: WHEN FND_API.G_EXC_ERROR THEN
9727: x_return_status := wsh_util_core.g_ret_sts_error;
9728: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9729: --
9730: IF l_debug_on
9731: THEN
9724: WSH_DEBUG_SV.pop(l_module_name);
9725: END IF;
9726: WHEN FND_API.G_EXC_ERROR THEN
9727: x_return_status := wsh_util_core.g_ret_sts_error;
9728: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9729: --
9730: IF l_debug_on
9731: THEN
9732: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
9731: THEN
9732: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
9733: END IF;
9734: WHEN e_locked THEN
9735: x_return_status := wsh_util_core.g_ret_sts_error;
9736:
9737: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
9738: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', l_name);
9739: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9735: x_return_status := wsh_util_core.g_ret_sts_error;
9736:
9737: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
9738: FND_MESSAGE.SET_TOKEN('ENTITY_NAME', l_name);
9739: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9740: --
9741: IF l_debug_on
9742: THEN
9743: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:e_locked');
9743: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:e_locked');
9744: END IF;
9745: WHEN OTHERS THEN
9746: x_return_status := fnd_api.g_ret_sts_unexp_error;
9747: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.update_freight_terms',l_module_name);
9748: --
9749: IF l_debug_on THEN
9750: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
9751: END IF;
9831:
9832: -- J+ Internal Location
9833: l_physical_stop_id WSH_TRIP_STOPS.physical_stop_id%TYPE;
9834: l_physical_location_id WSH_TRIP_STOPS.physical_location_id%TYPE;
9835: l_trip_id_tab wsh_util_core.id_tab_type;
9836: l_success_trip_ids wsh_util_core.id_tab_type;
9837: -- End of J+ Internal Location
9838: l_stop_rec WSH_TRIP_STOPS_PVT.TRIP_STOP_REC_TYPE;
9839: l_pub_stop_rec WSH_TRIP_STOPS_PUB.TRIP_STOP_PUB_REC_TYPE;
9832: -- J+ Internal Location
9833: l_physical_stop_id WSH_TRIP_STOPS.physical_stop_id%TYPE;
9834: l_physical_location_id WSH_TRIP_STOPS.physical_location_id%TYPE;
9835: l_trip_id_tab wsh_util_core.id_tab_type;
9836: l_success_trip_ids wsh_util_core.id_tab_type;
9837: -- End of J+ Internal Location
9838: l_stop_rec WSH_TRIP_STOPS_PVT.TRIP_STOP_REC_TYPE;
9839: l_pub_stop_rec WSH_TRIP_STOPS_PUB.TRIP_STOP_PUB_REC_TYPE;
9840: l_trip_rec WSH_TRIPS_PVT.TRIP_REC_TYPE;
9860: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
9861: wsh_debug_sv.LOG(l_module_name, 'p_location_id', p_location_id);
9862: END IF;
9863: --
9864: x_return_status := wsh_util_core.g_ret_sts_success;
9865: --
9866: --
9867: IF p_delivery_id IS NULL
9868: THEN
9871: -- Delivery id is required field
9872: --
9873: FND_MESSAGE.SET_NAME('WSH', 'WSH_REQUIRED_FIELD_NULL');
9874: FND_MESSAGE.SET_TOKEN('FIELD_NAME', 'p_delivery_id');
9875: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9876: --
9877: RAISE FND_API.G_EXC_ERROR;
9878: --}
9879: END IF;
9887: THEN
9888: --{
9889: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NOT_EXIST');
9890: FND_MESSAGE.SET_TOKEN('DELIVERY_ID', p_delivery_id);
9891: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9892: --
9893: RAISE FND_API.G_EXC_ERROR;
9894: --}
9895: END IF;
9894: --}
9895: END IF;
9896: --
9897: --
9898: IF l_dlvy_rec.initial_pickup_location_id = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
9899: AND l_dlvy_rec.initial_pickup_location_id <> p_location_id
9900: THEN
9901: --{
9902: --
9943: (p_stop_id => stop_rec.stop_id,
9944: x_stop_rec => l_stop_rec,
9945: x_return_status => l_return_status);
9946: --
9947: wsh_util_core.api_post_call
9948: (
9949: p_return_status => l_return_status,
9950: x_num_warnings => l_num_warnings,
9951: x_num_errors => l_num_errors
9977: END IF;
9978: -- End of Internal Locations J+
9979: --
9980: /* H integration - call Multi Leg FTE */
9981: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y') THEN
9982: -- Code changes made in J+ along with Internal Locations
9983: -- Update the Input record structure which FTE uses to validate
9984: -- the new stop location
9985: l_stop_rec.stop_location_id := p_location_id;
9993: p_trip_rec => l_trip_rec,
9994: p_action => 'UPDATE',
9995: x_return_status => l_return_status);
9996: --
9997: wsh_util_core.api_post_call
9998: (
9999: p_return_status => l_return_status,
10000: x_num_warnings => l_num_warnings,
10001: x_num_errors => l_num_errors
10029: p_caller => 'WSH_UPDATE_SHIP_FROM_LOC',
10030: x_success_trip_ids => l_success_trip_ids,
10031: x_return_status => l_return_status);
10032:
10033: wsh_util_core.api_post_call(
10034: p_return_status => l_return_status,
10035: x_num_warnings => l_num_warnings,
10036: x_num_errors => l_num_errors);
10037: -- End of Internal Locations J+
10070: IF l_location_name IS NULL
10071: THEN
10072: --{
10073: IF l_debug_on THEN
10074: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_location_description',WSH_DEBUG_SV.C_PROC_LEVEL);
10075: END IF;
10076: --
10077: l_location_name := SUBSTRB(
10078: WSH_UTIL_CORE.get_location_description
10074: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_location_description',WSH_DEBUG_SV.C_PROC_LEVEL);
10075: END IF;
10076: --
10077: l_location_name := SUBSTRB(
10078: WSH_UTIL_CORE.get_location_description
10079: (
10080: p_location_id,
10081: 'NEW UI CODE'
10082: ),
10089: --
10090: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_PU_LOCN_UPDATE');
10091: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', pickup_dlvy_rec.name);
10092: FND_MESSAGE.SET_TOKEN('LOCATION_NAME', l_location_name);
10093: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_warning,l_module_name);
10094: l_num_warnings := l_num_warnings + 1;
10095: --}
10096: END LOOP;
10097: --}
10102: --
10103: --
10104: IF l_num_errors > 0
10105: THEN
10106: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10107: ELSIF l_num_warnings > 0
10108: THEN
10109: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10110: ELSE
10105: THEN
10106: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10107: ELSIF l_num_warnings > 0
10108: THEN
10109: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10110: ELSE
10111: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10112: END IF;
10113: --
10107: ELSIF l_num_warnings > 0
10108: THEN
10109: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10110: ELSE
10111: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10112: END IF;
10113: --
10114: IF l_debug_on THEN
10115: wsh_debug_sv.pop(l_module_name);
10121: --
10122: WHEN FND_API.G_EXC_ERROR THEN
10123:
10124: ROLLBACK TO update_ship_from_location_sp;
10125: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10126: --
10127: IF l_debug_on THEN
10128: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10129: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10131: --
10132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10133:
10134: ROLLBACK TO update_ship_from_location_sp;
10135: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10136: --
10137: IF l_debug_on THEN
10138: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10139: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10138: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10139: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10140: END IF;
10141: --
10142: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10143: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10144: --
10145: IF l_debug_on THEN
10146: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10139: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10140: END IF;
10141: --
10142: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10143: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10144: --
10145: IF l_debug_on THEN
10146: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10147: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10142: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10143: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10144: --
10145: IF l_debug_on THEN
10146: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10147: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10148: END IF;
10149: --
10150: WHEN OTHERS THEN
10143: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10144: --
10145: IF l_debug_on THEN
10146: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10147: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10148: END IF;
10149: --
10150: WHEN OTHERS THEN
10151:
10149: --
10150: WHEN OTHERS THEN
10151:
10152: ROLLBACK TO update_ship_from_location_sp;
10153: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10154: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.update_ship_from_location', l_module_name);
10155: IF l_debug_on THEN
10156: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10157: END IF;
10150: WHEN OTHERS THEN
10151:
10152: ROLLBACK TO update_ship_from_location_sp;
10153: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10154: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.update_ship_from_location', l_module_name);
10155: IF l_debug_on THEN
10156: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10157: END IF;
10158: --
10237:
10238: EXCEPTION
10239:
10240: WHEN OTHERS THEN
10241: wsh_util_core.default_handler('wsh_new_delivery_actions.check_last_del_trip',l_module_name);
10242: --
10243: IF l_debug_on THEN
10244: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
10245: END IF;
10405: END IF;
10406:
10407: EXCEPTION
10408: WHEN OTHERS THEN
10409: wsh_util_core.default_handler('wsh_new_delivery_actions.get_trip_status',l_module_name);
10410: --
10411: IF l_debug_on THEN
10412: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
10413: END IF;
10479: IF c_get_console_delivery%ISOPEN THEN
10480: CLOSE c_get_console_delivery;
10481: END IF;
10482:
10483: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.IS_DLVY_CONTENT');
10484: --
10485: IF l_debug_on THEN
10486: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10487: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10527: AND ACCT_SITE.PARTY_SITE_ID = PARTY_SITE.PARTY_SITE_ID
10528: AND PARTY_SITE.LOCATION_ID = LOC.LOCATION_ID
10529: AND LOC.LOCATION_ID = c_location_id;
10530:
10531: l_site_tab WSH_UTIL_CORE.ID_TAB_TYPE;
10532: multiple_ship_to_site EXCEPTION;
10533: no_ship_to_site EXCEPTION;
10534:
10535: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
10536: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_SHIP_TO_SITE';
10537:
10538: BEGIN
10539:
10540: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10541: --
10542: IF l_debug_on THEN
10543: wsh_debug_sv.push (l_module_name);
10544: END IF;
10583: wsh_debug_sv.logmsg(l_module_name, 'Delivery is not assoociated with a site');
10584: END IF;
10585: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NO_SITE');
10586: FND_MESSAGE.Set_Token('DELIVERY',p_delivery_id);
10587: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10588: WSH_UTIL_CORE.add_message(x_return_status);
10589:
10590: IF l_debug_on THEN
10591: WSH_DEBUG_SV.pop(l_module_name);
10584: END IF;
10585: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NO_SITE');
10586: FND_MESSAGE.Set_Token('DELIVERY',p_delivery_id);
10587: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10588: WSH_UTIL_CORE.add_message(x_return_status);
10589:
10590: IF l_debug_on THEN
10591: WSH_DEBUG_SV.pop(l_module_name);
10592: END IF;
10598: wsh_debug_sv.logmsg(l_module_name, 'Delivery is not assoociated with multiple sites');
10599: END IF;
10600: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_MULT_SITE');
10601: FND_MESSAGE.Set_Token('DELIVERY',p_delivery_id);
10602: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10603: WSH_UTIL_CORE.add_message(x_return_status);
10604:
10605: IF l_debug_on THEN
10606: WSH_DEBUG_SV.pop(l_module_name);
10599: END IF;
10600: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_MULT_SITE');
10601: FND_MESSAGE.Set_Token('DELIVERY',p_delivery_id);
10602: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10603: WSH_UTIL_CORE.add_message(x_return_status);
10604:
10605: IF l_debug_on THEN
10606: WSH_DEBUG_SV.pop(l_module_name);
10607: END IF;
10611: IF ( c_get_ship_to_site%ISOPEN) THEN
10612: CLOSE c_get_ship_to_site;
10613: END IF;
10614: --
10615: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.get_ship_to_site');
10616: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10617: --
10618:
10619: IF l_debug_on THEN
10612: CLOSE c_get_ship_to_site;
10613: END IF;
10614: --
10615: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.get_ship_to_site');
10616: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10617: --
10618:
10619: IF l_debug_on THEN
10620: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10664: WHERE wda.delivery_detail_id = wdd.delivery_detail_id
10665: AND wda.delivery_id = p_delivery_id);
10666:
10667:
10668: l_cust_tab WSH_UTIL_CORE.ID_TAB_TYPE;
10669: no_cust_for_loc EXCEPTION;
10670: mult_cust_for_loc EXCEPTION;
10671:
10672: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
10673: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_SHIP_TO_CUSTOMER';
10674:
10675: BEGIN
10676:
10677: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10678: --
10679: IF l_debug_on THEN
10680: wsh_debug_sv.push (l_module_name);
10681: END IF;
10720: END IF;
10721: -- Location not associated with a customer.
10722: FND_MESSAGE.SET_NAME('WSH','WSH_CUST_NO_LOC');
10723: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
10724: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10725: WSH_UTIL_CORE.add_message(x_return_status);
10726:
10727: IF l_debug_on THEN
10728: WSH_DEBUG_SV.pop(l_module_name);
10721: -- Location not associated with a customer.
10722: FND_MESSAGE.SET_NAME('WSH','WSH_CUST_NO_LOC');
10723: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
10724: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10725: WSH_UTIL_CORE.add_message(x_return_status);
10726:
10727: IF l_debug_on THEN
10728: WSH_DEBUG_SV.pop(l_module_name);
10729: END IF;
10733: wsh_debug_sv.logmsg(l_module_name, 'Location associated with multiple customers');
10734: END IF;
10735: FND_MESSAGE.SET_NAME('WSH','WSH_CUST_MULT_LOC');
10736: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
10737: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10738: WSH_UTIL_CORE.add_message(x_return_status);
10739:
10740: IF l_debug_on THEN
10741: WSH_DEBUG_SV.pop(l_module_name);
10734: END IF;
10735: FND_MESSAGE.SET_NAME('WSH','WSH_CUST_MULT_LOC');
10736: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
10737: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10738: WSH_UTIL_CORE.add_message(x_return_status);
10739:
10740: IF l_debug_on THEN
10741: WSH_DEBUG_SV.pop(l_module_name);
10742: END IF;
10748: IF (c_get_shipto_cust_from_dlvy%ISOPEN) THEN
10749: CLOSE c_get_shipto_cust_from_dlvy;
10750: END IF;
10751: --
10752: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.get_ship_to_customer');
10753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10754: --
10755: IF l_debug_on THEN
10756: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10749: CLOSE c_get_shipto_cust_from_dlvy;
10750: END IF;
10751: --
10752: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.get_ship_to_customer');
10753: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10754: --
10755: IF l_debug_on THEN
10756: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10757: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10820: AND SHIP_METHOD = p_ship_method;
10821:
10822: BEGIN
10823: --{
10824: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10825:
10826: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10827:
10828: --
11024: EXCEPTION
11025:
11026: WHEN OTHERS THEN
11027:
11028: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.SET_PICK_UP_DROP_OFF_DATES',l_module_name);
11029: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11030:
11031: IF get_transit_time%ISOPEN THEN
11032: CLOSE get_transit_time;
11025:
11026: WHEN OTHERS THEN
11027:
11028: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.SET_PICK_UP_DROP_OFF_DATES',l_module_name);
11029: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11030:
11031: IF get_transit_time%ISOPEN THEN
11032: CLOSE get_transit_time;
11033: END IF;
11112: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'FORMAT_DEL_UPDATE_TABLE';
11113: --
11114: BEGIN
11115:
11116: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11117: --
11118: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11119: --
11120: IF l_debug_on IS NULL
11487: WHEN OTHERS THEN
11488: x_rec_attr_tab.DELETE;
11489: l_error_code := SQLCODE;
11490: l_error_text := SQLERRM;
11491: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11492: --
11493: -- Debug Statements
11494: --
11495: IF l_debug_on THEN
11495: IF l_debug_on THEN
11496: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM WSH_NEW_DELIVERY_ACTIONS.FORMAT_DEL_UPDATE_TABLE IS ' ||l_error_text);
11497: END IF;
11498: --
11499: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.FORMAT_DEL_UPDATE_TABLE');
11500: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR);
11501: --
11502: -- Debug Statements
11503: --
11496: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM WSH_NEW_DELIVERY_ACTIONS.FORMAT_DEL_UPDATE_TABLE IS ' ||l_error_text);
11497: END IF;
11498: --
11499: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.FORMAT_DEL_UPDATE_TABLE');
11500: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR);
11501: --
11502: -- Debug Statements
11503: --
11504: IF l_debug_on THEN
11517: --
11518: END FORMAT_DEL_UPDATE_TABLE;
11519:
11520:
11521: PROCEDURE PROCESS_CARRIER_SELECTION(p_delivery_id_tab IN OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
11522: p_batch_id IN NUMBER,
11523: p_form_flag IN VARCHAR2,
11524: p_organization_id IN NUMBER DEFAULT NULL,
11525: p_caller IN VARCHAR2 DEFAULT NULL,
11551: NULL -- l_trip_id
11552: from wsh_new_deliveries
11553: where delivery_id = x_delivery_id
11554: and ship_method_code is null
11555: AND initial_pickup_location_id <> WSH_UTIL_CORE.C_NULL_SF_LOCN_ID -- J-IB-NPARIKH
11556: and planned_flag NOT IN ('Y','F');
11557:
11558: --
11559: -- cursor to get delivery info from the delivery table (for Pick Release Call)
11746: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
11747: END IF;
11748: --
11749:
11750: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11751: x_return_message := null;
11752:
11753: IF WSH_UTIL_CORE.FTE_Is_Installed <> 'Y' THEN
11754: return;
11749:
11750: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11751: x_return_message := null;
11752:
11753: IF WSH_UTIL_CORE.FTE_Is_Installed <> 'Y' THEN
11754: return;
11755: END IF;
11756:
11757: l_y_planned_flag := 'Y';
11771:
11772: END IF;
11773:
11774: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_INVALID_INPUT');
11775: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11776: WSH_UTIL_CORE.add_message(x_return_status);
11777: --
11778: -- Debug Statements
11779: --
11772: END IF;
11773:
11774: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_INVALID_INPUT');
11775: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11776: WSH_UTIL_CORE.add_message(x_return_status);
11777: --
11778: -- Debug Statements
11779: --
11780: IF l_debug_on THEN
11781: WSH_DEBUG_SV.logmsg(l_module_name, 'THE INPUT PARAMETERS ARE INVALID FOR THIS PROCEDURE' );
11782: END IF;
11783: --
11784:
11785: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11786: -- 2292513
11787: --
11788: -- Debug Statements
11789: --
11882: --
11883: -- [2003/01/29][I][ABLUNDEL][BUG# 2765987]
11884: -- Changed planned delivery to an ERROR from a WARNING
11885: --
11886: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11887: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11888: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_PLAN_DEL');
11889: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
11890: wsh_util_core.add_message(x_return_status);
11883: -- [2003/01/29][I][ABLUNDEL][BUG# 2765987]
11884: -- Changed planned delivery to an ERROR from a WARNING
11885: --
11886: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11887: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11888: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_PLAN_DEL');
11889: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
11890: wsh_util_core.add_message(x_return_status);
11891: --
11886: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11887: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11888: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_PLAN_DEL');
11889: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
11890: wsh_util_core.add_message(x_return_status);
11891: --
11892: -- Debug Statements
11893: --
11894: IF l_debug_on THEN
11901: l_trip_status := get_trip_status(l_dlvy_info_rec.l_delivery_id,l_dlvy_info_rec.l_delivery_type);
11902: -- Delivery is assigned to more than one trip
11903: IF (l_trip_status = 'MANY') THEN
11904:
11905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11906: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11907: IF (substr(p_caller,1,3) = 'FTE') THEN
11908: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_MANY_FTE');
11909: ELSE
11902: -- Delivery is assigned to more than one trip
11903: IF (l_trip_status = 'MANY') THEN
11904:
11905: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11906: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11907: IF (substr(p_caller,1,3) = 'FTE') THEN
11908: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_MANY_FTE');
11909: ELSE
11910: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_MANY');
11909: ELSE
11910: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_MANY');
11911: END IF;
11912: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
11913: wsh_util_core.add_message(x_return_status);
11914:
11915: IF l_debug_on THEN
11916: 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' );
11917: END IF;
11918:
11919: -- Trip to which this delivery is assigned has more than one deliveries
11920: ELSIF (l_trip_status = 'SHARED') THEN
11921:
11922: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11923: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11924: IF (substr(p_caller,1,3) = 'FTE') THEN
11925: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_SHARED_FTE');
11926: ELSE
11919: -- Trip to which this delivery is assigned has more than one deliveries
11920: ELSIF (l_trip_status = 'SHARED') THEN
11921:
11922: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11923: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11924: IF (substr(p_caller,1,3) = 'FTE') THEN
11925: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_SHARED_FTE');
11926: ELSE
11927: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_TRIP_SHARED');
11927: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_TRIP_SHARED');
11928: END IF;
11929:
11930: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
11931: wsh_util_core.add_message(x_return_status);
11932:
11933: IF l_debug_on THEN
11934: 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' );
11935: END IF;
11936:
11937: -- Trip to which this delivery is assigned has Lane/Service
11938: ELSIF (l_trip_status = 'HAS_LANE') THEN
11939:
11940: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11941: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11942:
11943: IF (substr(p_caller,1,3) = 'FTE') THEN
11944: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_HAS_LANE_FTE');
11937: -- Trip to which this delivery is assigned has Lane/Service
11938: ELSIF (l_trip_status = 'HAS_LANE') THEN
11939:
11940: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11941: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11942:
11943: IF (substr(p_caller,1,3) = 'FTE') THEN
11944: FND_MESSAGE.Set_Name('WSH','WSH_FTE_CS_TRIP_HAS_LANE_FTE');
11945: ELSE
11945: ELSE
11946: FND_MESSAGE.Set_Name('WSH', 'WSH_FTE_CS_TRIP_HAS_LANE');
11947: END IF;
11948: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
11949: wsh_util_core.add_message(x_return_status);
11950:
11951: IF l_debug_on THEN
11952: 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' );
11953: END IF;
12023: IF l_debug_on THEN
12024: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after get_default_uoms'||l_return_status);
12025: END IF;
12026:
12027: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12028: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NO_UOM');
12029: FND_MESSAGE.SET_TOKEN('DELIVERY',l_dlvy_info_tab(i).l_delivery_id);
12030: WSH_UTIL_CORE.add_message(l_return_status);
12031: l_carrier_sel_entity_tab.DELETE(l_cnt);
12026:
12027: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12028: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NO_UOM');
12029: FND_MESSAGE.SET_TOKEN('DELIVERY',l_dlvy_info_tab(i).l_delivery_id);
12030: WSH_UTIL_CORE.add_message(l_return_status);
12031: l_carrier_sel_entity_tab.DELETE(l_cnt);
12032: GOTO dlvy_nextpass;
12033: END IF;
12034: ELSE
12051: IF l_debug_on THEN
12052: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after get_ship_to_site '||l_return_status);
12053: END IF;
12054:
12055: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12056: l_carrier_sel_entity_tab.DELETE(l_cnt);
12057: GOTO dlvy_nextpass;
12058: END IF;
12059: END IF;
12071: IF l_debug_on THEN
12072: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after getting shipping params '||l_return_status);
12073: END IF;
12074:
12075: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12076: l_carrier_sel_entity_tab.DELETE(l_cnt);
12077: GOTO dlvy_nextpass;
12078: END IF;
12079: --
12091: IF l_debug_on THEN
12092: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after get_ship_to_customer'||l_return_status);
12093: END IF;
12094:
12095: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12096: l_carrier_sel_entity_tab.DELETE(l_cnt);
12097: GOTO dlvy_nextpass;
12098: END IF;
12099: ELSE
12104:
12105: ELSE
12106: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DLVY_CONTENT');
12107: FND_MESSAGE.SET_TOKEN('DELIVERY',l_dlvy_info_tab(i).l_delivery_id);
12108: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
12109: END IF;
12110:
12111: <
12112: EXIT WHEN i = l_dlvy_info_tab.LAST;
12118: wsh_debug_sv.logmsg(l_module_name, 'None of the selected deliveries have been found as eligible for Carrier Selection');
12119: END IF;
12120: -- All deliveries are content.
12121: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DLVY_ALL_CONTENT');
12122: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12123: WSH_UTIL_CORE.add_message(x_return_status);
12124: IF l_debug_on THEN
12125: WSH_DEBUG_SV.pop(l_module_name);
12126: END IF;
12119: END IF;
12120: -- All deliveries are content.
12121: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DLVY_ALL_CONTENT');
12122: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12123: WSH_UTIL_CORE.add_message(x_return_status);
12124: IF l_debug_on THEN
12125: WSH_DEBUG_SV.pop(l_module_name);
12126: END IF;
12127: RETURN;
12139: x_cs_output_message_tab => l_cs_output_message_tab,
12140: x_return_message => l_return_message,
12141: x_return_status => l_return_status);
12142:
12143: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS OR l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING)
12144: AND (l_cs_result_tab.COUNT > 0) THEN
12145:
12146: --
12147: -- at least one result is found
12300: x_trip_name => l_trip_name,
12301: x_return_message => x_return_message,
12302: x_return_status => l_return_status);
12303:
12304: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12305: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12306: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12307: END IF;
12308: END IF;
12301: x_return_message => x_return_message,
12302: x_return_status => l_return_status);
12303:
12304: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12305: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12306: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12307: END IF;
12308: END IF;
12309:
12344: --{
12345: IF l_trip_rank_seq is NOT NULL THEN
12346: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_UPD_TRIP_RANK_LIST');
12347: FND_MESSAGE.SET_TOKEN('TRIPID',l_trip_id);
12348: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12349: WSH_UTIL_CORE.add_message(x_return_status);
12350: END IF;
12351:
12352: l_cs_result_tab(rec_cnt).trip_id := l_trip_id;
12345: IF l_trip_rank_seq is NOT NULL THEN
12346: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_UPD_TRIP_RANK_LIST');
12347: FND_MESSAGE.SET_TOKEN('TRIPID',l_trip_id);
12348: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
12349: WSH_UTIL_CORE.add_message(x_return_status);
12350: END IF;
12351:
12352: l_cs_result_tab(rec_cnt).trip_id := l_trip_id;
12353:
12442: p_ranklist => l_ranked_list,
12443: p_trip_id => l_trip_id,
12444: p_rank_id => l_rank_id);
12445:
12446: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12447: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12448: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12449: END IF;
12450: END IF;
12443: p_trip_id => l_trip_id,
12444: p_rank_id => l_rank_id);
12445:
12446: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12447: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12448: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12449: END IF;
12450: END IF;
12451: */ -- Hiding project
12465: -- show error;
12466: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DEL_MLEG_ASG_TRIP');
12467: FND_MESSAGE.SET_TOKEN('DELIVERY_ID',l_delivery_id);
12468: FND_MESSAGE.SET_TOKEN('TRIP_ID',l_trip_id);
12469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12470: WSH_UTIL_CORE.add_message(x_return_status);
12471:
12472: l_cs_result_tab(rec_cnt) := NULL;
12473:
12466: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DEL_MLEG_ASG_TRIP');
12467: FND_MESSAGE.SET_TOKEN('DELIVERY_ID',l_delivery_id);
12468: FND_MESSAGE.SET_TOKEN('TRIP_ID',l_trip_id);
12469: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12470: WSH_UTIL_CORE.add_message(x_return_status);
12471:
12472: l_cs_result_tab(rec_cnt) := NULL;
12473:
12474: IF l_debug_on THEN
12478: ELSIF p_caller = 'WSH_AUTO_CREATE_DEL_TRIP' AND l_skip_rtng_rule_ac_trip = 'Y' THEN
12479: --{
12480: IF l_delivery_id <> l_prev_delivery_id THEN
12481: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_MULTILEG');
12482: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12483: WSH_UTIL_CORE.add_message(x_return_status);
12484: END IF;
12485:
12486: l_cs_result_tab(rec_cnt) := NULL;
12479: --{
12480: IF l_delivery_id <> l_prev_delivery_id THEN
12481: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_MULTILEG');
12482: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12483: WSH_UTIL_CORE.add_message(x_return_status);
12484: END IF;
12485:
12486: l_cs_result_tab(rec_cnt) := NULL;
12487: --}
12557: x_trip_name => l_trip_name,
12558: x_return_message => x_return_message,
12559: x_return_status => l_return_status);
12560:
12561: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12562: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12563: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12564: END IF;
12565: END IF;
12558: x_return_message => x_return_message,
12559: x_return_status => l_return_status);
12560:
12561: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12562: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12563: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12564: END IF;
12565: END IF;
12566: l_cs_result_tab(j).trip_id := l_trip_id;
12596: p_ranklist => l_ranked_list,
12597: p_trip_id => l_trip_id,
12598: p_rank_id => l_rank_id);
12599:
12600: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12601: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12602: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12603: END IF;
12604: END IF;
12597: p_trip_id => l_trip_id,
12598: p_rank_id => l_rank_id);
12599:
12600: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12601: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING THEN
12602: raise FND_API.G_EXC_UNEXPECTED_ERROR;
12603: END IF;
12604: END IF;
12605: l_ranked_list.DELETE;
12654: x_msg_data => l_msg_data);
12655:
12656:
12657: IF ((l_return_status is not null) AND
12658: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
12659: --
12660: -- delivery not updated
12661: --
12662: x_return_status := l_return_status;
12659: --
12660: -- delivery not updated
12661: --
12662: x_return_status := l_return_status;
12663: WSH_UTIL_CORE.add_message(x_return_status);
12664: --
12665: -- Debug Statements
12666: --
12667: IF l_debug_on THEN
12694: p_in_rec => l_trip_in_rec,
12695: x_out_tab => l_trip_out_rec_tab);
12696:
12697: IF ((l_return_status is not null) AND
12698: (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS)) THEN
12699:
12700: --
12701: -- trip not updated
12702: --
12700: --
12701: -- trip not updated
12702: --
12703: x_return_status := l_return_status;
12704: WSH_UTIL_CORE.add_message(x_return_status);
12705: --
12706: -- Debug Statements
12707: --
12708: IF l_debug_on THEN
12737: WHEN OTHERS THEN
12738: l_error_code := SQLCODE;
12739: l_error_text := SQLERRM;
12740:
12741: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.PROCESS_CARRIER_SELECTION');
12742: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12743: x_return_message := l_error_text;
12744:
12745:
12738: l_error_code := SQLCODE;
12739: l_error_text := SQLERRM;
12740:
12741: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.PROCESS_CARRIER_SELECTION');
12742: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12743: x_return_message := l_error_text;
12744:
12745:
12746: IF l_debug_on THEN
12868: l_parent_trip_id NUMBER;
12869: l_child_trip_id NUMBER;
12870: l_parent_del_id NUMBER;
12871: l_dropoff_loc_id NUMBER;
12872: l_child_details_tab wsh_util_core.id_tab_type;
12873: l_valid_children_tab wsh_util_core.id_tab_type;
12874: l_unassigned_trips_tab wsh_util_core.id_tab_type;
12875: l_assigned_trips_tab wsh_util_core.id_tab_type;
12876: l_delivery_leg_id_dummy NUMBER;
12869: l_child_trip_id NUMBER;
12870: l_parent_del_id NUMBER;
12871: l_dropoff_loc_id NUMBER;
12872: l_child_details_tab wsh_util_core.id_tab_type;
12873: l_valid_children_tab wsh_util_core.id_tab_type;
12874: l_unassigned_trips_tab wsh_util_core.id_tab_type;
12875: l_assigned_trips_tab wsh_util_core.id_tab_type;
12876: l_delivery_leg_id_dummy NUMBER;
12877: l_trip_id_tab wsh_util_core.id_tab_type;
12870: l_parent_del_id NUMBER;
12871: l_dropoff_loc_id NUMBER;
12872: l_child_details_tab wsh_util_core.id_tab_type;
12873: l_valid_children_tab wsh_util_core.id_tab_type;
12874: l_unassigned_trips_tab wsh_util_core.id_tab_type;
12875: l_assigned_trips_tab wsh_util_core.id_tab_type;
12876: l_delivery_leg_id_dummy NUMBER;
12877: l_trip_id_tab wsh_util_core.id_tab_type;
12878: l_wv_delivery_tab wsh_util_core.id_tab_type;
12871: l_dropoff_loc_id NUMBER;
12872: l_child_details_tab wsh_util_core.id_tab_type;
12873: l_valid_children_tab wsh_util_core.id_tab_type;
12874: l_unassigned_trips_tab wsh_util_core.id_tab_type;
12875: l_assigned_trips_tab wsh_util_core.id_tab_type;
12876: l_delivery_leg_id_dummy NUMBER;
12877: l_trip_id_tab wsh_util_core.id_tab_type;
12878: l_wv_delivery_tab wsh_util_core.id_tab_type;
12879: l_unassign_dels wsh_util_core.id_tab_type;
12873: l_valid_children_tab wsh_util_core.id_tab_type;
12874: l_unassigned_trips_tab wsh_util_core.id_tab_type;
12875: l_assigned_trips_tab wsh_util_core.id_tab_type;
12876: l_delivery_leg_id_dummy NUMBER;
12877: l_trip_id_tab wsh_util_core.id_tab_type;
12878: l_wv_delivery_tab wsh_util_core.id_tab_type;
12879: l_unassign_dels wsh_util_core.id_tab_type;
12880: l_ignore_plan_dels wsh_util_core.id_tab_type;
12881: l_include_plan_dels wsh_util_core.id_tab_type;
12874: l_unassigned_trips_tab wsh_util_core.id_tab_type;
12875: l_assigned_trips_tab wsh_util_core.id_tab_type;
12876: l_delivery_leg_id_dummy NUMBER;
12877: l_trip_id_tab wsh_util_core.id_tab_type;
12878: l_wv_delivery_tab wsh_util_core.id_tab_type;
12879: l_unassign_dels wsh_util_core.id_tab_type;
12880: l_ignore_plan_dels wsh_util_core.id_tab_type;
12881: l_include_plan_dels wsh_util_core.id_tab_type;
12882: l_change_plan_dels wsh_util_core.id_tab_type;
12875: l_assigned_trips_tab wsh_util_core.id_tab_type;
12876: l_delivery_leg_id_dummy NUMBER;
12877: l_trip_id_tab wsh_util_core.id_tab_type;
12878: l_wv_delivery_tab wsh_util_core.id_tab_type;
12879: l_unassign_dels wsh_util_core.id_tab_type;
12880: l_ignore_plan_dels wsh_util_core.id_tab_type;
12881: l_include_plan_dels wsh_util_core.id_tab_type;
12882: l_change_plan_dels wsh_util_core.id_tab_type;
12883: l_child_del_trips wsh_util_core.id_tab_type;
12876: l_delivery_leg_id_dummy NUMBER;
12877: l_trip_id_tab wsh_util_core.id_tab_type;
12878: l_wv_delivery_tab wsh_util_core.id_tab_type;
12879: l_unassign_dels wsh_util_core.id_tab_type;
12880: l_ignore_plan_dels wsh_util_core.id_tab_type;
12881: l_include_plan_dels wsh_util_core.id_tab_type;
12882: l_change_plan_dels wsh_util_core.id_tab_type;
12883: l_child_del_trips wsh_util_core.id_tab_type;
12884: l_child_del_trips_dummy wsh_util_core.id_tab_type;
12877: l_trip_id_tab wsh_util_core.id_tab_type;
12878: l_wv_delivery_tab wsh_util_core.id_tab_type;
12879: l_unassign_dels wsh_util_core.id_tab_type;
12880: l_ignore_plan_dels wsh_util_core.id_tab_type;
12881: l_include_plan_dels wsh_util_core.id_tab_type;
12882: l_change_plan_dels wsh_util_core.id_tab_type;
12883: l_child_del_trips wsh_util_core.id_tab_type;
12884: l_child_del_trips_dummy wsh_util_core.id_tab_type;
12885: l_parent_del_tab wsh_util_core.id_tab_type;
12878: l_wv_delivery_tab wsh_util_core.id_tab_type;
12879: l_unassign_dels wsh_util_core.id_tab_type;
12880: l_ignore_plan_dels wsh_util_core.id_tab_type;
12881: l_include_plan_dels wsh_util_core.id_tab_type;
12882: l_change_plan_dels wsh_util_core.id_tab_type;
12883: l_child_del_trips wsh_util_core.id_tab_type;
12884: l_child_del_trips_dummy wsh_util_core.id_tab_type;
12885: l_parent_del_tab wsh_util_core.id_tab_type;
12886: l_intermediate_loc_id NUMBER;
12879: l_unassign_dels wsh_util_core.id_tab_type;
12880: l_ignore_plan_dels wsh_util_core.id_tab_type;
12881: l_include_plan_dels wsh_util_core.id_tab_type;
12882: l_change_plan_dels wsh_util_core.id_tab_type;
12883: l_child_del_trips wsh_util_core.id_tab_type;
12884: l_child_del_trips_dummy wsh_util_core.id_tab_type;
12885: l_parent_del_tab wsh_util_core.id_tab_type;
12886: l_intermediate_loc_id NUMBER;
12887: l_dummy_child NUMBER;
12880: l_ignore_plan_dels wsh_util_core.id_tab_type;
12881: l_include_plan_dels wsh_util_core.id_tab_type;
12882: l_change_plan_dels wsh_util_core.id_tab_type;
12883: l_child_del_trips wsh_util_core.id_tab_type;
12884: l_child_del_trips_dummy wsh_util_core.id_tab_type;
12885: l_parent_del_tab wsh_util_core.id_tab_type;
12886: l_intermediate_loc_id NUMBER;
12887: l_dummy_child NUMBER;
12888: l_gross_wt NUMBER;
12881: l_include_plan_dels wsh_util_core.id_tab_type;
12882: l_change_plan_dels wsh_util_core.id_tab_type;
12883: l_child_del_trips wsh_util_core.id_tab_type;
12884: l_child_del_trips_dummy wsh_util_core.id_tab_type;
12885: l_parent_del_tab wsh_util_core.id_tab_type;
12886: l_intermediate_loc_id NUMBER;
12887: l_dummy_child NUMBER;
12888: l_gross_wt NUMBER;
12889: l_net_wt NUMBER;
13011: WSH_TRIPS_ACTIONS.Unassign_Trip(p_del_rows => l_unassign_dels,
13012: p_trip_id => l_parent_trip_rec.trip_id,
13013: x_return_status => l_return_status);
13014:
13015: wsh_util_core.api_post_call
13016: (
13017: p_return_status => l_return_status,
13018: x_num_warnings => l_num_warnings,
13019: x_num_errors => l_num_errors
13074: END LOOP;
13075:
13076: EXCEPTION
13077: WHEN OTHERS THEN
13078: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13079: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13080: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_valid_children_tab(i)));
13081: WSH_UTIL_CORE.Add_Message(x_return_status);
13082: --
13077: WHEN OTHERS THEN
13078: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13079: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13080: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_valid_children_tab(i)));
13081: WSH_UTIL_CORE.Add_Message(x_return_status);
13082: --
13083: -- Debug Statements
13084: --
13085: IF l_debug_on THEN
13182: p_in_ids => l_child_del_trips,
13183: p_action_code => 'IGNORE_PLAN',
13184: x_return_status => l_return_status);
13185:
13186: wsh_util_core.api_post_call
13187: (
13188: p_return_status => l_return_status,
13189: x_num_warnings => l_num_warnings,
13190: x_num_errors => l_num_errors
13200: p_in_ids => l_change_plan_dels,
13201: p_action_code => 'IGNORE_PLAN',
13202: x_return_status => l_return_status);
13203:
13204: wsh_util_core.api_post_call
13205: (
13206: p_return_status => l_return_status,
13207: x_num_warnings => l_num_warnings,
13208: x_num_errors => l_num_errors
13226: p_dropoff_arr_date => l_parent_trip_rec.do_ar_date,
13227: p_dropoff_dep_date => l_parent_trip_rec.do_dep_date,
13228: x_return_status => l_return_status);
13229:
13230: wsh_util_core.api_post_call
13231: (
13232: p_return_status => l_return_status,
13233: x_num_warnings => l_num_warnings,
13234: x_num_errors => l_num_errors
13251: p_in_ids => l_trip_id_tab,
13252: p_action_code => 'IGNORE_PLAN',
13253: x_return_status => l_return_status);
13254:
13255: wsh_util_core.api_post_call
13256: (
13257: p_return_status => l_return_status,
13258: x_num_warnings => l_num_warnings,
13259: x_num_errors => l_num_errors
13280: x_return_status => l_return_status);
13281:
13282:
13283:
13284: wsh_util_core.api_post_call
13285: (
13286: p_return_status => l_return_status,
13287: x_num_warnings => l_num_warnings,
13288: x_num_errors => l_num_errors
13296: END LOOP;
13297:
13298: EXCEPTION
13299: WHEN OTHERS THEN
13300: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13301: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13302: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_valid_children_tab(i)));
13303: WSH_UTIL_CORE.Add_Message(x_return_status);
13304: --
13299: WHEN OTHERS THEN
13300: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13301: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13302: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_valid_children_tab(i)));
13303: WSH_UTIL_CORE.Add_Message(x_return_status);
13304: --
13305: -- Debug Statements
13306: --
13307: IF l_debug_on THEN
13335: x_net_weight => l_net_wt,
13336: x_volume => l_volume,
13337: x_return_status => l_return_status);
13338:
13339: wsh_util_core.api_post_call
13340: (
13341: p_return_status => l_return_status,
13342: x_num_warnings => l_num_warnings,
13343: x_num_errors => l_num_errors
13349: p_entity_type => 'DELIVERY',
13350: p_entity_ids => l_parent_del_tab,
13351: x_return_status => l_return_status);
13352:
13353: wsh_util_core.api_post_call
13354: (
13355: p_return_status => l_return_status,
13356: x_num_warnings => l_num_warnings,
13357: x_num_errors => l_num_errors
13363:
13364: -- Not all deliveries were assigned to parent.
13365: FND_MESSAGE.SET_NAME('WSH', 'WSH_PARTIAL_CONSOL_ASSIGN');
13366: FND_MESSAGE.SET_TOKEN('DEL_COUNT', 'l_valid_children_tab.count');
13367: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
13368: l_num_warnings := l_num_warnings + 1;
13369: END IF;
13370:
13371: IF l_num_errors > 0
13369: END IF;
13370:
13371: IF l_num_errors > 0
13372: THEN
13373: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13374: ELSIF l_num_warnings > 0
13375: THEN
13376: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13377: ELSE
13372: THEN
13373: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13374: ELSIF l_num_warnings > 0
13375: THEN
13376: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13377: ELSE
13378: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13379: END IF;
13380:
13374: ELSIF l_num_warnings > 0
13375: THEN
13376: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13377: ELSE
13378: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13379: END IF;
13380:
13381:
13382: IF l_debug_on THEN
13384: END IF;
13385:
13386: EXCEPTION
13387: WHEN FND_API.G_EXC_ERROR THEN
13388: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13389: IF c_check_trips%ISOPEN THEN
13390: CLOSE c_check_trips;
13391: END IF;
13392: IF c_get_top_child_details%ISOPEN THEN
13411: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
13412: END IF;
13413:
13414: WHEN WSH_INVALID_TRIP THEN
13415: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13416: IF c_check_trips%ISOPEN THEN
13417: CLOSE c_check_trips;
13418: END IF;
13419: IF c_get_top_child_details%ISOPEN THEN
13428: IF c_check_valid_child%ISOPEN THEN
13429: CLOSE c_check_valid_child;
13430: END IF;
13431: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_TRIP');
13432: WSH_UTIL_CORE.Add_Message(x_return_status);
13433: --
13434: -- Debug Statements
13435: --
13436: IF l_debug_on THEN
13439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_TRIP');
13440: END IF;
13441:
13442: WHEN WSH_INVALID_DECONSOL_POINT THEN
13443: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13444: IF c_check_trips%ISOPEN THEN
13445: CLOSE c_check_trips;
13446: END IF;
13447: IF c_get_top_child_details%ISOPEN THEN
13456: IF c_check_valid_child%ISOPEN THEN
13457: CLOSE c_check_valid_child;
13458: END IF;
13459: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_DECONSOL_POINT');
13460: WSH_UTIL_CORE.Add_Message(x_return_status);
13461: --
13462: -- Debug Statements
13463: --
13464: IF l_debug_on THEN
13467: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_DECONSOL_POINT');
13468: END IF;
13469:
13470: WHEN WSH_INVALID_CHILDREN THEN
13471: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13472: IF c_check_trips%ISOPEN THEN
13473: CLOSE c_check_trips;
13474: END IF;
13475: IF c_get_top_child_details%ISOPEN THEN
13484: IF c_check_valid_child%ISOPEN THEN
13485: CLOSE c_check_valid_child;
13486: END IF;
13487: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CHILDREN');
13488: WSH_UTIL_CORE.Add_Message(x_return_status);
13489: --
13490: -- Debug Statements
13491: --
13492: IF l_debug_on THEN
13510: END IF;
13511: IF c_check_valid_child%ISOPEN THEN
13512: CLOSE c_check_valid_child;
13513: END IF;
13514: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13515: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_PARENT');
13516: WSH_UTIL_CORE.Add_Message(x_return_status);
13517: --
13518: -- Debug Statements
13512: CLOSE c_check_valid_child;
13513: END IF;
13514: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13515: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_PARENT');
13516: WSH_UTIL_CORE.Add_Message(x_return_status);
13517: --
13518: -- Debug Statements
13519: --
13520: IF l_debug_on THEN
13539: END IF;
13540: IF c_check_valid_child%ISOPEN THEN
13541: CLOSE c_check_valid_child;
13542: END IF;
13543: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13544: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_ASSIGN_DEL_TO_CONSOL');
13545: WSH_UTIL_CORE.Add_Message(x_return_status);
13546: --
13547: -- Debug Statements
13541: CLOSE c_check_valid_child;
13542: END IF;
13543: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13544: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_ASSIGN_DEL_TO_CONSOL');
13545: WSH_UTIL_CORE.Add_Message(x_return_status);
13546: --
13547: -- Debug Statements
13548: --
13549: IF l_debug_on THEN
13569: END IF;
13570: IF c_check_valid_child%ISOPEN THEN
13571: CLOSE c_check_valid_child;
13572: END IF;
13573: wsh_util_core.default_handler('wsh_new_delivery_actions.Assign_Del_to_Consol_Del',l_module_name);
13574: --
13575: IF l_debug_on THEN
13576: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
13577: END IF;
13599:
13600: Procedure Unassign_Dels_from_Consol_Del(
13601: p_parent_del IN NUMBER,
13602: p_caller IN VARCHAR2,
13603: p_del_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
13604: x_return_status OUT NOCOPY VARCHAR2) IS
13605:
13606: CURSOR c_check_parent_exists(p_child_delivery_id in number, p_parent_delivery_id in number) IS
13607: select l1.delivery_id, l2.delivery_id, l1.delivery_leg_id, s.trip_id
13638: and parent_delivery_detail_id IS NOT NULL
13639: and type = 'C'
13640: and rownum = 1;
13641:
13642: l_parent_dels_tab wsh_util_core.id_tab_type;
13643: l_assigned_dels_tab wsh_util_core.id_tab_type;
13644: l_trip_tab wsh_util_core.id_tab_type;
13645: l_delete_parent_dels wsh_util_core.id_tab_type;
13646: l_remaining_parent_dels wsh_util_core.id_tab_type;
13639: and type = 'C'
13640: and rownum = 1;
13641:
13642: l_parent_dels_tab wsh_util_core.id_tab_type;
13643: l_assigned_dels_tab wsh_util_core.id_tab_type;
13644: l_trip_tab wsh_util_core.id_tab_type;
13645: l_delete_parent_dels wsh_util_core.id_tab_type;
13646: l_remaining_parent_dels wsh_util_core.id_tab_type;
13647: l_child_legs_tab wsh_util_core.id_tab_type;
13640: and rownum = 1;
13641:
13642: l_parent_dels_tab wsh_util_core.id_tab_type;
13643: l_assigned_dels_tab wsh_util_core.id_tab_type;
13644: l_trip_tab wsh_util_core.id_tab_type;
13645: l_delete_parent_dels wsh_util_core.id_tab_type;
13646: l_remaining_parent_dels wsh_util_core.id_tab_type;
13647: l_child_legs_tab wsh_util_core.id_tab_type;
13648: l_trip_tab_dummy wsh_util_core.id_tab_type;
13641:
13642: l_parent_dels_tab wsh_util_core.id_tab_type;
13643: l_assigned_dels_tab wsh_util_core.id_tab_type;
13644: l_trip_tab wsh_util_core.id_tab_type;
13645: l_delete_parent_dels wsh_util_core.id_tab_type;
13646: l_remaining_parent_dels wsh_util_core.id_tab_type;
13647: l_child_legs_tab wsh_util_core.id_tab_type;
13648: l_trip_tab_dummy wsh_util_core.id_tab_type;
13649: l_distinct_parent_dels_tab wsh_util_core.id_tab_type;
13642: l_parent_dels_tab wsh_util_core.id_tab_type;
13643: l_assigned_dels_tab wsh_util_core.id_tab_type;
13644: l_trip_tab wsh_util_core.id_tab_type;
13645: l_delete_parent_dels wsh_util_core.id_tab_type;
13646: l_remaining_parent_dels wsh_util_core.id_tab_type;
13647: l_child_legs_tab wsh_util_core.id_tab_type;
13648: l_trip_tab_dummy wsh_util_core.id_tab_type;
13649: l_distinct_parent_dels_tab wsh_util_core.id_tab_type;
13650:
13643: l_assigned_dels_tab wsh_util_core.id_tab_type;
13644: l_trip_tab wsh_util_core.id_tab_type;
13645: l_delete_parent_dels wsh_util_core.id_tab_type;
13646: l_remaining_parent_dels wsh_util_core.id_tab_type;
13647: l_child_legs_tab wsh_util_core.id_tab_type;
13648: l_trip_tab_dummy wsh_util_core.id_tab_type;
13649: l_distinct_parent_dels_tab wsh_util_core.id_tab_type;
13650:
13651: l_parent_del_id_dummy NUMBER;
13644: l_trip_tab wsh_util_core.id_tab_type;
13645: l_delete_parent_dels wsh_util_core.id_tab_type;
13646: l_remaining_parent_dels wsh_util_core.id_tab_type;
13647: l_child_legs_tab wsh_util_core.id_tab_type;
13648: l_trip_tab_dummy wsh_util_core.id_tab_type;
13649: l_distinct_parent_dels_tab wsh_util_core.id_tab_type;
13650:
13651: l_parent_del_id_dummy NUMBER;
13652: l_parent_lpn_id_dummy NUMBER;
13645: l_delete_parent_dels wsh_util_core.id_tab_type;
13646: l_remaining_parent_dels wsh_util_core.id_tab_type;
13647: l_child_legs_tab wsh_util_core.id_tab_type;
13648: l_trip_tab_dummy wsh_util_core.id_tab_type;
13649: l_distinct_parent_dels_tab wsh_util_core.id_tab_type;
13650:
13651: l_parent_del_id_dummy NUMBER;
13652: l_parent_lpn_id_dummy NUMBER;
13653: l_child_leg_id_dummy NUMBER;
13755: IF check_consol_lpns%FOUND THEN
13756: CLOSE check_consol_lpns;
13757: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_UNASSIGN_DEL_LPN');
13758: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13759: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13760: wsh_util_core.add_message(l_return_status, l_module_name);
13761: wsh_util_core.api_post_call
13762: (
13763: p_return_status => l_return_status,
13756: CLOSE check_consol_lpns;
13757: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_UNASSIGN_DEL_LPN');
13758: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13759: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13760: wsh_util_core.add_message(l_return_status, l_module_name);
13761: wsh_util_core.api_post_call
13762: (
13763: p_return_status => l_return_status,
13764: x_num_warnings => l_num_warnings,
13757: FND_MESSAGE.SET_NAME('WSH','WSH_FAIL_UNASSIGN_DEL_LPN');
13758: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13759: l_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13760: wsh_util_core.add_message(l_return_status, l_module_name);
13761: wsh_util_core.api_post_call
13762: (
13763: p_return_status => l_return_status,
13764: x_num_warnings => l_num_warnings,
13765: x_num_errors => l_num_errors
13789: END LOOP;
13790:
13791: EXCEPTION
13792: WHEN OTHERS THEN
13793: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13794: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13795: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13796: WSH_UTIL_CORE.Add_Message(x_return_status);
13797: --
13792: WHEN OTHERS THEN
13793: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13794: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
13795: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13796: WSH_UTIL_CORE.Add_Message(x_return_status);
13797: --
13798: -- Debug Statements
13799: --
13800: IF l_debug_on THEN
13859: END LOOP;
13860:
13861: EXCEPTION
13862: WHEN OTHERS THEN
13863: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13864: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_DEL_LEG_LOCK');
13865: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13866: WSH_UTIL_CORE.Add_Message(x_return_status);
13867: --
13862: WHEN OTHERS THEN
13863: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13864: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_DEL_LEG_LOCK');
13865: FND_MESSAGE.Set_Token('DEL_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_assigned_dels_tab(i)));
13866: WSH_UTIL_CORE.Add_Message(x_return_status);
13867: --
13868: -- Debug Statements
13869: --
13870: IF l_debug_on THEN
13915:
13916: IF l_delete_parent_dels.count > 0 THEN
13917:
13918: IF l_debug_on THEN
13919: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.Delete',WSH_DEBUG_SV.C_PROC_LEVEL);
13920: END IF;
13921:
13922:
13923: WSH_UTIL_CORE.Delete(
13919: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.Delete',WSH_DEBUG_SV.C_PROC_LEVEL);
13920: END IF;
13921:
13922:
13923: WSH_UTIL_CORE.Delete(
13924: p_type => 'DLVY',
13925: p_rows => l_delete_parent_dels,
13926: p_caller => p_caller,
13927: x_return_status => l_return_status);
13926: p_caller => p_caller,
13927: x_return_status => l_return_status);
13928:
13929: -- Handle return status.
13930: wsh_util_core.api_post_call
13931: (
13932: p_return_status => l_return_status,
13933: x_num_warnings => l_num_warnings,
13934: x_num_errors => l_num_errors
13952: x_net_weight => l_net_weight,
13953: x_volume => l_volume,
13954: x_return_status => l_return_status);
13955:
13956: wsh_util_core.api_post_call
13957: (
13958: p_return_status => l_return_status,
13959: x_num_warnings => l_num_warnings,
13960: x_num_errors => l_num_errors
13966: p_entity_type => 'DELIVERY',
13967: p_entity_ids => l_remaining_parent_dels,
13968: x_return_status => l_return_status);
13969:
13970: wsh_util_core.api_post_call
13971: (
13972: p_return_status => l_return_status,
13973: x_num_warnings => l_num_warnings,
13974: x_num_errors => l_num_errors
13977: Confirm_Consolidation_Delivery(
13978: p_consol_del_tab => l_remaining_parent_dels,
13979: x_return_status => l_return_status);
13980:
13981: wsh_util_core.api_post_call
13982: (
13983: p_return_status => l_return_status,
13984: x_num_warnings => l_num_warnings,
13985: x_num_errors => l_num_errors
13988: END IF;
13989:
13990: IF l_num_errors > 0
13991: THEN
13992: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13993: ELSIF l_num_warnings > 0
13994: THEN
13995: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13996: ELSE
13991: THEN
13992: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13993: ELSIF l_num_warnings > 0
13994: THEN
13995: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13996: ELSE
13997: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13998: END IF;
13999:
13993: ELSIF l_num_warnings > 0
13994: THEN
13995: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
13996: ELSE
13997: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13998: END IF;
13999:
14000: IF l_debug_on THEN
14001: WSH_DEBUG_SV.pop(l_module_name);
14002: END IF;
14003:
14004: EXCEPTION
14005: WHEN FND_API.G_EXC_ERROR THEN
14006: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14007: --
14008: -- Debug Statements
14009: --
14010: IF l_debug_on THEN
14013: END IF;
14014: --
14015:
14016: WHEN WSH_NO_OPEN_CHILD_DELIVERIES THEN
14017: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14018: FND_MESSAGE.SET_NAME('WSH','WSH_NO_OPEN_DELIVERIES');
14019: WSH_UTIL_CORE.Add_Message(x_return_status);
14020: --
14021: -- Debug Statements
14015:
14016: WHEN WSH_NO_OPEN_CHILD_DELIVERIES THEN
14017: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14018: FND_MESSAGE.SET_NAME('WSH','WSH_NO_OPEN_DELIVERIES');
14019: WSH_UTIL_CORE.Add_Message(x_return_status);
14020: --
14021: -- Debug Statements
14022: --
14023: IF l_debug_on THEN
14027: END IF;
14028: --
14029:
14030: WHEN WSH_INVALID_CHILD_DELIVERIES THEN
14031: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14032: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CHILD_DELIVERIES');
14033: WSH_UTIL_CORE.Add_Message(x_return_status);
14034: --
14035: -- Debug Statements
14029:
14030: WHEN WSH_INVALID_CHILD_DELIVERIES THEN
14031: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14032: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CHILD_DELIVERIES');
14033: WSH_UTIL_CORE.Add_Message(x_return_status);
14034: --
14035: -- Debug Statements
14036: --
14037: IF l_debug_on THEN
14040: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILD_DELIVERIES');
14041: END IF;
14042: --
14043: WHEN OTHERS THEN
14044: wsh_util_core.default_handler('wsh_new_delivery_actions.Unassign_Dels_from_Consol_Del',l_module_name);
14045: --
14046: IF c_check_parent_exists%ISOPEN THEN
14047: CLOSE c_check_parent_exists;
14048: END IF;
14066: END Unassign_Dels_from_Consol_Del;
14067:
14068:
14069: PROCEDURE Confirm_Consolidation_Delivery(
14070: p_consol_del_tab IN wsh_util_core.id_tab_type,
14071: x_return_status OUT NOCOPY VARCHAR2) IS
14072:
14073: cursor c_check_close_consol(p_del_id IN NUMBER) IS
14074: select d.delivery_id
14078: and l1.delivery_id = d.delivery_id
14079: and d.status_code = 'OP'
14080: and rownum = 1;
14081:
14082: l_u_consol_del_tab wsh_util_core.id_tab_type;
14083: l_co_consol_del_tab wsh_util_core.id_tab_type;
14084: l_number_of_lpn_tab wsh_util_core.id_tab_type;
14085: l_delivery_id NUMBER;
14086: l_lpn_number NUMBER;
14079: and d.status_code = 'OP'
14080: and rownum = 1;
14081:
14082: l_u_consol_del_tab wsh_util_core.id_tab_type;
14083: l_co_consol_del_tab wsh_util_core.id_tab_type;
14084: l_number_of_lpn_tab wsh_util_core.id_tab_type;
14085: l_delivery_id NUMBER;
14086: l_lpn_number NUMBER;
14087: i NUMBER;
14080: and rownum = 1;
14081:
14082: l_u_consol_del_tab wsh_util_core.id_tab_type;
14083: l_co_consol_del_tab wsh_util_core.id_tab_type;
14084: l_number_of_lpn_tab wsh_util_core.id_tab_type;
14085: l_delivery_id NUMBER;
14086: l_lpn_number NUMBER;
14087: i NUMBER;
14088: j NUMBER := 0;
14137: wsh_debug_sv.push (l_module_name);
14138: END IF;
14139:
14140: -- bug 4505105
14141: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14142: -- bug 4505105
14143:
14144: -- collect the unique parent deliveries.
14145: -- p_consol_del_tab may not be gapless and
14173: FETCH c_check_close_consol INTO l_delivery_id;
14174: IF c_check_close_consol%NOTFOUND THEN
14175: -- bug 4505105
14176: l_del_valid_flag := 'Y';
14177: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14178: -- Keeping it commented because as of today
14179: -- this procedure will be called only for WMS org.
14180: --l_org_id := NULL;
14181: --open l_get_consol_del_org_csr(p_consol_del_tab(i));
14194: IF l_debug_on THEN
14195: WSH_DEBUG_SV.log(l_module_name,'l_return_status after calling validate_del_containers', l_return_status);
14196: END IF;
14197:
14198: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
14199: RAISE FND_API.G_EXC_ERROR;
14200: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
14201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14202: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
14196: END IF;
14197:
14198: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
14199: RAISE FND_API.G_EXC_ERROR;
14200: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
14201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14202: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
14203: l_num_warnings := l_num_warnings + 1;
14204: END IF;
14198: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
14199: RAISE FND_API.G_EXC_ERROR;
14200: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
14201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
14202: ELSIF (l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
14203: l_num_warnings := l_num_warnings + 1;
14204: END IF;
14205: --}
14206: --END IF;
14285:
14286: END LOOP;
14287: EXCEPTION
14288: WHEN OTHERS THEN
14289: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14290: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
14291: FND_MESSAGE.Set_Token('ENTITY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_co_consol_del_tab(l_lock_index)));
14292: WSH_UTIL_CORE.Add_Message(x_return_status);
14293: --
14288: WHEN OTHERS THEN
14289: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14290: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_LOCK_FAILED');
14291: FND_MESSAGE.Set_Token('ENTITY_NAME', WSH_NEW_DELIVERIES_PVT.Get_Name(l_co_consol_del_tab(l_lock_index)));
14292: WSH_UTIL_CORE.Add_Message(x_return_status);
14293: --
14294: -- Debug Statements
14295: --
14296: IF l_debug_on THEN
14311: WHERE delivery_id = l_co_consol_del_tab(m);
14312: END IF;
14313:
14314: -- bug 4505105
14315: IF (l_num_warnings > 0 and x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
14316: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14317: ELSE
14318: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14319: END IF;
14312: END IF;
14313:
14314: -- bug 4505105
14315: IF (l_num_warnings > 0 and x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
14316: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14317: ELSE
14318: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14319: END IF;
14320: -- bug 4505105
14314: -- bug 4505105
14315: IF (l_num_warnings > 0 and x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
14316: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14317: ELSE
14318: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14319: END IF;
14320: -- bug 4505105
14321:
14322: EXCEPTION
14321:
14322: EXCEPTION
14323: -- bug 4505105
14324: WHEN FND_API.G_EXC_ERROR THEN
14325: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14326: --
14327: IF l_debug_on THEN
14328: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14329: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14330: END IF;
14331: --
14332: -- bug 4505105
14333: WHEN OTHERS THEN
14334: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14335: wsh_util_core.default_handler('wsh_new_delivery_actions.Confirm_Consolidation_Delivery',l_module_name);
14336: --
14337: IF l_debug_on THEN
14338: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14331: --
14332: -- bug 4505105
14333: WHEN OTHERS THEN
14334: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14335: wsh_util_core.default_handler('wsh_new_delivery_actions.Confirm_Consolidation_Delivery',l_module_name);
14336: --
14337: IF l_debug_on THEN
14338: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14339: END IF;
14340:
14341: END Confirm_Consolidation_Delivery;
14342:
14343:
14344: PROCEDURE Create_Deconsol_Trips(p_deliveries_tab IN wsh_util_core.id_tab_type,
14345: x_return_status OUT NOCOPY VARCHAR2) IS
14346: CURSOR c_del_info(p_delivery_id IN NUMBER) IS
14347: SELECT parent.ultimate_dropoff_location_id pu_location,
14348: stop.planned_departure_date pu_date,
14376: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Create_Deconsol_Trips';
14377: l_debug_on BOOLEAN;
14378:
14379:
14380: l_del_tab wsh_util_core.id_tab_type;
14381: l_trip_tab wsh_util_core.id_tab_type;
14382:
14383:
14384: l_trip_in_rec WSH_TRIPS_GRP.tripInRecType;
14377: l_debug_on BOOLEAN;
14378:
14379:
14380: l_del_tab wsh_util_core.id_tab_type;
14381: l_trip_tab wsh_util_core.id_tab_type;
14382:
14383:
14384: l_trip_in_rec WSH_TRIPS_GRP.tripInRecType;
14385: l_init_msg_list VARCHAR2(100);
14409: IF l_debug_on THEN
14410: wsh_debug_sv.push (l_module_name);
14411: END IF;
14412:
14413: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14414:
14415: i := p_deliveries_tab.FIRST;
14416:
14417: WHILE i is NOT NULL LOOP
14430: p_del_rows => l_del_tab,
14431: p_trip_id => trip.trip_id,
14432: x_return_status => l_return_status);
14433:
14434: WSH_UTIL_CORE.Api_Post_Call
14435: (
14436: p_return_status => l_return_status,
14437: x_num_warnings => l_num_warnings,
14438: x_num_errors => l_num_errors
14469: p_trip_info_tab => l_trip_info_tab,
14470: p_in_rec => l_trip_in_rec,
14471: x_out_tab => l_trip_out_rec_tab);
14472:
14473: wsh_util_core.api_post_call
14474: (
14475: p_return_status => l_return_status,
14476: x_num_warnings => l_num_warnings,
14477: x_num_errors => l_num_errors
14501: p_dropoff_arr_date => l_do_date,
14502: p_dropoff_dep_date => l_do_date,
14503: x_return_status => l_return_status);
14504:
14505: wsh_util_core.api_post_call
14506: (
14507: p_return_status => l_return_status,
14508: x_num_warnings => l_num_warnings,
14509: x_num_errors => l_num_errors
14515:
14516:
14517: IF l_num_errors > 0
14518: THEN
14519: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14520: ELSIF l_num_warnings > 0
14521: THEN
14522: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14523: ELSE
14518: THEN
14519: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14520: ELSIF l_num_warnings > 0
14521: THEN
14522: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14523: ELSE
14524: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14525: END IF;
14526:
14520: ELSIF l_num_warnings > 0
14521: THEN
14522: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
14523: ELSE
14524: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14525: END IF;
14526:
14527: IF l_debug_on THEN
14528: WSH_DEBUG_SV.pop(l_module_name);
14529: END IF;
14530:
14531: EXCEPTION
14532: WHEN FND_API.G_EXC_ERROR THEN
14533: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14534: --
14535: IF l_debug_on THEN
14536: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14537: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14537: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14538: END IF;
14539: --
14540: WHEN OTHERS THEN
14541: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14542: wsh_util_core.default_handler('wsh_new_delivery_actions.Confirm_Consolidation_Delivery',l_module_name);
14543: --
14544: IF l_debug_on THEN
14545: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14538: END IF;
14539: --
14540: WHEN OTHERS THEN
14541: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14542: wsh_util_core.default_handler('wsh_new_delivery_actions.Confirm_Consolidation_Delivery',l_module_name);
14543: --
14544: IF l_debug_on THEN
14545: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14546: END IF;
14608: l_return_value := 'Y';
14609: END IF;
14610: CLOSE c_delivery_detail_count;
14611: ELSE
14612: l_return_value := WSH_UTIL_CORE.G_RET_STS_ERROR;
14613: END IF;
14614:
14615: IF l_debug_on THEN
14616: wsh_debug_sv.log(l_module_name, 'RETURN VALUE', l_return_value);
14621: RETURN l_return_value;
14622: EXCEPTION
14623:
14624: WHEN OTHERS THEN
14625: wsh_util_core.default_handler('wsh_new_delivery_actions.is_delivery_empty',l_module_name);
14626: --
14627: IF (c_delivery_detail_count%ISOPEN) THEN
14628: CLOSE c_delivery_detail_count;
14629: END IF;
14626: --
14627: IF (c_delivery_detail_count%ISOPEN) THEN
14628: CLOSE c_delivery_detail_count;
14629: END IF;
14630: l_return_value := WSH_UTIL_CORE.G_RET_STS_ERROR;
14631:
14632: IF l_debug_on THEN
14633: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14634: wsh_debug_sv.LOG(l_module_name, 'RETURN VALUE', l_return_value);