62: l_trip_dlvy_lines WSH_FTE_CONSTRAINT_FRAMEWORK.detail_ccinfo_tab_type;
63: l_trip_incl_stops WSH_FTE_CONSTRAINT_FRAMEWORK.stop_ccinfo_tab_type;
64: l_fail_trips WSH_UTIL_CORE.id_tab_type;
65:
66: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
67: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || g_package_name || '.' || 'validate_constraint';
68:
69: BEGIN
70:
70:
71: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
72:
73: IF l_debug_on THEN
74: wsh_debug_sv.push (l_module_name);
75: END IF;
76:
77: ---------------------------------------
78:
99: -- Defaulted to Success
100: p_entity_tab(i).x_validate_status := 'S';
101:
102: IF l_debug_on THEN
103: wsh_debug_sv.logmsg(l_module_name,'entity type : '||p_entity_tab(i).p_entity_type);
104: wsh_debug_sv.logmsg(l_module_name,'entity id : '||p_entity_tab(i).p_entity_id);
105: wsh_debug_sv.logmsg(l_module_name,'action code : '||p_entity_tab(i).p_action_code);
106: END IF;
107:
100: p_entity_tab(i).x_validate_status := 'S';
101:
102: IF l_debug_on THEN
103: wsh_debug_sv.logmsg(l_module_name,'entity type : '||p_entity_tab(i).p_entity_type);
104: wsh_debug_sv.logmsg(l_module_name,'entity id : '||p_entity_tab(i).p_entity_id);
105: wsh_debug_sv.logmsg(l_module_name,'action code : '||p_entity_tab(i).p_action_code);
106: END IF;
107:
108: IF p_entity_tab(i).p_action_code <> G_ACTION_UPDATE THEN
101:
102: IF l_debug_on THEN
103: wsh_debug_sv.logmsg(l_module_name,'entity type : '||p_entity_tab(i).p_entity_type);
104: wsh_debug_sv.logmsg(l_module_name,'entity id : '||p_entity_tab(i).p_entity_id);
105: wsh_debug_sv.logmsg(l_module_name,'action code : '||p_entity_tab(i).p_action_code);
106: END IF;
107:
108: IF p_entity_tab(i).p_action_code <> G_ACTION_UPDATE THEN
109:
178: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
179: ELSE
180: x_return_status := l_return_status;
181: IF l_debug_on THEN
182: wsh_debug_sv.logmsg(l_module_name,'failed line count : '||l_fail_trips.COUNT);
183: END IF;
184:
185: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
186:
195:
196: IF p_entity_tab(l).p_entity_id = l_fail_trips(k) THEN
197: p_entity_tab(l).x_validate_status := 'F';
198: IF l_debug_on THEN
199: wsh_debug_sv.logmsg(l_module_name,'failed line : '||l_fail_trips(k)||' found for entity : '||p_entity_tab(l).p_entity_id);
200: END IF;
201: EXIT;
202: END IF;
203:
247:
248: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
249:
250: IF l_debug_on THEN
251: wsh_debug_sv.logmsg(l_module_name,'failed line count : '||l_failed_lines.COUNT);
252: END IF;
253:
254: l:=p_entity_tab.FIRST;
255: IF l IS NOT NULL THEN
262:
263: IF p_entity_tab(l).p_entity_id = l_failed_lines(k).entity_line_id THEN
264: p_entity_tab(l).x_validate_status := 'F';
265: IF l_debug_on THEN
266: wsh_debug_sv.logmsg(l_module_name,'failed line : '||l_failed_lines(k).entity_line_id||' found for entity : '||p_entity_tab(l).p_entity_id);
267: END IF;
268:
269: EXIT;
270: END IF;
285: END IF;
286:
287: --
288: IF l_debug_on THEN
289: WSH_DEBUG_SV.pop(l_module_name);
290: END IF;
291: --
292: EXCEPTION
293: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
293: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
294: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
295: --
296: IF l_debug_on THEN
297: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
298: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
299: END IF;
300: --
301: WHEN others THEN
294: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
295: --
296: IF l_debug_on THEN
297: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
298: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
299: END IF;
300: --
301: WHEN others THEN
302: WSH_UTIL_CORE.default_handler('WSH_FTE_COMP_CONSTRAINT_GRP.validate_constraint');
302: WSH_UTIL_CORE.default_handler('WSH_FTE_COMP_CONSTRAINT_GRP.validate_constraint');
303: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
304: --
305: IF l_debug_on THEN
306: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
307: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
308: END IF;
309: --
310:
303: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
304: --
305: IF l_debug_on THEN
306: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
307: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
308: END IF;
309: --
310:
311: END validate_constraint;
365: l_cc_target_trip_incl_stops WSH_FTE_CONSTRAINT_FRAMEWORK.stop_ccinfo_tab_type;
366: l_delivery_info WSH_FTE_CONSTRAINT_FRAMEWORK.delivery_ccinfo_tab_type;
367:
368: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || g_package_name || '.' || 'is_valid_consol';
369: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
370:
371: CURSOR c_get_dlvy_drop_off_location(c_delivery_id IN NUMBER) IS
372: SELECT
373: wnd.ULTIMATE_DROPOFF_LOCATION_ID
396: --{
397: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
398:
399: IF l_debug_on THEN
400: wsh_debug_sv.push (l_module_name);
401: END IF;
402:
403: IF l_debug_on THEN
404: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_consol_delivery_id' || p_target_consol_delivery_id);
400: wsh_debug_sv.push (l_module_name);
401: END IF;
402:
403: IF l_debug_on THEN
404: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_consol_delivery_id' || p_target_consol_delivery_id);
405: END IF;
406:
407: l_deconsol_location := NULL;
408:
433: x_msg_data => l_msg_data,
434: x_return_status => l_return_status);
435:
436: IF l_debug_on THEN
437: WSH_DEBUG_SV.logmsg(l_module_name,'l_return_status ' || l_return_status);
438: WSH_DEBUG_SV.logmsg(l_module_name,'l_group_info.COUNT ' || l_group_info.COUNT);
439: WSH_DEBUG_SV.logmsg(l_module_name,'l_failed_lines.COUNT ' || l_failed_lines.COUNT);
440: END IF;
441: --
434: x_return_status => l_return_status);
435:
436: IF l_debug_on THEN
437: WSH_DEBUG_SV.logmsg(l_module_name,'l_return_status ' || l_return_status);
438: WSH_DEBUG_SV.logmsg(l_module_name,'l_group_info.COUNT ' || l_group_info.COUNT);
439: WSH_DEBUG_SV.logmsg(l_module_name,'l_failed_lines.COUNT ' || l_failed_lines.COUNT);
440: END IF;
441: --
442: -- If more than one group formed, error out
435:
436: IF l_debug_on THEN
437: WSH_DEBUG_SV.logmsg(l_module_name,'l_return_status ' || l_return_status);
438: WSH_DEBUG_SV.logmsg(l_module_name,'l_group_info.COUNT ' || l_group_info.COUNT);
439: WSH_DEBUG_SV.logmsg(l_module_name,'l_failed_lines.COUNT ' || l_failed_lines.COUNT);
440: END IF;
441: --
442: -- If more than one group formed, error out
443: --
451: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
452: FND_MESSAGE.SET_NAME('WSH','WSH_CONSOL_VALIDATION_ERROR');
453: FND_MSG_PUB.ADD;
454: IF l_debug_on THEN
455: wsh_debug_sv.pop (l_module_name);
456: END IF;
457: RETURN;
458: END IF;
459:
473: --{
474: l_in_ids(1) := p_input_delivery_id_tab(d_itr);
475:
476: IF l_debug_on THEN
477: WSH_DEBUG_SV.logmsg(l_module_name,'p_input_delivery_id_tab ' || p_input_delivery_id_tab(d_itr));
478: END IF;
479:
480: -- AG
481: -- Still has not implemented latest comments
491: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
492: FND_MESSAGE.SET_NAME('WSH','WSH_MULTICONSOL_ERROR');
493: FND_MSG_PUB.ADD;
494: IF l_debug_on THEN
495: wsh_debug_sv.pop (l_module_name);
496: END IF;
497: RETURN;
498: END IF;
499: END IF;
530: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
531: FND_MESSAGE.SET_NAME('WSH','WSH_CONSOL_VALIDATION_ERROR');
532: FND_MSG_PUB.ADD;
533: IF l_debug_on THEN
534: wsh_debug_sv.pop (l_module_name);
535: END IF;
536: RETURN;
537: END IF;
538: ELSE
539: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
540: FND_MESSAGE.SET_NAME('WSH','WSH_CONSOL_VALIDATION_ERROR');
541: FND_MSG_PUB.ADD;
542: IF l_debug_on THEN
543: wsh_debug_sv.pop (l_module_name);
544: END IF;
545: RETURN;
546: END IF;
547: EXIT WHEN d_itr = p_input_delivery_id_tab.LAST;
552: --}
553: END IF;
554:
555: IF l_debug_on THEN
556: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location' || l_deconsol_location);
557: END IF;
558:
559: -- AG
560: IF l_deconsol_location IS NOT NULL AND p_target_consol_delivery_id IS NOT NULL THEN
615: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
616: FND_MESSAGE.SET_NAME('WSH','WSH_CONSOL_VALIDATION_ERROR');
617: FND_MSG_PUB.ADD;
618: IF l_debug_on THEN
619: wsh_debug_sv.pop (l_module_name);
620: END IF;
621: RETURN;
622: END IF;
623: ELSE -- Bug 5194370
630: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
631: FND_MESSAGE.SET_NAME('WSH','WSH_CONSOL_VALIDATION_ERROR');
632: FND_MSG_PUB.ADD;
633: IF l_debug_on THEN
634: wsh_debug_sv.pop (l_module_name);
635: END IF;
636: RETURN;
637: END IF;
638: --}
644: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
645: FND_MESSAGE.SET_NAME('WSH','WSH_CONSOL_VALIDATION_ERROR');
646: FND_MSG_PUB.ADD;
647: IF l_debug_on THEN
648: wsh_debug_sv.pop (l_module_name);
649: END IF;
650: RETURN;
651: ELSIF l_deconsol_location IS NOT NULL THEN
652: x_deconsolidation_location := l_deconsol_location;
657: p_data => x_msg_data ,
658: p_encoded => FND_API.G_FALSE );
659:
660: IF l_debug_on THEN
661: wsh_debug_sv.log (l_module_name,'No. of messages stacked : ',to_char(x_msg_count));
662: wsh_debug_sv.pop (l_module_name);
663: END IF;
664:
665: EXCEPTION
658: p_encoded => FND_API.G_FALSE );
659:
660: IF l_debug_on THEN
661: wsh_debug_sv.log (l_module_name,'No. of messages stacked : ',to_char(x_msg_count));
662: wsh_debug_sv.pop (l_module_name);
663: END IF;
664:
665: EXCEPTION
666:
667: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
668: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
669: --
670: IF l_debug_on THEN
671: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
672: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
673: END IF;
674:
675: WHEN OTHERS THEN
668: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
669: --
670: IF l_debug_on THEN
671: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
672: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
673: END IF;
674:
675: WHEN OTHERS THEN
676: IF c_get_dlvy_drop_off_location%ISOPEN THEN
682: WSH_UTIL_CORE.default_handler('WSH_FTE_COMP_CONSTRAINT_GRP.is_valid_consol');
683: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
684: --
685: IF l_debug_on THEN
686: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
687: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
688: END IF;
689: --}
690: END is_valid_consol;
683: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
684: --
685: IF l_debug_on THEN
686: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
687: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
688: END IF;
689: --}
690: END is_valid_consol;
691: