[Home] [Help]
240: EXCEPTION
241:
242: WHEN OTHERS THEN
243: -- close open cursors as needed
244: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
245: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Log_Exception',l_module_name);
246: --
247: IF l_debug_on THEN
248: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
241:
242: WHEN OTHERS THEN
243: -- close open cursors as needed
244: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
245: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Log_Exception',l_module_name);
246: --
247: IF l_debug_on THEN
248: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
249: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
280: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
281: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
282: END IF;
283: --
284: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
285:
286: IF g_cache_detail_rec.cache_flag = 'Y'
287: AND g_cache_detail_rec.source_line_id = p_source_line_id
288: AND g_cache_detail_rec.source_code = p_source_code
306: FETCH c_cache_attributes_2 INTO g_cache_detail_rec;
307: IF c_cache_attributes_2%NOTFOUND THEN
308: CLOSE c_cache_attributes_2;
309: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_DATA_FOUND');
310: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
311: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
312: --
313: IF l_debug_on THEN
314: WSH_DEBUG_SV.pop(l_module_name,'WSH_NO_DATA_FOUND');
307: IF c_cache_attributes_2%NOTFOUND THEN
308: CLOSE c_cache_attributes_2;
309: FND_MESSAGE.SET_NAME('WSH', 'WSH_NO_DATA_FOUND');
310: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
311: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
312: --
313: IF l_debug_on THEN
314: WSH_DEBUG_SV.pop(l_module_name,'WSH_NO_DATA_FOUND');
315: END IF;
353: END IF;
354: IF c_cache_attributes_2%ISOPEN THEN
355: CLOSE c_cache_attributes_2;
356: END IF;
357: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
358: --
359: wsh_util_core.default_handler('WSH_USA_CATEGORIES_PVT.Cache_Changed_Attributes',l_module_name);
360: IF l_debug_on THEN
361: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
355: CLOSE c_cache_attributes_2;
356: END IF;
357: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
358: --
359: wsh_util_core.default_handler('WSH_USA_CATEGORIES_PVT.Cache_Changed_Attributes',l_module_name);
360: IF l_debug_on THEN
361: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
362: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
363: END IF;
412: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
413: WSH_DEBUG_SV.log(l_module_name,'g_cache_wms_org_id',g_cache_wms_org_id);
414: END IF;
415: --
416: l_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
417: x_wms_flag := 'N';
418:
419: IF g_cache_wms_org_id = p_organization_id THEN
420: x_wms_flag := g_cache_wms_flag;
435: x_msg_count => l_msg_count,
436: x_msg_data => l_msg_data,
437: p_organization_id => p_organization_id);
438:
439: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
440: --
441: IF l_debug_on THEN
442: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR IN CHECK_WMS' );
443: END IF;
458: END IF;
459: --
460: EXCEPTION
461: WHEN OTHERS THEN
462: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
463: wsh_util_core.default_handler('WSH_USA_CATEGORIES_PVT.Check_WMS',l_module_name);
464: IF l_debug_on THEN
465: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
466: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
459: --
460: EXCEPTION
461: WHEN OTHERS THEN
462: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
463: wsh_util_core.default_handler('WSH_USA_CATEGORIES_PVT.Check_WMS',l_module_name);
464: IF l_debug_on THEN
465: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
466: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
467: END IF;
479: IS
480: update_not_allowed EXCEPTION;
481: others EXCEPTION;
482:
483: l_rs VARCHAR2(1) := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
484: l_update_allowed VARCHAR2(1) := 'Y';
485: l_wms_flag VARCHAR2(1);
486: -- HW OPM for OM changes
487: -- HW OPMCONV. Removed OPM variables
514: Cache_Changed_Attributes(p_source_line_id => p_attributes_rec.source_line_id,
515: p_source_code => p_source_code,
516: p_delivery_detail_id => p_attributes_rec.delivery_detail_id,
517: x_return_status => l_rs);
518: IF (l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
519: IF l_debug_on THEN
520: WSH_DEBUG_SV.log(l_module_name,'Cache_Changed_Attributes returns Error');
521: END IF;
522: RAISE update_not_allowed;
529: Check_WMS(
530: p_organization_id => g_cache_detail_rec.organization_id,
531: x_wms_flag => l_wms_flag,
532: x_return_status => l_rs);
533: IF (l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
534: RAISE others;
535: END IF;
536:
537: WSH_USA_CATEGORIES_PVT.Change_Schedule(
540: p_wms_flag => l_wms_flag,
541: x_update_allowed => l_update_allowed,
542: x_return_status => l_rs);
543: IF (l_update_allowed = 'N')
544: OR (l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
545: RAISE update_not_allowed;
546: END IF;
547: WSH_USA_CATEGORIES_PVT.Change_Scheduled_Date(
548: p_attributes_rec => p_attributes_rec,
550: p_wms_flag => l_wms_flag,
551: x_update_allowed => l_update_allowed,
552: x_return_status => l_rs);
553: IF (l_update_allowed = 'N')
554: OR (l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
555: IF l_debug_on THEN
556: WSH_DEBUG_SV.log(l_module_name,'Change_Scheduled_Date returned Error');
557: END IF;
558: RAISE update_not_allowed;
566: p_wms_flag => l_wms_flag,
567: x_update_allowed => l_update_allowed,
568: x_return_status => l_rs);
569: IF (l_update_allowed = 'N')
570: OR (l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
571: RAISE update_not_allowed;
572: END IF;
573:
574: WSH_USA_CATEGORIES_PVT.Change_Delivery_Group(
577: p_wms_flag => l_wms_flag,
578: x_update_allowed => l_update_allowed,
579: x_return_status => l_rs);
580: IF (l_update_allowed = 'N')
581: OR (l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
582: RAISE update_not_allowed;
583: END IF;
584:
585: -- Bug 2181132 for overship tolerance
589: p_wms_flag => l_wms_flag,
590: x_update_allowed => l_update_allowed,
591: x_return_status => l_rs);
592: IF (l_update_allowed = 'N')
593: OR (l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
594: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
595: RAISE update_not_allowed;
596: END IF;
597:
590: x_update_allowed => l_update_allowed,
591: x_return_status => l_rs);
592: IF (l_update_allowed = 'N')
593: OR (l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
594: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
595: RAISE update_not_allowed;
596: END IF;
597:
598: IF (p_attributes_rec.action_flag <> 'S') THEN
604: x_update_allowed => l_update_allowed,
605: x_return_status => l_rs);
606: END IF; -- action_flag <> 'S'
607: IF (l_update_allowed = 'N')
608: OR (l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
609: RAISE update_not_allowed;
610: END IF;
611: -- Standalone Project - Do no call Change_TP_Dates API if instance is running in Standalone mode
612: IF NVL(WMS_DEPLOY.Wms_Deployment_Mode,'I') <> 'D' THEN --{
616: x_changed_detail => x_changed_detail,
617: x_update_allowed => l_update_allowed,
618: x_return_status => l_rs);
619: IF(l_update_allowed = 'N')
620: OR (l_rs IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
621: RAISE update_not_allowed;
622: END IF;
623: END IF;
624:
642: END IF;
643: --
644: RETURN;
645: WHEN OTHERS THEN
646: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
647: wsh_util_core.default_handler('WSH_USA_CATEGORIES_PVT.Check_Categories',l_module_name);
648: --
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
643: --
644: RETURN;
645: WHEN OTHERS THEN
646: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
647: wsh_util_core.default_handler('WSH_USA_CATEGORIES_PVT.Check_Categories',l_module_name);
648: --
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
666: update_not_allowed EXCEPTION;
667:
668: l_datetype VARCHAR2(20);
669:
670: l_in_id wsh_util_core.id_tab_type;
671:
672: l_earliest_pickup_date DATE;
673: l_latest_pickup_date DATE;
674: l_earliest_dropoff_date DATE;
731: x_latest_pickup_date => l_latest_pickup_date,
732: x_earliest_dropoff_date => l_earliest_dropoff_date,
733: x_latest_dropoff_date => l_latest_dropoff_date
734: );
735: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS, WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
736: WSH_INTERFACE.PrintMsg(name=>'WSH_CALC_TP_DATES',
737: txt=>'Error in calculating TP dates: Date Type : '||l_datetype
738: ||'Latest Acceptable Date : '||p_attributes_rec.latest_acceptable_date
739: ||'Promise Date : '||p_attributes_rec.promise_date
781: EXCEPTION
782:
783: WHEN OTHERS THEN
784: -- close open cursors as needed
785: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
786: x_update_allowed := 'N';
787: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_TP_DATES',l_module_name);
788: --
789: IF l_debug_on THEN
783: WHEN OTHERS THEN
784: -- close open cursors as needed
785: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
786: x_update_allowed := 'N';
787: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_TP_DATES',l_module_name);
788: --
789: IF l_debug_on THEN
790: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
791: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
868: --
869: RETURN;
870: WHEN OTHERS THEN
871: -- close open cursors as needed
872: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
873: x_update_allowed := 'N';
874: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Quantity',l_module_name);
875: --
876: IF l_debug_on THEN
870: WHEN OTHERS THEN
871: -- close open cursors as needed
872: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
873: x_update_allowed := 'N';
874: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Quantity',l_module_name);
875: --
876: IF l_debug_on THEN
877: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
878: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1015: l_requested_quantity2 NUMBER := 0;
1016: l_requested_quantity_uom2 VARCHAR2(3);
1017:
1018: --wrudge
1019: l_delete_dds WSH_UTIL_CORE.Id_Tab_Type ; -- to delete overpicked delivery lines
1020:
1021: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
1022: l_dbi_rs VARCHAR2(1); -- DBI Project
1023:
1017:
1018: --wrudge
1019: l_delete_dds WSH_UTIL_CORE.Id_Tab_Type ; -- to delete overpicked delivery lines
1020:
1021: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
1022: l_dbi_rs VARCHAR2(1); -- DBI Project
1023:
1024: /* H projects: pricing integration csun */
1025: i NUMBER := 0;
1022: l_dbi_rs VARCHAR2(1); -- DBI Project
1023:
1024: /* H projects: pricing integration csun */
1025: i NUMBER := 0;
1026: l_del_tab WSH_UTIL_CORE.Id_Tab_Type ; -- to mark reprice required flag
1027: mark_reprice_error EXCEPTION;
1028: -- deliveryMerge
1029: Adjust_Planned_Flag_Err EXCEPTION;
1030: l_num_warning NUMBER := 0;
1051: l_new_weight NUMBER;
1052: l_new_volume NUMBER;
1053: l_weight_uom_code VARCHAR2(3);
1054: l_volume_uom_code VARCHAR2(3);
1055: l_del_planned_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1056: l_otm_del_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1057: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1058: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1059: l_item_rec c_specific_item_info%ROWTYPE;
1052: l_new_volume NUMBER;
1053: l_weight_uom_code VARCHAR2(3);
1054: l_volume_uom_code VARCHAR2(3);
1055: l_del_planned_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1056: l_otm_del_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1057: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1058: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1059: l_item_rec c_specific_item_info%ROWTYPE;
1060: l_final_org_id NUMBER;
1053: l_weight_uom_code VARCHAR2(3);
1054: l_volume_uom_code VARCHAR2(3);
1055: l_del_planned_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1056: l_otm_del_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1057: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1058: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1059: l_item_rec c_specific_item_info%ROWTYPE;
1060: l_final_org_id NUMBER;
1061: l_ordered_quantity NUMBER;
1054: l_volume_uom_code VARCHAR2(3);
1055: l_del_planned_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1056: l_otm_del_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1057: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1058: l_tms_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1059: l_item_rec c_specific_item_info%ROWTYPE;
1060: l_final_org_id NUMBER;
1061: l_ordered_quantity NUMBER;
1062: l_ordered_quantity_uom VARCHAR2(5);
1157: --2.Check if detail is associated to OPM org - if so, do not allow update of item.
1158: --check for old org.
1159: IF INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => g_cache_detail_rec.organization_id) THEN
1160: --{
1161: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1162: IF l_debug_on THEN
1163: WSH_DEBUG_SV.logmsg(l_module_name, 'Item Update is not allowed as it is associated to OPM organization.');
1164: END IF;
1165: RAISE item_update_not_allowed;
1171: --{
1172: l_final_org_id:= p_attributes_rec.ship_from_org_id;
1173: IF INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => l_final_org_id) THEN
1174: --{
1175: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1176: IF l_debug_on THEN
1177: WSH_DEBUG_SV.logmsg(l_module_name, 'Item Update is not allowed as it is associated to OPM organization.');
1178: END IF;
1179: RAISE item_update_not_allowed;
1189: OPEN c_det_status;
1190: FETCH c_det_status INTO x_update_allowed;
1191: IF c_det_status%FOUND THEN
1192: CLOSE c_det_status;
1193: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1194: IF l_debug_on THEN
1195: WSH_DEBUG_SV.logmsg(l_module_name, 'Item Update is not allowed as there are Detail(s) that are already Pick Released ');
1196: END IF;
1197: RAISE item_update_not_allowed;
1202: OPEN c_packed_det;
1203: FETCH c_packed_det INTO x_update_allowed;
1204: IF c_packed_det%FOUND THEN
1205: CLOSE c_packed_det;
1206: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1207: IF l_debug_on THEN
1208: WSH_DEBUG_SV.logmsg(l_module_name, 'Item Update is not allowed as there are Detail(s) that are packed into Containers ');
1209: END IF;
1210: RAISE item_update_not_allowed;
1215: OPEN c_del_status;
1216: FETCH c_del_status INTO l_del_status,l_export_screening_flag;
1217: IF c_del_status%FOUND THEN
1218: CLOSE c_del_status;
1219: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1220: IF l_debug_on THEN
1221: IF ( l_del_status in ('SA','SR') ) THEN
1222: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as there is a Delivery that belongs to tpw/carrier manifesting Organization with status '||l_del_status);
1223: END IF;
1237: --7. Check if the primary UOM of the new Item is different than the primary UOM of old Item - if so
1238: -- do not allow update of item.
1239: IF (g_cache_detail_rec.requested_quantity_uom <> l_item_rec.primary_uom_code ) THEN
1240: --{
1241: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1242: IF l_debug_on THEN
1243: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as there is a difference in primary UOM for old and new item');
1244: END IF;
1245: RAISE item_update_not_allowed;
1271: g_cache_detail_rec.inventory_item_id);
1272:
1273: IF NVL(l_new_tot_requested_quantity, 0) <> nvl(l_old_tot_requested_quantity,0) THEN
1274: --{
1275: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1276: IF l_debug_on THEN
1277: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as there is a difference in UOM conversions for old and new item');
1278: END IF;
1279: RAISE item_update_not_allowed;
1304: x_param_info => l_shipping_param_info,
1305: x_return_status => x_return_status
1306: );
1307:
1308: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1309: --{
1310: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1311: IF l_debug_on THEN
1312: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as there are no shipping parameters defined for the org: '||l_final_org_id);
1306: );
1307:
1308: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1309: --{
1310: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1311: IF l_debug_on THEN
1312: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as there are no shipping parameters defined for the org: '||l_final_org_id);
1313: END IF;
1314: RAISE item_update_not_allowed;
1367: x_param_info => l_shipping_param_info,
1368: x_return_status => x_return_status
1369: );
1370:
1371: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1372: --{
1373: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1374: IF l_debug_on THEN
1375: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as there are no shipping parameters defined for the org: '||l_final_org_id);
1369: );
1370:
1371: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1372: --{
1373: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1374: IF l_debug_on THEN
1375: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as there are no shipping parameters defined for the org: '||l_final_org_id);
1376: END IF;
1377: RAISE item_update_not_allowed;
1415: IF l_debug_on THEN
1416: WSH_DEBUG_SV.log(l_module_name,'l_status is set to Y');
1417: END IF;
1418: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_UPDATE_NOT_ALLOWED');
1419: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1420: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1421: RAISE update_not_allowed;
1422: exit; -- exit loop if action breaks WMS.
1423: -- how does it come to exit,when we raise update_not_allowed?
1416: WSH_DEBUG_SV.log(l_module_name,'l_status is set to Y');
1417: END IF;
1418: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_UPDATE_NOT_ALLOWED');
1419: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1420: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1421: RAISE update_not_allowed;
1422: exit; -- exit loop if action breaks WMS.
1423: -- how does it come to exit,when we raise update_not_allowed?
1424: END IF;
1507: x_msg_count => l_msg_count,
1508: x_msg_data => l_msg_data
1509: );
1510:
1511: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1512: IF l_debug_on THEN
1513: WSH_DEBUG_SV.log(l_module_name,'Cancel_Move_Order_Line returned error');
1514: END IF;
1515: RAISE update_not_allowed;
1528: p_detail_id => l_del_det,
1529: p_validate_flag => 'N',
1530: x_return_status => x_return_status);
1531:
1532: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1533:
1534: RAISE update_not_allowed;
1535:
1536: END IF;
1542: p_entity_name => 'WSH_DELIVERY',
1543: p_entity_id => l_delivery,
1544: x_return_status => x_return_status);
1545:
1546: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1547:
1548: RAISE update_not_allowed;
1549:
1550: END IF;
1556: p_detail_id => l_del_det,
1557: p_validate_flag => 'N',
1558: x_return_status => x_return_status);
1559:
1560: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1561:
1562: RAISE update_not_allowed;
1563:
1564: END IF;
1570: p_entity_name => 'WSH_CONTAINER',
1571: p_entity_id => l_parent_det,
1572: x_return_status => x_return_status);
1573:
1574: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1575:
1576: RAISE update_not_allowed;
1577:
1578: END IF;
1590: p_subinventory => l_subinventory,
1591: x_inv_controls_rec => l_inv_controls,
1592: x_return_status => x_return_status);
1593:
1594: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1595:
1596: RAISE update_not_allowed;
1597:
1598: END IF;
1602: p_serial_number => l_serial_number,
1603: p_transaction_temp_id => l_trx_temp_id,
1604: x_return_status => x_return_status);
1605:
1606: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1607:
1608: RAISE update_not_allowed;
1609:
1610: END IF;
1635: p_unreserve_mode => 'UNRESERVE',
1636: x_return_status => l_return_status
1637: );
1638:
1639: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1640: RAISE update_not_allowed;
1641: END IF;
1642: END IF;
1643: --} Subinventory specific code.
1657: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL(
1658: p_delivery_detail_id => l_del_det,
1659: p_primary_quantity => 0, --- WMS will delete the records from WMS table.
1660: x_return_status => x_return_status);
1661: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1662: --{
1663: IF l_debug_on THEN
1664: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
1665: WSH_DEBUG_SV.pop(l_module_name);
1690: p_diff_net_wt => -1 * l_net_weight,
1691: p_diff_volume => -1 * l_volume,
1692: p_diff_fill_volume => -1 * l_volume,
1693: x_return_status => l_return_status);
1694: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1695: x_return_status := l_return_status;
1696: IF l_debug_on THEN
1697: WSH_DEBUG_SV.log(l_module_name,'Return Status after DD_WV_Post_Process',x_return_status);
1698: END IF;
1800: p_diff_net_wt => l_new_weight,
1801: p_diff_volume => l_new_volume,
1802: p_diff_fill_volume => l_new_volume,
1803: x_return_status => l_return_status);
1804: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1805: x_return_status := l_return_status;
1806: IF l_debug_on THEN
1807: WSH_DEBUG_SV.log(l_module_name,'Return Status after DD_WV_Post_Process',x_return_status);
1808: END IF;
1833:
1834: IF l_debug_on THEN
1835: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1836: END IF;
1837: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1838: x_return_status := l_dbi_rs;
1839: Rollback to before_changes;
1840: -- just pass this return status to caller API
1841: IF l_debug_on THEN
1856: p_details_id => l_delete_dds,
1857: x_return_status => x_return_status
1858: );
1859:
1860: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1861: RAISE update_not_allowed;
1862: END IF;
1863: END IF;
1864: --brana
1870: --Intialize the message and location id
1871: IF ( l_del_planned_tab.count > 0) THEN
1872: --{
1873: FND_MESSAGE.SET_NAME('WSH','WSH_ITEM_SUBSTITUTED');
1874: FND_MESSAGE.SET_TOKEN('ITEM1',WSH_UTIL_CORE.Get_Item_Name(p_attributes_rec.inventory_item_id,
1875: l_final_org_id));
1876: FND_MESSAGE.SET_TOKEN('ITEM2',WSH_UTIL_CORE.Get_Item_Name(g_cache_detail_rec.inventory_item_id,
1877: l_final_org_id));
1878: l_msg := FND_MESSAGE.GET;
1872: --{
1873: FND_MESSAGE.SET_NAME('WSH','WSH_ITEM_SUBSTITUTED');
1874: FND_MESSAGE.SET_TOKEN('ITEM1',WSH_UTIL_CORE.Get_Item_Name(p_attributes_rec.inventory_item_id,
1875: l_final_org_id));
1876: FND_MESSAGE.SET_TOKEN('ITEM2',WSH_UTIL_CORE.Get_Item_Name(g_cache_detail_rec.inventory_item_id,
1877: l_final_org_id));
1878: l_msg := FND_MESSAGE.GET;
1879: l_exception_location_id := l_location_id;
1880: --}
1925: WSH_NEW_DELIVERIES_PVT.Update_TMS_Interface_Flag
1926: (p_delivery_id_tab => l_delivery_id_tab,
1927: p_tms_interface_flag_tab => l_tms_interface_flag_tab,
1928: x_return_status => l_return_status);
1929: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1930: x_return_status := l_return_status;
1931: IF l_debug_on THEN
1932: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_NEW_DELIVERIES_PVT.Update_Tms_interface_flag',l_return_status);
1933: END IF;
1955: x_mtl_reservation_tbl => l_resv_tbl,
1956: x_mtl_reservation_tbl_count => l_count,
1957: x_return_status => x_return_status);
1958:
1959: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1960: RAISE update_not_allowed;
1961: END IF;
1962:
1963: --END IF;
1997: WSH_USA_INV_PVT.delete_reservation (
1998: p_query_input => l_resv_tbl(i),
1999: x_return_status => x_return_status);
2000:
2001: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2002:
2003: RAISE update_not_allowed;
2004:
2005: END IF;
2128: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
2129: p_entity_type => 'DELIVERY',
2130: p_entity_ids => l_del_tab,
2131: x_return_status => l_return_status);
2132: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2133: raise mark_reprice_error;
2134: END IF;
2135:
2136: -- deliveryMerge
2147: IF l_debug_on THEN
2148: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag l_return_status',l_return_status);
2149: END IF;
2150:
2151: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2152: raise Adjust_Planned_Flag_Err;
2153: ELSIF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2154: l_num_warning := l_num_warning + 1;
2155: END IF;
2149: END IF;
2150:
2151: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2152: raise Adjust_Planned_Flag_Err;
2153: ELSIF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2154: l_num_warning := l_num_warning + 1;
2155: END IF;
2156:
2157: END IF;
2157: END IF;
2158:
2159: END IF;
2160: IF l_num_warning > 0 THEN
2161: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2162: ELSE
2163: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2164: END IF;
2165: --
2159: END IF;
2160: IF l_num_warning > 0 THEN
2161: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2162: ELSE
2163: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2164: END IF;
2165: --
2166: IF l_debug_on THEN
2167: WSH_DEBUG_SV.pop(l_module_name);
2173: x_update_allowed := 'N';
2174: --
2175: -- For item change case, enter both item names.
2176: FND_MESSAGE.SET_NAME('WSH','WSH_ITEM_SUB_NOT_ALLOWED');
2177: FND_MESSAGE.SET_TOKEN('ITEM1',WSH_UTIL_CORE.Get_Item_Name(g_cache_detail_rec.inventory_item_id,l_final_org_id));
2178: FND_MESSAGE.SET_TOKEN('ITEM2',WSH_UTIL_CORE.Get_Item_Name(p_attributes_rec.inventory_item_id,l_final_org_id));
2179: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2180: IF l_debug_on THEN
2181: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2174: --
2175: -- For item change case, enter both item names.
2176: FND_MESSAGE.SET_NAME('WSH','WSH_ITEM_SUB_NOT_ALLOWED');
2177: FND_MESSAGE.SET_TOKEN('ITEM1',WSH_UTIL_CORE.Get_Item_Name(g_cache_detail_rec.inventory_item_id,l_final_org_id));
2178: FND_MESSAGE.SET_TOKEN('ITEM2',WSH_UTIL_CORE.Get_Item_Name(p_attributes_rec.inventory_item_id,l_final_org_id));
2179: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2180: IF l_debug_on THEN
2181: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2182: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2175: -- For item change case, enter both item names.
2176: FND_MESSAGE.SET_NAME('WSH','WSH_ITEM_SUB_NOT_ALLOWED');
2177: FND_MESSAGE.SET_TOKEN('ITEM1',WSH_UTIL_CORE.Get_Item_Name(g_cache_detail_rec.inventory_item_id,l_final_org_id));
2178: FND_MESSAGE.SET_TOKEN('ITEM2',WSH_UTIL_CORE.Get_Item_Name(p_attributes_rec.inventory_item_id,l_final_org_id));
2179: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2180: IF l_debug_on THEN
2181: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2182: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2183: END IF;
2193: --
2194: WHEN mark_reprice_error THEN
2195: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2196: x_return_status := l_return_status;
2197: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2198: IF l_debug_on THEN
2199: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2200: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2201: END IF;
2201: END IF;
2202: --
2203: WHEN Adjust_Planned_Flag_Err THEN
2204: FND_MESSAGE.SET_NAME('WSH', 'WSH_ADJUST_PLANNED_FLAG_ERR');
2205: WSH_UTIL_CORE.add_message(l_return_status,l_module_name);
2206: x_return_status := l_return_status;
2207:
2208: IF l_debug_on THEN
2209: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_Planned_Flag_Err exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2216: END IF;
2217:
2218: -- close open cursors as needed
2219: --ROLLBACK TO before_changes;
2220: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2221: x_update_allowed := 'N';
2222: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Schedule',l_module_name);
2223: --
2224: IF l_debug_on THEN
2218: -- close open cursors as needed
2219: --ROLLBACK TO before_changes;
2220: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2221: x_update_allowed := 'N';
2222: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Schedule',l_module_name);
2223: --
2224: IF l_debug_on THEN
2225: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2226: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2260: update_not_allowed EXCEPTION;
2261:
2262: /* H integration: Pricing integration csun */
2263: i NUMBER := 0;
2264: l_det_tab WSH_UTIL_CORE.Id_Tab_Type ; -- to mark reprice required flag
2265: l_return_status VARCHAR2(1);
2266: mark_reprice_error EXCEPTION;
2267:
2268:
2331: p_trolin_tbl => l_trolin_tbl,
2332: p_trolin_old_tbl => l_trolin_old_tbl,
2333: x_trolin_tbl => l_trolin_out_tbl);
2334:
2335: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2336: IF l_debug_on THEN
2337: WSH_DEBUG_SV.log(l_module_name,'Process_Move_Order_Line returns ERROR');
2338: END IF;
2339: RAISE update_not_allowed;
2360: p_location_id => l_location_id,
2361: p_exception_name => 'WSH_CHANGE_SCHED_DATE',
2362: x_return_status => x_return_status);
2363:
2364: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2365: RAISE update_not_allowed;
2366: END IF;
2367: END IF;
2368: --End of Changes for bug 9226187
2375: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
2376: p_entity_type => 'DELIVERY_DETAIL',
2377: p_entity_ids => l_det_tab,
2378: x_return_status => l_return_status);
2379: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2380: raise mark_reprice_error;
2381: END IF;
2382: END IF;
2383: END IF;
2399: RETURN;
2400: WHEN mark_reprice_error THEN
2401: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2402: x_return_status := l_return_status;
2403: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2404: --
2405: IF l_debug_on THEN
2406: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2407: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2411: -- close open cursors as needed
2412: IF c_delivery_detail%ISOPEN THEN
2413: close c_delivery_detail;
2414: END IF;
2415: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2416: x_update_allowed := 'N';
2417: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Scheduled_Date',l_module_name);
2418: --
2419: IF l_debug_on THEN
2413: close c_delivery_detail;
2414: END IF;
2415: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2416: x_update_allowed := 'N';
2417: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Scheduled_Date',l_module_name);
2418: --
2419: IF l_debug_on THEN
2420: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2421: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2512: x_param_info => g_param_info,
2513: x_return_status => x_return_status
2514: );
2515:
2516: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2517: RAISE update_not_allowed;
2518: END IF;
2519:
2520: END IF;
2591: p_trolin_tbl => l_trolin_tbl,
2592: p_trolin_old_tbl => l_trolin_old_tbl,
2593: x_trolin_tbl => l_trolin_out_tbl);
2594:
2595: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2596: IF l_debug_on THEN
2597: WSH_DEBUG_SV.log(l_module_name,'Process_Move_Order_Line returns ERROR');
2598: END IF;
2599: RAISE update_not_allowed;
2618: --
2619: EXCEPTION
2620:
2621: WHEN update_not_allowed THEN
2622: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2623: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2624: x_update_allowed := 'N';
2625: --
2626: IF l_debug_on THEN
2619: EXCEPTION
2620:
2621: WHEN update_not_allowed THEN
2622: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2623: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2624: x_update_allowed := 'N';
2625: --
2626: IF l_debug_on THEN
2627: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2632: -- close open cursors as needed
2633: IF c_get_released_status%isopen THEN
2634: close c_get_released_status;
2635: END IF;
2636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2637: x_update_allowed := 'N';
2638: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Sets',l_module_name);
2639: --
2640: IF l_debug_on THEN
2634: close c_get_released_status;
2635: END IF;
2636: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2637: x_update_allowed := 'N';
2638: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Sets',l_module_name);
2639: --
2640: IF l_debug_on THEN
2641: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2642: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2673: l_attr_tab Wsh_delivery_autocreate.grp_attr_tab_type;
2674: l_group_tab wsh_delivery_autocreate.grp_attr_tab_type;
2675: l_action_rec wsh_delivery_autocreate.action_rec_type;
2676: l_target_rec wsh_delivery_autocreate.grp_attr_rec_type;
2677: l_matched_entities wsh_util_core.id_tab_type;
2678: l_out_rec wsh_delivery_autocreate.out_rec_type;
2679: l_generic_flag varchar2(1);
2680: l_sm_changed_flag varchar2(1) := 'N';
2681:
2717: l_parent_container NUMBER;
2718:
2719: l_msg_count NUMBER;
2720: l_msg_data VARCHAR2(4000);
2721: l_delivery_ids wsh_util_core.id_tab_type;
2722:
2723:
2724: l_delivery_info_tab WSH_NEW_DELIVERIES_PVT.Delivery_Attr_Tbl_Type;
2725: l_del_out_rec_tab WSH_DELIVERIES_GRP.Del_Out_Tbl_Type;
2751: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2752: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2753: END IF;
2754: --
2755: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2756: IF p_attributes_rec.ship_from_org_id = FND_API.G_MISS_NUM THEN
2757: l_attr_tab(1).organization_id := g_cache_detail_rec.organization_id;
2758: l_attr_tab(1).ship_from_location_id := g_cache_detail_rec.organization_id;
2759: ELSE
2780:
2781: l_intmed_ship_to_location_id := g_cache_detail_rec.intmed_ship_to_location_id;
2782:
2783: ELSIF (p_attributes_rec.intmed_ship_to_org_id IS NOT NULL) THEN
2784: WSH_UTIL_CORE.GET_LOCATION_ID('CUSTOMER SITE',
2785: p_attributes_rec.intmed_ship_to_org_id,
2786: l_intmed_ship_to_location_id,
2787: x_return_status);
2788: /* Bug Fix 2852545 passed x_return_status instead of l_return_status to api_post_call */
2785: p_attributes_rec.intmed_ship_to_org_id,
2786: l_intmed_ship_to_location_id,
2787: x_return_status);
2788: /* Bug Fix 2852545 passed x_return_status instead of l_return_status to api_post_call */
2789: wsh_util_core.api_post_call(p_return_status =>x_return_status,
2790: x_num_warnings =>l_num_warning,
2791: x_num_errors =>l_num_errors);
2792:
2793: END IF;
2900: x_out_rec => l_out_rec,
2901: x_return_status => x_return_status);
2902:
2903:
2904: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2905:
2906: l_mandatory_flag := 'N';
2907:
2908: ELSIF l_out_rec.single_group = 'N' THEN
2955: WSH_DEBUG_SV.logmsg(l_module_name, 'carrier_id: '||l_group_tab(l_group_tab.first).carrier_id );
2956: WSH_DEBUG_SV.logmsg(l_module_name, 'ship_method_code: '||l_group_tab(l_group_tab.first).carrier_id );
2957: END IF;
2958:
2959: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2960:
2961: l_mandatory_flag := 'N';
2962:
2963: ELSIF l_out_rec.single_group = 'N' THEN
2980:
2981: IF dd.released_status = 'Y' THEN
2982:
2983: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_UPDATE_NOT_ALLOWED');
2984: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2985: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2986: RAISE update_not_allowed;
2987:
2988: END IF;
2981: IF dd.released_status = 'Y' THEN
2982:
2983: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_UPDATE_NOT_ALLOWED');
2984: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2985: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2986: RAISE update_not_allowed;
2987:
2988: END IF;
2989:
3002: p_detail_id => dd.delivery_detail_id,
3003: p_validate_flag => 'N',
3004: x_return_status => x_return_status);
3005:
3006: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3007:
3008: RAISE update_not_allowed;
3009:
3010: END IF;
3016: p_entity_name => 'WSH_DELIVERY',
3017: p_entity_id => dd.delivery_id,
3018: x_return_status => x_return_status);
3019:
3020: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3021:
3022: RAISE update_not_allowed;
3023:
3024: END IF;
3032: p_call_lcss => 'Y',
3033: p_event => NULL,
3034: x_return_status => l_return_status);
3035:
3036: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3037: RAISE update_not_allowed;
3038: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3039: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3040: ELSE
3034: x_return_status => l_return_status);
3035:
3036: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3037: RAISE update_not_allowed;
3038: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3039: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3040: ELSE
3041: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3042: END IF;
3035:
3036: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3037: RAISE update_not_allowed;
3038: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3039: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3040: ELSE
3041: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3042: END IF;
3043:
3037: RAISE update_not_allowed;
3038: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
3039: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3040: ELSE
3041: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3042: END IF;
3043:
3044:
3045: END IF;
3050: p_detail_id => dd.delivery_detail_id,
3051: p_validate_flag => 'N',
3052: x_return_status => x_return_status);
3053:
3054: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3055:
3056: RAISE update_not_allowed;
3057:
3058: END IF;
3064: p_entity_name => 'WSH_CONTAINER',
3065: p_entity_id => dd.parent_delivery_detail_id,
3066: x_return_status => x_return_status);
3067:
3068: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3069:
3070: RAISE update_not_allowed;
3071:
3072: END IF;
3090: p_delivery_id => dd.delivery_id,
3091: x_delivery_rec => l_delivery_info_tab(1),
3092: x_return_status => x_return_status);
3093:
3094: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3095: RAISE update_not_allowed;
3096: END IF;
3097:
3098:
3127: x_msg_data => l_msg_data);
3128:
3129:
3130:
3131: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3132: RAISE update_not_allowed;
3133: END IF;
3134:
3135: END IF;
3147: p_entity_name => 'WSH_CONTAINER',
3148: p_entity_id => dd.parent_delivery_detail_id,
3149: x_return_status => x_return_status);
3150:
3151: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3152:
3153: RAISE update_not_allowed;
3154:
3155: END IF;
3176: p_delivery_detail_id => dd.parent_delivery_detail_id,
3177: x_delivery_detail_rec => l_detail_info_tab(1),
3178: x_return_status => x_return_status);
3179:
3180: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3181: RAISE update_not_allowed;
3182: END IF;
3183:
3184: IF l_group_tab(l_group_index).service_level IS NOT NULL THEN
3211: p_detail_info_tab => l_detail_info_tab,
3212: p_IN_rec => l_detail_in_rec,
3213: x_OUT_rec => l_detail_out_rec);
3214:
3215: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3216: RAISE update_not_allowed;
3217: END IF;
3218:
3219: -- The GRP API does not cascade the changes upwards.
3232: p_delivery_id => NULL,
3233: p_container_instance_id => l_parent_container,
3234: x_return_status => x_return_status);
3235:
3236: IF x_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR, WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3237: RAISE update_not_allowed;
3238: END IF;
3239:
3240: END IF;
3258: EXCEPTION
3259:
3260: WHEN update_not_allowed THEN
3261: x_update_allowed := 'N';
3262: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3263: --
3264: IF l_debug_on THEN
3265: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3266: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
3267: END IF;
3268: --
3269: RETURN;
3270: WHEN FND_API.G_EXC_ERROR THEN
3271: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3272: IF l_debug_on THEN
3273: wsh_debug_sv.logmsg(l_module_name,'G_EXC_ERROR');
3274: WSH_DEBUG_SV.pop(l_module_name);
3275: END IF;
3273: wsh_debug_sv.logmsg(l_module_name,'G_EXC_ERROR');
3274: WSH_DEBUG_SV.pop(l_module_name);
3275: END IF;
3276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3277: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3278: IF l_debug_on THEN
3279: wsh_debug_sv.logmsg(l_module_name,'G_EXC_UNEXPECTED_ERROR');
3280: WSH_DEBUG_SV.pop(l_module_name);
3281: END IF;
3286: END IF;
3287: IF c_get_parent_container%ISOPEN THEN
3288: CLOSE c_get_parent_container;
3289: END IF;
3290: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3291: x_update_allowed := 'N';
3292: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Delivery_Group',l_module_name);
3293: --
3294: IF l_debug_on THEN
3288: CLOSE c_get_parent_container;
3289: END IF;
3290: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3291: x_update_allowed := 'N';
3292: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Delivery_Group',l_module_name);
3293: --
3294: IF l_debug_on THEN
3295: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3296: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3396: CLOSE c_get_released_status;
3397:
3398: IF l_delivery_detail_id IS NOT NULL THEN
3399: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_TOL_NOT_ALLOWED');
3400: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3401: WSH_UTIL_CORE.Add_Message(x_return_status);
3402: RAISE update_not_allowed;
3403: END IF;
3404:
3397:
3398: IF l_delivery_detail_id IS NOT NULL THEN
3399: FND_MESSAGE.SET_NAME('WSH', 'WSH_UPDATE_TOL_NOT_ALLOWED');
3400: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3401: WSH_UTIL_CORE.Add_Message(x_return_status);
3402: RAISE update_not_allowed;
3403: END IF;
3404:
3405: END IF;
3404:
3405: END IF;
3406:
3407: x_update_allowed := 'Y';
3408: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3409:
3410: IF l_debug_on THEN
3411: WSH_DEBUG_SV.log(l_module_name,'Update Allowed'||x_update_allowed);
3412: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3413: END IF;
3414:
3415: EXCEPTION
3416: WHEN update_not_allowed THEN
3417: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3418: x_update_allowed := 'N';
3419:
3420: IF l_debug_on THEN
3421: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3424: RETURN;
3425:
3426: WHEN OTHERS THEN
3427: -- close open cursors as needed
3428: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3429: x_update_allowed := 'N';
3430: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Ship_Tolerance',l_module_name);
3431: --
3432: IF l_debug_on THEN
3426: WHEN OTHERS THEN
3427: -- close open cursors as needed
3428: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3429: x_update_allowed := 'N';
3430: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Ship_Tolerance',l_module_name);
3431: --
3432: IF l_debug_on THEN
3433: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3434: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');