[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)
11694: FND_MSG_PUB.initialize;
11695: END IF;
11696:
11697: IF l_debug_on THEN
11698: wsh_debug_sv.push(l_module_name);
11699: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
11700: END IF;
11701:
11702: -- Action codes : ACT, ADT, UPD, CRD
11695: END IF;
11696:
11697: IF l_debug_on THEN
11698: wsh_debug_sv.push(l_module_name);
11699: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
11700: END IF;
11701:
11702: -- Action codes : ACT, ADT, UPD, CRD
11703:
11761:
11762: IF p_delivery_info.COUNT = 0 THEN
11763: --
11764: IF l_debug_on THEN
11765: WSH_DEBUG_SV.logmsg(l_module_name,'p_in_ids passed count : '||p_in_ids.COUNT);
11766: END IF;
11767: --
11768: i := p_in_ids.FIRST;
11769:
11796: --physical location id is not null implies- A dummy location.
11797: IF (l_physical_location_id IS NOT NULL) THEN
11798: --
11799: IF l_debug_on THEN
11800: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_delivery_info(i).ultimate_dropoff_location_id||' is a dummy location');
11801: END IF;
11802: --
11803: l_delivery_info(i).ultimate_dropoff_location_id := l_physical_location_id;
11804: -- AGDUMMY TODO populate physical_dropoff_location_id
11811: CLOSE c_gettrip;
11812:
11813: --
11814: IF l_debug_on THEN
11815: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11816: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11817: END IF;
11818: --
11819: EXIT WHEN i = p_in_ids.LAST;
11812:
11813: --
11814: IF l_debug_on THEN
11815: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11816: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11817: END IF;
11818: --
11819: EXIT WHEN i = p_in_ids.LAST;
11820: i := p_in_ids.NEXT(i);
11824:
11825: ELSE
11826: --
11827: IF l_debug_on THEN
11828: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info passed count : '||p_delivery_info.COUNT);
11829: END IF;
11830: --
11831:
11832: i := p_delivery_info.FIRST;
11874: l_delivery_info(i).SHIPPING_CONTROL := nvl(nvl(p_delivery_info(i).SHIPPING_CONTROL,l_upd_delivery_rec.SHIPPING_CONTROL),'BUYER');
11875:
11876: --
11877: IF l_debug_on THEN
11878: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
11879: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
11880: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11881: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11882: END IF;
11875:
11876: --
11877: IF l_debug_on THEN
11878: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
11879: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
11880: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11881: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11882: END IF;
11883: --
11876: --
11877: IF l_debug_on THEN
11878: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
11879: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
11880: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11881: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11882: END IF;
11883: --
11884: --#DUM_LOC(S)
11877: IF l_debug_on THEN
11878: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
11879: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
11880: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).initial_pickup_location_id : '||l_delivery_info(i).initial_pickup_location_id);
11881: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).ultimate_dropoff_location_id : '||l_delivery_info(i).ultimate_dropoff_location_id);
11882: END IF;
11883: --
11884: --#DUM_LOC(S)
11885: WSH_LOCATIONS_PKG.CONVERT_INTERNAL_CUST_LOCATION(
11895:
11896: IF (l_physical_location_id IS NOT NULL) THEN
11897: --
11898: IF l_debug_on THEN
11899: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_delivery_info(i).ultimate_dropoff_location_id||' is a dummy location');
11900: END IF;
11901: --
11902: l_delivery_info(i).ultimate_dropoff_location_id := l_physical_location_id;
11903: -- AGDUMMY TODO
11912: END IF;
11913: END IF;
11914: --
11915: IF l_debug_on THEN
11916: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info created : '||l_delivery_info.COUNT);
11917: END IF;
11918: --
11919:
11920: IF p_dlvy_assigned_lines.COUNT = 0 THEN
11925: IF i IS NOT NULL THEN
11926: LOOP
11927: --
11928: IF l_debug_on THEN
11929: 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);
11930: END IF;
11931:
11932: IF l_debug_on THEN
11933: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).delivery_type : '||l_delivery_info(i).delivery_type);
11929: 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);
11930: END IF;
11931:
11932: IF l_debug_on THEN
11933: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).delivery_type : '||l_delivery_info(i).delivery_type);
11934: --l_delivery_info(i).delivery_type := 'STANDARD';
11935: --WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).delivery_type : '||l_delivery_info(i).delivery_type);
11936: END IF;
11937: --
11931:
11932: IF l_debug_on THEN
11933: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).delivery_type : '||l_delivery_info(i).delivery_type);
11934: --l_delivery_info(i).delivery_type := 'STANDARD';
11935: --WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(i).delivery_type : '||l_delivery_info(i).delivery_type);
11936: END IF;
11937: --
11938: -- G_CREATE_DLVY should have 'N'
11939: IF l_delivery_info(i).exists_in_database = 'Y' THEN -- Assigned lines have not been passed
11949: ,l_shipping_control_tab,l_dum_tab;
11950: --DUM_COMPILE (NULL)
11951: CLOSE c_get_details;
11952: IF l_debug_on THEN
11953: WSH_DEBUG_SV.logmsg(l_module_name,'after c_get_details: '||l_detail_tab.COUNT);
11954: END IF;
11955: ELSE
11956: OPEN c_get_details_consol(l_delivery_info(i).delivery_id);
11957: FETCH c_get_details_consol BULK COLLECT INTO
11968: END IF;
11969:
11970: IF l_detail_tab.COUNT > 0 THEN
11971: IF l_debug_on THEN
11972: WSH_DEBUG_SV.logmsg(l_module_name,'l_detail_tab.COUNT : '||l_detail_tab.COUNT);
11973: END IF;
11974: l_end_count := l_end_count + l_detail_tab.COUNT;
11975: k := 0;
11976:
12014:
12015: IF (l_physical_location_id IS NOT NULL) THEN
12016: --
12017: IF l_debug_on THEN
12018: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_dlvy_assigned_lines(j).ship_to_location_id||' is a dummy location');
12019: END IF;
12020: --
12021: l_dlvy_assigned_lines(j).ship_to_location_id:= l_physical_location_id;
12022: -- AGDUMMY TODO
12034: ELSE
12035:
12036: --
12037: IF l_debug_on THEN
12038: WSH_DEBUG_SV.logmsg(l_module_name,'p_dlvy_assigned_lines passed : '||p_dlvy_assigned_lines.COUNT);
12039: END IF;
12040: --
12041: i := p_dlvy_assigned_lines.FIRST;
12042: IF i IS NOT NULL THEN
12075:
12076: IF (l_physical_location_id IS NOT NULL) THEN
12077: --
12078: IF l_debug_on THEN
12079: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_dlvy_assigned_lines(i).ship_to_location_id||' is a dummy location');
12080: END IF;
12081: --
12082: l_dlvy_assigned_lines(i).ship_to_location_id:= l_physical_location_id;
12083: -- AGDUMMY TODO
12115:
12116: IF (l_physical_location_id IS NOT NULL) THEN
12117: --
12118: IF l_debug_on THEN
12119: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_delivery_rec.ultimate_dropoff_location_id||' is a dummy location');
12120: END IF;
12121: --
12122: l_delivery_rec.ultimate_dropoff_location_id := l_physical_location_id;
12123: -- AGDUMMY TODO
12149:
12150: IF (l_physical_location_id IS NOT NULL) THEN
12151: --
12152: IF l_debug_on THEN
12153: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_target_trip_assign_dels(l).ultimate_dropoff_location_id||' is a dummy location');
12154: END IF;
12155: --
12156: l_target_trip_assign_dels(l).ultimate_dropoff_location_id := l_physical_location_id;
12157: -- AGDUMMY TODO
12185:
12186: IF (l_physical_location_id IS NOT NULL) THEN
12187: --
12188: IF l_debug_on THEN
12189: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
12190: END IF;
12191: --
12192: l_detail_rec.ship_to_location_id:= l_physical_location_id;
12193: -- AGDUMMY TODO
12219:
12220: IF (l_physical_location_id IS NOT NULL) THEN
12221: --
12222: IF l_debug_on THEN
12223: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
12224: END IF;
12225: --
12226: l_detail_rec.ship_to_location_id:= l_physical_location_id;
12227: -- AGDUMMY TODO
12253:
12254: IF (l_physical_location_id IS NOT NULL) THEN
12255: --
12256: IF l_debug_on THEN
12257: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_target_trip_dlvy_lines(l).ship_to_location_id||' is a dummy location');
12258: END IF;
12259: --
12260: l_target_trip_dlvy_lines(l).ship_to_location_id:= l_physical_location_id;
12261: -- AGDUMMY TODO
12317:
12318: IF (l_target_trip_incl_stops(l).physical_location_id IS NOT NULL) THEN
12319: --
12320: IF l_debug_on THEN
12321: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_target_trip_incl_stops(l).stop_location_id||' is a dummy location');
12322: END IF;
12323: --
12324: l_target_trip_incl_stops(l).stop_location_id:=l_target_trip_incl_stops(l).physical_location_id;
12325: END IF;
12360:
12361: IF (l_physical_location_id IS NOT NULL) THEN
12362: --
12363: IF l_debug_on THEN
12364: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||p_target_tripstops.pickup_location_id||' is a dummy location');
12365: END IF;
12366: --
12367: p_target_tripstops.pickup_location_id:=l_physical_location_id;
12368: END IF;
12382:
12383: IF (l_physical_location_id IS NOT NULL) THEN
12384: --
12385: IF l_debug_on THEN
12386: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||p_target_tripstops.dropoff_location_id||' is a dummy location');
12387: END IF;
12388: --
12389: p_target_tripstops.dropoff_location_id:=l_physical_location_id;
12390: END IF;
12390: END IF;
12391: --#DUM_LOC(E)
12392:
12393: IF l_debug_on THEN
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_ID '||p_target_tripstops.PICKUP_STOP_ID);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12391: --#DUM_LOC(E)
12392:
12393: IF l_debug_on THEN
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_ID '||p_target_tripstops.PICKUP_STOP_ID);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12399: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_LOCATION_ID '||p_target_tripstops.DROPOFF_LOCATION_ID);
12392:
12393: IF l_debug_on THEN
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_ID '||p_target_tripstops.PICKUP_STOP_ID);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12399: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_LOCATION_ID '||p_target_tripstops.DROPOFF_LOCATION_ID);
12400: END IF;
12393: IF l_debug_on THEN
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_ID '||p_target_tripstops.PICKUP_STOP_ID);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12399: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_LOCATION_ID '||p_target_tripstops.DROPOFF_LOCATION_ID);
12400: END IF;
12401: --
12394: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_ID '||p_target_tripstops.PICKUP_STOP_ID);
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12399: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_LOCATION_ID '||p_target_tripstops.DROPOFF_LOCATION_ID);
12400: END IF;
12401: --
12402: END IF; -- G_ASSIGN_DLVY_TRIP
12395: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_STOP_SEQ '||p_target_tripstops.PICKUP_STOP_SEQ);
12396: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_ID '||p_target_tripstops.DROPOFF_STOP_ID);
12397: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_STOP_SEQ '||p_target_tripstops.DROPOFF_STOP_SEQ);
12398: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.PICKUP_LOCATION_ID '||p_target_tripstops.PICKUP_LOCATION_ID);
12399: WSH_DEBUG_SV.logmsg(l_module_name,'p_target_tripstops.DROPOFF_LOCATION_ID '||p_target_tripstops.DROPOFF_LOCATION_ID);
12400: END IF;
12401: --
12402: END IF; -- G_ASSIGN_DLVY_TRIP
12403: --
12401: --
12402: END IF; -- G_ASSIGN_DLVY_TRIP
12403: --
12404: IF l_debug_on THEN
12405: WSH_DEBUG_SV.logmsg(l_module_name,'After populating table structures for action code '||p_action_code);
12406: END IF;
12407: --
12408:
12409: -- Populate assigned details
12408:
12409: -- Populate assigned details
12410: --
12411: IF l_debug_on THEN
12412: WSH_DEBUG_SV.logmsg(l_module_name,'After populating l_comp_class_tab count : '||l_comp_class_tab.COUNT);
12413: END IF;
12414: --
12415:
12416: /*
12483: l_mode := l_carrier_service_inout_rec.mode_of_transport;
12484:
12485: END IF; -- l_target_trip.carrier_id IS NULL OR ..
12486: IF l_debug_on THEN
12487: 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);
12488: END IF;
12489:
12490: -- If carrier_id or mode is passed in, then those get preference for validation
12491: -- If they are not, they are derived from ship method if that is passed
12531: IF p_target_tripstops.pickup_location_id IS NOT NULL AND
12532: p_target_tripstops.pickup_stop_id IS NULL THEN
12533: l_location_id := p_target_tripstops.pickup_location_id;
12534: IF l_debug_on THEN
12535: WSH_DEBUG_SV.logmsg(l_module_name,'target pickup location id not null');
12536: END IF;
12537: -- ELSIF p_target_tripstops.pickup_stop_id IS NOT NULL THEN
12538: -- If the pickupstop does not already exist in the target trip
12539: -- check here, if already exists then do not check
12547: IF p_target_tripstops.dropoff_location_id IS NOT NULL AND
12548: p_target_tripstops.dropoff_stop_id IS NULL THEN
12549: l_location_id := p_target_tripstops.dropoff_location_id;
12550: IF l_debug_on THEN
12551: WSH_DEBUG_SV.logmsg(l_module_name,'target dropoff location id not null');
12552: END IF;
12553: ELSE
12554: -- Nothing to check
12555: GOTO next_pass;
12556: END IF;
12557: END IF;
12558: --
12559: IF l_debug_on THEN
12560: WSH_DEBUG_SV.logmsg(l_module_name,'i : '||i||' l_location_id : '||l_location_id);
12561: END IF;
12562: --
12563:
12564: IF l_comp_class_tab.EXISTS(G_FACILITY_VEHICLE_NUM) AND
12698: l_entity_tab(l_delivery_info_mod).shipment_direction := l_delivery_info(k).shipment_direction;
12699: l_entity_tab(l_delivery_info_mod).shipping_control := l_delivery_info(k).shipping_control;
12700: --
12701: IF l_debug_on THEN
12702: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_delivery_info_mod||' for delivery index '||k);
12703: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).entity_id : '||l_entity_tab(l_delivery_info_mod).entity_id);
12704: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).initial_pickup_location_id : '||l_entity_tab(l_delivery_info_mod).initial_pickup_location_id);
12705: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id);
12706: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12699: l_entity_tab(l_delivery_info_mod).shipping_control := l_delivery_info(k).shipping_control;
12700: --
12701: IF l_debug_on THEN
12702: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_delivery_info_mod||' for delivery index '||k);
12703: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).entity_id : '||l_entity_tab(l_delivery_info_mod).entity_id);
12704: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).initial_pickup_location_id : '||l_entity_tab(l_delivery_info_mod).initial_pickup_location_id);
12705: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id);
12706: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12707: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).ultimate_dropoff_location_id : '||l_delivery_info(k).ultimate_dropoff_location_id);
12700: --
12701: IF l_debug_on THEN
12702: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_delivery_info_mod||' for delivery index '||k);
12703: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).entity_id : '||l_entity_tab(l_delivery_info_mod).entity_id);
12704: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).initial_pickup_location_id : '||l_entity_tab(l_delivery_info_mod).initial_pickup_location_id);
12705: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id);
12706: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12707: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).ultimate_dropoff_location_id : '||l_delivery_info(k).ultimate_dropoff_location_id);
12708: END IF;
12701: IF l_debug_on THEN
12702: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_delivery_info_mod||' for delivery index '||k);
12703: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).entity_id : '||l_entity_tab(l_delivery_info_mod).entity_id);
12704: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).initial_pickup_location_id : '||l_entity_tab(l_delivery_info_mod).initial_pickup_location_id);
12705: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id);
12706: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12707: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).ultimate_dropoff_location_id : '||l_delivery_info(k).ultimate_dropoff_location_id);
12708: END IF;
12709: --
12702: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_delivery_info_mod||' for delivery index '||k);
12703: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).entity_id : '||l_entity_tab(l_delivery_info_mod).entity_id);
12704: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).initial_pickup_location_id : '||l_entity_tab(l_delivery_info_mod).initial_pickup_location_id);
12705: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id);
12706: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12707: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).ultimate_dropoff_location_id : '||l_delivery_info(k).ultimate_dropoff_location_id);
12708: END IF;
12709: --
12710:
12703: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).entity_id : '||l_entity_tab(l_delivery_info_mod).entity_id);
12704: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).initial_pickup_location_id : '||l_entity_tab(l_delivery_info_mod).initial_pickup_location_id);
12705: WSH_DEBUG_SV.logmsg(l_module_name,'l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id : '||l_entity_tab(l_delivery_info_mod).ultimate_dropoff_location_id);
12706: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).initial_pickup_location_id : '||l_delivery_info(k).initial_pickup_location_id);
12707: WSH_DEBUG_SV.logmsg(l_module_name,'l_delivery_info(k).ultimate_dropoff_location_id : '||l_delivery_info(k).ultimate_dropoff_location_id);
12708: END IF;
12709: --
12710:
12711: IF k <> l_delivery_info.FIRST THEN
12725: x_found => l_found,
12726: x_return_status => l_return_status);
12727: --
12728: IF l_debug_on THEN
12729: WSH_DEBUG_SV.logmsg(l_module_name,'Called search_matching_group return status : '||l_return_status||' Group found ? '||l_group_id);
12730: END IF;
12731: --
12732:
12733: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12747: p_group_tab => x_group_info,
12748: x_return_status => l_return_status);
12749: --
12750: IF l_debug_on THEN
12751: WSH_DEBUG_SV.logmsg(l_module_name,'Called create_valid_entity_group return status : '||l_return_status);
12752: END IF;
12753: --
12754:
12755: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12785: x_validate_result => l_validate_result,
12786: x_return_status => l_return_status);
12787: --
12788: IF l_debug_on THEN
12789: WSH_DEBUG_SV.logmsg(l_module_name,'Called check_dlvy_against_trip return status : '||l_return_status||' validate result : '||l_validate_result);
12790: END IF;
12791: --
12792:
12793: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12840: x_validate_result => l_validate_result,
12841: x_return_status => l_return_status);
12842: --
12843: IF l_debug_on THEN
12844: WSH_DEBUG_SV.logmsg(l_module_name,'Called check_upd_dlvy return status : '||l_return_status||' validate result : '||l_validate_result);
12845: END IF;
12846: --
12847:
12848: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
12862: x_failed_lines(l_failed_lc).failed_line_index := l_failed_lc;
12863:
12864: --
12865: IF l_debug_on THEN
12866: WSH_DEBUG_SV.logmsg(l_module_name,'Adding failed delivery : '||l_delivery_info(k).delivery_id);
12867: END IF;
12868: --
12869:
12870: ELSE
12875: x_line_groups(l_linegroup_indx).entity_line_id := l_delivery_info(k).delivery_id;
12876:
12877: --
12878: IF l_debug_on THEN
12879: WSH_DEBUG_SV.logmsg(l_module_name,'Adding to linegroup delivery : '||l_delivery_info(k).delivery_id);
12880: END IF;
12881: --
12882:
12883: END IF;
12933: x_failed_constraints => l_failed_constraints,
12934: x_return_status => l_return_status);
12935: --
12936: IF l_debug_on THEN
12937: WSH_DEBUG_SV.logmsg(l_module_name,'Called validate_positive_constraint return status : '||l_return_status);
12938: END IF;
12939: --
12940:
12941: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13045: x_msg_data => x_msg_data,
13046: x_return_status => l_return_status);
13047: --
13048: IF l_debug_on THEN
13049: WSH_DEBUG_SV.logmsg(l_module_name,'Called stack_messages return status : '||l_return_status);
13050: END IF;
13051: --
13052:
13053: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
13070:
13071:
13072: --
13073: IF l_debug_on THEN
13074: WSH_DEBUG_SV.pop(l_module_name);
13075: END IF;
13076: --
13077:
13078: EXCEPTION
13079: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
13080: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
13081: --
13082: IF l_debug_on THEN
13083: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13084: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13085: END IF;
13086: --
13087: WHEN others THEN
13080: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
13081: --
13082: IF l_debug_on THEN
13083: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13084: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13085: END IF;
13086: --
13087: WHEN others THEN
13088: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dlvy');
13088: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dlvy');
13089: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13090: --
13091: IF l_debug_on THEN
13092: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13093: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13094: END IF;
13095: --
13096:
13089: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13090: --
13091: IF l_debug_on THEN
13092: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13093: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
13094: END IF;
13095: --
13096:
13097: END validate_constraint_dlvy;
13192:
13193: l_delivery_leg_rec dleg_ccinfo_rec_type;
13194: l_physical_location_id NUMBER := NULL;
13195:
13196: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
13197: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_constraint_dleg';
13198:
13199: BEGIN
13200: x_validate_result := 'S';
13209: FND_MSG_PUB.initialize;
13210: END IF;
13211:
13212: IF l_debug_on THEN
13213: wsh_debug_sv.push(l_module_name);
13214: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
13215: END IF;
13216:
13217: refresh_cache(l_return_status);
13210: END IF;
13211:
13212: IF l_debug_on THEN
13213: wsh_debug_sv.push(l_module_name);
13214: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
13215: END IF;
13216:
13217: refresh_cache(l_return_status);
13218:
13280: FETCH get_num_child_dlegs into l_num_child_deliveries;
13281: CLOSE get_num_child_dlegs;
13282:
13283: /*IF l_debug_on THEN
13284: wsh_debug_sv.logmsg('p_delivery_leg_rec.delivery_leg_id : '||p_delivery_leg_rec.delivery_leg_id);
13285: END IF;*/
13286: IF l_debug_on THEN
13287: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_leg_rec.delivery_leg_id : '||p_delivery_leg_rec.delivery_leg_id);
13288: END IF;
13283: /*IF l_debug_on THEN
13284: wsh_debug_sv.logmsg('p_delivery_leg_rec.delivery_leg_id : '||p_delivery_leg_rec.delivery_leg_id);
13285: END IF;*/
13286: IF l_debug_on THEN
13287: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_leg_rec.delivery_leg_id : '||p_delivery_leg_rec.delivery_leg_id);
13288: END IF;
13289: IF l_num_child_deliveries > 0 THEN
13290: OPEN c_get_details_consol(p_delivery_leg_rec.delivery_id);
13291: LOOP
13292: FETCH c_get_details_consol INTO l_detail_rec;
13293: EXIT WHEN c_get_details_consol%NOTFOUND;
13294:
13295: /* IF l_debug_on THEN
13296: wsh_debug_sv.logmsg('l_detail_rec.COUNT: '||l_detail_rec.COUNT);
13297: END IF;*/
13298:
13299: -- AGDUMMY
13300: -- Convert ultimate_dropoff if dummy to physical
13315:
13316: IF (l_physical_location_id IS NOT NULL) THEN
13317: --
13318: IF l_debug_on THEN
13319: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
13320: END IF;
13321: --
13322: l_detail_rec.ship_to_location_id := l_physical_location_id;
13323: l_detail_rec.physical_ship_to_location_id := l_physical_location_id;
13353:
13354: IF (l_physical_location_id IS NOT NULL) THEN
13355: --
13356: IF l_debug_on THEN
13357: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
13358: END IF;
13359: --
13360: l_detail_rec.ship_to_location_id := l_physical_location_id;
13361: l_detail_rec.physical_ship_to_location_id := l_physical_location_id;
13390:
13391: IF (l_physical_location_id IS NOT NULL) THEN
13392: --
13393: IF l_debug_on THEN
13394: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_dleg_dlvy_rec.ultimate_dropoff_location_id||' is a dummy location');
13395: END IF;
13396: --
13397: l_dleg_dlvy_rec.ultimate_dropoff_location_id := l_physical_location_id;
13398: l_dleg_dlvy_rec.physical_dropoff_location_id := l_physical_location_id;
13419:
13420: IF (l_physical_location_id IS NOT NULL) THEN
13421: --
13422: IF l_debug_on THEN
13423: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||p_delivery_leg_rec.dropoffstop_location_id||' is a dummy location');
13424: END IF;
13425: --
13426: l_delivery_leg_rec.dropoffstop_location_id := l_physical_location_id;
13427: --p_delivery_leg_rec.physical_dropoff_location_id := l_physical_location_id;
13917:
13918: IF (l_physical_location_id IS NOT NULL) THEN
13919: --
13920: IF l_debug_on THEN
13921: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
13922: END IF;
13923: --
13924: l_detail_rec.ship_to_location_id := l_physical_location_id;
13925: l_detail_rec.physical_ship_to_location_id := l_physical_location_id;
13955:
13956: IF (l_physical_location_id IS NOT NULL) THEN
13957: --
13958: IF l_debug_on THEN
13959: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_dlvy_rec.ultimate_dropoff_location_id||' is a dummy location');
13960: END IF;
13961: --
13962: l_dlvy_rec.ultimate_dropoff_location_id := l_physical_location_id;
13963: l_dlvy_rec.physical_dropoff_location_id := l_physical_location_id;
14000: l_entity_tab(l_dleg_dlvy_rec.delivery_id).shipment_direction := l_dleg_dlvy_rec.shipment_direction;
14001: l_entity_tab(l_dleg_dlvy_rec.delivery_id).shipping_control := l_dleg_dlvy_rec.shipping_control;
14002: --
14003: IF l_debug_on THEN
14004: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_entity_tab with index : '||l_dleg_dlvy_rec.delivery_id);
14005: END IF;
14006: --
14007:
14008: l_target_tripstops.pickup_stop_id := l_delivery_leg_rec.pick_up_stop_id;
14018: p_group_tab => l_group_info,
14019: x_return_status => l_return_status);
14020: --
14021: IF l_debug_on THEN
14022: WSH_DEBUG_SV.logmsg(l_module_name,'Called create_valid_entity_group return status : '||l_return_status);
14023: END IF;
14024: --
14025:
14026: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
14043: x_failed_constraints => l_failed_constraints,
14044: x_return_status => l_return_status);
14045: --
14046: IF l_debug_on THEN
14047: WSH_DEBUG_SV.logmsg(l_module_name,'Called validate_positive_constraint return status : '||l_return_status);
14048: WSH_DEBUG_SV.logmsg(l_module_name,'l_failed_lines count : '||l_failed_lines.COUNT);
14049: END IF;
14050: --
14051:
14044: x_return_status => l_return_status);
14045: --
14046: IF l_debug_on THEN
14047: WSH_DEBUG_SV.logmsg(l_module_name,'Called validate_positive_constraint return status : '||l_return_status);
14048: WSH_DEBUG_SV.logmsg(l_module_name,'l_failed_lines count : '||l_failed_lines.COUNT);
14049: END IF;
14050: --
14051:
14052: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
14283: END IF;
14284:
14285: --
14286: IF l_debug_on THEN
14287: WSH_DEBUG_SV.pop(l_module_name);
14288: END IF;
14289: --
14290:
14291: EXCEPTION
14292: WHEN g_get_carrmode_failed THEN
14293: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14294: --
14295: IF l_debug_on THEN
14296: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
14297: END IF;
14298: --
14299: WHEN g_get_vehicletype_failed THEN
14300: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14299: WHEN g_get_vehicletype_failed THEN
14300: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
14301: --
14302: IF l_debug_on THEN
14303: WSH_DEBUG_SV.pop(l_module_name,' get vehicletype failed ');
14304: END IF;
14305: --
14306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14306: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
14307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14308: --
14309: IF l_debug_on THEN
14310: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14311: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
14312: END IF;
14313: --
14314: WHEN others THEN
14307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
14308: --
14309: IF l_debug_on THEN
14310: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14311: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
14312: END IF;
14313: --
14314: WHEN others THEN
14315: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dleg');
14315: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dleg');
14316: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14317: --
14318: IF l_debug_on THEN
14319: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14320: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
14321: END IF;
14322: --
14323: END validate_constraint_dleg;
14316: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
14317: --
14318: IF l_debug_on THEN
14319: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
14320: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
14321: END IF;
14322: --
14323: END validate_constraint_dleg;
14324:
14476: --#DUM_LOC(E)
14477:
14478: g_invalid_action_code EXCEPTION;
14479: g_invalid_input EXCEPTION;
14480: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
14481: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_constraint_dlvb';
14482:
14483: BEGIN
14484:
14494: FND_MSG_PUB.initialize;
14495: END IF;
14496:
14497: IF l_debug_on THEN
14498: wsh_debug_sv.push(l_module_name);
14499: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
14500: END IF;
14501:
14502: -- Action codes : ACD, ADD, PKG
14495: END IF;
14496:
14497: IF l_debug_on THEN
14498: wsh_debug_sv.push(l_module_name);
14499: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
14500: END IF;
14501:
14502: -- Action codes : ACD, ADD, PKG
14503: -- Assumes p_comp_class_tab and p_exception_list are indexed by
14557: END IF;
14558: END IF;
14559: --
14560: IF l_debug_on THEN
14561: WSH_DEBUG_SV.logmsg(l_module_name,'After populating l_comp_class_tab count : '||l_comp_class_tab.COUNT);
14562: END IF;
14563: --
14564: -- Populate l_del_detail_info
14565:
14565:
14566: IF p_del_detail_info.COUNT = 0 THEN
14567: --
14568: IF l_debug_on THEN
14569: WSH_DEBUG_SV.logmsg(l_module_name,'Passed p_in_ids count : '||p_in_ids.COUNT);
14570: END IF;
14571: --
14572:
14573: i := p_in_ids.FIRST;
14592:
14593: IF (l_physical_location_id IS NOT NULL) THEN
14594: --
14595: IF l_debug_on THEN
14596: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_del_detail_info(i).ship_to_location_id||' is a dummy location');
14597: END IF;
14598: --
14599: l_del_detail_info(i).ship_to_location_id:= l_physical_location_id;
14600: -- AGDUMMY TODO
14614:
14615: ELSE
14616: --
14617: IF l_debug_on THEN
14618: WSH_DEBUG_SV.logmsg(l_module_name,'Passed p_del_detail_info count : '||p_del_detail_info.COUNT);
14619: END IF;
14620: --
14621:
14622: i := p_del_detail_info.FIRST;
14656:
14657: IF (l_physical_location_id IS NOT NULL) THEN
14658: --
14659: IF l_debug_on THEN
14660: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_del_detail_info(i).ship_to_location_id||' is a dummy location');
14661: END IF;
14662: --
14663: l_del_detail_info(i).ship_to_location_id:= l_physical_location_id;
14664: -- AGDUMMY TODO
14694:
14695: IF (l_physical_location_id IS NOT NULL) THEN
14696: --
14697: IF l_debug_on THEN
14698: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_target_delivery.ultimate_dropoff_location_id||' is a dummy location');
14699: END IF;
14700: --
14701: l_target_delivery.ultimate_dropoff_location_id := l_physical_location_id;
14702: -- AGDUMMY TODO
14728:
14729: IF (l_physical_location_id IS NOT NULL) THEN
14730: --
14731: IF l_debug_on THEN
14732: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_target_container.ship_to_location_id||' is a dummy location');
14733: END IF;
14734: --
14735: l_target_container.ship_to_location_id:= l_physical_location_id;
14736: -- AGDUMMY TODO
14765:
14766: IF (l_physical_location_id IS NOT NULL) THEN
14767: --
14768: IF l_debug_on THEN
14769: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
14770: END IF;
14771: --
14772: l_detail_rec.ship_to_location_id:= l_physical_location_id;
14773: -- AGDUMMY TODO
14798:
14799: IF (l_physical_location_id IS NOT NULL) THEN
14800: --
14801: IF l_debug_on THEN
14802: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
14803: END IF;
14804: --
14805: l_detail_rec.ship_to_location_id:= l_physical_location_id;
14806: -- AGDUMMY TODO
14835:
14836: IF (l_physical_location_id IS NOT NULL) THEN
14837: --
14838: IF l_debug_on THEN
14839: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
14840: END IF;
14841: --
14842: l_detail_rec.ship_to_location_id:= l_physical_location_id;
14843: -- AGDUMMY TODO
14851: CLOSE c_get_assigned_lines_cont;
14852: END IF;
14853: --
14854: IF l_debug_on THEN
14855: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_dlvy_assigned_lines count : '||l_dlvy_assigned_lines.COUNT);
14856: END IF;
14857: --
14858: ELSE
14859: --
14857: --
14858: ELSE
14859: --
14860: IF l_debug_on THEN
14861: WSH_DEBUG_SV.logmsg(l_module_name,'Passed p_dlvy_assigned_lines count : '||p_dlvy_assigned_lines.COUNT);
14862: END IF;
14863: --
14864:
14865: i := p_dlvy_assigned_lines.FIRST;
14899:
14900: IF (l_physical_location_id IS NOT NULL) THEN
14901: --
14902: IF l_debug_on THEN
14903: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_dlvy_assigned_lines(i).ship_to_location_id||' is a dummy location');
14904: END IF;
14905: --
14906: l_dlvy_assigned_lines(i).ship_to_location_id:= l_physical_location_id;
14907: -- AGDUMMY TODO
15016: l_entity_tab(l_del_detail_info(j).delivery_detail_id).inventory_item_id := l_del_detail_info(j).inventory_item_id;
15017: l_entity_tab(l_del_detail_info(j).delivery_detail_id).customer_id := l_del_detail_info(j).customer_id;
15018: --
15019: IF l_debug_on THEN
15020: 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);
15021: END IF;
15022: --
15023:
15024: IF j <> l_del_detail_info.FIRST THEN
15037: x_found => l_found, -- OUT
15038: x_return_status => l_return_status);
15039: --
15040: IF l_debug_on THEN
15041: WSH_DEBUG_SV.logmsg(l_module_name,'Called search_matching_group return status : '||l_return_status||' Group found ? '||l_group_id);
15042: END IF;
15043: --
15044:
15045: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
15053: IF l_found THEN
15054: l_entity_tab(l_del_detail_info(j).delivery_detail_id).group_id := l_group_id;
15055: --
15056: IF l_debug_on THEN
15057: WSH_DEBUG_SV.logmsg(l_module_name,'Adding detail : '||l_del_detail_info(j).delivery_detail_id||' to_group : '||l_group_id);
15058: END IF;
15059: --
15060: ELSE
15061: create_valid_entity_group(
15063: p_group_tab => x_group_info, -- IN OUT
15064: x_return_status => l_return_status);
15065: --
15066: IF l_debug_on THEN
15067: WSH_DEBUG_SV.logmsg(l_module_name,'Called create_valid_entity_group return status : '||l_return_status);
15068: END IF;
15069: --
15070:
15071: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
15086:
15087: -- Groups have already been created at this point x_group_info
15088: --
15089: IF l_debug_on THEN
15090: 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);
15091: END IF;
15092: --
15093: -- END : Potential method to group details
15094: -- Returns valid groups of input lines
15212: l_target_rec.inventory_item_id := l_dlvy_assigned_lines(k).inventory_item_id;
15213: l_target_rec.customer_id := l_dlvy_assigned_lines(k).customer_id;
15214: --
15215: IF l_debug_on THEN
15216: WSH_DEBUG_SV.logmsg(l_module_name,'Created l_target_rec for assigned line : '||l_dlvy_assigned_lines(k).delivery_detail_id);
15217: END IF;
15218: --
15219:
15220: IF ((l_entity_tab(l_del_detail_info(j).delivery_detail_id).inventory_item_id <> l_target_rec.inventory_item_id) OR
15622: END IF;
15623:
15624: --
15625: IF l_debug_on THEN
15626: WSH_DEBUG_SV.pop(l_module_name);
15627: END IF;
15628: --
15629:
15630: EXCEPTION
15631: WHEN g_get_carrmode_failed THEN
15632: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
15633: --
15634: IF l_debug_on THEN
15635: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
15636: END IF;
15637: --
15638: WHEN g_invalid_action_code THEN
15639: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
15638: WHEN g_invalid_action_code THEN
15639: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
15640: --
15641: IF l_debug_on THEN
15642: WSH_DEBUG_SV.pop(l_module_name,' invalid_action_code ');
15643: END IF;
15644: --
15645: WHEN g_invalid_input THEN
15646: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
15645: WHEN g_invalid_input THEN
15646: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
15647: --
15648: IF l_debug_on THEN
15649: WSH_DEBUG_SV.pop(l_module_name,' invalid_input ');
15650: END IF;
15651: --
15652:
15653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
15654: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
15655: --
15656: IF l_debug_on THEN
15657: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
15658: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
15659: END IF;
15660: --
15661: WHEN others THEN
15654: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
15655: --
15656: IF l_debug_on THEN
15657: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
15658: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
15659: END IF;
15660: --
15661: WHEN others THEN
15662: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dlvb');
15662: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_dlvb');
15663: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
15664: --
15665: IF l_debug_on THEN
15666: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
15667: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
15668: END IF;
15669: --
15670: END validate_constraint_dlvb;
15663: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
15664: --
15665: IF l_debug_on THEN
15666: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
15667: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
15668: END IF;
15669: --
15670: END validate_constraint_dlvb;
15671:
15756: --SBAKSHI(8/24)
15757: l_trip_incl_stops_sort stop_ccinfo_tab_type;
15758: l_idx NUMBER;
15759: --SBAKSHI(8/24)
15760: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
15761: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_constraint_trip';
15762:
15763: BEGIN
15764:
15774: FND_MSG_PUB.initialize;
15775: END IF;
15776:
15777: IF l_debug_on THEN
15778: wsh_debug_sv.push(l_module_name);
15779: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
15780: END IF;
15781:
15782: refresh_cache(l_return_status);
15775: END IF;
15776:
15777: IF l_debug_on THEN
15778: wsh_debug_sv.push(l_module_name);
15779: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
15780: END IF;
15781:
15782: refresh_cache(l_return_status);
15783:
15830:
15831: IF (l_physical_location_id IS NOT NULL) THEN
15832: --
15833: IF l_debug_on THEN
15834: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_delivery_rec.ultimate_dropoff_location_id||' is a dummy location');
15835: END IF;
15836: --
15837: l_delivery_rec.ultimate_dropoff_location_id := l_physical_location_id;
15838: -- AGDUMMY TODO
15866:
15867: IF (l_physical_location_id IS NOT NULL) THEN
15868: --
15869: IF l_debug_on THEN
15870: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_detail_rec.ship_to_location_id||' is a dummy location');
15871: END IF;
15872: --
15873: l_detail_rec.ship_to_location_id:= l_physical_location_id;
15874: -- AGDUMMY TODO
15922:
15923: IF (l_physical_location_id IS NOT NULL) THEN
15924: --
15925: IF l_debug_on THEN
15926: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_trip_assigned_dels(l).ultimate_dropoff_location_id||' is a dummy location');
15927: END IF;
15928: --
15929: l_trip_assigned_dels(l).ultimate_dropoff_location_id := l_physical_location_id;
15930: -- AGDUMMY TODO
15957:
15958: IF (l_physical_location_id IS NOT NULL) THEN
15959: --
15960: IF l_debug_on THEN
15961: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||l_trip_dlvy_lines(l).ship_to_location_id||' is a dummy location');
15962: END IF;
15963: --
15964: l_trip_dlvy_lines(l).ship_to_location_id:= l_physical_location_id;
15965: -- AGDUMMY TODO
16343: l_validate_in_result := 'S';
16344: l_validate_ex_result := 'S';
16345: --
16346: IF l_debug_on THEN
16347: WSH_DEBUG_SV.logmsg(l_module_name,'Added failed trip because of stops : '|| p_trip_info(j).trip_id);
16348: END IF;
16349: --
16350: END IF;
16351:
16566: IF NOT l_curr_trip_added THEN
16567: x_fail_trips(x_fail_trips.COUNT+1) := p_trip_info(j).trip_id;
16568: --
16569: IF l_debug_on THEN
16570: WSH_DEBUG_SV.logmsg(l_module_name,'Added failed trip because of items : '|| p_trip_info(j).trip_id);
16571: END IF;
16572: --
16573: END IF;
16574:
16599: END IF;
16600:
16601: --
16602: IF l_debug_on THEN
16603: WSH_DEBUG_SV.logmsg(l_module_name,'failed trip count : '|| x_fail_trips.COUNT);
16604: WSH_DEBUG_SV.pop(l_module_name);
16605: END IF;
16606: --
16607:
16600:
16601: --
16602: IF l_debug_on THEN
16603: WSH_DEBUG_SV.logmsg(l_module_name,'failed trip count : '|| x_fail_trips.COUNT);
16604: WSH_DEBUG_SV.pop(l_module_name);
16605: END IF;
16606: --
16607:
16608: EXCEPTION
16609: WHEN g_get_carrmode_failed THEN
16610: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
16611: --
16612: IF l_debug_on THEN
16613: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
16614: END IF;
16615: --
16616: WHEN g_get_vehicletype_failed THEN
16617: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
16616: WHEN g_get_vehicletype_failed THEN
16617: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
16618: --
16619: IF l_debug_on THEN
16620: WSH_DEBUG_SV.pop(l_module_name,' get vehicletype failed ');
16621: END IF;
16622: --
16623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16624: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
16623: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
16624: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
16625: --
16626: IF l_debug_on THEN
16627: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
16628: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
16629: END IF;
16630: --
16631: WHEN others THEN
16624: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
16625: --
16626: IF l_debug_on THEN
16627: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
16628: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
16629: END IF;
16630: --
16631: WHEN others THEN
16632: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_trip');
16632: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_trip');
16633: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
16634: --
16635: IF l_debug_on THEN
16636: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
16637: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
16638: END IF;
16639: --
16640: END validate_constraint_trip;
16633: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
16634: --
16635: IF l_debug_on THEN
16636: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
16637: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
16638: END IF;
16639: --
16640: END validate_constraint_trip;
16641:
16780: l_idx NUMBER;
16781: l_stop_info stop_ccinfo_tab_type;
16782: --SBAKSHI (8/24)
16783:
16784: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
16785: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_constraint_stop';
16786:
16787: BEGIN
16788:
16798: FND_MSG_PUB.initialize;
16799: END IF;
16800:
16801: IF l_debug_on THEN
16802: wsh_debug_sv.push(l_module_name);
16803: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
16804: END IF;
16805:
16806: refresh_cache(l_return_status);
16799: END IF;
16800:
16801: IF l_debug_on THEN
16802: wsh_debug_sv.push(l_module_name);
16803: WSH_DEBUG_SV.logmsg(l_module_name,'p_init_msg_list : '||p_init_msg_list);
16804: END IF;
16805:
16806: refresh_cache(l_return_status);
16807:
16895: END LOOP;
16896: CLOSE c_gettripinfo;
16897: ELSE
16898: IF l_debug_on THEN
16899: WSH_DEBUG_SV.logmsg(l_module_name,'Input stop index - '||j||' has null stop_id and trip_id');
16900: END IF;
16901: END IF;
16902: EXIT WHEN j = l_stop_info.LAST;
16903: j := l_stop_info.NEXT(j);
16915: END IF;
16916:
16917:
16918: IF l_debug_on THEN
16919: WSH_DEBUG_SV.logmsg(l_module_name,'Input stop count : '||l_stop_info.COUNT);
16920: WSH_DEBUG_SV.logmsg(l_module_name,'parent trip count : '||p_parent_trip_info.COUNT||' local trip count : '||l_parent_trip_info.COUNT);
16921: END IF;
16922:
16923: -- Only for action code = UPS
16916:
16917:
16918: IF l_debug_on THEN
16919: WSH_DEBUG_SV.logmsg(l_module_name,'Input stop count : '||l_stop_info.COUNT);
16920: WSH_DEBUG_SV.logmsg(l_module_name,'parent trip count : '||p_parent_trip_info.COUNT||' local trip count : '||l_parent_trip_info.COUNT);
16921: END IF;
16922:
16923: -- Only for action code = UPS
16924: -- Also create CTS, DTS
16949: l_validate_dlvb_result := 'S';
16950: l_old_stop_pa_date := NULL;
16951:
16952: IF l_debug_on THEN
16953: 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)||
16954: ' Sequence : '||l_stop_info(j).stop_sequence_number||' trip id : '||l_stop_info(j).trip_id);
16955: 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 : '||
16956: to_char(l_stop_info(j).planned_departure_date,'DD-MON-YYYY HH24:MI:SS'));
16957: END IF;
16951:
16952: IF l_debug_on THEN
16953: 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)||
16954: ' Sequence : '||l_stop_info(j).stop_sequence_number||' trip id : '||l_stop_info(j).trip_id);
16955: 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 : '||
16956: to_char(l_stop_info(j).planned_departure_date,'DD-MON-YYYY HH24:MI:SS'));
16957: END IF;
16958:
16959: -- AGDUMMY
16976: FETCH c_get_stop_location INTO l_old_stop_location_id, l_old_stop_seq_num,l_old_stop_pa_date;
16977: CLOSE c_get_stop_location;
16978:
16979: IF l_debug_on THEN
16980: 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'));
16981: END IF;
16982:
16983: l_mustuse_loc_id := l_old_stop_location_id;
16984:
16991: IF k IS NOT NULL THEN
16992: LOOP
16993:
16994: IF l_debug_on THEN
16995: WSH_DEBUG_SV.logmsg(l_module_name,'For stop : '||l_stop_info(j).stop_id);
16996: WSH_DEBUG_SV.logmsg(l_module_name,'Stops trip : '||l_stop_info(j).trip_id);
16997: WSH_DEBUG_SV.logmsg(l_module_name,'Current Trip : '||l_parent_trip_info(k).trip_id);
16998: END IF;
16999:
16992: LOOP
16993:
16994: IF l_debug_on THEN
16995: WSH_DEBUG_SV.logmsg(l_module_name,'For stop : '||l_stop_info(j).stop_id);
16996: WSH_DEBUG_SV.logmsg(l_module_name,'Stops trip : '||l_stop_info(j).trip_id);
16997: WSH_DEBUG_SV.logmsg(l_module_name,'Current Trip : '||l_parent_trip_info(k).trip_id);
16998: END IF;
16999:
17000: IF l_stop_info(j).trip_id <> l_parent_trip_info(k).trip_id THEN
16993:
16994: IF l_debug_on THEN
16995: WSH_DEBUG_SV.logmsg(l_module_name,'For stop : '||l_stop_info(j).stop_id);
16996: WSH_DEBUG_SV.logmsg(l_module_name,'Stops trip : '||l_stop_info(j).trip_id);
16997: WSH_DEBUG_SV.logmsg(l_module_name,'Current Trip : '||l_parent_trip_info(k).trip_id);
16998: END IF;
16999:
17000: IF l_stop_info(j).trip_id <> l_parent_trip_info(k).trip_id THEN
17001: GOTO next_trip;
17290: x_validate_result := 'F';
17291: x_fail_stops(x_fail_stops.COUNT+1) := l_stop_info(j).stop_id;
17292: --
17293: IF l_debug_on THEN
17294: WSH_DEBUG_SV.logmsg(l_module_name,'Added failed stop : '|| l_stop_info(j).stop_id);
17295: END IF;
17296: --
17297:
17298: END IF;
17350: END IF;
17351:
17352: --
17353: IF l_debug_on THEN
17354: WSH_DEBUG_SV.logmsg(l_module_name,'failed stop count : '|| x_fail_stops.COUNT);
17355: WSH_DEBUG_SV.pop(l_module_name);
17356: END IF;
17357: --
17358:
17351:
17352: --
17353: IF l_debug_on THEN
17354: WSH_DEBUG_SV.logmsg(l_module_name,'failed stop count : '|| x_fail_stops.COUNT);
17355: WSH_DEBUG_SV.pop(l_module_name);
17356: END IF;
17357: --
17358:
17359: EXCEPTION
17360: WHEN g_get_carrmode_failed THEN
17361: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
17362: --
17363: IF l_debug_on THEN
17364: WSH_DEBUG_SV.pop(l_module_name,' get carrier-mode failed ');
17365: END IF;
17366: --
17367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17368: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17367: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17368: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17369: --
17370: IF l_debug_on THEN
17371: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17372: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17373: END IF;
17374: --
17375: WHEN others THEN
17368: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17369: --
17370: IF l_debug_on THEN
17371: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17372: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17373: END IF;
17374: --
17375: WHEN others THEN
17376: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_stop');
17376: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_stop');
17377: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
17378: --
17379: IF l_debug_on THEN
17380: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17381: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17382: END IF;
17383: --
17384: END validate_constraint_stop;
17377: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
17378: --
17379: IF l_debug_on THEN
17380: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17381: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17382: END IF;
17383: --
17384: END validate_constraint_stop;
17385:
17414: l_failed_constraint WSH_FTE_CONSTRAINT_FRAMEWORK.line_constraint_rec_type;
17415: l_details_info WSH_FTE_CONSTRAINT_FRAMEWORK.detail_ccinfo_tab_type;
17416: i_det NUMBER;
17417: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'validate_exclusive_constraints';
17418: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
17419: l_location_id NUMBER;
17420:
17421: CURSOR c_get_details(c_delivery_id IN NUMBER) IS
17422: SELECT wdd.DELIVERY_DETAIL_ID
17449: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
17450: x_validate_result := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
17451:
17452: IF l_debug_on THEN
17453: wsh_debug_sv.push (l_module_name);
17454: END IF;
17455:
17456: IF p_delivery_rec.ultimate_dropoff_location_id IS NOT NULL THEN
17457: --{
17456: IF p_delivery_rec.ultimate_dropoff_location_id IS NOT NULL THEN
17457: --{
17458:
17459: IF l_debug_on THEN
17460: wsh_debug_sv.logmsg (l_module_name, 'p_delivery_rec.ultimate_dropoff_location_id: ' || p_delivery_rec.ultimate_dropoff_location_id);
17461: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17462: END IF;
17463:
17464: validate_constraint( -- checks only negative constraints
17457: --{
17458:
17459: IF l_debug_on THEN
17460: wsh_debug_sv.logmsg (l_module_name, 'p_delivery_rec.ultimate_dropoff_location_id: ' || p_delivery_rec.ultimate_dropoff_location_id);
17461: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17462: END IF;
17463:
17464: validate_constraint( -- checks only negative constraints
17465: p_comp_class_code => WSH_FTE_CONSTRAINT_FRAMEWORK.G_CUSTOMER_FACILITY,
17477: END IF;
17478:
17479:
17480: IF l_debug_on THEN
17481: wsh_debug_sv.logmsg (l_module_name, 'Customer FAC-FAC l_validate_result: '||l_validate_result);
17482: END IF;
17483:
17484: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17485: x_return_status := l_return_status;
17485: x_return_status := l_return_status;
17486: x_validate_result := l_validate_result;
17487:
17488: IF l_debug_on THEN
17489: wsh_debug_sv.push(l_module_name);
17490: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17491: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17492: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17493: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17486: x_validate_result := l_validate_result;
17487:
17488: IF l_debug_on THEN
17489: wsh_debug_sv.push(l_module_name);
17490: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17491: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17492: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17493: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17494: 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');
17487:
17488: IF l_debug_on THEN
17489: wsh_debug_sv.push(l_module_name);
17490: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17491: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17492: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17493: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17494: 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');
17495: END IF;
17488: IF l_debug_on THEN
17489: wsh_debug_sv.push(l_module_name);
17490: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17491: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17492: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17493: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17494: 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');
17495: END IF;
17496: IF l_debug_on THEN
17489: wsh_debug_sv.push(l_module_name);
17490: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17491: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17492: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17493: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17494: 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');
17495: END IF;
17496: IF l_debug_on THEN
17497: wsh_debug_sv.pop (l_module_name);
17490: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17491: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17492: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17493: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17494: 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');
17495: END IF;
17496: IF l_debug_on THEN
17497: wsh_debug_sv.pop (l_module_name);
17498: END IF;
17493: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17494: 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');
17495: END IF;
17496: IF l_debug_on THEN
17497: wsh_debug_sv.pop (l_module_name);
17498: END IF;
17499: return;
17500: END IF;
17501:
17504:
17505: IF p_delivery_rec.customer_id IS NOT NULL THEN
17506: --{
17507: IF l_debug_on THEN
17508: wsh_debug_sv.logmsg (l_module_name, 'p_delivery_rec.customer_id: ' || p_delivery_rec.customer_id);
17509: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17510: END IF;
17511:
17512: validate_constraint( -- checks only negative constraints
17505: IF p_delivery_rec.customer_id IS NOT NULL THEN
17506: --{
17507: IF l_debug_on THEN
17508: wsh_debug_sv.logmsg (l_module_name, 'p_delivery_rec.customer_id: ' || p_delivery_rec.customer_id);
17509: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17510: END IF;
17511:
17512: validate_constraint( -- checks only negative constraints
17513: p_comp_class_code => WSH_FTE_CONSTRAINT_FRAMEWORK.G_CUSTOMER_FACILITY,
17523: raise FND_API.G_EXC_UNEXPECTED_ERROR;
17524: END IF;
17525:
17526: IF l_debug_on THEN
17527: wsh_debug_sv.logmsg (l_module_name, 'CUS-FAC l_validate_result: '||l_validate_result);
17528: END IF;
17529:
17530: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17531: x_return_status := l_return_status;
17530: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17531: x_return_status := l_return_status;
17532: x_validate_result := l_validate_result;
17533: IF l_debug_on THEN
17534: wsh_debug_sv.push(l_module_name);
17535: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17536: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17537: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17538: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17531: x_return_status := l_return_status;
17532: x_validate_result := l_validate_result;
17533: IF l_debug_on THEN
17534: wsh_debug_sv.push(l_module_name);
17535: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17536: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17537: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17538: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17539: 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');
17532: x_validate_result := l_validate_result;
17533: IF l_debug_on THEN
17534: wsh_debug_sv.push(l_module_name);
17535: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17536: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17537: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17538: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17539: 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');
17540: END IF;
17533: IF l_debug_on THEN
17534: wsh_debug_sv.push(l_module_name);
17535: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17536: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17537: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17538: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17539: 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');
17540: END IF;
17541: IF l_debug_on THEN
17534: wsh_debug_sv.push(l_module_name);
17535: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17536: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17537: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17538: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17539: 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');
17540: END IF;
17541: IF l_debug_on THEN
17542: wsh_debug_sv.pop (l_module_name);
17535: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17536: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17537: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17538: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17539: 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');
17540: END IF;
17541: IF l_debug_on THEN
17542: wsh_debug_sv.pop (l_module_name);
17543: END IF;
17538: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17539: 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');
17540: END IF;
17541: IF l_debug_on THEN
17542: wsh_debug_sv.pop (l_module_name);
17543: END IF;
17544: return;
17545: END IF;
17546: --}
17561: raise FND_API.G_EXC_UNEXPECTED_ERROR;
17562: END IF;
17563:
17564: IF l_debug_on THEN
17565: wsh_debug_sv.logmsg (l_module_name, 'Region/Zone - Facility constraint for ship to location l_validate_result: '||l_validate_result);
17566: END IF;
17567:
17568: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17569: x_return_status := l_return_status;
17568: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17569: x_return_status := l_return_status;
17570: x_validate_result := l_validate_result;
17571: IF l_debug_on THEN
17572: 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');
17573: END IF;
17574: return;
17575: END IF;*/
17576:
17578:
17579: IF p_delivery_rec.organization_id IS NOT NULL THEN
17580:
17581: IF l_debug_on THEN
17582: wsh_debug_sv.logmsg (l_module_name, 'organization_id: ' || p_delivery_rec.organization_id);
17583: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17584: END IF;
17585:
17586: validate_constraint(
17579: IF p_delivery_rec.organization_id IS NOT NULL THEN
17580:
17581: IF l_debug_on THEN
17582: wsh_debug_sv.logmsg (l_module_name, 'organization_id: ' || p_delivery_rec.organization_id);
17583: wsh_debug_sv.logmsg (l_module_name, 'p_rule_deconsol_location: '||p_rule_deconsol_location);
17584: END IF;
17585:
17586: validate_constraint(
17587: p_comp_class_code => WSH_FTE_CONSTRAINT_FRAMEWORK.G_SHIPORG_FACILITY,
17596: raise FND_API.G_EXC_UNEXPECTED_ERROR;
17597: END IF;
17598:
17599: IF l_debug_on THEN
17600: wsh_debug_sv.logmsg (l_module_name, 'ORG - FAC l_validate_result: '||l_validate_result);
17601: END IF;
17602:
17603: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17604: x_return_status := l_return_status;
17603: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17604: x_return_status := l_return_status;
17605: x_validate_result := l_validate_result;
17606: IF l_debug_on THEN
17607: wsh_debug_sv.push(l_module_name);
17608: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17609: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17610: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17611: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17604: x_return_status := l_return_status;
17605: x_validate_result := l_validate_result;
17606: IF l_debug_on THEN
17607: wsh_debug_sv.push(l_module_name);
17608: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17609: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17610: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17611: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17612: 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');
17605: x_validate_result := l_validate_result;
17606: IF l_debug_on THEN
17607: wsh_debug_sv.push(l_module_name);
17608: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17609: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17610: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17611: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17612: 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');
17613: END IF;
17606: IF l_debug_on THEN
17607: wsh_debug_sv.push(l_module_name);
17608: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17609: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17610: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17611: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17612: 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');
17613: END IF;
17614: IF l_debug_on THEN
17607: wsh_debug_sv.push(l_module_name);
17608: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17609: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17610: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17611: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17612: 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');
17613: END IF;
17614: IF l_debug_on THEN
17615: wsh_debug_sv.pop (l_module_name);
17608: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17609: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17610: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17611: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17612: 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');
17613: END IF;
17614: IF l_debug_on THEN
17615: wsh_debug_sv.pop (l_module_name);
17616: END IF;
17611: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17612: 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');
17613: END IF;
17614: IF l_debug_on THEN
17615: wsh_debug_sv.pop (l_module_name);
17616: END IF;
17617: return;
17618: END IF;
17619: END IF;
17644: raise FND_API.G_EXC_UNEXPECTED_ERROR;
17645: END IF;
17646:
17647: IF l_debug_on THEN
17648: wsh_debug_sv.logmsg (l_module_name, 'Region/Zone - Facility constraint for ship to location l_validate_result: '||l_validate_result);
17649: END IF;
17650:
17651: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17652: x_return_status := l_return_status;
17651: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17652: x_return_status := l_return_status;
17653: x_validate_result := l_validate_result;
17654: IF l_debug_on THEN
17655: 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');
17656: END IF;
17657: return;
17658: END IF;*/
17659: END IF;
17672: IF i_det IS NOT NULL THEN
17673: LOOP
17674:
17675: IF l_debug_on THEN
17676: wsh_debug_sv.logmsg (l_module_name, 'organization_id: ' || l_details_info(i_det).organization_id);
17677: wsh_debug_sv.logmsg (l_module_name, 'inventory_item_id: '||l_details_info(i_det).inventory_item_id);
17678: END IF;
17679:
17680: validate_constraint( -- checks only negative constraints
17673: LOOP
17674:
17675: IF l_debug_on THEN
17676: wsh_debug_sv.logmsg (l_module_name, 'organization_id: ' || l_details_info(i_det).organization_id);
17677: wsh_debug_sv.logmsg (l_module_name, 'inventory_item_id: '||l_details_info(i_det).inventory_item_id);
17678: END IF;
17679:
17680: validate_constraint( -- checks only negative constraints
17681: p_comp_class_code => WSH_FTE_CONSTRAINT_FRAMEWORK.G_ITEM_FACILITY,
17692: raise FND_API.G_EXC_UNEXPECTED_ERROR;
17693: END IF;
17694:
17695: IF l_debug_on THEN
17696: wsh_debug_sv.logmsg (l_module_name, 'ITM - FAC l_validate_result: '||l_validate_result);
17697: END IF;
17698:
17699: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17700: x_return_status := l_return_status;
17699: IF l_validate_result = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
17700: x_return_status := l_return_status;
17701: x_validate_result := l_validate_result;
17702: IF l_debug_on THEN
17703: wsh_debug_sv.push(l_module_name);
17704: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17705: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17706: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17707: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17700: x_return_status := l_return_status;
17701: x_validate_result := l_validate_result;
17702: IF l_debug_on THEN
17703: wsh_debug_sv.push(l_module_name);
17704: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17705: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17706: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17707: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17708: 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');
17701: x_validate_result := l_validate_result;
17702: IF l_debug_on THEN
17703: wsh_debug_sv.push(l_module_name);
17704: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17705: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17706: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17707: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17708: 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');
17709: END IF;
17702: IF l_debug_on THEN
17703: wsh_debug_sv.push(l_module_name);
17704: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17705: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17706: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17707: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17708: 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');
17709: END IF;
17710: IF l_debug_on THEN
17703: wsh_debug_sv.push(l_module_name);
17704: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17705: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17706: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17707: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17708: 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');
17709: END IF;
17710: IF l_debug_on THEN
17711: wsh_debug_sv.pop (l_module_name);
17704: wsh_debug_sv.log (l_module_name,'constraint id violated : ',to_char(l_failed_constraint.constraint_id));
17705: wsh_debug_sv.log (l_module_name,'entity_type : ',to_char(l_failed_constraint.entity_type));
17706: wsh_debug_sv.log (l_module_name,'constraint_class_code : ',to_char(l_failed_constraint.constraint_class_code));
17707: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17708: 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');
17709: END IF;
17710: IF l_debug_on THEN
17711: wsh_debug_sv.pop (l_module_name);
17712: END IF;
17707: wsh_debug_sv.log (l_module_name,'violation_type : ',to_char(l_failed_constraint.violation_type));
17708: 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');
17709: END IF;
17710: IF l_debug_on THEN
17711: wsh_debug_sv.pop (l_module_name);
17712: END IF;
17713: return;
17714: END IF;
17715:
17719: END IF;
17720: END IF;
17721:
17722: IF l_debug_on THEN
17723: wsh_debug_sv.pop (l_module_name);
17724: END IF;
17725:
17726: EXCEPTION
17727:
17728: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
17729: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17730: --
17731: IF l_debug_on THEN
17732: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17733: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17734: END IF;
17735:
17736: WHEN OTHERS THEN
17729: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17730: --
17731: IF l_debug_on THEN
17732: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17733: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17734: END IF;
17735:
17736: WHEN OTHERS THEN
17737: IF c_get_details%ISOPEN THEN
17740: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_exclusive_constraints');
17741: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17742: --
17743: IF l_debug_on THEN
17744: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17745: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17746: END IF;
17747:
17748: END validate_exclusive_constraints;
17741: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
17742: --
17743: IF l_debug_on THEN
17744: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
17745: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
17746: END IF;
17747:
17748: END validate_exclusive_constraints;
17749:
17774: l_customer_id NUMBER;
17775: l_region_tab WSH_UTIL_CORE.ID_TAB_TYPE;
17776: l_zone_tab WSH_UTIL_CORE.ID_TAB_TYPE;
17777: l_deconsol_location NUMBER;
17778: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
17779: r_itr NUMBER;
17780: z_itr NUMBER;
17781: l_region_id NUMBER;
17782: l_zone_id NUMBER;
17820:
17821: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
17822:
17823: IF l_debug_on THEN
17824: wsh_debug_sv.push(l_module_name);
17825: END IF;
17826:
17827: -- get ship to location for the delivery
17828: -- For this location, find must use facility using defined inclusive constraint.
17830:
17831: l_ship_to_location_id := p_delivery_rec.ULTIMATE_DROPOFF_LOCATION_ID;
17832:
17833: IF l_debug_on THEN
17834: WSH_DEBUG_SV.logmsg(l_module_name,'l_ship_to_location_id: '|| l_ship_to_location_id);
17835: END IF;
17836:
17837: IF ( l_ship_to_location_id < g_cache_max_size and g_location_mustuse_location.EXISTS(l_ship_to_location_id)) THEN
17838:
17847: END IF;
17848: CLOSE c_get_must_use_location;
17849:
17850: IF l_debug_on THEN
17851: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location for ship To Location using CUS_FAC constraints : '|| l_deconsol_location);
17852: END IF;
17853:
17854:
17855: IF (l_ship_to_location_id < g_cache_max_size AND l_deconsol_location IS NOT NULL) THEN
17875: CLOSE c_get_region_incl_constraints;
17876: END IF;
17877:
17878: IF l_debug_on THEN
17879: WSH_DEBUG_SV.logmsg(l_module_name,'g_region_mustuse_location.COUNT : '|| g_region_mustuse_location.COUNT);
17880: END IF;
17881:
17882: WSH_REGIONS_SEARCH_PKG.Get_All_RegionId_Matches(
17883: p_location_id => l_ship_to_location_id,
17902: l_deconsol_location := g_region_mustuse_location(l_region_id);
17903: END IF;
17904:
17905: IF l_debug_on THEN
17906: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location from g_region_mustuse_location: '|| l_deconsol_location);
17907: END IF;
17908:
17909: -- If deconsolidation location found, populate it in cache
17910: -- Else, search for zone level constraints
17923: END IF;
17924: END IF;
17925:
17926: IF l_debug_on THEN
17927: WSH_DEBUG_SV.logmsg(l_module_name,'l_zone_tab.COUNT: '|| l_zone_tab.COUNT);
17928: END IF;
17929:
17930: IF l_zone_tab.COUNT > 0 THEN
17931: z_itr:= l_zone_tab.FIRST;
17960:
17961: IF l_deconsol_location IS NULL OR l_deconsol_location = -1 THEN
17962:
17963: IF l_debug_on THEN
17964: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.CUSTOMER_ID: '|| p_delivery_rec.CUSTOMER_ID);
17965: END IF;
17966:
17967: l_customer_id := p_delivery_rec.CUSTOMER_ID;
17968:
17987: END IF;
17988: END IF;
17989:
17990: IF l_debug_on THEN
17991: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location from customer inclusive constraints: '|| l_deconsol_location);
17992: END IF;
17993: END IF;
17994:
17995: -- If no constraints defined for customer, search for Ship From ORG_FAC constraints
17998:
17999: l_constr_org_id := p_delivery_rec.organization_id;
18000:
18001: IF l_debug_on THEN
18002: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_rec.organization_id: '|| l_constr_org_id);
18003: END IF;
18004:
18005: IF (l_constr_org_id IS NOT NULL) THEN
18006:
18034: g_org_mustuse_location(l_constr_org_id) := -1;
18035: END IF;
18036: END IF;
18037: IF l_debug_on THEN
18038: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location from org inclusive constraints: '|| l_deconsol_location);
18039: END IF;
18040:
18041: END IF;
18042:
18071: CLOSE c_get_region_incl_constraints;
18072: END IF;
18073:
18074: IF l_debug_on THEN
18075: WSH_DEBUG_SV.logmsg(l_module_name,'g_region_mustuse_location.COUNT : '|| g_region_mustuse_location.COUNT);
18076: END IF;
18077:
18078: WSH_REGIONS_SEARCH_PKG.Get_All_RegionId_Matches(
18079: p_location_id => l_ship_from_location_id,
18098: l_deconsol_location := g_region_mustuse_location(l_region_id);
18099: END IF;
18100:
18101: IF l_debug_on THEN
18102: WSH_DEBUG_SV.logmsg(l_module_name,'l_deconsol_location from g_region_mustuse_location: '|| l_deconsol_location);
18103: END IF;
18104:
18105: -- If deconsolidation location found, populate it in cache
18106: -- Else, search for zone level constraints
18119: END IF;
18120: END IF;
18121:
18122: IF l_debug_on THEN
18123: WSH_DEBUG_SV.logmsg(l_module_name,'l_zone_tab.COUNT: '|| l_zone_tab.COUNT);
18124: END IF;
18125:
18126: IF l_zone_tab.COUNT > 0 THEN
18127: z_itr:= l_zone_tab.FIRST;
18153: x_deconsol_location := l_deconsol_location;
18154: END IF;
18155:
18156: IF l_debug_on THEN
18157: WSH_DEBUG_SV.pop(l_module_name);
18158: END IF;
18159:
18160: EXCEPTION
18161:
18162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18163: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18164: --
18165: IF l_debug_on THEN
18166: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18167: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18168: END IF;
18169:
18170: WHEN OTHERS THEN
18163: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18164: --
18165: IF l_debug_on THEN
18166: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18167: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18168: END IF;
18169:
18170: WHEN OTHERS THEN
18171: IF c_get_must_use_location%ISOPEN THEN
18181: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.get_must_use_facility');
18182: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18183: --
18184: IF l_debug_on THEN
18185: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18186: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18187: END IF;
18188:
18189: END get_must_use_facility;
18182: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18183: --
18184: IF l_debug_on THEN
18185: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18186: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18187: END IF;
18188:
18189: END get_must_use_facility;
18190:
18260: l_validate_result VARCHAR2(1) := 'S';
18261: l_physical_location_id NUMBER := NULL;
18262: l_intermed_ship_to_loc_id NUMBER;
18263: l_rule_deconsol_location NUMBER;
18264: l_debug_on CONSTANT BOOLEAN := WSH_DEBUG_SV.is_debug_enabled;
18265: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'VALIDATE_CONSTRAINT_DECONSOL';
18266: rec_cnt NUMBER;
18267: l_region_tab WSH_REGIONS_SEARCH_PKG.region_deconsol_Tab_Type;
18268: l_success VARCHAR2(1) := 'S';
18310:
18311: refresh_cache(l_return_status);
18312:
18313: IF l_debug_on THEN
18314: wsh_debug_sv.push (l_module_name);
18315: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info.COUNT: '||p_delivery_info.COUNT);
18316: END IF;
18317:
18318: IF p_delivery_info.COUNT = 0 THEN
18311: refresh_cache(l_return_status);
18312:
18313: IF l_debug_on THEN
18314: wsh_debug_sv.push (l_module_name);
18315: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info.COUNT: '||p_delivery_info.COUNT);
18316: END IF;
18317:
18318: IF p_delivery_info.COUNT = 0 THEN
18319:
18347: --physical location id is not null implies- A dummy location.
18348: IF (l_physical_location_id IS NOT NULL) THEN
18349: --
18350: IF l_debug_on THEN
18351: WSH_DEBUG_SV.logmsg(l_module_name,'Location '||p_delivery_info(i).ultimate_dropoff_location_id||' is a dummy location');
18352: END IF;
18353: --
18354: p_delivery_info(i).ultimate_dropoff_location_id := l_physical_location_id;
18355: p_delivery_info(i).physical_dropoff_location_id := l_physical_location_id;
18361: CLOSE c_gettrip;
18362:
18363: --
18364: IF l_debug_on THEN
18365: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).delivery_id : '||p_delivery_info(i).delivery_id);
18366: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
18367: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
18368: 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);
18369: END IF;
18362:
18363: --
18364: IF l_debug_on THEN
18365: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).delivery_id : '||p_delivery_info(i).delivery_id);
18366: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
18367: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
18368: 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);
18369: END IF;
18370: --
18363: --
18364: IF l_debug_on THEN
18365: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).delivery_id : '||p_delivery_info(i).delivery_id);
18366: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
18367: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
18368: 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);
18369: END IF;
18370: --
18371: EXIT WHEN i = p_in_ids.LAST;
18364: IF l_debug_on THEN
18365: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).delivery_id : '||p_delivery_info(i).delivery_id);
18366: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).initial_pickup_location_id : '||p_delivery_info(i).initial_pickup_location_id);
18367: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(i).ultimate_dropoff_location_id : '||p_delivery_info(i).ultimate_dropoff_location_id);
18368: 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);
18369: END IF;
18370: --
18371: EXIT WHEN i = p_in_ids.LAST;
18372: i := p_in_ids.NEXT(i);
18376:
18377:
18378:
18379: IF l_debug_on THEN
18380: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info.COUNT: '||p_delivery_info.COUNT);
18381: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed: '||WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed);
18382: --WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol: '||p_rule_override_deconsol);
18383: END IF;
18384:
18377:
18378:
18379: IF l_debug_on THEN
18380: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info.COUNT: '||p_delivery_info.COUNT);
18381: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed: '||WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed);
18382: --WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol: '||p_rule_override_deconsol);
18383: END IF;
18384:
18385: -- Loop through deliveries to set deconsol location for each delivery
18378:
18379: IF l_debug_on THEN
18380: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info.COUNT: '||p_delivery_info.COUNT);
18381: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed: '||WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed);
18382: --WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol: '||p_rule_override_deconsol);
18383: END IF;
18384:
18385: -- Loop through deliveries to set deconsol location for each delivery
18386:
18393: IF p_delivery_info(rec_cnt).shipping_control = 'SUPPLIER' THEN
18394: GOTO del_nextpass;
18395: END IF;
18396: IF l_debug_on THEN
18397: WSH_DEBUG_SV.logmsg(l_module_name,'p_delivery_info(rec_cnt).delivery_id : '||p_delivery_info(rec_cnt).delivery_id);
18398: END IF;
18399:
18400: IF p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NULL THEN
18401: --{
18399:
18400: IF p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NULL THEN
18401: --{
18402: IF l_debug_on THEN
18403: WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NULL');
18404: END IF;
18405: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
18406: IF l_debug_on THEN
18407: wsh_debug_sv.pop (l_module_name);
18403: WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NULL');
18404: END IF;
18405: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
18406: IF l_debug_on THEN
18407: wsh_debug_sv.pop (l_module_name);
18408: END IF;
18409: return;
18410: --}
18411: ELSIF p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NOT NULL THEN
18411: ELSIF p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NOT NULL THEN
18412: --{
18413:
18414: IF l_debug_on THEN
18415: WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol = TRUE AND p_rule_deconsol_location IS NOT NULL');
18416: END IF;
18417:
18418: IF WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed = 'Y' THEN
18419: --{
18425: x_validate_result => l_validate_result,
18426: x_return_status => l_return_status);
18427:
18428: IF l_debug_on THEN
18429: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS l_validate_result : '||l_validate_result);
18430: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS l_return_status : '||l_return_status);
18431: END IF;
18432:
18433: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
18426: x_return_status => l_return_status);
18427:
18428: IF l_debug_on THEN
18429: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS l_validate_result : '||l_validate_result);
18430: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS l_return_status : '||l_return_status);
18431: END IF;
18432:
18433: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
18434: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18446: END IF;
18447: END IF;
18448:
18449: IF l_debug_on THEN
18450: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18451: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18452: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18453: END IF;
18454:
18447: END IF;
18448:
18449: IF l_debug_on THEN
18450: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18451: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18452: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18453: END IF;
18454:
18455: GOTO del_nextpass;
18448:
18449: IF l_debug_on THEN
18450: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18451: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18452: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18453: END IF;
18454:
18455: GOTO del_nextpass;
18456: --}
18463: x_output_id_tab(rec_cnt).validation_status := l_success;
18464: p_delivery_info(rec_cnt).intmed_ship_to_location_id := p_rule_deconsol_location;
18465:
18466: IF l_debug_on THEN
18467: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18468: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18469: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18470: END IF;
18471: --}
18464: p_delivery_info(rec_cnt).intmed_ship_to_location_id := p_rule_deconsol_location;
18465:
18466: IF l_debug_on THEN
18467: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18468: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18469: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18470: END IF;
18471: --}
18472: END IF;
18465:
18466: IF l_debug_on THEN
18467: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18468: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18469: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18470: END IF;
18471: --}
18472: END IF;
18473: GOTO del_nextpass;
18474: --}
18475: ELSIF p_rule_override_deconsol = FALSE THEN
18476: --{
18477: IF l_debug_on THEN
18478: WSH_DEBUG_SV.logmsg(l_module_name,'p_rule_override_deconsol IS FALSE');
18479: END IF;
18480: l_intermed_ship_to_loc_id := p_delivery_info(rec_cnt).intmed_ship_to_location_id;
18481:
18482: IF WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed = 'Y' THEN
18483: --{
18484: IF l_intermed_ship_to_loc_id IS NOT NULL THEN
18485: --{
18486: IF l_debug_on THEN
18487: WSH_DEBUG_SV.logmsg(l_module_name,'l_intermed_ship_to_loc_id: '|| l_intermed_ship_to_loc_id);
18488: END IF;
18489:
18490: VALIDATE_EXCLUSIVE_CONSTRAINTS(p_delivery_rec => p_delivery_info(rec_cnt),
18491: p_rule_deconsol_location => l_intermed_ship_to_loc_id,
18492: x_validate_result => l_validate_result,
18493: x_return_status => l_return_status);
18494:
18495: IF l_debug_on THEN
18496: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS_validate_result : '||l_validate_result);
18497: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS_return_status : '||l_return_status);
18498: END IF;
18499:
18500: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
18493: x_return_status => l_return_status);
18494:
18495: IF l_debug_on THEN
18496: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS_validate_result : '||l_validate_result);
18497: WSH_DEBUG_SV.logmsg(l_module_name,'VALIDATE_EXCLUSIVE_CONSTRAINTS_return_status : '||l_return_status);
18498: END IF;
18499:
18500: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR OR l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
18501: raise FND_API.G_EXC_UNEXPECTED_ERROR;
18512: p_delivery_info(rec_cnt).intmed_ship_to_location_id := NULL;
18513: END IF;
18514:
18515: IF l_debug_on THEN
18516: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18517: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18518: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18519: END IF;
18520:
18513: END IF;
18514:
18515: IF l_debug_on THEN
18516: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18517: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18518: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18519: END IF;
18520:
18521: GOTO del_nextpass;
18514:
18515: IF l_debug_on THEN
18516: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18517: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18518: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18519: END IF;
18520:
18521: GOTO del_nextpass;
18522: END IF;
18527: -- intermediate location for delivery is NULL, get intermediate location from
18528: -- must use constraints defined for the location
18529:
18530: IF l_debug_on THEN
18531: WSH_DEBUG_SV.logmsg(l_module_name,'l_intermed_ship_to_loc_id IS NULL ');
18532: END IF;
18533:
18534: get_must_use_facility(p_delivery_rec => p_delivery_info(rec_cnt),
18535: x_deconsol_location => l_rule_deconsol_location,
18563: p_delivery_info(rec_cnt).intmed_ship_to_location_id := NULL;
18564: END IF;
18565:
18566: IF l_debug_on THEN
18567: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18568: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18569: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18570: END IF;
18571:
18564: END IF;
18565:
18566: IF l_debug_on THEN
18567: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18568: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18569: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18570: END IF;
18571:
18572: GOTO del_nextpass;
18565:
18566: IF l_debug_on THEN
18567: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18568: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18569: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18570: END IF;
18571:
18572: GOTO del_nextpass;
18573: END IF;
18577: -- Must use location not found from inclusive constraints.
18578: -- obtain deconsol location specified through Regions and Zones Form
18579:
18580: IF l_debug_on THEN
18581: 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);
18582: END IF;
18583:
18584: WSH_REGIONS_SEARCH_PKG.get_all_region_deconsols
18585: ( p_location_id => p_delivery_info(rec_cnt).ULTIMATE_DROPOFF_LOCATION_ID,
18632: p_delivery_info(rec_cnt).intmed_ship_to_location_id := NULL;
18633: END IF;
18634:
18635: IF l_debug_on THEN
18636: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18637: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18638: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18639: END IF;
18640:
18633: END IF;
18634:
18635: IF l_debug_on THEN
18636: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18637: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18638: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18639: END IF;
18640:
18641: GOTO del_nextpass;
18634:
18635: IF l_debug_on THEN
18636: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18637: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18638: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18639: END IF;
18640:
18641: GOTO del_nextpass;
18642: END IF;
18655: -- if not found, use supplied value
18656: --{
18657:
18658: IF l_debug_on THEN
18659: WSH_DEBUG_SV.logmsg(l_module_name,'FTE installation status: '|| WSH_FTE_CONSTRAINT_FRAMEWORK.g_is_fte_installed);
18660: END IF;
18661: -- AG if intmed_shipto of the delivery is NOT NULL return that
18662: -- else do the following
18663:
18702: x_output_id_tab(rec_cnt).validation_status := l_success;
18703: p_delivery_info(rec_cnt).intmed_ship_to_location_id := l_rule_deconsol_location;
18704:
18705: IF l_debug_on THEN
18706: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18707: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18708: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18709: END IF;
18710: ELSE
18703: p_delivery_info(rec_cnt).intmed_ship_to_location_id := l_rule_deconsol_location;
18704:
18705: IF l_debug_on THEN
18706: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18707: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18708: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18709: END IF;
18710: ELSE
18711: x_output_id_tab(rec_cnt).deconsol_location := NULL;
18704:
18705: IF l_debug_on THEN
18706: WSH_DEBUG_SV.logmsg(l_module_name,'deconsol_location: '||x_output_id_tab(rec_cnt).deconsol_location);
18707: WSH_DEBUG_SV.logmsg(l_module_name,'entity_id: '||x_output_id_tab(rec_cnt).entity_id);
18708: WSH_DEBUG_SV.logmsg(l_module_name,'validation_status: '||x_output_id_tab(rec_cnt).validation_status);
18709: END IF;
18710: ELSE
18711: x_output_id_tab(rec_cnt).deconsol_location := NULL;
18712: x_output_id_tab(rec_cnt).entity_id := p_delivery_info(rec_cnt).delivery_id;
18735: p_data => l_msg_data ,
18736: p_encoded => FND_API.G_FALSE );
18737:
18738: IF l_debug_on THEN
18739: wsh_debug_sv.log (l_module_name,'No. of messages already in stack : ',to_char(l_msg_count));
18740: WSH_DEBUG_SV.pop(l_module_name);
18741: END IF;
18742:
18743: EXCEPTION
18736: p_encoded => FND_API.G_FALSE );
18737:
18738: IF l_debug_on THEN
18739: wsh_debug_sv.log (l_module_name,'No. of messages already in stack : ',to_char(l_msg_count));
18740: WSH_DEBUG_SV.pop(l_module_name);
18741: END IF;
18742:
18743: EXCEPTION
18744:
18745: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
18746: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18747: --
18748: IF l_debug_on THEN
18749: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18750: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18751: END IF;
18752:
18753: WHEN OTHERS THEN
18746: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18747: --
18748: IF l_debug_on THEN
18749: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18750: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18751: END IF;
18752:
18753: WHEN OTHERS THEN
18754: IF c_gettrip%ISOPEN THEN
18760: WSH_UTIL_CORE.default_handler('WSH_FTE_CONSTRAINT_FRAMEWORK.validate_constraint_deconsol');
18761: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18762: --
18763: IF l_debug_on THEN
18764: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18765: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18766: END IF;
18767:
18768: END validate_constraint_deconsol;
18761: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
18762: --
18763: IF l_debug_on THEN
18764: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
18765: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
18766: END IF;
18767:
18768: END validate_constraint_deconsol;
18769: