[Home] [Help]
11: G_DEF_CONT_INFO_EXT_TAB cont_def_info_tab_type;
12: G_IGNORE_PLAN_TAB ignore_plan_tab_type;
13:
14: -- LPN CONV. rv
15: g_orgn_id_tbl WSH_UTIL_CORE.char500_tab_type;
16: g_orgn_id_ext_tbl WSH_UTIL_CORE.char500_tab_type;
17: g_organization_id NUMBER;
18: g_is_wms_org VARCHAR2(1);
19:
12: G_IGNORE_PLAN_TAB ignore_plan_tab_type;
13:
14: -- LPN CONV. rv
15: g_orgn_id_tbl WSH_UTIL_CORE.char500_tab_type;
16: g_orgn_id_ext_tbl WSH_UTIL_CORE.char500_tab_type;
17: g_organization_id NUMBER;
18: g_is_wms_org VARCHAR2(1);
19:
20: -- LPN CONV. rv
98: l_generic_tab Generic_Cache_Tab_Typ;
99:
100: BEGIN
101:
102: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
103: l_hash_exists := FALSE;
104: l_generic_tab := p_generic_tab;
105: -- need to hash this index
106: -- Key (for hash) : param1+param2+param3
218: WSH_DEBUG_SV.log(l_module_name,'P_ORG_ID',P_ORG_ID);
219: WSH_DEBUG_SV.log(l_module_name,'P_ORG_CODE',P_ORG_CODE);
220: END IF;
221: --
222: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
223: l_failed := FALSE;
224:
225: IF p_org_id <> FND_API.G_MISS_NUM THEN
226: OPEN check_org_id;
234: CLOSE check_org_code;
235: END IF;
236: --
237: IF l_failed THEN
238: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
239: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ORG');
240: wsh_util_core.add_message(x_return_status,l_module_name);
241: END IF;
242: --
236: --
237: IF l_failed THEN
238: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
239: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ORG');
240: wsh_util_core.add_message(x_return_status,l_module_name);
241: END IF;
242: --
243: IF l_debug_on THEN
244: WSH_DEBUG_SV.log(l_module_name,'p_org_id',p_org_id);
246: END IF;
247: --
248: EXCEPTION
249: WHEN OTHERS THEN
250: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
251: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_ORG');
252: IF check_org_id%ISOPEN THEN
253: CLOSE check_org_id;
254: END IF;
247: --
248: EXCEPTION
249: WHEN OTHERS THEN
250: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
251: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_ORG');
252: IF check_org_id%ISOPEN THEN
253: CLOSE check_org_id;
254: END IF;
255: IF check_org_code%ISOPEN THEN
323: WSH_DEBUG_SV.log(l_module_name,'p_isWshLocation',p_isWshLocation);
324: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
325: END IF;
326: --
327: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
328: IF p_isWshLocation THEN
329: l_source_loc_type := 'WSH';
330: ELSE
331: l_source_loc_type := 'HR_HZ';
352: IF l_debug_on THEN
353: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
354: END IF;
355:
356: wsh_util_core.api_post_call(
357: p_return_status => l_return_status,
358: x_num_warnings => l_num_warnings,
359: x_num_errors => l_num_errors);
360: IF l_loc_rec.wsh_location_id IS NULL THEN
438: IF l_debug_on THEN
439: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
440: END IF;
441:
442: wsh_util_core.api_post_call(
443: p_return_status => l_return_status,
444: x_num_warnings => l_num_warnings,
445: x_num_errors => l_num_errors);
446:
452: ELSE
453: IF l_debug_on THEN
454: WSH_DEBUG_SV.log(l_module_name,'Both parameters are null');
455: END IF;
456: --x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
457: --bug 2648157
458: END IF;
459:
460: --
466: EXCEPTION
467:
468: WHEN FND_API.G_EXC_ERROR THEN
469: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOCATION');
470: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
471: wsh_util_core.add_message(x_return_status,l_module_name);
472: IF l_debug_on THEN
473: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_ERROR');
474: END IF;
467:
468: WHEN FND_API.G_EXC_ERROR THEN
469: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOCATION');
470: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
471: wsh_util_core.add_message(x_return_status,l_module_name);
472: IF l_debug_on THEN
473: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_ERROR');
474: END IF;
475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
473: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_ERROR');
474: END IF;
475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
476: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOCATION');
477: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
478: wsh_util_core.add_message(x_return_status,l_module_name);
479: IF l_debug_on THEN
480: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_UNEXPECTED_ERROR');
481: END IF;
474: END IF;
475: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
476: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOCATION');
477: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
478: wsh_util_core.add_message(x_return_status,l_module_name);
479: IF l_debug_on THEN
480: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_UNEXPECTED_ERROR');
481: END IF;
482: WHEN OTHERS THEN
479: IF l_debug_on THEN
480: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_UNEXPECTED_ERROR');
481: END IF;
482: WHEN OTHERS THEN
483: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
484: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_LOCATION');
485: --
486: IF l_debug_on THEN
487: WSH_DEBUG_SV.log(l_module_name,'ERROR:',SUBSTR(SQLERRM,1,200));
480: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_UNEXPECTED_ERROR');
481: END IF;
482: WHEN OTHERS THEN
483: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
484: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_LOCATION');
485: --
486: IF l_debug_on THEN
487: WSH_DEBUG_SV.log(l_module_name,'ERROR:',SUBSTR(SQLERRM,1,200));
488: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
549: WSH_DEBUG_SV.log(l_module_name,'P_LOOKUP_CODE',P_LOOKUP_CODE);
550: WSH_DEBUG_SV.log(l_module_name,'P_MEANING',P_MEANING);
551: END IF;
552: --
553: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
554:
555: IF (p_lookup_code IS NOT NULL) OR (p_meaning IS NOT NULL) THEN
556: -- Bug 3821688
557: l_cache_rec.input_param1 := p_lookup_code;
600: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MODE_OF_TRANSPORT');
601: ELSE
602: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOOKUP');
603: END IF;
604: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
605: wsh_util_core.add_message(x_return_status,l_module_name);
606: END IF;
607: -- Always Populate return variables
608: p_lookup_code := g_lookup_tab(l_index).output_param1;
601: ELSE
602: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOOKUP');
603: END IF;
604: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
605: wsh_util_core.add_message(x_return_status,l_module_name);
606: END IF;
607: -- Always Populate return variables
608: p_lookup_code := g_lookup_tab(l_index).output_param1;
609: -- End of Bug 3821688
666: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
667: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_NUMBER',P_CUSTOMER_NUMBER);
668: END IF;
669: --
670: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
671:
672: IF nvl(p_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
673: OR nvl(p_customer_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
674: THEN
678:
679: IF (check_customer%NOTFOUND) THEN
680:
681: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_CUSTOMER');
682: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
683: wsh_util_core.add_message(x_return_status,l_module_name);
684:
685: END IF;
686:
679: IF (check_customer%NOTFOUND) THEN
680:
681: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_CUSTOMER');
682: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
683: wsh_util_core.add_message(x_return_status,l_module_name);
684:
685: END IF;
686:
687: CLOSE check_customer;
733: --
734: WSH_DEBUG_SV.log(l_module_name,'P_CONTACT_ID',P_CONTACT_ID);
735: END IF;
736: --
737: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
738:
739: IF (p_contact_id IS NOT NULL) THEN
740:
741: OPEN check_contact;
743:
744: IF (check_contact%NOTFOUND) THEN
745:
746: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_CONTACT');
747: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
748: wsh_util_core.add_message(x_return_status,l_module_name);
749:
750: END IF;
751:
744: IF (check_contact%NOTFOUND) THEN
745:
746: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_CONTACT');
747: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
748: wsh_util_core.add_message(x_return_status,l_module_name);
749:
750: END IF;
751:
752: CLOSE check_contact;
792: --
793: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
794: END IF;
795: --
796: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
797:
798: IF (p_quantity IS NOT NULL) THEN
799:
800: IF (p_quantity < 0) OR (p_quantity <> trunc(p_quantity)) THEN
800: IF (p_quantity < 0) OR (p_quantity <> trunc(p_quantity)) THEN
801:
802: FND_MESSAGE.SET_NAME('WSH','WSH_QUANTITY_NOT_WHOLE');
803: FND_MESSAGE.SET_TOKEN('QTY',p_quantity);
804: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
805: wsh_util_core.add_message(x_return_status,l_module_name);
806:
807: END IF;
808:
801:
802: FND_MESSAGE.SET_NAME('WSH','WSH_QUANTITY_NOT_WHOLE');
803: FND_MESSAGE.SET_TOKEN('QTY',p_quantity);
804: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
805: wsh_util_core.add_message(x_return_status,l_module_name);
806:
807: END IF;
808:
809: END IF;
845: --
846: WSH_DEBUG_SV.log(l_module_name,'P_VALUE',P_VALUE);
847: END IF;
848: --
849: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
850:
851: IF (p_value IS NOT NULL) THEN
852:
853: IF (p_value < 0) THEN
852:
853: IF (p_value < 0) THEN
854:
855: FND_MESSAGE.SET_NAME('WSH','WSH_VALUE_NEGATIVE');
856: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
857: wsh_util_core.add_message(x_return_status,l_module_name);
858:
859: END IF;
860:
853: IF (p_value < 0) THEN
854:
855: FND_MESSAGE.SET_NAME('WSH','WSH_VALUE_NEGATIVE');
856: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
857: wsh_util_core.add_message(x_return_status,l_module_name);
858:
859: END IF;
860:
861: END IF;
900: --
901: WSH_DEBUG_SV.log(l_module_name,'P_VALUE',P_VALUE);
902: END IF;
903: --
904: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
905:
906: IF (p_value IS NOT NULL) THEN
907:
908: IF (p_value < 0) THEN
908: IF (p_value < 0) THEN
909:
910: FND_MESSAGE.SET_NAME('WSH','WSH_VALUE_NEGATIVE');
911: FND_MESSAGE.SET_TOKEN('FIELD_NAME',p_field_name);
912: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
913: wsh_util_core.add_message(x_return_status,l_module_name);
914:
915: END IF;
916:
909:
910: FND_MESSAGE.SET_NAME('WSH','WSH_VALUE_NEGATIVE');
911: FND_MESSAGE.SET_TOKEN('FIELD_NAME',p_field_name);
912: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
913: wsh_util_core.add_message(x_return_status,l_module_name);
914:
915: END IF;
916:
917: END IF;
985: WSH_DEBUG_SV.log(l_module_name,'P_AMOUNT',P_AMOUNT);
986: WSH_DEBUG_SV.log(l_module_name,'P_OTM_ENABLED',P_OTM_ENABLED); -- OTM R12
987: END IF;
988: --
989: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
990:
991: IF nvl(p_currency_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
992: OR nvl(p_currency_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
993: THEN
1022:
1023: x_adjusted_amount := p_amount;
1024:
1025: IF l_in_precision > l_precision THEN
1026: --IF WSH_UTIL_CORE.GC3_IS_INSTALLED = 'Y' THEN
1027: -- OTM R12
1028: IF p_otm_enabled = 'Y' THEN
1029: -- truncate the amount to the precision specified in setup
1030: x_adjusted_amount := ROUND(p_amount,l_precision);
1035: -- existing code
1036: error_code := 'CURR-Precision';
1037: FND_MESSAGE.SET_NAME('FND', error_code);
1038: FND_MESSAGE.SET_TOKEN('PRECISON',TO_CHAR(l_precision));
1039: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1040: wsh_util_core.add_message(x_return_status,l_module_name);
1041: END IF;
1042: END IF;
1043:
1036: error_code := 'CURR-Precision';
1037: FND_MESSAGE.SET_NAME('FND', error_code);
1038: FND_MESSAGE.SET_TOKEN('PRECISON',TO_CHAR(l_precision));
1039: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1040: wsh_util_core.add_message(x_return_status,l_module_name);
1041: END IF;
1042: END IF;
1043:
1044: -- OTM R12
1054: --
1055: EXCEPTION
1056: -- OTM R12
1057: WHEN l_invalid_currency THEN
1058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1059: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
1060: IF l_debug_on THEN
1061: WSH_DEBUG_SV.logmsg(l_module_name,'Invalid or NULL currency exception ');
1062: WSH_DEBUG_SV.pop(l_module_name);
1055: EXCEPTION
1056: -- OTM R12
1057: WHEN l_invalid_currency THEN
1058: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1059: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
1060: IF l_debug_on THEN
1061: WSH_DEBUG_SV.logmsg(l_module_name,'Invalid or NULL currency exception ');
1062: WSH_DEBUG_SV.pop(l_module_name);
1063: END IF;
1064: WHEN OTHERS THEN
1065: IF currency_cursor%ISOPEN THEN
1066: CLOSE currency_cursor;
1067: END IF;
1068: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1069: WSH_UTIL_CORE.default_handler('WSH_UTIL_VALIDATE.Validate_Currency');
1070: IF l_debug_on THEN
1071: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1072: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1065: IF currency_cursor%ISOPEN THEN
1066: CLOSE currency_cursor;
1067: END IF;
1068: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1069: WSH_UTIL_CORE.default_handler('WSH_UTIL_VALIDATE.Validate_Currency');
1070: IF l_debug_on THEN
1071: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1072: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1073: END IF;
1149: WSH_DEBUG_SV.log(l_module_name,'P_UOM_CODE',P_UOM_CODE);
1150: WSH_DEBUG_SV.log(l_module_name,'P_UOM_DESC',P_UOM_DESC);
1151: END IF;
1152: --
1153: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1154:
1155: IF nvl(p_uom_code, fnd_api.g_miss_char) = fnd_api.g_miss_char
1156: AND nvl(p_uom_desc, fnd_api.g_miss_char) = fnd_api.g_miss_char
1157: THEN
1186: END IF;
1187: -- Always check if input is valid or not
1188: IF g_org_uom_class_tab(l_index).valid_flag = 'N' THEN
1189: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ORG');
1190: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1191: wsh_util_core.add_message(x_return_status,l_module_name);
1192: RETURN;
1193: END IF;
1194: -- Always Populate return variables
1187: -- Always check if input is valid or not
1188: IF g_org_uom_class_tab(l_index).valid_flag = 'N' THEN
1189: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ORG');
1190: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1191: wsh_util_core.add_message(x_return_status,l_module_name);
1192: RETURN;
1193: END IF;
1194: -- Always Populate return variables
1195: l_weight_uom_class := g_org_uom_class_tab(l_index).output_param2;
1245: END IF;
1246: -- Always check if input is valid or not
1247: IF g_uom_tab(l_uom_index).valid_flag = 'N' THEN
1248: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_UOM');
1249: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1250: wsh_util_core.add_message(x_return_status,l_module_name);
1251: END IF;
1252: -- Always Populate return variables
1253: p_uom_code := g_uom_tab(l_uom_index).output_param2;
1246: -- Always check if input is valid or not
1247: IF g_uom_tab(l_uom_index).valid_flag = 'N' THEN
1248: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_UOM');
1249: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1250: wsh_util_core.add_message(x_return_status,l_module_name);
1251: END IF;
1252: -- Always Populate return variables
1253: p_uom_code := g_uom_tab(l_uom_index).output_param2;
1254:
1252: -- Always Populate return variables
1253: p_uom_code := g_uom_tab(l_uom_index).output_param2;
1254:
1255: ELSE
1256: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1257: --
1258: IF l_debug_on THEN
1259: WSH_DEBUG_SV.pop(l_module_name,x_return_status);
1260: END IF;
1319: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
1320: WSH_DEBUG_SV.log(l_module_name,'P_USER_NAME',P_USER_NAME);
1321: END IF;
1322: --
1323: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1324:
1325: IF (p_user_id IS NOT NULL) OR (p_user_name IS NOT NULL) THEN
1326:
1327: OPEN check_user;
1329:
1330: IF (check_user%NOTFOUND) THEN
1331:
1332: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_USER');
1333: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1334: wsh_util_core.add_message(x_return_status,l_module_name);
1335:
1336: END IF;
1337:
1330: IF (check_user%NOTFOUND) THEN
1331:
1332: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_USER');
1333: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1334: wsh_util_core.add_message(x_return_status,l_module_name);
1335:
1336: END IF;
1337:
1338: CLOSE check_user;
1400: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',P_SHIP_METHOD_CODE);
1401: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_NAME',P_SHIP_METHOD_NAME);
1402: END IF;
1403: --
1404: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1405: --
1406: IF nvl(p_ship_method_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1407: OR nvl(p_ship_method_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1408: THEN
1455:
1456: -- Always check if input is valid or not
1457: IF g_ship_method_tab(l_index).valid_flag = 'N' THEN
1458: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
1459: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1460: wsh_util_core.add_message(x_return_status,l_module_name);
1461: END IF;
1462:
1463: -- Always Populate return variables
1456: -- Always check if input is valid or not
1457: IF g_ship_method_tab(l_index).valid_flag = 'N' THEN
1458: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
1459: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1460: wsh_util_core.add_message(x_return_status,l_module_name);
1461: END IF;
1462:
1463: -- Always Populate return variables
1464: p_ship_method_code := g_ship_method_tab(l_index).output_param1;
1474: END IF;
1475: --
1476: EXCEPTION
1477: WHEN OTHERS THEN
1478: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1479: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Ship_Method');
1480: IF l_debug_on THEN
1481: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1482: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1475: --
1476: EXCEPTION
1477: WHEN OTHERS THEN
1478: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1479: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Ship_Method');
1480: IF l_debug_on THEN
1481: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1482: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1483: END IF;
1516: WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_TERMS_CODE',P_FREIGHT_TERMS_CODE);
1517: WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_TERMS_NAME',P_FREIGHT_TERMS_NAME);
1518: END IF;
1519: --
1520: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1521:
1522:
1523: IF nvl(p_freight_terms_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1524: OR nvl(p_freight_terms_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1530: p_meaning => p_freight_terms_name,
1531: x_return_status => x_return_status);
1532: END IF;
1533:
1534: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1535:
1536: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FREIGHT_TERMS');
1537: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1538: wsh_util_core.add_message(x_return_status,l_module_name);
1533:
1534: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1535:
1536: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FREIGHT_TERMS');
1537: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1538: wsh_util_core.add_message(x_return_status,l_module_name);
1539:
1540: END IF;
1541: --
1534: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1535:
1536: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FREIGHT_TERMS');
1537: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1538: wsh_util_core.add_message(x_return_status,l_module_name);
1539:
1540: END IF;
1541: --
1542: IF l_debug_on THEN
1577: WSH_DEBUG_SV.log(l_module_name,'P_FOB_CODE',P_FOB_CODE);
1578: WSH_DEBUG_SV.log(l_module_name,'P_FOB_NAME',P_FOB_NAME);
1579: END IF;
1580: --
1581: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1582:
1583: IF nvl(p_fob_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1584: OR nvl(p_fob_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1585: THEN
1589: p_meaning => p_fob_name,
1590: x_return_status => x_return_status);
1591: END IF;
1592:
1593: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1594:
1595: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FOB');
1596: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1597: wsh_util_core.add_message(x_return_status,l_module_name);
1592:
1593: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1594:
1595: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FOB');
1596: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1597: wsh_util_core.add_message(x_return_status,l_module_name);
1598:
1599: END IF;
1600: --
1593: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1594:
1595: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FOB');
1596: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1597: wsh_util_core.add_message(x_return_status,l_module_name);
1598:
1599: END IF;
1600: --
1601: IF l_debug_on THEN
1789: --
1790: EXCEPTION
1791: WHEN delimiter_null THEN
1792: FND_MESSAGE.SET_NAME('WSH','WSH_OI_FLEX_DELIMITER_NULL');
1793: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1794: --
1795: IF l_debug_on THEN
1796: WSH_DEBUG_SV.logmsg(l_module_name,'DELIMITER_NULL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1797: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIMITER_NULL');
1798: END IF;
1799: --
1800: WHEN wrong_combination THEN
1801: FND_MESSAGE.SET_NAME('WSH','WSH_OI_FLEX_INV_COMB_ERROR');
1802: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1803: --
1804: IF l_debug_on THEN
1805: WSH_DEBUG_SV.logmsg(l_module_name,'WRONG_COMBINATION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1806: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WRONG_COMBINATION');
1858: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM',P_INVENTORY_ITEM);
1859: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
1860: END IF;
1861: --
1862: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1863:
1864: IF nvl(p_inventory_item_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1865: AND nvl(p_inventory_item, fnd_api.g_miss_char) = fnd_api.g_miss_char
1866: AND p_seg_array.count = 0
1885:
1886: IF valid_flag = FALSE THEN
1887:
1888: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ITEM');
1889: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1890: wsh_util_core.add_message(x_return_status,l_module_name);
1891: IF l_debug_on THEN
1892: WSH_DEBUG_SV.pop(l_module_name);
1893: END IF;
1886: IF valid_flag = FALSE THEN
1887:
1888: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ITEM');
1889: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1890: wsh_util_core.add_message(x_return_status,l_module_name);
1891: IF l_debug_on THEN
1892: WSH_DEBUG_SV.pop(l_module_name);
1893: END IF;
1894: RETURN;
1904: x_return_status => l_return_status);
1905:
1906: IF nvl(l_item_type, FND_API.G_MISS_CHAR) <> p_item_type THEN
1907: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ITEM');
1908: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1909: wsh_util_core.add_message(x_return_status,l_module_name);
1910: END IF;
1911: END IF;
1912: -- harmonization project end KVENKATE
1905:
1906: IF nvl(l_item_type, FND_API.G_MISS_CHAR) <> p_item_type THEN
1907: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ITEM');
1908: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1909: wsh_util_core.add_message(x_return_status,l_module_name);
1910: END IF;
1911: END IF;
1912: -- harmonization project end KVENKATE
1913: IF l_debug_on THEN
1941: --
1942: WSH_DEBUG_SV.log(l_module_name,'P_FLAG',P_FLAG);
1943: END IF;
1944: --
1945: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1946:
1947: IF (NVL(p_flag, 'N') NOT IN ('Y', 'N')) THEN
1948: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1949: END IF;
1944: --
1945: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1946:
1947: IF (NVL(p_flag, 'N') NOT IN ('Y', 'N')) THEN
1948: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1949: END IF;
1950: --
1951: IF l_debug_on THEN
1952: WSH_DEBUG_SV.pop(l_module_name);
1978: --
1979: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
1980: END IF;
1981: --
1982: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1983:
1984: IF (NVL(p_released_status, 'N') NOT IN ('N', 'Y', 'R', 'X')) THEN
1985: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1986: END IF;
1981: --
1982: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1983:
1984: IF (NVL(p_released_status, 'N') NOT IN ('N', 'Y', 'R', 'X')) THEN
1985: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1986: END IF;
1987: --
1988: IF l_debug_on THEN
1989: WSH_DEBUG_SV.pop(l_module_name);
2033: WSH_DEBUG_SV.log(l_module_name,'P_UNIT_OF_MEASURE',P_UNIT_OF_MEASURE);
2034: WSH_DEBUG_SV.log(l_module_name,'X_UOM_CODE',X_UOM_CODE);
2035: END IF;
2036: --
2037: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2038:
2039: IF (p_unit_of_measure IS NOT NULL OR x_uom_code IS NOT NULL) THEN
2040: OPEN check_order_uom;
2041: FETCH check_order_uom INTO x_uom_code;
2043: IF (check_order_uom%NOTFOUND) THEN
2044:
2045: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_UOM');
2046: FND_MESSAGE.SET_TOKEN('UOM_TYPE','ordered quantity uom');
2047: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2048: wsh_util_core.add_message(x_return_status,l_module_name);
2049:
2050: END IF;
2051: CLOSE check_order_uom;
2044:
2045: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_UOM');
2046: FND_MESSAGE.SET_TOKEN('UOM_TYPE','ordered quantity uom');
2047: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2048: wsh_util_core.add_message(x_return_status,l_module_name);
2049:
2050: END IF;
2051: CLOSE check_order_uom;
2052:
2108: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2109: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_NAME',P_DELIVERY_NAME);
2110: END IF;
2111: --
2112: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2113:
2114: IF (p_delivery_id IS NOT NULL) OR (p_delivery_name IS NOT NULL) THEN
2115:
2116: OPEN check_delivery_name;
2118:
2119: IF (check_delivery_name%NOTFOUND) THEN
2120:
2121: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_DEL_NAME');
2122: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2123: wsh_util_core.add_message(x_return_status,l_module_name);
2124:
2125: END IF;
2126:
2119: IF (check_delivery_name%NOTFOUND) THEN
2120:
2121: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_DEL_NAME');
2122: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2123: wsh_util_core.add_message(x_return_status,l_module_name);
2124:
2125: END IF;
2126:
2127: CLOSE check_delivery_name;
2187: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
2188: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_NAME',P_REPORT_SET_NAME);
2189: END IF;
2190: --
2191: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2192:
2193: IF (p_report_set_id IS NOT NULL) OR (p_report_set_name IS NOT NULL) THEN
2194:
2195: OPEN check_report_set;
2197:
2198: IF (check_report_set%NOTFOUND) THEN
2199:
2200: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_REPORT_SET');
2201: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2202: wsh_util_core.add_message(x_return_status,l_module_name);
2203:
2204: END IF;
2205:
2198: IF (check_report_set%NOTFOUND) THEN
2199:
2200: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_REPORT_SET');
2201: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2202: wsh_util_core.add_message(x_return_status,l_module_name);
2203:
2204: END IF;
2205:
2206: CLOSE check_report_set;
2248: WSH_DEBUG_SV.log(l_module_name,'P_LOADING_ORDER_FLAG',P_LOADING_ORDER_FLAG);
2249: WSH_DEBUG_SV.log(l_module_name,'P_LOADING_ORDER_DESC',P_LOADING_ORDER_DESC);
2250: END IF;
2251: --
2252: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2253: IF nvl(p_loading_order_flag,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
2254: OR nvl(p_loading_order_desc,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
2255: THEN
2256: --
2266: p_loading_order_flag := 'RI';
2267: ELSE
2268: --
2269: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOADING_ORDER');
2270: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2271: wsh_util_core.add_message(x_return_status,l_module_name);
2272: --
2273: END IF;
2274: --
2267: ELSE
2268: --
2269: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOADING_ORDER');
2270: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2271: wsh_util_core.add_message(x_return_status,l_module_name);
2272: --
2273: END IF;
2274: --
2275: ELSIF p_loading_order_flag NOT IN ('F','FI', 'R','RI') THEN
2274: --
2275: ELSIF p_loading_order_flag NOT IN ('F','FI', 'R','RI') THEN
2276: --
2277: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOADING_ORDER');
2278: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2279: wsh_util_core.add_message(x_return_status,l_module_name);
2280: --
2281: END IF;
2282: --
2275: ELSIF p_loading_order_flag NOT IN ('F','FI', 'R','RI') THEN
2276: --
2277: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOADING_ORDER');
2278: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2279: wsh_util_core.add_message(x_return_status,l_module_name);
2280: --
2281: END IF;
2282: --
2283: END IF;
2287: END IF;
2288: --
2289: EXCEPTION
2290: WHEN OTHERS THEN
2291: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2292: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_LOADING_ORDER');
2293: --
2294: IF l_debug_on THEN
2295: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2288: --
2289: EXCEPTION
2290: WHEN OTHERS THEN
2291: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2292: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_LOADING_ORDER');
2293: --
2294: IF l_debug_on THEN
2295: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2296: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2353: WSH_DEBUG_SV.log(l_module_name,'P_STOP_LOCATION_ID',P_STOP_LOCATION_ID);
2354: WSH_DEBUG_SV.log(l_module_name,'P_PLANNED_DEP_DATE',P_PLANNED_DEP_DATE);
2355: END IF;
2356: --
2357: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2358:
2359: IF (p_stop_id IS NOT NULL) OR (p_trip_id IS NOT NULL) THEN
2360:
2361: OPEN check_stop_name;
2363:
2364: IF (check_stop_name%NOTFOUND) THEN
2365:
2366: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_STOP_NAME');
2367: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2368: wsh_util_core.add_message(x_return_status,l_module_name);
2369:
2370: END IF;
2371:
2364: IF (check_stop_name%NOTFOUND) THEN
2365:
2366: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_STOP_NAME');
2367: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2368: wsh_util_core.add_message(x_return_status,l_module_name);
2369:
2370: END IF;
2371:
2372: CLOSE check_stop_name;
2428: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
2429: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_NAME',P_TRIP_NAME);
2430: END IF;
2431: --
2432: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2433:
2434: IF (p_trip_id IS NOT NULL) OR (p_trip_name IS NOT NULL) THEN
2435:
2436: OPEN check_trip_name;
2438:
2439: IF (check_trip_name%NOTFOUND) THEN
2440:
2441: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_TRIP_NAME');
2442: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2443: wsh_util_core.add_message(x_return_status,l_module_name);
2444:
2445: END IF;
2446:
2439: IF (check_trip_name%NOTFOUND) THEN
2440:
2441: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_TRIP_NAME');
2442: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2443: wsh_util_core.add_message(x_return_status,l_module_name);
2444:
2445: END IF;
2446:
2447: CLOSE check_trip_name;
2496: --
2497: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
2498: END IF;
2499: --
2500: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2501:
2502: IF ((p_trip_id IS NOT NULL) AND (p_mode_of_transport <> 'TRUCK')) THEN
2503:
2504: OPEN check_stop_count;
2508:
2509: l_trip_name := WSH_TRIPS_PVT.Get_Name(p_trip_id);
2510: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MOT_STOP_COUNT');
2511: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
2512: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2513: wsh_util_core.add_message(x_return_status,l_module_name);
2514:
2515: END IF;
2516:
2509: l_trip_name := WSH_TRIPS_PVT.Get_Name(p_trip_id);
2510: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MOT_STOP_COUNT');
2511: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
2512: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2513: wsh_util_core.add_message(x_return_status,l_module_name);
2514:
2515: END IF;
2516:
2517: CLOSE check_stop_count;
2578: --{
2579: --
2580: --
2581: IF l_debug_on THEN
2582: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE-x_dlvyTbl',WSH_DEBUG_SV.C_PROC_LEVEL);
2583: END IF;
2584: --
2585: wsh_util_core.get_cached_value
2586: (
2581: IF l_debug_on THEN
2582: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE-x_dlvyTbl',WSH_DEBUG_SV.C_PROC_LEVEL);
2583: END IF;
2584: --
2585: wsh_util_core.get_cached_value
2586: (
2587: p_cache_tbl => g_orgn_id_tbl,
2588: p_cache_ext_tbl => g_orgn_id_ext_tbl,
2589: p_value => l_return_status,
2592: x_return_status => l_proc_status
2593: );
2594: --
2595: --
2596: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2597: THEN
2598: RAISE FND_API.G_EXC_ERROR;
2599: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2600: THEN
2595: --
2596: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2597: THEN
2598: RAISE FND_API.G_EXC_ERROR;
2599: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2600: THEN
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2603: THEN
2598: RAISE FND_API.G_EXC_ERROR;
2599: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2600: THEN
2601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2602: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2603: THEN
2604: --{
2605:
2606: l_return_value := wms_install.check_install(
2609: x_msg_count => l_msg_count,
2610: x_msg_data => l_msg_data);
2611:
2612:
2613: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2614: THEN
2615: RAISE FND_API.G_EXC_ERROR;
2616: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2617: THEN
2612:
2613: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2614: THEN
2615: RAISE FND_API.G_EXC_ERROR;
2616: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2617: THEN
2618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2619: END IF;
2620:
2624: l_return_status := 'N';
2625: END IF;
2626:
2627: IF l_debug_on THEN
2628: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE-x_dlvyTbl',WSH_DEBUG_SV.C_PROC_LEVEL);
2629: END IF;
2630: --
2631: wsh_util_core.get_cached_value
2632: (
2627: IF l_debug_on THEN
2628: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE-x_dlvyTbl',WSH_DEBUG_SV.C_PROC_LEVEL);
2629: END IF;
2630: --
2631: wsh_util_core.get_cached_value
2632: (
2633: p_cache_tbl => g_orgn_id_tbl,
2634: p_cache_ext_tbl => g_orgn_id_ext_tbl,
2635: p_value => l_return_status,
2638: x_return_status => l_proc_status
2639: );
2640: --
2641: --
2642: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2643: THEN
2644: RAISE FND_API.G_EXC_ERROR;
2645: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2646: THEN
2641: --
2642: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2643: THEN
2644: RAISE FND_API.G_EXC_ERROR;
2645: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2646: THEN
2647: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2648: END IF;
2649: --
2721: WSH_DEBUG_SV.push(l_module_name);
2722: WSH_DEBUG_SV.log(l_module_name,'p_from_date',p_from_date);
2723: WSH_DEBUG_SV.log(l_module_name,'p_to_date',p_to_date);
2724: END IF;
2725: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2726:
2727: IF nvl(p_from_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
2728: OR nvl(p_to_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
2729: THEN
2727: IF nvl(p_from_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
2728: OR nvl(p_to_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
2729: THEN
2730: IF (p_from_date > p_to_date) THEN
2731: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2732: FND_MESSAGE.SET_NAME('WSH','WSH_XC_INVALID_DATE_RANGE');
2733: wsh_util_core.add_message(x_return_status,l_module_name);
2734: END IF;
2735: END IF;
2729: THEN
2730: IF (p_from_date > p_to_date) THEN
2731: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2732: FND_MESSAGE.SET_NAME('WSH','WSH_XC_INVALID_DATE_RANGE');
2733: wsh_util_core.add_message(x_return_status,l_module_name);
2734: END IF;
2735: END IF;
2736:
2737:
2740: END IF;
2741:
2742: EXCEPTION
2743: WHEN OTHERS THEN
2744: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2745: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_from_to_dates');
2746: IF l_debug_on THEN
2747: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2748: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2741:
2742: EXCEPTION
2743: WHEN OTHERS THEN
2744: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2745: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_from_to_dates');
2746: IF l_debug_on THEN
2747: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2748: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2749: END IF;
2801: WSH_DEBUG_SV.log(l_module_name,'p_trip_id',p_trip_id);
2802: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
2803: END IF;
2804:
2805: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2806:
2807: IF (p_trip_id IS NOT NULL) THEN
2808: IF p_action = 'CREATE' THEN
2809: OPEN get_trip_status_1(p_trip_id);
2815: CLOSE get_trip_status_2;
2816: END IF;
2817:
2818: IF ( nvl(l_valid_trip, FND_API.G_MISS_CHAR) <> 'X' ) THEN
2819: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2820: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_STATUS_NO_ACTION');
2821: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
2822: wsh_util_core.add_message(x_return_status,l_module_name);
2823: END IF;
2818: IF ( nvl(l_valid_trip, FND_API.G_MISS_CHAR) <> 'X' ) THEN
2819: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2820: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_STATUS_NO_ACTION');
2821: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
2822: wsh_util_core.add_message(x_return_status,l_module_name);
2823: END IF;
2824: END IF;
2825:
2826: IF l_debug_on THEN
2828: END IF;
2829:
2830: EXCEPTION
2831: WHEN OTHERS THEN
2832: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2833: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_trip_status');
2834: IF l_debug_on THEN
2835: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2836: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2829:
2830: EXCEPTION
2831: WHEN OTHERS THEN
2832: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2833: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_trip_status');
2834: IF l_debug_on THEN
2835: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2836: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2837: END IF;
2888: WSH_DEBUG_SV.log(l_module_name,'x_carrier_id', x_carrier_id);
2889: --
2890: END IF;
2891: --
2892: x_return_status := wsh_util_core.g_ret_sts_success;
2893: --
2894: IF nvl(x_carrier_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
2895: OR nvl(p_carrier_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
2896: THEN
2899: fetch l_carrier_csr into x_carrier_id;
2900: --
2901: IF l_carrier_csr%NOTFOUND THEN
2902: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_NOT_FOUND');
2903: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2904: wsh_util_core.add_message(x_return_status,l_module_name);
2905: END IF;
2906: close l_carrier_csr;
2907: --
2900: --
2901: IF l_carrier_csr%NOTFOUND THEN
2902: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_NOT_FOUND');
2903: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2904: wsh_util_core.add_message(x_return_status,l_module_name);
2905: END IF;
2906: close l_carrier_csr;
2907: --
2908: END IF;
2914: EXCEPTION
2915: --
2916: WHEN OTHERS THEN
2917: --
2918: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2919: --
2920: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_CARRIER');
2921: IF l_debug_on THEN
2922: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2916: WHEN OTHERS THEN
2917: --
2918: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2919: --
2920: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_CARRIER');
2921: IF l_debug_on THEN
2922: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2923: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2924: END IF;
3169: THEN
3170: --
3171: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_ENTITY_TYPE');
3172: FND_MESSAGE.SET_TOKEN('ENT_TYPE', p_entity_type);
3173: x_return_status := wsh_util_core.g_ret_sts_error;
3174: wsh_util_core.add_message(x_return_status,l_module_name);
3175: RAISE FND_API.G_EXC_ERROR;
3176: --
3177: END IF;
3170: --
3171: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_ENTITY_TYPE');
3172: FND_MESSAGE.SET_TOKEN('ENT_TYPE', p_entity_type);
3173: x_return_status := wsh_util_core.g_ret_sts_error;
3174: wsh_util_core.add_message(x_return_status,l_module_name);
3175: RAISE FND_API.G_EXC_ERROR;
3176: --
3177: END IF;
3178: --
3231: IF l_debug_on THEN
3232: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_ship_method',l_return_status);
3233: END IF;
3234: --
3235: WSH_UTIL_CORE.api_post_call(
3236: p_return_status => l_return_status,
3237: x_num_warnings => l_num_warnings,
3238: x_num_errors => l_num_errors);
3239: --
3245: IF l_debug_on THEN
3246: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_carrier',l_return_status);
3247: END IF;
3248: --
3249: WSH_UTIL_CORE.api_post_call(
3250: p_return_status => l_return_status,
3251: x_num_warnings => l_num_warnings,
3252: x_num_errors => l_num_errors);
3253: --
3276: IF l_debug_on THEN
3277: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_lookup for service_level',l_return_status);
3278: END IF;
3279: --
3280: WSH_UTIL_CORE.api_post_call(
3281: p_return_status => l_return_status,
3282: x_num_warnings => l_num_warnings,
3283: x_num_errors => l_num_errors);
3284: --
3297: IF l_debug_on THEN
3298: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_lookup for mode_of_transport',l_return_status);
3299: END IF;
3300: --
3301: WSH_UTIL_CORE.api_post_call(
3302: p_return_status => l_return_status,
3303: x_num_warnings => l_num_warnings,
3304: x_num_errors => l_num_errors);
3305: --
3340: AND NVL(l_service_level,fnd_api.G_MISS_CHAR) =
3341: NVL(x_service_level,fnd_api.G_MISS_CHAR)
3342: AND NVL(l_mode_of_transport,fnd_api.G_MISS_CHAR) =
3343: NVL(x_mode_of_transport,fnd_api.G_MISS_CHAR)
3344: AND (WSH_UTIL_CORE.FTE_IS_INSTALLED <> 'Y') THEN
3345: --
3346: x_return_status := wsh_util_core.g_ret_sts_success;
3347: IF l_debug_on THEN
3348: --
3342: AND NVL(l_mode_of_transport,fnd_api.G_MISS_CHAR) =
3343: NVL(x_mode_of_transport,fnd_api.G_MISS_CHAR)
3344: AND (WSH_UTIL_CORE.FTE_IS_INSTALLED <> 'Y') THEN
3345: --
3346: x_return_status := wsh_util_core.g_ret_sts_success;
3347: IF l_debug_on THEN
3348: --
3349: WSH_DEBUG_SV.logmsg(l_module_name,'FTE not installed' );
3350: WSH_DEBUG_SV.pop(l_module_name);
3367: --
3368: IF l_dlvy_ship_method_code_csr_tp%NOTFOUND THEN
3369: close l_dlvy_ship_method_code_csr_tp;
3370: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3371: x_return_status := wsh_util_core.g_ret_sts_error;
3372: wsh_util_core.add_message(x_return_status,l_module_name);
3373: RAISE FND_API.G_EXC_ERROR;
3374: END IF;
3375: --
3368: IF l_dlvy_ship_method_code_csr_tp%NOTFOUND THEN
3369: close l_dlvy_ship_method_code_csr_tp;
3370: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3371: x_return_status := wsh_util_core.g_ret_sts_error;
3372: wsh_util_core.add_message(x_return_status,l_module_name);
3373: RAISE FND_API.G_EXC_ERROR;
3374: END IF;
3375: --
3376: close l_dlvy_ship_method_code_csr_tp;
3382: --
3383: IF l_dlvy_ship_method_code_csr%NOTFOUND THEN
3384: close l_dlvy_ship_method_code_csr;
3385: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3386: x_return_status := wsh_util_core.g_ret_sts_error;
3387: wsh_util_core.add_message(x_return_status,l_module_name);
3388: RAISE FND_API.G_EXC_ERROR;
3389: END IF;
3390: --
3383: IF l_dlvy_ship_method_code_csr%NOTFOUND THEN
3384: close l_dlvy_ship_method_code_csr;
3385: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3386: x_return_status := wsh_util_core.g_ret_sts_error;
3387: wsh_util_core.add_message(x_return_status,l_module_name);
3388: RAISE FND_API.G_EXC_ERROR;
3389: END IF;
3390: --
3391: close l_dlvy_ship_method_code_csr;
3400: --
3401: IF l_trip_ship_method_code_csr%NOTFOUND THEN
3402: close l_trip_ship_method_code_csr;
3403: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3404: x_return_status := wsh_util_core.g_ret_sts_error;
3405: wsh_util_core.add_message(x_return_status,l_module_name);
3406: RAISE FND_API.G_EXC_ERROR;
3407: END IF;
3408: --
3401: IF l_trip_ship_method_code_csr%NOTFOUND THEN
3402: close l_trip_ship_method_code_csr;
3403: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3404: x_return_status := wsh_util_core.g_ret_sts_error;
3405: wsh_util_core.add_message(x_return_status,l_module_name);
3406: RAISE FND_API.G_EXC_ERROR;
3407: END IF;
3408: --
3409: close l_trip_ship_method_code_csr;
3422: fetch l_dlvy_carrier_services_csr_tp into x_ship_method_code;
3423: IF l_dlvy_carrier_services_csr_tp%NOTFOUND THEN
3424: close l_dlvy_carrier_services_csr_tp;
3425: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3426: x_return_status := wsh_util_core.g_ret_sts_warning;
3427: wsh_util_core.add_message(x_return_status,l_module_name);
3428: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3429: END IF;
3430: --
3423: IF l_dlvy_carrier_services_csr_tp%NOTFOUND THEN
3424: close l_dlvy_carrier_services_csr_tp;
3425: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3426: x_return_status := wsh_util_core.g_ret_sts_warning;
3427: wsh_util_core.add_message(x_return_status,l_module_name);
3428: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3429: END IF;
3430: --
3431: close l_dlvy_carrier_services_csr_tp;
3424: close l_dlvy_carrier_services_csr_tp;
3425: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3426: x_return_status := wsh_util_core.g_ret_sts_warning;
3427: wsh_util_core.add_message(x_return_status,l_module_name);
3428: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3429: END IF;
3430: --
3431: close l_dlvy_carrier_services_csr_tp;
3432: ELSE
3434: fetch l_dlvy_carrier_services_csr into x_ship_method_code;
3435: IF l_dlvy_carrier_services_csr%NOTFOUND THEN
3436: close l_dlvy_carrier_services_csr;
3437: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3438: x_return_status := wsh_util_core.g_ret_sts_warning;
3439: wsh_util_core.add_message(x_return_status,l_module_name);
3440: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3441: END IF;
3442: --
3435: IF l_dlvy_carrier_services_csr%NOTFOUND THEN
3436: close l_dlvy_carrier_services_csr;
3437: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3438: x_return_status := wsh_util_core.g_ret_sts_warning;
3439: wsh_util_core.add_message(x_return_status,l_module_name);
3440: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3441: END IF;
3442: --
3443: close l_dlvy_carrier_services_csr;
3436: close l_dlvy_carrier_services_csr;
3437: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3438: x_return_status := wsh_util_core.g_ret_sts_warning;
3439: wsh_util_core.add_message(x_return_status,l_module_name);
3440: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3441: END IF;
3442: --
3443: close l_dlvy_carrier_services_csr;
3444: END IF;
3449: fetch l_trip_carrier_services_csr into x_ship_method_code;
3450: IF l_trip_carrier_services_csr%NOTFOUND THEN
3451: close l_trip_carrier_services_csr;
3452: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3453: x_return_status := wsh_util_core.g_ret_sts_warning;
3454: wsh_util_core.add_message(x_return_status,l_module_name);
3455: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3456: END IF;
3457: --
3450: IF l_trip_carrier_services_csr%NOTFOUND THEN
3451: close l_trip_carrier_services_csr;
3452: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3453: x_return_status := wsh_util_core.g_ret_sts_warning;
3454: wsh_util_core.add_message(x_return_status,l_module_name);
3455: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3456: END IF;
3457: --
3458: close l_trip_carrier_services_csr;
3451: close l_trip_carrier_services_csr;
3452: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3453: x_return_status := wsh_util_core.g_ret_sts_warning;
3454: wsh_util_core.add_message(x_return_status,l_module_name);
3455: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3456: END IF;
3457: --
3458: close l_trip_carrier_services_csr;
3459: --
3467: IF l_debug_on THEN
3468: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_ship_method Name',l_return_status);
3469: END IF;
3470: --
3471: WSH_UTIL_CORE.api_post_call(
3472: p_return_status => l_return_status,
3473: x_num_warnings => l_num_warnings,
3474: x_num_errors => l_num_errors);
3475: --
3498: IF l_debug_on THEN
3499: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_ship_method Name',l_return_status);
3500: END IF;
3501: --
3502: WSH_UTIL_CORE.api_post_call(
3503: p_return_status => l_return_status,
3504: x_num_warnings => l_num_warnings,
3505: x_num_errors => l_num_errors);
3506: --
3509: -- Bug 4086855
3510: -- If the trip's mode is PARCEL or LTL, the trip can have at most two
3511: -- stops (linked stops are counted as one stop in this case).
3512:
3513: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y')
3514: AND (p_entity_type = 'TRIP') AND (x_mode_of_transport in ('LTL', 'PARCEL')) THEN
3515:
3516: OPEN l_trip_stop_count(p_entity_id);
3517: FETCH l_trip_stop_count INTO l_stop_count;
3521:
3522: l_trip_name := WSH_TRIPS_PVT.Get_Name(p_entity_id);
3523: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MOT_STOP_COUNT');
3524: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
3525: x_return_status := wsh_util_core.g_ret_sts_error;
3526: wsh_util_core.add_message(x_return_status,l_module_name);
3527: RAISE FND_API.G_EXC_ERROR;
3528:
3529: END IF;
3522: l_trip_name := WSH_TRIPS_PVT.Get_Name(p_entity_id);
3523: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MOT_STOP_COUNT');
3524: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
3525: x_return_status := wsh_util_core.g_ret_sts_error;
3526: wsh_util_core.add_message(x_return_status,l_module_name);
3527: RAISE FND_API.G_EXC_ERROR;
3528:
3529: END IF;
3530: END IF;
3544: END IF;
3545: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_METHOD_CHANGE');
3546: FND_MESSAGE.SET_TOKEN('ORIG_SM', l_ship_method_code_backup);
3547: FND_MESSAGE.SET_TOKEN('CALC_SM', x_ship_method_code);
3548: x_return_status := wsh_util_core.g_ret_sts_warning;
3549: wsh_util_core.add_message(x_return_status,l_module_name);
3550: END IF;
3551:
3552: END IF;
3545: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_METHOD_CHANGE');
3546: FND_MESSAGE.SET_TOKEN('ORIG_SM', l_ship_method_code_backup);
3547: FND_MESSAGE.SET_TOKEN('CALC_SM', x_ship_method_code);
3548: x_return_status := wsh_util_core.g_ret_sts_warning;
3549: wsh_util_core.add_message(x_return_status,l_module_name);
3550: END IF;
3551:
3552: END IF;
3553:
3550: END IF;
3551:
3552: END IF;
3553:
3554: x_return_status := wsh_util_core.g_ret_sts_success;
3555: --
3556: IF l_debug_on THEN
3557: WSH_DEBUG_SV.pop(l_module_name);
3558: END IF;
3560: EXCEPTION
3561: --
3562: WHEN FND_API.G_EXC_ERROR THEN
3563: --
3564: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3565: IF l_debug_on THEN
3566: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3567: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3568: END IF;
3568: END IF;
3569: --
3570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3571: --
3572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3573: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_FREIGHT_CARRIER');
3574: IF l_debug_on THEN
3575: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3569: --
3570: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3571: --
3572: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3573: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_FREIGHT_CARRIER');
3574: IF l_debug_on THEN
3575: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3577: END IF;
3575: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3577: END IF;
3578: --
3579: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3580: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3581: --
3582: IF l_debug_on THEN
3583: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3577: END IF;
3578: --
3579: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3580: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3581: --
3582: IF l_debug_on THEN
3583: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3584: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNIN
3579: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3580: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3581: --
3582: IF l_debug_on THEN
3583: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3584: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNIN
3585: G');
3586: END IF;
3587: --
3580: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3581: --
3582: IF l_debug_on THEN
3583: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3584: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNIN
3585: G');
3586: END IF;
3587: --
3588: WHEN OTHERS THEN
3585: G');
3586: END IF;
3587: --
3588: WHEN OTHERS THEN
3589: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3590: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_FREIGHT_CARRIER');
3591: --
3592: IF l_debug_on THEN
3593: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3586: END IF;
3587: --
3588: WHEN OTHERS THEN
3589: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3590: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_FREIGHT_CARRIER');
3591: --
3592: IF l_debug_on THEN
3593: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3594: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3646: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
3647: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
3648: END IF;
3649: --
3650: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3651:
3652: OPEN veh_cont_item_cur(p_inventory_item_id, p_organization_id);
3653: FETCH veh_cont_item_cur INTO
3654: l_container_item_flag, l_shippable_flag, l_vehicle_item_flag;
3680: --
3681:
3682: EXCEPTION
3683: WHEN FND_API.G_EXC_ERROR THEN
3684: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3685: wsh_util_core.add_message(x_return_status,l_module_name);
3686: IF l_debug_on THEN
3687: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3688: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3681:
3682: EXCEPTION
3683: WHEN FND_API.G_EXC_ERROR THEN
3684: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3685: wsh_util_core.add_message(x_return_status,l_module_name);
3686: IF l_debug_on THEN
3687: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3688: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3689: END IF;
3689: END IF;
3690:
3691: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3692: --
3693: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3694: IF l_debug_on THEN
3695: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3696: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3697: END IF;
3696: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3697: END IF;
3698:
3699: WHEN OTHERS THEN
3700: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3701: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.FIND_ITEM_TYPE');
3702: --
3703: IF l_debug_on THEN
3704: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3697: END IF;
3698:
3699: WHEN OTHERS THEN
3700: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3701: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.FIND_ITEM_TYPE');
3702: --
3703: IF l_debug_on THEN
3704: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3705: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3748: p_delivery_id => p_delivery_id,
3749: p_delivery_detail_id => p_delivery_detail_id,
3750: p_msg_display => p_msg_display);
3751:
3752: IF l_return_status = wsh_util_core.g_ret_sts_error THEN
3753: raise FND_API.G_EXC_ERROR;
3754: ELSIF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
3755: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3756: END IF;
3750: p_msg_display => p_msg_display);
3751:
3752: IF l_return_status = wsh_util_core.g_ret_sts_error THEN
3753: raise FND_API.G_EXC_ERROR;
3754: ELSIF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
3755: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3756: END IF;
3757:
3758: l_wms_installed := wsh_util_validate.Check_Wms_Org(p_organization_id);
3771: ELSIF l_org_type_wms IS NOT NULL THEN
3772: l_org_type := l_org_type || '.' || l_org_type_wms;
3773: END IF;
3774:
3775: x_return_status := wsh_util_core.g_ret_sts_success;
3776:
3777: IF l_debug_on THEN
3778: wsh_debug_sv.pop(l_module_name, 'Get_Org_Type');
3779: END IF;
3780:
3781: RETURN l_org_type;
3782: EXCEPTION
3783: WHEN FND_API.G_EXC_ERROR THEN
3784: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3785: --
3786: IF l_debug_on THEN
3787: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3788: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3789: END IF;
3790: RETURN l_org_type;
3791: --
3792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3793: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3794: --
3795: IF l_debug_on THEN
3796: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3797: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3797: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3798: END IF;
3799: RETURN l_org_type;
3800: --
3801: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3802: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3803: --
3804: IF l_debug_on THEN
3805: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3798: END IF;
3799: RETURN l_org_type;
3800: --
3801: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3802: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3803: --
3804: IF l_debug_on THEN
3805: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3806: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3801: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3802: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3803: --
3804: IF l_debug_on THEN
3805: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3806: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3807: END IF;
3808: RETURN l_org_type;
3809: --
3802: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3803: --
3804: IF l_debug_on THEN
3805: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3806: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3807: END IF;
3808: RETURN l_org_type;
3809: --
3810: WHEN OTHERS THEN
3807: END IF;
3808: RETURN l_org_type;
3809: --
3810: WHEN OTHERS THEN
3811: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3812: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.GET_ORG_TYPE');
3813: --
3814: IF l_debug_on THEN
3815: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3808: RETURN l_org_type;
3809: --
3810: WHEN OTHERS THEN
3811: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3812: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.GET_ORG_TYPE');
3813: --
3814: IF l_debug_on THEN
3815: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3816: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3886: --
3887: IF (p_organization_id IS NULL ) OR (p_inventory_item_id IS NULL )THEN
3888: RAISE FND_API.G_EXC_ERROR;
3889: END IF;
3890: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3891:
3892: l_hash_string := p_organization_id || '-'||p_inventory_item_id;
3893: l_hash_value := dbms_utility.get_hash_value(
3894: name => l_hash_string,
3956: END IF;
3957: EXCEPTION
3958:
3959: WHEN FND_API.G_EXC_ERROR THEN
3960: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3961: --
3962: IF l_debug_on THEN
3963: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
3964: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3965: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3966: END IF;
3967: --
3968: WHEN OTHERS THEN
3969: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3970: wsh_util_core.default_handler('WSH_UTIL_CORE.GET_ITEM_INFO');
3971: --
3972: IF l_debug_on THEN
3973: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
3966: END IF;
3967: --
3968: WHEN OTHERS THEN
3969: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3970: wsh_util_core.default_handler('WSH_UTIL_CORE.GET_ITEM_INFO');
3971: --
3972: IF l_debug_on THEN
3973: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
3974: 'Oracle error message is '||
4027: IF p_item_id IS NULL THEN
4028: RAISE FND_API.G_EXC_ERROR;
4029: END IF;
4030: --
4031: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4032:
4033: IF p_item_id < C_IDX_LIMT THEN --{
4034:
4035: IF G_DEF_CONT_INF_TAB.EXISTS(p_item_id) THEN
4094: END IF;
4095:
4096: EXCEPTION
4097: WHEN FND_API.G_EXC_ERROR THEN
4098: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4099: --
4100: IF l_debug_on THEN
4101: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
4102: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4104: END IF;
4105: --
4106:
4107: WHEN OTHERS THEN
4108: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4109: wsh_util_core.default_handler('WSH_UTIL_CORE.DEFAULT_CONTAINER');
4110: --
4111: IF l_debug_on THEN
4112: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4105: --
4106:
4107: WHEN OTHERS THEN
4108: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4109: wsh_util_core.default_handler('WSH_UTIL_CORE.DEFAULT_CONTAINER');
4110: --
4111: IF l_debug_on THEN
4112: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4113: 'Oracle error message is '||
4174: WSH_DEBUG_SV.log(l_module_name, 'p_tp_installed',p_tp_installed);
4175: WSH_DEBUG_SV.log(l_module_name, 'p_otm_installed',p_otm_installed); --OTM R12 Org-Specific
4176: END IF;
4177: --
4178: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4179: IF p_caller = 'PO' THEN --{
4180: x_ignore_for_planning := 'Y';
4181: ELSIF p_otm_installed = 'Y' then --{ --OTM R12 Start Org-Specific
4182: WSH_SHIPPING_PARAMS_PVT.Get(
4188: ,l_return_status);
4189: WSH_DEBUG_SV.log(l_module_name,'l_shipping_param_info.otm_enabled '
4190: ,l_shipping_param_info.otm_enabled);
4191: END IF;
4192: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
4193: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4194: Raise FND_API.G_EXC_ERROR;
4195: END IF;
4196: IF l_shipping_param_info.otm_enabled = 'Y' THEN
4189: WSH_DEBUG_SV.log(l_module_name,'l_shipping_param_info.otm_enabled '
4190: ,l_shipping_param_info.otm_enabled);
4191: END IF;
4192: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
4193: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4194: Raise FND_API.G_EXC_ERROR;
4195: END IF;
4196: IF l_shipping_param_info.otm_enabled = 'Y' THEN
4197: x_ignore_for_planning := 'N';
4258: WSH_DEBUG_SV.pop(l_module_name,x_ignore_for_planning);
4259: END IF;
4260: EXCEPTION
4261: WHEN FND_API.G_EXC_ERROR THEN --{ --OTM R12 Start
4262: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4263: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
4264: IF l_debug_on THEN
4265: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
4266: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4259: END IF;
4260: EXCEPTION
4261: WHEN FND_API.G_EXC_ERROR THEN --{ --OTM R12 Start
4262: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4263: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
4264: IF l_debug_on THEN
4265: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
4266: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4267: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4266: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4267: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4268: END IF; --} --OTM R12 End
4269: WHEN OTHERS THEN
4270: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4271: wsh_util_core.default_handler('WSH_UTIL_CORE.DEFAULT_CONTAINER');
4272: --
4273: IF l_debug_on THEN
4274: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4267: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4268: END IF; --} --OTM R12 End
4269: WHEN OTHERS THEN
4270: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4271: wsh_util_core.default_handler('WSH_UTIL_CORE.DEFAULT_CONTAINER');
4272: --
4273: IF l_debug_on THEN
4274: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4275: 'Oracle error message is '||
4352: --
4353: WSH_DEBUG_SV.log(l_module_name,'P_FOB',P_FOB);
4354: END IF;
4355: --
4356: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4357:
4358: OPEN c_fob(p_fob);
4359: FETCH c_fob INTO l_fob;
4360:
4411: --
4412: EXCEPTION
4413: WHEN OTHERS THEN
4414: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4415: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.VALIDATE_FOB',l_module_name);
4416: --
4417: -- Debug Statements
4418: --
4419: IF l_debug_on THEN
4498: --
4499: WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_TERMS_CODE',P_FREIGHT_TERMS_CODE);
4500: END IF;
4501: --
4502: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4503:
4504: OPEN c_freight(p_freight_terms_code);
4505: FETCH c_freight INTO l_fgt;
4506:
4557: --
4558: EXCEPTION
4559: WHEN OTHERS THEN
4560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4561: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.VALIDATE_FREIGHT_TERMS',l_module_name);
4562: --
4563: -- Debug Statements
4564: --
4565: IF l_debug_on THEN
4629: wsh_debug_sv.LOG(l_module_name, 'p_party_id', p_party_id);
4630: wsh_debug_sv.LOG(l_module_name, 'p_location_id', p_location_id);
4631: END IF;
4632: --
4633: x_return_status := wsh_util_core.g_ret_sts_success;
4634: --
4635: --
4636: OPEN locn_csr (p_location_id, p_party_id);
4637: --
4642: THEN
4643: --{
4644:
4645: IF l_debug_on THEN
4646: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_location_description',WSH_DEBUG_SV.C_PROC_LEVEL);
4647: END IF;
4648: --
4649: l_location_name := SUBSTRB(
4650: WSH_UTIL_CORE.get_location_description
4646: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_location_description',WSH_DEBUG_SV.C_PROC_LEVEL);
4647: END IF;
4648: --
4649: l_location_name := SUBSTRB(
4650: WSH_UTIL_CORE.get_location_description
4651: (
4652: p_location_id,
4653: 'NEW UI CODE'
4654: ),
4658: --
4659: fnd_message.SET_name('WSH', 'WSH_SUPP_LOCN_ERROR');
4660: FND_MESSAGE.SET_TOKEN('LOCATION_NAME',l_location_name);
4661: --
4662: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
4663: RAISE FND_API.G_EXC_ERROR;
4664: --}
4665: END IF;
4666: --
4676: --{
4677: --
4678: WHEN FND_API.G_EXC_ERROR THEN
4679:
4680: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4681: --
4682: IF l_debug_on THEN
4683: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4684: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4685: END IF;
4686: --
4687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4688:
4689: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4690: --
4691: IF l_debug_on THEN
4692: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4693: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4692: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4693: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4694: END IF;
4695: --
4696: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4697: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4698: --
4699: IF l_debug_on THEN
4700: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4693: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4694: END IF;
4695: --
4696: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4697: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4698: --
4699: IF l_debug_on THEN
4700: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4701: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4696: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4697: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4698: --
4699: IF l_debug_on THEN
4700: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4701: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4702: END IF;
4703: --
4704: WHEN OTHERS THEN
4697: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4698: --
4699: IF l_debug_on THEN
4700: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4701: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4702: END IF;
4703: --
4704: WHEN OTHERS THEN
4705:
4702: END IF;
4703: --
4704: WHEN OTHERS THEN
4705:
4706: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4707: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_supplier_location', l_module_name);
4708: IF l_debug_on THEN
4709: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4710: END IF;
4703: --
4704: WHEN OTHERS THEN
4705:
4706: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4707: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_supplier_location', l_module_name);
4708: IF l_debug_on THEN
4709: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4710: END IF;
4711: --
4768: WSH_DEBUG_SV.log(l_module_name,'P_PICK_GROUPING_RULE_NAME',p_pick_grouping_rule_name);
4769: --}
4770: END IF;
4771: --
4772: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4773:
4774: IF (p_pick_grouping_rule_id IS NOT NULL) OR (p_pick_grouping_rule_name IS NOT NULL) THEN
4775: --{
4776: OPEN check_pick_grouping_rule_name;
4778: IF (check_pick_grouping_rule_name%NOTFOUND) THEN
4779: --{
4780: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4781: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pick Grouping Rule');
4782: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4783: wsh_util_core.add_message(x_return_status,l_module_name);
4784: --}
4785: END IF;
4786: CLOSE check_pick_grouping_rule_name;
4779: --{
4780: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4781: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pick Grouping Rule');
4782: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4783: wsh_util_core.add_message(x_return_status,l_module_name);
4784: --}
4785: END IF;
4786: CLOSE check_pick_grouping_rule_name;
4787: --}
4845: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SEQUENCE_RULE_NAME',p_pick_sequence_rule_NAME);
4846: --}
4847: END IF;
4848: --
4849: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4850:
4851: IF (p_pick_sequence_rule_id IS NOT NULL) OR (p_pick_sequence_rule_name IS NOT NULL) THEN
4852: --{
4853: OPEN check_pick_sequence_rule_name;
4855: IF (check_pick_sequence_rule_name%NOTFOUND) THEN
4856: --{
4857: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4858: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pick Sequence Rule');
4859: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4860: wsh_util_core.add_message(x_return_status,l_module_name);
4861: --}
4862: END IF;
4863: CLOSE check_pick_sequence_rule_name;
4856: --{
4857: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4858: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pick Sequence Rule');
4859: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4860: wsh_util_core.add_message(x_return_status,l_module_name);
4861: --}
4862: END IF;
4863: CLOSE check_pick_sequence_rule_name;
4864: --}
4922: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_CONFIRM_RULE_NAME',p_ship_confirm_rule_name);
4923: --}
4924: END IF;
4925: --
4926: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4927:
4928: IF (p_ship_confirm_rule_id IS NOT NULL) OR (p_ship_confirm_rule_name IS NOT NULL) THEN
4929: --{
4930: OPEN check_ship_confirm_rule_name;
4932: IF (check_ship_confirm_rule_name%NOTFOUND) THEN
4933: --{
4934: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4935: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship Confirm Rule');
4936: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4937: wsh_util_core.add_message(x_return_status,l_module_name);
4938: --}
4939: END IF;
4940: CLOSE check_ship_confirm_rule_name;
4933: --{
4934: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4935: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship Confirm Rule');
4936: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4937: wsh_util_core.add_message(x_return_status,l_module_name);
4938: --}
4939: END IF;
4940: CLOSE check_ship_confirm_rule_name;
4941: --}
4998: WSH_DEBUG_SV.log(l_module_name,'P_PICKING_BATCH_NAME',p_Picking_Batch_name);
4999: --}
5000: END IF;
5001: --
5002: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5003:
5004: IF (p_Picking_Batch_id IS NOT NULL) OR (p_Picking_Batch_name IS NOT NULL) THEN
5005: --{
5006: OPEN check_Picking_Batch_name;
5008: IF (check_Picking_Batch_name%NOTFOUND) THEN
5009: --{
5010: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
5011: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Picking Batch Name');
5012: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5013: wsh_util_core.add_message(x_return_status,l_module_name);
5014: --}
5015: END IF;
5016: CLOSE check_Picking_Batch_name;
5009: --{
5010: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
5011: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Picking Batch Name');
5012: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5013: wsh_util_core.add_message(x_return_status,l_module_name);
5014: --}
5015: END IF;
5016: CLOSE check_Picking_Batch_name;
5017: --}
5080: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',P_SHIP_METHOD_CODE);
5081: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_NAME',P_SHIP_METHOD_NAME);
5082: END IF;
5083: --
5084: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5085: --
5086: IF nvl(p_ship_method_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
5087: OR nvl(p_ship_method_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
5088: THEN
5091: FETCH check_ship_method INTO p_ship_method_code, p_ship_method_name;
5092: --
5093: IF (check_ship_method%NOTFOUND) THEN
5094: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INACTIVE_SHIP_METHOD');
5095: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5096: wsh_util_core.add_message(x_return_status,l_module_name);
5097: END IF;
5098: --
5099: CLOSE check_ship_method;
5092: --
5093: IF (check_ship_method%NOTFOUND) THEN
5094: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INACTIVE_SHIP_METHOD');
5095: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5096: wsh_util_core.add_message(x_return_status,l_module_name);
5097: END IF;
5098: --
5099: CLOSE check_ship_method;
5100: --
5107: END IF;
5108: --
5109: EXCEPTION
5110: WHEN OTHERS THEN
5111: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5112: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Active_SM');
5113: IF l_debug_on THEN
5114: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5115: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5108: --
5109: EXCEPTION
5110: WHEN OTHERS THEN
5111: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5112: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Active_SM');
5113: IF l_debug_on THEN
5114: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5115: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5116: END IF;
5185: WSH_DEBUG_SV.log(l_module_name,'P_LOOKUP_CODE',P_LOOKUP_CODE);
5186: WSH_DEBUG_SV.log(l_module_name,'P_MEANING',P_MEANING);
5187: END IF;
5188: --
5189: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5190:
5191: IF (p_lookup_code IS NOT NULL) OR (p_meaning IS NOT NULL) THEN
5192: -- Bug 3821688
5193: l_cache_rec.input_param1 := p_lookup_code;
5218: ELSIF l_count > 1 THEN -- more than 1 record found
5219: -- Add this Message to the one at the end
5220: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_LOOKUP_CODE');
5221: FND_MESSAGE.SET_TOKEN('LOOKUP_TYPE',p_lookup_type);
5222: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5223: wsh_util_core.add_message(x_return_status,l_module_name);
5224: END IF;
5225:
5226: ELSIF p_meaning IS NOT NULL THEN
5219: -- Add this Message to the one at the end
5220: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_LOOKUP_CODE');
5221: FND_MESSAGE.SET_TOKEN('LOOKUP_TYPE',p_lookup_type);
5222: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5223: wsh_util_core.add_message(x_return_status,l_module_name);
5224: END IF;
5225:
5226: ELSIF p_meaning IS NOT NULL THEN
5227: OPEN check_lookup_meaning;
5239:
5240: -- Always check if input is valid or not
5241: IF g_lookup_tab(l_index).valid_flag = 'N' THEN
5242: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOOKUP');
5243: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5244: wsh_util_core.add_message(x_return_status,l_module_name);
5245: END IF;
5246: -- Always Populate return variables
5247: p_lookup_code := g_lookup_tab(l_index).output_param1;
5240: -- Always check if input is valid or not
5241: IF g_lookup_tab(l_index).valid_flag = 'N' THEN
5242: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOOKUP');
5243: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5244: wsh_util_core.add_message(x_return_status,l_module_name);
5245: END IF;
5246: -- Always Populate return variables
5247: p_lookup_code := g_lookup_tab(l_index).output_param1;
5248:
5257: EXCEPTION
5258: --
5259: WHEN OTHERS THEN
5260: --
5261: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5262: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Lookup_Upper');
5263: --
5264: IF l_debug_on THEN
5265: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5258: --
5259: WHEN OTHERS THEN
5260: --
5261: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5262: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Lookup_Upper');
5263: --
5264: IF l_debug_on THEN
5265: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5266: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5274:
5275: COMMENT : This is just a wrapper around the function
5276: WSH_UITL_CORE.ValidateActualDepartureDate
5277:
5278: This procedure calls a similar function in WSH_UTIL_CORE
5279: and logs an error message if the actual departure date is
5280: not valid.
5281:
5282: HISTORY : rlanka 03/08/2005 Created
5309: WSH_DEBUG_SV.log(l_module_name,'p_actual_departure_date',
5310: p_actual_departure_date);
5311: END IF;
5312: --
5313: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5314: --
5315: v_ValidDate := WSH_UTIL_CORE.ValidateActualDepartureDate(
5316: p_ship_confirm_rule_id => p_ship_confirm_rule_id,
5317: p_actual_departure_date => p_actual_departure_date);
5311: END IF;
5312: --
5313: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5314: --
5315: v_ValidDate := WSH_UTIL_CORE.ValidateActualDepartureDate(
5316: p_ship_confirm_rule_id => p_ship_confirm_rule_id,
5317: p_actual_departure_date => p_actual_departure_date);
5318: --
5319: IF NOT v_ValidDate THEN
5322: wsh_debug_sv.logmsg(l_module_name, 'Future ship date is not allowed');
5323: END IF;
5324: --
5325: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_FUTURE_SHIP_DATE');
5326: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5327: wsh_util_core.add_message(x_return_status);
5328: --
5329: END IF;
5330: --
5323: END IF;
5324: --
5325: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_FUTURE_SHIP_DATE');
5326: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5327: wsh_util_core.add_message(x_return_status);
5328: --
5329: END IF;
5330: --
5331: IF l_debug_on THEN
5336: EXCEPTION
5337: --
5338: WHEN OTHERS THEN
5339: --
5340: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5341: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.ValidateActualDepartureDate');
5342: --
5343: IF l_debug_on THEN
5344: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle
5337: --
5338: WHEN OTHERS THEN
5339: --
5340: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5341: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.ValidateActualDepartureDate');
5342: --
5343: IF l_debug_on THEN
5344: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle
5345: error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);