[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
120: l_generic_tab Generic_Cache_Tab_Typ;
121:
122: BEGIN
123:
124: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
125: l_hash_exists := FALSE;
126: l_generic_tab := p_generic_tab;
127: -- need to hash this index
128: -- Key (for hash) : param1+param2+param3
240: WSH_DEBUG_SV.log(l_module_name,'P_ORG_ID',P_ORG_ID);
241: WSH_DEBUG_SV.log(l_module_name,'P_ORG_CODE',P_ORG_CODE);
242: END IF;
243: --
244: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
245: l_failed := FALSE;
246:
247: IF p_org_id <> FND_API.G_MISS_NUM THEN
248: OPEN check_org_id;
256: CLOSE check_org_code;
257: END IF;
258: --
259: IF l_failed THEN
260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
261: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ORG');
262: wsh_util_core.add_message(x_return_status,l_module_name);
263: END IF;
264: --
258: --
259: IF l_failed THEN
260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
261: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ORG');
262: wsh_util_core.add_message(x_return_status,l_module_name);
263: END IF;
264: --
265: IF l_debug_on THEN
266: WSH_DEBUG_SV.log(l_module_name,'p_org_id',p_org_id);
268: END IF;
269: --
270: EXCEPTION
271: WHEN OTHERS THEN
272: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
273: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_ORG');
274: IF check_org_id%ISOPEN THEN
275: CLOSE check_org_id;
276: END IF;
269: --
270: EXCEPTION
271: WHEN OTHERS THEN
272: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
273: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_ORG');
274: IF check_org_id%ISOPEN THEN
275: CLOSE check_org_id;
276: END IF;
277: IF check_org_code%ISOPEN THEN
345: WSH_DEBUG_SV.log(l_module_name,'p_isWshLocation',p_isWshLocation);
346: WSH_DEBUG_SV.log(l_module_name,'p_caller',p_caller);
347: END IF;
348: --
349: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
350: IF p_isWshLocation THEN
351: l_source_loc_type := 'WSH';
352: ELSE
353: l_source_loc_type := 'HR_HZ';
374: IF l_debug_on THEN
375: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
376: END IF;
377:
378: wsh_util_core.api_post_call(
379: p_return_status => l_return_status,
380: x_num_warnings => l_num_warnings,
381: x_num_errors => l_num_errors);
382: IF l_loc_rec.wsh_location_id IS NULL THEN
460: IF l_debug_on THEN
461: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
462: END IF;
463:
464: wsh_util_core.api_post_call(
465: p_return_status => l_return_status,
466: x_num_warnings => l_num_warnings,
467: x_num_errors => l_num_errors);
468:
474: ELSE
475: IF l_debug_on THEN
476: WSH_DEBUG_SV.log(l_module_name,'Both parameters are null');
477: END IF;
478: --x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
479: --bug 2648157
480: END IF;
481:
482: --
488: EXCEPTION
489:
490: WHEN FND_API.G_EXC_ERROR THEN
491: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOCATION');
492: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
493: wsh_util_core.add_message(x_return_status,l_module_name);
494: IF l_debug_on THEN
495: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_ERROR');
496: END IF;
489:
490: WHEN FND_API.G_EXC_ERROR THEN
491: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOCATION');
492: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
493: wsh_util_core.add_message(x_return_status,l_module_name);
494: IF l_debug_on THEN
495: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_ERROR');
496: END IF;
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
495: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_ERROR');
496: END IF;
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOCATION');
499: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
500: wsh_util_core.add_message(x_return_status,l_module_name);
501: IF l_debug_on THEN
502: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_UNEXPECTED_ERROR');
503: END IF;
496: END IF;
497: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
498: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOCATION');
499: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
500: wsh_util_core.add_message(x_return_status,l_module_name);
501: IF l_debug_on THEN
502: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_UNEXPECTED_ERROR');
503: END IF;
504: WHEN OTHERS THEN
501: IF l_debug_on THEN
502: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_UNEXPECTED_ERROR');
503: END IF;
504: WHEN OTHERS THEN
505: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
506: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_LOCATION');
507: --
508: IF l_debug_on THEN
509: WSH_DEBUG_SV.log(l_module_name,'ERROR:',SUBSTR(SQLERRM,1,200));
502: WSH_DEBUG_SV.pop(l_module_name, 'EXCEPTION G_EXC_UNEXPECTED_ERROR');
503: END IF;
504: WHEN OTHERS THEN
505: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
506: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_LOCATION');
507: --
508: IF l_debug_on THEN
509: WSH_DEBUG_SV.log(l_module_name,'ERROR:',SUBSTR(SQLERRM,1,200));
510: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
571: WSH_DEBUG_SV.log(l_module_name,'P_LOOKUP_CODE',P_LOOKUP_CODE);
572: WSH_DEBUG_SV.log(l_module_name,'P_MEANING',P_MEANING);
573: END IF;
574: --
575: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
576:
577: IF (p_lookup_code IS NOT NULL) OR (p_meaning IS NOT NULL) THEN
578: -- Bug 3821688
579: l_cache_rec.input_param1 := p_lookup_code;
622: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MODE_OF_TRANSPORT');
623: ELSE
624: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOOKUP');
625: END IF;
626: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
627: wsh_util_core.add_message(x_return_status,l_module_name);
628: END IF;
629: -- Always Populate return variables
630: p_lookup_code := g_lookup_tab(l_index).output_param1;
623: ELSE
624: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOOKUP');
625: END IF;
626: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
627: wsh_util_core.add_message(x_return_status,l_module_name);
628: END IF;
629: -- Always Populate return variables
630: p_lookup_code := g_lookup_tab(l_index).output_param1;
631: -- End of Bug 3821688
688: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_ID',P_CUSTOMER_ID);
689: WSH_DEBUG_SV.log(l_module_name,'P_CUSTOMER_NUMBER',P_CUSTOMER_NUMBER);
690: END IF;
691: --
692: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
693:
694: IF nvl(p_customer_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
695: OR nvl(p_customer_number, fnd_api.g_miss_char) <> fnd_api.g_miss_char
696: THEN
700:
701: IF (check_customer%NOTFOUND) THEN
702:
703: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_CUSTOMER');
704: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
705: wsh_util_core.add_message(x_return_status,l_module_name);
706:
707: END IF;
708:
701: IF (check_customer%NOTFOUND) THEN
702:
703: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_CUSTOMER');
704: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
705: wsh_util_core.add_message(x_return_status,l_module_name);
706:
707: END IF;
708:
709: CLOSE check_customer;
755: --
756: WSH_DEBUG_SV.log(l_module_name,'P_CONTACT_ID',P_CONTACT_ID);
757: END IF;
758: --
759: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
760:
761: IF (p_contact_id IS NOT NULL) THEN
762:
763: OPEN check_contact;
765:
766: IF (check_contact%NOTFOUND) THEN
767:
768: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_CONTACT');
769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
770: wsh_util_core.add_message(x_return_status,l_module_name);
771:
772: END IF;
773:
766: IF (check_contact%NOTFOUND) THEN
767:
768: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_CONTACT');
769: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
770: wsh_util_core.add_message(x_return_status,l_module_name);
771:
772: END IF;
773:
774: CLOSE check_contact;
814: --
815: WSH_DEBUG_SV.log(l_module_name,'P_QUANTITY',P_QUANTITY);
816: END IF;
817: --
818: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
819:
820: IF (p_quantity IS NOT NULL) THEN
821:
822: IF (p_quantity < 0) OR (p_quantity <> trunc(p_quantity)) THEN
822: IF (p_quantity < 0) OR (p_quantity <> trunc(p_quantity)) THEN
823:
824: FND_MESSAGE.SET_NAME('WSH','WSH_QUANTITY_NOT_WHOLE');
825: FND_MESSAGE.SET_TOKEN('QTY',p_quantity);
826: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
827: wsh_util_core.add_message(x_return_status,l_module_name);
828:
829: END IF;
830:
823:
824: FND_MESSAGE.SET_NAME('WSH','WSH_QUANTITY_NOT_WHOLE');
825: FND_MESSAGE.SET_TOKEN('QTY',p_quantity);
826: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
827: wsh_util_core.add_message(x_return_status,l_module_name);
828:
829: END IF;
830:
831: END IF;
867: --
868: WSH_DEBUG_SV.log(l_module_name,'P_VALUE',P_VALUE);
869: END IF;
870: --
871: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
872:
873: IF (p_value IS NOT NULL) THEN
874:
875: IF (p_value < 0) THEN
874:
875: IF (p_value < 0) THEN
876:
877: FND_MESSAGE.SET_NAME('WSH','WSH_VALUE_NEGATIVE');
878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
879: wsh_util_core.add_message(x_return_status,l_module_name);
880:
881: END IF;
882:
875: IF (p_value < 0) THEN
876:
877: FND_MESSAGE.SET_NAME('WSH','WSH_VALUE_NEGATIVE');
878: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
879: wsh_util_core.add_message(x_return_status,l_module_name);
880:
881: END IF;
882:
883: END IF;
922: --
923: WSH_DEBUG_SV.log(l_module_name,'P_VALUE',P_VALUE);
924: END IF;
925: --
926: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
927:
928: IF (p_value IS NOT NULL) THEN
929:
930: IF (p_value < 0) THEN
930: IF (p_value < 0) THEN
931:
932: FND_MESSAGE.SET_NAME('WSH','WSH_VALUE_NEGATIVE');
933: FND_MESSAGE.SET_TOKEN('FIELD_NAME',p_field_name);
934: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
935: wsh_util_core.add_message(x_return_status,l_module_name);
936:
937: END IF;
938:
931:
932: FND_MESSAGE.SET_NAME('WSH','WSH_VALUE_NEGATIVE');
933: FND_MESSAGE.SET_TOKEN('FIELD_NAME',p_field_name);
934: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
935: wsh_util_core.add_message(x_return_status,l_module_name);
936:
937: END IF;
938:
939: END IF;
1007: WSH_DEBUG_SV.log(l_module_name,'P_AMOUNT',P_AMOUNT);
1008: WSH_DEBUG_SV.log(l_module_name,'P_OTM_ENABLED',P_OTM_ENABLED); -- OTM R12
1009: END IF;
1010: --
1011: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1012:
1013: IF nvl(p_currency_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1014: OR nvl(p_currency_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1015: THEN
1044:
1045: x_adjusted_amount := p_amount;
1046:
1047: IF l_in_precision > l_precision THEN
1048: --IF WSH_UTIL_CORE.GC3_IS_INSTALLED = 'Y' THEN
1049: -- OTM R12
1050: IF p_otm_enabled = 'Y' THEN
1051: -- truncate the amount to the precision specified in setup
1052: x_adjusted_amount := ROUND(p_amount,l_precision);
1057: -- existing code
1058: error_code := 'CURR-Precision';
1059: FND_MESSAGE.SET_NAME('FND', error_code);
1060: FND_MESSAGE.SET_TOKEN('PRECISON',TO_CHAR(l_precision));
1061: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1062: wsh_util_core.add_message(x_return_status,l_module_name);
1063: END IF;
1064: END IF;
1065:
1058: error_code := 'CURR-Precision';
1059: FND_MESSAGE.SET_NAME('FND', error_code);
1060: FND_MESSAGE.SET_TOKEN('PRECISON',TO_CHAR(l_precision));
1061: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1062: wsh_util_core.add_message(x_return_status,l_module_name);
1063: END IF;
1064: END IF;
1065:
1066: -- OTM R12
1076: --
1077: EXCEPTION
1078: -- OTM R12
1079: WHEN l_invalid_currency THEN
1080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1081: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
1082: IF l_debug_on THEN
1083: WSH_DEBUG_SV.logmsg(l_module_name,'Invalid or NULL currency exception ');
1084: WSH_DEBUG_SV.pop(l_module_name);
1077: EXCEPTION
1078: -- OTM R12
1079: WHEN l_invalid_currency THEN
1080: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1081: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
1082: IF l_debug_on THEN
1083: WSH_DEBUG_SV.logmsg(l_module_name,'Invalid or NULL currency exception ');
1084: WSH_DEBUG_SV.pop(l_module_name);
1085: END IF;
1086: WHEN OTHERS THEN
1087: IF currency_cursor%ISOPEN THEN
1088: CLOSE currency_cursor;
1089: END IF;
1090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1091: WSH_UTIL_CORE.default_handler('WSH_UTIL_VALIDATE.Validate_Currency');
1092: IF l_debug_on THEN
1093: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1094: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1087: IF currency_cursor%ISOPEN THEN
1088: CLOSE currency_cursor;
1089: END IF;
1090: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1091: WSH_UTIL_CORE.default_handler('WSH_UTIL_VALIDATE.Validate_Currency');
1092: IF l_debug_on THEN
1093: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1094: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1095: END IF;
1171: WSH_DEBUG_SV.log(l_module_name,'P_UOM_CODE',P_UOM_CODE);
1172: WSH_DEBUG_SV.log(l_module_name,'P_UOM_DESC',P_UOM_DESC);
1173: END IF;
1174: --
1175: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1176:
1177: IF nvl(p_uom_code, fnd_api.g_miss_char) = fnd_api.g_miss_char
1178: AND nvl(p_uom_desc, fnd_api.g_miss_char) = fnd_api.g_miss_char
1179: THEN
1208: END IF;
1209: -- Always check if input is valid or not
1210: IF g_org_uom_class_tab(l_index).valid_flag = 'N' THEN
1211: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ORG');
1212: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1213: wsh_util_core.add_message(x_return_status,l_module_name);
1214: RETURN;
1215: END IF;
1216: -- Always Populate return variables
1209: -- Always check if input is valid or not
1210: IF g_org_uom_class_tab(l_index).valid_flag = 'N' THEN
1211: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ORG');
1212: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1213: wsh_util_core.add_message(x_return_status,l_module_name);
1214: RETURN;
1215: END IF;
1216: -- Always Populate return variables
1217: l_weight_uom_class := g_org_uom_class_tab(l_index).output_param2;
1267: END IF;
1268: -- Always check if input is valid or not
1269: IF g_uom_tab(l_uom_index).valid_flag = 'N' THEN
1270: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_UOM');
1271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1272: wsh_util_core.add_message(x_return_status,l_module_name);
1273: END IF;
1274: -- Always Populate return variables
1275: p_uom_code := g_uom_tab(l_uom_index).output_param2;
1268: -- Always check if input is valid or not
1269: IF g_uom_tab(l_uom_index).valid_flag = 'N' THEN
1270: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_UOM');
1271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1272: wsh_util_core.add_message(x_return_status,l_module_name);
1273: END IF;
1274: -- Always Populate return variables
1275: p_uom_code := g_uom_tab(l_uom_index).output_param2;
1276:
1274: -- Always Populate return variables
1275: p_uom_code := g_uom_tab(l_uom_index).output_param2;
1276:
1277: ELSE
1278: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1279: --
1280: IF l_debug_on THEN
1281: WSH_DEBUG_SV.pop(l_module_name,x_return_status);
1282: END IF;
1341: WSH_DEBUG_SV.log(l_module_name,'P_USER_ID',P_USER_ID);
1342: WSH_DEBUG_SV.log(l_module_name,'P_USER_NAME',P_USER_NAME);
1343: END IF;
1344: --
1345: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1346:
1347: IF (p_user_id IS NOT NULL) OR (p_user_name IS NOT NULL) THEN
1348:
1349: OPEN check_user;
1351:
1352: IF (check_user%NOTFOUND) THEN
1353:
1354: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_USER');
1355: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1356: wsh_util_core.add_message(x_return_status,l_module_name);
1357:
1358: END IF;
1359:
1352: IF (check_user%NOTFOUND) THEN
1353:
1354: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_USER');
1355: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1356: wsh_util_core.add_message(x_return_status,l_module_name);
1357:
1358: END IF;
1359:
1360: CLOSE check_user;
1422: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',P_SHIP_METHOD_CODE);
1423: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_NAME',P_SHIP_METHOD_NAME);
1424: END IF;
1425: --
1426: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1427: --
1428: IF nvl(p_ship_method_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1429: OR nvl(p_ship_method_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1430: THEN
1477:
1478: -- Always check if input is valid or not
1479: IF g_ship_method_tab(l_index).valid_flag = 'N' THEN
1480: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
1481: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1482: wsh_util_core.add_message(x_return_status,l_module_name);
1483: END IF;
1484:
1485: -- Always Populate return variables
1478: -- Always check if input is valid or not
1479: IF g_ship_method_tab(l_index).valid_flag = 'N' THEN
1480: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
1481: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1482: wsh_util_core.add_message(x_return_status,l_module_name);
1483: END IF;
1484:
1485: -- Always Populate return variables
1486: p_ship_method_code := g_ship_method_tab(l_index).output_param1;
1496: END IF;
1497: --
1498: EXCEPTION
1499: WHEN OTHERS THEN
1500: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1501: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Ship_Method');
1502: IF l_debug_on THEN
1503: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1504: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1497: --
1498: EXCEPTION
1499: WHEN OTHERS THEN
1500: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1501: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Ship_Method');
1502: IF l_debug_on THEN
1503: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1504: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1505: END IF;
1538: WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_TERMS_CODE',P_FREIGHT_TERMS_CODE);
1539: WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_TERMS_NAME',P_FREIGHT_TERMS_NAME);
1540: END IF;
1541: --
1542: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1543:
1544:
1545: IF nvl(p_freight_terms_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1546: OR nvl(p_freight_terms_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1552: p_meaning => p_freight_terms_name,
1553: x_return_status => x_return_status);
1554: END IF;
1555:
1556: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1557:
1558: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FREIGHT_TERMS');
1559: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1560: wsh_util_core.add_message(x_return_status,l_module_name);
1555:
1556: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1557:
1558: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FREIGHT_TERMS');
1559: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1560: wsh_util_core.add_message(x_return_status,l_module_name);
1561:
1562: END IF;
1563: --
1556: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1557:
1558: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FREIGHT_TERMS');
1559: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1560: wsh_util_core.add_message(x_return_status,l_module_name);
1561:
1562: END IF;
1563: --
1564: IF l_debug_on THEN
1599: WSH_DEBUG_SV.log(l_module_name,'P_FOB_CODE',P_FOB_CODE);
1600: WSH_DEBUG_SV.log(l_module_name,'P_FOB_NAME',P_FOB_NAME);
1601: END IF;
1602: --
1603: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1604:
1605: IF nvl(p_fob_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1606: OR nvl(p_fob_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
1607: THEN
1611: p_meaning => p_fob_name,
1612: x_return_status => x_return_status);
1613: END IF;
1614:
1615: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1616:
1617: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FOB');
1618: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1619: wsh_util_core.add_message(x_return_status,l_module_name);
1614:
1615: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1616:
1617: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FOB');
1618: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1619: wsh_util_core.add_message(x_return_status,l_module_name);
1620:
1621: END IF;
1622: --
1615: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1616:
1617: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_FOB');
1618: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1619: wsh_util_core.add_message(x_return_status,l_module_name);
1620:
1621: END IF;
1622: --
1623: IF l_debug_on THEN
1811: --
1812: EXCEPTION
1813: WHEN delimiter_null THEN
1814: FND_MESSAGE.SET_NAME('WSH','WSH_OI_FLEX_DELIMITER_NULL');
1815: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1816: --
1817: IF l_debug_on THEN
1818: WSH_DEBUG_SV.logmsg(l_module_name,'DELIMITER_NULL exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1819: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELIMITER_NULL');
1820: END IF;
1821: --
1822: WHEN wrong_combination THEN
1823: FND_MESSAGE.SET_NAME('WSH','WSH_OI_FLEX_INV_COMB_ERROR');
1824: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1825: --
1826: IF l_debug_on THEN
1827: WSH_DEBUG_SV.logmsg(l_module_name,'WRONG_COMBINATION exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1828: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WRONG_COMBINATION');
1880: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM',P_INVENTORY_ITEM);
1881: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
1882: END IF;
1883: --
1884: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1885:
1886: IF nvl(p_inventory_item_id, fnd_api.g_miss_num) = fnd_api.g_miss_num
1887: AND nvl(p_inventory_item, fnd_api.g_miss_char) = fnd_api.g_miss_char
1888: AND p_seg_array.count = 0
1907:
1908: IF valid_flag = FALSE THEN
1909:
1910: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ITEM');
1911: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1912: wsh_util_core.add_message(x_return_status,l_module_name);
1913: IF l_debug_on THEN
1914: WSH_DEBUG_SV.pop(l_module_name);
1915: END IF;
1908: IF valid_flag = FALSE THEN
1909:
1910: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ITEM');
1911: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1912: wsh_util_core.add_message(x_return_status,l_module_name);
1913: IF l_debug_on THEN
1914: WSH_DEBUG_SV.pop(l_module_name);
1915: END IF;
1916: RETURN;
1926: x_return_status => l_return_status);
1927:
1928: IF nvl(l_item_type, FND_API.G_MISS_CHAR) <> p_item_type THEN
1929: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ITEM');
1930: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1931: wsh_util_core.add_message(x_return_status,l_module_name);
1932: END IF;
1933: END IF;
1934: -- harmonization project end KVENKATE
1927:
1928: IF nvl(l_item_type, FND_API.G_MISS_CHAR) <> p_item_type THEN
1929: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ITEM');
1930: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1931: wsh_util_core.add_message(x_return_status,l_module_name);
1932: END IF;
1933: END IF;
1934: -- harmonization project end KVENKATE
1935: IF l_debug_on THEN
1963: --
1964: WSH_DEBUG_SV.log(l_module_name,'P_FLAG',P_FLAG);
1965: END IF;
1966: --
1967: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1968:
1969: IF (NVL(p_flag, 'N') NOT IN ('Y', 'N')) THEN
1970: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1971: END IF;
1966: --
1967: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1968:
1969: IF (NVL(p_flag, 'N') NOT IN ('Y', 'N')) THEN
1970: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1971: END IF;
1972: --
1973: IF l_debug_on THEN
1974: WSH_DEBUG_SV.pop(l_module_name);
2000: --
2001: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2002: END IF;
2003: --
2004: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2005:
2006: IF (NVL(p_released_status, 'N') NOT IN ('N', 'Y', 'R', 'X')) THEN
2007: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2008: END IF;
2003: --
2004: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2005:
2006: IF (NVL(p_released_status, 'N') NOT IN ('N', 'Y', 'R', 'X')) THEN
2007: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2008: END IF;
2009: --
2010: IF l_debug_on THEN
2011: WSH_DEBUG_SV.pop(l_module_name);
2055: WSH_DEBUG_SV.log(l_module_name,'P_UNIT_OF_MEASURE',P_UNIT_OF_MEASURE);
2056: WSH_DEBUG_SV.log(l_module_name,'X_UOM_CODE',X_UOM_CODE);
2057: END IF;
2058: --
2059: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2060:
2061: IF (p_unit_of_measure IS NOT NULL OR x_uom_code IS NOT NULL) THEN
2062: OPEN check_order_uom;
2063: FETCH check_order_uom INTO x_uom_code;
2065: IF (check_order_uom%NOTFOUND) THEN
2066:
2067: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_UOM');
2068: FND_MESSAGE.SET_TOKEN('UOM_TYPE','ordered quantity uom');
2069: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2070: wsh_util_core.add_message(x_return_status,l_module_name);
2071:
2072: END IF;
2073: CLOSE check_order_uom;
2066:
2067: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_UOM');
2068: FND_MESSAGE.SET_TOKEN('UOM_TYPE','ordered quantity uom');
2069: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2070: wsh_util_core.add_message(x_return_status,l_module_name);
2071:
2072: END IF;
2073: CLOSE check_order_uom;
2074:
2130: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2131: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_NAME',P_DELIVERY_NAME);
2132: END IF;
2133: --
2134: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2135:
2136: IF (p_delivery_id IS NOT NULL) OR (p_delivery_name IS NOT NULL) THEN
2137:
2138: OPEN check_delivery_name;
2140:
2141: IF (check_delivery_name%NOTFOUND) THEN
2142:
2143: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_DEL_NAME');
2144: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2145: wsh_util_core.add_message(x_return_status,l_module_name);
2146:
2147: END IF;
2148:
2141: IF (check_delivery_name%NOTFOUND) THEN
2142:
2143: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_DEL_NAME');
2144: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2145: wsh_util_core.add_message(x_return_status,l_module_name);
2146:
2147: END IF;
2148:
2149: CLOSE check_delivery_name;
2209: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_ID',P_REPORT_SET_ID);
2210: WSH_DEBUG_SV.log(l_module_name,'P_REPORT_SET_NAME',P_REPORT_SET_NAME);
2211: END IF;
2212: --
2213: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2214:
2215: IF (p_report_set_id IS NOT NULL) OR (p_report_set_name IS NOT NULL) THEN
2216:
2217: OPEN check_report_set;
2219:
2220: IF (check_report_set%NOTFOUND) THEN
2221:
2222: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_REPORT_SET');
2223: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2224: wsh_util_core.add_message(x_return_status,l_module_name);
2225:
2226: END IF;
2227:
2220: IF (check_report_set%NOTFOUND) THEN
2221:
2222: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_REPORT_SET');
2223: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2224: wsh_util_core.add_message(x_return_status,l_module_name);
2225:
2226: END IF;
2227:
2228: CLOSE check_report_set;
2270: WSH_DEBUG_SV.log(l_module_name,'P_LOADING_ORDER_FLAG',P_LOADING_ORDER_FLAG);
2271: WSH_DEBUG_SV.log(l_module_name,'P_LOADING_ORDER_DESC',P_LOADING_ORDER_DESC);
2272: END IF;
2273: --
2274: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2275: IF nvl(p_loading_order_flag,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
2276: OR nvl(p_loading_order_desc,FND_API.G_MISS_CHAR) <> FND_API.G_MISS_CHAR
2277: THEN
2278: --
2288: p_loading_order_flag := 'RI';
2289: ELSE
2290: --
2291: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOADING_ORDER');
2292: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2293: wsh_util_core.add_message(x_return_status,l_module_name);
2294: --
2295: END IF;
2296: --
2289: ELSE
2290: --
2291: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOADING_ORDER');
2292: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2293: wsh_util_core.add_message(x_return_status,l_module_name);
2294: --
2295: END IF;
2296: --
2297: ELSIF p_loading_order_flag NOT IN ('F','FI', 'R','RI') THEN
2296: --
2297: ELSIF p_loading_order_flag NOT IN ('F','FI', 'R','RI') THEN
2298: --
2299: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOADING_ORDER');
2300: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2301: wsh_util_core.add_message(x_return_status,l_module_name);
2302: --
2303: END IF;
2304: --
2297: ELSIF p_loading_order_flag NOT IN ('F','FI', 'R','RI') THEN
2298: --
2299: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOADING_ORDER');
2300: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2301: wsh_util_core.add_message(x_return_status,l_module_name);
2302: --
2303: END IF;
2304: --
2305: END IF;
2309: END IF;
2310: --
2311: EXCEPTION
2312: WHEN OTHERS THEN
2313: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2314: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_LOADING_ORDER');
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);
2310: --
2311: EXCEPTION
2312: WHEN OTHERS THEN
2313: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2314: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_LOADING_ORDER');
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:OTHERS');
2375: WSH_DEBUG_SV.log(l_module_name,'P_STOP_LOCATION_ID',P_STOP_LOCATION_ID);
2376: WSH_DEBUG_SV.log(l_module_name,'P_PLANNED_DEP_DATE',P_PLANNED_DEP_DATE);
2377: END IF;
2378: --
2379: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2380:
2381: IF (p_stop_id IS NOT NULL) OR (p_trip_id IS NOT NULL) THEN
2382:
2383: OPEN check_stop_name;
2385:
2386: IF (check_stop_name%NOTFOUND) THEN
2387:
2388: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_STOP_NAME');
2389: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2390: wsh_util_core.add_message(x_return_status,l_module_name);
2391:
2392: END IF;
2393:
2386: IF (check_stop_name%NOTFOUND) THEN
2387:
2388: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_STOP_NAME');
2389: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2390: wsh_util_core.add_message(x_return_status,l_module_name);
2391:
2392: END IF;
2393:
2394: CLOSE check_stop_name;
2450: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
2451: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_NAME',P_TRIP_NAME);
2452: END IF;
2453: --
2454: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2455:
2456: IF (p_trip_id IS NOT NULL) OR (p_trip_name IS NOT NULL) THEN
2457:
2458: OPEN check_trip_name;
2460:
2461: IF (check_trip_name%NOTFOUND) THEN
2462:
2463: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_TRIP_NAME');
2464: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2465: wsh_util_core.add_message(x_return_status,l_module_name);
2466:
2467: END IF;
2468:
2461: IF (check_trip_name%NOTFOUND) THEN
2462:
2463: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_TRIP_NAME');
2464: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2465: wsh_util_core.add_message(x_return_status,l_module_name);
2466:
2467: END IF;
2468:
2469: CLOSE check_trip_name;
2518: --
2519: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
2520: END IF;
2521: --
2522: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2523:
2524: IF ((p_trip_id IS NOT NULL) AND (p_mode_of_transport <> 'TRUCK')) THEN
2525:
2526: OPEN check_stop_count;
2530:
2531: l_trip_name := WSH_TRIPS_PVT.Get_Name(p_trip_id);
2532: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MOT_STOP_COUNT');
2533: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
2534: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2535: wsh_util_core.add_message(x_return_status,l_module_name);
2536:
2537: END IF;
2538:
2531: l_trip_name := WSH_TRIPS_PVT.Get_Name(p_trip_id);
2532: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MOT_STOP_COUNT');
2533: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
2534: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2535: wsh_util_core.add_message(x_return_status,l_module_name);
2536:
2537: END IF;
2538:
2539: CLOSE check_stop_count;
2600: --{
2601: --
2602: --
2603: IF l_debug_on THEN
2604: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE-x_dlvyTbl',WSH_DEBUG_SV.C_PROC_LEVEL);
2605: END IF;
2606: --
2607: wsh_util_core.get_cached_value
2608: (
2603: IF l_debug_on THEN
2604: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE-x_dlvyTbl',WSH_DEBUG_SV.C_PROC_LEVEL);
2605: END IF;
2606: --
2607: wsh_util_core.get_cached_value
2608: (
2609: p_cache_tbl => g_orgn_id_tbl,
2610: p_cache_ext_tbl => g_orgn_id_ext_tbl,
2611: p_value => l_return_status,
2614: x_return_status => l_proc_status
2615: );
2616: --
2617: --
2618: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2619: THEN
2620: RAISE FND_API.G_EXC_ERROR;
2621: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2622: THEN
2617: --
2618: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2619: THEN
2620: RAISE FND_API.G_EXC_ERROR;
2621: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2622: THEN
2623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2624: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2625: THEN
2620: RAISE FND_API.G_EXC_ERROR;
2621: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2622: THEN
2623: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2624: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_WARNING
2625: THEN
2626: --{
2627:
2628: l_return_value := wms_install.check_install(
2631: x_msg_count => l_msg_count,
2632: x_msg_data => l_msg_data);
2633:
2634:
2635: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2636: THEN
2637: RAISE FND_API.G_EXC_ERROR;
2638: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2639: THEN
2634:
2635: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2636: THEN
2637: RAISE FND_API.G_EXC_ERROR;
2638: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2639: THEN
2640: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2641: END IF;
2642:
2646: l_return_status := 'N';
2647: END IF;
2648:
2649: IF l_debug_on THEN
2650: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE-x_dlvyTbl',WSH_DEBUG_SV.C_PROC_LEVEL);
2651: END IF;
2652: --
2653: wsh_util_core.get_cached_value
2654: (
2649: IF l_debug_on THEN
2650: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE-x_dlvyTbl',WSH_DEBUG_SV.C_PROC_LEVEL);
2651: END IF;
2652: --
2653: wsh_util_core.get_cached_value
2654: (
2655: p_cache_tbl => g_orgn_id_tbl,
2656: p_cache_ext_tbl => g_orgn_id_ext_tbl,
2657: p_value => l_return_status,
2660: x_return_status => l_proc_status
2661: );
2662: --
2663: --
2664: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2665: THEN
2666: RAISE FND_API.G_EXC_ERROR;
2667: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2668: THEN
2663: --
2664: IF l_proc_status = WSH_UTIL_CORE.G_RET_STS_ERROR
2665: THEN
2666: RAISE FND_API.G_EXC_ERROR;
2667: ELSIF l_proc_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR
2668: THEN
2669: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2670: END IF;
2671: --
2743: WSH_DEBUG_SV.push(l_module_name);
2744: WSH_DEBUG_SV.log(l_module_name,'p_from_date',p_from_date);
2745: WSH_DEBUG_SV.log(l_module_name,'p_to_date',p_to_date);
2746: END IF;
2747: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2748:
2749: IF nvl(p_from_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
2750: OR nvl(p_to_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
2751: THEN
2749: IF nvl(p_from_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
2750: OR nvl(p_to_date, fnd_api.g_miss_date) <> fnd_api.g_miss_date
2751: THEN
2752: IF (p_from_date > p_to_date) THEN
2753: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2754: FND_MESSAGE.SET_NAME('WSH','WSH_XC_INVALID_DATE_RANGE');
2755: wsh_util_core.add_message(x_return_status,l_module_name);
2756: END IF;
2757: END IF;
2751: THEN
2752: IF (p_from_date > p_to_date) THEN
2753: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2754: FND_MESSAGE.SET_NAME('WSH','WSH_XC_INVALID_DATE_RANGE');
2755: wsh_util_core.add_message(x_return_status,l_module_name);
2756: END IF;
2757: END IF;
2758:
2759:
2762: END IF;
2763:
2764: EXCEPTION
2765: WHEN OTHERS THEN
2766: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2767: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_from_to_dates');
2768: IF l_debug_on THEN
2769: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2770: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2763:
2764: EXCEPTION
2765: WHEN OTHERS THEN
2766: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2767: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_from_to_dates');
2768: IF l_debug_on THEN
2769: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2770: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2771: END IF;
2823: WSH_DEBUG_SV.log(l_module_name,'p_trip_id',p_trip_id);
2824: WSH_DEBUG_SV.log(l_module_name,'p_action',p_action);
2825: END IF;
2826:
2827: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2828:
2829: IF (p_trip_id IS NOT NULL) THEN
2830: IF p_action = 'CREATE' THEN
2831: OPEN get_trip_status_1(p_trip_id);
2837: CLOSE get_trip_status_2;
2838: END IF;
2839:
2840: IF ( nvl(l_valid_trip, FND_API.G_MISS_CHAR) <> 'X' ) THEN
2841: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2842: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_STATUS_NO_ACTION');
2843: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
2844: wsh_util_core.add_message(x_return_status,l_module_name);
2845: END IF;
2840: IF ( nvl(l_valid_trip, FND_API.G_MISS_CHAR) <> 'X' ) THEN
2841: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2842: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_STATUS_NO_ACTION');
2843: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
2844: wsh_util_core.add_message(x_return_status,l_module_name);
2845: END IF;
2846: END IF;
2847:
2848: IF l_debug_on THEN
2850: END IF;
2851:
2852: EXCEPTION
2853: WHEN OTHERS THEN
2854: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2855: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_trip_status');
2856: IF l_debug_on THEN
2857: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2858: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2851:
2852: EXCEPTION
2853: WHEN OTHERS THEN
2854: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2855: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_trip_status');
2856: IF l_debug_on THEN
2857: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2858: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2859: END IF;
2910: WSH_DEBUG_SV.log(l_module_name,'x_carrier_id', x_carrier_id);
2911: --
2912: END IF;
2913: --
2914: x_return_status := wsh_util_core.g_ret_sts_success;
2915: --
2916: IF nvl(x_carrier_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num
2917: OR nvl(p_carrier_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
2918: THEN
2921: fetch l_carrier_csr into x_carrier_id;
2922: --
2923: IF l_carrier_csr%NOTFOUND THEN
2924: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_NOT_FOUND');
2925: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2926: wsh_util_core.add_message(x_return_status,l_module_name);
2927: END IF;
2928: close l_carrier_csr;
2929: --
2922: --
2923: IF l_carrier_csr%NOTFOUND THEN
2924: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_NOT_FOUND');
2925: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2926: wsh_util_core.add_message(x_return_status,l_module_name);
2927: END IF;
2928: close l_carrier_csr;
2929: --
2930: END IF;
2936: EXCEPTION
2937: --
2938: WHEN OTHERS THEN
2939: --
2940: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2941: --
2942: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_CARRIER');
2943: IF l_debug_on THEN
2944: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2938: WHEN OTHERS THEN
2939: --
2940: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2941: --
2942: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_CARRIER');
2943: IF l_debug_on THEN
2944: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2945: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2946: END IF;
3191: THEN
3192: --
3193: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_ENTITY_TYPE');
3194: FND_MESSAGE.SET_TOKEN('ENT_TYPE', p_entity_type);
3195: x_return_status := wsh_util_core.g_ret_sts_error;
3196: wsh_util_core.add_message(x_return_status,l_module_name);
3197: RAISE FND_API.G_EXC_ERROR;
3198: --
3199: END IF;
3192: --
3193: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_ENTITY_TYPE');
3194: FND_MESSAGE.SET_TOKEN('ENT_TYPE', p_entity_type);
3195: x_return_status := wsh_util_core.g_ret_sts_error;
3196: wsh_util_core.add_message(x_return_status,l_module_name);
3197: RAISE FND_API.G_EXC_ERROR;
3198: --
3199: END IF;
3200: --
3256: IF l_debug_on THEN
3257: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_ship_method',l_return_status);
3258: END IF;
3259: --
3260: WSH_UTIL_CORE.api_post_call(
3261: p_return_status => l_return_status,
3262: x_num_warnings => l_num_warnings,
3263: x_num_errors => l_num_errors);
3264: --
3270: IF l_debug_on THEN
3271: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_carrier',l_return_status);
3272: END IF;
3273: --
3274: WSH_UTIL_CORE.api_post_call(
3275: p_return_status => l_return_status,
3276: x_num_warnings => l_num_warnings,
3277: x_num_errors => l_num_errors);
3278: --
3310: IF l_debug_on THEN
3311: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_lookup for service_level',l_return_status);
3312: END IF;
3313: --
3314: WSH_UTIL_CORE.api_post_call(
3315: p_return_status => l_return_status,
3316: x_num_warnings => l_num_warnings,
3317: x_num_errors => l_num_errors);
3318: --
3331: IF l_debug_on THEN
3332: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_lookup for mode_of_transport',l_return_status);
3333: END IF;
3334: --
3335: WSH_UTIL_CORE.api_post_call(
3336: p_return_status => l_return_status,
3337: x_num_warnings => l_num_warnings,
3338: x_num_errors => l_num_errors);
3339: --
3374: AND NVL(l_service_level,fnd_api.G_MISS_CHAR) =
3375: NVL(x_service_level,fnd_api.G_MISS_CHAR)
3376: AND NVL(l_mode_of_transport,fnd_api.G_MISS_CHAR) =
3377: NVL(x_mode_of_transport,fnd_api.G_MISS_CHAR)
3378: AND (WSH_UTIL_CORE.FTE_IS_INSTALLED <> 'Y') THEN
3379: --
3380: x_return_status := wsh_util_core.g_ret_sts_success;
3381: IF l_debug_on THEN
3382: --
3376: AND NVL(l_mode_of_transport,fnd_api.G_MISS_CHAR) =
3377: NVL(x_mode_of_transport,fnd_api.G_MISS_CHAR)
3378: AND (WSH_UTIL_CORE.FTE_IS_INSTALLED <> 'Y') THEN
3379: --
3380: x_return_status := wsh_util_core.g_ret_sts_success;
3381: IF l_debug_on THEN
3382: --
3383: WSH_DEBUG_SV.logmsg(l_module_name,'FTE not installed' );
3384: WSH_DEBUG_SV.pop(l_module_name);
3401: --
3402: IF l_dlvy_ship_method_code_csr_tp%NOTFOUND THEN
3403: close l_dlvy_ship_method_code_csr_tp;
3404: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3405: x_return_status := wsh_util_core.g_ret_sts_error;
3406: wsh_util_core.add_message(x_return_status,l_module_name);
3407: RAISE FND_API.G_EXC_ERROR;
3408: END IF;
3409: --
3402: IF l_dlvy_ship_method_code_csr_tp%NOTFOUND THEN
3403: close l_dlvy_ship_method_code_csr_tp;
3404: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3405: x_return_status := wsh_util_core.g_ret_sts_error;
3406: wsh_util_core.add_message(x_return_status,l_module_name);
3407: RAISE FND_API.G_EXC_ERROR;
3408: END IF;
3409: --
3410: close l_dlvy_ship_method_code_csr_tp;
3416: --
3417: IF l_dlvy_ship_method_code_csr%NOTFOUND THEN
3418: close l_dlvy_ship_method_code_csr;
3419: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3420: x_return_status := wsh_util_core.g_ret_sts_error;
3421: wsh_util_core.add_message(x_return_status,l_module_name);
3422: RAISE FND_API.G_EXC_ERROR;
3423: END IF;
3424: --
3417: IF l_dlvy_ship_method_code_csr%NOTFOUND THEN
3418: close l_dlvy_ship_method_code_csr;
3419: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3420: x_return_status := wsh_util_core.g_ret_sts_error;
3421: wsh_util_core.add_message(x_return_status,l_module_name);
3422: RAISE FND_API.G_EXC_ERROR;
3423: END IF;
3424: --
3425: close l_dlvy_ship_method_code_csr;
3434: --
3435: IF l_trip_ship_method_code_csr%NOTFOUND THEN
3436: close l_trip_ship_method_code_csr;
3437: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3438: x_return_status := wsh_util_core.g_ret_sts_error;
3439: wsh_util_core.add_message(x_return_status,l_module_name);
3440: RAISE FND_API.G_EXC_ERROR;
3441: END IF;
3442: --
3435: IF l_trip_ship_method_code_csr%NOTFOUND THEN
3436: close l_trip_ship_method_code_csr;
3437: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_SHIP_METHOD');
3438: x_return_status := wsh_util_core.g_ret_sts_error;
3439: wsh_util_core.add_message(x_return_status,l_module_name);
3440: RAISE FND_API.G_EXC_ERROR;
3441: END IF;
3442: --
3443: close l_trip_ship_method_code_csr;
3456: fetch l_dlvy_carrier_services_csr_tp into x_ship_method_code;
3457: IF l_dlvy_carrier_services_csr_tp%NOTFOUND THEN
3458: close l_dlvy_carrier_services_csr_tp;
3459: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3460: x_return_status := wsh_util_core.g_ret_sts_warning;
3461: wsh_util_core.add_message(x_return_status,l_module_name);
3462: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3463: END IF;
3464: --
3457: IF l_dlvy_carrier_services_csr_tp%NOTFOUND THEN
3458: close l_dlvy_carrier_services_csr_tp;
3459: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3460: x_return_status := wsh_util_core.g_ret_sts_warning;
3461: wsh_util_core.add_message(x_return_status,l_module_name);
3462: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3463: END IF;
3464: --
3465: close l_dlvy_carrier_services_csr_tp;
3458: close l_dlvy_carrier_services_csr_tp;
3459: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3460: x_return_status := wsh_util_core.g_ret_sts_warning;
3461: wsh_util_core.add_message(x_return_status,l_module_name);
3462: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3463: END IF;
3464: --
3465: close l_dlvy_carrier_services_csr_tp;
3466: ELSE
3468: fetch l_dlvy_carrier_services_csr into x_ship_method_code;
3469: IF l_dlvy_carrier_services_csr%NOTFOUND THEN
3470: close l_dlvy_carrier_services_csr;
3471: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3472: x_return_status := wsh_util_core.g_ret_sts_warning;
3473: wsh_util_core.add_message(x_return_status,l_module_name);
3474: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3475: END IF;
3476: --
3469: IF l_dlvy_carrier_services_csr%NOTFOUND THEN
3470: close l_dlvy_carrier_services_csr;
3471: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3472: x_return_status := wsh_util_core.g_ret_sts_warning;
3473: wsh_util_core.add_message(x_return_status,l_module_name);
3474: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3475: END IF;
3476: --
3477: close l_dlvy_carrier_services_csr;
3470: close l_dlvy_carrier_services_csr;
3471: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3472: x_return_status := wsh_util_core.g_ret_sts_warning;
3473: wsh_util_core.add_message(x_return_status,l_module_name);
3474: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3475: END IF;
3476: --
3477: close l_dlvy_carrier_services_csr;
3478: END IF;
3483: fetch l_trip_carrier_services_csr into x_ship_method_code;
3484: IF l_trip_carrier_services_csr%NOTFOUND THEN
3485: close l_trip_carrier_services_csr;
3486: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3487: x_return_status := wsh_util_core.g_ret_sts_warning;
3488: wsh_util_core.add_message(x_return_status,l_module_name);
3489: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3490: END IF;
3491: --
3484: IF l_trip_carrier_services_csr%NOTFOUND THEN
3485: close l_trip_carrier_services_csr;
3486: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3487: x_return_status := wsh_util_core.g_ret_sts_warning;
3488: wsh_util_core.add_message(x_return_status,l_module_name);
3489: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3490: END IF;
3491: --
3492: close l_trip_carrier_services_csr;
3485: close l_trip_carrier_services_csr;
3486: FND_MESSAGE.SET_NAME('WSH','WSH_NO_SHIP_METHOD_FOR_CS');
3487: x_return_status := wsh_util_core.g_ret_sts_warning;
3488: wsh_util_core.add_message(x_return_status,l_module_name);
3489: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3490: END IF;
3491: --
3492: close l_trip_carrier_services_csr;
3493: --
3501: IF l_debug_on THEN
3502: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_ship_method Name',l_return_status);
3503: END IF;
3504: --
3505: WSH_UTIL_CORE.api_post_call(
3506: p_return_status => l_return_status,
3507: x_num_warnings => l_num_warnings,
3508: x_num_errors => l_num_errors);
3509: --
3536: IF l_debug_on THEN
3537: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_ship_method Name',l_return_status);
3538: END IF;
3539: --
3540: WSH_UTIL_CORE.api_post_call(
3541: p_return_status => l_return_status,
3542: x_num_warnings => l_num_warnings,
3543: x_num_errors => l_num_errors);
3544: --
3547: -- Bug 4086855
3548: -- If the trip's mode is PARCEL or LTL, the trip can have at most two
3549: -- stops (linked stops are counted as one stop in this case).
3550:
3551: IF (WSH_UTIL_CORE.FTE_IS_INSTALLED = 'Y')
3552: AND (p_entity_type = 'TRIP') AND (x_mode_of_transport in ('LTL', 'PARCEL')) THEN
3553:
3554: OPEN l_trip_stop_count(p_entity_id);
3555: FETCH l_trip_stop_count INTO l_stop_count;
3559:
3560: l_trip_name := WSH_TRIPS_PVT.Get_Name(p_entity_id);
3561: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MOT_STOP_COUNT');
3562: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
3563: x_return_status := wsh_util_core.g_ret_sts_error;
3564: wsh_util_core.add_message(x_return_status,l_module_name);
3565: RAISE FND_API.G_EXC_ERROR;
3566:
3567: END IF;
3560: l_trip_name := WSH_TRIPS_PVT.Get_Name(p_entity_id);
3561: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_MOT_STOP_COUNT');
3562: FND_MESSAGE.SET_TOKEN('TRIP_NAME', l_trip_name);
3563: x_return_status := wsh_util_core.g_ret_sts_error;
3564: wsh_util_core.add_message(x_return_status,l_module_name);
3565: RAISE FND_API.G_EXC_ERROR;
3566:
3567: END IF;
3568: END IF;
3582: END IF;
3583: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_METHOD_CHANGE');
3584: FND_MESSAGE.SET_TOKEN('ORIG_SM', l_ship_method_code_backup);
3585: FND_MESSAGE.SET_TOKEN('CALC_SM', x_ship_method_code);
3586: x_return_status := wsh_util_core.g_ret_sts_warning;
3587: wsh_util_core.add_message(x_return_status,l_module_name);
3588: END IF;
3589:
3590: END IF;
3583: FND_MESSAGE.SET_NAME('WSH','WSH_SHIP_METHOD_CHANGE');
3584: FND_MESSAGE.SET_TOKEN('ORIG_SM', l_ship_method_code_backup);
3585: FND_MESSAGE.SET_TOKEN('CALC_SM', x_ship_method_code);
3586: x_return_status := wsh_util_core.g_ret_sts_warning;
3587: wsh_util_core.add_message(x_return_status,l_module_name);
3588: END IF;
3589:
3590: END IF;
3591:
3588: END IF;
3589:
3590: END IF;
3591:
3592: x_return_status := wsh_util_core.g_ret_sts_success;
3593: --
3594: IF l_debug_on THEN
3595: WSH_DEBUG_SV.pop(l_module_name);
3596: END IF;
3598: EXCEPTION
3599: --
3600: WHEN FND_API.G_EXC_ERROR THEN
3601: --
3602: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3603: IF l_debug_on THEN
3604: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3606: END IF;
3606: END IF;
3607: --
3608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3609: --
3610: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3611: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_FREIGHT_CARRIER');
3612: IF l_debug_on THEN
3613: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3614: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3607: --
3608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3609: --
3610: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3611: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_FREIGHT_CARRIER');
3612: IF l_debug_on THEN
3613: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3614: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3615: END IF;
3613: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3614: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3615: END IF;
3616: --
3617: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3618: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3619: --
3620: IF l_debug_on THEN
3621: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3614: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3615: END IF;
3616: --
3617: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3618: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3619: --
3620: IF l_debug_on THEN
3621: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3622: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNIN
3617: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3618: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3619: --
3620: IF l_debug_on THEN
3621: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3622: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNIN
3623: G');
3624: END IF;
3625: --
3618: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3619: --
3620: IF l_debug_on THEN
3621: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3622: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNIN
3623: G');
3624: END IF;
3625: --
3626: WHEN OTHERS THEN
3623: G');
3624: END IF;
3625: --
3626: WHEN OTHERS THEN
3627: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3628: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_FREIGHT_CARRIER');
3629: --
3630: IF l_debug_on THEN
3631: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3624: END IF;
3625: --
3626: WHEN OTHERS THEN
3627: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3628: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.VALIDATE_FREIGHT_CARRIER');
3629: --
3630: IF l_debug_on THEN
3631: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3632: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3684: WSH_DEBUG_SV.log(l_module_name,'P_INVENTORY_ITEM_ID',P_INVENTORY_ITEM_ID);
3685: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
3686: END IF;
3687: --
3688: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3689:
3690: OPEN veh_cont_item_cur(p_inventory_item_id, p_organization_id);
3691: FETCH veh_cont_item_cur INTO
3692: l_container_item_flag, l_shippable_flag, l_vehicle_item_flag;
3718: --
3719:
3720: EXCEPTION
3721: WHEN FND_API.G_EXC_ERROR THEN
3722: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3723: wsh_util_core.add_message(x_return_status,l_module_name);
3724: IF l_debug_on THEN
3725: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3726: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3719:
3720: EXCEPTION
3721: WHEN FND_API.G_EXC_ERROR THEN
3722: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3723: wsh_util_core.add_message(x_return_status,l_module_name);
3724: IF l_debug_on THEN
3725: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3726: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3727: END IF;
3727: END IF;
3728:
3729: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3730: --
3731: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3732: IF l_debug_on THEN
3733: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3735: END IF;
3734: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3735: END IF;
3736:
3737: WHEN OTHERS THEN
3738: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3739: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.FIND_ITEM_TYPE');
3740: --
3741: IF l_debug_on THEN
3742: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3735: END IF;
3736:
3737: WHEN OTHERS THEN
3738: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3739: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.FIND_ITEM_TYPE');
3740: --
3741: IF l_debug_on THEN
3742: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3743: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3786: p_delivery_id => p_delivery_id,
3787: p_delivery_detail_id => p_delivery_detail_id,
3788: p_msg_display => p_msg_display);
3789:
3790: IF l_return_status = wsh_util_core.g_ret_sts_error THEN
3791: raise FND_API.G_EXC_ERROR;
3792: ELSIF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
3793: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3794: END IF;
3788: p_msg_display => p_msg_display);
3789:
3790: IF l_return_status = wsh_util_core.g_ret_sts_error THEN
3791: raise FND_API.G_EXC_ERROR;
3792: ELSIF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
3793: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3794: END IF;
3795:
3796: l_wms_installed := wsh_util_validate.Check_Wms_Org(p_organization_id);
3809: ELSIF l_org_type_wms IS NOT NULL THEN
3810: l_org_type := l_org_type || '.' || l_org_type_wms;
3811: END IF;
3812:
3813: x_return_status := wsh_util_core.g_ret_sts_success;
3814:
3815: IF l_debug_on THEN
3816: wsh_debug_sv.pop(l_module_name, 'Get_Org_Type');
3817: END IF;
3818:
3819: RETURN l_org_type;
3820: EXCEPTION
3821: WHEN FND_API.G_EXC_ERROR THEN
3822: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3823: --
3824: IF l_debug_on THEN
3825: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3826: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3827: END IF;
3828: RETURN l_org_type;
3829: --
3830: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3831: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3832: --
3833: IF l_debug_on THEN
3834: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3835: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3836: END IF;
3837: RETURN l_org_type;
3838: --
3839: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3840: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3841: --
3842: IF l_debug_on THEN
3843: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3836: END IF;
3837: RETURN l_org_type;
3838: --
3839: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3840: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3841: --
3842: IF l_debug_on THEN
3843: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3844: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3839: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3840: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3841: --
3842: IF l_debug_on THEN
3843: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3844: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3845: END IF;
3846: RETURN l_org_type;
3847: --
3840: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3841: --
3842: IF l_debug_on THEN
3843: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3844: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3845: END IF;
3846: RETURN l_org_type;
3847: --
3848: WHEN OTHERS THEN
3845: END IF;
3846: RETURN l_org_type;
3847: --
3848: WHEN OTHERS THEN
3849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3850: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.GET_ORG_TYPE');
3851: --
3852: IF l_debug_on THEN
3853: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3846: RETURN l_org_type;
3847: --
3848: WHEN OTHERS THEN
3849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3850: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.GET_ORG_TYPE');
3851: --
3852: IF l_debug_on THEN
3853: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3854: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3924: --
3925: IF (p_organization_id IS NULL ) OR (p_inventory_item_id IS NULL )THEN
3926: RAISE FND_API.G_EXC_ERROR;
3927: END IF;
3928: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3929:
3930: l_hash_string := p_organization_id || '-'||p_inventory_item_id;
3931: l_hash_value := dbms_utility.get_hash_value(
3932: name => l_hash_string,
3994: END IF;
3995: EXCEPTION
3996:
3997: WHEN FND_API.G_EXC_ERROR THEN
3998: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3999: --
4000: IF l_debug_on THEN
4001: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
4002: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4003: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4004: END IF;
4005: --
4006: WHEN OTHERS THEN
4007: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4008: wsh_util_core.default_handler('WSH_UTIL_CORE.GET_ITEM_INFO');
4009: --
4010: IF l_debug_on THEN
4011: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4004: END IF;
4005: --
4006: WHEN OTHERS THEN
4007: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4008: wsh_util_core.default_handler('WSH_UTIL_CORE.GET_ITEM_INFO');
4009: --
4010: IF l_debug_on THEN
4011: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4012: 'Oracle error message is '||
4065: IF p_item_id IS NULL THEN
4066: RAISE FND_API.G_EXC_ERROR;
4067: END IF;
4068: --
4069: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4070:
4071: IF p_item_id < C_IDX_LIMT THEN --{
4072:
4073: IF G_DEF_CONT_INF_TAB.EXISTS(p_item_id) THEN
4132: END IF;
4133:
4134: EXCEPTION
4135: WHEN FND_API.G_EXC_ERROR THEN
4136: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4137: --
4138: IF l_debug_on THEN
4139: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
4140: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4142: END IF;
4143: --
4144:
4145: WHEN OTHERS THEN
4146: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4147: wsh_util_core.default_handler('WSH_UTIL_CORE.DEFAULT_CONTAINER');
4148: --
4149: IF l_debug_on THEN
4150: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4143: --
4144:
4145: WHEN OTHERS THEN
4146: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4147: wsh_util_core.default_handler('WSH_UTIL_CORE.DEFAULT_CONTAINER');
4148: --
4149: IF l_debug_on THEN
4150: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4151: 'Oracle error message is '||
4215: WSH_DEBUG_SV.log(l_module_name, 'p_otm_installed',p_otm_installed); --OTM R12 Org-Specific
4216: WSH_DEBUG_SV.log(l_module_name, 'p_client_id',p_client_id); -- LSP PROJECT
4217: END IF;
4218: --
4219: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4220: IF p_caller = 'PO' THEN --{
4221: x_ignore_for_planning := 'Y';
4222: ELSIF p_otm_installed = 'Y' then --{ --OTM R12 Start Org-Specific
4223: --{
4231: ,l_return_status);
4232: WSH_DEBUG_SV.log(l_module_name,'l_shipping_param_info.otm_enabled '
4233: ,l_shipping_param_info.otm_enabled);
4234: END IF;
4235: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
4236: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4237: Raise FND_API.G_EXC_ERROR;
4238: END IF;
4239: IF l_shipping_param_info.otm_enabled = 'Y' THEN
4232: WSH_DEBUG_SV.log(l_module_name,'l_shipping_param_info.otm_enabled '
4233: ,l_shipping_param_info.otm_enabled);
4234: END IF;
4235: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
4236: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4237: Raise FND_API.G_EXC_ERROR;
4238: END IF;
4239: IF l_shipping_param_info.otm_enabled = 'Y' THEN
4240: x_ignore_for_planning := 'N';
4302: WSH_DEBUG_SV.pop(l_module_name,x_ignore_for_planning);
4303: END IF;
4304: EXCEPTION
4305: WHEN FND_API.G_EXC_ERROR THEN --{ --OTM R12 Start
4306: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4307: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
4308: IF l_debug_on THEN
4309: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
4310: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4303: END IF;
4304: EXCEPTION
4305: WHEN FND_API.G_EXC_ERROR THEN --{ --OTM R12 Start
4306: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4307: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
4308: IF l_debug_on THEN
4309: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has '
4310: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4311: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4310: || 'occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4311: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4312: END IF; --} --OTM R12 End
4313: WHEN OTHERS THEN
4314: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4315: wsh_util_core.default_handler('WSH_UTIL_CORE.DEFAULT_CONTAINER');
4316: --
4317: IF l_debug_on THEN
4318: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4311: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4312: END IF; --} --OTM R12 End
4313: WHEN OTHERS THEN
4314: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4315: wsh_util_core.default_handler('WSH_UTIL_CORE.DEFAULT_CONTAINER');
4316: --
4317: IF l_debug_on THEN
4318: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. '||
4319: 'Oracle error message is '||
4396: --
4397: WSH_DEBUG_SV.log(l_module_name,'P_FOB',P_FOB);
4398: END IF;
4399: --
4400: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4401:
4402: OPEN c_fob(p_fob);
4403: FETCH c_fob INTO l_fob;
4404:
4455: --
4456: EXCEPTION
4457: WHEN OTHERS THEN
4458: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4459: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.VALIDATE_FOB',l_module_name);
4460: --
4461: -- Debug Statements
4462: --
4463: IF l_debug_on THEN
4542: --
4543: WSH_DEBUG_SV.log(l_module_name,'P_FREIGHT_TERMS_CODE',P_FREIGHT_TERMS_CODE);
4544: END IF;
4545: --
4546: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4547:
4548: OPEN c_freight(p_freight_terms_code);
4549: FETCH c_freight INTO l_fgt;
4550:
4601: --
4602: EXCEPTION
4603: WHEN OTHERS THEN
4604: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4605: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.VALIDATE_FREIGHT_TERMS',l_module_name);
4606: --
4607: -- Debug Statements
4608: --
4609: IF l_debug_on THEN
4673: wsh_debug_sv.LOG(l_module_name, 'p_party_id', p_party_id);
4674: wsh_debug_sv.LOG(l_module_name, 'p_location_id', p_location_id);
4675: END IF;
4676: --
4677: x_return_status := wsh_util_core.g_ret_sts_success;
4678: --
4679: --
4680: OPEN locn_csr (p_location_id, p_party_id);
4681: --
4686: THEN
4687: --{
4688:
4689: IF l_debug_on THEN
4690: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_location_description',WSH_DEBUG_SV.C_PROC_LEVEL);
4691: END IF;
4692: --
4693: l_location_name := SUBSTRB(
4694: WSH_UTIL_CORE.get_location_description
4690: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.get_location_description',WSH_DEBUG_SV.C_PROC_LEVEL);
4691: END IF;
4692: --
4693: l_location_name := SUBSTRB(
4694: WSH_UTIL_CORE.get_location_description
4695: (
4696: p_location_id,
4697: 'NEW UI CODE'
4698: ),
4702: --
4703: fnd_message.SET_name('WSH', 'WSH_SUPP_LOCN_ERROR');
4704: FND_MESSAGE.SET_TOKEN('LOCATION_NAME',l_location_name);
4705: --
4706: WSH_UTIL_CORE.add_message (wsh_util_core.g_ret_sts_error,l_module_name);
4707: RAISE FND_API.G_EXC_ERROR;
4708: --}
4709: END IF;
4710: --
4720: --{
4721: --
4722: WHEN FND_API.G_EXC_ERROR THEN
4723:
4724: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4725: --
4726: IF l_debug_on THEN
4727: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4728: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4729: END IF;
4730: --
4731: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4732:
4733: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4734: --
4735: IF l_debug_on THEN
4736: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4737: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4736: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4737: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4738: END IF;
4739: --
4740: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4741: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4742: --
4743: IF l_debug_on THEN
4744: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4737: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4738: END IF;
4739: --
4740: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4741: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4742: --
4743: IF l_debug_on THEN
4744: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4745: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4740: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4741: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4742: --
4743: IF l_debug_on THEN
4744: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4745: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4746: END IF;
4747: --
4748: WHEN OTHERS THEN
4741: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4742: --
4743: IF l_debug_on THEN
4744: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4745: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4746: END IF;
4747: --
4748: WHEN OTHERS THEN
4749:
4746: END IF;
4747: --
4748: WHEN OTHERS THEN
4749:
4750: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4751: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_supplier_location', l_module_name);
4752: IF l_debug_on THEN
4753: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4754: END IF;
4747: --
4748: WHEN OTHERS THEN
4749:
4750: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4751: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.validate_supplier_location', l_module_name);
4752: IF l_debug_on THEN
4753: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4754: END IF;
4755: --
4812: WSH_DEBUG_SV.log(l_module_name,'P_PICK_GROUPING_RULE_NAME',p_pick_grouping_rule_name);
4813: --}
4814: END IF;
4815: --
4816: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4817:
4818: IF (p_pick_grouping_rule_id IS NOT NULL) OR (p_pick_grouping_rule_name IS NOT NULL) THEN
4819: --{
4820: OPEN check_pick_grouping_rule_name;
4822: IF (check_pick_grouping_rule_name%NOTFOUND) THEN
4823: --{
4824: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4825: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pick Grouping Rule');
4826: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4827: wsh_util_core.add_message(x_return_status,l_module_name);
4828: --}
4829: END IF;
4830: CLOSE check_pick_grouping_rule_name;
4823: --{
4824: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4825: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pick Grouping Rule');
4826: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4827: wsh_util_core.add_message(x_return_status,l_module_name);
4828: --}
4829: END IF;
4830: CLOSE check_pick_grouping_rule_name;
4831: --}
4889: WSH_DEBUG_SV.log(l_module_name,'P_PICK_SEQUENCE_RULE_NAME',p_pick_sequence_rule_NAME);
4890: --}
4891: END IF;
4892: --
4893: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4894:
4895: IF (p_pick_sequence_rule_id IS NOT NULL) OR (p_pick_sequence_rule_name IS NOT NULL) THEN
4896: --{
4897: OPEN check_pick_sequence_rule_name;
4899: IF (check_pick_sequence_rule_name%NOTFOUND) THEN
4900: --{
4901: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4902: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pick Sequence Rule');
4903: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4904: wsh_util_core.add_message(x_return_status,l_module_name);
4905: --}
4906: END IF;
4907: CLOSE check_pick_sequence_rule_name;
4900: --{
4901: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4902: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Pick Sequence Rule');
4903: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4904: wsh_util_core.add_message(x_return_status,l_module_name);
4905: --}
4906: END IF;
4907: CLOSE check_pick_sequence_rule_name;
4908: --}
4966: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_CONFIRM_RULE_NAME',p_ship_confirm_rule_name);
4967: --}
4968: END IF;
4969: --
4970: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4971:
4972: IF (p_ship_confirm_rule_id IS NOT NULL) OR (p_ship_confirm_rule_name IS NOT NULL) THEN
4973: --{
4974: OPEN check_ship_confirm_rule_name;
4976: IF (check_ship_confirm_rule_name%NOTFOUND) THEN
4977: --{
4978: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4979: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship Confirm Rule');
4980: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4981: wsh_util_core.add_message(x_return_status,l_module_name);
4982: --}
4983: END IF;
4984: CLOSE check_ship_confirm_rule_name;
4977: --{
4978: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
4979: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Ship Confirm Rule');
4980: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4981: wsh_util_core.add_message(x_return_status,l_module_name);
4982: --}
4983: END IF;
4984: CLOSE check_ship_confirm_rule_name;
4985: --}
5042: WSH_DEBUG_SV.log(l_module_name,'P_PICKING_BATCH_NAME',p_Picking_Batch_name);
5043: --}
5044: END IF;
5045: --
5046: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5047:
5048: IF (p_Picking_Batch_id IS NOT NULL) OR (p_Picking_Batch_name IS NOT NULL) THEN
5049: --{
5050: OPEN check_Picking_Batch_name;
5052: IF (check_Picking_Batch_name%NOTFOUND) THEN
5053: --{
5054: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
5055: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Picking Batch Name');
5056: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5057: wsh_util_core.add_message(x_return_status,l_module_name);
5058: --}
5059: END IF;
5060: CLOSE check_Picking_Batch_name;
5053: --{
5054: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_ATTRIBUTE');
5055: FND_MESSAGE.SET_TOKEN('ATTRIBUTE','Picking Batch Name');
5056: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5057: wsh_util_core.add_message(x_return_status,l_module_name);
5058: --}
5059: END IF;
5060: CLOSE check_Picking_Batch_name;
5061: --}
5124: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_CODE',P_SHIP_METHOD_CODE);
5125: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_METHOD_NAME',P_SHIP_METHOD_NAME);
5126: END IF;
5127: --
5128: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5129: --
5130: IF nvl(p_ship_method_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char
5131: OR nvl(p_ship_method_name, fnd_api.g_miss_char) <> fnd_api.g_miss_char
5132: THEN
5135: FETCH check_ship_method INTO p_ship_method_code, p_ship_method_name;
5136: --
5137: IF (check_ship_method%NOTFOUND) THEN
5138: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INACTIVE_SHIP_METHOD');
5139: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5140: wsh_util_core.add_message(x_return_status,l_module_name);
5141: END IF;
5142: --
5143: CLOSE check_ship_method;
5136: --
5137: IF (check_ship_method%NOTFOUND) THEN
5138: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INACTIVE_SHIP_METHOD');
5139: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5140: wsh_util_core.add_message(x_return_status,l_module_name);
5141: END IF;
5142: --
5143: CLOSE check_ship_method;
5144: --
5151: END IF;
5152: --
5153: EXCEPTION
5154: WHEN OTHERS THEN
5155: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5156: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Active_SM');
5157: IF l_debug_on THEN
5158: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5159: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5152: --
5153: EXCEPTION
5154: WHEN OTHERS THEN
5155: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5156: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Active_SM');
5157: IF l_debug_on THEN
5158: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5159: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5160: END IF;
5229: WSH_DEBUG_SV.log(l_module_name,'P_LOOKUP_CODE',P_LOOKUP_CODE);
5230: WSH_DEBUG_SV.log(l_module_name,'P_MEANING',P_MEANING);
5231: END IF;
5232: --
5233: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5234:
5235: IF (p_lookup_code IS NOT NULL) OR (p_meaning IS NOT NULL) THEN
5236: -- Bug 3821688
5237: l_cache_rec.input_param1 := p_lookup_code;
5262: ELSIF l_count > 1 THEN -- more than 1 record found
5263: -- Add this Message to the one at the end
5264: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_LOOKUP_CODE');
5265: FND_MESSAGE.SET_TOKEN('LOOKUP_TYPE',p_lookup_type);
5266: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5267: wsh_util_core.add_message(x_return_status,l_module_name);
5268: END IF;
5269:
5270: ELSIF p_meaning IS NOT NULL THEN
5263: -- Add this Message to the one at the end
5264: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_LOOKUP_CODE');
5265: FND_MESSAGE.SET_TOKEN('LOOKUP_TYPE',p_lookup_type);
5266: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5267: wsh_util_core.add_message(x_return_status,l_module_name);
5268: END IF;
5269:
5270: ELSIF p_meaning IS NOT NULL THEN
5271: OPEN check_lookup_meaning;
5283:
5284: -- Always check if input is valid or not
5285: IF g_lookup_tab(l_index).valid_flag = 'N' THEN
5286: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOOKUP');
5287: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5288: wsh_util_core.add_message(x_return_status,l_module_name);
5289: END IF;
5290: -- Always Populate return variables
5291: p_lookup_code := g_lookup_tab(l_index).output_param1;
5284: -- Always check if input is valid or not
5285: IF g_lookup_tab(l_index).valid_flag = 'N' THEN
5286: FND_MESSAGE.SET_NAME('WSH','WSH_OI_INVALID_LOOKUP');
5287: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5288: wsh_util_core.add_message(x_return_status,l_module_name);
5289: END IF;
5290: -- Always Populate return variables
5291: p_lookup_code := g_lookup_tab(l_index).output_param1;
5292:
5301: EXCEPTION
5302: --
5303: WHEN OTHERS THEN
5304: --
5305: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5306: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Lookup_Upper');
5307: --
5308: IF l_debug_on THEN
5309: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5302: --
5303: WHEN OTHERS THEN
5304: --
5305: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5306: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Lookup_Upper');
5307: --
5308: IF l_debug_on THEN
5309: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5310: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5318:
5319: COMMENT : This is just a wrapper around the function
5320: WSH_UITL_CORE.ValidateActualDepartureDate
5321:
5322: This procedure calls a similar function in WSH_UTIL_CORE
5323: and logs an error message if the actual departure date is
5324: not valid.
5325:
5326: HISTORY : rlanka 03/08/2005 Created
5353: WSH_DEBUG_SV.log(l_module_name,'p_actual_departure_date',
5354: p_actual_departure_date);
5355: END IF;
5356: --
5357: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5358: --
5359: v_ValidDate := WSH_UTIL_CORE.ValidateActualDepartureDate(
5360: p_ship_confirm_rule_id => p_ship_confirm_rule_id,
5361: p_actual_departure_date => p_actual_departure_date);
5355: END IF;
5356: --
5357: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5358: --
5359: v_ValidDate := WSH_UTIL_CORE.ValidateActualDepartureDate(
5360: p_ship_confirm_rule_id => p_ship_confirm_rule_id,
5361: p_actual_departure_date => p_actual_departure_date);
5362: --
5363: IF NOT v_ValidDate THEN
5366: wsh_debug_sv.logmsg(l_module_name, 'Future ship date is not allowed');
5367: END IF;
5368: --
5369: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_FUTURE_SHIP_DATE');
5370: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5371: wsh_util_core.add_message(x_return_status);
5372: --
5373: END IF;
5374: --
5367: END IF;
5368: --
5369: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_FUTURE_SHIP_DATE');
5370: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5371: wsh_util_core.add_message(x_return_status);
5372: --
5373: END IF;
5374: --
5375: IF l_debug_on THEN
5380: EXCEPTION
5381: --
5382: WHEN OTHERS THEN
5383: --
5384: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5385: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.ValidateActualDepartureDate');
5386: --
5387: IF l_debug_on THEN
5388: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle
5381: --
5382: WHEN OTHERS THEN
5383: --
5384: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5385: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.ValidateActualDepartureDate');
5386: --
5387: IF l_debug_on THEN
5388: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle
5389: error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5435: WSH_DEBUG_SV.log(l_module_name, 'p_organization_id', p_organization_id);
5436: END IF;
5437: --
5438:
5439: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5440: l_org_cache_rec.input_param1 := p_organization_id;
5441:
5442: Get_Table_Index(
5443: p_validate_rec => l_org_cache_rec,
5468: END IF;
5469: END IF;
5470:
5471: IF g_sr_org_tab(l_index).valid_flag = 'N' THEN
5472: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5473: --WMS Enabled Check
5474: IF g_sr_org_tab(l_index).output_param1 = 'N' THEN
5475: --
5476: IF l_debug_on THEN
5477: WSH_DEBUG_SV.logmsg(l_module_name, 'Organization is NOT WMS Enabled');
5478: END IF;
5479: --
5480: FND_MESSAGE.SET_NAME('WSH','WSH_STND_WMS_NOT_INSTALLED');
5481: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
5482: END IF;
5483:
5484: --OPM Enabled Check
5485: IF g_sr_org_tab(l_index).output_param2 = 'Y' THEN
5488: WSH_DEBUG_SV.logmsg(l_module_name, 'Organization is OPM Enabled');
5489: END IF;
5490: --
5491: FND_MESSAGE.SET_NAME('WSH','WSH_STND_OPM_INSTALLED');
5492: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
5493: END IF;
5494: END IF;
5495: END IF;
5496:
5500: END IF;
5501: --
5502: EXCEPTION
5503: WHEN OTHERS THEN
5504: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5505: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.Validate_SR_Organization');
5506: --
5507: IF l_debug_on THEN
5508: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5501: --
5502: EXCEPTION
5503: WHEN OTHERS THEN
5504: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5505: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.Validate_SR_Organization');
5506: --
5507: IF l_debug_on THEN
5508: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5509: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5556: WSH_DEBUG_SV.log(l_module_name, 'p_organization_id', p_organization_id);
5557: END IF;
5558: --
5559:
5560: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5561: l_locator_cache_rec.input_param1 := p_locator_code;
5562: l_locator_cache_rec.input_param2 := p_organization_id;
5563:
5564: Get_Table_Index(
5599: IF l_debug_on THEN
5600: WSH_DEBUG_SV.logmsg(l_module_name, 'Invalid Locator Code');
5601: END IF;
5602: --
5603: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5604: FND_MESSAGE.SET_NAME('WSH','WSH_STND_INVALID_LOCATOR');
5605: FND_MESSAGE.SET_TOKEN('LOCATOR_CODE', p_locator_code);
5606: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
5607: ELSE
5602: --
5603: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5604: FND_MESSAGE.SET_NAME('WSH','WSH_STND_INVALID_LOCATOR');
5605: FND_MESSAGE.SET_TOKEN('LOCATOR_CODE', p_locator_code);
5606: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
5607: ELSE
5608: x_locator_id := to_number(g_locator_code_tab(l_index).output_param1);
5609: END IF;
5610: END IF;
5616: END IF;
5617: --
5618: EXCEPTION
5619: WHEN OTHERS THEN
5620: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5621: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.Validate_Locator_Code');
5622: --
5623: IF l_debug_on THEN
5624: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5617: --
5618: EXCEPTION
5619: WHEN OTHERS THEN
5620: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5621: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.Validate_Locator_Code');
5622: --
5623: IF l_debug_on THEN
5624: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5625: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5673: WSH_DEBUG_SV.log(l_module_name, 'p_organization_id', p_organization_id);
5674: END IF;
5675: --
5676:
5677: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5678:
5679: l_item_cache_rec.input_param1 := p_item_number;
5680: l_item_cache_rec.input_param2 := p_organization_id;
5681:
5706: p_organization_id => p_organization_id,
5707: x_inventory_item_id => x_inventory_item_id,
5708: x_return_status => l_return_status );
5709:
5710: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS and
5711: x_inventory_item_id is not null
5712: THEN
5713: g_inventory_item_tab(l_index).valid_flag := 'Y';
5714: g_inventory_item_tab(l_index).output_param1 := x_inventory_item_id;
5722: IF l_debug_on THEN
5723: WSH_DEBUG_SV.logmsg(l_module_name, 'Invalid Inventory Item');
5724: END IF;
5725: --
5726: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5727: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
5728: FND_MESSAGE.Set_Token('ITEM_NAME', p_item_number);
5729: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
5730: ELSE
5725: --
5726: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5727: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_INV_ITEM');
5728: FND_MESSAGE.Set_Token('ITEM_NAME', p_item_number);
5729: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
5730: ELSE
5731: x_inventory_item_id := to_number(g_inventory_item_tab(l_index).output_param1);
5732: END IF;
5733: END IF;
5740: END IF;
5741: --
5742: EXCEPTION
5743: WHEN OTHERS THEN
5744: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5745: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.Validate_Item');
5746: --
5747: IF l_debug_on THEN
5748: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5741: --
5742: EXCEPTION
5743: WHEN OTHERS THEN
5744: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5745: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.Validate_Item');
5746: --
5747: IF l_debug_on THEN
5748: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5749: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5800: WSH_DEBUG_SV.log(l_module_name, 'p_address_id', p_address_id);
5801: END IF;
5802: --
5803:
5804: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5805:
5806: l_cust_item_cache_rec.input_param1 := p_item_number;
5807: l_cust_item_cache_rec.input_param2 := p_customer_id;
5808: l_cust_item_cache_rec.input_param3 := p_address_id;
5863: IF l_debug_on THEN
5864: WSH_DEBUG_SV.logmsg(l_module_name, 'Invalid Customer Item');
5865: END IF;
5866: --
5867: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5868: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CUST_ITEM');
5869: FND_MESSAGE.Set_Token('CUST_ITEM', p_item_number);
5870: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
5871: ELSE
5866: --
5867: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5868: FND_MESSAGE.SET_NAME('WSH','WSH_INVALID_CUST_ITEM');
5869: FND_MESSAGE.Set_Token('CUST_ITEM', p_item_number);
5870: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
5871: ELSE
5872: x_customer_item_id := to_number(g_customer_item_tab(l_index).output_param1);
5873: END IF;
5874: END IF;
5881: END IF;
5882: --
5883: EXCEPTION
5884: WHEN OTHERS THEN
5885: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5886: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.Validate_Customer_Item');
5887: --
5888: IF l_debug_on THEN
5889: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5882: --
5883: EXCEPTION
5884: WHEN OTHERS THEN
5885: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5886: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.Validate_Customer_Item');
5887: --
5888: IF l_debug_on THEN
5889: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5890: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5946: WSH_DEBUG_SV.log(l_module_name, 'p_mode_of_transport', p_mode_of_transport);
5947: END IF;
5948: --
5949:
5950: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5951:
5952: l_ship_method_cache_rec.input_param1 := p_organization_id;
5953: l_ship_method_cache_rec.input_param2 := p_carrier_code;
5954: l_ship_method_cache_rec.input_param3 := p_service_level;
6010: END IF;
6011: --
6012:
6013: IF g_shipping_method_tab(l_index).valid_flag = 'N' THEN
6014: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6015: --
6016: IF l_debug_on THEN
6017: WSH_DEBUG_SV.logmsg(l_module_name, 'Ship Method does not exists');
6018: END IF;
6020: FND_MESSAGE.SET_NAME('WSH','WSH_STND_INVALID_SM');
6021: FND_MESSAGE.SET_TOKEN('CARRIER', p_carrier_code);
6022: FND_MESSAGE.SET_TOKEN('SERVICE_LEVEL', p_service_level);
6023: FND_MESSAGE.SET_TOKEN('MODE_OF_TRANS', p_mode_of_transport);
6024: FND_MESSAGE.SET_TOKEN('WAREHOUSE', WSH_UTIL_CORE.Get_Org_Name(p_organization_id));
6025: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
6026: ELSIF g_shipping_method_tab(l_index).valid_flag = 'Y' THEN
6027: x_ship_method_code := g_shipping_method_tab(l_index).output_param1;
6028: END IF;
6021: FND_MESSAGE.SET_TOKEN('CARRIER', p_carrier_code);
6022: FND_MESSAGE.SET_TOKEN('SERVICE_LEVEL', p_service_level);
6023: FND_MESSAGE.SET_TOKEN('MODE_OF_TRANS', p_mode_of_transport);
6024: FND_MESSAGE.SET_TOKEN('WAREHOUSE', WSH_UTIL_CORE.Get_Org_Name(p_organization_id));
6025: WSH_UTIL_CORE.Add_Message(x_return_status, l_module_name );
6026: ELSIF g_shipping_method_tab(l_index).valid_flag = 'Y' THEN
6027: x_ship_method_code := g_shipping_method_tab(l_index).output_param1;
6028: END IF;
6029: END IF;
6036: END IF;
6037: --
6038: EXCEPTION
6039: WHEN OTHERS THEN
6040: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6041: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.Validate_Ship_Method');
6042: --
6043: IF l_debug_on THEN
6044: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6037: --
6038: EXCEPTION
6039: WHEN OTHERS THEN
6040: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6041: WSH_UTIL_CORE.Default_Handler('WSH_UTIL_VALIDATE.Validate_Ship_Method');
6042: --
6043: IF l_debug_on THEN
6044: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6045: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6100: WSH_DEBUG_SV.log(l_module_name,'p_freight_code', p_freight_code);
6101: WSH_DEBUG_SV.log(l_module_name,'x_carrier_id', x_carrier_id);
6102: END IF;
6103:
6104: x_return_status := wsh_util_core.g_ret_sts_success;
6105:
6106: IF (nvl(x_carrier_id, fnd_api.g_miss_num) <> fnd_api.g_miss_num OR NVL(p_freight_code, fnd_api.g_miss_char) <> fnd_api.g_miss_char) THEN
6107: --{
6108: OPEN l_carrier_csr;
6108: OPEN l_carrier_csr;
6109: FETCH l_carrier_csr INTO x_carrier_id;
6110: IF l_carrier_csr%NOTFOUND THEN
6111: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_NOT_FOUND');
6112: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6113: wsh_util_core.add_message(x_return_status,l_module_name);
6114: END IF;
6115: CLOSE l_carrier_csr;
6116: --}
6109: FETCH l_carrier_csr INTO x_carrier_id;
6110: IF l_carrier_csr%NOTFOUND THEN
6111: FND_MESSAGE.SET_NAME('WSH','WSH_CARRIER_NOT_FOUND');
6112: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6113: wsh_util_core.add_message(x_return_status,l_module_name);
6114: END IF;
6115: CLOSE l_carrier_csr;
6116: --}
6117: END IF;
6126: --{
6127: IF l_carrier_csr%ISOPEN THEN
6128: CLOSE l_carrier_csr;
6129: END IF;
6130: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6131:
6132: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Freight_Code');
6133: IF l_debug_on THEN
6134: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6128: CLOSE l_carrier_csr;
6129: END IF;
6130: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6131:
6132: wsh_util_core.default_handler('WSH_UTIL_VALIDATE.Validate_Freight_Code');
6133: IF l_debug_on THEN
6134: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6135: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6136: END IF;