[Home] [Help]
383:
384: z NUMBER := 0;
385: FOUND BOOLEAN:= FALSE;
386:
387: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
388: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'entity_exists';
389: BEGIN
390: IF l_debug_on THEN
391: WSH_DEBUG_SV.push (l_module_name);
387: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
388: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'entity_exists';
389: BEGIN
390: IF l_debug_on THEN
391: WSH_DEBUG_SV.push (l_module_name);
392: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_id : '||p_entity_id||' p_entity_table count : '||p_entity_table.COUNT);
393: END IF;
394: --
395: z := p_entity_table.FIRST;
388: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'entity_exists';
389: BEGIN
390: IF l_debug_on THEN
391: WSH_DEBUG_SV.push (l_module_name);
392: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_id : '||p_entity_id||' p_entity_table count : '||p_entity_table.COUNT);
393: END IF;
394: --
395: z := p_entity_table.FIRST;
396: IF z IS NOT NULL THEN
395: z := p_entity_table.FIRST;
396: IF z IS NOT NULL THEN
397: LOOP
398: IF l_debug_on THEN
399: WSH_DEBUG_SV.logmsg(l_module_name,' z : '||z||' p_entity_table(z) : '||p_entity_table(z));
400: END IF;
401:
402: IF p_entity_table(z) = p_entity_id THEN
403: FOUND := TRUE;
402: IF p_entity_table(z) = p_entity_id THEN
403: FOUND := TRUE;
404: x_found_index := z;
405: IF l_debug_on THEN
406: WSH_DEBUG_SV.logmsg(l_module_name,' exiting as p_entity_id found');
407: END IF;
408: EXIT;
409: END IF;
410:
414: END LOOP;
415: END IF;
416: IF FOUND THEN
417: IF l_debug_on THEN
418: WSH_DEBUG_SV.logmsg(l_module_name,' returning true');
419: END IF;
420: ELSE
421: IF l_debug_on THEN
422: WSH_DEBUG_SV.logmsg(l_module_name,'returning false');
418: WSH_DEBUG_SV.logmsg(l_module_name,' returning true');
419: END IF;
420: ELSE
421: IF l_debug_on THEN
422: WSH_DEBUG_SV.logmsg(l_module_name,'returning false');
423: END IF;
424: END IF;
425: IF l_debug_on THEN
426: wsh_debug_sv.pop (l_module_name);
422: WSH_DEBUG_SV.logmsg(l_module_name,'returning false');
423: END IF;
424: END IF;
425: IF l_debug_on THEN
426: wsh_debug_sv.pop (l_module_name);
427: END IF;
428: RETURN FOUND;
429: END entity_exists;
430:
444: IS
445:
446: l_session_id NUMBER := 0;
447:
448: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
449: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'refresh_cache';
450:
451: BEGIN
452: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
451: BEGIN
452: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
453: --
454: IF l_debug_on THEN
455: wsh_debug_sv.push (l_module_name);
456: END IF;
457: --
458:
459: l_session_id := icx_sec.g_session_id;
458:
459: l_session_id := icx_sec.g_session_id;
460:
461: IF l_debug_on THEN
462: wsh_debug_sv.logmsg(l_module_name,'g_comp_class_tab count : '||g_comp_class_tab.COUNT);
463: wsh_debug_sv.logmsg(l_module_name,'g_comp_constraint_tab count : '||g_comp_constraint_tab.COUNT);
464: wsh_debug_sv.logmsg(l_module_name,'g_session_id : '||g_session_id||' Current session id : '||l_session_id);
465: END IF;
466:
459: l_session_id := icx_sec.g_session_id;
460:
461: IF l_debug_on THEN
462: wsh_debug_sv.logmsg(l_module_name,'g_comp_class_tab count : '||g_comp_class_tab.COUNT);
463: wsh_debug_sv.logmsg(l_module_name,'g_comp_constraint_tab count : '||g_comp_constraint_tab.COUNT);
464: wsh_debug_sv.logmsg(l_module_name,'g_session_id : '||g_session_id||' Current session id : '||l_session_id);
465: END IF;
466:
467: IF g_session_id IS NULL OR l_session_id <> g_session_id THEN
460:
461: IF l_debug_on THEN
462: wsh_debug_sv.logmsg(l_module_name,'g_comp_class_tab count : '||g_comp_class_tab.COUNT);
463: wsh_debug_sv.logmsg(l_module_name,'g_comp_constraint_tab count : '||g_comp_constraint_tab.COUNT);
464: wsh_debug_sv.logmsg(l_module_name,'g_session_id : '||g_session_id||' Current session id : '||l_session_id);
465: END IF;
466:
467: IF g_session_id IS NULL OR l_session_id <> g_session_id THEN
468: -- Delete constraint cache
474:
475: g_session_id := l_session_id;
476:
477: IF l_debug_on THEN
478: wsh_debug_sv.logmsg(l_module_name,'Constraints Cache cleared');
479: END IF;
480:
481: END IF;
482:
481: END IF;
482:
483: --
484: IF l_debug_on THEN
485: wsh_debug_sv.pop (l_module_name);
486: END IF;
487: --
488:
489: EXCEPTION
491: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.refresh_cache');
492: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
493: --
494: IF l_debug_on THEN
495: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
497: END IF;
498: --
499: END refresh_cache;
492: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
493: --
494: IF l_debug_on THEN
495: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
496: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
497: END IF;
498: --
499: END refresh_cache;
500:
524: i NUMBER := 0;
525: l_result VARCHAR2(30) := NULL;
526: l_hash_value NUMBER := 0;
527:
528: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
529: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'get_compclass_code';
530:
531: BEGIN
532: --
530:
531: BEGIN
532: --
533: IF l_debug_on THEN
534: wsh_debug_sv.push (l_module_name);
535: END IF;
536: --
537:
538: i:=g_comp_class_tab.FIRST;
562: END IF;
563:
564: --
565: IF l_debug_on THEN
566: wsh_debug_sv.pop (l_module_name);
567: END IF;
568: --
569: RETURN l_result;
570:
575: END IF;
576: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_compclass_code');
577: --
578: IF l_debug_on THEN
579: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
581: END IF;
582: --
583: RETURN g_unexp_char;
576: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_compclass_code');
577: --
578: IF l_debug_on THEN
579: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
580: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
581: END IF;
582: --
583: RETURN g_unexp_char;
584: END get_compclass_code;
605:
606: l_hash_value NUMBER:=0;
607: l_comp_class_rec WSH_FTE_COMP_CLASSES%ROWTYPE;
608:
609: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
610: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'get_compclass_id';
611:
612: BEGIN
613:
612: BEGIN
613:
614: --
615: IF l_debug_on THEN
616: wsh_debug_sv.push (l_module_name);
617: END IF;
618: --
619: l_hash_value := dbms_utility.get_hash_value(
620: name => p_comp_class_code,
629: CLOSE c_get_comp_class_info;
630: END IF;
631: --
632: IF l_debug_on THEN
633: wsh_debug_sv.pop (l_module_name);
634: END IF;
635: --
636:
637: RETURN g_comp_class_tab(l_hash_value).compatibility_class_id;
643: END IF;
644: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_compclass_id');
645: --
646: IF l_debug_on THEN
647: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
648: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
649: END IF;
650: --
651: RETURN g_unexp_num;
644: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_compclass_id');
645: --
646: IF l_debug_on THEN
647: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
648: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
649: END IF;
650: --
651: RETURN g_unexp_num;
652:
710: l_fac_company_name VARCHAR2(2000) := NULL;
711: l_severity VARCHAR2(30);
712: l_constraint_rec WSH_FTE_COMP_CONSTRAINTS%ROWTYPE;
713:
714: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
715: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'get_constraint_display';
716:
717: BEGIN
718:
718:
719: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
720:
721: IF l_debug_on THEN
722: wsh_debug_sv.push(l_module_name);
723: END IF;
724:
725: -- object1_type values : ORG CUS FAC CAR MOD ITM
726:
733: x_severity => x_severity);
734:
735: IF x_comp_class_code = g_unexp_char THEN
736: IF l_debug_on THEN
737: wsh_debug_sv.log(l_module_name,'Unexpected error from get_compclass_code ');
738: END IF;
739: raise FND_API.G_EXC_UNEXPECTED_ERROR;
740: END IF;
741:
744:
745: IF l_constraint_rec.CONSTRAINT_OBJECT1_ID IS NOT NULL THEN
746:
747: IF l_debug_on THEN
748: wsh_debug_sv.log(l_module_name,'Calling WSH_FTE_INTEGRATION.get_cc_object_name for CONSTRAINT_OBJECT1_ID ');
749: END IF;
750: x_obj1_display := WSH_FTE_INTEGRATION.get_cc_object_name(
751: p_object_type => l_constraint_rec.CONSTRAINT_OBJECT1_TYPE,
752: x_fac_company_name => l_fac_company_name,
756:
757: ELSIF l_constraint_rec.CONSTRAINT_OBJECT1_VALUE_CHAR IS NOT NULL THEN
758:
759: IF l_debug_on THEN
760: wsh_debug_sv.log(l_module_name,'Calling WSH_FTE_INTEGRATION.get_cc_object_name for CONSTRAINT_OBJECT1_VALUE_CHAR ');
761: END IF;
762: x_obj1_display := WSH_FTE_INTEGRATION.get_cc_object_name(
763: p_object_type => l_constraint_rec.CONSTRAINT_OBJECT1_TYPE,
764: x_fac_company_name => l_fac_company_name,
768: END IF;
769:
770: IF x_obj1_display = g_unexp_char THEN
771: IF l_debug_on THEN
772: wsh_debug_sv.log(l_module_name,'Unexpected error from get_cc_object_name ');
773: END IF;
774: raise FND_API.G_EXC_UNEXPECTED_ERROR;
775: END IF;
776:
779:
780: IF l_constraint_rec.CONSTRAINT_OBJECT2_ID IS NOT NULL THEN
781:
782: IF l_debug_on THEN
783: wsh_debug_sv.log(l_module_name,'Calling WSH_FTE_INTEGRATION.get_cc_object_name for CONSTRAINT_OBJECT2_ID ');
784: END IF;
785: x_obj2_display := WSH_FTE_INTEGRATION.get_cc_object_name(
786: p_object_type => l_constraint_rec.CONSTRAINT_OBJECT2_TYPE,
787: x_fac_company_name => l_fac_company_name,
791:
792: ELSIF l_constraint_rec.CONSTRAINT_OBJECT2_VALUE_CHAR IS NOT NULL THEN
793:
794: IF l_debug_on THEN
795: wsh_debug_sv.log(l_module_name,'Calling WSH_FTE_INTEGRATION.get_cc_object_name for CONSTRAINT_OBJECT2_VALUE_CHAR ');
796: END IF;
797: x_obj2_display := WSH_FTE_INTEGRATION.get_cc_object_name(
798: p_object_type => l_constraint_rec.CONSTRAINT_OBJECT2_TYPE,
799: x_fac_company_name => l_fac_company_name,
803: END IF;
804:
805: IF x_obj2_display = g_unexp_char THEN
806: IF l_debug_on THEN
807: wsh_debug_sv.log(l_module_name,'Unexpected error from get_cc_object_name ');
808: END IF;
809: raise FND_API.G_EXC_UNEXPECTED_ERROR;
810: END IF;
811:
858: END IF;
859:
860: --
861: IF l_debug_on THEN
862: WSH_DEBUG_SV.pop(l_module_name);
863: END IF;
864: --
865:
866: EXCEPTION
867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
868: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
869: --
870: IF l_debug_on THEN
871: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
872: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
873: END IF;
874: --
875: WHEN OTHERS THEN
868: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
869: --
870: IF l_debug_on THEN
871: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
872: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
873: END IF;
874: --
875: WHEN OTHERS THEN
876: IF c_get_constraint_info%ISOPEN THEN
879: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_constraint_display');
880: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
881: --
882: IF l_debug_on THEN
883: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
884: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
885: END IF;
886: --
887: END get_constraint_display;
880: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
881: --
882: IF l_debug_on THEN
883: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
884: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
885: END IF;
886: --
887: END get_constraint_display;
888:
905: k NUMBER;
906: l_del_flag BOOLEAN;
907:
908: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' ||'remove_duplicate_const';
909: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
910:
911: BEGIN
912:
913: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
912:
913: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
914:
915: IF l_debug_on THEN
916: wsh_debug_sv.push(l_module_name);
917: wsh_debug_sv.logmsg(l_module_name,'No. of constraints:'||p_failed_constraints.COUNT);
918: END IF;
919:
920: i:= p_failed_constraints.FIRST;
913: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
914:
915: IF l_debug_on THEN
916: wsh_debug_sv.push(l_module_name);
917: wsh_debug_sv.logmsg(l_module_name,'No. of constraints:'||p_failed_constraints.COUNT);
918: END IF;
919:
920: i:= p_failed_constraints.FIRST;
921:
931: IF (p_failed_constraints(i).constraint_id=p_failed_constraints(j).constraint_id) THEN
932: k := j;
933: l_del_flag := TRUE;
934: IF l_debug_on THEN
935: wsh_debug_sv.logmsg (l_module_name,'Constraint '||p_failed_constraints(i).constraint_id ||' appears more than once');
936: END IF;
937: END IF;
938:
939: EXIT WHEN j = p_failed_constraints.LAST;
960: END LOOP;
961: END IF;
962:
963: IF l_debug_on THEN
964: wsh_debug_sv.logmsg(l_module_name,'No. of constraints after deleting duplicate constraints:'||to_char(p_failed_constraints.COUNT));
965: WSH_DEBUG_SV.pop(l_module_name);
966: END IF;
967:
968: EXCEPTION
961: END IF;
962:
963: IF l_debug_on THEN
964: wsh_debug_sv.logmsg(l_module_name,'No. of constraints after deleting duplicate constraints:'||to_char(p_failed_constraints.COUNT));
965: WSH_DEBUG_SV.pop(l_module_name);
966: END IF;
967:
968: EXCEPTION
969: WHEN others THEN
970: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.remove_duplicate_const');
971: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
972: --
973: IF l_debug_on THEN
974: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
975: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
976: END IF;
977: --
978: END remove_duplicate_const;
971: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
972: --
973: IF l_debug_on THEN
974: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
975: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
976: END IF;
977: --
978: END remove_duplicate_const;
979:
1006: AND wl.source_location_id = hps.location_id
1007: AND hps.party_id = hp.party_id
1008: AND hp.party_id = wc.carrier_id;
1009:
1010: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
1011: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'get_carrier_from_loc';
1012:
1013: BEGIN
1014:
1014:
1015: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1016:
1017: IF l_debug_on THEN
1018: wsh_debug_sv.push(l_module_name);
1019: END IF;
1020:
1021:
1022: IF ( p_location_id < g_cache_max_size and g_carrier_from_location.EXISTS(p_location_id)) THEN
1043: END IF;
1044:
1045: --
1046: IF l_debug_on THEN
1047: WSH_DEBUG_SV.logmsg(l_module_name,'Returning carrier id : '|| x_carrier_id ||' for location : ' ||p_location_id);
1048: WSH_DEBUG_SV.pop(l_module_name);
1049: END IF;
1050: --
1051:
1044:
1045: --
1046: IF l_debug_on THEN
1047: WSH_DEBUG_SV.logmsg(l_module_name,'Returning carrier id : '|| x_carrier_id ||' for location : ' ||p_location_id);
1048: WSH_DEBUG_SV.pop(l_module_name);
1049: END IF;
1050: --
1051:
1052: EXCEPTION
1057: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_carrier_from_loc');
1058: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1059: --
1060: IF l_debug_on THEN
1061: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1062: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1063: END IF;
1064: --
1065: END get_carrier_from_loc;
1058: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1059: --
1060: IF l_debug_on THEN
1061: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1062: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1063: END IF;
1064: --
1065: END get_carrier_from_loc;
1066:
1098: i NUMBER := 0;
1099: l_return_status VARCHAR2(1);
1100: l_cust_string VARCHAR2(2000);
1101:
1102: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
1103: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'get_customer_from_loc';
1104:
1105: BEGIN
1106:
1106:
1107: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1108:
1109: IF l_debug_on THEN
1110: wsh_debug_sv.push(l_module_name);
1111: END IF;
1112:
1113: IF ( p_location_id < g_cache_max_size and g_customer_from_location.EXISTS(p_location_id)) THEN
1114:
1129:
1130: END IF;
1131:
1132: IF l_debug_on THEN
1133: wsh_debug_sv.push(l_module_name);
1134: END IF;
1135:
1136: /*
1137: x_customer_id := g_customer_from_location(p_location_id);
1167: x_string => l_cust_string,
1168: x_return_status => l_return_status);
1169:
1170: IF l_debug_on THEN
1171: WSH_DEBUG_SV.logmsg(l_module_name,'Org String '||l_cust_string);
1172: END IF;
1173:
1174: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1175: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1193: IF l_debug_on THEN
1194: i := x_customer_id_tab.FIRST;
1195: IF (i IS NOT NULL) THEN
1196:
1197: WSH_DEBUG_SV.logmsg(l_module_name,'Number of Customers for the location '||p_location_id||'is :'|| x_customer_id_tab.COUNT);
1198: LOOP
1199: WSH_DEBUG_SV.logmsg(l_module_name,'Customer_id :'||x_customer_id_tab(i));
1200: EXIT WHEN i = x_customer_id_tab.LAST;
1201: i := x_customer_id_tab.NEXT(i);
1195: IF (i IS NOT NULL) THEN
1196:
1197: WSH_DEBUG_SV.logmsg(l_module_name,'Number of Customers for the location '||p_location_id||'is :'|| x_customer_id_tab.COUNT);
1198: LOOP
1199: WSH_DEBUG_SV.logmsg(l_module_name,'Customer_id :'||x_customer_id_tab(i));
1200: EXIT WHEN i = x_customer_id_tab.LAST;
1201: i := x_customer_id_tab.NEXT(i);
1202: END LOOP;
1203:
1201: i := x_customer_id_tab.NEXT(i);
1202: END LOOP;
1203:
1204: ELSE
1205: WSH_DEBUG_SV.logmsg(l_module_name,'No Organization assocaited with location '||p_location_id);
1206:
1207: END IF;
1208:
1209: WSH_DEBUG_SV.pop(l_module_name);
1205: WSH_DEBUG_SV.logmsg(l_module_name,'No Organization assocaited with location '||p_location_id);
1206:
1207: END IF;
1208:
1209: WSH_DEBUG_SV.pop(l_module_name);
1210: END IF;
1211: --
1212: /*
1213:
1234: END IF;
1235:
1236: --
1237: IF l_debug_on THEN
1238: WSH_DEBUG_SV.logmsg(l_module_name,'Returning customer id : '|| x_customer_id || ' for location : '||p_location_id);
1239: WSH_DEBUG_SV.pop(l_module_name);
1240: END IF;
1241: --
1242: */
1235:
1236: --
1237: IF l_debug_on THEN
1238: WSH_DEBUG_SV.logmsg(l_module_name,'Returning customer id : '|| x_customer_id || ' for location : '||p_location_id);
1239: WSH_DEBUG_SV.pop(l_module_name);
1240: END IF;
1241: --
1242: */
1243:
1244: EXCEPTION
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1246: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1247: IF l_debug_on THEN
1248: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1249: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1250: END IF;
1251: WHEN others THEN
1252: IF c_get_customer%ISOPEN THEN
1245: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1246: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1247: IF l_debug_on THEN
1248: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1249: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1250: END IF;
1251: WHEN others THEN
1252: IF c_get_customer%ISOPEN THEN
1253: CLOSE c_get_customer;
1255: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_customer_from_loc');
1256: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1257: --
1258: IF l_debug_on THEN
1259: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1260: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1261: END IF;
1262: --
1263: END get_customer_from_loc;
1256: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1257: --
1258: IF l_debug_on THEN
1259: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1260: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1261: END IF;
1262: --
1263: END get_customer_from_loc;
1264:
1298: and rel.subject_id = po.vendor_id
1299: and rel.subject_type = 'POS_VENDOR'
1300: AND hps.party_id = hz.party_id;
1301:
1302: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
1303: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'get_supplier_from_loc';
1304:
1305: BEGIN
1306:
1306:
1307: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1308:
1309: IF l_debug_on THEN
1310: wsh_debug_sv.push(l_module_name);
1311: END IF;
1312:
1313:
1314: IF (p_location_id < g_cache_max_size and g_supplier_from_location.EXISTS(p_location_id)) THEN
1334: END IF;
1335:
1336: --
1337: IF l_debug_on THEN
1338: WSH_DEBUG_SV.logmsg(l_module_name,'Returning supplier id : '|| x_supplier_id || ' for location :'|| p_location_id);
1339: WSH_DEBUG_SV.pop(l_module_name);
1340: END IF;
1341: --
1342:
1335:
1336: --
1337: IF l_debug_on THEN
1338: WSH_DEBUG_SV.logmsg(l_module_name,'Returning supplier id : '|| x_supplier_id || ' for location :'|| p_location_id);
1339: WSH_DEBUG_SV.pop(l_module_name);
1340: END IF;
1341: --
1342:
1343: EXCEPTION
1348: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_supplier_from_loc');
1349: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1350: --
1351: IF l_debug_on THEN
1352: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1353: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1354: END IF;
1355: --
1356: END get_supplier_from_loc;
1349: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1350: --
1351: IF l_debug_on THEN
1352: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1353: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1354: END IF;
1355: --
1356: END get_supplier_from_loc;
1357:
1386: i NUMBER;
1387: l_return_status VARCHAR2(1);
1388: l_org_string VARCHAR2(32767);
1389:
1390: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
1391: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'get_org_from_location';
1392:
1393: BEGIN
1394: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1393: BEGIN
1394: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1395:
1396: IF l_debug_on THEN
1397: wsh_debug_sv.push(l_module_name);
1398: END IF;
1399:
1400: IF (p_location_id < g_cache_max_size and g_organization_from_location.EXISTS(p_location_id)) THEN
1401:
1416:
1417: END IF;
1418:
1419: IF l_debug_on THEN
1420: wsh_debug_sv.push(l_module_name);
1421: END IF;
1422:
1423: ELSE
1424:
1442: x_string => l_org_string,
1443: x_return_status => l_return_status);
1444:
1445: IF l_debug_on THEN
1446: WSH_DEBUG_SV.logmsg(l_module_name,'Org String '||l_org_string);
1447: END IF;
1448:
1449: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1450: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1463:
1464: i := x_organization_tab.FIRST;
1465: IF (i IS NOT NULL) THEN
1466:
1467: WSH_DEBUG_SV.logmsg(l_module_name,'Number of Organizations for the location '||p_location_id||'is :'|| x_organization_tab.COUNT);
1468: LOOP
1469: WSH_DEBUG_SV.logmsg(l_module_name,'Organization_id :'||x_organization_tab(i));
1470: EXIT WHEN i = x_organization_tab.LAST;
1471: i := x_organization_tab.NEXT(i);
1465: IF (i IS NOT NULL) THEN
1466:
1467: WSH_DEBUG_SV.logmsg(l_module_name,'Number of Organizations for the location '||p_location_id||'is :'|| x_organization_tab.COUNT);
1468: LOOP
1469: WSH_DEBUG_SV.logmsg(l_module_name,'Organization_id :'||x_organization_tab(i));
1470: EXIT WHEN i = x_organization_tab.LAST;
1471: i := x_organization_tab.NEXT(i);
1472: END LOOP;
1473:
1471: i := x_organization_tab.NEXT(i);
1472: END LOOP;
1473:
1474: ELSE
1475: WSH_DEBUG_SV.logmsg(l_module_name,'No Organization assocaited with location '||p_location_id);
1476:
1477: END IF;
1478:
1479: WSH_DEBUG_SV.pop(l_module_name);
1475: WSH_DEBUG_SV.logmsg(l_module_name,'No Organization assocaited with location '||p_location_id);
1476:
1477: END IF;
1478:
1479: WSH_DEBUG_SV.pop(l_module_name);
1480:
1481: END IF;
1482: --
1483:
1484: EXCEPTION
1485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1486: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1487: IF l_debug_on THEN
1488: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1489: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1490: END IF;
1491: WHEN others THEN
1492: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1486: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1487: IF l_debug_on THEN
1488: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1489: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1490: END IF;
1491: WHEN others THEN
1492: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1493:
1498: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_org_from_loc');
1499:
1500: --
1501: IF l_debug_on THEN
1502: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1503: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1504: END IF;
1505: --
1506: END get_org_from_location;
1499:
1500: --
1501: IF l_debug_on THEN
1502: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1503: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1504: END IF;
1505: --
1506: END get_org_from_location;
1507:
1532: SELECT location_id
1533: FROM wsh_ship_from_orgs_v
1534: WHERE organization_id = v_org_id;*/
1535:
1536: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
1537: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'get_loc_for_org';
1538:
1539: BEGIN
1540:
1540:
1541: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1542:
1543: IF l_debug_on THEN
1544: wsh_debug_sv.push(l_module_name);
1545: END IF;
1546:
1547:
1548: IF ( p_org_id < g_cache_max_size and g_loc_from_org.EXISTS(p_org_id)) THEN
1581: END IF;
1582:
1583: --
1584: IF l_debug_on THEN
1585: WSH_DEBUG_SV.logmsg(l_module_name,'Returning location id : '|| x_location_id ||' for Organization: ' ||p_org_id);
1586: WSH_DEBUG_SV.pop(l_module_name);
1587: END IF;
1588: --
1589:
1582:
1583: --
1584: IF l_debug_on THEN
1585: WSH_DEBUG_SV.logmsg(l_module_name,'Returning location id : '|| x_location_id ||' for Organization: ' ||p_org_id);
1586: WSH_DEBUG_SV.pop(l_module_name);
1587: END IF;
1588: --
1589:
1590: EXCEPTION
1600: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1601:
1602: --
1603: IF l_debug_on THEN
1604: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1606: END IF;
1607: --
1608: END get_loc_for_org;
1601:
1602: --
1603: IF l_debug_on THEN
1604: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1606: END IF;
1607: --
1608: END get_loc_for_org;
1609:
1649:
1650: g_object_name_failed EXCEPTION;
1651:
1652: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'stack_messages';
1653: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
1654:
1655: BEGIN
1656:
1657: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1656:
1657: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1658:
1659: IF l_debug_on THEN
1660: wsh_debug_sv.push(l_module_name);
1661: wsh_debug_sv.log (l_module_name,'No. of constraints violated : ',to_char(p_failed_constraints.COUNT));
1662: END IF;
1663: -- Loop pver p_failed_constraints and add messages
1664:
1657: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1658:
1659: IF l_debug_on THEN
1660: wsh_debug_sv.push(l_module_name);
1661: wsh_debug_sv.log (l_module_name,'No. of constraints violated : ',to_char(p_failed_constraints.COUNT));
1662: END IF;
1663: -- Loop pver p_failed_constraints and add messages
1664:
1665: FND_MSG_PUB.Count_And_Get (
1667: p_data => l_msg_data ,
1668: p_encoded => FND_API.G_FALSE );
1669:
1670: IF l_debug_on THEN
1671: wsh_debug_sv.log (l_module_name,'No. of messages already in stack : ',to_char(l_msg_count));
1672: --WSH_DEBUG_SV.pop(l_module_name);
1673: END IF;
1674:
1675: -- Remove duplicate constraints,from p_failed_constraints table.
1668: p_encoded => FND_API.G_FALSE );
1669:
1670: IF l_debug_on THEN
1671: wsh_debug_sv.log (l_module_name,'No. of messages already in stack : ',to_char(l_msg_count));
1672: --WSH_DEBUG_SV.pop(l_module_name);
1673: END IF;
1674:
1675: -- Remove duplicate constraints,from p_failed_constraints table.
1676: -- Unique constraints stored in l_failed_constraints table.
1692:
1693: IF p_failed_constraints(i).constraint_id IS NOT NULL THEN
1694:
1695: IF l_debug_on THEN
1696: --wsh_debug_sv.push(l_module_name);
1697: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(p_failed_constraints(i).constraint_id));
1698: END IF;
1699:
1700: get_constraint_display(
1693: IF p_failed_constraints(i).constraint_id IS NOT NULL THEN
1694:
1695: IF l_debug_on THEN
1696: --wsh_debug_sv.push(l_module_name);
1697: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(p_failed_constraints(i).constraint_id));
1698: END IF;
1699:
1700: get_constraint_display(
1701: p_constraint_id => p_failed_constraints(i).constraint_id,
1764: FND_MESSAGE.SET_TOKEN('SEVERITY',l_severity_meaning);
1765: FND_MSG_PUB.ADD;
1766:
1767: IF l_debug_on THEN
1768: wsh_debug_sv.log (l_module_name,'constraint found : ',to_char(i));
1769: wsh_debug_sv.log (l_module_name,'entity ',l_entity);
1770: wsh_debug_sv.log (l_module_name,'entity id ',to_char(l_entity_id));
1771: wsh_debug_sv.log (l_module_name,'class type ',l_class_type);
1772: wsh_debug_sv.log (l_module_name,'object1 name ',l_object1_name);
1765: FND_MSG_PUB.ADD;
1766:
1767: IF l_debug_on THEN
1768: wsh_debug_sv.log (l_module_name,'constraint found : ',to_char(i));
1769: wsh_debug_sv.log (l_module_name,'entity ',l_entity);
1770: wsh_debug_sv.log (l_module_name,'entity id ',to_char(l_entity_id));
1771: wsh_debug_sv.log (l_module_name,'class type ',l_class_type);
1772: wsh_debug_sv.log (l_module_name,'object1 name ',l_object1_name);
1773: wsh_debug_sv.log (l_module_name,'condition ',l_condition);
1766:
1767: IF l_debug_on THEN
1768: wsh_debug_sv.log (l_module_name,'constraint found : ',to_char(i));
1769: wsh_debug_sv.log (l_module_name,'entity ',l_entity);
1770: wsh_debug_sv.log (l_module_name,'entity id ',to_char(l_entity_id));
1771: wsh_debug_sv.log (l_module_name,'class type ',l_class_type);
1772: wsh_debug_sv.log (l_module_name,'object1 name ',l_object1_name);
1773: wsh_debug_sv.log (l_module_name,'condition ',l_condition);
1774: wsh_debug_sv.log (l_module_name,'object2 name ',l_object2_name);
1767: IF l_debug_on THEN
1768: wsh_debug_sv.log (l_module_name,'constraint found : ',to_char(i));
1769: wsh_debug_sv.log (l_module_name,'entity ',l_entity);
1770: wsh_debug_sv.log (l_module_name,'entity id ',to_char(l_entity_id));
1771: wsh_debug_sv.log (l_module_name,'class type ',l_class_type);
1772: wsh_debug_sv.log (l_module_name,'object1 name ',l_object1_name);
1773: wsh_debug_sv.log (l_module_name,'condition ',l_condition);
1774: wsh_debug_sv.log (l_module_name,'object2 name ',l_object2_name);
1775: wsh_debug_sv.log (l_module_name,'severity ',l_severity);
1768: wsh_debug_sv.log (l_module_name,'constraint found : ',to_char(i));
1769: wsh_debug_sv.log (l_module_name,'entity ',l_entity);
1770: wsh_debug_sv.log (l_module_name,'entity id ',to_char(l_entity_id));
1771: wsh_debug_sv.log (l_module_name,'class type ',l_class_type);
1772: wsh_debug_sv.log (l_module_name,'object1 name ',l_object1_name);
1773: wsh_debug_sv.log (l_module_name,'condition ',l_condition);
1774: wsh_debug_sv.log (l_module_name,'object2 name ',l_object2_name);
1775: wsh_debug_sv.log (l_module_name,'severity ',l_severity);
1776: END IF;
1769: wsh_debug_sv.log (l_module_name,'entity ',l_entity);
1770: wsh_debug_sv.log (l_module_name,'entity id ',to_char(l_entity_id));
1771: wsh_debug_sv.log (l_module_name,'class type ',l_class_type);
1772: wsh_debug_sv.log (l_module_name,'object1 name ',l_object1_name);
1773: wsh_debug_sv.log (l_module_name,'condition ',l_condition);
1774: wsh_debug_sv.log (l_module_name,'object2 name ',l_object2_name);
1775: wsh_debug_sv.log (l_module_name,'severity ',l_severity);
1776: END IF;
1777: END IF; -- constraint_id IS NOT NULL
1770: wsh_debug_sv.log (l_module_name,'entity id ',to_char(l_entity_id));
1771: wsh_debug_sv.log (l_module_name,'class type ',l_class_type);
1772: wsh_debug_sv.log (l_module_name,'object1 name ',l_object1_name);
1773: wsh_debug_sv.log (l_module_name,'condition ',l_condition);
1774: wsh_debug_sv.log (l_module_name,'object2 name ',l_object2_name);
1775: wsh_debug_sv.log (l_module_name,'severity ',l_severity);
1776: END IF;
1777: END IF; -- constraint_id IS NOT NULL
1778:
1771: wsh_debug_sv.log (l_module_name,'class type ',l_class_type);
1772: wsh_debug_sv.log (l_module_name,'object1 name ',l_object1_name);
1773: wsh_debug_sv.log (l_module_name,'condition ',l_condition);
1774: wsh_debug_sv.log (l_module_name,'object2 name ',l_object2_name);
1775: wsh_debug_sv.log (l_module_name,'severity ',l_severity);
1776: END IF;
1777: END IF; -- constraint_id IS NOT NULL
1778:
1779: EXIT WHEN i = p_failed_constraints.LAST;
1790: p_data => x_msg_data ,
1791: p_encoded => FND_API.G_FALSE );
1792:
1793: IF l_debug_on THEN
1794: wsh_debug_sv.log (l_module_name,'No. of messages stacked : ',to_char(x_msg_count));
1795: WSH_DEBUG_SV.pop(l_module_name);
1796: END IF;
1797:
1798: EXCEPTION
1791: p_encoded => FND_API.G_FALSE );
1792:
1793: IF l_debug_on THEN
1794: wsh_debug_sv.log (l_module_name,'No. of messages stacked : ',to_char(x_msg_count));
1795: WSH_DEBUG_SV.pop(l_module_name);
1796: END IF;
1797:
1798: EXCEPTION
1799: WHEN g_object_name_failed THEN
1799: WHEN g_object_name_failed THEN
1800: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1801: --
1802: IF l_debug_on THEN
1803: WSH_DEBUG_SV.pop(l_module_name,'get_constraint_display failed ');
1804: END IF;
1805: --
1806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1807: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1806: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1807: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1808: --
1809: IF l_debug_on THEN
1810: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1811: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1812: END IF;
1813: --
1814: WHEN others THEN
1807: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1808: --
1809: IF l_debug_on THEN
1810: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1811: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1812: END IF;
1813: --
1814: WHEN others THEN
1815: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.stack_messages');
1815: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.stack_messages');
1816: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1817: --
1818: IF l_debug_on THEN
1819: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1820: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1821: END IF;
1822: --
1823: END stack_messages;
1816: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1817: --
1818: IF l_debug_on THEN
1819: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1820: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1821: END IF;
1822: --
1823: END stack_messages;
1824:
1845:
1846: l_group_count NUMBER := p_group_tab.COUNT;
1847:
1848: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'create_valid_entity_group';
1849: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
1850:
1851: BEGIN
1852:
1853: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1852:
1853: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1854:
1855: IF l_debug_on THEN
1856: wsh_debug_sv.push(l_module_name);
1857: END IF;
1858:
1859: p_group_tab(l_group_count+1).group_index := l_group_count+1;
1860: p_group_tab(l_group_count+1).line_group_id := l_group_count+1;
1862: p_entity_rec.group_id := p_group_tab(l_group_count+1).line_group_id;
1863:
1864: --
1865: IF l_debug_on THEN
1866: WSH_DEBUG_SV.pop(l_module_name);
1867: END IF;
1868: --
1869:
1870: EXCEPTION
1872: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.create_valid_entity_group');
1873: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1874: --
1875: IF l_debug_on THEN
1876: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1877: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1878: END IF;
1879: --
1880: END create_valid_entity_group;
1873: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1874: --
1875: IF l_debug_on THEN
1876: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1877: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1878: END IF;
1879: --
1880: END create_valid_entity_group;
1881:
1906: l_comp_class_id NUMBER:=NULL;
1907: l_constraint_rec WSH_FTE_COMP_CONSTRAINTS%ROWTYPE;
1908:
1909: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'populate_constraint_cache';
1910: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
1911:
1912: BEGIN
1913: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1914:
1912: BEGIN
1913: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1914:
1915: IF l_debug_on THEN
1916: WSH_DEBUG_SV.push(l_module_name);
1917: WSH_DEBUG_SV.logmsg(l_module_name,'p_comp_class_code : '||p_comp_class_code);
1918: END IF;
1919:
1920: IF p_comp_class_code IS NOT NULL THEN
1913: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1914:
1915: IF l_debug_on THEN
1916: WSH_DEBUG_SV.push(l_module_name);
1917: WSH_DEBUG_SV.logmsg(l_module_name,'p_comp_class_code : '||p_comp_class_code);
1918: END IF;
1919:
1920: IF p_comp_class_code IS NOT NULL THEN
1921: l_comp_class_id := get_compclass_id(p_comp_class_code);
1924: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1925: END IF;
1926: --
1927: IF l_debug_on THEN
1928: WSH_DEBUG_SV.logmsg(l_module_name,'Called get_compclass_id comp_class_id : '||l_comp_class_id);
1929: END IF;
1930: --
1931: END IF;
1932:
1949: base => g_hash_base,
1950: hash_size => g_hash_size );
1951: --
1952: IF l_debug_on THEN
1953: WSH_DEBUG_SV.logmsg(l_module_name,'l_hash_string : '||l_hash_string);
1954: WSH_DEBUG_SV.logmsg(l_module_name,'l_hash_value : '||l_hash_value);
1955: END IF;
1956: --
1957:
1950: hash_size => g_hash_size );
1951: --
1952: IF l_debug_on THEN
1953: WSH_DEBUG_SV.logmsg(l_module_name,'l_hash_string : '||l_hash_string);
1954: WSH_DEBUG_SV.logmsg(l_module_name,'l_hash_value : '||l_hash_value);
1955: END IF;
1956: --
1957:
1958: IF NOT g_comp_constraint_tab.EXISTS(l_hash_value) THEN
1963: CLOSE c_get_constraint_info;
1964:
1965: --
1966: IF l_debug_on THEN
1967: WSH_DEBUG_SV.pop(l_module_name);
1968: END IF;
1969: --
1970:
1971: EXCEPTION
1972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1973: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1974: --
1975: IF l_debug_on THEN
1976: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1977: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1978: END IF;
1979: --
1980: WHEN others THEN
1973: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1974: --
1975: IF l_debug_on THEN
1976: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1977: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1978: END IF;
1979: --
1980: WHEN others THEN
1981: IF c_get_constraint_info%ISOPEN THEN
1984: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.populate_constraint_cache');
1985: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1986: --
1987: IF l_debug_on THEN
1988: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1989: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1990: END IF;
1991: --
1992: END populate_constraint_cache;
1985: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1986: --
1987: IF l_debug_on THEN
1988: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1989: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1990: END IF;
1991: --
1992: END populate_constraint_cache;
1993:
2016: l_hash_value NUMBER := 0;
2017: lg_hash_string VARCHAR2(2000) := NULL;
2018: l_return_status VARCHAR2(1);
2019:
2020: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
2021: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'check_cache';
2022:
2023: BEGIN
2024:
2023: BEGIN
2024:
2025: --
2026: IF l_debug_on THEN
2027: wsh_debug_sv.push (l_module_name);
2028: wsh_debug_sv.logmsg(l_module_name,'p_hash_value : '||p_hash_value);
2029: wsh_debug_sv.logmsg(l_module_name,'p_hash_string : '||p_hash_string);
2030: END IF;
2031: --
2024:
2025: --
2026: IF l_debug_on THEN
2027: wsh_debug_sv.push (l_module_name);
2028: wsh_debug_sv.logmsg(l_module_name,'p_hash_value : '||p_hash_value);
2029: wsh_debug_sv.logmsg(l_module_name,'p_hash_string : '||p_hash_string);
2030: END IF;
2031: --
2032:
2025: --
2026: IF l_debug_on THEN
2027: wsh_debug_sv.push (l_module_name);
2028: wsh_debug_sv.logmsg(l_module_name,'p_hash_value : '||p_hash_value);
2029: wsh_debug_sv.logmsg(l_module_name,'p_hash_string : '||p_hash_string);
2030: END IF;
2031: --
2032:
2033: IF p_hash_value IS NULL OR p_hash_string IS NULL THEN
2032:
2033: IF p_hash_value IS NULL OR p_hash_string IS NULL THEN
2034: --
2035: IF l_debug_on THEN
2036: wsh_debug_sv.pop (l_module_name);
2037: END IF;
2038: --
2039: RETURN FALSE;
2040: END IF;
2046: '-'||g_comp_constraint_tab(p_hash_value).constraint_object2_type||'-'||nvl(to_char(g_comp_constraint_tab(p_hash_value).constraint_object2_id),g_comp_constraint_tab(p_hash_value).constraint_object2_value_char)||
2047: '-'||(nvl(g_comp_constraint_tab(p_hash_value).object2_source_id,-9999));
2048:
2049: IF l_debug_on THEN
2050: wsh_debug_sv.logmsg(l_module_name,'lg_hash_string : '||lg_hash_string);
2051: END IF;
2052:
2053: IF NOT lg_hash_string = p_hash_string THEN
2054: -- Hash collision with current g_hash_size for input p_hash_value
2072: END IF;
2073:
2074: --
2075: IF l_debug_on THEN
2076: WSH_DEBUG_SV.logmsg(l_module_name,'Called populate_constraint_cache return status : '||l_return_status);
2077: END IF;
2078: --
2079:
2080: l_hash_value := dbms_utility.get_hash_value(
2089: '-'||g_comp_constraint_tab(l_hash_value).constraint_object2_type||'-'||nvl(to_char(g_comp_constraint_tab(l_hash_value).constraint_object2_id),g_comp_constraint_tab(l_hash_value).constraint_object2_value_char)||
2090: '-'||(nvl(g_comp_constraint_tab(l_hash_value).object2_source_id,-9999));
2091:
2092: IF l_debug_on THEN
2093: wsh_debug_sv.logmsg(l_module_name,'lg_hash_string : '||lg_hash_string);
2094: END IF;
2095:
2096: IF lg_hash_string = p_hash_string THEN
2097: -- Constraint found in new cache
2117: END IF;
2118:
2119: --
2120: IF l_debug_on THEN
2121: wsh_debug_sv.pop (l_module_name);
2122: END IF;
2123: --
2124:
2125: RETURN l_hashval_exists;
2128: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2129: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_cache');
2130: --
2131: IF l_debug_on THEN
2132: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2133: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2134: END IF;
2135: --
2136: RETURN FALSE;
2129: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_cache');
2130: --
2131: IF l_debug_on THEN
2132: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2133: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2134: END IF;
2135: --
2136: RETURN FALSE;
2137: WHEN others THEN
2137: WHEN others THEN
2138: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_cache');
2139: --
2140: IF l_debug_on THEN
2141: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2143: END IF;
2144: --
2145: RETURN FALSE;
2138: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_cache');
2139: --
2140: IF l_debug_on THEN
2141: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2143: END IF;
2144: --
2145: RETURN FALSE;
2146: END check_cache;
2169: l_swap_rec stop_ccinfo_rec_type;
2170: l_stop_table stop_ccinfo_tab_type;
2171:
2172: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' ||'sort_stop_table_asc';
2173: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
2174:
2175: BEGIN
2176:
2177: IF l_debug_on THEN
2174:
2175: BEGIN
2176:
2177: IF l_debug_on THEN
2178: WSH_DEBUG_SV.push(l_module_name);
2179: END IF;
2180:
2181: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2182:
2215: x_sort_stop_table := l_stop_table;
2216:
2217: IF l_debug_on THEN
2218:
2219: WSH_DEBUG_SV.logmsg(l_module_name,'Number of entries in Sorted table : '||x_sort_stop_table.count);
2220: FOR i in x_sort_stop_table.FIRST..x_sort_stop_table.LAST
2221: LOOP
2222: WSH_DEBUG_SV.logmsg(l_module_name,i||'STOP_ID'||x_sort_stop_table(i).STOP_ID||'Planned Arrival date '||x_sort_stop_table(i).PLANNED_ARRIVAL_DATE);
2223: END LOOP;
2218:
2219: WSH_DEBUG_SV.logmsg(l_module_name,'Number of entries in Sorted table : '||x_sort_stop_table.count);
2220: FOR i in x_sort_stop_table.FIRST..x_sort_stop_table.LAST
2221: LOOP
2222: WSH_DEBUG_SV.logmsg(l_module_name,i||'STOP_ID'||x_sort_stop_table(i).STOP_ID||'Planned Arrival date '||x_sort_stop_table(i).PLANNED_ARRIVAL_DATE);
2223: END LOOP;
2224: WSH_DEBUG_SV.pop(l_module_name);
2225: END IF;
2226:
2220: FOR i in x_sort_stop_table.FIRST..x_sort_stop_table.LAST
2221: LOOP
2222: WSH_DEBUG_SV.logmsg(l_module_name,i||'STOP_ID'||x_sort_stop_table(i).STOP_ID||'Planned Arrival date '||x_sort_stop_table(i).PLANNED_ARRIVAL_DATE);
2223: END LOOP;
2224: WSH_DEBUG_SV.pop(l_module_name);
2225: END IF;
2226:
2227: EXCEPTION
2228: WHEN OTHERS THEN
2259:
2260: itr NUMBER := 0;
2261: l_constraint_rec WSH_FTE_COMP_CONSTRAINTS%ROWTYPE;
2262: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'populate_reg_const_cache';
2263: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
2264:
2265: BEGIN
2266:
2267: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2267: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2268:
2269: --
2270: IF l_debug_on THEN
2271: WSH_DEBUG_SV.push(l_module_name);
2272: END IF;
2273:
2274: --
2275: -- Cache needs to be populated only once in a Session.
2277:
2278: IF (g_reg_const_cache.COUNT=0) THEN
2279:
2280: IF l_debug_on THEN
2281: WSH_DEBUG_SV.logmsg(l_module_name,'Populating g_reg_const_cache ');
2282: END IF;
2283:
2284: OPEN c_get_constraint_info(p_reg_class_id);
2285: /* Does not work in 8i
2299: END IF;
2300:
2301: --
2302: IF l_debug_on THEN
2303: WSH_DEBUG_SV.logmsg(l_module_name,' Number of entries in g_reg_const_cache : '||g_reg_const_cache.count);
2304: WSH_DEBUG_SV.pop(l_module_name);
2305: END IF;
2306: --
2307: EXCEPTION
2300:
2301: --
2302: IF l_debug_on THEN
2303: WSH_DEBUG_SV.logmsg(l_module_name,' Number of entries in g_reg_const_cache : '||g_reg_const_cache.count);
2304: WSH_DEBUG_SV.pop(l_module_name);
2305: END IF;
2306: --
2307: EXCEPTION
2308: WHEN others THEN
2313: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.populate_reg_mustuse_cache');
2314: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2315: --
2316: IF l_debug_on THEN
2317: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2318: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2319: END IF;
2320: --
2321: END populate_reg_mustuse_cache;
2314: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2315: --
2316: IF l_debug_on THEN
2317: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2318: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2319: END IF;
2320: --
2321: END populate_reg_mustuse_cache;
2322:
2356: l_count NUMBER;
2357: l_region_hash_str VARCHAR2(200);
2358: l_region_hash_val NUMBER;
2359: l_module_name CONSTANT VARCHAR2(100):= 'wsh.plsql.' ||G_PKG_NAME ||'.' ||'add_region_constraint';
2360: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
2361:
2362: BEGIN
2363: --
2364: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2363: --
2364: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2365: --
2366: IF l_debug_on THEN
2367: wsh_debug_sv.push (l_module_name);
2368: wsh_debug_sv.logmsg(l_module_name,'p_location_id : '||p_location_id);
2369: wsh_debug_sv.logmsg(l_module_name,'p_object2_id : '||p_object2_id);
2370: wsh_debug_sv.logmsg(l_module_name,'p_constraint_id : '||p_constraint_id);
2371: wsh_debug_sv.logmsg(l_module_name,'p_constraint_type: '||p_constraint_type);
2364: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2365: --
2366: IF l_debug_on THEN
2367: wsh_debug_sv.push (l_module_name);
2368: wsh_debug_sv.logmsg(l_module_name,'p_location_id : '||p_location_id);
2369: wsh_debug_sv.logmsg(l_module_name,'p_object2_id : '||p_object2_id);
2370: wsh_debug_sv.logmsg(l_module_name,'p_constraint_id : '||p_constraint_id);
2371: wsh_debug_sv.logmsg(l_module_name,'p_constraint_type: '||p_constraint_type);
2372: END IF;
2365: --
2366: IF l_debug_on THEN
2367: wsh_debug_sv.push (l_module_name);
2368: wsh_debug_sv.logmsg(l_module_name,'p_location_id : '||p_location_id);
2369: wsh_debug_sv.logmsg(l_module_name,'p_object2_id : '||p_object2_id);
2370: wsh_debug_sv.logmsg(l_module_name,'p_constraint_id : '||p_constraint_id);
2371: wsh_debug_sv.logmsg(l_module_name,'p_constraint_type: '||p_constraint_type);
2372: END IF;
2373: --
2366: IF l_debug_on THEN
2367: wsh_debug_sv.push (l_module_name);
2368: wsh_debug_sv.logmsg(l_module_name,'p_location_id : '||p_location_id);
2369: wsh_debug_sv.logmsg(l_module_name,'p_object2_id : '||p_object2_id);
2370: wsh_debug_sv.logmsg(l_module_name,'p_constraint_id : '||p_constraint_id);
2371: wsh_debug_sv.logmsg(l_module_name,'p_constraint_type: '||p_constraint_type);
2372: END IF;
2373: --
2374:
2367: wsh_debug_sv.push (l_module_name);
2368: wsh_debug_sv.logmsg(l_module_name,'p_location_id : '||p_location_id);
2369: wsh_debug_sv.logmsg(l_module_name,'p_object2_id : '||p_object2_id);
2370: wsh_debug_sv.logmsg(l_module_name,'p_constraint_id : '||p_constraint_id);
2371: wsh_debug_sv.logmsg(l_module_name,'p_constraint_type: '||p_constraint_type);
2372: END IF;
2373: --
2374:
2375: l_region_hash_str := p_location_id ||'-'
2381: base => l_reg_hash_base,
2382: hash_size =>l_reg_hash_size );
2383:
2384: IF l_debug_on THEN
2385: WSH_DEBUG_SV.logmsg(l_module_name,'l_region_hash_str : '||l_region_hash_str);
2386: WSH_DEBUG_SV.logmsg(l_module_name,'l_region_hash_val : '||l_region_hash_val);
2387: END IF;
2388:
2389:
2382: hash_size =>l_reg_hash_size );
2383:
2384: IF l_debug_on THEN
2385: WSH_DEBUG_SV.logmsg(l_module_name,'l_region_hash_str : '||l_region_hash_str);
2386: WSH_DEBUG_SV.logmsg(l_module_name,'l_region_hash_val : '||l_region_hash_val);
2387: END IF;
2388:
2389:
2390: IF NOT (g_regloc_loc_cache.EXISTS(l_region_hash_val)) THEN
2398: -- Need to resolve it using Linear Probing.
2399: -- Iterate from the current position to check till found.
2400:
2401: IF l_debug_on THEN
2402: WSH_DEBUG_SV.logmsg(l_module_name,'HASH COLLISION for hash string :'||l_region_hash_str);
2403: WSH_DEBUG_SV.logmsg(l_module_name,'HASH value at COLLISION :'||l_region_hash_val);
2404: END IF;
2405:
2406: itr := l_region_hash_val+1;
2399: -- Iterate from the current position to check till found.
2400:
2401: IF l_debug_on THEN
2402: WSH_DEBUG_SV.logmsg(l_module_name,'HASH COLLISION for hash string :'||l_region_hash_str);
2403: WSH_DEBUG_SV.logmsg(l_module_name,'HASH value at COLLISION :'||l_region_hash_val);
2404: END IF;
2405:
2406: itr := l_region_hash_val+1;
2407:
2410: itr:=itr+1;
2411: END LOOP;
2412:
2413: IF l_debug_on THEN
2414: WSH_DEBUG_SV.logmsg(l_module_name,'HASH COLLISION resolved at position:'||itr);
2415: END IF;
2416:
2417: --Empty Space has been found.
2418: g_regloc_loc_cache(itr).location_id := p_location_id;
2424: END IF;
2425:
2426: --
2427: IF l_debug_on THEN
2428: wsh_debug_sv.pop (l_module_name);
2429: END IF;
2430: --
2431:
2432: EXCEPTION
2435: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.add_region_constraint');
2436: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2437: --
2438: IF l_debug_on THEN
2439: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2440: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2441: END IF;
2442: --
2443: END add_region_constraint;
2436: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2437: --
2438: IF l_debug_on THEN
2439: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2440: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2441: END IF;
2442: --
2443: END add_region_constraint;
2444:
2469: l_slot_checked NUMBER;
2470: l_region_hash_str VARCHAR2(200);
2471: l_region_hash_val NUMBER;
2472: l_module_name CONSTANT VARCHAR2(100):= 'wsh.plsql.' ||G_PKG_NAME ||'.' ||'get_region_constraint';
2473: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
2474: l_constraint_id NUMBER;
2475:
2476: BEGIN
2477:
2477:
2478: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2479: --
2480: IF l_debug_on THEN
2481: wsh_debug_sv.push (l_module_name);
2482: wsh_debug_sv.logmsg(l_module_name,'p_location_id : '||p_location_id);
2483: wsh_debug_sv.logmsg(l_module_name,'p_object2_id : '||p_object2_id);
2484: END IF;
2485: --
2478: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2479: --
2480: IF l_debug_on THEN
2481: wsh_debug_sv.push (l_module_name);
2482: wsh_debug_sv.logmsg(l_module_name,'p_location_id : '||p_location_id);
2483: wsh_debug_sv.logmsg(l_module_name,'p_object2_id : '||p_object2_id);
2484: END IF;
2485: --
2486:
2479: --
2480: IF l_debug_on THEN
2481: wsh_debug_sv.push (l_module_name);
2482: wsh_debug_sv.logmsg(l_module_name,'p_location_id : '||p_location_id);
2483: wsh_debug_sv.logmsg(l_module_name,'p_object2_id : '||p_object2_id);
2484: END IF;
2485: --
2486:
2487: l_region_hash_str := p_location_id ||'-'
2494: hash_size =>l_reg_hash_size );
2495:
2496:
2497: IF l_debug_on THEN
2498: WSH_DEBUG_SV.logmsg(l_module_name,'l_region_hash_str : '||l_region_hash_str);
2499: WSH_DEBUG_SV.logmsg(l_module_name,'l_region_hash_val : '||l_region_hash_val);
2500: END IF;
2501:
2502: IF (NOT g_regloc_loc_cache.EXISTS(l_region_hash_val)) THEN
2495:
2496:
2497: IF l_debug_on THEN
2498: WSH_DEBUG_SV.logmsg(l_module_name,'l_region_hash_str : '||l_region_hash_str);
2499: WSH_DEBUG_SV.logmsg(l_module_name,'l_region_hash_val : '||l_region_hash_val);
2500: END IF;
2501:
2502: IF (NOT g_regloc_loc_cache.EXISTS(l_region_hash_val)) THEN
2503: -- implies entry was not made
2503: -- implies entry was not made
2504: l_constraint_id := g_loc_reg_not_validated;
2505:
2506: IF l_debug_on THEN
2507: WSH_DEBUG_SV.logmsg(l_module_name,'Location has not been validated before');
2508: END IF;
2509:
2510: ELSIF (g_regloc_loc_cache(l_region_hash_val).hash_string = l_region_hash_str) THEN
2511: -- Implies entry is present there
2514: ELSE
2515: -- A collision has occured;
2516:
2517: IF l_debug_on THEN
2518: WSH_DEBUG_SV.logmsg(l_module_name,'Collision occured while retriving constraint');
2519: END IF;
2520:
2521: itr := l_region_hash_val+1;
2522: l_count := g_regloc_loc_cache.COUNT;
2540: IF (l_slot_checked = l_count) THEN
2541: -- it implies could not find through the cache
2542: l_constraint_id := g_loc_reg_not_validated;
2543: IF l_debug_on THEN
2544: WSH_DEBUG_SV.logmsg(l_module_name,'Location has not been validated before');
2545: END IF;
2546: ELSE
2547: -- found in the cache.
2548: l_constraint_id := g_regloc_loc_cache(itr).constraint_id;
2551: END IF;
2552:
2553: --
2554: IF l_debug_on THEN
2555: WSH_DEBUG_SV.logmsg(l_module_name,'l_constraint_id : '||l_constraint_id);
2556: WSH_DEBUG_SV.pop (l_module_name);
2557: END IF;
2558: --
2559:
2552:
2553: --
2554: IF l_debug_on THEN
2555: WSH_DEBUG_SV.logmsg(l_module_name,'l_constraint_id : '||l_constraint_id);
2556: WSH_DEBUG_SV.pop (l_module_name);
2557: END IF;
2558: --
2559:
2560: RETURN l_constraint_id ;
2565: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_region_constraint');
2566: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2567: --
2568: IF l_debug_on THEN
2569: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2570: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2571: END IF;
2572: --
2573: END get_region_constraint;
2566: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2567: --
2568: IF l_debug_on THEN
2569: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2570: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2571: END IF;
2572: --
2573: END get_region_constraint;
2574:
2619: IS
2620: l_region_tab WSH_UTIL_CORE.ID_TAB_TYPE;
2621: l_zone_tab WSH_UTIL_CORE.ID_TAB_TYPE;
2622: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_region_constraint';
2623: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
2624: l_comp_class_code CONSTANT VARCHAR2(30) := G_REGION_FACILITY;
2625: l_complement_constraint_type VARCHAR2(1);
2626: l_comp_const_exists BOOLEAN :=FALSE;
2627:
2649:
2650: BEGIN
2651:
2652: IF l_debug_on THEN
2653: WSH_DEBUG_SV.push(l_module_name);
2654: WSH_DEBUG_SV.logmsg(l_module_name,'Location Id '||p_location_id);
2655: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
2656: END IF;
2657:
2650: BEGIN
2651:
2652: IF l_debug_on THEN
2653: WSH_DEBUG_SV.push(l_module_name);
2654: WSH_DEBUG_SV.logmsg(l_module_name,'Location Id '||p_location_id);
2655: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
2656: END IF;
2657:
2658: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2651:
2652: IF l_debug_on THEN
2653: WSH_DEBUG_SV.push(l_module_name);
2654: WSH_DEBUG_SV.logmsg(l_module_name,'Location Id '||p_location_id);
2655: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
2656: END IF;
2657:
2658: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2659: x_validate_result := 'S';
2677: END IF;
2678:
2679: --
2680: IF l_debug_on THEN
2681: WSH_DEBUG_SV.logmsg(l_module_name,'Return status after calling populate_constraint_cache : '||l_return_status);
2682: END IF;
2683: --
2684: END IF;
2685:
2719: END IF;
2720: --
2721: IF l_debug_on THEN
2722: IF (l_constraint_id = g_const_not_present) THEN
2723: wsh_debug_sv.logmsg(l_module_name,'Region level constraints not present for location '||p_location_id);
2724: ELSE
2725: wsh_debug_sv.logmsg(l_module_name,'Region level constraint '||l_constraint_id||' present for location '||p_location_id);
2726: END IF;
2727: WSH_DEBUG_SV.pop(l_module_name);
2721: IF l_debug_on THEN
2722: IF (l_constraint_id = g_const_not_present) THEN
2723: wsh_debug_sv.logmsg(l_module_name,'Region level constraints not present for location '||p_location_id);
2724: ELSE
2725: wsh_debug_sv.logmsg(l_module_name,'Region level constraint '||l_constraint_id||' present for location '||p_location_id);
2726: END IF;
2727: WSH_DEBUG_SV.pop(l_module_name);
2728: END IF;
2729: --
2723: wsh_debug_sv.logmsg(l_module_name,'Region level constraints not present for location '||p_location_id);
2724: ELSE
2725: wsh_debug_sv.logmsg(l_module_name,'Region level constraint '||l_constraint_id||' present for location '||p_location_id);
2726: END IF;
2727: WSH_DEBUG_SV.pop(l_module_name);
2728: END IF;
2729: --
2730: RETURN;
2731:
2731:
2732: END IF;
2733:
2734: IF l_debug_on THEN
2735: wsh_debug_sv.logmsg(l_module_name,'Validating Region/Zone level constraints for location '||p_location_id);
2736: END IF;
2737:
2738:
2739: l_comp_class_id := g_comp_class_tab(l_hash_value).compatibility_class_id;
2760: -- Object id is the current region id
2761: l_region_id := l_region_tab(r_itr);
2762:
2763: IF l_debug_on THEN
2764: wsh_debug_sv.logmsg(l_module_name,'Validating for Region :'||l_region_id);
2765: END IF;
2766:
2767: l_reg_hash_string := l_comp_class_id||'-'
2768: ||'REG'||'-'
2802: END IF;
2803: END IF;
2804:
2805: IF l_debug_on THEN
2806: wsh_debug_sv.pop(l_module_name);
2807: END IF;
2808: RETURN;
2809:
2810: END IF;
2828: LOOP
2829: l_zone_id := l_zone_tab(z_itr);
2830:
2831: IF l_debug_on THEN
2832: wsh_debug_sv.logmsg(l_module_name,'Validating for Zone :'||l_zone_id);
2833: END IF;
2834:
2835: l_zone_hash_string := l_comp_class_id||'-'
2836: ||'ZON'||'-'
2883: IF check_cache(c_zone_hash_value,c_zone_hash_string) THEN
2884: IF g_comp_constraint_tab(c_zone_hash_value).constraint_type = l_complement_constraint_type THEN
2885: -- Both inclusive and exclusive constraints have been defined
2886: IF l_debug_on THEN
2887: WSH_DEBUG_SV.logmsg(l_module_name,'Both Inclusive and Exclusive Zone level constraints defined for location'||p_location_id);
2888: END IF;
2889: l_comp_const_exists:= TRUE;
2890: EXIT;
2891: END IF;
2922: END IF;
2923: END IF;
2924:
2925: IF l_debug_on THEN
2926: wsh_debug_sv.pop(l_module_name);
2927: END IF;
2928: RETURN;
2929: END IF; --not (l_comp_const_exist)
2930: END IF;
2944: -- If we reach here we do not have any constraint present
2945: -- between location and the object.
2946: --
2947: IF l_debug_on THEN
2948: wsh_debug_sv.logmsg(l_module_name,'No Region/Zone level constraint present for location :'||p_location_id);
2949: END IF;
2950:
2951: add_region_constraint(
2952: p_location_id => p_location_id
2955: ,p_constraint_type => p_constraint_type
2956: ,x_return_status => l_return_status);
2957:
2958: IF l_debug_on THEN
2959: wsh_debug_sv.pop(l_module_name);
2960: END IF;
2961:
2962: EXCEPTION
2963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2963: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2964: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2965:
2966: IF l_debug_on THEN
2967: WSH_DEBUG_SV.pop(l_module_name,'unexpected_error');
2968: END IF;
2969: --
2970: WHEN OTHERS THEN
2971: --
2972: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_region_constraint');
2973: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2974:
2975: IF l_debug_on THEN
2976: WSH_DEBUG_SV.pop(l_module_name,'unexpected_error');
2977: END IF;
2978:
2979: --
2980: END validate_region_constraint;
3077:
3078: l_return_status VARCHAR2(1);
3079:
3080: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME ||'.'||'check_reg_incl_facilities';
3081: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
3082:
3083: BEGIN
3084:
3085: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3086: x_validate_result := 'F';
3087: l_validate_result := 'F';
3088:
3089: IF l_debug_on THEN
3090: wsh_debug_sv.push(l_module_name);
3091: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 Location id : '||p_location_id);
3092: WSH_DEBUG_SV.logmsg(l_module_name,'Location list count : '||p_location_list.count);
3093: END IF;
3094:
3087: l_validate_result := 'F';
3088:
3089: IF l_debug_on THEN
3090: wsh_debug_sv.push(l_module_name);
3091: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 Location id : '||p_location_id);
3092: WSH_DEBUG_SV.logmsg(l_module_name,'Location list count : '||p_location_list.count);
3093: END IF;
3094:
3095: -- Check whether NO inclusive constriant occurs for the given location id
3088:
3089: IF l_debug_on THEN
3090: wsh_debug_sv.push(l_module_name);
3091: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 Location id : '||p_location_id);
3092: WSH_DEBUG_SV.logmsg(l_module_name,'Location list count : '||p_location_list.count);
3093: END IF;
3094:
3095: -- Check whether NO inclusive constriant occurs for the given location id
3096: -- If NO constraints found then return with status 'S'
3113: -- No constraint present for the location
3114: x_validate_result := 'S';
3115:
3116: IF l_debug_on THEN
3117: WSH_DEBUG_SV.logmsg(l_module_name,'No REG/ZON Inclusive constraints defined for location - '||p_location_id);
3118: wsh_debug_sv.pop(l_module_name);
3119: END IF;
3120:
3121: RETURN;
3114: x_validate_result := 'S';
3115:
3116: IF l_debug_on THEN
3117: WSH_DEBUG_SV.logmsg(l_module_name,'No REG/ZON Inclusive constraints defined for location - '||p_location_id);
3118: wsh_debug_sv.pop(l_module_name);
3119: END IF;
3120:
3121: RETURN;
3122: END IF;
3138: x_return_status => l_return_status) ;
3139:
3140: --
3141: IF l_debug_on THEN
3142: WSH_DEBUG_SV.logmsg(l_module_name,'Called populate_constraint_cache return status : '||l_return_status);
3143: END IF;
3144: --
3145:
3146: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3177:
3178: l_region_id := l_region_tab(r_itr);
3179:
3180: IF l_debug_on THEN
3181: wsh_debug_sv.logmsg(l_module_name,'Validating inclusive constraints for Region :'||l_region_id);
3182: END IF;
3183:
3184: l_reg_hash_str_const := l_reg_comp_class_id||'-'
3185: ||'REG'||'-'
3192: IF itr IS NOT NULL THEN
3193: LOOP
3194: --
3195: IF l_debug_on THEN
3196: WSH_DEBUG_SV.logmsg(l_module_name,'p_location_list : '||p_location_list(itr));
3197: END IF;
3198: --
3199: l_reg_hash_string:=l_reg_hash_str_const||(p_location_list(itr))||'-'||(-9999);
3200:
3203: base => g_hash_base,
3204: hash_size =>g_hash_size );
3205: --
3206: IF l_debug_on THEN
3207: WSH_DEBUG_SV.logmsg(l_module_name,'l_reg_hash_string : '||l_reg_hash_string);
3208: WSH_DEBUG_SV.logmsg(l_module_name,'l_reg_hash_value : '||l_reg_hash_value);
3209: END IF;
3210: --
3211:
3204: hash_size =>g_hash_size );
3205: --
3206: IF l_debug_on THEN
3207: WSH_DEBUG_SV.logmsg(l_module_name,'l_reg_hash_string : '||l_reg_hash_string);
3208: WSH_DEBUG_SV.logmsg(l_module_name,'l_reg_hash_value : '||l_reg_hash_value);
3209: END IF;
3210: --
3211:
3212: IF check_cache(l_reg_hash_value,l_reg_hash_string) THEN
3215: l_validate_result := 'S';
3216: l_constraint_found:= TRUE;
3217:
3218: IF l_debug_on THEN
3219: wsh_debug_sv.logmsg(l_module_name,'Inclusive Constraint Found ');
3220: END IF;
3221:
3222: EXIT;
3223: END IF;
3240: p_reg_class_id => l_reg_comp_class_id,
3241: x_return_status => l_return_status);
3242: --
3243: IF l_debug_on THEN
3244: WSH_DEBUG_SV.logmsg(l_module_name,'Called populate_reg_mustuse_cache return status:'||l_return_status);
3245: END IF;
3246: --
3247:
3248: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3256:
3257: IF itr IS NOT NULL THEN
3258: LOOP
3259: IF l_debug_on THEN
3260: WSH_DEBUG_SV.logmsg(l_module_name,' Itr : '||itr);
3261: END IF;
3262:
3263: IF g_reg_const_cache(itr).CONSTRAINT_OBJECT1_TYPE = 'REG' AND
3264: g_reg_const_cache(itr).CONSTRAINT_OBJECT1_ID = l_region_id
3264: g_reg_const_cache(itr).CONSTRAINT_OBJECT1_ID = l_region_id
3265: THEN
3266: --
3267: IF l_debug_on THEN
3268: WSH_DEBUG_SV.logmsg(l_module_name,' Input has Inclusive constraint: '||g_reg_const_cache(itr).compatibility_id);
3269: END IF;
3270: --
3271: l_fail_rec_cont := l_fail_rec_cont + 1;
3272: x_failed_constraint(l_fail_rec_cont).constraint_id := g_reg_const_cache(itr).compatibility_id;
3291:
3292: IF NOT(l_constraint_found) THEN
3293:
3294: IF l_debug_on THEN
3295: WSH_DEBUG_SV.logmsg(l_module_name,' Calling WSH_REGIONS_SEARCH_PKG.Get_All_Zone_Matches ');
3296: END IF;
3297: WSH_REGIONS_SEARCH_PKG.Get_All_Zone_Matches(
3298: p_region_id => l_region_id,
3299: x_zone_tab => l_zone_tab,
3315:
3316: l_zone_id := l_zone_tab(z_itr);
3317:
3318: IF l_debug_on THEN
3319: wsh_debug_sv.logmsg(l_module_name,'Validating inclusive constraints for Zone :'||l_zone_id);
3320: END IF;
3321:
3322: l_zone_hash_str_const := l_reg_comp_class_id||'-'
3323: ||'ZON'||'-'
3325: ||(-9999)||'-'
3326: ||'FAC'||'-';
3327:
3328: IF l_debug_on THEN
3329: WSH_DEBUG_SV.logmsg(l_module_name,'Zone hash constant is : '||l_zone_hash_str_const);
3330: END IF;
3331:
3332: itr := p_location_list.FIRST;
3333:
3334: IF itr IS NOT NULL THEN
3335: LOOP
3336: --
3337: IF l_debug_on THEN
3338: WSH_DEBUG_SV.logmsg(l_module_name,'p_location_list : '||p_location_list(itr));
3339: END IF;
3340: --
3341: l_zone_hash_string:=l_zone_hash_str_const ||(p_location_list(itr))||'-'||(-9999);
3342:
3345: base => g_hash_base,
3346: hash_size =>g_hash_size );
3347: --
3348: IF l_debug_on THEN
3349: WSH_DEBUG_SV.logmsg(l_module_name,'l_zone_hash_string : '||l_zone_hash_string);
3350: WSH_DEBUG_SV.logmsg(l_module_name,'l_zone_hash_value : '||l_zone_hash_value);
3351: END IF;
3352: --
3353:
3346: hash_size =>g_hash_size );
3347: --
3348: IF l_debug_on THEN
3349: WSH_DEBUG_SV.logmsg(l_module_name,'l_zone_hash_string : '||l_zone_hash_string);
3350: WSH_DEBUG_SV.logmsg(l_module_name,'l_zone_hash_value : '||l_zone_hash_value);
3351: END IF;
3352: --
3353:
3354: IF check_cache(l_zone_hash_value,l_zone_hash_string) THEN
3357: l_validate_result := 'S';
3358: l_constraint_found:= TRUE;
3359:
3360: IF l_debug_on THEN
3361: wsh_debug_sv.logmsg(l_module_name,'Inclusive Constraint Found');
3362: END IF;
3363: EXIT;
3364: END IF;
3365: END IF;
3390: g_reg_const_cache(itr).CONSTRAINT_OBJECT1_ID = l_zone_id
3391: THEN
3392: --
3393: IF l_debug_on THEN
3394: WSH_DEBUG_SV.logmsg(l_module_name,' Zone :'||l_zone_id||' for Input has constraint:(Check for INCL/EXCL constraint '||g_reg_const_cache(itr).compatibility_id);
3395: END IF;
3396:
3397: add_constraint := TRUE;
3398:
3429: IF g_comp_constraint_tab(l_zone_hash_excl_value).constraint_type = 'E' THEN
3430: -- both inclusive and excluive constraint is present.
3431: -- Need not enter the constriant in the list.
3432: IF l_debug_on THEN
3433: wsh_debug_sv.logmsg(l_module_name,'Both inclusive and exclusive constraint found for the location ');
3434: END IF;
3435: add_constraint := FALSE;
3436: EXIT;
3437: END IF;
3489: -- Maintain the location ID as no constraint is present
3490: -- at REGION and ZONE level
3491:
3492: IF l_debug_on THEN
3493: wsh_debug_sv.logmsg(l_module_name,'No Inclusive Region/Zone constraint present for location '||p_location_id);
3494: END IF;
3495:
3496: add_region_constraint(
3497: p_location_id => p_location_id
3515:
3516: END IF;
3517:
3518: IF l_debug_on THEN
3519: wsh_debug_sv.pop(l_module_name);
3520: END IF;
3521:
3522: EXCEPTION
3523:
3524: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3525: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3526: --
3527: IF l_debug_on THEN
3528: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3529: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3530: END IF;
3531: --
3532: WHEN others THEN
3525: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3526: --
3527: IF l_debug_on THEN
3528: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3529: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3530: END IF;
3531: --
3532: WHEN others THEN
3533: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_reg_incl_facilities');
3533: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_reg_incl_facilities');
3534: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3535: --
3536: IF l_debug_on THEN
3537: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3538: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3539: END IF;
3540: END check_reg_incl_facilities;
3541:
3534: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3535: --
3536: IF l_debug_on THEN
3537: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3538: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3539: END IF;
3540: END check_reg_incl_facilities;
3541:
3542:
3633: itr NUMBER :=0;
3634: --DUM_LOC(E)
3635:
3636: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_constraint';
3637: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
3638:
3639: BEGIN
3640:
3641: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3641: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3642: x_validate_result := 'S';
3643:
3644: IF l_debug_on THEN
3645: wsh_debug_sv.push(l_module_name);
3646: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
3647: WSH_DEBUG_SV.logmsg(l_module_name,'p_constraint_type : '||p_constraint_type);
3648: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
3642: x_validate_result := 'S';
3643:
3644: IF l_debug_on THEN
3645: wsh_debug_sv.push(l_module_name);
3646: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
3647: WSH_DEBUG_SV.logmsg(l_module_name,'p_constraint_type : '||p_constraint_type);
3648: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
3650: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
3643:
3644: IF l_debug_on THEN
3645: wsh_debug_sv.push(l_module_name);
3646: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
3647: WSH_DEBUG_SV.logmsg(l_module_name,'p_constraint_type : '||p_constraint_type);
3648: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
3650: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
3651: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
3644: IF l_debug_on THEN
3645: wsh_debug_sv.push(l_module_name);
3646: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
3647: WSH_DEBUG_SV.logmsg(l_module_name,'p_constraint_type : '||p_constraint_type);
3648: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
3650: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
3651: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
3652: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
3645: wsh_debug_sv.push(l_module_name);
3646: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
3647: WSH_DEBUG_SV.logmsg(l_module_name,'p_constraint_type : '||p_constraint_type);
3648: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
3650: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
3651: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
3652: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
3653: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
3646: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
3647: WSH_DEBUG_SV.logmsg(l_module_name,'p_constraint_type : '||p_constraint_type);
3648: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
3650: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
3651: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
3652: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
3653: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
3654: IF p_direct_shipment THEN
3647: WSH_DEBUG_SV.logmsg(l_module_name,'p_constraint_type : '||p_constraint_type);
3648: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
3650: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
3651: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
3652: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
3653: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
3654: IF p_direct_shipment THEN
3655: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is true');
3648: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
3650: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
3651: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
3652: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
3653: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
3654: IF p_direct_shipment THEN
3655: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is true');
3656: ELSE
3649: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
3650: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
3651: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
3652: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
3653: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
3654: IF p_direct_shipment THEN
3655: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is true');
3656: ELSE
3657: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is false');
3651: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
3652: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
3653: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
3654: IF p_direct_shipment THEN
3655: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is true');
3656: ELSE
3657: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is false');
3658: END IF;
3659: END IF;
3653: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
3654: IF p_direct_shipment THEN
3655: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is true');
3656: ELSE
3657: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is false');
3658: END IF;
3659: END IF;
3660:
3661: --return if object2 is NULL
3662: IF (p_object1_val_num IS NULL OR (p_object2_val_num IS NULL AND p_object2_val_char IS NULL)) OR
3663: (p_comp_class_code = G_CUSTOMER_CUSTOMER AND p_object1_val_num = p_object2_val_num) THEN
3664: --
3665: IF l_debug_on THEN
3666: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3667: WSH_DEBUG_SV.pop(l_module_name);
3668: END IF;
3669: --
3670: RETURN;
3663: (p_comp_class_code = G_CUSTOMER_CUSTOMER AND p_object1_val_num = p_object2_val_num) THEN
3664: --
3665: IF l_debug_on THEN
3666: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3667: WSH_DEBUG_SV.pop(l_module_name);
3668: END IF;
3669: --
3670: RETURN;
3671: END IF;
3700: IF (p_comp_class_code = G_CUSTOMER_FACILITY) AND (l_object1_typesub = G_FACILITY)
3701: AND (p_object1_physical_id IS NOT NULL) THEN
3702:
3703: IF l_debug_on THEN
3704: WSH_DEBUG_SV.logmsg(l_module_name,'Validating CUS-FAC constraint for dummy location, Finding corresponding Organizations');
3705: END IF;
3706:
3707: --get_org_from_location(
3708: WSH_UTIL_CORE.get_org_from_location(
3710: x_organization_tab => l_organization_tab,
3711: x_return_status => l_return_status);
3712:
3713: IF l_debug_on THEN
3714: WSH_DEBUG_SV.logmsg(l_module_name,'l_return_status:'||l_return_status);
3715: WSH_DEBUG_SV.logmsg(l_module_name,'Organizations Returned:'||l_organization_tab.Count);
3716: END IF;
3717:
3718: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3711: x_return_status => l_return_status);
3712:
3713: IF l_debug_on THEN
3714: WSH_DEBUG_SV.logmsg(l_module_name,'l_return_status:'||l_return_status);
3715: WSH_DEBUG_SV.logmsg(l_module_name,'Organizations Returned:'||l_organization_tab.Count);
3716: END IF;
3717:
3718: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3719: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3725:
3726: IF l_org_itr IS NOT NULL THEN
3727: LOOP
3728: IF l_debug_on THEN
3729: WSH_DEBUG_SV.logmsg(l_module_name,'Organizations id:'||l_organization_tab(l_org_itr));
3730: WSH_DEBUG_SV.logmsg(l_module_name,'Validating ORG_FAC for the dummy location ');
3731: END IF;
3732:
3733: validate_constraint(
3726: IF l_org_itr IS NOT NULL THEN
3727: LOOP
3728: IF l_debug_on THEN
3729: WSH_DEBUG_SV.logmsg(l_module_name,'Organizations id:'||l_organization_tab(l_org_itr));
3730: WSH_DEBUG_SV.logmsg(l_module_name,'Validating ORG_FAC for the dummy location ');
3731: END IF;
3732:
3733: validate_constraint(
3734: p_comp_class_code => G_SHIPORG_FACILITY,
3758: END LOOP;
3759: END IF;
3760: --
3761: IF l_debug_on THEN
3762: WSH_DEBUG_SV.logmsg(l_module_name,'Validation for CUS-FAC, Dummy locations over');
3763: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3764: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_return_status : '||x_return_status);
3765: WSH_DEBUG_SV.pop(l_module_name);
3766: END IF;
3759: END IF;
3760: --
3761: IF l_debug_on THEN
3762: WSH_DEBUG_SV.logmsg(l_module_name,'Validation for CUS-FAC, Dummy locations over');
3763: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3764: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_return_status : '||x_return_status);
3765: WSH_DEBUG_SV.pop(l_module_name);
3766: END IF;
3767: --
3760: --
3761: IF l_debug_on THEN
3762: WSH_DEBUG_SV.logmsg(l_module_name,'Validation for CUS-FAC, Dummy locations over');
3763: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3764: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_return_status : '||x_return_status);
3765: WSH_DEBUG_SV.pop(l_module_name);
3766: END IF;
3767: --
3768: RETURN;
3761: IF l_debug_on THEN
3762: WSH_DEBUG_SV.logmsg(l_module_name,'Validation for CUS-FAC, Dummy locations over');
3763: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3764: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_return_status : '||x_return_status);
3765: WSH_DEBUG_SV.pop(l_module_name);
3766: END IF;
3767: --
3768: RETURN;
3769: END IF;
3788: hash_size =>g_hash_size );
3789:
3790: --
3791: IF l_debug_on THEN
3792: WSH_DEBUG_SV.logmsg(l_module_name,'l_itm_hash_string : '||l_itm_hash_string);
3793: WSH_DEBUG_SV.logmsg(l_module_name,'l_itm_hash_value : '||l_itm_hash_value);
3794: END IF;
3795: --
3796:
3789:
3790: --
3791: IF l_debug_on THEN
3792: WSH_DEBUG_SV.logmsg(l_module_name,'l_itm_hash_string : '||l_itm_hash_string);
3793: WSH_DEBUG_SV.logmsg(l_module_name,'l_itm_hash_value : '||l_itm_hash_value);
3794: END IF;
3795: --
3796:
3797: IF g_itm_exclusive_cache.EXISTS(l_itm_hash_value) AND
3799: -- Found in cache
3800: x_validate_result := g_itm_exclusive_cache(l_itm_hash_value).validate_result;
3801: --
3802: IF l_debug_on THEN
3803: WSH_DEBUG_SV.logmsg(l_module_name,'Found in g_itm_exclusive_cache with hash string : '||l_itm_hash_string);
3804: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3805: WSH_DEBUG_SV.pop(l_module_name);
3806: END IF;
3807: --
3800: x_validate_result := g_itm_exclusive_cache(l_itm_hash_value).validate_result;
3801: --
3802: IF l_debug_on THEN
3803: WSH_DEBUG_SV.logmsg(l_module_name,'Found in g_itm_exclusive_cache with hash string : '||l_itm_hash_string);
3804: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3805: WSH_DEBUG_SV.pop(l_module_name);
3806: END IF;
3807: --
3808: RETURN; -- Done with as found for the input types
3801: --
3802: IF l_debug_on THEN
3803: WSH_DEBUG_SV.logmsg(l_module_name,'Found in g_itm_exclusive_cache with hash string : '||l_itm_hash_string);
3804: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3805: WSH_DEBUG_SV.pop(l_module_name);
3806: END IF;
3807: --
3808: RETURN; -- Done with as found for the input types
3809:
3824: base => g_hash_base,
3825: hash_size =>g_hash_size );
3826: --
3827: IF l_debug_on THEN
3828: WSH_DEBUG_SV.logmsg(l_module_name,'l_fac_hash_string : '||l_fac_hash_string);
3829: WSH_DEBUG_SV.logmsg(l_module_name,'l_fac_hash_value : '||l_fac_hash_value);
3830: END IF;
3831: --
3832:
3825: hash_size =>g_hash_size );
3826: --
3827: IF l_debug_on THEN
3828: WSH_DEBUG_SV.logmsg(l_module_name,'l_fac_hash_string : '||l_fac_hash_string);
3829: WSH_DEBUG_SV.logmsg(l_module_name,'l_fac_hash_value : '||l_fac_hash_value);
3830: END IF;
3831: --
3832:
3833: IF g_fac_exclusive_cache.EXISTS(l_fac_hash_value) AND
3835: -- Found in cache
3836: x_validate_result := g_fac_exclusive_cache(l_fac_hash_value).validate_result;
3837: --
3838: IF l_debug_on THEN
3839: WSH_DEBUG_SV.logmsg(l_module_name,'Found in g_fac_exclusive_cache with hash string : '||l_fac_hash_string);
3840: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3841: WSH_DEBUG_SV.pop(l_module_name);
3842: END IF;
3843: --
3836: x_validate_result := g_fac_exclusive_cache(l_fac_hash_value).validate_result;
3837: --
3838: IF l_debug_on THEN
3839: WSH_DEBUG_SV.logmsg(l_module_name,'Found in g_fac_exclusive_cache with hash string : '||l_fac_hash_string);
3840: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3841: WSH_DEBUG_SV.pop(l_module_name);
3842: END IF;
3843: --
3844: RETURN; -- Done with as found for the input types
3837: --
3838: IF l_debug_on THEN
3839: WSH_DEBUG_SV.logmsg(l_module_name,'Found in g_fac_exclusive_cache with hash string : '||l_fac_hash_string);
3840: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
3841: WSH_DEBUG_SV.pop(l_module_name);
3842: END IF;
3843: --
3844: RETURN; -- Done with as found for the input types
3845:
3871: END IF;
3872:
3873: --
3874: IF l_debug_on THEN
3875: WSH_DEBUG_SV.logmsg(l_module_name,'Called populate_constraint_cache return status : '||l_return_status);
3876: END IF;
3877: --
3878: END IF;
3879:
3937: hash_size =>g_hash_size );
3938:
3939: --
3940: IF l_debug_on THEN
3941: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_string : '||l1_hash_string);
3942: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_value : '||l1_hash_value);
3943: END IF;
3944: --
3945:
3938:
3939: --
3940: IF l_debug_on THEN
3941: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_string : '||l1_hash_string);
3942: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_value : '||l1_hash_value);
3943: END IF;
3944: --
3945:
3946: IF p_comp_class_code = G_CUSTOMER_CUSTOMER THEN
3954: hash_size =>g_hash_size );
3955:
3956: --
3957: IF l_debug_on THEN
3958: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_string : '||l11_hash_string);
3959: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_value : '||l11_hash_value);
3960: END IF;
3961: --
3962:
3955:
3956: --
3957: IF l_debug_on THEN
3958: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_string : '||l11_hash_string);
3959: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_value : '||l11_hash_value);
3960: END IF;
3961: --
3962:
3963: ELSIF p_comp_class_code = G_SHIPORG_FACILITY THEN
3987: hash_size =>g_hash_size );
3988:
3989: --
3990: IF l_debug_on THEN
3991: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_string : '||l11_hash_string);
3992: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_value : '||l11_hash_value);
3993: END IF;
3994: --
3995:
3988:
3989: --
3990: IF l_debug_on THEN
3991: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_string : '||l11_hash_string);
3992: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_value : '||l11_hash_value);
3993: END IF;
3994: --
3995:
3996: END IF;
4026: g_itm_exclusive_cache(l_itm_hash_value).validate_result := x_validate_result ;
4027:
4028: --
4029: IF l_debug_on THEN
4030: WSH_DEBUG_SV.logmsg(l_module_name,'Created in g_itm_exclusive_cache with hash string : '||l_itm_hash_string);
4031: END IF;
4032: --
4033: END IF;
4034:
4044: g_fac_exclusive_cache(l_fac_hash_value).validate_result := x_validate_result ;
4045:
4046: --
4047: IF l_debug_on THEN
4048: WSH_DEBUG_SV.logmsg(l_module_name,'Created in g_fac_exclusive_cache with hash string : '||l_fac_hash_string);
4049: END IF;
4050: --
4051: END IF;
4052:
4051: END IF;
4052:
4053: --
4054: IF l_debug_on THEN
4055: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4056: WSH_DEBUG_SV.pop(l_module_name);
4057: END IF;
4058: --
4059:
4052:
4053: --
4054: IF l_debug_on THEN
4055: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4056: WSH_DEBUG_SV.pop(l_module_name);
4057: END IF;
4058: --
4059:
4060: RETURN; -- Done with as found for the input types
4071: x_failed_constraint.violation_type := g_comp_class_tab(l_hash_value).constraint_violation;
4072:
4073: --
4074: IF l_debug_on THEN
4075: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4076: WSH_DEBUG_SV.pop(l_module_name);
4077: END IF;
4078: --
4079: RETURN; -- Done with as found for the input types
4072:
4073: --
4074: IF l_debug_on THEN
4075: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4076: WSH_DEBUG_SV.pop(l_module_name);
4077: END IF;
4078: --
4079: RETURN; -- Done with as found for the input types
4080:
4120: hash_size =>g_hash_size );
4121:
4122: --
4123: IF l_debug_on THEN
4124: WSH_DEBUG_SV.logmsg(l_module_name,'l2_hash_string : '||l2_hash_string);
4125: WSH_DEBUG_SV.logmsg(l_module_name,'l2_hash_value : '||l2_hash_value);
4126: END IF;
4127: --
4128:
4121:
4122: --
4123: IF l_debug_on THEN
4124: WSH_DEBUG_SV.logmsg(l_module_name,'l2_hash_string : '||l2_hash_string);
4125: WSH_DEBUG_SV.logmsg(l_module_name,'l2_hash_value : '||l2_hash_value);
4126: END IF;
4127: --
4128:
4129: IF check_cache(l2_hash_value,l2_hash_string) THEN
4134: x_failed_constraint.violation_type := g_comp_class_tab(l_hash_value).constraint_violation;
4135:
4136: --
4137: IF l_debug_on THEN
4138: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4139: WSH_DEBUG_SV.pop(l_module_name);
4140: END IF;
4141: --
4142: RETURN; -- Done with as found for the input types
4135:
4136: --
4137: IF l_debug_on THEN
4138: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4139: WSH_DEBUG_SV.pop(l_module_name);
4140: END IF;
4141: --
4142: RETURN; -- Done with as found for the input types
4143:
4185: hash_size =>g_hash_size );
4186:
4187: --
4188: IF l_debug_on THEN
4189: WSH_DEBUG_SV.logmsg(l_module_name,'l3_hash_string : '||l3_hash_string);
4190: WSH_DEBUG_SV.logmsg(l_module_name,'l3_hash_value : '||l3_hash_value);
4191: END IF;
4192: --
4193:
4186:
4187: --
4188: IF l_debug_on THEN
4189: WSH_DEBUG_SV.logmsg(l_module_name,'l3_hash_string : '||l3_hash_string);
4190: WSH_DEBUG_SV.logmsg(l_module_name,'l3_hash_value : '||l3_hash_value);
4191: END IF;
4192: --
4193:
4194: IF check_cache(l3_hash_value,l3_hash_string) THEN
4199: x_failed_constraint.violation_type := g_comp_class_tab(l_hash_value).constraint_violation;
4200:
4201: --
4202: IF l_debug_on THEN
4203: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4204: WSH_DEBUG_SV.pop(l_module_name);
4205: END IF;
4206: --
4207: RETURN; -- Done with as found for the input types
4200:
4201: --
4202: IF l_debug_on THEN
4203: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4204: WSH_DEBUG_SV.pop(l_module_name);
4205: END IF;
4206: --
4207: RETURN; -- Done with as found for the input types
4208:
4250: hash_size =>g_hash_size );
4251:
4252: --
4253: IF l_debug_on THEN
4254: WSH_DEBUG_SV.logmsg(l_module_name,'l4_hash_string : '||l4_hash_string);
4255: WSH_DEBUG_SV.logmsg(l_module_name,'l4_hash_value : '||l4_hash_value);
4256: END IF;
4257: --
4258:
4251:
4252: --
4253: IF l_debug_on THEN
4254: WSH_DEBUG_SV.logmsg(l_module_name,'l4_hash_string : '||l4_hash_string);
4255: WSH_DEBUG_SV.logmsg(l_module_name,'l4_hash_value : '||l4_hash_value);
4256: END IF;
4257: --
4258:
4259: IF check_cache(l4_hash_value,l4_hash_string) THEN
4264: x_failed_constraint.violation_type := g_comp_class_tab(l_hash_value).constraint_violation;
4265:
4266: --
4267: IF l_debug_on THEN
4268: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4269: WSH_DEBUG_SV.pop(l_module_name);
4270: END IF;
4271: --
4272: RETURN; -- Done with as found for the input types
4265:
4266: --
4267: IF l_debug_on THEN
4268: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4269: WSH_DEBUG_SV.pop(l_module_name);
4270: END IF;
4271: --
4272: RETURN; -- Done with as found for the input types
4273:
4391: END IF;--( End of Validate Region Level Constraints)
4392:
4393: --
4394: IF l_debug_on THEN
4395: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4396: WSH_DEBUG_SV.pop(l_module_name);
4397: END IF;
4398: --
4399:
4392:
4393: --
4394: IF l_debug_on THEN
4395: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4396: WSH_DEBUG_SV.pop(l_module_name);
4397: END IF;
4398: --
4399:
4400: EXCEPTION
4402: WHEN g_get_mast_org_failed THEN
4403: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4404: --
4405: IF l_debug_on THEN
4406: WSH_DEBUG_SV.pop(l_module_name,' get_mast_org failed ');
4407: END IF;
4408: --
4409: WHEN g_get_carrier_failed THEN
4410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4409: WHEN g_get_carrier_failed THEN
4410: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4411: --
4412: IF l_debug_on THEN
4413: WSH_DEBUG_SV.pop(l_module_name,' get_carrier failed ');
4414: END IF;
4415: --
4416: WHEN g_get_customer_failed THEN
4417: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4416: WHEN g_get_customer_failed THEN
4417: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4418: --
4419: IF l_debug_on THEN
4420: WSH_DEBUG_SV.pop(l_module_name,' get_customer failed ');
4421: END IF;
4422: --
4423: WHEN g_get_supplier_failed THEN
4424: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4423: WHEN g_get_supplier_failed THEN
4424: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4425: --
4426: IF l_debug_on THEN
4427: WSH_DEBUG_SV.pop(l_module_name,' get_supplier failed ');
4428: END IF;
4429: --
4430:
4431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4432: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4433: --
4434: IF l_debug_on THEN
4435: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4436: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4437: END IF;
4438: --
4439: WHEN others THEN
4432: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4433: --
4434: IF l_debug_on THEN
4435: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4436: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4437: END IF;
4438: --
4439: WHEN others THEN
4440: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint');
4440: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint');
4441: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4442: --
4443: IF l_debug_on THEN
4444: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4445: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4446: END IF;
4447: --
4448: END validate_constraint;
4441: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4442: --
4443: IF l_debug_on THEN
4444: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4445: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4446: END IF;
4447: --
4448: END validate_constraint;
4449:
4531: l_itr NUMBER;
4532: --DUM_LOC(E)
4533:
4534: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'check_inclusive_facilities';
4535: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
4536:
4537: BEGIN
4538:
4539: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4541: x_validate_result := 'F';
4542: l_validate_result := 'F';
4543:
4544: IF l_debug_on THEN
4545: wsh_debug_sv.push(l_module_name);
4546: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
4547: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
4548: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_attribute_id);
4549: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_parent_id);
4542: l_validate_result := 'F';
4543:
4544: IF l_debug_on THEN
4545: wsh_debug_sv.push(l_module_name);
4546: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
4547: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
4548: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_attribute_id);
4549: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_parent_id);
4550: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 count : '||p_location_list.count);
4543:
4544: IF l_debug_on THEN
4545: wsh_debug_sv.push(l_module_name);
4546: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
4547: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
4548: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_attribute_id);
4549: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_parent_id);
4550: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 count : '||p_location_list.count);
4551: IF p_direct_shipment THEN
4544: IF l_debug_on THEN
4545: wsh_debug_sv.push(l_module_name);
4546: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
4547: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
4548: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_attribute_id);
4549: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_parent_id);
4550: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 count : '||p_location_list.count);
4551: IF p_direct_shipment THEN
4552: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is true');
4545: wsh_debug_sv.push(l_module_name);
4546: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
4547: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
4548: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_attribute_id);
4549: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_parent_id);
4550: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 count : '||p_location_list.count);
4551: IF p_direct_shipment THEN
4552: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is true');
4553: ELSE
4546: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
4547: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
4548: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_attribute_id);
4549: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_parent_id);
4550: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 count : '||p_location_list.count);
4551: IF p_direct_shipment THEN
4552: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is true');
4553: ELSE
4554: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is false');
4548: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_attribute_id);
4549: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_parent_id);
4550: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 count : '||p_location_list.count);
4551: IF p_direct_shipment THEN
4552: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is true');
4553: ELSE
4554: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is false');
4555: END IF;
4556: END IF;
4550: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 count : '||p_location_list.count);
4551: IF p_direct_shipment THEN
4552: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is true');
4553: ELSE
4554: WSH_DEBUG_SV.logmsg(l_module_name,'p_direct_shipment is false');
4555: END IF;
4556: END IF;
4557:
4558: --return if object1 is NULL
4560: --IF p_attribute_id IS NULL OR p_location_list.count = 0 THEN
4561: x_validate_result := 'S';
4562: --
4563: IF l_debug_on THEN
4564: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4565: WSH_DEBUG_SV.pop(l_module_name);
4566: END IF;
4567: --
4568: RETURN;
4561: x_validate_result := 'S';
4562: --
4563: IF l_debug_on THEN
4564: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4565: WSH_DEBUG_SV.pop(l_module_name);
4566: END IF;
4567: --
4568: RETURN;
4569: END IF;
4599: x_return_status => l_return_status);
4600:
4601:
4602: IF l_debug_on THEN
4603: WSH_DEBUG_SV.logmsg(l_module_name,'l_return_status:'||l_return_status);
4604: WSH_DEBUG_SV.logmsg(l_module_name,'Organizations Returned:'||l_organization_tab.Count);
4605: END IF;
4606:
4607:
4600:
4601:
4602: IF l_debug_on THEN
4603: WSH_DEBUG_SV.logmsg(l_module_name,'l_return_status:'||l_return_status);
4604: WSH_DEBUG_SV.logmsg(l_module_name,'Organizations Returned:'||l_organization_tab.Count);
4605: END IF;
4606:
4607:
4608: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4628: x_failed_constraint => x_failed_constraint,
4629: x_return_status => x_return_status);
4630:
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4633: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_return_status : '||x_return_status);
4634: END IF;
4635:
4636: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4629: x_return_status => x_return_status);
4630:
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4633: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_return_status : '||x_return_status);
4634: END IF;
4635:
4636: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4637: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4652: END IF;
4653: --
4654:
4655: IF l_debug_on THEN
4656: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4657: WSH_DEBUG_SV.pop(l_module_name);
4658: END IF;
4659: --
4660: RETURN;
4653: --
4654:
4655: IF l_debug_on THEN
4656: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4657: WSH_DEBUG_SV.pop(l_module_name);
4658: END IF;
4659: --
4660: RETURN;
4661:
4677: p_comp_class_code => p_comp_class_code,
4678: x_return_status => l_return_status) ;
4679: --
4680: IF l_debug_on THEN
4681: WSH_DEBUG_SV.logmsg(l_module_name,'Called populate_constraint_cache return status : '||l_return_status);
4682: END IF;
4683: --
4684:
4685: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
4741: LOOP
4742:
4743: --
4744: IF l_debug_on THEN
4745: WSH_DEBUG_SV.logmsg(l_module_name,'p_location_list : '||p_location_list(i));
4746: END IF;
4747: --
4748:
4749: -- Need a data structure for hashing constraints
4758: base => g_hash_base,
4759: hash_size =>g_hash_size );
4760: --
4761: IF l_debug_on THEN
4762: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_string : '||l1_hash_string);
4763: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_value : '||l1_hash_value);
4764: END IF;
4765: --
4766:
4759: hash_size =>g_hash_size );
4760: --
4761: IF l_debug_on THEN
4762: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_string : '||l1_hash_string);
4763: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_value : '||l1_hash_value);
4764: END IF;
4765: --
4766:
4767: IF l_master_org THEN
4775: hash_size =>g_hash_size );
4776:
4777: --
4778: IF l_debug_on THEN
4779: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_string : '||l11_hash_string);
4780: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_value : '||l11_hash_value);
4781: END IF;
4782: --
4783:
4776:
4777: --
4778: IF l_debug_on THEN
4779: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_string : '||l11_hash_string);
4780: WSH_DEBUG_SV.logmsg(l_module_name,'l11_hash_value : '||l11_hash_value);
4781: END IF;
4782: --
4783:
4784: END IF;
4825: (l_master_org AND g_comp_constraint_tab(k).CONSTRAINT_OBJECT1_ID = l_master_org_id)) THEN
4826:
4827: --
4828: IF l_debug_on THEN
4829: WSH_DEBUG_SV.logmsg(l_module_name,' Input has constraint : '||g_comp_constraint_tab(k).compatibility_id);
4830: END IF;
4831: --
4832:
4833: IF g_comp_constraint_tab(k).constraint_type = 'I' THEN
4853:
4854: IF NOT l_incl_cons THEN
4855:
4856: IF l_debug_on THEN
4857: WSH_DEBUG_SV.logmsg(l_module_name,' Checking to see if we need to call check_reg_incl_facilities');
4858: WSH_DEBUG_SV.logmsg(l_module_name,' p_comp_class_code : '||p_comp_class_code);
4859: WSH_DEBUG_SV.logmsg(l_module_name,' l_object1_type : '|| l_object1_type);
4860: END IF;
4861:
4854: IF NOT l_incl_cons THEN
4855:
4856: IF l_debug_on THEN
4857: WSH_DEBUG_SV.logmsg(l_module_name,' Checking to see if we need to call check_reg_incl_facilities');
4858: WSH_DEBUG_SV.logmsg(l_module_name,' p_comp_class_code : '||p_comp_class_code);
4859: WSH_DEBUG_SV.logmsg(l_module_name,' l_object1_type : '|| l_object1_type);
4860: END IF;
4861:
4862: IF (p_comp_class_code IN ( G_SHIPORG_FACILITY, G_CUSTOMER_FACILITY, G_SUPPLIER_FACILITY)
4855:
4856: IF l_debug_on THEN
4857: WSH_DEBUG_SV.logmsg(l_module_name,' Checking to see if we need to call check_reg_incl_facilities');
4858: WSH_DEBUG_SV.logmsg(l_module_name,' p_comp_class_code : '||p_comp_class_code);
4859: WSH_DEBUG_SV.logmsg(l_module_name,' l_object1_type : '|| l_object1_type);
4860: END IF;
4861:
4862: IF (p_comp_class_code IN ( G_SHIPORG_FACILITY, G_CUSTOMER_FACILITY, G_SUPPLIER_FACILITY)
4863: AND l_object1_type IN (G_FACILITY,G_COMP_ORG)
4892:
4893: IF (l_location_id IS NOT NULL) THEN
4894:
4895: IF l_debug_on THEN
4896: WSH_DEBUG_SV.logmsg(l_module_name,' calling check_reg_incl_facilities for input');
4897: END IF;
4898:
4899: -- We have the location id .
4900: -- Call validate inclusive locations to get the result.
4942:
4943: IF (l_location_id IS NOT NULL) THEN
4944:
4945: IF l_debug_on THEN
4946: WSH_DEBUG_SV.logmsg(l_module_name,' calling check_reg_incl_facilities for master org of input org');
4947: END IF;
4948:
4949: check_reg_incl_facilities(
4950: p_entity_type => p_entity_type,
4980: END IF;
4981:
4982: --
4983: IF l_debug_on THEN
4984: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4985: WSH_DEBUG_SV.pop(l_module_name);
4986: END IF;
4987: --
4988:
4981:
4982: --
4983: IF l_debug_on THEN
4984: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
4985: WSH_DEBUG_SV.pop(l_module_name);
4986: END IF;
4987: --
4988:
4989: EXCEPTION
4990: WHEN g_get_mast_org_failed THEN
4991: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4992: --
4993: IF l_debug_on THEN
4994: WSH_DEBUG_SV.pop(l_module_name,' get_mast_org failed ');
4995: END IF;
4996: --
4997: WHEN g_get_carrier_failed THEN
4998: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4997: WHEN g_get_carrier_failed THEN
4998: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4999: --
5000: IF l_debug_on THEN
5001: WSH_DEBUG_SV.pop(l_module_name,' get_carrier failed ');
5002: END IF;
5003: --
5004: WHEN g_get_customer_failed THEN
5005: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5004: WHEN g_get_customer_failed THEN
5005: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5006: --
5007: IF l_debug_on THEN
5008: WSH_DEBUG_SV.pop(l_module_name,' get_customer failed ');
5009: END IF;
5010: --
5011:
5012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5012: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5013: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5014: --
5015: IF l_debug_on THEN
5016: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5017: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5018: END IF;
5019: --
5020: WHEN others THEN
5013: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5014: --
5015: IF l_debug_on THEN
5016: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5017: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5018: END IF;
5019: --
5020: WHEN others THEN
5021: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_inclusive_facilities');
5021: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_inclusive_facilities');
5022: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5023: --
5024: IF l_debug_on THEN
5025: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5026: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5027: END IF;
5028: --
5029: END check_inclusive_facilities;
5022: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5023: --
5024: IF l_debug_on THEN
5025: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5026: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5027: END IF;
5028: --
5029: END check_inclusive_facilities;
5030:
5107: l_comp_type1 VARCHAR2(3) := SUBSTR(p_comp_class_code,1,3);
5108: l_comp_type2 VARCHAR2(3) := SUBSTR(p_comp_class_code,5,3);
5109:
5110: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'check_inclusive_object2';
5111: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
5112:
5113: BEGIN
5114:
5115: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5118: x_out_object2_num := NULL;
5119: x_out_object2_char := NULL;
5120:
5121: IF l_debug_on THEN
5122: wsh_debug_sv.push(l_module_name);
5123: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
5124: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
5125: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
5126: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
5119: x_out_object2_char := NULL;
5120:
5121: IF l_debug_on THEN
5122: wsh_debug_sv.push(l_module_name);
5123: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
5124: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
5125: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
5126: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
5127: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
5120:
5121: IF l_debug_on THEN
5122: wsh_debug_sv.push(l_module_name);
5123: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
5124: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
5125: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
5126: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
5127: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
5128: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
5121: IF l_debug_on THEN
5122: wsh_debug_sv.push(l_module_name);
5123: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
5124: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
5125: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
5126: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
5127: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
5128: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
5129: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
5122: wsh_debug_sv.push(l_module_name);
5123: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
5124: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
5125: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
5126: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
5127: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
5128: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
5129: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
5130: END IF;
5123: WSH_DEBUG_SV.logmsg(l_module_name,'Input comp class code : '||p_comp_class_code);
5124: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
5125: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
5126: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
5127: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
5128: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
5129: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
5130: END IF;
5131:
5124: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object1 type : '||p_object1_type);
5125: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
5126: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
5127: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
5128: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
5129: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
5130: END IF;
5131:
5132: --return if object1 is NULL
5125: WSH_DEBUG_SV.logmsg(l_module_name,'Input Object2 type : '||p_object2_type);
5126: WSH_DEBUG_SV.logmsg(l_module_name,'Object1 val num : '||p_object1_val_num);
5127: WSH_DEBUG_SV.logmsg(l_module_name,'Object 1 parent : '||l_object1_parent_id);
5128: WSH_DEBUG_SV.logmsg(l_module_name,'Object2 val num : '||p_object2_val_num);
5129: WSH_DEBUG_SV.logmsg(l_module_name,'Object 2 val char : '||p_object2_val_char);
5130: END IF;
5131:
5132: --return if object1 is NULL
5133: IF p_object1_val_num IS NULL THEN
5133: IF p_object1_val_num IS NULL THEN
5134: x_validate_result := 'S';
5135: --
5136: IF l_debug_on THEN
5137: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5138: WSH_DEBUG_SV.pop(l_module_name);
5139: END IF;
5140: --
5141: RETURN;
5134: x_validate_result := 'S';
5135: --
5136: IF l_debug_on THEN
5137: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5138: WSH_DEBUG_SV.pop(l_module_name);
5139: END IF;
5140: --
5141: RETURN;
5142: END IF;
5159: p_comp_class_code => p_comp_class_code,
5160: x_return_status => l_return_status) ;
5161: --
5162: IF l_debug_on THEN
5163: WSH_DEBUG_SV.logmsg(l_module_name,'Called populate_constraint_cache with return status : '||l_return_status);
5164: END IF;
5165: --
5166:
5167: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5176: l_compclass_severity := g_comp_class_tab(l_hash_value).CONSTRAINT_VIOLATION;
5177:
5178: --
5179: IF l_debug_on THEN
5180: WSH_DEBUG_SV.logmsg(l_module_name,'Comp class id : '||l_comp_class_id);
5181: WSH_DEBUG_SV.logmsg(l_module_name,'l_compclass_severity : '||l_compclass_severity);
5182: END IF;
5183: --
5184:
5177:
5178: --
5179: IF l_debug_on THEN
5180: WSH_DEBUG_SV.logmsg(l_module_name,'Comp class id : '||l_comp_class_id);
5181: WSH_DEBUG_SV.logmsg(l_module_name,'l_compclass_severity : '||l_compclass_severity);
5182: END IF;
5183: --
5184:
5185: IF g_is_tp_installed IS NULL THEN
5215: base => g_hash_base,
5216: hash_size =>g_hash_size );
5217: --
5218: IF l_debug_on THEN
5219: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_string : '||l1_hash_string);
5220: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_value : '||l1_hash_value);
5221: END IF;
5222: --
5223:
5216: hash_size =>g_hash_size );
5217: --
5218: IF l_debug_on THEN
5219: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_string : '||l1_hash_string);
5220: WSH_DEBUG_SV.logmsg(l_module_name,'l1_hash_value : '||l1_hash_value);
5221: END IF;
5222: --
5223:
5224:
5228:
5229: x_validate_result := 'S';
5230: --
5231: IF l_debug_on THEN
5232: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5233: WSH_DEBUG_SV.pop(l_module_name);
5234: END IF;
5235: --
5236: RETURN;
5229: x_validate_result := 'S';
5230: --
5231: IF l_debug_on THEN
5232: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5233: WSH_DEBUG_SV.pop(l_module_name);
5234: END IF;
5235: --
5236: RETURN;
5237:
5269: base => g_hash_base,
5270: hash_size =>g_hash_size );
5271: --
5272: IF l_debug_on THEN
5273: WSH_DEBUG_SV.logmsg(l_module_name,'l2_hash_string : '||l2_hash_string);
5274: WSH_DEBUG_SV.logmsg(l_module_name,'l2_hash_value : '||l2_hash_value);
5275: END IF;
5276: --
5277:
5270: hash_size =>g_hash_size );
5271: --
5272: IF l_debug_on THEN
5273: WSH_DEBUG_SV.logmsg(l_module_name,'l2_hash_string : '||l2_hash_string);
5274: WSH_DEBUG_SV.logmsg(l_module_name,'l2_hash_value : '||l2_hash_value);
5275: END IF;
5276: --
5277:
5278:
5282:
5283: x_validate_result := 'S';
5284: --
5285: IF l_debug_on THEN
5286: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5287: WSH_DEBUG_SV.pop(l_module_name);
5288: END IF;
5289: --
5290: RETURN;
5283: x_validate_result := 'S';
5284: --
5285: IF l_debug_on THEN
5286: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5287: WSH_DEBUG_SV.pop(l_module_name);
5288: END IF;
5289: --
5290: RETURN;
5291:
5327: base => g_hash_base,
5328: hash_size =>g_hash_size );
5329: --
5330: IF l_debug_on THEN
5331: WSH_DEBUG_SV.logmsg(l_module_name,'l3_hash_string : '||l3_hash_string);
5332: WSH_DEBUG_SV.logmsg(l_module_name,'l3_hash_value : '||l3_hash_value);
5333: END IF;
5334: --
5335:
5328: hash_size =>g_hash_size );
5329: --
5330: IF l_debug_on THEN
5331: WSH_DEBUG_SV.logmsg(l_module_name,'l3_hash_string : '||l3_hash_string);
5332: WSH_DEBUG_SV.logmsg(l_module_name,'l3_hash_value : '||l3_hash_value);
5333: END IF;
5334: --
5335:
5336:
5340:
5341: x_validate_result := 'S';
5342: --
5343: IF l_debug_on THEN
5344: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5345: WSH_DEBUG_SV.pop(l_module_name);
5346: END IF;
5347: --
5348: RETURN;
5341: x_validate_result := 'S';
5342: --
5343: IF l_debug_on THEN
5344: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5345: WSH_DEBUG_SV.pop(l_module_name);
5346: END IF;
5347: --
5348: RETURN;
5349:
5387: base => g_hash_base,
5388: hash_size =>g_hash_size );
5389: --
5390: IF l_debug_on THEN
5391: WSH_DEBUG_SV.logmsg(l_module_name,'l4_hash_string : '||l4_hash_string);
5392: WSH_DEBUG_SV.logmsg(l_module_name,'l4_hash_value : '||l4_hash_value);
5393: END IF;
5394: --
5395:
5388: hash_size =>g_hash_size );
5389: --
5390: IF l_debug_on THEN
5391: WSH_DEBUG_SV.logmsg(l_module_name,'l4_hash_string : '||l4_hash_string);
5392: WSH_DEBUG_SV.logmsg(l_module_name,'l4_hash_value : '||l4_hash_value);
5393: END IF;
5394: --
5395:
5396:
5400:
5401: x_validate_result := 'S';
5402: --
5403: IF l_debug_on THEN
5404: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5405: WSH_DEBUG_SV.pop(l_module_name);
5406: END IF;
5407: --
5408: RETURN;
5401: x_validate_result := 'S';
5402: --
5403: IF l_debug_on THEN
5404: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5405: WSH_DEBUG_SV.pop(l_module_name);
5406: END IF;
5407: --
5408: RETURN;
5409:
5418: END IF; -- FAC
5419:
5420: --
5421: IF l_debug_on THEN
5422: WSH_DEBUG_SV.logmsg(l_module_name,' x_validate_result before checking constraints cache : '||x_validate_result||' g_comp_constraint_tab count :' ||g_comp_constraint_tab.COUNT||' l_comp_class_id : '||l_comp_class_id);
5423: END IF;
5424: --
5425:
5426: IF x_validate_result = 'F' THEN
5448: g_comp_constraint_tab(k).CONSTRAINT_OBJECT1_TYPE = 'CUS' AND
5449: g_comp_constraint_tab(k).CONSTRAINT_OBJECT1_ID = l_customer_id)) THEN
5450: --
5451: IF l_debug_on THEN
5452: WSH_DEBUG_SV.logmsg(l_module_name,' Input has constraint : '||g_comp_constraint_tab(k).compatibility_id);
5453: END IF;
5454: --
5455:
5456: IF g_comp_constraint_tab(k).constraint_type = 'I' THEN
5464: x_failed_constraint(l).violation_type := l_compclass_severity;
5465:
5466: --
5467: IF l_debug_on THEN
5468: WSH_DEBUG_SV.logmsg(l_module_name,' x_out_object2_num : '||x_out_object2_num||' x_out_object2_char : '||x_out_object2_char);
5469: END IF;
5470: --
5471:
5472: IF (( x_out_object2_num IS NOT NULL OR x_out_object2_char IS NOT NULL) AND
5501: END IF;
5502:
5503: --
5504: IF l_debug_on THEN
5505: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5506: WSH_DEBUG_SV.logmsg(l_module_name,' x_out_object2_num : '||x_out_object2_num);
5507: WSH_DEBUG_SV.logmsg(l_module_name,' x_out_object2_char : '||x_out_object2_char);
5508: WSH_DEBUG_SV.pop(l_module_name);
5509: END IF;
5502:
5503: --
5504: IF l_debug_on THEN
5505: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5506: WSH_DEBUG_SV.logmsg(l_module_name,' x_out_object2_num : '||x_out_object2_num);
5507: WSH_DEBUG_SV.logmsg(l_module_name,' x_out_object2_char : '||x_out_object2_char);
5508: WSH_DEBUG_SV.pop(l_module_name);
5509: END IF;
5510: --
5503: --
5504: IF l_debug_on THEN
5505: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5506: WSH_DEBUG_SV.logmsg(l_module_name,' x_out_object2_num : '||x_out_object2_num);
5507: WSH_DEBUG_SV.logmsg(l_module_name,' x_out_object2_char : '||x_out_object2_char);
5508: WSH_DEBUG_SV.pop(l_module_name);
5509: END IF;
5510: --
5511:
5504: IF l_debug_on THEN
5505: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5506: WSH_DEBUG_SV.logmsg(l_module_name,' x_out_object2_num : '||x_out_object2_num);
5507: WSH_DEBUG_SV.logmsg(l_module_name,' x_out_object2_char : '||x_out_object2_char);
5508: WSH_DEBUG_SV.pop(l_module_name);
5509: END IF;
5510: --
5511:
5512: EXCEPTION
5513: WHEN g_get_carrier_failed THEN
5514: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5515: --
5516: IF l_debug_on THEN
5517: WSH_DEBUG_SV.pop(l_module_name,' get_carrier failed ');
5518: END IF;
5519: --
5520: WHEN g_get_customer_failed THEN
5521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5520: WHEN g_get_customer_failed THEN
5521: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5522: --
5523: IF l_debug_on THEN
5524: WSH_DEBUG_SV.pop(l_module_name,' get_customer failed ');
5525: END IF;
5526: --
5527: WHEN g_get_supplier_failed THEN
5528: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5527: WHEN g_get_supplier_failed THEN
5528: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5529: --
5530: IF l_debug_on THEN
5531: WSH_DEBUG_SV.pop(l_module_name,' get_supplier failed ');
5532: END IF;
5533: --
5534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5535: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5534: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5535: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5536: --
5537: IF l_debug_on THEN
5538: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5539: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5540: END IF;
5541: --
5542: WHEN others THEN
5535: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5536: --
5537: IF l_debug_on THEN
5538: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5539: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5540: END IF;
5541: --
5542: WHEN others THEN
5543: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_inclusive_object2');
5543: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_inclusive_object2');
5544: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5545: --
5546: IF l_debug_on THEN
5547: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5548: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5549: END IF;
5550: --
5551: END check_inclusive_object2;
5544: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5545: --
5546: IF l_debug_on THEN
5547: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5548: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5549: END IF;
5550: --
5551: END check_inclusive_object2;
5552:
5604: l_hash_value NUMBER:=0;
5605: l_fac_hash_string VARCHAR2(200);
5606:
5607: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'search_itm_fac_incl';
5608: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
5609:
5610: BEGIN
5611:
5612: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5612: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5613: x_validate_result := 'S';
5614:
5615: IF l_debug_on THEN
5616: wsh_debug_sv.push(l_module_name);
5617: END IF;
5618:
5619: IF g_is_tp_installed IS NULL THEN
5620: g_is_tp_installed := WSH_UTIL_CORE.TP_Is_Installed;
5639:
5640: l_fac_hash_string := p_locations_list(i)||'-';
5641:
5642: IF l_debug_on THEN
5643: WSH_DEBUG_SV.logmsg(l_module_name,'i : '||i||' p_locations_list(i) : '||p_locations_list(i));
5644: END IF;
5645:
5646: IF p_comp_class_tab.EXISTS(G_FACILITY_CARRIER_NUM) THEN
5647:
5664: END IF;
5665: END IF;
5666:
5667: IF l_debug_on THEN
5668: WSH_DEBUG_SV.logmsg(l_module_name,'l_validate_carrier_result : '||l_validate_carrier_result);
5669: END IF;
5670:
5671: END IF;
5672:
5693: END IF;
5694: END IF;
5695:
5696: IF l_debug_on THEN
5697: WSH_DEBUG_SV.logmsg(l_module_name,'l_validate_mode_result : '||l_validate_mode_result);
5698: END IF;
5699:
5700: END IF;
5701:
5720: END IF;
5721: END IF;
5722:
5723: IF l_debug_on THEN
5724: WSH_DEBUG_SV.logmsg(l_module_name,'l_validate_vehicle_result : '||l_validate_vehicle_result);
5725: END IF;
5726:
5727: END IF;
5728:
5728:
5729: IF l_validate_carrier_result = 'F' OR l_validate_mode_result = 'F'
5730: OR l_validate_vehicle_result = 'F' THEN
5731: IF l_debug_on THEN
5732: WSH_DEBUG_SV.logmsg(l_module_name,' p_items_tab COUNT : '||p_items_tab.COUNT);
5733: END IF;
5734:
5735: j := p_items_tab.FIRST;
5736: IF j IS NOT NULL THEN
5747: -- following API s which will end up adding that
5748: -- combination to this list
5749:
5750: IF l_debug_on THEN
5751: WSH_DEBUG_SV.logmsg(l_module_name,'p_items_tab(j).item_id : '||p_items_tab(j).item_id||'p_items_tab(j).org_id : '||p_items_tab(j).org_id);
5752: END IF;
5753:
5754: --IF WSH_UTIL_CORE.TP_Is_Installed = 'N' THEN
5755: IF g_is_tp_installed = 'N' THEN
5767:
5768: IF g_itmloc_mustuse_cache.EXISTS(l_hash_value) AND
5769: g_itmloc_mustuse_cache(l_hash_value).hash_string = l_hash_string THEN
5770: IF l_debug_on THEN
5771: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache has record with hash value : '||l_hash_value);
5772: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache carrier result : '||g_itmloc_mustuse_cache(l_hash_value).carrier_result);
5773: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache mode result : '||g_itmloc_mustuse_cache(l_hash_value).mode_result);
5774: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache vehicle result : '||g_itmloc_mustuse_cache(l_hash_value).vehicle_result);
5775: END IF;
5768: IF g_itmloc_mustuse_cache.EXISTS(l_hash_value) AND
5769: g_itmloc_mustuse_cache(l_hash_value).hash_string = l_hash_string THEN
5770: IF l_debug_on THEN
5771: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache has record with hash value : '||l_hash_value);
5772: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache carrier result : '||g_itmloc_mustuse_cache(l_hash_value).carrier_result);
5773: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache mode result : '||g_itmloc_mustuse_cache(l_hash_value).mode_result);
5774: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache vehicle result : '||g_itmloc_mustuse_cache(l_hash_value).vehicle_result);
5775: END IF;
5776:
5769: g_itmloc_mustuse_cache(l_hash_value).hash_string = l_hash_string THEN
5770: IF l_debug_on THEN
5771: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache has record with hash value : '||l_hash_value);
5772: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache carrier result : '||g_itmloc_mustuse_cache(l_hash_value).carrier_result);
5773: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache mode result : '||g_itmloc_mustuse_cache(l_hash_value).mode_result);
5774: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache vehicle result : '||g_itmloc_mustuse_cache(l_hash_value).vehicle_result);
5775: END IF;
5776:
5777: IF g_itmloc_mustuse_cache(l_hash_value).carrier_result = 'F' OR
5770: IF l_debug_on THEN
5771: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache has record with hash value : '||l_hash_value);
5772: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache carrier result : '||g_itmloc_mustuse_cache(l_hash_value).carrier_result);
5773: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache mode result : '||g_itmloc_mustuse_cache(l_hash_value).mode_result);
5774: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache vehicle result : '||g_itmloc_mustuse_cache(l_hash_value).vehicle_result);
5775: END IF;
5776:
5777: IF g_itmloc_mustuse_cache(l_hash_value).carrier_result = 'F' OR
5778: g_itmloc_mustuse_cache(l_hash_value).mode_result = 'F' OR
5777: IF g_itmloc_mustuse_cache(l_hash_value).carrier_result = 'F' OR
5778: g_itmloc_mustuse_cache(l_hash_value).mode_result = 'F' OR
5779: g_itmloc_mustuse_cache(l_hash_value).vehicle_result = 'F' THEN
5780: IF l_debug_on THEN
5781: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache record has failure ');
5782: END IF;
5783: l_validate_result := 'F';
5784: EXIT;
5785: END IF;
5795: g_itmloc_mustuse_cache(l_hash_value).carrier_result := 'S';
5796: g_itmloc_mustuse_cache(l_hash_value).mode_result := 'S';
5797: g_itmloc_mustuse_cache(l_hash_value).vehicle_result := 'S';
5798: IF l_debug_on THEN
5799: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache record created with hash value : '||l_hash_value);
5800: END IF;
5801:
5802: IF p_comp_class_tab.EXISTS(G_ITEM_CARRIER_NUM) AND l_validate_carrier_result = 'F' THEN
5803:
5896:
5897: END IF; -- ELSE of hash found
5898:
5899: IF l_debug_on THEN
5900: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache carrier result : '||g_itmloc_mustuse_cache(l_hash_value).carrier_result);
5901: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache mode result : '||g_itmloc_mustuse_cache(l_hash_value).mode_result);
5902: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache vehicle result : '||g_itmloc_mustuse_cache(l_hash_value).vehicle_result);
5903: END IF;
5904:
5897: END IF; -- ELSE of hash found
5898:
5899: IF l_debug_on THEN
5900: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache carrier result : '||g_itmloc_mustuse_cache(l_hash_value).carrier_result);
5901: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache mode result : '||g_itmloc_mustuse_cache(l_hash_value).mode_result);
5902: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache vehicle result : '||g_itmloc_mustuse_cache(l_hash_value).vehicle_result);
5903: END IF;
5904:
5905: EXIT WHEN j = p_items_tab.LAST;
5898:
5899: IF l_debug_on THEN
5900: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache carrier result : '||g_itmloc_mustuse_cache(l_hash_value).carrier_result);
5901: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache mode result : '||g_itmloc_mustuse_cache(l_hash_value).mode_result);
5902: WSH_DEBUG_SV.logmsg(l_module_name,'g_itmloc_mustuse_cache vehicle result : '||g_itmloc_mustuse_cache(l_hash_value).vehicle_result);
5903: END IF;
5904:
5905: EXIT WHEN j = p_items_tab.LAST;
5906: j := p_items_tab.NEXT(j);
5928: END IF;
5929:
5930: --
5931: IF l_debug_on THEN
5932: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5933: WSH_DEBUG_SV.pop(l_module_name);
5934: END IF;
5935: --
5936:
5929:
5930: --
5931: IF l_debug_on THEN
5932: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
5933: WSH_DEBUG_SV.pop(l_module_name);
5934: END IF;
5935: --
5936:
5937: EXCEPTION
5938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5939: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5940: --
5941: IF l_debug_on THEN
5942: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5943: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5944: END IF;
5945: --
5946: WHEN others THEN
5939: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
5940: --
5941: IF l_debug_on THEN
5942: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5943: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5944: END IF;
5945: --
5946: WHEN others THEN
5947: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.search_itm_fac_incl');
5947: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.search_itm_fac_incl');
5948: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5949: --
5950: IF l_debug_on THEN
5951: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5952: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5953: END IF;
5954: --
5955:
5948: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5949: --
5950: IF l_debug_on THEN
5951: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5952: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
5953: END IF;
5954: --
5955:
5956: END search_itm_fac_incl;
6003: l_hash_string VARCHAR2(200);
6004: l_hash_value NUMBER:=0;
6005:
6006: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'search_group_itm';
6007: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
6008:
6009: BEGIN
6010:
6011: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6011: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6012: x_validate_result := 'S';
6013:
6014: IF l_debug_on THEN
6015: wsh_debug_sv.push(l_module_name);
6016: END IF;
6017:
6018: IF g_is_tp_installed IS NULL THEN
6019: g_is_tp_installed := WSH_UTIL_CORE.TP_Is_Installed;
6022: IF p_entity_rec.inventory_item_id = p_target_rec.inventory_item_id THEN
6023: IF g_is_tp_installed = 'Y' OR
6024: p_entity_rec.organization_id = p_target_rec.organization_id THEN
6025: IF l_debug_on THEN
6026: WSH_DEBUG_SV.logmsg(l_module_name,'Returning without check as input and target items are the same');
6027: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
6028: WSH_DEBUG_SV.pop(l_module_name);
6029: END IF;
6030: return;
6023: IF g_is_tp_installed = 'Y' OR
6024: p_entity_rec.organization_id = p_target_rec.organization_id THEN
6025: IF l_debug_on THEN
6026: WSH_DEBUG_SV.logmsg(l_module_name,'Returning without check as input and target items are the same');
6027: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
6028: WSH_DEBUG_SV.pop(l_module_name);
6029: END IF;
6030: return;
6031: END IF;
6024: p_entity_rec.organization_id = p_target_rec.organization_id THEN
6025: IF l_debug_on THEN
6026: WSH_DEBUG_SV.logmsg(l_module_name,'Returning without check as input and target items are the same');
6027: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
6028: WSH_DEBUG_SV.pop(l_module_name);
6029: END IF;
6030: return;
6031: END IF;
6032:
6031: END IF;
6032:
6033: ELSE
6034: IF l_debug_on THEN
6035: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_rec.inventory_item_id : '||p_entity_rec.inventory_item_id);
6036: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_rec.organization_id : '||p_entity_rec.organization_id);
6037: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_rec.inventory_item_id : '||p_target_rec.inventory_item_id);
6038: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_rec.organization_id : '||p_target_rec.organization_id);
6039: END IF;
6032:
6033: ELSE
6034: IF l_debug_on THEN
6035: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_rec.inventory_item_id : '||p_entity_rec.inventory_item_id);
6036: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_rec.organization_id : '||p_entity_rec.organization_id);
6037: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_rec.inventory_item_id : '||p_target_rec.inventory_item_id);
6038: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_rec.organization_id : '||p_target_rec.organization_id);
6039: END IF;
6040:
6033: ELSE
6034: IF l_debug_on THEN
6035: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_rec.inventory_item_id : '||p_entity_rec.inventory_item_id);
6036: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_rec.organization_id : '||p_entity_rec.organization_id);
6037: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_rec.inventory_item_id : '||p_target_rec.inventory_item_id);
6038: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_rec.organization_id : '||p_target_rec.organization_id);
6039: END IF;
6040:
6041: END IF;
6034: IF l_debug_on THEN
6035: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_rec.inventory_item_id : '||p_entity_rec.inventory_item_id);
6036: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_rec.organization_id : '||p_entity_rec.organization_id);
6037: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_rec.inventory_item_id : '||p_target_rec.inventory_item_id);
6038: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_rec.organization_id : '||p_target_rec.organization_id);
6039: END IF;
6040:
6041: END IF;
6042:
6065: IF g_itm_mustuse_cache.EXISTS(l_hash_value) AND
6066: g_itm_mustuse_cache(l_hash_value).hash_string = l_hash_string THEN
6067:
6068: IF l_debug_on THEN
6069: WSH_DEBUG_SV.logmsg(l_module_name,'Found g_itm_mustuse_cache record with hash value : '||l_hash_value);
6070: END IF;
6071: IF g_itm_mustuse_cache(l_hash_value).carrier_result = 'F'
6072: OR
6073: g_itm_mustuse_cache(l_hash_value).mode_result = 'F' OR
6074: g_itm_mustuse_cache(l_hash_value).vehicle_result = 'F' THEN
6075:
6076: x_validate_result := 'F';
6077: IF l_debug_on THEN
6078: WSH_DEBUG_SV.logmsg(l_module_name,'g_itm_mustuse_cache record has failure ');
6079: END IF;
6080: END IF;
6081: IF l_debug_on THEN
6082: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
6078: WSH_DEBUG_SV.logmsg(l_module_name,'g_itm_mustuse_cache record has failure ');
6079: END IF;
6080: END IF;
6081: IF l_debug_on THEN
6082: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
6083: WSH_DEBUG_SV.pop(l_module_name);
6084: END IF;
6085: return;
6086:
6079: END IF;
6080: END IF;
6081: IF l_debug_on THEN
6082: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
6083: WSH_DEBUG_SV.pop(l_module_name);
6084: END IF;
6085: return;
6086:
6087: ELSE
6110: g_itm_mustuse_cache(l_hash_value).carrier_result := 'S';
6111: g_itm_mustuse_cache(l_hash_value).mode_result := 'S';
6112: g_itm_mustuse_cache(l_hash_value).vehicle_result := 'S';
6113: IF l_debug_on THEN
6114: WSH_DEBUG_SV.logmsg(l_module_name,'Creating g_itm_mustuse_cache record with hash value : '||l_hash_value);
6115: END IF;
6116: END IF;
6117:
6118: IF p_comp_class_tab.EXISTS(G_ITEM_CARRIER_NUM) THEN
6232: END IF;
6233:
6234: --
6235: IF l_debug_on THEN
6236: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
6237: WSH_DEBUG_SV.pop(l_module_name);
6238: END IF;
6239: --
6240:
6233:
6234: --
6235: IF l_debug_on THEN
6236: WSH_DEBUG_SV.logmsg(l_module_name,'Returning x_validate_result : '||x_validate_result);
6237: WSH_DEBUG_SV.pop(l_module_name);
6238: END IF;
6239: --
6240:
6241: EXCEPTION
6242: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6243: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
6244: --
6245: IF l_debug_on THEN
6246: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6247: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6248: END IF;
6249: --
6250: WHEN others THEN
6243: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
6244: --
6245: IF l_debug_on THEN
6246: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6247: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6248: END IF;
6249: --
6250: WHEN others THEN
6251: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.search_group_itm');
6251: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.search_group_itm');
6252: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6253: --
6254: IF l_debug_on THEN
6255: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6256: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6257: END IF;
6258: --
6259:
6252: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6253: --
6254: IF l_debug_on THEN
6255: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6256: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6257: END IF;
6258: --
6259:
6260: END search_group_itm;
6361: l_obj_itm_check_pickup BOOLEAN := FALSE;
6362: l_obj_itm_check_dropoff BOOLEAN := FALSE;
6363:
6364: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'search_matching_group';
6365: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
6366:
6367: BEGIN
6368:
6369: -- for assign delivery to trip
6372:
6373: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6374:
6375: IF l_debug_on THEN
6376: wsh_debug_sv.push(l_module_name);
6377: END IF;
6378:
6379: -- checks itm-itm , cus-cus
6380: -- itm-fac with pickup / dropoff locations
6389:
6390: IF p_entity_type = 'DLVB' THEN
6391: --
6392: IF l_debug_on THEN
6393: WSH_DEBUG_SV.pop(l_module_name);
6394: END IF;
6395: --
6396: RETURN;
6397: END IF;
6443: l_check_pickup := FALSE;
6444: l_check_dropoff := FALSE;
6445:
6446: IF l_debug_on THEN
6447: WSH_DEBUG_SV.logmsg(l_module_name,'p_group_tab(j).line_group_id : '||p_group_tab(j).line_group_id);
6448: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).entity_id : '||p_entity_tab(k).entity_id);
6449: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).group_id : '||p_entity_tab(k).group_id);
6450: END IF;
6451:
6444: l_check_dropoff := FALSE;
6445:
6446: IF l_debug_on THEN
6447: WSH_DEBUG_SV.logmsg(l_module_name,'p_group_tab(j).line_group_id : '||p_group_tab(j).line_group_id);
6448: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).entity_id : '||p_entity_tab(k).entity_id);
6449: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).group_id : '||p_entity_tab(k).group_id);
6450: END IF;
6451:
6452: IF (p_entity_tab(k).entity_id = p_entity_rec.entity_id) OR
6445:
6446: IF l_debug_on THEN
6447: WSH_DEBUG_SV.logmsg(l_module_name,'p_group_tab(j).line_group_id : '||p_group_tab(j).line_group_id);
6448: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).entity_id : '||p_entity_tab(k).entity_id);
6449: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).group_id : '||p_entity_tab(k).group_id);
6450: END IF;
6451:
6452: IF (p_entity_tab(k).entity_id = p_entity_rec.entity_id) OR
6453: (p_entity_tab(k).group_id <> p_group_tab(j).line_group_id) THEN -- check against same group
6590: GOTO dlvy_nextpass;
6591: END IF;
6592:
6593: IF l_debug_on THEN
6594: WSH_DEBUG_SV.logmsg(l_module_name,'p_children_info COUNT :'||p_children_info.COUNT);
6595: END IF;
6596:
6597: l := p_children_info.FIRST;
6598:
6599: IF l IS NOT NULL THEN -- --{
6600: LOOP -- over p_children_info (for input dlvy entity)
6601:
6602: IF l_debug_on THEN
6603: WSH_DEBUG_SV.logmsg(l_module_name,'delivery_id of curr child :'||p_children_info(l).delivery_id||' p_entity_rec.entity_id : '||p_entity_rec.entity_id);
6604: END IF;
6605: IF (p_children_info(l).delivery_id <> p_entity_rec.entity_id) THEN
6606: GOTO inpdlvyline_nextpass;
6607: END IF;
6627: l_items_tab(l_inp_items_cnt + 1).item_id := p_children_info(l).inventory_item_id;
6628: l_items_tab(l_inp_items_cnt + 1).org_id := p_children_info(l).organization_id;
6629:
6630: IF l_debug_on THEN
6631: WSH_DEBUG_SV.logmsg(l_module_name,'l_inp_items_cnt : '||to_char(l_inp_items_cnt + 1));
6632: WSH_DEBUG_SV.logmsg(l_module_name,'l_items_tab.COUNT :'||l_items_tab.COUNT);
6633: END IF;
6634:
6635: -- cus-cus for input lines against other delivery if not before
6628: l_items_tab(l_inp_items_cnt + 1).org_id := p_children_info(l).organization_id;
6629:
6630: IF l_debug_on THEN
6631: WSH_DEBUG_SV.logmsg(l_module_name,'l_inp_items_cnt : '||to_char(l_inp_items_cnt + 1));
6632: WSH_DEBUG_SV.logmsg(l_module_name,'l_items_tab.COUNT :'||l_items_tab.COUNT);
6633: END IF;
6634:
6635: -- cus-cus for input lines against other delivery if not before
6636: IF (NOT l_cuscus_checked) AND (NOT l_inp_dlvy_cus) AND (l_curr_dlvy_cus) AND
6769: l_target_rec.inventory_item_id := p_children_info(m).inventory_item_id;
6770: l_target_rec.customer_id := p_children_info(m).customer_id;
6771: --
6772: IF l_debug_on THEN
6773: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_target_rec for assigned line : '||p_children_info(m).delivery_detail_id);
6774: END IF;
6775: --
6776:
6777: IF l_debug_on THEN
6774: END IF;
6775: --
6776:
6777: IF l_debug_on THEN
6778: WSH_DEBUG_SV.logmsg(l_module_name,' l_entity_rec.inventory_item_id: '||l_entity_rec.inventory_item_id);
6779: WSH_DEBUG_SV.logmsg(l_module_name,' l_target_rec.inventory_item_id: '||l_target_rec.inventory_item_id);
6780: WSH_DEBUG_SV.logmsg(l_module_name,' l_entity_rec.organization_id: '||l_entity_rec.organization_id);
6781: WSH_DEBUG_SV.logmsg(l_module_name,' l_target_rec.organization_id: '||l_target_rec.organization_id);
6782: WSH_DEBUG_SV.logmsg(l_module_name,' g_is_tp_installed: '||g_is_tp_installed);
6775: --
6776:
6777: IF l_debug_on THEN
6778: WSH_DEBUG_SV.logmsg(l_module_name,' l_entity_rec.inventory_item_id: '||l_entity_rec.inventory_item_id);
6779: WSH_DEBUG_SV.logmsg(l_module_name,' l_target_rec.inventory_item_id: '||l_target_rec.inventory_item_id);
6780: WSH_DEBUG_SV.logmsg(l_module_name,' l_entity_rec.organization_id: '||l_entity_rec.organization_id);
6781: WSH_DEBUG_SV.logmsg(l_module_name,' l_target_rec.organization_id: '||l_target_rec.organization_id);
6782: WSH_DEBUG_SV.logmsg(l_module_name,' g_is_tp_installed: '||g_is_tp_installed);
6783: END IF;
6776:
6777: IF l_debug_on THEN
6778: WSH_DEBUG_SV.logmsg(l_module_name,' l_entity_rec.inventory_item_id: '||l_entity_rec.inventory_item_id);
6779: WSH_DEBUG_SV.logmsg(l_module_name,' l_target_rec.inventory_item_id: '||l_target_rec.inventory_item_id);
6780: WSH_DEBUG_SV.logmsg(l_module_name,' l_entity_rec.organization_id: '||l_entity_rec.organization_id);
6781: WSH_DEBUG_SV.logmsg(l_module_name,' l_target_rec.organization_id: '||l_target_rec.organization_id);
6782: WSH_DEBUG_SV.logmsg(l_module_name,' g_is_tp_installed: '||g_is_tp_installed);
6783: END IF;
6784:
6777: IF l_debug_on THEN
6778: WSH_DEBUG_SV.logmsg(l_module_name,' l_entity_rec.inventory_item_id: '||l_entity_rec.inventory_item_id);
6779: WSH_DEBUG_SV.logmsg(l_module_name,' l_target_rec.inventory_item_id: '||l_target_rec.inventory_item_id);
6780: WSH_DEBUG_SV.logmsg(l_module_name,' l_entity_rec.organization_id: '||l_entity_rec.organization_id);
6781: WSH_DEBUG_SV.logmsg(l_module_name,' l_target_rec.organization_id: '||l_target_rec.organization_id);
6782: WSH_DEBUG_SV.logmsg(l_module_name,' g_is_tp_installed: '||g_is_tp_installed);
6783: END IF;
6784:
6785: IF ((l_entity_rec.inventory_item_id <> l_target_rec.inventory_item_id) OR
6778: WSH_DEBUG_SV.logmsg(l_module_name,' l_entity_rec.inventory_item_id: '||l_entity_rec.inventory_item_id);
6779: WSH_DEBUG_SV.logmsg(l_module_name,' l_target_rec.inventory_item_id: '||l_target_rec.inventory_item_id);
6780: WSH_DEBUG_SV.logmsg(l_module_name,' l_entity_rec.organization_id: '||l_entity_rec.organization_id);
6781: WSH_DEBUG_SV.logmsg(l_module_name,' l_target_rec.organization_id: '||l_target_rec.organization_id);
6782: WSH_DEBUG_SV.logmsg(l_module_name,' g_is_tp_installed: '||g_is_tp_installed);
6783: END IF;
6784:
6785: IF ((l_entity_rec.inventory_item_id <> l_target_rec.inventory_item_id) OR
6786: (g_is_tp_installed = 'N' AND l_entity_rec.organization_id <> l_target_rec.organization_id)) THEN
6844: END IF;
6845:
6846: END IF; -- --}
6847: IF l_debug_on THEN
6848: WSH_DEBUG_SV.logmsg(l_module_name,'l_items_tab.COUNT :'||l_items_tab.COUNT);
6849: END IF;
6850:
6851: IF l_check_pickup THEN
6852:
6850:
6851: IF l_check_pickup THEN
6852:
6853: IF l_debug_on THEN
6854: WSH_DEBUG_SV.logmsg(l_module_name,' l_locations_list.COUNT : '||l_locations_list.COUNT||' initial_pickup loc : '||p_entity_tab(k).initial_pickup_location_id);
6855: END IF;
6856:
6857: l_locations_list(l_locations_list.COUNT + 1) := p_entity_tab(k).initial_pickup_location_id;
6858: END IF;
6858: END IF;
6859: IF l_check_dropoff THEN
6860:
6861: IF l_debug_on THEN
6862: WSH_DEBUG_SV.logmsg(l_module_name,' l_locations_list.COUNT : '||l_locations_list.COUNT||' ultimate dropoff loc : '||p_entity_tab(k).ultimate_dropoff_location_id);
6863: END IF;
6864:
6865: l_locations_list(l_locations_list.COUNT + 1) := p_entity_tab(k).ultimate_dropoff_location_id;
6866: END IF;
6937: END IF;
6938: END IF;
6939:
6940: IF l_debug_on THEN
6941: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_cuscus_result: '||l_validate_cuscus_result);
6942: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfac_result: '||l_validate_itmfac_result);
6943: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_orgfac_result: '||l_validate_orgfac_result);
6944: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_loop_result: '||l_validate_loop_result);
6945: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmin_result: '||l_validate_itmin_result);
6938: END IF;
6939:
6940: IF l_debug_on THEN
6941: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_cuscus_result: '||l_validate_cuscus_result);
6942: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfac_result: '||l_validate_itmfac_result);
6943: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_orgfac_result: '||l_validate_orgfac_result);
6944: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_loop_result: '||l_validate_loop_result);
6945: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmin_result: '||l_validate_itmin_result);
6946: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result: '||l_validate_itmfacin_result);
6939:
6940: IF l_debug_on THEN
6941: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_cuscus_result: '||l_validate_cuscus_result);
6942: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfac_result: '||l_validate_itmfac_result);
6943: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_orgfac_result: '||l_validate_orgfac_result);
6944: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_loop_result: '||l_validate_loop_result);
6945: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmin_result: '||l_validate_itmin_result);
6946: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result: '||l_validate_itmfacin_result);
6947: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result2: '||l_validate_itmfacin_result2);
6940: IF l_debug_on THEN
6941: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_cuscus_result: '||l_validate_cuscus_result);
6942: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfac_result: '||l_validate_itmfac_result);
6943: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_orgfac_result: '||l_validate_orgfac_result);
6944: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_loop_result: '||l_validate_loop_result);
6945: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmin_result: '||l_validate_itmin_result);
6946: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result: '||l_validate_itmfacin_result);
6947: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result2: '||l_validate_itmfacin_result2);
6948: END IF;
6941: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_cuscus_result: '||l_validate_cuscus_result);
6942: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfac_result: '||l_validate_itmfac_result);
6943: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_orgfac_result: '||l_validate_orgfac_result);
6944: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_loop_result: '||l_validate_loop_result);
6945: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmin_result: '||l_validate_itmin_result);
6946: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result: '||l_validate_itmfacin_result);
6947: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result2: '||l_validate_itmfacin_result2);
6948: END IF;
6949:
6942: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfac_result: '||l_validate_itmfac_result);
6943: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_orgfac_result: '||l_validate_orgfac_result);
6944: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_loop_result: '||l_validate_loop_result);
6945: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmin_result: '||l_validate_itmin_result);
6946: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result: '||l_validate_itmfacin_result);
6947: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result2: '||l_validate_itmfacin_result2);
6948: END IF;
6949:
6950: --IF l_validate_cuscus_result <> 'E' AND l_validate_itmfac_result <> 'E'
6943: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_orgfac_result: '||l_validate_orgfac_result);
6944: --WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_loop_result: '||l_validate_loop_result);
6945: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmin_result: '||l_validate_itmin_result);
6946: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result: '||l_validate_itmfacin_result);
6947: WSH_DEBUG_SV.logmsg(l_module_name,' l_validate_itmfacin_result2: '||l_validate_itmfacin_result2);
6948: END IF;
6949:
6950: --IF l_validate_cuscus_result <> 'E' AND l_validate_itmfac_result <> 'E'
6951: IF l_validate_cuscus_result <> 'E'
6967: END IF;
6968:
6969: --
6970: IF l_debug_on THEN
6971: WSH_DEBUG_SV.pop(l_module_name);
6972: END IF;
6973: --
6974:
6975: EXCEPTION
6976: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6977: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
6978: --
6979: IF l_debug_on THEN
6980: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6981: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6982: END IF;
6983: --
6984: WHEN others THEN
6977: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
6978: --
6979: IF l_debug_on THEN
6980: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6981: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6982: END IF;
6983: --
6984: WHEN others THEN
6985: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.search_matching_group');
6985: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.search_matching_group');
6986: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6987: --
6988: IF l_debug_on THEN
6989: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6990: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6991: END IF;
6992: --
6993: END search_matching_group;
6986: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6987: --
6988: IF l_debug_on THEN
6989: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6990: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
6991: END IF;
6992: --
6993: END search_matching_group;
6994:
7026: l_validate_itmcar_result VARCHAR2(1) := 'S';
7027: l_validate_itmveh_result VARCHAR2(1) := 'S';
7028: l_validate_itmmod_result VARCHAR2(1) := 'S';
7029:
7030: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
7031: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'check_dleg_discretionary';
7032:
7033: BEGIN
7034:
7035: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7036: x_validate_result := 'S';
7037:
7038: IF l_debug_on THEN
7039: wsh_debug_sv.push(l_module_name);
7040: END IF;
7041:
7042: -- ORG - FAC, CUS - FAC for delivery's org/cus against dleg's locations if sequence number
7043: -- of the dleg is non first/last in the delivery
7299: GOTO det_next;
7300: END IF;
7301:
7302: IF l_debug_on THEN
7303: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type : '||p_entity_type);
7304: END IF;
7305:
7306: --SBAKSHI (ITM_FAC)
7307: --IF p_dleg_pick_up_loc_id IS NOT NULL AND p_dleg_pick_up_stop_id IS NULL AND
7497:
7498:
7499: --
7500: IF l_debug_on THEN
7501: WSH_DEBUG_SV.pop(l_module_name);
7502: END IF;
7503: --
7504:
7505: EXCEPTION
7506: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7507: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
7508: --
7509: IF l_debug_on THEN
7510: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7511: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7512: END IF;
7513: --
7514: WHEN others THEN
7507: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
7508: --
7509: IF l_debug_on THEN
7510: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7511: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7512: END IF;
7513: --
7514: WHEN others THEN
7515: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_dleg_discretionary');
7515: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_dleg_discretionary');
7516: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7517: --
7518: IF l_debug_on THEN
7519: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7520: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7521: END IF;
7522: --
7523: END check_dleg_discretionary;
7516: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7517: --
7518: IF l_debug_on THEN
7519: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7520: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
7521: END IF;
7522: --
7523: END check_dleg_discretionary;
7524:
7640: p NUMBER := NULL;
7641:
7642:
7643: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'check_dlvy_against_trip';
7644: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
7645:
7646: --SBAKSHI
7647: l_trp_dlvy_pickup_date DATE;
7648: l_trp_dlvy_dropoff_date DATE;
7657: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7658: x_validate_result := 'S';
7659:
7660: IF l_debug_on THEN
7661: wsh_debug_sv.push(l_module_name);
7662: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type '||p_entity_type);
7663: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop count '|| p_target_tripstops.COUNT);
7664: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy count '|| p_target_dlvy.COUNT);
7665: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy_lines count '|| p_target_dlvy_lines.COUNT);
7658: x_validate_result := 'S';
7659:
7660: IF l_debug_on THEN
7661: wsh_debug_sv.push(l_module_name);
7662: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type '||p_entity_type);
7663: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop count '|| p_target_tripstops.COUNT);
7664: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy count '|| p_target_dlvy.COUNT);
7665: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy_lines count '|| p_target_dlvy_lines.COUNT);
7666: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.initial_pickup_location '|| p_delivery_rec.initial_pickup_location_id);
7659:
7660: IF l_debug_on THEN
7661: wsh_debug_sv.push(l_module_name);
7662: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type '||p_entity_type);
7663: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop count '|| p_target_tripstops.COUNT);
7664: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy count '|| p_target_dlvy.COUNT);
7665: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy_lines count '|| p_target_dlvy_lines.COUNT);
7666: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.initial_pickup_location '|| p_delivery_rec.initial_pickup_location_id);
7667: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.ultimate_dropoff_location '|| p_delivery_rec.ultimate_dropoff_location_id);
7660: IF l_debug_on THEN
7661: wsh_debug_sv.push(l_module_name);
7662: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type '||p_entity_type);
7663: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop count '|| p_target_tripstops.COUNT);
7664: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy count '|| p_target_dlvy.COUNT);
7665: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy_lines count '|| p_target_dlvy_lines.COUNT);
7666: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.initial_pickup_location '|| p_delivery_rec.initial_pickup_location_id);
7667: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.ultimate_dropoff_location '|| p_delivery_rec.ultimate_dropoff_location_id);
7668: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.pickup_location_id '|| p_target_stops_info.pickup_location_id);
7661: wsh_debug_sv.push(l_module_name);
7662: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type '||p_entity_type);
7663: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop count '|| p_target_tripstops.COUNT);
7664: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy count '|| p_target_dlvy.COUNT);
7665: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy_lines count '|| p_target_dlvy_lines.COUNT);
7666: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.initial_pickup_location '|| p_delivery_rec.initial_pickup_location_id);
7667: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.ultimate_dropoff_location '|| p_delivery_rec.ultimate_dropoff_location_id);
7668: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.pickup_location_id '|| p_target_stops_info.pickup_location_id);
7669: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.dropoff_location_id '|| p_target_stops_info.dropoff_location_id);
7662: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_type '||p_entity_type);
7663: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop count '|| p_target_tripstops.COUNT);
7664: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy count '|| p_target_dlvy.COUNT);
7665: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy_lines count '|| p_target_dlvy_lines.COUNT);
7666: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.initial_pickup_location '|| p_delivery_rec.initial_pickup_location_id);
7667: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.ultimate_dropoff_location '|| p_delivery_rec.ultimate_dropoff_location_id);
7668: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.pickup_location_id '|| p_target_stops_info.pickup_location_id);
7669: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.dropoff_location_id '|| p_target_stops_info.dropoff_location_id);
7670: END IF;
7663: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop count '|| p_target_tripstops.COUNT);
7664: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy count '|| p_target_dlvy.COUNT);
7665: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy_lines count '|| p_target_dlvy_lines.COUNT);
7666: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.initial_pickup_location '|| p_delivery_rec.initial_pickup_location_id);
7667: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.ultimate_dropoff_location '|| p_delivery_rec.ultimate_dropoff_location_id);
7668: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.pickup_location_id '|| p_target_stops_info.pickup_location_id);
7669: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.dropoff_location_id '|| p_target_stops_info.dropoff_location_id);
7670: END IF;
7671:
7664: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy count '|| p_target_dlvy.COUNT);
7665: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy_lines count '|| p_target_dlvy_lines.COUNT);
7666: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.initial_pickup_location '|| p_delivery_rec.initial_pickup_location_id);
7667: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.ultimate_dropoff_location '|| p_delivery_rec.ultimate_dropoff_location_id);
7668: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.pickup_location_id '|| p_target_stops_info.pickup_location_id);
7669: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.dropoff_location_id '|| p_target_stops_info.dropoff_location_id);
7670: END IF;
7671:
7672: -- Here check the delivery against target trip for exclusive constraints
7665: WSH_DEBUG_SV.logmsg(l_module_name,'target_dlvy_lines count '|| p_target_dlvy_lines.COUNT);
7666: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.initial_pickup_location '|| p_delivery_rec.initial_pickup_location_id);
7667: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.ultimate_dropoff_location '|| p_delivery_rec.ultimate_dropoff_location_id);
7668: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.pickup_location_id '|| p_target_stops_info.pickup_location_id);
7669: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.dropoff_location_id '|| p_target_stops_info.dropoff_location_id);
7670: END IF;
7671:
7672: -- Here check the delivery against target trip for exclusive constraints
7673: -- com -fac, cus - fac, itm - fac for each delivery against trip stops
7680:
7681: -- Check fac-mod, fac-car
7682: -- between p_delivery_rec and p_target_trip
7683: IF l_debug_on THEN
7684: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_trip.carrier_id '||p_target_trip.carrier_id);
7685: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_trip.mode_of_transport '||p_target_trip.mode_of_transport);
7686: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_trip.ship_method_code '||p_target_trip.ship_method_code);
7687: END IF;
7688:
7681: -- Check fac-mod, fac-car
7682: -- between p_delivery_rec and p_target_trip
7683: IF l_debug_on THEN
7684: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_trip.carrier_id '||p_target_trip.carrier_id);
7685: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_trip.mode_of_transport '||p_target_trip.mode_of_transport);
7686: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_trip.ship_method_code '||p_target_trip.ship_method_code);
7687: END IF;
7688:
7689: IF (p_target_trip.carrier_id IS NULL OR p_target_trip.mode_of_transport IS NULL) AND
7682: -- between p_delivery_rec and p_target_trip
7683: IF l_debug_on THEN
7684: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_trip.carrier_id '||p_target_trip.carrier_id);
7685: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_trip.mode_of_transport '||p_target_trip.mode_of_transport);
7686: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_trip.ship_method_code '||p_target_trip.ship_method_code);
7687: END IF;
7688:
7689: IF (p_target_trip.carrier_id IS NULL OR p_target_trip.mode_of_transport IS NULL) AND
7690: (p_target_trip.ship_method_code IS NOT NULL) THEN
7763: FETCH c_get_stop_location INTO l_pu_location_id,l_pu_sequencenum,l_pu_pa_date;
7764: CLOSE c_get_stop_location;
7765:
7766: IF l_debug_on THEN
7767: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_location_id '||l_pu_location_id);
7768: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_sequencenum '||l_pu_sequencenum);
7769: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_pa_date '||l_pu_pa_date);
7770: END IF;
7771:
7764: CLOSE c_get_stop_location;
7765:
7766: IF l_debug_on THEN
7767: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_location_id '||l_pu_location_id);
7768: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_sequencenum '||l_pu_sequencenum);
7769: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_pa_date '||l_pu_pa_date);
7770: END IF;
7771:
7772: ELSIF p_target_stops_info.pickup_location_id IS NOT NULL THEN
7765:
7766: IF l_debug_on THEN
7767: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_location_id '||l_pu_location_id);
7768: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_sequencenum '||l_pu_sequencenum);
7769: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_pa_date '||l_pu_pa_date);
7770: END IF;
7771:
7772: ELSIF p_target_stops_info.pickup_location_id IS NOT NULL THEN
7773:
7786: FETCH c_get_stop INTO l_pu_sequencenum,l_pu_pa_date;
7787: CLOSE c_get_stop;
7788:
7789: IF l_debug_on THEN
7790: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_location_id 11 '||p_target_stops_info.pickup_location_id);
7791: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_sequencenum 11 '||l_pu_sequencenum);
7792: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_pa_date 11 '||l_pu_pa_date);
7793: END IF;
7794:
7787: CLOSE c_get_stop;
7788:
7789: IF l_debug_on THEN
7790: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_location_id 11 '||p_target_stops_info.pickup_location_id);
7791: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_sequencenum 11 '||l_pu_sequencenum);
7792: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_pa_date 11 '||l_pu_pa_date);
7793: END IF;
7794:
7795: END IF;
7788:
7789: IF l_debug_on THEN
7790: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_location_id 11 '||p_target_stops_info.pickup_location_id);
7791: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_sequencenum 11 '||l_pu_sequencenum);
7792: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_pa_date 11 '||l_pu_pa_date);
7793: END IF;
7794:
7795: END IF;
7796:
7799: -- in target trip
7800: OPEN c_get_stop(p_delivery_rec.initial_pickup_location_id,p_target_trip.trip_id);
7801: FETCH c_get_stop INTO l_pu_sequencenum,l_pu_pa_date;
7802: IF l_debug_on THEN
7803: WSH_DEBUG_SV.logmsg(l_module_name,'rowcount c_get_stop : '|| c_get_stop%rowcount ||' for deliverys initial pu : '||p_delivery_rec.initial_pickup_location_id);
7804: END IF;
7805: CLOSE c_get_stop;
7806:
7807: END IF;
7832: -- in target trip
7833: OPEN c_get_stop(p_delivery_rec.ultimate_dropoff_location_id,p_target_trip.trip_id);
7834: FETCH c_get_stop INTO l_do_sequencenum,l_do_pa_date;
7835: IF l_debug_on THEN
7836: WSH_DEBUG_SV.logmsg(l_module_name,'rowcount c_get_stop : '|| c_get_stop%rowcount ||' for deliverys ultimate do : '||p_delivery_rec.ultimate_dropoff_location_id);
7837: END IF;
7838: CLOSE c_get_stop;
7839: END IF;
7840:
7844: -- the following check only applies to dleg creation from WSH
7845: -- for assign del to trip from FTE, this check is not required as there
7846: -- the check is already performed at the dleg creation time
7847: IF l_debug_on THEN
7848: WSH_DEBUG_SV.logmsg(l_module_name, 'p_entity_type: '||p_entity_type);
7849: END IF;
7850: IF p_entity_type <> 'DLEG' THEN
7851:
7852: check_dleg_discretionary(
7872: END IF;
7873: END IF;
7874:
7875: IF l_debug_on THEN
7876: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_sequencenum '|| l_pu_sequencenum||' l_do_sequencenum '||l_do_sequencenum);
7877: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_pa_date '|| to_char(l_pu_pa_date,'DD-MON-YYYY HH24:MI:SS')||' l_do_pa_date '||to_char(l_do_pa_date,'DD-MON-YYYY HH24:MI:SS'));
7878: END IF;
7879: END IF;
7880:
7873: END IF;
7874:
7875: IF l_debug_on THEN
7876: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_sequencenum '|| l_pu_sequencenum||' l_do_sequencenum '||l_do_sequencenum);
7877: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_pa_date '|| to_char(l_pu_pa_date,'DD-MON-YYYY HH24:MI:SS')||' l_do_pa_date '||to_char(l_do_pa_date,'DD-MON-YYYY HH24:MI:SS'));
7878: END IF;
7879: END IF;
7880:
7881:
8020: l_locations_list.DELETE;
8021: l_items_tab.DELETE;
8022:
8023: IF l_debug_on THEN
8024: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop id '|| p_target_tripstops(k).stop_id||' target_tripstop sequence '||p_target_tripstops(k).stop_sequence_number||' arriv date '||p_target_tripstops(k).planned_arrival_date);
8025: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop location_id '|| p_target_tripstops(k).stop_location_id||' target_tripstop physical_location_id :'||p_target_tripstops(k).physical_location_id);
8026: END IF;
8027:
8028: --LOOP -- Over p_detail_tab
8021: l_items_tab.DELETE;
8022:
8023: IF l_debug_on THEN
8024: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop id '|| p_target_tripstops(k).stop_id||' target_tripstop sequence '||p_target_tripstops(k).stop_sequence_number||' arriv date '||p_target_tripstops(k).planned_arrival_date);
8025: WSH_DEBUG_SV.logmsg(l_module_name,'target_tripstop location_id '|| p_target_tripstops(k).stop_location_id||' target_tripstop physical_location_id :'||p_target_tripstops(k).physical_location_id);
8026: END IF;
8027:
8028: --LOOP -- Over p_detail_tab
8029: j := p_detail_tab.FIRST;
8160: -- Check p_target_dlvy 's org, cus, sup against p_target_stops_info.pickup_location_id
8161: l_input_pu_location_id := p_target_stops_info.pickup_location_id;
8162:
8163: IF l_debug_on THEN
8164: WSH_DEBUG_SV.logmsg(l_module_name,'Checking p_target_dlvy against p_target_stops_info.pickup_location_id :'|| p_target_stops_info.pickup_location_id);
8165: END IF;
8166:
8167: END IF;
8168: ELSIF l_pu_pa_date IS NULL THEN
8181: -- Check p_target_dlvy 's org, cus, sup against p_delivery_rec.initial_pickup_location_id
8182: l_input_pu_location_id := p_delivery_rec.initial_pickup_location_id;
8183:
8184: IF l_debug_on THEN
8185: WSH_DEBUG_SV.logmsg(l_module_name,'Checking p_target_dlvy against p_delivery_rec.initial_pickup_location_id :'|| p_delivery_rec.initial_pickup_location_id);
8186: END IF;
8187:
8188: END IF;
8189: END IF;
8211: -- Check p_target_dlvy 's org, cus, sup against p_target_stops_info.dropoff_location_id
8212: l_input_do_location_id := p_target_stops_info.dropoff_location_id;
8213:
8214: IF l_debug_on THEN
8215: WSH_DEBUG_SV.logmsg(l_module_name,'Checking p_target_dlvy against p_target_stops_info.dropoff_location_id :'|| p_target_stops_info.dropoff_location_id);
8216: END IF;
8217:
8218: END IF;
8219: ELSIF l_do_pa_date IS NULL THEN
8231: -- Check p_target_dlvy 's org, cus, sup against p_delivery_rec.ultimate_dropoff_location_id
8232: l_input_do_location_id := p_delivery_rec.ultimate_dropoff_location_id;
8233:
8234: IF l_debug_on THEN
8235: WSH_DEBUG_SV.logmsg(l_module_name,'Checking p_target_dlvy against p_delivery_rec.ultimate_dropoff_location_id :'|| p_delivery_rec.ultimate_dropoff_location_id);
8236: END IF;
8237: END IF;
8238: END IF;
8239: END IF;
8297: l_target_rec.inventory_item_id := p_target_dlvy_lines(m).inventory_item_id;
8298: l_target_rec.customer_id := p_target_dlvy_lines(m).customer_id;
8299: --
8300: IF l_debug_on THEN
8301: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_target_rec for assigned line : '||p_target_dlvy_lines(m).delivery_detail_id);
8302: END IF;
8303: --
8304:
8305: IF ((l_entity_rec.inventory_item_id <> l_target_rec.inventory_item_id) OR
8411: END IF;
8412:
8413: --
8414: IF l_debug_on THEN
8415: WSH_DEBUG_SV.pop(l_module_name);
8416: END IF;
8417: --
8418:
8419: EXCEPTION
8420: WHEN g_get_carrmode_failed THEN
8421: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8422: --
8423: IF l_debug_on THEN
8424: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
8425: END IF;
8426: --
8427: WHEN g_get_vehicletype_failed THEN
8428: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8427: WHEN g_get_vehicletype_failed THEN
8428: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8429: --
8430: IF l_debug_on THEN
8431: WSH_DEBUG_SV.pop(l_module_name,' get vehicletype failed ');
8432: END IF;
8433: --
8434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8436: --
8437: IF l_debug_on THEN
8438: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8440: END IF;
8441: --
8442: WHEN others THEN
8435: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8436: --
8437: IF l_debug_on THEN
8438: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8440: END IF;
8441: --
8442: WHEN others THEN
8443: IF c_get_stop%ISOPEN THEN
8452: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_dlvy_against_trip');
8453: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8454: --
8455: IF l_debug_on THEN
8456: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8457: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8458: END IF;
8459: --
8460: END check_dlvy_against_trip;
8453: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8454: --
8455: IF l_debug_on THEN
8456: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8457: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8458: END IF;
8459: --
8460: END check_dlvy_against_trip;
8461:
8508: l_validate_carrier_result VARCHAR2(1) := 'S';
8509: l_validate_mode_result VARCHAR2(1) := 'S';
8510:
8511: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'check_act_positive';
8512: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
8513:
8514: BEGIN
8515:
8516: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8516: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8517: x_validate_result := 'S';
8518:
8519: IF l_debug_on THEN
8520: wsh_debug_sv.push(l_module_name);
8521: END IF;
8522:
8523: IF (p_delivery_rec.carrier_id IS NULL OR p_delivery_rec.mode_of_transport IS NULL) AND
8524: (p_delivery_rec.ship_method_code IS NOT NULL) THEN
8552:
8553: IF l_carrier IS NULL AND l_mode IS NULL THEN
8554: --
8555: IF l_debug_on THEN
8556: WSH_DEBUG_SV.pop(l_module_name);
8557: END IF;
8558: --
8559: RETURN;
8560: END IF;
8706: END IF;
8707:
8708: --
8709: IF l_debug_on THEN
8710: WSH_DEBUG_SV.pop(l_module_name);
8711: END IF;
8712: --
8713:
8714: EXCEPTION
8715: WHEN g_get_carrmode_failed THEN
8716: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8717: --
8718: IF l_debug_on THEN
8719: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
8720: END IF;
8721: --
8722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8722: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
8723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8724: --
8725: IF l_debug_on THEN
8726: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8727: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8728: END IF;
8729: --
8730: WHEN others THEN
8723: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
8724: --
8725: IF l_debug_on THEN
8726: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8727: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8728: END IF;
8729: --
8730: WHEN others THEN
8731: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_act_positive');
8731: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_act_positive');
8732: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8733: --
8734: IF l_debug_on THEN
8735: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8737: END IF;
8738: --
8739:
8732: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8733: --
8734: IF l_debug_on THEN
8735: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
8737: END IF;
8738: --
8739:
8740: END check_act_positive;
8784: l_prev_out_object2_char VARCHAR2(30) := NULL;
8785: l_const_count NUMBER := x_failed_constraint.COUNT;
8786:
8787: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'check_act_carmode';
8788: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
8789:
8790: BEGIN
8791:
8792: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8792: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8793: x_validate_result := 'S';
8794:
8795: IF l_debug_on THEN
8796: wsh_debug_sv.push(l_module_name);
8797: END IF;
8798:
8799: FOR i IN 1..2 LOOP
8800: -- Facility - Vehicle
9051:
9052: END IF;
9053: --
9054: IF l_debug_on THEN
9055: WSH_DEBUG_SV.pop(l_module_name);
9056: END IF;
9057: --
9058:
9059:
9061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9062: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
9063: --
9064: IF l_debug_on THEN
9065: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9066: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9067: END IF;
9068: --
9069: WHEN others THEN
9062: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
9063: --
9064: IF l_debug_on THEN
9065: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9066: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9067: END IF;
9068: --
9069: WHEN others THEN
9070: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_act_carmode');
9070: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_act_carmode');
9071: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9072: --
9073: IF l_debug_on THEN
9074: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9075: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9076: END IF;
9077: --
9078:
9071: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9072: --
9073: IF l_debug_on THEN
9074: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9075: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9076: END IF;
9077: --
9078:
9079: END check_act_carmode;
9153: l_return_status VARCHAR2(1) := NULL;
9154: --#DUM_LOC(E)
9155:
9156: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'is_last_trip';
9157: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
9158:
9159: BEGIN
9160:
9161: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9160:
9161: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9162:
9163: IF l_debug_on THEN
9164: WSH_DEBUG_SV.push(l_module_name);
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Input delivery : '||p_delivery_id);
9166: END IF;
9167:
9168: IF p_initial_pu_loc_id IS NULL OR p_ultimate_do_loc_id IS NULL THEN
9161: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9162:
9163: IF l_debug_on THEN
9164: WSH_DEBUG_SV.push(l_module_name);
9165: WSH_DEBUG_SV.logmsg(l_module_name,'Input delivery : '||p_delivery_id);
9166: END IF;
9167:
9168: IF p_initial_pu_loc_id IS NULL OR p_ultimate_do_loc_id IS NULL THEN
9169: OPEN c_get_dlvy_locs(p_delivery_id);
9187:
9188: IF (l_physical_location_id IS NOT NULL) THEN
9189: --
9190: IF l_debug_on THEN
9191: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_ultimate_do_loc_id||' is a dummy location');
9192: END IF;
9193: --
9194: l_ultimate_do_loc_id:= l_physical_location_id;
9195: END IF;
9261: -- will be on, all the delvery legs are connected
9262: -- and delivery's initial pickup and ultimate dropoff locations are satisfied
9263:
9264: IF l_debug_on THEN
9265: WSH_DEBUG_SV.logmsg(l_module_name,'del initial pickup : '||l_initial_pu_loc_id||' del ultimate dropoff : '||l_ultimate_do_loc_id);
9266: WSH_DEBUG_SV.logmsg(l_module_name,'l_pickup_loc_id : '||l_pickup_loc_id||' l_dropoff_loc_id : '||l_dropoff_loc_id);
9267: WSH_DEBUG_SV.logmsg(l_module_name,'l_dlvy_dotrip_loc_id : '||l_dlvy_dotrip_loc_id||' l_dlvy_putrip_loc_id : '||l_dlvy_putrip_loc_id);
9268: END IF;
9269:
9262: -- and delivery's initial pickup and ultimate dropoff locations are satisfied
9263:
9264: IF l_debug_on THEN
9265: WSH_DEBUG_SV.logmsg(l_module_name,'del initial pickup : '||l_initial_pu_loc_id||' del ultimate dropoff : '||l_ultimate_do_loc_id);
9266: WSH_DEBUG_SV.logmsg(l_module_name,'l_pickup_loc_id : '||l_pickup_loc_id||' l_dropoff_loc_id : '||l_dropoff_loc_id);
9267: WSH_DEBUG_SV.logmsg(l_module_name,'l_dlvy_dotrip_loc_id : '||l_dlvy_dotrip_loc_id||' l_dlvy_putrip_loc_id : '||l_dlvy_putrip_loc_id);
9268: END IF;
9269:
9270: l_count := 0;
9263:
9264: IF l_debug_on THEN
9265: WSH_DEBUG_SV.logmsg(l_module_name,'del initial pickup : '||l_initial_pu_loc_id||' del ultimate dropoff : '||l_ultimate_do_loc_id);
9266: WSH_DEBUG_SV.logmsg(l_module_name,'l_pickup_loc_id : '||l_pickup_loc_id||' l_dropoff_loc_id : '||l_dropoff_loc_id);
9267: WSH_DEBUG_SV.logmsg(l_module_name,'l_dlvy_dotrip_loc_id : '||l_dlvy_dotrip_loc_id||' l_dlvy_putrip_loc_id : '||l_dlvy_putrip_loc_id);
9268: END IF;
9269:
9270: l_count := 0;
9271: l_break_count := 0;
9278: FROM wsh_constraint_dleg_tmp
9279: WHERE delivery_id = p_delivery_id;
9280:
9281: IF l_debug_on THEN
9282: WSH_DEBUG_SV.logmsg(l_module_name,'Currently have :'||l_tmp_count||' rows into wsh_constraint_dleg_tmp for delivery : '||p_delivery_id);
9283: END IF;
9284: */
9285:
9286: OPEN c_get_dlegs(p_delivery_id);
9287: LOOP
9288: FETCH c_get_dlegs INTO l_dleg_rec;
9289: EXIT WHEN c_get_dlegs%NOTFOUND;
9290: IF l_debug_on THEN
9291: WSH_DEBUG_SV.logmsg(l_module_name,'dleg id :'||l_dleg_rec.delivery_leg_id||' pickup loc id : '||l_dleg_rec.pick_up_loc_id||' dropoff loc :'||l_dleg_rec.drop_off_loc_id);
9292: WSH_DEBUG_SV.logmsg(l_module_name,'pickup stop : '||l_dleg_rec.pick_up_stop_id||' dropoff stop :'||l_dleg_rec.drop_off_stop_id);
9293: END IF;
9294:
9295: l_count := l_count + 1;
9288: FETCH c_get_dlegs INTO l_dleg_rec;
9289: EXIT WHEN c_get_dlegs%NOTFOUND;
9290: IF l_debug_on THEN
9291: WSH_DEBUG_SV.logmsg(l_module_name,'dleg id :'||l_dleg_rec.delivery_leg_id||' pickup loc id : '||l_dleg_rec.pick_up_loc_id||' dropoff loc :'||l_dleg_rec.drop_off_loc_id);
9292: WSH_DEBUG_SV.logmsg(l_module_name,'pickup stop : '||l_dleg_rec.pick_up_stop_id||' dropoff stop :'||l_dleg_rec.drop_off_stop_id);
9293: END IF;
9294:
9295: l_count := l_count + 1;
9296: IF l_count > 1 THEN
9325: END LOOP;
9326: CLOSE c_get_dlegs;
9327:
9328: IF l_debug_on THEN
9329: WSH_DEBUG_SV.logmsg(l_module_name,'l_first_pu_loc : '||l_first_pu_loc||' l_prev_do_loc : '||l_prev_do_loc||' l_break_count : '||l_break_count);
9330: WSH_DEBUG_SV.logmsg(l_module_name,'l_root2 : '||l_root2||' l_leaf1 : '||l_leaf1);
9331: END IF;
9332:
9333: IF l_result THEN
9326: CLOSE c_get_dlegs;
9327:
9328: IF l_debug_on THEN
9329: WSH_DEBUG_SV.logmsg(l_module_name,'l_first_pu_loc : '||l_first_pu_loc||' l_prev_do_loc : '||l_prev_do_loc||' l_break_count : '||l_break_count);
9330: WSH_DEBUG_SV.logmsg(l_module_name,'l_root2 : '||l_root2||' l_leaf1 : '||l_leaf1);
9331: END IF;
9332:
9333: IF l_result THEN
9334:
9344: -- are satisfied and the current dleg will complete the
9345: -- multileg delivery sequence from origin to
9346: -- destination
9347: IF l_debug_on THEN
9348: WSH_DEBUG_SV.logmsg(l_module_name,'Atleast one dleg exists and they are in sequence');
9349: END IF;
9350:
9351: IF NOT ( (l_first_pu_loc = l_dlvy_dotrip_loc_id AND l_initial_pu_loc_id = l_dlvy_putrip_loc_id AND l_prev_do_loc = l_ultimate_do_loc_id) OR
9352: (l_prev_do_loc = l_dlvy_putrip_loc_id AND l_ultimate_do_loc_id = l_dlvy_dotrip_loc_id AND l_first_pu_loc = l_initial_pu_loc_id) ) THEN
9358: END IF;
9359:
9360: ELSE -- No leg exists currently
9361: IF l_debug_on THEN
9362: WSH_DEBUG_SV.logmsg(l_module_name,'No dleg exists currently for the input delivery');
9363: END IF;
9364: -- need to make sure delivery's initial pickup and
9365: -- ultimate dropoffs are satisfied
9366:
9376: -- For case 2 need to make sure delivery's initial pickup and
9377: -- ultimate dropoffs are satisfied
9378:
9379: IF l_debug_on THEN
9380: WSH_DEBUG_SV.logmsg(l_module_name,'there is a break in current leg sequences for the input delivery and current dleg fits in that break');
9381: END IF;
9382: IF NOT (l_first_pu_loc = l_initial_pu_loc_id AND
9383: l_prev_do_loc = l_ultimate_do_loc_id ) THEN
9384: l_result := FALSE;
9395: IF l_first_pu_loc = l_dlvy_dotrip_loc_id AND
9396: l_prev_do_loc = l_dlvy_putrip_loc_id THEN
9397:
9398: IF l_debug_on THEN
9399: WSH_DEBUG_SV.logmsg(l_module_name,'Dlegs have not been returned in proper hierarchical sequence by the connect by query');
9400: WSH_DEBUG_SV.logmsg(l_module_name,'there is a break in current leg sequences for the input delivery and current dleg fits in that break');
9401: END IF;
9402:
9403: IF (l_root2 = l_initial_pu_loc_id AND
9396: l_prev_do_loc = l_dlvy_putrip_loc_id THEN
9397:
9398: IF l_debug_on THEN
9399: WSH_DEBUG_SV.logmsg(l_module_name,'Dlegs have not been returned in proper hierarchical sequence by the connect by query');
9400: WSH_DEBUG_SV.logmsg(l_module_name,'there is a break in current leg sequences for the input delivery and current dleg fits in that break');
9401: END IF;
9402:
9403: IF (l_root2 = l_initial_pu_loc_id AND
9404: l_leaf1 = l_ultimate_do_loc_id ) THEN
9407: END IF;
9408:
9409: ELSE
9410: IF l_debug_on THEN
9411: WSH_DEBUG_SV.logmsg(l_module_name,'There is a break in already existing dleg sequence and the current dleg does not fit in that break');
9412: END IF;
9413: END IF;
9414: END IF;
9415:
9414: END IF;
9415:
9416: --
9417: IF l_debug_on THEN
9418: WSH_DEBUG_SV.pop(l_module_name);
9419: END IF;
9420: --
9421:
9422: RETURN l_result;
9434: END IF;
9435: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.is_last_trip');
9436: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9437: IF l_debug_on THEN
9438: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9440: END IF;
9441: RETURN FALSE;
9442:
9435: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.is_last_trip');
9436: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9437: IF l_debug_on THEN
9438: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9439: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9440: END IF;
9441: RETURN FALSE;
9442:
9443: END is_last_trip;
9508: l_trip_id NUMBER := 0;
9509: l_stop_location_id NUMBER := 0;
9510:
9511: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'get_intmed_stops';
9512: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
9513:
9514: BEGIN
9515:
9516: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9515:
9516: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9517:
9518: IF l_debug_on THEN
9519: wsh_debug_sv.push(l_module_name);
9520: END IF;
9521:
9522: x_num_dlegs := 0;
9523: OPEN c_get_stops(p_delivery_id);
9531: IF l_pickup_stop_loc <> p_pickup_loc_id THEN
9532: --IF NOT x_stop_locations.EXISTS(l_pickup_stop_loc) THEN
9533: IF NOT entity_exists(l_pickup_stop_loc,x_stop_locations,z) THEN
9534: IF l_debug_on THEN
9535: WSH_DEBUG_SV.logmsg(l_module_name,'Adding trip pickup stop location id : '||l_pickup_stop_loc);
9536: END IF;
9537: l_stop_loc_cnt := l_stop_loc_cnt + 1;
9538: x_stop_locations(l_stop_loc_cnt) := l_pickup_stop_loc;
9539: --x_stop_locations(l_pickup_stop_loc) := l_pickup_stop_loc;
9543: IF l_dropoff_stop_loc <> p_dropoff_loc_id THEN
9544: --IF NOT x_stop_locations.EXISTS(l_dropoff_stop_loc) THEN
9545: IF NOT entity_exists(l_dropoff_stop_loc,x_stop_locations,z) THEN
9546: IF l_debug_on THEN
9547: WSH_DEBUG_SV.logmsg(l_module_name,'Adding trip dropoff stop location id : '||l_dropoff_stop_loc);
9548: END IF;
9549: l_stop_loc_cnt := l_stop_loc_cnt + 1;
9550: x_stop_locations(l_stop_loc_cnt) := l_dropoff_stop_loc;
9551: --x_stop_locations(l_dropoff_stop_loc) := l_dropoff_stop_loc;
9557: CLOSE c_get_stops;
9558:
9559: --
9560: IF l_debug_on THEN
9561: WSH_DEBUG_SV.logmsg(l_module_name,'x_num_dlegs : '||x_num_dlegs);
9562: WSH_DEBUG_SV.pop(l_module_name);
9563: END IF;
9564: --
9565:
9558:
9559: --
9560: IF l_debug_on THEN
9561: WSH_DEBUG_SV.logmsg(l_module_name,'x_num_dlegs : '||x_num_dlegs);
9562: WSH_DEBUG_SV.pop(l_module_name);
9563: END IF;
9564: --
9565:
9566: EXCEPTION
9570: END IF;
9571: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_intmed_stops');
9572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9573: IF l_debug_on THEN
9574: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9575: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9576: END IF;
9577:
9578: END get_intmed_stops;
9571: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_intmed_stops');
9572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9573: IF l_debug_on THEN
9574: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9575: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9576: END IF;
9577:
9578: END get_intmed_stops;
9579:
9625: l_idx NUMBER := 0;
9626: --#SBAKSHI(08/24)
9627:
9628: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'append_current_trip_stops';
9629: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
9630:
9631: BEGIN
9632:
9633: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9632:
9633: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9634:
9635: IF l_debug_on THEN
9636: wsh_debug_sv.push(l_module_name);
9637: END IF;
9638:
9639: IF p_action_code = G_ASSIGN_DLVY_TRIP THEN
9640:
9685: END IF;
9686:
9687: END IF;
9688: IF l_debug_on THEN
9689: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_location_id : '||l_pu_location_id||' l_pu_sequencenum : '||l_pu_sequencenum||' l_do_location_id : '||l_do_location_id||' l_do_sequencenum : '||l_do_sequencenum);
9690: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_pa_date : '||to_char(l_pu_pa_date,'DD-MON-YYYY HH24:MI:SS')||' l_do_pa_date : '||to_char(l_do_pa_date,'DD-MON-YYYY HH24:MI:SS'));
9691: END IF;
9692:
9693: END IF;
9686:
9687: END IF;
9688: IF l_debug_on THEN
9689: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_location_id : '||l_pu_location_id||' l_pu_sequencenum : '||l_pu_sequencenum||' l_do_location_id : '||l_do_location_id||' l_do_sequencenum : '||l_do_sequencenum);
9690: WSH_DEBUG_SV.logmsg(l_module_name,'l_pu_pa_date : '||to_char(l_pu_pa_date,'DD-MON-YYYY HH24:MI:SS')||' l_do_pa_date : '||to_char(l_do_pa_date,'DD-MON-YYYY HH24:MI:SS'));
9691: END IF;
9692:
9693: END IF;
9694:
9697: LOOP -- Over each entity in that group
9698:
9699: --
9700: IF l_debug_on THEN
9701: WSH_DEBUG_SV.logmsg(l_module_name,'for entity : '||p_entity.entity_id||' searching entity : '||p_entity_all(l).entity_id);
9702: WSH_DEBUG_SV.logmsg(l_module_name,'outside entity group id : '||p_entity.group_id||' searching entity group id : '||p_entity_all(l).group_id);
9703: WSH_DEBUG_SV.logmsg(l_module_name,'locations for entity : '||p_entity.initial_pickup_location_id||' : '||p_entity.ultimate_dropoff_location_id);
9704: WSH_DEBUG_SV.logmsg(l_module_name,'locations for searching entity : '||p_entity_all(l).initial_pickup_location_id||' : '||p_entity_all(l).ultimate_dropoff_location_id);
9705: END IF;
9698:
9699: --
9700: IF l_debug_on THEN
9701: WSH_DEBUG_SV.logmsg(l_module_name,'for entity : '||p_entity.entity_id||' searching entity : '||p_entity_all(l).entity_id);
9702: WSH_DEBUG_SV.logmsg(l_module_name,'outside entity group id : '||p_entity.group_id||' searching entity group id : '||p_entity_all(l).group_id);
9703: WSH_DEBUG_SV.logmsg(l_module_name,'locations for entity : '||p_entity.initial_pickup_location_id||' : '||p_entity.ultimate_dropoff_location_id);
9704: WSH_DEBUG_SV.logmsg(l_module_name,'locations for searching entity : '||p_entity_all(l).initial_pickup_location_id||' : '||p_entity_all(l).ultimate_dropoff_location_id);
9705: END IF;
9706: --
9699: --
9700: IF l_debug_on THEN
9701: WSH_DEBUG_SV.logmsg(l_module_name,'for entity : '||p_entity.entity_id||' searching entity : '||p_entity_all(l).entity_id);
9702: WSH_DEBUG_SV.logmsg(l_module_name,'outside entity group id : '||p_entity.group_id||' searching entity group id : '||p_entity_all(l).group_id);
9703: WSH_DEBUG_SV.logmsg(l_module_name,'locations for entity : '||p_entity.initial_pickup_location_id||' : '||p_entity.ultimate_dropoff_location_id);
9704: WSH_DEBUG_SV.logmsg(l_module_name,'locations for searching entity : '||p_entity_all(l).initial_pickup_location_id||' : '||p_entity_all(l).ultimate_dropoff_location_id);
9705: END IF;
9706: --
9707:
9700: IF l_debug_on THEN
9701: WSH_DEBUG_SV.logmsg(l_module_name,'for entity : '||p_entity.entity_id||' searching entity : '||p_entity_all(l).entity_id);
9702: WSH_DEBUG_SV.logmsg(l_module_name,'outside entity group id : '||p_entity.group_id||' searching entity group id : '||p_entity_all(l).group_id);
9703: WSH_DEBUG_SV.logmsg(l_module_name,'locations for entity : '||p_entity.initial_pickup_location_id||' : '||p_entity.ultimate_dropoff_location_id);
9704: WSH_DEBUG_SV.logmsg(l_module_name,'locations for searching entity : '||p_entity_all(l).initial_pickup_location_id||' : '||p_entity_all(l).ultimate_dropoff_location_id);
9705: END IF;
9706: --
9707:
9708: IF p_entity_all(l).entity_id = p_entity.entity_id OR
9791: -- of the input delivery's pickup and dropoff stops in this target trip
9792:
9793: --
9794: IF l_debug_on THEN
9795: WSH_DEBUG_SV.logmsg(l_module_name,'for child stop : '||p_target_tripstops(i).stop_id||' location : '||p_target_tripstops(i).stop_location_id||' sequence : '||
9796: p_target_tripstops(i).stop_sequence_number||' Planned Arrival Date : '||p_target_tripstops(i).planned_arrival_date);
9797: END IF;
9798: --
9799:
9822: THEN
9823:
9824: IF NOT entity_exists(p_target_tripstops(i).stop_location_id,x_stop_locations,z) THEN
9825: IF l_debug_on THEN
9826: WSH_DEBUG_SV.logmsg(l_module_name,'Adding target trip stop location id : '||p_target_tripstops(i).stop_location_id);
9827: END IF;
9828: l_stop_loc_cnt := l_stop_loc_cnt + 1;
9829: x_stop_locations(l_stop_loc_cnt) := p_target_tripstops(i).stop_location_id;
9830: --x_stop_locations(p_target_tripstops(i).stop_location_id) := p_target_tripstops(i).stop_location_id;
9840: END IF;
9841:
9842: --
9843: IF l_debug_on THEN
9844: WSH_DEBUG_SV.pop(l_module_name);
9845: END IF;
9846: --
9847:
9848: EXCEPTION
9852: END IF;
9853: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.append_current_trip_stops');
9854: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9855: IF l_debug_on THEN
9856: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9857: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9858: END IF;
9859:
9860: END append_current_trip_stops;
9853: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.append_current_trip_stops');
9854: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9855: IF l_debug_on THEN
9856: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9857: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9858: END IF;
9859:
9860: END append_current_trip_stops;
9861:
9967: l_delivery_ids WSH_UTIL_CORE.id_tab_type;
9968: l_tmp_count NUMBER := 0;
9969:
9970: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_positive_constraint';
9971: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
9972:
9973: BEGIN
9974:
9975: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9974:
9975: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9976:
9977: IF l_debug_on THEN
9978: wsh_debug_sv.push(l_module_name);
9979: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.pickup_location_id : '||p_target_stops_info.pickup_location_id);
9980: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.dropoff_location_id : '||p_target_stops_info.dropoff_location_id);
9981: END IF;
9982:
9975: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9976:
9977: IF l_debug_on THEN
9978: wsh_debug_sv.push(l_module_name);
9979: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.pickup_location_id : '||p_target_stops_info.pickup_location_id);
9980: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.dropoff_location_id : '||p_target_stops_info.dropoff_location_id);
9981: END IF;
9982:
9983: IF (p_target_trip.carrier_id IS NULL OR p_target_trip.MODE_OF_TRANSPORT IS NULL) AND
9976:
9977: IF l_debug_on THEN
9978: wsh_debug_sv.push(l_module_name);
9979: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.pickup_location_id : '||p_target_stops_info.pickup_location_id);
9980: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_stops_info.dropoff_location_id : '||p_target_stops_info.dropoff_location_id);
9981: END IF;
9982:
9983: IF (p_target_trip.carrier_id IS NULL OR p_target_trip.MODE_OF_TRANSPORT IS NULL) AND
9984: (p_target_trip.ship_method_code IS NOT NULL) THEN
10262:
10263: IF l_delivery_ids.COUNT > 0 THEN
10264:
10265: IF l_debug_on THEN
10266: WSH_DEBUG_SV.logmsg(l_module_name,'Inserting into wsh_constraint_dleg_tmp ');
10267: END IF;
10268:
10269:
10270: FORALL q in l_delivery_ids.FIRST..l_delivery_ids.LAST
10294: INTO l_tmp_count
10295: FROM wsh_constraint_dleg_tmp;
10296:
10297: IF l_debug_on THEN
10298: WSH_DEBUG_SV.logmsg(l_module_name,'Inserted :'||l_tmp_count||' rows into wsh_constraint_dleg_tmp ');
10299: END IF;
10300: */
10301:
10302: ELSE
10300: */
10301:
10302: ELSE
10303: IF l_debug_on THEN
10304: WSH_DEBUG_SV.logmsg(l_module_name,'No records present in l_delivery_ids');
10305: END IF;
10306: END IF;
10307: END IF;
10308:
10329:
10330: IF p_action_code = G_ASSIGN_DLVY_TRIP THEN
10331:
10332: IF l_debug_on THEN
10333: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).entity_id : '||p_entity_tab(k).entity_id);
10334: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).initial_pickup_location_id : '||p_entity_tab(k).initial_pickup_location_id);
10335: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).ultimate_dropoff_location_id : '||p_entity_tab(k).ultimate_dropoff_location_id);
10336: END IF;
10337: -- Take care that for pickup/dropoff location id input same check is not done
10330: IF p_action_code = G_ASSIGN_DLVY_TRIP THEN
10331:
10332: IF l_debug_on THEN
10333: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).entity_id : '||p_entity_tab(k).entity_id);
10334: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).initial_pickup_location_id : '||p_entity_tab(k).initial_pickup_location_id);
10335: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).ultimate_dropoff_location_id : '||p_entity_tab(k).ultimate_dropoff_location_id);
10336: END IF;
10337: -- Take care that for pickup/dropoff location id input same check is not done
10338: -- more than once
10331:
10332: IF l_debug_on THEN
10333: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).entity_id : '||p_entity_tab(k).entity_id);
10334: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).initial_pickup_location_id : '||p_entity_tab(k).initial_pickup_location_id);
10335: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab(k).ultimate_dropoff_location_id : '||p_entity_tab(k).ultimate_dropoff_location_id);
10336: END IF;
10337: -- Take care that for pickup/dropoff location id input same check is not done
10338: -- more than once
10339:
10620: -- proceed to next trip and obtain all stops of the delivery on it
10621: -- continue like this
10622:
10623: IF l_debug_on THEN
10624: WSH_DEBUG_SV.logmsg(l_module_name,'Trip : '||p_target_trip.trip_id||' is last_trip for current delivery : '||p_entity_tab(k).entity_id);
10625: END IF;
10626:
10627: get_intmed_stops (
10628: p_delivery_id => p_entity_tab(k).entity_id,
10643:
10644: --IF l_stop_locations.COUNT > 0 THEN
10645: IF l_num_dlegs >= 1 THEN
10646: IF l_debug_on THEN
10647: WSH_DEBUG_SV.logmsg(l_module_name,'current delivery : '||p_entity_tab(k).entity_id||' has '||l_num_dlegs||' delivery legs now and hence will not be direct shipment');
10648: END IF;
10649:
10650: l_direct_shipment := FALSE;
10651: END IF;
10655: END IF;
10656:
10657: --
10658: IF l_debug_on THEN
10659: WSH_DEBUG_SV.logmsg(l_module_name,'l_stop_locations count : '||l_stop_locations.COUNT);
10660: END IF;
10661: --
10662:
10663: IF p_action_code = G_AUTOCRT_DLVY_TRIP OR p_action_code = G_AUTOCRT_MDC THEN
10703: p_group_tab => p_group_tab, -- IN OUT
10704: x_return_status => l_return_status);
10705: --
10706: IF l_debug_on THEN
10707: WSH_DEBUG_SV.logmsg(l_module_name,'Called create_valid_entity_group return status : '||l_return_status);
10708: END IF;
10709: --
10710:
10711: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11135:
11136: <
11137: --
11138: IF l_debug_on THEN
11139: WSH_DEBUG_SV.logmsg(l_module_name,'p_entity_tab : FIRST - '||p_entity_tab.FIRST||' NEXT - '||p_entity_tab.NEXT(k)||' LAST - '||p_entity_tab.LAST||' COUNT - '||p_entity_tab.COUNT);
11140: END IF;
11141: --
11142:
11143: -- Check whether NEXT works with DELETE
11147: END IF;
11148:
11149: --
11150: IF l_debug_on THEN
11151: WSH_DEBUG_SV.pop(l_module_name);
11152: END IF;
11153: --
11154:
11155: EXCEPTION
11156: WHEN g_get_carrmode_failed THEN
11157: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11158: --
11159: IF l_debug_on THEN
11160: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
11161: END IF;
11162: --
11163: WHEN g_get_vehicletype_failed THEN
11164: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11163: WHEN g_get_vehicletype_failed THEN
11164: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11165: --
11166: IF l_debug_on THEN
11167: WSH_DEBUG_SV.pop(l_module_name,' get vehicletype failed ');
11168: END IF;
11169: --
11170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11171: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11170: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11171: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11172: --
11173: IF l_debug_on THEN
11174: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11175: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11176: END IF;
11177: --
11178: WHEN others THEN
11171: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11172: --
11173: IF l_debug_on THEN
11174: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11175: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11176: END IF;
11177: --
11178: WHEN others THEN
11179: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_positive_constraint');
11179: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_positive_constraint');
11180: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11181: --
11182: IF l_debug_on THEN
11183: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11184: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11185: END IF;
11186: --
11187:
11180: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11181: --
11182: IF l_debug_on THEN
11183: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11184: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11185: END IF;
11186: --
11187:
11188: END validate_positive_constraint;
11227: l_validate_itmcar_result VARCHAR2(1) := 'S';
11228: l_validate_itmmod_result VARCHAR2(1) := 'S';
11229:
11230: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'check_upd_dlvy';
11231: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
11232: BEGIN
11233:
11234: x_validate_result := 'S';
11235: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11234: x_validate_result := 'S';
11235: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11236:
11237: IF l_debug_on THEN
11238: wsh_debug_sv.push(l_module_name);
11239: END IF;
11240:
11241: IF (p_delivery_rec.carrier_id IS NULL OR p_delivery_rec.MODE_OF_TRANSPORT IS NULL) AND
11242: (p_delivery_rec.ship_method_code IS NOT NULL) THEN
11486: END IF; -- not null
11487:
11488: --
11489: IF l_debug_on THEN
11490: WSH_DEBUG_SV.pop(l_module_name);
11491: END IF;
11492: --
11493:
11494: EXCEPTION
11495: WHEN g_get_carrmode_failed THEN
11496: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11497: --
11498: IF l_debug_on THEN
11499: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
11500: END IF;
11501: --
11502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11503: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11502: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11503: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11504: --
11505: IF l_debug_on THEN
11506: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11507: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11508: END IF;
11509: --
11510: WHEN others THEN
11503: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11504: --
11505: IF l_debug_on THEN
11506: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11507: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11508: END IF;
11509: --
11510: WHEN others THEN
11511: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_upd_dlvy');
11511: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.check_upd_dlvy');
11512: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11513: --
11514: IF l_debug_on THEN
11515: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11516: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11517: END IF;
11518: --
11519:
11512: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11513: --
11514: IF l_debug_on THEN
11515: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11516: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11517: END IF;
11518: --
11519:
11520: END check_upd_dlvy;
11671: l_vehicle_name VARCHAR2(2000);
11672: l_vehicle_org_name VARCHAR2(240);
11673:
11674: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_constraint_dlvy';
11675: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
11676:
11677: --#DUM_LOC(S)
11678: l_physical_location_id NUMBER;
11679: --#DUM_LOC(E)
11693: FND_MSG_PUB.initialize;
11694: END IF;
11695:
11696: IF l_debug_on THEN
11697: wsh_debug_sv.push(l_module_name);
11698: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
11699: END IF;
11700:
11701: -- Action codes : ACT, ADT, UPD, CRD
11694: END IF;
11695:
11696: IF l_debug_on THEN
11697: wsh_debug_sv.push(l_module_name);
11698: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
11699: END IF;
11700:
11701: -- Action codes : ACT, ADT, UPD, CRD
11702:
11760:
11761: IF p_delivery_info.COUNT = 0 THEN
11762: --
11763: IF l_debug_on THEN
11764: WSH_DEBUG_SV.logmsg(l_module_name,'p_in_ids passed count : '||p_in_ids.COUNT);
11765: END IF;
11766: --
11767: i := p_in_ids.FIRST;
11768:
11795: --physical location id is not null implies- A dummy location.
11796: IF (l_physical_location_id IS NOT NULL) THEN
11797: --
11798: IF l_debug_on THEN
11799: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_delivery_info(i).ultimate_dropoff_location_id||' is a dummy location');
11800: END IF;
11801: --
11802: l_delivery_info(i).ultimate_dropoff_location_id := l_physical_location_id;
11803: -- AGDUMMY TODO populate physical_dropoff_location_id
11810: CLOSE c_gettrip;
11811:
11812: --
11813: IF l_debug_on THEN
11814: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11815: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11816: END IF;
11817: --
11818: EXIT WHEN i = p_in_ids.LAST;
11811:
11812: --
11813: IF l_debug_on THEN
11814: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11815: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11816: END IF;
11817: --
11818: EXIT WHEN i = p_in_ids.LAST;
11819: i := p_in_ids.NEXT(i);
11823:
11824: ELSE
11825: --
11826: IF l_debug_on THEN
11827: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info passed count : '||p_delivery_info.COUNT);
11828: END IF;
11829: --
11830:
11831: i := p_delivery_info.FIRST;
11873: l_delivery_info(i).SHIPPING_CONTROL := nvl(nvl(p_delivery_info(i).SHIPPING_CONTROL,l_upd_delivery_rec.SHIPPING_CONTROL),'BUYER');
11874:
11875: --
11876: IF l_debug_on THEN
11877: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
11878: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
11879: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11880: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11881: END IF;
11874:
11875: --
11876: IF l_debug_on THEN
11877: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
11878: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
11879: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11880: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11881: END IF;
11882: --
11875: --
11876: IF l_debug_on THEN
11877: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
11878: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
11879: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11880: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11881: END IF;
11882: --
11883: --#DUM_LOC(S)
11876: IF l_debug_on THEN
11877: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
11878: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
11879: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11880: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11881: END IF;
11882: --
11883: --#DUM_LOC(S)
11884: WSH_LOCATIONS_PKG.CONVERT_INTERNAL_CUST_LOCATION(
11894:
11895: IF (l_physical_location_id IS NOT NULL) THEN
11896: --
11897: IF l_debug_on THEN
11898: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_delivery_info(i).ultimate_dropoff_location_id||' is a dummy location');
11899: END IF;
11900: --
11901: l_delivery_info(i).ultimate_dropoff_location_id := l_physical_location_id;
11902: -- AGDUMMY TODO
11911: END IF;
11912: END IF;
11913: --
11914: IF l_debug_on THEN
11915: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info created : '||l_delivery_info.COUNT);
11916: END IF;
11917: --
11918:
11919: IF p_dlvy_assigned_lines.COUNT = 0 THEN
11924: IF i IS NOT NULL THEN
11925: LOOP
11926: --
11927: IF l_debug_on THEN
11928: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info : delivery id : '||l_delivery_info(i).delivery_id||' exists in db :'||l_delivery_info(i).exists_in_database);
11929: END IF;
11930:
11931: IF l_debug_on THEN
11932: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).delivery_type : '||l_delivery_info(i).delivery_type);
11928: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info : delivery id : '||l_delivery_info(i).delivery_id||' exists in db :'||l_delivery_info(i).exists_in_database);
11929: END IF;
11930:
11931: IF l_debug_on THEN
11932: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).delivery_type : '||l_delivery_info(i).delivery_type);
11933: --l_delivery_info(i).delivery_type := 'STANDARD';
11934: --WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).delivery_type : '||l_delivery_info(i).delivery_type);
11935: END IF;
11936: --
11930:
11931: IF l_debug_on THEN
11932: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).delivery_type : '||l_delivery_info(i).delivery_type);
11933: --l_delivery_info(i).delivery_type := 'STANDARD';
11934: --WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).delivery_type : '||l_delivery_info(i).delivery_type);
11935: END IF;
11936: --
11937: -- G_CREATE_DLVY should have 'N'
11938: IF l_delivery_info(i).exists_in_database = 'Y' THEN -- Assigned lines have not been passed
11948: ,l_shipping_control_tab,l_dum_tab;
11949: --DUM_COMPILE (NULL)
11950: CLOSE c_get_details;
11951: IF l_debug_on THEN
11952: WSH_DEBUG_SV.logmsg(l_module_name,'after c_get_details: '||l_detail_tab.COUNT);
11953: END IF;
11954: ELSE
11955: OPEN c_get_details_consol(l_delivery_info(i).delivery_id);
11956: FETCH c_get_details_consol BULK COLLECT INTO
11967: END IF;
11968:
11969: IF l_detail_tab.COUNT > 0 THEN
11970: IF l_debug_on THEN
11971: WSH_DEBUG_SV.logmsg(l_module_name,'l_detail_tab.COUNT : '||l_detail_tab.COUNT);
11972: END IF;
11973: l_end_count := l_end_count + l_detail_tab.COUNT;
11974: k := 0;
11975:
12013:
12014: IF (l_physical_location_id IS NOT NULL) THEN
12015: --
12016: IF l_debug_on THEN
12017: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_dlvy_assigned_lines(j).ship_to_location_id||' is a dummy location');
12018: END IF;
12019: --
12020: l_dlvy_assigned_lines(j).ship_to_location_id:= l_physical_location_id;
12021: -- AGDUMMY TODO
12033: ELSE
12034:
12035: --
12036: IF l_debug_on THEN
12037: WSH_DEBUG_SV.logmsg(l_module_name,'p_dlvy_assigned_lines passed : '||p_dlvy_assigned_lines.COUNT);
12038: END IF;
12039: --
12040: i := p_dlvy_assigned_lines.FIRST;
12041: IF i IS NOT NULL THEN
12074:
12075: IF (l_physical_location_id IS NOT NULL) THEN
12076: --
12077: IF l_debug_on THEN
12078: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_dlvy_assigned_lines(i).ship_to_location_id||' is a dummy location');
12079: END IF;
12080: --
12081: l_dlvy_assigned_lines(i).ship_to_location_id:= l_physical_location_id;
12082: -- AGDUMMY TODO
12114:
12115: IF (l_physical_location_id IS NOT NULL) THEN
12116: --
12117: IF l_debug_on THEN
12118: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_delivery_rec.ultimate_dropoff_location_id||' is a dummy location');
12119: END IF;
12120: --
12121: l_delivery_rec.ultimate_dropoff_location_id := l_physical_location_id;
12122: -- AGDUMMY TODO
12148:
12149: IF (l_physical_location_id IS NOT NULL) THEN
12150: --
12151: IF l_debug_on THEN
12152: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_target_trip_assign_dels(l).ultimate_dropoff_location_id||' is a dummy location');
12153: END IF;
12154: --
12155: l_target_trip_assign_dels(l).ultimate_dropoff_location_id := l_physical_location_id;
12156: -- AGDUMMY TODO
12184:
12185: IF (l_physical_location_id IS NOT NULL) THEN
12186: --
12187: IF l_debug_on THEN
12188: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
12189: END IF;
12190: --
12191: l_detail_rec.ship_to_location_id:= l_physical_location_id;
12192: -- AGDUMMY TODO
12218:
12219: IF (l_physical_location_id IS NOT NULL) THEN
12220: --
12221: IF l_debug_on THEN
12222: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
12223: END IF;
12224: --
12225: l_detail_rec.ship_to_location_id:= l_physical_location_id;
12226: -- AGDUMMY TODO
12252:
12253: IF (l_physical_location_id IS NOT NULL) THEN
12254: --
12255: IF l_debug_on THEN
12256: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_target_trip_dlvy_lines(l).ship_to_location_id||' is a dummy location');
12257: END IF;
12258: --
12259: l_target_trip_dlvy_lines(l).ship_to_location_id:= l_physical_location_id;
12260: -- AGDUMMY TODO
12316:
12317: IF (l_target_trip_incl_stops(l).physical_location_id IS NOT NULL) THEN
12318: --
12319: IF l_debug_on THEN
12320: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_target_trip_incl_stops(l).stop_location_id||' is a dummy location');
12321: END IF;
12322: --
12323: l_target_trip_incl_stops(l).stop_location_id:=l_target_trip_incl_stops(l).physical_location_id;
12324: END IF;
12359:
12360: IF (l_physical_location_id IS NOT NULL) THEN
12361: --
12362: IF l_debug_on THEN
12363: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||p_target_tripstops.pickup_location_id||' is a dummy location');
12364: END IF;
12365: --
12366: p_target_tripstops.pickup_location_id:=l_physical_location_id;
12367: END IF;
12381:
12382: IF (l_physical_location_id IS NOT NULL) THEN
12383: --
12384: IF l_debug_on THEN
12385: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||p_target_tripstops.dropoff_location_id||' is a dummy location');
12386: END IF;
12387: --
12388: p_target_tripstops.dropoff_location_id:=l_physical_location_id;
12389: END IF;
12389: END IF;
12390: --#DUM_LOC(E)
12391:
12392: IF l_debug_on THEN
12393: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_ID '||p_target_tripstops.PICKUP_STOP_ID);
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12390: --#DUM_LOC(E)
12391:
12392: IF l_debug_on THEN
12393: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_ID '||p_target_tripstops.PICKUP_STOP_ID);
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_LOCATION_ID '||p_target_tripstops.DROPOFF_LOCATION_ID);
12391:
12392: IF l_debug_on THEN
12393: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_ID '||p_target_tripstops.PICKUP_STOP_ID);
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_LOCATION_ID '||p_target_tripstops.DROPOFF_LOCATION_ID);
12399: END IF;
12392: IF l_debug_on THEN
12393: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_ID '||p_target_tripstops.PICKUP_STOP_ID);
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_LOCATION_ID '||p_target_tripstops.DROPOFF_LOCATION_ID);
12399: END IF;
12400: --
12393: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_ID '||p_target_tripstops.PICKUP_STOP_ID);
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_LOCATION_ID '||p_target_tripstops.DROPOFF_LOCATION_ID);
12399: END IF;
12400: --
12401: END IF; -- G_ASSIGN_DLVY_TRIP
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_LOCATION_ID '||p_target_tripstops.DROPOFF_LOCATION_ID);
12399: END IF;
12400: --
12401: END IF; -- G_ASSIGN_DLVY_TRIP
12402: --
12400: --
12401: END IF; -- G_ASSIGN_DLVY_TRIP
12402: --
12403: IF l_debug_on THEN
12404: WSH_DEBUG_SV.logmsg(l_module_name,'After populating table structures for action code '||p_action_code);
12405: END IF;
12406: --
12407:
12408: -- Populate assigned details
12407:
12408: -- Populate assigned details
12409: --
12410: IF l_debug_on THEN
12411: WSH_DEBUG_SV.logmsg(l_module_name,'After populating l_comp_class_tab count : '||l_comp_class_tab.COUNT);
12412: END IF;
12413: --
12414:
12415: /*
12482: l_mode := l_carrier_service_inout_rec.mode_of_transport;
12483:
12484: END IF; -- l_target_trip.carrier_id IS NULL OR ..
12485: IF l_debug_on THEN
12486: WSH_DEBUG_SV.logmsg(l_module_name,'target trip carrier : '||l_target_trip.carrier_id||' Mode : '||l_target_trip.mode_of_transport||' ship method : '||l_target_trip.ship_method_code);
12487: END IF;
12488:
12489: -- If carrier_id or mode is passed in, then those get preference for validation
12490: -- If they are not, they are derived from ship method if that is passed
12530: IF p_target_tripstops.pickup_location_id IS NOT NULL AND
12531: p_target_tripstops.pickup_stop_id IS NULL THEN
12532: l_location_id := p_target_tripstops.pickup_location_id;
12533: IF l_debug_on THEN
12534: WSH_DEBUG_SV.logmsg(l_module_name,'target pickup location id not null');
12535: END IF;
12536: -- ELSIF p_target_tripstops.pickup_stop_id IS NOT NULL THEN
12537: -- If the pickupstop does not already exist in the target trip
12538: -- check here, if already exists then do not check
12546: IF p_target_tripstops.dropoff_location_id IS NOT NULL AND
12547: p_target_tripstops.dropoff_stop_id IS NULL THEN
12548: l_location_id := p_target_tripstops.dropoff_location_id;
12549: IF l_debug_on THEN
12550: WSH_DEBUG_SV.logmsg(l_module_name,'target dropoff location id not null');
12551: END IF;
12552: ELSE
12553: -- Nothing to check
12554: GOTO next_pass;
12555: END IF;
12556: END IF;
12557: --
12558: IF l_debug_on THEN
12559: WSH_DEBUG_SV.logmsg(l_module_name,'i : '||i||' l_location_id : '||l_location_id);
12560: END IF;
12561: --
12562:
12563: IF l_comp_class_tab.EXISTS(G_FACILITY_VEHICLE_NUM) AND
12693: l_entity_tab(l_delivery_info(k).delivery_id).shipment_direction := l_delivery_info(k).shipment_direction;
12694: l_entity_tab(l_delivery_info(k).delivery_id).shipping_control := l_delivery_info(k).shipping_control;
12695: --
12696: IF l_debug_on THEN
12697: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_delivery_info(k).delivery_id||' for delivery index '||k);
12698: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).entity_id : '||l_entity_tab(l_delivery_info(k).delivery_id).entity_id);
12699: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id);
12700: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id);
12701: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12694: l_entity_tab(l_delivery_info(k).delivery_id).shipping_control := l_delivery_info(k).shipping_control;
12695: --
12696: IF l_debug_on THEN
12697: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_delivery_info(k).delivery_id||' for delivery index '||k);
12698: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).entity_id : '||l_entity_tab(l_delivery_info(k).delivery_id).entity_id);
12699: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id);
12700: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id);
12701: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12702: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).ultimate_dropoff_location_id : '||l_delivery_info(k).ultimate_dropoff_location_id);
12695: --
12696: IF l_debug_on THEN
12697: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_delivery_info(k).delivery_id||' for delivery index '||k);
12698: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).entity_id : '||l_entity_tab(l_delivery_info(k).delivery_id).entity_id);
12699: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id);
12700: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id);
12701: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12702: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).ultimate_dropoff_location_id : '||l_delivery_info(k).ultimate_dropoff_location_id);
12703: END IF;
12696: IF l_debug_on THEN
12697: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_delivery_info(k).delivery_id||' for delivery index '||k);
12698: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).entity_id : '||l_entity_tab(l_delivery_info(k).delivery_id).entity_id);
12699: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id);
12700: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id);
12701: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12702: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).ultimate_dropoff_location_id : '||l_delivery_info(k).ultimate_dropoff_location_id);
12703: END IF;
12704: --
12697: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_delivery_info(k).delivery_id||' for delivery index '||k);
12698: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).entity_id : '||l_entity_tab(l_delivery_info(k).delivery_id).entity_id);
12699: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id);
12700: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id);
12701: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12702: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).ultimate_dropoff_location_id : '||l_delivery_info(k).ultimate_dropoff_location_id);
12703: END IF;
12704: --
12705:
12698: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).entity_id : '||l_entity_tab(l_delivery_info(k).delivery_id).entity_id);
12699: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).initial_pickup_location_id);
12700: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info(k).delivery_id).ultimate_dropoff_location_id);
12701: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12702: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).ultimate_dropoff_location_id : '||l_delivery_info(k).ultimate_dropoff_location_id);
12703: END IF;
12704: --
12705:
12706: IF k <> l_delivery_info.FIRST THEN
12720: x_found => l_found,
12721: x_return_status => l_return_status);
12722: --
12723: IF l_debug_on THEN
12724: WSH_DEBUG_SV.logmsg(l_module_name,'Called search_matching_group return status : '||l_return_status||' Group found ? '||l_group_id);
12725: END IF;
12726: --
12727:
12728: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12742: p_group_tab => x_group_info,
12743: x_return_status => l_return_status);
12744: --
12745: IF l_debug_on THEN
12746: WSH_DEBUG_SV.logmsg(l_module_name,'Called create_valid_entity_group return status : '||l_return_status);
12747: END IF;
12748: --
12749:
12750: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12780: x_validate_result => l_validate_result,
12781: x_return_status => l_return_status);
12782: --
12783: IF l_debug_on THEN
12784: WSH_DEBUG_SV.logmsg(l_module_name,'Called check_dlvy_against_trip return status : '||l_return_status||' validate result : '||l_validate_result);
12785: END IF;
12786: --
12787:
12788: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12835: x_validate_result => l_validate_result,
12836: x_return_status => l_return_status);
12837: --
12838: IF l_debug_on THEN
12839: WSH_DEBUG_SV.logmsg(l_module_name,'Called check_upd_dlvy return status : '||l_return_status||' validate result : '||l_validate_result);
12840: END IF;
12841: --
12842:
12843: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12857: x_failed_lines(l_failed_lc).failed_line_index := l_failed_lc;
12858:
12859: --
12860: IF l_debug_on THEN
12861: WSH_DEBUG_SV.logmsg(l_module_name,'Adding failed delivery : '||l_delivery_info(k).delivery_id);
12862: END IF;
12863: --
12864:
12865: ELSE
12870: x_line_groups(l_linegroup_indx).entity_line_id := l_delivery_info(k).delivery_id;
12871:
12872: --
12873: IF l_debug_on THEN
12874: WSH_DEBUG_SV.logmsg(l_module_name,'Adding to linegroup delivery : '||l_delivery_info(k).delivery_id);
12875: END IF;
12876: --
12877:
12878: END IF;
12928: x_failed_constraints => l_failed_constraints,
12929: x_return_status => l_return_status);
12930: --
12931: IF l_debug_on THEN
12932: WSH_DEBUG_SV.logmsg(l_module_name,'Called validate_positive_constraint return status : '||l_return_status);
12933: END IF;
12934: --
12935:
12936: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13040: x_msg_data => x_msg_data,
13041: x_return_status => l_return_status);
13042: --
13043: IF l_debug_on THEN
13044: WSH_DEBUG_SV.logmsg(l_module_name,'Called stack_messages return status : '||l_return_status);
13045: END IF;
13046: --
13047:
13048: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13065:
13066:
13067: --
13068: IF l_debug_on THEN
13069: WSH_DEBUG_SV.pop(l_module_name);
13070: END IF;
13071: --
13072:
13073: EXCEPTION
13074: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13075: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
13076: --
13077: IF l_debug_on THEN
13078: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13079: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13080: END IF;
13081: --
13082: WHEN others THEN
13075: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
13076: --
13077: IF l_debug_on THEN
13078: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13079: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13080: END IF;
13081: --
13082: WHEN others THEN
13083: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dlvy');
13083: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dlvy');
13084: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13085: --
13086: IF l_debug_on THEN
13087: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13088: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13089: END IF;
13090: --
13091:
13084: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13085: --
13086: IF l_debug_on THEN
13087: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13088: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13089: END IF;
13090: --
13091:
13092: END validate_constraint_dlvy;
13187:
13188: l_delivery_leg_rec dleg_ccinfo_rec_type;
13189: l_physical_location_id NUMBER := NULL;
13190:
13191: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
13192: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_constraint_dleg';
13193:
13194: BEGIN
13195: x_validate_result := 'S';
13204: FND_MSG_PUB.initialize;
13205: END IF;
13206:
13207: IF l_debug_on THEN
13208: wsh_debug_sv.push(l_module_name);
13209: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
13210: END IF;
13211:
13212: refresh_cache(l_return_status);
13205: END IF;
13206:
13207: IF l_debug_on THEN
13208: wsh_debug_sv.push(l_module_name);
13209: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
13210: END IF;
13211:
13212: refresh_cache(l_return_status);
13213:
13275: FETCH get_num_child_dlegs into l_num_child_deliveries;
13276: CLOSE get_num_child_dlegs;
13277:
13278: /*IF l_debug_on THEN
13279: wsh_debug_sv.logmsg('p_delivery_leg_rec.delivery_leg_id : '||p_delivery_leg_rec.delivery_leg_id);
13280: END IF;*/
13281: IF l_debug_on THEN
13282: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_leg_rec.delivery_leg_id : '||p_delivery_leg_rec.delivery_leg_id);
13283: END IF;
13278: /*IF l_debug_on THEN
13279: wsh_debug_sv.logmsg('p_delivery_leg_rec.delivery_leg_id : '||p_delivery_leg_rec.delivery_leg_id);
13280: END IF;*/
13281: IF l_debug_on THEN
13282: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_leg_rec.delivery_leg_id : '||p_delivery_leg_rec.delivery_leg_id);
13283: END IF;
13284: IF l_num_child_deliveries > 0 THEN
13285: OPEN c_get_details_consol(p_delivery_leg_rec.delivery_id);
13286: LOOP
13287: FETCH c_get_details_consol INTO l_detail_rec;
13288: EXIT WHEN c_get_details_consol%NOTFOUND;
13289:
13290: /* IF l_debug_on THEN
13291: wsh_debug_sv.logmsg('l_detail_rec.COUNT: '||l_detail_rec.COUNT);
13292: END IF;*/
13293:
13294: -- AGDUMMY
13295: -- Convert ultimate_dropoff if dummy to physical
13310:
13311: IF (l_physical_location_id IS NOT NULL) THEN
13312: --
13313: IF l_debug_on THEN
13314: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
13315: END IF;
13316: --
13317: l_detail_rec.ship_to_location_id := l_physical_location_id;
13318: l_detail_rec.physical_ship_to_location_id := l_physical_location_id;
13348:
13349: IF (l_physical_location_id IS NOT NULL) THEN
13350: --
13351: IF l_debug_on THEN
13352: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
13353: END IF;
13354: --
13355: l_detail_rec.ship_to_location_id := l_physical_location_id;
13356: l_detail_rec.physical_ship_to_location_id := l_physical_location_id;
13385:
13386: IF (l_physical_location_id IS NOT NULL) THEN
13387: --
13388: IF l_debug_on THEN
13389: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_dleg_dlvy_rec.ultimate_dropoff_location_id||' is a dummy location');
13390: END IF;
13391: --
13392: l_dleg_dlvy_rec.ultimate_dropoff_location_id := l_physical_location_id;
13393: l_dleg_dlvy_rec.physical_dropoff_location_id := l_physical_location_id;
13414:
13415: IF (l_physical_location_id IS NOT NULL) THEN
13416: --
13417: IF l_debug_on THEN
13418: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||p_delivery_leg_rec.dropoffstop_location_id||' is a dummy location');
13419: END IF;
13420: --
13421: l_delivery_leg_rec.dropoffstop_location_id := l_physical_location_id;
13422: --p_delivery_leg_rec.physical_dropoff_location_id := l_physical_location_id;
13912:
13913: IF (l_physical_location_id IS NOT NULL) THEN
13914: --
13915: IF l_debug_on THEN
13916: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
13917: END IF;
13918: --
13919: l_detail_rec.ship_to_location_id := l_physical_location_id;
13920: l_detail_rec.physical_ship_to_location_id := l_physical_location_id;
13950:
13951: IF (l_physical_location_id IS NOT NULL) THEN
13952: --
13953: IF l_debug_on THEN
13954: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_dlvy_rec.ultimate_dropoff_location_id||' is a dummy location');
13955: END IF;
13956: --
13957: l_dlvy_rec.ultimate_dropoff_location_id := l_physical_location_id;
13958: l_dlvy_rec.physical_dropoff_location_id := l_physical_location_id;
13995: l_entity_tab(l_dleg_dlvy_rec.delivery_id).shipment_direction := l_dleg_dlvy_rec.shipment_direction;
13996: l_entity_tab(l_dleg_dlvy_rec.delivery_id).shipping_control := l_dleg_dlvy_rec.shipping_control;
13997: --
13998: IF l_debug_on THEN
13999: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_dleg_dlvy_rec.delivery_id);
14000: END IF;
14001: --
14002:
14003: l_target_tripstops.pickup_stop_id := l_delivery_leg_rec.pick_up_stop_id;
14013: p_group_tab => l_group_info,
14014: x_return_status => l_return_status);
14015: --
14016: IF l_debug_on THEN
14017: WSH_DEBUG_SV.logmsg(l_module_name,'Called create_valid_entity_group return status : '||l_return_status);
14018: END IF;
14019: --
14020:
14021: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
14038: x_failed_constraints => l_failed_constraints,
14039: x_return_status => l_return_status);
14040: --
14041: IF l_debug_on THEN
14042: WSH_DEBUG_SV.logmsg(l_module_name,'Called validate_positive_constraint return status : '||l_return_status);
14043: WSH_DEBUG_SV.logmsg(l_module_name,'l_failed_lines count : '||l_failed_lines.COUNT);
14044: END IF;
14045: --
14046:
14039: x_return_status => l_return_status);
14040: --
14041: IF l_debug_on THEN
14042: WSH_DEBUG_SV.logmsg(l_module_name,'Called validate_positive_constraint return status : '||l_return_status);
14043: WSH_DEBUG_SV.logmsg(l_module_name,'l_failed_lines count : '||l_failed_lines.COUNT);
14044: END IF;
14045: --
14046:
14047: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
14278: END IF;
14279:
14280: --
14281: IF l_debug_on THEN
14282: WSH_DEBUG_SV.pop(l_module_name);
14283: END IF;
14284: --
14285:
14286: EXCEPTION
14287: WHEN g_get_carrmode_failed THEN
14288: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14289: --
14290: IF l_debug_on THEN
14291: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
14292: END IF;
14293: --
14294: WHEN g_get_vehicletype_failed THEN
14295: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14294: WHEN g_get_vehicletype_failed THEN
14295: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14296: --
14297: IF l_debug_on THEN
14298: WSH_DEBUG_SV.pop(l_module_name,' get vehicletype failed ');
14299: END IF;
14300: --
14301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14302: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14301: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14302: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14303: --
14304: IF l_debug_on THEN
14305: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14306: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
14307: END IF;
14308: --
14309: WHEN others THEN
14302: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14303: --
14304: IF l_debug_on THEN
14305: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14306: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
14307: END IF;
14308: --
14309: WHEN others THEN
14310: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dleg');
14310: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dleg');
14311: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14312: --
14313: IF l_debug_on THEN
14314: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14315: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
14316: END IF;
14317: --
14318: END validate_constraint_dleg;
14311: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14312: --
14313: IF l_debug_on THEN
14314: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14315: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
14316: END IF;
14317: --
14318: END validate_constraint_dleg;
14319:
14471: --#DUM_LOC(E)
14472:
14473: g_invalid_action_code EXCEPTION;
14474: g_invalid_input EXCEPTION;
14475: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
14476: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_constraint_dlvb';
14477:
14478: BEGIN
14479:
14489: FND_MSG_PUB.initialize;
14490: END IF;
14491:
14492: IF l_debug_on THEN
14493: wsh_debug_sv.push(l_module_name);
14494: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
14495: END IF;
14496:
14497: -- Action codes : ACD, ADD, PKG
14490: END IF;
14491:
14492: IF l_debug_on THEN
14493: wsh_debug_sv.push(l_module_name);
14494: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
14495: END IF;
14496:
14497: -- Action codes : ACD, ADD, PKG
14498: -- Assumes p_comp_class_tab and p_exception_list are indexed by
14552: END IF;
14553: END IF;
14554: --
14555: IF l_debug_on THEN
14556: WSH_DEBUG_SV.logmsg(l_module_name,'After populating l_comp_class_tab count : '||l_comp_class_tab.COUNT);
14557: END IF;
14558: --
14559: -- Populate l_del_detail_info
14560:
14560:
14561: IF p_del_detail_info.COUNT = 0 THEN
14562: --
14563: IF l_debug_on THEN
14564: WSH_DEBUG_SV.logmsg(l_module_name,'Passed p_in_ids count : '||p_in_ids.COUNT);
14565: END IF;
14566: --
14567:
14568: i := p_in_ids.FIRST;
14587:
14588: IF (l_physical_location_id IS NOT NULL) THEN
14589: --
14590: IF l_debug_on THEN
14591: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_del_detail_info(i).ship_to_location_id||' is a dummy location');
14592: END IF;
14593: --
14594: l_del_detail_info(i).ship_to_location_id:= l_physical_location_id;
14595: -- AGDUMMY TODO
14609:
14610: ELSE
14611: --
14612: IF l_debug_on THEN
14613: WSH_DEBUG_SV.logmsg(l_module_name,'Passed p_del_detail_info count : '||p_del_detail_info.COUNT);
14614: END IF;
14615: --
14616:
14617: i := p_del_detail_info.FIRST;
14651:
14652: IF (l_physical_location_id IS NOT NULL) THEN
14653: --
14654: IF l_debug_on THEN
14655: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_del_detail_info(i).ship_to_location_id||' is a dummy location');
14656: END IF;
14657: --
14658: l_del_detail_info(i).ship_to_location_id:= l_physical_location_id;
14659: -- AGDUMMY TODO
14689:
14690: IF (l_physical_location_id IS NOT NULL) THEN
14691: --
14692: IF l_debug_on THEN
14693: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_target_delivery.ultimate_dropoff_location_id||' is a dummy location');
14694: END IF;
14695: --
14696: l_target_delivery.ultimate_dropoff_location_id := l_physical_location_id;
14697: -- AGDUMMY TODO
14723:
14724: IF (l_physical_location_id IS NOT NULL) THEN
14725: --
14726: IF l_debug_on THEN
14727: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_target_container.ship_to_location_id||' is a dummy location');
14728: END IF;
14729: --
14730: l_target_container.ship_to_location_id:= l_physical_location_id;
14731: -- AGDUMMY TODO
14760:
14761: IF (l_physical_location_id IS NOT NULL) THEN
14762: --
14763: IF l_debug_on THEN
14764: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
14765: END IF;
14766: --
14767: l_detail_rec.ship_to_location_id:= l_physical_location_id;
14768: -- AGDUMMY TODO
14793:
14794: IF (l_physical_location_id IS NOT NULL) THEN
14795: --
14796: IF l_debug_on THEN
14797: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
14798: END IF;
14799: --
14800: l_detail_rec.ship_to_location_id:= l_physical_location_id;
14801: -- AGDUMMY TODO
14830:
14831: IF (l_physical_location_id IS NOT NULL) THEN
14832: --
14833: IF l_debug_on THEN
14834: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
14835: END IF;
14836: --
14837: l_detail_rec.ship_to_location_id:= l_physical_location_id;
14838: -- AGDUMMY TODO
14846: CLOSE c_get_assigned_lines_cont;
14847: END IF;
14848: --
14849: IF l_debug_on THEN
14850: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_dlvy_assigned_lines count : '||l_dlvy_assigned_lines.COUNT);
14851: END IF;
14852: --
14853: ELSE
14854: --
14852: --
14853: ELSE
14854: --
14855: IF l_debug_on THEN
14856: WSH_DEBUG_SV.logmsg(l_module_name,'Passed p_dlvy_assigned_lines count : '||p_dlvy_assigned_lines.COUNT);
14857: END IF;
14858: --
14859:
14860: i := p_dlvy_assigned_lines.FIRST;
14894:
14895: IF (l_physical_location_id IS NOT NULL) THEN
14896: --
14897: IF l_debug_on THEN
14898: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_dlvy_assigned_lines(i).ship_to_location_id||' is a dummy location');
14899: END IF;
14900: --
14901: l_dlvy_assigned_lines(i).ship_to_location_id:= l_physical_location_id;
14902: -- AGDUMMY TODO
15011: l_entity_tab(l_del_detail_info(j).delivery_detail_id).inventory_item_id := l_del_detail_info(j).inventory_item_id;
15012: l_entity_tab(l_del_detail_info(j).delivery_detail_id).customer_id := l_del_detail_info(j).customer_id;
15013: --
15014: IF l_debug_on THEN
15015: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_del_detail_info(j).delivery_detail_id||' for detail index '||j);
15016: END IF;
15017: --
15018:
15019: IF j <> l_del_detail_info.FIRST THEN
15032: x_found => l_found, -- OUT
15033: x_return_status => l_return_status);
15034: --
15035: IF l_debug_on THEN
15036: WSH_DEBUG_SV.logmsg(l_module_name,'Called search_matching_group return status : '||l_return_status||' Group found ? '||l_group_id);
15037: END IF;
15038: --
15039:
15040: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
15048: IF l_found THEN
15049: l_entity_tab(l_del_detail_info(j).delivery_detail_id).group_id := l_group_id;
15050: --
15051: IF l_debug_on THEN
15052: WSH_DEBUG_SV.logmsg(l_module_name,'Adding detail : '||l_del_detail_info(j).delivery_detail_id||' to_group : '||l_group_id);
15053: END IF;
15054: --
15055: ELSE
15056: create_valid_entity_group(
15058: p_group_tab => x_group_info, -- IN OUT
15059: x_return_status => l_return_status);
15060: --
15061: IF l_debug_on THEN
15062: WSH_DEBUG_SV.logmsg(l_module_name,'Called create_valid_entity_group return status : '||l_return_status);
15063: END IF;
15064: --
15065:
15066: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
15081:
15082: -- Groups have already been created at this point x_group_info
15083: --
15084: IF l_debug_on THEN
15085: WSH_DEBUG_SV.logmsg(l_module_name,'Current detail is in x_group_info with group id : '||l_entity_tab(l_del_detail_info(j).delivery_detail_id).group_id);
15086: END IF;
15087: --
15088: -- END : Potential method to group details
15089: -- Returns valid groups of input lines
15207: l_target_rec.inventory_item_id := l_dlvy_assigned_lines(k).inventory_item_id;
15208: l_target_rec.customer_id := l_dlvy_assigned_lines(k).customer_id;
15209: --
15210: IF l_debug_on THEN
15211: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_target_rec for assigned line : '||l_dlvy_assigned_lines(k).delivery_detail_id);
15212: END IF;
15213: --
15214:
15215: IF ((l_entity_tab(l_del_detail_info(j).delivery_detail_id).inventory_item_id <> l_target_rec.inventory_item_id) OR
15617: END IF;
15618:
15619: --
15620: IF l_debug_on THEN
15621: WSH_DEBUG_SV.pop(l_module_name);
15622: END IF;
15623: --
15624:
15625: EXCEPTION
15626: WHEN g_get_carrmode_failed THEN
15627: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
15628: --
15629: IF l_debug_on THEN
15630: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
15631: END IF;
15632: --
15633: WHEN g_invalid_action_code THEN
15634: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
15633: WHEN g_invalid_action_code THEN
15634: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
15635: --
15636: IF l_debug_on THEN
15637: WSH_DEBUG_SV.pop(l_module_name,' invalid_action_code ');
15638: END IF;
15639: --
15640: WHEN g_invalid_input THEN
15641: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
15640: WHEN g_invalid_input THEN
15641: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
15642: --
15643: IF l_debug_on THEN
15644: WSH_DEBUG_SV.pop(l_module_name,' invalid_input ');
15645: END IF;
15646: --
15647:
15648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15648: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15649: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
15650: --
15651: IF l_debug_on THEN
15652: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
15653: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
15654: END IF;
15655: --
15656: WHEN others THEN
15649: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
15650: --
15651: IF l_debug_on THEN
15652: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
15653: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
15654: END IF;
15655: --
15656: WHEN others THEN
15657: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dlvb');
15657: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dlvb');
15658: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
15659: --
15660: IF l_debug_on THEN
15661: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
15662: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
15663: END IF;
15664: --
15665: END validate_constraint_dlvb;
15658: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
15659: --
15660: IF l_debug_on THEN
15661: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
15662: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
15663: END IF;
15664: --
15665: END validate_constraint_dlvb;
15666:
15751: --SBAKSHI(8/24)
15752: l_trip_incl_stops_sort stop_ccinfo_tab_type;
15753: l_idx NUMBER;
15754: --SBAKSHI(8/24)
15755: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
15756: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_constraint_trip';
15757:
15758: BEGIN
15759:
15769: FND_MSG_PUB.initialize;
15770: END IF;
15771:
15772: IF l_debug_on THEN
15773: wsh_debug_sv.push(l_module_name);
15774: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
15775: END IF;
15776:
15777: refresh_cache(l_return_status);
15770: END IF;
15771:
15772: IF l_debug_on THEN
15773: wsh_debug_sv.push(l_module_name);
15774: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
15775: END IF;
15776:
15777: refresh_cache(l_return_status);
15778:
15825:
15826: IF (l_physical_location_id IS NOT NULL) THEN
15827: --
15828: IF l_debug_on THEN
15829: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_delivery_rec.ultimate_dropoff_location_id||' is a dummy location');
15830: END IF;
15831: --
15832: l_delivery_rec.ultimate_dropoff_location_id := l_physical_location_id;
15833: -- AGDUMMY TODO
15861:
15862: IF (l_physical_location_id IS NOT NULL) THEN
15863: --
15864: IF l_debug_on THEN
15865: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
15866: END IF;
15867: --
15868: l_detail_rec.ship_to_location_id:= l_physical_location_id;
15869: -- AGDUMMY TODO
15917:
15918: IF (l_physical_location_id IS NOT NULL) THEN
15919: --
15920: IF l_debug_on THEN
15921: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_trip_assigned_dels(l).ultimate_dropoff_location_id||' is a dummy location');
15922: END IF;
15923: --
15924: l_trip_assigned_dels(l).ultimate_dropoff_location_id := l_physical_location_id;
15925: -- AGDUMMY TODO
15952:
15953: IF (l_physical_location_id IS NOT NULL) THEN
15954: --
15955: IF l_debug_on THEN
15956: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_trip_dlvy_lines(l).ship_to_location_id||' is a dummy location');
15957: END IF;
15958: --
15959: l_trip_dlvy_lines(l).ship_to_location_id:= l_physical_location_id;
15960: -- AGDUMMY TODO
16338: l_validate_in_result := 'S';
16339: l_validate_ex_result := 'S';
16340: --
16341: IF l_debug_on THEN
16342: WSH_DEBUG_SV.logmsg(l_module_name,'Added failed trip because of stops : '|| p_trip_info(j).trip_id);
16343: END IF;
16344: --
16345: END IF;
16346:
16561: IF NOT l_curr_trip_added THEN
16562: x_fail_trips(x_fail_trips.COUNT+1) := p_trip_info(j).trip_id;
16563: --
16564: IF l_debug_on THEN
16565: WSH_DEBUG_SV.logmsg(l_module_name,'Added failed trip because of items : '|| p_trip_info(j).trip_id);
16566: END IF;
16567: --
16568: END IF;
16569:
16594: END IF;
16595:
16596: --
16597: IF l_debug_on THEN
16598: WSH_DEBUG_SV.logmsg(l_module_name,'failed trip count : '|| x_fail_trips.COUNT);
16599: WSH_DEBUG_SV.pop(l_module_name);
16600: END IF;
16601: --
16602:
16595:
16596: --
16597: IF l_debug_on THEN
16598: WSH_DEBUG_SV.logmsg(l_module_name,'failed trip count : '|| x_fail_trips.COUNT);
16599: WSH_DEBUG_SV.pop(l_module_name);
16600: END IF;
16601: --
16602:
16603: EXCEPTION
16604: WHEN g_get_carrmode_failed THEN
16605: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
16606: --
16607: IF l_debug_on THEN
16608: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
16609: END IF;
16610: --
16611: WHEN g_get_vehicletype_failed THEN
16612: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
16611: WHEN g_get_vehicletype_failed THEN
16612: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
16613: --
16614: IF l_debug_on THEN
16615: WSH_DEBUG_SV.pop(l_module_name,' get vehicletype failed ');
16616: END IF;
16617: --
16618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16619: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
16618: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16619: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
16620: --
16621: IF l_debug_on THEN
16622: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
16623: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
16624: END IF;
16625: --
16626: WHEN others THEN
16619: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
16620: --
16621: IF l_debug_on THEN
16622: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
16623: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
16624: END IF;
16625: --
16626: WHEN others THEN
16627: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_trip');
16627: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_trip');
16628: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
16629: --
16630: IF l_debug_on THEN
16631: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
16632: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
16633: END IF;
16634: --
16635: END validate_constraint_trip;
16628: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
16629: --
16630: IF l_debug_on THEN
16631: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
16632: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
16633: END IF;
16634: --
16635: END validate_constraint_trip;
16636:
16775: l_idx NUMBER;
16776: l_stop_info stop_ccinfo_tab_type;
16777: --SBAKSHI (8/24)
16778:
16779: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
16780: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_constraint_stop';
16781:
16782: BEGIN
16783:
16793: FND_MSG_PUB.initialize;
16794: END IF;
16795:
16796: IF l_debug_on THEN
16797: wsh_debug_sv.push(l_module_name);
16798: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
16799: END IF;
16800:
16801: refresh_cache(l_return_status);
16794: END IF;
16795:
16796: IF l_debug_on THEN
16797: wsh_debug_sv.push(l_module_name);
16798: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
16799: END IF;
16800:
16801: refresh_cache(l_return_status);
16802:
16890: END LOOP;
16891: CLOSE c_gettripinfo;
16892: ELSE
16893: IF l_debug_on THEN
16894: WSH_DEBUG_SV.logmsg(l_module_name,'Input stop index - '||j||' has null stop_id and trip_id');
16895: END IF;
16896: END IF;
16897: EXIT WHEN j = l_stop_info.LAST;
16898: j := l_stop_info.NEXT(j);
16910: END IF;
16911:
16912:
16913: IF l_debug_on THEN
16914: WSH_DEBUG_SV.logmsg(l_module_name,'Input stop count : '||l_stop_info.COUNT);
16915: WSH_DEBUG_SV.logmsg(l_module_name,'parent trip count : '||p_parent_trip_info.COUNT||' local trip count : '||l_parent_trip_info.COUNT);
16916: END IF;
16917:
16918: -- Only for action code = UPS
16911:
16912:
16913: IF l_debug_on THEN
16914: WSH_DEBUG_SV.logmsg(l_module_name,'Input stop count : '||l_stop_info.COUNT);
16915: WSH_DEBUG_SV.logmsg(l_module_name,'parent trip count : '||p_parent_trip_info.COUNT||' local trip count : '||l_parent_trip_info.COUNT);
16916: END IF;
16917:
16918: -- Only for action code = UPS
16919: -- Also create CTS, DTS
16944: l_validate_dlvb_result := 'S';
16945: l_old_stop_pa_date := NULL;
16946:
16947: IF l_debug_on THEN
16948: WSH_DEBUG_SV.logmsg(l_module_name,'Input stop index : '||j||' stop id : '||l_stop_info(j).stop_id||' location : '||nvl(l_stop_info(j).physical_location_id,l_stop_info(j).stop_location_id)||
16949: ' Sequence : '||l_stop_info(j).stop_sequence_number||' trip id : '||l_stop_info(j).trip_id);
16950: WSH_DEBUG_SV.logmsg(l_module_name,'Planned arrival date : '||to_char(l_stop_info(j).planned_arrival_date,'DD-MON-YYYY HH24:MI:SS')||' Planned departure date : '||
16951: to_char(l_stop_info(j).planned_departure_date,'DD-MON-YYYY HH24:MI:SS'));
16952: END IF;
16946:
16947: IF l_debug_on THEN
16948: WSH_DEBUG_SV.logmsg(l_module_name,'Input stop index : '||j||' stop id : '||l_stop_info(j).stop_id||' location : '||nvl(l_stop_info(j).physical_location_id,l_stop_info(j).stop_location_id)||
16949: ' Sequence : '||l_stop_info(j).stop_sequence_number||' trip id : '||l_stop_info(j).trip_id);
16950: WSH_DEBUG_SV.logmsg(l_module_name,'Planned arrival date : '||to_char(l_stop_info(j).planned_arrival_date,'DD-MON-YYYY HH24:MI:SS')||' Planned departure date : '||
16951: to_char(l_stop_info(j).planned_departure_date,'DD-MON-YYYY HH24:MI:SS'));
16952: END IF;
16953:
16954: -- AGDUMMY
16971: FETCH c_get_stop_location INTO l_old_stop_location_id, l_old_stop_seq_num,l_old_stop_pa_date;
16972: CLOSE c_get_stop_location;
16973:
16974: IF l_debug_on THEN
16975: WSH_DEBUG_SV.logmsg(l_module_name,'Input stop values before this update : location_id : '||l_old_stop_location_id||' seq_num : '||l_old_stop_seq_num||' Planned arrival date : '||to_char(l_old_stop_pa_date,'DD-MON-YYYY HH24:MI:SS'));
16976: END IF;
16977:
16978: l_mustuse_loc_id := l_old_stop_location_id;
16979:
16986: IF k IS NOT NULL THEN
16987: LOOP
16988:
16989: IF l_debug_on THEN
16990: WSH_DEBUG_SV.logmsg(l_module_name,'For stop : '||l_stop_info(j).stop_id);
16991: WSH_DEBUG_SV.logmsg(l_module_name,'Stops trip : '||l_stop_info(j).trip_id);
16992: WSH_DEBUG_SV.logmsg(l_module_name,'Current Trip : '||l_parent_trip_info(k).trip_id);
16993: END IF;
16994:
16987: LOOP
16988:
16989: IF l_debug_on THEN
16990: WSH_DEBUG_SV.logmsg(l_module_name,'For stop : '||l_stop_info(j).stop_id);
16991: WSH_DEBUG_SV.logmsg(l_module_name,'Stops trip : '||l_stop_info(j).trip_id);
16992: WSH_DEBUG_SV.logmsg(l_module_name,'Current Trip : '||l_parent_trip_info(k).trip_id);
16993: END IF;
16994:
16995: IF l_stop_info(j).trip_id <> l_parent_trip_info(k).trip_id THEN
16988:
16989: IF l_debug_on THEN
16990: WSH_DEBUG_SV.logmsg(l_module_name,'For stop : '||l_stop_info(j).stop_id);
16991: WSH_DEBUG_SV.logmsg(l_module_name,'Stops trip : '||l_stop_info(j).trip_id);
16992: WSH_DEBUG_SV.logmsg(l_module_name,'Current Trip : '||l_parent_trip_info(k).trip_id);
16993: END IF;
16994:
16995: IF l_stop_info(j).trip_id <> l_parent_trip_info(k).trip_id THEN
16996: GOTO next_trip;
17285: x_validate_result := 'F';
17286: x_fail_stops(x_fail_stops.COUNT+1) := l_stop_info(j).stop_id;
17287: --
17288: IF l_debug_on THEN
17289: WSH_DEBUG_SV.logmsg(l_module_name,'Added failed stop : '|| l_stop_info(j).stop_id);
17290: END IF;
17291: --
17292:
17293: END IF;
17345: END IF;
17346:
17347: --
17348: IF l_debug_on THEN
17349: WSH_DEBUG_SV.logmsg(l_module_name,'failed stop count : '|| x_fail_stops.COUNT);
17350: WSH_DEBUG_SV.pop(l_module_name);
17351: END IF;
17352: --
17353:
17346:
17347: --
17348: IF l_debug_on THEN
17349: WSH_DEBUG_SV.logmsg(l_module_name,'failed stop count : '|| x_fail_stops.COUNT);
17350: WSH_DEBUG_SV.pop(l_module_name);
17351: END IF;
17352: --
17353:
17354: EXCEPTION
17355: WHEN g_get_carrmode_failed THEN
17356: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
17357: --
17358: IF l_debug_on THEN
17359: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
17360: END IF;
17361: --
17362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17363: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17362: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17363: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17364: --
17365: IF l_debug_on THEN
17366: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17367: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17368: END IF;
17369: --
17370: WHEN others THEN
17363: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17364: --
17365: IF l_debug_on THEN
17366: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17367: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17368: END IF;
17369: --
17370: WHEN others THEN
17371: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_stop');
17371: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_stop');
17372: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
17373: --
17374: IF l_debug_on THEN
17375: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17376: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17377: END IF;
17378: --
17379: END validate_constraint_stop;
17372: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
17373: --
17374: IF l_debug_on THEN
17375: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17376: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17377: END IF;
17378: --
17379: END validate_constraint_stop;
17380:
17409: l_failed_constraint WSH_FTE_CONSTRAINT_FRAMEWORK.line_constraint_rec_type;
17410: l_details_info WSH_FTE_CONSTRAINT_FRAMEWORK.detail_ccinfo_tab_type;
17411: i_det NUMBER;
17412: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_exclusive_constraints';
17413: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
17414: l_location_id NUMBER;
17415:
17416: CURSOR c_get_details(c_delivery_id IN NUMBER) IS
17417: SELECT wdd.DELIVERY_DETAIL_ID
17444: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
17445: x_validate_result := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
17446:
17447: IF l_debug_on THEN
17448: wsh_debug_sv.push (l_module_name);
17449: END IF;
17450:
17451: IF p_delivery_rec.ultimate_dropoff_location_id IS NOT NULL THEN
17452: --{
17451: IF p_delivery_rec.ultimate_dropoff_location_id IS NOT NULL THEN
17452: --{
17453:
17454: IF l_debug_on THEN
17455: wsh_debug_sv.logmsg (l_module_name, 'p_delivery_rec.ultimate_dropoff_location_id: ' || p_delivery_rec.ultimate_dropoff_location_id);
17456: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17457: END IF;
17458:
17459: validate_constraint( -- checks only negative constraints
17452: --{
17453:
17454: IF l_debug_on THEN
17455: wsh_debug_sv.logmsg (l_module_name, 'p_delivery_rec.ultimate_dropoff_location_id: ' || p_delivery_rec.ultimate_dropoff_location_id);
17456: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17457: END IF;
17458:
17459: validate_constraint( -- checks only negative constraints
17460: p_comp_class_code => WSH_FTE_CONSTRAINT_FRAMEWORK.G_CUSTOMER_FACILITY,
17472: END IF;
17473:
17474:
17475: IF l_debug_on THEN
17476: wsh_debug_sv.logmsg (l_module_name, 'Customer FAC-FAC l_validate_result: '||l_validate_result);
17477: END IF;
17478:
17479: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17480: x_return_status := l_return_status;
17480: x_return_status := l_return_status;
17481: x_validate_result := l_validate_result;
17482:
17483: IF l_debug_on THEN
17484: wsh_debug_sv.push(l_module_name);
17485: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17486: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17487: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17488: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17481: x_validate_result := l_validate_result;
17482:
17483: IF l_debug_on THEN
17484: wsh_debug_sv.push(l_module_name);
17485: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17486: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17487: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17488: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17489: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship to Customer Location'||p_delivery_rec.ultimate_dropoff_location_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17482:
17483: IF l_debug_on THEN
17484: wsh_debug_sv.push(l_module_name);
17485: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17486: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17487: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17488: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17489: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship to Customer Location'||p_delivery_rec.ultimate_dropoff_location_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17490: END IF;
17483: IF l_debug_on THEN
17484: wsh_debug_sv.push(l_module_name);
17485: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17486: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17487: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17488: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17489: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship to Customer Location'||p_delivery_rec.ultimate_dropoff_location_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17490: END IF;
17491: IF l_debug_on THEN
17484: wsh_debug_sv.push(l_module_name);
17485: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17486: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17487: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17488: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17489: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship to Customer Location'||p_delivery_rec.ultimate_dropoff_location_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17490: END IF;
17491: IF l_debug_on THEN
17492: wsh_debug_sv.pop (l_module_name);
17485: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17486: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17487: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17488: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17489: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship to Customer Location'||p_delivery_rec.ultimate_dropoff_location_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17490: END IF;
17491: IF l_debug_on THEN
17492: wsh_debug_sv.pop (l_module_name);
17493: END IF;
17488: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17489: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship to Customer Location'||p_delivery_rec.ultimate_dropoff_location_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17490: END IF;
17491: IF l_debug_on THEN
17492: wsh_debug_sv.pop (l_module_name);
17493: END IF;
17494: return;
17495: END IF;
17496:
17499:
17500: IF p_delivery_rec.customer_id IS NOT NULL THEN
17501: --{
17502: IF l_debug_on THEN
17503: wsh_debug_sv.logmsg (l_module_name, 'p_delivery_rec.customer_id: ' || p_delivery_rec.customer_id);
17504: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17505: END IF;
17506:
17507: validate_constraint( -- checks only negative constraints
17500: IF p_delivery_rec.customer_id IS NOT NULL THEN
17501: --{
17502: IF l_debug_on THEN
17503: wsh_debug_sv.logmsg (l_module_name, 'p_delivery_rec.customer_id: ' || p_delivery_rec.customer_id);
17504: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17505: END IF;
17506:
17507: validate_constraint( -- checks only negative constraints
17508: p_comp_class_code => WSH_FTE_CONSTRAINT_FRAMEWORK.G_CUSTOMER_FACILITY,
17518: raise FND_API.G_EXC_UNEXPECTED_ERROR;
17519: END IF;
17520:
17521: IF l_debug_on THEN
17522: wsh_debug_sv.logmsg (l_module_name, 'CUS-FAC l_validate_result: '||l_validate_result);
17523: END IF;
17524:
17525: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17526: x_return_status := l_return_status;
17525: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17526: x_return_status := l_return_status;
17527: x_validate_result := l_validate_result;
17528: IF l_debug_on THEN
17529: wsh_debug_sv.push(l_module_name);
17530: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17531: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17532: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17533: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17526: x_return_status := l_return_status;
17527: x_validate_result := l_validate_result;
17528: IF l_debug_on THEN
17529: wsh_debug_sv.push(l_module_name);
17530: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17531: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17532: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17533: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17534: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Customer '||p_delivery_rec.customer_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17527: x_validate_result := l_validate_result;
17528: IF l_debug_on THEN
17529: wsh_debug_sv.push(l_module_name);
17530: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17531: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17532: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17533: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17534: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Customer '||p_delivery_rec.customer_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17535: END IF;
17528: IF l_debug_on THEN
17529: wsh_debug_sv.push(l_module_name);
17530: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17531: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17532: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17533: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17534: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Customer '||p_delivery_rec.customer_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17535: END IF;
17536: IF l_debug_on THEN
17529: wsh_debug_sv.push(l_module_name);
17530: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17531: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17532: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17533: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17534: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Customer '||p_delivery_rec.customer_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17535: END IF;
17536: IF l_debug_on THEN
17537: wsh_debug_sv.pop (l_module_name);
17530: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17531: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17532: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17533: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17534: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Customer '||p_delivery_rec.customer_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17535: END IF;
17536: IF l_debug_on THEN
17537: wsh_debug_sv.pop (l_module_name);
17538: END IF;
17533: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17534: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Customer '||p_delivery_rec.customer_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17535: END IF;
17536: IF l_debug_on THEN
17537: wsh_debug_sv.pop (l_module_name);
17538: END IF;
17539: return;
17540: END IF;
17541: --}
17556: raise FND_API.G_EXC_UNEXPECTED_ERROR;
17557: END IF;
17558:
17559: IF l_debug_on THEN
17560: wsh_debug_sv.logmsg (l_module_name, 'Region/Zone - Facility constraint for ship to location l_validate_result: '||l_validate_result);
17561: END IF;
17562:
17563: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17564: x_return_status := l_return_status;
17563: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17564: x_return_status := l_return_status;
17565: x_validate_result := l_validate_result;
17566: IF l_debug_on THEN
17567: wsh_debug_sv.logmsg(l_module_name, 'Region/Zone - Facility Constraint Violation Error. Ship to Location'||p_delivery_rec.ultimate_dropoff_location_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17568: END IF;
17569: return;
17570: END IF;*/
17571:
17573:
17574: IF p_delivery_rec.organization_id IS NOT NULL THEN
17575:
17576: IF l_debug_on THEN
17577: wsh_debug_sv.logmsg (l_module_name, 'organization_id: ' || p_delivery_rec.organization_id);
17578: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17579: END IF;
17580:
17581: validate_constraint(
17574: IF p_delivery_rec.organization_id IS NOT NULL THEN
17575:
17576: IF l_debug_on THEN
17577: wsh_debug_sv.logmsg (l_module_name, 'organization_id: ' || p_delivery_rec.organization_id);
17578: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17579: END IF;
17580:
17581: validate_constraint(
17582: p_comp_class_code => WSH_FTE_CONSTRAINT_FRAMEWORK.G_SHIPORG_FACILITY,
17591: raise FND_API.G_EXC_UNEXPECTED_ERROR;
17592: END IF;
17593:
17594: IF l_debug_on THEN
17595: wsh_debug_sv.logmsg (l_module_name, 'ORG - FAC l_validate_result: '||l_validate_result);
17596: END IF;
17597:
17598: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17599: x_return_status := l_return_status;
17598: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17599: x_return_status := l_return_status;
17600: x_validate_result := l_validate_result;
17601: IF l_debug_on THEN
17602: wsh_debug_sv.push(l_module_name);
17603: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17604: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17605: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17606: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17599: x_return_status := l_return_status;
17600: x_validate_result := l_validate_result;
17601: IF l_debug_on THEN
17602: wsh_debug_sv.push(l_module_name);
17603: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17604: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17605: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17606: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17607: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship From Organization'|| p_delivery_rec.organization_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17600: x_validate_result := l_validate_result;
17601: IF l_debug_on THEN
17602: wsh_debug_sv.push(l_module_name);
17603: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17604: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17605: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17606: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17607: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship From Organization'|| p_delivery_rec.organization_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17608: END IF;
17601: IF l_debug_on THEN
17602: wsh_debug_sv.push(l_module_name);
17603: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17604: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17605: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17606: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17607: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship From Organization'|| p_delivery_rec.organization_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17608: END IF;
17609: IF l_debug_on THEN
17602: wsh_debug_sv.push(l_module_name);
17603: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17604: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17605: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17606: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17607: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship From Organization'|| p_delivery_rec.organization_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17608: END IF;
17609: IF l_debug_on THEN
17610: wsh_debug_sv.pop (l_module_name);
17603: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17604: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17605: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17606: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17607: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship From Organization'|| p_delivery_rec.organization_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17608: END IF;
17609: IF l_debug_on THEN
17610: wsh_debug_sv.pop (l_module_name);
17611: END IF;
17606: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17607: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Ship From Organization'|| p_delivery_rec.organization_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17608: END IF;
17609: IF l_debug_on THEN
17610: wsh_debug_sv.pop (l_module_name);
17611: END IF;
17612: return;
17613: END IF;
17614: END IF;
17639: raise FND_API.G_EXC_UNEXPECTED_ERROR;
17640: END IF;
17641:
17642: IF l_debug_on THEN
17643: wsh_debug_sv.logmsg (l_module_name, 'Region/Zone - Facility constraint for ship to location l_validate_result: '||l_validate_result);
17644: END IF;
17645:
17646: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17647: x_return_status := l_return_status;
17646: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17647: x_return_status := l_return_status;
17648: x_validate_result := l_validate_result;
17649: IF l_debug_on THEN
17650: wsh_debug_sv.logmsg(l_module_name, 'Region/Zone - Facility Constraint Violation Error. Ship to Location'||p_delivery_rec.ultimate_dropoff_location_id||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17651: END IF;
17652: return;
17653: END IF;*/
17654: END IF;
17667: IF i_det IS NOT NULL THEN
17668: LOOP
17669:
17670: IF l_debug_on THEN
17671: wsh_debug_sv.logmsg (l_module_name, 'organization_id: ' || l_details_info(i_det).organization_id);
17672: wsh_debug_sv.logmsg (l_module_name, 'inventory_item_id: '||l_details_info(i_det).inventory_item_id);
17673: END IF;
17674:
17675: validate_constraint( -- checks only negative constraints
17668: LOOP
17669:
17670: IF l_debug_on THEN
17671: wsh_debug_sv.logmsg (l_module_name, 'organization_id: ' || l_details_info(i_det).organization_id);
17672: wsh_debug_sv.logmsg (l_module_name, 'inventory_item_id: '||l_details_info(i_det).inventory_item_id);
17673: END IF;
17674:
17675: validate_constraint( -- checks only negative constraints
17676: p_comp_class_code => WSH_FTE_CONSTRAINT_FRAMEWORK.G_ITEM_FACILITY,
17687: raise FND_API.G_EXC_UNEXPECTED_ERROR;
17688: END IF;
17689:
17690: IF l_debug_on THEN
17691: wsh_debug_sv.logmsg (l_module_name, 'ITM - FAC l_validate_result: '||l_validate_result);
17692: END IF;
17693:
17694: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17695: x_return_status := l_return_status;
17694: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17695: x_return_status := l_return_status;
17696: x_validate_result := l_validate_result;
17697: IF l_debug_on THEN
17698: wsh_debug_sv.push(l_module_name);
17699: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17700: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17701: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17702: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17695: x_return_status := l_return_status;
17696: x_validate_result := l_validate_result;
17697: IF l_debug_on THEN
17698: wsh_debug_sv.push(l_module_name);
17699: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17700: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17701: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17702: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17703: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Item'|| l_details_info(i_det).inventory_item_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17696: x_validate_result := l_validate_result;
17697: IF l_debug_on THEN
17698: wsh_debug_sv.push(l_module_name);
17699: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17700: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17701: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17702: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17703: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Item'|| l_details_info(i_det).inventory_item_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17704: END IF;
17697: IF l_debug_on THEN
17698: wsh_debug_sv.push(l_module_name);
17699: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17700: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17701: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17702: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17703: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Item'|| l_details_info(i_det).inventory_item_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17704: END IF;
17705: IF l_debug_on THEN
17698: wsh_debug_sv.push(l_module_name);
17699: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17700: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17701: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17702: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17703: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Item'|| l_details_info(i_det).inventory_item_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17704: END IF;
17705: IF l_debug_on THEN
17706: wsh_debug_sv.pop (l_module_name);
17699: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17700: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17701: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17702: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17703: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Item'|| l_details_info(i_det).inventory_item_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17704: END IF;
17705: IF l_debug_on THEN
17706: wsh_debug_sv.pop (l_module_name);
17707: END IF;
17702: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17703: wsh_debug_sv.logmsg(l_module_name, 'Constraint Violation Error. Item'|| l_details_info(i_det).inventory_item_id ||' can not use '||p_rule_deconsol_location|| ' as deconsolidation location');
17704: END IF;
17705: IF l_debug_on THEN
17706: wsh_debug_sv.pop (l_module_name);
17707: END IF;
17708: return;
17709: END IF;
17710:
17714: END IF;
17715: END IF;
17716:
17717: IF l_debug_on THEN
17718: wsh_debug_sv.pop (l_module_name);
17719: END IF;
17720:
17721: EXCEPTION
17722:
17723: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17724: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17725: --
17726: IF l_debug_on THEN
17727: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17728: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17729: END IF;
17730:
17731: WHEN OTHERS THEN
17724: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17725: --
17726: IF l_debug_on THEN
17727: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17728: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17729: END IF;
17730:
17731: WHEN OTHERS THEN
17732: IF c_get_details%ISOPEN THEN
17735: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_exclusive_constraints');
17736: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17737: --
17738: IF l_debug_on THEN
17739: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17740: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17741: END IF;
17742:
17743: END validate_exclusive_constraints;
17736: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17737: --
17738: IF l_debug_on THEN
17739: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17740: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17741: END IF;
17742:
17743: END validate_exclusive_constraints;
17744:
17769: l_customer_id NUMBER;
17770: l_region_tab WSH_UTIL_CORE.ID_TAB_TYPE;
17771: l_zone_tab WSH_UTIL_CORE.ID_TAB_TYPE;
17772: l_deconsol_location NUMBER;
17773: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
17774: r_itr NUMBER;
17775: z_itr NUMBER;
17776: l_region_id NUMBER;
17777: l_zone_id NUMBER;
17815:
17816: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
17817:
17818: IF l_debug_on THEN
17819: wsh_debug_sv.push(l_module_name);
17820: END IF;
17821:
17822: -- get ship to location for the delivery
17823: -- For this location, find must use facility using defined inclusive constraint.
17825:
17826: l_ship_to_location_id := p_delivery_rec.ULTIMATE_DROPOFF_LOCATION_ID;
17827:
17828: IF l_debug_on THEN
17829: WSH_DEBUG_SV.logmsg(l_module_name,'l_ship_to_location_id: '|| l_ship_to_location_id);
17830: END IF;
17831:
17832: IF ( l_ship_to_location_id < g_cache_max_size and g_location_mustuse_location.EXISTS(l_ship_to_location_id)) THEN
17833:
17842: END IF;
17843: CLOSE c_get_must_use_location;
17844:
17845: IF l_debug_on THEN
17846: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location for ship To Location using CUS_FAC constraints : '|| l_deconsol_location);
17847: END IF;
17848:
17849:
17850: IF (l_ship_to_location_id < g_cache_max_size AND l_deconsol_location IS NOT NULL) THEN
17870: CLOSE c_get_region_incl_constraints;
17871: END IF;
17872:
17873: IF l_debug_on THEN
17874: WSH_DEBUG_SV.logmsg(l_module_name,'g_region_mustuse_location.COUNT : '|| g_region_mustuse_location.COUNT);
17875: END IF;
17876:
17877: WSH_REGIONS_SEARCH_PKG.Get_All_RegionId_Matches(
17878: p_location_id => l_ship_to_location_id,
17897: l_deconsol_location := g_region_mustuse_location(l_region_id);
17898: END IF;
17899:
17900: IF l_debug_on THEN
17901: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location from g_region_mustuse_location: '|| l_deconsol_location);
17902: END IF;
17903:
17904: -- If deconsolidation location found, populate it in cache
17905: -- Else, search for zone level constraints
17918: END IF;
17919: END IF;
17920:
17921: IF l_debug_on THEN
17922: WSH_DEBUG_SV.logmsg(l_module_name,'l_zone_tab.COUNT: '|| l_zone_tab.COUNT);
17923: END IF;
17924:
17925: IF l_zone_tab.COUNT > 0 THEN
17926: z_itr:= l_zone_tab.FIRST;
17955:
17956: IF l_deconsol_location IS NULL OR l_deconsol_location = -1 THEN
17957:
17958: IF l_debug_on THEN
17959: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.CUSTOMER_ID: '|| p_delivery_rec.CUSTOMER_ID);
17960: END IF;
17961:
17962: l_customer_id := p_delivery_rec.CUSTOMER_ID;
17963:
17982: END IF;
17983: END IF;
17984:
17985: IF l_debug_on THEN
17986: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location from customer inclusive constraints: '|| l_deconsol_location);
17987: END IF;
17988: END IF;
17989:
17990: -- If no constraints defined for customer, search for Ship From ORG_FAC constraints
17993:
17994: l_constr_org_id := p_delivery_rec.organization_id;
17995:
17996: IF l_debug_on THEN
17997: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.organization_id: '|| l_constr_org_id);
17998: END IF;
17999:
18000: IF (l_constr_org_id IS NOT NULL) THEN
18001:
18029: g_org_mustuse_location(l_constr_org_id) := -1;
18030: END IF;
18031: END IF;
18032: IF l_debug_on THEN
18033: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location from org inclusive constraints: '|| l_deconsol_location);
18034: END IF;
18035:
18036: END IF;
18037:
18066: CLOSE c_get_region_incl_constraints;
18067: END IF;
18068:
18069: IF l_debug_on THEN
18070: WSH_DEBUG_SV.logmsg(l_module_name,'g_region_mustuse_location.COUNT : '|| g_region_mustuse_location.COUNT);
18071: END IF;
18072:
18073: WSH_REGIONS_SEARCH_PKG.Get_All_RegionId_Matches(
18074: p_location_id => l_ship_from_location_id,
18093: l_deconsol_location := g_region_mustuse_location(l_region_id);
18094: END IF;
18095:
18096: IF l_debug_on THEN
18097: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location from g_region_mustuse_location: '|| l_deconsol_location);
18098: END IF;
18099:
18100: -- If deconsolidation location found, populate it in cache
18101: -- Else, search for zone level constraints
18114: END IF;
18115: END IF;
18116:
18117: IF l_debug_on THEN
18118: WSH_DEBUG_SV.logmsg(l_module_name,'l_zone_tab.COUNT: '|| l_zone_tab.COUNT);
18119: END IF;
18120:
18121: IF l_zone_tab.COUNT > 0 THEN
18122: z_itr:= l_zone_tab.FIRST;
18148: x_deconsol_location := l_deconsol_location;
18149: END IF;
18150:
18151: IF l_debug_on THEN
18152: WSH_DEBUG_SV.pop(l_module_name);
18153: END IF;
18154:
18155: EXCEPTION
18156:
18157: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18158: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18159: --
18160: IF l_debug_on THEN
18161: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18162: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18163: END IF;
18164:
18165: WHEN OTHERS THEN
18158: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18159: --
18160: IF l_debug_on THEN
18161: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18162: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18163: END IF;
18164:
18165: WHEN OTHERS THEN
18166: IF c_get_must_use_location%ISOPEN THEN
18176: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_must_use_facility');
18177: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18178: --
18179: IF l_debug_on THEN
18180: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18181: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18182: END IF;
18183:
18184: END get_must_use_facility;
18177: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18178: --
18179: IF l_debug_on THEN
18180: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18181: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18182: END IF;
18183:
18184: END get_must_use_facility;
18185:
18255: l_validate_result VARCHAR2(1) := 'S';
18256: l_physical_location_id NUMBER := NULL;
18257: l_intermed_ship_to_loc_id NUMBER;
18258: l_rule_deconsol_location NUMBER;
18259: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
18260: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'VALIDATE_CONSTRAINT_DECONSOL';
18261: rec_cnt NUMBER;
18262: l_region_tab WSH_REGIONS_SEARCH_PKG.region_deconsol_Tab_Type;
18263: l_success VARCHAR2(1) := 'S';
18305:
18306: refresh_cache(l_return_status);
18307:
18308: IF l_debug_on THEN
18309: wsh_debug_sv.push (l_module_name);
18310: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info.COUNT: '||p_delivery_info.COUNT);
18311: END IF;
18312:
18313: IF p_delivery_info.COUNT = 0 THEN
18306: refresh_cache(l_return_status);
18307:
18308: IF l_debug_on THEN
18309: wsh_debug_sv.push (l_module_name);
18310: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info.COUNT: '||p_delivery_info.COUNT);
18311: END IF;
18312:
18313: IF p_delivery_info.COUNT = 0 THEN
18314:
18342: --physical location id is not null implies- A dummy location.
18343: IF (l_physical_location_id IS NOT NULL) THEN
18344: --
18345: IF l_debug_on THEN
18346: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||p_delivery_info(i).ultimate_dropoff_location_id||' is a dummy location');
18347: END IF;
18348: --
18349: p_delivery_info(i).ultimate_dropoff_location_id := l_physical_location_id;
18350: p_delivery_info(i).physical_dropoff_location_id := l_physical_location_id;
18356: CLOSE c_gettrip;
18357:
18358: --
18359: IF l_debug_on THEN
18360: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).delivery_id : '||p_delivery_info(i).delivery_id);
18361: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
18362: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
18363: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).intmed_ship_to_location_id : '||p_delivery_info(i).intmed_ship_to_location_id);
18364: END IF;
18357:
18358: --
18359: IF l_debug_on THEN
18360: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).delivery_id : '||p_delivery_info(i).delivery_id);
18361: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
18362: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
18363: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).intmed_ship_to_location_id : '||p_delivery_info(i).intmed_ship_to_location_id);
18364: END IF;
18365: --
18358: --
18359: IF l_debug_on THEN
18360: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).delivery_id : '||p_delivery_info(i).delivery_id);
18361: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
18362: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
18363: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).intmed_ship_to_location_id : '||p_delivery_info(i).intmed_ship_to_location_id);
18364: END IF;
18365: --
18366: EXIT WHEN i = p_in_ids.LAST;
18359: IF l_debug_on THEN
18360: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).delivery_id : '||p_delivery_info(i).delivery_id);
18361: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
18362: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
18363: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).intmed_ship_to_location_id : '||p_delivery_info(i).intmed_ship_to_location_id);
18364: END IF;
18365: --
18366: EXIT WHEN i = p_in_ids.LAST;
18367: i := p_in_ids.NEXT(i);
18371:
18372:
18373:
18374: IF l_debug_on THEN
18375: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info.COUNT: '||p_delivery_info.COUNT);
18376: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed: '||WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed);
18377: --WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol: '||p_rule_override_deconsol);
18378: END IF;
18379:
18372:
18373:
18374: IF l_debug_on THEN
18375: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info.COUNT: '||p_delivery_info.COUNT);
18376: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed: '||WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed);
18377: --WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol: '||p_rule_override_deconsol);
18378: END IF;
18379:
18380: -- Loop through deliveries to set deconsol location for each delivery
18373:
18374: IF l_debug_on THEN
18375: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info.COUNT: '||p_delivery_info.COUNT);
18376: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed: '||WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed);
18377: --WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol: '||p_rule_override_deconsol);
18378: END IF;
18379:
18380: -- Loop through deliveries to set deconsol location for each delivery
18381:
18388: IF p_delivery_info(rec_cnt).shipping_control = 'SUPPLIER' THEN
18389: GOTO del_nextpass;
18390: END IF;
18391: IF l_debug_on THEN
18392: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(rec_cnt).delivery_id : '||p_delivery_info(rec_cnt).delivery_id);
18393: END IF;
18394:
18395: IF p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NULL THEN
18396: --{
18394:
18395: IF p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NULL THEN
18396: --{
18397: IF l_debug_on THEN
18398: WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NULL');
18399: END IF;
18400: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
18401: IF l_debug_on THEN
18402: wsh_debug_sv.pop (l_module_name);
18398: WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NULL');
18399: END IF;
18400: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
18401: IF l_debug_on THEN
18402: wsh_debug_sv.pop (l_module_name);
18403: END IF;
18404: return;
18405: --}
18406: ELSIF p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NOT NULL THEN
18406: ELSIF p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NOT NULL THEN
18407: --{
18408:
18409: IF l_debug_on THEN
18410: WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NOT NULL');
18411: END IF;
18412:
18413: IF WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed = 'Y' THEN
18414: --{
18420: x_validate_result => l_validate_result,
18421: x_return_status => l_return_status);
18422:
18423: IF l_debug_on THEN
18424: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS l_validate_result : '||l_validate_result);
18425: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS l_return_status : '||l_return_status);
18426: END IF;
18427:
18428: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
18421: x_return_status => l_return_status);
18422:
18423: IF l_debug_on THEN
18424: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS l_validate_result : '||l_validate_result);
18425: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS l_return_status : '||l_return_status);
18426: END IF;
18427:
18428: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
18429: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18441: END IF;
18442: END IF;
18443:
18444: IF l_debug_on THEN
18445: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18446: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18447: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18448: END IF;
18449:
18442: END IF;
18443:
18444: IF l_debug_on THEN
18445: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18446: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18447: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18448: END IF;
18449:
18450: GOTO del_nextpass;
18443:
18444: IF l_debug_on THEN
18445: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18446: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18447: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18448: END IF;
18449:
18450: GOTO del_nextpass;
18451: --}
18458: x_output_id_tab(rec_cnt).validation_status := l_success;
18459: p_delivery_info(rec_cnt).intmed_ship_to_location_id := p_rule_deconsol_location;
18460:
18461: IF l_debug_on THEN
18462: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18463: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18464: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18465: END IF;
18466: --}
18459: p_delivery_info(rec_cnt).intmed_ship_to_location_id := p_rule_deconsol_location;
18460:
18461: IF l_debug_on THEN
18462: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18463: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18464: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18465: END IF;
18466: --}
18467: END IF;
18460:
18461: IF l_debug_on THEN
18462: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18463: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18464: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18465: END IF;
18466: --}
18467: END IF;
18468: GOTO del_nextpass;
18469: --}
18470: ELSIF p_rule_override_deconsol = FALSE THEN
18471: --{
18472: IF l_debug_on THEN
18473: WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol IS FALSE');
18474: END IF;
18475: l_intermed_ship_to_loc_id := p_delivery_info(rec_cnt).intmed_ship_to_location_id;
18476:
18477: IF WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed = 'Y' THEN
18478: --{
18479: IF l_intermed_ship_to_loc_id IS NOT NULL THEN
18480: --{
18481: IF l_debug_on THEN
18482: WSH_DEBUG_SV.logmsg(l_module_name,'l_intermed_ship_to_loc_id: '|| l_intermed_ship_to_loc_id);
18483: END IF;
18484:
18485: VALIDATE_EXCLUSIVE_CONSTRAINTS(p_delivery_rec => p_delivery_info(rec_cnt),
18486: p_rule_deconsol_location => l_intermed_ship_to_loc_id,
18487: x_validate_result => l_validate_result,
18488: x_return_status => l_return_status);
18489:
18490: IF l_debug_on THEN
18491: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS_validate_result : '||l_validate_result);
18492: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS_return_status : '||l_return_status);
18493: END IF;
18494:
18495: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
18488: x_return_status => l_return_status);
18489:
18490: IF l_debug_on THEN
18491: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS_validate_result : '||l_validate_result);
18492: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS_return_status : '||l_return_status);
18493: END IF;
18494:
18495: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
18496: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18507: p_delivery_info(rec_cnt).intmed_ship_to_location_id := NULL;
18508: END IF;
18509:
18510: IF l_debug_on THEN
18511: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18512: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18513: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18514: END IF;
18515:
18508: END IF;
18509:
18510: IF l_debug_on THEN
18511: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18512: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18513: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18514: END IF;
18515:
18516: GOTO del_nextpass;
18509:
18510: IF l_debug_on THEN
18511: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18512: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18513: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18514: END IF;
18515:
18516: GOTO del_nextpass;
18517: END IF;
18522: -- intermediate location for delivery is NULL, get intermediate location from
18523: -- must use constraints defined for the location
18524:
18525: IF l_debug_on THEN
18526: WSH_DEBUG_SV.logmsg(l_module_name,'l_intermed_ship_to_loc_id IS NULL ');
18527: END IF;
18528:
18529: get_must_use_facility(p_delivery_rec => p_delivery_info(rec_cnt),
18530: x_deconsol_location => l_rule_deconsol_location,
18558: p_delivery_info(rec_cnt).intmed_ship_to_location_id := NULL;
18559: END IF;
18560:
18561: IF l_debug_on THEN
18562: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18563: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18564: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18565: END IF;
18566:
18559: END IF;
18560:
18561: IF l_debug_on THEN
18562: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18563: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18564: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18565: END IF;
18566:
18567: GOTO del_nextpass;
18560:
18561: IF l_debug_on THEN
18562: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18563: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18564: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18565: END IF;
18566:
18567: GOTO del_nextpass;
18568: END IF;
18572: -- Must use location not found from inclusive constraints.
18573: -- obtain deconsol location specified through Regions and Zones Form
18574:
18575: IF l_debug_on THEN
18576: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(rec_cnt).ULTIMATE_DROPOFF_LOCATION_ID: '||p_delivery_info(rec_cnt).ULTIMATE_DROPOFF_LOCATION_ID);
18577: END IF;
18578:
18579: WSH_REGIONS_SEARCH_PKG.get_all_region_deconsols
18580: ( p_location_id => p_delivery_info(rec_cnt).ULTIMATE_DROPOFF_LOCATION_ID,
18627: p_delivery_info(rec_cnt).intmed_ship_to_location_id := NULL;
18628: END IF;
18629:
18630: IF l_debug_on THEN
18631: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18632: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18633: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18634: END IF;
18635:
18628: END IF;
18629:
18630: IF l_debug_on THEN
18631: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18632: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18633: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18634: END IF;
18635:
18636: GOTO del_nextpass;
18629:
18630: IF l_debug_on THEN
18631: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18632: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18633: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18634: END IF;
18635:
18636: GOTO del_nextpass;
18637: END IF;
18650: -- if not found, use supplied value
18651: --{
18652:
18653: IF l_debug_on THEN
18654: WSH_DEBUG_SV.logmsg(l_module_name,'FTE installation status: '|| WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed);
18655: END IF;
18656: -- AG if intmed_shipto of the delivery is NOT NULL return that
18657: -- else do the following
18658:
18697: x_output_id_tab(rec_cnt).validation_status := l_success;
18698: p_delivery_info(rec_cnt).intmed_ship_to_location_id := l_rule_deconsol_location;
18699:
18700: IF l_debug_on THEN
18701: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18702: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18703: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18704: END IF;
18705: ELSE
18698: p_delivery_info(rec_cnt).intmed_ship_to_location_id := l_rule_deconsol_location;
18699:
18700: IF l_debug_on THEN
18701: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18702: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18703: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18704: END IF;
18705: ELSE
18706: x_output_id_tab(rec_cnt).deconsol_location := NULL;
18699:
18700: IF l_debug_on THEN
18701: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18702: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18703: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18704: END IF;
18705: ELSE
18706: x_output_id_tab(rec_cnt).deconsol_location := NULL;
18707: x_output_id_tab(rec_cnt).entity_id := p_delivery_info(rec_cnt).delivery_id;
18730: p_data => l_msg_data ,
18731: p_encoded => FND_API.G_FALSE );
18732:
18733: IF l_debug_on THEN
18734: wsh_debug_sv.log (l_module_name,'No. of messages already in stack : ',to_char(l_msg_count));
18735: WSH_DEBUG_SV.pop(l_module_name);
18736: END IF;
18737:
18738: EXCEPTION
18731: p_encoded => FND_API.G_FALSE );
18732:
18733: IF l_debug_on THEN
18734: wsh_debug_sv.log (l_module_name,'No. of messages already in stack : ',to_char(l_msg_count));
18735: WSH_DEBUG_SV.pop(l_module_name);
18736: END IF;
18737:
18738: EXCEPTION
18739:
18740: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18741: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18742: --
18743: IF l_debug_on THEN
18744: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18745: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18746: END IF;
18747:
18748: WHEN OTHERS THEN
18741: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18742: --
18743: IF l_debug_on THEN
18744: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18745: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18746: END IF;
18747:
18748: WHEN OTHERS THEN
18749: IF c_gettrip%ISOPEN THEN
18755: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_deconsol');
18756: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18757: --
18758: IF l_debug_on THEN
18759: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18760: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18761: END IF;
18762:
18763: END validate_constraint_deconsol;
18756: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18757: --
18758: IF l_debug_on THEN
18759: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18760: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18761: END IF;
18762:
18763: END validate_constraint_deconsol;
18764: