[Home] [Help]
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:
2275: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2276: --
2277: IF l_debug_on IS NULL
2278: THEN
2279: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2280: END IF;
2281: --
2282: IF l_debug_on THEN
2283: WSH_DEBUG_SV.push(l_module_name);
2279: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2280: END IF;
2281: --
2282: IF l_debug_on THEN
2283: WSH_DEBUG_SV.push(l_module_name);
2284: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Count'||p_del_rows.count);
2285: WSH_DEBUG_SV.logmsg(l_module_name,'Org id Count'||p_org_ids.count);
2286: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Method Count'||p_ship_method_code_vals.count);
2287: END IF;
2280: END IF;
2281: --
2282: IF l_debug_on THEN
2283: WSH_DEBUG_SV.push(l_module_name);
2284: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Count'||p_del_rows.count);
2285: WSH_DEBUG_SV.logmsg(l_module_name,'Org id Count'||p_org_ids.count);
2286: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Method Count'||p_ship_method_code_vals.count);
2287: END IF;
2288: --
2281: --
2282: IF l_debug_on THEN
2283: WSH_DEBUG_SV.push(l_module_name);
2284: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Count'||p_del_rows.count);
2285: WSH_DEBUG_SV.logmsg(l_module_name,'Org id Count'||p_org_ids.count);
2286: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Method Count'||p_ship_method_code_vals.count);
2287: END IF;
2288: --
2289: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2282: IF l_debug_on THEN
2283: WSH_DEBUG_SV.push(l_module_name);
2284: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Count'||p_del_rows.count);
2285: WSH_DEBUG_SV.logmsg(l_module_name,'Org id Count'||p_org_ids.count);
2286: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Method Count'||p_ship_method_code_vals.count);
2287: END IF;
2288: --
2289: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2290:
2330: /*Modified R12.1.1 LSP PROJECT (rminocha)*/
2331: IF ( l_client_id IS NOT NULL ) THEN
2332: --{
2333: IF l_debug_on THEN
2334: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling INV_CACHE.GET_CLIENT_DEFAULT_PARAMETERS', WSH_DEBUG_SV.C_PROC_LEVEL);
2335: END IF;
2336: INV_CACHE.GET_CLIENT_DEFAULT_PARAMETERS(
2337: p_client_id => l_client_id,
2338: x_client_parameters_rec => l_client_params,
2374: CLOSE Check_Trip;
2375:
2376: IF (l_trip_id IS NULL) THEN
2377: IF l_debug_on THEN
2378: WSH_DEBUG_SV.logmsg(l_module_name,'Trip id is null for delivery-'||p_del_rows(i))
2379: ;
2380: END IF;
2381:
2382: -- Check to see if Trip Options are already set
2382: -- Check to see if Trip Options are already set
2383: IF NOT trip_options THEN
2384: trip_options := TRUE;
2385: IF l_debug_on THEN
2386: WSH_DEBUG_SV.logmsg(l_module_name,'Set Trip Options');
2387: END IF;
2388:
2389: x_autointransit_flag := 'Y';
2390: x_autoclose_flag := 'Y';
2393: -- Check to see if Ship Method has to be set
2394: -- for Deliveries with Autocreate Trip
2395: IF NOT ship_method_options THEN
2396: IF l_debug_on THEN
2397: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Method Options');
2398: END IF;
2399:
2400: IF first_ship_method THEN
2401: -- Initialize First Applicable Ship Method
2404: END IF;
2405: temp_ship_method_code := p_ship_method_code_vals(i);
2406: IF NVL(temp_ship_method_code,' ') = NVL(dist_ship_method_code,' ') THEN
2407: IF l_debug_on THEN
2408: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Methods are same null');
2409: END IF;
2410:
2411: NULL;
2412: ELSE
2411: NULL;
2412: ELSE
2413: -- Ship Methods are different for Deliveries, so Null Ship Method is returned
2414: IF l_debug_on THEN
2415: WSH_DEBUG_SV.logmsg(l_module_name,'Ship Methods are different');
2416: END IF;
2417:
2418: dist_ship_method_code := NULL;
2419: ship_method_options := TRUE;
2426: l_last_del := check_last_del_trip(p_del_rows(i));
2427:
2428: IF l_last_del THEN
2429: IF l_debug_on THEN
2430: WSH_DEBUG_SV.logmsg(l_module_name,'Last Delivery in Trip-'||p_del_rows(i));
2431: END IF;
2432: trip_options := TRUE; -- trip options should be allowed
2433: x_autointransit_flag := 'Y';
2434: x_autoclose_flag := 'Y';
2459: x_autoclose_flag := 'D';
2460: END IF;
2461:
2462: IF l_debug_on THEN
2463: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set id'||x_report_set_id);
2464: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2465: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2466: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2467: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2460: END IF;
2461:
2462: IF l_debug_on THEN
2463: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set id'||x_report_set_id);
2464: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2465: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2466: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2467: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2468: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2461:
2462: IF l_debug_on THEN
2463: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set id'||x_report_set_id);
2464: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2465: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2466: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2467: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2468: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2469: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2462: IF l_debug_on THEN
2463: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set id'||x_report_set_id);
2464: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2465: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2466: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2467: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2468: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2469: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2470: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2463: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set id'||x_report_set_id);
2464: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2465: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2466: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2467: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2468: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2469: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2470: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2471: WSH_DEBUG_SV.logmsg(l_module_name,'End ship method '||x_ship_method_name);
2464: WSH_DEBUG_SV.logmsg(l_module_name,'End Report Set Name'||x_report_set_name);
2465: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2466: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2467: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2468: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2469: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2470: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2471: WSH_DEBUG_SV.logmsg(l_module_name,'End ship method '||x_ship_method_name);
2472: END IF;
2465: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule'||x_sc_rule_name);
2466: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2467: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2468: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2469: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2470: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2471: WSH_DEBUG_SV.logmsg(l_module_name,'End ship method '||x_ship_method_name);
2472: END IF;
2473:
2466: WSH_DEBUG_SV.logmsg(l_module_name,'End Ship Confirm Rule id'||x_sc_rule_id);
2467: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2468: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2469: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2470: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2471: WSH_DEBUG_SV.logmsg(l_module_name,'End ship method '||x_ship_method_name);
2472: END IF;
2473:
2474: -- frontport bug 4310141:
2467: WSH_DEBUG_SV.logmsg(l_module_name,'End In transit'||x_autointransit_flag);
2468: WSH_DEBUG_SV.logmsg(l_module_name,'End Close '||x_autoclose_flag);
2469: WSH_DEBUG_SV.logmsg(l_module_name,'End BOL flag '||x_ac_bol_flag);
2470: WSH_DEBUG_SV.logmsg(l_module_name,'End Defer Interface flag '||x_defer_interface_flag);
2471: WSH_DEBUG_SV.logmsg(l_module_name,'End ship method '||x_ship_method_name);
2472: END IF;
2473:
2474: -- frontport bug 4310141:
2475: -- Bug 4103142 defaulted ship method from first trip
2500: END IF;
2501:
2502: --
2503: IF l_debug_on THEN
2504: WSH_DEBUG_SV.pop(l_module_name);
2505: END IF;
2506: --
2507:
2508: EXCEPTION
2510: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Get_Delivery_Defaults');
2511: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2512: --
2513: IF l_debug_on THEN
2514: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2515: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2516: END IF;
2517: --
2518: END Get_Delivery_Defaults;
2511: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2512: --
2513: IF l_debug_on THEN
2514: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2515: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2516: END IF;
2517: --
2518: END Get_Delivery_Defaults;
2519:
3155: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3156: --
3157: IF l_debug_on IS NULL
3158: THEN
3159: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3160: END IF;
3161: --
3162: IF l_debug_on THEN
3163: WSH_DEBUG_SV.push(l_module_name);
3159: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3160: END IF;
3161: --
3162: IF l_debug_on THEN
3163: WSH_DEBUG_SV.push(l_module_name);
3164: --
3165: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3166: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3167: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3161: --
3162: IF l_debug_on THEN
3163: WSH_DEBUG_SV.push(l_module_name);
3164: --
3165: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3166: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3167: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3168: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3169: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3162: IF l_debug_on THEN
3163: WSH_DEBUG_SV.push(l_module_name);
3164: --
3165: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3166: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3167: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3168: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3169: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3170: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3163: WSH_DEBUG_SV.push(l_module_name);
3164: --
3165: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3166: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3167: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3168: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3169: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3170: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3171: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3164: --
3165: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3166: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3167: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3168: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3169: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3170: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3171: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3172: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3165: WSH_DEBUG_SV.log(l_module_name,'P_ACTION_FLAG',P_ACTION_FLAG);
3166: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3167: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3168: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3169: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3170: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3171: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3172: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3173: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3166: WSH_DEBUG_SV.log(l_module_name,'P_INTRANSIT_FLAG',P_INTRANSIT_FLAG);
3167: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3168: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3169: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3170: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3171: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3172: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3173: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3174: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3167: WSH_DEBUG_SV.log(l_module_name,'P_CLOSE_FLAG',P_CLOSE_FLAG);
3168: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3169: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3170: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3171: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3172: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3173: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3174: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3175: WSH_DEBUG_SV.log(l_module_name,'P_SEND_945_FLAG',P_SEND_945_FLAG);
3168: WSH_DEBUG_SV.log(l_module_name,'P_STAGE_DEL_FLAG',P_STAGE_DEL_FLAG);
3169: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3170: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3171: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3172: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3173: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3174: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3175: WSH_DEBUG_SV.log(l_module_name,'P_SEND_945_FLAG',P_SEND_945_FLAG);
3176: END IF;
3169: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
3170: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3171: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3172: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3173: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3174: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3175: WSH_DEBUG_SV.log(l_module_name,'P_SEND_945_FLAG',P_SEND_945_FLAG);
3176: END IF;
3177: --
3170: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD',P_SHIP_METHOD);
3171: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3172: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3173: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3174: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3175: WSH_DEBUG_SV.log(l_module_name,'P_SEND_945_FLAG',P_SEND_945_FLAG);
3176: END IF;
3177: --
3178: l_login_id := FND_GLOBAL.login_id;
3171: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DEP_DATE',P_ACTUAL_DEP_DATE);
3172: WSH_DEBUG_SV.log(l_module_name,'P_BOL_FLAG',P_BOL_FLAG);
3173: WSH_DEBUG_SV.log(l_module_name,'P_MC_BOL_FLAG',P_MC_BOL_FLAG);
3174: WSH_DEBUG_SV.log(l_module_name,'P_DEFER_INTERFACE_FLAG',P_DEFER_INTERFACE_FLAG);
3175: WSH_DEBUG_SV.log(l_module_name,'P_SEND_945_FLAG',P_SEND_945_FLAG);
3176: END IF;
3177: --
3178: l_login_id := FND_GLOBAL.login_id;
3179: l_user_id := FND_GLOBAL.user_id ;
3234: l_check_credit_init_flag := TRUE;
3235:
3236: -- Code Shifted from below to execute irrespective of the If condition - Workflow Changes
3237: IF l_debug_on THEN
3238: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit 2WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
3239: END IF;
3240: --
3241: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_parameters, l_return_status);
3242: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3277: --
3278: CLOSE get_delivery_name;
3279:
3280: IF l_debug_on THEN
3281: WSH_DEBUG_SV.log(l_module_name,'Delivery Name',l_delivery_name);
3282: WSH_DEBUG_SV.log(l_module_name,'Batch id',l_batch_id);
3283: --OTM R12
3284: WSH_DEBUG_SV.log(l_module_name,'ignore for planning',l_ignore_for_planning);
3285: WSH_DEBUG_SV.log(l_module_name,'tms interface flag',l_tms_interface_flag);
3278: CLOSE get_delivery_name;
3279:
3280: IF l_debug_on THEN
3281: WSH_DEBUG_SV.log(l_module_name,'Delivery Name',l_delivery_name);
3282: WSH_DEBUG_SV.log(l_module_name,'Batch id',l_batch_id);
3283: --OTM R12
3284: WSH_DEBUG_SV.log(l_module_name,'ignore for planning',l_ignore_for_planning);
3285: WSH_DEBUG_SV.log(l_module_name,'tms interface flag',l_tms_interface_flag);
3286: --
3280: IF l_debug_on THEN
3281: WSH_DEBUG_SV.log(l_module_name,'Delivery Name',l_delivery_name);
3282: WSH_DEBUG_SV.log(l_module_name,'Batch id',l_batch_id);
3283: --OTM R12
3284: WSH_DEBUG_SV.log(l_module_name,'ignore for planning',l_ignore_for_planning);
3285: WSH_DEBUG_SV.log(l_module_name,'tms interface flag',l_tms_interface_flag);
3286: --
3287: END IF;
3288:
3281: WSH_DEBUG_SV.log(l_module_name,'Delivery Name',l_delivery_name);
3282: WSH_DEBUG_SV.log(l_module_name,'Batch id',l_batch_id);
3283: --OTM R12
3284: WSH_DEBUG_SV.log(l_module_name,'ignore for planning',l_ignore_for_planning);
3285: WSH_DEBUG_SV.log(l_module_name,'tms interface flag',l_tms_interface_flag);
3286: --
3287: END IF;
3288:
3289:
3293: EXIT WHEN get_empty_containers%NOTFOUND;
3294: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_empty_container);
3295:
3296: IF l_debug_on THEN
3297: WSH_DEBUG_SV.log(l_module_name,'l_empty_container',l_empty_container);
3298: WSH_DEBUG_SV.log(l_module_name,'Empty Container',l_cont_name);
3299: END IF;
3300:
3301: FND_MESSAGE.SET_NAME('WSH','WSH_EMPTY_CONTAINER');
3294: l_cont_name := WSH_CONTAINER_UTILITIES.Get_Cont_Name(l_empty_container);
3295:
3296: IF l_debug_on THEN
3297: WSH_DEBUG_SV.log(l_module_name,'l_empty_container',l_empty_container);
3298: WSH_DEBUG_SV.log(l_module_name,'Empty Container',l_cont_name);
3299: END IF;
3300:
3301: FND_MESSAGE.SET_NAME('WSH','WSH_EMPTY_CONTAINER');
3302: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_cont_name);
3446:
3447: CLOSE get_trip;
3448:
3449: IF l_debug_on THEN
3450: WSH_DEBUG_SV.log(l_module_name,'trip id',l_otm_trip_id);
3451: WSH_DEBUG_SV.log(l_module_name,'carrier id',l_otm_carrier_id);
3452: WSH_DEBUG_SV.log(l_module_name,'ship method',l_otm_ship_method_code);
3453: WSH_DEBUG_SV.log(l_module_name,'mode',l_otm_mode);
3454: WSH_DEBUG_SV.log(l_module_name,'otm plan name',l_otm_plan_name);
3447: CLOSE get_trip;
3448:
3449: IF l_debug_on THEN
3450: WSH_DEBUG_SV.log(l_module_name,'trip id',l_otm_trip_id);
3451: WSH_DEBUG_SV.log(l_module_name,'carrier id',l_otm_carrier_id);
3452: WSH_DEBUG_SV.log(l_module_name,'ship method',l_otm_ship_method_code);
3453: WSH_DEBUG_SV.log(l_module_name,'mode',l_otm_mode);
3454: WSH_DEBUG_SV.log(l_module_name,'otm plan name',l_otm_plan_name);
3455: END IF;
3448:
3449: IF l_debug_on THEN
3450: WSH_DEBUG_SV.log(l_module_name,'trip id',l_otm_trip_id);
3451: WSH_DEBUG_SV.log(l_module_name,'carrier id',l_otm_carrier_id);
3452: WSH_DEBUG_SV.log(l_module_name,'ship method',l_otm_ship_method_code);
3453: WSH_DEBUG_SV.log(l_module_name,'mode',l_otm_mode);
3454: WSH_DEBUG_SV.log(l_module_name,'otm plan name',l_otm_plan_name);
3455: END IF;
3456:
3449: IF l_debug_on THEN
3450: WSH_DEBUG_SV.log(l_module_name,'trip id',l_otm_trip_id);
3451: WSH_DEBUG_SV.log(l_module_name,'carrier id',l_otm_carrier_id);
3452: WSH_DEBUG_SV.log(l_module_name,'ship method',l_otm_ship_method_code);
3453: WSH_DEBUG_SV.log(l_module_name,'mode',l_otm_mode);
3454: WSH_DEBUG_SV.log(l_module_name,'otm plan name',l_otm_plan_name);
3455: END IF;
3456:
3457: IF (p_ship_method IS NULL) THEN
3450: WSH_DEBUG_SV.log(l_module_name,'trip id',l_otm_trip_id);
3451: WSH_DEBUG_SV.log(l_module_name,'carrier id',l_otm_carrier_id);
3452: WSH_DEBUG_SV.log(l_module_name,'ship method',l_otm_ship_method_code);
3453: WSH_DEBUG_SV.log(l_module_name,'mode',l_otm_mode);
3454: WSH_DEBUG_SV.log(l_module_name,'otm plan name',l_otm_plan_name);
3455: END IF;
3456:
3457: IF (p_ship_method IS NULL) THEN
3458: --if p_ship_method is NULL, means no changes to the ship method,
3466: -- for this delivery during ship conform.
3467: --
3468:
3469: IF l_debug_on THEN
3470: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTERFACE_EXT_GRP.OTM_PRE_SHIP_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
3471: END IF;
3472:
3473: WSH_INTERFACE_EXT_GRP.otm_pre_ship_confirm(
3474: p_delivery_id => p_del_rows(i),
3477: p_trip_id => l_otm_trip_id,
3478: x_return_status => l_return_status);
3479:
3480: IF l_debug_on THEN
3481: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_INTERFACE_EXT_GRP.OTM_PRE_SHIP_CONFIRM', l_return_status);
3482: END IF;
3483:
3484: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3485: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
3506: --
3507: -- Ship method on a delivery cannot be changed for an OTM trip
3508: --
3509: IF l_debug_on THEN
3510: WSH_DEBUG_SV.log(l_module_name,'ship method on trip', l_otm_ship_method_code);
3511: WSH_DEBUG_SV.log(l_module_name,'ship method passed in ship confirm', p_ship_method);
3512: WSH_DEBUG_SV.logmsg(l_module_name,'ship method not allowed to change for otm trip');
3513: END IF;
3514:
3507: -- Ship method on a delivery cannot be changed for an OTM trip
3508: --
3509: IF l_debug_on THEN
3510: WSH_DEBUG_SV.log(l_module_name,'ship method on trip', l_otm_ship_method_code);
3511: WSH_DEBUG_SV.log(l_module_name,'ship method passed in ship confirm', p_ship_method);
3512: WSH_DEBUG_SV.logmsg(l_module_name,'ship method not allowed to change for otm trip');
3513: END IF;
3514:
3515: FND_MESSAGE.SET_NAME('WSH', 'WSH_OTM_SHIP_CONFIRM_ERROR');
3508: --
3509: IF l_debug_on THEN
3510: WSH_DEBUG_SV.log(l_module_name,'ship method on trip', l_otm_ship_method_code);
3511: WSH_DEBUG_SV.log(l_module_name,'ship method passed in ship confirm', p_ship_method);
3512: WSH_DEBUG_SV.logmsg(l_module_name,'ship method not allowed to change for otm trip');
3513: END IF;
3514:
3515: FND_MESSAGE.SET_NAME('WSH', 'WSH_OTM_SHIP_CONFIRM_ERROR');
3516: FND_MESSAGE.SET_TOKEN('DELIVERY_NAME', l_delivery_name);
3560: --
3561: -- Debug Statements
3562: --
3563: IF l_debug_on THEN
3564: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3565: END IF;
3566: --
3567: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3568: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_SUCCESS);
3594: --
3595: -- Debug Statements
3596: --
3597: IF l_debug_on THEN
3598: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3599: END IF;
3600: --
3601: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3602: FND_MESSAGE.SET_TOKEN('SHIP_METHOD',l_ship_method_code);
3620: --
3621: -- Debug Statements
3622: --
3623: IF l_debug_on THEN
3624: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3625: END IF;
3626: --
3627: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3628: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3643: --
3644: -- Debug Statements
3645: --
3646: IF l_debug_on THEN
3647: WSH_DEBUG_SV.log(l_module_name,'l_sc_pickup_date',l_sc_pickup_date);
3648: WSH_DEBUG_SV.log(l_module_name,'l_sc_dropoff_date',l_sc_dropoff_date);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FLEXFIELD_UTILS.VALIDATE_DFF',WSH_DEBUG_SV.C_PROC_LEVEL);
3650: END IF;
3651: --
3644: -- Debug Statements
3645: --
3646: IF l_debug_on THEN
3647: WSH_DEBUG_SV.log(l_module_name,'l_sc_pickup_date',l_sc_pickup_date);
3648: WSH_DEBUG_SV.log(l_module_name,'l_sc_dropoff_date',l_sc_dropoff_date);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FLEXFIELD_UTILS.VALIDATE_DFF',WSH_DEBUG_SV.C_PROC_LEVEL);
3650: END IF;
3651: --
3652: wsh_flexfield_utils.Validate_DFF
3645: --
3646: IF l_debug_on THEN
3647: WSH_DEBUG_SV.log(l_module_name,'l_sc_pickup_date',l_sc_pickup_date);
3648: WSH_DEBUG_SV.log(l_module_name,'l_sc_dropoff_date',l_sc_dropoff_date);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FLEXFIELD_UTILS.VALIDATE_DFF',WSH_DEBUG_SV.C_PROC_LEVEL);
3650: END IF;
3651: --
3652: wsh_flexfield_utils.Validate_DFF
3653: (p_table_name => 'WSH_NEW_DELIVERIES',
3659: --
3660: -- Debug Statements
3661: --
3662: IF l_debug_on THEN
3663: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3664: END IF;
3665: --
3666: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3667: wsh_util_core.add_message(x_return_status);
3680: l_del_valid_flag,
3681: x_return_status);
3682:
3683: IF l_debug_on THEN
3684: WSH_DEBUG_SV.log(l_module_name,'x_return_status after calling validate_del_containers', x_return_status);
3685: END IF;
3686:
3687: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3688: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
3689: --
3690: -- Debug Statements
3691: --
3692: IF l_debug_on THEN
3693: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3694: END IF;
3695: --
3696: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
3697: wsh_util_core.add_message(x_return_status);
3717: --
3718: -- Debug Statements
3719: --
3720: IF l_debug_on THEN
3721: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.CHECK_WMS_ORG',WSH_DEBUG_SV.C_PROC_LEVEL);
3722: END IF;
3723: --
3724: if (wsh_util_validate.Check_Wms_Org(l_organization_id)='Y') then
3725:
3732: --
3733: -- Debug Statements
3734: --
3735: IF l_debug_on THEN
3736: 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);
3737: END IF;
3738: --
3739: WMS_SHIPPING_PUB.DEL_WSTT_RECS_BY_DELIVERY_ID(
3740: x_return_status => l_return_status,
3762: --
3763:
3764: -- Check for Exceptions against Delivery and Contents of Delivery
3765: IF l_debug_on THEN
3766: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Check_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
3767: END IF;
3768: l_exceptions_tab.delete;
3769: l_exp_logged := FALSE;
3770: WSH_XC_UTIL.Check_Exceptions (
3899: --
3900: -- Debug Statements
3901: --
3902: IF l_debug_on THEN
3903: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.CHECK_EXCEPTION',WSH_DEBUG_SV.C_PROC_LEVEL);
3904: END IF;
3905: --
3906: WSH_SHIP_CONFIRM_ACTIONS2.check_exception(
3907: p_delivery_detail_id => l_delivery_detail_id,
3915: --
3916: -- Debug Statements
3917: --
3918: IF l_debug_on THEN
3919: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTIONS EXIST FOR DELIVERY DETAIL ' || L_DELIVERY_DETAIL_ID|| ' , DURING SHIP CONFIRM' );
3920: END IF;
3921: --
3922: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3923: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_delivery_detail_id));
3932: END IF;
3933: END IF;
3934:
3935: IF l_debug_on THEN
3936: WSH_DEBUG_SV.log(l_module_name,'l_delivery_detail_id'||l_delivery_detail_id);
3937: END IF;
3938:
3939: OPEN Get_Containers(l_delivery_detail_id);
3940: LOOP
3952: --
3953: -- Debug Statements
3954: --
3955: IF l_debug_on THEN
3956: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTIONS EXIST FOR CONTAINER ' || L_CONTAINER_ID|| ' , DURING SHIP CONFIRM' );
3957: END IF;
3958: --
3959: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_DET');
3960: FND_MESSAGE.SET_TOKEN('DEL_DET_ID', to_char(l_container_id));
3980: --
3981: -- Debug Statements
3982: --
3983: IF l_debug_on THEN
3984: WSH_DEBUG_SV.logmsg(l_module_name,'Calling WSH_FLEXFIELD_UTILS.VALIDATE_DFF to validate delivery details DFF',WSH_DEBUG_SV.C_PROC_LEVEL);
3985: END IF;
3986: --
3987: WSH_FLEXFIELD_UTILS.Validate_DFF(
3988: p_table_name => 'WSH_DELIVERY_DETAILS',
3991:
3992: --
3993: IF l_debug_on THEN
3994:
3995: WSH_DEBUG_SV.logmsg(l_module_name,'Return status after calling Validate_DFF in DEACB is : '
3996: || x_return_status);
3997: END IF;
3998: IF ( x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR ) THEN
3999: --
3999: --
4000: -- Debug Statements
4001: --
4002: IF l_debug_on THEN
4003: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FLEXFIELD_UTILS.VALIDATE_DFF failed for delivery detail : '
4004: || l_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
4005: WSH_DEBUG_SV.logmsg(l_module_name,'Return status after calling Validate_DFF in DEACB is : '
4006: || x_return_status);
4007: END IF;
4000: -- Debug Statements
4001: --
4002: IF l_debug_on THEN
4003: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FLEXFIELD_UTILS.VALIDATE_DFF failed for delivery detail : '
4004: || l_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
4005: WSH_DEBUG_SV.logmsg(l_module_name,'Return status after calling Validate_DFF in DEACB is : '
4006: || x_return_status);
4007: END IF;
4008: --
4001: --
4002: IF l_debug_on THEN
4003: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FLEXFIELD_UTILS.VALIDATE_DFF failed for delivery detail : '
4004: || l_delivery_detail_id,WSH_DEBUG_SV.C_PROC_LEVEL);
4005: WSH_DEBUG_SV.logmsg(l_module_name,'Return status after calling Validate_DFF in DEACB is : '
4006: || x_return_status);
4007: END IF;
4008: --
4009: l_num_error := l_num_error + 1;
4108: --
4109: -- Debug Statements
4110: --
4111: IF l_debug_on THEN
4112: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4113: END IF;
4114: --
4115: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
4116: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4162: --
4163: -- Debug Statements
4164: --
4165: IF l_debug_on THEN
4166: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FLEXFIELD_UTILS.VALIDATE_DFF validation failed for delivery detail(s)',WSH_DEBUG_SV.C_PROC_LEVEL);
4167: END IF;
4168: --
4169: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4170: l_token := FND_MESSAGE.Get_String('WSH', 'WSH_DETAIL_DFF_TITLE');
4193: --
4194: -- Debug Statements
4195: --
4196: IF l_debug_on THEN
4197: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT',WSH_DEBUG_SV.C_PROC_LEVEL);
4198: END IF;
4199: --
4200: WMS_Shipping_LPN_Utils_PUB.update_lpn_context
4201: (p_delivery_id => p_del_rows(i),
4224: --
4225: -- Debug Statements
4226: --
4227: IF l_debug_on THEN
4228: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.BACKORDER',WSH_DEBUG_SV.C_PROC_LEVEL);
4229: END IF;
4230: --
4231:
4232:
4269: --
4270: -- Debug Statements
4271: --
4272: IF l_debug_on THEN
4273: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_SHIPPING_LPN_UTILS_PUB.UPDATE_LPN_CONTEXT',WSH_DEBUG_SV.C_PROC_LEVEL);
4274: END IF;
4275: --
4276: WMS_Shipping_LPN_Utils_PUB.update_lpn_context
4277: (p_delivery_id => p_del_rows(i),
4298: --
4299: -- Debug Statements
4300: --
4301: IF l_debug_on THEN
4302: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.BACKORDER',WSH_DEBUG_SV.C_PROC_LEVEL);
4303: END IF;
4304: --
4305:
4306: wsh_ship_confirm_actions2.backorder(
4365: -- HW OPMCONV - Added nvl to shipped_qty2
4366: l_cycle_quantity2 := nvl(l_assigned_cc_qtys2( j ), l_assigned_req_qtys2( j ) - nvl(l_shipped_quantity2,0));
4367: /* End Bug 2408223 */
4368: IF l_debug_on THEN
4369: WSH_DEBUG_SV.push(l_module_name);
4370: --
4371: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4372: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4373: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4367: /* End Bug 2408223 */
4368: IF l_debug_on THEN
4369: WSH_DEBUG_SV.push(l_module_name);
4370: --
4371: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4372: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4373: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4374: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4375:
4368: IF l_debug_on THEN
4369: WSH_DEBUG_SV.push(l_module_name);
4370: --
4371: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4372: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4373: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4374: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4375:
4376: WSH_DEBUG_SV.push(l_module_name);
4369: WSH_DEBUG_SV.push(l_module_name);
4370: --
4371: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4372: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4373: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4374: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4375:
4376: WSH_DEBUG_SV.push(l_module_name);
4377: --
4370: --
4371: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4372: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4373: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4374: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4375:
4376: WSH_DEBUG_SV.push(l_module_name);
4377: --
4378: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4372: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity2',l_shipped_quantity2);
4373: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys2( j ',l_assigned_req_qtys2( j ));
4374: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4375:
4376: WSH_DEBUG_SV.push(l_module_name);
4377: --
4378: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4379: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity',l_shipped_quantity2);
4380: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys( j ',l_assigned_req_qtys( j ));
4374: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys2( j ));
4375:
4376: WSH_DEBUG_SV.push(l_module_name);
4377: --
4378: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4379: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity',l_shipped_quantity2);
4380: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys( j ',l_assigned_req_qtys( j ));
4381: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys( j ));
4382:
4375:
4376: WSH_DEBUG_SV.push(l_module_name);
4377: --
4378: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4379: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity',l_shipped_quantity2);
4380: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys( j ',l_assigned_req_qtys( j ));
4381: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys( j ));
4382:
4383: end if;
4376: WSH_DEBUG_SV.push(l_module_name);
4377: --
4378: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4379: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity',l_shipped_quantity2);
4380: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys( j ',l_assigned_req_qtys( j ));
4381: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys( j ));
4382:
4383: end if;
4384: if ( l_assigned_shp_qtys ( j ) is null ) then
4377: --
4378: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4379: WSH_DEBUG_SV.log(l_module_name,'l_shipped_quantity',l_shipped_quantity2);
4380: WSH_DEBUG_SV.log(l_module_name,'l_assigned_req_qtys( j ',l_assigned_req_qtys( j ));
4381: WSH_DEBUG_SV.log(l_module_name,'l_assigned_cc_qtys( j ) ',l_assigned_cc_qtys( j ));
4382:
4383: end if;
4384: if ( l_assigned_shp_qtys ( j ) is null ) then
4385: l_bo_mode := 'CYCLE_COUNT' ;
4439: -- End Bug 3694454
4440:
4441: -- muom
4442: IF l_debug_on THEN
4443: WSH_DEBUG_SV.logmsg(l_module_name,'l_stage_quantity '||l_stage_quantity||' l_stage_quantity2 '||l_stage_quantity2);
4444: END IF;
4445: l_fulfill_base := WSH_UTIL_CORE.Get_Line_Fulfillment_Base(l_assigned_src_codes(j), l_assigned_source_lines(j));
4446: -- When Fulfillment base is Secondary, the nothing should be Staged on Primary if there is nothing to be Staged on Secondary
4447: IF (l_stage_quantity > 0) and (nvl(l_stage_quantity2,0) <= 0) and (l_assigned_req_qty_uoms2(j) is not null) and
4469: --
4470: -- Debug Statements
4471: --
4472: IF l_debug_on THEN
4473: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
4474: END IF;
4475: --
4476: wsh_delivery_details_actions.split_delivery_details(
4477: p_from_detail_id => l_assigned_line_ids( j ),
4511: END IF; -- (l_stage_quantity > 0)
4512:
4513: -- muom
4514: IF l_debug_on THEN
4515: WSH_DEBUG_SV.logmsg(l_module_name,'l_cycle_quantity '||l_cycle_quantity||' l_cycle_quantity2 '||l_cycle_quantity2);
4516: END IF;
4517: -- When Fulfillment base is Secondary, the nothing should be Backordered on Primary if there is nothing to be Backordered on Secondary
4518: IF (l_cycle_quantity > 0) and (nvl(l_cycle_quantity2,0) <= 0) and (l_assigned_req_qty_uoms2(j) is not null) and
4519: (l_fulfill_base = 'S') THEN
4540: l_cc_source_lines(l_cc_source_lines.count +1) := l_assigned_source_lines(j);
4541: l_cc_qtys ( l_cc_qtys.count + 1 ) := l_cycle_quantity ;
4542: l_cc_sources ( l_cc_sources.count + 1 ) := l_assigned_source(j); -- RTV BO Cons Changes
4543: IF l_debug_on THEN
4544: WSH_DEBUG_SV.push(l_module_name);
4545: --
4546: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4547: END IF;
4548:
4542: l_cc_sources ( l_cc_sources.count + 1 ) := l_assigned_source(j); -- RTV BO Cons Changes
4543: IF l_debug_on THEN
4544: WSH_DEBUG_SV.push(l_module_name);
4545: --
4546: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity',l_cycle_quantity);
4547: END IF;
4548:
4549: l_cc_req_qtys ( l_cc_req_qtys.count + 1 ):= l_assigned_req_qtys( j ) ;
4550: l_cc_overpick_qtys ( l_cc_overpick_qtys.count + 1 ):= l_unshipped_pick_quantity ;
4550: l_cc_overpick_qtys ( l_cc_overpick_qtys.count + 1 ):= l_unshipped_pick_quantity ;
4551:
4552: l_cc_qtys2( l_cc_qtys2.count + 1 ) := l_cycle_quantity2 ;
4553: IF l_debug_on THEN
4554: WSH_DEBUG_SV.push(l_module_name);
4555: --
4556: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4557: END IF;
4558: l_cc_overpick_qtys2( l_cc_overpick_qtys2.count + 1 ) := l_unshipped_pick_quantity2 ;
4552: l_cc_qtys2( l_cc_qtys2.count + 1 ) := l_cycle_quantity2 ;
4553: IF l_debug_on THEN
4554: WSH_DEBUG_SV.push(l_module_name);
4555: --
4556: WSH_DEBUG_SV.log(l_module_name,'l_cycle_quantity2',l_cycle_quantity2);
4557: END IF;
4558: l_cc_overpick_qtys2( l_cc_overpick_qtys2.count + 1 ) := l_unshipped_pick_quantity2 ;
4559: end if ;
4560: END IF ;
4602: -- J: W/V Changes
4603: -- Recalculate the W/V as the quantities would have changed
4604: FOR tmp_counter IN 1..l_shp_dd_ids.count LOOP
4605: IF l_debug_on THEN
4606: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
4607: END IF;
4608:
4609: WSH_WV_UTILS.Detail_Weight_Volume(
4610: p_delivery_detail_id => l_shp_dd_ids(tmp_counter),
4617:
4618: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4619: x_return_status := l_return_status;
4620: IF l_debug_on THEN
4621: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
4622: WSH_DEBUG_SV.pop(l_module_name);
4623: END IF;
4624: return;
4625: END IF;
4618: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4619: x_return_status := l_return_status;
4620: IF l_debug_on THEN
4621: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
4622: WSH_DEBUG_SV.pop(l_module_name);
4623: END IF;
4624: return;
4625: END IF;
4626: END LOOP;
4660: --
4661: -- Debug Statements
4662: --
4663: IF l_debug_on THEN
4664: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.BACKORDER',WSH_DEBUG_SV.C_PROC_LEVEL);
4665: END IF;
4666: --
4667:
4668: wsh_ship_confirm_actions2.backorder(
4696: --
4697: -- Debug Statements
4698: --
4699: IF l_debug_on THEN
4700: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIP_CONFIRM_ACTIONS2.BACKORDER',WSH_DEBUG_SV.C_PROC_LEVEL);
4701: END IF;
4702: --
4703:
4704: wsh_ship_confirm_actions2.backorder(
4739: --
4740: -- Debug Statements
4741: --
4742: IF l_debug_on THEN
4743: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_DETAIL_FOR_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
4744: END IF;
4745: --
4746: WSH_DELIVERY_VALIDATIONS.check_detail_for_confirm
4747: ( p_detail_id => l_shp_dd_ids(dd_count),
4760: --
4761: -- Debug Statements
4762: --
4763: IF l_debug_on THEN
4764: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4765: END IF;
4766: --
4767: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
4768: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
4799: should NOT be set to FALSE
4800: */
4801:
4802: if l_debug_on then
4803: wsh_debug_sv.log(l_module_name, 'l_inv_controls_rec.details_required_flag', l_inv_controls_rec.details_required_flag);
4804: end if;
4805:
4806: if nvl(l_inv_controls_rec.details_required_flag, 'N') = 'Y' then
4807: l_inv_cntrl_flag := FALSE;
4859: --
4860: -- Debug Statements
4861: --
4862: IF l_debug_on THEN
4863: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_SUBINVENTORY',WSH_DEBUG_SV.C_PROC_LEVEL);
4864: END IF;
4865: --
4866: WSH_DELIVERY_DETAILS_INV.Default_Subinventory ( l_shp_dd_orgs ( dd_count ),
4867: l_shp_dd_items( dd_count ),
4880: --
4881: -- Debug Statements
4882: --
4883: IF l_debug_on THEN
4884: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_ORG_LOC',WSH_DEBUG_SV.C_PROC_LEVEL);
4885: END IF;
4886: --
4887: org_loc_ctl := WSH_DELIVERY_DETAILS_INV.Get_Org_Loc (l_shp_dd_orgs ( dd_count ));
4888:
4889: --
4890: -- Debug Statements
4891: --
4892: IF l_debug_on THEN
4893: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.SUB_LOC_CTL',WSH_DEBUG_SV.C_PROC_LEVEL);
4894: END IF;
4895: --
4896: sub_loc_ctl := WSH_DELIVERY_DETAILS_INV.Sub_Loc_Ctl (
4897: nvl(l_shp_dd_subs ( dd_count ),dft_subinv),
4901: --
4902: -- Debug Statements
4903: --
4904: IF l_debug_on THEN
4905: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.LOCATOR_CTL_CODE',WSH_DEBUG_SV.C_PROC_LEVEL);
4906: END IF;
4907: --
4908: loc_ctl_code := WSH_DELIVERY_DETAILS_INV.Locator_Ctl_Code(
4909: l_shp_dd_orgs ( dd_count ),
4922: --
4923: -- Debug Statements
4924: --
4925: IF l_debug_on THEN
4926: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.DEFAULT_LOCATOR',WSH_DEBUG_SV.C_PROC_LEVEL);
4927: END IF;
4928: --
4929: dft_loc_id := WSH_DELIVERY_DETAILS_INV.Default_Locator (
4930: l_shp_dd_orgs ( dd_count ),
4936: -- performance bug 5257207: SC-13, do this update only when needed.
4937: IF (l_shp_dd_subs(dd_count) IS NULL AND dft_subinv IS NOT NULL)
4938: OR (dft_loc_id IS NOT NULL) THEN
4939: IF l_debug_on THEN
4940: WSH_DEBUG_SV.logmsg(l_module_name, 'updating subinv/locator');
4941: WSH_DEBUG_SV.log(l_module_name, 'dft_subinv', dft_subinv);
4942: WSH_DEBUG_SV.log(l_module_name, 'dft_loc_id', dft_loc_id);
4943: END IF;
4944: update wsh_delivery_details set
4937: IF (l_shp_dd_subs(dd_count) IS NULL AND dft_subinv IS NOT NULL)
4938: OR (dft_loc_id IS NOT NULL) THEN
4939: IF l_debug_on THEN
4940: WSH_DEBUG_SV.logmsg(l_module_name, 'updating subinv/locator');
4941: WSH_DEBUG_SV.log(l_module_name, 'dft_subinv', dft_subinv);
4942: WSH_DEBUG_SV.log(l_module_name, 'dft_loc_id', dft_loc_id);
4943: END IF;
4944: update wsh_delivery_details set
4945: subinventory = NVL(subinventory, dft_subinv),
4938: OR (dft_loc_id IS NOT NULL) THEN
4939: IF l_debug_on THEN
4940: WSH_DEBUG_SV.logmsg(l_module_name, 'updating subinv/locator');
4941: WSH_DEBUG_SV.log(l_module_name, 'dft_subinv', dft_subinv);
4942: WSH_DEBUG_SV.log(l_module_name, 'dft_loc_id', dft_loc_id);
4943: END IF;
4944: update wsh_delivery_details set
4945: subinventory = NVL(subinventory, dft_subinv),
4946: locator_id = NVL(locator_id, dft_loc_id)
4953: END LOOP ;
4954:
4955: IF (NOT l_inv_cntrl_flag) THEN
4956: IF l_debug_on THEN
4957: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
4958: End If;
4959: If g_missing_inv_severity is null then
4960: g_missing_inv_severity := wsh_ru_actions.get_message_severity (wsh_new_delivery_actions.g_ship_confirm_act
4961: ,wsh_new_delivery_actions.g_missing_inv_cntl_msg);
4962: End If;
4963:
4964: -- bug 2283621 - pass the l_inv_ctrl_dd_ids to the warning message
4965: IF l_debug_on THEN
4966: WSH_DEBUG_SV.log(l_module_name,'l_inv_ctrl_dd_ids - '|| l_inv_ctrl_dd_ids);
4967: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
4968: END IF;
4969:
4970: If g_missing_inv_severity = 'E' then
4963:
4964: -- bug 2283621 - pass the l_inv_ctrl_dd_ids to the warning message
4965: IF l_debug_on THEN
4966: WSH_DEBUG_SV.log(l_module_name,'l_inv_ctrl_dd_ids - '|| l_inv_ctrl_dd_ids);
4967: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
4968: END IF;
4969:
4970: If g_missing_inv_severity = 'E' then
4971: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_INV_CONTROLS');
4985: END IF;
4986: /***************************Material Status Project***************************************/
4987: IF (NOT l_inv_material_flag) THEN
4988: IF l_debug_on THEN
4989: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
4990: End If;
4991: If g_missing_inv_severity is null then
4992: g_missing_inv_severity := wsh_ru_actions.get_message_severity (
4993: wsh_new_delivery_actions.g_ship_confirm_act,
4994: wsh_new_delivery_actions.g_invalid_material_status_msg);
4995: End If;
4996:
4997: IF l_debug_on THEN
4998: WSH_DEBUG_SV.log(l_module_name,'l_inv_material_dd_ids - '|| l_inv_material_dd_ids);
4999: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
5000: END IF;
5001:
5002: If g_missing_inv_severity = 'E' then
4995: End If;
4996:
4997: IF l_debug_on THEN
4998: WSH_DEBUG_SV.log(l_module_name,'l_inv_material_dd_ids - '|| l_inv_material_dd_ids);
4999: WSH_DEBUG_SV.log(l_module_name,'g_missing_inv_severity - '|| g_missing_inv_severity);
5000: END IF;
5001:
5002: If g_missing_inv_severity = 'E' then
5003: FND_MESSAGE.SET_NAME('WSH','WSH_DETAILS_MATERIAL_STATUS');
5020: --
5021: -- Debug Statements
5022: --
5023: IF l_debug_on THEN
5024: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_DELIVERY_PKG.CHECK_RELEASED_LINES',WSH_DEBUG_SV.C_PROC_LEVEL);
5025: END IF;
5026: --
5027: wsh_tpa_delivery_pkg.check_released_lines(
5028: p_del_rows(i), l_unassign_dds.count,
5052: --
5053: -- Shifted code to obtain Global parameters outside the Deliveries loop ***
5054:
5055: IF l_debug_on THEN
5056: 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);
5057: END IF;
5058:
5059: IF (l_global_parameters.consolidate_bo_lines = 'Y') THEN
5060: -- --{
5144: --
5145: -- Debug Statements
5146: --
5147: IF l_debug_on THEN
5148: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_UNPACK_EMPTY_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
5149: END IF;
5150:
5151: -- Unassign the lines marked for unassigning.
5152: WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont(
5168: --
5169: -- Debug Statements
5170: --
5171: IF l_debug_on THEN
5172: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.CONT_TOBE_UNASSIGNED',WSH_DEBUG_SV.C_PROC_LEVEL);
5173: END IF;
5174: -- Identify the Staged Lines or Containers to be Unassigned from the Delivery
5175: Cont_ToBe_Unassigned ( p_staged_lines => l_stage_rows,
5176: x_unassigned_cont => x_unassigned_cont,
5191: --
5192: -- Debug Statements
5193: --
5194: IF l_debug_on THEN
5195: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_UNPACK_EMPTY_CONT',WSH_DEBUG_SV.C_PROC_LEVEL);
5196: END IF;
5197: -- Unassign Containers or Staged Lines using new API
5198: WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont(
5199: p_ids_tobe_unassigned => x_unassigned_cont ,
5217: --
5218: -- Debug Statements
5219: --
5220: IF l_debug_on THEN
5221: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTERFACE.DELETE_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
5222: END IF;
5223: --
5224: wsh_interface.delete_details(
5225: p_details_id => l_cancel_line_ids,
5231: --
5232: -- Debug Statements
5233: --
5234: IF l_debug_on THEN
5235: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5236: END IF;
5237: --
5238: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5239: x_return_status := l_return_status;
5246: -- Bug 5584951: Moved the call to after the call to unassign details.
5247:
5248: FOR tmp_counter IN 1..l_stage_rows.count LOOP
5249: IF l_debug_on THEN
5250: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
5251: END IF;
5252:
5253: WSH_WV_UTILS.Detail_Weight_Volume(
5254: p_delivery_detail_id => l_stage_rows(tmp_counter),
5260: x_return_status => l_return_status);
5261: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5262: x_return_status := l_return_status;
5263: IF l_debug_on THEN
5264: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
5265: WSH_DEBUG_SV.pop(l_module_name);
5266: END IF;
5267: return;
5268: END IF;
5261: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
5262: x_return_status := l_return_status;
5263: IF l_debug_on THEN
5264: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
5265: WSH_DEBUG_SV.pop(l_module_name);
5266: END IF;
5267: return;
5268: END IF;
5269: END LOOP;
5275: --
5276: -- Debug Statements
5277: --
5278: IF l_debug_on THEN
5279: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DETAILS_VALIDATIONS.CHECK_ZERO_REQ_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
5280: END IF;
5281: --
5282: WSH_DETAILS_VALIDATIONS.check_zero_req_confirm(p_delivery_id => p_del_rows(i),
5283: x_return_status => l_return_status);
5291:
5292:
5293: -- Code Shifted from below 12. *** to here, since this is a mandatory step now - Workflow Changes
5294: IF l_debug_on THEN
5295: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',WSH_DEBUG_SV.C_PROC_LEVEL);
5296: END IF;
5297: --
5298: WSH_SHIPPING_PARAMS_PVT.Get(
5299: p_organization_id => l_organization_id,
5307: --
5308: -- Debug Statements
5309: --
5310: IF l_debug_on THEN
5311: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ORG_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5312: END IF;
5313: --
5314: FND_MESSAGE.Set_Token('ORGANIZAION_CODE',
5315: wsh_util_core.get_org_name(l_organization_id));
5324: --
5325: -- Debug Statements
5326: --
5327: IF l_debug_on THEN
5328: WSH_DEBUG_SV.log(l_module_name,'l_override_wf',l_override_wf);
5329: WSH_DEBUG_SV.log(l_module_name,'l_param_info.Enable_sc_wf',l_param_info.Enable_sc_wf);
5330: WSH_DEBUG_SV.log(l_module_name,'l_global_parameters.Enable_sc_wf',l_global_parameters.Enable_sc_wf);
5331: WSH_DEBUG_SV.log(l_module_name,'l_global_parameters.allow_future_ship_date',l_global_parameters.allow_future_ship_date);
5332: END IF;
5325: -- Debug Statements
5326: --
5327: IF l_debug_on THEN
5328: WSH_DEBUG_SV.log(l_module_name,'l_override_wf',l_override_wf);
5329: WSH_DEBUG_SV.log(l_module_name,'l_param_info.Enable_sc_wf',l_param_info.Enable_sc_wf);
5330: WSH_DEBUG_SV.log(l_module_name,'l_global_parameters.Enable_sc_wf',l_global_parameters.Enable_sc_wf);
5331: WSH_DEBUG_SV.log(l_module_name,'l_global_parameters.allow_future_ship_date',l_global_parameters.allow_future_ship_date);
5332: END IF;
5333: --
5326: --
5327: IF l_debug_on THEN
5328: WSH_DEBUG_SV.log(l_module_name,'l_override_wf',l_override_wf);
5329: WSH_DEBUG_SV.log(l_module_name,'l_param_info.Enable_sc_wf',l_param_info.Enable_sc_wf);
5330: WSH_DEBUG_SV.log(l_module_name,'l_global_parameters.Enable_sc_wf',l_global_parameters.Enable_sc_wf);
5331: WSH_DEBUG_SV.log(l_module_name,'l_global_parameters.allow_future_ship_date',l_global_parameters.allow_future_ship_date);
5332: END IF;
5333: --
5334: IF (l_param_info.Enable_sc_wf = 'Y' AND l_global_parameters.Enable_sc_wf = 'Y' AND nvl(l_override_wf,'N') = 'N') THEN
5327: IF l_debug_on THEN
5328: WSH_DEBUG_SV.log(l_module_name,'l_override_wf',l_override_wf);
5329: WSH_DEBUG_SV.log(l_module_name,'l_param_info.Enable_sc_wf',l_param_info.Enable_sc_wf);
5330: WSH_DEBUG_SV.log(l_module_name,'l_global_parameters.Enable_sc_wf',l_global_parameters.Enable_sc_wf);
5331: WSH_DEBUG_SV.log(l_module_name,'l_global_parameters.allow_future_ship_date',l_global_parameters.allow_future_ship_date);
5332: END IF;
5333: --
5334: IF (l_param_info.Enable_sc_wf = 'Y' AND l_global_parameters.Enable_sc_wf = 'Y' AND nvl(l_override_wf,'N') = 'N') THEN
5335: -- Bug 8555654 : Should not start the workflow if ship confirm is going to fail due to actual dep. date validation.
5346: END IF;
5347: -- Debug Statements
5348: --
5349: IF l_debug_on THEN
5350: WSH_DEBUG_SV.log(l_module_name,'l_enable_sc_wf',l_enable_sc_wf);
5351: END IF;
5352: --
5353: --==/
5354:
5359: --
5360: -- Debug Statements
5361: --
5362: IF l_debug_on THEN
5363: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_AUTOCREATE.AUTOCREATE_DELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
5364: END IF;
5365: --
5366: wsh_delivery_autocreate.autocreate_deliveries(
5367: p_line_rows => l_stage_rows ,
5383: END IF;
5384:
5385: --deliveryMerge
5386: IF l_debug_on THEN
5387: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
5388: END IF;
5389: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag(
5390: p_delivery_ids => l_dummy_rows,
5391: p_caller => 'WSH_DLMG',
5394: p_event => NULL,
5395: x_return_status => l_return_status);
5396:
5397: IF l_debug_on THEN
5398: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag l_return_status',l_return_status);
5399: END IF;
5400:
5401: IF x_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
5402: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5431: -- Pack J, ITM -- Check if delivery needs to be marked for export compliance.
5432: l_itm_exc_severity := '-99';
5433:
5434: IF l_debug_on THEN
5435: wsh_debug_sv.log(l_module_name,'severity of ITM exception',l_itm_exc_severity);
5436: END IF;
5437:
5438: IF l_param_info.export_screening_flag IN ('S', 'A') THEN
5439:
5438: IF l_param_info.export_screening_flag IN ('S', 'A') THEN
5439:
5440:
5441: IF l_debug_on THEN
5442: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',WSH_DEBUG_SV.C_PROC_LEVEL);
5443: END IF;
5444: --Bug 9326608 Changed l_itm_exc_flag to use i as index
5445: l_itm_exc_flag(i) := WSH_DELIVERY_VALIDATIONS.Check_ITM_Required
5446: (p_delivery_id => p_del_rows(i),
5445: l_itm_exc_flag(i) := WSH_DELIVERY_VALIDATIONS.Check_ITM_Required
5446: (p_delivery_id => p_del_rows(i),
5447: x_return_status => l_return_status);
5448: IF l_debug_on THEN
5449: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',l_return_status);
5450: WSH_DEBUG_SV.logmsg(l_module_name,'ITM flag: '||l_param_info.export_screening_flag);
5451: wsh_debug_sv.log(l_module_name,'l_itm_exc_flag for delivery: '|| p_del_rows(i),l_itm_exc_flag(i)); --Bug 9326608
5452: END IF;
5453:
5446: (p_delivery_id => p_del_rows(i),
5447: x_return_status => l_return_status);
5448: IF l_debug_on THEN
5449: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',l_return_status);
5450: WSH_DEBUG_SV.logmsg(l_module_name,'ITM flag: '||l_param_info.export_screening_flag);
5451: wsh_debug_sv.log(l_module_name,'l_itm_exc_flag for delivery: '|| p_del_rows(i),l_itm_exc_flag(i)); --Bug 9326608
5452: END IF;
5453:
5454: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5447: x_return_status => l_return_status);
5448: IF l_debug_on THEN
5449: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_DELIVERY_VALIDATIONS.Check_ITM_Required',l_return_status);
5450: WSH_DEBUG_SV.logmsg(l_module_name,'ITM flag: '||l_param_info.export_screening_flag);
5451: wsh_debug_sv.log(l_module_name,'l_itm_exc_flag for delivery: '|| p_del_rows(i),l_itm_exc_flag(i)); --Bug 9326608
5452: END IF;
5453:
5454: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
5455: goto confirm_error;
5464:
5465: END IF;
5466:
5467: IF l_debug_on THEN
5468: wsh_debug_sv.log(l_module_name,'severity of ITM exception',l_itm_exc_severity);
5469: END IF;
5470: ELSE
5471: --Bug 9326608 Changed l_itm_exc_flag to use i as index
5472: l_itm_exc_flag(i) := 'N';
5486: FETCH get_delivery_wv INTO l_gross_weight, l_volume;
5487: CLOSE get_delivery_wv;
5488:
5489: IF l_debug_on THEN
5490: WSH_DEBUG_SV.logmsg(l_module_name,'Gross '||l_gross_weight||' Volume '||l_volume||' Fill basis '||l_param_info.percent_fill_basis_flag);
5491: END IF;
5492:
5493: IF (l_param_info.percent_fill_basis_flag = 'W' and l_gross_weight is NULL) THEN
5494: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WV');
5492:
5493: IF (l_param_info.percent_fill_basis_flag = 'W' and l_gross_weight is NULL) THEN
5494: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WV');
5495: IF l_debug_on THEN
5496: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5497: END IF;
5498: --
5499: FND_MESSAGE.SET_TOKEN('ENTITY_TYPE','Delivery');
5500: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5506:
5507: IF (l_param_info.percent_fill_basis_flag = 'V' and l_volume is NULL) THEN
5508: FND_MESSAGE.SET_NAME('WSH','WSH_NULL_WV');
5509: IF l_debug_on THEN
5510: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5511: END IF;
5512: --
5513: FND_MESSAGE.SET_TOKEN('ENTITY_TYPE','Delivery');
5514: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5525:
5526: l_underfilled_flag := FALSE;
5527: l_overfilled_flag := FALSE;
5528: IF l_debug_on THEN
5529: WSH_DEBUG_SV.log(l_module_name,'COUNT -'||l_shp_dd_cont_ids.count);
5530: END IF;
5531:
5532: FOR rec_count in 1..l_shp_dd_cont_ids.count
5533: LOOP
5531:
5532: FOR rec_count in 1..l_shp_dd_cont_ids.count
5533: LOOP
5534: IF l_debug_on THEN
5535: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CHECK_FILL_PC',WSH_DEBUG_SV.C_PROC_LEVEL);
5536: WSH_DEBUG_SV.log(l_module_name,'Cont -'||l_shp_dd_cont_ids(rec_count));
5537: END IF;
5538: --
5539: wsh_wv_utils.check_fill_pc( p_container_instance_id => l_shp_dd_cont_ids(rec_count),
5532: FOR rec_count in 1..l_shp_dd_cont_ids.count
5533: LOOP
5534: IF l_debug_on THEN
5535: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.CHECK_FILL_PC',WSH_DEBUG_SV.C_PROC_LEVEL);
5536: WSH_DEBUG_SV.log(l_module_name,'Cont -'||l_shp_dd_cont_ids(rec_count));
5537: END IF;
5538: --
5539: wsh_wv_utils.check_fill_pc( p_container_instance_id => l_shp_dd_cont_ids(rec_count),
5540: x_fill_status => l_fill_status,
5540: x_fill_status => l_fill_status,
5541: x_return_status => l_return_status);
5542:
5543: IF l_debug_on THEN
5544: WSH_DEBUG_SV.log(l_module_name,'RET STS -'||l_return_status);
5545: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_fill_status);
5546: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_save_fill_status);
5547: END IF;
5548:
5541: x_return_status => l_return_status);
5542:
5543: IF l_debug_on THEN
5544: WSH_DEBUG_SV.log(l_module_name,'RET STS -'||l_return_status);
5545: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_fill_status);
5546: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_save_fill_status);
5547: END IF;
5548:
5549: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5542:
5543: IF l_debug_on THEN
5544: WSH_DEBUG_SV.log(l_module_name,'RET STS -'||l_return_status);
5545: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_fill_status);
5546: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_save_fill_status);
5547: END IF;
5548:
5549: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
5550: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5564: l_save_fill_status := l_fill_status;
5565: END IF;
5566:
5567: IF l_debug_on THEN
5568: WSH_DEBUG_SV.log(l_module_name,'Fill St -'||l_save_fill_status);
5569: END IF;
5570:
5571: END LOOP;
5572:
5572:
5573: l_fill_status := l_save_fill_status;
5574:
5575: IF l_debug_on THEN
5576: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP RET STS -'||l_return_status);
5577: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP SAV STS -'||l_save_fill_status);
5578: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP Fill St -'||l_fill_status);
5579: END IF;
5580:
5573: l_fill_status := l_save_fill_status;
5574:
5575: IF l_debug_on THEN
5576: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP RET STS -'||l_return_status);
5577: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP SAV STS -'||l_save_fill_status);
5578: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP Fill St -'||l_fill_status);
5579: END IF;
5580:
5581: -- 2732719
5574:
5575: IF l_debug_on THEN
5576: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP RET STS -'||l_return_status);
5577: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP SAV STS -'||l_save_fill_status);
5578: WSH_DEBUG_SV.log(l_module_name,'AFTER LOOP Fill St -'||l_fill_status);
5579: END IF;
5580:
5581: -- 2732719
5582: -- Calculate fill pc of the containers in the delivery
5610: --
5611: -- Debug Statements
5612: --
5613: IF l_debug_on THEN
5614: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_CONFIRM',WSH_DEBUG_SV.C_PROC_LEVEL);
5615: END IF;
5616: --
5617: wsh_delivery_validations.check_confirm(
5618: p_delivery_id => p_del_rows(i),
5640: --
5641: -- Debug Statements
5642: --
5643: IF l_debug_on THEN
5644: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5645: END IF;
5646: --
5647: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5648: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5663: -- Bug 2711786
5664:
5665: --Ship Message Customization Project Change START
5666: IF l_debug_on THEN
5667: WSH_DEBUG_SV.logmsg(l_module_name,'g_break_ship_set_or_smc ',g_break_ship_set_or_smc);
5668: END IF;
5669: If g_break_ship_set_or_smc > 0 then
5670: g_break_ship_set_or_smc := 0 ;
5671: l_num_error := l_num_error + 1;
5669: If g_break_ship_set_or_smc > 0 then
5670: g_break_ship_set_or_smc := 0 ;
5671: l_num_error := l_num_error + 1;
5672: IF l_debug_on THEN
5673: WSH_DEBUG_SV.logmsg(l_module_name,'l_num_error ',l_num_error);
5674: WSH_DEBUG_SV.logmsg(l_module_name,'g_break_ship_set_or_smc ',g_break_ship_set_or_smc);
5675: END IF;
5676: goto confirm_error_no_msg;
5677: End If;
5670: g_break_ship_set_or_smc := 0 ;
5671: l_num_error := l_num_error + 1;
5672: IF l_debug_on THEN
5673: WSH_DEBUG_SV.logmsg(l_module_name,'l_num_error ',l_num_error);
5674: WSH_DEBUG_SV.logmsg(l_module_name,'g_break_ship_set_or_smc ',g_break_ship_set_or_smc);
5675: END IF;
5676: goto confirm_error_no_msg;
5677: End If;
5678: --Ship Message Customization Project Change END
5690: --
5691: -- Debug Statements
5692: --
5693: IF l_debug_on THEN
5694: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TPA_DELIVERY_PKG.CHECK_DEL_UNPACKED',WSH_DEBUG_SV.C_PROC_LEVEL);
5695: END IF;
5696: --
5697: wsh_tpa_delivery_pkg.check_del_unpacked
5698: (l_delivery_id,
5726: --
5727: -- Debug Statements
5728: --
5729: IF l_debug_on THEN
5730: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5731: END IF;
5732: --
5733: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5734: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
5774:
5775: END IF;
5776:
5777: IF l_debug_on THEN
5778: wsh_debug_sv.log(l_module_name,'delivery',p_del_rows(i));
5779: wsh_debug_sv.log(l_module_name,'l_pickup_stop_id',l_pickup_stop_id);
5780: wsh_debug_sv.log(l_module_name,'l_dropoff_stop_id',l_dropoff_stop_id);
5781: wsh_debug_sv.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
5782: wsh_debug_sv.log(l_module_name,'l_parent_delivery_id',l_parent_delivery_id);
5775: END IF;
5776:
5777: IF l_debug_on THEN
5778: wsh_debug_sv.log(l_module_name,'delivery',p_del_rows(i));
5779: wsh_debug_sv.log(l_module_name,'l_pickup_stop_id',l_pickup_stop_id);
5780: wsh_debug_sv.log(l_module_name,'l_dropoff_stop_id',l_dropoff_stop_id);
5781: wsh_debug_sv.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
5782: wsh_debug_sv.log(l_module_name,'l_parent_delivery_id',l_parent_delivery_id);
5783: END IF;
5776:
5777: IF l_debug_on THEN
5778: wsh_debug_sv.log(l_module_name,'delivery',p_del_rows(i));
5779: wsh_debug_sv.log(l_module_name,'l_pickup_stop_id',l_pickup_stop_id);
5780: wsh_debug_sv.log(l_module_name,'l_dropoff_stop_id',l_dropoff_stop_id);
5781: wsh_debug_sv.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
5782: wsh_debug_sv.log(l_module_name,'l_parent_delivery_id',l_parent_delivery_id);
5783: END IF;
5784:
5777: IF l_debug_on THEN
5778: wsh_debug_sv.log(l_module_name,'delivery',p_del_rows(i));
5779: wsh_debug_sv.log(l_module_name,'l_pickup_stop_id',l_pickup_stop_id);
5780: wsh_debug_sv.log(l_module_name,'l_dropoff_stop_id',l_dropoff_stop_id);
5781: wsh_debug_sv.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
5782: wsh_debug_sv.log(l_module_name,'l_parent_delivery_id',l_parent_delivery_id);
5783: END IF;
5784:
5785: /* Bug 2313359 Trip Information is Lost */
5778: wsh_debug_sv.log(l_module_name,'delivery',p_del_rows(i));
5779: wsh_debug_sv.log(l_module_name,'l_pickup_stop_id',l_pickup_stop_id);
5780: wsh_debug_sv.log(l_module_name,'l_dropoff_stop_id',l_dropoff_stop_id);
5781: wsh_debug_sv.log(l_module_name,'l_delivery_leg_id',l_delivery_leg_id);
5782: wsh_debug_sv.log(l_module_name,'l_parent_delivery_id',l_parent_delivery_id);
5783: END IF;
5784:
5785: /* Bug 2313359 Trip Information is Lost */
5786:
5813: x_return_status => l_return_status);
5814:
5815:
5816: IF l_debug_on THEN
5817: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and no ship method');
5818: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5819: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5820: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5821: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5814:
5815:
5816: IF l_debug_on THEN
5817: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and no ship method');
5818: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5819: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5820: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5821: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5822: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5815:
5816: IF l_debug_on THEN
5817: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and no ship method');
5818: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5819: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5820: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5821: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5822: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5823: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5816: IF l_debug_on THEN
5817: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and no ship method');
5818: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5819: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5820: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5821: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5822: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5823: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5824: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5817: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and no ship method');
5818: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5819: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5820: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5821: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5822: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5823: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5824: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5825: END IF;
5818: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5819: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5820: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5821: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5822: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5823: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5824: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5825: END IF;
5826: --
5819: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5820: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5821: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5822: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5823: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5824: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5825: END IF;
5826: --
5827:
5820: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5821: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5822: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_failed_records.COUNT);
5823: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5824: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5825: END IF;
5826: --
5827:
5828: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
5828: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
5829: IF l_cc_failed_records.COUNT>0 THEN
5830:
5831: IF l_debug_on THEN
5832: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
5833: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5834: END IF;
5835:
5836: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
5829: IF l_cc_failed_records.COUNT>0 THEN
5830:
5831: IF l_debug_on THEN
5832: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
5833: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5834: END IF;
5835:
5836: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
5837: FND_MESSAGE.SET_TOKEN('DEL_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5855: --
5856: -- Debug Statements
5857: --
5858: IF l_debug_on THEN
5859: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.AUTOCREATE_TRIP',WSH_DEBUG_SV.C_PROC_LEVEL);
5860: END IF;
5861: --
5862:
5863: --heali :Shipment Advice change for trip Consolidation.
5877: x_return_status := l_return_status;
5878: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_AUTOCREATE_TRIP_ERROR');
5879:
5880: IF l_debug_on THEN
5881: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5882: END IF;
5883: --
5884: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
5885: wsh_util_core.add_message(x_return_status);
5899: l_trip_info_tab.delete;
5900: l_cc_count_success:=0;
5901:
5902: IF l_debug_on THEN
5903: wsh_debug_sv.log(l_module_name,'HASH_TRIP count',G_HASH_TRIP.COUNT);
5904: END IF;
5905:
5906: FOR cur in Get_Trip(p_del_rows(i)) LOOP
5907: b_tripalreadychecked:='N';
5909: FOR l_count_hashtrip in G_HASH_TRIP.FIRST..G_HASH_TRIP.LAST LOOP
5910: IF G_HASH_TRIP(l_count_hashtrip)=cur.trip_id THEN
5911: b_tripalreadychecked:='Y';
5912: IF l_debug_on THEN
5913: wsh_debug_sv.log(l_module_name,'HASH_TRIP matched', cur.trip_id);
5914: END IF;
5915: END IF;
5916: END LOOP;
5917: END IF;
5921: (cur.ship_method_code is null and (cur.carrier_id is null or cur.mode_of_transport is null))
5922: ) THEN
5923:
5924: IF l_debug_on THEN
5925: wsh_debug_sv.log(l_module_name,'trip not already checked',cur.trip_id);
5926: END IF;
5927: l_cc_count_success:=l_cc_count_success+1;
5928: l_trip_info_tab(l_cc_count_success).trip_id:=cur.trip_id;
5929: l_trip_info_tab(l_cc_count_success).ship_method_code:=cur.ship_method_code;
5933: END IF;
5934: END LOOP;
5935:
5936: IF l_debug_on THEN
5937: wsh_debug_sv.log(l_module_name,'l_trip_info_tab.COUNT : ',l_trip_info_tab.COUNT);
5938: END IF;
5939:
5940:
5941: IF l_trip_info_tab.COUNT>0 THEN
5960: x_msg_data => l_msg_data,
5961: x_return_status => l_return_status);
5962:
5963: IF l_debug_on THEN
5964: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with trip already present');
5965: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5966: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5967: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5968: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5961: x_return_status => l_return_status);
5962:
5963: IF l_debug_on THEN
5964: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with trip already present');
5965: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5966: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5967: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5968: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5969: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5962:
5963: IF l_debug_on THEN
5964: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with trip already present');
5965: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5966: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5967: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5968: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5969: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5970: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5963: IF l_debug_on THEN
5964: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with trip already present');
5965: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5966: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5967: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5968: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5969: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5970: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5971: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5964: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with trip already present');
5965: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5966: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5967: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5968: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5969: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5970: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5971: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5972: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5965: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
5966: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5967: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5968: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5969: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5970: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5971: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5972: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5973: END IF;
5966: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
5967: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5968: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5969: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5970: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5971: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5972: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5973: END IF;
5974: --
5967: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
5968: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5969: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5970: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5971: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5972: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5973: END IF;
5974: --
5975:
5968: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
5969: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
5970: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
5971: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
5972: wsh_debug_sv.log(l_module_name,'HASH_TRIP trip_id',G_HASH_TRIP(1));
5973: END IF;
5974: --
5975:
5976: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
5976: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
5977: IF l_cc_fail_ids.COUNT>0 THEN
5978:
5979: IF l_debug_on THEN
5980: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit wsh_trips_pvt.get_name',WSH_DEBUG_SV.C_PROC_LEVEL);
5981: END IF;
5982:
5983: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_COMP_FAILED');
5984: FND_MESSAGE.SET_TOKEN('TRIP_ID',wsh_trips_pvt.get_name(l_cc_fail_ids(1)));
6078: --
6079: -- Debug Statements
6080: --
6081: IF l_debug_on THEN
6082: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_GRP.GET_TRIP_DETAILS_PVT',WSH_DEBUG_SV.C_PROC_LEVEL);
6083: END IF;
6084: --
6085: wsh_trips_grp.get_trip_details_pvt
6086: (p_trip_id => l_trip_id,
6100: --
6101: -- Debug Statements
6102: --
6103: IF l_debug_on THEN
6104: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
6105: END IF;
6106: --
6107: wsh_fte_integration.trip_stop_validations
6108: (p_stop_rec => l_stop_rec,
6161: x_msg_data => l_msg_data,
6162: x_return_status => l_return_status);
6163:
6164: IF l_debug_on THEN
6165: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and ship method');
6166: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6167: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6168: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6169: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6162: x_return_status => l_return_status);
6163:
6164: IF l_debug_on THEN
6165: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and ship method');
6166: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6167: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6168: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6169: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6170: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6163:
6164: IF l_debug_on THEN
6165: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and ship method');
6166: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6167: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6168: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6169: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6170: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6171: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
6164: IF l_debug_on THEN
6165: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and ship method');
6166: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6167: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6168: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6169: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6170: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6171: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
6172: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
6165: wsh_debug_sv.logmsg(l_module_name,'Ship confirm with autocreatetrip and ship method');
6166: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6167: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6168: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6169: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6170: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6171: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
6172: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
6173: END IF;
6166: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_constraint_main',l_return_status);
6167: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6168: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6169: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6170: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6171: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
6172: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
6173: END IF;
6174: --
6167: wsh_debug_sv.log(l_module_name,'validate_result After Calling validate_constraint_main',l_cc_validate_result);
6168: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6169: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6170: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6171: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
6172: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
6173: END IF;
6174: --
6175:
6168: wsh_debug_sv.log(l_module_name,'msg_count After Calling validate_constraint_main',l_msg_count);
6169: wsh_debug_sv.log(l_module_name,'msg_data After Calling validate_constraint_main',l_msg_data);
6170: wsh_debug_sv.log(l_module_name,'fail_ids count After Calling validate_constraint_main',l_cc_fail_ids.COUNT);
6171: wsh_debug_sv.log(l_module_name,'l_cc_line_groups.count count After Calling validate_constraint_main',l_cc_line_groups.COUNT);
6172: wsh_debug_sv.log(l_module_name,'group_info count After Calling validate_constraint_main',l_cc_group_info.COUNT);
6173: END IF;
6174: --
6175:
6176: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
6176: IF l_return_status=wsh_util_core.g_ret_sts_error THEN
6177: IF l_cc_fail_ids.COUNT>0 THEN
6178:
6179: IF l_debug_on THEN
6180: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
6181: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6182: END IF;
6183:
6184: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
6177: IF l_cc_fail_ids.COUNT>0 THEN
6178:
6179: IF l_debug_on THEN
6180: wsh_debug_sv.logmsg(l_module_name,'all lines errored in compatibility check');
6181: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6182: END IF;
6183:
6184: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_COMP_FAILED');
6185: FND_MESSAGE.SET_TOKEN('DEL_ID',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6233:
6234: END IF;--l_trip_id is not null - autocreated trip
6235:
6236: IF l_debug_on THEN
6237: wsh_debug_sv.log(l_module_name,'p_intransit_flag', p_intransit_flag);
6238: wsh_debug_sv.log(l_module_name,'p_close_flag', p_close_flag);
6239: wsh_debug_sv.log(l_module_name,'l_itm_exc_severity', l_itm_exc_severity);
6240: END IF;
6241: /* Bug 2313359 move the code from above */
6234: END IF;--l_trip_id is not null - autocreated trip
6235:
6236: IF l_debug_on THEN
6237: wsh_debug_sv.log(l_module_name,'p_intransit_flag', p_intransit_flag);
6238: wsh_debug_sv.log(l_module_name,'p_close_flag', p_close_flag);
6239: wsh_debug_sv.log(l_module_name,'l_itm_exc_severity', l_itm_exc_severity);
6240: END IF;
6241: /* Bug 2313359 move the code from above */
6242: --
6235:
6236: IF l_debug_on THEN
6237: wsh_debug_sv.log(l_module_name,'p_intransit_flag', p_intransit_flag);
6238: wsh_debug_sv.log(l_module_name,'p_close_flag', p_close_flag);
6239: wsh_debug_sv.log(l_module_name,'l_itm_exc_severity', l_itm_exc_severity);
6240: END IF;
6241: /* Bug 2313359 move the code from above */
6242: --
6243: -- Bug 8555654 : Do not submit workflow for a delivery if it is going to
6245: -- inventory open period.
6246: IF (l_enable_sc_wf = 'Y') THEN
6247: --{
6248: IF l_debug_on THEN
6249: WSH_DEBUG_SV.log(l_module_name,'l_organization_id',l_organization_id );
6250: END IF;
6251: IF (l_opn_prd_chk_orgs.EXISTS(l_organization_id)) THEN
6252: --{
6253: IF (l_opn_prd_chk_orgs(l_organization_id) = 1) THEN
6259: --
6260: -- Debug Statements
6261: --
6262: IF l_debug_on THEN
6263: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INVTTMTX.TDATECHK',WSH_DEBUG_SV.C_PROC_LEVEL);
6264: END IF;
6265: --
6266: invttmtx.tdatechk(l_organization_id, nvl(p_actual_dep_date,sysdate), l_period_id, l_open_past_period);
6267: IF (l_period_id <= 0) THEN
6272: END IF;
6273: --}
6274: END IF;
6275: IF l_debug_on THEN
6276: WSH_DEBUG_SV.log(l_module_name,'l_enable_sc_wf',l_enable_sc_wf);
6277: END IF;
6278: --}
6279: END IF;
6280: -- Bug 8555654 : : End
6396:
6397: END IF; -- end of IF (NOT l_unassign_all_flag_tab(i))
6398:
6399: IF l_debug_on THEN
6400: WSH_DEBUG_SV.log(l_module_name,'l_close_confirm_flag',l_close_confirm_flag );
6401: END IF;
6402:
6403: --set the close/confirm count accordingly
6404: IF(l_close_confirm_flag = 'C') THEN
6426: --
6427: -- Debug Statements
6428: --
6429: IF l_debug_on THEN
6430: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6431: END IF;
6432: --
6433: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6434: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6462: END IF;
6463: END IF;
6464: END IF;
6465: IF l_debug_on THEN
6466: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_PVT.DELETE_DELIVERY_LEG',WSH_DEBUG_SV.C_PROC_LEVEL);
6467: END IF;
6468: wsh_delivery_legs_pvt.delete_delivery_leg
6469: (NULL, dg.delivery_leg_id, l_return_status);
6470: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6508: --
6509: -- Debug Statements
6510: --
6511: IF l_debug_on THEN
6512: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6513: END IF;
6514: --
6515: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
6516: wsh_util_core.add_message(x_return_status);
6543: 'WSH_INVALID_CATCHWEIGHT') ) THEN
6544: l_count := l_count + 1;
6545: l_msg_table(l_count) := WSH_INTEGRATION.G_MSG_TABLE(i);
6546: IF l_debug_on THEN
6547: 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);
6548: END IF;
6549: END IF;
6550: END LOOP;
6551: -- Call WMS api to process the table of l_msg_table only for wms enabled org
6591: -- Bug 2074768 : Check for tolerances now that all the delivery lines for all the deliveries have been updated.
6592: -- The need to check tolerances here arises because now we have all the deliveries that really will
6593: -- be ship confirmed.
6594: IF l_debug_on THEN
6595: WSH_DEBUG_SV.log(l_module_name,'p_del_rows count', p_del_rows.count);
6596: END IF;
6597:
6598: FOR i IN 1..p_del_rows.count LOOP
6599:
6601: --
6602: -- Debug Statements
6603: --
6604: IF l_debug_on THEN
6605: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_DELIVERY_FOR_TOLERANCES',WSH_DEBUG_SV.C_PROC_LEVEL);
6606: END IF;
6607: --
6608: wsh_Delivery_validations.check_delivery_for_tolerances (
6609: p_delivery_id => p_del_rows(i) ,
6622: end if ;
6623:
6624: -- Close Exceptions for the Delivery
6625: IF l_debug_on THEN
6626: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Close_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
6627: END IF;
6628: WSH_XC_UTIL.Close_Exceptions (
6629: p_api_version => 1.0,
6630: x_return_status => l_return_status,
6653:
6654: -- Create trip from deconsol location to ultimate drop off
6655: -- consol deliveriers.
6656: IF l_debug_on THEN
6657: WSH_DEBUG_SV.log(l_module_name,'l_mdc_co_del_tab count', l_mdc_co_del_tab.count);
6658: END IF;
6659:
6660: IF l_mdc_co_del_tab.count > 0 THEN
6661:
6675: -- 2121399
6676: -- Moved Create_Bol and Print_document_sets APIs outside the main For Loop and
6677: -- and placed it after the call to Check_Delivery_for_tolerances is made.
6678: IF l_debug_on THEN
6679: WSH_DEBUG_SV.log(l_module_name,'u_del_rows count', u_del_rows.count);
6680: END IF;
6681:
6682: FOR i IN 1..u_del_rows.count LOOP
6683:
6681:
6682: FOR i IN 1..u_del_rows.count LOOP
6683:
6684: IF l_debug_on THEN
6685: WSH_DEBUG_SV.log(l_module_name,'i', i);
6686: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag count', l_with_mc_trip_flag.count);
6687: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab count', l_unassign_all_flag_tab.count);
6688: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6689: WSH_DEBUG_SV.log(l_module_name,'u_del_rows i', u_del_rows(i));
6682: FOR i IN 1..u_del_rows.count LOOP
6683:
6684: IF l_debug_on THEN
6685: WSH_DEBUG_SV.log(l_module_name,'i', i);
6686: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag count', l_with_mc_trip_flag.count);
6687: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab count', l_unassign_all_flag_tab.count);
6688: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6689: WSH_DEBUG_SV.log(l_module_name,'u_del_rows i', u_del_rows(i));
6690: END IF;
6683:
6684: IF l_debug_on THEN
6685: WSH_DEBUG_SV.log(l_module_name,'i', i);
6686: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag count', l_with_mc_trip_flag.count);
6687: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab count', l_unassign_all_flag_tab.count);
6688: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6689: WSH_DEBUG_SV.log(l_module_name,'u_del_rows i', u_del_rows(i));
6690: END IF;
6691:
6684: IF l_debug_on THEN
6685: WSH_DEBUG_SV.log(l_module_name,'i', i);
6686: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag count', l_with_mc_trip_flag.count);
6687: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab count', l_unassign_all_flag_tab.count);
6688: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6689: WSH_DEBUG_SV.log(l_module_name,'u_del_rows i', u_del_rows(i));
6690: END IF;
6691:
6692: OPEN del_legs (u_del_rows(i));
6685: WSH_DEBUG_SV.log(l_module_name,'i', i);
6686: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag count', l_with_mc_trip_flag.count);
6687: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab count', l_unassign_all_flag_tab.count);
6688: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6689: WSH_DEBUG_SV.log(l_module_name,'u_del_rows i', u_del_rows(i));
6690: END IF;
6691:
6692: OPEN del_legs (u_del_rows(i));
6693: FETCH del_legs INTO l_pickup_stop_id, l_dropoff_stop_id, l_delivery_leg_id, l_parent_delivery_id;
6693: FETCH del_legs INTO l_pickup_stop_id, l_dropoff_stop_id, l_delivery_leg_id, l_parent_delivery_id;
6694: CLOSE del_legs;
6695:
6696: IF l_debug_on THEN
6697: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id', l_pickup_stop_id);
6698: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id', l_dropoff_stop_id);
6699: WSH_DEBUG_SV.log(l_module_name,'l_delivery_leg_id', l_delivery_leg_id);
6700: WSH_DEBUG_SV.log(l_module_name,'l_parent_delivery_id', l_parent_delivery_id);
6701: END IF;
6694: CLOSE del_legs;
6695:
6696: IF l_debug_on THEN
6697: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id', l_pickup_stop_id);
6698: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id', l_dropoff_stop_id);
6699: WSH_DEBUG_SV.log(l_module_name,'l_delivery_leg_id', l_delivery_leg_id);
6700: WSH_DEBUG_SV.log(l_module_name,'l_parent_delivery_id', l_parent_delivery_id);
6701: END IF;
6702:
6695:
6696: IF l_debug_on THEN
6697: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id', l_pickup_stop_id);
6698: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id', l_dropoff_stop_id);
6699: WSH_DEBUG_SV.log(l_module_name,'l_delivery_leg_id', l_delivery_leg_id);
6700: WSH_DEBUG_SV.log(l_module_name,'l_parent_delivery_id', l_parent_delivery_id);
6701: END IF;
6702:
6703: --Bug 5255366 (The above cursor can fetch parent-del-id of newly created trip hence can be null)
6696: IF l_debug_on THEN
6697: WSH_DEBUG_SV.log(l_module_name,'l_pickup_stop_id', l_pickup_stop_id);
6698: WSH_DEBUG_SV.log(l_module_name,'l_dropoff_stop_id', l_dropoff_stop_id);
6699: WSH_DEBUG_SV.log(l_module_name,'l_delivery_leg_id', l_delivery_leg_id);
6700: WSH_DEBUG_SV.log(l_module_name,'l_parent_delivery_id', l_parent_delivery_id);
6701: END IF;
6702:
6703: --Bug 5255366 (The above cursor can fetch parent-del-id of newly created trip hence can be null)
6704: -- (Hence the second fetch is required)
6704: -- (Hence the second fetch is required)
6705: IF l_parent_delivery_id IS NULL THEN
6706:
6707: IF l_debug_on THEN
6708: WSH_DEBUG_SV.log(l_module_name,'p_del_rows i', p_del_rows(i));
6709: END IF;
6710:
6711: OPEN get_consol_del(p_del_rows(i));
6712: FETCH get_consol_del
6714: CLOSE get_consol_del;
6715: END IF;
6716:
6717: IF l_debug_on THEN
6718: WSH_DEBUG_SV.log(l_module_name,'l_parent_delivery_id', l_parent_delivery_id);
6719: END IF;
6720:
6721: --Bug 3685366
6722: l_dummy_doc_set(1).bol_error_flag:='N';
6722: l_dummy_doc_set(1).bol_error_flag:='N';
6723: --
6724:
6725: IF l_debug_on THEN
6726: WSH_DEBUG_SV.log(l_module_name,'p_bol_flag', p_bol_flag);
6727: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag', l_with_mc_trip_flag(i));
6728: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab', l_unassign_all_flag_tab(i));
6729: WSH_DEBUG_SV.log(l_module_name,'p_mc_bol_flag', p_mc_bol_flag);
6730: END IF;
6723: --
6724:
6725: IF l_debug_on THEN
6726: WSH_DEBUG_SV.log(l_module_name,'p_bol_flag', p_bol_flag);
6727: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag', l_with_mc_trip_flag(i));
6728: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab', l_unassign_all_flag_tab(i));
6729: WSH_DEBUG_SV.log(l_module_name,'p_mc_bol_flag', p_mc_bol_flag);
6730: END IF;
6731:
6724:
6725: IF l_debug_on THEN
6726: WSH_DEBUG_SV.log(l_module_name,'p_bol_flag', p_bol_flag);
6727: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag', l_with_mc_trip_flag(i));
6728: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab', l_unassign_all_flag_tab(i));
6729: WSH_DEBUG_SV.log(l_module_name,'p_mc_bol_flag', p_mc_bol_flag);
6730: END IF;
6731:
6732: 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
6725: IF l_debug_on THEN
6726: WSH_DEBUG_SV.log(l_module_name,'p_bol_flag', p_bol_flag);
6727: WSH_DEBUG_SV.log(l_module_name,'l_with_mc_trip_flag', l_with_mc_trip_flag(i));
6728: WSH_DEBUG_SV.log(l_module_name,'l_unassign_all_flag_tab', l_unassign_all_flag_tab(i));
6729: WSH_DEBUG_SV.log(l_module_name,'p_mc_bol_flag', p_mc_bol_flag);
6730: END IF;
6731:
6732: 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
6733:
6752: --
6753: -- Debug Statements
6754: --
6755: IF l_debug_on THEN
6756: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6757: END IF;
6758: --
6759:
6760: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6790: -- Debug Statements
6791: --
6792:
6793: IF l_debug_on THEN
6794: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6795: END IF;
6796: --
6797: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6798: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6803:
6804: END IF;
6805:
6806: IF l_debug_on THEN
6807: WSH_DEBUG_SV.logmsg(l_module_name,'print doc set');
6808: END IF;
6809:
6810: --19.6. Print document set if p_report_set_id is specified
6811:
6825: FETCH c_delv_trip_id_cursor INTO l_dummy_doc_set(1).p_trip_id;
6826: EXIT WHEN c_delv_trip_id_cursor%NOTFOUND;
6827: --
6828: IF l_debug_on THEN
6829: WSH_DEBUG_SV.log(l_module_name, 'Trip Id : ', l_dummy_doc_set(1).p_trip_id );
6830: END IF;
6831: --
6832: END LOOP;
6833: CLOSE c_delv_trip_id_cursor;
6841: END IF;
6842: END IF;
6843: IF l_content_del_flag THEN
6844: IF l_debug_on THEN
6845: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DOCUMENT_SETS.PRINT_DOCUMENT_SETS',WSH_DEBUG_SV.C_PROC_LEVEL);
6846: END IF;
6847: --
6848: wsh_document_sets.print_document_sets(
6849: p_report_set_id => l_document_set_id ,
6862: --
6863: -- Debug Statements
6864: --
6865: IF l_debug_on THEN
6866: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6867: END IF;
6868: --
6869: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6870: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6888: l_del_tmp_rows.delete;
6889: l_del_tmp_rows(1) := u_del_rows(i);
6890:
6891: IF l_debug_on THEN
6892: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit PLAN',WSH_DEBUG_SV.C_PROC_LEVEL);
6893: END IF;
6894:
6895: PLAN(p_del_rows => l_del_tmp_rows,
6896: x_return_status => l_return_status,
6900: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,WSH_UTIL_CORE.G_RET_STS_ERROR)) THEN
6901: l_num_error := l_num_error + 1;
6902: ELSE
6903: IF l_debug_on THEN
6904: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
6905: END IF;
6906: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(u_del_rows(i)));
6907: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
6908: wsh_util_core.add_message(x_return_status);
6912:
6913: END IF;
6914:
6915: IF l_debug_on THEN
6916: WSH_DEBUG_SV.log(l_module_name,'l_itm_exc_flag count', l_itm_exc_flag.count);
6917: END IF;
6918: --Bug 9326608 Changed l_itm_exc_flag to use i as index
6919: IF l_itm_exc_flag(i) = 'Y' THEN
6920:
6918: --Bug 9326608 Changed l_itm_exc_flag to use i as index
6919: IF l_itm_exc_flag(i) = 'Y' THEN
6920:
6921: IF l_debug_on THEN
6922: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception',WSH_DEBUG_SV.C_PROC_LEVEL);
6923: END IF;
6924:
6925: WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception
6926: (p_delivery_id => u_del_rows(i),
6941: --
6942: -- Debug Statements
6943: --
6944: IF l_debug_on THEN
6945: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE',WSH_DEBUG_SV.C_PROC_LEVEL);
6946: END IF;
6947: --
6948: wsh_new_delivery_actions.update_leg_sequence(
6949: p_delivery_id => u_del_rows(i),
6975:
6976: -- 2121399
6977:
6978: IF l_debug_on THEN
6979: WSH_DEBUG_SV.log(l_module_name,'u_number_of_lpn count', l_with_mc_trip_flag.count);
6980: WSH_DEBUG_SV.log(l_module_name,'u_initial_pickup_date count', u_initial_pickup_date.count);
6981: WSH_DEBUG_SV.log(l_module_name,'u_ultimate_dropoff_date count', u_ultimate_dropoff_date.count);
6982: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6983: END IF;
6976: -- 2121399
6977:
6978: IF l_debug_on THEN
6979: WSH_DEBUG_SV.log(l_module_name,'u_number_of_lpn count', l_with_mc_trip_flag.count);
6980: WSH_DEBUG_SV.log(l_module_name,'u_initial_pickup_date count', u_initial_pickup_date.count);
6981: WSH_DEBUG_SV.log(l_module_name,'u_ultimate_dropoff_date count', u_ultimate_dropoff_date.count);
6982: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6983: END IF;
6984:
6977:
6978: IF l_debug_on THEN
6979: WSH_DEBUG_SV.log(l_module_name,'u_number_of_lpn count', l_with_mc_trip_flag.count);
6980: WSH_DEBUG_SV.log(l_module_name,'u_initial_pickup_date count', u_initial_pickup_date.count);
6981: WSH_DEBUG_SV.log(l_module_name,'u_ultimate_dropoff_date count', u_ultimate_dropoff_date.count);
6982: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6983: END IF;
6984:
6985: -- BULK UPDATE FOR ALL DELIVERIES IN p_del_rows
6978: IF l_debug_on THEN
6979: WSH_DEBUG_SV.log(l_module_name,'u_number_of_lpn count', l_with_mc_trip_flag.count);
6980: WSH_DEBUG_SV.log(l_module_name,'u_initial_pickup_date count', u_initial_pickup_date.count);
6981: WSH_DEBUG_SV.log(l_module_name,'u_ultimate_dropoff_date count', u_ultimate_dropoff_date.count);
6982: WSH_DEBUG_SV.log(l_module_name,'u_status_code count', u_status_code.count);
6983: END IF;
6984:
6985: -- BULK UPDATE FOR ALL DELIVERIES IN p_del_rows
6986:
7037:
7038:
7039: --/== Workflow Changes - Controlling Workflow
7040: IF l_debug_on THEN
7041: WSH_DEBUG_SV.log(l_module_name,'L_ENABLE_SC_WF',l_enable_sc_wf);
7042: WSH_DEBUG_SV.log(l_module_name,'Controlling-scpod rows count',l_scpod_wf_del_rows.count);
7043: END IF;
7044: FOR k IN 1..l_scpod_wf_del_rows.count LOOP
7045: l_ctr := l_scpod_wf_del_rows(k);
7038:
7039: --/== Workflow Changes - Controlling Workflow
7040: IF l_debug_on THEN
7041: WSH_DEBUG_SV.log(l_module_name,'L_ENABLE_SC_WF',l_enable_sc_wf);
7042: WSH_DEBUG_SV.log(l_module_name,'Controlling-scpod rows count',l_scpod_wf_del_rows.count);
7043: END IF;
7044: FOR k IN 1..l_scpod_wf_del_rows.count LOOP
7045: l_ctr := l_scpod_wf_del_rows(k);
7046: IF l_debug_on THEN
7043: END IF;
7044: FOR k IN 1..l_scpod_wf_del_rows.count LOOP
7045: l_ctr := l_scpod_wf_del_rows(k);
7046: IF l_debug_on THEN
7047: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.START_SCPOD_C_PROCESS',WSH_DEBUG_SV.C_PROC_LEVEL);
7048: END IF;
7049:
7050: WSH_WF_STD.Start_Scpod_C_Process( p_entity_id => u_del_rows(l_ctr),
7051: p_organization_id => u_organization_id(l_ctr),
7051: p_organization_id => u_organization_id(l_ctr),
7052: x_process_started => l_process_started,
7053: x_return_status => l_return_status);
7054: IF l_debug_on THEN
7055: WSH_DEBUG_SV.log(l_module_name,'L_PROCESS_STARTED',l_process_started);
7056: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
7057: END IF;
7058:
7059: IF (l_process_started = 'Y' OR l_process_started = 'E') THEN
7052: x_process_started => l_process_started,
7053: x_return_status => l_return_status);
7054: IF l_debug_on THEN
7055: WSH_DEBUG_SV.log(l_module_name,'L_PROCESS_STARTED',l_process_started);
7056: WSH_DEBUG_SV.log(l_module_name,'L_RETURN_STATUS',l_return_status);
7057: END IF;
7058:
7059: IF (l_process_started = 'Y' OR l_process_started = 'E') THEN
7060: l_aname_text(l_aname_text.COUNT + 1) := 'INTRANSIT_FLAG';
7107: -- Workflow Changes ==/
7108:
7109: FOR z IN 1..u_del_rows.count LOOP
7110: IF l_debug_on THEN
7111: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.Raise_Event',WSH_DEBUG_SV.C_PROC_LEVEL);
7112: END IF;
7113:
7114: WSH_WF_STD.Raise_Event(
7115: p_entity_type => 'DELIVERY',
7117: p_event => 'oracle.apps.wsh.delivery.gen.shipconfirmed',
7118: p_organization_id => u_organization_id(z),
7119: x_return_status => l_wf_rs);
7120: IF l_debug_on THEN
7121: WSH_DEBUG_SV.log(l_module_name,'L_WF_RS',l_wf_rs);
7122: END IF;
7123:
7124: END LOOP;
7125:
7132: --
7133: -- Debug Statements
7134: --
7135: IF l_debug_on THEN
7136: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRANSACTIONS_UTIL.SEND_DOCUMENT',WSH_DEBUG_SV.C_PROC_LEVEL);
7137: END IF;
7138: --
7139: wsh_transactions_util.send_document(
7140: p_entity_id => u_del_rows(i),
7152: --
7153: -- Debug Statements
7154: --
7155: IF l_debug_on THEN
7156: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7157: END IF;
7158: --
7159: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
7160: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7190:
7191: if u_stop_rows.count > 0 then
7192:
7193: IF l_debug_on THEN
7194: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_ACTIONS.CHANGE_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
7195: END IF;
7196: --
7197: wsh_trip_stops_actions.change_status(
7198: p_stop_rows => u_stop_rows,
7225: --
7226: -- Debug Statements
7227: --
7228: IF l_debug_on THEN
7229: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_CONTAINER_ACTIONS.DELETE_CONTAINERS',WSH_DEBUG_SV.C_PROC_LEVEL);
7230: END IF;
7231: --
7232: wsh_container_actions.delete_containers (
7233: p_container_id => l_delete_cnt_rec.delivery_detail_id,
7236: --
7237: -- Debug Statements
7238: --
7239: IF l_debug_on THEN
7240: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
7241: END IF;
7242: --
7243: wsh_util_core.api_post_call(
7244: p_return_status => l_return_status,
7305: --
7306: -- Debug Statements
7307: --
7308: IF l_debug_on THEN
7309: WSH_DEBUG_SV.pop(l_module_name);
7310: END IF;
7311: --
7312: EXCEPTION
7313: WHEN FND_API.G_EXC_ERROR THEN
7322:
7323: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7324: --
7325: IF l_debug_on THEN
7326: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7327: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
7328: END IF;
7329: --
7330: WHEN ship_confirm_error THEN
7323: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7324: --
7325: IF l_debug_on THEN
7326: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7327: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
7328: END IF;
7329: --
7330: WHEN ship_confirm_error THEN
7331:
7341: --
7342: -- Debug Statements
7343: --
7344: IF l_debug_on THEN
7345: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
7346: END IF;
7347: --
7348: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
7349: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7355: --
7356: -- Debug Statements
7357: --
7358: IF l_debug_on THEN
7359: WSH_DEBUG_SV.logmsg(l_module_name,'SHIP_CONFIRM_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7360: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:SHIP_CONFIRM_ERROR');
7361: END IF;
7362: --
7363: WHEN record_locked THEN
7356: -- Debug Statements
7357: --
7358: IF l_debug_on THEN
7359: WSH_DEBUG_SV.logmsg(l_module_name,'SHIP_CONFIRM_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7360: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:SHIP_CONFIRM_ERROR');
7361: END IF;
7362: --
7363: WHEN record_locked THEN
7364:
7380: --
7381: -- Debug Statements
7382: --
7383: IF l_debug_on THEN
7384: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7385: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
7386: END IF;
7387: --
7388: WHEN others THEN
7381: -- Debug Statements
7382: --
7383: IF l_debug_on THEN
7384: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7385: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:RECORD_LOCKED');
7386: END IF;
7387: --
7388: WHEN others THEN
7389:
7404: --
7405: -- Debug Statements
7406: --
7407: IF l_debug_on THEN
7408: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR : ' || SQLERRM );
7409: END IF;
7410: --
7411: WSH_UTIL_CORE.Store_Msg_In_Table (p_store_flag => FALSE,
7412: x_msg_rec_count => l_msg_rec_count,
7415: --
7416: -- Debug Statements
7417: --
7418: IF l_debug_on THEN
7419: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7420: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7421: END IF;
7422: --
7423: END Confirm_Delivery ;
7416: -- Debug Statements
7417: --
7418: IF l_debug_on THEN
7419: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7420: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7421: END IF;
7422: --
7423: END Confirm_Delivery ;
7424:
7519: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7520: --
7521: IF l_debug_on IS NULL
7522: THEN
7523: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7524: END IF;
7525: --
7526: IF l_debug_on THEN
7527: WSH_DEBUG_SV.push(l_module_name);
7523: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7524: END IF;
7525: --
7526: IF l_debug_on THEN
7527: WSH_DEBUG_SV.push(l_module_name);
7528: --
7529: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7530: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7531: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7525: --
7526: IF l_debug_on THEN
7527: WSH_DEBUG_SV.push(l_module_name);
7528: --
7529: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7530: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7531: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7532: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7533: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7526: IF l_debug_on THEN
7527: WSH_DEBUG_SV.push(l_module_name);
7528: --
7529: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7530: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7531: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7532: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7533: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7534: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7527: WSH_DEBUG_SV.push(l_module_name);
7528: --
7529: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7530: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7531: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7532: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7533: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7534: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7535: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7528: --
7529: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7530: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7531: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7532: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7533: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7534: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7535: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7536: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.stop_id ', p_in_rec.stop_id );
7529: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7530: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7531: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7532: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7533: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7534: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7535: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7536: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.stop_id ', p_in_rec.stop_id );
7537: END IF;
7530: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7531: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7532: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7533: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7534: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7535: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7536: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.stop_id ', p_in_rec.stop_id );
7537: END IF;
7538: --
7531: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7532: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7533: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7534: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7535: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7536: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.stop_id ', p_in_rec.stop_id );
7537: END IF;
7538: --
7539: l_user_id := FND_GLOBAL.user_id;
7532: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7533: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7534: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7535: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7536: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.stop_id ', p_in_rec.stop_id );
7537: END IF;
7538: --
7539: l_user_id := FND_GLOBAL.user_id;
7540: l_login_id := FND_GLOBAL.login_id;
7564: FOR child_cnt_rec in l_get_cnt_attr_csr(p_in_rec.delivery_id) LOOP
7565: --{
7566: --
7567: IF l_debug_on THEN
7568: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.CHECK_WMS_ORG',WSH_DEBUG_SV.C_PROC_LEVEL);
7569: END IF;
7570: --
7571: l_wms_org := wsh_util_validate.check_wms_org(child_cnt_rec.organization_id);
7572: --
7584: --}
7585: END LOOP;
7586: --
7587: IF l_debug_on THEN
7588: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
7589: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
7590: END IF;
7591: --
7592: IF (WSH_WMS_LPN_GRP.GK_WMS_UPD_STS OR WSH_WMS_LPN_GRP.GK_WMS_UPD_QTY)
7585: END LOOP;
7586: --
7587: IF l_debug_on THEN
7588: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_wms_recTbl', l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count);
7589: wsh_debug_sv.LOG(l_module_name, 'Count of l_sync_tmp_inv_recTbl', l_sync_tmp_inv_recTbl.delivery_detail_id_tbl.count);
7590: END IF;
7591: --
7592: IF (WSH_WMS_LPN_GRP.GK_WMS_UPD_STS OR WSH_WMS_LPN_GRP.GK_WMS_UPD_QTY)
7593: AND l_sync_tmp_wms_recTbl.delivery_detail_id_tbl.count > 0
7594: THEN
7595: --{
7596: --
7597: IF l_debug_on THEN
7598: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
7599: END IF;
7600: --
7601: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
7602: (
7604: x_return_status => l_return_status
7605: );
7606: --
7607: IF l_debug_on THEN
7608: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status ' || l_return_status);
7609: END IF;
7610: --
7611: WSH_UTIL_CORE.API_POST_CALL
7612: (
7621: THEN
7622: --{
7623: --
7624: IF l_debug_on THEN
7625: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WMS_SYNC_TMP_PKG.MERGE_BULK',WSH_DEBUG_SV.C_PROC_LEVEL);
7626: END IF;
7627: --
7628: WSH_WMS_SYNC_TMP_PKG.MERGE_BULK
7629: (
7631: x_return_status => l_return_status
7632: );
7633: --
7634: IF l_debug_on THEN
7635: WSH_DEBUG_SV.logmsg(l_module_name, 'Return status ' || l_return_status);
7636: END IF;
7637: --
7638: WSH_UTIL_CORE.API_POST_CALL
7639: (
7663: AND released_status <> 'D'
7664: RETURNING delivery_detail_id,client_id BULK COLLECT INTO l_detail_tab,l_client_id_tab; -- Added for DBI Project, LSP PROJECT :Added l_client_id_tab
7665: --
7666: IF l_debug_on THEN
7667: WSH_DEBUG_SV.log(l_module_name,'Number of Lines updated',SQL%ROWCOUNT);
7668: END IF;
7669: --
7670: --
7671: -- DBI Project
7672: -- Update of wsh_delivery_details where requested_quantity/released_status
7673: -- are changed, call DBI API after the update.
7674: -- DBI API will check if DBI is installed
7675: IF l_debug_on THEN
7676: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_detail_tab.count);
7677: END IF;
7678: WSH_INTEGRATION.DBI_Update_Detail_Log
7679: (p_delivery_detail_id_tab => l_detail_tab,
7680: p_dml_type => 'UPDATE',
7680: p_dml_type => 'UPDATE',
7681: x_return_status => l_dbi_rs);
7682:
7683: IF l_debug_on THEN
7684: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
7685: END IF;
7686: -- Only Handle Unexpected error
7687: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
7688: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7694: --
7695: -- LSP PROJECT :
7696: l_standalone_mode := WMS_DEPLOY.WMS_DEPLOYMENT_MODE;
7697: IF l_debug_on THEN
7698: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
7699: WSH_DEBUG_SV.log(l_module_name,'l_client_id_tab.COUNT',l_client_id_tab.COUNT);
7700: END IF;
7701: IF (l_standalone_mode = 'D' OR (l_standalone_mode = 'L' and l_client_id_tab.COUNT > 0 )) THEN --{
7702: l_pending_advice_flag := 'Y';
7695: -- LSP PROJECT :
7696: l_standalone_mode := WMS_DEPLOY.WMS_DEPLOYMENT_MODE;
7697: IF l_debug_on THEN
7698: WSH_DEBUG_SV.log(l_module_name,'l_standalone_mode',l_standalone_mode);
7699: WSH_DEBUG_SV.log(l_module_name,'l_client_id_tab.COUNT',l_client_id_tab.COUNT);
7700: END IF;
7701: IF (l_standalone_mode = 'D' OR (l_standalone_mode = 'L' and l_client_id_tab.COUNT > 0 )) THEN --{
7702: l_pending_advice_flag := 'Y';
7703: ELSE
7721: P_Organization_ID => l_organization_id,
7722: X_Return_Status => l_return_status);
7723:
7724: IF l_debug_on THEN
7725: wsh_debug_sv.log (l_module_name, 'Return status from get warehouse type', l_return_status);
7726: wsh_debug_sv.log (l_module_name, 'Warehouse type ', l_warehouse_type);
7727: END IF;
7728:
7729: IF (l_warehouse_type = 'TPW') THEN
7722: X_Return_Status => l_return_status);
7723:
7724: IF l_debug_on THEN
7725: wsh_debug_sv.log (l_module_name, 'Return status from get warehouse type', l_return_status);
7726: wsh_debug_sv.log (l_module_name, 'Warehouse type ', l_warehouse_type);
7727: END IF;
7728:
7729: IF (l_warehouse_type = 'TPW') THEN
7730: l_pending_advice_flag := 'Y';
7761: l_del_entity_ids(1) := p_in_rec.delivery_id;
7762: l_override_wf:= fnd_profile.value('WSH_OVERRIDE_SCPOD_WF');
7763: IF (l_override_wf = 'Y' AND WSH_WF_STD.Wf_Exists('DELIVERY_C',p_in_rec.delivery_id)) THEN
7764: IF l_debug_on THEN
7765: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.LOG_WF_EXCEPTION', WSH_DEBUG_SV.C_PROC_LEVEL);
7766: END IF;
7767: WSH_WF_STD.Log_Wf_Exception(p_entity_type => 'DELIVERY',
7768: p_entity_id => p_in_rec.delivery_id,
7769: p_logging_entity => 'SHIPPER',
7769: p_logging_entity => 'SHIPPER',
7770: p_exception_name => 'WSH_DEL_SCPOD_PURGED',
7771: x_return_status => l_wf_rs);
7772: IF l_debug_on THEN
7773: WSH_DEBUG_SV.log(l_module_name,'L_WF_RS',l_wf_rs);
7774: END IF;
7775:
7776: IF l_debug_on THEN
7777: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.PURGE_ENTITY', WSH_DEBUG_SV.C_PROC_LEVEL);
7773: WSH_DEBUG_SV.log(l_module_name,'L_WF_RS',l_wf_rs);
7774: END IF;
7775:
7776: IF l_debug_on THEN
7777: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.PURGE_ENTITY', WSH_DEBUG_SV.C_PROC_LEVEL);
7778: END IF;
7779:
7780: WSH_WF_STD.Purge_Entity(p_entity_type => 'DELIVERY',
7781: p_entity_ids => l_del_entity_ids,
7782: p_docommit => FALSE,
7783: x_success_count => l_purged_count,
7784: x_return_status => l_wf_rs);
7785: IF l_debug_on THEN
7786: WSH_DEBUG_SV.log(l_module_name,'L_PURGED_COUNT',l_purged_count);
7787: WSH_DEBUG_SV.log(l_module_name,'L_WF_RS',l_wf_rs);
7788: END IF;
7789:
7790: END IF;
7783: x_success_count => l_purged_count,
7784: x_return_status => l_wf_rs);
7785: IF l_debug_on THEN
7786: WSH_DEBUG_SV.log(l_module_name,'L_PURGED_COUNT',l_purged_count);
7787: WSH_DEBUG_SV.log(l_module_name,'L_WF_RS',l_wf_rs);
7788: END IF;
7789:
7790: END IF;
7791:
7789:
7790: END IF;
7791:
7792: IF l_debug_on THEN
7793: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
7794: END IF;
7795:
7796: WSH_WF_STD.RAISE_EVENT(p_entity_type => 'DELIVERY',
7797: p_entity_id => p_in_rec.delivery_id,
7799: p_organization_id => l_org_id,
7800: x_return_status => l_wf_rs);
7801:
7802: IF l_debug_on THEN
7803: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
7804: END IF;
7805: -- Workflow Changes ==/
7806: END IF;
7807:
7808: --
7809:
7810: -- Close Exceptions for delivery and its contents
7811: IF l_debug_on THEN
7812: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Close_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
7813: END IF;
7814: WSH_XC_UTIL.Close_Exceptions (
7815: p_api_version => 1.0,
7816: x_return_status => l_return_status,
7848: --
7849: -- Debug Statements
7850: --
7851: IF l_debug_on THEN
7852: WSH_DEBUG_SV.pop(l_module_name);
7853: END IF;
7854: --
7855: --}
7856: EXCEPTION
7861: --
7862: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7863: --
7864: IF l_debug_on THEN
7865: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7866: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
7867: END IF;
7868: --
7869: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7862: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7863: --
7864: IF l_debug_on THEN
7865: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7866: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
7867: END IF;
7868: --
7869: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7870:
7872: --
7873: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
7874: --
7875: IF l_debug_on THEN
7876: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7877: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7878: END IF;
7879: --
7880: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
7873: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
7874: --
7875: IF l_debug_on THEN
7876: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7877: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7878: END IF;
7879: --
7880: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
7881: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7880: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
7881: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7882: --
7883: IF l_debug_on THEN
7884: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7885: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7886: END IF;
7887: WHEN others THEN
7888: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setInTransit',l_module_name);
7881: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7882: --
7883: IF l_debug_on THEN
7884: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
7885: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
7886: END IF;
7887: WHEN others THEN
7888: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setInTransit',l_module_name);
7889: --
7893: --
7894: -- Debug Statements
7895: --
7896: IF l_debug_on THEN
7897: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7898: END IF;
7899: --
7900: --}
7901: END setInTransit;
7976: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
7977: --
7978: IF l_debug_on IS NULL
7979: THEN
7980: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7981: END IF;
7982: --
7983: IF l_debug_on THEN
7984: WSH_DEBUG_SV.push(l_module_name);
7980: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
7981: END IF;
7982: --
7983: IF l_debug_on THEN
7984: WSH_DEBUG_SV.push(l_module_name);
7985: --
7986: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7987: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7988: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7982: --
7983: IF l_debug_on THEN
7984: WSH_DEBUG_SV.push(l_module_name);
7985: --
7986: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7987: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7988: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7989: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7990: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7983: IF l_debug_on THEN
7984: WSH_DEBUG_SV.push(l_module_name);
7985: --
7986: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7987: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7988: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7989: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7990: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7991: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7984: WSH_DEBUG_SV.push(l_module_name);
7985: --
7986: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7987: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7988: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7989: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7990: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7991: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7992: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7985: --
7986: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7987: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7988: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7989: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7990: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7991: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7992: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7993: END IF;
7986: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.DELIVERY_ID ', p_in_rec.delivery_id );
7987: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7988: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7989: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7990: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7991: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7992: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7993: END IF;
7994: --
7987: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.name ', p_in_rec.name );
7988: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7989: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7990: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7991: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7992: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7993: END IF;
7994: --
7995: l_user_id := FND_GLOBAL.user_id;
7988: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.status_code ', p_in_rec.status_code );
7989: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.put_messages', p_in_rec.put_messages);
7990: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.manual_flag ', p_in_rec.manual_flag );
7991: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.caller ', p_in_rec.caller );
7992: wsh_debug_sv.LOG(l_module_name, 'p_in_rec.actual_date ', p_in_rec.actual_date );
7993: END IF;
7994: --
7995: l_user_id := FND_GLOBAL.user_id;
7996: l_login_id := FND_GLOBAL.login_id;
8058: END IF;
8059:
8060:
8061: IF l_debug_on THEN
8062: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
8063: END IF;
8064:
8065: WSH_WF_STD.RAISE_EVENT(p_entity_type => 'DELIVERY',
8066: p_entity_id => p_in_rec.delivery_id,
8068: p_organization_id => l_org_id,
8069: x_return_status => l_wf_rs);
8070:
8071: IF l_debug_on THEN
8072: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
8073: END IF;
8074: -- Workflow Changes ==/
8075:
8076: -- Close Exceptions for delivery and its contents
8074: -- Workflow Changes ==/
8075:
8076: -- Close Exceptions for delivery and its contents
8077: IF l_debug_on THEN
8078: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.Close_Exceptions',WSH_DEBUG_SV.C_PROC_LEVEL);
8079: END IF;
8080: WSH_XC_UTIL.Close_Exceptions (
8081: p_api_version => 1.0,
8082: x_return_status => l_return_status,
8123: --
8124: -- Debug Statements
8125: --
8126: IF l_debug_on THEN
8127: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_ACTIONS.CHANGE_STATUS',WSH_DEBUG_SV.C_PROC_LEVEL);
8128: END IF;
8129: --
8130: wsh_trip_stops_actions.change_status
8131: (
8165: --
8166: -- Debug Statements
8167: --
8168: IF l_debug_on THEN
8169: WSH_DEBUG_SV.pop(l_module_name);
8170: END IF;
8171: --
8172: --}
8173: EXCEPTION
8179: --
8180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8181: --
8182: IF l_debug_on THEN
8183: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8184: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
8185: END IF;
8186: --
8187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8181: --
8182: IF l_debug_on THEN
8183: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8184: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
8185: END IF;
8186: --
8187: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8188:
8190: --
8191: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8192: --
8193: IF l_debug_on THEN
8194: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8195: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8196: END IF;
8197: --
8198: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8191: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8192: --
8193: IF l_debug_on THEN
8194: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8195: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8196: END IF;
8197: --
8198: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8199: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8198: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8199: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8200: --
8201: IF l_debug_on THEN
8202: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8203: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8204: END IF;
8205: WHEN others THEN
8206: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setClose',l_module_name);
8199: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8200: --
8201: IF l_debug_on THEN
8202: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8203: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8204: END IF;
8205: WHEN others THEN
8206: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.setClose',l_module_name);
8207: --
8211: --
8212: -- Debug Statements
8213: --
8214: IF l_debug_on THEN
8215: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8216: END IF;
8217: --
8218: --}
8219: END setClose;
8294: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8295: --
8296: IF l_debug_on IS NULL
8297: THEN
8298: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8299: END IF;
8300: --
8301: IF l_debug_on THEN
8302: WSH_DEBUG_SV.push(l_module_name);
8298: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8299: END IF;
8300: --
8301: IF l_debug_on THEN
8302: WSH_DEBUG_SV.push(l_module_name);
8303: --
8304: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
8305: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DATE',P_ACTUAL_DATE);
8306: END IF;
8300: --
8301: IF l_debug_on THEN
8302: WSH_DEBUG_SV.push(l_module_name);
8303: --
8304: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
8305: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DATE',P_ACTUAL_DATE);
8306: END IF;
8307: --
8308: --
8301: IF l_debug_on THEN
8302: WSH_DEBUG_SV.push(l_module_name);
8303: --
8304: WSH_DEBUG_SV.log(l_module_name,'P_ACTION',P_ACTION);
8305: WSH_DEBUG_SV.log(l_module_name,'P_ACTUAL_DATE',P_ACTUAL_DATE);
8306: END IF;
8307: --
8308: --
8309: l_user_id := FND_GLOBAL.user_id;
8371: --
8372: -- Debug Statements
8373: --
8374: IF l_debug_on THEN
8375: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.check_inTransit',WSH_DEBUG_SV.C_PROC_LEVEL);
8376: END IF;
8377: --
8378: WSH_DELIVERY_VALIDATIONS.check_inTransit
8379: (
8382: x_allowed => l_Allowed
8383: );
8384: --
8385: IF l_debug_on THEN
8386: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8387: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
8388: END IF;
8389: --
8390: WSH_UTIL_CORE.api_post_call
8383: );
8384: --
8385: IF l_debug_on THEN
8386: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8387: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
8388: END IF;
8389: --
8390: WSH_UTIL_CORE.api_post_call
8391: (
8410: END IF;
8411: --
8412: --
8413: IF l_debug_on THEN
8414: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit setInTransit',WSH_DEBUG_SV.C_PROC_LEVEL);
8415: END IF;
8416: --
8417: setInTransit
8418: (
8420: x_return_status => l_return_status
8421: );
8422: --
8423: IF l_debug_on THEN
8424: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8425: END IF;
8426: --
8427: WSH_UTIL_CORE.api_post_call
8428: (
8449: --
8450: -- Debug Statements
8451: --
8452: IF l_debug_on THEN
8453: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.check_inTransit',WSH_DEBUG_SV.C_PROC_LEVEL);
8454: END IF;
8455: --
8456: WSH_DELIVERY_VALIDATIONS.check_close
8457: (
8460: x_allowed => l_Allowed
8461: );
8462: --
8463: IF l_debug_on THEN
8464: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8465: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
8466: END IF;
8467: --
8468: WSH_UTIL_CORE.api_post_call
8461: );
8462: --
8463: IF l_debug_on THEN
8464: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8465: WSH_DEBUG_SV.log(l_module_name,'l_Allowed',l_Allowed);
8466: END IF;
8467: --
8468: WSH_UTIL_CORE.api_post_call
8469: (
8488: END IF;
8489: --
8490: --
8491: IF l_debug_on THEN
8492: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit setClose',WSH_DEBUG_SV.C_PROC_LEVEL);
8493: END IF;
8494: --
8495: setClose
8496: (
8498: x_return_status => l_return_status
8499: );
8500: --
8501: IF l_debug_on THEN
8502: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
8503: END IF;
8504: --
8505: WSH_UTIL_CORE.api_post_call
8506: (
8519: --
8520: -- Debug Statements
8521: --
8522: IF l_debug_on THEN
8523: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_PACK',WSH_DEBUG_SV.C_PROC_LEVEL);
8524: END IF;
8525: --
8526: wsh_delivery_validations.check_pack(p_del_rows(i), l_return_status);
8527: --
8544: --
8545: -- Debug Statements
8546: --
8547: IF l_debug_on THEN
8548: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.CHECK_REOPEN',WSH_DEBUG_SV.C_PROC_LEVEL);
8549: END IF;
8550: --
8551:
8552:
8574: P_Organization_ID => l_organization_id,
8575: X_Return_Status => l_return_status);
8576:
8577: IF l_debug_on THEN
8578: wsh_debug_sv.log (l_module_name, 'Return status from get warehouse type', l_return_status);
8579: wsh_debug_sv.log (l_module_name, 'Warehouse type ', l_warehouse_type);
8580: END IF;
8581:
8582: WSH_UTIL_CORE.api_post_call (
8575: X_Return_Status => l_return_status);
8576:
8577: IF l_debug_on THEN
8578: wsh_debug_sv.log (l_module_name, 'Return status from get warehouse type', l_return_status);
8579: wsh_debug_sv.log (l_module_name, 'Warehouse type ', l_warehouse_type);
8580: END IF;
8581:
8582: WSH_UTIL_CORE.api_post_call (
8583: p_return_status => l_return_status,
8590: l_status_code := 'OP';
8591: END IF;
8592:
8593: IF l_debug_on THEN
8594: wsh_debug_sv.log (l_module_name, 'l_status_code',l_status_code);
8595: END IF;
8596:
8597:
8598: update wsh_new_deliveries
8634:
8635: --/== Workflow Changes
8636: IF (l_status_code = 'OP') THEN
8637: IF l_debug_on THEN
8638: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WF_STD.RAISE_EVENT',WSH_DEBUG_SV.C_PROC_LEVEL);
8639: END IF;
8640:
8641: WSH_WF_STD.RAISE_EVENT(p_entity_type => 'DELIVERY',
8642: p_entity_id => p_del_rows(i),
8644: p_organization_id => l_organization_id,
8645: x_return_status => l_wf_rs);
8646:
8647: IF l_debug_on THEN
8648: WSH_DEBUG_SV.log(l_module_name,'Return status after calling WSH_WF_STD.RAISE_EVENT => ',l_wf_rs);
8649: END IF;
8650: END IF;
8651: -- Workflow Changes ==/
8652:
8708: --
8709: -- Debug Statements
8710: --
8711: IF l_debug_on THEN
8712: WSH_DEBUG_SV.pop(l_module_name);
8713: END IF;
8714: --
8715: EXCEPTION
8716: WHEN FND_API.G_EXC_ERROR THEN
8718: --
8719: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8720: --
8721: IF l_debug_on THEN
8722: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8723: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
8724: END IF;
8725: --
8726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8719: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8720: --
8721: IF l_debug_on THEN
8722: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8723: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
8724: END IF;
8725: --
8726: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8727:
8729: --
8730: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8731: --
8732: IF l_debug_on THEN
8733: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8735: END IF;
8736: --
8737: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8730: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8731: --
8732: IF l_debug_on THEN
8733: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8735: END IF;
8736: --
8737: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8738: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8737: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
8738: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8739: --
8740: IF l_debug_on THEN
8741: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8742: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8743: END IF;
8744: --
8745: WHEN others THEN
8738: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
8739: --
8740: IF l_debug_on THEN
8741: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
8742: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
8743: END IF;
8744: --
8745: WHEN others THEN
8746:
8752: --
8753: -- Debug Statements
8754: --
8755: IF l_debug_on THEN
8756: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8757: END IF;
8758: --
8759: END CHANGE_STATUS;
8760:
8824: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
8825: --
8826: IF l_debug_on IS NULL
8827: THEN
8828: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8829: END IF;
8830: --
8831: IF l_debug_on THEN
8832: WSH_DEBUG_SV.push(l_module_name);
8828: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
8829: END IF;
8830: --
8831: IF l_debug_on THEN
8832: WSH_DEBUG_SV.push(l_module_name);
8833: --
8834: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8835: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
8836: END IF;
8830: --
8831: IF l_debug_on THEN
8832: WSH_DEBUG_SV.push(l_module_name);
8833: --
8834: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8835: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
8836: END IF;
8837: --
8838: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8831: IF l_debug_on THEN
8832: WSH_DEBUG_SV.push(l_module_name);
8833: --
8834: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
8835: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
8836: END IF;
8837: --
8838: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8839: x_leg_complete := 'N';
8850: wsh_util_core.add_message(x_return_status);
8851:
8852:
8853: IF l_debug_on THEN
8854: WSH_DEBUG_SV.pop(l_module_name);
8855: END IF;
8856: --
8857: RETURN;
8858: END IF;
8872: x_leg_count := l_leg_count;
8873:
8874: IF (l_leg_count = 0 OR l_leg_count IS NULL) THEN
8875: IF l_debug_on THEN
8876: WSH_DEBUG_SV.pop(l_module_name);
8877: END IF;
8878: --
8879: RETURN;
8880: END IF;
8906: FND_MESSAGE.SET_NAME('WSH','WSH_LEG_NOT_FOUND');
8907: wsh_util_core.add_message(x_return_status);
8908:
8909: IF l_debug_on THEN
8910: WSH_DEBUG_SV.pop(l_module_name);
8911: END IF;
8912: --
8913: RETURN;
8914: END IF;
8926: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8927: END IF;
8928:
8929: IF l_debug_on THEN
8930: WSH_DEBUG_SV.pop(l_module_name);
8931: END IF;
8932: --
8933: RETURN;
8934: END IF;
8945: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8946: END IF;
8947:
8948: IF l_debug_on THEN
8949: WSH_DEBUG_SV.pop(l_module_name);
8950: END IF;
8951: --
8952: RETURN;
8953: END IF;
8965: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
8966: END IF;
8967: --
8968: IF l_debug_on THEN
8969: WSH_DEBUG_SV.pop(l_module_name);
8970: END IF;
8971: --
8972: RETURN;
8973: END IF;
8987:
8988: x_leg_complete := 'Y';
8989:
8990: IF l_debug_on THEN
8991: WSH_DEBUG_SV.pop(l_module_name);
8992: END IF;
8993: --
8994: EXCEPTION
8995: WHEN others THEN
8996: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.Complete_Leg_Sequence');
8997: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8998:
8999: IF l_debug_on THEN
9000: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9001: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9002: END IF;
9003: --
9004: END Complete_Leg_Sequence;
8997: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8998:
8999: IF l_debug_on THEN
9000: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9001: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9002: END IF;
9003: --
9004: END Complete_Leg_Sequence;
9005:
9019: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
9020: --
9021: IF l_debug_on IS NULL
9022: THEN
9023: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9024: END IF;
9025: --
9026: IF l_debug_on THEN
9027: WSH_DEBUG_SV.push(l_module_name);
9023: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9024: END IF;
9025: --
9026: IF l_debug_on THEN
9027: WSH_DEBUG_SV.push(l_module_name);
9028: --
9029: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9030: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
9031: END IF;
9025: --
9026: IF l_debug_on THEN
9027: WSH_DEBUG_SV.push(l_module_name);
9028: --
9029: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9030: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
9031: END IF;
9032:
9033:
9026: IF l_debug_on THEN
9027: WSH_DEBUG_SV.push(l_module_name);
9028: --
9029: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9030: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
9031: END IF;
9032:
9033:
9034: Complete_Leg_Sequence
9038: x_leg_complete => l_leg_complete,
9039: x_return_status => l_return_status);
9040:
9041: IF l_debug_on THEN
9042: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',l_return_status);
9043: WSH_DEBUG_SV.log(l_module_name,'l_leg_count',l_leg_count);
9044: WSH_DEBUG_SV.log(l_module_name,'l_leg_complete',l_leg_complete);
9045: END IF;
9046:
9039: x_return_status => l_return_status);
9040:
9041: IF l_debug_on THEN
9042: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',l_return_status);
9043: WSH_DEBUG_SV.log(l_module_name,'l_leg_count',l_leg_count);
9044: WSH_DEBUG_SV.log(l_module_name,'l_leg_complete',l_leg_complete);
9045: END IF;
9046:
9047: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
9040:
9041: IF l_debug_on THEN
9042: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',l_return_status);
9043: WSH_DEBUG_SV.log(l_module_name,'l_leg_count',l_leg_count);
9044: WSH_DEBUG_SV.log(l_module_name,'l_leg_complete',l_leg_complete);
9045: END IF;
9046:
9047: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
9048: IF (l_leg_complete='NW') THEN
9061: END IF;
9062:
9063:
9064: IF l_debug_on THEN
9065: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
9066: WSH_DEBUG_SV.pop(l_module_name);
9067: END IF;
9068: --
9069: EXCEPTION
9062:
9063:
9064: IF l_debug_on THEN
9065: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
9066: WSH_DEBUG_SV.pop(l_module_name);
9067: END IF;
9068: --
9069: EXCEPTION
9070: WHEN others THEN
9071: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE');
9072: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9073:
9074: IF l_debug_on THEN
9075: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9076: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9077: END IF;
9078: --
9079: END Update_Leg_Sequence;
9072: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9073:
9074: IF l_debug_on THEN
9075: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9076: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9077: END IF;
9078: --
9079: END Update_Leg_Sequence;
9080:
9098: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
9099: --
9100: IF l_debug_on IS NULL
9101: THEN
9102: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9103: END IF;
9104: --
9105: IF l_debug_on THEN
9106: WSH_DEBUG_SV.push(l_module_name);
9102: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9103: END IF;
9104: --
9105: IF l_debug_on THEN
9106: WSH_DEBUG_SV.push(l_module_name);
9107: --
9108: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9109: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_del_FLAG',P_UPDATE_del_FLAG);
9110: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_leg_FLAG',P_UPDATE_leg_FLAG);
9104: --
9105: IF l_debug_on THEN
9106: WSH_DEBUG_SV.push(l_module_name);
9107: --
9108: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9109: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_del_FLAG',P_UPDATE_del_FLAG);
9110: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_leg_FLAG',P_UPDATE_leg_FLAG);
9111: END IF;
9112:
9105: IF l_debug_on THEN
9106: WSH_DEBUG_SV.push(l_module_name);
9107: --
9108: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9109: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_del_FLAG',P_UPDATE_del_FLAG);
9110: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_leg_FLAG',P_UPDATE_leg_FLAG);
9111: END IF;
9112:
9113:
9106: WSH_DEBUG_SV.push(l_module_name);
9107: --
9108: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9109: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_del_FLAG',P_UPDATE_del_FLAG);
9110: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_leg_FLAG',P_UPDATE_leg_FLAG);
9111: END IF;
9112:
9113:
9114: Complete_Leg_Sequence
9119: x_leg_complete => l_leg_complete,
9120: x_return_status => x_return_status);
9121:
9122: IF l_debug_on THEN
9123: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',x_return_status);
9124: WSH_DEBUG_SV.log(l_module_name,'l_leg_count',l_leg_count);
9125: WSH_DEBUG_SV.log(l_module_name,'l_leg_complete',l_leg_complete);
9126: END IF;
9127:
9120: x_return_status => x_return_status);
9121:
9122: IF l_debug_on THEN
9123: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',x_return_status);
9124: WSH_DEBUG_SV.log(l_module_name,'l_leg_count',l_leg_count);
9125: WSH_DEBUG_SV.log(l_module_name,'l_leg_complete',l_leg_complete);
9126: END IF;
9127:
9128: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
9121:
9122: IF l_debug_on THEN
9123: WSH_DEBUG_SV.log(l_module_name,'After Call Complete_Leg_Sequence',x_return_status);
9124: WSH_DEBUG_SV.log(l_module_name,'l_leg_count',l_leg_count);
9125: WSH_DEBUG_SV.log(l_module_name,'l_leg_complete',l_leg_complete);
9126: END IF;
9127:
9128: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
9129: IF (l_leg_complete = 'Y' ) THEN
9147:
9148:
9149: IF l_debug_on THEN
9150: IF (x_leg_complete) THEN
9151: WSH_DEBUG_SV.logmsg(l_module_name,'x_leg_complete TRUE');
9152: ELSE
9153: WSH_DEBUG_SV.logmsg(l_module_name,'x_leg_complete FALSE');
9154: END IF;
9155:
9149: IF l_debug_on THEN
9150: IF (x_leg_complete) THEN
9151: WSH_DEBUG_SV.logmsg(l_module_name,'x_leg_complete TRUE');
9152: ELSE
9153: WSH_DEBUG_SV.logmsg(l_module_name,'x_leg_complete FALSE');
9154: END IF;
9155:
9156: WSH_DEBUG_SV.pop(l_module_name);
9157: END IF;
9152: ELSE
9153: WSH_DEBUG_SV.logmsg(l_module_name,'x_leg_complete FALSE');
9154: END IF;
9155:
9156: WSH_DEBUG_SV.pop(l_module_name);
9157: END IF;
9158: --
9159: EXCEPTION
9160: WHEN others THEN
9161: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.UPDATE_LEG_SEQUENCE');
9162: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9163:
9164: IF l_debug_on THEN
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9166: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9167: END IF;
9168: --
9169: END Process_Leg_Sequence;
9162: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9163:
9164: IF l_debug_on THEN
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9166: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9167: END IF;
9168: --
9169: END Process_Leg_Sequence;
9170: -- J-IB-HEALI---}
9248: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
9249: --
9250: IF l_debug_on IS NULL
9251: THEN
9252: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9253: END IF;
9254: --
9255: IF l_debug_on THEN
9256: WSH_DEBUG_SV.push(l_module_name);
9252: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9253: END IF;
9254: --
9255: IF l_debug_on THEN
9256: WSH_DEBUG_SV.push(l_module_name);
9257: END IF;
9258: --
9259: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9260:
9275: --
9276: -- Debug Statements
9277: --
9278: IF l_debug_on THEN
9279: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9280: END IF;
9281: --
9282: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9283: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9348: --
9349: -- Debug Statements
9350: --
9351: IF l_debug_on THEN
9352: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9353: END IF;
9354: --
9355: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9356: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9370: --
9371: -- Debug Statements
9372: --
9373: IF l_debug_on THEN
9374: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
9375: END IF;
9376: --
9377: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_del_rows(i)));
9378: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9409: --
9410: -- Debug Statements
9411: --
9412: IF l_debug_on THEN
9413: WSH_DEBUG_SV.pop(l_module_name);
9414: END IF;
9415: --
9416: EXCEPTION
9417: WHEN others THEN
9427: --
9428: -- Debug Statements
9429: --
9430: IF l_debug_on THEN
9431: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9432: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9433: END IF;
9434: --
9435: END Generate_Loading_Seq;
9428: -- Debug Statements
9429: --
9430: IF l_debug_on THEN
9431: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9432: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9433: END IF;
9434: --
9435: END Generate_Loading_Seq;
9436:
9465: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
9466: --
9467: IF l_debug_on IS NULL
9468: THEN
9469: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9470: END IF;
9471: --
9472: IF l_debug_on THEN
9473: WSH_DEBUG_SV.push(l_module_name);
9469: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
9470: END IF;
9471: --
9472: IF l_debug_on THEN
9473: WSH_DEBUG_SV.push(l_module_name);
9474: --
9475: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9476: END IF;
9477: --
9471: --
9472: IF l_debug_on THEN
9473: WSH_DEBUG_SV.push(l_module_name);
9474: --
9475: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
9476: END IF;
9477: --
9478: --
9479: -- Debug Statements
9478: --
9479: -- Debug Statements
9480: --
9481: IF l_debug_on THEN
9482: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.POPULATE_RECORD',WSH_DEBUG_SV.C_PROC_LEVEL);
9483: END IF;
9484: --
9485: wsh_new_deliveries_pvt.populate_record( p_delivery_id, l_del_info, x_return_status);
9486:
9488: --
9489: -- Debug Statements
9490: --
9491: IF l_debug_on THEN
9492: WSH_DEBUG_SV.pop(l_module_name);
9493: END IF;
9494: --
9495: RETURN;
9496: END IF;
9496: END IF;
9497:
9498: --
9499: IF l_debug_on THEN
9500: WSH_DEBUG_SV.log(l_module_name,'l_del_info.shipment_direction',l_del_info.shipment_direction);
9501: END IF;
9502: --
9503:
9504: IF NVL(l_del_info.shipment_direction,'O') IN ('O','IO') -- J-IB-NPARIKH
9520: --
9521: -- Debug Statements
9522: --
9523: IF l_debug_on THEN
9524: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.UPDATE_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
9525: END IF;
9526: --
9527: wsh_new_deliveries_pvt.update_delivery( null, l_del_info, x_return_status);
9528:
9532: --
9533: -- Debug Statements
9534: --
9535: IF l_debug_on THEN
9536: WSH_DEBUG_SV.pop(l_module_name);
9537: END IF;
9538: --
9539: END Assign_Delivery_Update;
9540:
9638: --
9639: l_debug_on := wsh_debug_interface.g_debug;
9640: --
9641: IF l_debug_on IS NULL THEN
9642: l_debug_on := wsh_debug_sv.is_debug_enabled;
9643: END IF;
9644: --
9645: IF l_debug_on THEN
9646: wsh_debug_sv.push(l_module_name);
9642: l_debug_on := wsh_debug_sv.is_debug_enabled;
9643: END IF;
9644: --
9645: IF l_debug_on THEN
9646: wsh_debug_sv.push(l_module_name);
9647: --
9648: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
9649: wsh_debug_sv.LOG(l_module_name, 'p_action_code', p_action_code);
9650: wsh_debug_sv.LOG(l_module_name, 'p_line_freight_terms_Code', p_line_freight_terms_Code);
9644: --
9645: IF l_debug_on THEN
9646: wsh_debug_sv.push(l_module_name);
9647: --
9648: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
9649: wsh_debug_sv.LOG(l_module_name, 'p_action_code', p_action_code);
9650: wsh_debug_sv.LOG(l_module_name, 'p_line_freight_terms_Code', p_line_freight_terms_Code);
9651: END IF;
9652: --
9645: IF l_debug_on THEN
9646: wsh_debug_sv.push(l_module_name);
9647: --
9648: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
9649: wsh_debug_sv.LOG(l_module_name, 'p_action_code', p_action_code);
9650: wsh_debug_sv.LOG(l_module_name, 'p_line_freight_terms_Code', p_line_freight_terms_Code);
9651: END IF;
9652: --
9653: x_return_status := wsh_util_core.g_ret_sts_success;
9646: wsh_debug_sv.push(l_module_name);
9647: --
9648: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
9649: wsh_debug_sv.LOG(l_module_name, 'p_action_code', p_action_code);
9650: wsh_debug_sv.LOG(l_module_name, 'p_line_freight_terms_Code', p_line_freight_terms_Code);
9651: END IF;
9652: --
9653: x_return_status := wsh_util_core.g_ret_sts_success;
9654: --
9685: CLOSE dlvy_Csr;
9686: --
9687: --
9688: IF l_debug_on THEN
9689: wsh_debug_sv.LOG(l_module_name, 'l_dlvy_freight_terms_code', l_dlvy_freight_terms_code);
9690: wsh_debug_sv.LOG(l_module_name, 'l_name', l_name);
9691: wsh_debug_sv.LOG(l_module_name, 'l_shipment_direction', l_shipment_direction);
9692: END IF;
9693: --
9686: --
9687: --
9688: IF l_debug_on THEN
9689: wsh_debug_sv.LOG(l_module_name, 'l_dlvy_freight_terms_code', l_dlvy_freight_terms_code);
9690: wsh_debug_sv.LOG(l_module_name, 'l_name', l_name);
9691: wsh_debug_sv.LOG(l_module_name, 'l_shipment_direction', l_shipment_direction);
9692: END IF;
9693: --
9694: x_freight_terms_code := l_dlvy_freight_terms_code;
9687: --
9688: IF l_debug_on THEN
9689: wsh_debug_sv.LOG(l_module_name, 'l_dlvy_freight_terms_code', l_dlvy_freight_terms_code);
9690: wsh_debug_sv.LOG(l_module_name, 'l_name', l_name);
9691: wsh_debug_sv.LOG(l_module_name, 'l_shipment_direction', l_shipment_direction);
9692: END IF;
9693: --
9694: x_freight_terms_code := l_dlvy_freight_terms_code;
9695: --
9716: THEN
9717: --{
9718: --
9719: IF l_debug_on THEN
9720: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_VALIDATIONS.has_lines',WSH_DEBUG_SV.C_PROC_LEVEL);
9721: END IF;
9722: --
9723: l_has_lines := WSH_DELIVERY_VALIDATIONS.has_lines
9724: (
9726: );
9727: --
9728: --
9729: IF l_debug_on THEN
9730: wsh_debug_sv.LOG(l_module_name, 'l_has_lines', l_has_lines);
9731: END IF;
9732: --
9733: --
9734: IF l_has_lines = 'Y' -- If delivery has lines
9822: l_cnt := l_cnt + 1;
9823: --
9824: --
9825: IF l_debug_on THEN
9826: wsh_debug_sv.LOG(l_module_name, 'line_rec.freight_Terms_code', line_rec.freight_Terms_code);
9827: END IF;
9828: --
9829: IF line_rec.freight_Terms_code IS NULL
9830: THEN
9851: THEN
9852: --{
9853:
9854: IF l_debug_on THEN
9855: wsh_debug_sv.LOGMSG(l_module_name, 'Updating delivery freight term to' || l_dlvy_freight_terms_code);
9856: END IF;
9857: --
9858: --OTM R12, this update here is done right after assign/unassign
9859: --of delivery lines, which means the
9883: END IF;
9884: --
9885: --
9886: IF l_debug_on THEN
9887: wsh_debug_sv.pop(l_module_name);
9888: END IF;
9889: --
9890: --}
9891: EXCEPTION
9892: --{
9893: WHEN e_end_of_api THEN
9894: IF l_debug_on
9895: THEN
9896: WSH_DEBUG_SV.pop(l_module_name);
9897: END IF;
9898: WHEN e_end_of_api1 THEN
9899: IF l_debug_on THEN
9900: wsh_debug_sv.LOGMSG(l_module_name, 'Updating delivery WHO columns ' );
9896: WSH_DEBUG_SV.pop(l_module_name);
9897: END IF;
9898: WHEN e_end_of_api1 THEN
9899: IF l_debug_on THEN
9900: wsh_debug_sv.LOGMSG(l_module_name, 'Updating delivery WHO columns ' );
9901: END IF;
9902: --
9903: UPDATE wsh_new_deliveries
9904: SET last_update_date = SYSDATE,
9916: END IF;
9917: --
9918: IF l_debug_on
9919: THEN
9920: WSH_DEBUG_SV.pop(l_module_name);
9921: END IF;
9922: WHEN FND_API.G_EXC_ERROR THEN
9923: x_return_status := wsh_util_core.g_ret_sts_error;
9924: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9924: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9925: --
9926: IF l_debug_on
9927: THEN
9928: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:FND_API.G_EXC_ERROR');
9929: END IF;
9930: WHEN e_locked THEN
9931: x_return_status := wsh_util_core.g_ret_sts_error;
9932:
9935: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
9936: --
9937: IF l_debug_on
9938: THEN
9939: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION:e_locked');
9940: END IF;
9941: WHEN OTHERS THEN
9942: x_return_status := fnd_api.g_ret_sts_unexp_error;
9943: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.update_freight_terms',l_module_name);
9942: x_return_status := fnd_api.g_ret_sts_unexp_error;
9943: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.update_freight_terms',l_module_name);
9944: --
9945: IF l_debug_on THEN
9946: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
9947: END IF;
9948: --}
9949: END update_freight_terms;
9950: --
10046: --
10047: l_debug_on := wsh_debug_interface.g_debug;
10048: --
10049: IF l_debug_on IS NULL THEN
10050: l_debug_on := wsh_debug_sv.is_debug_enabled;
10051: END IF;
10052: --
10053: IF l_debug_on THEN
10054: wsh_debug_sv.push(l_module_name);
10050: l_debug_on := wsh_debug_sv.is_debug_enabled;
10051: END IF;
10052: --
10053: IF l_debug_on THEN
10054: wsh_debug_sv.push(l_module_name);
10055: --
10056: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10057: wsh_debug_sv.LOG(l_module_name, 'p_location_id', p_location_id);
10058: END IF;
10052: --
10053: IF l_debug_on THEN
10054: wsh_debug_sv.push(l_module_name);
10055: --
10056: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10057: wsh_debug_sv.LOG(l_module_name, 'p_location_id', p_location_id);
10058: END IF;
10059: --
10060: x_return_status := wsh_util_core.g_ret_sts_success;
10053: IF l_debug_on THEN
10054: wsh_debug_sv.push(l_module_name);
10055: --
10056: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10057: wsh_debug_sv.LOG(l_module_name, 'p_location_id', p_location_id);
10058: END IF;
10059: --
10060: x_return_status := wsh_util_core.g_ret_sts_success;
10061: --
10131: --
10132: -- Debug Statements
10133: --
10134: IF l_debug_on THEN
10135: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIP_STOPS_GRP.GET_STOP_DETAILS_PVT',WSH_DEBUG_SV.C_PROC_LEVEL);
10136: END IF;
10137: --
10138: wsh_trip_stops_grp.get_stop_details_pvt
10139: (p_stop_id => stop_rec.stop_id,
10150: -- Internal Locations J+
10151: -- Derive the physical location id
10152: IF l_stop_rec.stop_location_id <> p_location_id THEN -- New Location id
10153: IF l_debug_on THEN
10154: wsh_debug_sv.logmsg(l_module_name,'stop location id has been changed');
10155: END IF;
10156: -- Derive physical Location id for this new location
10157: WSH_LOCATIONS_PKG.Convert_internal_cust_location(
10158: p_internal_cust_location_id => p_location_id,
10159: x_internal_org_location_id => l_physical_location_id, -- New physical Location id
10160: x_return_status => l_return_status);
10161:
10162: IF l_debug_on THEN
10163: wsh_debug_sv.log(l_module_name,'New stop_location_id' , p_location_id);
10164: wsh_debug_sv.log(l_module_name,'Derived physical_location_id' , l_physical_location_id);
10165: END IF;
10166: -- delink the physical stop id
10167: IF nvl(l_stop_rec.physical_location_id, -99) <> nvl(l_physical_location_id, -99) THEN
10160: x_return_status => l_return_status);
10161:
10162: IF l_debug_on THEN
10163: wsh_debug_sv.log(l_module_name,'New stop_location_id' , p_location_id);
10164: wsh_debug_sv.log(l_module_name,'Derived physical_location_id' , l_physical_location_id);
10165: END IF;
10166: -- delink the physical stop id
10167: IF nvl(l_stop_rec.physical_location_id, -99) <> nvl(l_physical_location_id, -99) THEN
10168: l_stop_rec.physical_stop_id := NULL;
10180: -- the new stop location
10181: l_stop_rec.stop_location_id := p_location_id;
10182: -- End of Code changes made in J+
10183: IF l_debug_on THEN
10184: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_FTE_INTEGRATION.TRIP_STOP_VALIDATIONS',WSH_DEBUG_SV.C_PROC_LEVEL);
10185: END IF;
10186: --
10187: wsh_fte_integration.trip_stop_validations
10188: (p_stop_rec => l_stop_rec,
10215: -- Internal Locations J+
10216: -- Call Handle Internal Stops API to link the stops
10217: l_trip_id_tab(1) := l_stop_rec.trip_id;
10218: IF l_debug_on THEN
10219: wsh_debug_sv.log(l_module_name,'trip_id' , l_stop_rec.trip_id);
10220: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Handle_Internal_Stops',WSH_DEBUG_SV.C_PROC_LEVEL);
10221: END IF;
10222:
10223: WSH_TRIPS_ACTIONS.Handle_Internal_Stops(
10216: -- Call Handle Internal Stops API to link the stops
10217: l_trip_id_tab(1) := l_stop_rec.trip_id;
10218: IF l_debug_on THEN
10219: wsh_debug_sv.log(l_module_name,'trip_id' , l_stop_rec.trip_id);
10220: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.Handle_Internal_Stops',WSH_DEBUG_SV.C_PROC_LEVEL);
10221: END IF;
10222:
10223: WSH_TRIPS_ACTIONS.Handle_Internal_Stops(
10224: p_trip_ids => l_trip_id_tab,
10266: IF l_location_name IS NULL
10267: THEN
10268: --{
10269: IF l_debug_on THEN
10270: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_location_description',WSH_DEBUG_SV.C_PROC_LEVEL);
10271: END IF;
10272: --
10273: l_location_name := SUBSTRB(
10274: WSH_UTIL_CORE.get_location_description
10307: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10308: END IF;
10309: --
10310: IF l_debug_on THEN
10311: wsh_debug_sv.pop(l_module_name);
10312: END IF;
10313: --
10314: --}
10315: EXCEPTION
10320: ROLLBACK TO update_ship_from_location_sp;
10321: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10322: --
10323: IF l_debug_on THEN
10324: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10325: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10326: END IF;
10327: --
10328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10321: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10322: --
10323: IF l_debug_on THEN
10324: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10325: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10326: END IF;
10327: --
10328: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10329:
10330: ROLLBACK TO update_ship_from_location_sp;
10331: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10332: --
10333: IF l_debug_on THEN
10334: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10335: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10336: END IF;
10337: --
10338: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10331: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10332: --
10333: IF l_debug_on THEN
10334: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10335: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10336: END IF;
10337: --
10338: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10339: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10338: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10339: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10340: --
10341: IF l_debug_on THEN
10342: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10343: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10344: END IF;
10345: --
10346: WHEN OTHERS THEN
10339: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10340: --
10341: IF l_debug_on THEN
10342: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10343: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10344: END IF;
10345: --
10346: WHEN OTHERS THEN
10347:
10348: ROLLBACK TO update_ship_from_location_sp;
10349: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10350: wsh_util_core.default_handler('WSH_NEW_DELIVERY_ACTIONS.update_ship_from_location', l_module_name);
10351: IF l_debug_on THEN
10352: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10353: END IF;
10354: --
10355: --}
10356: END update_ship_from_location;
10397:
10398: l_debug_on := wsh_debug_interface.g_debug;
10399: --
10400: IF l_debug_on IS NULL THEN
10401: l_debug_on := wsh_debug_sv.is_debug_enabled;
10402: END IF;
10403: --
10404: IF l_debug_on THEN
10405: wsh_debug_sv.push(l_module_name);
10401: l_debug_on := wsh_debug_sv.is_debug_enabled;
10402: END IF;
10403: --
10404: IF l_debug_on THEN
10405: wsh_debug_sv.push(l_module_name);
10406: --
10407: --
10408: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10409: END IF;
10404: IF l_debug_on THEN
10405: wsh_debug_sv.push(l_module_name);
10406: --
10407: --
10408: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10409: END IF;
10410:
10411: OPEN check_last_trip(p_delivery_id);
10412: FETCH check_last_trip
10414: CLOSE check_last_trip;
10415:
10416: IF l_trip_id IS NOT NULL THEN -- found a open delivery
10417: IF l_debug_on THEN
10418: wsh_debug_sv.LOGMSG(l_module_name, 'Last Del on Trip-' || l_trip_id);
10419: wsh_debug_sv.pop(l_module_name);
10420: END IF;
10421: return FALSE;
10422: ELSE -- no open delivery
10415:
10416: IF l_trip_id IS NOT NULL THEN -- found a open delivery
10417: IF l_debug_on THEN
10418: wsh_debug_sv.LOGMSG(l_module_name, 'Last Del on Trip-' || l_trip_id);
10419: wsh_debug_sv.pop(l_module_name);
10420: END IF;
10421: return FALSE;
10422: ELSE -- no open delivery
10423: IF l_debug_on THEN
10420: END IF;
10421: return FALSE;
10422: ELSE -- no open delivery
10423: IF l_debug_on THEN
10424: wsh_debug_sv.LOGMSG(l_module_name, 'THIS IS LAST OPEN DELIVERY on TRIP');
10425: wsh_debug_sv.pop(l_module_name);
10426: END IF;
10427: return TRUE;
10428: END IF;
10421: return FALSE;
10422: ELSE -- no open delivery
10423: IF l_debug_on THEN
10424: wsh_debug_sv.LOGMSG(l_module_name, 'THIS IS LAST OPEN DELIVERY on TRIP');
10425: wsh_debug_sv.pop(l_module_name);
10426: END IF;
10427: return TRUE;
10428: END IF;
10429:
10427: return TRUE;
10428: END IF;
10429:
10430: IF l_debug_on THEN
10431: wsh_debug_sv.pop(l_module_name);
10432: END IF;
10433:
10434: EXCEPTION
10435:
10436: WHEN OTHERS THEN
10437: wsh_util_core.default_handler('wsh_new_delivery_actions.check_last_del_trip',l_module_name);
10438: --
10439: IF l_debug_on THEN
10440: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
10441: END IF;
10442: RETURN FALSE;
10443: END check_last_del_trip;
10444:
10507: BEGIN
10508:
10509: l_debug_on := wsh_debug_interface.g_debug;
10510: IF l_debug_on IS NULL THEN
10511: l_debug_on := wsh_debug_sv.is_debug_enabled;
10512: END IF;
10513: IF l_debug_on THEN
10514: wsh_debug_sv.push(l_module_name);
10515: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10510: IF l_debug_on IS NULL THEN
10511: l_debug_on := wsh_debug_sv.is_debug_enabled;
10512: END IF;
10513: IF l_debug_on THEN
10514: wsh_debug_sv.push(l_module_name);
10515: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10516: END IF;
10517:
10518: -- checks whether the delivery is assigned to a trip
10511: l_debug_on := wsh_debug_sv.is_debug_enabled;
10512: END IF;
10513: IF l_debug_on THEN
10514: wsh_debug_sv.push(l_module_name);
10515: wsh_debug_sv.LOG(l_module_name, 'P_DELIVERY_ID', p_delivery_id);
10516: END IF;
10517:
10518: -- checks whether the delivery is assigned to a trip
10519:
10523:
10524: IF (l_count = 0) THEN
10525: -- delivery is not assigned to a trip
10526: IF l_debug_on THEN
10527: wsh_debug_sv.LOGMSG(l_module_name, 'NONE');
10528: wsh_debug_sv.pop(l_module_name);
10529: END IF;
10530: return 'NONE';
10531: ELSIF (l_count > 1) THEN
10524: IF (l_count = 0) THEN
10525: -- delivery is not assigned to a trip
10526: IF l_debug_on THEN
10527: wsh_debug_sv.LOGMSG(l_module_name, 'NONE');
10528: wsh_debug_sv.pop(l_module_name);
10529: END IF;
10530: return 'NONE';
10531: ELSIF (l_count > 1) THEN
10532: -- delivery is assigned to more than one trip
10530: return 'NONE';
10531: ELSIF (l_count > 1) THEN
10532: -- delivery is assigned to more than one trip
10533: IF l_debug_on THEN
10534: wsh_debug_sv.LOGMSG(l_module_name, 'MANY');
10535: wsh_debug_sv.pop(l_module_name);
10536: END IF;
10537: return 'MANY';
10538: END IF;
10531: ELSIF (l_count > 1) THEN
10532: -- delivery is assigned to more than one trip
10533: IF l_debug_on THEN
10534: wsh_debug_sv.LOGMSG(l_module_name, 'MANY');
10535: wsh_debug_sv.pop(l_module_name);
10536: END IF;
10537: return 'MANY';
10538: END IF;
10539:
10555:
10556: IF (l_count > 1) THEN
10557: -- trip is shared by more than one delivery - Error
10558: IF l_debug_on THEN
10559: wsh_debug_sv.LOGMSG(l_module_name, 'SHARED');
10560: wsh_debug_sv.pop(l_module_name);
10561: END IF;
10562: return 'SHARED';
10563: END IF;
10556: IF (l_count > 1) THEN
10557: -- trip is shared by more than one delivery - Error
10558: IF l_debug_on THEN
10559: wsh_debug_sv.LOGMSG(l_module_name, 'SHARED');
10560: wsh_debug_sv.pop(l_module_name);
10561: END IF;
10562: return 'SHARED';
10563: END IF;
10564:
10570:
10571: IF (l_count > 1) THEN
10572: -- trip is shared by more than one delivery - Error
10573: IF l_debug_on THEN
10574: wsh_debug_sv.LOGMSG(l_module_name, 'SHARED');
10575: wsh_debug_sv.pop(l_module_name);
10576: END IF;
10577: return 'SHARED';
10578: END IF;
10571: IF (l_count > 1) THEN
10572: -- trip is shared by more than one delivery - Error
10573: IF l_debug_on THEN
10574: wsh_debug_sv.LOGMSG(l_module_name, 'SHARED');
10575: wsh_debug_sv.pop(l_module_name);
10576: END IF;
10577: return 'SHARED';
10578: END IF;
10579:
10587:
10588: IF l_lane_id is not NULL
10589: THEN
10590: IF l_debug_on THEN
10591: wsh_debug_sv.LOGMSG(l_module_name, 'HAS_LANE');
10592: wsh_debug_sv.pop(l_module_name);
10593: END IF;
10594: return 'HAS_LANE';
10595: ELSE
10588: IF l_lane_id is not NULL
10589: THEN
10590: IF l_debug_on THEN
10591: wsh_debug_sv.LOGMSG(l_module_name, 'HAS_LANE');
10592: wsh_debug_sv.pop(l_module_name);
10593: END IF;
10594: return 'HAS_LANE';
10595: ELSE
10596: IF l_debug_on THEN
10593: END IF;
10594: return 'HAS_LANE';
10595: ELSE
10596: IF l_debug_on THEN
10597: wsh_debug_sv.LOGMSG(l_module_name, 'ONE-'||l_trip_id);
10598: wsh_debug_sv.pop(l_module_name);
10599: END IF;
10600: return 'ONE-'||l_trip_id;
10601: END IF;
10594: return 'HAS_LANE';
10595: ELSE
10596: IF l_debug_on THEN
10597: wsh_debug_sv.LOGMSG(l_module_name, 'ONE-'||l_trip_id);
10598: wsh_debug_sv.pop(l_module_name);
10599: END IF;
10600: return 'ONE-'||l_trip_id;
10601: END IF;
10602:
10604: WHEN OTHERS THEN
10605: wsh_util_core.default_handler('wsh_new_delivery_actions.get_trip_status',l_module_name);
10606: --
10607: IF l_debug_on THEN
10608: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
10609: END IF;
10610:
10611: END GET_TRIP_STATUS;
10612:
10641:
10642: l_delivery_id NUMBER;
10643: l_content_dlvy BOOLEAN := FALSE;
10644:
10645: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
10646: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'IS_DLVY_CONTENT';
10647:
10648: BEGIN
10649:
10648: BEGIN
10649:
10650: --
10651: IF l_debug_on THEN
10652: wsh_debug_sv.push (l_module_name);
10653: END IF;
10654: --
10655:
10656: OPEN c_get_console_delivery(p_delivery_id) ;
10663: CLOSE c_get_console_delivery;
10664:
10665: --
10666: IF l_debug_on THEN
10667: wsh_debug_sv.pop(l_module_name);
10668: END IF;
10669: --
10670: RETURN l_content_dlvy;
10671:
10678:
10679: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.IS_DLVY_CONTENT');
10680: --
10681: IF l_debug_on THEN
10682: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10683: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10684: END IF;
10685:
10686: END IS_DLVY_CONTENT;
10679: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.IS_DLVY_CONTENT');
10680: --
10681: IF l_debug_on THEN
10682: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10683: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10684: END IF;
10685:
10686: END IS_DLVY_CONTENT;
10687:
10727: l_site_tab WSH_UTIL_CORE.ID_TAB_TYPE;
10728: multiple_ship_to_site EXCEPTION;
10729: no_ship_to_site EXCEPTION;
10730:
10731: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
10732: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_SHIP_TO_SITE';
10733:
10734: BEGIN
10735:
10735:
10736: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10737: --
10738: IF l_debug_on THEN
10739: wsh_debug_sv.push (l_module_name);
10740: END IF;
10741: --
10742:
10743: IF p_delivery_type = 'STANDARD' THEN
10767:
10768:
10769: --
10770: IF l_debug_on THEN
10771: WSH_DEBUG_SV.pop(l_module_name);
10772: END IF;
10773: --
10774: EXCEPTION
10775:
10775:
10776: WHEN NO_SHIP_TO_SITE THEN
10777: -- Delivery is not assoociated with a site.
10778: IF l_debug_on THEN
10779: wsh_debug_sv.logmsg(l_module_name, 'Delivery is not assoociated with a site');
10780: END IF;
10781: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NO_SITE');
10782: FND_MESSAGE.Set_Token('DELIVERY',p_delivery_id);
10783: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10783: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10784: WSH_UTIL_CORE.add_message(x_return_status);
10785:
10786: IF l_debug_on THEN
10787: WSH_DEBUG_SV.pop(l_module_name);
10788: END IF;
10789:
10790: WHEN MULTIPLE_SHIP_TO_SITE THEN
10791:
10790: WHEN MULTIPLE_SHIP_TO_SITE THEN
10791:
10792: -- Delivery is associated with multiple sites
10793: IF l_debug_on THEN
10794: wsh_debug_sv.logmsg(l_module_name, 'Delivery is not assoociated with multiple sites');
10795: END IF;
10796: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_MULT_SITE');
10797: FND_MESSAGE.Set_Token('DELIVERY',p_delivery_id);
10798: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10798: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10799: WSH_UTIL_CORE.add_message(x_return_status);
10800:
10801: IF l_debug_on THEN
10802: WSH_DEBUG_SV.pop(l_module_name);
10803: END IF;
10804:
10805: WHEN OTHERS THEN
10806:
10812: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10813: --
10814:
10815: IF l_debug_on THEN
10816: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10817: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10818: END IF;
10819: --
10820: END GET_SHIP_TO_SITE;
10813: --
10814:
10815: IF l_debug_on THEN
10816: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10817: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10818: END IF;
10819: --
10820: END GET_SHIP_TO_SITE;
10821:
10864: l_cust_tab WSH_UTIL_CORE.ID_TAB_TYPE;
10865: no_cust_for_loc EXCEPTION;
10866: mult_cust_for_loc EXCEPTION;
10867:
10868: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
10869: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'GET_SHIP_TO_CUSTOMER';
10870:
10871: BEGIN
10872:
10872:
10873: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10874: --
10875: IF l_debug_on THEN
10876: wsh_debug_sv.push (l_module_name);
10877: END IF;
10878: --
10879:
10880: OPEN c_get_shipto_cust_from_loc(p_ult_dropoff_loc_id);
10904: END IF;
10905:
10906: --
10907: IF l_debug_on THEN
10908: WSH_DEBUG_SV.pop(l_module_name);
10909: END IF;
10910: --
10911: EXCEPTION
10912:
10911: EXCEPTION
10912:
10913: WHEN NO_CUST_FOR_LOC THEN
10914: IF l_debug_on THEN
10915: wsh_debug_sv.logmsg(l_module_name, 'Location not associated with a customer');
10916: END IF;
10917: -- Location not associated with a customer.
10918: FND_MESSAGE.SET_NAME('WSH','WSH_CUST_NO_LOC');
10919: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
10920: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10921: WSH_UTIL_CORE.add_message(x_return_status);
10922:
10923: IF l_debug_on THEN
10924: WSH_DEBUG_SV.pop(l_module_name);
10925: END IF;
10926: WHEN MULT_CUST_FOR_LOC THEN
10927: -- Location associated with a multiple customers.
10928: IF l_debug_on THEN
10925: END IF;
10926: WHEN MULT_CUST_FOR_LOC THEN
10927: -- Location associated with a multiple customers.
10928: IF l_debug_on THEN
10929: wsh_debug_sv.logmsg(l_module_name, 'Location associated with multiple customers');
10930: END IF;
10931: FND_MESSAGE.SET_NAME('WSH','WSH_CUST_MULT_LOC');
10932: FND_MESSAGE.SET_TOKEN('DELIVERY',p_delivery_id);
10933: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10933: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10934: WSH_UTIL_CORE.add_message(x_return_status);
10935:
10936: IF l_debug_on THEN
10937: WSH_DEBUG_SV.pop(l_module_name);
10938: END IF;
10939: WHEN OTHERS THEN
10940: IF (c_get_shipto_cust_from_loc%ISOPEN) THEN
10941: CLOSE c_get_shipto_cust_from_loc;
10948: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.get_ship_to_customer');
10949: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10950: --
10951: IF l_debug_on THEN
10952: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10953: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10954: END IF;
10955: --
10956: END GET_SHIP_TO_CUSTOMER;
10949: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10950: --
10951: IF l_debug_on THEN
10952: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10953: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10954: END IF;
10955: --
10956: END GET_SHIP_TO_CUSTOMER;
10957:
11023:
11024: --
11025: IF l_debug_on IS NULL
11026: THEN
11027: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11028: END IF;
11029: --
11030:
11031: IF l_debug_on THEN
11028: END IF;
11029: --
11030:
11031: IF l_debug_on THEN
11032: WSH_DEBUG_SV.push(l_module_name);
11033: END IF;
11034:
11035: --
11036: -- Obtain number of delivery legs, initial pick up date and ultimate drop off date for the delivery
11040: initial_pick_up_date := p_cs_mleg_result_tab(p_cs_mleg_result_tab.FIRST).pickup_date;
11041: ultimate_drop_off_date := p_cs_mleg_result_tab(p_cs_mleg_result_tab.LAST).dropoff_date;
11042:
11043: IF l_debug_on THEN
11044: WSH_DEBUG_SV.logmsg(l_module_name,'No of legs :'||num_legs);
11045: WSH_DEBUG_SV.logmsg(l_module_name,'initial_pick_up_date :'||to_char(initial_pick_up_date, 'dd/mm/yyyy hh:mi:ss'));
11046: WSH_DEBUG_SV.logmsg(l_module_name,'ultimate_drop_off_date :'||to_char(ultimate_drop_off_date, 'dd/mm/yyyy hh:mi:ss'));
11047: END IF;
11048:
11041: ultimate_drop_off_date := p_cs_mleg_result_tab(p_cs_mleg_result_tab.LAST).dropoff_date;
11042:
11043: IF l_debug_on THEN
11044: WSH_DEBUG_SV.logmsg(l_module_name,'No of legs :'||num_legs);
11045: WSH_DEBUG_SV.logmsg(l_module_name,'initial_pick_up_date :'||to_char(initial_pick_up_date, 'dd/mm/yyyy hh:mi:ss'));
11046: WSH_DEBUG_SV.logmsg(l_module_name,'ultimate_drop_off_date :'||to_char(ultimate_drop_off_date, 'dd/mm/yyyy hh:mi:ss'));
11047: END IF;
11048:
11049:
11042:
11043: IF l_debug_on THEN
11044: WSH_DEBUG_SV.logmsg(l_module_name,'No of legs :'||num_legs);
11045: WSH_DEBUG_SV.logmsg(l_module_name,'initial_pick_up_date :'||to_char(initial_pick_up_date, 'dd/mm/yyyy hh:mi:ss'));
11046: WSH_DEBUG_SV.logmsg(l_module_name,'ultimate_drop_off_date :'||to_char(ultimate_drop_off_date, 'dd/mm/yyyy hh:mi:ss'));
11047: END IF;
11048:
11049:
11050: rec_cnt := p_cs_mleg_result_tab.FIRST;
11117: --}
11118: ELSE -- transit time is not null
11119: --{
11120: IF l_debug_on THEN
11121: WSH_DEBUG_SV.log(l_module_name, 'transit_time_found', transit_time_found);
11122: WSH_DEBUG_SV.log(l_module_name, 'from_location_id', from_location_id);
11123: WSH_DEBUG_SV.log(l_module_name, 'to_location_id', to_location_id);
11124: WSH_DEBUG_SV.log(l_module_name, 'ship_method', ship_method);
11125: WSH_DEBUG_SV.log(l_module_name, 'transit_time', transit_time);
11118: ELSE -- transit time is not null
11119: --{
11120: IF l_debug_on THEN
11121: WSH_DEBUG_SV.log(l_module_name, 'transit_time_found', transit_time_found);
11122: WSH_DEBUG_SV.log(l_module_name, 'from_location_id', from_location_id);
11123: WSH_DEBUG_SV.log(l_module_name, 'to_location_id', to_location_id);
11124: WSH_DEBUG_SV.log(l_module_name, 'ship_method', ship_method);
11125: WSH_DEBUG_SV.log(l_module_name, 'transit_time', transit_time);
11126: END IF;
11119: --{
11120: IF l_debug_on THEN
11121: WSH_DEBUG_SV.log(l_module_name, 'transit_time_found', transit_time_found);
11122: WSH_DEBUG_SV.log(l_module_name, 'from_location_id', from_location_id);
11123: WSH_DEBUG_SV.log(l_module_name, 'to_location_id', to_location_id);
11124: WSH_DEBUG_SV.log(l_module_name, 'ship_method', ship_method);
11125: WSH_DEBUG_SV.log(l_module_name, 'transit_time', transit_time);
11126: END IF;
11127:
11120: IF l_debug_on THEN
11121: WSH_DEBUG_SV.log(l_module_name, 'transit_time_found', transit_time_found);
11122: WSH_DEBUG_SV.log(l_module_name, 'from_location_id', from_location_id);
11123: WSH_DEBUG_SV.log(l_module_name, 'to_location_id', to_location_id);
11124: WSH_DEBUG_SV.log(l_module_name, 'ship_method', ship_method);
11125: WSH_DEBUG_SV.log(l_module_name, 'transit_time', transit_time);
11126: END IF;
11127:
11128: IF rec_cnt = p_cs_mleg_result_tab.LAST THEN
11121: WSH_DEBUG_SV.log(l_module_name, 'transit_time_found', transit_time_found);
11122: WSH_DEBUG_SV.log(l_module_name, 'from_location_id', from_location_id);
11123: WSH_DEBUG_SV.log(l_module_name, 'to_location_id', to_location_id);
11124: WSH_DEBUG_SV.log(l_module_name, 'ship_method', ship_method);
11125: WSH_DEBUG_SV.log(l_module_name, 'transit_time', transit_time);
11126: END IF;
11127:
11128: IF rec_cnt = p_cs_mleg_result_tab.LAST THEN
11129: drop_off_date := ultimate_drop_off_date;
11158: p_cs_mleg_result_tab(rec_cnt).dropoff_date := drop_off_date;
11159: END IF;
11160:
11161: IF l_debug_on THEN
11162: 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'));
11163: 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'));
11164: END IF;
11165: --}
11166: END IF;
11159: END IF;
11160:
11161: IF l_debug_on THEN
11162: 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'));
11163: 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'));
11164: END IF;
11165: --}
11166: END IF;
11167: --}
11199: p_cs_mleg_result_tab(d_itr).dropoff_date := p_cs_mleg_result_tab(d_itr).dropoff_date + 1/144;
11200: END IF;
11201:
11202: IF l_debug_on THEN
11203: 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);
11204: 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'));
11205: 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);
11206: 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'));
11207: END IF;
11200: END IF;
11201:
11202: IF l_debug_on THEN
11203: 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);
11204: 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'));
11205: 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);
11206: 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'));
11207: END IF;
11208:
11201:
11202: IF l_debug_on THEN
11203: 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);
11204: 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'));
11205: 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);
11206: 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'));
11207: END IF;
11208:
11209: EXIT WHEN d_itr = p_cs_mleg_result_tab.LAST;
11202: IF l_debug_on THEN
11203: 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);
11204: 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'));
11205: 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);
11206: 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'));
11207: END IF;
11208:
11209: EXIT WHEN d_itr = p_cs_mleg_result_tab.LAST;
11210: d_itr := p_cs_mleg_result_tab.NEXT(d_itr);
11213: END IF;
11214: END IF;
11215:
11216: IF l_debug_on THEN
11217: WSH_DEBUG_SV.pop(l_module_name);
11218: END IF;
11219: --}
11220: EXCEPTION
11221:
11229: END IF;
11230:
11231: IF l_debug_on THEN
11232:
11233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11234: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11235:
11236: END IF;
11237:
11230:
11231: IF l_debug_on THEN
11232:
11233: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11234: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11235:
11236: END IF;
11237:
11238: END SET_PICK_UP_DROP_OFF_DATES;
11314: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11315: --
11316: IF l_debug_on IS NULL
11317: THEN
11318: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11319: END IF;
11320: --
11321: --
11322: -- Debug Statements
11321: --
11322: -- Debug Statements
11323: --
11324: IF l_debug_on THEN
11325: WSH_DEBUG_SV.push(l_module_name);
11326: END IF;
11327: --
11328:
11329: IF l_debug_on THEN
11326: END IF;
11327: --
11328:
11329: IF l_debug_on THEN
11330: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_result_tab.COUNT :'||p_cs_result_tab.COUNT);
11331:
11332: END IF;
11333:
11334: IF (p_cs_result_tab.COUNT > 0) THEN
11338: l_prev_org_id := 0;
11339:
11340: fm := p_cs_result_tab.FIRST;
11341: IF l_debug_on THEN
11342: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_result_tab(fm).delivery_id :'||p_cs_result_tab(fm).delivery_id);
11343: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_result_tab(fm).trip_id :'||p_cs_result_tab(fm).trip_id);
11344: END IF;
11345:
11346: LOOP
11339:
11340: fm := p_cs_result_tab.FIRST;
11341: IF l_debug_on THEN
11342: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_result_tab(fm).delivery_id :'||p_cs_result_tab(fm).delivery_id);
11343: WSH_DEBUG_SV.logmsg(l_module_name,'p_cs_result_tab(fm).trip_id :'||p_cs_result_tab(fm).trip_id);
11344: END IF;
11345:
11346: LOOP
11347:
11673: --
11674: -- Debug Statements
11675: --
11676: IF l_debug_on THEN
11677: WSH_DEBUG_SV.pop(l_module_name);
11678: END IF;
11679: --
11680: RETURN;
11681:
11688: --
11689: -- Debug Statements
11690: --
11691: IF l_debug_on THEN
11692: WSH_DEBUG_SV.logmsg(l_module_name, 'THE UNEXPECTED ERROR FROM WSH_NEW_DELIVERY_ACTIONS.FORMAT_DEL_UPDATE_TABLE IS ' ||l_error_text);
11693: END IF;
11694: --
11695: WSH_UTIL_CORE.default_handler('WSH_NEW_DELIVERY_ACTIONS.FORMAT_DEL_UPDATE_TABLE');
11696: WSH_UTIL_CORE.add_message(WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR);
11697: --
11698: -- Debug Statements
11699: --
11700: IF l_debug_on THEN
11701: WSH_DEBUG_SV.pop(l_module_name);
11702: END IF;
11703: --
11704: RETURN;
11705:
11706: --
11707: -- Debug Statements
11708: --
11709: IF l_debug_on THEN
11710: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11711: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11712: END IF;
11713: --
11714: END FORMAT_DEL_UPDATE_TABLE;
11707: -- Debug Statements
11708: --
11709: IF l_debug_on THEN
11710: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11711: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11712: END IF;
11713: --
11714: END FORMAT_DEL_UPDATE_TABLE;
11715:
11929: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11930: --
11931: IF l_debug_on IS NULL
11932: THEN
11933: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11934: END IF;
11935: --
11936: IF l_debug_on THEN
11937: WSH_DEBUG_SV.push(l_module_name);
11933: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
11934: END IF;
11935: --
11936: IF l_debug_on THEN
11937: WSH_DEBUG_SV.push(l_module_name);
11938: --
11939: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11940: WSH_DEBUG_SV.log(l_module_name,'P_FORM_FLAG',P_FORM_FLAG);
11941: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
11935: --
11936: IF l_debug_on THEN
11937: WSH_DEBUG_SV.push(l_module_name);
11938: --
11939: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11940: WSH_DEBUG_SV.log(l_module_name,'P_FORM_FLAG',P_FORM_FLAG);
11941: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
11942: END IF;
11943: --
11936: IF l_debug_on THEN
11937: WSH_DEBUG_SV.push(l_module_name);
11938: --
11939: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11940: WSH_DEBUG_SV.log(l_module_name,'P_FORM_FLAG',P_FORM_FLAG);
11941: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
11942: END IF;
11943: --
11944:
11937: WSH_DEBUG_SV.push(l_module_name);
11938: --
11939: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11940: WSH_DEBUG_SV.log(l_module_name,'P_FORM_FLAG',P_FORM_FLAG);
11941: WSH_DEBUG_SV.log(l_module_name,'P_CALLER',P_CALLER);
11942: END IF;
11943: --
11944:
11945: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11960: --
11961:
11962: IF l_debug_on THEN
11963: --
11964: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11965: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID_TAB.COUNT',p_delivery_id_tab.COUNT);
11966:
11967: END IF;
11968:
11961:
11962: IF l_debug_on THEN
11963: --
11964: WSH_DEBUG_SV.log(l_module_name,'P_BATCH_ID',P_BATCH_ID);
11965: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID_TAB.COUNT',p_delivery_id_tab.COUNT);
11966:
11967: END IF;
11968:
11969: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_INVALID_INPUT');
11972: --
11973: -- Debug Statements
11974: --
11975: IF l_debug_on THEN
11976: WSH_DEBUG_SV.logmsg(l_module_name, 'THE INPUT PARAMETERS ARE INVALID FOR THIS PROCEDURE' );
11977: END IF;
11978: --
11979:
11980: x_return_message := WSH_UTIL_CORE.G_RET_STS_ERROR;
11982: --
11983: -- Debug Statements
11984: --
11985: IF l_debug_on THEN
11986: WSH_DEBUG_SV.pop(l_module_name);
11987: END IF;
11988: --
11989: RETURN;
11990: END IF;
11999: l_messaging_yn := 'N';
12000: l_previous_rows := 0;
12001:
12002: IF l_debug_on THEN
12003: WSH_DEBUG_SV.logmsg(l_module_name,'Using Cursor to get delivery info by batch id' );
12004: END IF;
12005:
12006:
12007: OPEN c_get_del_info_by_batch_id(p_batch_id, p_organization_id);
12020: IF itr IS NOT NULL THEN
12021: LOOP
12022:
12023: IF l_debug_on THEN
12024: 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)|| ' *** ');
12025: END IF;
12026:
12027: OPEN c_get_del_info_by_del_id(p_delivery_id_tab(itr));
12028: FETCH c_get_del_info_by_del_id INTO l_dlvy_info_rec;
12028: FETCH c_get_del_info_by_del_id INTO l_dlvy_info_rec;
12029: CLOSE c_get_del_info_by_del_id;
12030:
12031: /*IF l_debug_on THEN
12032: WSH_DEBUG_SV.logmsg(l_module_name, 'l_dlvy_info_rec.delivery_id: *** : '|| l_dlvy_info_rec.delivery_id);
12033: END IF;*/
12034:
12035: IF (l_dlvy_info_rec.l_delivery_id IS NOT NULL) THEN
12036: l_dlvy_info_tab(l_cnt) := l_dlvy_info_rec;
12048:
12049: l_messaging_yn := 'Y';
12050:
12051: IF l_debug_on THEN
12052: WSH_DEBUG_SV.logmsg(l_module_name,'Getting Information using Form');
12053: WSH_DEBUG_SV.logmsg(l_module_name,'Using Cursor to get delivery information-Number of Deliveries '||p_delivery_id_tab.COUNT);
12054: END IF;
12055:
12056:
12049: l_messaging_yn := 'Y';
12050:
12051: IF l_debug_on THEN
12052: WSH_DEBUG_SV.logmsg(l_module_name,'Getting Information using Form');
12053: WSH_DEBUG_SV.logmsg(l_module_name,'Using Cursor to get delivery information-Number of Deliveries '||p_delivery_id_tab.COUNT);
12054: END IF;
12055:
12056:
12057: FOR i IN p_delivery_id_tab.FIRST..p_delivery_id_tab.LAST LOOP
12056:
12057: FOR i IN p_delivery_id_tab.FIRST..p_delivery_id_tab.LAST LOOP
12058:
12059: IF l_debug_on THEN
12060: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY ID '||p_delivery_id_tab(i));
12061: END IF;
12062:
12063: OPEN c_get_del_info_by_form(p_delivery_id_tab(i));
12064: FETCH c_get_del_info_by_form INTO l_dlvy_info_rec;
12064: FETCH c_get_del_info_by_form INTO l_dlvy_info_rec;
12065: CLOSE c_get_del_info_by_form;
12066:
12067: IF l_debug_on THEN
12068: WSH_DEBUG_SV.logmsg(l_module_name, 'l_dlvy_info_rec.l_delivery_id: '|| l_dlvy_info_rec.l_delivery_id);
12069: END IF;
12070:
12071: IF (l_dlvy_info_rec.l_delivery_id IS NOT NULL) THEN
12072:
12086: --
12087: -- Debug Statements
12088: --
12089: IF l_debug_on THEN
12090: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY '||l_dlvy_info_rec.l_delivery_id||' IS A PLANNED DELIVERY , CARRIER SELECTION IS NOT ALLOWED' );
12091: END IF;
12092: --
12093: -- 11i10+ change
12094: ELSE
12107: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
12108: wsh_util_core.add_message(x_return_status);
12109:
12110: IF l_debug_on THEN
12111: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY '||l_dlvy_info_rec.l_delivery_id||' IS ASSIGNED TO MANY TRIPS, CARRIER SELECTION IS NOT ALLOWED' );
12112: END IF;
12113:
12114: -- Trip to which this delivery is assigned has more than one deliveries
12115: ELSIF (l_trip_status = 'SHARED') THEN
12125: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
12126: wsh_util_core.add_message(x_return_status);
12127:
12128: IF l_debug_on THEN
12129: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY '||l_dlvy_info_rec.l_delivery_id||' IS ASSIGNED TO A SHARED TRIP, CARRIER SELECTION IS NOT ALLOWED' );
12130: END IF;
12131:
12132: -- Trip to which this delivery is assigned has Lane/Service
12133: ELSIF (l_trip_status = 'HAS_LANE') THEN
12143: FND_MESSAGE.Set_Token('DELIVERY_ID',l_dlvy_info_rec.l_delivery_id);
12144: wsh_util_core.add_message(x_return_status);
12145:
12146: IF l_debug_on THEN
12147: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY '||l_dlvy_info_rec.l_delivery_id||' IS ASSIGNED TO A TRIP WITH SERVICE, CARRIER SELECTION IS NOT ALLOWED' );
12148: END IF;
12149:
12150: -- Delivery is not assigned to a trip Or
12151: -- Delivery is assigned to one trip and this trip is not shared with other deliveries
12167:
12168:
12169: IF (l_dlvy_info_tab.COUNT = 0) THEN
12170: IF l_debug_on THEN
12171: WSH_DEBUG_SV.logmsg(l_module_name, 'now exiting');
12172: WSH_DEBUG_SV.pop(l_module_name);
12173: END IF;
12174: RETURN;
12175: END IF;
12168:
12169: IF (l_dlvy_info_tab.COUNT = 0) THEN
12170: IF l_debug_on THEN
12171: WSH_DEBUG_SV.logmsg(l_module_name, 'now exiting');
12172: WSH_DEBUG_SV.pop(l_module_name);
12173: END IF;
12174: RETURN;
12175: END IF;
12176:
12179: i := l_dlvy_info_tab.FIRST;
12180:
12181: LOOP
12182: IF l_debug_on THEN
12183: WSH_DEBUG_SV.logmsg(l_module_name, 'l_cnt : '|| l_cnt);
12184: END IF;
12185: --
12186: -- If delivery is content do not add it.
12187: --
12215: x_return_status => l_return_status);
12216:
12217:
12218: IF l_debug_on THEN
12219: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after get_default_uoms'||l_return_status);
12220: END IF;
12221:
12222: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12223: FND_MESSAGE.SET_NAME('WSH','WSH_DLVY_NO_UOM');
12243: x_site_id => l_carrier_sel_entity_tab(l_cnt).customer_site_id,
12244: x_return_status => l_return_status);
12245:
12246: IF l_debug_on THEN
12247: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after get_ship_to_site '||l_return_status);
12248: END IF;
12249:
12250: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12251: l_carrier_sel_entity_tab.DELETE(l_cnt);
12263: WSH_SHIPPING_PARAMS_PVT.Get(x_param_value_info => l_param_rec ,
12264: x_return_status => l_return_status);
12265:
12266: IF l_debug_on THEN
12267: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after getting shipping params '||l_return_status);
12268: END IF;
12269:
12270: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12271: l_carrier_sel_entity_tab.DELETE(l_cnt);
12283: x_customer_id => l_carrier_sel_entity_tab(l_cnt).customer_id,
12284: x_return_status => l_return_status);
12285:
12286: IF l_debug_on THEN
12287: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after get_ship_to_customer'||l_return_status);
12288: END IF;
12289:
12290: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
12291: l_carrier_sel_entity_tab.DELETE(l_cnt);
12309: END LOOP;
12310:
12311: IF (l_carrier_sel_entity_tab.COUNT=0) THEN
12312: IF l_debug_on THEN
12313: wsh_debug_sv.logmsg(l_module_name, 'None of the selected deliveries have been found as eligible for Carrier Selection');
12314: END IF;
12315: -- All deliveries are content.
12316: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DLVY_ALL_CONTENT');
12317: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12316: FND_MESSAGE.SET_NAME('WSH','WSH_FTE_CS_DLVY_ALL_CONTENT');
12317: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12318: WSH_UTIL_CORE.add_message(x_return_status);
12319: IF l_debug_on THEN
12320: WSH_DEBUG_SV.pop(l_module_name);
12321: END IF;
12322: RETURN;
12323: END IF;
12324:
12384: --
12385: l_delivery_id := l_cs_result_tab(rec_cnt).delivery_id;
12386:
12387: IF l_debug_on THEN
12388: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12389: WSH_DEBUG_SV.log(l_module_name, 'l_prev_delivery_id', l_prev_delivery_id);
12390: WSH_DEBUG_SV.log(l_module_name, 'rec_cnt', rec_cnt);
12391: END IF;
12392:
12385: l_delivery_id := l_cs_result_tab(rec_cnt).delivery_id;
12386:
12387: IF l_debug_on THEN
12388: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12389: WSH_DEBUG_SV.log(l_module_name, 'l_prev_delivery_id', l_prev_delivery_id);
12390: WSH_DEBUG_SV.log(l_module_name, 'rec_cnt', rec_cnt);
12391: END IF;
12392:
12393: -- get the value of trip_id if delivery is assigned to trip
12386:
12387: IF l_debug_on THEN
12388: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12389: WSH_DEBUG_SV.log(l_module_name, 'l_prev_delivery_id', l_prev_delivery_id);
12390: WSH_DEBUG_SV.log(l_module_name, 'rec_cnt', rec_cnt);
12391: END IF;
12392:
12393: -- get the value of trip_id if delivery is assigned to trip
12394: IF l_delivery_id <> l_prev_delivery_id THEN
12430: --{
12431: --l_carrier_sel_result_rec := l_cs_result_tab(rec_cnt);
12432:
12433: IF l_debug_on THEN
12434: WSH_DEBUG_SV.log(l_module_name, 'l_num_ranked_results', l_num_ranked_results);
12435: WSH_DEBUG_SV.log(l_module_name, 'p_caller', p_caller);
12436: WSH_DEBUG_SV.log(l_module_name, 'l_skip_rtng_rule_ac_trip', l_skip_rtng_rule_ac_trip);
12437: WSH_DEBUG_SV.log(l_module_name, 'list_cnt', list_cnt);
12438: END IF;
12431: --l_carrier_sel_result_rec := l_cs_result_tab(rec_cnt);
12432:
12433: IF l_debug_on THEN
12434: WSH_DEBUG_SV.log(l_module_name, 'l_num_ranked_results', l_num_ranked_results);
12435: WSH_DEBUG_SV.log(l_module_name, 'p_caller', p_caller);
12436: WSH_DEBUG_SV.log(l_module_name, 'l_skip_rtng_rule_ac_trip', l_skip_rtng_rule_ac_trip);
12437: WSH_DEBUG_SV.log(l_module_name, 'list_cnt', list_cnt);
12438: END IF;
12439:
12432:
12433: IF l_debug_on THEN
12434: WSH_DEBUG_SV.log(l_module_name, 'l_num_ranked_results', l_num_ranked_results);
12435: WSH_DEBUG_SV.log(l_module_name, 'p_caller', p_caller);
12436: WSH_DEBUG_SV.log(l_module_name, 'l_skip_rtng_rule_ac_trip', l_skip_rtng_rule_ac_trip);
12437: WSH_DEBUG_SV.log(l_module_name, 'list_cnt', list_cnt);
12438: END IF;
12439:
12440: --
12433: IF l_debug_on THEN
12434: WSH_DEBUG_SV.log(l_module_name, 'l_num_ranked_results', l_num_ranked_results);
12435: WSH_DEBUG_SV.log(l_module_name, 'p_caller', p_caller);
12436: WSH_DEBUG_SV.log(l_module_name, 'l_skip_rtng_rule_ac_trip', l_skip_rtng_rule_ac_trip);
12437: WSH_DEBUG_SV.log(l_module_name, 'list_cnt', list_cnt);
12438: END IF;
12439:
12440: --
12441: -- 1. For Manual flow, append_flag is always set to 'Y'
12465: --}
12466: END IF;
12467:
12468: IF l_debug_on THEN
12469: WSH_DEBUG_SV.log(l_module_name, 'append_flag', l_cs_result_tab(rec_cnt).append_flag);
12470: END IF;
12471: */ -- Hiding project
12472:
12473: IF l_trip_id IS NULL THEN
12482: l_carrier_sel_result_rec.dropoff_date := l_carrier_sel_result_rec.dropoff_date+(1/144);
12483: END IF;
12484:
12485: IF l_debug_on THEN
12486: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(rec_cnt).pickup_date '||l_cs_result_tab(rec_cnt).pickup_date);
12487: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(rec_cnt).dropoff_date '||l_cs_result_tab(rec_cnt).dropoff_date);
12488: END IF;
12489: --
12490: -- Since delivery not assigned to any trip( trip_id is null), and rank = 1, Create trip for the delivery
12483: END IF;
12484:
12485: IF l_debug_on THEN
12486: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(rec_cnt).pickup_date '||l_cs_result_tab(rec_cnt).pickup_date);
12487: WSH_DEBUG_SV.logmsg(l_module_name,'l_cs_result_tab(rec_cnt).dropoff_date '||l_cs_result_tab(rec_cnt).dropoff_date);
12488: END IF;
12489: --
12490: -- Since delivery not assigned to any trip( trip_id is null), and rank = 1, Create trip for the delivery
12491: --
12503: END IF;
12504: END IF;
12505:
12506: IF l_debug_on THEN
12507: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after calling CREATE_SEL_CREATE_TRIP '||x_return_status);
12508: WSH_DEBUG_SV.logmsg(l_module_name,'Trip_id '||l_trip_id);
12509: END IF;
12510:
12511: l_ranked_list.DELETE;
12504: END IF;
12505:
12506: IF l_debug_on THEN
12507: WSH_DEBUG_SV.logmsg(l_module_name,'Return Status after calling CREATE_SEL_CREATE_TRIP '||x_return_status);
12508: WSH_DEBUG_SV.logmsg(l_module_name,'Trip_id '||l_trip_id);
12509: END IF;
12510:
12511: l_ranked_list.DELETE;
12512: list_cnt := 1;
12525: l_ranked_list(list_cnt).IS_CURRENT := 'Y';
12526: l_ranked_list(list_cnt).CALL_RG_FLAG := 'N';
12527:
12528: IF l_debug_on THEN
12529: WSH_DEBUG_SV.logmsg(l_module_name,'Populated Ranked List for rank #1');
12530: END IF;
12531:
12532: --
12533: -- set l_cs_result_tab(rec_cnt) := NULL so that this record is not updated in
12603: --}
12604: END IF;
12605:
12606: IF l_debug_on THEN
12607: WSH_DEBUG_SV.log(l_module_name, 'l_ranked_list(list_cnt).CALL_RG_FLAG', l_ranked_list(list_cnt).CALL_RG_FLAG);
12608: END IF;
12609: --}
12610: END IF;
12611: --
12624: IF p_caller <> 'WSH_AUTO_CREATE_DEL_TRIP' OR
12625: (p_caller = 'WSH_AUTO_CREATE_DEL_TRIP' AND l_skip_rtng_rule_ac_trip <> 'Y') THEN
12626:
12627: IF l_debug_on THEN
12628: WSH_DEBUG_SV.logmsg(l_module_name, 'calling RANK_LIST_ACTION');
12629: END IF;
12630:
12631: WSH_FTE_INTEGRATION.RANK_LIST_ACTION(
12632: --p_api_version_number => 1.0,
12668:
12669: l_cs_result_tab(rec_cnt) := NULL;
12670:
12671: IF l_debug_on THEN
12672: WSH_DEBUG_SV.logmsg(l_module_name,'DELIVERY '||l_delivery_id || ' IS ALREADY ASSIGNED TO TRIP '||l_trip_id);
12673: END IF;
12674: --}
12675: ELSIF p_caller = 'WSH_AUTO_CREATE_DEL_TRIP' AND l_skip_rtng_rule_ac_trip = 'Y' THEN
12676: --{
12691: i := 1;
12692: j := 1;
12693:
12694: IF l_debug_on THEN
12695: WSH_DEBUG_SV.logmsg(l_module_name,'l_start_index '||l_start_index);
12696: END IF;
12697: --
12698: -- For multileg results, first we need to get all the legs for a delivery
12699: -- in l_cs_mleg_result_tab. Then set pick up and drop off dates for leg pick
12719:
12720: l_end_index := rec_cnt;
12721:
12722: IF l_debug_on THEN
12723: WSH_DEBUG_SV.logmsg(l_module_name,'l_end_index '||l_end_index);
12724: END IF;
12725:
12726: SET_PICK_UP_DROP_OFF_DATES(
12727: p_cs_mleg_result_tab => l_cs_mleg_result_tab,
12739: l_cs_result_tab(j).pickup_date := l_cs_mleg_result_tab(k).pickup_date;
12740: l_cs_result_tab(j).dropoff_date := l_cs_mleg_result_tab(k).dropoff_date;
12741:
12742: IF l_debug_on THEN
12743: 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'));
12744: 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);
12745: 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'));
12746: 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);
12747: END IF;
12740: l_cs_result_tab(j).dropoff_date := l_cs_mleg_result_tab(k).dropoff_date;
12741:
12742: IF l_debug_on THEN
12743: 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'));
12744: 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);
12745: 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'));
12746: 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);
12747: END IF;
12748:
12741:
12742: IF l_debug_on THEN
12743: 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'));
12744: 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);
12745: 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'));
12746: 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);
12747: END IF;
12748:
12749: l_carrier_sel_result_rec := l_cs_result_tab(j);
12742: IF l_debug_on THEN
12743: 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'));
12744: 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);
12745: 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'));
12746: 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);
12747: END IF;
12748:
12749: l_carrier_sel_result_rec := l_cs_result_tab(j);
12750: WSH_FTE_INTEGRATION.CARRIER_SEL_CREATE_TRIP(
12810: END IF;
12811: --}
12812: END IF;
12813: IF l_debug_on THEN
12814: WSH_DEBUG_SV.logmsg(l_module_name, 'set l_prev_delivery_id and l_prev_trip_id');
12815: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12816: WSH_DEBUG_SV.log(l_module_name, 'l_trip_id', l_trip_id);
12817: END IF;
12818: l_prev_delivery_id := l_delivery_id;
12811: --}
12812: END IF;
12813: IF l_debug_on THEN
12814: WSH_DEBUG_SV.logmsg(l_module_name, 'set l_prev_delivery_id and l_prev_trip_id');
12815: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12816: WSH_DEBUG_SV.log(l_module_name, 'l_trip_id', l_trip_id);
12817: END IF;
12818: l_prev_delivery_id := l_delivery_id;
12819: l_prev_trip_id := l_trip_id;
12812: END IF;
12813: IF l_debug_on THEN
12814: WSH_DEBUG_SV.logmsg(l_module_name, 'set l_prev_delivery_id and l_prev_trip_id');
12815: WSH_DEBUG_SV.log(l_module_name, 'l_delivery_id', l_delivery_id);
12816: WSH_DEBUG_SV.log(l_module_name, 'l_trip_id', l_trip_id);
12817: END IF;
12818: l_prev_delivery_id := l_delivery_id;
12819: l_prev_trip_id := l_trip_id;
12820:
12861: --
12862: -- Debug Statements
12863: --
12864: IF l_debug_on THEN
12865: WSH_DEBUG_SV.logmsg(l_module_name, 'CARRIER SELECTION - AUTO CREATE - COULD NOT UPDATE DELIVERY');
12866: END IF;
12867: --
12868: x_return_message := l_msg_data;
12869:
12867: --
12868: x_return_message := l_msg_data;
12869:
12870: IF l_debug_on THEN
12871: WSH_DEBUG_SV.pop(l_module_name);
12872: END IF;
12873: --
12874: RETURN;
12875: END IF;
12902: --
12903: -- Debug Statements
12904: --
12905: IF l_debug_on THEN
12906: WSH_DEBUG_SV.logmsg(l_module_name, 'CARRIER SELECTION - FORM MANUAL - COULD NOT UPDATE TRIP');
12907: END IF;
12908: --
12909: x_return_message := l_msg_data;
12910: --
12912: --
12913: -- Debug Statements
12914: --
12915: IF l_debug_on THEN
12916: WSH_DEBUG_SV.pop(l_module_name);
12917: END IF;
12918: --
12919: RETURN;
12920: END IF;
12926: --
12927: -- Debug Statements
12928: --
12929: IF l_debug_on THEN
12930: WSH_DEBUG_SV.pop(l_module_name);
12931: END IF;
12932: --
12933: EXCEPTION
12934: WHEN OTHERS THEN
12940: x_return_message := l_error_text;
12941:
12942:
12943: IF l_debug_on THEN
12944: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12945: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12946: END IF;
12947: --
12948: END PROCESS_CARRIER_SELECTION;
12941:
12942:
12943: IF l_debug_on THEN
12944: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12945: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12946: END IF;
12947: --
12948: END PROCESS_CARRIER_SELECTION;
12949: --SBAKSHI(R12)
13117: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
13118: --
13119: IF l_debug_on IS NULL
13120: THEN
13121: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13122: END IF;
13123: --
13124: IF l_debug_on THEN
13125: wsh_debug_sv.push (l_module_name);
13121: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13122: END IF;
13123: --
13124: IF l_debug_on THEN
13125: wsh_debug_sv.push (l_module_name);
13126: WSH_DEBUG_SV.log(l_module_name,'p_parent_del_id', p_parent_del_id);
13127: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13128: END IF;
13129:
13122: END IF;
13123: --
13124: IF l_debug_on THEN
13125: wsh_debug_sv.push (l_module_name);
13126: WSH_DEBUG_SV.log(l_module_name,'p_parent_del_id', p_parent_del_id);
13127: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13128: END IF;
13129:
13130: OPEN c_check_valid_parent(p_parent_del_id);
13123: --
13124: IF l_debug_on THEN
13125: wsh_debug_sv.push (l_module_name);
13126: WSH_DEBUG_SV.log(l_module_name,'p_parent_del_id', p_parent_del_id);
13127: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13128: END IF;
13129:
13130: OPEN c_check_valid_parent(p_parent_del_id);
13131: FETCH c_check_valid_parent INTO l_parent_trip_rec;
13142:
13143: i := p_del_tab.FIRST;
13144:
13145: IF l_debug_on THEN
13146: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
13147: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.first', p_del_tab.first);
13148: END IF;
13149: WHILE i IS NOT NULL LOOP
13150:
13143: i := p_del_tab.FIRST;
13144:
13145: IF l_debug_on THEN
13146: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
13147: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.first', p_del_tab.first);
13148: END IF;
13149: WHILE i IS NOT NULL LOOP
13150:
13151: IF l_debug_on THEN
13148: END IF;
13149: WHILE i IS NOT NULL LOOP
13150:
13151: IF l_debug_on THEN
13152: WSH_DEBUG_SV.log(l_module_name,'delivery: '||i, p_del_tab(i).delivery_id);
13153: WSH_DEBUG_SV.log(l_module_name,'initial_pickup_location_id: '||i, p_del_tab(i).initial_pickup_location_id);
13154: WSH_DEBUG_SV.log(l_module_name,'l_parent_trip_rec.pickup_stop_location: '||i, l_parent_trip_rec.pickup_stop_location);
13155: END IF;
13156:
13149: WHILE i IS NOT NULL LOOP
13150:
13151: IF l_debug_on THEN
13152: WSH_DEBUG_SV.log(l_module_name,'delivery: '||i, p_del_tab(i).delivery_id);
13153: WSH_DEBUG_SV.log(l_module_name,'initial_pickup_location_id: '||i, p_del_tab(i).initial_pickup_location_id);
13154: WSH_DEBUG_SV.log(l_module_name,'l_parent_trip_rec.pickup_stop_location: '||i, l_parent_trip_rec.pickup_stop_location);
13155: END IF;
13156:
13157: IF p_del_tab(i).initial_pickup_location_id = l_parent_trip_rec.pickup_stop_location THEN
13150:
13151: IF l_debug_on THEN
13152: WSH_DEBUG_SV.log(l_module_name,'delivery: '||i, p_del_tab(i).delivery_id);
13153: WSH_DEBUG_SV.log(l_module_name,'initial_pickup_location_id: '||i, p_del_tab(i).initial_pickup_location_id);
13154: WSH_DEBUG_SV.log(l_module_name,'l_parent_trip_rec.pickup_stop_location: '||i, l_parent_trip_rec.pickup_stop_location);
13155: END IF;
13156:
13157: IF p_del_tab(i).initial_pickup_location_id = l_parent_trip_rec.pickup_stop_location THEN
13158:
13159: OPEN c_check_valid_child(p_del_tab(i).delivery_id);
13160: FETCH c_check_valid_child INTO l_dummy_child;
13161: IF c_check_valid_child%FOUND THEN
13162: IF l_debug_on THEN
13163: WSH_DEBUG_SV.log(l_module_name,'l_dummy_child', l_dummy_child);
13164: END IF;
13165:
13166: CLOSE c_check_valid_child;
13167: OPEN c_check_trips(p_del_tab(i).delivery_id);
13202:
13203: ELSE
13204: l_unassign_dels(1) := p_del_tab(i).delivery_id;
13205: IF l_debug_on THEN
13206: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TRIPS_ACTIONS.Unassign_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
13207: END IF;
13208: WSH_TRIPS_ACTIONS.Unassign_Trip(p_del_rows => l_unassign_dels,
13209: p_trip_id => l_parent_trip_rec.trip_id,
13210: x_return_status => l_return_status);
13279: --
13280: -- Debug Statements
13281: --
13282: IF l_debug_on THEN
13283: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13284: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13285: END IF;
13286: RETURN;
13287: --
13280: -- Debug Statements
13281: --
13282: IF l_debug_on THEN
13283: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13284: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13285: END IF;
13286: RETURN;
13287: --
13288: END;
13371:
13372: IF l_child_del_trips.count > 0 THEN
13373:
13374: IF l_debug_on THEN
13375: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.change_ignoreplan_status',WSH_DEBUG_SV.C_PROC_LEVEL);
13376: END IF;
13377: WSH_TP_RELEASE.change_ignoreplan_status
13378: (p_entity => 'TRIP',
13379: p_in_ids => l_child_del_trips,
13389: END IF;
13390:
13391: IF l_change_plan_dels.count > 0 THEN
13392: IF l_debug_on THEN
13393: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.change_ignoreplan_status',WSH_DEBUG_SV.C_PROC_LEVEL);
13394: END IF;
13395: WSH_TP_RELEASE.change_ignoreplan_status
13396: (p_entity => 'DLVY',
13397: p_in_ids => l_change_plan_dels,
13408:
13409: END IF;
13410:
13411: IF l_debug_on THEN
13412: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TRIPS_ACTIONS.assign_trip for ignore plan = N',WSH_DEBUG_SV.C_PROC_LEVEL);
13413: END IF;
13414: WSH_TRIPS_ACTIONS.assign_trip(
13415: p_del_rows => l_include_plan_dels,
13416: p_trip_id => l_trip_id_tab(1),
13440: INTO l_trip_id_tab;
13441: CLOSE c_get_trip_siblings;
13442:
13443: IF l_debug_on THEN
13444: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TP_RELEASE.change_ignoreplan_status',WSH_DEBUG_SV.C_PROC_LEVEL);
13445: END IF;
13446: WSH_TP_RELEASE.change_ignoreplan_status
13447: (p_entity => 'TRIP',
13448: p_in_ids => l_trip_id_tab,
13459: END IF;
13460: IF l_ignore_plan_dels.count > 0 THEN
13461:
13462: IF l_debug_on THEN
13463: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_TRIPS_ACTIONS.assign_trip for ignore plan = Y',WSH_DEBUG_SV.C_PROC_LEVEL);
13464: END IF;
13465:
13466: WSH_TRIPS_ACTIONS.assign_trip(
13467: p_del_rows => l_ignore_plan_dels,
13501: --
13502: -- Debug Statements
13503: --
13504: IF l_debug_on THEN
13505: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13506: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13507: END IF;
13508: RETURN;
13509: --
13502: -- Debug Statements
13503: --
13504: IF l_debug_on THEN
13505: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13506: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
13507: END IF;
13508: RETURN;
13509: --
13510: END;
13521: -- We recalculate the wt/vol of delivery during the assignment of
13522: -- consol lpns, so no need to do it here for WMS.
13523:
13524: IF l_debug_on THEN
13525: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.Delivery_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
13526: END IF;
13527: WSH_WV_UTILS.Delivery_Weight_Volume
13528: ( p_delivery_id => p_parent_del_id,
13529: p_update_flag => 'Y',
13576: END IF;
13577:
13578:
13579: IF l_debug_on THEN
13580: wsh_debug_sv.pop(l_module_name);
13581: END IF;
13582:
13583: EXCEPTION
13584: WHEN FND_API.G_EXC_ERROR THEN
13603: --
13604: -- Debug Statements
13605: --
13606: IF l_debug_on THEN
13607: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13608: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
13609: END IF;
13610:
13611: WHEN WSH_INVALID_TRIP THEN
13604: -- Debug Statements
13605: --
13606: IF l_debug_on THEN
13607: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13608: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
13609: END IF;
13610:
13611: WHEN WSH_INVALID_TRIP THEN
13612: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13630: --
13631: -- Debug Statements
13632: --
13633: IF l_debug_on THEN
13634: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_TRIP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13635:
13636: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_TRIP');
13637: END IF;
13638:
13632: --
13633: IF l_debug_on THEN
13634: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_TRIP exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13635:
13636: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_TRIP');
13637: END IF;
13638:
13639: WHEN WSH_INVALID_DECONSOL_POINT THEN
13640: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13658: --
13659: -- Debug Statements
13660: --
13661: IF l_debug_on THEN
13662: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_DECONSOL_POINT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13663:
13664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_DECONSOL_POINT');
13665: END IF;
13666:
13660: --
13661: IF l_debug_on THEN
13662: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_DECONSOL_POINT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13663:
13664: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_DECONSOL_POINT');
13665: END IF;
13666:
13667: WHEN WSH_INVALID_CHILDREN THEN
13668: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13686: --
13687: -- Debug Statements
13688: --
13689: IF l_debug_on THEN
13690: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILDREN exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13691:
13692: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILDREN');
13693: END IF;
13694:
13688: --
13689: IF l_debug_on THEN
13690: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILDREN exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13691:
13692: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILDREN');
13693: END IF;
13694:
13695: WHEN WSH_INVALID_PARENT THEN
13696: IF c_check_trips%ISOPEN THEN
13714: --
13715: -- Debug Statements
13716: --
13717: IF l_debug_on THEN
13718: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_PARENT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13719:
13720: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_PARENT');
13721: END IF;
13722: --
13716: --
13717: IF l_debug_on THEN
13718: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_PARENT exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13719:
13720: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_PARENT');
13721: END IF;
13722: --
13723:
13724: WHEN WSH_FAIL_ASSIGN_DEL_TO_CONSOL THEN
13743: --
13744: -- Debug Statements
13745: --
13746: IF l_debug_on THEN
13747: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FAIL_ASSIGN_DEL_TO_CONSOL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13748:
13749: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_FAIL_ASSIGN_DEL_TO_CONSOL');
13750: END IF;
13751: --
13745: --
13746: IF l_debug_on THEN
13747: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_FAIL_ASSIGN_DEL_TO_CONSOL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13748:
13749: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_FAIL_ASSIGN_DEL_TO_CONSOL');
13750: END IF;
13751: --
13752:
13753:
13769: END IF;
13770: wsh_util_core.default_handler('wsh_new_delivery_actions.Assign_Del_to_Consol_Del',l_module_name);
13771: --
13772: IF l_debug_on THEN
13773: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
13774: END IF;
13775:
13776: END Assign_Del_to_Consol_Del;
13777:
13882: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
13883: --
13884: IF l_debug_on IS NULL
13885: THEN
13886: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13887: END IF;
13888: --
13889: IF l_debug_on THEN
13890: wsh_debug_sv.push (l_module_name);
13886: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
13887: END IF;
13888: --
13889: IF l_debug_on THEN
13890: wsh_debug_sv.push (l_module_name);
13891: WSH_DEBUG_SV.log(l_module_name,'p_parent_del', p_parent_del);
13892: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13893: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
13894: END IF;
13887: END IF;
13888: --
13889: IF l_debug_on THEN
13890: wsh_debug_sv.push (l_module_name);
13891: WSH_DEBUG_SV.log(l_module_name,'p_parent_del', p_parent_del);
13892: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13893: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
13894: END IF;
13895:
13888: --
13889: IF l_debug_on THEN
13890: wsh_debug_sv.push (l_module_name);
13891: WSH_DEBUG_SV.log(l_module_name,'p_parent_del', p_parent_del);
13892: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13893: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
13894: END IF;
13895:
13896: IF p_del_tab.count = 0 and p_parent_del IS NULL THEN
13889: IF l_debug_on THEN
13890: wsh_debug_sv.push (l_module_name);
13891: WSH_DEBUG_SV.log(l_module_name,'p_parent_del', p_parent_del);
13892: WSH_DEBUG_SV.log(l_module_name,'p_caller', p_caller);
13893: WSH_DEBUG_SV.log(l_module_name,'p_del_tab.count', p_del_tab.count);
13894: END IF;
13895:
13896: IF p_del_tab.count = 0 and p_parent_del IS NULL THEN
13897:
13913:
13914: l_parent_dels_tab(1) := p_parent_del;
13915: l_trip_tab(1) := l_trip_tab_dummy(1);
13916: IF l_debug_on THEN
13917: WSH_DEBUG_SV.log(l_module_name,'l_assigned_dels_tab(1)', l_assigned_dels_tab(1));
13918: WSH_DEBUG_SV.log(l_module_name,'l_child_legs_tab(1)', l_child_legs_tab(1));
13919: WSH_DEBUG_SV.log(l_module_name,'l_parent_dels_tab(1)', l_parent_dels_tab(1));
13920: WSH_DEBUG_SV.log(l_module_name,'l_trip_tab(1)', l_trip_tab(1));
13921: END IF;
13914: l_parent_dels_tab(1) := p_parent_del;
13915: l_trip_tab(1) := l_trip_tab_dummy(1);
13916: IF l_debug_on THEN
13917: WSH_DEBUG_SV.log(l_module_name,'l_assigned_dels_tab(1)', l_assigned_dels_tab(1));
13918: WSH_DEBUG_SV.log(l_module_name,'l_child_legs_tab(1)', l_child_legs_tab(1));
13919: WSH_DEBUG_SV.log(l_module_name,'l_parent_dels_tab(1)', l_parent_dels_tab(1));
13920: WSH_DEBUG_SV.log(l_module_name,'l_trip_tab(1)', l_trip_tab(1));
13921: END IF;
13922: ELSE
13915: l_trip_tab(1) := l_trip_tab_dummy(1);
13916: IF l_debug_on THEN
13917: WSH_DEBUG_SV.log(l_module_name,'l_assigned_dels_tab(1)', l_assigned_dels_tab(1));
13918: WSH_DEBUG_SV.log(l_module_name,'l_child_legs_tab(1)', l_child_legs_tab(1));
13919: WSH_DEBUG_SV.log(l_module_name,'l_parent_dels_tab(1)', l_parent_dels_tab(1));
13920: WSH_DEBUG_SV.log(l_module_name,'l_trip_tab(1)', l_trip_tab(1));
13921: END IF;
13922: ELSE
13923:
13916: IF l_debug_on THEN
13917: WSH_DEBUG_SV.log(l_module_name,'l_assigned_dels_tab(1)', l_assigned_dels_tab(1));
13918: WSH_DEBUG_SV.log(l_module_name,'l_child_legs_tab(1)', l_child_legs_tab(1));
13919: WSH_DEBUG_SV.log(l_module_name,'l_parent_dels_tab(1)', l_parent_dels_tab(1));
13920: WSH_DEBUG_SV.log(l_module_name,'l_trip_tab(1)', l_trip_tab(1));
13921: END IF;
13922: ELSE
13923:
13924: -- Check if the deliveries are assigned to parent dels.
13943: -- and WSH cannot unpack from WMS orgs.
13944:
13945: FOR i in 1..l_assigned_dels_tab.count LOOP
13946: IF l_debug_on THEN
13947: WSH_DEBUG_SV.log(l_module_name,'looping thru del: ', l_assigned_dels_tab(i));
13948: END IF;
13949:
13950: OPEN check_consol_lpns(l_assigned_dels_tab(i));
13951: FETCH check_consol_lpns INTO l_consol_lpn_dummy;
13964: END IF;
13965: CLOSE check_consol_lpns;
13966:
13967: IF l_debug_on THEN
13968: WSH_DEBUG_SV.log(l_module_name,'after looping thru del: ', l_assigned_dels_tab(i));
13969: END IF;
13970:
13971: END LOOP;
13972:
13994: --
13995: -- Debug Statements
13996: --
13997: IF l_debug_on THEN
13998: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13999: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
14000: END IF;
14001: RETURN;
14002: --
13995: -- Debug Statements
13996: --
13997: IF l_debug_on THEN
13998: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13999: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
14000: END IF;
14001: RETURN;
14002: --
14003: END;
14023: IF p_parent_del IS NOT NULL THEN
14024:
14025: l_distinct_parent_dels_tab(1) := p_parent_del;
14026: IF l_debug_on THEN
14027: WSH_DEBUG_SV.log(l_module_name,'only parent ', l_distinct_parent_dels_tab(1));
14028: END IF;
14029:
14030: ELSE
14031:
14035:
14036: k := k + 1;
14037: l_distinct_parent_dels_tab(k) := l_parent_dels_tab(i);
14038: IF l_debug_on THEN
14039: WSH_DEBUG_SV.log(l_module_name,'distinct parents ', l_distinct_parent_dels_tab(k));
14040: END IF;
14041:
14042: END IF;
14043:
14064: --
14065: -- Debug Statements
14066: --
14067: IF l_debug_on THEN
14068: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14069: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
14070: END IF;
14071: RETURN;
14072: --
14065: -- Debug Statements
14066: --
14067: IF l_debug_on THEN
14068: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14069: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
14070: END IF;
14071: RETURN;
14072: --
14073: END;
14079:
14080:
14081: -- Separate the empty parent deliveries.
14082: IF l_debug_on THEN
14083: WSH_DEBUG_SV.log(l_module_name,'l_distinct_parent_dels_tab.count ', l_distinct_parent_dels_tab.count);
14084: END IF;
14085:
14086: FOR i in 1..l_distinct_parent_dels_tab.count LOOP
14087: IF l_debug_on THEN
14084: END IF;
14085:
14086: FOR i in 1..l_distinct_parent_dels_tab.count LOOP
14087: IF l_debug_on THEN
14088: WSH_DEBUG_SV.log(l_module_name,'loop thru del: ', l_distinct_parent_dels_tab(i));
14089: END IF;
14090:
14091: OPEN c_check_children_exists(l_distinct_parent_dels_tab(i));
14092: FETCH c_check_children_exists INTO l_dummy_id;
14093: IF c_check_children_exists%FOUND THEN
14094: l := l + 1;
14095: l_remaining_parent_dels(l) := l_distinct_parent_dels_tab(i);
14096: IF l_debug_on THEN
14097: WSH_DEBUG_SV.log(l_module_name,'l_remaining_parent_dels ', l_remaining_parent_dels(l));
14098: END IF;
14099: ELSE
14100: m := m + 1;
14101: l_delete_parent_dels(m) := l_distinct_parent_dels_tab(i);
14099: ELSE
14100: m := m + 1;
14101: l_delete_parent_dels(m) := l_distinct_parent_dels_tab(i);
14102: IF l_debug_on THEN
14103: WSH_DEBUG_SV.log(l_module_name,'l_delete_parent_dels ', l_delete_parent_dels(m));
14104: END IF;
14105: END IF;
14106: CLOSE c_check_children_exists;
14107:
14112:
14113: IF l_delete_parent_dels.count > 0 THEN
14114:
14115: IF l_debug_on THEN
14116: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.Delete',WSH_DEBUG_SV.C_PROC_LEVEL);
14117: END IF;
14118:
14119:
14120: WSH_UTIL_CORE.Delete(
14135: IF l_remaining_parent_dels.count > 0 THEN
14136: -- Update the wt/vol on the remaining parents.
14137:
14138: IF l_debug_on THEN
14139: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_WV_UTILS.Delivery_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
14140: END IF;
14141:
14142: FOR i in 1..l_remaining_parent_dels.count LOOP
14143:
14194: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14195: END IF;
14196:
14197: IF l_debug_on THEN
14198: WSH_DEBUG_SV.pop(l_module_name);
14199: END IF;
14200:
14201: EXCEPTION
14202: WHEN FND_API.G_EXC_ERROR THEN
14204: --
14205: -- Debug Statements
14206: --
14207: IF l_debug_on THEN
14208: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14209: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14210: END IF;
14211: --
14212:
14205: -- Debug Statements
14206: --
14207: IF l_debug_on THEN
14208: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14209: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14210: END IF;
14211: --
14212:
14213: WHEN WSH_NO_OPEN_CHILD_DELIVERIES THEN
14217: --
14218: -- Debug Statements
14219: --
14220: IF l_debug_on THEN
14221: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_OPEN_CHILD_DELIVERIES exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14222:
14223: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_OPEN_CHILD_DELIVERIES');
14224: END IF;
14225: --
14219: --
14220: IF l_debug_on THEN
14221: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_NO_OPEN_CHILD_DELIVERIES exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14222:
14223: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_NO_OPEN_CHILD_DELIVERIES');
14224: END IF;
14225: --
14226:
14227: WHEN WSH_INVALID_CHILD_DELIVERIES THEN
14231: --
14232: -- Debug Statements
14233: --
14234: IF l_debug_on THEN
14235: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILD_DELIVERIES exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14236:
14237: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILD_DELIVERIES');
14238: END IF;
14239: --
14233: --
14234: IF l_debug_on THEN
14235: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_INVALID_CHILD_DELIVERIES exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14236:
14237: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_INVALID_CHILD_DELIVERIES');
14238: END IF;
14239: --
14240: WHEN OTHERS THEN
14241: wsh_util_core.default_handler('wsh_new_delivery_actions.Unassign_Dels_from_Consol_Del',l_module_name);
14256: CLOSE check_consol_lpns;
14257: END IF;
14258: --
14259: IF l_debug_on THEN
14260: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14261: END IF;
14262:
14263: END Unassign_Dels_from_Consol_Del;
14264:
14326: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
14327: --
14328: IF l_debug_on IS NULL
14329: THEN
14330: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14331: END IF;
14332: --
14333: IF l_debug_on THEN
14334: wsh_debug_sv.push (l_module_name);
14330: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14331: END IF;
14332: --
14333: IF l_debug_on THEN
14334: wsh_debug_sv.push (l_module_name);
14335: END IF;
14336:
14337: -- bug 4505105
14338: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14343: -- may contain duplicates.
14344: i := p_consol_del_tab.FIRST;
14345: WHILE i IS NOT NULL LOOP
14346: IF l_debug_on THEN
14347: WSH_DEBUG_SV.logmsg(l_module_name,'Inside WHILE i IS NOT NULL LOOP');
14348: END IF;
14349: l_exists_flag := 'N';
14350: FOR k in 1..l_u_consol_del_tab.count LOOP
14351: IF l_debug_on THEN
14348: END IF;
14349: l_exists_flag := 'N';
14350: FOR k in 1..l_u_consol_del_tab.count LOOP
14351: IF l_debug_on THEN
14352: WSH_DEBUG_SV.logmsg(l_module_name,'Inside FOR k in 1..l_u_consol_del_tab.count LOOP');
14353: END IF;
14354: IF l_u_consol_del_tab(k) = p_consol_del_tab(i) THEN
14355: l_exists_flag := 'Y';
14356: EXIT;
14356: EXIT;
14357: END IF;
14358: END LOOP;
14359: IF l_debug_on THEN
14360: WSH_DEBUG_SV.logmsg(l_module_name,'after FOR k in 1..l_u_consol_del_tab.count LOOP');
14361: END IF;
14362: IF l_exists_flag = 'N' THEN
14363: IF l_debug_on THEN
14364: WSH_DEBUG_SV.log(l_module_name,'i is', i);
14360: WSH_DEBUG_SV.logmsg(l_module_name,'after FOR k in 1..l_u_consol_del_tab.count LOOP');
14361: END IF;
14362: IF l_exists_flag = 'N' THEN
14363: IF l_debug_on THEN
14364: WSH_DEBUG_SV.log(l_module_name,'i is', i);
14365: WSH_DEBUG_SV.log(l_module_name,'p_consol_del_tab(i)', p_consol_del_tab(i));
14366: WSH_DEBUG_SV.log(l_module_name,'l_u_consol_del_tab.count', l_u_consol_del_tab.count);
14367: END IF;
14368: l_u_consol_del_tab(l_u_consol_del_tab.count + 1) := p_consol_del_tab(i);
14361: END IF;
14362: IF l_exists_flag = 'N' THEN
14363: IF l_debug_on THEN
14364: WSH_DEBUG_SV.log(l_module_name,'i is', i);
14365: WSH_DEBUG_SV.log(l_module_name,'p_consol_del_tab(i)', p_consol_del_tab(i));
14366: WSH_DEBUG_SV.log(l_module_name,'l_u_consol_del_tab.count', l_u_consol_del_tab.count);
14367: END IF;
14368: l_u_consol_del_tab(l_u_consol_del_tab.count + 1) := p_consol_del_tab(i);
14369: OPEN c_check_close_consol(p_consol_del_tab(i));
14362: IF l_exists_flag = 'N' THEN
14363: IF l_debug_on THEN
14364: WSH_DEBUG_SV.log(l_module_name,'i is', i);
14365: WSH_DEBUG_SV.log(l_module_name,'p_consol_del_tab(i)', p_consol_del_tab(i));
14366: WSH_DEBUG_SV.log(l_module_name,'l_u_consol_del_tab.count', l_u_consol_del_tab.count);
14367: END IF;
14368: l_u_consol_del_tab(l_u_consol_del_tab.count + 1) := p_consol_del_tab(i);
14369: OPEN c_check_close_consol(p_consol_del_tab(i));
14370: FETCH c_check_close_consol INTO l_delivery_id;
14388: l_del_valid_flag,
14389: l_return_status);
14390:
14391: IF l_debug_on THEN
14392: WSH_DEBUG_SV.log(l_module_name,'l_return_status after calling validate_del_containers', l_return_status);
14393: END IF;
14394:
14395: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
14396: RAISE FND_API.G_EXC_ERROR;
14406: --
14407: j:= j+1;
14408: l_co_consol_del_tab(j) := p_consol_del_tab(i);
14409: IF l_debug_on THEN
14410: WSH_DEBUG_SV.log(l_module_name,'l_co_consol_del_tab(j)', l_co_consol_del_tab(j));
14411: END IF;
14412: --
14413: ELSE
14414: --
14419: -- bug 4505105
14420: END IF;
14421: CLOSE c_check_close_consol;
14422: IF l_debug_on THEN
14423: WSH_DEBUG_SV.logmsg(l_module_name,'after c_check_close_consol');
14424: END IF;
14425: END IF;
14426: IF l_debug_on THEN
14427: WSH_DEBUG_SV.log(l_module_name,'i', i);
14423: WSH_DEBUG_SV.logmsg(l_module_name,'after c_check_close_consol');
14424: END IF;
14425: END IF;
14426: IF l_debug_on THEN
14427: WSH_DEBUG_SV.log(l_module_name,'i', i);
14428: END IF;
14429:
14430: i := p_consol_del_tab.next(i);
14431:
14429:
14430: i := p_consol_del_tab.next(i);
14431:
14432: IF l_debug_on THEN
14433: WSH_DEBUG_SV.log(l_module_name,'i', i);
14434: END IF;
14435:
14436: END LOOP;
14437: IF l_debug_on THEN
14434: END IF;
14435:
14436: END LOOP;
14437: IF l_debug_on THEN
14438: WSH_DEBUG_SV.logmsg(l_module_name,'After WHILE i IS NOT NULL LOOP');
14439: END IF;
14440:
14441: -- bug 4505105
14442: IF l_debug_on THEN
14439: END IF;
14440:
14441: -- bug 4505105
14442: IF l_debug_on THEN
14443: WSH_DEBUG_SV.log(l_module_name,'Count of consol deliveries to be processed is ', l_u_consol_del_tab.count);
14444: WSH_DEBUG_SV.log(l_module_name,'Count of errored deliveries is ', l_num_err);
14445: END IF;
14446:
14447: IF (l_num_err >= l_u_consol_del_tab.count AND l_num_err > 0) THEN
14440:
14441: -- bug 4505105
14442: IF l_debug_on THEN
14443: WSH_DEBUG_SV.log(l_module_name,'Count of consol deliveries to be processed is ', l_u_consol_del_tab.count);
14444: WSH_DEBUG_SV.log(l_module_name,'Count of errored deliveries is ', l_num_err);
14445: END IF;
14446:
14447: IF (l_num_err >= l_u_consol_del_tab.count AND l_num_err > 0) THEN
14448: IF l_debug_on THEN
14445: END IF;
14446:
14447: IF (l_num_err >= l_u_consol_del_tab.count AND l_num_err > 0) THEN
14448: IF l_debug_on THEN
14449: WSH_DEBUG_SV.logmsg(l_module_name,'None of the Deliveries are eligible of Ship Confirm');
14450: END IF;
14451: RAISE FND_API.G_EXC_ERROR;
14452: END IF;
14453: -- bug 4505105
14453: -- bug 4505105
14454:
14455: BEGIN
14456: IF l_debug_on THEN
14457: WSH_DEBUG_SV.log(l_module_name,'l_co_consol_del_tab.count', l_co_consol_del_tab.count);
14458: END IF;
14459:
14460: FOR l in 1..l_co_consol_del_tab.count LOOP
14461: IF l_debug_on THEN
14458: END IF;
14459:
14460: FOR l in 1..l_co_consol_del_tab.count LOOP
14461: IF l_debug_on THEN
14462: WSH_DEBUG_SV.log(l_module_name,'l_co_consol_del_tab(l)', l_co_consol_del_tab(l));
14463: END IF;
14464: l_lock_index := l;
14465: WSH_NEW_DELIVERIES_PVT.Lock_Dlvy_No_Compare(l_co_consol_del_tab(l));
14466:
14490: --
14491: -- Debug Statements
14492: --
14493: IF l_debug_on THEN
14494: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14495: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
14496: END IF;
14497: RETURN;
14498: --
14491: -- Debug Statements
14492: --
14493: IF l_debug_on THEN
14494: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_DLVY_LOCK_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14495: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_DLVY_LOCK_FAILED');
14496: END IF;
14497: RETURN;
14498: --
14499: END;
14497: RETURN;
14498: --
14499: END;
14500: IF l_debug_on THEN
14501: WSH_DEBUG_SV.logmsg(l_module_name,'after lock');
14502: END IF;
14503: IF l_co_consol_del_tab.count > 0 THEN
14504: FORALL m in 1..l_co_consol_del_tab.count
14505: UPDATE wsh_new_deliveries
14521: WHEN FND_API.G_EXC_ERROR THEN
14522: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14523: --
14524: IF l_debug_on THEN
14525: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14526: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14527: END IF;
14528: --
14529: -- bug 4505105
14522: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14523: --
14524: IF l_debug_on THEN
14525: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14526: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14527: END IF;
14528: --
14529: -- bug 4505105
14530: WHEN OTHERS THEN
14531: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14532: wsh_util_core.default_handler('wsh_new_delivery_actions.Confirm_Consolidation_Delivery',l_module_name);
14533: --
14534: IF l_debug_on THEN
14535: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14536: END IF;
14537:
14538: END Confirm_Consolidation_Delivery;
14539:
14599: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
14600: --
14601: IF l_debug_on IS NULL
14602: THEN
14603: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14604: END IF;
14605: --
14606: IF l_debug_on THEN
14607: wsh_debug_sv.push (l_module_name);
14603: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14604: END IF;
14605: --
14606: IF l_debug_on THEN
14607: wsh_debug_sv.push (l_module_name);
14608: END IF;
14609:
14610: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14611:
14651: l_trip_info_tab(1).carrier_id := del.carrier_id;
14652:
14653: l_commit := FND_API.g_false;
14654: IF l_debug_on THEN
14655: WSH_DEBUG_SV.logmsg(l_module_name,'Creating deconsol trip');
14656: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_GRP.Create_Update_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
14657: END IF;
14658:
14659: WSH_TRIPS_GRP.Create_Update_Trip(
14652:
14653: l_commit := FND_API.g_false;
14654: IF l_debug_on THEN
14655: WSH_DEBUG_SV.logmsg(l_module_name,'Creating deconsol trip');
14656: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_GRP.Create_Update_Trip',WSH_DEBUG_SV.C_PROC_LEVEL);
14657: END IF;
14658:
14659: WSH_TRIPS_GRP.Create_Update_Trip(
14660: p_api_version_number => l_api_version_number,
14676:
14677: -- Assign delivery to trip
14678:
14679: IF l_debug_on THEN
14680: WSH_DEBUG_SV.logmsg(l_module_name,'Assigning to deconsol trip');
14681: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.assign_trip',WSH_DEBUG_SV.C_PROC_LEVEL);
14682: END IF;
14683:
14684:
14677: -- Assign delivery to trip
14678:
14679: IF l_debug_on THEN
14680: WSH_DEBUG_SV.logmsg(l_module_name,'Assigning to deconsol trip');
14681: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_ACTIONS.assign_trip',WSH_DEBUG_SV.C_PROC_LEVEL);
14682: END IF;
14683:
14684:
14685: IF del.pu_date < del.do_date THEN
14721: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
14722: END IF;
14723:
14724: IF l_debug_on THEN
14725: WSH_DEBUG_SV.pop(l_module_name);
14726: END IF;
14727:
14728: EXCEPTION
14729: WHEN FND_API.G_EXC_ERROR THEN
14729: WHEN FND_API.G_EXC_ERROR THEN
14730: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14731: --
14732: IF l_debug_on THEN
14733: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14735: END IF;
14736: --
14737: WHEN OTHERS THEN
14730: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14731: --
14732: IF l_debug_on THEN
14733: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
14734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
14735: END IF;
14736: --
14737: WHEN OTHERS THEN
14738: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14738: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14739: wsh_util_core.default_handler('wsh_new_delivery_actions.Confirm_Consolidation_Delivery',l_module_name);
14740: --
14741: IF l_debug_on THEN
14742: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
14743: END IF;
14744:
14745: END Create_Deconsol_Trips;
14746:
14775:
14776: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
14777: --
14778: IF l_debug_on IS NULL THEN
14779: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14780: END IF;
14781: --
14782: IF l_debug_on THEN
14783: WSH_DEBUG_SV.push(l_module_name);
14779: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
14780: END IF;
14781: --
14782: IF l_debug_on THEN
14783: WSH_DEBUG_SV.push(l_module_name);
14784: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
14785: END IF;
14786:
14787: l_count := 0;
14780: END IF;
14781: --
14782: IF l_debug_on THEN
14783: WSH_DEBUG_SV.push(l_module_name);
14784: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
14785: END IF;
14786:
14787: l_count := 0;
14788:
14794:
14795: IF (c_delivery_detail_count%FOUND) THEN -- not empty
14796:
14797: IF l_debug_on THEN
14798: wsh_debug_sv.logmsg(l_module_name, 'Delivery is not empty');
14799: END IF;
14800: l_return_value := 'N';
14801: ELSE -- empty
14802: IF l_debug_on THEN
14799: END IF;
14800: l_return_value := 'N';
14801: ELSE -- empty
14802: IF l_debug_on THEN
14803: wsh_debug_sv.logmsg(l_module_name, 'Delivery is empty');
14804: END IF;
14805: l_return_value := 'Y';
14806: END IF;
14807: CLOSE c_delivery_detail_count;
14809: l_return_value := WSH_UTIL_CORE.G_RET_STS_ERROR;
14810: END IF;
14811:
14812: IF l_debug_on THEN
14813: wsh_debug_sv.log(l_module_name, 'RETURN VALUE', l_return_value);
14814: WSH_DEBUG_SV.pop(l_module_name);
14815: END IF;
14816: --
14817:
14810: END IF;
14811:
14812: IF l_debug_on THEN
14813: wsh_debug_sv.log(l_module_name, 'RETURN VALUE', l_return_value);
14814: WSH_DEBUG_SV.pop(l_module_name);
14815: END IF;
14816: --
14817:
14818: RETURN l_return_value;
14826: END IF;
14827: l_return_value := WSH_UTIL_CORE.G_RET_STS_ERROR;
14828:
14829: IF l_debug_on THEN
14830: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14831: wsh_debug_sv.LOG(l_module_name, 'RETURN VALUE', l_return_value);
14832: WSH_DEBUG_SV.pop(l_module_name);
14833: END IF;
14834: --
14827: l_return_value := WSH_UTIL_CORE.G_RET_STS_ERROR;
14828:
14829: IF l_debug_on THEN
14830: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14831: wsh_debug_sv.LOG(l_module_name, 'RETURN VALUE', l_return_value);
14832: WSH_DEBUG_SV.pop(l_module_name);
14833: END IF;
14834: --
14835: RETURN l_return_value;
14828:
14829: IF l_debug_on THEN
14830: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14831: wsh_debug_sv.LOG(l_module_name, 'RETURN VALUE', l_return_value);
14832: WSH_DEBUG_SV.pop(l_module_name);
14833: END IF;
14834: --
14835: RETURN l_return_value;
14836: END IS_DELIVERY_EMPTY;