[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:
625: x_return_status := l_rs;
626: x_update_allowed := l_update_allowed;
627: --
628: IF l_debug_on THEN
629: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
630: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
631: WSH_DEBUG_SV.pop(l_module_name);
632: END IF;
633: --
626: x_update_allowed := l_update_allowed;
627: --
628: IF l_debug_on THEN
629: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
630: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
631: WSH_DEBUG_SV.pop(l_module_name);
632: END IF;
633: --
634: EXCEPTION
627: --
628: IF l_debug_on THEN
629: WSH_DEBUG_SV.log(l_module_name,'x_return_status',x_return_status);
630: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
631: WSH_DEBUG_SV.pop(l_module_name);
632: END IF;
633: --
634: EXCEPTION
635: WHEN update_not_allowed THEN
636: x_update_allowed := l_update_allowed;
637: x_return_status := l_rs;
638: --
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
641: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
642: END IF;
643: --
644: RETURN;
637: x_return_status := l_rs;
638: --
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
641: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
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);
651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
652: END IF;
653: --
654: END Check_Attributes;
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');
652: END IF;
653: --
654: END Check_Attributes;
655:
701: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
702: --
703: IF l_debug_on IS NULL
704: THEN
705: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
706: END IF;
707: --
708: IF l_debug_on THEN
709: WSH_DEBUG_SV.push(l_module_name);
705: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
706: END IF;
707: --
708: IF l_debug_on THEN
709: WSH_DEBUG_SV.push(l_module_name);
710: --
711: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
712: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
713: END IF;
707: --
708: IF l_debug_on THEN
709: WSH_DEBUG_SV.push(l_module_name);
710: --
711: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
712: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
713: END IF;
714:
715: IF (g_cache_detail_rec.container_flag = 'N') THEN
708: IF l_debug_on THEN
709: WSH_DEBUG_SV.push(l_module_name);
710: --
711: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
712: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
713: END IF;
714:
715: IF (g_cache_detail_rec.container_flag = 'N') THEN
716:
742: ||'Earliest Ship Date : '||p_attributes_rec.earliest_ship_date
743: ||'Schedulde Ship Date : '||p_attributes_rec.date_scheduled
744: );
745: IF l_debug_on THEN
746: WSH_DEBUG_SV.log(l_module_name,'Error in calculating TP dates: Date Type : '||l_datetype
747: ||'Latest Acceptable Date : '||p_attributes_rec.latest_acceptable_date
748: ||'Promise Date : '||p_attributes_rec.promise_date
749: ||'Schedule Arr Date : '||p_attributes_rec.schedule_arrival_date
750: ||'Earliest Acceptable Date : '||p_attributes_rec.earliest_acceptable_date
773: END IF; -- g_cache_detail_rec.container_flag
774:
775: --
776: IF l_debug_on THEN
777: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
778: WSH_DEBUG_SV.pop(l_module_name);
779: END IF;
780: --
781: EXCEPTION
774:
775: --
776: IF l_debug_on THEN
777: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
778: WSH_DEBUG_SV.pop(l_module_name);
779: END IF;
780: --
781: EXCEPTION
782:
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');
792: END IF;
793: --
794: END Change_TP_Dates;
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');
792: END IF;
793: --
794: END Change_TP_Dates;
795:
815: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
816: --
817: IF l_debug_on IS NULL
818: THEN
819: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
820: END IF;
821: --
822: IF l_debug_on THEN
823: WSH_DEBUG_SV.push(l_module_name);
819: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
820: END IF;
821: --
822: IF l_debug_on THEN
823: WSH_DEBUG_SV.push(l_module_name);
824: --
825: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
826: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
827: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
821: --
822: IF l_debug_on THEN
823: WSH_DEBUG_SV.push(l_module_name);
824: --
825: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
826: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
827: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
828: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
829: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
822: IF l_debug_on THEN
823: WSH_DEBUG_SV.push(l_module_name);
824: --
825: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
826: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
827: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
828: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
829: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
830: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.inventory_item_id ',p_attributes_rec.inventory_item_id );
823: WSH_DEBUG_SV.push(l_module_name);
824: --
825: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
826: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
827: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
828: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
829: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
830: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.inventory_item_id ',p_attributes_rec.inventory_item_id );
831: END IF;
824: --
825: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
826: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
827: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
828: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
829: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
830: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.inventory_item_id ',p_attributes_rec.inventory_item_id );
831: END IF;
832: --bug#6407943
825: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
826: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
827: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
828: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
829: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
830: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.inventory_item_id ',p_attributes_rec.inventory_item_id );
831: END IF;
832: --bug#6407943
833: -- There is a possibility of having quantity change on delivery lines when there is a change in org
826: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
827: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
828: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.ship_from_org_id',p_attributes_rec.ship_from_org_id);
829: WSH_DEBUG_SV.log(l_module_name,'g_cache_detail_rec.organization_id',g_cache_detail_rec.organization_id);
830: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.inventory_item_id ',p_attributes_rec.inventory_item_id );
831: END IF;
832: --bug#6407943
833: -- There is a possibility of having quantity change on delivery lines when there is a change in org
834: -- value on sales order line and item's primary uom is different in old and new orgs.
851:
852: END IF;
853: --
854: IF l_debug_on THEN
855: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
856: WSH_DEBUG_SV.pop(l_module_name);
857: END IF;
858: --
859: EXCEPTION
852: END IF;
853: --
854: IF l_debug_on THEN
855: WSH_DEBUG_SV.log(l_module_name,'x_update_allowed',x_update_allowed);
856: WSH_DEBUG_SV.pop(l_module_name);
857: END IF;
858: --
859: EXCEPTION
860:
861: WHEN update_not_allowed THEN
862: x_update_allowed := 'N';
863: --
864: IF l_debug_on THEN
865: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
866: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
867: END IF;
868: --
869: RETURN;
862: x_update_allowed := 'N';
863: --
864: IF l_debug_on THEN
865: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
866: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
867: END IF;
868: --
869: RETURN;
870: WHEN OTHERS THEN
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');
879: END IF;
880: --
881: END Change_Quantity;
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');
879: END IF;
880: --
881: END Change_Quantity;
882:
1080: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1081: --
1082: IF l_debug_on IS NULL
1083: THEN
1084: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1085: END IF;
1086: --
1087: IF l_debug_on THEN
1088: WSH_DEBUG_SV.push(l_module_name);
1084: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1085: END IF;
1086: --
1087: IF l_debug_on THEN
1088: WSH_DEBUG_SV.push(l_module_name);
1089: --
1090: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1091: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
1092: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
1086: --
1087: IF l_debug_on THEN
1088: WSH_DEBUG_SV.push(l_module_name);
1089: --
1090: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1091: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
1092: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
1093: 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 );
1094: END IF;
1087: IF l_debug_on THEN
1088: WSH_DEBUG_SV.push(l_module_name);
1089: --
1090: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1091: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
1092: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
1093: 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 );
1094: END IF;
1095: --
1088: WSH_DEBUG_SV.push(l_module_name);
1089: --
1090: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1091: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
1092: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
1093: 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 );
1094: END IF;
1095: --
1096: SAVEPOINT before_changes;
1089: --
1090: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1091: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
1092: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
1093: 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 );
1094: END IF;
1095: --
1096: SAVEPOINT before_changes;
1097: -- Bug 2114166 Do not perform actions if the line is getting cancelled.
1098:
1099: IF p_attributes_rec.ordered_quantity = 0 THEN
1100: --
1101: IF l_debug_on THEN
1102: WSH_DEBUG_SV.pop(l_module_name,'line is being cancelled');
1103: END IF;
1104: --
1105: RETURN;
1106: END IF;
1144: -- Item substitution project :bug#6077222
1145: --Begin.
1146: --1. Check whether item has been changed.
1147: IF l_debug_on THEN
1148: WSH_DEBUG_SV.logmsg(l_module_name, 'Old inventory_item_id '||g_cache_detail_rec.inventory_item_id ||
1149: ' New inventory_item_id '||p_attributes_rec.inventory_item_id);
1150: END IF;
1151: IF ( (p_attributes_rec.inventory_item_id <> FND_API.G_MISS_NUM)
1152: and(p_attributes_rec.inventory_item_id <> g_cache_detail_rec.inventory_item_id) ) THEN
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;
1166: --}
1167: END IF;
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;
1180: --}
1181: END IF;
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;
1198: END IF;
1199: CLOSE c_det_status;
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;
1211: END IF;
1212: CLOSE c_packed_det;
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;
1224: IF ( l_export_screening_flag in ('C','A') ) THEN
1225: 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);
1226: END IF;
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;
1224: IF ( l_export_screening_flag in ('C','A') ) THEN
1225: 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);
1226: END IF;
1227: END IF;
1228: RAISE item_update_not_allowed;
1229: END IF;
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;
1246: --}
1247: END IF;
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;
1280: --}
1281: END IF;
1282: --} Item substitute validations
1283: END IF;
1284:
1285: IF l_debug_on THEN
1286: WSH_DEBUG_SV.logmsg(l_module_name, 'l_change_sub_only:'||l_change_sub_only||', l_change_item:'||l_change_item);
1287: END IF;
1288:
1289: IF l_change_sub_only IS NOT NULL OR l_change_item = 'Y' THEN
1290: --{
1292: g_cache_detail_rec.cache_flag := 'N';
1293:
1294: --
1295: IF l_debug_on THEN
1296: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS NOT NULL' );
1297: END IF;
1298: /* moved to inside the loop
1299: --
1300: IF l_change_item = 'Y' THEN
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;
1315: --}
1316: END IF;
1314: RAISE item_update_not_allowed;
1315: --}
1316: END IF;
1317: IF l_debug_on THEN
1318: WSH_DEBUG_SV.logmsg(l_module_name, 'l_shipping_param_info.otm_enabled: '||l_shipping_param_info.otm_enabled);
1319: END IF;
1320: --}
1321: END IF;
1322: --
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;
1378: --}
1379: END IF;
1377: RAISE item_update_not_allowed;
1378: --}
1379: END IF;
1380: IF l_debug_on THEN
1381: WSH_DEBUG_SV.logmsg(l_module_name, 'l_shipping_param_info.otm_enabled: '||l_shipping_param_info.otm_enabled);
1382: END IF;
1383: --}
1384: END IF;
1385: --
1387: i := i + 1;
1388: l_del_tab(i) := l_delivery;
1389: --
1390: IF l_debug_on THEN
1391: 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);
1392: END IF;
1393: --
1394:
1395: IF l_change_item = 'Y' THEN
1412: IF ( l_change_sub_only IS NOT NULL ) THEN
1413: --{
1414: IF l_status = 'Y' AND p_wms_flag = 'Y' THEN
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);
1426:
1427: IF l_change_sub_only = 'Y' THEN
1428: --
1429: IF l_debug_on THEN
1430: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1431: END IF;
1432: --
1433: IF l_status NOT IN ('S','Y') THEN
1434:
1460: -- Here, we set l_change_sub_only to 'X' only if we do need to change the subinventory.
1461: -- if l_change_sub_only remains at 'Y' we do not go ahead with the changes.
1462: --
1463: IF l_debug_on THEN
1464: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1465: END IF;
1466: --
1467: IF l_change_sub_only IN ('N', 'X') OR l_change_item = 'Y' THEN
1468:
1469: --
1470: IF l_change_sub_only IN ('N', 'X') THEN
1471: --
1472: IF l_debug_on THEN
1473: WSH_DEBUG_SV.logmsg(l_module_name, 'IN CHANGE_SCHEDULE DOING ACTIONS' );
1474: END IF;
1475: l_change_resv_flag := 'Y';
1476:
1477: END IF ; --Bug 6732141
1493: -- HW OPM code for OM changes. Need to branch
1494: -- HW OPMCONV. Removed branching
1495: --
1496: IF l_debug_on THEN
1497: WSH_DEBUG_SV.log(l_module_name,'l_del_det',l_del_det);
1498: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
1499: END IF;
1500: --
1501: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
1494: -- HW OPMCONV. Removed branching
1495: --
1496: IF l_debug_on THEN
1497: WSH_DEBUG_SV.log(l_module_name,'l_del_det',l_del_det);
1498: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
1499: END IF;
1500: --
1501: INV_MO_Cancel_PVT.Cancel_Move_Order_Line(
1502: p_line_id => l_mo_line,
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;
1516: END IF;
1517:
1612: END IF; -- IF l_serial_number IS NOT NULL
1613:
1614: -- bug fix 2095105
1615: IF l_debug_on THEN
1616: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY = ' || L_DET_PIC_QTY );
1617: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY = ' || L_DET_REQ_QTY );
1618: -- HW OPMCONV -Print Qty2
1619: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY2 = ' || L_DET_PIC_QTY2 );
1620: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY2 = ' || L_DET_REQ_QTY2 );
1613:
1614: -- bug fix 2095105
1615: IF l_debug_on THEN
1616: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY = ' || L_DET_PIC_QTY );
1617: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY = ' || L_DET_REQ_QTY );
1618: -- HW OPMCONV -Print Qty2
1619: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY2 = ' || L_DET_PIC_QTY2 );
1620: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY2 = ' || L_DET_REQ_QTY2 );
1621: END IF;
1615: IF l_debug_on THEN
1616: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY = ' || L_DET_PIC_QTY );
1617: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY = ' || L_DET_REQ_QTY );
1618: -- HW OPMCONV -Print Qty2
1619: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY2 = ' || L_DET_PIC_QTY2 );
1620: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY2 = ' || L_DET_REQ_QTY2 );
1621: END IF;
1622: ----
1623:
1616: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY = ' || L_DET_PIC_QTY );
1617: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY = ' || L_DET_REQ_QTY );
1618: -- HW OPMCONV -Print Qty2
1619: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY2 = ' || L_DET_PIC_QTY2 );
1620: WSH_DEBUG_SV.logmsg(l_module_name, 'DET REQ QTY2 = ' || L_DET_REQ_QTY2 );
1621: END IF;
1622: ----
1623:
1624: IF ( l_det_pic_qty > l_det_req_qty) THEN
1622: ----
1623:
1624: IF ( l_det_pic_qty > l_det_req_qty) THEN
1625: IF l_debug_on THEN
1626: WSH_DEBUG_SV.logmsg(l_module_name, 'DET PICKED QTY AGAIN = ' || L_DET_PIC_QTY );
1627: END IF;
1628:
1629: -- HW OPMCONV - Pass Qty2
1630: WSH_DELIVERY_DETAILS_ACTIONS.Unreserve_delivery_detail
1651: l_change_replenish_status := 'Y';
1652: IF ( l_replenish_status = 'R' ) THEN
1653: --{
1654: IF l_debug_on THEN
1655: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WMS_REPLENISHMENT_PUB.UPDATE_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
1656: END IF;
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);
1666: END IF;
1667: RETURN;
1668: --}
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);
1666: END IF;
1667: RETURN;
1668: --}
1669: END IF;
1681: -- revert old weight and volume information from delivery.
1682: IF l_delivery IS NOT NULL THEN
1683: --{
1684: IF l_debug_on THEN
1685: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1686: END IF;
1687: WSH_WV_UTILS.DD_WV_Post_Process(
1688: p_delivery_detail_id => l_del_det,
1689: p_diff_gross_wt => -1 * l_gross_weight,
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;
1699: RAISE item_update_not_allowed;
1700: END IF;
1701: --} delivery is not null.
1710: -- bug fix 2095105
1711: --
1712:
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.logmsg(l_module_name, 'In change_schedule updating wdd' );
1715: WSH_DEBUG_SV.logmsg(l_module_name, 'ordered_quantity2 = '||p_attributes_rec.ordered_quantity2 );
1716: WSH_DEBUG_SV.logmsg(l_module_name, 'ordered_quantity_uom2 = '||p_attributes_rec.ordered_quantity_uom2 );
1717: WSH_DEBUG_SV.logmsg(l_module_name, 'l_det_req_qty2 = '||l_det_req_qty2 );
1718: WSH_DEBUG_SV.logmsg(l_module_name, 'l_det_req_qty_uom2 = '||l_det_req_qty_uom2 );
1711: --
1712:
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.logmsg(l_module_name, 'In change_schedule updating wdd' );
1715: WSH_DEBUG_SV.logmsg(l_module_name, 'ordered_quantity2 = '||p_attributes_rec.ordered_quantity2 );
1716: WSH_DEBUG_SV.logmsg(l_module_name, 'ordered_quantity_uom2 = '||p_attributes_rec.ordered_quantity_uom2 );
1717: WSH_DEBUG_SV.logmsg(l_module_name, 'l_det_req_qty2 = '||l_det_req_qty2 );
1718: WSH_DEBUG_SV.logmsg(l_module_name, 'l_det_req_qty_uom2 = '||l_det_req_qty_uom2 );
1719: END IF;
1712:
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.logmsg(l_module_name, 'In change_schedule updating wdd' );
1715: WSH_DEBUG_SV.logmsg(l_module_name, 'ordered_quantity2 = '||p_attributes_rec.ordered_quantity2 );
1716: WSH_DEBUG_SV.logmsg(l_module_name, 'ordered_quantity_uom2 = '||p_attributes_rec.ordered_quantity_uom2 );
1717: WSH_DEBUG_SV.logmsg(l_module_name, 'l_det_req_qty2 = '||l_det_req_qty2 );
1718: WSH_DEBUG_SV.logmsg(l_module_name, 'l_det_req_qty_uom2 = '||l_det_req_qty_uom2 );
1719: END IF;
1720: --
1713: IF l_debug_on THEN
1714: WSH_DEBUG_SV.logmsg(l_module_name, 'In change_schedule updating wdd' );
1715: WSH_DEBUG_SV.logmsg(l_module_name, 'ordered_quantity2 = '||p_attributes_rec.ordered_quantity2 );
1716: WSH_DEBUG_SV.logmsg(l_module_name, 'ordered_quantity_uom2 = '||p_attributes_rec.ordered_quantity_uom2 );
1717: WSH_DEBUG_SV.logmsg(l_module_name, 'l_det_req_qty2 = '||l_det_req_qty2 );
1718: WSH_DEBUG_SV.logmsg(l_module_name, 'l_det_req_qty_uom2 = '||l_det_req_qty_uom2 );
1719: END IF;
1720: --
1721: -- HW OPM for OM changes. Added preferred_grade
1714: WSH_DEBUG_SV.logmsg(l_module_name, 'In change_schedule updating wdd' );
1715: WSH_DEBUG_SV.logmsg(l_module_name, 'ordered_quantity2 = '||p_attributes_rec.ordered_quantity2 );
1716: WSH_DEBUG_SV.logmsg(l_module_name, 'ordered_quantity_uom2 = '||p_attributes_rec.ordered_quantity_uom2 );
1717: WSH_DEBUG_SV.logmsg(l_module_name, 'l_det_req_qty2 = '||l_det_req_qty2 );
1718: WSH_DEBUG_SV.logmsg(l_module_name, 'l_det_req_qty_uom2 = '||l_det_req_qty_uom2 );
1719: END IF;
1720: --
1721: -- HW OPM for OM changes. Added preferred_grade
1722: --HW OPMCONV -Added Qty2s
1738: END IF;
1739:
1740: -- bugfix 13392065 end
1741: IF l_debug_on THEN
1742: WSH_DEBUG_SV.logmsg(l_module_name, 'l_requested_quantity2 = '||l_requested_quantity2 );
1743: WSH_DEBUG_SV.logmsg(l_module_name, 'l_requested_quantity_uom2 = '||l_requested_quantity_uom2 );
1744: END IF;
1745:
1746:
1739:
1740: -- bugfix 13392065 end
1741: IF l_debug_on THEN
1742: WSH_DEBUG_SV.logmsg(l_module_name, 'l_requested_quantity2 = '||l_requested_quantity2 );
1743: WSH_DEBUG_SV.logmsg(l_module_name, 'l_requested_quantity_uom2 = '||l_requested_quantity_uom2 );
1744: END IF;
1745:
1746:
1747: UPDATE wsh_delivery_details
1785:
1786: l_detail_tab(l_detail_tab.count+1) := l_del_det ; -- added for DBI Project
1787:
1788: IF l_debug_on THEN
1789: WSH_DEBUG_SV.log(l_module_name,'Rows updated:',SQL%ROWCOUNT);
1790: END IF;
1791:
1792: IF l_change_item = 'Y' and l_delivery IS NOT NULL THEN --{
1793: -- Propagate new weight and volume for UOMs change
1791:
1792: IF l_change_item = 'Y' and l_delivery IS NOT NULL THEN --{
1793: -- Propagate new weight and volume for UOMs change
1794: IF l_debug_on THEN
1795: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process',WSH_DEBUG_SV.C_PROC_LEVEL);
1796: END IF;
1797: WSH_WV_UTILS.DD_WV_Post_Process(
1798: p_delivery_detail_id => l_del_det,
1799: p_diff_gross_wt => l_new_weight,
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;
1809: RAISE item_update_not_allowed;
1810: END IF;
1811: --} Weight / Volume Propagation for Item change
1823: -- Update of wsh_delivery_details where released_status
1824: -- are changed, call DBI API after the update.
1825: -- This API will also check for DBI Installed or not
1826: IF l_debug_on THEN
1827: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API. delivery details l_detail_tab count',l_detail_tab.count);
1828: END IF;
1829: WSH_INTEGRATION.DBI_Update_Detail_Log
1830: (p_delivery_detail_id_tab => l_detail_tab,
1831: p_dml_type => 'UPDATE',
1831: p_dml_type => 'UPDATE',
1832: x_return_status => l_dbi_rs);
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;
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
1842: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1843: WSH_DEBUG_SV.pop(l_module_name);
1844: END IF;
1845: return;
1846: END IF;
1839: Rollback to before_changes;
1840: -- just pass this return status to caller API
1841: IF l_debug_on THEN
1842: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
1843: WSH_DEBUG_SV.pop(l_module_name);
1844: END IF;
1845: return;
1846: END IF;
1847: -- End of Code for DBI Project
1864: --brana
1865: IF l_change_item = 'Y' THEN
1866: --{
1867: IF l_debug_on THEN
1868: WSH_DEBUG_SV.log(l_module_name,'l_del_planned_tab count',l_del_planned_tab.count);
1869: END IF;
1870: --Intialize the message and location id
1871: IF ( l_del_planned_tab.count > 0) THEN
1872: --{
1882: i := l_del_planned_tab.FIRST;
1883: WHILE i is not null LOOP
1884: --{
1885: IF l_debug_on THEN
1886: 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);
1887: END IF;
1888: WSH_XC_UTIL.Log_Exception(
1889: p_api_version => 1.0,
1890: x_return_status => l_exception_return_status,
1900: p_delivery_id => l_del_planned_tab(i),
1901: p_error_message => l_exception_error_message);
1902: i := l_del_planned_tab.NEXT(i);
1903: IF l_debug_on THEN
1904: WSH_DEBUG_SV.log(l_module_name,'log_exception l_exception_return_status',l_exception_return_status);
1905: END IF;
1906: --}
1907: END LOOP;
1908:
1907: END LOOP;
1908:
1909: -- OTM Deliveries Mark for Update
1910: IF l_debug_on THEN
1911: WSH_DEBUG_SV.log(l_module_name,'l_otm_del_tab count',l_otm_del_tab.count);
1912: END IF;
1913: i := l_otm_del_tab.FIRST;
1914: j := 0;
1915: WHILE i is not null LOOP --{
1919: i := l_otm_del_tab.NEXT(i);
1920: END LOOP;
1921: IF l_delivery_id_tab.FIRST IS NOT NULL THEN
1922: IF l_debug_on THEN
1923: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
1924: END IF;
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;
1934: RAISE item_update_not_allowed;
1935: END IF;
1936: END IF; --}
1961: END IF;
1962:
1963: --END IF;
1964: IF l_debug_on THEN
1965: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
1966: END IF;
1967: --
1968: --bug#6407943: begin.
1969: --Creation of reservations should be stopped when
1979: OPEN C_item_details(p_attributes_rec.ship_from_org_id,g_cache_detail_rec.inventory_item_id);
1980: FETCH C_item_details INTO l_primary_uom;
1981: CLOSE C_item_details;
1982: IF l_debug_on THEN
1983: WSH_DEBUG_SV.log(l_module_name,'new primary uom',l_primary_uom);
1984: WSH_DEBUG_SV.log(l_module_name,'old primary uom',g_cache_detail_rec.requested_quantity_uom);
1985: END IF;
1986: IF (l_primary_uom <> g_cache_detail_rec.requested_quantity_uom) THEN
1987: l_create_reservation := 'N';
1980: FETCH C_item_details INTO l_primary_uom;
1981: CLOSE C_item_details;
1982: IF l_debug_on THEN
1983: WSH_DEBUG_SV.log(l_module_name,'new primary uom',l_primary_uom);
1984: WSH_DEBUG_SV.log(l_module_name,'old primary uom',g_cache_detail_rec.requested_quantity_uom);
1985: END IF;
1986: IF (l_primary_uom <> g_cache_detail_rec.requested_quantity_uom) THEN
1987: l_create_reservation := 'N';
1988: END IF;
2009:
2010: --oe_debug_pub.add('In change_schedule : unsched_flag '||l_unsched_flag, 2 );
2011: IF l_change_sub_only = 'N' THEN
2012: IF l_debug_on THEN
2013: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2014: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW ORG: '||P_ATTRIBUTES_REC.SHIP_FROM_ORG_ID );
2015: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
2016: END IF;
2017: --
2010: --oe_debug_pub.add('In change_schedule : unsched_flag '||l_unsched_flag, 2 );
2011: IF l_change_sub_only = 'N' THEN
2012: IF l_debug_on THEN
2013: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2014: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW ORG: '||P_ATTRIBUTES_REC.SHIP_FROM_ORG_ID );
2015: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
2016: END IF;
2017: --
2018: -- HW OPMCONV - Print values
2011: IF l_change_sub_only = 'N' THEN
2012: IF l_debug_on THEN
2013: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2014: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW ORG: '||P_ATTRIBUTES_REC.SHIP_FROM_ORG_ID );
2015: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
2016: END IF;
2017: --
2018: -- HW OPMCONV - Print values
2019: IF l_debug_on THEN
2017: --
2018: -- HW OPMCONV - Print values
2019: IF l_debug_on THEN
2020:
2021: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2022: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2023: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
2024: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
2025: END IF;
2018: -- HW OPMCONV - Print values
2019: IF l_debug_on THEN
2020:
2021: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2022: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2023: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
2024: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
2025: END IF;
2026: -- Resetting the Reservations Record Structure
2019: IF l_debug_on THEN
2020:
2021: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2022: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2023: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
2024: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
2025: END IF;
2026: -- Resetting the Reservations Record Structure
2027: l_resv_tbl(i).organization_id := p_attributes_rec.ship_from_org_id;
2020:
2021: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2022: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2023: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
2024: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
2025: END IF;
2026: -- Resetting the Reservations Record Structure
2027: l_resv_tbl(i).organization_id := p_attributes_rec.ship_from_org_id;
2028: l_resv_tbl(i).subinventory_code := p_attributes_rec.subinventory;
2058: ELSIF l_change_sub_only = 'X' THEN
2059:
2060: -- HW OPMCONV - Print values
2061: IF l_debug_on THEN
2062: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2063: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
2064: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2065: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2066: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2059:
2060: -- HW OPMCONV - Print values
2061: IF l_debug_on THEN
2062: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2063: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
2064: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2065: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2066: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2067: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
2060: -- HW OPMCONV - Print values
2061: IF l_debug_on THEN
2062: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2063: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
2064: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2065: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2066: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2067: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
2068: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
2061: IF l_debug_on THEN
2062: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2063: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
2064: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2065: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2066: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2067: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
2068: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
2069: END IF;
2062: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2063: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
2064: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2065: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2066: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2067: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
2068: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
2069: END IF;
2070: --
2063: WSH_DEBUG_SV.logmsg(l_module_name, 'NEW SUB: '||P_ATTRIBUTES_REC.SUBINVENTORY );
2064: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2065: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2066: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2067: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
2068: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
2069: END IF;
2070: --
2071: l_resv_tbl(i).subinventory_code := p_attributes_rec.subinventory;
2064: WSH_DEBUG_SV.logmsg(l_module_name, 'IN L_CHANGE_SUB_ONLY IS: '||L_CHANGE_SUB_ONLY );
2065: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity: '||p_attributes_rec.ordered_quantity );
2066: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity2: '||p_attributes_rec.ordered_quantity2 );
2067: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom: '||p_attributes_rec.order_quantity_uom );
2068: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.ordered_quantity_uom2: '||p_attributes_rec.ordered_quantity_uom2 );
2069: END IF;
2070: --
2071: l_resv_tbl(i).subinventory_code := p_attributes_rec.subinventory;
2072: l_resv_tbl(i).revision := NULL;
2097: */
2098: END IF;
2099: --
2100: IF l_debug_on THEN
2101: wsh_debug_sv.logmsg(l_module_name, 'Actual reservation record
2102: being passed to INV');
2103: wsh_debug_Sv.log(l_module_name, 'RSV record.staged_flag',
2104: l_resv_tbl(i).staged_flag);
2105: wsh_debug_sv.log(l_module_name, 'RSV record org Id',
2099: --
2100: IF l_debug_on THEN
2101: wsh_debug_sv.logmsg(l_module_name, 'Actual reservation record
2102: being passed to INV');
2103: wsh_debug_Sv.log(l_module_name, 'RSV record.staged_flag',
2104: l_resv_tbl(i).staged_flag);
2105: wsh_debug_sv.log(l_module_name, 'RSV record org Id',
2106: l_resv_tbl(i).organization_id);
2107: wsh_debug_sv.log(l_module_name, 'RSV subinventory Code',
2101: wsh_debug_sv.logmsg(l_module_name, 'Actual reservation record
2102: being passed to INV');
2103: wsh_debug_Sv.log(l_module_name, 'RSV record.staged_flag',
2104: l_resv_tbl(i).staged_flag);
2105: wsh_debug_sv.log(l_module_name, 'RSV record org Id',
2106: l_resv_tbl(i).organization_id);
2107: wsh_debug_sv.log(l_module_name, 'RSV subinventory Code',
2108: l_resv_tbl(i).subinventory_code);
2109: END IF;
2103: wsh_debug_Sv.log(l_module_name, 'RSV record.staged_flag',
2104: l_resv_tbl(i).staged_flag);
2105: wsh_debug_sv.log(l_module_name, 'RSV record org Id',
2106: l_resv_tbl(i).organization_id);
2107: wsh_debug_sv.log(l_module_name, 'RSV subinventory Code',
2108: l_resv_tbl(i).subinventory_code);
2109: END IF;
2110: --
2111: -- HW OPMCONV. Pass a new parameter p_qty2
2134: END IF;
2135:
2136: -- deliveryMerge
2137: IF l_debug_on THEN
2138: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag',WSH_DEBUG_SV.C_PROC_LEVEL);
2139: END IF;
2140: WSH_NEW_DELIVERY_ACTIONS.Adjust_Planned_Flag(
2141: p_delivery_ids => l_del_tab,
2142: p_caller => 'WSH_DLMG',
2144: p_call_lcss => 'Y',
2145: p_event => NULL,
2146: x_return_status => l_return_status);
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;
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);
2168: END IF;
2169: --
2170: EXCEPTION
2171:
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;
2184: --
2185:
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;
2184: --
2185:
2186: WHEN update_not_allowed THEN
2186: WHEN update_not_allowed THEN
2187: x_update_allowed := 'N';
2188: --
2189: IF l_debug_on THEN
2190: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2191: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2192: END IF;
2193: --
2194: WHEN mark_reprice_error THEN
2187: x_update_allowed := 'N';
2188: --
2189: IF l_debug_on THEN
2190: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2191: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2192: END IF;
2193: --
2194: WHEN mark_reprice_error THEN
2195: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
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;
2202: --
2203: WHEN Adjust_Planned_Flag_Err THEN
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;
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);
2210: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Adjust_Planned_Flag_Err');
2211: END IF;
2212:
2213: WHEN OTHERS THEN
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);
2210: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Adjust_Planned_Flag_Err');
2211: END IF;
2212:
2213: WHEN OTHERS THEN
2214: IF c_delivery_detail%ISOPEN THEN
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');
2227: END IF;
2228: --
2229: END Change_Schedule;
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');
2227: END IF;
2228: --
2229: END Change_Schedule;
2230:
2277: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2278: --
2279: IF l_debug_on IS NULL
2280: THEN
2281: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2282: END IF;
2283: --
2284: IF l_debug_on THEN
2285: WSH_DEBUG_SV.push(l_module_name);
2281: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2282: END IF;
2283: --
2284: IF l_debug_on THEN
2285: WSH_DEBUG_SV.push(l_module_name);
2286: --
2287: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2288: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2289: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2283: --
2284: IF l_debug_on THEN
2285: WSH_DEBUG_SV.push(l_module_name);
2286: --
2287: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2288: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2289: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2290: END IF;
2291: --
2284: IF l_debug_on THEN
2285: WSH_DEBUG_SV.push(l_module_name);
2286: --
2287: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2288: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2289: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2290: END IF;
2291: --
2292: --Bug 9226187: Introduced call to the API INV_MOVE_ORDER_PUB.Process_Move_Order_Line
2285: WSH_DEBUG_SV.push(l_module_name);
2286: --
2287: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2288: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2289: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2290: END IF;
2291: --
2292: --Bug 9226187: Introduced call to the API INV_MOVE_ORDER_PUB.Process_Move_Order_Line
2293: -- in order to change the Date_Required on MO Line,whenever there is a
2307: EXIT WHEN c_delivery_detail%NOTFOUND;
2308:
2309: IF l_status = 'S' AND l_mo_line_id IS NOT NULL THEN
2310: IF l_debug_on THEN
2311: WSH_DEBUG_SV.logmsg(l_module_name, 'PERFORMING Change Dates ' );
2312: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2313: END IF;
2314:
2315: l_mo_line_rec := INV_Trolin_Util.Query_Row(p_line_id => l_mo_line_id);
2308:
2309: IF l_status = 'S' AND l_mo_line_id IS NOT NULL THEN
2310: IF l_debug_on THEN
2311: WSH_DEBUG_SV.logmsg(l_module_name, 'PERFORMING Change Dates ' );
2312: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2313: END IF;
2314:
2315: l_mo_line_rec := INV_Trolin_Util.Query_Row(p_line_id => l_mo_line_id);
2316: l_trolin_tbl(1) := l_mo_line_rec;
2318: l_trolin_tbl(1).OPERATION := INV_GLOBALS.G_OPR_UPDATE;
2319: l_trolin_tbl(1).date_required := p_attributes_rec.date_scheduled;
2320:
2321: IF l_debug_on THEN
2322: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.PROCESS_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
2323: END IF;
2324:
2325: INV_MOVE_ORDER_PUB.Process_Move_Order_Line(
2326: p_api_version_number => 1.0,
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;
2340: END IF;
2341:
2344: IF (g_cache_detail_rec.date_scheduled < p_attributes_rec.date_scheduled) THEN
2345: g_cache_detail_rec.cache_flag := 'N';
2346: --
2347: IF l_debug_on THEN
2348: WSH_DEBUG_SV.logmsg(l_module_name, 'CHANGE_SCHEDULED_DATE PERFORMING ACTIONS ' );
2349: END IF;
2350: --
2351: i := i+1;
2352: l_det_tab(i) := l_del_det;
2351: i := i+1;
2352: l_det_tab(i) := l_del_det;
2353: --
2354: IF l_debug_on THEN
2355: WSH_DEBUG_SV.logmsg(l_module_name, 'ADDING DELIVERY DETAIL '|| L_DEL_DET || 'TO MARK LIST' );
2356: END IF;
2357: --
2358: Log_Exception(
2359: p_delivery_detail_id => l_del_det,
2382: END IF;
2383: END IF;
2384: --
2385: IF l_debug_on THEN
2386: WSH_DEBUG_SV.pop(l_module_name);
2387: END IF;
2388: --
2389: EXCEPTION
2390:
2391: WHEN update_not_allowed THEN
2392: x_update_allowed := 'N';
2393: --
2394: IF l_debug_on THEN
2395: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2396: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2397: END IF;
2398: --
2399: RETURN;
2392: x_update_allowed := 'N';
2393: --
2394: IF l_debug_on THEN
2395: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_NOT_ALLOWED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2396: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2397: END IF;
2398: --
2399: RETURN;
2400: WHEN mark_reprice_error THEN
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');
2408: END IF;
2409: --
2410: WHEN OTHERS THEN
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');
2408: END IF;
2409: --
2410: WHEN OTHERS THEN
2411: -- close open cursors as needed
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');
2422: END IF;
2423: --
2424: END Change_Scheduled_Date;
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');
2422: END IF;
2423: --
2424: END Change_Scheduled_Date;
2425:
2480:
2481: BEGIN
2482: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2483: IF l_debug_on IS NULL THEN
2484: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2485: END IF;
2486:
2487: IF l_debug_on THEN
2488: WSH_DEBUG_SV.push(l_module_name);
2484: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2485: END IF;
2486:
2487: IF l_debug_on THEN
2488: WSH_DEBUG_SV.push(l_module_name);
2489: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2490: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2491: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2492: END IF;
2485: END IF;
2486:
2487: IF l_debug_on THEN
2488: WSH_DEBUG_SV.push(l_module_name);
2489: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2490: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2491: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2492: END IF;
2493:
2486:
2487: IF l_debug_on THEN
2488: WSH_DEBUG_SV.push(l_module_name);
2489: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2490: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2491: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2492: END IF;
2493:
2494: IF ((p_attributes_rec.ship_set_id <> FND_API.G_MISS_NUM) OR (p_attributes_rec.ship_set_id IS NULL))AND
2487: IF l_debug_on THEN
2488: WSH_DEBUG_SV.push(l_module_name);
2489: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2490: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
2491: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
2492: END IF;
2493:
2494: IF ((p_attributes_rec.ship_set_id <> FND_API.G_MISS_NUM) OR (p_attributes_rec.ship_set_id IS NULL))AND
2495: (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))
2533: IF l_status = 'S' AND l_mo_line_id IS NULL THEN
2534: FND_MESSAGE.SET_NAME('WSH','WSH_CHANGE_SET_XDOCK_ERROR');
2535: FND_MESSAGE.SET_TOKEN('DETAIL', l_del_det);
2536: IF l_debug_on THEN
2537: WSH_DEBUG_SV.logmsg(l_module_name, 'CANNOT CHANGE_SETS : LINE IX CROSSDOCKED' );
2538: END IF;
2539: RAISE update_not_allowed;
2540: END IF; -- status = 'S' and MOL is null
2541: -- End of ECO 4497224
2541: -- End of ECO 4497224
2542:
2543: IF l_status = 'S' AND l_mo_line_id IS NOT NULL THEN
2544: IF l_debug_on THEN
2545: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2546: END IF;
2547:
2548: -- HW BUG#:2296620 Need to branch.
2549: -- HW OPMCONV. Removed branching
2552: IF l_mo_line_rec.quantity_detailed > 0 THEN
2553: FND_MESSAGE.SET_NAME('WSH','WSH_CHANGE_SET_ERROR');
2554: FND_MESSAGE.SET_TOKEN('DETAIL', l_del_det);
2555: IF l_debug_on THEN
2556: WSH_DEBUG_SV.logmsg(l_module_name, 'CANNOT CHANGE_SETS : ALLOCATIONS CREATED' );
2557: END IF;
2558: Raise update_not_allowed;
2559: END IF; -- of discrete quantity_detailed
2560:
2565: -- For ensuring the call is for Released to Warehouse only
2566: -- and not Planned for Crossdocking, Bug 5210926
2567: IF l_status = 'S' AND l_mo_line_id IS NOT NULL THEN
2568: IF l_debug_on THEN
2569: WSH_DEBUG_SV.logmsg(l_module_name, 'PERFORMING CHANGE_SETS ' );
2570: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2571: END IF;
2572:
2573: -- HW BUG#:2296620 Need to branch
2566: -- and not Planned for Crossdocking, Bug 5210926
2567: IF l_status = 'S' AND l_mo_line_id IS NOT NULL THEN
2568: IF l_debug_on THEN
2569: WSH_DEBUG_SV.logmsg(l_module_name, 'PERFORMING CHANGE_SETS ' );
2570: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
2571: END IF;
2572:
2573: -- HW BUG#:2296620 Need to branch
2574: -- HW OPMCONV. Removed branching
2578: l_trolin_tbl(1).OPERATION := INV_GLOBALS.G_OPR_UPDATE;
2579: l_trolin_tbl(1).ship_set_id := p_attributes_rec.ship_set_id;
2580:
2581: IF l_debug_on THEN
2582: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MOVE_ORDER_PUB.PROCESS_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
2583: END IF;
2584:
2585: INV_MOVE_ORDER_PUB.Process_Move_Order_Line(
2586: p_api_version_number => 1.0,
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;
2600: END IF; -- of x_return_status for Discrete
2601:
2612:
2613: END IF;
2614: --
2615: IF l_debug_on THEN
2616: WSH_DEBUG_SV.pop(l_module_name);
2617: END IF;
2618: --
2619: EXCEPTION
2620:
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);
2628: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2629: END IF;
2630: --
2631: WHEN OTHERS THEN
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);
2628: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_NOT_ALLOWED');
2629: END IF;
2630: --
2631: WHEN OTHERS THEN
2632: -- close open cursors as needed
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');
2643: END IF;
2644: --
2645: END Change_Sets;
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');
2643: END IF;
2644: --
2645: END Change_Sets;
2646:
2740: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2741: --
2742: IF l_debug_on IS NULL
2743: THEN
2744: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2745: END IF;
2746: --
2747: IF l_debug_on THEN
2748: WSH_DEBUG_SV.push(l_module_name);
2744: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2745: END IF;
2746: --
2747: IF l_debug_on THEN
2748: WSH_DEBUG_SV.push(l_module_name);
2749: --
2750: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
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);
2746: --
2747: IF l_debug_on THEN
2748: WSH_DEBUG_SV.push(l_module_name);
2749: --
2750: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
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: --
2747: IF l_debug_on THEN
2748: WSH_DEBUG_SV.push(l_module_name);
2749: --
2750: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
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;
2748: WSH_DEBUG_SV.push(l_module_name);
2749: --
2750: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
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
2772: l_attr_tab(2).ship_to_location_id := g_cache_detail_rec.ship_to_site_use_id;
2773:
2774:
2775: IF l_debug_on THEN
2776: WSH_DEBUG_SV.log(l_module_name,'p_attributes_rec.intmed_ship_to_org_id',p_attributes_rec.intmed_ship_to_org_id);
2777: END IF;
2778:
2779: IF p_attributes_rec.intmed_ship_to_org_id = FND_API.G_MISS_NUM THEN
2780:
2823:
2824: END IF;
2825: l_attr_tab(2).freight_terms_code := g_cache_detail_rec.freight_terms_code;
2826: IF l_debug_on THEN
2827: WSH_DEBUG_SV.logmsg(l_module_name, 'freight_terms_code 1: '||p_attributes_rec.freight_terms_code );
2828: WSH_DEBUG_SV.logmsg(l_module_name, 'freight_terms_code 2: '||g_cache_detail_rec.freight_terms_code );
2829: END IF;
2830:
2831: IF p_attributes_rec.fob_code = FND_API.G_MISS_CHAR THEN
2824: END IF;
2825: l_attr_tab(2).freight_terms_code := g_cache_detail_rec.freight_terms_code;
2826: IF l_debug_on THEN
2827: WSH_DEBUG_SV.logmsg(l_module_name, 'freight_terms_code 1: '||p_attributes_rec.freight_terms_code );
2828: WSH_DEBUG_SV.logmsg(l_module_name, 'freight_terms_code 2: '||g_cache_detail_rec.freight_terms_code );
2829: END IF;
2830:
2831: IF p_attributes_rec.fob_code = FND_API.G_MISS_CHAR THEN
2832: l_attr_tab(1).fob_code := g_cache_detail_rec.fob_code;
2848: l_shipment_changed_flag := 'Y';
2849: l_sm_changed_flag := 'Y';
2850:
2851: IF l_debug_on THEN
2852: WSH_DEBUG_SV.logmsg(l_module_name, 'l_shipment_changed_flag: '||l_shipment_changed_flag );
2853: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.shipping_method_code: '||p_attributes_rec.shipping_method_code);
2854: WSH_DEBUG_SV.logmsg(l_module_name, 'g_cache_detail_rec.ship_method_code: '||g_cache_detail_rec.ship_method_code);
2855: END IF;
2856: l_carrier_rec.ship_method_code := p_attributes_rec.shipping_method_code;
2849: l_sm_changed_flag := 'Y';
2850:
2851: IF l_debug_on THEN
2852: WSH_DEBUG_SV.logmsg(l_module_name, 'l_shipment_changed_flag: '||l_shipment_changed_flag );
2853: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.shipping_method_code: '||p_attributes_rec.shipping_method_code);
2854: WSH_DEBUG_SV.logmsg(l_module_name, 'g_cache_detail_rec.ship_method_code: '||g_cache_detail_rec.ship_method_code);
2855: END IF;
2856: l_carrier_rec.ship_method_code := p_attributes_rec.shipping_method_code;
2857:
2850:
2851: IF l_debug_on THEN
2852: WSH_DEBUG_SV.logmsg(l_module_name, 'l_shipment_changed_flag: '||l_shipment_changed_flag );
2853: WSH_DEBUG_SV.logmsg(l_module_name, 'p_attributes_rec.shipping_method_code: '||p_attributes_rec.shipping_method_code);
2854: WSH_DEBUG_SV.logmsg(l_module_name, 'g_cache_detail_rec.ship_method_code: '||g_cache_detail_rec.ship_method_code);
2855: END IF;
2856: l_carrier_rec.ship_method_code := p_attributes_rec.shipping_method_code;
2857:
2858: -- 4673778
2862: p_carrier_service_inout_rec => l_carrier_rec,
2863: x_return_status => x_return_status);
2864: -- 4673778
2865: IF l_debug_on THEN
2866: WSH_DEBUG_SV.logmsg(l_module_name, 'After get_carrier_service_mode'|| x_return_status);
2867: WSH_DEBUG_SV.logmsg(l_module_name, 'l_carrier_rec.genflag#car-id#sm-code#mode-of-tpt#svc-lvl: '||
2868: l_carrier_rec.generic_flag||'#'|| l_carrier_rec.carrier_id||'#'||
2869: l_carrier_rec.ship_method_code||'#'|| l_carrier_rec.mode_of_transport||'#'||
2870: l_carrier_rec.service_level);
2863: x_return_status => x_return_status);
2864: -- 4673778
2865: IF l_debug_on THEN
2866: WSH_DEBUG_SV.logmsg(l_module_name, 'After get_carrier_service_mode'|| x_return_status);
2867: WSH_DEBUG_SV.logmsg(l_module_name, 'l_carrier_rec.genflag#car-id#sm-code#mode-of-tpt#svc-lvl: '||
2868: l_carrier_rec.generic_flag||'#'|| l_carrier_rec.carrier_id||'#'||
2869: l_carrier_rec.ship_method_code||'#'|| l_carrier_rec.mode_of_transport||'#'||
2870: l_carrier_rec.service_level);
2871: END IF;
2946: x_out_rec => l_out_rec,
2947: x_return_status => x_return_status);
2948:
2949: IF l_debug_on THEN
2950: WSH_DEBUG_SV.logmsg(l_module_name, 'return status after Find_Matching_Groups: '||x_return_status );
2951: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2952: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2953: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2954: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
2947: x_return_status => x_return_status);
2948:
2949: IF l_debug_on THEN
2950: WSH_DEBUG_SV.logmsg(l_module_name, 'return status after Find_Matching_Groups: '||x_return_status );
2951: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2952: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2953: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2954: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
2955: WSH_DEBUG_SV.logmsg(l_module_name, 'carrier_id: '||l_group_tab(l_group_tab.first).carrier_id );
2948:
2949: IF l_debug_on THEN
2950: WSH_DEBUG_SV.logmsg(l_module_name, 'return status after Find_Matching_Groups: '||x_return_status );
2951: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2952: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2953: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2954: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
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 );
2949: IF l_debug_on THEN
2950: WSH_DEBUG_SV.logmsg(l_module_name, 'return status after Find_Matching_Groups: '||x_return_status );
2951: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2952: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2953: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2954: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
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;
2950: WSH_DEBUG_SV.logmsg(l_module_name, 'return status after Find_Matching_Groups: '||x_return_status );
2951: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2952: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2953: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2954: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
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:
2951: WSH_DEBUG_SV.logmsg(l_module_name, 'l_group_tab.count: '||l_group_tab.count );
2952: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2953: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2954: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
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
2952: WSH_DEBUG_SV.logmsg(l_module_name, 'single group flag: '|| l_out_rec.single_group );
2953: WSH_DEBUG_SV.logmsg(l_module_name, 'service_level: '||l_group_tab(l_group_tab.first).service_level );
2954: WSH_DEBUG_SV.logmsg(l_module_name, 'mode_of_transport: '||l_group_tab(l_group_tab.first).mode_of_transport );
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:
2991:
2992:
2993:
2994: IF l_debug_on THEN
2995: WSH_DEBUG_SV.logmsg(l_module_name, 'INSIDE CHANGE_DELIVERY_GROUP : DO ACTIONS ' );
2996: END IF;
2997: --
2998:
2999: IF dd.delivery_id IS NOT NULL THEN
3109: l_delivery_info_tab(1).ship_method_code := l_group_tab(l_group_index).ship_method_code;
3110: END IF;
3111:
3112: IF l_debug_on THEN
3113: WSH_DEBUG_SV.logmsg(l_module_name, 'updating delivery: '||dd.delivery_id );
3114: END IF;
3115:
3116: l_del_in_rec.caller := 'WSH';
3117: l_del_in_rec.action_code := 'UPDATE';
3161: -- Even if the line stays on the container, but the shipmethod has changed, make sure the
3162: -- container is in sync with the line's shipmethod components.
3163:
3164: IF l_debug_on THEN
3165: WSH_DEBUG_SV.logmsg(l_module_name, 'locking container: '||dd.parent_delivery_detail_id );
3166: END IF;
3167:
3168:
3169:
3194: l_detail_info_tab(1).ship_method_code := l_group_tab(l_group_index).ship_method_code;
3195: END IF;
3196:
3197: IF l_debug_on THEN
3198: WSH_DEBUG_SV.logmsg(l_module_name, 'updating container: '||dd.parent_delivery_detail_id );
3199: END IF;
3200:
3201: l_detail_in_rec.caller := 'WSH_USA';
3202: l_detail_in_rec.action_code := 'UPDATE';
3251: END LOOP;
3252:
3253: --
3254: IF l_debug_on THEN
3255: WSH_DEBUG_SV.pop(l_module_name);
3256: END IF;
3257: --
3258: EXCEPTION
3259:
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;
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
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;
3276: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3277: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
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;
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
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;
3282: WHEN OTHERS THEN
3283: -- close open cursors as needed
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;
3282: WHEN OTHERS THEN
3283: -- close open cursors as needed
3284: IF c_del_det%ISOPEN THEN
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');
3297: END IF;
3298: --
3299: END Change_Delivery_Group;
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');
3297: END IF;
3298: --
3299: END Change_Delivery_Group;
3300:
3348: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3349: --
3350: IF l_debug_on IS NULL
3351: THEN
3352: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3353: END IF;
3354: --
3355: IF l_debug_on THEN
3356: WSH_DEBUG_SV.push(l_module_name);
3352: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3353: END IF;
3354: --
3355: IF l_debug_on THEN
3356: WSH_DEBUG_SV.push(l_module_name);
3357: --
3358: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3359: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
3360: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
3354: --
3355: IF l_debug_on THEN
3356: WSH_DEBUG_SV.push(l_module_name);
3357: --
3358: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3359: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
3360: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
3361: END IF;
3362:
3355: IF l_debug_on THEN
3356: WSH_DEBUG_SV.push(l_module_name);
3357: --
3358: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3359: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
3360: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
3361: END IF;
3362:
3363: -- need to write for both tolerance above and below
3356: WSH_DEBUG_SV.push(l_module_name);
3357: --
3358: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
3359: WSH_DEBUG_SV.log(l_module_name,'P_WMS_FLAG',P_WMS_FLAG);
3360: WSH_DEBUG_SV.log(l_module_name,'X_UPDATE_ALLOWED',X_UPDATE_ALLOWED);
3361: END IF;
3362:
3363: -- need to write for both tolerance above and below
3364: -- 2181132
3381: NVL(g_cache_detail_rec.ship_tolerance_below, FND_API.G_MISS_NUM))
3382: ) THEN
3383:
3384: IF l_debug_on THEN
3385: WSH_DEBUG_SV.log(l_module_name,'Tolerance Values are different');
3386: END IF;
3387:
3388: -- use cursor to determine if the values can be changed
3389: OPEN c_get_released_status;
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
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');
3422: END IF;
3423:
3424: RETURN;
3425:
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');
3435: END IF;
3436: --
3437:
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');
3435: END IF;
3436: --
3437:
3438: END Change_Ship_Tolerance;