[Home] [Help]
107: IF (check_all_lines_imported%NOTFOUND) THEN
108: EXIT;
109: END IF;
110: l_status := Check_SS_Imp_Pending(l_source_code, l_source_header_id, l_ship_set_id, 'N',x_return_status);
111: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
112: raise others;
113: ELSE
114: IF (l_status = TRUE) THEN
115: x_valid_flag := FALSE;
131:
132: CLOSE check_ship_set;
133: END IF;
134:
135: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
136:
137: --
138: -- Debug Statements
139: --
142: END IF;
143: --
144: EXCEPTION
145: WHEN others THEN
146: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_SHIP_SET');
147: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
148:
149: --
150: -- Debug Statements
143: --
144: EXCEPTION
145: WHEN others THEN
146: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_SHIP_SET');
147: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
148:
149: --
150: -- Debug Statements
151: --
350: END IF;
351:
352: END LOOP;
353:
354: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
355:
356: --
357: -- Debug Statements
358: --
361: END IF;
362: --
363: EXCEPTION
364: WHEN others THEN
365: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_SMC');
366: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
367:
368: --
369: -- Debug Statements
362: --
363: EXCEPTION
364: WHEN others THEN
365: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_SMC');
366: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
367:
368: --
369: -- Debug Statements
370: --
450: END IF;
451:
452: CLOSE check_arrival_set;
453:
454: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
455:
456: --
457: -- Debug Statements
458: --
461: END IF;
462: --
463: EXCEPTION
464: WHEN others THEN
465: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ARRIVAL_SET');
466: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
467:
468: --
469: -- Debug Statements
462: --
463: EXCEPTION
464: WHEN others THEN
465: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ARRIVAL_SET');
466: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
467:
468: --
469: -- Debug Statements
470: --
511: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
512: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_STATUS',P_DELIVERY_STATUS);
513: END IF;
514: --
515: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
516:
517: IF (p_delivery_status = 'IT') THEN
518: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_TR_DEL_IT');
519: --
523: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
524: END IF;
525: --
526: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
527: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
528: wsh_util_core.add_message(x_return_status);
529: END IF;
530:
531: --
524: END IF;
525: --
526: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
527: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
528: wsh_util_core.add_message(x_return_status);
529: END IF;
530:
531: --
532: -- Debug Statements
536: END IF;
537: --
538: EXCEPTION
539: WHEN others THEN
540: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_NOT_I_T');
541: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
542:
543: --
544: -- Debug Statements
537: --
538: EXCEPTION
539: WHEN others THEN
540: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_NOT_I_T');
541: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
542:
543: --
544: -- Debug Statements
545: --
588: WSH_DEBUG_SV.log(l_module_name,'REL_NUM',REL_NUM);
589: WSH_DEBUG_SV.log(l_module_name,'UNREL_NUM',UNREL_NUM);
590: END IF;
591: --
592: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
593:
594: IF (rel_num <> 0) AND (unrel_num > 0) THEN
595:
596: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
593:
594: IF (rel_num <> 0) AND (unrel_num > 0) THEN
595:
596: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
597: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
598: wsh_util_core.add_message(x_return_status);
599:
600: END IF;
601:
594: IF (rel_num <> 0) AND (unrel_num > 0) THEN
595:
596: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
597: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
598: wsh_util_core.add_message(x_return_status);
599:
600: END IF;
601:
602: --
607: END IF;
608: --
609: EXCEPTION
610: WHEN others THEN
611: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_RELEASED_LINES');
612: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
613:
614: --
615: -- Debug Statements
608: --
609: EXCEPTION
610: WHEN others THEN
611: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_RELEASED_LINES');
612: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
613:
614: --
615: -- Debug Statements
616: --
659: WSH_DEBUG_SV.log(l_module_name,'P_CONT_EXISTS_FLAG',P_CONT_EXISTS_FLAG);
660: WSH_DEBUG_SV.log(l_module_name,'P_UNPACKED_FLAG',P_UNPACKED_FLAG);
661: END IF;
662: --
663: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
664:
665: IF (p_unpacked_flag) THEN
666: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_ITEMS_UNPACKED');
667: --
671: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
672: END IF;
673: --
674: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
675: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
676: wsh_util_core.add_message(x_return_status);
677: END IF;
678:
679:
672: END IF;
673: --
674: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
675: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
676: wsh_util_core.add_message(x_return_status);
677: END IF;
678:
679:
680:
686: END IF;
687: --
688: EXCEPTION
689: WHEN others THEN
690: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_UNPACKED');
691: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
692:
693: --
694: -- Debug Statements
687: --
688: EXCEPTION
689: WHEN others THEN
690: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_UNPACKED');
691: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
692:
693: --
694: -- Debug Statements
695: --
738: WSH_DEBUG_SV.log(l_module_name,'P_CONT_EXISTS_FLAG',P_CONT_EXISTS_FLAG);
739: WSH_DEBUG_SV.log(l_module_name,'P_OVERFILLED_FLAG',P_OVERFILLED_FLAG);
740: END IF;
741: --
742: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
743:
744: IF (p_cont_exists_flag) THEN
745:
746: IF (p_overfilled_flag) THEN
752: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
753: END IF;
754: --
755: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
756: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
757: wsh_util_core.add_message(x_return_status);
758: END IF;
759:
760: END IF;
753: END IF;
754: --
755: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
756: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
757: wsh_util_core.add_message(x_return_status);
758: END IF;
759:
760: END IF;
761:
767: END IF;
768: --
769: EXCEPTION
770: WHEN others THEN
771: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_OVERFILLED');
772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
773:
774: --
775: -- Debug Statements
768: --
769: EXCEPTION
770: WHEN others THEN
771: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_OVERFILLED');
772: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
773:
774: --
775: -- Debug Statements
776: --
819: WSH_DEBUG_SV.log(l_module_name,'P_CONT_EXISTS_FLAG',P_CONT_EXISTS_FLAG);
820: WSH_DEBUG_SV.log(l_module_name,'P_UNDERFILLED_FLAG',P_UNDERFILLED_FLAG);
821: END IF;
822: --
823: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
824:
825: IF (p_cont_exists_flag) THEN
826:
827: IF (p_underfilled_flag) THEN
833: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
834: END IF;
835: --
836: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
837: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
838: wsh_util_core.add_message(x_return_status);
839:
840: END IF;
841:
834: END IF;
835: --
836: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
837: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
838: wsh_util_core.add_message(x_return_status);
839:
840: END IF;
841:
842: END IF;
849: END IF;
850: --
851: EXCEPTION
852: WHEN others THEN
853: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_UNDERFILLED');
854: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
855:
856: --
857: -- Debug Statements
850: --
851: EXCEPTION
852: WHEN others THEN
853: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_UNDERFILLED');
854: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
855:
856: --
857: -- Debug Statements
858: --
902: WSH_DEBUG_SV.log(l_module_name,'P_FINAL_DROPOFF_ID',P_FINAL_DROPOFF_ID);
903: WSH_DEBUG_SV.log(l_module_name,'P_ULTIMATE_DROPOFF_ID',P_ULTIMATE_DROPOFF_ID);
904: END IF;
905: --
906: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
907:
908: IF (p_final_dropoff_id <> p_ultimate_dropoff_id) THEN
909: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NO_ULTIMATE_DROPOFF');
910: --
914: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
915: END IF;
916: --
917: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
918: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
919: wsh_util_core.add_message(x_return_status);
920: END IF;
921:
922: --
915: END IF;
916: --
917: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
918: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
919: wsh_util_core.add_message(x_return_status);
920: END IF;
921:
922: --
923: -- Debug Statements
927: END IF;
928: --
929: EXCEPTION
930: WHEN others THEN
931: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_FINAL_DEST');
932: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
933:
934: --
935: -- Debug Statements
928: --
929: EXCEPTION
930: WHEN others THEN
931: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_FINAL_DEST');
932: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
933:
934: --
935: -- Debug Statements
936: --
1012: WSH_DEBUG_SV.log(l_module_name,'P_RECEIVE_LOCATION_ID',P_RECEIVE_LOCATION_ID);
1013: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
1014: END IF;
1015: --
1016: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1017:
1018: IF (p_entity_type = 'DELIVERY') THEN
1019:
1020: --
1051: , p_primary_threshold => 10
1052: , p_secondary_threshold => 10
1053: );
1054:
1055: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) OR (l_return_code = 0) THEN
1056: --
1057: -- Debug Statements
1058: --
1059: IF l_debug_on THEN
1078: --
1079: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1080: FND_MESSAGE.SET_TOKEN('SHIP',fnd_date.date_to_chardate(p_ship_date,calendar_aware=>FND_DATE.calendar_aware_alt));
1081: FND_MESSAGE.SET_TOKEN('SUGGESTED',fnd_date.date_to_chardate(l_suggest_ship_date,calendar_aware=>FND_DATE.calendar_aware_alt));
1082: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1083: wsh_util_core.add_message(x_return_status);
1084: END IF;
1085: --Bug 8687915 :Handling Return codes appropriately.
1086: -- Return_Code 4 : No valid date according to Receiving Calendar in the next 10 days.
1079: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1080: FND_MESSAGE.SET_TOKEN('SHIP',fnd_date.date_to_chardate(p_ship_date,calendar_aware=>FND_DATE.calendar_aware_alt));
1081: FND_MESSAGE.SET_TOKEN('SUGGESTED',fnd_date.date_to_chardate(l_suggest_ship_date,calendar_aware=>FND_DATE.calendar_aware_alt));
1082: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1083: wsh_util_core.add_message(x_return_status);
1084: END IF;
1085: --Bug 8687915 :Handling Return codes appropriately.
1086: -- Return_Code 4 : No valid date according to Receiving Calendar in the next 10 days.
1087: -- Return_Code 5 : No valid date according to Shipping/Carrier Calendar in the next 10 days.
1117: IF l_debug_on THEN
1118: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1119: END IF;
1120: --
1121: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1122: wsh_util_core.add_message(x_return_status);
1123: END IF;
1124:
1125: IF (l_return_code = 6) THEN
1118: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1119: END IF;
1120: --
1121: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1122: wsh_util_core.add_message(x_return_status);
1123: END IF;
1124:
1125: IF (l_return_code = 6) THEN
1126: FND_MESSAGE.SET_NAME('WSH','WSH_CAL_INV_DATES');
1131: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1132: END IF;
1133: --
1134: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1135: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1136: wsh_util_core.add_message(x_return_status);
1137: END IF;
1138:
1139: IF (p_update_flag = 'Y') THEN
1132: END IF;
1133: --
1134: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1135: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1136: wsh_util_core.add_message(x_return_status);
1137: END IF;
1138:
1139: IF (p_update_flag = 'Y') THEN
1140:
1162: END IF;
1163: --
1164: EXCEPTION
1165: WHEN others THEN
1166: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CALENDAR');
1167: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1168:
1169: --
1170: -- Debug Statements
1163: --
1164: EXCEPTION
1165: WHEN others THEN
1166: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CALENDAR');
1167: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1168:
1169: --
1170: -- Debug Statements
1171: --
1285: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1286: WSH_DEBUG_SV.log(l_module_name,'p_called_for_sc',p_called_for_sc);
1287: END IF;
1288: --
1289: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1290:
1291: OPEN delivery_info;
1292: FETCH delivery_info INTO l_status_code,
1293: l_planned_flag,
1302:
1303: IF (delivery_info%NOTFOUND) THEN
1304: CLOSE delivery_info;
1305: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1306: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1307: wsh_util_core.add_message(x_return_status);
1308: --
1309: -- Debug Statements
1310: --
1303: IF (delivery_info%NOTFOUND) THEN
1304: CLOSE delivery_info;
1305: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1306: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1307: wsh_util_core.add_message(x_return_status);
1308: --
1309: -- Debug Statements
1310: --
1311: IF l_debug_on THEN
1334:
1335: CLOSE delivery_info;
1336:
1337: IF (l_planned_flag IN ('Y','F')) THEN
1338: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1339: --
1340: -- Debug Statements
1341: --
1342: IF l_debug_on THEN
1363: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1364: END IF;
1365: --
1366: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1367: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1368: wsh_util_core.add_message(x_return_status);
1369: --
1370: -- Debug Statements
1371: --
1364: END IF;
1365: --
1366: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1367: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1368: wsh_util_core.add_message(x_return_status);
1369: --
1370: -- Debug Statements
1371: --
1372: IF l_debug_on THEN
1399: END IF;
1400: --
1401: wsh_tpa_delivery_pkg.check_smc( p_delivery_id, l_valid_flag, l_return_status);
1402:
1403: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1404: x_return_status := l_return_status;
1405: --
1406: -- Debug Statements
1407: --
1418: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1419: END IF;
1420: --
1421: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1422: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1423: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1424: END IF;
1425:
1426: --
1419: END IF;
1420: --
1421: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1422: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1423: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1424: END IF;
1425:
1426: --
1427: -- Debug Statements
1431: END IF;
1432: --
1433: wsh_tpa_delivery_pkg.check_ship_set( p_delivery_id, l_valid_flag, l_return_status);
1434:
1435: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1436: x_return_status := l_return_status;
1437: --
1438: -- Debug Statements
1439: --
1457: --
1458: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1459: -- End Bug 2429632
1460:
1461: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1462: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1463: END IF;
1464: --
1465: END IF;
1458: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1459: -- End Bug 2429632
1460:
1461: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1462: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1463: END IF;
1464: --
1465: END IF;
1466: --}
1477: wsh_new_delivery_actions.update_leg_sequence(
1478: p_delivery_id => p_delivery_id,
1479: x_return_status => l_return_status);
1480:
1481: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1482: x_return_status := l_return_status;
1483: --
1484: -- Debug Statements
1485: --
1556: p_receive_location_id => l_ship_to_location,
1557: p_update_flag => 'Y',
1558: x_return_status => l_return_status);
1559:
1560: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1561: x_return_status := l_return_status;
1562: END IF;
1563: -- } --- check shp-rcvg-calendar
1564: END IF;
1571: --
1572: EXCEPTION
1573: WHEN NO_FREIGHT_CODE THEN
1574: fnd_message.set_name('WSH','WSH_FREIGHT_CODE_NOT_FOUND');
1575: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
1576: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1577: --
1578: -- Debug Statements
1579: --
1572: EXCEPTION
1573: WHEN NO_FREIGHT_CODE THEN
1574: fnd_message.set_name('WSH','WSH_FREIGHT_CODE_NOT_FOUND');
1575: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
1576: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1577: --
1578: -- Debug Statements
1579: --
1580: IF l_debug_on THEN
1582: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_FREIGHT_CODE');
1583: END IF;
1584: --
1585: WHEN others THEN
1586: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_PLAN');
1587: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1588:
1589: --
1590: -- Debug Statements
1583: END IF;
1584: --
1585: WHEN others THEN
1586: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_PLAN');
1587: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1588:
1589: --
1590: -- Debug Statements
1591: --
1649: --
1650: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1651: END IF;
1652: --
1653: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1654:
1655: OPEN delivery_status;
1656: FETCH delivery_status INTO l_status_code, l_planned_flag,l_shipment_direction;
1657:
1657:
1658: IF (delivery_status%NOTFOUND) THEN
1659: CLOSE delivery_status;
1660: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1661: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1662: wsh_util_core.add_message(x_return_status);
1663: --
1664: -- Debug Statements
1665: --
1658: IF (delivery_status%NOTFOUND) THEN
1659: CLOSE delivery_status;
1660: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1661: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1662: wsh_util_core.add_message(x_return_status);
1663: --
1664: -- Debug Statements
1665: --
1666: IF l_debug_on THEN
1672:
1673: CLOSE delivery_status;
1674:
1675: IF (l_planned_flag NOT IN ('Y','F')) THEN
1676: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1677: --
1678: -- Debug Statements
1679: --
1680: IF l_debug_on THEN
1694: END IF;
1695: --
1696: EXCEPTION
1697: WHEN others THEN
1698: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_UNPLAN');
1699: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1700:
1701: --
1702: -- Debug Statements
1695: --
1696: EXCEPTION
1697: WHEN others THEN
1698: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_UNPLAN');
1699: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1700:
1701: --
1702: -- Debug Statements
1703: --
1777: CLOSE delivery_details;
1778:
1779: Check_Plan( l_delivery_id, x_return_status);
1780:
1781: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1782: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PLAN_ERROR');
1783: --
1784: -- Debug Statements
1785: --
1787: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1788: END IF;
1789: --
1790: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1791: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1792: wsh_util_core.add_message(x_return_status);
1793: --
1794: -- Debug Statements
1795: --
1788: END IF;
1789: --
1790: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1791: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1792: wsh_util_core.add_message(x_return_status);
1793: --
1794: -- Debug Statements
1795: --
1796: IF l_debug_on THEN
1809: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1810: END IF;
1811: --
1812: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1813: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1814: wsh_util_core.add_message(x_return_status);
1815: --
1816: -- Debug Statements
1817: --
1810: END IF;
1811: --
1812: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1813: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1814: wsh_util_core.add_message(x_return_status);
1815: --
1816: -- Debug Statements
1817: --
1818: IF l_debug_on THEN
1823: END IF;
1824:
1825: IF (l_volume IS NULL) or (l_volume = 0) or (l_vol_uom IS NULL) THEN
1826: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LT_WT_VOL_MISSING');
1827: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1828: wsh_util_core.add_message(x_return_status);
1829: ELSE
1830: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1831: END IF;
1824:
1825: IF (l_volume IS NULL) or (l_volume = 0) or (l_vol_uom IS NULL) THEN
1826: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LT_WT_VOL_MISSING');
1827: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1828: wsh_util_core.add_message(x_return_status);
1829: ELSE
1830: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1831: END IF;
1832:
1826: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LT_WT_VOL_MISSING');
1827: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1828: wsh_util_core.add_message(x_return_status);
1829: ELSE
1830: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1831: END IF;
1832:
1833: --
1834: -- Debug Statements
1838: END IF;
1839: --
1840: EXCEPTION
1841: WHEN others THEN
1842: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_UNPLAN');
1843: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1844:
1845: --
1846: -- Debug Statements
1839: --
1840: EXCEPTION
1841: WHEN others THEN
1842: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_UNPLAN');
1843: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1844:
1845: --
1846: -- Debug Statements
1847: --
1987: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
1988: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
1989: END IF;
1990: --
1991: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1992:
1993: OPEN delivery_status;
1994: FETCH delivery_status INTO l_del_status, l_org_id, l_del_ship_method, l_shipment_direction, l_del_ignore;
1995:
2034: --
2035: END IF;
2036: --
2037: --
2038: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
2039: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2040: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
2041: raise FND_API.G_EXC_ERROR;
2042: END IF;
2036: --
2037: --
2038: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
2039: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2040: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
2041: raise FND_API.G_EXC_ERROR;
2042: END IF;
2043: --
2044: --}
2065: END IF;
2066: --
2067: wsh_tpa_delivery_pkg.check_del_not_i_t(p_delivery_id, l_del_status, l_return_status);
2068:
2069: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2070: x_return_status := l_return_status;
2071: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2072: --
2073: -- Debug Statements
2067: wsh_tpa_delivery_pkg.check_del_not_i_t(p_delivery_id, l_del_status, l_return_status);
2068:
2069: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2070: x_return_status := l_return_status;
2071: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2072: --
2073: -- Debug Statements
2074: --
2075: IF l_debug_on THEN
2158: wsh_delivery_autocreate.get_group_by_attr( p_organization_id => l_org_id,
2159: x_group_by_flags => l_group_by_attr,
2160: x_return_status => l_return_status);
2161:
2162: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2163: x_return_status := l_return_status;
2164: --
2165: -- Debug Statements
2166: --
2172: END IF;
2173:
2174: IF (l_group_by_attr.ship_method = 'Y') AND (l_trip_ship_method <> l_del_ship_method) THEN
2175: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_SHIP_METHOD_NOT_SAME');
2176: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2177: wsh_util_core.add_message(x_return_status);
2178: END IF;
2179:
2180: IF (p_pickup_stop_id IS NOT NULL) THEN
2173:
2174: IF (l_group_by_attr.ship_method = 'Y') AND (l_trip_ship_method <> l_del_ship_method) THEN
2175: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_SHIP_METHOD_NOT_SAME');
2176: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2177: wsh_util_core.add_message(x_return_status);
2178: END IF;
2179:
2180: IF (p_pickup_stop_id IS NOT NULL) THEN
2181:
2255: -- J-IB-NPARIKH-{
2256: --
2257: WHEN FND_API.G_EXC_ERROR THEN
2258:
2259: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2260: --
2261: IF l_debug_on THEN
2262: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2263: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2264: END IF;
2265: --
2266: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2267:
2268: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2269: --
2270: IF l_debug_on THEN
2271: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2272: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2293: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2294: END IF;
2295: --
2296: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2297: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2298: wsh_util_core.add_message(x_return_status);
2299:
2300: --
2301: -- Debug Statements
2294: END IF;
2295: --
2296: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2297: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2298: wsh_util_core.add_message(x_return_status);
2299:
2300: --
2301: -- Debug Statements
2302: --
2322: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2323: END IF;
2324: --
2325: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2326: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2327: wsh_util_core.add_message(x_return_status);
2328:
2329: --
2330: -- Debug Statements
2323: END IF;
2324: --
2325: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2326: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2327: wsh_util_core.add_message(x_return_status);
2328:
2329: --
2330: -- Debug Statements
2331: --
2351: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2352: END IF;
2353: --
2354: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2355: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2356: wsh_util_core.add_message(x_return_status);
2357:
2358: --
2359: -- Debug Statements
2352: END IF;
2353: --
2354: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2355: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2356: wsh_util_core.add_message(x_return_status);
2357:
2358: --
2359: -- Debug Statements
2360: --
2373: IF l_debug_on THEN
2374: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2375: END IF;
2376: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2377: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2378: wsh_util_core.add_message(x_return_status);
2379: IF l_debug_on THEN
2380: WSH_DEBUG_SV.logmsg(l_module_name,'TRIP_FIRM exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2381: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRIP_FIRM');
2374: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2375: END IF;
2376: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2377: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2378: wsh_util_core.add_message(x_return_status);
2379: IF l_debug_on THEN
2380: WSH_DEBUG_SV.logmsg(l_module_name,'TRIP_FIRM exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2381: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRIP_FIRM');
2382: END IF;
2389: IF l_debug_on THEN
2390: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2391: END IF;
2392: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2393: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2394: wsh_util_core.add_message(x_return_status);
2395: IF l_debug_on THEN
2396: WSH_DEBUG_SV.logmsg(l_module_name,'TRIP_DIFFIGNORE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2397: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRIP_DIFFIGNORE');
2390: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2391: END IF;
2392: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2393: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2394: wsh_util_core.add_message(x_return_status);
2395: IF l_debug_on THEN
2396: WSH_DEBUG_SV.logmsg(l_module_name,'TRIP_DIFFIGNORE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2397: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRIP_DIFFIGNORE');
2398: END IF;
2397: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRIP_DIFFIGNORE');
2398: END IF;
2399:
2400: WHEN others THEN
2401: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ASSIGN_TRIP');
2402: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2403:
2404: --
2405: -- Debug Statements
2398: END IF;
2399:
2400: WHEN others THEN
2401: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ASSIGN_TRIP');
2402: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2403:
2404: --
2405: -- Debug Statements
2406: --
2468: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2469: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
2470: END IF;
2471: --
2472: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2473:
2474: OPEN delivery_status;
2475: FETCH delivery_status INTO l_del_status;
2476:
2482: CLOSE delivery_status;
2483:
2484: IF (l_del_status = 'CL') THEN
2485: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_TR_STATUS');
2486: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2487: wsh_util_core.add_message(x_return_status);
2488: --
2489: -- Debug Statements
2490: --
2483:
2484: IF (l_del_status = 'CL') THEN
2485: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_TR_STATUS');
2486: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2487: wsh_util_core.add_message(x_return_status);
2488: --
2489: -- Debug Statements
2490: --
2491: IF l_debug_on THEN
2504: END IF;
2505: --
2506: wsh_tpa_delivery_pkg.check_del_not_i_t(p_delivery_id, l_del_status, x_return_status);
2507:
2508: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2509: --
2510: -- Debug Statements
2511: --
2512: IF l_debug_on THEN
2527: CLOSE trip_status;
2528:
2529: IF (l_trip_status = 'CL') THEN
2530: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_TR_STATUS');
2531: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2532: wsh_util_core.add_message(x_return_status);
2533: --
2534: -- Debug Statements
2535: --
2528:
2529: IF (l_trip_status = 'CL') THEN
2530: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_TR_STATUS');
2531: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2532: wsh_util_core.add_message(x_return_status);
2533: --
2534: -- Debug Statements
2535: --
2536: IF l_debug_on THEN
2550: END IF;
2551: --
2552: EXCEPTION
2553: WHEN others THEN
2554: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ASSIGN_TRIP');
2555: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2556:
2557: --
2558: -- Debug Statements
2551: --
2552: EXCEPTION
2553: WHEN others THEN
2554: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ASSIGN_TRIP');
2555: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2556:
2557: --
2558: -- Debug Statements
2559: --
2630: --
2631: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2632: END IF;
2633: --
2634: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2635:
2636: OPEN delivery_status;
2637: FETCH delivery_status INTO l_del_status;
2638:
2663: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2664: END IF;
2665: --
2666: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2667: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2668: wsh_util_core.add_message(x_return_status);
2669: --
2670: -- Debug Statements
2671: --
2664: END IF;
2665: --
2666: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2667: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2668: wsh_util_core.add_message(x_return_status);
2669: --
2670: -- Debug Statements
2671: --
2672: IF l_debug_on THEN
2695: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2696: END IF;
2697: --
2698: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2700: wsh_util_core.add_message(x_return_status);
2701: --
2702: -- Debug Statements
2703: --
2696: END IF;
2697: --
2698: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2700: wsh_util_core.add_message(x_return_status);
2701: --
2702: -- Debug Statements
2703: --
2704: IF l_debug_on THEN
2717: --
2718: wsh_wv_utils.check_fill_pc( p_container_instance_id => l_container_id,
2719: x_fill_status => l_fill_status,
2720: x_return_status => l_return_status);
2721: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2722: -- FND_MESSAGE.SET_NAME('WSH','Error-in-fill-percent');
2723: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2724: -- wsh_util_core.add_message(x_return_status);
2725: ELSIF (l_fill_status = 'U') THEN
2719: x_fill_status => l_fill_status,
2720: x_return_status => l_return_status);
2721: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2722: -- FND_MESSAGE.SET_NAME('WSH','Error-in-fill-percent');
2723: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2724: -- wsh_util_core.add_message(x_return_status);
2725: ELSIF (l_fill_status = 'U') THEN
2726: l_underfilled_flag := TRUE;
2727: ELSIF (l_fill_status = 'O') THEN
2720: x_return_status => l_return_status);
2721: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2722: -- FND_MESSAGE.SET_NAME('WSH','Error-in-fill-percent');
2723: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2724: -- wsh_util_core.add_message(x_return_status);
2725: ELSIF (l_fill_status = 'U') THEN
2726: l_underfilled_flag := TRUE;
2727: ELSIF (l_fill_status = 'O') THEN
2728: l_overfilled_flag := TRUE;
2744: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2745: END IF;
2746: --
2747: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2748: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2749: wsh_util_core.add_message(x_return_status);
2750: END IF;
2751:
2752: IF (l_underfilled_flag) THEN
2745: END IF;
2746: --
2747: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2748: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2749: wsh_util_core.add_message(x_return_status);
2750: END IF;
2751:
2752: IF (l_underfilled_flag) THEN
2753: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONT_UNDERPACKED');
2758: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2759: END IF;
2760: --
2761: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2762: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2763: wsh_util_core.add_message(x_return_status);
2764: END IF;
2765:
2766: --IF (l_container_id IS NULL) THEN
2759: END IF;
2760: --
2761: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2762: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2763: wsh_util_core.add_message(x_return_status);
2764: END IF;
2765:
2766: --IF (l_container_id IS NULL) THEN
2767: IF (l_count_detail = 0) THEN /*Bug #1701366 Issue 3 */
2773: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2774: END IF;
2775: --
2776: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2777: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2778: wsh_util_core.add_message(x_return_status);
2779: --
2780: -- Debug Statements
2781: --
2774: END IF;
2775: --
2776: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2777: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2778: wsh_util_core.add_message(x_return_status);
2779: --
2780: -- Debug Statements
2781: --
2782: IF l_debug_on THEN
2794: END IF;
2795: --
2796: EXCEPTION
2797: WHEN others THEN
2798: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_PACK');
2799: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2800:
2801: --
2802: -- Debug Statements
2795: --
2796: EXCEPTION
2797: WHEN others THEN
2798: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_PACK');
2799: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2800:
2801: --
2802: -- Debug Statements
2803: --
2981: p_init_flag => 'N',
2982: x_return_status => x_return_status);
2983: END IF;
2984:
2985: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2986:
2987: --
2988: -- Debug Statements
2989: --
3013: WSH_DELIVERY_DETAILS_INV.Check_Default_Catch_Weights
3014: (p_line_inv_rec => l_line_inv_rec,
3015: x_return_status => x_return_status);
3016:
3017: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3018:
3019: IF l_debug_on THEN
3020: WSH_DEBUG_SV.pop(l_module_name);
3021: END IF;
3047: p_subinventory => l_line_inv_rec.subinventory,
3048: x_inv_controls_rec => l_line_inv_flag_rec,
3049: x_return_status => x_return_status);
3050:
3051: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3052: --
3053: -- Debug Statements
3054: --
3055: IF l_debug_on THEN
3075: x_line_inv_rec => g_line_inv_rec,
3076: x_details_required => l_details_flag,
3077: x_return_status => x_return_status);
3078:
3079: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3080: --
3081: -- Debug Statements
3082: --
3083: IF l_debug_on THEN
3101: IF l_debug_on THEN
3102: WSH_DEBUG_SV.logmsg(l_module_name, 'DETAILS REQUIRED ERROR ' || X_RETURN_STATUS );
3103: END IF;
3104: --
3105: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3106: ELSE
3107: /* Bug fix 2850555
3108: Set the new flag 'details_required_flag' to N , when l_details_flag
3109: is FALSE after the call to details_required API.
3129: p_source_line_id => l_line_inv_rec.source_line_id,
3130: p_source_code => l_line_inv_rec.source_code,
3131: x_transaction_type_id => L_TRANSACTION_TYPE_ID ,
3132: x_return_status => x_return_status);
3133: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3134: IF l_debug_on THEN
3135: WSH_DEBUG_SV.pop(l_module_name);
3136: END IF;
3137: return;
3167: ,p_object_type => 'A'
3168: ,p_lpn_id => l_lpn_id );
3169:
3170: IF l_temp_status <>'Y' THEN
3171: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3172: l_line_inv_flag_rec.invalid_material_status_flag := 'Y';
3173: x_line_inv_flag_rec := l_line_inv_flag_rec ;
3174: IF l_debug_on THEN
3175: WSH_DEBUG_SV.pop(l_module_name);
3203: p_object_type => 'A',
3204: x_errored_serials => x_errored_serials);
3205:
3206: IF l_valid_serial_range <> 1 THEN
3207: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3208: l_line_inv_flag_rec.invalid_material_status_flag := 'Y';
3209: x_line_inv_flag_rec := l_line_inv_flag_rec ;
3210: FOR i in 1..x_errored_serials.count LOOP
3211: IF l_debug_on THEN
3230: p_object_type => 'A',
3231: x_return_status => x_return_status ,
3232: x_result => l_result
3233: );
3234: IF l_result <> TRUE OR x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3235: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3236: IF l_result <> TRUE THEN
3237: l_line_inv_flag_rec.invalid_material_status_flag := 'Y';
3238: END IF;
3231: x_return_status => x_return_status ,
3232: x_result => l_result
3233: );
3234: IF l_result <> TRUE OR x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3235: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3236: IF l_result <> TRUE THEN
3237: l_line_inv_flag_rec.invalid_material_status_flag := 'Y';
3238: END IF;
3239: x_line_inv_flag_rec := l_line_inv_flag_rec ;
3256: END IF;
3257: --
3258: EXCEPTION
3259: WHEN others THEN
3260: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DETAIL_FOR_CONFIRM');
3261: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3262:
3263: IF C_GET_SERIAL%ISOPEN THEN
3264: CLOSE C_GET_SERIAL;
3257: --
3258: EXCEPTION
3259: WHEN others THEN
3260: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DETAIL_FOR_CONFIRM');
3261: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3262:
3263: IF C_GET_SERIAL%ISOPEN THEN
3264: CLOSE C_GET_SERIAL;
3265: END IF;
3380: END IF;
3381: --
3382: wsh_tpa_delivery_pkg.check_del_overfilled(p_delivery_id, p_cont_exists_flag, p_overfilled_flag, l_return_status);
3383:
3384: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3385: x_return_status := l_return_status;
3386: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3387: --
3388: -- Debug Statements
3382: wsh_tpa_delivery_pkg.check_del_overfilled(p_delivery_id, p_cont_exists_flag, p_overfilled_flag, l_return_status);
3383:
3384: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3385: x_return_status := l_return_status;
3386: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3387: --
3388: -- Debug Statements
3389: --
3390: IF l_debug_on THEN
3404: END IF;
3405: --
3406: wsh_tpa_delivery_pkg.check_del_underfilled(p_delivery_id, p_cont_exists_flag, p_underfilled_flag, l_return_status);
3407:
3408: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3409: x_return_status := l_return_status;
3410: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3411: --
3412: -- Debug Statements
3406: wsh_tpa_delivery_pkg.check_del_underfilled(p_delivery_id, p_cont_exists_flag, p_underfilled_flag, l_return_status);
3407:
3408: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3409: x_return_status := l_return_status;
3410: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3411: --
3412: -- Debug Statements
3413: --
3414: IF l_debug_on THEN
3428: END IF;
3429: --
3430: wsh_tpa_delivery_pkg.check_smc( p_delivery_id, l_valid_flag, l_return_status);
3431:
3432: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3433: x_return_status := l_return_status;
3434: --
3435: -- Debug Statements
3436: --
3461: If g_break_smc_severity = 'E' then
3462: --Note. Setting return status to 'W' and message severity to 'E'. The return
3463: --status is checked in wsh_new_delivery_actions.confirm_delivery and treated
3464: --as error if WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc.count > 0.
3465: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3466: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
3467: WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc := nvl(WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc,0) + 1;
3468: IF l_debug_on THEN
3469: WSH_DEBUG_SV.log(l_module_name,'Going to exit wsh_delivery_validations due to message severity set to (SMC) ',g_break_smc_severity);
3462: --Note. Setting return status to 'W' and message severity to 'E'. The return
3463: --status is checked in wsh_new_delivery_actions.confirm_delivery and treated
3464: --as error if WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc.count > 0.
3465: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3466: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
3467: WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc := nvl(WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc,0) + 1;
3468: IF l_debug_on THEN
3469: WSH_DEBUG_SV.log(l_module_name,'Going to exit wsh_delivery_validations due to message severity set to (SMC) ',g_break_smc_severity);
3470: WSH_DEBUG_SV.pop(l_module_name);
3470: WSH_DEBUG_SV.pop(l_module_name);
3471: END IF;
3472: RETURN;
3473: Else
3474: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3475: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
3476: End If;
3477: END IF;
3478:
3471: END IF;
3472: RETURN;
3473: Else
3474: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3475: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
3476: End If;
3477: END IF;
3478:
3479: -- TPA change
3485: END IF;
3486: --
3487: wsh_tpa_delivery_pkg.check_ship_set( p_delivery_id, l_valid_flag, l_return_status);
3488:
3489: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3490: x_return_status := l_return_status;
3491: --
3492: -- Debug Statements
3493: --
3519: If g_break_ship_set_severity = 'E' then
3520: --Note. Setting return status to 'W' and message severity to 'E'. The return
3521: --status is checked in wsh_new_delivery_actions.confirm_delivery and treated
3522: --as error if WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc.count > 0.
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3524: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
3525: WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc := nvl(WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc,0) + 1;
3526: IF l_debug_on THEN
3527: WSH_DEBUG_SV.log(l_module_name,'Going to exit wsh_delivery_validations due to message severity set to (ShipSet) ',g_break_ship_set_severity);
3520: --Note. Setting return status to 'W' and message severity to 'E'. The return
3521: --status is checked in wsh_new_delivery_actions.confirm_delivery and treated
3522: --as error if WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc.count > 0.
3523: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3524: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
3525: WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc := nvl(WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc,0) + 1;
3526: IF l_debug_on THEN
3527: WSH_DEBUG_SV.log(l_module_name,'Going to exit wsh_delivery_validations due to message severity set to (ShipSet) ',g_break_ship_set_severity);
3528: WSH_DEBUG_SV.pop(l_module_name);
3528: WSH_DEBUG_SV.pop(l_module_name);
3529: END IF;
3530: RETURN;
3531: Else
3532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3533: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
3534: End If;
3535: END IF;
3536: /* H integration anxsharm */
3529: END IF;
3530: RETURN;
3531: Else
3532: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3533: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
3534: End If;
3535: END IF;
3536: /* H integration anxsharm */
3537:
3546: wsh_new_delivery_actions.update_leg_sequence(
3547: p_delivery_id => p_delivery_id,
3548: x_return_status => l_return_status);
3549:
3550: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3551: x_return_status := l_return_status;
3552: --
3553: -- Debug Statements
3554: --
3606: p_receive_location_id => p_ship_to_location,
3607: p_update_flag => 'N',
3608: x_return_status => l_return_status);
3609:
3610: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3611: x_return_status := l_return_status;
3612: END IF;
3613: --
3614: -- } check-shpg_rcvg calendar
3621: END IF;
3622: --
3623: EXCEPTION
3624: WHEN others THEN
3625: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CONFIRM');
3626: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3627:
3628: --
3629: -- Debug Statements
3622: --
3623: EXCEPTION
3624: WHEN others THEN
3625: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CONFIRM');
3626: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3627:
3628: --
3629: -- Debug Statements
3630: --
3678: --
3679: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3680: END IF;
3681: --
3682: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3683:
3684: OPEN delivery_status;
3685: FETCH delivery_status INTO l_del_status;
3686:
3700: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3701: END IF;
3702: --
3703: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
3704: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3705: wsh_util_core.add_message(x_return_status);
3706: --
3707: -- Debug Statements
3708: --
3701: END IF;
3702: --
3703: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
3704: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3705: wsh_util_core.add_message(x_return_status);
3706: --
3707: -- Debug Statements
3708: --
3709: IF l_debug_on THEN
3721: END IF;
3722: --
3723: EXCEPTION
3724: WHEN others THEN
3725: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_REOPEN');
3726: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3727:
3728: --
3729: -- Debug Statements
3722: --
3723: EXCEPTION
3724: WHEN others THEN
3725: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_REOPEN');
3726: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3727:
3728: --
3729: -- Debug Statements
3730: --
3794: --
3795: -- J-IB-NPARIKH-{
3796: -- Stubbed out as no one is calling this API.
3797: /*
3798: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3799:
3800: OPEN delivery_status;
3801: FETCH delivery_status INTO l_del_status;
3802:
3816: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3817: END IF;
3818: --
3819: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
3820: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3821: wsh_util_core.add_message(x_return_status);
3822: --
3823: -- Debug Statements
3824: --
3817: END IF;
3818: --
3819: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
3820: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3821: wsh_util_core.add_message(x_return_status);
3822: --
3823: -- Debug Statements
3824: --
3825: IF l_debug_on THEN
3843: CLOSE stop_status;
3844:
3845: IF (l_stop_status <> 'CL') THEN
3846: FND_MESSAGE.SET_NAME('WSH','First-pickup-stop-not-closed');
3847: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3848: wsh_util_core.add_message(x_return_status);
3849: RETURN;
3850: END IF;
3851: */
3844:
3845: IF (l_stop_status <> 'CL') THEN
3846: FND_MESSAGE.SET_NAME('WSH','First-pickup-stop-not-closed');
3847: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3848: wsh_util_core.add_message(x_return_status);
3849: RETURN;
3850: END IF;
3851: */
3852:
3850: END IF;
3851: */
3852:
3853:
3854: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR; -- J-IB-NPARIKH
3855: --
3856: -- Debug Statements
3857: --
3858: IF l_debug_on THEN
3860: END IF;
3861: --
3862: EXCEPTION
3863: WHEN others THEN
3864: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_INTRANSIT');
3865: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3866:
3867: --
3868: -- Debug Statements
3861: --
3862: EXCEPTION
3863: WHEN others THEN
3864: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_INTRANSIT');
3865: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3866:
3867: --
3868: -- Debug Statements
3869: --
4011: -- J-IB-NPARIKH-{
4012: --
4013: -- stubbed out as no longer being called.
4014: --
4015: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4016: RETURN;
4017: -- J-IB-NPARIKH-}
4018: **/
4019: --
4031: CLOSE stops_not_closed;
4032:
4033: IF l_stop_id IS NOT NULL THEN
4034: -- this status signals: Do not close this delivery.
4035: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4036: --
4037: -- Debug Statements
4038: --
4039: IF l_debug_on THEN
4060: END IF;
4061: CLOSE check_pod;
4062:
4063: IF (l_pod_flag IS NULL) THEN
4064: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4065: ELSE
4066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4067: --
4068: -- Debug Statements
4062:
4063: IF (l_pod_flag IS NULL) THEN
4064: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4065: ELSE
4066: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4067: --
4068: -- Debug Statements
4069: --
4070: IF l_debug_on THEN
4085: END IF;
4086: CLOSE have_details;
4087:
4088: IF num IS NOT NULL THEN
4089: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4090: --
4091: -- Debug Statements
4092: --
4093: IF l_debug_on THEN
4104: END IF;
4105: CLOSE have_legs;
4106:
4107: IF num IS NOT NULL THEN
4108: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4109: --
4110: -- Debug Statements
4111: --
4112: IF l_debug_on THEN
4115: --
4116: return;
4117: END IF;
4118:
4119: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4120:
4121: ELSIF p_old_status_code = 'IT' THEN
4122:
4123: -- Look for stops that are not closed and shared by other deliveries.
4159:
4160: CLOSE delivery_leg_stops;
4161:
4162: IF shared_flag THEN
4163: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4164: --
4165: -- Debug Statements
4166: --
4167: IF l_debug_on THEN
4169: END IF;
4170: --
4171: return;
4172: ELSE
4173: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4174: END IF;
4175:
4176: ELSE
4177: -- any other status is invalid for closing.
4174: END IF;
4175:
4176: ELSE
4177: -- any other status is invalid for closing.
4178: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4179: END IF;
4180:
4181: END IF;
4182:
4188: END IF;
4189: --
4190: EXCEPTION
4191: WHEN others THEN
4192: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CLOSE');
4193: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4194:
4195: --
4196: -- Debug Statements
4189: --
4190: EXCEPTION
4191: WHEN others THEN
4192: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CLOSE');
4193: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4194:
4195: --
4196: -- Debug Statements
4197: --
4369: --
4370: --
4371: IF p_in_rec.stop_id IS NULL
4372: THEN
4373: RAISE wsh_util_core.e_not_allowed;
4374: END IF;
4375: --
4376: --
4377: OPEN stops_not_closed(p_in_rec.delivery_id, p_in_rec.stop_id);
4385: -- Cannot close delivery.
4386: --
4387: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_OPEN_STOP');
4388: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4389: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4390: RAISE wsh_util_core.e_not_allowed;
4391: END IF;
4392: CLOSE stops_not_closed;
4393: --
4386: --
4387: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_OPEN_STOP');
4388: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4389: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4390: RAISE wsh_util_core.e_not_allowed;
4391: END IF;
4392: CLOSE stops_not_closed;
4393: --
4394: OPEN check_pod (p_in_rec.stop_id);
4402: -- Cannot close delivery.
4403: --
4404: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_POD');
4405: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4406: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4407: RAISE wsh_util_core.e_not_allowed;
4408: END IF;
4409: --
4410: CLOSE check_pod;
4403: --
4404: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_POD');
4405: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4406: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4407: RAISE wsh_util_core.e_not_allowed;
4408: END IF;
4409: --
4410: CLOSE check_pod;
4411: --
4427: -- Cannot close delivery.
4428: --
4429: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_DETAIL');
4430: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4431: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4432: RAISE wsh_util_core.e_not_allowed;
4433:
4434: END IF;
4435: --
4428: --
4429: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_DETAIL');
4430: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4431: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4432: RAISE wsh_util_core.e_not_allowed;
4433:
4434: END IF;
4435: --
4436: CLOSE have_details;
4447: -- Cannot close delivery.
4448: --
4449: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_LEGS');
4450: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4451: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4452:
4453: RAISE wsh_util_core.e_not_allowed;
4454: END IF;
4455: --
4449: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_LEGS');
4450: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4451: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4452:
4453: RAISE wsh_util_core.e_not_allowed;
4454: END IF;
4455: --
4456: CLOSE have_legs;
4457: --
4470: THEN
4471: --CLOSE shared_stops_csr;
4472: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_SHR_STOPS');
4473: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4474: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4475: RAISE wsh_util_core.e_not_allowed;
4476: END IF;
4477: --
4478: CLOSE shared_stops_csr;
4471: --CLOSE shared_stops_csr;
4472: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_SHR_STOPS');
4473: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4474: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4475: RAISE wsh_util_core.e_not_allowed;
4476: END IF;
4477: --
4478: CLOSE shared_stops_csr;
4479: --}
4478: CLOSE shared_stops_csr;
4479: --}
4480: ELSE
4481: --{
4482: RAISE wsh_util_core.e_not_allowed;
4483: --}
4484: END IF;
4485: --}
4486: END IF;
4501: p_logging_entity_name => 'DELIVERY',
4502: p_consider_content => 'Y',
4503: x_exceptions_tab => l_exceptions_tab
4504: );
4505: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4506: x_return_status := l_return_status;
4507: wsh_util_core.add_message(x_return_status);
4508: RAISE FND_API.G_EXC_ERROR;
4509: END IF;
4503: x_exceptions_tab => l_exceptions_tab
4504: );
4505: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4506: x_return_status := l_return_status;
4507: wsh_util_core.add_message(x_return_status);
4508: RAISE FND_API.G_EXC_ERROR;
4509: END IF;
4510: FOR exp_cnt in 1..l_exceptions_tab.COUNT LOOP
4511: IF l_exceptions_tab(exp_cnt).exception_behavior = 'ERROR' THEN
4516: END IF;
4517: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4518: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4519: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4520: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4521: wsh_util_core.add_message(x_return_status);
4522: l_num_warnings := l_num_warnings + 1 ;
4523: RAISE wsh_util_core.e_not_allowed;
4524: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4517: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4518: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4519: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4520: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4521: wsh_util_core.add_message(x_return_status);
4522: l_num_warnings := l_num_warnings + 1 ;
4523: RAISE wsh_util_core.e_not_allowed;
4524: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4525: IF l_exceptions_tab(exp_cnt).entity_name = 'DELIVERY' THEN
4519: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4520: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4521: wsh_util_core.add_message(x_return_status);
4522: l_num_warnings := l_num_warnings + 1 ;
4523: RAISE wsh_util_core.e_not_allowed;
4524: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4525: IF l_exceptions_tab(exp_cnt).entity_name = 'DELIVERY' THEN
4526: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4527: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4526: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4527: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4528: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4529: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4530: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4531: wsh_util_core.add_message(x_return_status);
4532: l_num_warnings := l_num_warnings + 1 ;
4533: l_exp_warning := TRUE;
4534: ELSIF NOT (l_exp_logged) THEN
4527: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4528: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4529: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4530: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4531: wsh_util_core.add_message(x_return_status);
4532: l_num_warnings := l_num_warnings + 1 ;
4533: l_exp_warning := TRUE;
4534: ELSIF NOT (l_exp_logged) THEN
4535: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4535: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4536: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4537: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4538: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4539: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4540: l_exp_logged := TRUE;
4541: wsh_util_core.add_message(x_return_status);
4542: l_num_warnings := l_num_warnings + 1 ;
4543: l_exp_warning := TRUE;
4537: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4538: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4539: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4540: l_exp_logged := TRUE;
4541: wsh_util_core.add_message(x_return_status);
4542: l_num_warnings := l_num_warnings + 1 ;
4543: l_exp_warning := TRUE;
4544: END IF;
4545: END IF;
4547:
4548:
4549: IF l_num_errors > 0
4550: THEN
4551: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4552: x_allowed := 'N';
4553: ELSIF l_num_warnings > 0
4554: THEN
4555: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4551: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4552: x_allowed := 'N';
4553: ELSIF l_num_warnings > 0
4554: THEN
4555: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4556: ELSE
4557: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4558: END IF;
4559: --
4553: ELSIF l_num_warnings > 0
4554: THEN
4555: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4556: ELSE
4557: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4558: END IF;
4559: --
4560: --
4561: -- If Exceptions have warnings, then display warnings but allow to proceed
4574: --
4575: --}
4576: EXCEPTION
4577: --{
4578: WHEN wsh_util_core.e_not_allowed THEN
4579: IF l_num_warnings > 0
4580: THEN
4581: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4582: ELSE
4577: --{
4578: WHEN wsh_util_core.e_not_allowed THEN
4579: IF l_num_warnings > 0
4580: THEN
4581: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4582: ELSE
4583: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4584: END IF;
4585: --
4579: IF l_num_warnings > 0
4580: THEN
4581: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4582: ELSE
4583: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4584: END IF;
4585: --
4586: x_allowed := 'N';
4587: --
4586: x_allowed := 'N';
4587: --
4588: --
4589: IF l_debug_on THEN
4590: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4591: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
4592: END IF;
4593: --
4594: WHEN wsh_util_core.e_not_allowed_warning THEN
4587: --
4588: --
4589: IF l_debug_on THEN
4590: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4591: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
4592: END IF;
4593: --
4594: WHEN wsh_util_core.e_not_allowed_warning THEN
4595: IF l_num_warnings > 0
4590: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4591: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
4592: END IF;
4593: --
4594: WHEN wsh_util_core.e_not_allowed_warning THEN
4595: IF l_num_warnings > 0
4596: THEN
4597: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4598: ELSE
4593: --
4594: WHEN wsh_util_core.e_not_allowed_warning THEN
4595: IF l_num_warnings > 0
4596: THEN
4597: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4598: ELSE
4599: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4600: END IF;
4601: --
4595: IF l_num_warnings > 0
4596: THEN
4597: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4598: ELSE
4599: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4600: END IF;
4601: --
4602: x_allowed := 'NW';
4603: --
4608: END IF;
4609: --
4610: WHEN FND_API.G_EXC_ERROR THEN
4611:
4612: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4613: --
4614: IF l_debug_on THEN
4615: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4616: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4617: END IF;
4618: --
4619: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4620:
4621: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4622: --
4623: IF l_debug_on THEN
4624: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4625: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4624: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4625: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4626: END IF;
4627: --
4628: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4629: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4630: --
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4625: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4626: END IF;
4627: --
4628: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4629: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4630: --
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4633: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4628: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4629: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4630: --
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4633: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4634: END IF;
4635: --
4636: WHEN OTHERS THEN
4629: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4630: --
4631: IF l_debug_on THEN
4632: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4633: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4634: END IF;
4635: --
4636: WHEN OTHERS THEN
4637:
4634: END IF;
4635: --
4636: WHEN OTHERS THEN
4637:
4638: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4639: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Check_Close',l_module_name);
4640: --
4641: IF l_debug_on THEN
4642: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4635: --
4636: WHEN OTHERS THEN
4637:
4638: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4639: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Check_Close',l_module_name);
4640: --
4641: IF l_debug_on THEN
4642: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4643: END IF;
4727: --
4728: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
4729: END IF;
4730: --
4731: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4732:
4733:
4734: --OTM R12
4735: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
4731: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4732:
4733:
4734: --OTM R12
4735: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
4736:
4737: IF l_gc3_is_installed IS NULL THEN
4738: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
4739: END IF;
4734: --OTM R12
4735: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
4736:
4737: IF l_gc3_is_installed IS NULL THEN
4738: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
4739: END IF;
4740: --
4741:
4742:
4770: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4771: END IF;
4772: --
4773: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4774: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4775: wsh_util_core.add_message(x_return_status);
4776: END IF;
4777: --
4778: --
4771: END IF;
4772: --
4773: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4774: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4775: wsh_util_core.add_message(x_return_status);
4776: END IF;
4777: --
4778: --
4779: --{ --J-IB-NPARIKH
4789: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4790: END IF;
4791: --
4792: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4793: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4794: wsh_util_core.add_message(x_return_status);
4795: END IF;
4796: --} --J-IB-NPARIKH
4797: -- 1. Checks if details exist for the delivery and locks them
4790: END IF;
4791: --
4792: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4793: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4794: wsh_util_core.add_message(x_return_status);
4795: END IF;
4796: --} --J-IB-NPARIKH
4797: -- 1. Checks if details exist for the delivery and locks them
4798: FOR dt IN detail_info LOOP
4801:
4802: IF (l_flag = 'Y') THEN
4803: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_UNASSIGNED');
4804: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_delivery_id));
4805: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4806: wsh_util_core.add_message(x_return_status);
4807: END IF;
4808:
4809: -- 2. Checks if legs exist for the delivery and locks them
4802: IF (l_flag = 'Y') THEN
4803: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_UNASSIGNED');
4804: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_delivery_id));
4805: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4806: wsh_util_core.add_message(x_return_status);
4807: END IF;
4808:
4809: -- 2. Checks if legs exist for the delivery and locks them
4810: l_flag := 'N';
4813: END LOOP;
4814:
4815: IF (l_flag = 'Y') and l_delivery_type = 'STANDARD' THEN
4816: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DELETE_WITH_LEGS');
4817: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4818: --
4819: -- Debug Statements
4820: --
4821: IF l_debug_on THEN
4822: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4823: END IF;
4824: --
4825: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_delivery_id));
4826: wsh_util_core.add_message(x_return_status);
4827: END IF;
4828:
4829: -- 3. Checks if freight costs exist for the delivery and locks them
4830: l_flag := 'N';
4841: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4842: END IF;
4843: --
4844: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_delivery_id));
4845: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4846: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
4847: END IF;
4848:
4849: --
4842: END IF;
4843: --
4844: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_delivery_id));
4845: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4846: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
4847: END IF;
4848:
4849: --
4850: -- Debug Statements
4873: CLOSE freight_costs_exist;
4874: END IF;
4875:
4876: FND_MESSAGE.SET_NAME('WSH','WSH_OTM_DEL_DELETE_ERROR');
4877: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4878: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
4879:
4880: IF l_debug_on THEN
4881: WSH_DEBUG_SV.logmsg(l_module_name,'CANNOT_DELETE_GC3_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4874: END IF;
4875:
4876: FND_MESSAGE.SET_NAME('WSH','WSH_OTM_DEL_DELETE_ERROR');
4877: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4878: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
4879:
4880: IF l_debug_on THEN
4881: WSH_DEBUG_SV.logmsg(l_module_name,'CANNOT_DELETE_GC3_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4882: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CANNOT_DELETE_GC3_DELIVERY');
4900: IF (freight_costs_exist%ISOPEN) THEN
4901: CLOSE freight_costs_exist;
4902: END IF;
4903:
4904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4905:
4906: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
4907: wsh_util_core.add_message(x_return_status,l_module_name);
4908:
4903:
4904: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4905:
4906: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
4907: wsh_util_core.add_message(x_return_status,l_module_name);
4908:
4909:
4910: IF l_debug_on THEN
4911: WSH_DEBUG_SV.logmsg(l_module_name,'record_locked has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4930: IF (freight_costs_exist%ISOPEN) THEN
4931: CLOSE freight_costs_exist;
4932: END IF;
4933:
4934: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DELETE_DELIVERY');
4935: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4936:
4937: IF l_debug_on THEN
4938: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4931: CLOSE freight_costs_exist;
4932: END IF;
4933:
4934: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DELETE_DELIVERY');
4935: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4936:
4937: IF l_debug_on THEN
4938: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4939: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5003: --
5004: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5005: END IF;
5006: --
5007: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5008:
5009: OPEN delivery_status;
5010: FETCH delivery_status INTO l_del_status, l_org_id;
5011:
5025: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
5026: END IF;
5027: --
5028: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
5029: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5030: wsh_util_core.add_message(x_return_status);
5031: --
5032: -- Debug Statements
5033: --
5026: END IF;
5027: --
5028: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
5029: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5030: wsh_util_core.add_message(x_return_status);
5031: --
5032: -- Debug Statements
5033: --
5034: IF l_debug_on THEN
5051: wsh_delivery_autocreate.get_group_by_attr( p_organization_id => l_org_id,
5052: x_group_by_flags => l_group_by_attr,
5053: x_return_status => l_return_status);
5054:
5055: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5056: x_return_status := l_return_status;
5057: --
5058: -- Debug Statements
5059: --
5072: CLOSE detail_info;
5073:
5074: IF (l_detail_num <> 0) AND (l_detail_num IS NOT NULL) THEN
5075: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CHANGE_SH_M_ERROR');
5076: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5077: wsh_util_core.add_message(x_return_status);
5078: END IF;
5079: END IF;
5080:
5073:
5074: IF (l_detail_num <> 0) AND (l_detail_num IS NOT NULL) THEN
5075: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CHANGE_SH_M_ERROR');
5076: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5077: wsh_util_core.add_message(x_return_status);
5078: END IF;
5079: END IF;
5080:
5081: --
5086: END IF;
5087: --
5088: EXCEPTION
5089: WHEN others THEN
5090: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CHANGE_CARRIER');
5091: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5092:
5093: --
5094: -- Debug Statements
5087: --
5088: EXCEPTION
5089: WHEN others THEN
5090: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CHANGE_CARRIER');
5091: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5092:
5093: --
5094: -- Debug Statements
5095: --
5103: PROCEDURE Get_Disabled_List(
5104: p_delivery_id IN NUMBER
5105: , p_list_type IN VARCHAR2
5106: , x_return_status OUT NOCOPY VARCHAR2
5107: , x_disabled_list OUT NOCOPY wsh_util_core.column_tab_type
5108: , x_msg_count OUT NOCOPY NUMBER
5109: , x_msg_data OUT NOCOPY VARCHAR2
5110: , p_caller IN VARCHAR2 -- DEFAULT NULL, --3509004:public api changes
5111: )
5178: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5179: WSH_DEBUG_SV.log(l_module_name,'P_LIST_TYPE',P_LIST_TYPE);
5180: END IF;
5181: --
5182: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5183:
5184: -- clear the disabled list
5185: x_disabled_list.delete;
5186:
5538: END IF;
5539:
5540: IF NVL(l_shipment_direction,'O') NOT IN ('O','IO')
5541: AND l_status_code IN ('IT', 'CL')
5542: AND l_initial_pickup_location_id = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
5543: THEN
5544: --{
5545: --
5546: -- For in-transit/closed inbound deliveries (not O/IO),
5571: --
5572: END IF;
5573: --
5574: --
5575: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
5576: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5577: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
5578: raise FND_API.G_EXC_ERROR;
5579: END IF;
5573: --
5574: --
5575: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
5576: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5577: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
5578: raise FND_API.G_EXC_ERROR;
5579: END IF;
5580: --
5581: --
5595:
5596:
5597: -- Commented FTE_IS_INSTALLED If condition for Bug-2801799
5598: /***
5599: IF ( WSH_UTIL_CORE.FTE_Is_Installed ='N' ) THEN
5600: -- Bug Fix 2780610 added the below if condition --
5601: IF (l_status_code IN ('OP','SA','PA')) THEN
5602: i:=i+1; x_disabled_list(i) := 'FREIGHT_CODE';
5603: i:=i+1; x_disabled_list(i) := 'SERVICE_LEVEL_NAME';
5614: END IF;
5615: --
5616: EXCEPTION
5617: WHEN e_all_disabled THEN --3509004:public api changes
5618: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5619: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
5620: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_id);
5621: wsh_util_core.add_message(x_return_status,l_module_name);
5622: IF l_debug_on THEN
5617: WHEN e_all_disabled THEN --3509004:public api changes
5618: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5619: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
5620: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_id);
5621: wsh_util_core.add_message(x_return_status,l_module_name);
5622: IF l_debug_on THEN
5623: -- Nothing is updateable
5624: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
5625: END IF;
5627:
5628: WHEN wsh_dp_no_entity THEN
5629: x_return_status := FND_API.G_RET_STS_ERROR;
5630: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_ENTITY');
5631: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
5632: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
5633: IF x_msg_count > 1 then
5634: x_msg_data := l_msg_summary || l_msg_details;
5635: ELSE
5628: WHEN wsh_dp_no_entity THEN
5629: x_return_status := FND_API.G_RET_STS_ERROR;
5630: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_ENTITY');
5631: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
5632: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
5633: IF x_msg_count > 1 then
5634: x_msg_data := l_msg_summary || l_msg_details;
5635: ELSE
5636: x_msg_data := l_msg_summary;
5646: --
5647: WHEN wsh_inv_list_type THEN
5648: x_return_status := FND_API.G_RET_STS_ERROR;
5649: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
5650: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
5651: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
5652: IF x_msg_count > 1 then
5653: x_msg_data := l_msg_summary || l_msg_details;
5654: ELSE
5647: WHEN wsh_inv_list_type THEN
5648: x_return_status := FND_API.G_RET_STS_ERROR;
5649: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
5650: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
5651: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
5652: IF x_msg_count > 1 then
5653: x_msg_data := l_msg_summary || l_msg_details;
5654: ELSE
5655: x_msg_data := l_msg_summary;
5669: END IF;
5670: IF (has_delivery_lines%ISOPEN) THEN
5671: CLOSE has_delivery_lines;
5672: END IF;
5673: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list');
5674: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5675:
5676: --
5677: -- Debug Statements
5670: IF (has_delivery_lines%ISOPEN) THEN
5671: CLOSE has_delivery_lines;
5672: END IF;
5673: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list');
5674: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5675:
5676: --
5677: -- Debug Statements
5678: --
5760: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_SET_ID',P_SHIP_SET_ID);
5761: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_TRANSACTABLE',P_CHECK_TRANSACTABLE);
5762: END IF;
5763: --
5764: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5765:
5766: IF p_source_code <> 'OE' THEN
5767: -- assume everything is imported.
5768: --
5811: return l_lines_exist;
5812:
5813: EXCEPTION
5814: WHEN OTHERS THEN
5815: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Check_SS_Imp_Pending');
5816: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5817: --
5818: -- Debug Statements
5819: --
5812:
5813: EXCEPTION
5814: WHEN OTHERS THEN
5815: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Check_SS_Imp_Pending');
5816: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5817: --
5818: -- Debug Statements
5819: --
5820: IF l_debug_on THEN
6085: + l_bad_quantities.expected_quantity;
6086: ELSE
6087: CLOSE c_total_line_quantities;
6088: FND_MESSAGE.SET_NAME('WSH','WSH_DATA_CORRUPTION');
6089: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR);
6090: raise others ;
6091: END IF;
6092:
6093: END LOOP;
6105: WSH_DEBUG_SV.logmsg(l_module_name,'l_total_quantities.expected_quantity2 '||l_total_quantities.expected_quantity2||' l_max_quantity2 '||l_max_quantity2);
6106: END IF;
6107:
6108: -- muom
6109: IF WSH_UTIL_CORE.Get_Line_Fulfillment_Base(dl.source_code, dl.source_line_id) = 'S' THEN
6110: IF (l_total_quantities.expected_quantity2 > l_max_quantity2) THEN
6111: l_flag := 'S';
6112: END IF;
6113: ELSIF l_total_quantities.expected_quantity > l_max_quantity THEN
6150: raise tolerance_exceeded ;
6151: end if;
6152:
6153: END LOOP;
6154: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS ;
6155:
6156: --
6157: -- Debug Statements
6158: --
6264: END IF;
6265:
6266: x_return_status := FND_API.G_RET_STS_ERROR;
6267: -- Add_message is not needed because the caller Confirm_Delivery does this.
6268: -- WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
6269:
6270: --
6271: -- Debug Statements
6272: --
6278: WHEN others THEN
6279: if c_total_line_quantities%ISOPEN THEN
6280: close c_total_line_quantities ;
6281: end if ;
6282: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DELIVERY_FOR_TOLERANCE');
6283: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6284:
6285: --
6286: -- Debug Statements
6279: if c_total_line_quantities%ISOPEN THEN
6280: close c_total_line_quantities ;
6281: end if ;
6282: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DELIVERY_FOR_TOLERANCE');
6283: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6284:
6285: --
6286: -- Debug Statements
6287: --
6330: --
6331: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
6332: END IF;
6333: --
6334: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6335:
6336: OPEN check_assigned(p_delivery_id);
6337:
6338: FETCH check_assigned INTO l_delivery_id;
6362: WHEN OTHERS THEN
6363: IF check_assigned%ISOPEN THEN
6364: CLOSE check_assigned;
6365: END IF;
6366: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6367: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Del_Assigned_To_Trip');
6368: --
6369: -- Debug Statements
6370: --
6363: IF check_assigned%ISOPEN THEN
6364: CLOSE check_assigned;
6365: END IF;
6366: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6367: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Del_Assigned_To_Trip');
6368: --
6369: -- Debug Statements
6370: --
6371: IF l_debug_on THEN
6391: p_action IN VARCHAR2,
6392: p_caller IN VARCHAR2,
6393: p_tripid IN NUMBER DEFAULT null,
6394: x_return_status OUT NOCOPY VARCHAR2,
6395: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
6396: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
6397: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
6398: ) IS
6399:
6392: p_caller IN VARCHAR2,
6393: p_tripid IN NUMBER DEFAULT null,
6394: x_return_status OUT NOCOPY VARCHAR2,
6395: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
6396: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
6397: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
6398: ) IS
6399:
6400: cursor del_to_det_cur( p_delivery_id IN NUMBER ) is
6393: p_tripid IN NUMBER DEFAULT null,
6394: x_return_status OUT NOCOPY VARCHAR2,
6395: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
6396: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
6397: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
6398: ) IS
6399:
6400: cursor del_to_det_cur( p_delivery_id IN NUMBER ) is
6401: select distinct 'X'
6452: FROM WSH_NEW_DELIVERIES
6453: WHERE delivery_id = p_delivery_id;
6454:
6455: l_override_wf VARCHAR2(1);
6456: l_del_entity_ids WSH_UTIL_CORE.column_tab_type;
6457: l_del_scpod_wf_process VARCHAR2(30);
6458: l_close_flag VARCHAR2(1);
6459: l_purged_count NUMBER;
6460: l_wf_rs VARCHAR2(1);
6546: END IF;
6547:
6548:
6549: --OTM R12
6550: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
6551:
6552: IF l_gc3_is_installed IS NULL THEN
6553: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
6554: END IF;
6549: --OTM R12
6550: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
6551:
6552: IF l_gc3_is_installed IS NULL THEN
6553: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
6554: END IF;
6555: --
6556:
6557: Init_Delivery_Actions_Tbl(
6563: WSH_DEBUG_SV.log(l_module_name,'Init_Detail_Actions_Tbl x_return_status',x_return_status);
6564: WSH_DEBUG_SV.log(l_module_name,' Count of p_dlvy_rec_tab is',p_dlvy_rec_tab.count);
6565: END IF;
6566:
6567: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6568: raise error_in_init_actions;
6569: END IF;
6570:
6571: FOR j IN p_dlvy_rec_tab.FIRST..p_dlvy_rec_tab.LAST LOOP
6625: wsh_debug_sv.log(l_module_name, 'Return status after wsh_util_validate.get_org_type', l_return_status);
6626: wsh_debug_sv.log(l_module_name, 'l_org_type is: ', l_org_type);
6627: END IF;
6628: --
6629: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
6630: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6631: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
6632: raise e_record_ineligible;
6633: END IF;
6627: END IF;
6628: --
6629: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
6630: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6631: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
6632: raise e_record_ineligible;
6633: END IF;
6634: --
6635: l_cache_org_id := p_dlvy_rec_tab(j).organization_id;
6755: --
6756: END IF;
6757: --
6758: --
6759: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
6760: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6761: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
6762: raise e_record_ineligible;
6763: END IF;
6757: --
6758: --
6759: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
6760: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6761: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
6762: raise e_record_ineligible;
6763: END IF;
6764: --
6765: --
6830: )
6831: THEN
6832: IF l_dlvy_actions_tab(k).message_name IS NOT NULL THEN
6833: FND_MESSAGE.SET_NAME('WSH',l_dlvy_actions_tab(k).message_name);
6834: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
6835: END IF;
6836: raise e_record_ineligible;
6837: exit;
6838: END IF;
7177: IF p_caller = 'WSH_PUB' or p_caller like 'FTE%' OR
7178: p_caller = 'WSH_TRCON' THEN
7179: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_ACTION_INELIGIBLE');
7180: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(x_error_ids(x_error_ids.count)));
7181: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('DLVY',p_action));
7182: wsh_util_core.add_message('E',l_module_name);
7183: END IF;
7184: WHEN e_tp_record_ineligible THEN
7185: x_error_ids(x_error_ids.count +1) := p_dlvy_rec_tab(j).delivery_id;
7178: p_caller = 'WSH_TRCON' THEN
7179: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_ACTION_INELIGIBLE');
7180: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(x_error_ids(x_error_ids.count)));
7181: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('DLVY',p_action));
7182: wsh_util_core.add_message('E',l_module_name);
7183: END IF;
7184: WHEN e_tp_record_ineligible THEN
7185: x_error_ids(x_error_ids.count +1) := p_dlvy_rec_tab(j).delivery_id;
7186: IF p_caller = 'WSH_PUB' or p_caller like 'FTE%' OR
7187: p_caller = 'WSH_TRCON' THEN
7188: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_FIRMTRIP_ERROR');
7189: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(x_error_ids(x_error_ids.count)));
7190: FND_MESSAGE.Set_Token('TRIP_NAME',wsh_trips_pvt.get_name(p_tripid));
7191: wsh_util_core.add_message('E',l_module_name);
7192: END IF;
7193: WHEN e_scpod_wf_inprogress THEN --/== Workflow Changes
7194: x_error_ids(x_error_ids.count +1) := p_dlvy_rec_tab(j).delivery_id;
7195: IF p_caller = 'WSH_PUB' or p_caller like 'FTE%' OR
7195: IF p_caller = 'WSH_PUB' or p_caller like 'FTE%' OR
7196: p_caller = 'WSH_TRCON' THEN
7197: FND_MESSAGE.SET_NAME('WSH','WSH_WF_DEL_ACTION_INELIGIBLE');
7198: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(x_error_ids(x_error_ids.count)));
7199: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('DLVY',p_action));
7200: wsh_util_core.add_message('E',l_module_name); --==/
7201: END IF;
7202:
7203: END;
7196: p_caller = 'WSH_TRCON' THEN
7197: FND_MESSAGE.SET_NAME('WSH','WSH_WF_DEL_ACTION_INELIGIBLE');
7198: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(x_error_ids(x_error_ids.count)));
7199: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('DLVY',p_action));
7200: wsh_util_core.add_message('E',l_module_name); --==/
7201: END IF;
7202:
7203: END;
7204: END LOOP; -- For j IN p_dlvy_rec_tab.FIRST
7204: END LOOP; -- For j IN p_dlvy_rec_tab.FIRST
7205:
7206:
7207: IF (x_valid_ids.COUNT = 0 ) THEN
7208: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7209: --
7210: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7211: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
7212: wsh_util_core.add_message(x_return_status,l_module_name);
7208: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7209: --
7210: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7211: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
7212: wsh_util_core.add_message(x_return_status,l_module_name);
7213: END IF;
7214: --
7215: ELSIF (x_valid_ids.COUNT = p_dlvy_rec_tab.COUNT) THEN
7216: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7212: wsh_util_core.add_message(x_return_status,l_module_name);
7213: END IF;
7214: --
7215: ELSIF (x_valid_ids.COUNT = p_dlvy_rec_tab.COUNT) THEN
7216: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7217: ELSIF (x_valid_ids.COUNT < p_dlvy_rec_tab.COUNT ) THEN
7218: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7219: --
7220: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7214: --
7215: ELSIF (x_valid_ids.COUNT = p_dlvy_rec_tab.COUNT) THEN
7216: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7217: ELSIF (x_valid_ids.COUNT < p_dlvy_rec_tab.COUNT ) THEN
7218: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7219: --
7220: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7221: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
7222: wsh_util_core.add_message(x_return_status,l_module_name);
7218: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7219: --
7220: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7221: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
7222: wsh_util_core.add_message(x_return_status,l_module_name);
7223: END IF;
7224: --
7225: ELSE
7226: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7222: wsh_util_core.add_message(x_return_status,l_module_name);
7223: END IF;
7224: --
7225: ELSE
7226: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7227: --
7228: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7229: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
7230: wsh_util_core.add_message(x_return_status,l_module_name);
7226: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7227: --
7228: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7229: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
7230: wsh_util_core.add_message(x_return_status,l_module_name);
7231: END IF;
7232: --
7233: END IF;
7234:
7243: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:error_in_init_actions');
7244: END IF;
7245:
7246: WHEN OTHERS THEN
7247: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7248: IF l_debug_on THEN
7249: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
7250: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7251: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7914: -- and disables the field contained in p_disabled_list.
7915: -----------------------------------------------------------*/
7916:
7917: PROCEDURE disable_from_list(
7918: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
7919: , p_in_rec IN WSH_NEW_DELIVERIES_PVT.Delivery_rec_type
7920: , x_out_rec IN OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_rec_type
7921: , x_return_status OUT NOCOPY VARCHAR2
7922: , x_field_name OUT NOCOPY VARCHAR2
8250: NULL;
8251: ELSE
8252: -- invalid name
8253: x_field_name := p_disabled_list(i);
8254: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8255: RETURN;
8256: --
8257: END IF;
8258: ELSE -- else if l_prefix is not '+'
8417: NULL;
8418: ELSE
8419: -- invalid name
8420: x_field_name := p_disabled_list(i);
8421: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8422: RETURN;
8423: --
8424: END IF;
8425: END IF;
8540: -- included in p_disabled_list and will enable them
8541: -----------------------------------------------------------*/
8542:
8543: PROCEDURE enable_from_list(
8544: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
8545: , p_in_rec IN WSH_NEW_DELIVERIES_PVT.Delivery_rec_type
8546: , x_out_rec IN OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_rec_type
8547: , x_return_status OUT NOCOPY VARCHAR2
8548: , x_field_name OUT NOCOPY VARCHAR2
9105: NULL;
9106: ELSE
9107: -- invalid name
9108: x_field_name := p_disabled_list(i);
9109: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9110: RETURN;
9111: END IF;
9112: ELSE -- if the prefix is not +
9113: IF p_disabled_list(i) = 'ADDITIONAL_SHIPMENT_INFO' THEN
9519: NULL;
9520: ELSE
9521: -- invalid name
9522: x_field_name := p_disabled_list(i);
9523: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9524: RETURN;
9525: --
9526: END IF;
9527: END IF;
9541: , x_msg_data OUT NOCOPY VARCHAR2
9542: , x_delivery_rec OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type
9543: )
9544: IS
9545: l_disabled_list WSH_UTIL_CORE.column_tab_type;
9546: l_db_col_rec WSH_NEW_DELIVERIES_PVT.Delivery_rec_type;
9547: l_return_status VARCHAR2(30);
9548: l_field_name VARCHAR2(100);
9549: l_debug_on BOOLEAN;
9792: , x_msg_data
9793: , l_caller --3509004:public api changes
9794: );
9795: --
9796: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
9797: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9798: THEN
9799: --
9800: IF l_debug_on THEN
9793: , l_caller --3509004:public api changes
9794: );
9795: --
9796: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
9797: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9798: THEN
9799: --
9800: IF l_debug_on THEN
9801: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
9878: p_delivery_rec,
9879: x_delivery_rec,
9880: l_return_status,
9881: l_field_name);
9882: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9883: RAISE e_bad_field;
9884: END IF;
9885: END IF;
9886: --
9909: l_return_status,
9910: l_field_name,
9911: p_in_rec.caller
9912: );
9913: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9914: RAISE e_bad_field;
9915: END IF;
9916: END IF;
9917: --
9928: p_out_rec => x_delivery_rec,
9929: p_in_rec => p_in_rec,
9930: x_return_status => l_return_status);
9931: --
9932: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9933: x_return_status := l_return_status;
9934: END IF;
9935: --
9936: END IF;
9944: IF (c_tbl_rec%ISOPEN) THEN
9945: CLOSE c_tbl_rec;
9946: END IF;
9947:
9948: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9949: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
9950: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_rec.delivery_id);
9951: wsh_util_core.add_message(x_return_status,l_module_name);
9952: IF l_debug_on THEN
9947:
9948: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9949: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
9950: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_rec.delivery_id);
9951: wsh_util_core.add_message(x_return_status,l_module_name);
9952: IF l_debug_on THEN
9953: -- Nothing is updateable
9954: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
9955: END IF;
9957: IF (c_tbl_rec%ISOPEN) THEN
9958: CLOSE c_tbl_rec;
9959: END IF;
9960:
9961: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9962: -- the message for this is set in original get_disabled_list
9963: IF l_debug_on THEN
9964: WSH_DEBUG_SV.pop(l_module_name,'e_dp_no_entity');
9965: END IF;
9967: IF (c_tbl_rec%ISOPEN) THEN
9968: CLOSE c_tbl_rec;
9969: END IF;
9970:
9971: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9972: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
9973: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
9974: wsh_util_core.add_message(x_return_status,l_module_name);
9975: IF l_debug_on THEN
9970:
9971: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9972: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
9973: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
9974: wsh_util_core.add_message(x_return_status,l_module_name);
9975: IF l_debug_on THEN
9976: WSH_DEBUG_SV.log(l_module_name,'Bad field name passed to the list:'
9977: ,l_field_name);
9978: WSH_DEBUG_SV.pop(l_module_name,'e_bad_field');
9982: IF (c_tbl_rec%ISOPEN) THEN
9983: CLOSE c_tbl_rec;
9984: END IF;
9985:
9986: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9987: --
9988: IF l_debug_on THEN
9989: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9990: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
9994: IF (c_tbl_rec%ISOPEN) THEN
9995: CLOSE c_tbl_rec;
9996: END IF;
9997:
9998: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
9999: --
10000: IF l_debug_on THEN
10001: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10002: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10006: IF (c_tbl_rec%ISOPEN) THEN
10007: CLOSE c_tbl_rec;
10008: END IF;
10009:
10010: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10011: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list', l_module_name);
10012: IF l_debug_on THEN
10013: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
10014: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10007: CLOSE c_tbl_rec;
10008: END IF;
10009:
10010: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10011: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list', l_module_name);
10012: IF l_debug_on THEN
10013: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
10014: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10015: END IF;
10047: --
10048: WSH_DEBUG_SV.log(l_module_name,'p_action', p_action);
10049: END IF;
10050: --
10051: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10052:
10053: --OTM R12
10054: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
10055:
10050: --
10051: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10052:
10053: --OTM R12
10054: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
10055:
10056: IF l_gc3_is_installed IS NULL THEN
10057: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
10058: END IF;
10053: --OTM R12
10054: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
10055:
10056: IF l_gc3_is_installed IS NULL THEN
10057: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
10058: END IF;
10059: --
10060:
10061: /*
10363: x_delivery_actions_tab(i).status_code := 'CO';
10364: x_delivery_actions_tab(i).action_not_allowed := p_action;
10365: END IF;
10366: ELSIF (p_action in ('GET-FREIGHT-COSTS', 'CANCEL-SHIP-METHOD') ) THEN
10367: IF WSH_UTIL_CORE.FTE_Is_Installed <> 'Y' THEN
10368: --order of i := i + 1; changed to be before and not after addition of new record
10369: i := i + 1;
10370: x_delivery_actions_tab(i).action_not_allowed := p_action;
10371: ELSE
10437: WSH_DEBUG_SV.pop(l_module_name);
10438: END IF;
10439: EXCEPTION
10440: WHEN OTHERS THEN
10441: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10442: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list', l_module_name);
10443: IF l_debug_on THEN
10444: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
10445: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10438: END IF;
10439: EXCEPTION
10440: WHEN OTHERS THEN
10441: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10442: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list', l_module_name);
10443: IF l_debug_on THEN
10444: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
10445: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10446: END IF;
10521: open l_del_org_csr;
10522: Fetch l_del_org_csr into l_organization_id, l_wt_uom_code, l_vol_uom_code;
10523: IF l_del_org_csr%NOTFOUND THEN
10524: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_DELIVERY_ID');
10525: x_return_status := wsh_util_core.g_ret_sts_error;
10526: wsh_util_core.add_message(x_return_status,l_module_name);
10527: close l_del_org_csr;
10528: RAISE FND_API.G_EXC_ERROR;
10529: END IF;
10522: Fetch l_del_org_csr into l_organization_id, l_wt_uom_code, l_vol_uom_code;
10523: IF l_del_org_csr%NOTFOUND THEN
10524: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_DELIVERY_ID');
10525: x_return_status := wsh_util_core.g_ret_sts_error;
10526: wsh_util_core.add_message(x_return_status,l_module_name);
10527: close l_del_org_csr;
10528: RAISE FND_API.G_EXC_ERROR;
10529: END IF;
10530: close l_del_org_csr;
10589: IF l_debug_on THEN
10590: WSH_DEBUG_SV.log(l_module_name,'x_weight_uom_code',x_weight_uom_code);
10591: WSH_DEBUG_SV.log(l_module_name,'x_volume_uom_code',x_volume_uom_code);
10592: END IF;
10593: x_return_status := wsh_util_core.g_ret_sts_success;
10594: --
10595: IF l_debug_on THEN
10596: WSH_DEBUG_SV.pop(l_module_name);
10597: END IF;
10597: END IF;
10598: --
10599: EXCEPTION
10600: WHEN FND_API.G_EXC_ERROR THEN
10601: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10602: --
10603: IF l_debug_on THEN
10604: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10606: END IF;
10607: --
10608: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10609: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10610: --
10611: IF l_debug_on THEN
10612: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10613: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10612: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10613: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10614: END IF;
10615: --
10616: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10617: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10618: --
10619: IF l_debug_on THEN
10620: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10613: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10614: END IF;
10615: --
10616: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10617: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10618: --
10619: IF l_debug_on THEN
10620: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10621: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10616: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10617: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10618: --
10619: IF l_debug_on THEN
10620: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10621: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10622: END IF;
10623: --
10624: WHEN OTHERS THEN
10617: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10618: --
10619: IF l_debug_on THEN
10620: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10621: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10622: END IF;
10623: --
10624: WHEN OTHERS THEN
10625: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10621: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10622: END IF;
10623: --
10624: WHEN OTHERS THEN
10625: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10626: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.DERIVE_DELIVERY_UOM');
10627: --
10628: IF l_debug_on THEN
10629: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10622: END IF;
10623: --
10624: WHEN OTHERS THEN
10625: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10626: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.DERIVE_DELIVERY_UOM');
10627: --
10628: IF l_debug_on THEN
10629: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10630: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10679: IF l_debug_on THEN
10680: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_lookup',x_return_status);
10681: END IF;
10682: --
10683: wsh_util_core.api_post_call(
10684: p_return_status => x_return_status,
10685: x_num_warnings => l_num_warnings,
10686: x_num_errors => l_num_errors);
10687: --
10686: x_num_errors => l_num_errors);
10687: --
10688: END IF;
10689: --
10690: x_return_status := wsh_util_core.g_ret_sts_success;
10691: --
10692: IF l_debug_on THEN
10693: WSH_DEBUG_SV.pop(l_module_name);
10694: END IF;
10695: --
10696: EXCEPTION
10697: WHEN FND_API.G_EXC_ERROR THEN
10698: ROLLBACK TO VALIDATE_ROUTED_EXPORT_TXN;
10699: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10700: --
10701: IF l_debug_on THEN
10702: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10703: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10704: END IF;
10705: --
10706: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10707: ROLLBACK TO VALIDATE_ROUTED_EXPORT_TXN;
10708: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10709: --
10710: IF l_debug_on THEN
10711: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10712: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10711: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10712: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10713: END IF;
10714: --
10715: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10716: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10717: --
10718: IF l_debug_on THEN
10719: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10712: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10713: END IF;
10714: --
10715: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10716: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10717: --
10718: IF l_debug_on THEN
10719: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10720: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10715: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10716: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10717: --
10718: IF l_debug_on THEN
10719: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10720: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10721: END IF;
10722: --
10723: WHEN OTHERS THEN
10716: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10717: --
10718: IF l_debug_on THEN
10719: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10720: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10721: END IF;
10722: --
10723: WHEN OTHERS THEN
10724: ROLLBACK TO VALIDATE_ROUTED_EXPORT_TXN;
10721: END IF;
10722: --
10723: WHEN OTHERS THEN
10724: ROLLBACK TO VALIDATE_ROUTED_EXPORT_TXN;
10725: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10726: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.VALIDATE_ROUTED_EXPORT_TXN');
10727: --
10728: IF l_debug_on THEN
10729: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10722: --
10723: WHEN OTHERS THEN
10724: ROLLBACK TO VALIDATE_ROUTED_EXPORT_TXN;
10725: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10726: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.VALIDATE_ROUTED_EXPORT_TXN');
10727: --
10728: IF l_debug_on THEN
10729: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10730: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10783: END IF;
10784: --
10785: END IF;
10786:
10787: x_return_status := wsh_util_core.g_ret_sts_success;
10788: --
10789: IF l_debug_on THEN
10790: WSH_DEBUG_SV.pop(l_module_name);
10791: END IF;
10792: --
10793: EXCEPTION
10794: WHEN FND_API.G_EXC_ERROR THEN
10795: ROLLBACK TO DERIVE_NUMBER_OF_LPN;
10796: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10797: --
10798: IF l_debug_on THEN
10799: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10800: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10801: END IF;
10802: --
10803: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10804: ROLLBACK TO DERIVE_NUMBER_OF_LPN;
10805: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10806: --
10807: IF l_debug_on THEN
10808: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10809: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10808: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10809: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10810: END IF;
10811: --
10812: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10813: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10814: --
10815: IF l_debug_on THEN
10816: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10809: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10810: END IF;
10811: --
10812: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10813: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10814: --
10815: IF l_debug_on THEN
10816: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10817: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10812: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10813: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10814: --
10815: IF l_debug_on THEN
10816: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10817: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10818: END IF;
10819: --
10820: WHEN OTHERS THEN
10813: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10814: --
10815: IF l_debug_on THEN
10816: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10817: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10818: END IF;
10819: --
10820: WHEN OTHERS THEN
10821: ROLLBACK TO DERIVE_NUMBER_OF_LPN;
10818: END IF;
10819: --
10820: WHEN OTHERS THEN
10821: ROLLBACK TO DERIVE_NUMBER_OF_LPN;
10822: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10823: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.DERIVE_NUMBER_OF_LPN');
10824: --
10825: IF l_debug_on THEN
10826: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10819: --
10820: WHEN OTHERS THEN
10821: ROLLBACK TO DERIVE_NUMBER_OF_LPN;
10822: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10823: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.DERIVE_NUMBER_OF_LPN');
10824: --
10825: IF l_debug_on THEN
10826: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10827: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10911: IF l_trip_name IS NOT NULL THEN
10912: IF l_debug_on THEN
10913: WSH_DEBUG_SV.logmsg(l_module_name,'The Pickup Location is not a valid location for this Delivery');
10914: END IF;
10915: l_loc_description := wsh_util_core.get_location_description
10916: (p_location_id => p_pickup_location_id,
10917: p_format => 'NEW UI CODE');
10918: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DUP_PICKUP_LOCATION');
10919: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10918: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DUP_PICKUP_LOCATION');
10919: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10920: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_trip_name);
10921: FND_MESSAGE.SET_TOKEN('PICKUP_LOC',l_loc_description);
10922: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10923: wsh_util_core.add_message(x_return_status);
10924: RAISE FND_API.G_EXC_ERROR;
10925: END IF;
10926: --
10919: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10920: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_trip_name);
10921: FND_MESSAGE.SET_TOKEN('PICKUP_LOC',l_loc_description);
10922: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10923: wsh_util_core.add_message(x_return_status);
10924: RAISE FND_API.G_EXC_ERROR;
10925: END IF;
10926: --
10927: l_trip_name := NULL;
10932: IF l_trip_name IS NOT NULL THEN
10933: IF l_debug_on THEN
10934: WSH_DEBUG_SV.logmsg(l_module_name,'The Dropoff Location is not a valid location for this Delivery');
10935: END IF;
10936: l_loc_description := wsh_util_core.get_location_description
10937: (p_location_id => p_dropoff_location_id,
10938: p_format => 'NEW UI CODE');
10939: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DUP_DROPOFF_LOCATION');
10940: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10939: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DUP_DROPOFF_LOCATION');
10940: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10941: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_trip_name);
10942: FND_MESSAGE.SET_TOKEN('DROPOFF_LOC',l_loc_description);
10943: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10944: wsh_util_core.add_message(x_return_status);
10945: RAISE FND_API.G_EXC_ERROR;
10946: END IF;
10947: --
10940: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10941: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_trip_name);
10942: FND_MESSAGE.SET_TOKEN('DROPOFF_LOC',l_loc_description);
10943: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10944: wsh_util_core.add_message(x_return_status);
10945: RAISE FND_API.G_EXC_ERROR;
10946: END IF;
10947: --
10948: END IF;
10946: END IF;
10947: --
10948: END IF;
10949:
10950: x_return_status := wsh_util_core.g_ret_sts_success;
10951: --
10952: IF l_debug_on THEN
10953: WSH_DEBUG_SV.logmsg(l_module_name,'These Pickup and Drop off Locations are valid for this Delivery');
10954: WSH_DEBUG_SV.pop(l_module_name);
10955: END IF;
10956: --
10957: EXCEPTION
10958: WHEN FND_API.G_EXC_ERROR THEN
10959: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10960: --
10961: IF l_debug_on THEN
10962: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10963: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10963: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10964: END IF;
10965: --
10966: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10967: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10968: --
10969: IF l_debug_on THEN
10970: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10971: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10970: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10971: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10972: END IF;
10973: --
10974: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10975: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10976: --
10977: IF l_debug_on THEN
10978: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10971: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10972: END IF;
10973: --
10974: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10975: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10976: --
10977: IF l_debug_on THEN
10978: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10979: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10974: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10975: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10976: --
10977: IF l_debug_on THEN
10978: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10979: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10980: END IF;
10981: --
10982: WHEN OTHERS THEN
10975: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10976: --
10977: IF l_debug_on THEN
10978: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10979: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10980: END IF;
10981: --
10982: WHEN OTHERS THEN
10983: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10979: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10980: END IF;
10981: --
10982: WHEN OTHERS THEN
10983: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10984: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHK_DUP_PICKUP_DROPOFF_LOCNS');
10985: --
10986: IF l_debug_on THEN
10987: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10980: END IF;
10981: --
10982: WHEN OTHERS THEN
10983: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10984: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHK_DUP_PICKUP_DROPOFF_LOCNS');
10985: --
10986: IF l_debug_on THEN
10987: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10988: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11024: --
11025:
11026:
11027: BEGIN
11028: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11029: --
11030: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11031: --
11032: IF l_debug_on IS NULL
11065: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ITM_CUSTOMIZE.ALTER_DELIVERY_MARK',WSH_DEBUG_SV.C_PROC_LEVEL);
11066: END IF;
11067: WSH_ITM_CUSTOMIZE.ALTER_DELIVERY_MARK(l_del_Table, x_return_status);
11068:
11069: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
11070: IF l_debug_on THEN
11071: WSH_DEBUG_SV.pop(l_module_name);
11072: END IF;
11073: RETURN 'N';
11118:
11119: EXCEPTION
11120:
11121: WHEN OTHERS THEN
11122: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11123: WSH_UTIL_CORE.add_message (x_return_status);
11124: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Check_ITM_REQD');
11125: --
11126: IF l_debug_on THEN
11119: EXCEPTION
11120:
11121: WHEN OTHERS THEN
11122: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11123: WSH_UTIL_CORE.add_message (x_return_status);
11124: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Check_ITM_REQD');
11125: --
11126: IF l_debug_on THEN
11127: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11120:
11121: WHEN OTHERS THEN
11122: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11123: WSH_UTIL_CORE.add_message (x_return_status);
11124: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Check_ITM_REQD');
11125: --
11126: IF l_debug_on THEN
11127: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11128: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11160: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Log_ITM_Exception';
11161:
11162: BEGIN
11163:
11164: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11165: --
11166: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
11167: --
11168: IF l_debug_on IS NULL
11211:
11212: EXCEPTION
11213:
11214: WHEN OTHERS THEN
11215: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11216: WSH_UTIL_CORE.add_message (x_return_status);
11217: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception');
11218: --
11219: IF l_debug_on THEN
11212: EXCEPTION
11213:
11214: WHEN OTHERS THEN
11215: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11216: WSH_UTIL_CORE.add_message (x_return_status);
11217: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception');
11218: --
11219: IF l_debug_on THEN
11220: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11213:
11214: WHEN OTHERS THEN
11215: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11216: WSH_UTIL_CORE.add_message (x_return_status);
11217: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception');
11218: --
11219: IF l_debug_on THEN
11220: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11221: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11223: END Log_ITM_Exception;
11224:
11225:
11226: PROCEDURE check_exception(
11227: p_deliveries_tab IN wsh_util_core.id_tab_type
11228: , x_exceptions_exist OUT NOCOPY VARCHAR2
11229: , x_exceptions_tab OUT NOCOPY wsh_delivery_validations.exception_rec_Tab_type
11230: , x_return_status OUT NOCOPY VARCHAR2)
11231: IS
11260: --
11261: END IF;
11262:
11263: x_exceptions_exist := 'N';
11264: x_return_Status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11265:
11266: For i in 1 .. p_deliveries_tab.count LOOP
11267:
11268: Open c_check_exception(p_deliveries_Tab(i));
11288: WHEN others THEN
11289: IF c_check_exception%isopen then
11290: Close c_check_exception;
11291: END IF;
11292: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11293: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.check_exception','WSH_DELIVERY_VALIDATIONS');
11294: IF l_debug_on THEN
11295: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11296: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11289: IF c_check_exception%isopen then
11290: Close c_check_exception;
11291: END IF;
11292: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11293: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.check_exception','WSH_DELIVERY_VALIDATIONS');
11294: IF l_debug_on THEN
11295: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11296: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11297: END IF;
11365: RETURN(l_has_lines);
11366: --}
11367: EXCEPTION
11368: WHEN OTHERS THEN
11369: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.has_lines',l_module_name);
11370: --
11371: IF l_debug_on THEN
11372: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
11373: END IF;
11455: THEN
11456: --{
11457: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_INTRANSIT_ERROR');
11458: FND_MESSAGE.SET_TOKEN('DEL_NAME',p_in_rec.name);
11459: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
11460: --}
11461: END IF;
11462: --
11463: RAISE wsh_util_core.e_not_allowed;
11459: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
11460: --}
11461: END IF;
11462: --
11463: RAISE wsh_util_core.e_not_allowed;
11464: --}
11465: END IF;
11466: --
11467: --
11481: p_logging_entity_name => 'DELIVERY',
11482: p_consider_content => 'Y',
11483: x_exceptions_tab => l_exceptions_tab
11484: );
11485: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11486: x_return_status := l_return_status;
11487: wsh_util_core.add_message(x_return_status);
11488: RAISE FND_API.G_EXC_ERROR;
11489: END IF;
11483: x_exceptions_tab => l_exceptions_tab
11484: );
11485: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11486: x_return_status := l_return_status;
11487: wsh_util_core.add_message(x_return_status);
11488: RAISE FND_API.G_EXC_ERROR;
11489: END IF;
11490: FOR exp_cnt in 1..l_exceptions_tab.COUNT LOOP
11491: IF l_exceptions_tab(exp_cnt).exception_behavior = 'ERROR' THEN
11496: END IF;
11497: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11498: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11499: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
11500: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11501: wsh_util_core.add_message(x_return_status);
11502: l_num_warnings := l_num_warnings + 1 ;
11503: RAISE wsh_util_core.e_not_allowed;
11504: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
11497: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11498: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11499: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
11500: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11501: wsh_util_core.add_message(x_return_status);
11502: l_num_warnings := l_num_warnings + 1 ;
11503: RAISE wsh_util_core.e_not_allowed;
11504: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
11505: IF l_exceptions_tab(exp_cnt).entity_name = 'DELIVERY' THEN
11499: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
11500: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11501: wsh_util_core.add_message(x_return_status);
11502: l_num_warnings := l_num_warnings + 1 ;
11503: RAISE wsh_util_core.e_not_allowed;
11504: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
11505: IF l_exceptions_tab(exp_cnt).entity_name = 'DELIVERY' THEN
11506: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
11507: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11506: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
11507: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11508: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11509: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
11510: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11511: wsh_util_core.add_message(x_return_status);
11512: l_num_warnings := l_num_warnings + 1 ;
11513: l_exp_warning := TRUE;
11514: ELSIF NOT (l_exp_logged) THEN
11507: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11508: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11509: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
11510: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11511: wsh_util_core.add_message(x_return_status);
11512: l_num_warnings := l_num_warnings + 1 ;
11513: l_exp_warning := TRUE;
11514: ELSIF NOT (l_exp_logged) THEN
11515: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
11515: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
11516: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11517: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11518: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
11519: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11520: l_exp_logged := TRUE;
11521: wsh_util_core.add_message(x_return_status);
11522: l_num_warnings := l_num_warnings + 1 ;
11523: l_exp_warning := TRUE;
11517: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11518: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
11519: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11520: l_exp_logged := TRUE;
11521: wsh_util_core.add_message(x_return_status);
11522: l_num_warnings := l_num_warnings + 1 ;
11523: l_exp_warning := TRUE;
11524: END IF;
11525: END IF;
11528: --
11529: --
11530: IF l_num_errors > 0
11531: THEN
11532: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11533: x_allowed := 'N';
11534: ELSIF l_num_warnings > 0
11535: THEN
11536: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11532: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11533: x_allowed := 'N';
11534: ELSIF l_num_warnings > 0
11535: THEN
11536: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11537: ELSE
11538: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11539: END IF;
11540: --
11534: ELSIF l_num_warnings > 0
11535: THEN
11536: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11537: ELSE
11538: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11539: END IF;
11540: --
11541: --
11542: -- If Exceptions have warnings, then display warnings but allow to proceed
11554: --
11555: --
11556: EXCEPTION
11557: --{
11558: WHEN wsh_util_core.e_not_allowed THEN
11559: IF l_num_warnings > 0
11560: THEN
11561: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11562: ELSE
11557: --{
11558: WHEN wsh_util_core.e_not_allowed THEN
11559: IF l_num_warnings > 0
11560: THEN
11561: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11562: ELSE
11563: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11564: END IF;
11565: --
11559: IF l_num_warnings > 0
11560: THEN
11561: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11562: ELSE
11563: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11564: END IF;
11565: --
11566: x_allowed := 'N';
11567: --
11566: x_allowed := 'N';
11567: --
11568: --
11569: IF l_debug_on THEN
11570: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11571: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
11572: END IF;
11573: --
11574: WHEN wsh_util_core.e_not_allowed_warning THEN
11567: --
11568: --
11569: IF l_debug_on THEN
11570: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11571: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
11572: END IF;
11573: --
11574: WHEN wsh_util_core.e_not_allowed_warning THEN
11575: IF l_num_warnings > 0
11570: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11571: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
11572: END IF;
11573: --
11574: WHEN wsh_util_core.e_not_allowed_warning THEN
11575: IF l_num_warnings > 0
11576: THEN
11577: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11578: ELSE
11573: --
11574: WHEN wsh_util_core.e_not_allowed_warning THEN
11575: IF l_num_warnings > 0
11576: THEN
11577: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11578: ELSE
11579: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11580: END IF;
11581: --
11575: IF l_num_warnings > 0
11576: THEN
11577: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11578: ELSE
11579: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11580: END IF;
11581: --
11582: x_allowed := 'NW';
11583: --
11582: x_allowed := 'NW';
11583: --
11584: --
11585: IF l_debug_on THEN
11586: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed_warning exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11587: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed_warning');
11588: END IF;
11589: --
11590: WHEN FND_API.G_EXC_ERROR THEN
11583: --
11584: --
11585: IF l_debug_on THEN
11586: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed_warning exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11587: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed_warning');
11588: END IF;
11589: --
11590: WHEN FND_API.G_EXC_ERROR THEN
11591:
11588: END IF;
11589: --
11590: WHEN FND_API.G_EXC_ERROR THEN
11591:
11592: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11593: --
11594: IF l_debug_on THEN
11595: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11596: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
11597: END IF;
11598: --
11599: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11600:
11601: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11602: --
11603: IF l_debug_on THEN
11604: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11604: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11606: END IF;
11607: --
11608: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11609: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11610: --
11611: IF l_debug_on THEN
11612: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11605: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11606: END IF;
11607: --
11608: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11609: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11610: --
11611: IF l_debug_on THEN
11612: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11613: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11608: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11609: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11610: --
11611: IF l_debug_on THEN
11612: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11613: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11614: END IF;
11615: --
11616: WHEN OTHERS THEN
11609: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11610: --
11611: IF l_debug_on THEN
11612: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11613: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11614: END IF;
11615: --
11616: WHEN OTHERS THEN
11617:
11614: END IF;
11615: --
11616: WHEN OTHERS THEN
11617:
11618: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11619: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.check_inTransit',l_module_name);
11620: --
11621: IF l_debug_on THEN
11622: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11615: --
11616: WHEN OTHERS THEN
11617:
11618: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11619: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.check_inTransit',l_module_name);
11620: --
11621: IF l_debug_on THEN
11622: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11623: END IF;
11707: THEN
11708: --{
11709: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_DELIVERY');
11710: FND_MESSAGE.SET_TOKEN('DELIVERY_ID',p_delivery_id);
11711: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
11712: --CLOSE dlvy_csr;
11713: RAISE FND_API.G_EXC_ERROR;
11714: --}
11715: END IF;
11755: CLOSE line_csr;
11756: --}
11757: END IF;
11758: --
11759: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11760: --
11761: -- Debug Statements
11762: --
11763: IF l_debug_on THEN
11768: EXCEPTION
11769: --{
11770: WHEN FND_API.G_EXC_ERROR THEN
11771:
11772: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11773: --
11774: IF l_debug_on THEN
11775: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11776: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
11777: END IF;
11778: --
11779: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11780:
11781: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11782: --
11783: IF l_debug_on THEN
11784: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11785: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11784: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11785: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11786: END IF;
11787: --
11788: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11789: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11790: --
11791: IF l_debug_on THEN
11792: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11785: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11786: END IF;
11787: --
11788: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11789: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11790: --
11791: IF l_debug_on THEN
11792: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11793: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11788: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11789: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11790: --
11791: IF l_debug_on THEN
11792: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11793: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11794: END IF;
11795: --
11796: WHEN OTHERS THEN
11789: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11790: --
11791: IF l_debug_on THEN
11792: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11793: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11794: END IF;
11795: --
11796: WHEN OTHERS THEN
11797:
11794: END IF;
11795: --
11796: WHEN OTHERS THEN
11797:
11798: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11799: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_shipping_control',l_module_name);
11800: --
11801: IF l_debug_on THEN
11802: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11795: --
11796: WHEN OTHERS THEN
11797:
11798: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11799: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_shipping_control',l_module_name);
11800: --
11801: IF l_debug_on THEN
11802: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11803: END IF;
12819: p_attributes => l_attributes,
12820: x_return_status => l_return_status
12821: );
12822:
12823: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
12824: THEN
12825: x_return_status := l_return_status;
12826: IF l_debug_on THEN
12827: wsh_debug_sv.logmsg(l_module_name,'Error returned by wsh_utilities.process_message',WSH_DEBUG_SV.C_PROC_LEVEL);
12829: wsh_debug_sv.pop(l_module_name);
12830: END IF;
12831: return;
12832: ELSE
12833: x_return_status := wsh_util_core.G_RET_STS_WARNING;
12834: END IF;
12835: END IF;
12836:
12837:
12843:
12844:
12845: EXCEPTION
12846: WHEN OTHERS THEN
12847: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12848: --
12849: IF l_debug_on THEN
12850: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12851: END IF;
12896: THEN
12897: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12898: END IF;
12899: --
12900: x_return_status := wsh_util_core.G_RET_STS_SUCCESS;
12901: l_is_del_eligible := FALSE;
12902:
12903: IF l_debug_on THEN
12904: WSH_DEBUG_SV.push(l_module_name);
12917:
12918: EXCEPTION
12919: WHEN OTHERS THEN
12920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12921: WSH_UTIL_CORE.default_handler('WSH_DELIVERIES_GRP.is_del_eligible_pick');
12922: IF l_debug_on THEN
12923: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12924: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12925: END IF;
12974: WSH_DEBUG_SV.push(l_module_name);
12975: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
12976: END IF;
12977:
12978: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12979:
12980: -- Need to validate the input.
12981: IF p_delivery_id IS NOT NULL THEN
12982:
13000: WHEN Others THEN
13001: IF (c_get_trip_info%ISOPEN) THEN
13002: CLOSE c_get_trip_info;
13003: END IF;
13004: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_VALIDATIONS.GET_TRIP_INFORMATION', l_module_name);
13005: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13006:
13007: IF l_debug_on THEN
13008: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13001: IF (c_get_trip_info%ISOPEN) THEN
13002: CLOSE c_get_trip_info;
13003: END IF;
13004: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_VALIDATIONS.GET_TRIP_INFORMATION', l_module_name);
13005: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13006:
13007: IF l_debug_on THEN
13008: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13009: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
13070: WSH_DEBUG_SV.log(l_module_name,'p_delivery_id', p_delivery_id);
13071: END IF;
13072: --
13073:
13074: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
13075:
13076: OPEN c_get_delivery_info (p_delivery_id);
13077: FETCH c_get_delivery_info INTO x_delivery_rec.delivery_id,
13078: x_delivery_rec.name,
13119: CLOSE c_get_delivery_info;
13120: END IF;
13121:
13122: FND_MESSAGE.Set_Name('WSH','WSH_DEL_NOT_FOUND');
13123: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13124: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
13125: --
13126: IF l_debug_on THEN
13127: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13120: END IF;
13121:
13122: FND_MESSAGE.Set_Name('WSH','WSH_DEL_NOT_FOUND');
13123: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
13124: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
13125: --
13126: IF l_debug_on THEN
13127: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
13128: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
13132: IF c_get_delivery_info%ISOPEN THEN
13133: CLOSE c_get_delivery_info;
13134: END IF;
13135: --
13136: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13137: --
13138: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATION.get_delivery_information',l_module_name);
13139: --
13140: IF l_debug_on THEN
13134: END IF;
13135: --
13136: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
13137: --
13138: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATION.get_delivery_information',l_module_name);
13139: --
13140: IF l_debug_on THEN
13141: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
13142: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');