[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: --
345: END IF;
346:
347: END LOOP;
348:
349: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
350:
351: --
352: -- Debug Statements
353: --
356: END IF;
357: --
358: EXCEPTION
359: WHEN others THEN
360: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_SMC');
361: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
362:
363: --
364: -- Debug Statements
357: --
358: EXCEPTION
359: WHEN others THEN
360: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_SMC');
361: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
362:
363: --
364: -- Debug Statements
365: --
445: END IF;
446:
447: CLOSE check_arrival_set;
448:
449: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
450:
451: --
452: -- Debug Statements
453: --
456: END IF;
457: --
458: EXCEPTION
459: WHEN others THEN
460: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ARRIVAL_SET');
461: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
462:
463: --
464: -- Debug Statements
457: --
458: EXCEPTION
459: WHEN others THEN
460: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ARRIVAL_SET');
461: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
462:
463: --
464: -- Debug Statements
465: --
506: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
507: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_STATUS',P_DELIVERY_STATUS);
508: END IF;
509: --
510: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
511:
512: IF (p_delivery_status = 'IT') THEN
513: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_TR_DEL_IT');
514: --
518: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
519: END IF;
520: --
521: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
522: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
523: wsh_util_core.add_message(x_return_status);
524: END IF;
525:
526: --
519: END IF;
520: --
521: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
522: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
523: wsh_util_core.add_message(x_return_status);
524: END IF;
525:
526: --
527: -- Debug Statements
531: END IF;
532: --
533: EXCEPTION
534: WHEN others THEN
535: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_NOT_I_T');
536: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
537:
538: --
539: -- Debug Statements
532: --
533: EXCEPTION
534: WHEN others THEN
535: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_NOT_I_T');
536: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
537:
538: --
539: -- Debug Statements
540: --
583: WSH_DEBUG_SV.log(l_module_name,'REL_NUM',REL_NUM);
584: WSH_DEBUG_SV.log(l_module_name,'UNREL_NUM',UNREL_NUM);
585: END IF;
586: --
587: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
588:
589: IF (rel_num <> 0) AND (unrel_num > 0) THEN
590:
591: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
588:
589: IF (rel_num <> 0) AND (unrel_num > 0) THEN
590:
591: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
592: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
593: wsh_util_core.add_message(x_return_status);
594:
595: END IF;
596:
589: IF (rel_num <> 0) AND (unrel_num > 0) THEN
590:
591: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONFIRM_ERROR');
592: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
593: wsh_util_core.add_message(x_return_status);
594:
595: END IF;
596:
597: --
602: END IF;
603: --
604: EXCEPTION
605: WHEN others THEN
606: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_RELEASED_LINES');
607: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
608:
609: --
610: -- Debug Statements
603: --
604: EXCEPTION
605: WHEN others THEN
606: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_RELEASED_LINES');
607: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
608:
609: --
610: -- Debug Statements
611: --
654: WSH_DEBUG_SV.log(l_module_name,'P_CONT_EXISTS_FLAG',P_CONT_EXISTS_FLAG);
655: WSH_DEBUG_SV.log(l_module_name,'P_UNPACKED_FLAG',P_UNPACKED_FLAG);
656: END IF;
657: --
658: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
659:
660: IF (p_unpacked_flag) THEN
661: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PACK_ITEMS_UNPACKED');
662: --
666: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
667: END IF;
668: --
669: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
670: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
671: wsh_util_core.add_message(x_return_status);
672: END IF;
673:
674:
667: END IF;
668: --
669: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
670: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
671: wsh_util_core.add_message(x_return_status);
672: END IF;
673:
674:
675:
681: END IF;
682: --
683: EXCEPTION
684: WHEN others THEN
685: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_UNPACKED');
686: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
687:
688: --
689: -- Debug Statements
682: --
683: EXCEPTION
684: WHEN others THEN
685: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_UNPACKED');
686: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
687:
688: --
689: -- Debug Statements
690: --
733: WSH_DEBUG_SV.log(l_module_name,'P_CONT_EXISTS_FLAG',P_CONT_EXISTS_FLAG);
734: WSH_DEBUG_SV.log(l_module_name,'P_OVERFILLED_FLAG',P_OVERFILLED_FLAG);
735: END IF;
736: --
737: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
738:
739: IF (p_cont_exists_flag) THEN
740:
741: IF (p_overfilled_flag) THEN
747: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
748: END IF;
749: --
750: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
751: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
752: wsh_util_core.add_message(x_return_status);
753: END IF;
754:
755: END IF;
748: END IF;
749: --
750: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
751: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
752: wsh_util_core.add_message(x_return_status);
753: END IF;
754:
755: END IF;
756:
762: END IF;
763: --
764: EXCEPTION
765: WHEN others THEN
766: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_OVERFILLED');
767: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
768:
769: --
770: -- Debug Statements
763: --
764: EXCEPTION
765: WHEN others THEN
766: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_OVERFILLED');
767: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
768:
769: --
770: -- Debug Statements
771: --
814: WSH_DEBUG_SV.log(l_module_name,'P_CONT_EXISTS_FLAG',P_CONT_EXISTS_FLAG);
815: WSH_DEBUG_SV.log(l_module_name,'P_UNDERFILLED_FLAG',P_UNDERFILLED_FLAG);
816: END IF;
817: --
818: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
819:
820: IF (p_cont_exists_flag) THEN
821:
822: IF (p_underfilled_flag) THEN
828: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
829: END IF;
830: --
831: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
832: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
833: wsh_util_core.add_message(x_return_status);
834:
835: END IF;
836:
829: END IF;
830: --
831: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
832: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
833: wsh_util_core.add_message(x_return_status);
834:
835: END IF;
836:
837: END IF;
844: END IF;
845: --
846: EXCEPTION
847: WHEN others THEN
848: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_UNDERFILLED');
849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
850:
851: --
852: -- Debug Statements
845: --
846: EXCEPTION
847: WHEN others THEN
848: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_UNDERFILLED');
849: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
850:
851: --
852: -- Debug Statements
853: --
897: WSH_DEBUG_SV.log(l_module_name,'P_FINAL_DROPOFF_ID',P_FINAL_DROPOFF_ID);
898: WSH_DEBUG_SV.log(l_module_name,'P_ULTIMATE_DROPOFF_ID',P_ULTIMATE_DROPOFF_ID);
899: END IF;
900: --
901: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
902:
903: IF (p_final_dropoff_id <> p_ultimate_dropoff_id) THEN
904: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NO_ULTIMATE_DROPOFF');
905: --
909: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
910: END IF;
911: --
912: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
913: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
914: wsh_util_core.add_message(x_return_status);
915: END IF;
916:
917: --
910: END IF;
911: --
912: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
913: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
914: wsh_util_core.add_message(x_return_status);
915: END IF;
916:
917: --
918: -- Debug Statements
922: END IF;
923: --
924: EXCEPTION
925: WHEN others THEN
926: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_FINAL_DEST');
927: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
928:
929: --
930: -- Debug Statements
923: --
924: EXCEPTION
925: WHEN others THEN
926: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DEL_FINAL_DEST');
927: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
928:
929: --
930: -- Debug Statements
931: --
1006: WSH_DEBUG_SV.log(l_module_name,'P_RECEIVE_LOCATION_ID',P_RECEIVE_LOCATION_ID);
1007: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_FLAG',P_UPDATE_FLAG);
1008: END IF;
1009: --
1010: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1011:
1012: IF (p_entity_type = 'DELIVERY') THEN
1013:
1014: --
1045: , p_primary_threshold => 10
1046: , p_secondary_threshold => 10
1047: );
1048:
1049: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) OR (l_return_code = 0) THEN
1050: --
1051: -- Debug Statements
1052: --
1053: IF l_debug_on THEN
1072: --
1073: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1074: FND_MESSAGE.SET_TOKEN('SHIP',fnd_date.date_to_chardate(p_ship_date));
1075: FND_MESSAGE.SET_TOKEN('SUGGESTED',fnd_date.date_to_chardate(l_suggest_ship_date));
1076: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1077: wsh_util_core.add_message(x_return_status);
1078: END IF;
1079:
1080: IF (l_return_code IN (1,2,3,5)) AND (l_suggest_receive_date <> p_receive_date) THEN
1073: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1074: FND_MESSAGE.SET_TOKEN('SHIP',fnd_date.date_to_chardate(p_ship_date));
1075: FND_MESSAGE.SET_TOKEN('SUGGESTED',fnd_date.date_to_chardate(l_suggest_ship_date));
1076: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1077: wsh_util_core.add_message(x_return_status);
1078: END IF;
1079:
1080: IF (l_return_code IN (1,2,3,5)) AND (l_suggest_receive_date <> p_receive_date) THEN
1081: IF (p_update_flag <> 'Y') THEN
1092: --
1093: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1094: FND_MESSAGE.SET_TOKEN('RECEIVE',fnd_date.date_to_chardate(p_receive_date));
1095: FND_MESSAGE.SET_TOKEN('SUGGESTED',fnd_date.date_to_chardate(l_suggest_receive_date));
1096: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1097: wsh_util_core.add_message(x_return_status);
1098: END IF;
1099:
1100: IF (l_return_code = 6) THEN
1093: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1094: FND_MESSAGE.SET_TOKEN('RECEIVE',fnd_date.date_to_chardate(p_receive_date));
1095: FND_MESSAGE.SET_TOKEN('SUGGESTED',fnd_date.date_to_chardate(l_suggest_receive_date));
1096: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1097: wsh_util_core.add_message(x_return_status);
1098: END IF;
1099:
1100: IF (l_return_code = 6) THEN
1101: FND_MESSAGE.SET_NAME('WSH','WSH_CAL_INV_DATES');
1106: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1107: END IF;
1108: --
1109: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1110: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1111: wsh_util_core.add_message(x_return_status);
1112: END IF;
1113:
1114: IF (p_update_flag = 'Y') THEN
1107: END IF;
1108: --
1109: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_entity_id));
1110: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1111: wsh_util_core.add_message(x_return_status);
1112: END IF;
1113:
1114: IF (p_update_flag = 'Y') THEN
1115:
1137: END IF;
1138: --
1139: EXCEPTION
1140: WHEN others THEN
1141: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CALENDAR');
1142: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1143:
1144: --
1145: -- Debug Statements
1138: --
1139: EXCEPTION
1140: WHEN others THEN
1141: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CALENDAR');
1142: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1143:
1144: --
1145: -- Debug Statements
1146: --
1258: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1259: WSH_DEBUG_SV.log(l_module_name,'p_called_for_sc',p_called_for_sc);
1260: END IF;
1261: --
1262: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1263:
1264: OPEN delivery_info;
1265: FETCH delivery_info INTO l_status_code,
1266: l_planned_flag,
1275:
1276: IF (delivery_info%NOTFOUND) THEN
1277: CLOSE delivery_info;
1278: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1279: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1280: wsh_util_core.add_message(x_return_status);
1281: --
1282: -- Debug Statements
1283: --
1276: IF (delivery_info%NOTFOUND) THEN
1277: CLOSE delivery_info;
1278: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1279: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1280: wsh_util_core.add_message(x_return_status);
1281: --
1282: -- Debug Statements
1283: --
1284: IF l_debug_on THEN
1307:
1308: CLOSE delivery_info;
1309:
1310: IF (l_planned_flag IN ('Y','F')) THEN
1311: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1312: --
1313: -- Debug Statements
1314: --
1315: IF l_debug_on THEN
1336: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1337: END IF;
1338: --
1339: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1340: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1341: wsh_util_core.add_message(x_return_status);
1342: --
1343: -- Debug Statements
1344: --
1337: END IF;
1338: --
1339: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1340: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1341: wsh_util_core.add_message(x_return_status);
1342: --
1343: -- Debug Statements
1344: --
1345: IF l_debug_on THEN
1372: END IF;
1373: --
1374: wsh_tpa_delivery_pkg.check_smc( p_delivery_id, l_valid_flag, l_return_status);
1375:
1376: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1377: x_return_status := l_return_status;
1378: --
1379: -- Debug Statements
1380: --
1391: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1392: END IF;
1393: --
1394: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1395: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1396: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1397: END IF;
1398:
1399: --
1392: END IF;
1393: --
1394: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1395: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1396: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1397: END IF;
1398:
1399: --
1400: -- Debug Statements
1404: END IF;
1405: --
1406: wsh_tpa_delivery_pkg.check_ship_set( p_delivery_id, l_valid_flag, l_return_status);
1407:
1408: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1409: x_return_status := l_return_status;
1410: --
1411: -- Debug Statements
1412: --
1430: --
1431: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1432: -- End Bug 2429632
1433:
1434: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1435: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1436: END IF;
1437: --
1438: END IF;
1431: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
1432: -- End Bug 2429632
1433:
1434: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1435: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
1436: END IF;
1437: --
1438: END IF;
1439: --}
1450: wsh_new_delivery_actions.update_leg_sequence(
1451: p_delivery_id => p_delivery_id,
1452: x_return_status => l_return_status);
1453:
1454: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1455: x_return_status := l_return_status;
1456: --
1457: -- Debug Statements
1458: --
1517: p_receive_location_id => l_ship_to_location,
1518: p_update_flag => 'Y',
1519: x_return_status => l_return_status);
1520:
1521: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1522: x_return_status := l_return_status;
1523: END IF;
1524:
1525: --
1531: --
1532: EXCEPTION
1533: WHEN NO_FREIGHT_CODE THEN
1534: fnd_message.set_name('WSH','WSH_FREIGHT_CODE_NOT_FOUND');
1535: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
1536: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1537: --
1538: -- Debug Statements
1539: --
1532: EXCEPTION
1533: WHEN NO_FREIGHT_CODE THEN
1534: fnd_message.set_name('WSH','WSH_FREIGHT_CODE_NOT_FOUND');
1535: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR);
1536: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1537: --
1538: -- Debug Statements
1539: --
1540: IF l_debug_on THEN
1542: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_FREIGHT_CODE');
1543: END IF;
1544: --
1545: WHEN others THEN
1546: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_PLAN');
1547: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1548:
1549: --
1550: -- Debug Statements
1543: END IF;
1544: --
1545: WHEN others THEN
1546: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_PLAN');
1547: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1548:
1549: --
1550: -- Debug Statements
1551: --
1609: --
1610: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
1611: END IF;
1612: --
1613: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1614:
1615: OPEN delivery_status;
1616: FETCH delivery_status INTO l_status_code, l_planned_flag,l_shipment_direction;
1617:
1617:
1618: IF (delivery_status%NOTFOUND) THEN
1619: CLOSE delivery_status;
1620: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1621: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1622: wsh_util_core.add_message(x_return_status);
1623: --
1624: -- Debug Statements
1625: --
1618: IF (delivery_status%NOTFOUND) THEN
1619: CLOSE delivery_status;
1620: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_NOT_FOUND');
1621: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1622: wsh_util_core.add_message(x_return_status);
1623: --
1624: -- Debug Statements
1625: --
1626: IF l_debug_on THEN
1632:
1633: CLOSE delivery_status;
1634:
1635: IF (l_planned_flag NOT IN ('Y','F')) THEN
1636: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1637: --
1638: -- Debug Statements
1639: --
1640: IF l_debug_on THEN
1654: END IF;
1655: --
1656: EXCEPTION
1657: WHEN others THEN
1658: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_UNPLAN');
1659: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1660:
1661: --
1662: -- Debug Statements
1655: --
1656: EXCEPTION
1657: WHEN others THEN
1658: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_UNPLAN');
1659: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1660:
1661: --
1662: -- Debug Statements
1663: --
1737: CLOSE delivery_details;
1738:
1739: Check_Plan( l_delivery_id, x_return_status);
1740:
1741: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1742: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_PLAN_ERROR');
1743: --
1744: -- Debug Statements
1745: --
1747: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1748: END IF;
1749: --
1750: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1751: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1752: wsh_util_core.add_message(x_return_status);
1753: --
1754: -- Debug Statements
1755: --
1748: END IF;
1749: --
1750: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1751: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1752: wsh_util_core.add_message(x_return_status);
1753: --
1754: -- Debug Statements
1755: --
1756: IF l_debug_on THEN
1769: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
1770: END IF;
1771: --
1772: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1773: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1774: wsh_util_core.add_message(x_return_status);
1775: --
1776: -- Debug Statements
1777: --
1770: END IF;
1771: --
1772: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(l_delivery_id));
1773: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1774: wsh_util_core.add_message(x_return_status);
1775: --
1776: -- Debug Statements
1777: --
1778: IF l_debug_on THEN
1783: END IF;
1784:
1785: IF (l_volume IS NULL) or (l_volume = 0) or (l_vol_uom IS NULL) THEN
1786: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LT_WT_VOL_MISSING');
1787: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1788: wsh_util_core.add_message(x_return_status);
1789: ELSE
1790: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1791: END IF;
1784:
1785: IF (l_volume IS NULL) or (l_volume = 0) or (l_vol_uom IS NULL) THEN
1786: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LT_WT_VOL_MISSING');
1787: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1788: wsh_util_core.add_message(x_return_status);
1789: ELSE
1790: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1791: END IF;
1792:
1786: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_LT_WT_VOL_MISSING');
1787: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1788: wsh_util_core.add_message(x_return_status);
1789: ELSE
1790: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1791: END IF;
1792:
1793: --
1794: -- Debug Statements
1798: END IF;
1799: --
1800: EXCEPTION
1801: WHEN others THEN
1802: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_UNPLAN');
1803: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1804:
1805: --
1806: -- Debug Statements
1799: --
1800: EXCEPTION
1801: WHEN others THEN
1802: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_UNPLAN');
1803: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1804:
1805: --
1806: -- Debug Statements
1807: --
1947: WSH_DEBUG_SV.log(l_module_name,'P_PICKUP_STOP_ID',P_PICKUP_STOP_ID);
1948: WSH_DEBUG_SV.log(l_module_name,'P_DROPOFF_STOP_ID',P_DROPOFF_STOP_ID);
1949: END IF;
1950: --
1951: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1952:
1953: OPEN delivery_status;
1954: FETCH delivery_status INTO l_del_status, l_org_id, l_del_ship_method, l_shipment_direction, l_del_ignore;
1955:
1994: --
1995: END IF;
1996: --
1997: --
1998: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
1999: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2000: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
2001: raise FND_API.G_EXC_ERROR;
2002: END IF;
1996: --
1997: --
1998: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
1999: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2000: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
2001: raise FND_API.G_EXC_ERROR;
2002: END IF;
2003: --
2004: --}
2025: END IF;
2026: --
2027: wsh_tpa_delivery_pkg.check_del_not_i_t(p_delivery_id, l_del_status, l_return_status);
2028:
2029: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2030: x_return_status := l_return_status;
2031: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2032: --
2033: -- Debug Statements
2027: wsh_tpa_delivery_pkg.check_del_not_i_t(p_delivery_id, l_del_status, l_return_status);
2028:
2029: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2030: x_return_status := l_return_status;
2031: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2032: --
2033: -- Debug Statements
2034: --
2035: IF l_debug_on THEN
2118: wsh_delivery_autocreate.get_group_by_attr( p_organization_id => l_org_id,
2119: x_group_by_flags => l_group_by_attr,
2120: x_return_status => l_return_status);
2121:
2122: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2123: x_return_status := l_return_status;
2124: --
2125: -- Debug Statements
2126: --
2132: END IF;
2133:
2134: IF (l_group_by_attr.ship_method = 'Y') AND (l_trip_ship_method <> l_del_ship_method) THEN
2135: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_SHIP_METHOD_NOT_SAME');
2136: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2137: wsh_util_core.add_message(x_return_status);
2138: END IF;
2139:
2140: IF (p_pickup_stop_id IS NOT NULL) THEN
2133:
2134: IF (l_group_by_attr.ship_method = 'Y') AND (l_trip_ship_method <> l_del_ship_method) THEN
2135: FND_MESSAGE.SET_NAME('WSH','WSH_TRIP_SHIP_METHOD_NOT_SAME');
2136: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2137: wsh_util_core.add_message(x_return_status);
2138: END IF;
2139:
2140: IF (p_pickup_stop_id IS NOT NULL) THEN
2141:
2215: -- J-IB-NPARIKH-{
2216: --
2217: WHEN FND_API.G_EXC_ERROR THEN
2218:
2219: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2220: --
2221: IF l_debug_on THEN
2222: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2223: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2224: END IF;
2225: --
2226: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2227:
2228: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2229: --
2230: IF l_debug_on THEN
2231: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2232: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2253: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2254: END IF;
2255: --
2256: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2257: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2258: wsh_util_core.add_message(x_return_status);
2259:
2260: --
2261: -- Debug Statements
2254: END IF;
2255: --
2256: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2257: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2258: wsh_util_core.add_message(x_return_status);
2259:
2260: --
2261: -- Debug Statements
2262: --
2282: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2283: END IF;
2284: --
2285: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2286: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2287: wsh_util_core.add_message(x_return_status);
2288:
2289: --
2290: -- Debug Statements
2283: END IF;
2284: --
2285: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2286: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2287: wsh_util_core.add_message(x_return_status);
2288:
2289: --
2290: -- Debug Statements
2291: --
2311: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2312: END IF;
2313: --
2314: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2315: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2316: wsh_util_core.add_message(x_return_status);
2317:
2318: --
2319: -- Debug Statements
2312: END IF;
2313: --
2314: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2315: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2316: wsh_util_core.add_message(x_return_status);
2317:
2318: --
2319: -- Debug Statements
2320: --
2333: IF l_debug_on THEN
2334: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2335: END IF;
2336: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2337: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2338: wsh_util_core.add_message(x_return_status);
2339: IF l_debug_on THEN
2340: WSH_DEBUG_SV.logmsg(l_module_name,'TRIP_FIRM exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2341: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRIP_FIRM');
2334: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2335: END IF;
2336: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2337: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2338: wsh_util_core.add_message(x_return_status);
2339: IF l_debug_on THEN
2340: WSH_DEBUG_SV.logmsg(l_module_name,'TRIP_FIRM exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2341: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRIP_FIRM');
2342: END IF;
2349: IF l_debug_on THEN
2350: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2351: END IF;
2352: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2353: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2354: wsh_util_core.add_message(x_return_status);
2355: IF l_debug_on THEN
2356: WSH_DEBUG_SV.logmsg(l_module_name,'TRIP_DIFFIGNORE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2357: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRIP_DIFFIGNORE');
2350: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_TRIPS_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2351: END IF;
2352: FND_MESSAGE.SET_TOKEN('TRIP_NAME',wsh_trips_pvt.get_name(p_trip_id));
2353: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2354: wsh_util_core.add_message(x_return_status);
2355: IF l_debug_on THEN
2356: WSH_DEBUG_SV.logmsg(l_module_name,'TRIP_DIFFIGNORE exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2357: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRIP_DIFFIGNORE');
2358: END IF;
2357: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRIP_DIFFIGNORE');
2358: END IF;
2359:
2360: WHEN others THEN
2361: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ASSIGN_TRIP');
2362: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2363:
2364: --
2365: -- Debug Statements
2358: END IF;
2359:
2360: WHEN others THEN
2361: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ASSIGN_TRIP');
2362: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2363:
2364: --
2365: -- Debug Statements
2366: --
2428: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2429: WSH_DEBUG_SV.log(l_module_name,'P_TRIP_ID',P_TRIP_ID);
2430: END IF;
2431: --
2432: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2433:
2434: OPEN delivery_status;
2435: FETCH delivery_status INTO l_del_status;
2436:
2442: CLOSE delivery_status;
2443:
2444: IF (l_del_status = 'CL') THEN
2445: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_TR_STATUS');
2446: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2447: wsh_util_core.add_message(x_return_status);
2448: --
2449: -- Debug Statements
2450: --
2443:
2444: IF (l_del_status = 'CL') THEN
2445: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_TR_STATUS');
2446: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2447: wsh_util_core.add_message(x_return_status);
2448: --
2449: -- Debug Statements
2450: --
2451: IF l_debug_on THEN
2464: END IF;
2465: --
2466: wsh_tpa_delivery_pkg.check_del_not_i_t(p_delivery_id, l_del_status, x_return_status);
2467:
2468: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) OR (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2469: --
2470: -- Debug Statements
2471: --
2472: IF l_debug_on THEN
2487: CLOSE trip_status;
2488:
2489: IF (l_trip_status = 'CL') THEN
2490: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_TR_STATUS');
2491: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2492: wsh_util_core.add_message(x_return_status);
2493: --
2494: -- Debug Statements
2495: --
2488:
2489: IF (l_trip_status = 'CL') THEN
2490: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_TR_STATUS');
2491: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2492: wsh_util_core.add_message(x_return_status);
2493: --
2494: -- Debug Statements
2495: --
2496: IF l_debug_on THEN
2510: END IF;
2511: --
2512: EXCEPTION
2513: WHEN others THEN
2514: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ASSIGN_TRIP');
2515: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2516:
2517: --
2518: -- Debug Statements
2511: --
2512: EXCEPTION
2513: WHEN others THEN
2514: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_ASSIGN_TRIP');
2515: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2516:
2517: --
2518: -- Debug Statements
2519: --
2590: --
2591: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
2592: END IF;
2593: --
2594: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2595:
2596: OPEN delivery_status;
2597: FETCH delivery_status INTO l_del_status;
2598:
2623: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2624: END IF;
2625: --
2626: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2627: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2628: wsh_util_core.add_message(x_return_status);
2629: --
2630: -- Debug Statements
2631: --
2624: END IF;
2625: --
2626: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2627: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2628: wsh_util_core.add_message(x_return_status);
2629: --
2630: -- Debug Statements
2631: --
2632: IF l_debug_on THEN
2655: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2656: END IF;
2657: --
2658: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2659: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2660: wsh_util_core.add_message(x_return_status);
2661: --
2662: -- Debug Statements
2663: --
2656: END IF;
2657: --
2658: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2659: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2660: wsh_util_core.add_message(x_return_status);
2661: --
2662: -- Debug Statements
2663: --
2664: IF l_debug_on THEN
2677: --
2678: wsh_wv_utils.check_fill_pc( p_container_instance_id => l_container_id,
2679: x_fill_status => l_fill_status,
2680: x_return_status => l_return_status);
2681: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2682: -- FND_MESSAGE.SET_NAME('WSH','Error-in-fill-percent');
2683: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2684: -- wsh_util_core.add_message(x_return_status);
2685: ELSIF (l_fill_status = 'U') THEN
2679: x_fill_status => l_fill_status,
2680: x_return_status => l_return_status);
2681: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2682: -- FND_MESSAGE.SET_NAME('WSH','Error-in-fill-percent');
2683: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2684: -- wsh_util_core.add_message(x_return_status);
2685: ELSIF (l_fill_status = 'U') THEN
2686: l_underfilled_flag := TRUE;
2687: ELSIF (l_fill_status = 'O') THEN
2680: x_return_status => l_return_status);
2681: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2682: -- FND_MESSAGE.SET_NAME('WSH','Error-in-fill-percent');
2683: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2684: -- wsh_util_core.add_message(x_return_status);
2685: ELSIF (l_fill_status = 'U') THEN
2686: l_underfilled_flag := TRUE;
2687: ELSIF (l_fill_status = 'O') THEN
2688: l_overfilled_flag := TRUE;
2704: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2705: END IF;
2706: --
2707: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2708: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2709: wsh_util_core.add_message(x_return_status);
2710: END IF;
2711:
2712: IF (l_underfilled_flag) THEN
2705: END IF;
2706: --
2707: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2708: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2709: wsh_util_core.add_message(x_return_status);
2710: END IF;
2711:
2712: IF (l_underfilled_flag) THEN
2713: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CONT_UNDERPACKED');
2718: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2719: END IF;
2720: --
2721: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2722: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2723: wsh_util_core.add_message(x_return_status);
2724: END IF;
2725:
2726: --IF (l_container_id IS NULL) THEN
2719: END IF;
2720: --
2721: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2722: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2723: wsh_util_core.add_message(x_return_status);
2724: END IF;
2725:
2726: --IF (l_container_id IS NULL) THEN
2727: IF (l_count_detail = 0) THEN /*Bug #1701366 Issue 3 */
2733: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
2734: END IF;
2735: --
2736: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2737: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2738: wsh_util_core.add_message(x_return_status);
2739: --
2740: -- Debug Statements
2741: --
2734: END IF;
2735: --
2736: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
2737: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2738: wsh_util_core.add_message(x_return_status);
2739: --
2740: -- Debug Statements
2741: --
2742: IF l_debug_on THEN
2754: END IF;
2755: --
2756: EXCEPTION
2757: WHEN others THEN
2758: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_PACK');
2759: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2760:
2761: --
2762: -- Debug Statements
2755: --
2756: EXCEPTION
2757: WHEN others THEN
2758: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_PACK');
2759: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2760:
2761: --
2762: -- Debug Statements
2763: --
2927: p_init_flag => 'N',
2928: x_return_status => x_return_status);
2929: END IF;
2930:
2931: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2932:
2933: --
2934: -- Debug Statements
2935: --
2957: WSH_DELIVERY_DETAILS_INV.Check_Default_Catch_Weights
2958: (p_line_inv_rec => l_line_inv_rec,
2959: x_return_status => x_return_status);
2960:
2961: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2962:
2963: IF l_debug_on THEN
2964: WSH_DEBUG_SV.pop(l_module_name);
2965: END IF;
2991: p_subinventory => l_line_inv_rec.subinventory,
2992: x_inv_controls_rec => l_line_inv_flag_rec,
2993: x_return_status => x_return_status);
2994:
2995: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
2996: --
2997: -- Debug Statements
2998: --
2999: IF l_debug_on THEN
3019: x_line_inv_rec => g_line_inv_rec,
3020: x_details_required => l_details_flag,
3021: x_return_status => x_return_status);
3022:
3023: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3024: --
3025: -- Debug Statements
3026: --
3027: IF l_debug_on THEN
3045: IF l_debug_on THEN
3046: WSH_DEBUG_SV.logmsg(l_module_name, 'DETAILS REQUIRED ERROR ' || X_RETURN_STATUS );
3047: END IF;
3048: --
3049: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3050: ELSE
3051: /* Bug fix 2850555
3052: Set the new flag 'details_required_flag' to N , when l_details_flag
3053: is FALSE after the call to details_required API.
3071: p_source_line_id => l_line_inv_rec.source_line_id,
3072: p_source_code => l_line_inv_rec.source_code,
3073: x_transaction_type_id => L_TRANSACTION_TYPE_ID ,
3074: x_return_status => x_return_status);
3075: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3076: IF l_debug_on THEN
3077: WSH_DEBUG_SV.pop(l_module_name);
3078: END IF;
3079: return;
3093: ,p_lot_number => l_line_inv_rec.lot_number
3094: ,p_serial_number => NULL
3095: ,p_object_type => 'A');
3096: IF l_temp_status <>'Y' THEN
3097: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3098: l_line_inv_flag_rec.invalid_material_status_flag := 'Y';
3099: x_line_inv_flag_rec := l_line_inv_flag_rec ;
3100: IF l_debug_on THEN
3101: WSH_DEBUG_SV.pop(l_module_name);
3129: p_object_type => 'A',
3130: x_errored_serials => x_errored_serials);
3131:
3132: IF l_valid_serial_range <> 1 THEN
3133: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3134: l_line_inv_flag_rec.invalid_material_status_flag := 'Y';
3135: x_line_inv_flag_rec := l_line_inv_flag_rec ;
3136: FOR i in 1..x_errored_serials.count LOOP
3137: IF l_debug_on THEN
3156: p_object_type => 'A',
3157: x_return_status => x_return_status ,
3158: x_result => l_result
3159: );
3160: IF l_result <> TRUE OR x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3162: IF l_result <> TRUE THEN
3163: l_line_inv_flag_rec.invalid_material_status_flag := 'Y';
3164: END IF;
3157: x_return_status => x_return_status ,
3158: x_result => l_result
3159: );
3160: IF l_result <> TRUE OR x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3162: IF l_result <> TRUE THEN
3163: l_line_inv_flag_rec.invalid_material_status_flag := 'Y';
3164: END IF;
3165: x_line_inv_flag_rec := l_line_inv_flag_rec ;
3182: END IF;
3183: --
3184: EXCEPTION
3185: WHEN others THEN
3186: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DETAIL_FOR_CONFIRM');
3187: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3188:
3189: IF C_GET_SERIAL%ISOPEN THEN
3190: CLOSE C_GET_SERIAL;
3183: --
3184: EXCEPTION
3185: WHEN others THEN
3186: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DETAIL_FOR_CONFIRM');
3187: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3188:
3189: IF C_GET_SERIAL%ISOPEN THEN
3190: CLOSE C_GET_SERIAL;
3191: END IF;
3304: END IF;
3305: --
3306: wsh_tpa_delivery_pkg.check_del_overfilled(p_delivery_id, p_cont_exists_flag, p_overfilled_flag, l_return_status);
3307:
3308: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3309: x_return_status := l_return_status;
3310: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3311: --
3312: -- Debug Statements
3306: wsh_tpa_delivery_pkg.check_del_overfilled(p_delivery_id, p_cont_exists_flag, p_overfilled_flag, l_return_status);
3307:
3308: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3309: x_return_status := l_return_status;
3310: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3311: --
3312: -- Debug Statements
3313: --
3314: IF l_debug_on THEN
3328: END IF;
3329: --
3330: wsh_tpa_delivery_pkg.check_del_underfilled(p_delivery_id, p_cont_exists_flag, p_underfilled_flag, l_return_status);
3331:
3332: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3333: x_return_status := l_return_status;
3334: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3335: --
3336: -- Debug Statements
3330: wsh_tpa_delivery_pkg.check_del_underfilled(p_delivery_id, p_cont_exists_flag, p_underfilled_flag, l_return_status);
3331:
3332: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3333: x_return_status := l_return_status;
3334: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3335: --
3336: -- Debug Statements
3337: --
3338: IF l_debug_on THEN
3352: END IF;
3353: --
3354: wsh_tpa_delivery_pkg.check_smc( p_delivery_id, l_valid_flag, l_return_status);
3355:
3356: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3357: x_return_status := l_return_status;
3358: --
3359: -- Debug Statements
3360: --
3385: If g_break_smc_severity = 'E' then
3386: --Note. Setting return status to 'W' and message severity to 'E'. The return
3387: --status is checked in wsh_new_delivery_actions.confirm_delivery and treated
3388: --as error if WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc.count > 0.
3389: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3390: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
3391: WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc := nvl(WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc,0) + 1;
3392: IF l_debug_on THEN
3393: WSH_DEBUG_SV.log(l_module_name,'Going to exit wsh_delivery_validations due to message severity set to (SMC) ',g_break_smc_severity);
3386: --Note. Setting return status to 'W' and message severity to 'E'. The return
3387: --status is checked in wsh_new_delivery_actions.confirm_delivery and treated
3388: --as error if WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc.count > 0.
3389: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3390: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
3391: WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc := nvl(WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc,0) + 1;
3392: IF l_debug_on THEN
3393: WSH_DEBUG_SV.log(l_module_name,'Going to exit wsh_delivery_validations due to message severity set to (SMC) ',g_break_smc_severity);
3394: WSH_DEBUG_SV.pop(l_module_name);
3394: WSH_DEBUG_SV.pop(l_module_name);
3395: END IF;
3396: RETURN;
3397: Else
3398: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3399: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
3400: End If;
3401: END IF;
3402:
3395: END IF;
3396: RETURN;
3397: Else
3398: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3399: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
3400: End If;
3401: END IF;
3402:
3403: -- TPA change
3409: END IF;
3410: --
3411: wsh_tpa_delivery_pkg.check_ship_set( p_delivery_id, l_valid_flag, l_return_status);
3412:
3413: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3414: x_return_status := l_return_status;
3415: --
3416: -- Debug Statements
3417: --
3443: If g_break_ship_set_severity = 'E' then
3444: --Note. Setting return status to 'W' and message severity to 'E'. The return
3445: --status is checked in wsh_new_delivery_actions.confirm_delivery and treated
3446: --as error if WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc.count > 0.
3447: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3448: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
3449: WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc := nvl(WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc,0) + 1;
3450: IF l_debug_on THEN
3451: 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);
3444: --Note. Setting return status to 'W' and message severity to 'E'. The return
3445: --status is checked in wsh_new_delivery_actions.confirm_delivery and treated
3446: --as error if WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc.count > 0.
3447: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3448: WSH_UTIL_CORE.ADD_MESSAGE(WSH_UTIL_CORE.G_RET_STS_ERROR);
3449: WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc := nvl(WSH_NEW_DELIVERY_ACTIONS.g_break_ship_set_or_smc,0) + 1;
3450: IF l_debug_on THEN
3451: 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);
3452: WSH_DEBUG_SV.pop(l_module_name);
3452: WSH_DEBUG_SV.pop(l_module_name);
3453: END IF;
3454: RETURN;
3455: Else
3456: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3457: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
3458: End If;
3459: END IF;
3460: /* H integration anxsharm */
3453: END IF;
3454: RETURN;
3455: Else
3456: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3457: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
3458: End If;
3459: END IF;
3460: /* H integration anxsharm */
3461:
3470: wsh_new_delivery_actions.update_leg_sequence(
3471: p_delivery_id => p_delivery_id,
3472: x_return_status => l_return_status);
3473:
3474: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3475: x_return_status := l_return_status;
3476: --
3477: -- Debug Statements
3478: --
3518: p_receive_location_id => p_ship_to_location,
3519: p_update_flag => 'N',
3520: x_return_status => l_return_status);
3521:
3522: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3523: x_return_status := l_return_status;
3524: END IF;
3525:
3526: --
3531: END IF;
3532: --
3533: EXCEPTION
3534: WHEN others THEN
3535: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CONFIRM');
3536: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3537:
3538: --
3539: -- Debug Statements
3532: --
3533: EXCEPTION
3534: WHEN others THEN
3535: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CONFIRM');
3536: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3537:
3538: --
3539: -- Debug Statements
3540: --
3588: --
3589: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
3590: END IF;
3591: --
3592: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3593:
3594: OPEN delivery_status;
3595: FETCH delivery_status INTO l_del_status;
3596:
3610: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3611: END IF;
3612: --
3613: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
3614: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3615: wsh_util_core.add_message(x_return_status);
3616: --
3617: -- Debug Statements
3618: --
3611: END IF;
3612: --
3613: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
3614: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3615: wsh_util_core.add_message(x_return_status);
3616: --
3617: -- Debug Statements
3618: --
3619: IF l_debug_on THEN
3631: END IF;
3632: --
3633: EXCEPTION
3634: WHEN others THEN
3635: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_REOPEN');
3636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3637:
3638: --
3639: -- Debug Statements
3632: --
3633: EXCEPTION
3634: WHEN others THEN
3635: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_REOPEN');
3636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3637:
3638: --
3639: -- Debug Statements
3640: --
3704: --
3705: -- J-IB-NPARIKH-{
3706: -- Stubbed out as no one is calling this API.
3707: /*
3708: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3709:
3710: OPEN delivery_status;
3711: FETCH delivery_status INTO l_del_status;
3712:
3726: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
3727: END IF;
3728: --
3729: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
3730: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3731: wsh_util_core.add_message(x_return_status);
3732: --
3733: -- Debug Statements
3734: --
3727: END IF;
3728: --
3729: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
3730: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3731: wsh_util_core.add_message(x_return_status);
3732: --
3733: -- Debug Statements
3734: --
3735: IF l_debug_on THEN
3753: CLOSE stop_status;
3754:
3755: IF (l_stop_status <> 'CL') THEN
3756: FND_MESSAGE.SET_NAME('WSH','First-pickup-stop-not-closed');
3757: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3758: wsh_util_core.add_message(x_return_status);
3759: RETURN;
3760: END IF;
3761: */
3754:
3755: IF (l_stop_status <> 'CL') THEN
3756: FND_MESSAGE.SET_NAME('WSH','First-pickup-stop-not-closed');
3757: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3758: wsh_util_core.add_message(x_return_status);
3759: RETURN;
3760: END IF;
3761: */
3762:
3760: END IF;
3761: */
3762:
3763:
3764: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR; -- J-IB-NPARIKH
3765: --
3766: -- Debug Statements
3767: --
3768: IF l_debug_on THEN
3770: END IF;
3771: --
3772: EXCEPTION
3773: WHEN others THEN
3774: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_INTRANSIT');
3775: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3776:
3777: --
3778: -- Debug Statements
3771: --
3772: EXCEPTION
3773: WHEN others THEN
3774: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_INTRANSIT');
3775: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3776:
3777: --
3778: -- Debug Statements
3779: --
3921: -- J-IB-NPARIKH-{
3922: --
3923: -- stubbed out as no longer being called.
3924: --
3925: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3926: RETURN;
3927: -- J-IB-NPARIKH-}
3928: **/
3929: --
3941: CLOSE stops_not_closed;
3942:
3943: IF l_stop_id IS NOT NULL THEN
3944: -- this status signals: Do not close this delivery.
3945: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3946: --
3947: -- Debug Statements
3948: --
3949: IF l_debug_on THEN
3970: END IF;
3971: CLOSE check_pod;
3972:
3973: IF (l_pod_flag IS NULL) THEN
3974: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3975: ELSE
3976: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3977: --
3978: -- Debug Statements
3972:
3973: IF (l_pod_flag IS NULL) THEN
3974: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3975: ELSE
3976: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3977: --
3978: -- Debug Statements
3979: --
3980: IF l_debug_on THEN
3995: END IF;
3996: CLOSE have_details;
3997:
3998: IF num IS NOT NULL THEN
3999: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4000: --
4001: -- Debug Statements
4002: --
4003: IF l_debug_on THEN
4014: END IF;
4015: CLOSE have_legs;
4016:
4017: IF num IS NOT NULL THEN
4018: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4019: --
4020: -- Debug Statements
4021: --
4022: IF l_debug_on THEN
4025: --
4026: return;
4027: END IF;
4028:
4029: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4030:
4031: ELSIF p_old_status_code = 'IT' THEN
4032:
4033: -- Look for stops that are not closed and shared by other deliveries.
4069:
4070: CLOSE delivery_leg_stops;
4071:
4072: IF shared_flag THEN
4073: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4074: --
4075: -- Debug Statements
4076: --
4077: IF l_debug_on THEN
4079: END IF;
4080: --
4081: return;
4082: ELSE
4083: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4084: END IF;
4085:
4086: ELSE
4087: -- any other status is invalid for closing.
4084: END IF;
4085:
4086: ELSE
4087: -- any other status is invalid for closing.
4088: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4089: END IF;
4090:
4091: END IF;
4092:
4098: END IF;
4099: --
4100: EXCEPTION
4101: WHEN others THEN
4102: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CLOSE');
4103: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4104:
4105: --
4106: -- Debug Statements
4099: --
4100: EXCEPTION
4101: WHEN others THEN
4102: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CLOSE');
4103: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4104:
4105: --
4106: -- Debug Statements
4107: --
4279: --
4280: --
4281: IF p_in_rec.stop_id IS NULL
4282: THEN
4283: RAISE wsh_util_core.e_not_allowed;
4284: END IF;
4285: --
4286: --
4287: OPEN stops_not_closed(p_in_rec.delivery_id, p_in_rec.stop_id);
4295: -- Cannot close delivery.
4296: --
4297: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_OPEN_STOP');
4298: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4299: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4300: RAISE wsh_util_core.e_not_allowed;
4301: END IF;
4302: CLOSE stops_not_closed;
4303: --
4296: --
4297: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_OPEN_STOP');
4298: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4299: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4300: RAISE wsh_util_core.e_not_allowed;
4301: END IF;
4302: CLOSE stops_not_closed;
4303: --
4304: OPEN check_pod (p_in_rec.stop_id);
4312: -- Cannot close delivery.
4313: --
4314: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_POD');
4315: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4316: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4317: RAISE wsh_util_core.e_not_allowed;
4318: END IF;
4319: --
4320: CLOSE check_pod;
4313: --
4314: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_POD');
4315: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4316: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4317: RAISE wsh_util_core.e_not_allowed;
4318: END IF;
4319: --
4320: CLOSE check_pod;
4321: --
4337: -- Cannot close delivery.
4338: --
4339: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_DETAIL');
4340: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4341: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4342: RAISE wsh_util_core.e_not_allowed;
4343:
4344: END IF;
4345: --
4338: --
4339: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_DETAIL');
4340: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4341: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4342: RAISE wsh_util_core.e_not_allowed;
4343:
4344: END IF;
4345: --
4346: CLOSE have_details;
4357: -- Cannot close delivery.
4358: --
4359: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_LEGS');
4360: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4361: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4362:
4363: RAISE wsh_util_core.e_not_allowed;
4364: END IF;
4365: --
4359: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_LEGS');
4360: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4361: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4362:
4363: RAISE wsh_util_core.e_not_allowed;
4364: END IF;
4365: --
4366: CLOSE have_legs;
4367: --
4380: THEN
4381: --CLOSE shared_stops_csr;
4382: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_SHR_STOPS');
4383: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4384: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4385: RAISE wsh_util_core.e_not_allowed;
4386: END IF;
4387: --
4388: CLOSE shared_stops_csr;
4381: --CLOSE shared_stops_csr;
4382: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_NO_CLOSE_SHR_STOPS');
4383: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_in_rec.delivery_id));
4384: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
4385: RAISE wsh_util_core.e_not_allowed;
4386: END IF;
4387: --
4388: CLOSE shared_stops_csr;
4389: --}
4388: CLOSE shared_stops_csr;
4389: --}
4390: ELSE
4391: --{
4392: RAISE wsh_util_core.e_not_allowed;
4393: --}
4394: END IF;
4395: --}
4396: END IF;
4411: p_logging_entity_name => 'DELIVERY',
4412: p_consider_content => 'Y',
4413: x_exceptions_tab => l_exceptions_tab
4414: );
4415: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4416: x_return_status := l_return_status;
4417: wsh_util_core.add_message(x_return_status);
4418: RAISE FND_API.G_EXC_ERROR;
4419: END IF;
4413: x_exceptions_tab => l_exceptions_tab
4414: );
4415: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
4416: x_return_status := l_return_status;
4417: wsh_util_core.add_message(x_return_status);
4418: RAISE FND_API.G_EXC_ERROR;
4419: END IF;
4420: FOR exp_cnt in 1..l_exceptions_tab.COUNT LOOP
4421: IF l_exceptions_tab(exp_cnt).exception_behavior = 'ERROR' THEN
4426: END IF;
4427: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4428: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4429: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4430: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4431: wsh_util_core.add_message(x_return_status);
4432: l_num_warnings := l_num_warnings + 1 ;
4433: RAISE wsh_util_core.e_not_allowed;
4434: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4427: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4428: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4429: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4430: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4431: wsh_util_core.add_message(x_return_status);
4432: l_num_warnings := l_num_warnings + 1 ;
4433: RAISE wsh_util_core.e_not_allowed;
4434: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4435: IF l_exceptions_tab(exp_cnt).entity_name = 'DELIVERY' THEN
4429: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
4430: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4431: wsh_util_core.add_message(x_return_status);
4432: l_num_warnings := l_num_warnings + 1 ;
4433: RAISE wsh_util_core.e_not_allowed;
4434: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
4435: IF l_exceptions_tab(exp_cnt).entity_name = 'DELIVERY' THEN
4436: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4437: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4436: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
4437: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4438: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4439: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4440: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4441: wsh_util_core.add_message(x_return_status);
4442: l_num_warnings := l_num_warnings + 1 ;
4443: l_exp_warning := TRUE;
4444: ELSIF NOT (l_exp_logged) THEN
4437: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4438: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4439: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4440: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4441: wsh_util_core.add_message(x_return_status);
4442: l_num_warnings := l_num_warnings + 1 ;
4443: l_exp_warning := TRUE;
4444: ELSIF NOT (l_exp_logged) THEN
4445: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4445: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
4446: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
4447: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4448: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4449: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4450: l_exp_logged := TRUE;
4451: wsh_util_core.add_message(x_return_status);
4452: l_num_warnings := l_num_warnings + 1 ;
4453: l_exp_warning := TRUE;
4447: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
4448: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
4449: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4450: l_exp_logged := TRUE;
4451: wsh_util_core.add_message(x_return_status);
4452: l_num_warnings := l_num_warnings + 1 ;
4453: l_exp_warning := TRUE;
4454: END IF;
4455: END IF;
4457:
4458:
4459: IF l_num_errors > 0
4460: THEN
4461: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4462: x_allowed := 'N';
4463: ELSIF l_num_warnings > 0
4464: THEN
4465: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4461: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4462: x_allowed := 'N';
4463: ELSIF l_num_warnings > 0
4464: THEN
4465: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4466: ELSE
4467: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4468: END IF;
4469: --
4463: ELSIF l_num_warnings > 0
4464: THEN
4465: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4466: ELSE
4467: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4468: END IF;
4469: --
4470: --
4471: -- If Exceptions have warnings, then display warnings but allow to proceed
4484: --
4485: --}
4486: EXCEPTION
4487: --{
4488: WHEN wsh_util_core.e_not_allowed THEN
4489: IF l_num_warnings > 0
4490: THEN
4491: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4492: ELSE
4487: --{
4488: WHEN wsh_util_core.e_not_allowed THEN
4489: IF l_num_warnings > 0
4490: THEN
4491: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4492: ELSE
4493: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4494: END IF;
4495: --
4489: IF l_num_warnings > 0
4490: THEN
4491: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4492: ELSE
4493: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4494: END IF;
4495: --
4496: x_allowed := 'N';
4497: --
4496: x_allowed := 'N';
4497: --
4498: --
4499: IF l_debug_on THEN
4500: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4501: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
4502: END IF;
4503: --
4504: WHEN wsh_util_core.e_not_allowed_warning THEN
4497: --
4498: --
4499: IF l_debug_on THEN
4500: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4501: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
4502: END IF;
4503: --
4504: WHEN wsh_util_core.e_not_allowed_warning THEN
4505: IF l_num_warnings > 0
4500: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4501: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
4502: END IF;
4503: --
4504: WHEN wsh_util_core.e_not_allowed_warning THEN
4505: IF l_num_warnings > 0
4506: THEN
4507: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4508: ELSE
4503: --
4504: WHEN wsh_util_core.e_not_allowed_warning THEN
4505: IF l_num_warnings > 0
4506: THEN
4507: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4508: ELSE
4509: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4510: END IF;
4511: --
4505: IF l_num_warnings > 0
4506: THEN
4507: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4508: ELSE
4509: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4510: END IF;
4511: --
4512: x_allowed := 'NW';
4513: --
4518: END IF;
4519: --
4520: WHEN FND_API.G_EXC_ERROR THEN
4521:
4522: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4523: --
4524: IF l_debug_on THEN
4525: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4526: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4527: END IF;
4528: --
4529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4530:
4531: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4532: --
4533: IF l_debug_on THEN
4534: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4535: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4534: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4535: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4536: END IF;
4537: --
4538: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4539: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4540: --
4541: IF l_debug_on THEN
4542: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4535: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4536: END IF;
4537: --
4538: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4539: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4540: --
4541: IF l_debug_on THEN
4542: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4543: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4538: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4539: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4540: --
4541: IF l_debug_on THEN
4542: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4543: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4544: END IF;
4545: --
4546: WHEN OTHERS THEN
4539: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4540: --
4541: IF l_debug_on THEN
4542: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4543: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4544: END IF;
4545: --
4546: WHEN OTHERS THEN
4547:
4544: END IF;
4545: --
4546: WHEN OTHERS THEN
4547:
4548: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4549: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Check_Close',l_module_name);
4550: --
4551: IF l_debug_on THEN
4552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4545: --
4546: WHEN OTHERS THEN
4547:
4548: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
4549: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Check_Close',l_module_name);
4550: --
4551: IF l_debug_on THEN
4552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4553: END IF;
4637: --
4638: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
4639: END IF;
4640: --
4641: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4642:
4643:
4644: --OTM R12
4645: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
4641: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4642:
4643:
4644: --OTM R12
4645: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
4646:
4647: IF l_gc3_is_installed IS NULL THEN
4648: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
4649: END IF;
4644: --OTM R12
4645: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
4646:
4647: IF l_gc3_is_installed IS NULL THEN
4648: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
4649: END IF;
4650: --
4651:
4652:
4680: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4681: END IF;
4682: --
4683: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4684: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4685: wsh_util_core.add_message(x_return_status);
4686: END IF;
4687: --
4688: --
4681: END IF;
4682: --
4683: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4684: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4685: wsh_util_core.add_message(x_return_status);
4686: END IF;
4687: --
4688: --
4689: --{ --J-IB-NPARIKH
4699: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4700: END IF;
4701: --
4702: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4703: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4704: wsh_util_core.add_message(x_return_status);
4705: END IF;
4706: --} --J-IB-NPARIKH
4707: -- 1. Checks if details exist for the delivery and locks them
4700: END IF;
4701: --
4702: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4703: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4704: wsh_util_core.add_message(x_return_status);
4705: END IF;
4706: --} --J-IB-NPARIKH
4707: -- 1. Checks if details exist for the delivery and locks them
4708: FOR dt IN detail_info LOOP
4711:
4712: IF (l_flag = 'Y') THEN
4713: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_UNASSIGNED');
4714: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_delivery_id));
4715: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4716: wsh_util_core.add_message(x_return_status);
4717: END IF;
4718:
4719: -- 2. Checks if legs exist for the delivery and locks them
4712: IF (l_flag = 'Y') THEN
4713: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DETAILS_UNASSIGNED');
4714: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_delivery_id));
4715: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4716: wsh_util_core.add_message(x_return_status);
4717: END IF;
4718:
4719: -- 2. Checks if legs exist for the delivery and locks them
4720: l_flag := 'N';
4723: END LOOP;
4724:
4725: IF (l_flag = 'Y') and l_delivery_type = 'STANDARD' THEN
4726: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DELETE_WITH_LEGS');
4727: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4728: --
4729: -- Debug Statements
4730: --
4731: IF l_debug_on THEN
4732: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4733: END IF;
4734: --
4735: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_delivery_id));
4736: wsh_util_core.add_message(x_return_status);
4737: END IF;
4738:
4739: -- 3. Checks if freight costs exist for the delivery and locks them
4740: l_flag := 'N';
4751: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4752: END IF;
4753: --
4754: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_delivery_id));
4755: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4756: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
4757: END IF;
4758:
4759: --
4752: END IF;
4753: --
4754: FND_MESSAGE.SET_TOKEN('DEL_NAME', wsh_new_deliveries_pvt.get_name(p_delivery_id));
4755: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4756: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
4757: END IF;
4758:
4759: --
4760: -- Debug Statements
4783: CLOSE freight_costs_exist;
4784: END IF;
4785:
4786: FND_MESSAGE.SET_NAME('WSH','WSH_OTM_DEL_DELETE_ERROR');
4787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4788: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
4789:
4790: IF l_debug_on THEN
4791: WSH_DEBUG_SV.logmsg(l_module_name,'CANNOT_DELETE_GC3_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4784: END IF;
4785:
4786: FND_MESSAGE.SET_NAME('WSH','WSH_OTM_DEL_DELETE_ERROR');
4787: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4788: WSH_UTIL_CORE.add_message(x_return_status,l_module_name);
4789:
4790: IF l_debug_on THEN
4791: WSH_DEBUG_SV.logmsg(l_module_name,'CANNOT_DELETE_GC3_DELIVERY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4792: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CANNOT_DELETE_GC3_DELIVERY');
4810: IF (freight_costs_exist%ISOPEN) THEN
4811: CLOSE freight_costs_exist;
4812: END IF;
4813:
4814: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4815:
4816: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
4817: wsh_util_core.add_message(x_return_status,l_module_name);
4818:
4813:
4814: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4815:
4816: FND_MESSAGE.Set_Name('WSH', 'WSH_NO_LOCK');
4817: wsh_util_core.add_message(x_return_status,l_module_name);
4818:
4819:
4820: IF l_debug_on THEN
4821: WSH_DEBUG_SV.logmsg(l_module_name,'record_locked has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4840: IF (freight_costs_exist%ISOPEN) THEN
4841: CLOSE freight_costs_exist;
4842: END IF;
4843:
4844: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DELETE_DELIVERY');
4845: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4846:
4847: IF l_debug_on THEN
4848: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4841: CLOSE freight_costs_exist;
4842: END IF;
4843:
4844: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DELETE_DELIVERY');
4845: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4846:
4847: IF l_debug_on THEN
4848: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4849: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4913: --
4914: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
4915: END IF;
4916: --
4917: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4918:
4919: OPEN delivery_status;
4920: FETCH delivery_status INTO l_del_status, l_org_id;
4921:
4935: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.GET_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4936: END IF;
4937: --
4938: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4939: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4940: wsh_util_core.add_message(x_return_status);
4941: --
4942: -- Debug Statements
4943: --
4936: END IF;
4937: --
4938: FND_MESSAGE.SET_TOKEN('DEL_NAME',wsh_new_deliveries_pvt.get_name(p_delivery_id));
4939: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4940: wsh_util_core.add_message(x_return_status);
4941: --
4942: -- Debug Statements
4943: --
4944: IF l_debug_on THEN
4961: wsh_delivery_autocreate.get_group_by_attr( p_organization_id => l_org_id,
4962: x_group_by_flags => l_group_by_attr,
4963: x_return_status => l_return_status);
4964:
4965: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4966: x_return_status := l_return_status;
4967: --
4968: -- Debug Statements
4969: --
4982: CLOSE detail_info;
4983:
4984: IF (l_detail_num <> 0) AND (l_detail_num IS NOT NULL) THEN
4985: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CHANGE_SH_M_ERROR');
4986: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4987: wsh_util_core.add_message(x_return_status);
4988: END IF;
4989: END IF;
4990:
4983:
4984: IF (l_detail_num <> 0) AND (l_detail_num IS NOT NULL) THEN
4985: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_CHANGE_SH_M_ERROR');
4986: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4987: wsh_util_core.add_message(x_return_status);
4988: END IF;
4989: END IF;
4990:
4991: --
4996: END IF;
4997: --
4998: EXCEPTION
4999: WHEN others THEN
5000: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CHANGE_CARRIER');
5001: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5002:
5003: --
5004: -- Debug Statements
4997: --
4998: EXCEPTION
4999: WHEN others THEN
5000: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_CHANGE_CARRIER');
5001: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5002:
5003: --
5004: -- Debug Statements
5005: --
5013: PROCEDURE Get_Disabled_List(
5014: p_delivery_id IN NUMBER
5015: , p_list_type IN VARCHAR2
5016: , x_return_status OUT NOCOPY VARCHAR2
5017: , x_disabled_list OUT NOCOPY wsh_util_core.column_tab_type
5018: , x_msg_count OUT NOCOPY NUMBER
5019: , x_msg_data OUT NOCOPY VARCHAR2
5020: , p_caller IN VARCHAR2 -- DEFAULT NULL, --3509004:public api changes
5021: )
5088: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
5089: WSH_DEBUG_SV.log(l_module_name,'P_LIST_TYPE',P_LIST_TYPE);
5090: END IF;
5091: --
5092: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5093:
5094: -- clear the disabled list
5095: x_disabled_list.delete;
5096:
5435: END IF;
5436:
5437: IF NVL(l_shipment_direction,'O') NOT IN ('O','IO')
5438: AND l_status_code IN ('IT', 'CL')
5439: AND l_initial_pickup_location_id = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID
5440: THEN
5441: --{
5442: --
5443: -- For in-transit/closed inbound deliveries (not O/IO),
5468: --
5469: END IF;
5470: --
5471: --
5472: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
5473: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5474: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
5475: raise FND_API.G_EXC_ERROR;
5476: END IF;
5470: --
5471: --
5472: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
5473: raise FND_API.G_EXC_UNEXPECTED_ERROR;
5474: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
5475: raise FND_API.G_EXC_ERROR;
5476: END IF;
5477: --
5478: --
5492:
5493:
5494: -- Commented FTE_IS_INSTALLED If condition for Bug-2801799
5495: /***
5496: IF ( WSH_UTIL_CORE.FTE_Is_Installed ='N' ) THEN
5497: -- Bug Fix 2780610 added the below if condition --
5498: IF (l_status_code IN ('OP','SA','PA')) THEN
5499: i:=i+1; x_disabled_list(i) := 'FREIGHT_CODE';
5500: i:=i+1; x_disabled_list(i) := 'SERVICE_LEVEL_NAME';
5511: END IF;
5512: --
5513: EXCEPTION
5514: WHEN e_all_disabled THEN --3509004:public api changes
5515: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5516: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
5517: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_id);
5518: wsh_util_core.add_message(x_return_status,l_module_name);
5519: IF l_debug_on THEN
5514: WHEN e_all_disabled THEN --3509004:public api changes
5515: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5516: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
5517: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_id);
5518: wsh_util_core.add_message(x_return_status,l_module_name);
5519: IF l_debug_on THEN
5520: -- Nothing is updateable
5521: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
5522: END IF;
5524:
5525: WHEN wsh_dp_no_entity THEN
5526: x_return_status := FND_API.G_RET_STS_ERROR;
5527: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_ENTITY');
5528: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
5529: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
5530: IF x_msg_count > 1 then
5531: x_msg_data := l_msg_summary || l_msg_details;
5532: ELSE
5525: WHEN wsh_dp_no_entity THEN
5526: x_return_status := FND_API.G_RET_STS_ERROR;
5527: FND_MESSAGE.SET_NAME('WSH', 'WSH_DP_NO_ENTITY');
5528: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
5529: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
5530: IF x_msg_count > 1 then
5531: x_msg_data := l_msg_summary || l_msg_details;
5532: ELSE
5533: x_msg_data := l_msg_summary;
5543: --
5544: WHEN wsh_inv_list_type THEN
5545: x_return_status := FND_API.G_RET_STS_ERROR;
5546: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
5547: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
5548: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
5549: IF x_msg_count > 1 then
5550: x_msg_data := l_msg_summary || l_msg_details;
5551: ELSE
5544: WHEN wsh_inv_list_type THEN
5545: x_return_status := FND_API.G_RET_STS_ERROR;
5546: FND_MESSAGE.SET_NAME('WSH', 'WSH_INV_LIST_TYPE');
5547: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
5548: WSH_UTIL_CORE.get_messages('Y', l_msg_summary, l_msg_details, x_msg_count);
5549: IF x_msg_count > 1 then
5550: x_msg_data := l_msg_summary || l_msg_details;
5551: ELSE
5552: x_msg_data := l_msg_summary;
5566: END IF;
5567: IF (has_delivery_lines%ISOPEN) THEN
5568: CLOSE has_delivery_lines;
5569: END IF;
5570: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list');
5571: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5572:
5573: --
5574: -- Debug Statements
5567: IF (has_delivery_lines%ISOPEN) THEN
5568: CLOSE has_delivery_lines;
5569: END IF;
5570: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list');
5571: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5572:
5573: --
5574: -- Debug Statements
5575: --
5657: WSH_DEBUG_SV.log(l_module_name,'P_SHIP_SET_ID',P_SHIP_SET_ID);
5658: WSH_DEBUG_SV.log(l_module_name,'P_CHECK_TRANSACTABLE',P_CHECK_TRANSACTABLE);
5659: END IF;
5660: --
5661: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
5662:
5663: IF p_source_code <> 'OE' THEN
5664: -- assume everything is imported.
5665: --
5708: return l_lines_exist;
5709:
5710: EXCEPTION
5711: WHEN OTHERS THEN
5712: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Check_SS_Imp_Pending');
5713: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5714: --
5715: -- Debug Statements
5716: --
5709:
5710: EXCEPTION
5711: WHEN OTHERS THEN
5712: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Check_SS_Imp_Pending');
5713: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5714: --
5715: -- Debug Statements
5716: --
5717: IF l_debug_on THEN
5979: + l_bad_quantities.expected_quantity;
5980: ELSE
5981: CLOSE c_total_line_quantities;
5982: FND_MESSAGE.SET_NAME('WSH','WSH_DATA_CORRUPTION');
5983: WSH_UTIL_CORE.ADD_MESSAGE(FND_API.G_RET_STS_ERROR);
5984: raise others ;
5985: END IF;
5986:
5987: END LOOP;
6031: raise tolerance_exceeded ;
6032: end if;
6033:
6034: END LOOP;
6035: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS ;
6036:
6037: --
6038: -- Debug Statements
6039: --
6105: END IF;
6106:
6107: x_return_status := FND_API.G_RET_STS_ERROR;
6108: -- Add_message is not needed because the caller Confirm_Delivery does this.
6109: -- WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
6110:
6111: --
6112: -- Debug Statements
6113: --
6119: WHEN others THEN
6120: if c_total_line_quantities%ISOPEN THEN
6121: close c_total_line_quantities ;
6122: end if ;
6123: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DELIVERY_FOR_TOLERANCE');
6124: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6125:
6126: --
6127: -- Debug Statements
6120: if c_total_line_quantities%ISOPEN THEN
6121: close c_total_line_quantities ;
6122: end if ;
6123: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHECK_DELIVERY_FOR_TOLERANCE');
6124: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6125:
6126: --
6127: -- Debug Statements
6128: --
6171: --
6172: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ID',P_DELIVERY_ID);
6173: END IF;
6174: --
6175: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6176:
6177: OPEN check_assigned(p_delivery_id);
6178:
6179: FETCH check_assigned INTO l_delivery_id;
6203: WHEN OTHERS THEN
6204: IF check_assigned%ISOPEN THEN
6205: CLOSE check_assigned;
6206: END IF;
6207: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6208: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Del_Assigned_To_Trip');
6209: --
6210: -- Debug Statements
6211: --
6204: IF check_assigned%ISOPEN THEN
6205: CLOSE check_assigned;
6206: END IF;
6207: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6208: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.Del_Assigned_To_Trip');
6209: --
6210: -- Debug Statements
6211: --
6212: IF l_debug_on THEN
6232: p_action IN VARCHAR2,
6233: p_caller IN VARCHAR2,
6234: p_tripid IN NUMBER DEFAULT null,
6235: x_return_status OUT NOCOPY VARCHAR2,
6236: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
6237: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
6238: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
6239: ) IS
6240:
6233: p_caller IN VARCHAR2,
6234: p_tripid IN NUMBER DEFAULT null,
6235: x_return_status OUT NOCOPY VARCHAR2,
6236: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
6237: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
6238: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
6239: ) IS
6240:
6241: cursor del_to_det_cur( p_delivery_id IN NUMBER ) is
6234: p_tripid IN NUMBER DEFAULT null,
6235: x_return_status OUT NOCOPY VARCHAR2,
6236: x_valid_ids OUT NOCOPY wsh_util_core.id_tab_type,
6237: x_error_ids OUT NOCOPY wsh_util_core.id_tab_type,
6238: x_valid_index_tab OUT NOCOPY wsh_util_core.id_tab_type
6239: ) IS
6240:
6241: cursor del_to_det_cur( p_delivery_id IN NUMBER ) is
6242: select distinct 'X'
6293: FROM WSH_NEW_DELIVERIES
6294: WHERE delivery_id = p_delivery_id;
6295:
6296: l_override_wf VARCHAR2(1);
6297: l_del_entity_ids WSH_UTIL_CORE.column_tab_type;
6298: l_del_scpod_wf_process VARCHAR2(30);
6299: l_close_flag VARCHAR2(1);
6300: l_purged_count NUMBER;
6301: l_wf_rs VARCHAR2(1);
6373: END IF;
6374:
6375:
6376: --OTM R12
6377: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
6378:
6379: IF l_gc3_is_installed IS NULL THEN
6380: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
6381: END IF;
6376: --OTM R12
6377: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
6378:
6379: IF l_gc3_is_installed IS NULL THEN
6380: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
6381: END IF;
6382: --
6383:
6384: Init_Delivery_Actions_Tbl(
6390: WSH_DEBUG_SV.log(l_module_name,'Init_Detail_Actions_Tbl x_return_status',x_return_status);
6391: WSH_DEBUG_SV.log(l_module_name,' Count of p_dlvy_rec_tab is',p_dlvy_rec_tab.count);
6392: END IF;
6393:
6394: IF (x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
6395: raise error_in_init_actions;
6396: END IF;
6397:
6398: FOR j IN p_dlvy_rec_tab.FIRST..p_dlvy_rec_tab.LAST LOOP
6451: wsh_debug_sv.log(l_module_name, 'Return status after wsh_util_validate.get_org_type', l_return_status);
6452: wsh_debug_sv.log(l_module_name, 'l_org_type is: ', l_org_type);
6453: END IF;
6454: --
6455: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
6456: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6457: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
6458: raise e_record_ineligible;
6459: END IF;
6453: END IF;
6454: --
6455: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
6456: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6457: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
6458: raise e_record_ineligible;
6459: END IF;
6460: --
6461: l_cache_org_id := p_dlvy_rec_tab(j).organization_id;
6580: --
6581: END IF;
6582: --
6583: --
6584: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
6585: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6586: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
6587: raise e_record_ineligible;
6588: END IF;
6582: --
6583: --
6584: IF l_return_status = wsh_util_core.g_ret_sts_unexp_error THEN
6585: raise FND_API.G_EXC_UNEXPECTED_ERROR;
6586: ELSIF l_return_status = wsh_util_core.g_ret_sts_error THEN
6587: raise e_record_ineligible;
6588: END IF;
6589: --
6590: --
6655: )
6656: THEN
6657: IF l_dlvy_actions_tab(k).message_name IS NOT NULL THEN
6658: FND_MESSAGE.SET_NAME('WSH',l_dlvy_actions_tab(k).message_name);
6659: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error);
6660: END IF;
6661: raise e_record_ineligible;
6662: exit;
6663: END IF;
6977: IF p_caller = 'WSH_PUB' or p_caller like 'FTE%' OR
6978: p_caller = 'WSH_TRCON' THEN
6979: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_ACTION_INELIGIBLE');
6980: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(x_error_ids(x_error_ids.count)));
6981: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('DLVY',p_action));
6982: wsh_util_core.add_message('E',l_module_name);
6983: END IF;
6984: WHEN e_tp_record_ineligible THEN
6985: x_error_ids(x_error_ids.count +1) := p_dlvy_rec_tab(j).delivery_id;
6978: p_caller = 'WSH_TRCON' THEN
6979: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_ACTION_INELIGIBLE');
6980: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(x_error_ids(x_error_ids.count)));
6981: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('DLVY',p_action));
6982: wsh_util_core.add_message('E',l_module_name);
6983: END IF;
6984: WHEN e_tp_record_ineligible THEN
6985: x_error_ids(x_error_ids.count +1) := p_dlvy_rec_tab(j).delivery_id;
6986: IF p_caller = 'WSH_PUB' or p_caller like 'FTE%' OR
6987: p_caller = 'WSH_TRCON' THEN
6988: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_ASSIGN_FIRMTRIP_ERROR');
6989: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(x_error_ids(x_error_ids.count)));
6990: FND_MESSAGE.Set_Token('TRIP_NAME',wsh_trips_pvt.get_name(p_tripid));
6991: wsh_util_core.add_message('E',l_module_name);
6992: END IF;
6993: WHEN e_scpod_wf_inprogress THEN --/== Workflow Changes
6994: x_error_ids(x_error_ids.count +1) := p_dlvy_rec_tab(j).delivery_id;
6995: IF p_caller = 'WSH_PUB' or p_caller like 'FTE%' OR
6995: IF p_caller = 'WSH_PUB' or p_caller like 'FTE%' OR
6996: p_caller = 'WSH_TRCON' THEN
6997: FND_MESSAGE.SET_NAME('WSH','WSH_WF_DEL_ACTION_INELIGIBLE');
6998: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(x_error_ids(x_error_ids.count)));
6999: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('DLVY',p_action));
7000: wsh_util_core.add_message('E',l_module_name); --==/
7001: END IF;
7002:
7003: END;
6996: p_caller = 'WSH_TRCON' THEN
6997: FND_MESSAGE.SET_NAME('WSH','WSH_WF_DEL_ACTION_INELIGIBLE');
6998: FND_MESSAGE.Set_Token('DEL_NAME',wsh_new_deliveries_pvt.get_name(x_error_ids(x_error_ids.count)));
6999: FND_MESSAGE.Set_Token('ACTION',wsh_util_core.get_action_meaning('DLVY',p_action));
7000: wsh_util_core.add_message('E',l_module_name); --==/
7001: END IF;
7002:
7003: END;
7004: END LOOP; -- For j IN p_dlvy_rec_tab.FIRST
7004: END LOOP; -- For j IN p_dlvy_rec_tab.FIRST
7005:
7006:
7007: IF (x_valid_ids.COUNT = 0 ) THEN
7008: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7009: --
7010: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7011: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
7012: wsh_util_core.add_message(x_return_status,l_module_name);
7008: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7009: --
7010: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7011: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
7012: wsh_util_core.add_message(x_return_status,l_module_name);
7013: END IF;
7014: --
7015: ELSIF (x_valid_ids.COUNT = p_dlvy_rec_tab.COUNT) THEN
7016: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7012: wsh_util_core.add_message(x_return_status,l_module_name);
7013: END IF;
7014: --
7015: ELSIF (x_valid_ids.COUNT = p_dlvy_rec_tab.COUNT) THEN
7016: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7017: ELSIF (x_valid_ids.COUNT < p_dlvy_rec_tab.COUNT ) THEN
7018: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7019: --
7020: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7014: --
7015: ELSIF (x_valid_ids.COUNT = p_dlvy_rec_tab.COUNT) THEN
7016: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
7017: ELSIF (x_valid_ids.COUNT < p_dlvy_rec_tab.COUNT ) THEN
7018: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7019: --
7020: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7021: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
7022: wsh_util_core.add_message(x_return_status,l_module_name);
7018: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
7019: --
7020: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7021: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED_WARN');
7022: wsh_util_core.add_message(x_return_status,l_module_name);
7023: END IF;
7024: --
7025: ELSE
7026: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7022: wsh_util_core.add_message(x_return_status,l_module_name);
7023: END IF;
7024: --
7025: ELSE
7026: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7027: --
7028: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7029: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
7030: wsh_util_core.add_message(x_return_status,l_module_name);
7026: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
7027: --
7028: IF NOT (l_caller LIKE 'FTE%' OR l_caller = 'WSH_PUB') THEN
7029: FND_MESSAGE.SET_NAME('WSH','WSH_ACTION_ENABLED');
7030: wsh_util_core.add_message(x_return_status,l_module_name);
7031: END IF;
7032: --
7033: END IF;
7034:
7043: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:error_in_init_actions');
7044: END IF;
7045:
7046: WHEN OTHERS THEN
7047: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7048: IF l_debug_on THEN
7049: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '||
7050: SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
7051: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7692: -- and disables the field contained in p_disabled_list.
7693: -----------------------------------------------------------*/
7694:
7695: PROCEDURE disable_from_list(
7696: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
7697: , p_in_rec IN WSH_NEW_DELIVERIES_PVT.Delivery_rec_type
7698: , x_out_rec IN OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_rec_type
7699: , x_return_status OUT NOCOPY VARCHAR2
7700: , x_field_name OUT NOCOPY VARCHAR2
8021: NULL;
8022: ELSE
8023: -- invalid name
8024: x_field_name := p_disabled_list(i);
8025: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8026: RETURN;
8027: --
8028: END IF;
8029: ELSE -- else if l_prefix is not '+'
8183: NULL;
8184: ELSE
8185: -- invalid name
8186: x_field_name := p_disabled_list(i);
8187: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8188: RETURN;
8189: --
8190: END IF;
8191: END IF;
8306: -- included in p_disabled_list and will enable them
8307: -----------------------------------------------------------*/
8308:
8309: PROCEDURE enable_from_list(
8310: p_disabled_list IN WSH_UTIL_CORE.column_tab_type
8311: , p_in_rec IN WSH_NEW_DELIVERIES_PVT.Delivery_rec_type
8312: , x_out_rec IN OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_rec_type
8313: , x_return_status OUT NOCOPY VARCHAR2
8314: , x_field_name OUT NOCOPY VARCHAR2
8862: NULL;
8863: ELSE
8864: -- invalid name
8865: x_field_name := p_disabled_list(i);
8866: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
8867: RETURN;
8868: END IF;
8869: ELSE -- if the prefix is not +
8870: IF p_disabled_list(i) = 'ADDITIONAL_SHIPMENT_INFO' THEN
9269: NULL;
9270: ELSE
9271: -- invalid name
9272: x_field_name := p_disabled_list(i);
9273: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9274: RETURN;
9275: --
9276: END IF;
9277: END IF;
9291: , x_msg_data OUT NOCOPY VARCHAR2
9292: , x_delivery_rec OUT NOCOPY WSH_NEW_DELIVERIES_PVT.Delivery_Rec_Type
9293: )
9294: IS
9295: l_disabled_list WSH_UTIL_CORE.column_tab_type;
9296: l_db_col_rec WSH_NEW_DELIVERIES_PVT.Delivery_rec_type;
9297: l_return_status VARCHAR2(30);
9298: l_field_name VARCHAR2(100);
9299: l_debug_on BOOLEAN;
9538: , x_msg_data
9539: , l_caller --3509004:public api changes
9540: );
9541: --
9542: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
9543: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9544: THEN
9545: --
9546: IF l_debug_on THEN
9539: , l_caller --3509004:public api changes
9540: );
9541: --
9542: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR OR
9543: x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR
9544: THEN
9545: --
9546: IF l_debug_on THEN
9547: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
9624: p_delivery_rec,
9625: x_delivery_rec,
9626: l_return_status,
9627: l_field_name);
9628: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9629: RAISE e_bad_field;
9630: END IF;
9631: END IF;
9632: --
9655: l_return_status,
9656: l_field_name,
9657: p_in_rec.caller
9658: );
9659: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9660: RAISE e_bad_field;
9661: END IF;
9662: END IF;
9663: --
9674: p_out_rec => x_delivery_rec,
9675: p_in_rec => p_in_rec,
9676: x_return_status => l_return_status);
9677: --
9678: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
9679: x_return_status := l_return_status;
9680: END IF;
9681: --
9682: END IF;
9690: IF (c_tbl_rec%ISOPEN) THEN
9691: CLOSE c_tbl_rec;
9692: END IF;
9693:
9694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9695: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
9696: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_rec.delivery_id);
9697: wsh_util_core.add_message(x_return_status,l_module_name);
9698: IF l_debug_on THEN
9693:
9694: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9695: FND_MESSAGE.SET_NAME('WSH','WSH_ALL_COLS_DISABLED');
9696: FND_MESSAGE.Set_Token('ENTITY_ID',p_delivery_rec.delivery_id);
9697: wsh_util_core.add_message(x_return_status,l_module_name);
9698: IF l_debug_on THEN
9699: -- Nothing is updateable
9700: WSH_DEBUG_SV.pop(l_module_name,'e_all_disabled');
9701: END IF;
9703: IF (c_tbl_rec%ISOPEN) THEN
9704: CLOSE c_tbl_rec;
9705: END IF;
9706:
9707: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9708: -- the message for this is set in original get_disabled_list
9709: IF l_debug_on THEN
9710: WSH_DEBUG_SV.pop(l_module_name,'e_dp_no_entity');
9711: END IF;
9713: IF (c_tbl_rec%ISOPEN) THEN
9714: CLOSE c_tbl_rec;
9715: END IF;
9716:
9717: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9718: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
9719: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
9720: wsh_util_core.add_message(x_return_status,l_module_name);
9721: IF l_debug_on THEN
9716:
9717: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9718: FND_MESSAGE.SET_NAME('WSH','WSH_BAD_FIELD_NAME');
9719: FND_MESSAGE.Set_Token('FIELD_NAME',l_field_name);
9720: wsh_util_core.add_message(x_return_status,l_module_name);
9721: IF l_debug_on THEN
9722: WSH_DEBUG_SV.log(l_module_name,'Bad field name passed to the list:'
9723: ,l_field_name);
9724: WSH_DEBUG_SV.pop(l_module_name,'e_bad_field');
9728: IF (c_tbl_rec%ISOPEN) THEN
9729: CLOSE c_tbl_rec;
9730: END IF;
9731:
9732: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
9733: --
9734: IF l_debug_on THEN
9735: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
9736: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
9740: IF (c_tbl_rec%ISOPEN) THEN
9741: CLOSE c_tbl_rec;
9742: END IF;
9743:
9744: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
9745: --
9746: IF l_debug_on THEN
9747: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9748: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
9752: IF (c_tbl_rec%ISOPEN) THEN
9753: CLOSE c_tbl_rec;
9754: END IF;
9755:
9756: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9757: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list', l_module_name);
9758: IF l_debug_on THEN
9759: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
9760: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9753: CLOSE c_tbl_rec;
9754: END IF;
9755:
9756: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9757: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list', l_module_name);
9758: IF l_debug_on THEN
9759: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
9760: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
9761: END IF;
9793: --
9794: WSH_DEBUG_SV.log(l_module_name,'p_action', p_action);
9795: END IF;
9796: --
9797: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9798:
9799: --OTM R12
9800: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
9801:
9796: --
9797: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
9798:
9799: --OTM R12
9800: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
9801:
9802: IF l_gc3_is_installed IS NULL THEN
9803: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
9804: END IF;
9799: --OTM R12
9800: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED; -- this is global variable
9801:
9802: IF l_gc3_is_installed IS NULL THEN
9803: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED; -- this is actual function
9804: END IF;
9805: --
9806:
9807: /*
10109: x_delivery_actions_tab(i).status_code := 'CO';
10110: x_delivery_actions_tab(i).action_not_allowed := p_action;
10111: END IF;
10112: ELSIF (p_action in ('GET-FREIGHT-COSTS', 'CANCEL-SHIP-METHOD') ) THEN
10113: IF WSH_UTIL_CORE.FTE_Is_Installed <> 'Y' THEN
10114: --order of i := i + 1; changed to be before and not after addition of new record
10115: i := i + 1;
10116: x_delivery_actions_tab(i).action_not_allowed := p_action;
10117: ELSE
10183: WSH_DEBUG_SV.pop(l_module_name);
10184: END IF;
10185: EXCEPTION
10186: WHEN OTHERS THEN
10187: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10188: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list', l_module_name);
10189: IF l_debug_on THEN
10190: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
10191: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10184: END IF;
10185: EXCEPTION
10186: WHEN OTHERS THEN
10187: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10188: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_disabled_list', l_module_name);
10189: IF l_debug_on THEN
10190: WSH_DEBUG_SV.log(l_module_name,'Error:',SUBSTR(SQLERRM,1,200));
10191: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10192: END IF;
10262: open l_del_org_csr;
10263: Fetch l_del_org_csr into l_organization_id, l_wt_uom_code, l_vol_uom_code;
10264: IF l_del_org_csr%NOTFOUND THEN
10265: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_DELIVERY_ID');
10266: x_return_status := wsh_util_core.g_ret_sts_error;
10267: wsh_util_core.add_message(x_return_status,l_module_name);
10268: close l_del_org_csr;
10269: RAISE FND_API.G_EXC_ERROR;
10270: END IF;
10263: Fetch l_del_org_csr into l_organization_id, l_wt_uom_code, l_vol_uom_code;
10264: IF l_del_org_csr%NOTFOUND THEN
10265: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_DELIVERY_ID');
10266: x_return_status := wsh_util_core.g_ret_sts_error;
10267: wsh_util_core.add_message(x_return_status,l_module_name);
10268: close l_del_org_csr;
10269: RAISE FND_API.G_EXC_ERROR;
10270: END IF;
10271: close l_del_org_csr;
10317: IF l_debug_on THEN
10318: WSH_DEBUG_SV.log(l_module_name,'x_weight_uom_code',x_weight_uom_code);
10319: WSH_DEBUG_SV.log(l_module_name,'x_volume_uom_code',x_volume_uom_code);
10320: END IF;
10321: x_return_status := wsh_util_core.g_ret_sts_success;
10322: --
10323: IF l_debug_on THEN
10324: WSH_DEBUG_SV.pop(l_module_name);
10325: END IF;
10325: END IF;
10326: --
10327: EXCEPTION
10328: WHEN FND_API.G_EXC_ERROR THEN
10329: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10330: --
10331: IF l_debug_on THEN
10332: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10333: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10333: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10334: END IF;
10335: --
10336: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10337: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10338: --
10339: IF l_debug_on THEN
10340: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10341: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10340: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10341: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10342: END IF;
10343: --
10344: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10345: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10346: --
10347: IF l_debug_on THEN
10348: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10341: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10342: END IF;
10343: --
10344: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10345: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10346: --
10347: IF l_debug_on THEN
10348: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10349: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10344: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10345: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10346: --
10347: IF l_debug_on THEN
10348: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10349: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10350: END IF;
10351: --
10352: WHEN OTHERS THEN
10345: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10346: --
10347: IF l_debug_on THEN
10348: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10349: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10350: END IF;
10351: --
10352: WHEN OTHERS THEN
10353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10349: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10350: END IF;
10351: --
10352: WHEN OTHERS THEN
10353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10354: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.DERIVE_DELIVERY_UOM');
10355: --
10356: IF l_debug_on THEN
10357: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10350: END IF;
10351: --
10352: WHEN OTHERS THEN
10353: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10354: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.DERIVE_DELIVERY_UOM');
10355: --
10356: IF l_debug_on THEN
10357: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10358: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10407: IF l_debug_on THEN
10408: wsh_debug_sv.log(l_module_name,'Return Status After Calling validate_lookup',x_return_status);
10409: END IF;
10410: --
10411: wsh_util_core.api_post_call(
10412: p_return_status => x_return_status,
10413: x_num_warnings => l_num_warnings,
10414: x_num_errors => l_num_errors);
10415: --
10414: x_num_errors => l_num_errors);
10415: --
10416: END IF;
10417: --
10418: x_return_status := wsh_util_core.g_ret_sts_success;
10419: --
10420: IF l_debug_on THEN
10421: WSH_DEBUG_SV.pop(l_module_name);
10422: END IF;
10423: --
10424: EXCEPTION
10425: WHEN FND_API.G_EXC_ERROR THEN
10426: ROLLBACK TO VALIDATE_ROUTED_EXPORT_TXN;
10427: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10428: --
10429: IF l_debug_on THEN
10430: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10431: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10432: END IF;
10433: --
10434: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10435: ROLLBACK TO VALIDATE_ROUTED_EXPORT_TXN;
10436: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10437: --
10438: IF l_debug_on THEN
10439: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10440: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10439: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10440: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10441: END IF;
10442: --
10443: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10444: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10445: --
10446: IF l_debug_on THEN
10447: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10440: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10441: END IF;
10442: --
10443: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10444: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10445: --
10446: IF l_debug_on THEN
10447: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10448: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10443: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10444: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10445: --
10446: IF l_debug_on THEN
10447: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10448: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10449: END IF;
10450: --
10451: WHEN OTHERS THEN
10444: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10445: --
10446: IF l_debug_on THEN
10447: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10448: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10449: END IF;
10450: --
10451: WHEN OTHERS THEN
10452: ROLLBACK TO VALIDATE_ROUTED_EXPORT_TXN;
10449: END IF;
10450: --
10451: WHEN OTHERS THEN
10452: ROLLBACK TO VALIDATE_ROUTED_EXPORT_TXN;
10453: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10454: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.VALIDATE_ROUTED_EXPORT_TXN');
10455: --
10456: IF l_debug_on THEN
10457: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10450: --
10451: WHEN OTHERS THEN
10452: ROLLBACK TO VALIDATE_ROUTED_EXPORT_TXN;
10453: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10454: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.VALIDATE_ROUTED_EXPORT_TXN');
10455: --
10456: IF l_debug_on THEN
10457: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10458: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10511: END IF;
10512: --
10513: END IF;
10514:
10515: x_return_status := wsh_util_core.g_ret_sts_success;
10516: --
10517: IF l_debug_on THEN
10518: WSH_DEBUG_SV.pop(l_module_name);
10519: END IF;
10520: --
10521: EXCEPTION
10522: WHEN FND_API.G_EXC_ERROR THEN
10523: ROLLBACK TO DERIVE_NUMBER_OF_LPN;
10524: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10525: --
10526: IF l_debug_on THEN
10527: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10528: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10529: END IF;
10530: --
10531: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10532: ROLLBACK TO DERIVE_NUMBER_OF_LPN;
10533: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10534: --
10535: IF l_debug_on THEN
10536: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10537: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10536: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10537: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10538: END IF;
10539: --
10540: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10541: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10542: --
10543: IF l_debug_on THEN
10544: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10537: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10538: END IF;
10539: --
10540: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10541: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10542: --
10543: IF l_debug_on THEN
10544: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10545: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10540: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10541: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10542: --
10543: IF l_debug_on THEN
10544: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10545: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10546: END IF;
10547: --
10548: WHEN OTHERS THEN
10541: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10542: --
10543: IF l_debug_on THEN
10544: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10545: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10546: END IF;
10547: --
10548: WHEN OTHERS THEN
10549: ROLLBACK TO DERIVE_NUMBER_OF_LPN;
10546: END IF;
10547: --
10548: WHEN OTHERS THEN
10549: ROLLBACK TO DERIVE_NUMBER_OF_LPN;
10550: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10551: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.DERIVE_NUMBER_OF_LPN');
10552: --
10553: IF l_debug_on THEN
10554: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10547: --
10548: WHEN OTHERS THEN
10549: ROLLBACK TO DERIVE_NUMBER_OF_LPN;
10550: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10551: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.DERIVE_NUMBER_OF_LPN');
10552: --
10553: IF l_debug_on THEN
10554: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10555: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10639: IF l_trip_name IS NOT NULL THEN
10640: IF l_debug_on THEN
10641: WSH_DEBUG_SV.logmsg(l_module_name,'The Pickup Location is not a valid location for this Delivery');
10642: END IF;
10643: l_loc_description := wsh_util_core.get_location_description
10644: (p_location_id => p_pickup_location_id,
10645: p_format => 'NEW UI CODE');
10646: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DUP_PICKUP_LOCATION');
10647: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10646: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DUP_PICKUP_LOCATION');
10647: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10648: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_trip_name);
10649: FND_MESSAGE.SET_TOKEN('PICKUP_LOC',l_loc_description);
10650: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10651: wsh_util_core.add_message(x_return_status);
10652: RAISE FND_API.G_EXC_ERROR;
10653: END IF;
10654: --
10647: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10648: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_trip_name);
10649: FND_MESSAGE.SET_TOKEN('PICKUP_LOC',l_loc_description);
10650: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10651: wsh_util_core.add_message(x_return_status);
10652: RAISE FND_API.G_EXC_ERROR;
10653: END IF;
10654: --
10655: l_trip_name := NULL;
10660: IF l_trip_name IS NOT NULL THEN
10661: IF l_debug_on THEN
10662: WSH_DEBUG_SV.logmsg(l_module_name,'The Dropoff Location is not a valid location for this Delivery');
10663: END IF;
10664: l_loc_description := wsh_util_core.get_location_description
10665: (p_location_id => p_dropoff_location_id,
10666: p_format => 'NEW UI CODE');
10667: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DUP_DROPOFF_LOCATION');
10668: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10667: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_DUP_DROPOFF_LOCATION');
10668: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10669: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_trip_name);
10670: FND_MESSAGE.SET_TOKEN('DROPOFF_LOC',l_loc_description);
10671: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10672: wsh_util_core.add_message(x_return_status);
10673: RAISE FND_API.G_EXC_ERROR;
10674: END IF;
10675: --
10668: FND_MESSAGE.SET_TOKEN('DEL_NAME',l_del_name);
10669: FND_MESSAGE.SET_TOKEN('TRIP_NAME',l_trip_name);
10670: FND_MESSAGE.SET_TOKEN('DROPOFF_LOC',l_loc_description);
10671: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10672: wsh_util_core.add_message(x_return_status);
10673: RAISE FND_API.G_EXC_ERROR;
10674: END IF;
10675: --
10676: END IF;
10674: END IF;
10675: --
10676: END IF;
10677:
10678: x_return_status := wsh_util_core.g_ret_sts_success;
10679: --
10680: IF l_debug_on THEN
10681: WSH_DEBUG_SV.logmsg(l_module_name,'These Pickup and Drop off Locations are valid for this Delivery');
10682: WSH_DEBUG_SV.pop(l_module_name);
10683: END IF;
10684: --
10685: EXCEPTION
10686: WHEN FND_API.G_EXC_ERROR THEN
10687: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
10688: --
10689: IF l_debug_on THEN
10690: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10691: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10691: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
10692: END IF;
10693: --
10694: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
10695: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10696: --
10697: IF l_debug_on THEN
10698: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10699: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10698: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10699: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10700: END IF;
10701: --
10702: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10703: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10704: --
10705: IF l_debug_on THEN
10706: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10699: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
10700: END IF;
10701: --
10702: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10703: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10704: --
10705: IF l_debug_on THEN
10706: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10707: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10702: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
10703: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10704: --
10705: IF l_debug_on THEN
10706: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10707: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10708: END IF;
10709: --
10710: WHEN OTHERS THEN
10703: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
10704: --
10705: IF l_debug_on THEN
10706: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
10707: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10708: END IF;
10709: --
10710: WHEN OTHERS THEN
10711: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10707: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
10708: END IF;
10709: --
10710: WHEN OTHERS THEN
10711: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10712: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHK_DUP_PICKUP_DROPOFF_LOCNS');
10713: --
10714: IF l_debug_on THEN
10715: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10708: END IF;
10709: --
10710: WHEN OTHERS THEN
10711: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
10712: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.CHK_DUP_PICKUP_DROPOFF_LOCNS');
10713: --
10714: IF l_debug_on THEN
10715: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10716: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10752: --
10753:
10754:
10755: BEGIN
10756: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10757: --
10758: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10759: --
10760: IF l_debug_on IS NULL
10793: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_ITM_CUSTOMIZE.ALTER_DELIVERY_MARK',WSH_DEBUG_SV.C_PROC_LEVEL);
10794: END IF;
10795: WSH_ITM_CUSTOMIZE.ALTER_DELIVERY_MARK(l_del_Table, x_return_status);
10796:
10797: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
10798: IF l_debug_on THEN
10799: WSH_DEBUG_SV.pop(l_module_name);
10800: END IF;
10801: RETURN 'N';
10846:
10847: EXCEPTION
10848:
10849: WHEN OTHERS THEN
10850: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10851: WSH_UTIL_CORE.add_message (x_return_status);
10852: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Check_ITM_REQD');
10853: --
10854: IF l_debug_on THEN
10847: EXCEPTION
10848:
10849: WHEN OTHERS THEN
10850: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10851: WSH_UTIL_CORE.add_message (x_return_status);
10852: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Check_ITM_REQD');
10853: --
10854: IF l_debug_on THEN
10855: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10848:
10849: WHEN OTHERS THEN
10850: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10851: WSH_UTIL_CORE.add_message (x_return_status);
10852: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Check_ITM_REQD');
10853: --
10854: IF l_debug_on THEN
10855: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10856: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10888: l_module_name CONSTANT VARCHAR2(100) := 'wsh.plsql.' || G_PKG_NAME || '.' || 'Log_ITM_Exception';
10889:
10890: BEGIN
10891:
10892: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10893: --
10894: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
10895: --
10896: IF l_debug_on IS NULL
10939:
10940: EXCEPTION
10941:
10942: WHEN OTHERS THEN
10943: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10944: WSH_UTIL_CORE.add_message (x_return_status);
10945: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception');
10946: --
10947: IF l_debug_on THEN
10940: EXCEPTION
10941:
10942: WHEN OTHERS THEN
10943: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10944: WSH_UTIL_CORE.add_message (x_return_status);
10945: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception');
10946: --
10947: IF l_debug_on THEN
10948: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10941:
10942: WHEN OTHERS THEN
10943: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10944: WSH_UTIL_CORE.add_message (x_return_status);
10945: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.Log_ITM_Exception');
10946: --
10947: IF l_debug_on THEN
10948: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10949: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10951: END Log_ITM_Exception;
10952:
10953:
10954: PROCEDURE check_exception(
10955: p_deliveries_tab IN wsh_util_core.id_tab_type
10956: , x_exceptions_exist OUT NOCOPY VARCHAR2
10957: , x_exceptions_tab OUT NOCOPY wsh_delivery_validations.exception_rec_Tab_type
10958: , x_return_status OUT NOCOPY VARCHAR2)
10959: IS
10988: --
10989: END IF;
10990:
10991: x_exceptions_exist := 'N';
10992: x_return_Status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
10993:
10994: For i in 1 .. p_deliveries_tab.count LOOP
10995:
10996: Open c_check_exception(p_deliveries_Tab(i));
11016: WHEN others THEN
11017: IF c_check_exception%isopen then
11018: Close c_check_exception;
11019: END IF;
11020: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11021: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.check_exception','WSH_DELIVERY_VALIDATIONS');
11022: IF l_debug_on THEN
11023: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11024: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11017: IF c_check_exception%isopen then
11018: Close c_check_exception;
11019: END IF;
11020: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11021: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_VALIDATIONS.check_exception','WSH_DELIVERY_VALIDATIONS');
11022: IF l_debug_on THEN
11023: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11024: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11025: END IF;
11093: RETURN(l_has_lines);
11094: --}
11095: EXCEPTION
11096: WHEN OTHERS THEN
11097: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.has_lines',l_module_name);
11098: --
11099: IF l_debug_on THEN
11100: wsh_debug_sv.pop(l_module_name, 'EXCEPTION:OTHERS');
11101: END IF;
11183: THEN
11184: --{
11185: FND_MESSAGE.SET_NAME('WSH','WSH_DEL_INTRANSIT_ERROR');
11186: FND_MESSAGE.SET_TOKEN('DEL_NAME',p_in_rec.name);
11187: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
11188: --}
11189: END IF;
11190: --
11191: RAISE wsh_util_core.e_not_allowed;
11187: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
11188: --}
11189: END IF;
11190: --
11191: RAISE wsh_util_core.e_not_allowed;
11192: --}
11193: END IF;
11194: --
11195: --
11209: p_logging_entity_name => 'DELIVERY',
11210: p_consider_content => 'Y',
11211: x_exceptions_tab => l_exceptions_tab
11212: );
11213: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11214: x_return_status := l_return_status;
11215: wsh_util_core.add_message(x_return_status);
11216: RAISE FND_API.G_EXC_ERROR;
11217: END IF;
11211: x_exceptions_tab => l_exceptions_tab
11212: );
11213: IF ( l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS ) THEN
11214: x_return_status := l_return_status;
11215: wsh_util_core.add_message(x_return_status);
11216: RAISE FND_API.G_EXC_ERROR;
11217: END IF;
11218: FOR exp_cnt in 1..l_exceptions_tab.COUNT LOOP
11219: IF l_exceptions_tab(exp_cnt).exception_behavior = 'ERROR' THEN
11224: END IF;
11225: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11226: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11227: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
11228: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11229: wsh_util_core.add_message(x_return_status);
11230: l_num_warnings := l_num_warnings + 1 ;
11231: RAISE wsh_util_core.e_not_allowed;
11232: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
11225: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11226: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11227: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
11228: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11229: wsh_util_core.add_message(x_return_status);
11230: l_num_warnings := l_num_warnings + 1 ;
11231: RAISE wsh_util_core.e_not_allowed;
11232: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
11233: IF l_exceptions_tab(exp_cnt).entity_name = 'DELIVERY' THEN
11227: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Error');
11228: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11229: wsh_util_core.add_message(x_return_status);
11230: l_num_warnings := l_num_warnings + 1 ;
11231: RAISE wsh_util_core.e_not_allowed;
11232: ELSIF l_exceptions_tab(exp_cnt).exception_behavior = 'WARNING' THEN
11233: IF l_exceptions_tab(exp_cnt).entity_name = 'DELIVERY' THEN
11234: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
11235: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11234: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_ENTITY');
11235: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11236: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11237: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
11238: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11239: wsh_util_core.add_message(x_return_status);
11240: l_num_warnings := l_num_warnings + 1 ;
11241: l_exp_warning := TRUE;
11242: ELSIF NOT (l_exp_logged) THEN
11235: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11236: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11237: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
11238: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11239: wsh_util_core.add_message(x_return_status);
11240: l_num_warnings := l_num_warnings + 1 ;
11241: l_exp_warning := TRUE;
11242: ELSIF NOT (l_exp_logged) THEN
11243: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
11243: FND_MESSAGE.SET_NAME('WSH','WSH_XC_EXIST_CONTENTS');
11244: FND_MESSAGE.SET_TOKEN('ENTITY_NAME','Delivery');
11245: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11246: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
11247: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11248: l_exp_logged := TRUE;
11249: wsh_util_core.add_message(x_return_status);
11250: l_num_warnings := l_num_warnings + 1 ;
11251: l_exp_warning := TRUE;
11245: FND_MESSAGE.SET_TOKEN('ENTITY_ID',l_exceptions_tab(exp_cnt).entity_id);
11246: FND_MESSAGE.SET_TOKEN('EXCEPTION_BEHAVIOR','Warning');
11247: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11248: l_exp_logged := TRUE;
11249: wsh_util_core.add_message(x_return_status);
11250: l_num_warnings := l_num_warnings + 1 ;
11251: l_exp_warning := TRUE;
11252: END IF;
11253: END IF;
11256: --
11257: --
11258: IF l_num_errors > 0
11259: THEN
11260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11261: x_allowed := 'N';
11262: ELSIF l_num_warnings > 0
11263: THEN
11264: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11260: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11261: x_allowed := 'N';
11262: ELSIF l_num_warnings > 0
11263: THEN
11264: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11265: ELSE
11266: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11267: END IF;
11268: --
11262: ELSIF l_num_warnings > 0
11263: THEN
11264: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11265: ELSE
11266: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11267: END IF;
11268: --
11269: --
11270: -- If Exceptions have warnings, then display warnings but allow to proceed
11282: --
11283: --
11284: EXCEPTION
11285: --{
11286: WHEN wsh_util_core.e_not_allowed THEN
11287: IF l_num_warnings > 0
11288: THEN
11289: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11290: ELSE
11285: --{
11286: WHEN wsh_util_core.e_not_allowed THEN
11287: IF l_num_warnings > 0
11288: THEN
11289: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11290: ELSE
11291: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11292: END IF;
11293: --
11287: IF l_num_warnings > 0
11288: THEN
11289: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11290: ELSE
11291: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11292: END IF;
11293: --
11294: x_allowed := 'N';
11295: --
11294: x_allowed := 'N';
11295: --
11296: --
11297: IF l_debug_on THEN
11298: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11299: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
11300: END IF;
11301: --
11302: WHEN wsh_util_core.e_not_allowed_warning THEN
11295: --
11296: --
11297: IF l_debug_on THEN
11298: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11299: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
11300: END IF;
11301: --
11302: WHEN wsh_util_core.e_not_allowed_warning THEN
11303: IF l_num_warnings > 0
11298: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11299: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed');
11300: END IF;
11301: --
11302: WHEN wsh_util_core.e_not_allowed_warning THEN
11303: IF l_num_warnings > 0
11304: THEN
11305: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11306: ELSE
11301: --
11302: WHEN wsh_util_core.e_not_allowed_warning THEN
11303: IF l_num_warnings > 0
11304: THEN
11305: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11306: ELSE
11307: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11308: END IF;
11309: --
11303: IF l_num_warnings > 0
11304: THEN
11305: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11306: ELSE
11307: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11308: END IF;
11309: --
11310: x_allowed := 'NW';
11311: --
11310: x_allowed := 'NW';
11311: --
11312: --
11313: IF l_debug_on THEN
11314: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed_warning exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11315: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed_warning');
11316: END IF;
11317: --
11318: WHEN FND_API.G_EXC_ERROR THEN
11311: --
11312: --
11313: IF l_debug_on THEN
11314: WSH_DEBUG_SV.logmsg(l_module_name,'wsh_util_core.e_not_allowed_warning exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11315: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:wsh_util_core.e_not_allowed_warning');
11316: END IF;
11317: --
11318: WHEN FND_API.G_EXC_ERROR THEN
11319:
11316: END IF;
11317: --
11318: WHEN FND_API.G_EXC_ERROR THEN
11319:
11320: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11321: --
11322: IF l_debug_on THEN
11323: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11324: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
11325: END IF;
11326: --
11327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11328:
11329: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11330: --
11331: IF l_debug_on THEN
11332: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11333: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11332: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11333: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11334: END IF;
11335: --
11336: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11337: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11338: --
11339: IF l_debug_on THEN
11340: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11333: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11334: END IF;
11335: --
11336: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11337: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11338: --
11339: IF l_debug_on THEN
11340: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11341: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11336: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11337: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11338: --
11339: IF l_debug_on THEN
11340: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11341: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11342: END IF;
11343: --
11344: WHEN OTHERS THEN
11337: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11338: --
11339: IF l_debug_on THEN
11340: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11341: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11342: END IF;
11343: --
11344: WHEN OTHERS THEN
11345:
11342: END IF;
11343: --
11344: WHEN OTHERS THEN
11345:
11346: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11347: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.check_inTransit',l_module_name);
11348: --
11349: IF l_debug_on THEN
11350: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11343: --
11344: WHEN OTHERS THEN
11345:
11346: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11347: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.check_inTransit',l_module_name);
11348: --
11349: IF l_debug_on THEN
11350: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11351: END IF;
11435: THEN
11436: --{
11437: FND_MESSAGE.SET_NAME('WSH', 'WSH_INVALID_DELIVERY');
11438: FND_MESSAGE.SET_TOKEN('DELIVERY_ID',p_delivery_id);
11439: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR, l_module_name);
11440: --CLOSE dlvy_csr;
11441: RAISE FND_API.G_EXC_ERROR;
11442: --}
11443: END IF;
11483: CLOSE line_csr;
11484: --}
11485: END IF;
11486: --
11487: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
11488: --
11489: -- Debug Statements
11490: --
11491: IF l_debug_on THEN
11496: EXCEPTION
11497: --{
11498: WHEN FND_API.G_EXC_ERROR THEN
11499:
11500: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
11501: --
11502: IF l_debug_on THEN
11503: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11504: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
11505: END IF;
11506: --
11507: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
11508:
11509: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11510: --
11511: IF l_debug_on THEN
11512: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11513: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11512: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11513: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11514: END IF;
11515: --
11516: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11517: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11518: --
11519: IF l_debug_on THEN
11520: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11513: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
11514: END IF;
11515: --
11516: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11517: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11518: --
11519: IF l_debug_on THEN
11520: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11521: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11516: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
11517: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11518: --
11519: IF l_debug_on THEN
11520: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11521: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11522: END IF;
11523: --
11524: WHEN OTHERS THEN
11517: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
11518: --
11519: IF l_debug_on THEN
11520: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
11521: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
11522: END IF;
11523: --
11524: WHEN OTHERS THEN
11525:
11522: END IF;
11523: --
11524: WHEN OTHERS THEN
11525:
11526: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11527: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_shipping_control',l_module_name);
11528: --
11529: IF l_debug_on THEN
11530: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11523: --
11524: WHEN OTHERS THEN
11525:
11526: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
11527: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATIONS.get_shipping_control',l_module_name);
11528: --
11529: IF l_debug_on THEN
11530: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11531: END IF;
12540: p_attributes => l_attributes,
12541: x_return_status => l_return_status
12542: );
12543:
12544: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)
12545: THEN
12546: x_return_status := l_return_status;
12547: IF l_debug_on THEN
12548: wsh_debug_sv.logmsg(l_module_name,'Error returned by wsh_utilities.process_message',WSH_DEBUG_SV.C_PROC_LEVEL);
12550: wsh_debug_sv.pop(l_module_name);
12551: END IF;
12552: return;
12553: ELSE
12554: x_return_status := wsh_util_core.G_RET_STS_WARNING;
12555: END IF;
12556: END IF;
12557:
12558:
12564:
12565:
12566: EXCEPTION
12567: WHEN OTHERS THEN
12568: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
12569: --
12570: IF l_debug_on THEN
12571: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12572: END IF;
12617: THEN
12618: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
12619: END IF;
12620: --
12621: x_return_status := wsh_util_core.G_RET_STS_SUCCESS;
12622: l_is_del_eligible := FALSE;
12623:
12624: IF l_debug_on THEN
12625: WSH_DEBUG_SV.push(l_module_name);
12638:
12639: EXCEPTION
12640: WHEN OTHERS THEN
12641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
12642: WSH_UTIL_CORE.default_handler('WSH_DELIVERIES_GRP.is_del_eligible_pick');
12643: IF l_debug_on THEN
12644: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12645: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
12646: END IF;
12695: WSH_DEBUG_SV.push(l_module_name);
12696: WSH_DEBUG_SV.log(l_module_name, 'delivery id', p_delivery_id);
12697: END IF;
12698:
12699: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12700:
12701: -- Need to validate the input.
12702: IF p_delivery_id IS NOT NULL THEN
12703:
12721: WHEN Others THEN
12722: IF (c_get_trip_info%ISOPEN) THEN
12723: CLOSE c_get_trip_info;
12724: END IF;
12725: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_VALIDATIONS.GET_TRIP_INFORMATION', l_module_name);
12726: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12727:
12728: IF l_debug_on THEN
12729: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12722: IF (c_get_trip_info%ISOPEN) THEN
12723: CLOSE c_get_trip_info;
12724: END IF;
12725: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_VALIDATIONS.GET_TRIP_INFORMATION', l_module_name);
12726: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12727:
12728: IF l_debug_on THEN
12729: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12730: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12790: WSH_DEBUG_SV.log(l_module_name,'p_delivery_id', p_delivery_id);
12791: END IF;
12792: --
12793:
12794: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
12795:
12796: OPEN c_get_delivery_info (p_delivery_id);
12797: FETCH c_get_delivery_info INTO x_delivery_rec.delivery_id,
12798: x_delivery_rec.name,
12838: CLOSE c_get_delivery_info;
12839: END IF;
12840:
12841: FND_MESSAGE.Set_Name('WSH','WSH_DEL_NOT_FOUND');
12842: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12843: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
12844: --
12845: IF l_debug_on THEN
12846: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12839: END IF;
12840:
12841: FND_MESSAGE.Set_Name('WSH','WSH_DEL_NOT_FOUND');
12842: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
12843: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status,l_module_name);
12844: --
12845: IF l_debug_on THEN
12846: WSH_DEBUG_SV.logmsg(l_module_name,'NO_DATA_FOUND exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
12847: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:NO_DATA_FOUND');
12851: IF c_get_delivery_info%ISOPEN THEN
12852: CLOSE c_get_delivery_info;
12853: END IF;
12854: --
12855: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12856: --
12857: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATION.get_delivery_information',l_module_name);
12858: --
12859: IF l_debug_on THEN
12853: END IF;
12854: --
12855: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
12856: --
12857: wsh_util_core.default_handler('WSH_DELIVERY_VALIDATION.get_delivery_information',l_module_name);
12858: --
12859: IF l_debug_on THEN
12860: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
12861: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');