[Home] [Help]
165: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
166: --
167: IF l_debug_on IS NULL
168: THEN
169: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
170: END IF;
171: --
172: IF l_debug_on THEN
173: WSH_DEBUG_SV.push(l_module_name);
169: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
170: END IF;
171: --
172: IF l_debug_on THEN
173: WSH_DEBUG_SV.push(l_module_name);
174: --
175: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
176: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID',P_LOCATION_ID);
177: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
171: --
172: IF l_debug_on THEN
173: WSH_DEBUG_SV.push(l_module_name);
174: --
175: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
176: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID',P_LOCATION_ID);
177: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
178: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_NAME',P_ENTITY_NAME);
179: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
172: IF l_debug_on THEN
173: WSH_DEBUG_SV.push(l_module_name);
174: --
175: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
176: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID',P_LOCATION_ID);
177: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
178: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_NAME',P_ENTITY_NAME);
179: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
180: END IF;
173: WSH_DEBUG_SV.push(l_module_name);
174: --
175: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
176: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID',P_LOCATION_ID);
177: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
178: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_NAME',P_ENTITY_NAME);
179: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
180: END IF;
181: --
174: --
175: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
176: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID',P_LOCATION_ID);
177: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
178: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_NAME',P_ENTITY_NAME);
179: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
180: END IF;
181: --
182: IF p_entity_name IS NOT NULL THEN
175: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
176: WSH_DEBUG_SV.log(l_module_name,'P_LOCATION_ID',P_LOCATION_ID);
177: WSH_DEBUG_SV.log(l_module_name,'P_EXCEPTION_NAME',P_EXCEPTION_NAME);
178: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_NAME',P_ENTITY_NAME);
179: WSH_DEBUG_SV.log(l_module_name,'P_ENTITY_ID',P_ENTITY_ID);
180: END IF;
181: --
182: IF p_entity_name IS NOT NULL THEN
183: FND_MESSAGE.SET_NAME('WSH',p_entity_name);
233: );
234:
235: --
236: IF l_debug_on THEN
237: WSH_DEBUG_SV.pop(l_module_name);
238: END IF;
239: --
240: EXCEPTION
241:
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');
250: END IF;
251: --
252: END Log_Exception;
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');
250: END IF;
251: --
252: END Log_Exception;
253:
269: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
270: --
271: IF l_debug_on IS NULL
272: THEN
273: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
274: END IF;
275: --
276: IF l_debug_on THEN
277: WSH_DEBUG_SV.push(l_module_name);
273: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
274: END IF;
275: --
276: IF l_debug_on THEN
277: WSH_DEBUG_SV.push(l_module_name);
278: --
279: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
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);
275: --
276: IF l_debug_on THEN
277: WSH_DEBUG_SV.push(l_module_name);
278: --
279: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
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: --
276: IF l_debug_on THEN
277: WSH_DEBUG_SV.push(l_module_name);
278: --
279: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
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;
277: WSH_DEBUG_SV.push(l_module_name);
278: --
279: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
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:
289: AND g_cache_detail_rec.delivery_detail_id = p_delivery_detail_id
290: THEN
291: --
292: IF l_debug_on THEN
293: WSH_DEBUG_SV.pop(l_module_name,'Nothing changed');
294: END IF;
295: --
296: RETURN;
297: END IF;
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;
316: --
317: RETURN;
318: END IF;
323: CLOSE c_cache_attributes_1;
324: END IF;
325: --
326: IF l_debug_on THEN
327: WSH_DEBUG_SV.logmsg(l_module_name, 'CACHED ATTRIBUTES FOR '|| G_CACHE_DETAIL_REC.SOURCE_CODE || ' LINE: '|| G_CACHE_DETAIL_REC.SOURCE_LINE_ID || ' DD: '||G_CACHE_DETAIL_REC.DELIVERY_DETAIL_ID );
328: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG : '|| G_CACHE_DETAIL_REC.ORGANIZATION_ID ||' ORIG_SUB: '|| G_CACHE_DETAIL_REC.SUBINVENTORY|| ' DATE_SCHED: '|| G_CACHE_DETAIL_REC.DATE_SCHEDULED );
329: WSH_DEBUG_SV.logmsg(l_module_name, ' SHIP_SET: '|| G_CACHE_DETAIL_REC.SHIP_SET_ID || ' DEL GRP ATTR: ...' );
330: WSH_DEBUG_SV.logmsg(l_module_name,
331: G_CACHE_DETAIL_REC.SHIP_TO_SITE_USE_ID
324: END IF;
325: --
326: IF l_debug_on THEN
327: WSH_DEBUG_SV.logmsg(l_module_name, 'CACHED ATTRIBUTES FOR '|| G_CACHE_DETAIL_REC.SOURCE_CODE || ' LINE: '|| G_CACHE_DETAIL_REC.SOURCE_LINE_ID || ' DD: '||G_CACHE_DETAIL_REC.DELIVERY_DETAIL_ID );
328: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG : '|| G_CACHE_DETAIL_REC.ORGANIZATION_ID ||' ORIG_SUB: '|| G_CACHE_DETAIL_REC.SUBINVENTORY|| ' DATE_SCHED: '|| G_CACHE_DETAIL_REC.DATE_SCHEDULED );
329: WSH_DEBUG_SV.logmsg(l_module_name, ' SHIP_SET: '|| G_CACHE_DETAIL_REC.SHIP_SET_ID || ' DEL GRP ATTR: ...' );
330: WSH_DEBUG_SV.logmsg(l_module_name,
331: G_CACHE_DETAIL_REC.SHIP_TO_SITE_USE_ID
332: ||' - '
325: --
326: IF l_debug_on THEN
327: WSH_DEBUG_SV.logmsg(l_module_name, 'CACHED ATTRIBUTES FOR '|| G_CACHE_DETAIL_REC.SOURCE_CODE || ' LINE: '|| G_CACHE_DETAIL_REC.SOURCE_LINE_ID || ' DD: '||G_CACHE_DETAIL_REC.DELIVERY_DETAIL_ID );
328: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG : '|| G_CACHE_DETAIL_REC.ORGANIZATION_ID ||' ORIG_SUB: '|| G_CACHE_DETAIL_REC.SUBINVENTORY|| ' DATE_SCHED: '|| G_CACHE_DETAIL_REC.DATE_SCHEDULED );
329: WSH_DEBUG_SV.logmsg(l_module_name, ' SHIP_SET: '|| G_CACHE_DETAIL_REC.SHIP_SET_ID || ' DEL GRP ATTR: ...' );
330: WSH_DEBUG_SV.logmsg(l_module_name,
331: G_CACHE_DETAIL_REC.SHIP_TO_SITE_USE_ID
332: ||' - '
333: || G_CACHE_DETAIL_REC.INTMED_SHIP_TO_LOCATION_ID
326: IF l_debug_on THEN
327: WSH_DEBUG_SV.logmsg(l_module_name, 'CACHED ATTRIBUTES FOR '|| G_CACHE_DETAIL_REC.SOURCE_CODE || ' LINE: '|| G_CACHE_DETAIL_REC.SOURCE_LINE_ID || ' DD: '||G_CACHE_DETAIL_REC.DELIVERY_DETAIL_ID );
328: WSH_DEBUG_SV.logmsg(l_module_name, 'ORG : '|| G_CACHE_DETAIL_REC.ORGANIZATION_ID ||' ORIG_SUB: '|| G_CACHE_DETAIL_REC.SUBINVENTORY|| ' DATE_SCHED: '|| G_CACHE_DETAIL_REC.DATE_SCHEDULED );
329: WSH_DEBUG_SV.logmsg(l_module_name, ' SHIP_SET: '|| G_CACHE_DETAIL_REC.SHIP_SET_ID || ' DEL GRP ATTR: ...' );
330: WSH_DEBUG_SV.logmsg(l_module_name,
331: G_CACHE_DETAIL_REC.SHIP_TO_SITE_USE_ID
332: ||' - '
333: || G_CACHE_DETAIL_REC.INTMED_SHIP_TO_LOCATION_ID
334: || ' - '
340: || ' - '
341: || G_CACHE_DETAIL_REC.SHIP_METHOD_CODE
342: || ' - '
343: || G_CACHE_DETAIL_REC.CARRIER_ID );
344: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUESTED_QUANTITY : '|| G_CACHE_DETAIL_REC.REQUESTED_QUANTITY|| ' '|| G_CACHE_DETAIL_REC.REQUESTED_QUANTITY_UOM );
345: WSH_DEBUG_SV.pop(l_module_name);
346: END IF;
347: --
348: EXCEPTION
341: || G_CACHE_DETAIL_REC.SHIP_METHOD_CODE
342: || ' - '
343: || G_CACHE_DETAIL_REC.CARRIER_ID );
344: WSH_DEBUG_SV.logmsg(l_module_name, 'REQUESTED_QUANTITY : '|| G_CACHE_DETAIL_REC.REQUESTED_QUANTITY|| ' '|| G_CACHE_DETAIL_REC.REQUESTED_QUANTITY_UOM );
345: WSH_DEBUG_SV.pop(l_module_name);
346: END IF;
347: --
348: EXCEPTION
349:
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;
364: --
365: END Cache_Changed_Attributes;
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;
364: --
365: END Cache_Changed_Attributes;
366:
402: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
403: --
404: IF l_debug_on IS NULL
405: THEN
406: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
407: END IF;
408: --
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.push(l_module_name);
406: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
407: END IF;
408: --
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.push(l_module_name);
411: --
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;
408: --
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.push(l_module_name);
411: --
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;
409: IF l_debug_on THEN
410: WSH_DEBUG_SV.push(l_module_name);
411: --
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';
419: IF g_cache_wms_org_id = p_organization_id THEN
420: x_wms_flag := g_cache_wms_flag;
421: --
422: IF l_debug_on THEN
423: WSH_DEBUG_SV.pop(l_module_name);
424: END IF;
425: --
426: RETURN;
427: END IF;
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;
444: --
445: raise others;
446: END IF;
451: END IF;
452:
453: --
454: IF l_debug_on THEN
455: WSH_DEBUG_SV.log(l_module_name,'l_wms_installed',l_wms_installed);
456: WSH_DEBUG_SV.log(l_module_name,'x_wms_flag',x_wms_flag);
457: WSH_DEBUG_SV.pop(l_module_name);
458: END IF;
459: --
452:
453: --
454: IF l_debug_on THEN
455: WSH_DEBUG_SV.log(l_module_name,'l_wms_installed',l_wms_installed);
456: WSH_DEBUG_SV.log(l_module_name,'x_wms_flag',x_wms_flag);
457: WSH_DEBUG_SV.pop(l_module_name);
458: END IF;
459: --
460: EXCEPTION
453: --
454: IF l_debug_on THEN
455: WSH_DEBUG_SV.log(l_module_name,'l_wms_installed',l_wms_installed);
456: WSH_DEBUG_SV.log(l_module_name,'x_wms_flag',x_wms_flag);
457: WSH_DEBUG_SV.pop(l_module_name);
458: END IF;
459: --
460: EXCEPTION
461: WHEN OTHERS THEN
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;
468: --
469: END Check_WMS;
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;
468: --
469: END Check_WMS;
470:
497: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
498: --
499: IF l_debug_on IS NULL
500: THEN
501: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
502: END IF;
503: --
504: IF l_debug_on THEN
505: WSH_DEBUG_SV.push(l_module_name);
501: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
502: END IF;
503: --
504: IF l_debug_on THEN
505: WSH_DEBUG_SV.push(l_module_name);
506: --
507: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
508: END IF;
509: -- calls to categories should be sequenced correctly to avoid conflicts:
503: --
504: IF l_debug_on THEN
505: WSH_DEBUG_SV.push(l_module_name);
506: --
507: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
508: END IF;
509: -- calls to categories should be sequenced correctly to avoid conflicts:
510: -- Each category validates the conditions and performs actions that can change conditions.
511:
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;
523: END IF;
524:
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;
559: END IF;
560:
621: x_return_status := l_rs;
622: x_update_allowed := l_update_allowed;
623: --
624: IF l_debug_on THEN
625: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
626: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
627: WSH_DEBUG_SV.pop(l_module_name);
628: END IF;
629: --
622: x_update_allowed := l_update_allowed;
623: --
624: IF l_debug_on THEN
625: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
626: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
627: WSH_DEBUG_SV.pop(l_module_name);
628: END IF;
629: --
630: EXCEPTION
623: --
624: IF l_debug_on THEN
625: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
626: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
627: WSH_DEBUG_SV.pop(l_module_name);
628: END IF;
629: --
630: EXCEPTION
631: WHEN update_not_allowed THEN
632: x_update_allowed := l_update_allowed;
633: x_return_status := l_rs;
634: --
635: IF l_debug_on THEN
636: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
637: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
638: END IF;
639: --
640: RETURN;
633: x_return_status := l_rs;
634: --
635: IF l_debug_on THEN
636: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
637: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
638: END IF;
639: --
640: RETURN;
641: WHEN OTHERS THEN
642: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
643: wsh_util_core.default_handler('WSH_USA_CATEGORIES_PVT.Check_Categories',l_module_name);
644: --
645: IF l_debug_on THEN
646: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
648: END IF;
649: --
650: END Check_Attributes;
643: wsh_util_core.default_handler('WSH_USA_CATEGORIES_PVT.Check_Categories',l_module_name);
644: --
645: IF l_debug_on THEN
646: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
647: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
648: END IF;
649: --
650: END Check_Attributes;
651:
697: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
698: --
699: IF l_debug_on IS NULL
700: THEN
701: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
702: END IF;
703: --
704: IF l_debug_on THEN
705: WSH_DEBUG_SV.push(l_module_name);
701: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
702: END IF;
703: --
704: IF l_debug_on THEN
705: WSH_DEBUG_SV.push(l_module_name);
706: --
707: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
708: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
709: END IF;
703: --
704: IF l_debug_on THEN
705: WSH_DEBUG_SV.push(l_module_name);
706: --
707: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
708: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
709: END IF;
710:
711: IF (g_cache_detail_rec.container_flag = 'N') THEN
704: IF l_debug_on THEN
705: WSH_DEBUG_SV.push(l_module_name);
706: --
707: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
708: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
709: END IF;
710:
711: IF (g_cache_detail_rec.container_flag = 'N') THEN
712:
738: ||'Earliest Ship Date : '||p_attributes_rec.earliest_ship_date
739: ||'Schedulde Ship Date : '||p_attributes_rec.date_scheduled
740: );
741: IF l_debug_on THEN
742: WSH_DEBUG_SV.log(l_module_name,'Error in calculating TP dates: Date Type : '||l_datetype
743: ||'Latest Acceptable Date : '||p_attributes_rec.latest_acceptable_date
744: ||'Promise Date : '||p_attributes_rec.promise_date
745: ||'Schedule Arr Date : '||p_attributes_rec.schedule_arrival_date
746: ||'Earliest Acceptable Date : '||p_attributes_rec.earliest_acceptable_date
769: END IF; -- g_cache_detail_rec.container_flag
770:
771: --
772: IF l_debug_on THEN
773: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
774: WSH_DEBUG_SV.pop(l_module_name);
775: END IF;
776: --
777: EXCEPTION
770:
771: --
772: IF l_debug_on THEN
773: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
774: WSH_DEBUG_SV.pop(l_module_name);
775: END IF;
776: --
777: EXCEPTION
778:
782: x_update_allowed := 'N';
783: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_TP_DATES',l_module_name);
784: --
785: IF l_debug_on THEN
786: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
787: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
788: END IF;
789: --
790: END Change_TP_Dates;
783: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_TP_DATES',l_module_name);
784: --
785: IF l_debug_on THEN
786: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
787: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
788: END IF;
789: --
790: END Change_TP_Dates;
791:
811: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
812: --
813: IF l_debug_on IS NULL
814: THEN
815: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
816: END IF;
817: --
818: IF l_debug_on THEN
819: WSH_DEBUG_SV.push(l_module_name);
815: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
816: END IF;
817: --
818: IF l_debug_on THEN
819: WSH_DEBUG_SV.push(l_module_name);
820: --
821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
822: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
823: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
817: --
818: IF l_debug_on THEN
819: WSH_DEBUG_SV.push(l_module_name);
820: --
821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
822: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
823: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
824: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
825: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
818: IF l_debug_on THEN
819: WSH_DEBUG_SV.push(l_module_name);
820: --
821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
822: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
823: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
824: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
825: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
826: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.inventory_item_id ',p_attributes_rec.inventory_item_id );
819: WSH_DEBUG_SV.push(l_module_name);
820: --
821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
822: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
823: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
824: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
825: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
826: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.inventory_item_id ',p_attributes_rec.inventory_item_id );
827: END IF;
820: --
821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
822: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
823: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
824: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
825: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
826: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.inventory_item_id ',p_attributes_rec.inventory_item_id );
827: END IF;
828: --bug#6407943
821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
822: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
823: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
824: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
825: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
826: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.inventory_item_id ',p_attributes_rec.inventory_item_id );
827: END IF;
828: --bug#6407943
829: -- There is a possibility of having quantity change on delivery lines when there is a change in org
822: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
823: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
824: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
825: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
826: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.inventory_item_id ',p_attributes_rec.inventory_item_id );
827: END IF;
828: --bug#6407943
829: -- There is a possibility of having quantity change on delivery lines when there is a change in org
830: -- value on sales order line and item's primary uom is different in old and new orgs.
846:
847: END IF;
848: --
849: IF l_debug_on THEN
850: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
851: WSH_DEBUG_SV.pop(l_module_name);
852: END IF;
853: --
854: EXCEPTION
847: END IF;
848: --
849: IF l_debug_on THEN
850: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
851: WSH_DEBUG_SV.pop(l_module_name);
852: END IF;
853: --
854: EXCEPTION
855:
856: WHEN update_not_allowed THEN
857: x_update_allowed := 'N';
858: --
859: IF l_debug_on THEN
860: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
861: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
862: END IF;
863: --
864: RETURN;
857: x_update_allowed := 'N';
858: --
859: IF l_debug_on THEN
860: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
861: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
862: END IF;
863: --
864: RETURN;
865: WHEN OTHERS THEN
868: x_update_allowed := 'N';
869: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Quantity',l_module_name);
870: --
871: IF l_debug_on THEN
872: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
873: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
874: END IF;
875: --
876: END Change_Quantity;
869: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Quantity',l_module_name);
870: --
871: IF l_debug_on THEN
872: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
873: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
874: END IF;
875: --
876: END Change_Quantity;
877:
1053: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1054: --
1055: IF l_debug_on IS NULL
1056: THEN
1057: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1058: END IF;
1059: --
1060: IF l_debug_on THEN
1061: WSH_DEBUG_SV.push(l_module_name);
1057: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1058: END IF;
1059: --
1060: IF l_debug_on THEN
1061: WSH_DEBUG_SV.push(l_module_name);
1062: --
1063: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1064: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
1065: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
1059: --
1060: IF l_debug_on THEN
1061: WSH_DEBUG_SV.push(l_module_name);
1062: --
1063: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1064: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
1065: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
1066: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CHANGE_SCHEDULE : ' || P_ATTRIBUTES_REC.SHIP_FROM_ORG_ID || 'SUB ' || P_ATTRIBUTES_REC.SUBINVENTORY || ' SCHED DATE ' || P_ATTRIBUTES_REC.DATE_SCHEDULED );
1067: END IF;
1060: IF l_debug_on THEN
1061: WSH_DEBUG_SV.push(l_module_name);
1062: --
1063: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1064: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
1065: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
1066: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CHANGE_SCHEDULE : ' || P_ATTRIBUTES_REC.SHIP_FROM_ORG_ID || 'SUB ' || P_ATTRIBUTES_REC.SUBINVENTORY || ' SCHED DATE ' || P_ATTRIBUTES_REC.DATE_SCHEDULED );
1067: END IF;
1068: --
1061: WSH_DEBUG_SV.push(l_module_name);
1062: --
1063: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1064: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
1065: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
1066: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CHANGE_SCHEDULE : ' || P_ATTRIBUTES_REC.SHIP_FROM_ORG_ID || 'SUB ' || P_ATTRIBUTES_REC.SUBINVENTORY || ' SCHED DATE ' || P_ATTRIBUTES_REC.DATE_SCHEDULED );
1067: END IF;
1068: --
1069: SAVEPOINT before_changes;
1062: --
1063: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1064: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
1065: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
1066: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CHANGE_SCHEDULE : ' || P_ATTRIBUTES_REC.SHIP_FROM_ORG_ID || 'SUB ' || P_ATTRIBUTES_REC.SUBINVENTORY || ' SCHED DATE ' || P_ATTRIBUTES_REC.DATE_SCHEDULED );
1067: END IF;
1068: --
1069: SAVEPOINT before_changes;
1070: -- Bug 2114166 Do not perform actions if the line is getting cancelled.
1071:
1072: IF p_attributes_rec.ordered_quantity = 0 THEN
1073: --
1074: IF l_debug_on THEN
1075: WSH_DEBUG_SV.pop(l_module_name,'line is being cancelled');
1076: END IF;
1077: --
1078: RETURN;
1079: END IF;
1117: -- Item substitution project :bug#6077222
1118: --Begin.
1119: --1. Check whether item has been changed.
1120: IF l_debug_on THEN
1121: WSH_DEBUG_SV.logmsg(l_module_name, 'Old inventory_item_id '||g_cache_detail_rec.inventory_item_id ||
1122: ' New inventory_item_id '||p_attributes_rec.inventory_item_id);
1123: END IF;
1124: IF ( (p_attributes_rec.inventory_item_id <> FND_API.G_MISS_NUM)
1125: AND (p_attributes_rec.inventory_item_id <> g_cache_detail_rec.inventory_item_id) ) THEN
1132: IF INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => g_cache_detail_rec.organization_id) THEN
1133: --{
1134: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1135: IF l_debug_on THEN
1136: WSH_DEBUG_SV.logmsg(l_module_name, 'Item Update is not allowed as it is associated to OPM organization.');
1137: END IF;
1138: RAISE item_update_not_allowed;
1139: --}
1140: END IF;
1146: IF INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => l_final_org_id) THEN
1147: --{
1148: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1149: IF l_debug_on THEN
1150: WSH_DEBUG_SV.logmsg(l_module_name, 'Item Update is not allowed as it is associated to OPM organization.');
1151: END IF;
1152: RAISE item_update_not_allowed;
1153: --}
1154: END IF;
1164: IF c_det_status%FOUND THEN
1165: CLOSE c_det_status;
1166: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1167: IF l_debug_on THEN
1168: WSH_DEBUG_SV.logmsg(l_module_name, 'Item Update is not allowed as there are Detail(s) that are already Pick Released ');
1169: END IF;
1170: RAISE item_update_not_allowed;
1171: END IF;
1172: CLOSE c_det_status;
1177: IF c_packed_det%FOUND THEN
1178: CLOSE c_packed_det;
1179: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1180: IF l_debug_on THEN
1181: WSH_DEBUG_SV.logmsg(l_module_name, 'Item Update is not allowed as there are Detail(s) that are packed into Containers ');
1182: END IF;
1183: RAISE item_update_not_allowed;
1184: END IF;
1185: CLOSE c_packed_det;
1191: CLOSE c_del_status;
1192: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1193: IF l_debug_on THEN
1194: IF ( l_del_status in ('SA','SR') ) THEN
1195: 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);
1196: END IF;
1197: IF ( l_export_screening_flag in ('C','A') ) THEN
1198: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as export compliance screening is enabled at delivery creation/delivery creation and ship confirm '||l_export_screening_flag);
1199: END IF;
1194: IF ( l_del_status in ('SA','SR') ) THEN
1195: 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);
1196: END IF;
1197: IF ( l_export_screening_flag in ('C','A') ) THEN
1198: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as export compliance screening is enabled at delivery creation/delivery creation and ship confirm '||l_export_screening_flag);
1199: END IF;
1200: END IF;
1201: RAISE item_update_not_allowed;
1202: END IF;
1212: IF (g_cache_detail_rec.requested_quantity_uom <> l_item_rec.primary_uom_code ) THEN
1213: --{
1214: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1215: IF l_debug_on THEN
1216: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as there is a difference in primary UOM for old and new item');
1217: END IF;
1218: RAISE item_update_not_allowed;
1219: --}
1220: END IF;
1246: IF NVL(l_new_tot_requested_quantity, 0) <> nvl(l_old_tot_requested_quantity,0) THEN
1247: --{
1248: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1249: IF l_debug_on THEN
1250: WSH_DEBUG_SV.logmsg(l_module_name, 'Update is not allowed as there is a difference in UOM conversions for old and new item');
1251: END IF;
1252: RAISE item_update_not_allowed;
1253: --}
1254: END IF;
1255: --} Item substitute validations
1256: END IF;
1257:
1258: IF l_debug_on THEN
1259: WSH_DEBUG_SV.logmsg(l_module_name, 'l_change_sub_only:'||l_change_sub_only||', l_change_item:'||l_change_item);
1260: END IF;
1261:
1262: IF l_change_sub_only IS NOT NULL OR l_change_item = 'Y' THEN
1263: --{
1265: g_cache_detail_rec.cache_flag := 'N';
1266:
1267: --
1268: IF l_debug_on THEN
1269: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS NOT NULL' );
1270: END IF;
1271: --
1272: IF l_change_item = 'Y' THEN
1273: --{
1280: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1281: --{
1282: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1283: IF l_debug_on THEN
1284: 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);
1285: END IF;
1286: RAISE item_update_not_allowed;
1287: --}
1288: END IF;
1286: RAISE item_update_not_allowed;
1287: --}
1288: END IF;
1289: IF l_debug_on THEN
1290: WSH_DEBUG_SV.logmsg(l_module_name, 'l_shipping_param_info.otm_enabled: '||l_shipping_param_info.otm_enabled);
1291: END IF;
1292: --}
1293: END IF;
1294: --
1314: i := i + 1;
1315: l_del_tab(i) := l_delivery;
1316: --
1317: IF l_debug_on THEN
1318: WSH_DEBUG_SV.logmsg(l_module_name, 'ADDING DELIVERY '|| L_DELIVERY || 'TO MARK LIST'||',l_del_planned_flag: '||l_del_planned_flag||',l_tms_interface_flag: '||l_tms_interface_flag);
1319: END IF;
1320: --
1321:
1322: IF l_change_item = 'Y' THEN
1339: IF ( l_change_sub_only IS NOT NULL ) THEN
1340: --{
1341: IF l_status = 'Y' AND p_wms_flag = 'Y' THEN
1342: IF l_debug_on THEN
1343: WSH_DEBUG_SV.log(l_module_name,'l_status is set to Y');
1344: END IF;
1345: FND_MESSAGE.SET_NAME('WSH', 'WSH_WMS_UPDATE_NOT_ALLOWED');
1346: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1347: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
1353:
1354: IF l_change_sub_only = 'Y' THEN
1355: --
1356: IF l_debug_on THEN
1357: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1358: END IF;
1359: --
1360: IF l_status NOT IN ('S','Y') THEN
1361:
1387: -- Here, we set l_change_sub_only to 'X' only if we do need to change the subinventory.
1388: -- if l_change_sub_only remains at 'Y' we do not go ahead with the changes.
1389: --
1390: IF l_debug_on THEN
1391: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1392: END IF;
1393: --
1394: IF l_change_sub_only IN ('N', 'X') OR l_change_item = 'Y' THEN
1395:
1396: --
1397: IF l_change_sub_only IN ('N', 'X') THEN
1398: --
1399: IF l_debug_on THEN
1400: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CHANGE_SCHEDULE DOING ACTIONS' );
1401: END IF;
1402: l_change_resv_flag := 'Y';
1403:
1404: END IF ; --Bug 6732141
1420: -- HW OPM code for OM changes. Need to branch
1421: -- HW OPMCONV. Removed branching
1422: --
1423: IF l_debug_on THEN
1424: WSH_DEBUG_SV.log(l_module_name,'l_del_det',l_del_det);
1425: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
1426: END IF;
1427: --
1428: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
1421: -- HW OPMCONV. Removed branching
1422: --
1423: IF l_debug_on THEN
1424: WSH_DEBUG_SV.log(l_module_name,'l_del_det',l_del_det);
1425: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
1426: END IF;
1427: --
1428: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
1429: p_line_id => l_mo_line,
1436: );
1437:
1438: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
1439: IF l_debug_on THEN
1440: WSH_DEBUG_SV.log(l_module_name,'Cancel_Move_Order_Line returned error');
1441: END IF;
1442: RAISE update_not_allowed;
1443: END IF;
1444:
1539: END IF; -- IF l_serial_number IS NOT NULL
1540:
1541: -- bug fix 2095105
1542: IF l_debug_on THEN
1543: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY = ' || L_DET_PIC_QTY );
1544: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY = ' || L_DET_REQ_QTY );
1545: -- HW OPMCONV -Print Qty2
1546: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY2 = ' || L_DET_PIC_QTY2 );
1547: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY2 = ' || L_DET_REQ_QTY2 );
1540:
1541: -- bug fix 2095105
1542: IF l_debug_on THEN
1543: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY = ' || L_DET_PIC_QTY );
1544: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY = ' || L_DET_REQ_QTY );
1545: -- HW OPMCONV -Print Qty2
1546: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY2 = ' || L_DET_PIC_QTY2 );
1547: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY2 = ' || L_DET_REQ_QTY2 );
1548: END IF;
1542: IF l_debug_on THEN
1543: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY = ' || L_DET_PIC_QTY );
1544: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY = ' || L_DET_REQ_QTY );
1545: -- HW OPMCONV -Print Qty2
1546: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY2 = ' || L_DET_PIC_QTY2 );
1547: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY2 = ' || L_DET_REQ_QTY2 );
1548: END IF;
1549: ----
1550:
1543: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY = ' || L_DET_PIC_QTY );
1544: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY = ' || L_DET_REQ_QTY );
1545: -- HW OPMCONV -Print Qty2
1546: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY2 = ' || L_DET_PIC_QTY2 );
1547: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY2 = ' || L_DET_REQ_QTY2 );
1548: END IF;
1549: ----
1550:
1551: IF ( l_det_pic_qty > l_det_req_qty) THEN
1549: ----
1550:
1551: IF ( l_det_pic_qty > l_det_req_qty) THEN
1552: IF l_debug_on THEN
1553: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY AGAIN = ' || L_DET_PIC_QTY );
1554: END IF;
1555:
1556: -- HW OPMCONV - Pass Qty2
1557: WSH_DELIVERY_DETAILS_ACTIONS.Unreserve_delivery_detail
1578: l_change_replenish_status := 'Y';
1579: IF ( l_replenish_status = 'R' ) THEN
1580: --{
1581: IF l_debug_on THEN
1582: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1583: END IF;
1584: WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL(
1585: p_delivery_detail_id => l_del_det,
1586: p_primary_quantity => 0, --- WMS will delete the records from WMS table.
1587: x_return_status => x_return_status);
1588: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1589: --{
1590: IF l_debug_on THEN
1591: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
1592: WSH_DEBUG_SV.pop(l_module_name);
1593: END IF;
1594: RETURN;
1595: --}
1588: IF x_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
1589: --{
1590: IF l_debug_on THEN
1591: WSH_DEBUG_SV.logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL');
1592: WSH_DEBUG_SV.pop(l_module_name);
1593: END IF;
1594: RETURN;
1595: --}
1596: END IF;
1608: -- revert old weight and volume information from delivery.
1609: IF l_delivery IS NOT NULL THEN
1610: --{
1611: IF l_debug_on THEN
1612: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1613: END IF;
1614: WSH_WV_UTILS.DD_WV_Post_Process(
1615: p_delivery_detail_id => l_del_det,
1616: p_diff_gross_wt => -1 * l_gross_weight,
1620: x_return_status => l_return_status);
1621: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1622: x_return_status := l_return_status;
1623: IF l_debug_on THEN
1624: WSH_DEBUG_SV.log(l_module_name,'Return Status after DD_WV_Post_Process',x_return_status);
1625: END IF;
1626: RAISE item_update_not_allowed;
1627: END IF;
1628: --} delivery is not null.
1636:
1637: -- bug fix 2095105
1638: --
1639: IF l_debug_on THEN
1640: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CHANGE_SCHEDULE UPDATING WDD' );
1641: END IF;
1642: --
1643: -- HW OPM for OM changes. Added preferred_grade
1644: --HW OPMCONV -Added Qty2s
1683:
1684: l_detail_tab(l_detail_tab.count+1) := l_del_det ; -- added for DBI Project
1685:
1686: IF l_debug_on THEN
1687: WSH_DEBUG_SV.log(l_module_name,'Rows updated:',SQL%ROWCOUNT);
1688: END IF;
1689:
1690: IF l_change_item = 'Y' and l_delivery IS NOT NULL THEN --{
1691: -- Propagate new weight and volume for UOMs change
1689:
1690: IF l_change_item = 'Y' and l_delivery IS NOT NULL THEN --{
1691: -- Propagate new weight and volume for UOMs change
1692: IF l_debug_on THEN
1693: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1694: END IF;
1695: WSH_WV_UTILS.DD_WV_Post_Process(
1696: p_delivery_detail_id => l_del_det,
1697: p_diff_gross_wt => l_new_weight,
1701: x_return_status => l_return_status);
1702: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1703: x_return_status := l_return_status;
1704: IF l_debug_on THEN
1705: WSH_DEBUG_SV.log(l_module_name,'Return Status after DD_WV_Post_Process',x_return_status);
1706: END IF;
1707: RAISE item_update_not_allowed;
1708: END IF;
1709: --} Weight / Volume Propagation for Item change
1721: -- Update of wsh_delivery_details where released_status
1722: -- are changed, call DBI API after the update.
1723: -- This API will also check for DBI Installed or not
1724: IF l_debug_on THEN
1725: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API. delivery details l_detail_tab count',l_detail_tab.count);
1726: END IF;
1727: WSH_INTEGRATION.DBI_Update_Detail_Log
1728: (p_delivery_detail_id_tab => l_detail_tab,
1729: p_dml_type => 'UPDATE',
1729: p_dml_type => 'UPDATE',
1730: x_return_status => l_dbi_rs);
1731:
1732: IF l_debug_on THEN
1733: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1734: END IF;
1735: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1736: x_return_status := l_dbi_rs;
1737: Rollback to before_changes;
1736: x_return_status := l_dbi_rs;
1737: Rollback to before_changes;
1738: -- just pass this return status to caller API
1739: IF l_debug_on THEN
1740: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1741: WSH_DEBUG_SV.pop(l_module_name);
1742: END IF;
1743: return;
1744: END IF;
1737: Rollback to before_changes;
1738: -- just pass this return status to caller API
1739: IF l_debug_on THEN
1740: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1741: WSH_DEBUG_SV.pop(l_module_name);
1742: END IF;
1743: return;
1744: END IF;
1745: -- End of Code for DBI Project
1762: --brana
1763: IF l_change_item = 'Y' THEN
1764: --{
1765: IF l_debug_on THEN
1766: WSH_DEBUG_SV.log(l_module_name,'l_del_planned_tab count',l_del_planned_tab.count);
1767: END IF;
1768: --Intialize the message and location id
1769: IF ( l_del_planned_tab.count > 0) THEN
1770: --{
1780: i := l_del_planned_tab.FIRST;
1781: WHILE i is not null LOOP
1782: --{
1783: IF l_debug_on THEN
1784: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_XC_UTIL.LOG_EXCEPTION for planned delivery '||l_del_planned_tab(i),WSH_DEBUG_SV.C_PROC_LEVEL);
1785: END IF;
1786: WSH_XC_UTIL.Log_Exception(
1787: p_api_version => 1.0,
1788: x_return_status => l_exception_return_status,
1798: p_delivery_id => l_del_planned_tab(i),
1799: p_error_message => l_exception_error_message);
1800: i := l_del_planned_tab.NEXT(i);
1801: IF l_debug_on THEN
1802: WSH_DEBUG_SV.log(l_module_name,'log_exception l_exception_return_status',l_exception_return_status);
1803: END IF;
1804: --}
1805: END LOOP;
1806:
1805: END LOOP;
1806:
1807: -- OTM Deliveries Mark for Update
1808: IF l_debug_on THEN
1809: WSH_DEBUG_SV.log(l_module_name,'l_otm_del_tab count',l_otm_del_tab.count);
1810: END IF;
1811: i := l_otm_del_tab.FIRST;
1812: j := 0;
1813: WHILE i is not null LOOP --{
1817: i := l_otm_del_tab.NEXT(i);
1818: END LOOP;
1819: IF l_delivery_id_tab.FIRST IS NOT NULL THEN
1820: IF l_debug_on THEN
1821: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
1822: END IF;
1823: WSH_NEW_DELIVERIES_PVT.Update_TMS_Interface_Flag
1824: (p_delivery_id_tab => l_delivery_id_tab,
1825: p_tms_interface_flag_tab => l_tms_interface_flag_tab,
1826: x_return_status => l_return_status);
1827: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
1828: x_return_status := l_return_status;
1829: IF l_debug_on THEN
1830: WSH_DEBUG_SV.log(l_module_name,'Return Status from WSH_NEW_DELIVERIES_PVT.Update_Tms_interface_flag',l_return_status);
1831: END IF;
1832: RAISE item_update_not_allowed;
1833: END IF;
1834: END IF; --}
1859: END IF;
1860:
1861: --END IF;
1862: IF l_debug_on THEN
1863: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1864: END IF;
1865: --
1866: --bug#6407943: begin.
1867: --Creation of reservations should be stopped when
1875: OPEN C_item_details(p_attributes_rec.ship_from_org_id,g_cache_detail_rec.inventory_item_id);
1876: FETCH C_item_details INTO l_primary_uom;
1877: CLOSE C_item_details;
1878: IF l_debug_on THEN
1879: WSH_DEBUG_SV.log(l_module_name,'new primary uom',l_primary_uom);
1880: WSH_DEBUG_SV.log(l_module_name,'old primary uom',g_cache_detail_rec.requested_quantity_uom);
1881: END IF;
1882: IF (l_primary_uom <> g_cache_detail_rec.requested_quantity_uom) THEN
1883: l_create_reservation := 'N';
1876: FETCH C_item_details INTO l_primary_uom;
1877: CLOSE C_item_details;
1878: IF l_debug_on THEN
1879: WSH_DEBUG_SV.log(l_module_name,'new primary uom',l_primary_uom);
1880: WSH_DEBUG_SV.log(l_module_name,'old primary uom',g_cache_detail_rec.requested_quantity_uom);
1881: END IF;
1882: IF (l_primary_uom <> g_cache_detail_rec.requested_quantity_uom) THEN
1883: l_create_reservation := 'N';
1884: END IF;
1905:
1906: --oe_debug_pub.add('In change_schedule : unsched_flag '||l_unsched_flag, 2 );
1907: IF l_change_sub_only = 'N' THEN
1908: IF l_debug_on THEN
1909: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1910: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW ORG: '||P_ATTRIBUTES_REC.SHIP_FROM_ORG_ID );
1911: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
1912: END IF;
1913: --
1906: --oe_debug_pub.add('In change_schedule : unsched_flag '||l_unsched_flag, 2 );
1907: IF l_change_sub_only = 'N' THEN
1908: IF l_debug_on THEN
1909: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1910: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW ORG: '||P_ATTRIBUTES_REC.SHIP_FROM_ORG_ID );
1911: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
1912: END IF;
1913: --
1914: -- HW OPMCONV - Print values
1907: IF l_change_sub_only = 'N' THEN
1908: IF l_debug_on THEN
1909: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1910: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW ORG: '||P_ATTRIBUTES_REC.SHIP_FROM_ORG_ID );
1911: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
1912: END IF;
1913: --
1914: -- HW OPMCONV - Print values
1915: IF l_debug_on THEN
1913: --
1914: -- HW OPMCONV - Print values
1915: IF l_debug_on THEN
1916:
1917: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1918: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1919: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
1920: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
1921: END IF;
1914: -- HW OPMCONV - Print values
1915: IF l_debug_on THEN
1916:
1917: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1918: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1919: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
1920: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
1921: END IF;
1922: -- Resetting the Reservations Record Structure
1915: IF l_debug_on THEN
1916:
1917: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1918: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1919: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
1920: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
1921: END IF;
1922: -- Resetting the Reservations Record Structure
1923: l_resv_tbl(i).organization_id := p_attributes_rec.ship_from_org_id;
1916:
1917: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1918: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1919: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
1920: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
1921: END IF;
1922: -- Resetting the Reservations Record Structure
1923: l_resv_tbl(i).organization_id := p_attributes_rec.ship_from_org_id;
1924: l_resv_tbl(i).subinventory_code := p_attributes_rec.subinventory;
1954: ELSIF l_change_sub_only = 'X' THEN
1955:
1956: -- HW OPMCONV - Print values
1957: IF l_debug_on THEN
1958: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1959: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
1960: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1961: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1962: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1955:
1956: -- HW OPMCONV - Print values
1957: IF l_debug_on THEN
1958: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1959: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
1960: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1961: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1962: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1963: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
1956: -- HW OPMCONV - Print values
1957: IF l_debug_on THEN
1958: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1959: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
1960: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1961: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1962: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1963: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
1964: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
1957: IF l_debug_on THEN
1958: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1959: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
1960: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1961: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1962: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1963: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
1964: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
1965: END IF;
1958: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1959: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
1960: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1961: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1962: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1963: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
1964: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
1965: END IF;
1966: --
1959: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
1960: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1961: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1962: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1963: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
1964: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
1965: END IF;
1966: --
1967: l_resv_tbl(i).subinventory_code := p_attributes_rec.subinventory;
1960: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1961: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
1962: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
1963: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
1964: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
1965: END IF;
1966: --
1967: l_resv_tbl(i).subinventory_code := p_attributes_rec.subinventory;
1968: l_resv_tbl(i).revision := NULL;
1991:
1992: END IF;
1993: --
1994: IF l_debug_on THEN
1995: wsh_debug_sv.logmsg(l_module_name, 'Actual reservation record
1996: being passed to INV');
1997: wsh_debug_Sv.log(l_module_name, 'RSV record.staged_flag',
1998: l_resv_tbl(i).staged_flag);
1999: wsh_debug_sv.log(l_module_name, 'RSV record org Id',
1993: --
1994: IF l_debug_on THEN
1995: wsh_debug_sv.logmsg(l_module_name, 'Actual reservation record
1996: being passed to INV');
1997: wsh_debug_Sv.log(l_module_name, 'RSV record.staged_flag',
1998: l_resv_tbl(i).staged_flag);
1999: wsh_debug_sv.log(l_module_name, 'RSV record org Id',
2000: l_resv_tbl(i).organization_id);
2001: wsh_debug_sv.log(l_module_name, 'RSV subinventory Code',
1995: wsh_debug_sv.logmsg(l_module_name, 'Actual reservation record
1996: being passed to INV');
1997: wsh_debug_Sv.log(l_module_name, 'RSV record.staged_flag',
1998: l_resv_tbl(i).staged_flag);
1999: wsh_debug_sv.log(l_module_name, 'RSV record org Id',
2000: l_resv_tbl(i).organization_id);
2001: wsh_debug_sv.log(l_module_name, 'RSV subinventory Code',
2002: l_resv_tbl(i).subinventory_code);
2003: END IF;
1997: wsh_debug_Sv.log(l_module_name, 'RSV record.staged_flag',
1998: l_resv_tbl(i).staged_flag);
1999: wsh_debug_sv.log(l_module_name, 'RSV record org Id',
2000: l_resv_tbl(i).organization_id);
2001: wsh_debug_sv.log(l_module_name, 'RSV subinventory Code',
2002: l_resv_tbl(i).subinventory_code);
2003: END IF;
2004: --
2005: -- HW OPMCONV. Pass a new parameter p_qty2
2028: END IF;
2029:
2030: -- deliveryMerge
2031: IF l_debug_on THEN
2032: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
2033: END IF;
2034: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag(
2035: p_delivery_ids => l_del_tab,
2036: p_caller => 'WSH_DLMG',
2038: p_call_lcss => 'Y',
2039: p_event => NULL,
2040: x_return_status => l_return_status);
2041: IF l_debug_on THEN
2042: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag l_return_status',l_return_status);
2043: END IF;
2044:
2045: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2046: raise Adjust_Planned_Flag_Err;
2057: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2058: END IF;
2059: --
2060: IF l_debug_on THEN
2061: WSH_DEBUG_SV.pop(l_module_name);
2062: END IF;
2063: --
2064: EXCEPTION
2065:
2071: FND_MESSAGE.SET_TOKEN('ITEM1',WSH_UTIL_CORE.Get_Item_Name(g_cache_detail_rec.inventory_item_id,l_final_org_id));
2072: FND_MESSAGE.SET_TOKEN('ITEM2',WSH_UTIL_CORE.Get_Item_Name(p_attributes_rec.inventory_item_id,l_final_org_id));
2073: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2074: IF l_debug_on THEN
2075: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2076: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2077: END IF;
2078: --
2079:
2072: FND_MESSAGE.SET_TOKEN('ITEM2',WSH_UTIL_CORE.Get_Item_Name(p_attributes_rec.inventory_item_id,l_final_org_id));
2073: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2074: IF l_debug_on THEN
2075: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2076: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2077: END IF;
2078: --
2079:
2080: WHEN update_not_allowed THEN
2080: WHEN update_not_allowed THEN
2081: x_update_allowed := 'N';
2082: --
2083: IF l_debug_on THEN
2084: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2085: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2086: END IF;
2087: --
2088: WHEN mark_reprice_error THEN
2081: x_update_allowed := 'N';
2082: --
2083: IF l_debug_on THEN
2084: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2085: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2086: END IF;
2087: --
2088: WHEN mark_reprice_error THEN
2089: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2089: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
2090: x_return_status := l_return_status;
2091: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2092: IF l_debug_on THEN
2093: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2094: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2095: END IF;
2096: --
2097: WHEN Adjust_Planned_Flag_Err THEN
2090: x_return_status := l_return_status;
2091: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2092: IF l_debug_on THEN
2093: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2094: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2095: END IF;
2096: --
2097: WHEN Adjust_Planned_Flag_Err THEN
2098: FND_MESSAGE.SET_NAME('WSH', 'WSH_ADJUST_PLANNED_FLAG_ERR');
2099: WSH_UTIL_CORE.add_message(l_return_status,l_module_name);
2100: x_return_status := l_return_status;
2101:
2102: IF l_debug_on THEN
2103: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_Planned_Flag_Err exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2104: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Adjust_Planned_Flag_Err');
2105: END IF;
2106:
2107: WHEN OTHERS THEN
2100: x_return_status := l_return_status;
2101:
2102: IF l_debug_on THEN
2103: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_Planned_Flag_Err exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2104: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Adjust_Planned_Flag_Err');
2105: END IF;
2106:
2107: WHEN OTHERS THEN
2108: IF c_delivery_detail%ISOPEN THEN
2115: x_update_allowed := 'N';
2116: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Schedule',l_module_name);
2117: --
2118: IF l_debug_on THEN
2119: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2121: END IF;
2122: --
2123: END Change_Schedule;
2116: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Schedule',l_module_name);
2117: --
2118: IF l_debug_on THEN
2119: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2120: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2121: END IF;
2122: --
2123: END Change_Schedule;
2124:
2160: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2161: --
2162: IF l_debug_on IS NULL
2163: THEN
2164: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2165: END IF;
2166: --
2167: IF l_debug_on THEN
2168: WSH_DEBUG_SV.push(l_module_name);
2164: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2165: END IF;
2166: --
2167: IF l_debug_on THEN
2168: WSH_DEBUG_SV.push(l_module_name);
2169: --
2170: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2171: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2172: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2166: --
2167: IF l_debug_on THEN
2168: WSH_DEBUG_SV.push(l_module_name);
2169: --
2170: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2171: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2172: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2173: END IF;
2174: --
2167: IF l_debug_on THEN
2168: WSH_DEBUG_SV.push(l_module_name);
2169: --
2170: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2171: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2172: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2173: END IF;
2174: --
2175: IF (p_attributes_rec.date_scheduled <> FND_API.G_MISS_DATE) AND
2168: WSH_DEBUG_SV.push(l_module_name);
2169: --
2170: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2171: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2172: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2173: END IF;
2174: --
2175: IF (p_attributes_rec.date_scheduled <> FND_API.G_MISS_DATE) AND
2176: (g_cache_detail_rec.date_scheduled < p_attributes_rec.date_scheduled) THEN
2177:
2178: g_cache_detail_rec.cache_flag := 'N';
2179: --
2180: IF l_debug_on THEN
2181: WSH_DEBUG_SV.logmsg(l_module_name, 'CHANGE_SCHEDULED_DATE PERFORMING ACTIONS ' );
2182: END IF;
2183: --
2184: OPEN c_delivery_detail;
2185:
2192: i := i+1;
2193: l_det_tab(i) := l_del_det;
2194: --
2195: IF l_debug_on THEN
2196: WSH_DEBUG_SV.logmsg(l_module_name, 'ADDING DELIVERY DETAIL '|| L_DEL_DET || 'TO MARK LIST' );
2197: END IF;
2198: --
2199: Log_Exception(
2200: p_delivery_detail_id => l_del_det,
2224: END IF;
2225: END IF;
2226: --
2227: IF l_debug_on THEN
2228: WSH_DEBUG_SV.pop(l_module_name);
2229: END IF;
2230: --
2231: EXCEPTION
2232:
2233: WHEN update_not_allowed THEN
2234: x_update_allowed := 'N';
2235: --
2236: IF l_debug_on THEN
2237: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2238: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2239: END IF;
2240: --
2241: RETURN;
2234: x_update_allowed := 'N';
2235: --
2236: IF l_debug_on THEN
2237: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2238: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2239: END IF;
2240: --
2241: RETURN;
2242: WHEN mark_reprice_error THEN
2244: x_return_status := l_return_status;
2245: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2246: --
2247: IF l_debug_on THEN
2248: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2249: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2250: END IF;
2251: --
2252: WHEN OTHERS THEN
2245: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2246: --
2247: IF l_debug_on THEN
2248: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2249: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
2250: END IF;
2251: --
2252: WHEN OTHERS THEN
2253: -- close open cursors as needed
2258: x_update_allowed := 'N';
2259: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Scheduled_Date',l_module_name);
2260: --
2261: IF l_debug_on THEN
2262: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2263: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2264: END IF;
2265: --
2266: END Change_Scheduled_Date;
2259: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Scheduled_Date',l_module_name);
2260: --
2261: IF l_debug_on THEN
2262: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2263: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2264: END IF;
2265: --
2266: END Change_Scheduled_Date;
2267:
2322:
2323: BEGIN
2324: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2325: IF l_debug_on IS NULL THEN
2326: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2327: END IF;
2328:
2329: IF l_debug_on THEN
2330: WSH_DEBUG_SV.push(l_module_name);
2326: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2327: END IF;
2328:
2329: IF l_debug_on THEN
2330: WSH_DEBUG_SV.push(l_module_name);
2331: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2332: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2333: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2334: END IF;
2327: END IF;
2328:
2329: IF l_debug_on THEN
2330: WSH_DEBUG_SV.push(l_module_name);
2331: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2332: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2333: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2334: END IF;
2335:
2328:
2329: IF l_debug_on THEN
2330: WSH_DEBUG_SV.push(l_module_name);
2331: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2332: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2333: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2334: END IF;
2335:
2336: IF ((p_attributes_rec.ship_set_id <> FND_API.G_MISS_NUM) OR (p_attributes_rec.ship_set_id IS NULL))AND
2329: IF l_debug_on THEN
2330: WSH_DEBUG_SV.push(l_module_name);
2331: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2332: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2333: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2334: END IF;
2335:
2336: IF ((p_attributes_rec.ship_set_id <> FND_API.G_MISS_NUM) OR (p_attributes_rec.ship_set_id IS NULL))AND
2337: (NVL(p_attributes_rec.ship_set_id, FND_API.G_MISS_NUM) <> NVL(g_cache_detail_rec.ship_set_id, FND_API.G_MISS_NUM))
2375: IF l_status = 'S' AND l_mo_line_id IS NULL THEN
2376: FND_MESSAGE.SET_NAME('WSH','WSH_CHANGE_SET_XDOCK_ERROR');
2377: FND_MESSAGE.SET_TOKEN('DETAIL', l_del_det);
2378: IF l_debug_on THEN
2379: WSH_DEBUG_SV.logmsg(l_module_name, 'CANNOT CHANGE_SETS : LINE IX CROSSDOCKED' );
2380: END IF;
2381: RAISE update_not_allowed;
2382: END IF; -- status = 'S' and MOL is null
2383: -- End of ECO 4497224
2383: -- End of ECO 4497224
2384:
2385: IF l_status = 'S' AND l_mo_line_id IS NOT NULL THEN
2386: IF l_debug_on THEN
2387: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2388: END IF;
2389:
2390: -- HW BUG#:2296620 Need to branch.
2391: -- HW OPMCONV. Removed branching
2394: IF l_mo_line_rec.quantity_detailed > 0 THEN
2395: FND_MESSAGE.SET_NAME('WSH','WSH_CHANGE_SET_ERROR');
2396: FND_MESSAGE.SET_TOKEN('DETAIL', l_del_det);
2397: IF l_debug_on THEN
2398: WSH_DEBUG_SV.logmsg(l_module_name, 'CANNOT CHANGE_SETS : ALLOCATIONS CREATED' );
2399: END IF;
2400: Raise update_not_allowed;
2401: END IF; -- of discrete quantity_detailed
2402:
2407: -- For ensuring the call is for Released to Warehouse only
2408: -- and not Planned for Crossdocking, Bug 5210926
2409: IF l_status = 'S' AND l_mo_line_id IS NOT NULL THEN
2410: IF l_debug_on THEN
2411: WSH_DEBUG_SV.logmsg(l_module_name, 'PERFORMING CHANGE_SETS ' );
2412: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2413: END IF;
2414:
2415: -- HW BUG#:2296620 Need to branch
2408: -- and not Planned for Crossdocking, Bug 5210926
2409: IF l_status = 'S' AND l_mo_line_id IS NOT NULL THEN
2410: IF l_debug_on THEN
2411: WSH_DEBUG_SV.logmsg(l_module_name, 'PERFORMING CHANGE_SETS ' );
2412: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2413: END IF;
2414:
2415: -- HW BUG#:2296620 Need to branch
2416: -- HW OPMCONV. Removed branching
2420: l_trolin_tbl(1).OPERATION := INV_GLOBALS.G_OPR_UPDATE;
2421: l_trolin_tbl(1).ship_set_id := p_attributes_rec.ship_set_id;
2422:
2423: IF l_debug_on THEN
2424: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.PROCESS_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
2425: END IF;
2426:
2427: INV_MOVE_ORDER_PUB.Process_Move_Order_Line(
2428: p_api_version_number => 1.0,
2435: x_trolin_tbl => l_trolin_out_tbl);
2436:
2437: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2438: IF l_debug_on THEN
2439: WSH_DEBUG_SV.log(l_module_name,'Process_Move_Order_Line returns ERROR');
2440: END IF;
2441: RAISE update_not_allowed;
2442: END IF; -- of x_return_status for Discrete
2443:
2454:
2455: END IF;
2456: --
2457: IF l_debug_on THEN
2458: WSH_DEBUG_SV.pop(l_module_name);
2459: END IF;
2460: --
2461: EXCEPTION
2462:
2465: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
2466: x_update_allowed := 'N';
2467: --
2468: IF l_debug_on THEN
2469: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2470: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2471: END IF;
2472: --
2473: WHEN OTHERS THEN
2466: x_update_allowed := 'N';
2467: --
2468: IF l_debug_on THEN
2469: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2470: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2471: END IF;
2472: --
2473: WHEN OTHERS THEN
2474: -- close open cursors as needed
2479: x_update_allowed := 'N';
2480: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Sets',l_module_name);
2481: --
2482: IF l_debug_on THEN
2483: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2484: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2485: END IF;
2486: --
2487: END Change_Sets;
2480: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Sets',l_module_name);
2481: --
2482: IF l_debug_on THEN
2483: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2484: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2485: END IF;
2486: --
2487: END Change_Sets;
2488:
2582: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2583: --
2584: IF l_debug_on IS NULL
2585: THEN
2586: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2587: END IF;
2588: --
2589: IF l_debug_on THEN
2590: WSH_DEBUG_SV.push(l_module_name);
2586: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2587: END IF;
2588: --
2589: IF l_debug_on THEN
2590: WSH_DEBUG_SV.push(l_module_name);
2591: --
2592: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2593: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2594: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2588: --
2589: IF l_debug_on THEN
2590: WSH_DEBUG_SV.push(l_module_name);
2591: --
2592: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2593: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2594: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2595: END IF;
2596: --
2589: IF l_debug_on THEN
2590: WSH_DEBUG_SV.push(l_module_name);
2591: --
2592: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2593: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2594: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2595: END IF;
2596: --
2597: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2590: WSH_DEBUG_SV.push(l_module_name);
2591: --
2592: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2593: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2594: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2595: END IF;
2596: --
2597: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2598: IF p_attributes_rec.ship_from_org_id = FND_API.G_MISS_NUM THEN
2614: l_attr_tab(2).ship_to_location_id := g_cache_detail_rec.ship_to_site_use_id;
2615:
2616:
2617: IF l_debug_on THEN
2618: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.intmed_ship_to_org_id',p_attributes_rec.intmed_ship_to_org_id);
2619: END IF;
2620:
2621: IF p_attributes_rec.intmed_ship_to_org_id = FND_API.G_MISS_NUM THEN
2622:
2665:
2666: END IF;
2667: l_attr_tab(2).freight_terms_code := g_cache_detail_rec.freight_terms_code;
2668: IF l_debug_on THEN
2669: WSH_DEBUG_SV.logmsg(l_module_name, 'freight_terms_code 1: '||p_attributes_rec.freight_terms_code );
2670: WSH_DEBUG_SV.logmsg(l_module_name, 'freight_terms_code 2: '||g_cache_detail_rec.freight_terms_code );
2671: END IF;
2672:
2673: IF p_attributes_rec.fob_code = FND_API.G_MISS_CHAR THEN
2666: END IF;
2667: l_attr_tab(2).freight_terms_code := g_cache_detail_rec.freight_terms_code;
2668: IF l_debug_on THEN
2669: WSH_DEBUG_SV.logmsg(l_module_name, 'freight_terms_code 1: '||p_attributes_rec.freight_terms_code );
2670: WSH_DEBUG_SV.logmsg(l_module_name, 'freight_terms_code 2: '||g_cache_detail_rec.freight_terms_code );
2671: END IF;
2672:
2673: IF p_attributes_rec.fob_code = FND_API.G_MISS_CHAR THEN
2674: l_attr_tab(1).fob_code := g_cache_detail_rec.fob_code;
2690: l_shipment_changed_flag := 'Y';
2691: l_sm_changed_flag := 'Y';
2692:
2693: IF l_debug_on THEN
2694: WSH_DEBUG_SV.logmsg(l_module_name, 'l_shipment_changed_flag: '||l_shipment_changed_flag );
2695: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.shipping_method_code: '||p_attributes_rec.shipping_method_code);
2696: WSH_DEBUG_SV.logmsg(l_module_name, 'g_cache_detail_rec.ship_method_code: '||g_cache_detail_rec.ship_method_code);
2697: END IF;
2698: l_carrier_rec.ship_method_code := p_attributes_rec.shipping_method_code;
2691: l_sm_changed_flag := 'Y';
2692:
2693: IF l_debug_on THEN
2694: WSH_DEBUG_SV.logmsg(l_module_name, 'l_shipment_changed_flag: '||l_shipment_changed_flag );
2695: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.shipping_method_code: '||p_attributes_rec.shipping_method_code);
2696: WSH_DEBUG_SV.logmsg(l_module_name, 'g_cache_detail_rec.ship_method_code: '||g_cache_detail_rec.ship_method_code);
2697: END IF;
2698: l_carrier_rec.ship_method_code := p_attributes_rec.shipping_method_code;
2699:
2692:
2693: IF l_debug_on THEN
2694: WSH_DEBUG_SV.logmsg(l_module_name, 'l_shipment_changed_flag: '||l_shipment_changed_flag );
2695: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.shipping_method_code: '||p_attributes_rec.shipping_method_code);
2696: WSH_DEBUG_SV.logmsg(l_module_name, 'g_cache_detail_rec.ship_method_code: '||g_cache_detail_rec.ship_method_code);
2697: END IF;
2698: l_carrier_rec.ship_method_code := p_attributes_rec.shipping_method_code;
2699:
2700: -- 4673778
2704: p_carrier_service_inout_rec => l_carrier_rec,
2705: x_return_status => x_return_status);
2706: -- 4673778
2707: IF l_debug_on THEN
2708: WSH_DEBUG_SV.logmsg(l_module_name, 'After get_carrier_service_mode'|| x_return_status);
2709: WSH_DEBUG_SV.logmsg(l_module_name, 'l_carrier_rec.genflag#car-id#sm-code#mode-of-tpt#svc-lvl: '||
2710: l_carrier_rec.generic_flag||'#'|| l_carrier_rec.carrier_id||'#'||
2711: l_carrier_rec.ship_method_code||'#'|| l_carrier_rec.mode_of_transport||'#'||
2712: l_carrier_rec.service_level);
2705: x_return_status => x_return_status);
2706: -- 4673778
2707: IF l_debug_on THEN
2708: WSH_DEBUG_SV.logmsg(l_module_name, 'After get_carrier_service_mode'|| x_return_status);
2709: WSH_DEBUG_SV.logmsg(l_module_name, 'l_carrier_rec.genflag#car-id#sm-code#mode-of-tpt#svc-lvl: '||
2710: l_carrier_rec.generic_flag||'#'|| l_carrier_rec.carrier_id||'#'||
2711: l_carrier_rec.ship_method_code||'#'|| l_carrier_rec.mode_of_transport||'#'||
2712: l_carrier_rec.service_level);
2713: END IF;
2788: x_out_rec => l_out_rec,
2789: x_return_status => x_return_status);
2790:
2791: IF l_debug_on THEN
2792: WSH_DEBUG_SV.logmsg(l_module_name, 'return status after Find_Matching_Groups: '||x_return_status );
2793: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2794: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2795: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2796: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
2789: x_return_status => x_return_status);
2790:
2791: IF l_debug_on THEN
2792: WSH_DEBUG_SV.logmsg(l_module_name, 'return status after Find_Matching_Groups: '||x_return_status );
2793: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2794: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2795: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2796: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
2797: WSH_DEBUG_SV.logmsg(l_module_name, 'carrier_id: '||l_group_tab(l_group_tab.first).carrier_id );
2790:
2791: IF l_debug_on THEN
2792: WSH_DEBUG_SV.logmsg(l_module_name, 'return status after Find_Matching_Groups: '||x_return_status );
2793: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2794: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2795: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2796: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
2797: WSH_DEBUG_SV.logmsg(l_module_name, 'carrier_id: '||l_group_tab(l_group_tab.first).carrier_id );
2798: WSH_DEBUG_SV.logmsg(l_module_name, 'ship_method_code: '||l_group_tab(l_group_tab.first).carrier_id );
2791: IF l_debug_on THEN
2792: WSH_DEBUG_SV.logmsg(l_module_name, 'return status after Find_Matching_Groups: '||x_return_status );
2793: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2794: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2795: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2796: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
2797: WSH_DEBUG_SV.logmsg(l_module_name, 'carrier_id: '||l_group_tab(l_group_tab.first).carrier_id );
2798: WSH_DEBUG_SV.logmsg(l_module_name, 'ship_method_code: '||l_group_tab(l_group_tab.first).carrier_id );
2799: END IF;
2792: WSH_DEBUG_SV.logmsg(l_module_name, 'return status after Find_Matching_Groups: '||x_return_status );
2793: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2794: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2795: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2796: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
2797: WSH_DEBUG_SV.logmsg(l_module_name, 'carrier_id: '||l_group_tab(l_group_tab.first).carrier_id );
2798: WSH_DEBUG_SV.logmsg(l_module_name, 'ship_method_code: '||l_group_tab(l_group_tab.first).carrier_id );
2799: END IF;
2800:
2793: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2794: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2795: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2796: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
2797: WSH_DEBUG_SV.logmsg(l_module_name, 'carrier_id: '||l_group_tab(l_group_tab.first).carrier_id );
2798: WSH_DEBUG_SV.logmsg(l_module_name, 'ship_method_code: '||l_group_tab(l_group_tab.first).carrier_id );
2799: END IF;
2800:
2801: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2794: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2795: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2796: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
2797: WSH_DEBUG_SV.logmsg(l_module_name, 'carrier_id: '||l_group_tab(l_group_tab.first).carrier_id );
2798: WSH_DEBUG_SV.logmsg(l_module_name, 'ship_method_code: '||l_group_tab(l_group_tab.first).carrier_id );
2799: END IF;
2800:
2801: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
2802:
2833:
2834:
2835:
2836: IF l_debug_on THEN
2837: WSH_DEBUG_SV.logmsg(l_module_name, 'INSIDE CHANGE_DELIVERY_GROUP : DO ACTIONS ' );
2838: END IF;
2839: --
2840:
2841: IF dd.delivery_id IS NOT NULL THEN
2951: l_delivery_info_tab(1).ship_method_code := l_group_tab(l_group_index).ship_method_code;
2952: END IF;
2953:
2954: IF l_debug_on THEN
2955: WSH_DEBUG_SV.logmsg(l_module_name, 'updating delivery: '||dd.delivery_id );
2956: END IF;
2957:
2958: l_del_in_rec.caller := 'WSH';
2959: l_del_in_rec.action_code := 'UPDATE';
3003: -- Even if the line stays on the container, but the shipmethod has changed, make sure the
3004: -- container is in sync with the line's shipmethod components.
3005:
3006: IF l_debug_on THEN
3007: WSH_DEBUG_SV.logmsg(l_module_name, 'locking container: '||dd.parent_delivery_detail_id );
3008: END IF;
3009:
3010:
3011:
3036: l_detail_info_tab(1).ship_method_code := l_group_tab(l_group_index).ship_method_code;
3037: END IF;
3038:
3039: IF l_debug_on THEN
3040: WSH_DEBUG_SV.logmsg(l_module_name, 'updating container: '||dd.parent_delivery_detail_id );
3041: END IF;
3042:
3043: l_detail_in_rec.caller := 'WSH_USA';
3044: l_detail_in_rec.action_code := 'UPDATE';
3093: END LOOP;
3094:
3095: --
3096: IF l_debug_on THEN
3097: WSH_DEBUG_SV.pop(l_module_name);
3098: END IF;
3099: --
3100: EXCEPTION
3101:
3103: x_update_allowed := 'N';
3104: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3105: --
3106: IF l_debug_on THEN
3107: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3108: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
3109: END IF;
3110: --
3111: RETURN;
3104: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3105: --
3106: IF l_debug_on THEN
3107: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3108: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
3109: END IF;
3110: --
3111: RETURN;
3112: WHEN FND_API.G_EXC_ERROR THEN
3111: RETURN;
3112: WHEN FND_API.G_EXC_ERROR THEN
3113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3114: IF l_debug_on THEN
3115: wsh_debug_sv.logmsg(l_module_name,'G_EXC_ERROR');
3116: WSH_DEBUG_SV.pop(l_module_name);
3117: END IF;
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3119: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3112: WHEN FND_API.G_EXC_ERROR THEN
3113: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3114: IF l_debug_on THEN
3115: wsh_debug_sv.logmsg(l_module_name,'G_EXC_ERROR');
3116: WSH_DEBUG_SV.pop(l_module_name);
3117: END IF;
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3119: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3120: IF l_debug_on THEN
3117: END IF;
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3119: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3120: IF l_debug_on THEN
3121: wsh_debug_sv.logmsg(l_module_name,'G_EXC_UNEXPECTED_ERROR');
3122: WSH_DEBUG_SV.pop(l_module_name);
3123: END IF;
3124: WHEN OTHERS THEN
3125: -- close open cursors as needed
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3119: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3120: IF l_debug_on THEN
3121: wsh_debug_sv.logmsg(l_module_name,'G_EXC_UNEXPECTED_ERROR');
3122: WSH_DEBUG_SV.pop(l_module_name);
3123: END IF;
3124: WHEN OTHERS THEN
3125: -- close open cursors as needed
3126: IF c_del_det%ISOPEN THEN
3133: x_update_allowed := 'N';
3134: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Delivery_Group',l_module_name);
3135: --
3136: IF l_debug_on THEN
3137: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3138: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3139: END IF;
3140: --
3141: END Change_Delivery_Group;
3134: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Delivery_Group',l_module_name);
3135: --
3136: IF l_debug_on THEN
3137: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3138: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3139: END IF;
3140: --
3141: END Change_Delivery_Group;
3142:
3190: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3191: --
3192: IF l_debug_on IS NULL
3193: THEN
3194: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3195: END IF;
3196: --
3197: IF l_debug_on THEN
3198: WSH_DEBUG_SV.push(l_module_name);
3194: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3195: END IF;
3196: --
3197: IF l_debug_on THEN
3198: WSH_DEBUG_SV.push(l_module_name);
3199: --
3200: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3201: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
3202: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
3196: --
3197: IF l_debug_on THEN
3198: WSH_DEBUG_SV.push(l_module_name);
3199: --
3200: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3201: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
3202: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
3203: END IF;
3204:
3197: IF l_debug_on THEN
3198: WSH_DEBUG_SV.push(l_module_name);
3199: --
3200: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3201: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
3202: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
3203: END IF;
3204:
3205: -- need to write for both tolerance above and below
3198: WSH_DEBUG_SV.push(l_module_name);
3199: --
3200: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3201: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
3202: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
3203: END IF;
3204:
3205: -- need to write for both tolerance above and below
3206: -- 2181132
3223: NVL(g_cache_detail_rec.ship_tolerance_below, FND_API.G_MISS_NUM))
3224: ) THEN
3225:
3226: IF l_debug_on THEN
3227: WSH_DEBUG_SV.log(l_module_name,'Tolerance Values are different');
3228: END IF;
3229:
3230: -- use cursor to determine if the values can be changed
3231: OPEN c_get_released_status;
3249: x_update_allowed := 'Y';
3250: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3251:
3252: IF l_debug_on THEN
3253: WSH_DEBUG_SV.log(l_module_name,'Update Allowed'||x_update_allowed);
3254: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3255: END IF;
3256:
3257: EXCEPTION
3250: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3251:
3252: IF l_debug_on THEN
3253: WSH_DEBUG_SV.log(l_module_name,'Update Allowed'||x_update_allowed);
3254: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3255: END IF;
3256:
3257: EXCEPTION
3258: WHEN update_not_allowed THEN
3259: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3260: x_update_allowed := 'N';
3261:
3262: IF l_debug_on THEN
3263: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3264: END IF;
3265:
3266: RETURN;
3267:
3271: x_update_allowed := 'N';
3272: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Ship_Tolerance',l_module_name);
3273: --
3274: IF l_debug_on THEN
3275: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3276: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3277: END IF;
3278: --
3279:
3272: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_CATEGORIES_PVT.Change_Ship_Tolerance',l_module_name);
3273: --
3274: IF l_debug_on THEN
3275: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3276: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3277: END IF;
3278: --
3279:
3280: END Change_Ship_Tolerance;