121: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
122: --
123: IF l_debug_on IS NULL
124: THEN
125: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
126: END IF;
127: --
128: IF l_debug_on THEN
129: WSH_DEBUG_SV.push(l_module_name);
125: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
126: END IF;
127: --
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:
139: END IF;
140: CLOSE get_container;
141:
142: IF l_debug_on THEN
143: WSH_DEBUG_SV.logmsg(l_module_name,'Current line : '||p_curr_line_id||' , Container : '|| l_container_id);
144: END IF;
145:
146: IF l_container_id IS NULL THEN
147: -- Either it is an unpacked staged line or it is the topmost container
176: -- Check if all the immediate lines in l_cont_id are present in staged lines list
177: FOR n in 1..p_staged_lines.COUNT LOOP
178: IF x_immediate_contents(m) = p_staged_lines(n) THEN
179: IF l_debug_on THEN
180: WSH_DEBUG_SV.logmsg(l_module_name,'Found Staged line :'||p_staged_lines(n));
181: END IF;
182: l_detail_found := TRUE;
183: EXIT;
184: END IF;
188: -- Check if contents of Container are in Traversed Container List
189: FOR p in 1..g_traversed_containers.COUNT LOOP
190: IF x_immediate_contents(m) = g_traversed_containers(p) THEN
191: IF l_debug_on THEN
192: WSH_DEBUG_SV.logmsg(l_module_name,'Found Traversed Container :'||g_traversed_containers(p));
193: END IF;
194: l_detail_found := TRUE;
195: EXIT;
196: END IF;
201: -- Check if line or container is already marked as to be unassigned previously, if so, return to caller
202: FOR j IN 1..g_container_lines.COUNT LOOP
203: IF ( p_curr_line_id = g_container_lines(j) ) THEN
204: IF l_debug_on THEN
205: WSH_DEBUG_SV.logmsg(l_module_name,'Found current line in Unassigned Container List :'||p_curr_line_id);
206: END IF;
207: GOTO END_PROC ;
208: END IF;
209: END LOOP;
207: GOTO END_PROC ;
208: END IF;
209: END LOOP;
210: IF l_debug_on THEN
211: WSH_DEBUG_SV.logmsg(l_module_name,'Found either shipped line, container_line or non-traversed path :'||x_immediate_contents(m));
212: END IF;
213: g_container_lines(g_container_lines.COUNT + 1) := p_curr_line_id ;
214: GOTO END_PROC ;
215: END IF;
234: END LOOP;
235: END LOOP;
236: g_traversed_containers(g_traversed_containers.count + 1) := l_container_id ;
237: IF l_debug_on 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
235: END LOOP;
236: g_traversed_containers(g_traversed_containers.count + 1) := l_container_id ;
237: IF l_debug_on 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
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;
247: RAISE NO_DATA_FOUND;
248: END IF;
256: --
257: -- Debug Statements
258: --
259: IF l_debug_on THEN
260: WSH_DEBUG_SV.pop(l_module_name);
261: END IF;
262: --
263:
264: EXCEPTION
268: IF get_lines%ISOPEN THEN
269: CLOSE get_lines;
270: END IF;
271: IF l_debug_on THEN
272: WSH_DEBUG_SV.pop(l_module_name,'When Others');
273: END IF;
274: END get_topmost_unassignable_cont;
275:
276:
301: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
302: --
303: IF l_debug_on IS NULL
304: THEN
305: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
306: END IF;
307: --
308: IF l_debug_on THEN
309: WSH_DEBUG_SV.push(l_module_name);
305: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
306: END IF;
307: --
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:
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);
317: END IF;
318: RETURN;
319: END IF;
320:
325: --
326: -- Debug Statements
327: --
328: IF l_debug_on THEN
329: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.GET_TOPMOST_UNASSIGNABLE_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
330: WSH_DEBUG_SV.log(l_module_name, 'Staged Detail Line: ', p_staged_lines(i));
331: END IF;
332: --
333: get_topmost_unassignable_cont( p_staged_lines(i), p_staged_lines, l_return_status );
326: -- Debug Statements
327: --
328: IF l_debug_on THEN
329: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.GET_TOPMOST_UNASSIGNABLE_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
330: WSH_DEBUG_SV.log(l_module_name, 'Staged Detail Line: ', p_staged_lines(i));
331: END IF;
332: --
333: get_topmost_unassignable_cont( p_staged_lines(i), p_staged_lines, l_return_status );
334:
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;
340: RAISE NO_DATA_FOUND;
341: END IF;
346: FOR z in 1..g_container_lines.COUNT LOOP
347: IF g_container_lines(z) > 0 THEN
348: x_unassigned_cont(x_unassigned_cont.COUNT + 1) := g_container_lines(z);
349: IF l_debug_on THEN
350: WSH_DEBUG_SV.log(l_module_name, 'Containers/Lines to be Unassigned : ', g_container_lines(z));
351: END IF;
352: END IF;
353: END LOOP;
354:
355: --
356: -- Debug Statements
357: --
358: IF l_debug_on THEN
359: WSH_DEBUG_SV.pop(l_module_name);
360: END IF;
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;
370: END Cont_ToBe_Unassigned;
371:
372: -- bug 4505105
414: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
415: --
416: IF l_debug_on IS NULL
417: THEN
418: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
419: END IF;
420: --
421: IF l_debug_on THEN
422: WSH_DEBUG_SV.push(l_module_name);
418: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
419: END IF;
420: --
421: IF l_debug_on THEN
422: WSH_DEBUG_SV.push(l_module_name);
423: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id is ', p_delivery_id);
424: WSH_DEBUG_SV.logmsg(l_module_name, ' Opening the cursor l_del_contents_csr');
425: END IF;
426: --
419: END IF;
420: --
421: IF l_debug_on THEN
422: WSH_DEBUG_SV.push(l_module_name);
423: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id is ', p_delivery_id);
424: WSH_DEBUG_SV.logmsg(l_module_name, ' Opening the cursor l_del_contents_csr');
425: END IF;
426: --
427: IF (nvl(p_del_type, 'STD') = 'STD') THEN
420: --
421: IF l_debug_on THEN
422: WSH_DEBUG_SV.push(l_module_name);
423: WSH_DEBUG_SV.log(l_module_name, 'p_delivery_id is ', p_delivery_id);
424: WSH_DEBUG_SV.logmsg(l_module_name, ' Opening the cursor l_del_contents_csr');
425: END IF;
426: --
427: IF (nvl(p_del_type, 'STD') = 'STD') THEN
428: l_cnt_flag := 'Y';
436: fetch l_del_contents_csr into l_del_valid_flag;
437: close l_del_contents_csr;
438: --
439: IF l_debug_on THEN
440: WSH_DEBUG_SV.log(l_module_name, 'l_del_valid_flag is ', l_del_valid_flag);
441: END IF;
442: --
443: x_del_valid_flag := nvl(l_del_valid_flag,'Y');
444:
445: IF (nvl(l_del_valid_flag,'Y') = 'N') THEN
446: --
447: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_SC_CNT_ERROR');
448: IF l_debug_on THEN
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);
456: --
457: -- Debug Statements
458: --
459: IF l_debug_on THEN
460: WSH_DEBUG_SV.pop(l_module_name);
461: END IF;
462: --
463:
464: --}
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:
474: --}
475: END validate_del_containers;
502: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
503: --
504: IF l_debug_on IS NULL
505: THEN
506: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
507: END IF;
508: --
509: IF l_debug_on THEN
510: WSH_DEBUG_SV.push(l_module_name);
506: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
507: END IF;
508: --
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:
520: FOR i IN 1..p_del_rows.count LOOP
521:
522: -- Check if Delivery can be planned
523: IF l_debug_on THEN
524: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_PLAN',WSH_DEBUG_SV.C_PROC_LEVEL);
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);
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);
581: END IF;
582: END IF;
583:
584: IF l_debug_on THEN
585: WSH_DEBUG_SV.pop(l_module_name);
586: END IF;
587:
588: EXCEPTION
589: WHEN others THEN
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;
596: END FIRM;
597:
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;
596: END FIRM;
597:
598:
728:
729: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
730: --
731: IF l_debug_on IS NULL THEN
732: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
733: END IF;
734: --
735: IF l_debug_on THEN
736: WSH_DEBUG_SV.push(l_module_name);
732: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
733: END IF;
734: --
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:
743: l_auto_rate_tbl.delete;
744: l_dels_to_update.delete;
745:
746: IF l_debug_on THEN
747: wsh_debug_sv.logmsg(l_module_name, 'P_CALLER: '|| p_caller);
748: wsh_debug_sv.logmsg(l_module_name, 'P_FORCE_APPENDING_LIMIT: '|| p_force_appending_limit);
749: wsh_debug_sv.logmsg(l_module_name, 'P_EVENT: '|| p_event);
750: END IF;
751:
744: l_dels_to_update.delete;
745:
746: IF l_debug_on THEN
747: wsh_debug_sv.logmsg(l_module_name, 'P_CALLER: '|| p_caller);
748: wsh_debug_sv.logmsg(l_module_name, 'P_FORCE_APPENDING_LIMIT: '|| p_force_appending_limit);
749: wsh_debug_sv.logmsg(l_module_name, 'P_EVENT: '|| p_event);
750: END IF;
751:
752: IF (p_delivery_ids.count = 0) THEN
745:
746: IF l_debug_on THEN
747: wsh_debug_sv.logmsg(l_module_name, 'P_CALLER: '|| p_caller);
748: wsh_debug_sv.logmsg(l_module_name, 'P_FORCE_APPENDING_LIMIT: '|| p_force_appending_limit);
749: wsh_debug_sv.logmsg(l_module_name, 'P_EVENT: '|| p_event);
750: END IF;
751:
752: IF (p_delivery_ids.count = 0) THEN
753: IF l_debug_on THEN
750: END IF;
751:
752: IF (p_delivery_ids.count = 0) THEN
753: IF l_debug_on THEN
754: WSH_DEBUG_SV.pop(l_module_name,'no delivery');
755: END IF;
756: return;
757: END IF;
758:
768: IF p_delivery_ids(i) is NULL THEN
769: goto loop_end;
770: END IF;
771: IF l_debug_on THEN
772: wsh_debug_sv.logmsg(l_module_name, 'forcing appending limit, lock and plan the delivery');
773: END IF;
774: l_planned_flag := NULL;
775:
776: -- Check if Delivery can be planned
777: --
778: -- Debug Statements
779: --
780: IF l_debug_on THEN
781: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_PLAN',WSH_DEBUG_SV.C_PROC_LEVEL);
782: END IF;
783: --
784: wsh_delivery_validations.check_plan( p_delivery_ids(i), x_return_status,p_called_for_sc);
785:
788: --
789: -- Debug Statements
790: --
791: IF l_debug_on THEN
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);
837: -- set the planned_flag to 'Y'
838:
839: l_dels_to_update(l_dels_to_update.count+1) := p_delivery_ids(i);
840: IF l_debug_on THEN
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
851: END IF;
852: CLOSE c_get_unplanned_delivery;
853:
854: IF l_debug_on THEN
855: wsh_debug_sv.logmsg(l_module_name, 'found delivery '|| p_delivery_ids(i) );
856: END IF;
857:
858: l_assigned_to_trip := WSH_DELIVERY_VALIDATIONS.Del_Assigned_To_Trip(
859: p_delivery_id => p_delivery_ids(i),
864: x_param_info => l_param_info,
865: x_return_status => l_return_status);
866:
867: IF l_debug_on THEN
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
912: ELSE
913:
914: FOR i in p_delivery_ids.FIRST .. p_delivery_ids.LAST LOOP
915: IF l_debug_on THEN
916: wsh_debug_sv.logmsg(l_module_name, 'checking delivery '|| p_delivery_ids(i) );
917: END IF;
918:
919: IF p_delivery_ids(i) is NULL THEN
920: goto end_of_loop;
928: END IF;
929: CLOSE c_get_unplanned_delivery;
930:
931: IF l_debug_on THEN
932: wsh_debug_sv.logmsg(l_module_name, 'found delivery '|| p_delivery_ids(i) );
933: END IF;
934:
935: l_assigned_to_trip := WSH_DELIVERY_VALIDATIONS.Del_Assigned_To_Trip(
936: p_delivery_id => p_delivery_ids(i),
941: x_param_info => l_param_info,
942: x_return_status => l_return_status);
943:
944: IF l_debug_on THEN
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
961:
962: IF p_caller like 'WSH_%' THEN
963:
964: IF l_debug_on THEN
965: wsh_debug_sv.logmsg(l_module_name, 'appending_limit for organization '|| to_char(l_organization_id)||' is : '|| l_param_info.appending_limit );
966: END IF;
967:
968: l_ignore_count := 0;
969: l_delivery_detail_count := 0;
993:
994: EXCEPTION
995: WHEN record_locked_test THEN
996: IF l_debug_on THEN
997: wsh_debug_sv.logmsg(l_module_name, 'Exception record_locked_test in the block');
998: END IF;
999: -- log exception
1000: IF p_caller = 'WSH_DLMG' THEN
1001: -- csun deliveryMerge (warning or error)
1023: goto end_of_loop;
1024:
1025: WHEN OTHERS THEN
1026: IF l_debug_on THEN
1027: wsh_debug_sv.logmsg(l_module_name,'Exception others in the block');
1028: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
1029: END IF;
1030: goto end_of_loop ;
1031:
1024:
1025: WHEN OTHERS THEN
1026: IF l_debug_on THEN
1027: wsh_debug_sv.logmsg(l_module_name,'Exception others in the block');
1028: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
1029: END IF;
1030: goto end_of_loop ;
1031:
1032: END;
1040: --
1041: -- Debug Statements
1042: --
1043: IF l_debug_on THEN
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);
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'
1116:
1117: EXCEPTION
1118: WHEN record_locked_test THEN
1119: IF l_debug_on THEN
1120: wsh_debug_sv.logmsg(l_module_name, 'Exception record_locked_test in the block');
1121: END IF;
1122: -- log exception
1123: IF p_caller = 'WSH_DLMG' THEN
1124: -- csun deliveryMerge (warning or error)
1146: goto end_of_loop;
1147:
1148: WHEN OTHERS THEN
1149: IF l_debug_on THEN
1150: wsh_debug_sv.logmsg(l_module_name,'Exception others in the block');
1151: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
1152: END IF;
1153: goto end_of_loop ;
1154:
1147:
1148: WHEN OTHERS THEN
1149: IF l_debug_on THEN
1150: wsh_debug_sv.logmsg(l_module_name,'Exception others in the block');
1151: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
1152: END IF;
1153: goto end_of_loop ;
1154:
1155: END;
1165: --
1166: -- Debug Statements
1167: --
1168: IF l_debug_on THEN
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);
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:
1217: END IF;
1218:
1219: IF l_param_info.appending_limit = p_event THEN
1220: IF l_debug_on THEN
1221: wsh_debug_sv.logmsg(l_module_name, 'Called from WMS, Appending limit '|| l_param_info.appending_limit ||' has been reached, lock and plan the delivery');
1222: END IF;
1223: l_delivery_id := p_delivery_ids(i);
1224: l_planned_flag := NULL;
1225:
1237: --
1238: -- Debug Statements
1239: --
1240: IF l_debug_on THEN
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);
1251:
1252: l_dels_to_update(l_dels_to_update.count+1) := p_delivery_ids(i);
1253:
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'
1285: END IF;
1286:
1287: IF l_select_carrier_tbl.count > 0 THEN
1288: IF l_debug_on THEN
1289: wsh_debug_sv.logmsg(l_module_name, 'Call wsh_deliveries_grp.delivery_action for '|| to_char(l_select_carrier_tbl.count)||' deliveries');
1290: END IF;
1291:
1292: l_action_prms.action_code := 'SELECT-CARRIER';
1293: l_action_prms.caller := p_caller;
1295: l_action_prms.ignore_ineligible_dels := 'Y';
1296: l_action_prms.form_flag := 'N';
1297:
1298: IF l_debug_on THEN
1299: wsh_debug_sv.logmsg(l_module_name, 'Calling wsh_deliveries_grp.delivery_action SELECT-CARRIER with '||l_select_carrier_tbl.count||' deliveries');
1300: END IF;
1301:
1302: wsh_deliveries_grp.delivery_action(
1303: p_api_version_number => 1.0,
1322: END IF;
1323:
1324: IF l_auto_rate_tbl.count > 0 THEN
1325: IF l_debug_on THEN
1326: wsh_debug_sv.logmsg(l_module_name, 'Calling wsh_deliveries_grp.delivery_action GET-FREIGHT-COSTS with '||l_auto_rate_tbl.count ||' deliveries');
1327: END IF;
1328:
1329: l_action_prms.action_code := 'GET-FREIGHT-COSTS';
1330: l_action_prms.caller := 'WSH_DLMG';
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);
1395: END IF;
1396:
1397: EXCEPTION
1398:
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;
1408:
1409: WHEN invalid_event THEN
1410: rollback to before_adjust_planned_flag;
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;
1418:
1419: WHEN Rate_Delivery_Err THEN
1420: rollback to before_adjust_planned_flag;
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
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;
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');
1435: END IF;
1436:
1437: WHEN record_locked THEN
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');
1435: END IF;
1436:
1437: WHEN record_locked THEN
1438: rollback to before_adjust_planned_flag;
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;
1462:
1463: WHEN OTHERS THEN
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;
1462:
1463: WHEN OTHERS THEN
1464: rollback to before_adjust_planned_flag;
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;
1485:
1486:
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;
1485:
1486:
1487: END Adjust_Planned_Flag;
1516: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1517: --
1518: IF l_debug_on IS NULL
1519: THEN
1520: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1521: END IF;
1522: --
1523: IF l_debug_on THEN
1524: WSH_DEBUG_SV.push(l_module_name);
1520: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1521: END IF;
1522: --
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:
1543: --
1544: -- Debug Statements
1545: --
1546: IF l_debug_on THEN
1547: WSH_DEBUG_SV.pop(l_module_name);
1548: END IF;
1549:
1550: EXCEPTION
1551: WHEN others THEN
1556: --
1557: -- Debug Statements
1558: --
1559: IF l_debug_on THEN
1560: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1561: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1562: END IF;
1563: --
1564: END Plan;
1557: -- Debug Statements
1558: --
1559: IF l_debug_on THEN
1560: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1561: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1562: END IF;
1563: --
1564: END Plan;
1565:
1603: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1604: --
1605: IF l_debug_on IS NULL
1606: THEN
1607: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1608: END IF;
1609: --
1610: IF l_debug_on THEN
1611: WSH_DEBUG_SV.push(l_module_name);
1607: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1608: END IF;
1609: --
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:
1622: --
1623: -- Debug Statements
1624: --
1625: IF l_debug_on THEN
1626: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_UNPLAN',WSH_DEBUG_SV.C_PROC_LEVEL);
1627: END IF;
1628: --
1629: wsh_delivery_validations.check_unplan( p_del_rows(i), x_return_status);
1630:
1633: --
1634: -- Debug Statements
1635: --
1636: IF l_debug_on THEN
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);
1713: --
1714: -- Debug Statements
1715: --
1716: IF l_debug_on THEN
1717: WSH_DEBUG_SV.pop(l_module_name);
1718: END IF;
1719: --
1720: EXCEPTION
1721: WHEN others THEN
1725: --
1726: -- Debug Statements
1727: --
1728: IF l_debug_on THEN
1729: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1730: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1731: END IF;
1732: --
1733: END Unplan;
1726: -- Debug Statements
1727: --
1728: IF l_debug_on THEN
1729: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1730: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1731: END IF;
1732: --
1733: END Unplan;
1734:
1787: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1788: --
1789: IF l_debug_on IS NULL
1790: THEN
1791: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1792: END IF;
1793: --
1794: IF l_debug_on THEN
1795: --
1792: END IF;
1793: --
1794: IF l_debug_on THEN
1795: --
1796: WSH_DEBUG_SV.push(l_module_name);
1797: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1798: --
1799: END IF;
1800: --
1793: --
1794: IF l_debug_on THEN
1795: --
1796: WSH_DEBUG_SV.push(l_module_name);
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;
1825: --
1826: -- Debug Statements
1827: --
1828: IF l_debug_on THEN
1829: WSH_DEBUG_SV.pop(l_module_name);
1830: END IF;
1831: --
1832: RETURN;
1833: END IF;
1842: --
1843: -- Debug Statements
1844: --
1845: IF l_debug_on THEN
1846: WSH_DEBUG_SV.log(l_module_name, 'l_ship_method_code', l_ship_method_code);
1847: END IF;
1848:
1849: --
1850: -- Bug 2712087 : Do not create BOL if ship method is NULL
1852: IF l_ship_method_code IS NULL THEN
1853: --
1854: IF l_debug_on THEN
1855: --
1856: WSH_DEBUG_SV.logmsg(l_module_name, 'Null ship Method, so do not create BOL');
1857: --
1858: END IF;
1859: --
1860: FND_MESSAGE.SET_NAME('WSH','WSH_BOL_NULL_SHIP_METHOD_ERROR');
1867:
1868: ELSE
1869: --
1870: IF l_debug_on THEN
1871: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_PVT.CREATE_DOCUMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
1872: END IF;
1873: --
1874: wsh_document_pvt.create_document
1875: (1.0,
1933: --
1934: -- Debug Statements
1935: --
1936: IF l_debug_on THEN
1937: WSH_DEBUG_SV.pop(l_module_name);
1938: END IF;
1939: --
1940: EXCEPTION
1941:
1945: --
1946: -- Debug Statements
1947: --
1948: IF l_debug_on THEN
1949: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CREATE_DOCUMENT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1950: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_DOCUMENT_ERROR');
1951: END IF;
1952: --
1953: END create_bol;
1946: -- Debug Statements
1947: --
1948: IF l_debug_on THEN
1949: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CREATE_DOCUMENT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1950: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_DOCUMENT_ERROR');
1951: END IF;
1952: --
1953: END create_bol;
1954:
2012: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2013: --
2014: IF l_debug_on IS NULL
2015: THEN
2016: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2017: END IF;
2018: --
2019: IF l_debug_on THEN
2020: WSH_DEBUG_SV.push(l_module_name);
2016: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2017: END IF;
2018: --
2019: IF l_debug_on THEN
2020: WSH_DEBUG_SV.push(l_module_name);
2021: --
2022: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2023: END IF;
2024: --
2018: --
2019: IF l_debug_on THEN
2020: WSH_DEBUG_SV.push(l_module_name);
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:
2047: --
2048: -- Debug Statements
2049: --
2050: IF l_debug_on THEN
2051: WSH_DEBUG_SV.pop(l_module_name);
2052: END IF;
2053: --
2054: RETURN;
2055: END IF;
2072: --
2073: -- Debug Statements
2074: --
2075: IF l_debug_on THEN
2076: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_PVT.CREATE_DOCUMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
2077: END IF;
2078: --
2079: wsh_document_pvt.create_document
2080: (
2138: --
2139: -- Debug Statements
2140: --
2141: IF l_debug_on THEN
2142: WSH_DEBUG_SV.pop(l_module_name);
2143: END IF;
2144: --
2145: EXCEPTION
2146:
2151: --
2152: -- Debug Statements
2153: --
2154: IF l_debug_on THEN
2155: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CREATE_DOCUMENT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2156: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_DOCUMENT_ERROR');
2157: END IF;
2158: --
2159: END create_pack_slip;
2152: -- Debug Statements
2153: --
2154: IF l_debug_on THEN
2155: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_CREATE_DOCUMENT_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2156: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_CREATE_DOCUMENT_ERROR');
2157: END IF;
2158: --
2159: END create_pack_slip;
2160:
2266: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2267: --
2268: IF l_debug_on IS NULL
2269: THEN
2270: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2271: END IF;
2272: --
2273: IF l_debug_on THEN
2274: WSH_DEBUG_SV.push(l_module_name);
2270: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2271: END IF;
2272: --
2273: IF l_debug_on THEN
2274: WSH_DEBUG_SV.push(l_module_name);
2275: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Count'||p_del_rows.count);
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;
2271: END IF;
2272: --
2273: IF l_debug_on THEN
2274: WSH_DEBUG_SV.push(l_module_name);
2275: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Count'||p_del_rows.count);
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: --
2272: --
2273: IF l_debug_on THEN
2274: WSH_DEBUG_SV.push(l_module_name);
2275: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Count'||p_del_rows.count);
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;
2273: IF l_debug_on THEN
2274: WSH_DEBUG_SV.push(l_module_name);
2275: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Count'||p_del_rows.count);
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:
2343: CLOSE Check_Trip;
2344:
2345: IF (l_trip_id IS NULL) THEN
2346: IF l_debug_on THEN
2347: WSH_DEBUG_SV.logmsg(l_module_name,'Trip id is null for delivery-'||p_del_rows(i))
2348: ;
2349: END IF;
2350:
2351: -- Check to see if Trip Options are already set
2351: -- Check to see if Trip Options are already set
2352: IF NOT trip_options THEN
2353: trip_options := TRUE;
2354: IF l_debug_on THEN
2355: WSH_DEBUG_SV.logmsg(l_module_name,'Set Trip Options');
2356: END IF;
2357:
2358: x_autointransit_flag := 'Y';
2359: x_autoclose_flag := 'Y';
2362: -- Check to see if Ship Method has to be set
2363: -- for Deliveries with Autocreate Trip
2364: IF NOT ship_method_options THEN
2365: IF l_debug_on THEN
2366: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Method Options');
2367: END IF;
2368:
2369: IF first_ship_method THEN
2370: -- Initialize First Applicable Ship Method
2373: END IF;
2374: temp_ship_method_code := p_ship_method_code_vals(i);
2375: IF NVL(temp_ship_method_code,' ') = NVL(dist_ship_method_code,' ') THEN
2376: IF l_debug_on THEN
2377: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Methods are same null');
2378: END IF;
2379:
2380: NULL;
2381: ELSE
2380: NULL;
2381: ELSE
2382: -- Ship Methods are different for Deliveries, so Null Ship Method is returned
2383: IF l_debug_on THEN
2384: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Methods are different');
2385: END IF;
2386:
2387: dist_ship_method_code := NULL;
2388: ship_method_options := TRUE;
2395: l_last_del := check_last_del_trip(p_del_rows(i));
2396:
2397: IF l_last_del THEN
2398: IF l_debug_on THEN
2399: WSH_DEBUG_SV.logmsg(l_module_name,'Last Delivery in Trip-'||p_del_rows(i));
2400: END IF;
2401: trip_options := TRUE; -- trip options should be allowed
2402: x_autointransit_flag := 'Y';
2403: x_autoclose_flag := 'Y';
2428: x_autoclose_flag := 'D';
2429: END IF;
2430:
2431: IF l_debug_on THEN
2432: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set id'||x_report_set_id);
2433: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2434: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2435: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2436: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2429: END IF;
2430:
2431: IF l_debug_on THEN
2432: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set id'||x_report_set_id);
2433: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2434: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2435: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2436: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2437: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2430:
2431: IF l_debug_on THEN
2432: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set id'||x_report_set_id);
2433: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2434: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2435: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2436: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2437: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2438: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2431: IF l_debug_on THEN
2432: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set id'||x_report_set_id);
2433: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2434: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2435: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2436: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2437: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2438: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2439: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2432: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set id'||x_report_set_id);
2433: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2434: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2435: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2436: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2437: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2438: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2439: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2440: WSH_DEBUG_SV.logmsg(l_module_name,'End ship method '||x_ship_method_name);
2433: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2434: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2435: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2436: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2437: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2438: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2439: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2440: WSH_DEBUG_SV.logmsg(l_module_name,'End ship method '||x_ship_method_name);
2441: END IF;
2434: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2435: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2436: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2437: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2438: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2439: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2440: WSH_DEBUG_SV.logmsg(l_module_name,'End ship method '||x_ship_method_name);
2441: END IF;
2442:
2435: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2436: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2437: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2438: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2439: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2440: WSH_DEBUG_SV.logmsg(l_module_name,'End ship method '||x_ship_method_name);
2441: END IF;
2442:
2443: -- frontport bug 4310141:
2436: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2437: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2438: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2439: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2440: WSH_DEBUG_SV.logmsg(l_module_name,'End ship method '||x_ship_method_name);
2441: END IF;
2442:
2443: -- frontport bug 4310141:
2444: -- Bug 4103142 defaulted ship method from first trip
2469: END IF;
2470:
2471: --
2472: IF l_debug_on THEN
2473: WSH_DEBUG_SV.pop(l_module_name);
2474: END IF;
2475: --
2476:
2477: EXCEPTION
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');
2485: END IF;
2486: --
2487: END 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');
2485: END IF;
2486: --
2487: END Get_Delivery_Defaults;
2488:
3107: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3108: --
3109: IF l_debug_on IS NULL
3110: THEN
3111: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3112: END IF;
3113: --
3114: IF l_debug_on THEN
3115: WSH_DEBUG_SV.push(l_module_name);
3111: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3112: END IF;
3113: --
3114: IF l_debug_on THEN
3115: WSH_DEBUG_SV.push(l_module_name);
3116: --
3117: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3118: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3119: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3113: --
3114: IF l_debug_on THEN
3115: WSH_DEBUG_SV.push(l_module_name);
3116: --
3117: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3118: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3119: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3120: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3121: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3114: IF l_debug_on THEN
3115: WSH_DEBUG_SV.push(l_module_name);
3116: --
3117: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3118: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3119: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3120: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3121: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3122: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3115: WSH_DEBUG_SV.push(l_module_name);
3116: --
3117: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3118: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3119: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3120: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3121: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3122: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3123: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3116: --
3117: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3118: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3119: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3120: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3121: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3122: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3123: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3124: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3117: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3118: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3119: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3120: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3121: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3122: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3123: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3124: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3125: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3118: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3119: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3120: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3121: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3122: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3123: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3124: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3125: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3126: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3119: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3120: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3121: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3122: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3123: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3124: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3125: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3126: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3127: WSH_DEBUG_SV.log(l_module_name,'P_SEND_945_FLAG',P_SEND_945_FLAG);
3120: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3121: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3122: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3123: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3124: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3125: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3126: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3127: WSH_DEBUG_SV.log(l_module_name,'P_SEND_945_FLAG',P_SEND_945_FLAG);
3128: END IF;
3121: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3122: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3123: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3124: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3125: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3126: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3127: WSH_DEBUG_SV.log(l_module_name,'P_SEND_945_FLAG',P_SEND_945_FLAG);
3128: END IF;
3129: --
3122: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3123: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3124: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3125: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3126: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3127: WSH_DEBUG_SV.log(l_module_name,'P_SEND_945_FLAG',P_SEND_945_FLAG);
3128: END IF;
3129: --
3130: l_login_id := FND_GLOBAL.login_id;
3123: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3124: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3125: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3126: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3127: WSH_DEBUG_SV.log(l_module_name,'P_SEND_945_FLAG',P_SEND_945_FLAG);
3128: END IF;
3129: --
3130: l_login_id := FND_GLOBAL.login_id;
3131: l_user_id := FND_GLOBAL.user_id ;
3186: l_check_credit_init_flag := TRUE;
3187:
3188: -- Code Shifted from below to execute irrespective of the If condition - Workflow Changes
3189: IF l_debug_on THEN
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,
3229: --
3230: CLOSE get_delivery_name;
3231:
3232: IF l_debug_on THEN
3233: WSH_DEBUG_SV.log(l_module_name,'Delivery Name',l_delivery_name);
3234: WSH_DEBUG_SV.log(l_module_name,'Batch id',l_batch_id);
3235: --OTM R12
3236: WSH_DEBUG_SV.log(l_module_name,'ignore for planning',l_ignore_for_planning);
3237: WSH_DEBUG_SV.log(l_module_name,'tms interface flag',l_tms_interface_flag);
3230: CLOSE get_delivery_name;
3231:
3232: IF l_debug_on THEN
3233: WSH_DEBUG_SV.log(l_module_name,'Delivery Name',l_delivery_name);
3234: WSH_DEBUG_SV.log(l_module_name,'Batch id',l_batch_id);
3235: --OTM R12
3236: WSH_DEBUG_SV.log(l_module_name,'ignore for planning',l_ignore_for_planning);
3237: WSH_DEBUG_SV.log(l_module_name,'tms interface flag',l_tms_interface_flag);
3238: --
3232: IF l_debug_on THEN
3233: WSH_DEBUG_SV.log(l_module_name,'Delivery Name',l_delivery_name);
3234: WSH_DEBUG_SV.log(l_module_name,'Batch id',l_batch_id);
3235: --OTM R12
3236: WSH_DEBUG_SV.log(l_module_name,'ignore for planning',l_ignore_for_planning);
3237: WSH_DEBUG_SV.log(l_module_name,'tms interface flag',l_tms_interface_flag);
3238: --
3239: END IF;
3240:
3233: WSH_DEBUG_SV.log(l_module_name,'Delivery Name',l_delivery_name);
3234: WSH_DEBUG_SV.log(l_module_name,'Batch id',l_batch_id);
3235: --OTM R12
3236: WSH_DEBUG_SV.log(l_module_name,'ignore for planning',l_ignore_for_planning);
3237: WSH_DEBUG_SV.log(l_module_name,'tms interface flag',l_tms_interface_flag);
3238: --
3239: END IF;
3240:
3241:
3245: EXIT WHEN get_empty_containers%NOTFOUND;
3246: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_empty_container);
3247:
3248: IF l_debug_on THEN
3249: WSH_DEBUG_SV.log(l_module_name,'l_empty_container',l_empty_container);
3250: WSH_DEBUG_SV.log(l_module_name,'Empty Container',l_cont_name);
3251: END IF;
3252:
3253: FND_MESSAGE.SET_NAME('WSH','WSH_EMPTY_CONTAINER');
3246: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_empty_container);
3247:
3248: IF l_debug_on THEN
3249: WSH_DEBUG_SV.log(l_module_name,'l_empty_container',l_empty_container);
3250: WSH_DEBUG_SV.log(l_module_name,'Empty Container',l_cont_name);
3251: END IF;
3252:
3253: FND_MESSAGE.SET_NAME('WSH','WSH_EMPTY_CONTAINER');
3254: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3393:
3394: CLOSE get_trip;
3395:
3396: IF l_debug_on THEN
3397: WSH_DEBUG_SV.log(l_module_name,'trip id',l_otm_trip_id);
3398: WSH_DEBUG_SV.log(l_module_name,'carrier id',l_otm_carrier_id);
3399: WSH_DEBUG_SV.log(l_module_name,'ship method',l_otm_ship_method_code);
3400: WSH_DEBUG_SV.log(l_module_name,'mode',l_otm_mode);
3401: WSH_DEBUG_SV.log(l_module_name,'otm plan name',l_otm_plan_name);
3394: CLOSE get_trip;
3395:
3396: IF l_debug_on THEN
3397: WSH_DEBUG_SV.log(l_module_name,'trip id',l_otm_trip_id);
3398: WSH_DEBUG_SV.log(l_module_name,'carrier id',l_otm_carrier_id);
3399: WSH_DEBUG_SV.log(l_module_name,'ship method',l_otm_ship_method_code);
3400: WSH_DEBUG_SV.log(l_module_name,'mode',l_otm_mode);
3401: WSH_DEBUG_SV.log(l_module_name,'otm plan name',l_otm_plan_name);
3402: END IF;
3395:
3396: IF l_debug_on THEN
3397: WSH_DEBUG_SV.log(l_module_name,'trip id',l_otm_trip_id);
3398: WSH_DEBUG_SV.log(l_module_name,'carrier id',l_otm_carrier_id);
3399: WSH_DEBUG_SV.log(l_module_name,'ship method',l_otm_ship_method_code);
3400: WSH_DEBUG_SV.log(l_module_name,'mode',l_otm_mode);
3401: WSH_DEBUG_SV.log(l_module_name,'otm plan name',l_otm_plan_name);
3402: END IF;
3403:
3396: IF l_debug_on THEN
3397: WSH_DEBUG_SV.log(l_module_name,'trip id',l_otm_trip_id);
3398: WSH_DEBUG_SV.log(l_module_name,'carrier id',l_otm_carrier_id);
3399: WSH_DEBUG_SV.log(l_module_name,'ship method',l_otm_ship_method_code);
3400: WSH_DEBUG_SV.log(l_module_name,'mode',l_otm_mode);
3401: WSH_DEBUG_SV.log(l_module_name,'otm plan name',l_otm_plan_name);
3402: END IF;
3403:
3404: IF (p_ship_method IS NULL) THEN
3397: WSH_DEBUG_SV.log(l_module_name,'trip id',l_otm_trip_id);
3398: WSH_DEBUG_SV.log(l_module_name,'carrier id',l_otm_carrier_id);
3399: WSH_DEBUG_SV.log(l_module_name,'ship method',l_otm_ship_method_code);
3400: WSH_DEBUG_SV.log(l_module_name,'mode',l_otm_mode);
3401: WSH_DEBUG_SV.log(l_module_name,'otm plan name',l_otm_plan_name);
3402: END IF;
3403:
3404: IF (p_ship_method IS NULL) THEN
3405: --if p_ship_method is NULL, means no changes to the ship method,
3413: -- for this delivery during ship conform.
3414: --
3415:
3416: IF l_debug_on THEN
3417: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTERFACE_EXT_GRP.OTM_PRE_SHIP_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
3418: END IF;
3419:
3420: WSH_INTERFACE_EXT_GRP.otm_pre_ship_confirm(
3421: p_delivery_id => p_del_rows(i),
3424: p_trip_id => l_otm_trip_id,
3425: x_return_status => l_return_status);
3426:
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');
3453: --
3454: -- Ship method on a delivery cannot be changed for an OTM trip
3455: --
3456: IF l_debug_on THEN
3457: WSH_DEBUG_SV.log(l_module_name,'ship method on trip', l_otm_ship_method_code);
3458: WSH_DEBUG_SV.log(l_module_name,'ship method passed in ship confirm', p_ship_method);
3459: WSH_DEBUG_SV.logmsg(l_module_name,'ship method not allowed to change for otm trip');
3460: END IF;
3461:
3454: -- Ship method on a delivery cannot be changed for an OTM trip
3455: --
3456: IF l_debug_on THEN
3457: WSH_DEBUG_SV.log(l_module_name,'ship method on trip', l_otm_ship_method_code);
3458: WSH_DEBUG_SV.log(l_module_name,'ship method passed in ship confirm', p_ship_method);
3459: WSH_DEBUG_SV.logmsg(l_module_name,'ship method not allowed to change for otm trip');
3460: END IF;
3461:
3462: FND_MESSAGE.SET_NAME('WSH', 'WSH_OTM_SHIP_CONFIRM_ERROR');
3455: --
3456: IF l_debug_on THEN
3457: WSH_DEBUG_SV.log(l_module_name,'ship method on trip', l_otm_ship_method_code);
3458: WSH_DEBUG_SV.log(l_module_name,'ship method passed in ship confirm', p_ship_method);
3459: WSH_DEBUG_SV.logmsg(l_module_name,'ship method not allowed to change for otm trip');
3460: END IF;
3461:
3462: FND_MESSAGE.SET_NAME('WSH', 'WSH_OTM_SHIP_CONFIRM_ERROR');
3463: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_delivery_name);
3507: --
3508: -- Debug Statements
3509: --
3510: IF l_debug_on THEN
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);
3541: --
3542: -- Debug Statements
3543: --
3544: IF l_debug_on THEN
3545: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3546: END IF;
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);
3567: --
3568: -- Debug Statements
3569: --
3570: IF l_debug_on THEN
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;
3590: --
3591: -- Debug Statements
3592: --
3593: IF l_debug_on THEN
3594: WSH_DEBUG_SV.log(l_module_name,'l_sc_pickup_date',l_sc_pickup_date);
3595: WSH_DEBUG_SV.log(l_module_name,'l_sc_dropoff_date',l_sc_dropoff_date);
3596: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FLEXFIELD_UTILS.VALIDATE_DFF',WSH_DEBUG_SV.C_PROC_LEVEL);
3597: END IF;
3598: --
3591: -- Debug Statements
3592: --
3593: IF l_debug_on THEN
3594: WSH_DEBUG_SV.log(l_module_name,'l_sc_pickup_date',l_sc_pickup_date);
3595: WSH_DEBUG_SV.log(l_module_name,'l_sc_dropoff_date',l_sc_dropoff_date);
3596: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FLEXFIELD_UTILS.VALIDATE_DFF',WSH_DEBUG_SV.C_PROC_LEVEL);
3597: END IF;
3598: --
3599: wsh_flexfield_utils.Validate_DFF
3592: --
3593: IF l_debug_on THEN
3594: WSH_DEBUG_SV.log(l_module_name,'l_sc_pickup_date',l_sc_pickup_date);
3595: WSH_DEBUG_SV.log(l_module_name,'l_sc_dropoff_date',l_sc_dropoff_date);
3596: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FLEXFIELD_UTILS.VALIDATE_DFF',WSH_DEBUG_SV.C_PROC_LEVEL);
3597: END IF;
3598: --
3599: wsh_flexfield_utils.Validate_DFF
3600: (p_table_name => 'WSH_NEW_DELIVERIES',
3606: --
3607: -- Debug Statements
3608: --
3609: IF l_debug_on THEN
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);
3627: l_del_valid_flag,
3628: x_return_status);
3629:
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: --
3639: IF l_debug_on THEN
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);
3664: --
3665: -- Debug Statements
3666: --
3667: IF l_debug_on THEN
3668: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.CHECK_WMS_ORG',WSH_DEBUG_SV.C_PROC_LEVEL);
3669: END IF;
3670: --
3671: if (wsh_util_validate.Check_Wms_Org(l_organization_id)='Y') then
3672:
3679: --
3680: -- Debug Statements
3681: --
3682: IF l_debug_on THEN
3683: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_PUB.DEL_WSTT_RECS_BY_DELIVERY_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
3684: END IF;
3685: --
3686: WMS_SHIPPING_PUB.DEL_WSTT_RECS_BY_DELIVERY_ID(
3687: x_return_status => l_return_status,
3709: --
3710:
3711: -- Check for Exceptions against Delivery and Contents of Delivery
3712: IF l_debug_on THEN
3713: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Check_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
3714: END IF;
3715: l_exceptions_tab.delete;
3716: l_exp_logged := FALSE;
3717: WSH_XC_UTIL.Check_Exceptions (
3846: --
3847: -- Debug Statements
3848: --
3849: IF l_debug_on THEN
3850: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.CHECK_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
3851: END IF;
3852: --
3853: WSH_SHIP_CONFIRM_ACTIONS2.check_exception(
3854: p_delivery_detail_id => l_delivery_detail_id,
3862: --
3863: -- Debug Statements
3864: --
3865: IF l_debug_on THEN
3866: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTIONS EXIST FOR DELIVERY DETAIL ' || L_DELIVERY_DETAIL_ID|| ' , DURING SHIP CONFIRM' );
3867: END IF;
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));
3879: END IF;
3880: END IF;
3881:
3882: IF l_debug_on THEN
3883: WSH_DEBUG_SV.log(l_module_name,'l_delivery_detail_id'||l_delivery_detail_id);
3884: END IF;
3885:
3886: OPEN Get_Containers(l_delivery_detail_id);
3887: LOOP
3899: --
3900: -- Debug Statements
3901: --
3902: IF l_debug_on THEN
3903: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTIONS EXIST FOR CONTAINER ' || L_CONTAINER_ID|| ' , DURING SHIP CONFIRM' );
3904: END IF;
3905: --
3906: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3907: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_container_id));
3927: --
3928: -- Debug Statements
3929: --
3930: IF l_debug_on THEN
3931: WSH_DEBUG_SV.logmsg(l_module_name,'Calling WSH_FLEXFIELD_UTILS.VALIDATE_DFF to validate delivery details DFF',WSH_DEBUG_SV.C_PROC_LEVEL);
3932: END IF;
3933: --
3934: WSH_FLEXFIELD_UTILS.Validate_DFF(
3935: p_table_name => 'WSH_DELIVERY_DETAILS',
3938:
3939: --
3940: IF l_debug_on THEN
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: --
3946: --
3947: -- Debug Statements
3948: --
3949: IF l_debug_on THEN
3950: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FLEXFIELD_UTILS.VALIDATE_DFF failed for delivery detail : '
3951: || l_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
3952: WSH_DEBUG_SV.logmsg(l_module_name,'Return status after calling Validate_DFF in DEACB is : '
3953: || x_return_status);
3954: END IF;
3947: -- Debug Statements
3948: --
3949: IF l_debug_on THEN
3950: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FLEXFIELD_UTILS.VALIDATE_DFF failed for delivery detail : '
3951: || l_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
3952: WSH_DEBUG_SV.logmsg(l_module_name,'Return status after calling Validate_DFF in DEACB is : '
3953: || x_return_status);
3954: END IF;
3955: --
3948: --
3949: IF l_debug_on THEN
3950: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FLEXFIELD_UTILS.VALIDATE_DFF failed for delivery detail : '
3951: || l_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
3952: WSH_DEBUG_SV.logmsg(l_module_name,'Return status after calling Validate_DFF in DEACB is : '
3953: || x_return_status);
3954: END IF;
3955: --
3956: l_num_error := l_num_error + 1;
4055: --
4056: -- Debug Statements
4057: --
4058: IF l_debug_on THEN
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;
4105: --
4106: -- Debug Statements
4107: --
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');
4136: --
4137: -- Debug Statements
4138: --
4139: IF l_debug_on THEN
4140: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT',WSH_DEBUG_SV.C_PROC_LEVEL);
4141: END IF;
4142: --
4143: WMS_Shipping_LPN_Utils_PUB.update_lpn_context
4144: (p_delivery_id => p_del_rows(i),
4167: --
4168: -- Debug Statements
4169: --
4170: IF l_debug_on THEN
4171: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.BACKORDER',WSH_DEBUG_SV.C_PROC_LEVEL);
4172: END IF;
4173: --
4174:
4175:
4211: --
4212: -- Debug Statements
4213: --
4214: IF l_debug_on THEN
4215: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT',WSH_DEBUG_SV.C_PROC_LEVEL);
4216: END IF;
4217: --
4218: WMS_Shipping_LPN_Utils_PUB.update_lpn_context
4219: (p_delivery_id => p_del_rows(i),
4240: --
4241: -- Debug Statements
4242: --
4243: IF l_debug_on THEN
4244: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.BACKORDER',WSH_DEBUG_SV.C_PROC_LEVEL);
4245: END IF;
4246: --
4247:
4248: wsh_ship_confirm_actions2.backorder(
4306: -- HW OPMCONV - Added nvl to shipped_qty2
4307: l_cycle_quantity2 := nvl(l_assigned_cc_qtys2( j ), l_assigned_req_qtys2( j ) - nvl(l_shipped_quantity2,0));
4308: /* End Bug 2408223 */
4309: IF l_debug_on THEN
4310: WSH_DEBUG_SV.push(l_module_name);
4311: --
4312: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4313: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4314: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4308: /* End Bug 2408223 */
4309: IF l_debug_on THEN
4310: WSH_DEBUG_SV.push(l_module_name);
4311: --
4312: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4313: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4314: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4315: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4316:
4309: IF l_debug_on THEN
4310: WSH_DEBUG_SV.push(l_module_name);
4311: --
4312: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4313: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4314: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4315: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4316:
4317: WSH_DEBUG_SV.push(l_module_name);
4310: WSH_DEBUG_SV.push(l_module_name);
4311: --
4312: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4313: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4314: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4315: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4316:
4317: WSH_DEBUG_SV.push(l_module_name);
4318: --
4311: --
4312: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4313: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4314: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4315: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4316:
4317: WSH_DEBUG_SV.push(l_module_name);
4318: --
4319: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4313: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4314: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4315: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4316:
4317: WSH_DEBUG_SV.push(l_module_name);
4318: --
4319: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4320: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity',l_shipped_quantity2);
4321: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys( j ',l_assigned_req_qtys( j ));
4315: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4316:
4317: WSH_DEBUG_SV.push(l_module_name);
4318: --
4319: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4320: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity',l_shipped_quantity2);
4321: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys( j ',l_assigned_req_qtys( j ));
4322: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys( j ));
4323:
4316:
4317: WSH_DEBUG_SV.push(l_module_name);
4318: --
4319: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4320: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity',l_shipped_quantity2);
4321: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys( j ',l_assigned_req_qtys( j ));
4322: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys( j ));
4323:
4324: end if;
4317: WSH_DEBUG_SV.push(l_module_name);
4318: --
4319: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4320: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity',l_shipped_quantity2);
4321: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys( j ',l_assigned_req_qtys( j ));
4322: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys( j ));
4323:
4324: end if;
4325: if ( l_assigned_shp_qtys ( j ) is null ) then
4318: --
4319: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4320: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity',l_shipped_quantity2);
4321: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys( j ',l_assigned_req_qtys( j ));
4322: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys( j ));
4323:
4324: end if;
4325: if ( l_assigned_shp_qtys ( j ) is null ) then
4326: l_bo_mode := 'CYCLE_COUNT' ;
4399: --
4400: -- Debug Statements
4401: --
4402: IF l_debug_on THEN
4403: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
4404: END IF;
4405: --
4406: wsh_delivery_details_actions.split_delivery_details(
4407: p_from_detail_id => l_assigned_line_ids( j ),
4458: -- Consolidation of BO Delivery Details project
4459: l_cc_source_lines(l_cc_source_lines.count +1) := l_assigned_source_lines(j);
4460: l_cc_qtys ( l_cc_qtys.count + 1 ) := l_cycle_quantity ;
4461: IF l_debug_on THEN
4462: WSH_DEBUG_SV.push(l_module_name);
4463: --
4464: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4465: END IF;
4466:
4460: l_cc_qtys ( l_cc_qtys.count + 1 ) := l_cycle_quantity ;
4461: IF l_debug_on THEN
4462: WSH_DEBUG_SV.push(l_module_name);
4463: --
4464: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4465: END IF;
4466:
4467: l_cc_req_qtys ( l_cc_req_qtys.count + 1 ):= l_assigned_req_qtys( j ) ;
4468: l_cc_overpick_qtys ( l_cc_overpick_qtys.count + 1 ):= l_unshipped_pick_quantity ;
4468: l_cc_overpick_qtys ( l_cc_overpick_qtys.count + 1 ):= l_unshipped_pick_quantity ;
4469:
4470: l_cc_qtys2( l_cc_qtys2.count + 1 ) := l_cycle_quantity2 ;
4471: IF l_debug_on THEN
4472: WSH_DEBUG_SV.push(l_module_name);
4473: --
4474: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4475: END IF;
4476: l_cc_overpick_qtys2( l_cc_overpick_qtys2.count + 1 ) := l_unshipped_pick_quantity2 ;
4470: l_cc_qtys2( l_cc_qtys2.count + 1 ) := l_cycle_quantity2 ;
4471: IF l_debug_on THEN
4472: WSH_DEBUG_SV.push(l_module_name);
4473: --
4474: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4475: END IF;
4476: l_cc_overpick_qtys2( l_cc_overpick_qtys2.count + 1 ) := l_unshipped_pick_quantity2 ;
4477: end if ;
4478: END IF ;
4520: -- J: W/V Changes
4521: -- Recalculate the W/V as the quantities would have changed
4522: FOR tmp_counter IN 1..l_shp_dd_ids.count LOOP
4523: IF l_debug_on THEN
4524: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
4525: END IF;
4526:
4527: WSH_WV_UTILS.Detail_Weight_Volume(
4528: p_delivery_detail_id => l_shp_dd_ids(tmp_counter),
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);
4541: END IF;
4542: return;
4543: END IF;
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);
4541: END IF;
4542: return;
4543: END IF;
4544: END LOOP;
4578: --
4579: -- Debug Statements
4580: --
4581: IF l_debug_on THEN
4582: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.BACKORDER',WSH_DEBUG_SV.C_PROC_LEVEL);
4583: END IF;
4584: --
4585:
4586: wsh_ship_confirm_actions2.backorder(
4613: --
4614: -- Debug Statements
4615: --
4616: IF l_debug_on THEN
4617: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.BACKORDER',WSH_DEBUG_SV.C_PROC_LEVEL);
4618: END IF;
4619: --
4620:
4621: wsh_ship_confirm_actions2.backorder(
4655: --
4656: -- Debug Statements
4657: --
4658: IF l_debug_on THEN
4659: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_DETAIL_FOR_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
4660: END IF;
4661: --
4662: WSH_DELIVERY_VALIDATIONS.check_detail_for_confirm
4663: ( p_detail_id => l_shp_dd_ids(dd_count),
4676: --
4677: -- Debug Statements
4678: --
4679: IF l_debug_on 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);
4715: should NOT be set to FALSE
4716: */
4717:
4718: if l_debug_on then
4719: wsh_debug_sv.log(l_module_name, 'l_inv_controls_rec.details_required_flag', l_inv_controls_rec.details_required_flag);
4720: end if;
4721:
4722: if nvl(l_inv_controls_rec.details_required_flag, 'N') = 'Y' then
4723: l_inv_cntrl_flag := FALSE;
4775: --
4776: -- Debug Statements
4777: --
4778: IF l_debug_on THEN
4779: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
4780: END IF;
4781: --
4782: WSH_DELIVERY_DETAILS_INV.Default_Subinventory ( l_shp_dd_orgs ( dd_count ),
4783: l_shp_dd_items( dd_count ),
4796: --
4797: -- Debug Statements
4798: --
4799: IF l_debug_on THEN
4800: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_ORG_LOC',WSH_DEBUG_SV.C_PROC_LEVEL);
4801: END IF;
4802: --
4803: org_loc_ctl := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (l_shp_dd_orgs ( dd_count ));
4804:
4805: --
4806: -- Debug Statements
4807: --
4808: IF l_debug_on THEN
4809: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
4810: END IF;
4811: --
4812: sub_loc_ctl := WSH_DELIVERY_DETAILS_INV.Sub_Loc_Ctl (
4813: nvl(l_shp_dd_subs ( dd_count ),dft_subinv),
4817: --
4818: -- Debug Statements
4819: --
4820: IF l_debug_on THEN
4821: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.LOCATOR_CTL_CODE',WSH_DEBUG_SV.C_PROC_LEVEL);
4822: END IF;
4823: --
4824: loc_ctl_code := WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code(
4825: l_shp_dd_orgs ( dd_count ),
4838: --
4839: -- Debug Statements
4840: --
4841: IF l_debug_on THEN
4842: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_LOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
4843: END IF;
4844: --
4845: dft_loc_id := WSH_DELIVERY_DETAILS_INV.Default_Locator (
4846: l_shp_dd_orgs ( dd_count ),
4852: -- performance bug 5257207: SC-13, do this update only when needed.
4853: IF (l_shp_dd_subs(dd_count) IS NULL AND dft_subinv IS NOT NULL)
4854: OR (dft_loc_id IS NOT NULL) THEN
4855: IF l_debug_on THEN
4856: WSH_DEBUG_SV.logmsg(l_module_name, 'updating subinv/locator');
4857: WSH_DEBUG_SV.log(l_module_name, 'dft_subinv', dft_subinv);
4858: WSH_DEBUG_SV.log(l_module_name, 'dft_loc_id', dft_loc_id);
4859: END IF;
4860: update wsh_delivery_details set
4853: IF (l_shp_dd_subs(dd_count) IS NULL AND dft_subinv IS NOT NULL)
4854: OR (dft_loc_id IS NOT NULL) THEN
4855: IF l_debug_on THEN
4856: WSH_DEBUG_SV.logmsg(l_module_name, 'updating subinv/locator');
4857: WSH_DEBUG_SV.log(l_module_name, 'dft_subinv', dft_subinv);
4858: WSH_DEBUG_SV.log(l_module_name, 'dft_loc_id', dft_loc_id);
4859: END IF;
4860: update wsh_delivery_details set
4861: subinventory = NVL(subinventory, dft_subinv),
4854: OR (dft_loc_id IS NOT NULL) THEN
4855: IF l_debug_on THEN
4856: WSH_DEBUG_SV.logmsg(l_module_name, 'updating subinv/locator');
4857: WSH_DEBUG_SV.log(l_module_name, 'dft_subinv', dft_subinv);
4858: WSH_DEBUG_SV.log(l_module_name, 'dft_loc_id', dft_loc_id);
4859: END IF;
4860: update wsh_delivery_details set
4861: subinventory = NVL(subinventory, dft_subinv),
4862: locator_id = NVL(locator_id, dft_loc_id)
4869: END LOOP ;
4870:
4871: IF (NOT l_inv_cntrl_flag) THEN
4872: IF l_debug_on THEN
4873: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
4874: End If;
4875: If g_missing_inv_severity is null then
4876: g_missing_inv_severity := wsh_ru_actions.get_message_severity (wsh_new_delivery_actions.g_ship_confirm_act
4877: ,wsh_new_delivery_actions.g_missing_inv_cntl_msg);
4878: End If;
4879:
4880: -- bug 2283621 - pass the l_inv_ctrl_dd_ids to the warning message
4881: IF l_debug_on THEN
4882: WSH_DEBUG_SV.log(l_module_name,'l_inv_ctrl_dd_ids - '|| l_inv_ctrl_dd_ids);
4883: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
4884: END IF;
4885:
4886: If g_missing_inv_severity = 'E' then
4879:
4880: -- bug 2283621 - pass the l_inv_ctrl_dd_ids to the warning message
4881: IF l_debug_on THEN
4882: WSH_DEBUG_SV.log(l_module_name,'l_inv_ctrl_dd_ids - '|| l_inv_ctrl_dd_ids);
4883: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
4884: END IF;
4885:
4886: If g_missing_inv_severity = 'E' then
4887: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_INV_CONTROLS');
4901: END IF;
4902: /***************************Material Status Project***************************************/
4903: IF (NOT l_inv_material_flag) THEN
4904: IF l_debug_on THEN
4905: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
4906: End If;
4907: If g_missing_inv_severity is null then
4908: g_missing_inv_severity := wsh_ru_actions.get_message_severity (
4909: wsh_new_delivery_actions.g_ship_confirm_act,
4910: wsh_new_delivery_actions.g_invalid_material_status_msg);
4911: End If;
4912:
4913: IF l_debug_on THEN
4914: WSH_DEBUG_SV.log(l_module_name,'l_inv_material_dd_ids - '|| l_inv_material_dd_ids);
4915: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
4916: END IF;
4917:
4918: If g_missing_inv_severity = 'E' then
4911: End If;
4912:
4913: IF l_debug_on THEN
4914: WSH_DEBUG_SV.log(l_module_name,'l_inv_material_dd_ids - '|| l_inv_material_dd_ids);
4915: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
4916: END IF;
4917:
4918: If g_missing_inv_severity = 'E' then
4919: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_MATERIAL_STATUS');
4936: --
4937: -- Debug Statements
4938: --
4939: IF l_debug_on THEN
4940: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_DELIVERY_PKG.CHECK_RELEASED_LINES',WSH_DEBUG_SV.C_PROC_LEVEL);
4941: END IF;
4942: --
4943: wsh_tpa_delivery_pkg.check_released_lines(
4944: p_del_rows(i), l_unassign_dds.count,
4968: --
4969: -- Shifted code to obtain Global parameters outside the Deliveries loop ***
4970:
4971: IF l_debug_on THEN
4972: WSH_DEBUG_SV.logmsg(l_module_name,'Back Order Consolidation Flag is set as '||l_global_parameters.consolidate_bo_lines, WSH_DEBUG_SV.C_PROC_LEVEL);
4973: END IF;
4974:
4975: IF (l_global_parameters.consolidate_bo_lines = 'Y') THEN
4976: -- --{
5060: --
5061: -- Debug Statements
5062: --
5063: IF l_debug_on THEN
5064: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_UNPACK_EMPTY_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
5065: END IF;
5066:
5067: -- Unassign the lines marked for unassigning.
5068: WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont(
5084: --
5085: -- Debug Statements
5086: --
5087: IF l_debug_on THEN
5088: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.CONT_TOBE_UNASSIGNED',WSH_DEBUG_SV.C_PROC_LEVEL);
5089: END IF;
5090: -- Identify the Staged Lines or Containers to be Unassigned from the Delivery
5091: Cont_ToBe_Unassigned ( p_staged_lines => l_stage_rows,
5092: x_unassigned_cont => x_unassigned_cont,
5107: --
5108: -- Debug Statements
5109: --
5110: IF l_debug_on THEN
5111: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_UNPACK_EMPTY_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
5112: END IF;
5113: -- Unassign Containers or Staged Lines using new API
5114: WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont(
5115: p_ids_tobe_unassigned => x_unassigned_cont ,
5133: --
5134: -- Debug Statements
5135: --
5136: IF l_debug_on THEN
5137: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTERFACE.DELETE_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
5138: END IF;
5139: --
5140: wsh_interface.delete_details(
5141: p_details_id => l_cancel_line_ids,
5147: --
5148: -- Debug Statements
5149: --
5150: IF l_debug_on THEN
5151: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
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;
5162: -- Bug 5584951: Moved the call to after the call to unassign details.
5163:
5164: FOR tmp_counter IN 1..l_stage_rows.count LOOP
5165: IF l_debug_on THEN
5166: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5167: END IF;
5168:
5169: WSH_WV_UTILS.Detail_Weight_Volume(
5170: p_delivery_detail_id => l_stage_rows(tmp_counter),
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);
5182: END IF;
5183: return;
5184: END IF;
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);
5182: END IF;
5183: return;
5184: END IF;
5185: END LOOP;
5191: --
5192: -- Debug Statements
5193: --
5194: IF l_debug_on THEN
5195: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_ZERO_REQ_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
5196: END IF;
5197: --
5198: WSH_DETAILS_VALIDATIONS.check_zero_req_confirm(p_delivery_id => p_del_rows(i),
5199: x_return_status => l_return_status);
5207:
5208:
5209: -- Code Shifted from below 12. *** to here, since this is a mandatory step now - Workflow Changes
5210: IF l_debug_on THEN
5211: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',WSH_DEBUG_SV.C_PROC_LEVEL);
5212: END IF;
5213: --
5214: WSH_SHIPPING_PARAMS_PVT.Get(
5215: p_organization_id => l_organization_id,
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));
5250: --
5251: -- Debug Statements
5252: --
5253: IF l_debug_on THEN
5254: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
5255: END IF;
5256: --
5257: wsh_delivery_autocreate.autocreate_deliveries(
5258: p_line_rows => l_stage_rows ,
5274: END IF;
5275:
5276: --deliveryMerge
5277: IF l_debug_on THEN
5278: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
5279: END IF;
5280: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag(
5281: p_delivery_ids => l_dummy_rows,
5282: p_caller => 'WSH_DLMG',
5285: p_event => NULL,
5286: x_return_status => l_return_status);
5287:
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;
5322: -- Pack J, ITM -- Check if delivery needs to be marked for export compliance.
5323: l_itm_exc_severity := '-99';
5324:
5325: IF l_debug_on THEN
5326: wsh_debug_sv.log(l_module_name,'severity of ITM exception',l_itm_exc_severity);
5327: END IF;
5328:
5329: IF l_param_info.export_screening_flag IN ('S', 'A') THEN
5330:
5329: IF l_param_info.export_screening_flag IN ('S', 'A') THEN
5330:
5331:
5332: IF l_debug_on THEN
5333: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',WSH_DEBUG_SV.C_PROC_LEVEL);
5334: END IF;
5335:
5336: l_itm_exc_flag(p_del_rows(i)) := WSH_DELIVERY_VALIDATIONS.Check_ITM_Required
5337: (p_delivery_id => p_del_rows(i),
5336: l_itm_exc_flag(p_del_rows(i)) := WSH_DELIVERY_VALIDATIONS.Check_ITM_Required
5337: (p_delivery_id => p_del_rows(i),
5338: x_return_status => l_return_status);
5339: IF l_debug_on THEN
5340: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',l_return_status);
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:
5337: (p_delivery_id => p_del_rows(i),
5338: x_return_status => l_return_status);
5339: IF l_debug_on THEN
5340: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',l_return_status);
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
5338: x_return_status => l_return_status);
5339: IF l_debug_on THEN
5340: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',l_return_status);
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;
5354:
5355: END IF;
5356:
5357: IF l_debug_on THEN
5358: wsh_debug_sv.log(l_module_name,'severity of ITM exception',l_itm_exc_severity);
5359: END IF;
5360: ELSE
5361:
5362: l_itm_exc_flag(p_del_rows(i)) := 'N';
5385: FETCH get_delivery_wv INTO l_gross_weight, l_volume;
5386: CLOSE get_delivery_wv;
5387:
5388: IF l_debug_on THEN
5389: WSH_DEBUG_SV.logmsg(l_module_name,'Gross '||l_gross_weight||' Volume '||l_volume||' Fill basis '||l_param_info.percent_fill_basis_flag);
5390: END IF;
5391:
5392: IF (l_param_info.percent_fill_basis_flag = 'W' and l_gross_weight is NULL) THEN
5393: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WV');
5391:
5392: IF (l_param_info.percent_fill_basis_flag = 'W' and l_gross_weight is NULL) THEN
5393: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WV');
5394: IF l_debug_on THEN
5395: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5396: END IF;
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)));
5405:
5406: IF (l_param_info.percent_fill_basis_flag = 'V' and l_volume is NULL) THEN
5407: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WV');
5408: IF l_debug_on THEN
5409: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5410: END IF;
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)));
5424:
5425: l_underfilled_flag := FALSE;
5426: l_overfilled_flag := FALSE;
5427: IF l_debug_on THEN
5428: WSH_DEBUG_SV.log(l_module_name,'COUNT -'||l_shp_dd_cont_ids.count);
5429: END IF;
5430:
5431: FOR rec_count in 1..l_shp_dd_cont_ids.count
5432: LOOP
5430:
5431: FOR rec_count in 1..l_shp_dd_cont_ids.count
5432: LOOP
5433: IF l_debug_on THEN
5434: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CHECK_FILL_PC',WSH_DEBUG_SV.C_PROC_LEVEL);
5435: WSH_DEBUG_SV.log(l_module_name,'Cont -'||l_shp_dd_cont_ids(rec_count));
5436: END IF;
5437: --
5438: wsh_wv_utils.check_fill_pc( p_container_instance_id => l_shp_dd_cont_ids(rec_count),
5431: FOR rec_count in 1..l_shp_dd_cont_ids.count
5432: LOOP
5433: IF l_debug_on THEN
5434: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CHECK_FILL_PC',WSH_DEBUG_SV.C_PROC_LEVEL);
5435: WSH_DEBUG_SV.log(l_module_name,'Cont -'||l_shp_dd_cont_ids(rec_count));
5436: END IF;
5437: --
5438: wsh_wv_utils.check_fill_pc( p_container_instance_id => l_shp_dd_cont_ids(rec_count),
5439: x_fill_status => l_fill_status,
5439: x_fill_status => l_fill_status,
5440: x_return_status => l_return_status);
5441:
5442: IF l_debug_on THEN
5443: WSH_DEBUG_SV.log(l_module_name,'RET STS -'||l_return_status);
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:
5440: x_return_status => l_return_status);
5441:
5442: IF l_debug_on THEN
5443: WSH_DEBUG_SV.log(l_module_name,'RET STS -'||l_return_status);
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,
5441:
5442: IF l_debug_on THEN
5443: WSH_DEBUG_SV.log(l_module_name,'RET STS -'||l_return_status);
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
5463: l_save_fill_status := l_fill_status;
5464: END IF;
5465:
5466: IF l_debug_on THEN
5467: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_save_fill_status);
5468: END IF;
5469:
5470: END LOOP;
5471:
5471:
5472: l_fill_status := l_save_fill_status;
5473:
5474: IF l_debug_on THEN
5475: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP RET STS -'||l_return_status);
5476: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP SAV STS -'||l_save_fill_status);
5477: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP Fill St -'||l_fill_status);
5478: END IF;
5479:
5472: l_fill_status := l_save_fill_status;
5473:
5474: IF l_debug_on THEN
5475: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP RET STS -'||l_return_status);
5476: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP SAV STS -'||l_save_fill_status);
5477: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP Fill St -'||l_fill_status);
5478: END IF;
5479:
5480: -- 2732719
5473:
5474: IF l_debug_on THEN
5475: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP RET STS -'||l_return_status);
5476: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP SAV STS -'||l_save_fill_status);
5477: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP Fill St -'||l_fill_status);
5478: END IF;
5479:
5480: -- 2732719
5481: -- Calculate fill pc of the containers in the delivery
5509: --
5510: -- Debug Statements
5511: --
5512: IF l_debug_on THEN
5513: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
5514: END IF;
5515: --
5516: wsh_delivery_validations.check_confirm(
5517: p_delivery_id => p_del_rows(i),
5539: --
5540: -- Debug Statements
5541: --
5542: IF l_debug_on THEN
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;
5562: -- Bug 2711786
5563:
5564: --Ship Message Customization Project Change START
5565: IF l_debug_on THEN
5566: WSH_DEBUG_SV.logmsg(l_module_name,'g_break_ship_set_or_smc ',g_break_ship_set_or_smc);
5567: END IF;
5568: If g_break_ship_set_or_smc > 0 then
5569: g_break_ship_set_or_smc := 0 ;
5570: l_num_error := l_num_error + 1;
5568: If g_break_ship_set_or_smc > 0 then
5569: g_break_ship_set_or_smc := 0 ;
5570: l_num_error := l_num_error + 1;
5571: IF l_debug_on THEN
5572: WSH_DEBUG_SV.logmsg(l_module_name,'l_num_error ',l_num_error);
5573: WSH_DEBUG_SV.logmsg(l_module_name,'g_break_ship_set_or_smc ',g_break_ship_set_or_smc);
5574: END IF;
5575: goto confirm_error_no_msg;
5576: End If;
5569: g_break_ship_set_or_smc := 0 ;
5570: l_num_error := l_num_error + 1;
5571: IF l_debug_on THEN
5572: WSH_DEBUG_SV.logmsg(l_module_name,'l_num_error ',l_num_error);
5573: WSH_DEBUG_SV.logmsg(l_module_name,'g_break_ship_set_or_smc ',g_break_ship_set_or_smc);
5574: END IF;
5575: goto confirm_error_no_msg;
5576: End If;
5577: --Ship Message Customization Project Change END
5589: --
5590: -- Debug Statements
5591: --
5592: IF l_debug_on THEN
5593: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_DELIVERY_PKG.CHECK_DEL_UNPACKED',WSH_DEBUG_SV.C_PROC_LEVEL);
5594: END IF;
5595: --
5596: wsh_tpa_delivery_pkg.check_del_unpacked
5597: (l_delivery_id,
5625: --
5626: -- Debug Statements
5627: --
5628: IF l_debug_on THEN
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;
5673:
5674: END IF;
5675:
5676: IF l_debug_on THEN
5677: wsh_debug_sv.log(l_module_name,'delivery',p_del_rows(i));
5678: wsh_debug_sv.log(l_module_name,'l_pickup_stop_id',l_pickup_stop_id);
5679: wsh_debug_sv.log(l_module_name,'l_dropoff_stop_id',l_dropoff_stop_id);
5680: wsh_debug_sv.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
5681: wsh_debug_sv.log(l_module_name,'l_parent_delivery_id',l_parent_delivery_id);
5674: END IF;
5675:
5676: IF l_debug_on THEN
5677: wsh_debug_sv.log(l_module_name,'delivery',p_del_rows(i));
5678: wsh_debug_sv.log(l_module_name,'l_pickup_stop_id',l_pickup_stop_id);
5679: wsh_debug_sv.log(l_module_name,'l_dropoff_stop_id',l_dropoff_stop_id);
5680: wsh_debug_sv.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
5681: wsh_debug_sv.log(l_module_name,'l_parent_delivery_id',l_parent_delivery_id);
5682: END IF;
5675:
5676: IF l_debug_on THEN
5677: wsh_debug_sv.log(l_module_name,'delivery',p_del_rows(i));
5678: wsh_debug_sv.log(l_module_name,'l_pickup_stop_id',l_pickup_stop_id);
5679: wsh_debug_sv.log(l_module_name,'l_dropoff_stop_id',l_dropoff_stop_id);
5680: wsh_debug_sv.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
5681: wsh_debug_sv.log(l_module_name,'l_parent_delivery_id',l_parent_delivery_id);
5682: END IF;
5683:
5676: IF l_debug_on THEN
5677: wsh_debug_sv.log(l_module_name,'delivery',p_del_rows(i));
5678: wsh_debug_sv.log(l_module_name,'l_pickup_stop_id',l_pickup_stop_id);
5679: wsh_debug_sv.log(l_module_name,'l_dropoff_stop_id',l_dropoff_stop_id);
5680: wsh_debug_sv.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
5681: wsh_debug_sv.log(l_module_name,'l_parent_delivery_id',l_parent_delivery_id);
5682: END IF;
5683:
5684: /* Bug 2313359 Trip Information is Lost */
5677: wsh_debug_sv.log(l_module_name,'delivery',p_del_rows(i));
5678: wsh_debug_sv.log(l_module_name,'l_pickup_stop_id',l_pickup_stop_id);
5679: wsh_debug_sv.log(l_module_name,'l_dropoff_stop_id',l_dropoff_stop_id);
5680: wsh_debug_sv.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
5681: wsh_debug_sv.log(l_module_name,'l_parent_delivery_id',l_parent_delivery_id);
5682: END IF;
5683:
5684: /* Bug 2313359 Trip Information is Lost */
5685:
5712: x_return_status => l_return_status);
5713:
5714:
5715: IF l_debug_on THEN
5716: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and no ship method');
5717: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5718: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5719: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5720: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5713:
5714:
5715: IF l_debug_on THEN
5716: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and no ship method');
5717: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5718: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5719: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5720: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5721: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5714:
5715: IF l_debug_on THEN
5716: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and no ship method');
5717: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5718: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5719: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5720: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5721: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5722: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5715: IF l_debug_on THEN
5716: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and no ship method');
5717: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5718: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5719: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5720: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5721: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5722: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5723: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5716: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and no ship method');
5717: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5718: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5719: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5720: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5721: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5722: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5723: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5724: END IF;
5717: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5718: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5719: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5720: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5721: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5722: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
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: --
5718: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5719: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5720: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5721: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5722: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
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:
5719: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5720: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5721: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5722: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
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
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');
5732: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5733: END IF;
5734:
5735: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
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');
5732: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5733: END IF;
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)));
5754: --
5755: -- Debug Statements
5756: --
5757: IF l_debug_on THEN
5758: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP',WSH_DEBUG_SV.C_PROC_LEVEL);
5759: END IF;
5760: --
5761:
5762: --heali :Shipment Advice change for trip Consolidation.
5776: x_return_status := l_return_status;
5777: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_AUTOCREATE_TRIP_ERROR');
5778:
5779: IF l_debug_on THEN
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);
5798: l_trip_info_tab.delete;
5799: l_cc_count_success:=0;
5800:
5801: IF l_debug_on THEN
5802: wsh_debug_sv.log(l_module_name,'HASH_TRIP count',G_HASH_TRIP.COUNT);
5803: END IF;
5804:
5805: FOR cur in Get_Trip(p_del_rows(i)) LOOP
5806: b_tripalreadychecked:='N';
5808: FOR l_count_hashtrip in G_HASH_TRIP.FIRST..G_HASH_TRIP.LAST LOOP
5809: IF G_HASH_TRIP(l_count_hashtrip)=cur.trip_id THEN
5810: b_tripalreadychecked:='Y';
5811: IF l_debug_on THEN
5812: wsh_debug_sv.log(l_module_name,'HASH_TRIP matched', cur.trip_id);
5813: END IF;
5814: END IF;
5815: END LOOP;
5816: END IF;
5820: (cur.ship_method_code is null and (cur.carrier_id is null or cur.mode_of_transport is null))
5821: ) THEN
5822:
5823: IF l_debug_on THEN
5824: wsh_debug_sv.log(l_module_name,'trip not already checked',cur.trip_id);
5825: END IF;
5826: l_cc_count_success:=l_cc_count_success+1;
5827: l_trip_info_tab(l_cc_count_success).trip_id:=cur.trip_id;
5828: l_trip_info_tab(l_cc_count_success).ship_method_code:=cur.ship_method_code;
5832: END IF;
5833: END LOOP;
5834:
5835: IF l_debug_on THEN
5836: wsh_debug_sv.log(l_module_name,'l_trip_info_tab.COUNT : ',l_trip_info_tab.COUNT);
5837: END IF;
5838:
5839:
5840: IF l_trip_info_tab.COUNT>0 THEN
5859: x_msg_data => l_msg_data,
5860: x_return_status => l_return_status);
5861:
5862: IF l_debug_on THEN
5863: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with trip already present');
5864: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5865: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5866: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5867: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5860: x_return_status => l_return_status);
5861:
5862: IF l_debug_on THEN
5863: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with trip already present');
5864: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5865: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5866: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5867: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5868: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5861:
5862: IF l_debug_on THEN
5863: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with trip already present');
5864: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5865: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5866: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5867: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5868: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5869: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5862: IF l_debug_on THEN
5863: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with trip already present');
5864: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5865: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5866: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5867: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5868: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5869: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5870: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5863: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with trip already present');
5864: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5865: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5866: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5867: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5868: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5869: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5870: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5871: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5864: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5865: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5866: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5867: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5868: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5869: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5870: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5871: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5872: END IF;
5865: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5866: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5867: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5868: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5869: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5870: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5871: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5872: END IF;
5873: --
5866: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5867: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5868: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5869: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5870: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5871: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5872: END IF;
5873: --
5874:
5867: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5868: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5869: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5870: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
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
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);
5880: END IF;
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)));
5977: --
5978: -- Debug Statements
5979: --
5980: IF l_debug_on THEN
5981: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_GRP.GET_TRIP_DETAILS_PVT',WSH_DEBUG_SV.C_PROC_LEVEL);
5982: END IF;
5983: --
5984: wsh_trips_grp.get_trip_details_pvt
5985: (p_trip_id => l_trip_id,
5999: --
6000: -- Debug Statements
6001: --
6002: IF l_debug_on THEN
6003: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
6004: END IF;
6005: --
6006: wsh_fte_integration.trip_stop_validations
6007: (p_stop_rec => l_stop_rec,
6060: x_msg_data => l_msg_data,
6061: x_return_status => l_return_status);
6062:
6063: IF l_debug_on THEN
6064: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and ship method');
6065: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6066: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6067: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6068: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6061: x_return_status => l_return_status);
6062:
6063: IF l_debug_on THEN
6064: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and ship method');
6065: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6066: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6067: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6068: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6069: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6062:
6063: IF l_debug_on THEN
6064: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and ship method');
6065: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6066: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6067: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6068: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6069: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6070: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
6063: IF l_debug_on THEN
6064: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and ship method');
6065: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6066: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6067: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6068: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6069: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6070: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
6071: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
6064: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and ship method');
6065: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6066: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6067: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6068: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6069: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6070: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
6071: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
6072: END IF;
6065: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6066: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6067: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6068: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6069: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6070: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
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: --
6066: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6067: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6068: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6069: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6070: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
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:
6067: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6068: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6069: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6070: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
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
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');
6080: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6081: END IF;
6082:
6083: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
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');
6080: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6081: END IF;
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)));
6132:
6133: END IF;--l_trip_id is not null - autocreated trip
6134:
6135: IF l_debug_on THEN
6136: wsh_debug_sv.log(l_module_name,'p_intransit_flag', p_intransit_flag);
6137: wsh_debug_sv.log(l_module_name,'p_close_flag', p_close_flag);
6138: wsh_debug_sv.log(l_module_name,'l_itm_exc_severity', l_itm_exc_severity);
6139: END IF;
6140: /* Bug 2313359 move the code from above */
6133: END IF;--l_trip_id is not null - autocreated trip
6134:
6135: IF l_debug_on THEN
6136: wsh_debug_sv.log(l_module_name,'p_intransit_flag', p_intransit_flag);
6137: wsh_debug_sv.log(l_module_name,'p_close_flag', p_close_flag);
6138: wsh_debug_sv.log(l_module_name,'l_itm_exc_severity', l_itm_exc_severity);
6139: END IF;
6140: /* Bug 2313359 move the code from above */
6141:
6134:
6135: IF l_debug_on THEN
6136: wsh_debug_sv.log(l_module_name,'p_intransit_flag', p_intransit_flag);
6137: wsh_debug_sv.log(l_module_name,'p_close_flag', p_close_flag);
6138: wsh_debug_sv.log(l_module_name,'l_itm_exc_severity', l_itm_exc_severity);
6139: END IF;
6140: /* Bug 2313359 move the code from above */
6141:
6142: IF ((p_intransit_flag = 'Y' OR p_close_flag = 'Y') AND (l_enable_sc_wf <> 'Y') ) THEN
6256:
6257: END IF; -- end of IF (NOT l_unassign_all_flag_tab(i))
6258:
6259: IF l_debug_on THEN
6260: WSH_DEBUG_SV.log(l_module_name,'l_close_confirm_flag',l_close_confirm_flag );
6261: END IF;
6262:
6263: --set the close/confirm count accordingly
6264: IF(l_close_confirm_flag = 'C') THEN
6286: --
6287: -- Debug Statements
6288: --
6289: IF l_debug_on THEN
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;
6322: END IF;
6323: END IF;
6324: END IF;
6325: IF l_debug_on THEN
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
6368: --
6369: -- Debug Statements
6370: --
6371: IF l_debug_on THEN
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);
6403: 'WSH_INVALID_CATCHWEIGHT') ) THEN
6404: l_count := l_count + 1;
6405: l_msg_table(l_count) := WSH_INTEGRATION.G_MSG_TABLE(i);
6406: IF l_debug_on THEN
6407: WSH_DEBUG_SV.logmsg(l_module_name,'Msg '||i||' : '||WSH_INTEGRATION.G_MSG_TABLE(i).MESSAGE_TYPE||' '||WSH_INTEGRATION.G_MSG_TABLE(i).MESSAGE_NAME,WSH_DEBUG_SV.C_PROC_LEVEL);
6408: END IF;
6409: END IF;
6410: END LOOP;
6411: -- Call WMS api to process the table of l_msg_table only for wms enabled org
6451: -- Bug 2074768 : Check for tolerances now that all the delivery lines for all the deliveries have been updated.
6452: -- The need to check tolerances here arises because now we have all the deliveries that really will
6453: -- be ship confirmed.
6454: IF l_debug_on THEN
6455: WSH_DEBUG_SV.log(l_module_name,'p_del_rows count', p_del_rows.count);
6456: END IF;
6457:
6458: FOR i IN 1..p_del_rows.count LOOP
6459:
6461: --
6462: -- Debug Statements
6463: --
6464: IF l_debug_on THEN
6465: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_DELIVERY_FOR_TOLERANCES',WSH_DEBUG_SV.C_PROC_LEVEL);
6466: END IF;
6467: --
6468: wsh_Delivery_validations.check_delivery_for_tolerances (
6469: p_delivery_id => p_del_rows(i) ,
6482: end if ;
6483:
6484: -- Close Exceptions for the Delivery
6485: IF l_debug_on THEN
6486: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Close_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
6487: END IF;
6488: WSH_XC_UTIL.Close_Exceptions (
6489: p_api_version => 1.0,
6490: x_return_status => l_return_status,
6513:
6514: -- Create trip from deconsol location to ultimate drop off
6515: -- consol deliveriers.
6516: IF l_debug_on THEN
6517: WSH_DEBUG_SV.log(l_module_name,'l_mdc_co_del_tab count', l_mdc_co_del_tab.count);
6518: END IF;
6519:
6520: IF l_mdc_co_del_tab.count > 0 THEN
6521:
6535: -- 2121399
6536: -- Moved Create_Bol and Print_document_sets APIs outside the main For Loop and
6537: -- and placed it after the call to Check_Delivery_for_tolerances is made.
6538: IF l_debug_on THEN
6539: WSH_DEBUG_SV.log(l_module_name,'u_del_rows count', u_del_rows.count);
6540: END IF;
6541:
6542: FOR i IN 1..u_del_rows.count LOOP
6543:
6541:
6542: FOR i IN 1..u_del_rows.count LOOP
6543:
6544: IF l_debug_on THEN
6545: WSH_DEBUG_SV.log(l_module_name,'i', i);
6546: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag count', l_with_mc_trip_flag.count);
6547: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab count', l_unassign_all_flag_tab.count);
6548: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6549: WSH_DEBUG_SV.log(l_module_name,'u_del_rows i', u_del_rows(i));
6542: FOR i IN 1..u_del_rows.count LOOP
6543:
6544: IF l_debug_on THEN
6545: WSH_DEBUG_SV.log(l_module_name,'i', i);
6546: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag count', l_with_mc_trip_flag.count);
6547: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab count', l_unassign_all_flag_tab.count);
6548: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6549: WSH_DEBUG_SV.log(l_module_name,'u_del_rows i', u_del_rows(i));
6550: END IF;
6543:
6544: IF l_debug_on THEN
6545: WSH_DEBUG_SV.log(l_module_name,'i', i);
6546: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag count', l_with_mc_trip_flag.count);
6547: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab count', l_unassign_all_flag_tab.count);
6548: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6549: WSH_DEBUG_SV.log(l_module_name,'u_del_rows i', u_del_rows(i));
6550: END IF;
6551:
6544: IF l_debug_on THEN
6545: WSH_DEBUG_SV.log(l_module_name,'i', i);
6546: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag count', l_with_mc_trip_flag.count);
6547: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab count', l_unassign_all_flag_tab.count);
6548: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6549: WSH_DEBUG_SV.log(l_module_name,'u_del_rows i', u_del_rows(i));
6550: END IF;
6551:
6552: OPEN del_legs (u_del_rows(i));
6545: WSH_DEBUG_SV.log(l_module_name,'i', i);
6546: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag count', l_with_mc_trip_flag.count);
6547: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab count', l_unassign_all_flag_tab.count);
6548: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6549: WSH_DEBUG_SV.log(l_module_name,'u_del_rows i', u_del_rows(i));
6550: END IF;
6551:
6552: OPEN del_legs (u_del_rows(i));
6553: FETCH del_legs INTO l_pickup_stop_id, l_dropoff_stop_id, l_delivery_leg_id, l_parent_delivery_id;
6553: FETCH del_legs INTO l_pickup_stop_id, l_dropoff_stop_id, l_delivery_leg_id, l_parent_delivery_id;
6554: CLOSE del_legs;
6555:
6556: IF l_debug_on THEN
6557: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id', l_pickup_stop_id);
6558: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id', l_dropoff_stop_id);
6559: WSH_DEBUG_SV.log(l_module_name,'l_delivery_leg_id', l_delivery_leg_id);
6560: WSH_DEBUG_SV.log(l_module_name,'l_parent_delivery_id', l_parent_delivery_id);
6561: END IF;
6554: CLOSE del_legs;
6555:
6556: IF l_debug_on THEN
6557: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id', l_pickup_stop_id);
6558: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id', l_dropoff_stop_id);
6559: WSH_DEBUG_SV.log(l_module_name,'l_delivery_leg_id', l_delivery_leg_id);
6560: WSH_DEBUG_SV.log(l_module_name,'l_parent_delivery_id', l_parent_delivery_id);
6561: END IF;
6562:
6555:
6556: IF l_debug_on THEN
6557: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id', l_pickup_stop_id);
6558: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id', l_dropoff_stop_id);
6559: WSH_DEBUG_SV.log(l_module_name,'l_delivery_leg_id', l_delivery_leg_id);
6560: WSH_DEBUG_SV.log(l_module_name,'l_parent_delivery_id', l_parent_delivery_id);
6561: END IF;
6562:
6563: --Bug 5255366 (The above cursor can fetch parent-del-id of newly created trip hence can be null)
6556: IF l_debug_on THEN
6557: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id', l_pickup_stop_id);
6558: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id', l_dropoff_stop_id);
6559: WSH_DEBUG_SV.log(l_module_name,'l_delivery_leg_id', l_delivery_leg_id);
6560: WSH_DEBUG_SV.log(l_module_name,'l_parent_delivery_id', l_parent_delivery_id);
6561: END IF;
6562:
6563: --Bug 5255366 (The above cursor can fetch parent-del-id of newly created trip hence can be null)
6564: -- (Hence the second fetch is required)
6564: -- (Hence the second fetch is required)
6565: IF l_parent_delivery_id IS NULL THEN
6566:
6567: IF l_debug_on THEN
6568: WSH_DEBUG_SV.log(l_module_name,'p_del_rows i', p_del_rows(i));
6569: END IF;
6570:
6571: OPEN get_consol_del(p_del_rows(i));
6572: FETCH get_consol_del
6574: CLOSE get_consol_del;
6575: END IF;
6576:
6577: IF l_debug_on THEN
6578: WSH_DEBUG_SV.log(l_module_name,'l_parent_delivery_id', l_parent_delivery_id);
6579: END IF;
6580:
6581: --Bug 3685366
6582: l_dummy_doc_set(1).bol_error_flag:='N';
6582: l_dummy_doc_set(1).bol_error_flag:='N';
6583: --
6584:
6585: IF l_debug_on THEN
6586: WSH_DEBUG_SV.log(l_module_name,'p_bol_flag', p_bol_flag);
6587: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag', l_with_mc_trip_flag(i));
6588: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab', l_unassign_all_flag_tab(i));
6589: WSH_DEBUG_SV.log(l_module_name,'p_mc_bol_flag', p_mc_bol_flag);
6590: END IF;
6583: --
6584:
6585: IF l_debug_on THEN
6586: WSH_DEBUG_SV.log(l_module_name,'p_bol_flag', p_bol_flag);
6587: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag', l_with_mc_trip_flag(i));
6588: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab', l_unassign_all_flag_tab(i));
6589: WSH_DEBUG_SV.log(l_module_name,'p_mc_bol_flag', p_mc_bol_flag);
6590: END IF;
6591:
6584:
6585: IF l_debug_on THEN
6586: WSH_DEBUG_SV.log(l_module_name,'p_bol_flag', p_bol_flag);
6587: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag', l_with_mc_trip_flag(i));
6588: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab', l_unassign_all_flag_tab(i));
6589: WSH_DEBUG_SV.log(l_module_name,'p_mc_bol_flag', p_mc_bol_flag);
6590: END IF;
6591:
6592: IF ((p_bol_flag ='Y') AND (NOT l_with_mc_trip_flag(i)) AND (NOT l_unassign_all_flag_tab(i)) AND (l_pickup_stop_id IS NOT NULL)) THEN
6585: IF l_debug_on THEN
6586: WSH_DEBUG_SV.log(l_module_name,'p_bol_flag', p_bol_flag);
6587: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag', l_with_mc_trip_flag(i));
6588: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab', l_unassign_all_flag_tab(i));
6589: WSH_DEBUG_SV.log(l_module_name,'p_mc_bol_flag', p_mc_bol_flag);
6590: END IF;
6591:
6592: IF ((p_bol_flag ='Y') AND (NOT l_with_mc_trip_flag(i)) AND (NOT l_unassign_all_flag_tab(i)) AND (l_pickup_stop_id IS NOT NULL)) THEN
6593:
6612: --
6613: -- Debug Statements
6614: --
6615: IF l_debug_on THEN
6616: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6617: END IF;
6618: --
6619:
6620: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6650: -- Debug Statements
6651: --
6652:
6653: IF l_debug_on THEN
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;
6663:
6664: END IF;
6665:
6666: IF l_debug_on THEN
6667: WSH_DEBUG_SV.logmsg(l_module_name,'print doc set');
6668: END IF;
6669:
6670: --19.6. Print document set if p_report_set_id is specified
6671:
6685: FETCH c_delv_trip_id_cursor INTO l_dummy_doc_set(1).p_trip_id;
6686: EXIT WHEN c_delv_trip_id_cursor%NOTFOUND;
6687: --
6688: IF l_debug_on THEN
6689: WSH_DEBUG_SV.log(l_module_name, 'Trip Id : ', l_dummy_doc_set(1).p_trip_id );
6690: END IF;
6691: --
6692: END LOOP;
6693: CLOSE c_delv_trip_id_cursor;
6701: END IF;
6702: END IF;
6703: IF l_content_del_flag THEN
6704: IF l_debug_on THEN
6705: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_SETS.PRINT_DOCUMENT_SETS',WSH_DEBUG_SV.C_PROC_LEVEL);
6706: END IF;
6707: --
6708: wsh_document_sets.print_document_sets(
6709: p_report_set_id => l_document_set_id ,
6722: --
6723: -- Debug Statements
6724: --
6725: IF l_debug_on THEN
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;
6748: l_del_tmp_rows.delete;
6749: l_del_tmp_rows(1) := u_del_rows(i);
6750:
6751: IF l_debug_on THEN
6752: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit PLAN',WSH_DEBUG_SV.C_PROC_LEVEL);
6753: END IF;
6754:
6755: PLAN(p_del_rows => l_del_tmp_rows,
6756: x_return_status => l_return_status,
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);
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);
6772:
6773: END IF;
6774:
6775: IF l_debug_on THEN
6776: WSH_DEBUG_SV.log(l_module_name,'l_itm_exc_flag count', l_itm_exc_flag.count);
6777: END IF;
6778:
6779: IF l_itm_exc_flag(u_del_rows(i)) = 'Y' THEN
6780:
6778:
6779: IF l_itm_exc_flag(u_del_rows(i)) = 'Y' THEN
6780:
6781: IF l_debug_on THEN
6782: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
6783: END IF;
6784:
6785: WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception
6786: (p_delivery_id => u_del_rows(i),
6801: --
6802: -- Debug Statements
6803: --
6804: IF l_debug_on THEN
6805: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE',WSH_DEBUG_SV.C_PROC_LEVEL);
6806: END IF;
6807: --
6808: wsh_new_delivery_actions.update_leg_sequence(
6809: p_delivery_id => u_del_rows(i),
6835:
6836: -- 2121399
6837:
6838: IF l_debug_on THEN
6839: WSH_DEBUG_SV.log(l_module_name,'u_number_of_lpn count', l_with_mc_trip_flag.count);
6840: WSH_DEBUG_SV.log(l_module_name,'u_initial_pickup_date count', u_initial_pickup_date.count);
6841: WSH_DEBUG_SV.log(l_module_name,'u_ultimate_dropoff_date count', u_ultimate_dropoff_date.count);
6842: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6843: END IF;
6836: -- 2121399
6837:
6838: IF l_debug_on THEN
6839: WSH_DEBUG_SV.log(l_module_name,'u_number_of_lpn count', l_with_mc_trip_flag.count);
6840: WSH_DEBUG_SV.log(l_module_name,'u_initial_pickup_date count', u_initial_pickup_date.count);
6841: WSH_DEBUG_SV.log(l_module_name,'u_ultimate_dropoff_date count', u_ultimate_dropoff_date.count);
6842: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6843: END IF;
6844:
6837:
6838: IF l_debug_on THEN
6839: WSH_DEBUG_SV.log(l_module_name,'u_number_of_lpn count', l_with_mc_trip_flag.count);
6840: WSH_DEBUG_SV.log(l_module_name,'u_initial_pickup_date count', u_initial_pickup_date.count);
6841: WSH_DEBUG_SV.log(l_module_name,'u_ultimate_dropoff_date count', u_ultimate_dropoff_date.count);
6842: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6843: END IF;
6844:
6845: -- BULK UPDATE FOR ALL DELIVERIES IN p_del_rows
6838: IF l_debug_on THEN
6839: WSH_DEBUG_SV.log(l_module_name,'u_number_of_lpn count', l_with_mc_trip_flag.count);
6840: WSH_DEBUG_SV.log(l_module_name,'u_initial_pickup_date count', u_initial_pickup_date.count);
6841: WSH_DEBUG_SV.log(l_module_name,'u_ultimate_dropoff_date count', u_ultimate_dropoff_date.count);
6842: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6843: END IF;
6844:
6845: -- BULK UPDATE FOR ALL DELIVERIES IN p_del_rows
6846:
6897:
6898:
6899: --/== Workflow Changes - Controlling Workflow
6900: IF l_debug_on THEN
6901: WSH_DEBUG_SV.log(l_module_name,'L_ENABLE_SC_WF',l_enable_sc_wf);
6902: WSH_DEBUG_SV.log(l_module_name,'Controlling-scpod rows count',l_scpod_wf_del_rows.count);
6903: END IF;
6904: FOR k IN 1..l_scpod_wf_del_rows.count LOOP
6905: l_ctr := l_scpod_wf_del_rows(k);
6898:
6899: --/== Workflow Changes - Controlling Workflow
6900: IF l_debug_on THEN
6901: WSH_DEBUG_SV.log(l_module_name,'L_ENABLE_SC_WF',l_enable_sc_wf);
6902: WSH_DEBUG_SV.log(l_module_name,'Controlling-scpod rows count',l_scpod_wf_del_rows.count);
6903: END IF;
6904: FOR k IN 1..l_scpod_wf_del_rows.count LOOP
6905: l_ctr := l_scpod_wf_del_rows(k);
6906: IF l_debug_on THEN
6903: END IF;
6904: FOR k IN 1..l_scpod_wf_del_rows.count LOOP
6905: l_ctr := l_scpod_wf_del_rows(k);
6906: IF l_debug_on THEN
6907: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.START_SCPOD_C_PROCESS',WSH_DEBUG_SV.C_PROC_LEVEL);
6908: END IF;
6909:
6910: WSH_WF_STD.Start_Scpod_C_Process( p_entity_id => u_del_rows(l_ctr),
6911: p_organization_id => u_organization_id(l_ctr),
6911: p_organization_id => u_organization_id(l_ctr),
6912: x_process_started => l_process_started,
6913: x_return_status => l_return_status);
6914: IF l_debug_on THEN
6915: WSH_DEBUG_SV.log(l_module_name,'L_PROCESS_STARTED',l_process_started);
6916: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
6917: END IF;
6918:
6919: IF (l_process_started = 'Y' OR l_process_started = 'E') THEN
6912: x_process_started => l_process_started,
6913: x_return_status => l_return_status);
6914: IF l_debug_on THEN
6915: WSH_DEBUG_SV.log(l_module_name,'L_PROCESS_STARTED',l_process_started);
6916: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
6917: END IF;
6918:
6919: IF (l_process_started = 'Y' OR l_process_started = 'E') THEN
6920: l_aname_text(l_aname_text.COUNT + 1) := 'INTRANSIT_FLAG';
6967: -- Workflow Changes ==/
6968:
6969: FOR z IN 1..u_del_rows.count LOOP
6970: IF l_debug_on THEN
6971: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.Raise_Event',WSH_DEBUG_SV.C_PROC_LEVEL);
6972: END IF;
6973:
6974: WSH_WF_STD.Raise_Event(
6975: p_entity_type => 'DELIVERY',
6977: p_event => 'oracle.apps.wsh.delivery.gen.shipconfirmed',
6978: p_organization_id => u_organization_id(z),
6979: x_return_status => l_wf_rs);
6980: IF l_debug_on THEN
6981: WSH_DEBUG_SV.log(l_module_name,'L_WF_RS',l_wf_rs);
6982: END IF;
6983:
6984: END LOOP;
6985:
6992: --
6993: -- Debug Statements
6994: --
6995: IF l_debug_on THEN
6996: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRANSACTIONS_UTIL.SEND_DOCUMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
6997: END IF;
6998: --
6999: wsh_transactions_util.send_document(
7000: p_entity_id => u_del_rows(i),
7012: --
7013: -- Debug Statements
7014: --
7015: IF l_debug_on THEN
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;
7050:
7051: if u_stop_rows.count > 0 then
7052:
7053: IF l_debug_on THEN
7054: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_ACTIONS.CHANGE_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
7055: END IF;
7056: --
7057: wsh_trip_stops_actions.change_status(
7058: p_stop_rows => u_stop_rows,
7085: --
7086: -- Debug Statements
7087: --
7088: IF l_debug_on THEN
7089: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.DELETE_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
7090: END IF;
7091: --
7092: wsh_container_actions.delete_containers (
7093: p_container_id => l_delete_cnt_rec.delivery_detail_id,
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,
7165: --
7166: -- Debug Statements
7167: --
7168: IF l_debug_on THEN
7169: WSH_DEBUG_SV.pop(l_module_name);
7170: END IF;
7171: --
7172: EXCEPTION
7173: WHEN FND_API.G_EXC_ERROR THEN
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');
7188: END IF;
7189: --
7190: WHEN ship_confirm_error THEN
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');
7188: END IF;
7189: --
7190: WHEN ship_confirm_error THEN
7191:
7201: --
7202: -- Debug Statements
7203: --
7204: IF l_debug_on THEN
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;
7215: --
7216: -- Debug Statements
7217: --
7218: IF l_debug_on THEN
7219: WSH_DEBUG_SV.logmsg(l_module_name,'SHIP_CONFIRM_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7220: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:SHIP_CONFIRM_ERROR');
7221: END IF;
7222: --
7223: WHEN record_locked THEN
7216: -- Debug Statements
7217: --
7218: IF l_debug_on THEN
7219: WSH_DEBUG_SV.logmsg(l_module_name,'SHIP_CONFIRM_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7220: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:SHIP_CONFIRM_ERROR');
7221: END IF;
7222: --
7223: WHEN record_locked THEN
7224:
7240: --
7241: -- Debug Statements
7242: --
7243: IF l_debug_on THEN
7244: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7245: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
7246: END IF;
7247: --
7248: WHEN others THEN
7241: -- Debug Statements
7242: --
7243: IF l_debug_on THEN
7244: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7245: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
7246: END IF;
7247: --
7248: WHEN others THEN
7249:
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,
7275: --
7276: -- Debug Statements
7277: --
7278: IF l_debug_on THEN
7279: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7280: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7281: END IF;
7282: --
7283: END Confirm_Delivery ;
7276: -- Debug Statements
7277: --
7278: IF l_debug_on THEN
7279: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7280: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7281: END IF;
7282: --
7283: END Confirm_Delivery ;
7284:
7369: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7370: --
7371: IF l_debug_on IS NULL
7372: THEN
7373: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7374: END IF;
7375: --
7376: IF l_debug_on THEN
7377: WSH_DEBUG_SV.push(l_module_name);
7373: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7374: END IF;
7375: --
7376: IF l_debug_on THEN
7377: WSH_DEBUG_SV.push(l_module_name);
7378: --
7379: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7380: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7381: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7375: --
7376: IF l_debug_on THEN
7377: WSH_DEBUG_SV.push(l_module_name);
7378: --
7379: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7380: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7381: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7382: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7383: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7376: IF l_debug_on THEN
7377: WSH_DEBUG_SV.push(l_module_name);
7378: --
7379: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7380: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7381: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7382: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7383: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7384: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7377: WSH_DEBUG_SV.push(l_module_name);
7378: --
7379: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7380: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7381: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7382: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7383: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7384: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7385: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7378: --
7379: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7380: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7381: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7382: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7383: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7384: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7385: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7386: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.stop_id ', p_in_rec.stop_id );
7379: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7380: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7381: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7382: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7383: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7384: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7385: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7386: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.stop_id ', p_in_rec.stop_id );
7387: END IF;
7380: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7381: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7382: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7383: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7384: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7385: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7386: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.stop_id ', p_in_rec.stop_id );
7387: END IF;
7388: --
7381: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7382: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7383: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7384: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7385: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7386: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.stop_id ', p_in_rec.stop_id );
7387: END IF;
7388: --
7389: l_user_id := FND_GLOBAL.user_id;
7382: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7383: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7384: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7385: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7386: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.stop_id ', p_in_rec.stop_id );
7387: END IF;
7388: --
7389: l_user_id := FND_GLOBAL.user_id;
7390: l_login_id := FND_GLOBAL.login_id;
7414: FOR child_cnt_rec in l_get_cnt_attr_csr(p_in_rec.delivery_id) LOOP
7415: --{
7416: --
7417: IF l_debug_on THEN
7418: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.CHECK_WMS_ORG',WSH_DEBUG_SV.C_PROC_LEVEL);
7419: END IF;
7420: --
7421: l_wms_org := wsh_util_validate.check_wms_org(child_cnt_rec.organization_id);
7422: --
7434: --}
7435: END LOOP;
7436: --
7437: IF l_debug_on THEN
7438: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
7439: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
7440: END IF;
7441: --
7442: IF (WSH_WMS_LPN_GRP.GK_WMS_UPD_STS OR WSH_WMS_LPN_GRP.GK_WMS_UPD_QTY)
7435: END LOOP;
7436: --
7437: IF l_debug_on THEN
7438: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
7439: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
7440: END IF;
7441: --
7442: IF (WSH_WMS_LPN_GRP.GK_WMS_UPD_STS OR WSH_WMS_LPN_GRP.GK_WMS_UPD_QTY)
7443: AND l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count > 0
7444: THEN
7445: --{
7446: --
7447: IF l_debug_on THEN
7448: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
7449: END IF;
7450: --
7451: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
7452: (
7454: x_return_status => l_return_status
7455: );
7456: --
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: (
7471: THEN
7472: --{
7473: --
7474: IF l_debug_on THEN
7475: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
7476: END IF;
7477: --
7478: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
7479: (
7481: x_return_status => l_return_status
7482: );
7483: --
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: (
7513: AND released_status <> 'D'
7514: RETURNING delivery_detail_id BULK COLLECT INTO l_detail_tab; -- Added for DBI Project
7515: --
7516: IF l_debug_on THEN
7517: WSH_DEBUG_SV.log(l_module_name,'Number of Lines updated',SQL%ROWCOUNT);
7518: END IF;
7519: --
7520: --
7521: -- DBI Project
7522: -- Update of wsh_delivery_details where requested_quantity/released_status
7523: -- are changed, call DBI API after the update.
7524: -- DBI API will check if DBI is installed
7525: IF l_debug_on THEN
7526: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_detail_tab.count);
7527: END IF;
7528: WSH_INTEGRATION.DBI_Update_Detail_Log
7529: (p_delivery_detail_id_tab => l_detail_tab,
7530: p_dml_type => 'UPDATE',
7530: p_dml_type => 'UPDATE',
7531: x_return_status => l_dbi_rs);
7532:
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;
7565: l_del_entity_ids(1) := p_in_rec.delivery_id;
7566: l_override_wf:= fnd_profile.value('WSH_OVERRIDE_SCPOD_WF');
7567: IF (l_override_wf = 'Y' AND WSH_WF_STD.Wf_Exists('DELIVERY_C',p_in_rec.delivery_id)) THEN
7568: IF l_debug_on THEN
7569: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.LOG_WF_EXCEPTION', WSH_DEBUG_SV.C_PROC_LEVEL);
7570: END IF;
7571: WSH_WF_STD.Log_Wf_Exception(p_entity_type => 'DELIVERY',
7572: p_entity_id => p_in_rec.delivery_id,
7573: p_logging_entity => 'SHIPPER',
7573: p_logging_entity => 'SHIPPER',
7574: p_exception_name => 'WSH_DEL_SCPOD_PURGED',
7575: x_return_status => l_wf_rs);
7576: IF l_debug_on THEN
7577: WSH_DEBUG_SV.log(l_module_name,'L_WF_RS',l_wf_rs);
7578: END IF;
7579:
7580: IF l_debug_on THEN
7581: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.PURGE_ENTITY', WSH_DEBUG_SV.C_PROC_LEVEL);
7577: WSH_DEBUG_SV.log(l_module_name,'L_WF_RS',l_wf_rs);
7578: END IF;
7579:
7580: IF l_debug_on THEN
7581: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.PURGE_ENTITY', WSH_DEBUG_SV.C_PROC_LEVEL);
7582: END IF;
7583:
7584: WSH_WF_STD.Purge_Entity(p_entity_type => 'DELIVERY',
7585: p_entity_ids => l_del_entity_ids,
7586: p_docommit => FALSE,
7587: x_success_count => l_purged_count,
7588: x_return_status => l_wf_rs);
7589: IF l_debug_on THEN
7590: WSH_DEBUG_SV.log(l_module_name,'L_PURGED_COUNT',l_purged_count);
7591: WSH_DEBUG_SV.log(l_module_name,'L_WF_RS',l_wf_rs);
7592: END IF;
7593:
7594: END IF;
7587: x_success_count => l_purged_count,
7588: x_return_status => l_wf_rs);
7589: IF l_debug_on THEN
7590: WSH_DEBUG_SV.log(l_module_name,'L_PURGED_COUNT',l_purged_count);
7591: WSH_DEBUG_SV.log(l_module_name,'L_WF_RS',l_wf_rs);
7592: END IF;
7593:
7594: END IF;
7595:
7593:
7594: END IF;
7595:
7596: IF l_debug_on THEN
7597: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
7598: END IF;
7599:
7600: WSH_WF_STD.RAISE_EVENT(p_entity_type => 'DELIVERY',
7601: p_entity_id => p_in_rec.delivery_id,
7603: p_organization_id => l_org_id,
7604: x_return_status => l_wf_rs);
7605:
7606: IF l_debug_on THEN
7607: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
7608: END IF;
7609: -- Workflow Changes ==/
7610: END IF;
7611:
7612: --
7613:
7614: -- Close Exceptions for delivery and its contents
7615: IF l_debug_on THEN
7616: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Close_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
7617: END IF;
7618: WSH_XC_UTIL.Close_Exceptions (
7619: p_api_version => 1.0,
7620: x_return_status => l_return_status,
7652: --
7653: -- Debug Statements
7654: --
7655: IF l_debug_on THEN
7656: WSH_DEBUG_SV.pop(l_module_name);
7657: END IF;
7658: --
7659: --}
7660: EXCEPTION
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');
7671: END IF;
7672: --
7673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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');
7671: END IF;
7672: --
7673: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7674:
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');
7682: END IF;
7683: --
7684: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
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');
7682: END IF;
7683: --
7684: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
7685: x_return_status := WSH_UTIL_CORE.G_RET_STS_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: --
7697: --
7698: -- Debug Statements
7699: --
7700: IF l_debug_on THEN
7701: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7702: END IF;
7703: --
7704: --}
7705: END setInTransit;
7780: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7781: --
7782: IF l_debug_on IS NULL
7783: THEN
7784: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7785: END IF;
7786: --
7787: IF l_debug_on THEN
7788: WSH_DEBUG_SV.push(l_module_name);
7784: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7785: END IF;
7786: --
7787: IF l_debug_on THEN
7788: WSH_DEBUG_SV.push(l_module_name);
7789: --
7790: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7791: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7792: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7786: --
7787: IF l_debug_on THEN
7788: WSH_DEBUG_SV.push(l_module_name);
7789: --
7790: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7791: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7792: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7793: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7794: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7787: IF l_debug_on THEN
7788: WSH_DEBUG_SV.push(l_module_name);
7789: --
7790: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7791: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7792: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7793: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7794: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7795: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7788: WSH_DEBUG_SV.push(l_module_name);
7789: --
7790: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7791: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7792: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7793: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7794: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7795: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7796: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7789: --
7790: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7791: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7792: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7793: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7794: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7795: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7796: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7797: END IF;
7790: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7791: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7792: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7793: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7794: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7795: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7796: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7797: END IF;
7798: --
7791: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7792: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7793: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7794: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7795: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7796: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7797: END IF;
7798: --
7799: l_user_id := FND_GLOBAL.user_id;
7792: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7793: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7794: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7795: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7796: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7797: END IF;
7798: --
7799: l_user_id := FND_GLOBAL.user_id;
7800: l_login_id := FND_GLOBAL.login_id;
7862: END IF;
7863:
7864:
7865: IF l_debug_on THEN
7866: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
7867: END IF;
7868:
7869: WSH_WF_STD.RAISE_EVENT(p_entity_type => 'DELIVERY',
7870: p_entity_id => p_in_rec.delivery_id,
7872: p_organization_id => l_org_id,
7873: x_return_status => l_wf_rs);
7874:
7875: IF l_debug_on THEN
7876: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
7877: END IF;
7878: -- Workflow Changes ==/
7879:
7880: -- Close Exceptions for delivery and its contents
7878: -- Workflow Changes ==/
7879:
7880: -- Close Exceptions for delivery and its contents
7881: IF l_debug_on THEN
7882: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Close_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
7883: END IF;
7884: WSH_XC_UTIL.Close_Exceptions (
7885: p_api_version => 1.0,
7886: x_return_status => l_return_status,
7927: --
7928: -- Debug Statements
7929: --
7930: IF l_debug_on THEN
7931: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_ACTIONS.CHANGE_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
7932: END IF;
7933: --
7934: wsh_trip_stops_actions.change_status
7935: (
7969: --
7970: -- Debug Statements
7971: --
7972: IF l_debug_on THEN
7973: WSH_DEBUG_SV.pop(l_module_name);
7974: END IF;
7975: --
7976: --}
7977: EXCEPTION
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');
7989: END IF;
7990: --
7991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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');
7989: END IF;
7990: --
7991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7992:
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');
8000: END IF;
8001: --
8002: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
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');
8000: END IF;
8001: --
8002: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8003: x_return_status := WSH_UTIL_CORE.G_RET_STS_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: --
8015: --
8016: -- Debug Statements
8017: --
8018: IF l_debug_on THEN
8019: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8020: END IF;
8021: --
8022: --}
8023: END setClose;
8098: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8099: --
8100: IF l_debug_on IS NULL
8101: THEN
8102: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8103: END IF;
8104: --
8105: IF l_debug_on THEN
8106: WSH_DEBUG_SV.push(l_module_name);
8102: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8103: END IF;
8104: --
8105: IF l_debug_on THEN
8106: WSH_DEBUG_SV.push(l_module_name);
8107: --
8108: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
8109: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DATE',P_ACTUAL_DATE);
8110: END IF;
8104: --
8105: IF l_debug_on THEN
8106: WSH_DEBUG_SV.push(l_module_name);
8107: --
8108: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
8109: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DATE',P_ACTUAL_DATE);
8110: END IF;
8111: --
8112: --
8105: IF l_debug_on THEN
8106: WSH_DEBUG_SV.push(l_module_name);
8107: --
8108: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
8109: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DATE',P_ACTUAL_DATE);
8110: END IF;
8111: --
8112: --
8113: l_user_id := FND_GLOBAL.user_id;
8175: --
8176: -- Debug Statements
8177: --
8178: IF l_debug_on THEN
8179: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.check_inTransit',WSH_DEBUG_SV.C_PROC_LEVEL);
8180: END IF;
8181: --
8182: WSH_DELIVERY_VALIDATIONS.check_inTransit
8183: (
8186: x_allowed => l_Allowed
8187: );
8188: --
8189: IF l_debug_on THEN
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
8187: );
8188: --
8189: IF l_debug_on THEN
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: (
8214: END IF;
8215: --
8216: --
8217: IF l_debug_on THEN
8218: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit setInTransit',WSH_DEBUG_SV.C_PROC_LEVEL);
8219: END IF;
8220: --
8221: setInTransit
8222: (
8224: x_return_status => l_return_status
8225: );
8226: --
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: (
8253: --
8254: -- Debug Statements
8255: --
8256: IF l_debug_on THEN
8257: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.check_inTransit',WSH_DEBUG_SV.C_PROC_LEVEL);
8258: END IF;
8259: --
8260: WSH_DELIVERY_VALIDATIONS.check_close
8261: (
8264: x_allowed => l_Allowed
8265: );
8266: --
8267: IF l_debug_on THEN
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
8265: );
8266: --
8267: IF l_debug_on THEN
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: (
8292: END IF;
8293: --
8294: --
8295: IF l_debug_on THEN
8296: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit setClose',WSH_DEBUG_SV.C_PROC_LEVEL);
8297: END IF;
8298: --
8299: setClose
8300: (
8302: x_return_status => l_return_status
8303: );
8304: --
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: (
8323: --
8324: -- Debug Statements
8325: --
8326: IF l_debug_on THEN
8327: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_PACK',WSH_DEBUG_SV.C_PROC_LEVEL);
8328: END IF;
8329: --
8330: wsh_delivery_validations.check_pack(p_del_rows(i), l_return_status);
8331: --
8348: --
8349: -- Debug Statements
8350: --
8351: IF l_debug_on THEN
8352: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_REOPEN',WSH_DEBUG_SV.C_PROC_LEVEL);
8353: END IF;
8354: --
8355:
8356:
8378: P_Organization_ID => l_organization_id,
8379: X_Return_Status => l_return_status);
8380:
8381: IF l_debug_on THEN
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 (
8379: X_Return_Status => l_return_status);
8380:
8381: IF l_debug_on THEN
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,
8394: l_status_code := 'OP';
8395: END IF;
8396:
8397: IF l_debug_on THEN
8398: wsh_debug_sv.log (l_module_name, 'l_status_code',l_status_code);
8399: END IF;
8400:
8401:
8402: update wsh_new_deliveries
8438:
8439: --/== Workflow Changes
8440: IF (l_status_code = 'OP') THEN
8441: IF l_debug_on THEN
8442: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
8443: END IF;
8444:
8445: WSH_WF_STD.RAISE_EVENT(p_entity_type => 'DELIVERY',
8446: p_entity_id => p_del_rows(i),
8448: p_organization_id => l_organization_id,
8449: x_return_status => l_wf_rs);
8450:
8451: IF l_debug_on THEN
8452: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
8453: END IF;
8454: END IF;
8455: -- Workflow Changes ==/
8456:
8512: --
8513: -- Debug Statements
8514: --
8515: IF l_debug_on THEN
8516: WSH_DEBUG_SV.pop(l_module_name);
8517: END IF;
8518: --
8519: EXCEPTION
8520: WHEN FND_API.G_EXC_ERROR THEN
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');
8528: END IF;
8529: --
8530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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');
8528: END IF;
8529: --
8530: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8531:
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');
8539: END IF;
8540: --
8541: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
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');
8539: END IF;
8540: --
8541: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8542: x_return_status := WSH_UTIL_CORE.G_RET_STS_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:
8556: --
8557: -- Debug Statements
8558: --
8559: IF l_debug_on THEN
8560: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8561: END IF;
8562: --
8563: END CHANGE_STATUS;
8564:
8628: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8629: --
8630: IF l_debug_on IS NULL
8631: THEN
8632: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8633: END IF;
8634: --
8635: IF l_debug_on THEN
8636: WSH_DEBUG_SV.push(l_module_name);
8632: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8633: END IF;
8634: --
8635: IF l_debug_on THEN
8636: WSH_DEBUG_SV.push(l_module_name);
8637: --
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;
8634: --
8635: IF l_debug_on THEN
8636: WSH_DEBUG_SV.push(l_module_name);
8637: --
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;
8635: IF l_debug_on THEN
8636: WSH_DEBUG_SV.push(l_module_name);
8637: --
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';
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);
8659: END IF;
8660: --
8661: RETURN;
8662: END IF;
8676: x_leg_count := l_leg_count;
8677:
8678: IF (l_leg_count = 0 OR l_leg_count IS NULL) THEN
8679: IF l_debug_on THEN
8680: WSH_DEBUG_SV.pop(l_module_name);
8681: END IF;
8682: --
8683: RETURN;
8684: END IF;
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;
8716: --
8717: RETURN;
8718: END IF;
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);
8735: END IF;
8736: --
8737: RETURN;
8738: END IF;
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);
8754: END IF;
8755: --
8756: RETURN;
8757: END IF;
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);
8774: END IF;
8775: --
8776: RETURN;
8777: END IF;
8791:
8792: x_leg_complete := 'Y';
8793:
8794: IF l_debug_on THEN
8795: WSH_DEBUG_SV.pop(l_module_name);
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);
8805: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8806: END IF;
8807: --
8808: END 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');
8806: END IF;
8807: --
8808: END Complete_Leg_Sequence;
8809:
8823: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8824: --
8825: IF l_debug_on IS NULL
8826: THEN
8827: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8828: END IF;
8829: --
8830: IF l_debug_on THEN
8831: WSH_DEBUG_SV.push(l_module_name);
8827: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8828: END IF;
8829: --
8830: IF l_debug_on THEN
8831: WSH_DEBUG_SV.push(l_module_name);
8832: --
8833: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8834: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
8835: END IF;
8829: --
8830: IF l_debug_on THEN
8831: WSH_DEBUG_SV.push(l_module_name);
8832: --
8833: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8834: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
8835: END IF;
8836:
8837:
8830: IF l_debug_on THEN
8831: WSH_DEBUG_SV.push(l_module_name);
8832: --
8833: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8834: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
8835: END IF;
8836:
8837:
8838: Complete_Leg_Sequence
8842: x_leg_complete => l_leg_complete,
8843: x_return_status => l_return_status);
8844:
8845: IF l_debug_on THEN
8846: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',l_return_status);
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:
8843: x_return_status => l_return_status);
8844:
8845: IF l_debug_on THEN
8846: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',l_return_status);
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
8844:
8845: IF l_debug_on THEN
8846: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',l_return_status);
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
8865: END IF;
8866:
8867:
8868: IF l_debug_on THEN
8869: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
8870: WSH_DEBUG_SV.pop(l_module_name);
8871: END IF;
8872: --
8873: EXCEPTION
8866:
8867:
8868: IF l_debug_on THEN
8869: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
8870: WSH_DEBUG_SV.pop(l_module_name);
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);
8880: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8881: END IF;
8882: --
8883: END 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');
8881: END IF;
8882: --
8883: END Update_Leg_Sequence;
8884:
8902: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8903: --
8904: IF l_debug_on IS NULL
8905: THEN
8906: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8907: END IF;
8908: --
8909: IF l_debug_on THEN
8910: WSH_DEBUG_SV.push(l_module_name);
8906: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8907: END IF;
8908: --
8909: IF l_debug_on THEN
8910: WSH_DEBUG_SV.push(l_module_name);
8911: --
8912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8913: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_del_FLAG',P_UPDATE_del_FLAG);
8914: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_leg_FLAG',P_UPDATE_leg_FLAG);
8908: --
8909: IF l_debug_on THEN
8910: WSH_DEBUG_SV.push(l_module_name);
8911: --
8912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8913: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_del_FLAG',P_UPDATE_del_FLAG);
8914: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_leg_FLAG',P_UPDATE_leg_FLAG);
8915: END IF;
8916:
8909: IF l_debug_on THEN
8910: WSH_DEBUG_SV.push(l_module_name);
8911: --
8912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8913: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_del_FLAG',P_UPDATE_del_FLAG);
8914: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_leg_FLAG',P_UPDATE_leg_FLAG);
8915: END IF;
8916:
8917:
8910: WSH_DEBUG_SV.push(l_module_name);
8911: --
8912: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8913: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_del_FLAG',P_UPDATE_del_FLAG);
8914: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_leg_FLAG',P_UPDATE_leg_FLAG);
8915: END IF;
8916:
8917:
8918: Complete_Leg_Sequence
8923: x_leg_complete => l_leg_complete,
8924: x_return_status => x_return_status);
8925:
8926: IF l_debug_on THEN
8927: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',x_return_status);
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:
8924: x_return_status => x_return_status);
8925:
8926: IF l_debug_on THEN
8927: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',x_return_status);
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
8925:
8926: IF l_debug_on THEN
8927: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',x_return_status);
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
8951:
8952:
8953: IF l_debug_on THEN
8954: IF (x_leg_complete) THEN
8955: WSH_DEBUG_SV.logmsg(l_module_name,'x_leg_complete TRUE');
8956: ELSE
8957: WSH_DEBUG_SV.logmsg(l_module_name,'x_leg_complete FALSE');
8958: END IF;
8959:
8953: IF l_debug_on THEN
8954: IF (x_leg_complete) THEN
8955: WSH_DEBUG_SV.logmsg(l_module_name,'x_leg_complete TRUE');
8956: ELSE
8957: WSH_DEBUG_SV.logmsg(l_module_name,'x_leg_complete FALSE');
8958: END IF;
8959:
8960: WSH_DEBUG_SV.pop(l_module_name);
8961: END IF;
8956: ELSE
8957: WSH_DEBUG_SV.logmsg(l_module_name,'x_leg_complete FALSE');
8958: END IF;
8959:
8960: WSH_DEBUG_SV.pop(l_module_name);
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);
8970: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8971: END IF;
8972: --
8973: END Process_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');
8971: END IF;
8972: --
8973: END Process_Leg_Sequence;
8974: -- J-IB-HEALI---}
9052: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
9053: --
9054: IF l_debug_on IS NULL
9055: THEN
9056: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9057: END IF;
9058: --
9059: IF l_debug_on THEN
9060: WSH_DEBUG_SV.push(l_module_name);
9056: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9057: END IF;
9058: --
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:
9079: --
9080: -- Debug Statements
9081: --
9082: IF l_debug_on THEN
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;
9152: --
9153: -- Debug Statements
9154: --
9155: IF l_debug_on THEN
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;
9174: --
9175: -- Debug Statements
9176: --
9177: IF l_debug_on THEN
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;
9213: --
9214: -- Debug Statements
9215: --
9216: IF l_debug_on THEN
9217: WSH_DEBUG_SV.pop(l_module_name);
9218: END IF;
9219: --
9220: EXCEPTION
9221: WHEN others THEN
9231: --
9232: -- Debug Statements
9233: --
9234: IF l_debug_on THEN
9235: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9236: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9237: END IF;
9238: --
9239: END Generate_Loading_Seq;
9232: -- Debug Statements
9233: --
9234: IF l_debug_on THEN
9235: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9236: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9237: END IF;
9238: --
9239: END Generate_Loading_Seq;
9240:
9269: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
9270: --
9271: IF l_debug_on IS NULL
9272: THEN
9273: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9274: END IF;
9275: --
9276: IF l_debug_on THEN
9277: WSH_DEBUG_SV.push(l_module_name);
9273: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9274: END IF;
9275: --
9276: IF l_debug_on THEN
9277: WSH_DEBUG_SV.push(l_module_name);
9278: --
9279: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9280: END IF;
9281: --
9275: --
9276: IF l_debug_on THEN
9277: WSH_DEBUG_SV.push(l_module_name);
9278: --
9279: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9280: END IF;
9281: --
9282: --
9283: -- Debug Statements
9282: --
9283: -- Debug Statements
9284: --
9285: IF l_debug_on THEN
9286: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.POPULATE_RECORD',WSH_DEBUG_SV.C_PROC_LEVEL);
9287: END IF;
9288: --
9289: wsh_new_deliveries_pvt.populate_record( p_delivery_id, l_del_info, x_return_status);
9290:
9292: --
9293: -- Debug Statements
9294: --
9295: IF l_debug_on THEN
9296: WSH_DEBUG_SV.pop(l_module_name);
9297: END IF;
9298: --
9299: RETURN;
9300: END IF;
9300: END IF;
9301:
9302: --
9303: IF l_debug_on THEN
9304: WSH_DEBUG_SV.log(l_module_name,'l_del_info.shipment_direction',l_del_info.shipment_direction);
9305: END IF;
9306: --
9307:
9308: IF NVL(l_del_info.shipment_direction,'O') IN ('O','IO') -- J-IB-NPARIKH
9324: --
9325: -- Debug Statements
9326: --
9327: IF l_debug_on THEN
9328: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.UPDATE_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
9329: END IF;
9330: --
9331: wsh_new_deliveries_pvt.update_delivery( null, l_del_info, x_return_status);
9332:
9336: --
9337: -- Debug Statements
9338: --
9339: IF l_debug_on THEN
9340: WSH_DEBUG_SV.pop(l_module_name);
9341: END IF;
9342: --
9343: END Assign_Delivery_Update;
9344:
9442: --
9443: l_debug_on := wsh_debug_interface.g_debug;
9444: --
9445: IF l_debug_on IS NULL THEN
9446: l_debug_on := wsh_debug_sv.is_debug_enabled;
9447: END IF;
9448: --
9449: IF l_debug_on THEN
9450: wsh_debug_sv.push(l_module_name);
9446: l_debug_on := wsh_debug_sv.is_debug_enabled;
9447: END IF;
9448: --
9449: IF l_debug_on THEN
9450: wsh_debug_sv.push(l_module_name);
9451: --
9452: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
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);
9448: --
9449: IF l_debug_on THEN
9450: wsh_debug_sv.push(l_module_name);
9451: --
9452: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
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: --
9449: IF l_debug_on THEN
9450: wsh_debug_sv.push(l_module_name);
9451: --
9452: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
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;
9450: wsh_debug_sv.push(l_module_name);
9451: --
9452: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
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: --
9489: CLOSE dlvy_Csr;
9490: --
9491: --
9492: IF l_debug_on THEN
9493: wsh_debug_sv.LOG(l_module_name, 'l_dlvy_freight_terms_code', l_dlvy_freight_terms_code);
9494: wsh_debug_sv.LOG(l_module_name, 'l_name', l_name);
9495: wsh_debug_sv.LOG(l_module_name, 'l_shipment_direction', l_shipment_direction);
9496: END IF;
9497: --
9490: --
9491: --
9492: IF l_debug_on THEN
9493: wsh_debug_sv.LOG(l_module_name, 'l_dlvy_freight_terms_code', l_dlvy_freight_terms_code);
9494: wsh_debug_sv.LOG(l_module_name, 'l_name', l_name);
9495: wsh_debug_sv.LOG(l_module_name, 'l_shipment_direction', l_shipment_direction);
9496: END IF;
9497: --
9498: x_freight_terms_code := l_dlvy_freight_terms_code;
9491: --
9492: IF l_debug_on THEN
9493: wsh_debug_sv.LOG(l_module_name, 'l_dlvy_freight_terms_code', l_dlvy_freight_terms_code);
9494: wsh_debug_sv.LOG(l_module_name, 'l_name', l_name);
9495: wsh_debug_sv.LOG(l_module_name, 'l_shipment_direction', l_shipment_direction);
9496: END IF;
9497: --
9498: x_freight_terms_code := l_dlvy_freight_terms_code;
9499: --
9520: THEN
9521: --{
9522: --
9523: IF l_debug_on THEN
9524: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.has_lines',WSH_DEBUG_SV.C_PROC_LEVEL);
9525: END IF;
9526: --
9527: l_has_lines := WSH_DELIVERY_VALIDATIONS.has_lines
9528: (
9530: );
9531: --
9532: --
9533: IF l_debug_on THEN
9534: wsh_debug_sv.LOG(l_module_name, 'l_has_lines', l_has_lines);
9535: END IF;
9536: --
9537: --
9538: IF l_has_lines = 'Y' -- If delivery has lines
9626: l_cnt := l_cnt + 1;
9627: --
9628: --
9629: IF l_debug_on THEN
9630: wsh_debug_sv.LOG(l_module_name, 'line_rec.freight_Terms_code', line_rec.freight_Terms_code);
9631: END IF;
9632: --
9633: IF line_rec.freight_Terms_code IS NULL
9634: THEN
9655: THEN
9656: --{
9657:
9658: IF l_debug_on THEN
9659: wsh_debug_sv.LOGMSG(l_module_name, 'Updating delivery freight term to' || l_dlvy_freight_terms_code);
9660: END IF;
9661: --
9662: --OTM R12, this update here is done right after assign/unassign
9663: --of delivery lines, which means the
9687: END IF;
9688: --
9689: --
9690: IF l_debug_on THEN
9691: wsh_debug_sv.pop(l_module_name);
9692: END IF;
9693: --
9694: --}
9695: EXCEPTION
9696: --{
9697: WHEN e_end_of_api THEN
9698: IF l_debug_on
9699: THEN
9700: WSH_DEBUG_SV.pop(l_module_name);
9701: END IF;
9702: WHEN e_end_of_api1 THEN
9703: IF l_debug_on THEN
9704: wsh_debug_sv.LOGMSG(l_module_name, 'Updating delivery WHO columns ' );
9700: WSH_DEBUG_SV.pop(l_module_name);
9701: END IF;
9702: WHEN e_end_of_api1 THEN
9703: IF l_debug_on THEN
9704: wsh_debug_sv.LOGMSG(l_module_name, 'Updating delivery WHO columns ' );
9705: END IF;
9706: --
9707: UPDATE wsh_new_deliveries
9708: SET last_update_date = SYSDATE,
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);
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');
9733: END IF;
9734: WHEN e_locked THEN
9735: x_return_status := wsh_util_core.g_ret_sts_error;
9736:
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');
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);
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;
9752: --}
9753: END update_freight_terms;
9754: --
9850: --
9851: l_debug_on := wsh_debug_interface.g_debug;
9852: --
9853: IF l_debug_on IS NULL THEN
9854: l_debug_on := wsh_debug_sv.is_debug_enabled;
9855: END IF;
9856: --
9857: IF l_debug_on THEN
9858: wsh_debug_sv.push(l_module_name);
9854: l_debug_on := wsh_debug_sv.is_debug_enabled;
9855: END IF;
9856: --
9857: IF l_debug_on THEN
9858: wsh_debug_sv.push(l_module_name);
9859: --
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;
9856: --
9857: IF l_debug_on THEN
9858: wsh_debug_sv.push(l_module_name);
9859: --
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;
9857: IF l_debug_on THEN
9858: wsh_debug_sv.push(l_module_name);
9859: --
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: --
9935: --
9936: -- Debug Statements
9937: --
9938: IF l_debug_on THEN
9939: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_GRP.GET_STOP_DETAILS_PVT',WSH_DEBUG_SV.C_PROC_LEVEL);
9940: END IF;
9941: --
9942: wsh_trip_stops_grp.get_stop_details_pvt
9943: (p_stop_id => stop_rec.stop_id,
9954: -- Internal Locations J+
9955: -- Derive the physical location id
9956: IF l_stop_rec.stop_location_id <> p_location_id THEN -- New Location id
9957: IF l_debug_on THEN
9958: wsh_debug_sv.logmsg(l_module_name,'stop location id has been changed');
9959: END IF;
9960: -- Derive physical Location id for this new location
9961: WSH_LOCATIONS_PKG.Convert_internal_cust_location(
9962: p_internal_cust_location_id => p_location_id,
9963: x_internal_org_location_id => l_physical_location_id, -- New physical Location id
9964: x_return_status => l_return_status);
9965:
9966: IF l_debug_on THEN
9967: wsh_debug_sv.log(l_module_name,'New stop_location_id' , p_location_id);
9968: wsh_debug_sv.log(l_module_name,'Derived physical_location_id' , l_physical_location_id);
9969: END IF;
9970: -- delink the physical stop id
9971: IF nvl(l_stop_rec.physical_location_id, -99) <> nvl(l_physical_location_id, -99) THEN
9964: x_return_status => l_return_status);
9965:
9966: IF l_debug_on THEN
9967: wsh_debug_sv.log(l_module_name,'New stop_location_id' , p_location_id);
9968: wsh_debug_sv.log(l_module_name,'Derived physical_location_id' , l_physical_location_id);
9969: END IF;
9970: -- delink the physical stop id
9971: IF nvl(l_stop_rec.physical_location_id, -99) <> nvl(l_physical_location_id, -99) THEN
9972: l_stop_rec.physical_stop_id := NULL;
9984: -- the new stop location
9985: l_stop_rec.stop_location_id := p_location_id;
9986: -- End of Code changes made in J+
9987: IF l_debug_on THEN
9988: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
9989: END IF;
9990: --
9991: wsh_fte_integration.trip_stop_validations
9992: (p_stop_rec => l_stop_rec,
10019: -- Internal Locations J+
10020: -- Call Handle Internal Stops API to link the stops
10021: l_trip_id_tab(1) := l_stop_rec.trip_id;
10022: IF l_debug_on THEN
10023: wsh_debug_sv.log(l_module_name,'trip_id' , l_stop_rec.trip_id);
10024: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Handle_Internal_Stops',WSH_DEBUG_SV.C_PROC_LEVEL);
10025: END IF;
10026:
10027: WSH_TRIPS_ACTIONS.Handle_Internal_Stops(
10020: -- Call Handle Internal Stops API to link the stops
10021: l_trip_id_tab(1) := l_stop_rec.trip_id;
10022: IF l_debug_on THEN
10023: wsh_debug_sv.log(l_module_name,'trip_id' , l_stop_rec.trip_id);
10024: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Handle_Internal_Stops',WSH_DEBUG_SV.C_PROC_LEVEL);
10025: END IF;
10026:
10027: WSH_TRIPS_ACTIONS.Handle_Internal_Stops(
10028: p_trip_ids => l_trip_id_tab,
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
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);
10116: END IF;
10117: --
10118: --}
10119: EXCEPTION
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');
10130: END IF;
10131: --
10132: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
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');
10130: END IF;
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');
10140: END IF;
10141: --
10142: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
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');
10140: END IF;
10141: --
10142: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10143: x_return_status := WSH_UTIL_CORE.G_RET_STS_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:
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: --
10159: --}
10160: END update_ship_from_location;
10201:
10202: l_debug_on := wsh_debug_interface.g_debug;
10203: --
10204: IF l_debug_on IS NULL THEN
10205: l_debug_on := wsh_debug_sv.is_debug_enabled;
10206: END IF;
10207: --
10208: IF l_debug_on THEN
10209: wsh_debug_sv.push(l_module_name);
10205: l_debug_on := wsh_debug_sv.is_debug_enabled;
10206: END IF;
10207: --
10208: IF l_debug_on THEN
10209: wsh_debug_sv.push(l_module_name);
10210: --
10211: --
10212: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10213: END IF;
10208: IF l_debug_on THEN
10209: wsh_debug_sv.push(l_module_name);
10210: --
10211: --
10212: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10213: END IF;
10214:
10215: OPEN check_last_trip(p_delivery_id);
10216: FETCH check_last_trip
10218: CLOSE check_last_trip;
10219:
10220: IF l_trip_id IS NOT NULL THEN -- found a open delivery
10221: IF l_debug_on THEN
10222: wsh_debug_sv.LOGMSG(l_module_name, 'Last Del on Trip-' || l_trip_id);
10223: wsh_debug_sv.pop(l_module_name);
10224: END IF;
10225: return FALSE;
10226: ELSE -- no open delivery
10219:
10220: IF l_trip_id IS NOT NULL THEN -- found a open delivery
10221: IF l_debug_on THEN
10222: wsh_debug_sv.LOGMSG(l_module_name, 'Last Del on Trip-' || l_trip_id);
10223: wsh_debug_sv.pop(l_module_name);
10224: END IF;
10225: return FALSE;
10226: ELSE -- no open delivery
10227: IF l_debug_on THEN
10224: END IF;
10225: return FALSE;
10226: ELSE -- no open delivery
10227: IF l_debug_on THEN
10228: wsh_debug_sv.LOGMSG(l_module_name, 'THIS IS LAST OPEN DELIVERY on TRIP');
10229: wsh_debug_sv.pop(l_module_name);
10230: END IF;
10231: return TRUE;
10232: END IF;
10225: return FALSE;
10226: ELSE -- no open delivery
10227: IF l_debug_on THEN
10228: wsh_debug_sv.LOGMSG(l_module_name, 'THIS IS LAST OPEN DELIVERY on TRIP');
10229: wsh_debug_sv.pop(l_module_name);
10230: END IF;
10231: return TRUE;
10232: END IF;
10233:
10231: return TRUE;
10232: END IF;
10233:
10234: IF l_debug_on THEN
10235: wsh_debug_sv.pop(l_module_name);
10236: END IF;
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;
10246: RETURN FALSE;
10247: END check_last_del_trip;
10248:
10311: BEGIN
10312:
10313: l_debug_on := wsh_debug_interface.g_debug;
10314: IF l_debug_on IS NULL THEN
10315: l_debug_on := wsh_debug_sv.is_debug_enabled;
10316: END IF;
10317: IF l_debug_on THEN
10318: wsh_debug_sv.push(l_module_name);
10319: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10314: IF l_debug_on IS NULL THEN
10315: l_debug_on := wsh_debug_sv.is_debug_enabled;
10316: END IF;
10317: IF l_debug_on THEN
10318: wsh_debug_sv.push(l_module_name);
10319: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10320: END IF;
10321:
10322: -- checks whether the delivery is assigned to a trip
10315: l_debug_on := wsh_debug_sv.is_debug_enabled;
10316: END IF;
10317: IF l_debug_on THEN
10318: wsh_debug_sv.push(l_module_name);
10319: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10320: END IF;
10321:
10322: -- checks whether the delivery is assigned to a trip
10323:
10327:
10328: IF (l_count = 0) THEN
10329: -- delivery is not assigned to a trip
10330: IF l_debug_on THEN
10331: wsh_debug_sv.LOGMSG(l_module_name, 'NONE');
10332: wsh_debug_sv.pop(l_module_name);
10333: END IF;
10334: return 'NONE';
10335: ELSIF (l_count > 1) THEN
10328: IF (l_count = 0) THEN
10329: -- delivery is not assigned to a trip
10330: IF l_debug_on THEN
10331: wsh_debug_sv.LOGMSG(l_module_name, 'NONE');
10332: wsh_debug_sv.pop(l_module_name);
10333: END IF;
10334: return 'NONE';
10335: ELSIF (l_count > 1) THEN
10336: -- delivery is assigned to more than one trip
10334: return 'NONE';
10335: ELSIF (l_count > 1) THEN
10336: -- delivery is assigned to more than one trip
10337: IF l_debug_on THEN
10338: wsh_debug_sv.LOGMSG(l_module_name, 'MANY');
10339: wsh_debug_sv.pop(l_module_name);
10340: END IF;
10341: return 'MANY';
10342: END IF;
10335: ELSIF (l_count > 1) THEN
10336: -- delivery is assigned to more than one trip
10337: IF l_debug_on THEN
10338: wsh_debug_sv.LOGMSG(l_module_name, 'MANY');
10339: wsh_debug_sv.pop(l_module_name);
10340: END IF;
10341: return 'MANY';
10342: END IF;
10343:
10359:
10360: IF (l_count > 1) THEN
10361: -- trip is shared by more than one delivery - Error
10362: IF l_debug_on THEN
10363: wsh_debug_sv.LOGMSG(l_module_name, 'SHARED');
10364: wsh_debug_sv.pop(l_module_name);
10365: END IF;
10366: return 'SHARED';
10367: END IF;
10360: IF (l_count > 1) THEN
10361: -- trip is shared by more than one delivery - Error
10362: IF l_debug_on THEN
10363: wsh_debug_sv.LOGMSG(l_module_name, 'SHARED');
10364: wsh_debug_sv.pop(l_module_name);
10365: END IF;
10366: return 'SHARED';
10367: END IF;
10368:
10374:
10375: IF (l_count > 1) THEN
10376: -- trip is shared by more than one delivery - Error
10377: IF l_debug_on THEN
10378: wsh_debug_sv.LOGMSG(l_module_name, 'SHARED');
10379: wsh_debug_sv.pop(l_module_name);
10380: END IF;
10381: return 'SHARED';
10382: END IF;
10375: IF (l_count > 1) THEN
10376: -- trip is shared by more than one delivery - Error
10377: IF l_debug_on THEN
10378: wsh_debug_sv.LOGMSG(l_module_name, 'SHARED');
10379: wsh_debug_sv.pop(l_module_name);
10380: END IF;
10381: return 'SHARED';
10382: END IF;
10383:
10391:
10392: IF l_lane_id is not NULL
10393: THEN
10394: IF l_debug_on THEN
10395: wsh_debug_sv.LOGMSG(l_module_name, 'HAS_LANE');
10396: wsh_debug_sv.pop(l_module_name);
10397: END IF;
10398: return 'HAS_LANE';
10399: ELSE
10392: IF l_lane_id is not NULL
10393: THEN
10394: IF l_debug_on THEN
10395: wsh_debug_sv.LOGMSG(l_module_name, 'HAS_LANE');
10396: wsh_debug_sv.pop(l_module_name);
10397: END IF;
10398: return 'HAS_LANE';
10399: ELSE
10400: IF l_debug_on THEN
10397: END IF;
10398: return 'HAS_LANE';
10399: ELSE
10400: IF l_debug_on THEN
10401: wsh_debug_sv.LOGMSG(l_module_name, 'ONE-'||l_trip_id);
10402: wsh_debug_sv.pop(l_module_name);
10403: END IF;
10404: return 'ONE-'||l_trip_id;
10405: END IF;
10398: return 'HAS_LANE';
10399: ELSE
10400: IF l_debug_on THEN
10401: wsh_debug_sv.LOGMSG(l_module_name, 'ONE-'||l_trip_id);
10402: wsh_debug_sv.pop(l_module_name);
10403: END IF;
10404: return 'ONE-'||l_trip_id;
10405: END IF;
10406:
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;
10414:
10415: END GET_TRIP_STATUS;
10416:
10445:
10446: l_delivery_id NUMBER;
10447: l_content_dlvy BOOLEAN := FALSE;
10448:
10449: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
10450: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'IS_DLVY_CONTENT';
10451:
10452: BEGIN
10453:
10452: BEGIN
10453:
10454: --
10455: IF l_debug_on THEN
10456: wsh_debug_sv.push (l_module_name);
10457: END IF;
10458: --
10459:
10460: OPEN c_get_console_delivery(p_delivery_id) ;
10467: CLOSE c_get_console_delivery;
10468:
10469: --
10470: IF l_debug_on THEN
10471: wsh_debug_sv.pop(l_module_name);
10472: END IF;
10473: --
10474: RETURN l_content_dlvy;
10475:
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');
10488: END IF;
10489:
10490: END IS_DLVY_CONTENT;
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');
10488: END IF;
10489:
10490: END IS_DLVY_CONTENT;
10491:
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:
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;
10545: --
10546:
10547: IF p_delivery_type = 'STANDARD' THEN
10571:
10572:
10573: --
10574: IF l_debug_on THEN
10575: WSH_DEBUG_SV.pop(l_module_name);
10576: END IF;
10577: --
10578: EXCEPTION
10579:
10579:
10580: WHEN NO_SHIP_TO_SITE THEN
10581: -- Delivery is not assoociated with a site.
10582: IF l_debug_on THEN
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;
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;
10593:
10594: WHEN MULTIPLE_SHIP_TO_SITE THEN
10595:
10594: WHEN MULTIPLE_SHIP_TO_SITE THEN
10595:
10596: -- Delivery is associated with multiple sites
10597: IF l_debug_on THEN
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;
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;
10608:
10609: WHEN OTHERS THEN
10610:
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);
10621: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10622: END IF;
10623: --
10624: END GET_SHIP_TO_SITE;
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);
10621: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10622: END IF;
10623: --
10624: END GET_SHIP_TO_SITE;
10625:
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:
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;
10682: --
10683:
10684: OPEN c_get_shipto_cust_from_loc(p_ult_dropoff_loc_id);
10708: END IF;
10709:
10710: --
10711: IF l_debug_on THEN
10712: WSH_DEBUG_SV.pop(l_module_name);
10713: END IF;
10714: --
10715: EXCEPTION
10716:
10715: EXCEPTION
10716:
10717: WHEN NO_CUST_FOR_LOC THEN
10718: IF l_debug_on THEN
10719: wsh_debug_sv.logmsg(l_module_name, 'Location not associated with a customer');
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);
10729: END IF;
10730: WHEN MULT_CUST_FOR_LOC THEN
10731: -- Location associated with a multiple customers.
10732: IF l_debug_on THEN
10729: END IF;
10730: WHEN MULT_CUST_FOR_LOC THEN
10731: -- Location associated with a multiple customers.
10732: IF l_debug_on THEN
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;
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;
10743: WHEN OTHERS THEN
10744: IF (c_get_shipto_cust_from_loc%ISOPEN) THEN
10745: CLOSE c_get_shipto_cust_from_loc;
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');
10758: END IF;
10759: --
10760: END 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');
10758: END IF;
10759: --
10760: END GET_SHIP_TO_CUSTOMER;
10761:
10827:
10828: --
10829: IF l_debug_on IS NULL
10830: THEN
10831: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
10832: END IF;
10833: --
10834:
10835: IF l_debug_on THEN
10832: END IF;
10833: --
10834:
10835: IF l_debug_on THEN
10836: WSH_DEBUG_SV.push(l_module_name);
10837: END IF;
10838:
10839: --
10840: -- Obtain number of delivery legs, initial pick up date and ultimate drop off date for the delivery
10844: initial_pick_up_date := p_cs_mleg_result_tab(p_cs_mleg_result_tab.FIRST).pickup_date;
10845: ultimate_drop_off_date := p_cs_mleg_result_tab(p_cs_mleg_result_tab.LAST).dropoff_date;
10846:
10847: IF l_debug_on THEN
10848: WSH_DEBUG_SV.logmsg(l_module_name,'No of legs :'||num_legs);
10849: WSH_DEBUG_SV.logmsg(l_module_name,'initial_pick_up_date :'||to_char(initial_pick_up_date, 'dd/mm/yyyy hh:mi:ss'));
10850: WSH_DEBUG_SV.logmsg(l_module_name,'ultimate_drop_off_date :'||to_char(ultimate_drop_off_date, 'dd/mm/yyyy hh:mi:ss'));
10851: END IF;
10852:
10845: ultimate_drop_off_date := p_cs_mleg_result_tab(p_cs_mleg_result_tab.LAST).dropoff_date;
10846:
10847: IF l_debug_on THEN
10848: WSH_DEBUG_SV.logmsg(l_module_name,'No of legs :'||num_legs);
10849: WSH_DEBUG_SV.logmsg(l_module_name,'initial_pick_up_date :'||to_char(initial_pick_up_date, 'dd/mm/yyyy hh:mi:ss'));
10850: WSH_DEBUG_SV.logmsg(l_module_name,'ultimate_drop_off_date :'||to_char(ultimate_drop_off_date, 'dd/mm/yyyy hh:mi:ss'));
10851: END IF;
10852:
10853:
10846:
10847: IF l_debug_on THEN
10848: WSH_DEBUG_SV.logmsg(l_module_name,'No of legs :'||num_legs);
10849: WSH_DEBUG_SV.logmsg(l_module_name,'initial_pick_up_date :'||to_char(initial_pick_up_date, 'dd/mm/yyyy hh:mi:ss'));
10850: WSH_DEBUG_SV.logmsg(l_module_name,'ultimate_drop_off_date :'||to_char(ultimate_drop_off_date, 'dd/mm/yyyy hh:mi:ss'));
10851: END IF;
10852:
10853:
10854: rec_cnt := p_cs_mleg_result_tab.FIRST;
10921: --}
10922: ELSE -- transit time is not null
10923: --{
10924: IF l_debug_on THEN
10925: WSH_DEBUG_SV.log(l_module_name, 'transit_time_found', transit_time_found);
10926: WSH_DEBUG_SV.log(l_module_name, 'from_location_id', from_location_id);
10927: WSH_DEBUG_SV.log(l_module_name, 'to_location_id', to_location_id);
10928: WSH_DEBUG_SV.log(l_module_name, 'ship_method', ship_method);
10929: WSH_DEBUG_SV.log(l_module_name, 'transit_time', transit_time);
10922: ELSE -- transit time is not null
10923: --{
10924: IF l_debug_on THEN
10925: WSH_DEBUG_SV.log(l_module_name, 'transit_time_found', transit_time_found);
10926: WSH_DEBUG_SV.log(l_module_name, 'from_location_id', from_location_id);
10927: WSH_DEBUG_SV.log(l_module_name, 'to_location_id', to_location_id);
10928: WSH_DEBUG_SV.log(l_module_name, 'ship_method', ship_method);
10929: WSH_DEBUG_SV.log(l_module_name, 'transit_time', transit_time);
10930: END IF;
10923: --{
10924: IF l_debug_on THEN
10925: WSH_DEBUG_SV.log(l_module_name, 'transit_time_found', transit_time_found);
10926: WSH_DEBUG_SV.log(l_module_name, 'from_location_id', from_location_id);
10927: WSH_DEBUG_SV.log(l_module_name, 'to_location_id', to_location_id);
10928: WSH_DEBUG_SV.log(l_module_name, 'ship_method', ship_method);
10929: WSH_DEBUG_SV.log(l_module_name, 'transit_time', transit_time);
10930: END IF;
10931:
10924: IF l_debug_on THEN
10925: WSH_DEBUG_SV.log(l_module_name, 'transit_time_found', transit_time_found);
10926: WSH_DEBUG_SV.log(l_module_name, 'from_location_id', from_location_id);
10927: WSH_DEBUG_SV.log(l_module_name, 'to_location_id', to_location_id);
10928: WSH_DEBUG_SV.log(l_module_name, 'ship_method', ship_method);
10929: WSH_DEBUG_SV.log(l_module_name, 'transit_time', transit_time);
10930: END IF;
10931:
10932: IF rec_cnt = p_cs_mleg_result_tab.LAST THEN
10925: WSH_DEBUG_SV.log(l_module_name, 'transit_time_found', transit_time_found);
10926: WSH_DEBUG_SV.log(l_module_name, 'from_location_id', from_location_id);
10927: WSH_DEBUG_SV.log(l_module_name, 'to_location_id', to_location_id);
10928: WSH_DEBUG_SV.log(l_module_name, 'ship_method', ship_method);
10929: WSH_DEBUG_SV.log(l_module_name, 'transit_time', transit_time);
10930: END IF;
10931:
10932: IF rec_cnt = p_cs_mleg_result_tab.LAST THEN
10933: drop_off_date := ultimate_drop_off_date;
10962: p_cs_mleg_result_tab(rec_cnt).dropoff_date := drop_off_date;
10963: END IF;
10964:
10965: IF l_debug_on THEN
10966: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(rec_cnt).pickup_date :'||to_char(p_cs_mleg_result_tab(rec_cnt).pickup_date, 'dd/mm/yyyy hh:mi:ss'));
10967: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(rec_cnt).dropoff_date :'||to_char(p_cs_mleg_result_tab(rec_cnt).dropoff_date,'dd/mm/yyyy hh:mi:ss'));
10968: END IF;
10969: --}
10970: END IF;
10963: END IF;
10964:
10965: IF l_debug_on THEN
10966: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(rec_cnt).pickup_date :'||to_char(p_cs_mleg_result_tab(rec_cnt).pickup_date, 'dd/mm/yyyy hh:mi:ss'));
10967: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(rec_cnt).dropoff_date :'||to_char(p_cs_mleg_result_tab(rec_cnt).dropoff_date,'dd/mm/yyyy hh:mi:ss'));
10968: END IF;
10969: --}
10970: END IF;
10971: --}
11003: p_cs_mleg_result_tab(d_itr).dropoff_date := p_cs_mleg_result_tab(d_itr).dropoff_date + 1/144;
11004: END IF;
11005:
11006: IF l_debug_on THEN
11007: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).initial_pickup_location_id :'||p_cs_mleg_result_tab(d_itr).initial_pickup_location_id);
11008: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).pickup_date :'||to_char(p_cs_mleg_result_tab(d_itr).pickup_date, 'dd/mm/yyyy hh:mi:ss'));
11009: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).ultimate_dropoff_location_id :'||p_cs_mleg_result_tab(d_itr).ultimate_dropoff_location_id);
11010: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).dropoff_date :'||to_char(p_cs_mleg_result_tab(d_itr).dropoff_date,'dd/mm/yyyy hh:mi:ss'));
11011: END IF;
11004: END IF;
11005:
11006: IF l_debug_on THEN
11007: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).initial_pickup_location_id :'||p_cs_mleg_result_tab(d_itr).initial_pickup_location_id);
11008: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).pickup_date :'||to_char(p_cs_mleg_result_tab(d_itr).pickup_date, 'dd/mm/yyyy hh:mi:ss'));
11009: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).ultimate_dropoff_location_id :'||p_cs_mleg_result_tab(d_itr).ultimate_dropoff_location_id);
11010: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).dropoff_date :'||to_char(p_cs_mleg_result_tab(d_itr).dropoff_date,'dd/mm/yyyy hh:mi:ss'));
11011: END IF;
11012:
11005:
11006: IF l_debug_on THEN
11007: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).initial_pickup_location_id :'||p_cs_mleg_result_tab(d_itr).initial_pickup_location_id);
11008: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).pickup_date :'||to_char(p_cs_mleg_result_tab(d_itr).pickup_date, 'dd/mm/yyyy hh:mi:ss'));
11009: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).ultimate_dropoff_location_id :'||p_cs_mleg_result_tab(d_itr).ultimate_dropoff_location_id);
11010: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).dropoff_date :'||to_char(p_cs_mleg_result_tab(d_itr).dropoff_date,'dd/mm/yyyy hh:mi:ss'));
11011: END IF;
11012:
11013: EXIT WHEN d_itr = p_cs_mleg_result_tab.LAST;
11006: IF l_debug_on THEN
11007: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).initial_pickup_location_id :'||p_cs_mleg_result_tab(d_itr).initial_pickup_location_id);
11008: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).pickup_date :'||to_char(p_cs_mleg_result_tab(d_itr).pickup_date, 'dd/mm/yyyy hh:mi:ss'));
11009: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).ultimate_dropoff_location_id :'||p_cs_mleg_result_tab(d_itr).ultimate_dropoff_location_id);
11010: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_mleg_result_tab(d_itr).dropoff_date :'||to_char(p_cs_mleg_result_tab(d_itr).dropoff_date,'dd/mm/yyyy hh:mi:ss'));
11011: END IF;
11012:
11013: EXIT WHEN d_itr = p_cs_mleg_result_tab.LAST;
11014: d_itr := p_cs_mleg_result_tab.NEXT(d_itr);
11017: END IF;
11018: END IF;
11019:
11020: IF l_debug_on THEN
11021: WSH_DEBUG_SV.pop(l_module_name);
11022: END IF;
11023: --}
11024: EXCEPTION
11025:
11033: END IF;
11034:
11035: IF l_debug_on THEN
11036:
11037: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11038: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11039:
11040: END IF;
11041:
11034:
11035: IF l_debug_on THEN
11036:
11037: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11038: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11039:
11040: END IF;
11041:
11042: END SET_PICK_UP_DROP_OFF_DATES;
11118: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11119: --
11120: IF l_debug_on IS NULL
11121: THEN
11122: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11123: END IF;
11124: --
11125: --
11126: -- Debug Statements
11125: --
11126: -- Debug Statements
11127: --
11128: IF l_debug_on THEN
11129: WSH_DEBUG_SV.push(l_module_name);
11130: END IF;
11131: --
11132:
11133: IF l_debug_on THEN
11130: END IF;
11131: --
11132:
11133: IF l_debug_on THEN
11134: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_result_tab.COUNT :'||p_cs_result_tab.COUNT);
11135:
11136: END IF;
11137:
11138: IF (p_cs_result_tab.COUNT > 0) THEN
11142: l_prev_org_id := 0;
11143:
11144: fm := p_cs_result_tab.FIRST;
11145: IF l_debug_on THEN
11146: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_result_tab(fm).delivery_id :'||p_cs_result_tab(fm).delivery_id);
11147: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_result_tab(fm).trip_id :'||p_cs_result_tab(fm).trip_id);
11148: END IF;
11149:
11150: LOOP
11143:
11144: fm := p_cs_result_tab.FIRST;
11145: IF l_debug_on THEN
11146: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_result_tab(fm).delivery_id :'||p_cs_result_tab(fm).delivery_id);
11147: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_result_tab(fm).trip_id :'||p_cs_result_tab(fm).trip_id);
11148: END IF;
11149:
11150: LOOP
11151:
11477: --
11478: -- Debug Statements
11479: --
11480: IF l_debug_on THEN
11481: WSH_DEBUG_SV.pop(l_module_name);
11482: END IF;
11483: --
11484: RETURN;
11485:
11492: --
11493: -- Debug Statements
11494: --
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: --
11504: IF l_debug_on THEN
11505: WSH_DEBUG_SV.pop(l_module_name);
11506: END IF;
11507: --
11508: RETURN;
11509:
11510: --
11511: -- Debug Statements
11512: --
11513: IF l_debug_on THEN
11514: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11515: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11516: END IF;
11517: --
11518: END FORMAT_DEL_UPDATE_TABLE;
11511: -- Debug Statements
11512: --
11513: IF l_debug_on THEN
11514: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11515: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11516: END IF;
11517: --
11518: END FORMAT_DEL_UPDATE_TABLE;
11519:
11734: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11735: --
11736: IF l_debug_on IS NULL
11737: THEN
11738: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11739: END IF;
11740: --
11741: IF l_debug_on THEN
11742: WSH_DEBUG_SV.push(l_module_name);
11738: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11739: END IF;
11740: --
11741: IF l_debug_on THEN
11742: WSH_DEBUG_SV.push(l_module_name);
11743: --
11744: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11745: WSH_DEBUG_SV.log(l_module_name,'P_FORM_FLAG',P_FORM_FLAG);
11746: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
11740: --
11741: IF l_debug_on THEN
11742: WSH_DEBUG_SV.push(l_module_name);
11743: --
11744: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11745: WSH_DEBUG_SV.log(l_module_name,'P_FORM_FLAG',P_FORM_FLAG);
11746: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
11747: END IF;
11748: --
11741: IF l_debug_on THEN
11742: WSH_DEBUG_SV.push(l_module_name);
11743: --
11744: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11745: WSH_DEBUG_SV.log(l_module_name,'P_FORM_FLAG',P_FORM_FLAG);
11746: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
11747: END IF;
11748: --
11749:
11742: WSH_DEBUG_SV.push(l_module_name);
11743: --
11744: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11745: WSH_DEBUG_SV.log(l_module_name,'P_FORM_FLAG',P_FORM_FLAG);
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;
11765: --
11766:
11767: IF l_debug_on THEN
11768: --
11769: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11770: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID_TAB.COUNT',p_delivery_id_tab.COUNT);
11771:
11772: END IF;
11773:
11766:
11767: IF l_debug_on THEN
11768: --
11769: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11770: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID_TAB.COUNT',p_delivery_id_tab.COUNT);
11771:
11772: END IF;
11773:
11774: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_INVALID_INPUT');
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;
11787: --
11788: -- Debug Statements
11789: --
11790: IF l_debug_on THEN
11791: WSH_DEBUG_SV.pop(l_module_name);
11792: END IF;
11793: --
11794: RETURN;
11795: END IF;
11804: l_messaging_yn := 'N';
11805: l_previous_rows := 0;
11806:
11807: IF l_debug_on THEN
11808: WSH_DEBUG_SV.logmsg(l_module_name,'Using Cursor to get delivery info by batch id' );
11809: END IF;
11810:
11811:
11812: OPEN c_get_del_info_by_batch_id(p_batch_id, p_organization_id);
11825: IF itr IS NOT NULL THEN
11826: LOOP
11827:
11828: IF l_debug_on THEN
11829: WSH_DEBUG_SV.logmsg(l_module_name,'Using Cursor to get delivery information-Number of Deliveries '||p_delivery_id_tab.COUNT || ' *** '|| p_delivery_id_tab(itr)|| ' *** ');
11830: END IF;
11831:
11832: OPEN c_get_del_info_by_del_id(p_delivery_id_tab(itr));
11833: FETCH c_get_del_info_by_del_id INTO l_dlvy_info_rec;
11833: FETCH c_get_del_info_by_del_id INTO l_dlvy_info_rec;
11834: CLOSE c_get_del_info_by_del_id;
11835:
11836: /*IF l_debug_on THEN
11837: WSH_DEBUG_SV.logmsg(l_module_name, 'l_dlvy_info_rec.delivery_id: *** : '|| l_dlvy_info_rec.delivery_id);
11838: END IF;*/
11839:
11840: IF (l_dlvy_info_rec.l_delivery_id IS NOT NULL) THEN
11841: l_dlvy_info_tab(l_cnt) := l_dlvy_info_rec;
11853:
11854: l_messaging_yn := 'Y';
11855:
11856: IF l_debug_on THEN
11857: WSH_DEBUG_SV.logmsg(l_module_name,'Getting Information using Form');
11858: WSH_DEBUG_SV.logmsg(l_module_name,'Using Cursor to get delivery information-Number of Deliveries '||p_delivery_id_tab.COUNT);
11859: END IF;
11860:
11861:
11854: l_messaging_yn := 'Y';
11855:
11856: IF l_debug_on THEN
11857: WSH_DEBUG_SV.logmsg(l_module_name,'Getting Information using Form');
11858: WSH_DEBUG_SV.logmsg(l_module_name,'Using Cursor to get delivery information-Number of Deliveries '||p_delivery_id_tab.COUNT);
11859: END IF;
11860:
11861:
11862: FOR i IN p_delivery_id_tab.FIRST..p_delivery_id_tab.LAST LOOP
11861:
11862: FOR i IN p_delivery_id_tab.FIRST..p_delivery_id_tab.LAST LOOP
11863:
11864: IF l_debug_on THEN
11865: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY ID '||p_delivery_id_tab(i));
11866: END IF;
11867:
11868: OPEN c_get_del_info_by_form(p_delivery_id_tab(i));
11869: FETCH c_get_del_info_by_form INTO l_dlvy_info_rec;
11869: FETCH c_get_del_info_by_form INTO l_dlvy_info_rec;
11870: CLOSE c_get_del_info_by_form;
11871:
11872: IF l_debug_on THEN
11873: WSH_DEBUG_SV.logmsg(l_module_name, 'l_dlvy_info_rec.l_delivery_id: '|| l_dlvy_info_rec.l_delivery_id);
11874: END IF;
11875:
11876: IF (l_dlvy_info_rec.l_delivery_id IS NOT NULL) THEN
11877:
11891: --
11892: -- Debug Statements
11893: --
11894: IF l_debug_on THEN
11895: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY '||l_dlvy_info_rec.l_delivery_id||' IS A PLANNED DELIVERY , CARRIER SELECTION IS NOT ALLOWED' );
11896: END IF;
11897: --
11898: -- 11i10+ change
11899: ELSE
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
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
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;
11954:
11955: -- Delivery is not assigned to a trip Or
11956: -- Delivery is assigned to one trip and this trip is not shared with other deliveries
11972:
11973:
11974: IF (l_dlvy_info_tab.COUNT = 0) THEN
11975: IF l_debug_on THEN
11976: WSH_DEBUG_SV.logmsg(l_module_name, 'now exiting');
11977: WSH_DEBUG_SV.pop(l_module_name);
11978: END IF;
11979: RETURN;
11980: END IF;
11973:
11974: IF (l_dlvy_info_tab.COUNT = 0) THEN
11975: IF l_debug_on THEN
11976: WSH_DEBUG_SV.logmsg(l_module_name, 'now exiting');
11977: WSH_DEBUG_SV.pop(l_module_name);
11978: END IF;
11979: RETURN;
11980: END IF;
11981:
11984: i := l_dlvy_info_tab.FIRST;
11985:
11986: LOOP
11987: IF l_debug_on THEN
11988: WSH_DEBUG_SV.logmsg(l_module_name, 'l_cnt : '|| l_cnt);
11989: END IF;
11990: --
11991: -- If delivery is content do not add it.
11992: --
12020: x_return_status => l_return_status);
12021:
12022:
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');
12048: x_site_id => l_carrier_sel_entity_tab(l_cnt).customer_site_id,
12049: x_return_status => l_return_status);
12050:
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);
12068: WSH_SHIPPING_PARAMS_PVT.Get(x_param_value_info => l_param_rec ,
12069: x_return_status => l_return_status);
12070:
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);
12088: x_customer_id => l_carrier_sel_entity_tab(l_cnt).customer_id,
12089: x_return_status => l_return_status);
12090:
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);
12114: END LOOP;
12115:
12116: IF (l_carrier_sel_entity_tab.COUNT=0) THEN
12117: IF l_debug_on THEN
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;
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;
12128: END IF;
12129:
12189: --
12190: l_delivery_id := l_cs_result_tab(rec_cnt).delivery_id;
12191:
12192: IF l_debug_on THEN
12193: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12194: WSH_DEBUG_SV.log(l_module_name, 'l_prev_delivery_id', l_prev_delivery_id);
12195: WSH_DEBUG_SV.log(l_module_name, 'rec_cnt', rec_cnt);
12196: END IF;
12197:
12190: l_delivery_id := l_cs_result_tab(rec_cnt).delivery_id;
12191:
12192: IF l_debug_on THEN
12193: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12194: WSH_DEBUG_SV.log(l_module_name, 'l_prev_delivery_id', l_prev_delivery_id);
12195: WSH_DEBUG_SV.log(l_module_name, 'rec_cnt', rec_cnt);
12196: END IF;
12197:
12198: -- get the value of trip_id if delivery is assigned to trip
12191:
12192: IF l_debug_on THEN
12193: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12194: WSH_DEBUG_SV.log(l_module_name, 'l_prev_delivery_id', l_prev_delivery_id);
12195: WSH_DEBUG_SV.log(l_module_name, 'rec_cnt', rec_cnt);
12196: END IF;
12197:
12198: -- get the value of trip_id if delivery is assigned to trip
12199: IF l_delivery_id <> l_prev_delivery_id THEN
12234: --{
12235: --l_carrier_sel_result_rec := l_cs_result_tab(rec_cnt);
12236:
12237: IF l_debug_on THEN
12238: WSH_DEBUG_SV.log(l_module_name, 'l_num_ranked_results', l_num_ranked_results);
12239: WSH_DEBUG_SV.log(l_module_name, 'p_caller', p_caller);
12240: WSH_DEBUG_SV.log(l_module_name, 'l_skip_rtng_rule_ac_trip', l_skip_rtng_rule_ac_trip);
12241: WSH_DEBUG_SV.log(l_module_name, 'list_cnt', list_cnt);
12242: END IF;
12235: --l_carrier_sel_result_rec := l_cs_result_tab(rec_cnt);
12236:
12237: IF l_debug_on THEN
12238: WSH_DEBUG_SV.log(l_module_name, 'l_num_ranked_results', l_num_ranked_results);
12239: WSH_DEBUG_SV.log(l_module_name, 'p_caller', p_caller);
12240: WSH_DEBUG_SV.log(l_module_name, 'l_skip_rtng_rule_ac_trip', l_skip_rtng_rule_ac_trip);
12241: WSH_DEBUG_SV.log(l_module_name, 'list_cnt', list_cnt);
12242: END IF;
12243:
12236:
12237: IF l_debug_on THEN
12238: WSH_DEBUG_SV.log(l_module_name, 'l_num_ranked_results', l_num_ranked_results);
12239: WSH_DEBUG_SV.log(l_module_name, 'p_caller', p_caller);
12240: WSH_DEBUG_SV.log(l_module_name, 'l_skip_rtng_rule_ac_trip', l_skip_rtng_rule_ac_trip);
12241: WSH_DEBUG_SV.log(l_module_name, 'list_cnt', list_cnt);
12242: END IF;
12243:
12244: --
12237: IF l_debug_on THEN
12238: WSH_DEBUG_SV.log(l_module_name, 'l_num_ranked_results', l_num_ranked_results);
12239: WSH_DEBUG_SV.log(l_module_name, 'p_caller', p_caller);
12240: WSH_DEBUG_SV.log(l_module_name, 'l_skip_rtng_rule_ac_trip', l_skip_rtng_rule_ac_trip);
12241: WSH_DEBUG_SV.log(l_module_name, 'list_cnt', list_cnt);
12242: END IF;
12243:
12244: --
12245: -- 1. For Manual flow, append_flag is always set to 'Y'
12269: --}
12270: END IF;
12271:
12272: IF l_debug_on THEN
12273: WSH_DEBUG_SV.log(l_module_name, 'append_flag', l_cs_result_tab(rec_cnt).append_flag);
12274: END IF;
12275: */ -- Hiding project
12276:
12277: IF l_trip_id IS NULL THEN
12286: l_carrier_sel_result_rec.dropoff_date := l_carrier_sel_result_rec.dropoff_date+(1/144);
12287: END IF;
12288:
12289: IF l_debug_on THEN
12290: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(rec_cnt).pickup_date '||l_cs_result_tab(rec_cnt).pickup_date);
12291: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(rec_cnt).dropoff_date '||l_cs_result_tab(rec_cnt).dropoff_date);
12292: END IF;
12293: --
12294: -- Since delivery not assigned to any trip( trip_id is null), and rank = 1, Create trip for the delivery
12287: END IF;
12288:
12289: IF l_debug_on THEN
12290: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(rec_cnt).pickup_date '||l_cs_result_tab(rec_cnt).pickup_date);
12291: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(rec_cnt).dropoff_date '||l_cs_result_tab(rec_cnt).dropoff_date);
12292: END IF;
12293: --
12294: -- Since delivery not assigned to any trip( trip_id is null), and rank = 1, Create trip for the delivery
12295: --
12307: END IF;
12308: END IF;
12309:
12310: IF l_debug_on THEN
12311: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after calling CREATE_SEL_CREATE_TRIP '||x_return_status);
12312: WSH_DEBUG_SV.logmsg(l_module_name,'Trip_id '||l_trip_id);
12313: END IF;
12314:
12315: l_ranked_list.DELETE;
12308: END IF;
12309:
12310: IF l_debug_on THEN
12311: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after calling CREATE_SEL_CREATE_TRIP '||x_return_status);
12312: WSH_DEBUG_SV.logmsg(l_module_name,'Trip_id '||l_trip_id);
12313: END IF;
12314:
12315: l_ranked_list.DELETE;
12316: list_cnt := 1;
12329: l_ranked_list(list_cnt).IS_CURRENT := 'Y';
12330: l_ranked_list(list_cnt).CALL_RG_FLAG := 'N';
12331:
12332: IF l_debug_on THEN
12333: WSH_DEBUG_SV.logmsg(l_module_name,'Populated Ranked List for rank #1');
12334: END IF;
12335:
12336: --
12337: -- set l_cs_result_tab(rec_cnt) := NULL so that this record is not updated in
12407: --}
12408: END IF;
12409:
12410: IF l_debug_on THEN
12411: WSH_DEBUG_SV.log(l_module_name, 'l_ranked_list(list_cnt).CALL_RG_FLAG', l_ranked_list(list_cnt).CALL_RG_FLAG);
12412: END IF;
12413: --}
12414: END IF;
12415: --
12428: IF p_caller <> 'WSH_AUTO_CREATE_DEL_TRIP' OR
12429: (p_caller = 'WSH_AUTO_CREATE_DEL_TRIP' AND l_skip_rtng_rule_ac_trip <> 'Y') THEN
12430:
12431: IF l_debug_on THEN
12432: WSH_DEBUG_SV.logmsg(l_module_name, 'calling RANK_LIST_ACTION');
12433: END IF;
12434:
12435: WSH_FTE_INTEGRATION.RANK_LIST_ACTION(
12436: --p_api_version_number => 1.0,
12471:
12472: l_cs_result_tab(rec_cnt) := NULL;
12473:
12474: IF l_debug_on THEN
12475: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY '||l_delivery_id || ' IS ALREADY ASSIGNED TO TRIP '||l_trip_id);
12476: END IF;
12477: --}
12478: ELSIF p_caller = 'WSH_AUTO_CREATE_DEL_TRIP' AND l_skip_rtng_rule_ac_trip = 'Y' THEN
12479: --{
12494: i := 1;
12495: j := 1;
12496:
12497: IF l_debug_on THEN
12498: WSH_DEBUG_SV.logmsg(l_module_name,'l_start_index '||l_start_index);
12499: END IF;
12500: --
12501: -- For multileg results, first we need to get all the legs for a delivery
12502: -- in l_cs_mleg_result_tab. Then set pick up and drop off dates for leg pick
12522:
12523: l_end_index := rec_cnt;
12524:
12525: IF l_debug_on THEN
12526: WSH_DEBUG_SV.logmsg(l_module_name,'l_end_index '||l_end_index);
12527: END IF;
12528:
12529: SET_PICK_UP_DROP_OFF_DATES(
12530: p_cs_mleg_result_tab => l_cs_mleg_result_tab,
12542: l_cs_result_tab(j).pickup_date := l_cs_mleg_result_tab(k).pickup_date;
12543: l_cs_result_tab(j).dropoff_date := l_cs_mleg_result_tab(k).dropoff_date;
12544:
12545: IF l_debug_on THEN
12546: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).pickup_date :'||to_char(l_cs_result_tab(j).pickup_date, 'dd/mm/yyyy hh:mi:ss'));
12547: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).initial_pickup_location_id: '||l_cs_result_tab(j).initial_pickup_location_id);
12548: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).dropoff_date :'||to_char(l_cs_result_tab(j).dropoff_date,'dd/mm/yyyy hh:mi:ss'));
12549: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).ultimate_dropoff_location_id: '||l_cs_result_tab(j).ultimate_dropoff_location_id);
12550: END IF;
12543: l_cs_result_tab(j).dropoff_date := l_cs_mleg_result_tab(k).dropoff_date;
12544:
12545: IF l_debug_on THEN
12546: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).pickup_date :'||to_char(l_cs_result_tab(j).pickup_date, 'dd/mm/yyyy hh:mi:ss'));
12547: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).initial_pickup_location_id: '||l_cs_result_tab(j).initial_pickup_location_id);
12548: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).dropoff_date :'||to_char(l_cs_result_tab(j).dropoff_date,'dd/mm/yyyy hh:mi:ss'));
12549: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).ultimate_dropoff_location_id: '||l_cs_result_tab(j).ultimate_dropoff_location_id);
12550: END IF;
12551:
12544:
12545: IF l_debug_on THEN
12546: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).pickup_date :'||to_char(l_cs_result_tab(j).pickup_date, 'dd/mm/yyyy hh:mi:ss'));
12547: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).initial_pickup_location_id: '||l_cs_result_tab(j).initial_pickup_location_id);
12548: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).dropoff_date :'||to_char(l_cs_result_tab(j).dropoff_date,'dd/mm/yyyy hh:mi:ss'));
12549: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).ultimate_dropoff_location_id: '||l_cs_result_tab(j).ultimate_dropoff_location_id);
12550: END IF;
12551:
12552: l_carrier_sel_result_rec := l_cs_result_tab(j);
12545: IF l_debug_on THEN
12546: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).pickup_date :'||to_char(l_cs_result_tab(j).pickup_date, 'dd/mm/yyyy hh:mi:ss'));
12547: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).initial_pickup_location_id: '||l_cs_result_tab(j).initial_pickup_location_id);
12548: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).dropoff_date :'||to_char(l_cs_result_tab(j).dropoff_date,'dd/mm/yyyy hh:mi:ss'));
12549: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(j).ultimate_dropoff_location_id: '||l_cs_result_tab(j).ultimate_dropoff_location_id);
12550: END IF;
12551:
12552: l_carrier_sel_result_rec := l_cs_result_tab(j);
12553: WSH_FTE_INTEGRATION.CARRIER_SEL_CREATE_TRIP(
12613: END IF;
12614: --}
12615: END IF;
12616: IF l_debug_on THEN
12617: WSH_DEBUG_SV.logmsg(l_module_name, 'set l_prev_delivery_id and l_prev_trip_id');
12618: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12619: WSH_DEBUG_SV.log(l_module_name, 'l_trip_id', l_trip_id);
12620: END IF;
12621: l_prev_delivery_id := l_delivery_id;
12614: --}
12615: END IF;
12616: IF l_debug_on THEN
12617: WSH_DEBUG_SV.logmsg(l_module_name, 'set l_prev_delivery_id and l_prev_trip_id');
12618: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12619: WSH_DEBUG_SV.log(l_module_name, 'l_trip_id', l_trip_id);
12620: END IF;
12621: l_prev_delivery_id := l_delivery_id;
12622: l_prev_trip_id := l_trip_id;
12615: END IF;
12616: IF l_debug_on THEN
12617: WSH_DEBUG_SV.logmsg(l_module_name, 'set l_prev_delivery_id and l_prev_trip_id');
12618: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12619: WSH_DEBUG_SV.log(l_module_name, 'l_trip_id', l_trip_id);
12620: END IF;
12621: l_prev_delivery_id := l_delivery_id;
12622: l_prev_trip_id := l_trip_id;
12623:
12664: --
12665: -- Debug Statements
12666: --
12667: IF l_debug_on THEN
12668: WSH_DEBUG_SV.logmsg(l_module_name, 'CARRIER SELECTION - AUTO CREATE - COULD NOT UPDATE DELIVERY');
12669: END IF;
12670: --
12671: x_return_message := l_msg_data;
12672:
12670: --
12671: x_return_message := l_msg_data;
12672:
12673: IF l_debug_on THEN
12674: WSH_DEBUG_SV.pop(l_module_name);
12675: END IF;
12676: --
12677: RETURN;
12678: END IF;
12705: --
12706: -- Debug Statements
12707: --
12708: IF l_debug_on THEN
12709: WSH_DEBUG_SV.logmsg(l_module_name, 'CARRIER SELECTION - FORM MANUAL - COULD NOT UPDATE TRIP');
12710: END IF;
12711: --
12712: x_return_message := l_msg_data;
12713: --
12715: --
12716: -- Debug Statements
12717: --
12718: IF l_debug_on THEN
12719: WSH_DEBUG_SV.pop(l_module_name);
12720: END IF;
12721: --
12722: RETURN;
12723: END IF;
12729: --
12730: -- Debug Statements
12731: --
12732: IF l_debug_on THEN
12733: WSH_DEBUG_SV.pop(l_module_name);
12734: END IF;
12735: --
12736: EXCEPTION
12737: WHEN OTHERS THEN
12743: x_return_message := l_error_text;
12744:
12745:
12746: IF l_debug_on THEN
12747: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12748: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12749: END IF;
12750: --
12751: END PROCESS_CARRIER_SELECTION;
12744:
12745:
12746: IF l_debug_on THEN
12747: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12748: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12749: END IF;
12750: --
12751: END PROCESS_CARRIER_SELECTION;
12752: --SBAKSHI(R12)
12920: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
12921: --
12922: IF l_debug_on IS NULL
12923: THEN
12924: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12925: END IF;
12926: --
12927: IF l_debug_on THEN
12928: wsh_debug_sv.push (l_module_name);
12924: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12925: END IF;
12926: --
12927: IF l_debug_on THEN
12928: wsh_debug_sv.push (l_module_name);
12929: WSH_DEBUG_SV.log(l_module_name,'p_parent_del_id', p_parent_del_id);
12930: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
12931: END IF;
12932:
12925: END IF;
12926: --
12927: IF l_debug_on THEN
12928: wsh_debug_sv.push (l_module_name);
12929: WSH_DEBUG_SV.log(l_module_name,'p_parent_del_id', p_parent_del_id);
12930: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
12931: END IF;
12932:
12933: OPEN c_check_valid_parent(p_parent_del_id);
12926: --
12927: IF l_debug_on THEN
12928: wsh_debug_sv.push (l_module_name);
12929: WSH_DEBUG_SV.log(l_module_name,'p_parent_del_id', p_parent_del_id);
12930: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
12931: END IF;
12932:
12933: OPEN c_check_valid_parent(p_parent_del_id);
12934: FETCH c_check_valid_parent INTO l_parent_trip_rec;
12945:
12946: i := p_del_tab.FIRST;
12947:
12948: IF l_debug_on THEN
12949: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
12950: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.first', p_del_tab.first);
12951: END IF;
12952: WHILE i IS NOT NULL LOOP
12953:
12946: i := p_del_tab.FIRST;
12947:
12948: IF l_debug_on THEN
12949: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
12950: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.first', p_del_tab.first);
12951: END IF;
12952: WHILE i IS NOT NULL LOOP
12953:
12954: IF l_debug_on THEN
12951: END IF;
12952: WHILE i IS NOT NULL LOOP
12953:
12954: IF l_debug_on THEN
12955: WSH_DEBUG_SV.log(l_module_name,'delivery: '||i, p_del_tab(i).delivery_id);
12956: WSH_DEBUG_SV.log(l_module_name,'initial_pickup_location_id: '||i, p_del_tab(i).initial_pickup_location_id);
12957: WSH_DEBUG_SV.log(l_module_name,'l_parent_trip_rec.pickup_stop_location: '||i, l_parent_trip_rec.pickup_stop_location);
12958: END IF;
12959:
12952: WHILE i IS NOT NULL LOOP
12953:
12954: IF l_debug_on THEN
12955: WSH_DEBUG_SV.log(l_module_name,'delivery: '||i, p_del_tab(i).delivery_id);
12956: WSH_DEBUG_SV.log(l_module_name,'initial_pickup_location_id: '||i, p_del_tab(i).initial_pickup_location_id);
12957: WSH_DEBUG_SV.log(l_module_name,'l_parent_trip_rec.pickup_stop_location: '||i, l_parent_trip_rec.pickup_stop_location);
12958: END IF;
12959:
12960: IF p_del_tab(i).initial_pickup_location_id = l_parent_trip_rec.pickup_stop_location THEN
12953:
12954: IF l_debug_on THEN
12955: WSH_DEBUG_SV.log(l_module_name,'delivery: '||i, p_del_tab(i).delivery_id);
12956: WSH_DEBUG_SV.log(l_module_name,'initial_pickup_location_id: '||i, p_del_tab(i).initial_pickup_location_id);
12957: WSH_DEBUG_SV.log(l_module_name,'l_parent_trip_rec.pickup_stop_location: '||i, l_parent_trip_rec.pickup_stop_location);
12958: END IF;
12959:
12960: IF p_del_tab(i).initial_pickup_location_id = l_parent_trip_rec.pickup_stop_location THEN
12961:
12962: OPEN c_check_valid_child(p_del_tab(i).delivery_id);
12963: FETCH c_check_valid_child INTO l_dummy_child;
12964: IF c_check_valid_child%FOUND THEN
12965: IF l_debug_on THEN
12966: WSH_DEBUG_SV.log(l_module_name,'l_dummy_child', l_dummy_child);
12967: END IF;
12968:
12969: CLOSE c_check_valid_child;
12970: OPEN c_check_trips(p_del_tab(i).delivery_id);
13005:
13006: ELSE
13007: l_unassign_dels(1) := p_del_tab(i).delivery_id;
13008: IF l_debug_on THEN
13009: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TRIPS_ACTIONS.Unassign_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
13010: END IF;
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);
13082: --
13083: -- Debug Statements
13084: --
13085: IF l_debug_on THEN
13086: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13087: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13088: END IF;
13089: RETURN;
13090: --
13083: -- Debug Statements
13084: --
13085: IF l_debug_on THEN
13086: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13087: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13088: END IF;
13089: RETURN;
13090: --
13091: END;
13174:
13175: IF l_child_del_trips.count > 0 THEN
13176:
13177: IF l_debug_on THEN
13178: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.change_ignoreplan_status',WSH_DEBUG_SV.C_PROC_LEVEL);
13179: END IF;
13180: WSH_TP_RELEASE.change_ignoreplan_status
13181: (p_entity => 'TRIP',
13182: p_in_ids => l_child_del_trips,
13192: END IF;
13193:
13194: IF l_change_plan_dels.count > 0 THEN
13195: IF l_debug_on THEN
13196: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.change_ignoreplan_status',WSH_DEBUG_SV.C_PROC_LEVEL);
13197: END IF;
13198: WSH_TP_RELEASE.change_ignoreplan_status
13199: (p_entity => 'DLVY',
13200: p_in_ids => l_change_plan_dels,
13211:
13212: END IF;
13213:
13214: IF l_debug_on THEN
13215: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TRIPS_ACTIONS.assign_trip for ignore plan = N',WSH_DEBUG_SV.C_PROC_LEVEL);
13216: END IF;
13217: WSH_TRIPS_ACTIONS.assign_trip(
13218: p_del_rows => l_include_plan_dels,
13219: p_trip_id => l_trip_id_tab(1),
13243: INTO l_trip_id_tab;
13244: CLOSE c_get_trip_siblings;
13245:
13246: IF l_debug_on THEN
13247: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.change_ignoreplan_status',WSH_DEBUG_SV.C_PROC_LEVEL);
13248: END IF;
13249: WSH_TP_RELEASE.change_ignoreplan_status
13250: (p_entity => 'TRIP',
13251: p_in_ids => l_trip_id_tab,
13262: END IF;
13263: IF l_ignore_plan_dels.count > 0 THEN
13264:
13265: IF l_debug_on THEN
13266: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TRIPS_ACTIONS.assign_trip for ignore plan = Y',WSH_DEBUG_SV.C_PROC_LEVEL);
13267: END IF;
13268:
13269: WSH_TRIPS_ACTIONS.assign_trip(
13270: p_del_rows => l_ignore_plan_dels,
13304: --
13305: -- Debug Statements
13306: --
13307: IF l_debug_on THEN
13308: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13309: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13310: END IF;
13311: RETURN;
13312: --
13305: -- Debug Statements
13306: --
13307: IF l_debug_on THEN
13308: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13309: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13310: END IF;
13311: RETURN;
13312: --
13313: END;
13324: -- We recalculate the wt/vol of delivery during the assignment of
13325: -- consol lpns, so no need to do it here for WMS.
13326:
13327: IF l_debug_on THEN
13328: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.Delivery_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
13329: END IF;
13330: WSH_WV_UTILS.Delivery_Weight_Volume
13331: ( p_delivery_id => p_parent_del_id,
13332: p_update_flag => 'Y',
13379: END IF;
13380:
13381:
13382: IF l_debug_on THEN
13383: wsh_debug_sv.pop(l_module_name);
13384: END IF;
13385:
13386: EXCEPTION
13387: WHEN FND_API.G_EXC_ERROR THEN
13406: --
13407: -- Debug Statements
13408: --
13409: IF l_debug_on THEN
13410: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13411: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
13412: END IF;
13413:
13414: WHEN WSH_INVALID_TRIP THEN
13407: -- Debug Statements
13408: --
13409: IF l_debug_on THEN
13410: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
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;
13433: --
13434: -- Debug Statements
13435: --
13436: IF l_debug_on THEN
13437: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_TRIP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13438:
13439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_TRIP');
13440: END IF;
13441:
13435: --
13436: IF l_debug_on THEN
13437: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_TRIP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13438:
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;
13461: --
13462: -- Debug Statements
13463: --
13464: IF l_debug_on THEN
13465: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_DECONSOL_POINT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13466:
13467: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_DECONSOL_POINT');
13468: END IF;
13469:
13463: --
13464: IF l_debug_on THEN
13465: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_DECONSOL_POINT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13466:
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;
13489: --
13490: -- Debug Statements
13491: --
13492: IF l_debug_on THEN
13493: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILDREN exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13494:
13495: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILDREN');
13496: END IF;
13497:
13491: --
13492: IF l_debug_on THEN
13493: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILDREN exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13494:
13495: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILDREN');
13496: END IF;
13497:
13498: WHEN WSH_INVALID_PARENT THEN
13499: IF c_check_trips%ISOPEN THEN
13517: --
13518: -- Debug Statements
13519: --
13520: IF l_debug_on THEN
13521: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_PARENT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13522:
13523: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_PARENT');
13524: END IF;
13525: --
13519: --
13520: IF l_debug_on THEN
13521: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_PARENT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13522:
13523: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_PARENT');
13524: END IF;
13525: --
13526:
13527: WHEN WSH_FAIL_ASSIGN_DEL_TO_CONSOL THEN
13546: --
13547: -- Debug Statements
13548: --
13549: IF l_debug_on THEN
13550: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FAIL_ASSIGN_DEL_TO_CONSOL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13551:
13552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_FAIL_ASSIGN_DEL_TO_CONSOL');
13553: END IF;
13554: --
13548: --
13549: IF l_debug_on THEN
13550: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FAIL_ASSIGN_DEL_TO_CONSOL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13551:
13552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_FAIL_ASSIGN_DEL_TO_CONSOL');
13553: END IF;
13554: --
13555:
13556:
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;
13578:
13579: END Assign_Del_to_Consol_Del;
13580:
13685: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
13686: --
13687: IF l_debug_on IS NULL
13688: THEN
13689: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13690: END IF;
13691: --
13692: IF l_debug_on THEN
13693: wsh_debug_sv.push (l_module_name);
13689: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13690: END IF;
13691: --
13692: IF l_debug_on THEN
13693: wsh_debug_sv.push (l_module_name);
13694: WSH_DEBUG_SV.log(l_module_name,'p_parent_del', p_parent_del);
13695: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13696: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
13697: END IF;
13690: END IF;
13691: --
13692: IF l_debug_on THEN
13693: wsh_debug_sv.push (l_module_name);
13694: WSH_DEBUG_SV.log(l_module_name,'p_parent_del', p_parent_del);
13695: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13696: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
13697: END IF;
13698:
13691: --
13692: IF l_debug_on THEN
13693: wsh_debug_sv.push (l_module_name);
13694: WSH_DEBUG_SV.log(l_module_name,'p_parent_del', p_parent_del);
13695: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13696: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
13697: END IF;
13698:
13699: IF p_del_tab.count = 0 and p_parent_del IS NULL THEN
13692: IF l_debug_on THEN
13693: wsh_debug_sv.push (l_module_name);
13694: WSH_DEBUG_SV.log(l_module_name,'p_parent_del', p_parent_del);
13695: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13696: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
13697: END IF;
13698:
13699: IF p_del_tab.count = 0 and p_parent_del IS NULL THEN
13700:
13716:
13717: l_parent_dels_tab(1) := p_parent_del;
13718: l_trip_tab(1) := l_trip_tab_dummy(1);
13719: IF l_debug_on THEN
13720: WSH_DEBUG_SV.log(l_module_name,'l_assigned_dels_tab(1)', l_assigned_dels_tab(1));
13721: WSH_DEBUG_SV.log(l_module_name,'l_child_legs_tab(1)', l_child_legs_tab(1));
13722: WSH_DEBUG_SV.log(l_module_name,'l_parent_dels_tab(1)', l_parent_dels_tab(1));
13723: WSH_DEBUG_SV.log(l_module_name,'l_trip_tab(1)', l_trip_tab(1));
13724: END IF;
13717: l_parent_dels_tab(1) := p_parent_del;
13718: l_trip_tab(1) := l_trip_tab_dummy(1);
13719: IF l_debug_on THEN
13720: WSH_DEBUG_SV.log(l_module_name,'l_assigned_dels_tab(1)', l_assigned_dels_tab(1));
13721: WSH_DEBUG_SV.log(l_module_name,'l_child_legs_tab(1)', l_child_legs_tab(1));
13722: WSH_DEBUG_SV.log(l_module_name,'l_parent_dels_tab(1)', l_parent_dels_tab(1));
13723: WSH_DEBUG_SV.log(l_module_name,'l_trip_tab(1)', l_trip_tab(1));
13724: END IF;
13725: ELSE
13718: l_trip_tab(1) := l_trip_tab_dummy(1);
13719: IF l_debug_on THEN
13720: WSH_DEBUG_SV.log(l_module_name,'l_assigned_dels_tab(1)', l_assigned_dels_tab(1));
13721: WSH_DEBUG_SV.log(l_module_name,'l_child_legs_tab(1)', l_child_legs_tab(1));
13722: WSH_DEBUG_SV.log(l_module_name,'l_parent_dels_tab(1)', l_parent_dels_tab(1));
13723: WSH_DEBUG_SV.log(l_module_name,'l_trip_tab(1)', l_trip_tab(1));
13724: END IF;
13725: ELSE
13726:
13719: IF l_debug_on THEN
13720: WSH_DEBUG_SV.log(l_module_name,'l_assigned_dels_tab(1)', l_assigned_dels_tab(1));
13721: WSH_DEBUG_SV.log(l_module_name,'l_child_legs_tab(1)', l_child_legs_tab(1));
13722: WSH_DEBUG_SV.log(l_module_name,'l_parent_dels_tab(1)', l_parent_dels_tab(1));
13723: WSH_DEBUG_SV.log(l_module_name,'l_trip_tab(1)', l_trip_tab(1));
13724: END IF;
13725: ELSE
13726:
13727: -- Check if the deliveries are assigned to parent dels.
13746: -- and WSH cannot unpack from WMS orgs.
13747:
13748: FOR i in 1..l_assigned_dels_tab.count LOOP
13749: IF l_debug_on THEN
13750: WSH_DEBUG_SV.log(l_module_name,'looping thru del: ', l_assigned_dels_tab(i));
13751: END IF;
13752:
13753: OPEN check_consol_lpns(l_assigned_dels_tab(i));
13754: FETCH check_consol_lpns INTO l_consol_lpn_dummy;
13767: END IF;
13768: CLOSE check_consol_lpns;
13769:
13770: IF l_debug_on THEN
13771: WSH_DEBUG_SV.log(l_module_name,'after looping thru del: ', l_assigned_dels_tab(i));
13772: END IF;
13773:
13774: END LOOP;
13775:
13797: --
13798: -- Debug Statements
13799: --
13800: IF l_debug_on THEN
13801: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13802: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13803: END IF;
13804: RETURN;
13805: --
13798: -- Debug Statements
13799: --
13800: IF l_debug_on THEN
13801: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13802: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13803: END IF;
13804: RETURN;
13805: --
13806: END;
13826: IF p_parent_del IS NOT NULL THEN
13827:
13828: l_distinct_parent_dels_tab(1) := p_parent_del;
13829: IF l_debug_on THEN
13830: WSH_DEBUG_SV.log(l_module_name,'only parent ', l_distinct_parent_dels_tab(1));
13831: END IF;
13832:
13833: ELSE
13834:
13838:
13839: k := k + 1;
13840: l_distinct_parent_dels_tab(k) := l_parent_dels_tab(i);
13841: IF l_debug_on THEN
13842: WSH_DEBUG_SV.log(l_module_name,'distinct parents ', l_distinct_parent_dels_tab(k));
13843: END IF;
13844:
13845: END IF;
13846:
13867: --
13868: -- Debug Statements
13869: --
13870: IF l_debug_on THEN
13871: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13872: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13873: END IF;
13874: RETURN;
13875: --
13868: -- Debug Statements
13869: --
13870: IF l_debug_on THEN
13871: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13872: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13873: END IF;
13874: RETURN;
13875: --
13876: END;
13882:
13883:
13884: -- Separate the empty parent deliveries.
13885: IF l_debug_on THEN
13886: WSH_DEBUG_SV.log(l_module_name,'l_distinct_parent_dels_tab.count ', l_distinct_parent_dels_tab.count);
13887: END IF;
13888:
13889: FOR i in 1..l_distinct_parent_dels_tab.count LOOP
13890: IF l_debug_on THEN
13887: END IF;
13888:
13889: FOR i in 1..l_distinct_parent_dels_tab.count LOOP
13890: IF l_debug_on THEN
13891: WSH_DEBUG_SV.log(l_module_name,'loop thru del: ', l_distinct_parent_dels_tab(i));
13892: END IF;
13893:
13894: OPEN c_check_children_exists(l_distinct_parent_dels_tab(i));
13895: FETCH c_check_children_exists INTO l_dummy_id;
13896: IF c_check_children_exists%FOUND THEN
13897: l := l + 1;
13898: l_remaining_parent_dels(l) := l_distinct_parent_dels_tab(i);
13899: IF l_debug_on THEN
13900: WSH_DEBUG_SV.log(l_module_name,'l_remaining_parent_dels ', l_remaining_parent_dels(l));
13901: END IF;
13902: ELSE
13903: m := m + 1;
13904: l_delete_parent_dels(m) := l_distinct_parent_dels_tab(i);
13902: ELSE
13903: m := m + 1;
13904: l_delete_parent_dels(m) := l_distinct_parent_dels_tab(i);
13905: IF l_debug_on THEN
13906: WSH_DEBUG_SV.log(l_module_name,'l_delete_parent_dels ', l_delete_parent_dels(m));
13907: END IF;
13908: END IF;
13909: CLOSE c_check_children_exists;
13910:
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(
13938: IF l_remaining_parent_dels.count > 0 THEN
13939: -- Update the wt/vol on the remaining parents.
13940:
13941: IF l_debug_on THEN
13942: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.Delivery_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
13943: END IF;
13944:
13945: FOR i in 1..l_remaining_parent_dels.count LOOP
13946:
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
14007: --
14008: -- Debug Statements
14009: --
14010: IF l_debug_on THEN
14011: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14012: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14013: END IF;
14014: --
14015:
14008: -- Debug Statements
14009: --
14010: IF l_debug_on THEN
14011: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14012: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14013: END IF;
14014: --
14015:
14016: WHEN WSH_NO_OPEN_CHILD_DELIVERIES THEN
14020: --
14021: -- Debug Statements
14022: --
14023: IF l_debug_on THEN
14024: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_OPEN_CHILD_DELIVERIES exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14025:
14026: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_OPEN_CHILD_DELIVERIES');
14027: END IF;
14028: --
14022: --
14023: IF l_debug_on THEN
14024: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_OPEN_CHILD_DELIVERIES exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14025:
14026: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_OPEN_CHILD_DELIVERIES');
14027: END IF;
14028: --
14029:
14030: WHEN WSH_INVALID_CHILD_DELIVERIES THEN
14034: --
14035: -- Debug Statements
14036: --
14037: IF l_debug_on THEN
14038: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILD_DELIVERIES exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14039:
14040: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILD_DELIVERIES');
14041: END IF;
14042: --
14036: --
14037: IF l_debug_on THEN
14038: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILD_DELIVERIES exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14039:
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);
14059: CLOSE check_consol_lpns;
14060: END IF;
14061: --
14062: IF l_debug_on THEN
14063: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14064: END IF;
14065:
14066: END Unassign_Dels_from_Consol_Del;
14067:
14129: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
14130: --
14131: IF l_debug_on IS NULL
14132: THEN
14133: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14134: END IF;
14135: --
14136: IF l_debug_on THEN
14137: wsh_debug_sv.push (l_module_name);
14133: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14134: END IF;
14135: --
14136: IF l_debug_on THEN
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;
14146: -- may contain duplicates.
14147: i := p_consol_del_tab.FIRST;
14148: WHILE i IS NOT NULL LOOP
14149: IF l_debug_on THEN
14150: WSH_DEBUG_SV.logmsg(l_module_name,'Inside WHILE i IS NOT NULL LOOP');
14151: END IF;
14152: l_exists_flag := 'N';
14153: FOR k in 1..l_u_consol_del_tab.count LOOP
14154: IF l_debug_on THEN
14151: END IF;
14152: l_exists_flag := 'N';
14153: FOR k in 1..l_u_consol_del_tab.count LOOP
14154: IF l_debug_on THEN
14155: WSH_DEBUG_SV.logmsg(l_module_name,'Inside FOR k in 1..l_u_consol_del_tab.count LOOP');
14156: END IF;
14157: IF l_u_consol_del_tab(k) = p_consol_del_tab(i) THEN
14158: l_exists_flag := 'Y';
14159: EXIT;
14159: EXIT;
14160: END IF;
14161: END LOOP;
14162: IF l_debug_on THEN
14163: WSH_DEBUG_SV.logmsg(l_module_name,'after FOR k in 1..l_u_consol_del_tab.count LOOP');
14164: END IF;
14165: IF l_exists_flag = 'N' THEN
14166: IF l_debug_on THEN
14167: WSH_DEBUG_SV.log(l_module_name,'i is', i);
14163: WSH_DEBUG_SV.logmsg(l_module_name,'after FOR k in 1..l_u_consol_del_tab.count LOOP');
14164: END IF;
14165: IF l_exists_flag = 'N' THEN
14166: IF l_debug_on THEN
14167: WSH_DEBUG_SV.log(l_module_name,'i is', i);
14168: WSH_DEBUG_SV.log(l_module_name,'p_consol_del_tab(i)', p_consol_del_tab(i));
14169: WSH_DEBUG_SV.log(l_module_name,'l_u_consol_del_tab.count', l_u_consol_del_tab.count);
14170: END IF;
14171: l_u_consol_del_tab(l_u_consol_del_tab.count + 1) := p_consol_del_tab(i);
14164: END IF;
14165: IF l_exists_flag = 'N' THEN
14166: IF l_debug_on THEN
14167: WSH_DEBUG_SV.log(l_module_name,'i is', i);
14168: WSH_DEBUG_SV.log(l_module_name,'p_consol_del_tab(i)', p_consol_del_tab(i));
14169: WSH_DEBUG_SV.log(l_module_name,'l_u_consol_del_tab.count', l_u_consol_del_tab.count);
14170: END IF;
14171: l_u_consol_del_tab(l_u_consol_del_tab.count + 1) := p_consol_del_tab(i);
14172: OPEN c_check_close_consol(p_consol_del_tab(i));
14165: IF l_exists_flag = 'N' THEN
14166: IF l_debug_on THEN
14167: WSH_DEBUG_SV.log(l_module_name,'i is', i);
14168: WSH_DEBUG_SV.log(l_module_name,'p_consol_del_tab(i)', p_consol_del_tab(i));
14169: WSH_DEBUG_SV.log(l_module_name,'l_u_consol_del_tab.count', l_u_consol_del_tab.count);
14170: END IF;
14171: l_u_consol_del_tab(l_u_consol_del_tab.count + 1) := p_consol_del_tab(i);
14172: OPEN c_check_close_consol(p_consol_del_tab(i));
14173: FETCH c_check_close_consol INTO l_delivery_id;
14191: l_del_valid_flag,
14192: l_return_status);
14193:
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;
14209: --
14210: j:= j+1;
14211: l_co_consol_del_tab(j) := p_consol_del_tab(i);
14212: IF l_debug_on THEN
14213: WSH_DEBUG_SV.log(l_module_name,'l_co_consol_del_tab(j)', l_co_consol_del_tab(j));
14214: END IF;
14215: --
14216: ELSE
14217: --
14222: -- bug 4505105
14223: END IF;
14224: CLOSE c_check_close_consol;
14225: IF l_debug_on THEN
14226: WSH_DEBUG_SV.logmsg(l_module_name,'after c_check_close_consol');
14227: END IF;
14228: END IF;
14229: IF l_debug_on THEN
14230: WSH_DEBUG_SV.log(l_module_name,'i', i);
14226: WSH_DEBUG_SV.logmsg(l_module_name,'after c_check_close_consol');
14227: END IF;
14228: END IF;
14229: IF l_debug_on THEN
14230: WSH_DEBUG_SV.log(l_module_name,'i', i);
14231: END IF;
14232:
14233: i := p_consol_del_tab.next(i);
14234:
14232:
14233: i := p_consol_del_tab.next(i);
14234:
14235: IF l_debug_on THEN
14236: WSH_DEBUG_SV.log(l_module_name,'i', i);
14237: END IF;
14238:
14239: END LOOP;
14240: IF l_debug_on THEN
14237: END IF;
14238:
14239: END LOOP;
14240: IF l_debug_on THEN
14241: WSH_DEBUG_SV.logmsg(l_module_name,'After WHILE i IS NOT NULL LOOP');
14242: END IF;
14243:
14244: -- bug 4505105
14245: IF l_debug_on THEN
14242: END IF;
14243:
14244: -- bug 4505105
14245: IF l_debug_on THEN
14246: WSH_DEBUG_SV.log(l_module_name,'Count of consol deliveries to be processed is ', l_u_consol_del_tab.count);
14247: WSH_DEBUG_SV.log(l_module_name,'Count of errored deliveries is ', l_num_err);
14248: END IF;
14249:
14250: IF (l_num_err >= l_u_consol_del_tab.count AND l_num_err > 0) THEN
14243:
14244: -- bug 4505105
14245: IF l_debug_on THEN
14246: WSH_DEBUG_SV.log(l_module_name,'Count of consol deliveries to be processed is ', l_u_consol_del_tab.count);
14247: WSH_DEBUG_SV.log(l_module_name,'Count of errored deliveries is ', l_num_err);
14248: END IF;
14249:
14250: IF (l_num_err >= l_u_consol_del_tab.count AND l_num_err > 0) THEN
14251: IF l_debug_on THEN
14248: END IF;
14249:
14250: IF (l_num_err >= l_u_consol_del_tab.count AND l_num_err > 0) THEN
14251: IF l_debug_on THEN
14252: WSH_DEBUG_SV.logmsg(l_module_name,'None of the Deliveries are eligible of Ship Confirm');
14253: END IF;
14254: RAISE FND_API.G_EXC_ERROR;
14255: END IF;
14256: -- bug 4505105
14256: -- bug 4505105
14257:
14258: BEGIN
14259: IF l_debug_on THEN
14260: WSH_DEBUG_SV.log(l_module_name,'l_co_consol_del_tab.count', l_co_consol_del_tab.count);
14261: END IF;
14262:
14263: FOR l in 1..l_co_consol_del_tab.count LOOP
14264: IF l_debug_on THEN
14261: END IF;
14262:
14263: FOR l in 1..l_co_consol_del_tab.count LOOP
14264: IF l_debug_on THEN
14265: WSH_DEBUG_SV.log(l_module_name,'l_co_consol_del_tab(l)', l_co_consol_del_tab(l));
14266: END IF;
14267: l_lock_index := l;
14268: WSH_NEW_DELIVERIES_PVT.Lock_Dlvy_No_Compare(l_co_consol_del_tab(l));
14269:
14293: --
14294: -- Debug Statements
14295: --
14296: IF l_debug_on THEN
14297: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14298: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
14299: END IF;
14300: RETURN;
14301: --
14294: -- Debug Statements
14295: --
14296: IF l_debug_on THEN
14297: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14298: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
14299: END IF;
14300: RETURN;
14301: --
14302: END;
14300: RETURN;
14301: --
14302: END;
14303: IF l_debug_on THEN
14304: WSH_DEBUG_SV.logmsg(l_module_name,'after lock');
14305: END IF;
14306: IF l_co_consol_del_tab.count > 0 THEN
14307: FORALL m in 1..l_co_consol_del_tab.count
14308: UPDATE wsh_new_deliveries
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
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');
14339: END IF;
14340:
14341: END Confirm_Consolidation_Delivery;
14342:
14402: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
14403: --
14404: IF l_debug_on IS NULL
14405: THEN
14406: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14407: END IF;
14408: --
14409: IF l_debug_on THEN
14410: wsh_debug_sv.push (l_module_name);
14406: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14407: END IF;
14408: --
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:
14454: l_trip_info_tab(1).carrier_id := del.carrier_id;
14455:
14456: l_commit := FND_API.g_false;
14457: IF l_debug_on THEN
14458: WSH_DEBUG_SV.logmsg(l_module_name,'Creating deconsol trip');
14459: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_GRP.Create_Update_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
14460: END IF;
14461:
14462: WSH_TRIPS_GRP.Create_Update_Trip(
14455:
14456: l_commit := FND_API.g_false;
14457: IF l_debug_on THEN
14458: WSH_DEBUG_SV.logmsg(l_module_name,'Creating deconsol trip');
14459: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_GRP.Create_Update_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
14460: END IF;
14461:
14462: WSH_TRIPS_GRP.Create_Update_Trip(
14463: p_api_version_number => l_api_version_number,
14479:
14480: -- Assign delivery to trip
14481:
14482: IF l_debug_on THEN
14483: WSH_DEBUG_SV.logmsg(l_module_name,'Assigning to deconsol trip');
14484: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.assign_trip',WSH_DEBUG_SV.C_PROC_LEVEL);
14485: END IF;
14486:
14487:
14480: -- Assign delivery to trip
14481:
14482: IF l_debug_on THEN
14483: WSH_DEBUG_SV.logmsg(l_module_name,'Assigning to deconsol trip');
14484: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.assign_trip',WSH_DEBUG_SV.C_PROC_LEVEL);
14485: END IF;
14486:
14487:
14488: IF del.pu_date < del.do_date THEN
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
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');
14538: END IF;
14539: --
14540: WHEN OTHERS 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');
14538: END IF;
14539: --
14540: WHEN OTHERS THEN
14541: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
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;
14547:
14548: END Create_Deconsol_Trips;
14549:
14578:
14579: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
14580: --
14581: IF l_debug_on IS NULL THEN
14582: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14583: END IF;
14584: --
14585: IF l_debug_on THEN
14586: WSH_DEBUG_SV.push(l_module_name);
14582: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14583: END IF;
14584: --
14585: IF l_debug_on THEN
14586: WSH_DEBUG_SV.push(l_module_name);
14587: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
14588: END IF;
14589:
14590: l_count := 0;
14583: END IF;
14584: --
14585: IF l_debug_on THEN
14586: WSH_DEBUG_SV.push(l_module_name);
14587: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
14588: END IF;
14589:
14590: l_count := 0;
14591:
14597:
14598: IF (c_delivery_detail_count%FOUND) THEN -- not empty
14599:
14600: IF l_debug_on THEN
14601: wsh_debug_sv.logmsg(l_module_name, 'Delivery is not empty');
14602: END IF;
14603: l_return_value := 'N';
14604: ELSE -- empty
14605: IF l_debug_on THEN
14602: END IF;
14603: l_return_value := 'N';
14604: ELSE -- empty
14605: IF l_debug_on THEN
14606: wsh_debug_sv.logmsg(l_module_name, 'Delivery is empty');
14607: END IF;
14608: l_return_value := 'Y';
14609: END IF;
14610: CLOSE c_delivery_detail_count;
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);
14617: WSH_DEBUG_SV.pop(l_module_name);
14618: END IF;
14619: --
14620:
14613: END IF;
14614:
14615: IF l_debug_on THEN
14616: wsh_debug_sv.log(l_module_name, 'RETURN VALUE', l_return_value);
14617: WSH_DEBUG_SV.pop(l_module_name);
14618: END IF;
14619: --
14620:
14621: RETURN l_return_value;
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);
14635: WSH_DEBUG_SV.pop(l_module_name);
14636: END IF;
14637: --
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);
14635: WSH_DEBUG_SV.pop(l_module_name);
14636: END IF;
14637: --
14638: RETURN l_return_value;
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);
14635: WSH_DEBUG_SV.pop(l_module_name);
14636: END IF;
14637: --
14638: RETURN l_return_value;
14639: END IS_DELIVERY_EMPTY;