[Home] [Help]
95: BEGIN
96:
97: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
98: IF l_debug_on IS NULL THEN
99: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
100: END IF;
101:
102: IF l_debug_on THEN
103: WSH_DEBUG_SV.push(l_module_name);
99: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
100: END IF;
101:
102: IF l_debug_on THEN
103: WSH_DEBUG_SV.push(l_module_name);
104: WSH_DEBUG_SV.log(l_module_name,'P_BACKORDER_REC_TBL.COUNT',P_BACKORDER_REC_TBL.COUNT);
105: WSH_DEBUG_SV.log(l_module_name,'P_ORG_INFO_TBL.COUNT',P_ORG_INFO_TBL.COUNT);
106: END IF;
107:
100: END IF;
101:
102: IF l_debug_on THEN
103: WSH_DEBUG_SV.push(l_module_name);
104: WSH_DEBUG_SV.log(l_module_name,'P_BACKORDER_REC_TBL.COUNT',P_BACKORDER_REC_TBL.COUNT);
105: WSH_DEBUG_SV.log(l_module_name,'P_ORG_INFO_TBL.COUNT',P_ORG_INFO_TBL.COUNT);
106: END IF;
107:
108: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
101:
102: IF l_debug_on THEN
103: WSH_DEBUG_SV.push(l_module_name);
104: WSH_DEBUG_SV.log(l_module_name,'P_BACKORDER_REC_TBL.COUNT',P_BACKORDER_REC_TBL.COUNT);
105: WSH_DEBUG_SV.log(l_module_name,'P_ORG_INFO_TBL.COUNT',P_ORG_INFO_TBL.COUNT);
106: END IF;
107:
108: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
109:
117:
118: -- Return back to caller if there are no records in table
119: IF p_backorder_rec_tbl.COUNT = 0 THEN
120: IF l_debug_on THEN
121: WSH_DEBUG_SV.pop(l_module_name);
122: END IF;
123: RETURN;
124: END IF;
125:
138: -- This is used to unassign empty containers from the Delivery at the end of Pick Release process
139: IF p_backorder_rec_tbl(i).planned_flag = 'N'
140: AND (NOT WSH_PICK_LIST.g_unassigned_delivery_ids.exists(p_backorder_rec_tbl(i).delivery_id)) THEN --{
141: IF l_debug_on THEN
142: WSH_DEBUG_SV.logmsg(l_module_name,'Assigning delivery to WSH_PICK_LIST.g_unassigned_delivery_ids');
143: END IF;
144: WSH_PICK_LIST.g_unassigned_delivery_ids(p_backorder_rec_tbl(i).delivery_id) := p_backorder_rec_tbl(i).delivery_id;
145: END IF; --}
146:
177: p_org_info_tbl(p_backorder_rec_tbl(i).organization_id).wms_org = 'Y' AND
178: p_backorder_rec_tbl(i).container_id is NOT NULL)
179: ) THEN --{
180: IF l_debug_on THEN
181: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process', WSH_DEBUG_SV.C_PROC_LEVEL);
182: END IF;
183:
184: WSH_WV_UTILS.DD_WV_Post_Process(
185: p_delivery_detail_id => p_backorder_rec_tbl(i).delivery_detail_id,
192:
193: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
194: WSH_UTIL_CORE.Add_Message(l_return_status);
195: IF l_debug_on THEN
196: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_WV_UTILS.DD_WV_Post_Process ');
197: END IF;
198: ROLLBACK TO unassign_backorder_details;
199: l_num_errors := l_num_errors + 1;
200: GOTO next_record;
234: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(p_backorder_rec_tbl(i).delivery_id);
235:
236: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
237: IF l_debug_on THEN
238: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIE_ACTIONS.IS_DELIVERY_EMPTY '||to_char(p_backorder_rec_tbl(i).delivery_id));
239: END IF;
240: ROLLBACK TO unassign_backorder_details;
241: l_num_errors := l_num_errors + 1;
242: GOTO next_record;
261: x_return_status => l_return_status);
262:
263: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
264: IF l_debug_on THEN
265: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
266: END IF;
267: ROLLBACK TO unassign_backorder_details;
268: l_num_errors := l_num_errors + 1;
269: GOTO next_record;
268: l_num_errors := l_num_errors + 1;
269: GOTO next_record;
270: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
271: IF l_debug_on THEN
272: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
273: END IF;
274: RAISE e_return;
275: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
276: IF l_debug_on THEN
273: END IF;
274: RAISE e_return;
275: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
276: IF l_debug_on THEN
277: WSH_DEBUG_SV.logmsg(l_module_name,'Warning in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
278: END IF;
279: l_num_warnings := l_num_warnings + 1;
280: END IF;
281: END IF;
296: x_return_status => l_return_status);
297:
298: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
299: IF l_debug_on THEN
300: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record');
301: END IF;
302: ROLLBACK TO unassign_backorder_details;
303: l_num_errors := l_num_errors + 1;
304: GOTO next_record;
303: l_num_errors := l_num_errors + 1;
304: GOTO next_record;
305: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
306: IF l_debug_on THEN
307: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error in WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record ');
308: END IF;
309: RAISE e_return;
310: END IF;
311: --}
316: x_return_status => l_return_status);
317:
318: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
319: IF l_debug_on THEN
320: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record');
321: END IF;
322: ROLLBACK TO unassign_backorder_details;
323: l_num_errors := l_num_errors + 1;
324: GOTO next_record;
323: l_num_errors := l_num_errors + 1;
324: GOTO next_record;
325: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
326: IF l_debug_on THEN
327: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error in WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record');
328: END IF;
329: RAISE e_return;
330: END IF;
331: END IF; --}
336: open l_cnt_orgn_csr(p_backorder_rec_tbl(i).container_id);
337: fetch l_cnt_orgn_csr into l_cnt_orgn_id;
338: close l_cnt_orgn_csr;
339: IF l_debug_on THEN
340: WSH_DEBUG_SV.log(l_module_name,'Parent Container Orgn Id Is',l_cnt_orgn_id);
341: END IF;
342:
343: l_wms_org := wsh_util_validate.check_wms_org(l_cnt_orgn_id);
344:
363: p_sync_tmp_rec => l_sync_tmp_rec,
364: x_return_status => l_return_status
365: );
366: IF l_debug_on THEN
367: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
368: END IF;
369: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
370: IF l_debug_on THEN
371: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_WMS_SYNC_TMP_PKG.MERGE ');
367: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
368: END IF;
369: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
370: IF l_debug_on THEN
371: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_WMS_SYNC_TMP_PKG.MERGE ');
372: END IF;
373: ROLLBACK TO unassign_backorder_details;
374: l_num_errors := l_num_errors + 1;
375: GOTO next_record;
374: l_num_errors := l_num_errors + 1;
375: GOTO next_record;
376: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
377: IF l_debug_on THEN
378: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected Error in WSH_WMS_SYNC_TMP_PKG.MERGE ');
379: END IF;
380: RAISE e_return;
381: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
382: l_num_warnings := l_num_warnings + 1;
403: END IF; --}
404: -- Common Error Handling for above APIs
405: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN --{
406: IF l_debug_on THEN
407: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_TP_RELEASE.calculate_cont_del_tpdates ');
408: END IF;
409: ROLLBACK TO unassign_backorder_details;
410: l_num_errors := l_num_errors + 1;
411: GOTO next_record;
410: l_num_errors := l_num_errors + 1;
411: GOTO next_record;
412: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
413: IF l_debug_on THEN
414: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected Error in WSH_TP_RELEASE.calculate_cont_del_tpdates ');
415: END IF;
416: RAISE e_return;
417: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
418: l_num_warnings := l_num_warnings + 1;
419: END IF; --}
420: END IF; --}
421:
422: IF l_debug_on THEN
423: WSH_DEBUG_SV.log(l_module_name,'Updated wsh_delivery_assignments_v for backordered_delivery_detail ' ,p_backorder_rec_tbl(i).delivery_detail_id);
424: END IF;
425:
426: -- FP bug 4208538 from bug 4075078
427: -- Freight costs need to be deleted for the delivery detail if
433: IF WSH_UTIL_CORE.FTE_Is_Installed = 'Y' AND l_new_delivery_id IS NULL THEN --{
434: l_dd_id(1) := p_backorder_rec_tbl(i).delivery_detail_id;
435:
436: IF l_debug_on THEN
437: WSH_DEBUG_SV.log(l_module_name,'Call WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs',p_backorder_rec_tbl(i).delivery_detail_id);
438: END IF;
439:
440: WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs(
441: p_delivery_details_tab => l_dd_id,
441: p_delivery_details_tab => l_dd_id,
442: x_return_status => l_return_status) ;
443:
444: IF l_debug_on THEN
445: WSH_DEBUG_SV.log(l_module_name,'After WSH_FREIGHT_COSTS_PVT.Remove_FTE_Freight_Costs: return',l_return_status);
446: END IF;
447:
448: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
449: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
448: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN --{
449: FND_MESSAGE.Set_Name('WSH', 'WSH_REPRICE_REQUIRED_ERR');
450: WSH_UTIL_CORE.add_message(l_return_status, l_module_name);
451: IF l_debug_on THEN
452: WSH_DEBUG_SV.logmsg(l_module_name,'Remove_FTE_Freight_Costs failed');
453: END IF;
454: ROLLBACK TO unassign_backorder_details;
455: l_num_errors := l_num_errors + 1;
456: GOTO next_record;
465: IF p_org_info_tbl(p_backorder_rec_tbl(i).organization_id).wms_org = 'Y'
466: AND p_backorder_rec_tbl(i).planned_flag = 'Y' AND p_backorder_rec_tbl(i).delivery_id is NOT NULL
467: AND p_backorder_rec_tbl(i).container_id is NOT NULL THEN --{
468: IF l_debug_on THEN
469: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process'
470: ,WSH_DEBUG_SV.C_PROC_LEVEL);
471: END IF;
472:
473: WSH_WV_UTILS.DD_WV_Post_Process(
466: AND p_backorder_rec_tbl(i).planned_flag = 'Y' AND p_backorder_rec_tbl(i).delivery_id is NOT NULL
467: AND p_backorder_rec_tbl(i).container_id is NOT NULL THEN --{
468: IF l_debug_on THEN
469: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DD_WV_Post_Process'
470: ,WSH_DEBUG_SV.C_PROC_LEVEL);
471: END IF;
472:
473: WSH_WV_UTILS.DD_WV_Post_Process(
474: p_delivery_detail_id => p_backorder_rec_tbl(i).delivery_detail_id,
480:
481: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
482: WSH_UTIL_CORE.Add_Message(l_return_status);
483: IF l_debug_on THEN
484: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_WV_UTILS.DD_WV_Post_Process ');
485: END IF;
486: ROLLBACK TO unassign_backorder_details;
487: l_num_errors := l_num_errors + 1;
488: GOTO next_record;
499: p_entity_type => 'DELIVERY',
500: p_entity_ids => l_reprice_del_tab,
501: x_return_status => l_return_status);
502: IF l_debug_on THEN
503: WSH_DEBUG_SV.log(l_module_name,'Mark_Reprice_Required l_return_status',l_return_status);
504: END IF;
505: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
506: RAISE MARK_REPRICE_ERROR;
507: END IF;
513: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
514: END IF;
515:
516: IF l_debug_on THEN
517: WSH_DEBUG_SV.pop(l_module_name);
518: END IF;
519:
520: EXCEPTION
521:
528: CLOSE c_detail_cont_planning_cur;
529: END IF;
530: -- End of OTM R12 : unassign delivery detail
531: IF l_debug_on THEN
532: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
533: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
534: END IF;
535:
536: WHEN e_return THEN
529: END IF;
530: -- End of OTM R12 : unassign delivery detail
531: IF l_debug_on THEN
532: WSH_DEBUG_SV.logmsg(l_module_name,'MARK_REPRICE_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
533: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:MARK_REPRICE_ERROR');
534: END IF;
535:
536: WHEN e_return THEN
537: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
541: CLOSE c_detail_cont_planning_cur;
542: END IF;
543: -- End of OTM R12 : unassign delivery detail
544: IF l_debug_on THEN
545: WSH_DEBUG_SV.logmsg(l_module_name,'UNASSIGN_BACKORDERED_DETAILS e_return exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
546: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UNASSIGN_BACKORDERED_DETAILS');
547: END IF;
548:
549: WHEN OTHERS THEN
542: END IF;
543: -- End of OTM R12 : unassign delivery detail
544: IF l_debug_on THEN
545: WSH_DEBUG_SV.logmsg(l_module_name,'UNASSIGN_BACKORDERED_DETAILS e_return exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
546: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UNASSIGN_BACKORDERED_DETAILS');
547: END IF;
548:
549: WHEN OTHERS THEN
550: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
557: CLOSE l_cnt_orgn_csr;
558: END IF;
559: -- End of OTM R12 : unassign delivery detail
560: IF l_debug_on THEN
561: WSH_DEBUG_SV.logmsg(l_module_name,'UNASSIGN_BACKORDERED_DETAILS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
562: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UNASSIGN_BACKORDERED_DETAILS');
563: END IF;
564:
565: END Unassign_Backordered_Details;
558: END IF;
559: -- End of OTM R12 : unassign delivery detail
560: IF l_debug_on THEN
561: WSH_DEBUG_SV.logmsg(l_module_name,'UNASSIGN_BACKORDERED_DETAILS exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
562: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UNASSIGN_BACKORDERED_DETAILS');
563: END IF;
564:
565: END Unassign_Backordered_Details;
566:
650: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
651: --
652: IF l_debug_on IS NULL
653: THEN
654: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
655: END IF;
656: --
657: IF l_debug_on THEN
658: WSH_DEBUG_SV.push(l_module_name);
654: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
655: END IF;
656: --
657: IF l_debug_on THEN
658: WSH_DEBUG_SV.push(l_module_name);
659: --
660: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
661: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
662: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
656: --
657: IF l_debug_on THEN
658: WSH_DEBUG_SV.push(l_module_name);
659: --
660: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
661: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
662: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
663: WSH_DEBUG_SV.log(l_module_name,'P_PLANNED_FLAG',P_PLANNED_FLAG);
664: WSH_DEBUG_SV.log(l_module_name,'P_WMS_ENABLED_FLAG',P_WMS_ENABLED_FLAG);
657: IF l_debug_on THEN
658: WSH_DEBUG_SV.push(l_module_name);
659: --
660: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
661: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
662: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
663: WSH_DEBUG_SV.log(l_module_name,'P_PLANNED_FLAG',P_PLANNED_FLAG);
664: WSH_DEBUG_SV.log(l_module_name,'P_WMS_ENABLED_FLAG',P_WMS_ENABLED_FLAG);
665: WSH_DEBUG_SV.log(l_module_name,'P_DEL_BATCH_ID',P_DEL_BATCH_ID);
658: WSH_DEBUG_SV.push(l_module_name);
659: --
660: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
661: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
662: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
663: WSH_DEBUG_SV.log(l_module_name,'P_PLANNED_FLAG',P_PLANNED_FLAG);
664: WSH_DEBUG_SV.log(l_module_name,'P_WMS_ENABLED_FLAG',P_WMS_ENABLED_FLAG);
665: WSH_DEBUG_SV.log(l_module_name,'P_DEL_BATCH_ID',P_DEL_BATCH_ID);
666: WSH_DEBUG_SV.log(l_module_name,'P_REPLENISHMENT_STATUS',p_replenishment_status);
659: --
660: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
661: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
662: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
663: WSH_DEBUG_SV.log(l_module_name,'P_PLANNED_FLAG',P_PLANNED_FLAG);
664: WSH_DEBUG_SV.log(l_module_name,'P_WMS_ENABLED_FLAG',P_WMS_ENABLED_FLAG);
665: WSH_DEBUG_SV.log(l_module_name,'P_DEL_BATCH_ID',P_DEL_BATCH_ID);
666: WSH_DEBUG_SV.log(l_module_name,'P_REPLENISHMENT_STATUS',p_replenishment_status);
667: END IF;
660: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
661: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
662: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
663: WSH_DEBUG_SV.log(l_module_name,'P_PLANNED_FLAG',P_PLANNED_FLAG);
664: WSH_DEBUG_SV.log(l_module_name,'P_WMS_ENABLED_FLAG',P_WMS_ENABLED_FLAG);
665: WSH_DEBUG_SV.log(l_module_name,'P_DEL_BATCH_ID',P_DEL_BATCH_ID);
666: WSH_DEBUG_SV.log(l_module_name,'P_REPLENISHMENT_STATUS',p_replenishment_status);
667: END IF;
668: --
661: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',P_REQUESTED_QUANTITY);
662: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
663: WSH_DEBUG_SV.log(l_module_name,'P_PLANNED_FLAG',P_PLANNED_FLAG);
664: WSH_DEBUG_SV.log(l_module_name,'P_WMS_ENABLED_FLAG',P_WMS_ENABLED_FLAG);
665: WSH_DEBUG_SV.log(l_module_name,'P_DEL_BATCH_ID',P_DEL_BATCH_ID);
666: WSH_DEBUG_SV.log(l_module_name,'P_REPLENISHMENT_STATUS',p_replenishment_status);
667: END IF;
668: --
669:
662: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',P_REQUESTED_QUANTITY2);
663: WSH_DEBUG_SV.log(l_module_name,'P_PLANNED_FLAG',P_PLANNED_FLAG);
664: WSH_DEBUG_SV.log(l_module_name,'P_WMS_ENABLED_FLAG',P_WMS_ENABLED_FLAG);
665: WSH_DEBUG_SV.log(l_module_name,'P_DEL_BATCH_ID',P_DEL_BATCH_ID);
666: WSH_DEBUG_SV.log(l_module_name,'P_REPLENISHMENT_STATUS',p_replenishment_status);
667: END IF;
668: --
669:
670: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
735: p_event => 'oracle.apps.wsh.line.gen.backordered' ,
736: p_organization_id => l_organization_id,
737: x_return_status => l_wf_rs ) ;
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
740: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',p_delivery_detail_id );
741: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
742: END IF;
743: --Done Raise Event: Pick To Pod Workflow
736: p_organization_id => l_organization_id,
737: x_return_status => l_wf_rs ) ;
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
740: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',p_delivery_detail_id );
741: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
742: END IF;
743: --Done Raise Event: Pick To Pod Workflow
744: ELSE
737: x_return_status => l_wf_rs ) ;
738: IF l_debug_on THEN
739: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
740: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',p_delivery_detail_id );
741: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
742: END IF;
743: --Done Raise Event: Pick To Pod Workflow
744: ELSE
745: WSH_WF_STD.Raise_Event(
748: p_event => 'oracle.apps.wsh.line.gen.replenishmentrequested' ,
749: p_organization_id => l_organization_id,
750: x_return_status => l_wf_rs ) ;
751: IF l_debug_on THEN
752: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
753: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',p_delivery_detail_id );
754: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
755: END IF;
756: --}
749: p_organization_id => l_organization_id,
750: x_return_status => l_wf_rs ) ;
751: IF l_debug_on THEN
752: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
753: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',p_delivery_detail_id );
754: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
755: END IF;
756: --}
757: END IF;
750: x_return_status => l_wf_rs ) ;
751: IF l_debug_on THEN
752: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
753: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ',p_delivery_detail_id );
754: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
755: END IF;
756: --}
757: END IF;
758:
757: END IF;
758:
759:
760: IF l_debug_on THEN
761: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',p_delivery_detail_id);
762: END IF;
763: l_detail_tab(1) := p_delivery_detail_id;
764: WSH_INTEGRATION.DBI_Update_Detail_Log
765: (p_delivery_detail_id_tab => l_detail_tab,
766: p_dml_type => 'UPDATE',
767: x_return_status => l_dbi_rs);
768:
769: IF l_debug_on THEN
770: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
771: END IF;
772: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
773: x_return_status := l_dbi_rs;
774: -- just pass this return status to caller API
772: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
773: x_return_status := l_dbi_rs;
774: -- just pass this return status to caller API
775: IF l_debug_on THEN
776: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
777: WSH_DEBUG_SV.pop(l_module_name);
778: END IF;
779: return;
780: END IF;
773: x_return_status := l_dbi_rs;
774: -- just pass this return status to caller API
775: IF l_debug_on THEN
776: WSH_DEBUG_SV.logmsg(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
777: WSH_DEBUG_SV.pop(l_module_name);
778: END IF;
779: return;
780: END IF;
781: -- End of Code for DBI Project
784: -- replenishment requested lines.
785: IF ( p_replenishment_status IS NULL ) THEN
786: --{
787: IF l_debug_on THEN
788: WSH_DEBUG_SV.log(l_module_name,'Updated wsh_delivery_details for backordered_delivery_detail ' ,p_delivery_detail_id);
789: END IF;
790: -- If Pick Release is run in Parallel Mode, then Unassigning is Deferred
791: -- Unassignment API is later called from WSH_PICK_LIST.Release_Batch API
792: -- For backordering in other cases or Non-Parallel Pick Release, unassign api is called immediately
806: -- Assigning wms flag in Org Table Info
807: l_org_info_tbl(l_organization_id).wms_org := p_wms_enabled_flag;
808:
809: IF l_debug_on THEN
810: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit Unassign_Backordered_Details',WSH_DEBUG_SV.C_PROC_LEVEL);
811: END IF;
812: Unassign_Backordered_Details (
813: p_backorder_rec_tbl => l_backorder_rec_tbl,
814: p_org_info_tbl => l_org_info_tbl,
814: p_org_info_tbl => l_org_info_tbl,
815: x_return_status => l_return_status );
816:
817: IF l_debug_on THEN
818: WSH_DEBUG_SV.log(l_module_name,'After Unassign_Backordered_Details: return',l_return_status);
819: END IF;
820: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
821: x_return_status := l_return_status;
822: WSH_UTIL_CORE.Add_Message(x_return_status);
820: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
821: x_return_status := l_return_status;
822: WSH_UTIL_CORE.Add_Message(x_return_status);
823: IF l_debug_on THEN
824: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
825: WSH_DEBUG_SV.pop(l_module_name);
826: END IF;
827: RETURN;
828: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
821: x_return_status := l_return_status;
822: WSH_UTIL_CORE.Add_Message(x_return_status);
823: IF l_debug_on THEN
824: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
825: WSH_DEBUG_SV.pop(l_module_name);
826: END IF;
827: RETURN;
828: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
829: IF x_return_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
832: END IF;
833: --}
834: ELSE
835: IF l_debug_on THEN
836: WSH_DEBUG_SV.logmsg(l_module_name,'Deferring call to Unassign_Backordered_Details for detail : '||p_delivery_detail_id);
837: END IF;
838: END IF;
839: --}
840: END IF;
839: --}
840: END IF;
841:
842: IF l_debug_on THEN
843: WSH_DEBUG_SV.log(l_module_name,'Return Status at the end of backorder_delivery_detail API is',x_return_status);
844: WSH_DEBUG_SV.pop(l_module_name);
845: END IF;
846:
847: EXCEPTION
840: END IF;
841:
842: IF l_debug_on THEN
843: WSH_DEBUG_SV.log(l_module_name,'Return Status at the end of backorder_delivery_detail API is',x_return_status);
844: WSH_DEBUG_SV.pop(l_module_name);
845: END IF;
846:
847: EXCEPTION
848:
849: WHEN OTHERS THEN
850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
851: WSH_UTIL_CORE.default_handler('WSH_USA_INV_PVT.backorder_delivery_detail');
852: IF l_debug_on THEN
853: WSH_DEBUG_SV.logmsg(l_module_name,'BACKORDER_DELIVERY_DETAIL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
854: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:BACKORDER_DELIVERY_DETAIL');
855: END IF;
856:
857: END backorder_delivery_detail;
850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
851: WSH_UTIL_CORE.default_handler('WSH_USA_INV_PVT.backorder_delivery_detail');
852: IF l_debug_on THEN
853: WSH_DEBUG_SV.logmsg(l_module_name,'BACKORDER_DELIVERY_DETAIL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
854: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:BACKORDER_DELIVERY_DETAIL');
855: END IF;
856:
857: END backorder_delivery_detail;
858:
889: --
890: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
891: --
892: IF l_debug_on IS NULL THEN
893: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
894: -- add more debug messages
895: WSH_DEBUG_SV.push(l_module_name);
896: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
897: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
891: --
892: IF l_debug_on IS NULL THEN
893: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
894: -- add more debug messages
895: WSH_DEBUG_SV.push(l_module_name);
896: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
897: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
898: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
899: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
892: IF l_debug_on IS NULL THEN
893: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
894: -- add more debug messages
895: WSH_DEBUG_SV.push(l_module_name);
896: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
897: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
898: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
899: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
900: END IF;
893: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
894: -- add more debug messages
895: WSH_DEBUG_SV.push(l_module_name);
896: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
897: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
898: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
899: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
900: END IF;
901: --
894: -- add more debug messages
895: WSH_DEBUG_SV.push(l_module_name);
896: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
897: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
898: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
899: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
900: END IF;
901: --
902:
895: WSH_DEBUG_SV.push(l_module_name);
896: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
897: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
898: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
899: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
900: END IF;
901: --
902:
903: x_total_rsv := 0 ;
926: oe_debug_pub.add('In Get_total_Reserved_quantity ',2);
927: oe_debug_pub.add('x_total_rsv , l_rsv_array(i).primary_reservation_quantity , l_rsv_array(i).requirement_Date ',2);
928:
929: IF l_debug_on THEN
930: WSH_DEBUG_SV.log(l_module_name,'x_total_rsv2',x_total_rsv2);
931: END IF;
932:
933: FOR i in 1..l_rsv_array.count
934: LOOP
937: oe_debug_pub.add(x_total_rsv || ' : ' || l_rsv_array(i).primary_reservation_quantity || ' : ' || l_rsv_array(i).requirement_Date ,2);
938: -- HW OPMCONV - Get Qty2
939: x_total_rsv2 := x_total_rsv2 + l_rsv_array(i).secondary_reservation_quantity ;
940: IF l_debug_on THEN
941: WSH_DEBUG_SV.logmsg(l_module_name,'x_total_rsv2',x_total_rsv2);
942: END IF;
943:
944: END LOOP ;
945:
943:
944: END LOOP ;
945:
946: IF l_debug_on THEN
947: WSH_DEBUG_SV.pop(l_module_name);
948: END IF;
949:
950: EXCEPTION
951: WHEN totals_failed THEN
951: WHEN totals_failed THEN
952: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
953: WSH_UTIL_CORE.add_message (x_return_status);
954: IF l_debug_on THEN
955: WSH_DEBUG_SV.logmsg(l_module_name,'GET_TOTAL_RESERVED_QUANTITY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
956: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_TOTAL_RESERVED_QUANTITY');
957: END IF;
958:
959: WHEN OTHERS THEN
952: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
953: WSH_UTIL_CORE.add_message (x_return_status);
954: IF l_debug_on THEN
955: WSH_DEBUG_SV.logmsg(l_module_name,'GET_TOTAL_RESERVED_QUANTITY exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
956: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:GET_TOTAL_RESERVED_QUANTITY');
957: END IF;
958:
959: WHEN OTHERS THEN
960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
959: WHEN OTHERS THEN
960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
961: WSH_UTIL_CORE.default_handler('WSH_USA_INV_PVT.Get_total_Reserved_quantity');
962: IF l_debug_on THEN
963: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
964: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
965: END IF;
966:
967: END Get_total_Reserved_quantity ;
960: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
961: WSH_UTIL_CORE.default_handler('WSH_USA_INV_PVT.Get_total_Reserved_quantity');
962: IF l_debug_on THEN
963: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
964: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
965: END IF;
966:
967: END Get_total_Reserved_quantity ;
968:
1006: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1007: --
1008: IF l_debug_on IS NULL
1009: THEN
1010: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1011: END IF;
1012: --
1013: IF l_debug_on THEN
1014: WSH_DEBUG_SV.push(l_module_name);
1010: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1011: END IF;
1012: --
1013: IF l_debug_on THEN
1014: WSH_DEBUG_SV.push(l_module_name);
1015: --
1016: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1017: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1018: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1012: --
1013: IF l_debug_on THEN
1014: WSH_DEBUG_SV.push(l_module_name);
1015: --
1016: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1017: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1018: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1019: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
1020: WSH_DEBUG_SV.log(l_module_name,'P_LOCK_RECORDS',P_LOCK_RECORDS);
1013: IF l_debug_on THEN
1014: WSH_DEBUG_SV.push(l_module_name);
1015: --
1016: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1017: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1018: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1019: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
1020: WSH_DEBUG_SV.log(l_module_name,'P_LOCK_RECORDS',P_LOCK_RECORDS);
1021: WSH_DEBUG_SV.log(l_module_name,'P_CANCEL_ORDER_MODE',P_CANCEL_ORDER_MODE);
1014: WSH_DEBUG_SV.push(l_module_name);
1015: --
1016: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1017: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1018: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1019: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
1020: WSH_DEBUG_SV.log(l_module_name,'P_LOCK_RECORDS',P_LOCK_RECORDS);
1021: WSH_DEBUG_SV.log(l_module_name,'P_CANCEL_ORDER_MODE',P_CANCEL_ORDER_MODE);
1022: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1015: --
1016: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1017: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1018: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1019: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
1020: WSH_DEBUG_SV.log(l_module_name,'P_LOCK_RECORDS',P_LOCK_RECORDS);
1021: WSH_DEBUG_SV.log(l_module_name,'P_CANCEL_ORDER_MODE',P_CANCEL_ORDER_MODE);
1022: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1023: END IF;
1016: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1017: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1018: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1019: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
1020: WSH_DEBUG_SV.log(l_module_name,'P_LOCK_RECORDS',P_LOCK_RECORDS);
1021: WSH_DEBUG_SV.log(l_module_name,'P_CANCEL_ORDER_MODE',P_CANCEL_ORDER_MODE);
1022: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1023: END IF;
1024: --
1017: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1018: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1019: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
1020: WSH_DEBUG_SV.log(l_module_name,'P_LOCK_RECORDS',P_LOCK_RECORDS);
1021: WSH_DEBUG_SV.log(l_module_name,'P_CANCEL_ORDER_MODE',P_CANCEL_ORDER_MODE);
1022: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1023: END IF;
1024: --
1025: --
1018: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1019: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
1020: WSH_DEBUG_SV.log(l_module_name,'P_LOCK_RECORDS',P_LOCK_RECORDS);
1021: WSH_DEBUG_SV.log(l_module_name,'P_CANCEL_ORDER_MODE',P_CANCEL_ORDER_MODE);
1022: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1023: END IF;
1024: --
1025: --
1026: -- Debug Statements
1025: --
1026: -- Debug Statements
1027: --
1028: IF l_debug_on THEN
1029: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.QUERY_RESERVATIONS ORDER LINE = '|| P_SOURCE_LINE_ID );
1030: END IF;
1031: --
1032: --
1033: -- Debug Statements
1032: --
1033: -- Debug Statements
1034: --
1035: IF l_debug_on THEN
1036: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit OE_ORDER_SCH_UTIL.GET_MTL_SALES_ORDER_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
1037: END IF;
1038: --
1039: l_sales_order_id
1040: := OE_ORDER_SCH_UTIL.Get_mtl_sales_order_id(p_source_header_id);
1038: --
1039: l_sales_order_id
1040: := OE_ORDER_SCH_UTIL.Get_mtl_sales_order_id(p_source_header_id);
1041: IF l_debug_on THEN
1042: WSH_DEBUG_SV.log(l_module_name,'l_sales_order_id',l_sales_order_id);
1043: END IF;
1044: l_rsv.demand_source_header_id := l_sales_order_id;
1045: l_rsv.demand_source_line_id := p_source_line_id;
1046: l_rsv.organization_id := p_organization_id;
1061: --
1062: -- Debug Statements
1063: --
1064: IF l_debug_on THEN
1065: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.QUERY_RESERVATION_OM_HDR_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
1066: END IF;
1067: --
1068: INV_RESERVATION_PUB.query_reservation_om_hdr_line
1069: (
1079: , x_error_code => l_error_code
1080: , p_lock_records => p_lock_records
1081: );
1082: IF l_debug_on THEN
1083: WSH_DEBUG_SV.log(l_module_name,'query_reservation_om_hdr_line x_return_status',x_return_status);
1084: END IF;
1085:
1086:
1087: IF x_return_status = fnd_api.g_ret_sts_success THEN
1088: --
1089: -- Debug Statements
1090: --
1091: IF l_debug_on THEN
1092: WSH_DEBUG_SV.logmsg(l_module_name, 'NUMBER OF RESERVATIONS FOUND: '||TO_CHAR ( X_MTL_RESERVATION_TBL_COUNT ) );
1093: END IF;
1094: --
1095: ELSE
1096: FND_MESSAGE.Set_Name('WSH', 'WSH_QUERY_RESERVATION');
1098: --
1099: -- Debug Statements
1100: --
1101: IF l_debug_on THEN
1102: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
1103: END IF;
1104: --
1105: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
1106: ELSE
1109: --
1110: -- Debug Statements
1111: --
1112: IF l_debug_on THEN
1113: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
1114: END IF;
1115: --
1116: l_error_text := l_error_text || l_msg_data;
1117: END LOOP;
1123: --
1124: -- Debug Statements
1125: --
1126: IF l_debug_on THEN
1127: WSH_DEBUG_SV.pop(l_module_name);
1128: END IF;
1129: --
1130: EXCEPTION
1131: WHEN query_reservation_failed THEN
1131: WHEN query_reservation_failed THEN
1132: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1133: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1134: IF l_debug_on THEN
1135: WSH_DEBUG_SV.logmsg(l_module_name,'QUERY_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1136: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUERY_RESERVATION_FAILED');
1137: END IF;
1138: END QUERY_RESERVATIONS;
1139:
1132: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1133: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
1134: IF l_debug_on THEN
1135: WSH_DEBUG_SV.logmsg(l_module_name,'QUERY_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1136: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:QUERY_RESERVATION_FAILED');
1137: END IF;
1138: END QUERY_RESERVATIONS;
1139:
1140: -- This is a wrapper on inv_reservation_pub.delete_reservation
1161: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1162: --
1163: IF l_debug_on IS NULL
1164: THEN
1165: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1166: END IF;
1167: --
1168: IF l_debug_on THEN
1169: WSH_DEBUG_SV.push(l_module_name);
1165: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1166: END IF;
1167: --
1168: IF l_debug_on THEN
1169: WSH_DEBUG_SV.push(l_module_name);
1170: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.DELETE_RESERVATION ORDER LINE = '|| P_QUERY_INPUT.DEMAND_SOURCE_LINE_ID );
1171: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.DELETE_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
1172: END IF;
1173:
1166: END IF;
1167: --
1168: IF l_debug_on THEN
1169: WSH_DEBUG_SV.push(l_module_name);
1170: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.DELETE_RESERVATION ORDER LINE = '|| P_QUERY_INPUT.DEMAND_SOURCE_LINE_ID );
1171: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.DELETE_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
1172: END IF;
1173:
1174: INV_RESERVATION_PUB.delete_reservation
1167: --
1168: IF l_debug_on THEN
1169: WSH_DEBUG_SV.push(l_module_name);
1170: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.DELETE_RESERVATION ORDER LINE = '|| P_QUERY_INPUT.DEMAND_SOURCE_LINE_ID );
1171: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.DELETE_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
1172: END IF;
1173:
1174: INV_RESERVATION_PUB.delete_reservation
1175: (
1181: , p_rsv_rec => p_query_input
1182: , p_serial_number => l_dummy_sn
1183: );
1184: IF l_debug_on THEN
1185: WSH_DEBUG_SV.log(l_module_name,'delete_reservation x_return_status',x_return_status);
1186: END IF;
1187:
1188: IF x_return_status = fnd_api.g_ret_sts_success THEN
1189: --
1189: --
1190: -- Debug Statements
1191: --
1192: IF l_debug_on THEN
1193: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATION DELETED FOR RESERVATION ID : '||P_QUERY_INPUT.RESERVATION_ID );
1194: END IF;
1195: --
1196: ELSE
1197: --
1197: --
1198: -- Debug Statements
1199: --
1200: IF l_debug_on THEN
1201: WSH_DEBUG_SV.logmsg(l_module_name, 'COULD NOT DELETE RESERVATION FOR RESERVATION ID : '||P_QUERY_INPUT.RESERVATION_ID );
1202: END IF;
1203: --
1204: FND_MESSAGE.Set_Name('WSH', 'WSH_DELETE_RESERVATION');
1205: IF l_msg_count = 1 THEN
1206: --
1207: -- Debug Statements
1208: --
1209: IF l_debug_on THEN
1210: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
1211: END IF;
1212: --
1213: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
1214: ELSE
1217: --
1218: -- Debug Statements
1219: --
1220: IF l_debug_on THEN
1221: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
1222: END IF;
1223: --
1224: l_error_text := l_error_text || l_msg_data;
1225: END LOOP;
1231: --
1232: -- Debug Statements
1233: --
1234: IF l_debug_on THEN
1235: WSH_DEBUG_SV.pop(l_module_name);
1236: END IF;
1237: --
1238: EXCEPTION
1239: WHEN delete_reservation_failed THEN
1242: --
1243: -- Debug Statements
1244: --
1245: IF l_debug_on THEN
1246: WSH_DEBUG_SV.logmsg(l_module_name,'DELETE_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1247: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELETE_RESERVATION_FAILED');
1248: END IF;
1249: --
1250: END delete_reservation;
1243: -- Debug Statements
1244: --
1245: IF l_debug_on THEN
1246: WSH_DEBUG_SV.logmsg(l_module_name,'DELETE_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1247: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DELETE_RESERVATION_FAILED');
1248: END IF;
1249: --
1250: END delete_reservation;
1251:
1284: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1285: --
1286: IF l_debug_on IS NULL
1287: THEN
1288: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1289: END IF;
1290: --
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.push(l_module_name);
1288: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1289: END IF;
1290: --
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.push(l_module_name);
1293: WSH_DEBUG_SV.log(l_module_name, 'p_query_input.organization_id',p_query_input.organization_id);
1294: END IF;
1295: --
1296: --
1289: END IF;
1290: --
1291: IF l_debug_on THEN
1292: WSH_DEBUG_SV.push(l_module_name);
1293: WSH_DEBUG_SV.log(l_module_name, 'p_query_input.organization_id',p_query_input.organization_id);
1294: END IF;
1295: --
1296: --
1297: -- Debug Statements
1302: --
1303: -- Debug Statements
1304: --
1305: IF l_debug_on THEN
1306: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.CREATE_RESERVATION ' );
1307: END IF;
1308: --
1309:
1310: --
1310: --
1311: -- Debug Statements
1312: --
1313: IF l_debug_on THEN
1314: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.CREATE_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
1315: END IF;
1316: --
1317:
1318:
1357: , x_reservation_id => x_reservation_id
1358: );
1359: END IF;
1360: IF l_debug_on THEN
1361: WSH_DEBUG_SV.log(l_module_name,'INV_RESERVATION_PUB.CREATE_RESERVATION',x_return_status);
1362: END IF;
1363:
1364: IF x_return_status = fnd_api.g_ret_sts_success THEN
1365: --
1365: --
1366: -- Debug Statements
1367: --
1368: IF l_debug_on THEN
1369: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATION CREATED FOR RESERVATION ID : '||X_RESERVATION_ID );
1370: END IF;
1371: --
1372: ELSE
1373: FND_MESSAGE.Set_Name('WSH', 'WSH_CREATE_RESERVATION');
1375: --
1376: -- Debug Statements
1377: --
1378: IF l_debug_on THEN
1379: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
1380: END IF;
1381: --
1382: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
1383: ELSE
1386: --
1387: -- Debug Statements
1388: --
1389: IF l_debug_on THEN
1390: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
1391: END IF;
1392: --
1393: l_error_text := l_error_text || l_msg_data;
1394: END LOOP;
1402: --
1403: -- Debug Statements
1404: --
1405: IF l_debug_on THEN
1406: WSH_DEBUG_SV.pop(l_module_name);
1407: END IF;
1408: --
1409: EXCEPTION
1410: WHEN create_reservation_failed THEN
1413: --
1414: -- Debug Statements
1415: --
1416: IF l_debug_on THEN
1417: WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1418: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_RESERVATION_FAILED');
1419: END IF;
1420: --
1421: END;
1414: -- Debug Statements
1415: --
1416: IF l_debug_on THEN
1417: WSH_DEBUG_SV.logmsg(l_module_name,'CREATE_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1418: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CREATE_RESERVATION_FAILED');
1419: END IF;
1420: --
1421: END;
1422:
1449: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1450: --
1451: IF l_debug_on IS NULL
1452: THEN
1453: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1454: END IF;
1455: --
1456: IF l_debug_on THEN
1457: WSH_DEBUG_SV.push(l_module_name);
1453: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1454: END IF;
1455: --
1456: IF l_debug_on THEN
1457: WSH_DEBUG_SV.push(l_module_name);
1458: WSH_DEBUG_SV.log(l_module_name,'p_query_input.reservation_id',p_query_input.reservation_id);
1459: WSH_DEBUG_SV.log(l_module_name,'p_query_input.organization_id',p_query_input.organization_id);
1460: WSH_DEBUG_SV.log(l_module_name,'p_query_input.inventory_item_id',p_query_input.inventory_item_id);
1461: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.reservation_id',p_new_resv_rec.reservation_id);
1454: END IF;
1455: --
1456: IF l_debug_on THEN
1457: WSH_DEBUG_SV.push(l_module_name);
1458: WSH_DEBUG_SV.log(l_module_name,'p_query_input.reservation_id',p_query_input.reservation_id);
1459: WSH_DEBUG_SV.log(l_module_name,'p_query_input.organization_id',p_query_input.organization_id);
1460: WSH_DEBUG_SV.log(l_module_name,'p_query_input.inventory_item_id',p_query_input.inventory_item_id);
1461: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.reservation_id',p_new_resv_rec.reservation_id);
1462: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.organization_id',p_new_resv_rec.organization_id);
1455: --
1456: IF l_debug_on THEN
1457: WSH_DEBUG_SV.push(l_module_name);
1458: WSH_DEBUG_SV.log(l_module_name,'p_query_input.reservation_id',p_query_input.reservation_id);
1459: WSH_DEBUG_SV.log(l_module_name,'p_query_input.organization_id',p_query_input.organization_id);
1460: WSH_DEBUG_SV.log(l_module_name,'p_query_input.inventory_item_id',p_query_input.inventory_item_id);
1461: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.reservation_id',p_new_resv_rec.reservation_id);
1462: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.organization_id',p_new_resv_rec.organization_id);
1463: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.inventory_item_id',p_new_resv_rec.inventory_item_id);
1456: IF l_debug_on THEN
1457: WSH_DEBUG_SV.push(l_module_name);
1458: WSH_DEBUG_SV.log(l_module_name,'p_query_input.reservation_id',p_query_input.reservation_id);
1459: WSH_DEBUG_SV.log(l_module_name,'p_query_input.organization_id',p_query_input.organization_id);
1460: WSH_DEBUG_SV.log(l_module_name,'p_query_input.inventory_item_id',p_query_input.inventory_item_id);
1461: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.reservation_id',p_new_resv_rec.reservation_id);
1462: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.organization_id',p_new_resv_rec.organization_id);
1463: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.inventory_item_id',p_new_resv_rec.inventory_item_id);
1464:
1457: WSH_DEBUG_SV.push(l_module_name);
1458: WSH_DEBUG_SV.log(l_module_name,'p_query_input.reservation_id',p_query_input.reservation_id);
1459: WSH_DEBUG_SV.log(l_module_name,'p_query_input.organization_id',p_query_input.organization_id);
1460: WSH_DEBUG_SV.log(l_module_name,'p_query_input.inventory_item_id',p_query_input.inventory_item_id);
1461: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.reservation_id',p_new_resv_rec.reservation_id);
1462: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.organization_id',p_new_resv_rec.organization_id);
1463: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.inventory_item_id',p_new_resv_rec.inventory_item_id);
1464:
1465: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING IN UPDATE RESER' );
1458: WSH_DEBUG_SV.log(l_module_name,'p_query_input.reservation_id',p_query_input.reservation_id);
1459: WSH_DEBUG_SV.log(l_module_name,'p_query_input.organization_id',p_query_input.organization_id);
1460: WSH_DEBUG_SV.log(l_module_name,'p_query_input.inventory_item_id',p_query_input.inventory_item_id);
1461: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.reservation_id',p_new_resv_rec.reservation_id);
1462: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.organization_id',p_new_resv_rec.organization_id);
1463: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.inventory_item_id',p_new_resv_rec.inventory_item_id);
1464:
1465: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING IN UPDATE RESER' );
1466: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_recsecondary_reservation_quantity '||p_new_resv_rec.secondary_reservation_quantity );
1459: WSH_DEBUG_SV.log(l_module_name,'p_query_input.organization_id',p_query_input.organization_id);
1460: WSH_DEBUG_SV.log(l_module_name,'p_query_input.inventory_item_id',p_query_input.inventory_item_id);
1461: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.reservation_id',p_new_resv_rec.reservation_id);
1462: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.organization_id',p_new_resv_rec.organization_id);
1463: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.inventory_item_id',p_new_resv_rec.inventory_item_id);
1464:
1465: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING IN UPDATE RESER' );
1466: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_recsecondary_reservation_quantity '||p_new_resv_rec.secondary_reservation_quantity );
1467: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_rec.secondary_UOM_CODE '||p_new_resv_rec.secondary_uom_code );
1461: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.reservation_id',p_new_resv_rec.reservation_id);
1462: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.organization_id',p_new_resv_rec.organization_id);
1463: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.inventory_item_id',p_new_resv_rec.inventory_item_id);
1464:
1465: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING IN UPDATE RESER' );
1466: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_recsecondary_reservation_quantity '||p_new_resv_rec.secondary_reservation_quantity );
1467: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_rec.secondary_UOM_CODE '||p_new_resv_rec.secondary_uom_code );
1468: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_rec.secondary_ID '||p_new_resv_rec.secondary_uom_id );
1469:
1462: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.organization_id',p_new_resv_rec.organization_id);
1463: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.inventory_item_id',p_new_resv_rec.inventory_item_id);
1464:
1465: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING IN UPDATE RESER' );
1466: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_recsecondary_reservation_quantity '||p_new_resv_rec.secondary_reservation_quantity );
1467: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_rec.secondary_UOM_CODE '||p_new_resv_rec.secondary_uom_code );
1468: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_rec.secondary_ID '||p_new_resv_rec.secondary_uom_id );
1469:
1470:
1463: WSH_DEBUG_SV.log(l_module_name,'p_new_resv_rec.inventory_item_id',p_new_resv_rec.inventory_item_id);
1464:
1465: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING IN UPDATE RESER' );
1466: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_recsecondary_reservation_quantity '||p_new_resv_rec.secondary_reservation_quantity );
1467: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_rec.secondary_UOM_CODE '||p_new_resv_rec.secondary_uom_code );
1468: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_rec.secondary_ID '||p_new_resv_rec.secondary_uom_id );
1469:
1470:
1471: END IF;
1464:
1465: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING IN UPDATE RESER' );
1466: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_recsecondary_reservation_quantity '||p_new_resv_rec.secondary_reservation_quantity );
1467: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_rec.secondary_UOM_CODE '||p_new_resv_rec.secondary_uom_code );
1468: WSH_DEBUG_SV.logmsg(l_module_name, 'p_new_resv_rec.secondary_ID '||p_new_resv_rec.secondary_uom_id );
1469:
1470:
1471: END IF;
1472: --
1472: --
1473: -- Debug Statements
1474: --
1475: IF l_debug_on THEN
1476: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.UPDATE_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
1477: END IF;
1478: --
1479:
1480:
1493: -- Bug 5099694
1494: , p_over_reservation_flag =>3
1495: );
1496: IF l_debug_on THEN
1497: WSH_DEBUG_SV.log(l_module_name,'INV_RESERVATION_PUB.update_reservation',x_return_status);
1498: END IF;
1499:
1500: IF x_return_status = fnd_api.g_ret_sts_success THEN
1501: --
1501: --
1502: -- Debug Statements
1503: --
1504: IF l_debug_on THEN
1505: WSH_DEBUG_SV.logmsg(l_module_name, 'RESERVATION UPDATED FOR RESERVATION ID : '||TO_CHAR ( P_QUERY_INPUT.RESERVATION_ID ) );
1506: END IF;
1507: --
1508: ELSE
1509: FND_MESSAGE.Set_Name('WSH', 'WSH_UPDATE_RESERVATION');
1511: --
1512: -- Debug Statements
1513: --
1514: IF l_debug_on THEN
1515: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
1516: END IF;
1517: --
1518: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
1519: ELSE
1522: --
1523: -- Debug Statements
1524: --
1525: IF l_debug_on THEN
1526: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
1527: END IF;
1528: --
1529: l_error_text := l_error_text || l_msg_data;
1530: END LOOP;
1536: --
1537: -- Debug Statements
1538: --
1539: IF l_debug_on THEN
1540: WSH_DEBUG_SV.pop(l_module_name);
1541: END IF;
1542: --
1543: EXCEPTION
1544: WHEN update_reservation_failed THEN
1547: --
1548: -- Debug Statements
1549: --
1550: IF l_debug_on THEN
1551: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_RESERVATION_FAILED');
1553: END IF;
1554: --
1555: END;
1548: -- Debug Statements
1549: --
1550: IF l_debug_on THEN
1551: WSH_DEBUG_SV.logmsg(l_module_name,'UPDATE_RESERVATION_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1552: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:UPDATE_RESERVATION_FAILED');
1553: END IF;
1554: --
1555: END;
1556:
1572: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1573: --
1574: IF l_debug_on IS NULL
1575: THEN
1576: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1577: END IF;
1578: --
1579: IF l_debug_on THEN
1580: WSH_DEBUG_SV.push(l_module_name);
1576: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1577: END IF;
1578: --
1579: IF l_debug_on THEN
1580: WSH_DEBUG_SV.push(l_module_name);
1581: --
1582: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
1583: END IF;
1584: --
1578: --
1579: IF l_debug_on THEN
1580: WSH_DEBUG_SV.push(l_module_name);
1581: --
1582: WSH_DEBUG_SV.log(l_module_name,'P_MOVE_ORDER_LINE_ID',P_MOVE_ORDER_LINE_ID);
1583: END IF;
1584: --
1585: --
1586: -- Debug Statements
1585: --
1586: -- Debug Statements
1587: --
1588: IF l_debug_on THEN
1589: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_TROLIN_UTIL.QUERY_ROW',WSH_DEBUG_SV.C_PROC_LEVEL);
1590: END IF;
1591: --
1592: l_trolin_rec := INV_TROLIN_UTIL.Query_Row(
1593: p_line_id => p_move_order_line_id);
1595: --
1596: -- Debug Statements
1597: --
1598: IF l_debug_on THEN
1599: WSH_DEBUG_SV.pop(l_module_name);
1600: END IF;
1601: --
1602: RETURN TRUE;
1603: ELSE
1604: --
1605: -- Debug Statements
1606: --
1607: IF l_debug_on THEN
1608: WSH_DEBUG_SV.pop(l_module_name);
1609: END IF;
1610: --
1611: RETURN FALSE;
1612: END IF;
1645: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1646: --
1647: IF l_debug_on IS NULL
1648: THEN
1649: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1650: END IF;
1651: --
1652: IF l_debug_on THEN
1653: WSH_DEBUG_SV.push(l_module_name);
1649: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1650: END IF;
1651: --
1652: IF l_debug_on THEN
1653: WSH_DEBUG_SV.push(l_module_name);
1654: END IF;
1655: --
1656: --
1657: -- Debug Statements
1657: -- Debug Statements
1658: --
1659: IF l_debug_on THEN
1660: -- HW BUG#:3456926 - Removed OPM debugging msg and kept WSH
1661: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.CHECK_INV_INFO FOR DETAIL : '|| P_DELIVERY_DETAIL_SPLIT_REC.DELIVERY_DETAIL_ID||' REL STAT : '||P_DELIVERY_DETAIL_SPLIT_REC.RELEASED_STATUS );
1662: END IF;
1663: --
1664:
1665: -- 3012297 (initializing l_process_flag)
1684: --
1685: -- Debug Statements
1686: --
1687: IF l_debug_on THEN
1688: WSH_DEBUG_SV.pop(l_module_name);
1689: END IF;
1690: --
1691: return FALSE;
1692: END IF;
1699: --
1700: -- Debug Statements
1701: --
1702: IF l_debug_on THEN
1703: WSH_DEBUG_SV.pop(l_module_name);
1704: END IF;
1705: --
1706: return FALSE;
1707: END IF;
1711: --
1712: -- Debug Statements
1713: --
1714: IF l_debug_on THEN
1715: WSH_DEBUG_SV.pop(l_module_name);
1716: END IF;
1717: --
1718: return FALSE;
1719: END IF;
1726: --
1727: -- Debug Statements
1728: --
1729: IF l_debug_on THEN
1730: WSH_DEBUG_SV.pop(l_module_name);
1731: END IF;
1732: --
1733: return FALSE;
1734: END IF;
1739: --
1740: -- Debug Statements
1741: --
1742: IF l_debug_on THEN
1743: WSH_DEBUG_SV.pop(l_module_name);
1744: END IF;
1745: --
1746: return FALSE;
1747: END IF;
1750: --
1751: -- Debug Statements
1752: --
1753: IF l_debug_on THEN
1754: WSH_DEBUG_SV.pop(l_module_name);
1755: END IF;
1756: --
1757: return TRUE;
1758:
1809: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1810: --
1811: IF l_debug_on IS NULL
1812: THEN
1813: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1814: END IF;
1815: --
1816: IF l_debug_on THEN
1817: WSH_DEBUG_SV.push(l_module_name);
1813: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1814: END IF;
1815: --
1816: IF l_debug_on THEN
1817: WSH_DEBUG_SV.push(l_module_name);
1818: --
1819: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1820: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1815: --
1816: IF l_debug_on THEN
1817: WSH_DEBUG_SV.push(l_module_name);
1818: --
1819: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1820: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1822: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
1823: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
1816: IF l_debug_on THEN
1817: WSH_DEBUG_SV.push(l_module_name);
1818: --
1819: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1820: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1822: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
1823: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
1824: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
1817: WSH_DEBUG_SV.push(l_module_name);
1818: --
1819: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1820: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1822: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
1823: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
1824: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
1825: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
1818: --
1819: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1820: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1822: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
1823: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
1824: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
1825: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
1826: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.inventory_item_id',p_delivery_detail_split_rec.inventory_item_id);
1819: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
1820: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1822: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
1823: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
1824: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
1825: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
1826: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.inventory_item_id',p_delivery_detail_split_rec.inventory_item_id);
1827: END IF;
1820: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
1821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1822: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
1823: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
1824: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
1825: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
1826: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.inventory_item_id',p_delivery_detail_split_rec.inventory_item_id);
1827: END IF;
1828: --
1821: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
1822: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
1823: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
1824: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
1825: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
1826: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.inventory_item_id',p_delivery_detail_split_rec.inventory_item_id);
1827: END IF;
1828: --
1829: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1822: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
1823: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
1824: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
1825: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
1826: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.inventory_item_id',p_delivery_detail_split_rec.inventory_item_id);
1827: END IF;
1828: --
1829: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1830:
1832: --
1833: -- Debug Statements
1834: --
1835: IF l_debug_on THEN
1836: WSH_DEBUG_SV.pop(l_module_name);
1837: END IF;
1838: --
1839: RETURN;
1840: END IF;
1842: --
1843: -- Debug Statements
1844: --
1845: IF l_debug_on THEN
1846: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.CANCEL_STAGED_RESERVATION QUANTITY : '|| P_CANCELLATION_QUANTITY );
1847: END IF;
1848: --
1849:
1850: --X-dock, conditionally populate delivery_detail_id
1877: --
1878: -- Debug Statements
1879: --
1880: IF l_debug_on THEN
1881: WSH_DEBUG_SV.log(l_module_name, 'query_reservations x_return_status',x_return_status);
1882: WSH_DEBUG_SV.logmsg(l_module_name, 'L_SIZE: '||L_SIZE );
1883: END IF;
1884:
1885: IF (x_return_status <> fnd_api.g_ret_sts_success) OR (l_size = 0) THEN
1878: -- Debug Statements
1879: --
1880: IF l_debug_on THEN
1881: WSH_DEBUG_SV.log(l_module_name, 'query_reservations x_return_status',x_return_status);
1882: WSH_DEBUG_SV.logmsg(l_module_name, 'L_SIZE: '||L_SIZE );
1883: END IF;
1884:
1885: IF (x_return_status <> fnd_api.g_ret_sts_success) OR (l_size = 0) THEN
1886: IF x_return_status = fnd_api.g_ret_sts_success THEN
1890: --
1891: -- Debug Statements
1892: --
1893: IF l_debug_on THEN
1894: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_INV.GET_RESERVABLE_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
1895: END IF;
1896: --
1897: l_reservable_flag := WSH_DELIVERY_DETAILS_INV.get_reservable_flag(
1898: x_item_id => p_delivery_detail_split_rec.inventory_item_id,
1898: x_item_id => p_delivery_detail_split_rec.inventory_item_id,
1899: x_organization_id => p_delivery_detail_split_rec.organization_id,
1900: x_pickable_flag => l_pickable_flag);
1901: IF l_debug_on THEN
1902: WSH_DEBUG_SV.log(l_module_name, 'get_reservable_flag l_reservable_flag,x_return_status',l_reservable_flag||','||x_return_status);
1903: END IF;
1904: -- Non reservable/transactable items will always have no reservations.
1905: IF l_reservable_flag = 'N' THEN
1906: --
1906: --
1907: -- Debug Statements
1908: --
1909: IF l_debug_on THEN
1910: WSH_DEBUG_SV.logmsg(l_module_name, 'NON RESERVABLE/TRANSACTABLE ITEM' );
1911: WSH_DEBUG_SV.pop(l_module_name);
1912: END IF;
1913: RETURN;
1914: END IF;
1907: -- Debug Statements
1908: --
1909: IF l_debug_on THEN
1910: WSH_DEBUG_SV.logmsg(l_module_name, 'NON RESERVABLE/TRANSACTABLE ITEM' );
1911: WSH_DEBUG_SV.pop(l_module_name);
1912: END IF;
1913: RETURN;
1914: END IF;
1915: END IF;
1936: --
1937: -- Debug Statements
1938: --
1939: IF l_debug_on THEN
1940: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_STAGED_RESERVATION_UTIL.QUERY_STAGED_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
1941: END IF;
1942: --
1943: INV_STAGED_RESERVATION_UTIL.query_staged_flag
1944: ( x_return_status => x_return_status,
1946: x_msg_data => l_msg_data,
1947: x_staged_flag => l_staged_flag,
1948: p_reservation_id => l_rsv_array(l_counter).reservation_id);
1949: IF l_debug_on THEN
1950: WSH_DEBUG_SV.log(l_module_name, 'query_staged_flag x_return_status',x_return_status);
1951: END IF;
1952: -- HW OPMCONV. No need to fork code
1953:
1954: --
1954: --
1955: -- Debug Statements
1956: --
1957: IF l_debug_on THEN
1958: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER INV_STAGED_RESERVATION_UTIL.QUERY_STAGED_FLAG : '||L_STAGED_FLAG );
1959: END IF;
1960: --
1961:
1962: -- HW OPMCONV - Update qty2 using new reservation flds
1977: --
1978: -- Debug Statements
1979: --
1980: IF l_debug_on THEN
1981: WSH_DEBUG_SV.logmsg(l_module_name, 'GOING TO DELETE_RESERVATION IN CANCEL_STAGED_RESERVATION ' );
1982: END IF;
1983: --
1984: delete_reservation (p_query_input => l_rsv_array(l_counter),
1985: x_return_status => x_return_status );
1983: --
1984: delete_reservation (p_query_input => l_rsv_array(l_counter),
1985: x_return_status => x_return_status );
1986: IF l_debug_on THEN
1987: WSH_DEBUG_SV.log(l_module_name, 'delete_reservation x_return_status',x_return_status);
1988: END IF;
1989:
1990: IF x_return_status <> fnd_api.g_ret_sts_success THEN
1991: raise cancel_failed;
2005: -- Debug Statements
2006: --
2007: IF l_debug_on THEN
2008: -- HW OPMCONV - Print correct value of Qty2
2009: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE QTY2 '|| l_rsv_new.secondary_reservation_quantity );
2010: END IF;
2011: --
2012: -- HW OPMCONV - Ensure Qty2 are NULL before updating
2013: IF ( l_rsv_new.secondary_reservation_quantity = 0 OR
2018: update_reservation (p_query_input => l_rsv_array(l_counter),
2019: p_new_resv_rec => l_rsv_new,
2020: x_return_status => x_return_status);
2021: IF l_debug_on THEN
2022: WSH_DEBUG_SV.log(l_module_name, 'update_reservation x_return_status',x_return_status);
2023: END IF;
2024:
2025: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2026: raise cancel_failed;
2036: --
2037: -- Debug Statements
2038: --
2039: IF l_debug_on THEN
2040: WSH_DEBUG_SV.pop(l_module_name);
2041: END IF;
2042: --
2043: EXCEPTION
2044: WHEN cancel_failed THEN
2046: --
2047: -- Debug Statements
2048: --
2049: IF l_debug_on THEN
2050: WSH_DEBUG_SV.logmsg(l_module_name,'CANCEL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2051: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CANCEL_FAILED');
2052: END IF;
2053: --
2054: WHEN others THEN
2047: -- Debug Statements
2048: --
2049: IF l_debug_on THEN
2050: WSH_DEBUG_SV.logmsg(l_module_name,'CANCEL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2051: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CANCEL_FAILED');
2052: END IF;
2053: --
2054: WHEN others THEN
2055: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2055: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2056: wsh_util_core.default_handler('WSH_USA_INV_PVT.cancel_staged_reservation',l_module_name);
2057:
2058: IF l_debug_on THEN
2059: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2060: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2061: END IF;
2062: END cancel_staged_reservation;
2063:
2056: wsh_util_core.default_handler('WSH_USA_INV_PVT.cancel_staged_reservation',l_module_name);
2057:
2058: IF l_debug_on THEN
2059: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2060: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2061: END IF;
2062: END cancel_staged_reservation;
2063:
2064:
2129: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2130: --
2131: IF l_debug_on IS NULL
2132: THEN
2133: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2134: END IF;
2135: --
2136: IF l_debug_on THEN
2137: WSH_DEBUG_SV.push(l_module_name);
2133: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2134: END IF;
2135: --
2136: IF l_debug_on THEN
2137: WSH_DEBUG_SV.push(l_module_name);
2138: --
2139: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2140: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2141: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2135: --
2136: IF l_debug_on THEN
2137: WSH_DEBUG_SV.push(l_module_name);
2138: --
2139: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2140: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2141: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2142: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2143: WSH_DEBUG_SV.log(l_module_name,'P_delivery_detail_id',P_delivery_detail_id);
2136: IF l_debug_on THEN
2137: WSH_DEBUG_SV.push(l_module_name);
2138: --
2139: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2140: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2141: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2142: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2143: WSH_DEBUG_SV.log(l_module_name,'P_delivery_detail_id',P_delivery_detail_id);
2144: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
2137: WSH_DEBUG_SV.push(l_module_name);
2138: --
2139: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2140: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2141: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2142: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2143: WSH_DEBUG_SV.log(l_module_name,'P_delivery_detail_id',P_delivery_detail_id);
2144: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
2145: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
2138: --
2139: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2140: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2141: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2142: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2143: WSH_DEBUG_SV.log(l_module_name,'P_delivery_detail_id',P_delivery_detail_id);
2144: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
2145: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
2146: END IF;
2139: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2140: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2141: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2142: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2143: WSH_DEBUG_SV.log(l_module_name,'P_delivery_detail_id',P_delivery_detail_id);
2144: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
2145: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
2146: END IF;
2147: --
2140: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2141: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2142: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2143: WSH_DEBUG_SV.log(l_module_name,'P_delivery_detail_id',P_delivery_detail_id);
2144: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
2145: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
2146: END IF;
2147: --
2148: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2141: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_LINE_ID',P_SOURCE_LINE_ID);
2142: WSH_DEBUG_SV.log(l_module_name,'P_ORGANIZATION_ID',P_ORGANIZATION_ID);
2143: WSH_DEBUG_SV.log(l_module_name,'P_delivery_detail_id',P_delivery_detail_id);
2144: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY',P_CANCELLATION_QUANTITY);
2145: WSH_DEBUG_SV.log(l_module_name,'P_CANCELLATION_QUANTITY2',P_CANCELLATION_QUANTITY2);
2146: END IF;
2147: --
2148: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2149:
2151: --
2152: -- Debug Statements
2153: --
2154: IF l_debug_on THEN
2155: WSH_DEBUG_SV.pop(l_module_name);
2156: END IF;
2157: --
2158: RETURN;
2159: END IF;
2187: x_return_status => x_return_status);
2188:
2189:
2190: IF l_debug_on THEN
2191: WSH_DEBUG_SV.log(l_module_name,'query_reservations x_return_status',x_return_status);
2192: END IF;
2193:
2194: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
2195: raise cancel_failed;
2199: --
2200: -- Debug Statements
2201: --
2202: IF l_debug_on THEN
2203: WSH_DEBUG_SV.pop(l_module_name);
2204: END IF;
2205: --
2206: RETURN; -- for a backordered DD reservations might or might not exist
2207: END IF;
2222: CLOSE c_nonstaged_qty;
2223:
2224: -- HW OPMCONV - Added debugging statement
2225: IF l_debug_on THEN
2226: WSH_DEBUG_SV.log(l_module_name,'After fetching l_nonstaged_qty',l_nonstaged_qty);
2227:
2228: WSH_DEBUG_SV.log(l_module_name,'After fetching l_nonstaged_qty2',l_nonstaged_qty2);
2229: END IF;
2230:
2224: -- HW OPMCONV - Added debugging statement
2225: IF l_debug_on THEN
2226: WSH_DEBUG_SV.log(l_module_name,'After fetching l_nonstaged_qty',l_nonstaged_qty);
2227:
2228: WSH_DEBUG_SV.log(l_module_name,'After fetching l_nonstaged_qty2',l_nonstaged_qty2);
2229: END IF;
2230:
2231:
2232: l_nonstaged_rsv_qty := 0;
2235: LOOP
2236: -- HW OPMCONV. Removed forking the code
2237:
2238: IF l_debug_on THEN
2239: WSH_DEBUG_SV.log(l_module_name,'Calling program unit INV_STAGED_RESERVATION_UTIL.query_staged_flag',WSH_DEBUG_SV.C_PROC_LEVEL);
2240: END IF;
2241:
2242: IF l_debug_on THEN
2243:
2240: END IF;
2241:
2242: IF l_debug_on THEN
2243:
2244: WSH_DEBUG_SV.log(l_module_name,'BEG OF LOOP l_nonstaged_qty',l_nonstaged_qty);
2245:
2246: WSH_DEBUG_SV.log(l_module_name,'BEG OF LOOP l_nonstaged_qty2',l_nonstaged_qty2);
2247: END IF;
2248: INV_STAGED_RESERVATION_UTIL.query_staged_flag(
2242: IF l_debug_on THEN
2243:
2244: WSH_DEBUG_SV.log(l_module_name,'BEG OF LOOP l_nonstaged_qty',l_nonstaged_qty);
2245:
2246: WSH_DEBUG_SV.log(l_module_name,'BEG OF LOOP l_nonstaged_qty2',l_nonstaged_qty2);
2247: END IF;
2248: INV_STAGED_RESERVATION_UTIL.query_staged_flag(
2249: x_return_status => x_return_status,
2250: x_msg_count => l_msg_count,
2251: x_msg_data => l_msg_data,
2252: x_staged_flag => l_staged_flag,
2253: p_reservation_id => l_rsv_array(l_counter).reservation_id);
2254: IF l_debug_on THEN
2255: WSH_DEBUG_SV.log(l_module_name,'INV_STAGED_RESERVATION_UTIL.query_staged_flag',l_staged_flag);
2256: END IF;
2257: -- HW OPMCONV. Removed code forking
2258:
2259: -- Bug3012297
2263: , p_rsv => l_rsv_array(l_counter))
2264: THEN
2265:
2266: IF l_debug_on THEN
2267: WSH_DEBUG_SV.log(l_module_name,'BEFORE l_nonstaged_rsv_qty',l_nonstaged_rsv_qty);
2268: WSH_DEBUG_SV.log(l_module_name,'(l_rsv_array(l_counter).primary_reservation_quantity ',(l_rsv_array(l_counter).primary_reservation_quantity ));
2269: WSH_DEBUG_SV.log(l_module_name,'l_rsv_array(l_counter).detailed_quantity ',l_rsv_array(l_counter).detailed_quantity );
2270: END IF;
2271: l_nonstaged_rsv_qty := l_nonstaged_rsv_qty + (l_rsv_array(l_counter).primary_reservation_quantity
2264: THEN
2265:
2266: IF l_debug_on THEN
2267: WSH_DEBUG_SV.log(l_module_name,'BEFORE l_nonstaged_rsv_qty',l_nonstaged_rsv_qty);
2268: WSH_DEBUG_SV.log(l_module_name,'(l_rsv_array(l_counter).primary_reservation_quantity ',(l_rsv_array(l_counter).primary_reservation_quantity ));
2269: WSH_DEBUG_SV.log(l_module_name,'l_rsv_array(l_counter).detailed_quantity ',l_rsv_array(l_counter).detailed_quantity );
2270: END IF;
2271: l_nonstaged_rsv_qty := l_nonstaged_rsv_qty + (l_rsv_array(l_counter).primary_reservation_quantity
2272: - nvl(l_rsv_array(l_counter).detailed_quantity,0));
2265:
2266: IF l_debug_on THEN
2267: WSH_DEBUG_SV.log(l_module_name,'BEFORE l_nonstaged_rsv_qty',l_nonstaged_rsv_qty);
2268: WSH_DEBUG_SV.log(l_module_name,'(l_rsv_array(l_counter).primary_reservation_quantity ',(l_rsv_array(l_counter).primary_reservation_quantity ));
2269: WSH_DEBUG_SV.log(l_module_name,'l_rsv_array(l_counter).detailed_quantity ',l_rsv_array(l_counter).detailed_quantity );
2270: END IF;
2271: l_nonstaged_rsv_qty := l_nonstaged_rsv_qty + (l_rsv_array(l_counter).primary_reservation_quantity
2272: - nvl(l_rsv_array(l_counter).detailed_quantity,0));
2273: IF l_debug_on THEN
2270: END IF;
2271: l_nonstaged_rsv_qty := l_nonstaged_rsv_qty + (l_rsv_array(l_counter).primary_reservation_quantity
2272: - nvl(l_rsv_array(l_counter).detailed_quantity,0));
2273: IF l_debug_on THEN
2274: WSH_DEBUG_SV.log(l_module_name,'AFTER l_nonstaged_rsv_qty',l_nonstaged_rsv_qty);
2275: -- HW OPMCONV Added Qty2 using new reservation flds
2276: END IF;
2277: IF l_debug_on THEN
2278: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty2',l_nonstaged_rsv_qty2);
2274: WSH_DEBUG_SV.log(l_module_name,'AFTER l_nonstaged_rsv_qty',l_nonstaged_rsv_qty);
2275: -- HW OPMCONV Added Qty2 using new reservation flds
2276: END IF;
2277: IF l_debug_on THEN
2278: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty2',l_nonstaged_rsv_qty2);
2279: WSH_DEBUG_SV.log(l_module_name,'(l_rsv_array(l_counter).secondary_reservation_quantity ',(l_rsv_array(l_counter).secondary_reservation_quantity ));
2280: WSH_DEBUG_SV.log(l_module_name,'l_rsv_array(l_counter).secondary_detailed_quantity ',l_rsv_array(l_counter).secondary_detailed_quantity );
2281: END IF;
2282: l_nonstaged_rsv_qty2 := l_nonstaged_rsv_qty2 + (l_rsv_array(l_counter).secondary_reservation_quantity
2275: -- HW OPMCONV Added Qty2 using new reservation flds
2276: END IF;
2277: IF l_debug_on THEN
2278: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty2',l_nonstaged_rsv_qty2);
2279: WSH_DEBUG_SV.log(l_module_name,'(l_rsv_array(l_counter).secondary_reservation_quantity ',(l_rsv_array(l_counter).secondary_reservation_quantity ));
2280: WSH_DEBUG_SV.log(l_module_name,'l_rsv_array(l_counter).secondary_detailed_quantity ',l_rsv_array(l_counter).secondary_detailed_quantity );
2281: END IF;
2282: l_nonstaged_rsv_qty2 := l_nonstaged_rsv_qty2 + (l_rsv_array(l_counter).secondary_reservation_quantity
2283: - nvl(l_rsv_array(l_counter).secondary_detailed_quantity,0));
2276: END IF;
2277: IF l_debug_on THEN
2278: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty2',l_nonstaged_rsv_qty2);
2279: WSH_DEBUG_SV.log(l_module_name,'(l_rsv_array(l_counter).secondary_reservation_quantity ',(l_rsv_array(l_counter).secondary_reservation_quantity ));
2280: WSH_DEBUG_SV.log(l_module_name,'l_rsv_array(l_counter).secondary_detailed_quantity ',l_rsv_array(l_counter).secondary_detailed_quantity );
2281: END IF;
2282: l_nonstaged_rsv_qty2 := l_nonstaged_rsv_qty2 + (l_rsv_array(l_counter).secondary_reservation_quantity
2283: - nvl(l_rsv_array(l_counter).secondary_detailed_quantity,0));
2284:
2283: - nvl(l_rsv_array(l_counter).secondary_detailed_quantity,0));
2284:
2285:
2286: IF l_debug_on THEN
2287: WSH_DEBUG_SV.log(l_module_name,'AFTER l_nonstaged_rsv_qty2',l_nonstaged_rsv_qty2);
2288: -- HW OPMCONV Added Qty2 using new reservation flds
2289: END IF;
2290: END IF;
2291: --End Bug3012297
2300:
2301: END LOOP;
2302:
2303: IF l_debug_on THEN
2304: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty',l_nonstaged_rsv_qty);
2305: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_qty',l_nonstaged_qty);
2306: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty2',l_nonstaged_rsv_qty2);
2307: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_qty2',l_nonstaged_qty2);
2308: END IF;
2301: END LOOP;
2302:
2303: IF l_debug_on THEN
2304: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty',l_nonstaged_rsv_qty);
2305: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_qty',l_nonstaged_qty);
2306: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty2',l_nonstaged_rsv_qty2);
2307: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_qty2',l_nonstaged_qty2);
2308: END IF;
2309:
2302:
2303: IF l_debug_on THEN
2304: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty',l_nonstaged_rsv_qty);
2305: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_qty',l_nonstaged_qty);
2306: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty2',l_nonstaged_rsv_qty2);
2307: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_qty2',l_nonstaged_qty2);
2308: END IF;
2309:
2310: -- l_nonstaged_qty would have got reduced by p_cancellation_quantity by this time
2303: IF l_debug_on THEN
2304: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty',l_nonstaged_rsv_qty);
2305: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_qty',l_nonstaged_qty);
2306: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_rsv_qty2',l_nonstaged_rsv_qty2);
2307: WSH_DEBUG_SV.log(l_module_name,'l_nonstaged_qty2',l_nonstaged_qty2);
2308: END IF;
2309:
2310: -- l_nonstaged_qty would have got reduced by p_cancellation_quantity by this time
2311: IF (l_nonstaged_rsv_qty > l_nonstaged_qty) THEN
2321: l_cancellation_quantity2 := 0;
2322: END IF;
2323:
2324: IF l_debug_on THEN
2325: WSH_DEBUG_SV.log(l_module_name,'Going to Cancel l_cancellation_quantity',l_cancellation_quantity);
2326: -- WSH_DEBUG_SV.log(l_module_name,'Going to Cancel l_cancellation_quantity2',l_cancellation_quantity2);
2327: END IF;
2328: -- 2595657
2329:
2322: END IF;
2323:
2324: IF l_debug_on THEN
2325: WSH_DEBUG_SV.log(l_module_name,'Going to Cancel l_cancellation_quantity',l_cancellation_quantity);
2326: -- WSH_DEBUG_SV.log(l_module_name,'Going to Cancel l_cancellation_quantity2',l_cancellation_quantity2);
2327: END IF;
2328: -- 2595657
2329:
2330: -- loop over all the reservation records in l_rsv_array
2338: --
2339: -- Debug Statements
2340: --
2341: IF l_debug_on THEN
2342: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_STAGED_RESERVATION_UTIL.QUERY_STAGED_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
2343: END IF;
2344: --
2345: INV_STAGED_RESERVATION_UTIL.query_staged_flag
2346: ( x_return_status => x_return_status,
2348: x_msg_data => l_msg_data,
2349: x_staged_flag => l_staged_flag,
2350: p_reservation_id => l_rsv_array(l_counter).reservation_id);
2351: IF l_debug_on THEN
2352: WSH_DEBUG_SV.log(l_module_name,'query_staged_flag x_return_status',x_return_status);
2353: END IF;
2354: -- HW OPMCONV. No need to fork the code
2355: --
2356: -- Debug Statements
2355: --
2356: -- Debug Statements
2357: --
2358: IF l_debug_on THEN
2359: WSH_DEBUG_SV.logmsg(l_module_name, 'AFTER INV_STAGED_RESERVATION_UTIL.QUERY_STAGED_FLAG : '||L_STAGED_FLAG );
2360: END IF;
2361: --
2362:
2363: -- HW OPMCONV -Update Qty2 using new reservation flds.
2405: l_rsv_new.secondary_reservation_quantity := NULL;
2406: END IF;
2407:
2408: IF l_debug_on THEN
2409: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING' );
2410: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_reservation_quantity '||l_rsv_new.secondary_reservation_quantity );
2411: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_UOM_CODE '||l_rsv_new.secondary_uom_code );
2412: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_ID '||l_rsv_new.secondary_uom_id );
2413: END IF;
2406: END IF;
2407:
2408: IF l_debug_on THEN
2409: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING' );
2410: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_reservation_quantity '||l_rsv_new.secondary_reservation_quantity );
2411: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_UOM_CODE '||l_rsv_new.secondary_uom_code );
2412: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_ID '||l_rsv_new.secondary_uom_id );
2413: END IF;
2414:
2407:
2408: IF l_debug_on THEN
2409: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING' );
2410: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_reservation_quantity '||l_rsv_new.secondary_reservation_quantity );
2411: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_UOM_CODE '||l_rsv_new.secondary_uom_code );
2412: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_ID '||l_rsv_new.secondary_uom_id );
2413: END IF;
2414:
2415: update_reservation (
2408: IF l_debug_on THEN
2409: WSH_DEBUG_SV.logmsg(l_module_name, 'DEBUGGING' );
2410: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_reservation_quantity '||l_rsv_new.secondary_reservation_quantity );
2411: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_UOM_CODE '||l_rsv_new.secondary_uom_code );
2412: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_new.secondary_ID '||l_rsv_new.secondary_uom_id );
2413: END IF;
2414:
2415: update_reservation (
2416: p_query_input => l_rsv_array(l_counter),
2417: p_new_resv_rec => l_rsv_new,
2418: x_return_status => x_return_status);
2419:
2420: IF l_debug_on THEN
2421: WSH_DEBUG_SV.log(l_module_name,'update_reservation x_return_status',x_return_status);
2422: END IF;
2423: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2424: raise cancel_failed;
2425: END IF;
2428: --
2429: -- Debug Statements
2430: --
2431: IF l_debug_on THEN
2432: WSH_DEBUG_SV.logmsg(l_module_name, 'GOING TO DELETE_RESERVATION IN CANCEL_NON__STAGED_RESERVATION ' );
2433: END IF;
2434: --
2435: delete_reservation (
2436: p_query_input => l_rsv_array(l_counter),
2435: delete_reservation (
2436: p_query_input => l_rsv_array(l_counter),
2437: x_return_status => x_return_status );
2438: IF l_debug_on THEN
2439: WSH_DEBUG_SV.log(l_module_name,'delete_reservation x_return_status',x_return_status);
2440: END IF;
2441:
2442: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2443: raise cancel_failed;
2478:
2479: IF l_cancellation_quantity2 = 0 THEN
2480: -- conversion failed
2481: IF l_debug_on THEN
2482: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR on UOM conversion to secondary UOM : '||l_rsv_array(l_counter).secondary_uom_code );
2483: END IF;
2484: raise cancel_failed;
2485: END IF;
2486: END IF;
2484: raise cancel_failed;
2485: END IF;
2486: END IF;
2487: IF l_debug_on THEN
2488: WSH_DEBUG_SV.log(l_module_name,'Going to Cancel l_cancellation_quantity',l_cancellation_quantity);
2489: WSH_DEBUG_SV.log(l_module_name,'Going to Cancel l_cancellation_quantity2',l_cancellation_quantity2);
2490: WSH_DEBUG_SV.log(l_module_name,'Lot involved for conversions is ',l_rsv_array(l_counter).lot_number);
2491: END IF;
2492: -- KYH BUG 4259636 END
2485: END IF;
2486: END IF;
2487: IF l_debug_on THEN
2488: WSH_DEBUG_SV.log(l_module_name,'Going to Cancel l_cancellation_quantity',l_cancellation_quantity);
2489: WSH_DEBUG_SV.log(l_module_name,'Going to Cancel l_cancellation_quantity2',l_cancellation_quantity2);
2490: WSH_DEBUG_SV.log(l_module_name,'Lot involved for conversions is ',l_rsv_array(l_counter).lot_number);
2491: END IF;
2492: -- KYH BUG 4259636 END
2493: -- HW OPMCONV Update Qty2 using new reservations flds.
2486: END IF;
2487: IF l_debug_on THEN
2488: WSH_DEBUG_SV.log(l_module_name,'Going to Cancel l_cancellation_quantity',l_cancellation_quantity);
2489: WSH_DEBUG_SV.log(l_module_name,'Going to Cancel l_cancellation_quantity2',l_cancellation_quantity2);
2490: WSH_DEBUG_SV.log(l_module_name,'Lot involved for conversions is ',l_rsv_array(l_counter).lot_number);
2491: END IF;
2492: -- KYH BUG 4259636 END
2493: -- HW OPMCONV Update Qty2 using new reservations flds.
2494: -- l_rsv_new.attribute2 :=
2508: p_query_input => l_rsv_array(l_counter),
2509: p_new_resv_rec => l_rsv_new,
2510: x_return_status => x_return_status);
2511: IF l_debug_on THEN
2512: WSH_DEBUG_SV.log(l_module_name,'update_reservation x_return_status',x_return_status);
2513: END IF;
2514:
2515: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2516: raise cancel_failed;
2527: --
2528: -- Debug Statements
2529: --
2530: IF l_debug_on THEN
2531: WSH_DEBUG_SV.pop(l_module_name);
2532: END IF;
2533: --
2534: EXCEPTION
2535: WHEN cancel_failed THEN
2537: --
2538: -- Debug Statements
2539: --
2540: IF l_debug_on THEN
2541: WSH_DEBUG_SV.logmsg(l_module_name,'CANCEL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2542: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CANCEL_FAILED');
2543: END IF;
2544: --
2545: WHEN others THEN
2538: -- Debug Statements
2539: --
2540: IF l_debug_on THEN
2541: WSH_DEBUG_SV.logmsg(l_module_name,'CANCEL_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2542: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:CANCEL_FAILED');
2543: END IF;
2544: --
2545: WHEN others THEN
2546: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2549: --
2550: -- Debug Statements
2551: --
2552: IF l_debug_on THEN
2553: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2554: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2555: END IF;
2556: --
2557: END cancel_nonstaged_reservation;
2550: -- Debug Statements
2551: --
2552: IF l_debug_on THEN
2553: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2554: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2555: END IF;
2556: --
2557: END cancel_nonstaged_reservation;
2558:
2599: --
2600: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2601: --
2602: IF l_debug_on IS NULL THEN
2603: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2604: END IF;
2605: --
2606: IF l_debug_on THEN
2607: WSH_DEBUG_SV.push(l_module_name);
2603: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2604: END IF;
2605: --
2606: IF l_debug_on THEN
2607: WSH_DEBUG_SV.push(l_module_name);
2608: WSH_DEBUG_SV.log(l_module_name,'P_STAGED',P_STAGED);
2609: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2610: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2611: -- HW OPMCONV - Print Qty2
2604: END IF;
2605: --
2606: IF l_debug_on THEN
2607: WSH_DEBUG_SV.push(l_module_name);
2608: WSH_DEBUG_SV.log(l_module_name,'P_STAGED',P_STAGED);
2609: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2610: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2611: -- HW OPMCONV - Print Qty2
2612: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2605: --
2606: IF l_debug_on THEN
2607: WSH_DEBUG_SV.push(l_module_name);
2608: WSH_DEBUG_SV.log(l_module_name,'P_STAGED',P_STAGED);
2609: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2610: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2611: -- HW OPMCONV - Print Qty2
2612: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2613: WSH_DEBUG_SV.log(l_module_name,'p_rsv.organization_id',
2606: IF l_debug_on THEN
2607: WSH_DEBUG_SV.push(l_module_name);
2608: WSH_DEBUG_SV.log(l_module_name,'P_STAGED',P_STAGED);
2609: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2610: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2611: -- HW OPMCONV - Print Qty2
2612: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2613: WSH_DEBUG_SV.log(l_module_name,'p_rsv.organization_id',
2614: p_rsv.organization_id);
2608: WSH_DEBUG_SV.log(l_module_name,'P_STAGED',P_STAGED);
2609: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2610: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2611: -- HW OPMCONV - Print Qty2
2612: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2613: WSH_DEBUG_SV.log(l_module_name,'p_rsv.organization_id',
2614: p_rsv.organization_id);
2615: WSH_DEBUG_SV.log(l_module_name,'p_rsv.inventory_item_id',
2616: p_rsv.inventory_item_id);
2609: WSH_DEBUG_SV.log(l_module_name,'P_RELEASED_STATUS',P_RELEASED_STATUS);
2610: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2611: -- HW OPMCONV - Print Qty2
2612: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2613: WSH_DEBUG_SV.log(l_module_name,'p_rsv.organization_id',
2614: p_rsv.organization_id);
2615: WSH_DEBUG_SV.log(l_module_name,'p_rsv.inventory_item_id',
2616: p_rsv.inventory_item_id);
2617: WSH_DEBUG_SV.log(l_module_name,'p_rsv_new.organization_id',
2611: -- HW OPMCONV - Print Qty2
2612: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2613: WSH_DEBUG_SV.log(l_module_name,'p_rsv.organization_id',
2614: p_rsv.organization_id);
2615: WSH_DEBUG_SV.log(l_module_name,'p_rsv.inventory_item_id',
2616: p_rsv.inventory_item_id);
2617: WSH_DEBUG_SV.log(l_module_name,'p_rsv_new.organization_id',
2618: p_rsv_new.organization_id);
2619: WSH_DEBUG_SV.log(l_module_name,'p_rsv_new.inventory_item_id',
2613: WSH_DEBUG_SV.log(l_module_name,'p_rsv.organization_id',
2614: p_rsv.organization_id);
2615: WSH_DEBUG_SV.log(l_module_name,'p_rsv.inventory_item_id',
2616: p_rsv.inventory_item_id);
2617: WSH_DEBUG_SV.log(l_module_name,'p_rsv_new.organization_id',
2618: p_rsv_new.organization_id);
2619: WSH_DEBUG_SV.log(l_module_name,'p_rsv_new.inventory_item_id',
2620: p_rsv_new.inventory_item_id);
2621: END IF;
2615: WSH_DEBUG_SV.log(l_module_name,'p_rsv.inventory_item_id',
2616: p_rsv.inventory_item_id);
2617: WSH_DEBUG_SV.log(l_module_name,'p_rsv_new.organization_id',
2618: p_rsv_new.organization_id);
2619: WSH_DEBUG_SV.log(l_module_name,'p_rsv_new.inventory_item_id',
2620: p_rsv_new.inventory_item_id);
2621: END IF;
2622:
2623:
2636: (p_rsv.primary_reservation_quantity
2637: - l_detailed_quantity));
2638:
2639: IF l_debug_on THEN
2640: WSH_DEBUG_SV.log(l_module_name, 'l_quantity_to_split', l_quantity_to_split);
2641: END IF;
2642:
2643: IF NVL(l_quantity_to_split,0) = 0 THEN
2644: x_return_status := l_status;
2642:
2643: IF NVL(l_quantity_to_split,0) = 0 THEN
2644: x_return_status := l_status;
2645: IF l_debug_on THEN
2646: WSH_DEBUG_SV.pop(l_module_name);
2647: END IF;
2648: RETURN;
2649: END IF;
2650:
2657: -- The wisest course of action is to compute the secondary based on the
2658: -- lot information available to us from the originating lot.
2659: IF p_rsv.secondary_uom_code <> FND_API.G_MISS_CHAR THEN
2660: IF l_debug_on THEN
2661: WSH_DEBUG_SV.log(l_module_name,'DUAL tracked item so convert for lot ',p_rsv.lot_number);
2662: END IF;
2663: l_quantity2_to_split := WSH_WV_UTILS.convert_uom(
2664: item_id => p_rsv.inventory_item_id
2665: , lot_number => p_rsv.lot_number
2672:
2673: IF l_quantity2_to_split = 0 THEN
2674: -- conversion failed
2675: IF l_debug_on THEN
2676: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR on UOM conversion to secondary UOM : '||p_rsv_new.secondary_uom_code );
2677: END IF;
2678: raise transfer_split_failed;
2679: END IF;
2680:
2678: raise transfer_split_failed;
2679: END IF;
2680:
2681: IF l_debug_on THEN
2682: WSH_DEBUG_SV.log(l_module_name, 'l_quantity2_to_split', l_quantity2_to_split);
2683: END IF;
2684:
2685: -- bug 2925398: make sure secondary quantity will not touch the detailed
2686: -- portion unless the detail is released to warehouse.
2688: - l_detailed_quantity2);
2689: IF l_quantity2_to_split > l_max_qty2_to_split THEN
2690: l_quantity2_to_split := l_max_qty2_to_split;
2691: IF l_debug_on THEN
2692: WSH_DEBUG_SV.log(l_module_name, 'adjusted l_quantity2_to_split', l_quantity2_to_split);
2693: END IF;
2694: END IF;
2695:
2696: END IF;
2696: END IF;
2697: -- KYH INVCONV END
2698:
2699: IF l_debug_on THEN
2700: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.RESERVATION_SPLIT_ACTION TO SPLIT : '|| L_QUANTITY_TO_SPLIT );
2701: END IF;
2702: --
2703: -- 2847687 : No More performing Update_Reservations per INV advice,
2704: -- So always calling Transfer Rsvtns.
2706: -- p_rsv.primary_reservation_quantity because of least() above
2707: --
2708: -- transfer reservation with l_quantity_to_split
2709: IF l_debug_on THEN
2710: WSH_DEBUG_SV.logmsg(l_module_name, 'QUANTITY TO SPLIT : '|| L_QUANTITY_TO_SPLIT );
2711: WSH_DEBUG_SV.logmsg(l_module_name, 'QUANTITY2 TO SPLIT : '|| L_QUANTITY2_TO_SPLIT );
2712: END IF;
2713:
2714: l_rsv_new := p_rsv_new;
2707: --
2708: -- transfer reservation with l_quantity_to_split
2709: IF l_debug_on THEN
2710: WSH_DEBUG_SV.logmsg(l_module_name, 'QUANTITY TO SPLIT : '|| L_QUANTITY_TO_SPLIT );
2711: WSH_DEBUG_SV.logmsg(l_module_name, 'QUANTITY2 TO SPLIT : '|| L_QUANTITY2_TO_SPLIT );
2712: END IF;
2713:
2714: l_rsv_new := p_rsv_new;
2715: l_rsv_new.primary_reservation_quantity := l_quantity_to_split;
2733: END IF;
2734: END IF;
2735:
2736: IF l_debug_on THEN
2737: WSH_DEBUG_SV.log(l_module_name, 'l_rsv_new.detailed_quantity',
2738: l_rsv_new.detailed_quantity);
2739: WSH_DEBUG_SV.log(l_module_name, 'l_rsv_new.secondary_detailed_quantity',
2740: l_rsv_new.secondary_detailed_quantity);
2741: END IF;
2735:
2736: IF l_debug_on THEN
2737: WSH_DEBUG_SV.log(l_module_name, 'l_rsv_new.detailed_quantity',
2738: l_rsv_new.detailed_quantity);
2739: WSH_DEBUG_SV.log(l_module_name, 'l_rsv_new.secondary_detailed_quantity',
2740: l_rsv_new.secondary_detailed_quantity);
2741: END IF;
2742:
2743: --
2746: --
2747: IF l_rsv_new.primary_reservation_quantity IS NOT NULL THEN --{
2748: --
2749: IF l_debug_on THEN
2750: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.TRANSFER_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2751: WSH_DEBUG_SV.log(l_module_name,'l_rsv_new.primary_reservation_quantity',
2752: l_rsv_new.primary_reservation_quantity);
2753: WSH_DEBUG_SV.log(l_module_name,'l_rsv_new.secondary_reservation_quantity',
2754: l_rsv_new.secondary_reservation_quantity);
2747: IF l_rsv_new.primary_reservation_quantity IS NOT NULL THEN --{
2748: --
2749: IF l_debug_on THEN
2750: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.TRANSFER_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2751: WSH_DEBUG_SV.log(l_module_name,'l_rsv_new.primary_reservation_quantity',
2752: l_rsv_new.primary_reservation_quantity);
2753: WSH_DEBUG_SV.log(l_module_name,'l_rsv_new.secondary_reservation_quantity',
2754: l_rsv_new.secondary_reservation_quantity);
2755: END IF;
2749: IF l_debug_on THEN
2750: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_RESERVATION_PUB.TRANSFER_RESERVATION',WSH_DEBUG_SV.C_PROC_LEVEL);
2751: WSH_DEBUG_SV.log(l_module_name,'l_rsv_new.primary_reservation_quantity',
2752: l_rsv_new.primary_reservation_quantity);
2753: WSH_DEBUG_SV.log(l_module_name,'l_rsv_new.secondary_reservation_quantity',
2754: l_rsv_new.secondary_reservation_quantity);
2755: END IF;
2756: --
2757:
2770: p_over_reservation_flag =>3,
2771: x_to_reservation_id => l_new_rsv_id
2772: );
2773: IF l_debug_on THEN
2774: WSH_DEBUG_SV.log(l_module_name,'transfer_reservation l_status',l_status);
2775: END IF;
2776:
2777: IF l_status = fnd_api.g_ret_sts_success THEN
2778: IF l_debug_on THEN
2776:
2777: IF l_status = fnd_api.g_ret_sts_success THEN
2778: IF l_debug_on THEN
2779: -- HW OPMCONV - Print Qty2
2780: WSH_DEBUG_SV.logmsg(l_module_name, 'Rsvn. Transferred FOR Rsvn.ID :'
2781: ||P_RSV.RESERVATION_ID || ' : TO Rsvn.ID : '||L_NEW_RSV_ID||
2782: ' BY Qty: '||L_QUANTITY_TO_SPLIT ||
2783: ' BY Qty2: '||L_QUANTITY2_TO_SPLIT );
2784: END IF;
2783: ' BY Qty2: '||L_QUANTITY2_TO_SPLIT );
2784: END IF;
2785: ELSE
2786: IF l_debug_on THEN
2787: WSH_DEBUG_SV.logmsg(l_module_name, 'COULD NOT TRANSFER FOR RESERVATION ID : '||P_RSV.RESERVATION_ID );
2788: END IF;
2789: FND_MESSAGE.Set_Name('WSH', 'WSH_TRANSFER_RESERVATION');
2790: IF l_msg_count = 1 THEN
2791: IF l_debug_on THEN
2788: END IF;
2789: FND_MESSAGE.Set_Name('WSH', 'WSH_TRANSFER_RESERVATION');
2790: IF l_msg_count = 1 THEN
2791: IF l_debug_on THEN
2792: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2793: END IF;
2794: --
2795: FND_MESSAGE.Set_Token('ERROR_TEXT',l_msg_data);
2796: ELSE
2796: ELSE
2797: FOR l_index IN 1..l_msg_count LOOP
2798: l_msg_data := fnd_msg_pub.get;
2799: IF l_debug_on THEN
2800: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2801: END IF;
2802: --
2803: l_error_text := l_error_text || l_msg_data;
2804: END LOOP;
2809: END IF;
2810:
2811: IF p_staged = 'Y' THEN
2812: IF l_debug_on THEN
2813: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_STAGED_RESERVATION_UTIL.UPDATE_STAGED_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
2814: END IF;
2815: --
2816: INV_STAGED_RESERVATION_UTIL.update_staged_flag
2817: ( x_return_status => l_status,
2820: p_reservation_id => l_new_rsv_id,
2821: p_staged_flag => p_staged
2822: );
2823: IF l_debug_on THEN
2824: WSH_DEBUG_SV.log(l_module_name,'update_staged_flag l_status',l_status);
2825: END IF;
2826:
2827: IF l_status = fnd_api.g_ret_sts_success THEN
2828: IF l_debug_on THEN
2825: END IF;
2826:
2827: IF l_status = fnd_api.g_ret_sts_success THEN
2828: IF l_debug_on THEN
2829: WSH_DEBUG_SV.logmsg(l_module_name, 'STAGED FLAG UPDATED FOR RESERVATION ID : '||L_NEW_RSV_ID );
2830: END IF;
2831: ELSE
2832: IF l_debug_on THEN
2833: WSH_DEBUG_SV.logmsg(l_module_name, 'COULD NOT UPDATE STAGED FLAG FOR RESERVATION ID : '||L_NEW_RSV_ID );
2829: WSH_DEBUG_SV.logmsg(l_module_name, 'STAGED FLAG UPDATED FOR RESERVATION ID : '||L_NEW_RSV_ID );
2830: END IF;
2831: ELSE
2832: IF l_debug_on THEN
2833: WSH_DEBUG_SV.logmsg(l_module_name, 'COULD NOT UPDATE STAGED FLAG FOR RESERVATION ID : '||L_NEW_RSV_ID );
2834: END IF;
2835: IF l_msg_count = 1 THEN
2836: IF l_debug_on THEN
2837: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2833: WSH_DEBUG_SV.logmsg(l_module_name, 'COULD NOT UPDATE STAGED FLAG FOR RESERVATION ID : '||L_NEW_RSV_ID );
2834: END IF;
2835: IF l_msg_count = 1 THEN
2836: IF l_debug_on THEN
2837: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2838: END IF;
2839: ELSE
2840: FOR l_index IN 1..l_msg_count LOOP
2841: l_msg_data := fnd_msg_pub.get;
2839: ELSE
2840: FOR l_index IN 1..l_msg_count LOOP
2841: l_msg_data := fnd_msg_pub.get;
2842: IF l_debug_on THEN
2843: WSH_DEBUG_SV.logmsg(l_module_name, 'ERROR: '|| L_MSG_DATA );
2844: END IF;
2845: END LOOP;
2846: END IF;
2847: raise transfer_split_failed;
2863: END IF; --} /* l_quantity_to_split IS NOT NULL */
2864:
2865:
2866: IF l_debug_on THEN
2867: WSH_DEBUG_SV.pop(l_module_name);
2868: END IF;
2869:
2870: --
2871: EXCEPTION
2872: WHEN transfer_split_failed THEN
2873: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2874: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2875: IF l_debug_on THEN
2876: WSH_DEBUG_SV.logmsg(l_module_name,'TRANSFER_SPLIT_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2877: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRANSFER_SPLIT_FAILED');
2878: END IF;
2879: --
2880: WHEN others THEN
2873: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2874: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
2875: IF l_debug_on THEN
2876: WSH_DEBUG_SV.logmsg(l_module_name,'TRANSFER_SPLIT_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2877: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:TRANSFER_SPLIT_FAILED');
2878: END IF;
2879: --
2880: WHEN others THEN
2881: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2880: WHEN others THEN
2881: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2882: wsh_util_core.default_handler('WSH_USA_INV_PVT.reservation_split_action',l_module_name);
2883: IF l_debug_on THEN
2884: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2885: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2886: END IF;
2887: --
2888: END reservation_split_action;
2881: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2882: wsh_util_core.default_handler('WSH_USA_INV_PVT.reservation_split_action',l_module_name);
2883: IF l_debug_on THEN
2884: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2885: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2886: END IF;
2887: --
2888: END reservation_split_action;
2889:
2945: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
2946: --
2947: IF l_debug_on IS NULL
2948: THEN
2949: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2950: END IF;
2951: --
2952: IF l_debug_on THEN
2953: WSH_DEBUG_SV.push(l_module_name);
2949: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
2950: END IF;
2951: --
2952: IF l_debug_on THEN
2953: WSH_DEBUG_SV.push(l_module_name);
2954: --
2955: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2956: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2957: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINAL_SOURCE_LINE_ID',P_ORIGINAL_SOURCE_LINE_ID);
2951: --
2952: IF l_debug_on THEN
2953: WSH_DEBUG_SV.push(l_module_name);
2954: --
2955: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2956: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2957: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINAL_SOURCE_LINE_ID',P_ORIGINAL_SOURCE_LINE_ID);
2958: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SOURCE_LINE_ID',P_SPLIT_SOURCE_LINE_ID);
2959: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2952: IF l_debug_on THEN
2953: WSH_DEBUG_SV.push(l_module_name);
2954: --
2955: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2956: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2957: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINAL_SOURCE_LINE_ID',P_ORIGINAL_SOURCE_LINE_ID);
2958: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SOURCE_LINE_ID',P_SPLIT_SOURCE_LINE_ID);
2959: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2960: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2953: WSH_DEBUG_SV.push(l_module_name);
2954: --
2955: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2956: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2957: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINAL_SOURCE_LINE_ID',P_ORIGINAL_SOURCE_LINE_ID);
2958: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SOURCE_LINE_ID',P_SPLIT_SOURCE_LINE_ID);
2959: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2960: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2961: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
2954: --
2955: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2956: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2957: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINAL_SOURCE_LINE_ID',P_ORIGINAL_SOURCE_LINE_ID);
2958: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SOURCE_LINE_ID',P_SPLIT_SOURCE_LINE_ID);
2959: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2960: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2961: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
2962: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
2955: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_CODE',P_SOURCE_CODE);
2956: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2957: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINAL_SOURCE_LINE_ID',P_ORIGINAL_SOURCE_LINE_ID);
2958: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SOURCE_LINE_ID',P_SPLIT_SOURCE_LINE_ID);
2959: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2960: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2961: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
2962: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
2963: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.inventory_item_id',p_delivery_detail_split_rec.inventory_item_id);
2956: WSH_DEBUG_SV.log(l_module_name,'P_SOURCE_HEADER_ID',P_SOURCE_HEADER_ID);
2957: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINAL_SOURCE_LINE_ID',P_ORIGINAL_SOURCE_LINE_ID);
2958: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SOURCE_LINE_ID',P_SPLIT_SOURCE_LINE_ID);
2959: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2960: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2961: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
2962: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
2963: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.inventory_item_id',p_delivery_detail_split_rec.inventory_item_id);
2964: END IF;
2957: WSH_DEBUG_SV.log(l_module_name,'P_ORIGINAL_SOURCE_LINE_ID',P_ORIGINAL_SOURCE_LINE_ID);
2958: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SOURCE_LINE_ID',P_SPLIT_SOURCE_LINE_ID);
2959: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2960: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2961: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
2962: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
2963: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.inventory_item_id',p_delivery_detail_split_rec.inventory_item_id);
2964: END IF;
2965: --
2958: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_SOURCE_LINE_ID',P_SPLIT_SOURCE_LINE_ID);
2959: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2960: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2961: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
2962: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
2963: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.inventory_item_id',p_delivery_detail_split_rec.inventory_item_id);
2964: END IF;
2965: --
2966: --
2959: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY',P_SPLIT_QUANTITY);
2960: WSH_DEBUG_SV.log(l_module_name,'P_SPLIT_QUANTITY2',P_SPLIT_QUANTITY2);
2961: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.organization_id',p_delivery_detail_split_rec.organization_id);
2962: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.delivery_detail_id',p_delivery_detail_split_rec.delivery_detail_id);
2963: WSH_DEBUG_SV.log(l_module_name,'p_delivery_detail_split_rec.inventory_item_id',p_delivery_detail_split_rec.inventory_item_id);
2964: END IF;
2965: --
2966: --
2967: -- Debug Statements
2977:
2978: -- Above call populates l_delivery_detail_id and is used at multiple places in this API
2979: IF x_return_status IN (FND_API.G_RET_STS_UNEXP_ERROR,FND_API.G_RET_STS_ERROR) THEN
2980: IF l_debug_on THEN
2981: WSH_DEBUG_SV.log(l_module_name,'Exception has occured after WSHUSAIB.get_putaway_detail_id');
2982: WSH_DEBUG_SV.pop(l_module_name);
2983: END IF;
2984: RETURN;
2985: END IF;
2978: -- Above call populates l_delivery_detail_id and is used at multiple places in this API
2979: IF x_return_status IN (FND_API.G_RET_STS_UNEXP_ERROR,FND_API.G_RET_STS_ERROR) THEN
2980: IF l_debug_on THEN
2981: WSH_DEBUG_SV.log(l_module_name,'Exception has occured after WSHUSAIB.get_putaway_detail_id');
2982: WSH_DEBUG_SV.pop(l_module_name);
2983: END IF;
2984: RETURN;
2985: END IF;
2986: --End of X-dock,split
2988: --
2989: -- Debug Statements
2990: --
2991: IF l_debug_on THEN
2992: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.SPLIT_RESERVATION TO SPLIT : '|| P_SPLIT_QUANTITY );
2993: END IF;
2994: --
2995: --{
2996: IF p_delivery_detail_split_rec.released_status = 'S' THEN
2998: --this should clear out the detailed quantity for the appropriate reservation records
2999: -- Bug 2437799: Cancel the move order line or transfer it to new order line
3000: -- depending on parameter p_move_order_line_status
3001: IF l_debug_on THEN
3002: WSH_DEBUG_SV.logmsg(l_module_name, 'p_move_order_line_status is '||p_move_order_line_status);
3003: END IF;
3004: IF (p_move_order_line_status = 'CANCEL') THEN
3005: --
3006: -- HW OPMCONV. Removed forking the code
3005: --
3006: -- HW OPMCONV. Removed forking the code
3007:
3008: IF l_debug_on THEN
3009: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
3010: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE FOR DD : '|| P_DELIVERY_DETAIL_SPLIT_REC.DELIVERY_DETAIL_ID);
3011: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE FOR MOL : '|| P_DELIVERY_DETAIL_SPLIT_REC.MOVE_ORDER_LINE_ID);
3012: END IF;
3013: --
3006: -- HW OPMCONV. Removed forking the code
3007:
3008: IF l_debug_on THEN
3009: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
3010: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE FOR DD : '|| P_DELIVERY_DETAIL_SPLIT_REC.DELIVERY_DETAIL_ID);
3011: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE FOR MOL : '|| P_DELIVERY_DETAIL_SPLIT_REC.MOVE_ORDER_LINE_ID);
3012: END IF;
3013: --
3014: -- X-dock changes, added p_delivery_detail_id
3007:
3008: IF l_debug_on THEN
3009: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE',WSH_DEBUG_SV.C_PROC_LEVEL);
3010: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE FOR DD : '|| P_DELIVERY_DETAIL_SPLIT_REC.DELIVERY_DETAIL_ID);
3011: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLING INV_MO_CANCEL_PVT.CANCEL_MOVE_ORDER_LINE FOR MOL : '|| P_DELIVERY_DETAIL_SPLIT_REC.MOVE_ORDER_LINE_ID);
3012: END IF;
3013: --
3014: -- X-dock changes, added p_delivery_detail_id
3015: INV_MO_CANCEL_PVT.Cancel_Move_Order_Line
3020: x_return_status => x_return_status,
3021: x_msg_count => l_msg_count,
3022: x_msg_data => l_msg_data);
3023: IF l_debug_on THEN
3024: WSH_DEBUG_SV.log(l_module_name,'Cancel_Move_Order_Line x_return_status',x_return_status);
3025: END IF;
3026:
3027: -- bug 5226867
3028: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3027: -- bug 5226867
3028: IF (x_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3029: --
3030: IF l_debug_on THEN
3031: WSH_DEBUG_SV.log(l_module_name,'Cancel_Move_Order_Line returned unexpected error');
3032: END IF;
3033:
3034: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3035: --
3035: --
3036: ELSIF (x_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3037: --
3038: IF l_debug_on THEN
3039: WSH_DEBUG_SV.log(l_module_name,'Cancel_Move_Order_Line returned error');
3040: END IF;
3041:
3042: RAISE split_failed;
3043: --
3051: --{
3052: -- released_status is already checked above, should be 'S'
3053: IF p_delivery_detail_split_rec.move_order_line_id IS NOT NULL THEN
3054: IF l_debug_on THEN
3055: WSH_DEBUG_SV.log(l_module_name,'Updating released_status for detail');
3056: END IF;
3057: UPDATE wsh_delivery_details
3058: SET released_status = 'R',
3059: move_order_line_id = NULL
3070: x_return_status => l_wf_rs);
3071:
3072: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
3073: IF l_debug_on THEN
3074: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3075: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
3076: END IF;
3077: --Done Raise Event: Pick To Pod Workflow
3078:
3071:
3072: --Error Handling to be done in WSH_WF_STD.Raise_Event itself
3073: IF l_debug_on THEN
3074: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
3075: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
3076: END IF;
3077: --Done Raise Event: Pick To Pod Workflow
3078:
3079: --
3081: -- Update of wsh_delivery_details where released_status
3082: -- are changed, call DBI API after the update.
3083: -- This API will also check for DBI Installed or not
3084: IF l_debug_on THEN
3085: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',p_delivery_detail_split_rec.delivery_detail_id);
3086: END IF;
3087: l_detail_tab(1) := p_delivery_detail_split_rec.delivery_detail_id;
3088: WSH_INTEGRATION.DBI_Update_Detail_Log
3089: (p_delivery_detail_id_tab => l_detail_tab,
3090: p_dml_type => 'UPDATE',
3091: x_return_status => l_dbi_rs);
3092:
3093: IF l_debug_on THEN
3094: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
3095: END IF;
3096: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3097: x_return_status := l_dbi_rs;
3098: -- just pass this return status to caller API
3096: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3097: x_return_status := l_dbi_rs;
3098: -- just pass this return status to caller API
3099: IF l_debug_on THEN
3100: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
3101: WSH_DEBUG_SV.pop(l_module_name);
3102: END IF;
3103: return;
3104: END IF;
3097: x_return_status := l_dbi_rs;
3098: -- just pass this return status to caller API
3099: IF l_debug_on THEN
3100: WSH_DEBUG_SV.pop(l_module_name,'DBI API Returned Unexpected error '||x_return_status);
3101: WSH_DEBUG_SV.pop(l_module_name);
3102: END IF;
3103: return;
3104: END IF;
3105: -- End of Code for DBI Project
3111: ELSIF (p_move_order_line_status = 'TRANSFER') THEN
3112: -- HW OPMCONV. Removed forking the code
3113:
3114: IF l_debug_on THEN
3115: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_Transfer_Order_PVT.Update_Txn_Source_Line',WSH_DEBUG_SV.C_PROC_LEVEL);
3116: END IF;
3117: INV_Transfer_Order_PVT.Update_Txn_Source_Line
3118: (p_line_id => p_delivery_detail_split_rec.move_order_line_id,
3119: p_new_source_line_id => p_split_source_line_id);
3131: ELSE
3132: l_split_quantity2 := p_split_quantity2;
3133: END IF;
3134: IF l_debug_on THEN
3135: WSH_DEBUG_SV.logmsg(l_module_name, 'VALUE OF L_SPLIT_QUANTITY IN SPLIT_RESERVATION '||L_SPLIT_QUANTITY );
3136: -- HW OPMCONV. Print Qty2
3137: WSH_DEBUG_SV.logmsg(l_module_name, 'VALUE OF L_SPLIT_QUANTITY2 IN SPLIT_RESERVATION '||L_SPLIT_QUANTITY2 );
3138:
3139: END IF;
3133: END IF;
3134: IF l_debug_on THEN
3135: WSH_DEBUG_SV.logmsg(l_module_name, 'VALUE OF L_SPLIT_QUANTITY IN SPLIT_RESERVATION '||L_SPLIT_QUANTITY );
3136: -- HW OPMCONV. Print Qty2
3137: WSH_DEBUG_SV.logmsg(l_module_name, 'VALUE OF L_SPLIT_QUANTITY2 IN SPLIT_RESERVATION '||L_SPLIT_QUANTITY2 );
3138:
3139: END IF;
3140: --
3141: -- HW OPMCONV. Removed forking the code
3152: x_mtl_reservation_tbl => l_rsv_array,
3153: x_mtl_reservation_tbl_count => l_size,
3154: x_return_status => x_return_status);
3155: IF l_debug_on THEN
3156: WSH_DEBUG_SV.log(l_module_name,'query_reservations x_return_status',x_return_status);
3157: END IF;
3158:
3159: -- loop over all the reservation records in l_rsv_array
3160: FOR l_counter in 1..l_size LOOP
3158:
3159: -- loop over all the reservation records in l_rsv_array
3160: FOR l_counter in 1..l_size LOOP
3161: IF l_debug_on THEN
3162: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit INV_STAGED_RESERVATION_UTIL.QUERY_STAGED_FLAG',WSH_DEBUG_SV.C_PROC_LEVEL);
3163: END IF;
3164: --
3165: INV_STAGED_RESERVATION_UTIL.query_staged_flag(
3166: x_return_status => x_return_status,
3168: x_msg_data => l_msg_data,
3169: x_staged_flag => l_staged_flag,
3170: p_reservation_id => l_rsv_array(l_counter).reservation_id);
3171: IF l_debug_on THEN
3172: WSH_DEBUG_SV.log(l_module_name,'query_staged_flag x_return_status',x_return_status);
3173: END IF;
3174:
3175: IF l_debug_on THEN
3176: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit OE_ORDER_SCH_UTIL.GET_MTL_SALES_ORDER_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
3172: WSH_DEBUG_SV.log(l_module_name,'query_staged_flag x_return_status',x_return_status);
3173: END IF;
3174:
3175: IF l_debug_on THEN
3176: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit OE_ORDER_SCH_UTIL.GET_MTL_SALES_ORDER_ID',WSH_DEBUG_SV.C_PROC_LEVEL);
3177: END IF;
3178: --
3179: l_sales_order_id := OE_ORDER_SCH_UTIL.Get_mtl_sales_order_id(p_source_header_id);
3180:
3183: --X-dock,split
3184: IF (p_delivery_detail_split_rec.released_status = 'S' AND
3185: p_delivery_detail_split_rec.move_order_line_id IS NULL) THEN
3186: IF l_debug_on THEN
3187: WSH_DEBUG_SV.logmsg(l_module_name,'Delivery Detail-',p_delivery_detail_split_rec.delivery_detail_id);
3188: END IF;
3189: l_rsv_new.demand_source_line_detail := p_delivery_detail_split_rec.delivery_detail_id;
3190: END IF;
3191: --X-dock,split
3190: END IF;
3191: --X-dock,split
3192:
3193: IF l_debug_on THEN
3194: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_ID );
3195: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL );
3196: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_HEADER_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_HEADER_ID );
3197: WSH_DEBUG_SV.logmsg(l_module_name, 'p_delivery_detail_split_rec.released_status '||p_delivery_detail_split_rec.released_status);
3198: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).detailed_quantity '||nvl(l_rsv_array(l_counter).detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3191: --X-dock,split
3192:
3193: IF l_debug_on THEN
3194: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_ID );
3195: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL );
3196: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_HEADER_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_HEADER_ID );
3197: WSH_DEBUG_SV.logmsg(l_module_name, 'p_delivery_detail_split_rec.released_status '||p_delivery_detail_split_rec.released_status);
3198: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).detailed_quantity '||nvl(l_rsv_array(l_counter).detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3199: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).primary_reservation_quantity '||l_rsv_array(l_counter).primary_reservation_quantity);
3192:
3193: IF l_debug_on THEN
3194: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_ID );
3195: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL );
3196: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_HEADER_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_HEADER_ID );
3197: WSH_DEBUG_SV.logmsg(l_module_name, 'p_delivery_detail_split_rec.released_status '||p_delivery_detail_split_rec.released_status);
3198: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).detailed_quantity '||nvl(l_rsv_array(l_counter).detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3199: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).primary_reservation_quantity '||l_rsv_array(l_counter).primary_reservation_quantity);
3200: -- HW OPMCONV - Print Qty2
3193: IF l_debug_on THEN
3194: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_ID );
3195: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL );
3196: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_HEADER_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_HEADER_ID );
3197: WSH_DEBUG_SV.logmsg(l_module_name, 'p_delivery_detail_split_rec.released_status '||p_delivery_detail_split_rec.released_status);
3198: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).detailed_quantity '||nvl(l_rsv_array(l_counter).detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3199: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).primary_reservation_quantity '||l_rsv_array(l_counter).primary_reservation_quantity);
3200: -- HW OPMCONV - Print Qty2
3201: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).secondary_detailed_quantity '||nvl(l_rsv_array(l_counter).secondary_detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3194: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_ID );
3195: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL );
3196: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_HEADER_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_HEADER_ID );
3197: WSH_DEBUG_SV.logmsg(l_module_name, 'p_delivery_detail_split_rec.released_status '||p_delivery_detail_split_rec.released_status);
3198: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).detailed_quantity '||nvl(l_rsv_array(l_counter).detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3199: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).primary_reservation_quantity '||l_rsv_array(l_counter).primary_reservation_quantity);
3200: -- HW OPMCONV - Print Qty2
3201: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).secondary_detailed_quantity '||nvl(l_rsv_array(l_counter).secondary_detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3202: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).secondary_reservation_quantity '||l_rsv_array(l_counter).secondary_reservation_quantity);
3195: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_LINE_DETAIL );
3196: WSH_DEBUG_SV.logmsg(l_module_name, 'L_RSV_NEW.DEMAND_SOURCE_HEADER_ID IN SPLIT_RESERV IS '||L_RSV_NEW.DEMAND_SOURCE_HEADER_ID );
3197: WSH_DEBUG_SV.logmsg(l_module_name, 'p_delivery_detail_split_rec.released_status '||p_delivery_detail_split_rec.released_status);
3198: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).detailed_quantity '||nvl(l_rsv_array(l_counter).detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3199: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).primary_reservation_quantity '||l_rsv_array(l_counter).primary_reservation_quantity);
3200: -- HW OPMCONV - Print Qty2
3201: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).secondary_detailed_quantity '||nvl(l_rsv_array(l_counter).secondary_detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3202: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).secondary_reservation_quantity '||l_rsv_array(l_counter).secondary_reservation_quantity);
3203: END IF;
3197: WSH_DEBUG_SV.logmsg(l_module_name, 'p_delivery_detail_split_rec.released_status '||p_delivery_detail_split_rec.released_status);
3198: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).detailed_quantity '||nvl(l_rsv_array(l_counter).detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3199: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).primary_reservation_quantity '||l_rsv_array(l_counter).primary_reservation_quantity);
3200: -- HW OPMCONV - Print Qty2
3201: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).secondary_detailed_quantity '||nvl(l_rsv_array(l_counter).secondary_detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3202: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).secondary_reservation_quantity '||l_rsv_array(l_counter).secondary_reservation_quantity);
3203: END IF;
3204:
3205: IF ((l_rsv_array(l_counter).primary_reservation_quantity > 0) AND
3198: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).detailed_quantity '||nvl(l_rsv_array(l_counter).detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3199: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).primary_reservation_quantity '||l_rsv_array(l_counter).primary_reservation_quantity);
3200: -- HW OPMCONV - Print Qty2
3201: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).secondary_detailed_quantity '||nvl(l_rsv_array(l_counter).secondary_detailed_quantity,0)||' l_staged_flag '||l_staged_flag);
3202: WSH_DEBUG_SV.logmsg(l_module_name, 'l_rsv_array(l_counter).secondary_reservation_quantity '||l_rsv_array(l_counter).secondary_reservation_quantity);
3203: END IF;
3204:
3205: IF ((l_rsv_array(l_counter).primary_reservation_quantity > 0) AND
3206: (l_rsv_array(l_counter).primary_reservation_quantity >= nvl(l_rsv_array(l_counter).detailed_quantity,0))) THEN
3222: -- Do we have to look at inventory information here ?
3223: -- No as talked to John (08/21)
3224: THEN
3225: IF l_debug_on THEN
3226: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit reservation_split_action',WSH_DEBUG_SV.C_PROC_LEVEL);
3227: END IF;
3228: -- HW OPMCONV. Added l_split_quantity2
3229:
3230: -- 2925398: keep track of released status.
3244: p_split_quantity => l_split_quantity,
3245: p_split_quantity2 => l_split_quantity2,
3246: x_return_status => x_return_status);
3247: IF l_debug_on THEN
3248: WSH_DEBUG_SV.log(l_module_name, 'reservation_split_action',x_return_status);
3249: END IF;
3250: IF x_return_status <> fnd_api.g_ret_sts_success THEN
3251: raise split_failed;
3252: END IF;
3256: --
3257: -- Debug Statements
3258: --
3259: IF l_debug_on THEN
3260: WSH_DEBUG_SV.logmsg(l_module_name, 'NOTHING TO SPLIT WE WILL EXIT IN SPLIT_RESERVATION' );
3261: END IF;
3262: --
3263: EXIT;
3264: END IF;
3268: --
3269: -- Debug Statements
3270: --
3271: IF l_debug_on THEN
3272: WSH_DEBUG_SV.pop(l_module_name);
3273: END IF;
3274: --
3275: EXCEPTION
3276: WHEN split_failed THEN
3278: --
3279: -- Debug Statements
3280: --
3281: IF l_debug_on THEN
3282: WSH_DEBUG_SV.logmsg(l_module_name,'SPLIT_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3283: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:SPLIT_FAILED');
3284: END IF;
3285: --
3286: -- bug 5226867
3279: -- Debug Statements
3280: --
3281: IF l_debug_on THEN
3282: WSH_DEBUG_SV.logmsg(l_module_name,'SPLIT_FAILED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3283: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:SPLIT_FAILED');
3284: END IF;
3285: --
3286: -- bug 5226867
3287: -- Added the new excpetion for unexpected error
3290: --
3291: -- Debug Statements
3292: --
3293: IF l_debug_on THEN
3294: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3295: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3296: END IF;
3297: --
3298: -- bug 5226867
3291: -- Debug Statements
3292: --
3293: IF l_debug_on THEN
3294: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3295: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3296: END IF;
3297: --
3298: -- bug 5226867
3299: WHEN others THEN
3303: --
3304: -- Debug Statements
3305: --
3306: IF l_debug_on THEN
3307: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3308: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3309: END IF;
3310: --
3311: END split_reservation;
3304: -- Debug Statements
3305: --
3306: IF l_debug_on THEN
3307: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3308: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3309: END IF;
3310: --
3311: END split_reservation;
3312:
3341: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3342: --
3343: IF l_debug_on IS NULL
3344: THEN
3345: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3346: END IF;
3347: --
3348: IF l_debug_on THEN
3349: WSH_DEBUG_SV.push(l_module_name);
3345: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3346: END IF;
3347: --
3348: IF l_debug_on THEN
3349: WSH_DEBUG_SV.push(l_module_name);
3350: --
3351: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
3352: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
3353: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
3347: --
3348: IF l_debug_on THEN
3349: WSH_DEBUG_SV.push(l_module_name);
3350: --
3351: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
3352: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
3353: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
3354: END IF;
3355: --
3348: IF l_debug_on THEN
3349: WSH_DEBUG_SV.push(l_module_name);
3350: --
3351: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
3352: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
3353: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
3354: END IF;
3355: --
3356: --
3349: WSH_DEBUG_SV.push(l_module_name);
3350: --
3351: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
3352: WSH_DEBUG_SV.log(l_module_name,'P_SERIAL_NUMBER',P_SERIAL_NUMBER);
3353: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TEMP_ID',P_TRANSACTION_TEMP_ID);
3354: END IF;
3355: --
3356: --
3357: -- Debug Statements
3356: --
3357: -- Debug Statements
3358: --
3359: IF l_debug_on THEN
3360: WSH_DEBUG_SV.logmsg(l_module_name, 'IN WSH_USA_INV_PVT.UPDATE_SERIAL_NUMBERS' );
3361: END IF;
3362: --
3363: IF (p_serial_number IS NULL) AND (p_transaction_temp_id IS NULL) THEN
3364: x_return_status := FND_API.G_RET_STS_SUCCESS;
3365: --
3366: -- Debug Statements
3367: --
3368: IF l_debug_on THEN
3369: WSH_DEBUG_SV.pop(l_module_name);
3370: END IF;
3371: --
3372: RETURN;
3373: ELSE
3379: --
3380: -- Debug Statements
3381: --
3382: IF l_debug_on THEN
3383: WSH_DEBUG_SV.pop(l_module_name);
3384: END IF;
3385: --
3386: RETURN;
3387: END IF;
3393: p_serial_number => p_serial_number,
3394: p_transaction_temp_id => p_transaction_temp_id,
3395: x_return_status => x_return_status);
3396: IF l_debug_on THEN
3397: WSH_DEBUG_SV.log(l_module_name,'Unmark_Serial_Number x_return_status',x_return_status);
3398: END IF;
3399: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3400: x_return_status := FND_API.G_RET_STS_ERROR;
3401: WSH_UTIL_CORE.add_message (x_return_status,l_module_name);
3402: --
3403: -- Debug Statements
3404: --
3405: IF l_debug_on THEN
3406: WSH_DEBUG_SV.pop(l_module_name);
3407: END IF;
3408: --
3409: RETURN;
3410: END IF;
3420: --
3421: -- Debug Statements
3422: --
3423: IF l_debug_on THEN
3424: WSH_DEBUG_SV.pop(l_module_name);
3425: END IF;
3426: --
3427: EXCEPTION
3428:
3433: --
3434: -- Debug Statements
3435: --
3436: IF l_debug_on THEN
3437: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3438: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3439: END IF;
3440: --
3441: END update_serial_numbers;
3434: -- Debug Statements
3435: --
3436: IF l_debug_on THEN
3437: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3438: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3439: END IF;
3440: --
3441: END update_serial_numbers;
3442:
3698: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
3699: --
3700: IF l_debug_on IS NULL
3701: THEN
3702: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3703: END IF;
3704: --
3705: IF l_debug_on THEN
3706: WSH_DEBUG_SV.push(l_module_name);
3702: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
3703: END IF;
3704: --
3705: IF l_debug_on THEN
3706: WSH_DEBUG_SV.push(l_module_name);
3707: END IF;
3708: --
3709: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3710: l_multiple_update := 'N';
3718: --
3719: -- Debug Statements
3720: --
3721: IF l_debug_on THEN
3722: WSH_DEBUG_SV.logmsg(l_module_name, 'IN UPDATE_INVENTORY_INFO PROCEDURE ...' );
3723: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling program unit WSH_INTEGRATION.Get_Inv_PC_Attributes' );
3724: END IF;
3725: --
3726: -- bug 2805603 : added call to get_inv_pc_attributes and set_inv_pc_attributes to get transaction_id and transaction_temp_id
3719: -- Debug Statements
3720: --
3721: IF l_debug_on THEN
3722: WSH_DEBUG_SV.logmsg(l_module_name, 'IN UPDATE_INVENTORY_INFO PROCEDURE ...' );
3723: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling program unit WSH_INTEGRATION.Get_Inv_PC_Attributes' );
3724: END IF;
3725: --
3726: -- bug 2805603 : added call to get_inv_pc_attributes and set_inv_pc_attributes to get transaction_id and transaction_temp_id
3727: WSH_INTEGRATION.Get_Inv_PC_Attributes
3729: x_return_status => l_return_status,
3730: x_msg_count => l_msg_count,
3731: x_msg_data => l_msg_data) ;
3732: IF l_debug_on THEN
3733: WSH_DEBUG_SV.log(l_module_name,'After call to Get_Inv_PC_Attributes ',l_return_status);
3734: END IF;
3735: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3736: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3737: IF l_debug_on THEN
3734: END IF;
3735: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3736: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3737: IF l_debug_on THEN
3738: WSH_DEBUG_SV.logmsg(l_module_name, 'Errored out in Get_Inv_PC_Attributes ' );
3739: END IF;
3740: ELSE
3741: l_transaction_id := l_InvPCOutRecType.transaction_id;
3742: l_transaction_temp_id := l_InvPCOutRecType.transaction_temp_id;
3740: ELSE
3741: l_transaction_id := l_InvPCOutRecType.transaction_id;
3742: l_transaction_temp_id := l_InvPCOutRecType.transaction_temp_id;
3743: IF l_debug_on THEN
3744: WSH_DEBUG_SV.logmsg(l_module_name, 'l_transaction_id IS ' || L_TRANSACTION_ID );
3745: WSH_DEBUG_SV.logmsg(l_module_name, 'l_transaction_temp_id IS ' || L_TRANSACTION_TEMP_ID );
3746: END IF;
3747: END IF;
3748:
3741: l_transaction_id := l_InvPCOutRecType.transaction_id;
3742: l_transaction_temp_id := l_InvPCOutRecType.transaction_temp_id;
3743: IF l_debug_on THEN
3744: WSH_DEBUG_SV.logmsg(l_module_name, 'l_transaction_id IS ' || L_TRANSACTION_ID );
3745: WSH_DEBUG_SV.logmsg(l_module_name, 'l_transaction_temp_id IS ' || L_TRANSACTION_TEMP_ID );
3746: END IF;
3747: END IF;
3748:
3749: -- Assumption : Inventory will be setting the Transaction and Transaction_Temp_Id
3762: l_InvPCInRecType.source_code := 'INV';
3763: l_InvPCInRecType.api_version_number := 1.0;
3764: --
3765: IF l_debug_on THEN
3766: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling program unit WSH_INTEGRATION.Set_Inv_PC_Attributes' );
3767: END IF;
3768: --
3769: WSH_INTEGRATION.Set_Inv_PC_Attributes
3770: ( p_in_attributes => l_InvPCInRecType,
3772: x_msg_count => l_msg_count,
3773: x_msg_data => l_msg_data );
3774:
3775: IF l_debug_on THEN
3776: WSH_DEBUG_SV.log(l_module_name,'After call to Set_Inv_PC_Attributes ',l_return_status);
3777: END IF;
3778: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3779: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3780: IF l_debug_on THEN
3777: END IF;
3778: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
3779: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3780: IF l_debug_on THEN
3781: WSH_DEBUG_SV.logmsg(l_module_name, 'Errored out in Set_Inv_PC_Attributes ' );
3782: END IF;
3783: END IF;
3784: END IF;
3785: END IF;
3789: --Bug#5104847:transaction_temp_id default value is FND_API.G_MISS_NUM
3790: IF ( l_transaction_temp_id IS NOT NULL AND l_transaction_temp_id <> FND_API.G_MISS_NUM ) AND p_changed_attributes.COUNT > 1 THEN
3791:
3792: IF l_debug_on THEN
3793: WSH_DEBUG_SV.logmsg(l_module_name, 'Number of records passed by inventory ' || p_changed_attributes.COUNT );
3794: WSH_DEBUG_SV.logmsg(l_module_name, 'Reject request as transaction_temp_id is passed for more than 1 record by inventory ');
3795: END IF;
3796: l_ship_status := 'having more than 1 record from inventory to be processed';
3797: FND_MESSAGE.Set_Name('WSH', 'WSH_REJECT_UPDATE_REQUEST');
3790: IF ( l_transaction_temp_id IS NOT NULL AND l_transaction_temp_id <> FND_API.G_MISS_NUM ) AND p_changed_attributes.COUNT > 1 THEN
3791:
3792: IF l_debug_on THEN
3793: WSH_DEBUG_SV.logmsg(l_module_name, 'Number of records passed by inventory ' || p_changed_attributes.COUNT );
3794: WSH_DEBUG_SV.logmsg(l_module_name, 'Reject request as transaction_temp_id is passed for more than 1 record by inventory ');
3795: END IF;
3796: l_ship_status := 'having more than 1 record from inventory to be processed';
3797: FND_MESSAGE.Set_Name('WSH', 'WSH_REJECT_UPDATE_REQUEST');
3798: FND_MESSAGE.Set_Token('SHIP_STATUS', l_ship_status);
3799: FND_MESSAGE.Set_Token('UPDATE_ATTRIBUTE', 'transaction_temp_id');
3800: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3801: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3802: IF l_debug_on THEN
3803: WSH_DEBUG_SV.pop(l_module_name,'ERROR:REJECT INV REQUEST');
3804: END IF;
3805: RETURN;
3806: END IF;
3807:
3826: --
3827: -- Debug Statements
3828: --
3829: IF l_debug_on THEN
3830: WSH_DEBUG_SV.logmsg(l_module_name, 'L_COUNTER IS ' || L_COUNTER );
3831: WSH_DEBUG_SV.logmsg(l_module_name, 'ACTION FLAG IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .ACTION_FLAG );
3832: WSH_DEBUG_SV.logmsg(l_module_name, 'DELDET ID IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .DELIVERY_DETAIL_ID );
3833: WSH_DEBUG_SV.logmsg(l_module_name, 'ORDERED QTY IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .ORDERED_QUANTITY );
3834: END IF;
3827: -- Debug Statements
3828: --
3829: IF l_debug_on THEN
3830: WSH_DEBUG_SV.logmsg(l_module_name, 'L_COUNTER IS ' || L_COUNTER );
3831: WSH_DEBUG_SV.logmsg(l_module_name, 'ACTION FLAG IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .ACTION_FLAG );
3832: WSH_DEBUG_SV.logmsg(l_module_name, 'DELDET ID IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .DELIVERY_DETAIL_ID );
3833: WSH_DEBUG_SV.logmsg(l_module_name, 'ORDERED QTY IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .ORDERED_QUANTITY );
3834: END IF;
3835:
3828: --
3829: IF l_debug_on THEN
3830: WSH_DEBUG_SV.logmsg(l_module_name, 'L_COUNTER IS ' || L_COUNTER );
3831: WSH_DEBUG_SV.logmsg(l_module_name, 'ACTION FLAG IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .ACTION_FLAG );
3832: WSH_DEBUG_SV.logmsg(l_module_name, 'DELDET ID IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .DELIVERY_DETAIL_ID );
3833: WSH_DEBUG_SV.logmsg(l_module_name, 'ORDERED QTY IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .ORDERED_QUANTITY );
3834: END IF;
3835:
3836: -- Bug 3390514 : Treating FND_API.G_MISS_NUM in pending_quantity as Zero
3829: IF l_debug_on THEN
3830: WSH_DEBUG_SV.logmsg(l_module_name, 'L_COUNTER IS ' || L_COUNTER );
3831: WSH_DEBUG_SV.logmsg(l_module_name, 'ACTION FLAG IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .ACTION_FLAG );
3832: WSH_DEBUG_SV.logmsg(l_module_name, 'DELDET ID IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .DELIVERY_DETAIL_ID );
3833: WSH_DEBUG_SV.logmsg(l_module_name, 'ORDERED QTY IS ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .ORDERED_QUANTITY );
3834: END IF;
3835:
3836: -- Bug 3390514 : Treating FND_API.G_MISS_NUM in pending_quantity as Zero
3837: IF p_changed_attributes(l_counter).pending_quantity = FND_API.G_MISS_NUM THEN
3882: --
3883: -- Debug Statements
3884: --
3885: IF l_debug_on THEN
3886: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY STATUS IS ' || L_DELIVERY_STATUS );
3887: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY ID IS ' || L_DELIVERY_ID );
3888: WSH_DEBUG_SV.logmsg(l_module_name, 'PLANNED FLAG IS ' || L_PLANNED_FLAG );
3889: END IF;
3890:
3883: -- Debug Statements
3884: --
3885: IF l_debug_on THEN
3886: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY STATUS IS ' || L_DELIVERY_STATUS );
3887: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY ID IS ' || L_DELIVERY_ID );
3888: WSH_DEBUG_SV.logmsg(l_module_name, 'PLANNED FLAG IS ' || L_PLANNED_FLAG );
3889: END IF;
3890:
3891: OPEN C_Old_Detail(l_counter);
3884: --
3885: IF l_debug_on THEN
3886: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY STATUS IS ' || L_DELIVERY_STATUS );
3887: WSH_DEBUG_SV.logmsg(l_module_name, 'DELIVERY ID IS ' || L_DELIVERY_ID );
3888: WSH_DEBUG_SV.logmsg(l_module_name, 'PLANNED FLAG IS ' || L_PLANNED_FLAG );
3889: END IF;
3890:
3891: OPEN C_Old_Detail(l_counter);
3892: FETCH C_Old_Detail
3893: INTO old_delivery_detail_rec;
3894: IF c_old_detail%NOTFOUND THEN
3895: old_delivery_detail_rec.released_status := 'N';
3896: IF l_debug_on THEN
3897: WSH_DEBUG_SV.logmsg(l_module_name,
3898: 'c_old_detail not found. setting status N.');
3899: END IF;
3900: END IF;
3901: CLOSE C_Old_Detail;
3904: FND_MESSAGE.Set_Name('WSH', 'WSH_DEL_LINE_DIR_INVALID');
3905: FND_MESSAGE.Set_Token('DELIVERY_DETAIL_ID', old_delivery_detail_rec.delivery_detail_id);
3906: WSH_UTIL_CORE.Add_Message(x_return_status,l_module_name);
3907: IF l_debug_on THEN
3908: WSH_DEBUG_SV.logmsg(l_module_name,'ERROR: operation is invalid for delivery line direction');
3909: END IF;
3910: raise Delivery_Line_Direction_Err;
3911: END IF;
3912:
3913: --
3914: -- Debug Statements
3915: --
3916: IF l_debug_on THEN
3917: WSH_DEBUG_SV.log(l_module_name,
3918: 'original RELEASED_STATUS',
3919: OLD_DELIVERY_DETAIL_REC.RELEASED_STATUS );
3920: WSH_DEBUG_SV.logmsg(l_module_name, 'ORGANIZATION ID IS ' || OLD_DELIVERY_DETAIL_REC.ORGANIZATION_ID );
3921: END IF;
3916: IF l_debug_on THEN
3917: WSH_DEBUG_SV.log(l_module_name,
3918: 'original RELEASED_STATUS',
3919: OLD_DELIVERY_DETAIL_REC.RELEASED_STATUS );
3920: WSH_DEBUG_SV.logmsg(l_module_name, 'ORGANIZATION ID IS ' || OLD_DELIVERY_DETAIL_REC.ORGANIZATION_ID );
3921: END IF;
3922:
3923: -- bug 4481819: fail pick confirm if released status is 'N'
3924: -- to prevent stuck orders in Interface Trip Stop.
3941:
3942: WSH_UTIL_CORE.add_message (x_return_status, l_module_name);
3943:
3944: IF l_debug_on THEN
3945: WSH_DEBUG_SV.logmsg(l_module_name, 'detail is not ready to release.');
3946: WSH_DEBUG_SV.pop(l_module_name);
3947: END IF;
3948: RETURN;
3949: END IF;
3942: WSH_UTIL_CORE.add_message (x_return_status, l_module_name);
3943:
3944: IF l_debug_on THEN
3945: WSH_DEBUG_SV.logmsg(l_module_name, 'detail is not ready to release.');
3946: WSH_DEBUG_SV.pop(l_module_name);
3947: END IF;
3948: RETURN;
3949: END IF;
3950:
3955: --
3956: -- Debug Statements
3957: --
3958: IF l_debug_on THEN
3959: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_VALIDATE.CHECK_WMS_ORG',WSH_DEBUG_SV.C_PROC_LEVEL);
3960: END IF;
3961: --
3962: l_wms_enabled_flag := WSH_UTIL_VALIDATE.Check_Wms_Org(old_delivery_detail_rec.organization_id);
3963:
3964: --
3965: -- Debug Statements
3966: --
3967: IF l_debug_on THEN
3968: WSH_DEBUG_SV.logmsg(l_module_name, 'WMS ENABLED FLAG IS ' || L_WMS_ENABLED_FLAG );
3969: END IF;
3970: --
3971: --Bug fix 2340652
3972:
3981: --
3982: -- Debug Statements
3983: --
3984: IF l_debug_on THEN
3985: WSH_DEBUG_SV.logmsg(l_module_name, 'CALLED WITH MULTIPLE UPDATES' );
3986: END IF;
3987: --
3988: l_multiple_update := 'Y';
3989: l_changed_attributes(l_counter) := p_changed_attributes(l_counter);
4006: --
4007: -- Debug Statements
4008: --
4009: IF l_debug_on THEN
4010: WSH_DEBUG_SV.logmsg(l_module_name, 'CHANGING ACTION FLAG TO U ' );
4011: END IF;
4012: --
4013: l_changed_attributes(l_counter).action_flag := 'U';
4014: ELSE
4021: p_req_quantity2 => l_split_quantity2,
4022: p_manual_split => p_changed_attributes(l_counter).action_flag);
4023: -- odaboval : End of OPM Changes (Pick_Confirm)
4024: IF l_debug_on THEN
4025: WSH_DEBUG_SV.log(l_module_name,'Split_Delivery_Details',l_return_status);
4026: END IF;
4027:
4028: -- Bug 3724578 : Return back to the caller if any error occures while
4029: -- splitting the delivery detail line
4089: x_return_status => l_return_status,
4090: p_req_quantity2 => l_split_quantity2,
4091: p_manual_split => p_changed_attributes(l_counter).action_flag);
4092: IF l_debug_on THEN
4093: WSH_DEBUG_SV.log(l_module_name,'Split_Delivery_Details l_return_status',l_return_status);
4094: END IF;
4095:
4096:
4097: -- Bug 3724578 : Return back to the caller if any error occures while
4123: --
4124: -- Debug Statements
4125: --
4126: IF l_debug_on THEN
4127: WSH_DEBUG_SV.logmsg(l_module_name, 'ACTION FLAG IS S' );
4128: WSH_DEBUG_SV.log(l_module_name, 'p_changed_attributes(l_counter).picked_quantity', p_changed_attributes(l_counter).picked_quantity);
4129: WSH_DEBUG_SV.log(l_module_name, 'p_changed_attributes(l_counter).picked_quantity2', p_changed_attributes(l_counter).picked_quantity2);
4130: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity', l_pending_quantity);
4131: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity2', l_pending_quantity2);
4124: -- Debug Statements
4125: --
4126: IF l_debug_on THEN
4127: WSH_DEBUG_SV.logmsg(l_module_name, 'ACTION FLAG IS S' );
4128: WSH_DEBUG_SV.log(l_module_name, 'p_changed_attributes(l_counter).picked_quantity', p_changed_attributes(l_counter).picked_quantity);
4129: WSH_DEBUG_SV.log(l_module_name, 'p_changed_attributes(l_counter).picked_quantity2', p_changed_attributes(l_counter).picked_quantity2);
4130: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity', l_pending_quantity);
4131: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity2', l_pending_quantity2);
4132: END IF;
4125: --
4126: IF l_debug_on THEN
4127: WSH_DEBUG_SV.logmsg(l_module_name, 'ACTION FLAG IS S' );
4128: WSH_DEBUG_SV.log(l_module_name, 'p_changed_attributes(l_counter).picked_quantity', p_changed_attributes(l_counter).picked_quantity);
4129: WSH_DEBUG_SV.log(l_module_name, 'p_changed_attributes(l_counter).picked_quantity2', p_changed_attributes(l_counter).picked_quantity2);
4130: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity', l_pending_quantity);
4131: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity2', l_pending_quantity2);
4132: END IF;
4133: --
4126: IF l_debug_on THEN
4127: WSH_DEBUG_SV.logmsg(l_module_name, 'ACTION FLAG IS S' );
4128: WSH_DEBUG_SV.log(l_module_name, 'p_changed_attributes(l_counter).picked_quantity', p_changed_attributes(l_counter).picked_quantity);
4129: WSH_DEBUG_SV.log(l_module_name, 'p_changed_attributes(l_counter).picked_quantity2', p_changed_attributes(l_counter).picked_quantity2);
4130: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity', l_pending_quantity);
4131: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity2', l_pending_quantity2);
4132: END IF;
4133: --
4134:
4127: WSH_DEBUG_SV.logmsg(l_module_name, 'ACTION FLAG IS S' );
4128: WSH_DEBUG_SV.log(l_module_name, 'p_changed_attributes(l_counter).picked_quantity', p_changed_attributes(l_counter).picked_quantity);
4129: WSH_DEBUG_SV.log(l_module_name, 'p_changed_attributes(l_counter).picked_quantity2', p_changed_attributes(l_counter).picked_quantity2);
4130: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity', l_pending_quantity);
4131: WSH_DEBUG_SV.log(l_module_name, 'l_pending_quantity2', l_pending_quantity2);
4132: END IF;
4133: --
4134:
4135: IF p_changed_attributes(l_counter).picked_quantity <> FND_API.G_MISS_NUM THEN
4155: /* old_delivery_detail_rec.picked_quantity2 := l_split_quantity2
4156: + p_changed_attributes(l_counter).pending_quantity2; */
4157:
4158: IF l_debug_on THEN
4159: wsh_debug_sv.log(l_module_name, 'old_delivery_detail_rec.picked_quantity', old_delivery_detail_rec.picked_quantity);
4160: wsh_debug_sv.log(l_module_name, 'old_delivery_detail_rec.picked_quantity2', old_delivery_detail_rec.picked_quantity2);
4161: END IF;
4162:
4163: UPDATE WSH_DELIVERY_DETAILS
4156: + p_changed_attributes(l_counter).pending_quantity2; */
4157:
4158: IF l_debug_on THEN
4159: wsh_debug_sv.log(l_module_name, 'old_delivery_detail_rec.picked_quantity', old_delivery_detail_rec.picked_quantity);
4160: wsh_debug_sv.log(l_module_name, 'old_delivery_detail_rec.picked_quantity2', old_delivery_detail_rec.picked_quantity2);
4161: END IF;
4162:
4163: UPDATE WSH_DELIVERY_DETAILS
4164: SET picked_quantity = old_delivery_detail_rec.picked_quantity,
4189: --
4190: -- Debug Statements
4191: --
4192: IF l_debug_on THEN
4193: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
4194: END IF;
4195: --
4196: WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details(
4197: p_from_detail_id => p_Changed_attributes(l_counter).delivery_detail_id,
4201: p_req_quantity2 => l_split_quantity2,
4202: p_manual_split => p_changed_attributes(l_counter).action_flag);
4203: -- odaboval : End of OPM Changes (Pick_Confirm)
4204: IF l_debug_on THEN
4205: WSH_DEBUG_SV.log(l_module_name,'Split_Delivery_Details l_return_status',l_return_status);
4206: END IF;
4207:
4208: -- Bug 3724578 : Return back to the caller if any error occures while
4209: -- splitting the delivery detail line
4233: -- Update of wsh_delivery_details where requested_quantity
4234: -- are changed, call DBI API after the update.
4235: -- DBI API checks for DBI Installed also
4236: IF l_debug_on THEN
4237: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',old_delivery_detail_rec.delivery_detail_id);
4238: END IF;
4239: l_detail_tab(1) := old_delivery_detail_rec.delivery_detail_id;
4240: WSH_INTEGRATION.DBI_Update_Detail_Log
4241: (p_delivery_detail_id_tab => l_detail_tab,
4242: p_dml_type => 'UPDATE',
4243: x_return_status => l_dbi_rs);
4244:
4245: IF l_debug_on THEN
4246: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
4247: END IF;
4248: -- DBI API can only raise unexpected error, in that case need to
4249: -- pass it to the caller API for roll back of the whole transaction
4250: -- Only need to handle Unexpected error, rest are treated as success
4251: -- Since code is not proceeding, no need to reset x_return_status
4252: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4253: x_return_status := l_dbi_rs;
4254: IF l_debug_on THEN
4255: WSH_DEBUG_SV.pop(l_module_name);
4256: END IF;
4257: RETURN;
4258: END IF;
4259:
4269: picked_quantity2 = decode(l_split_quantity2, 0, picked_quantity2, NULL)
4270: WHERE delivery_detail_id = l_dummy_detail_id;
4271: -- bug 4416863
4272: IF l_debug_on THEN
4273: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
4274: END IF;
4275:
4276: WSH_WV_UTILS.Detail_Weight_Volume
4277: (p_delivery_detail_id => l_dummy_detail_id,
4283: x_return_status => l_return_status);
4284: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4285: x_return_status := l_return_status;
4286: IF l_debug_on THEN
4287: WSH_DEBUG_SV.logmsg(l_module_name,'Detail_Weight_Volume returned '|| l_return_status);
4288: WSH_DEBUG_SV.pop(l_module_name);
4289: END IF;
4290: return;
4291: END IF;
4284: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4285: x_return_status := l_return_status;
4286: IF l_debug_on THEN
4287: WSH_DEBUG_SV.logmsg(l_module_name,'Detail_Weight_Volume returned '|| l_return_status);
4288: WSH_DEBUG_SV.pop(l_module_name);
4289: END IF;
4290: return;
4291: END IF;
4292: -- end bug 4416863
4319: p_event => 'oracle.apps.wsh.line.gen.releasedtowarehouse' ,
4320: p_organization_id => l_organization_id,
4321: x_return_status => l_wf_rs ) ;
4322: IF l_debug_on THEN
4323: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4324: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
4325: END IF;
4326:
4327: OPEN c_get_picked_lines_count( l_dummy_detail_id );
4320: p_organization_id => l_organization_id,
4321: x_return_status => l_wf_rs ) ;
4322: IF l_debug_on THEN
4323: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4324: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
4325: END IF;
4326:
4327: OPEN c_get_picked_lines_count( l_dummy_detail_id );
4328: FETCH c_get_picked_lines_count into l_count_picked_lines, l_delv_id ;
4334: p_event => 'oracle.apps.wsh.delivery.pik.pickinitiated' ,
4335: p_organization_id => l_organization_id,
4336: x_return_status => l_wf_rs ) ;
4337: IF l_debug_on THEN
4338: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4339: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
4340: END IF;
4341: END IF;
4342: END IF;
4335: p_organization_id => l_organization_id,
4336: x_return_status => l_wf_rs ) ;
4337: IF l_debug_on THEN
4338: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
4339: WSH_DEBUG_SV.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
4340: END IF;
4341: END IF;
4342: END IF;
4343: CLOSE c_get_picked_lines_count;
4350: -- Update of wsh_delivery_details where requested_quantity
4351: -- are changed, call DBI API after the update.
4352: -- DBI API checks for DBI Installed also
4353: IF l_debug_on THEN
4354: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',l_dummy_detail_id);
4355: END IF;
4356: l_detail_tab(1) := l_dummy_detail_id;
4357: WSH_INTEGRATION.DBI_Update_Detail_Log
4358: (p_delivery_detail_id_tab => l_detail_tab,
4359: p_dml_type => 'UPDATE',
4360: x_return_status => l_dbi_rs);
4361:
4362: IF l_debug_on THEN
4363: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
4364: END IF;
4365: -- DBI API can only raise unexpected error, in that case need to
4366: -- pass it to the caller API for roll back of the whole transaction
4367: -- Only need to handle Unexpected error, rest are treated as success
4368: -- Since code is not proceeding, no need to reset x_return_status
4369: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4370: x_return_status := l_dbi_rs;
4371: IF l_debug_on THEN
4372: WSH_DEBUG_SV.pop(l_module_name);
4373: END IF;
4374: RETURN;
4375: END IF;
4376:
4380: -- In dynamic replenishment case, WMS passes the action flag as 'R' and replenishment quantity in cycle_count_quantity attribute.
4381: ELSIF (p_changed_attributes(l_Counter).action_flag = 'R' ) THEN
4382: --{
4383: IF l_debug_on THEN
4384: WSH_DEBUG_SV.logmsg(l_module_name, 'CYCLE_COUNT_QUANTITY = ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .CYCLE_COUNT_QUANTITY );
4385: WSH_DEBUG_SV.logmsg(l_module_name, 'L_REQUEST_ID = ' || L_REQUEST_ID );
4386:
4387: END IF;
4388:
4381: ELSIF (p_changed_attributes(l_Counter).action_flag = 'R' ) THEN
4382: --{
4383: IF l_debug_on THEN
4384: WSH_DEBUG_SV.logmsg(l_module_name, 'CYCLE_COUNT_QUANTITY = ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .CYCLE_COUNT_QUANTITY );
4385: WSH_DEBUG_SV.logmsg(l_module_name, 'L_REQUEST_ID = ' || L_REQUEST_ID );
4386:
4387: END IF;
4388:
4389: l_split_quantity := p_Changed_attributes(l_Counter).cycle_count_quantity;
4396: --
4397: -- Debug Statements
4398: --
4399: IF l_debug_on THEN
4400: WSH_DEBUG_SV.logmsg(l_module_name, 'SPLIT_DELIVERY_DETAILS BEING CALLED WITH ' || TO_CHAR ( L_SPLIT_QUANTITY ) );
4401: END IF;
4402: --
4403: WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details(
4404: p_from_detail_id => p_Changed_attributes(l_counter).delivery_detail_id,
4407: x_return_status => l_return_status,
4408: p_req_quantity2 => l_split_quantity2,
4409: p_manual_split => 'B');
4410: IF l_debug_on THEN
4411: WSH_DEBUG_SV.log(l_module_name,'Split_Delivery_Details l_return_status',l_return_status);
4412: WSH_DEBUG_SV.log(l_module_name,'Split_Delivery_Details is ',l_dummy_detail_id);
4413: END IF;
4414:
4415: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4408: p_req_quantity2 => l_split_quantity2,
4409: p_manual_split => 'B');
4410: IF l_debug_on THEN
4411: WSH_DEBUG_SV.log(l_module_name,'Split_Delivery_Details l_return_status',l_return_status);
4412: WSH_DEBUG_SV.log(l_module_name,'Split_Delivery_Details is ',l_dummy_detail_id);
4413: END IF;
4414:
4415: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4416: x_return_status := l_return_status;
4424: --
4425: -- Debug Statements
4426: --
4427: IF l_debug_on THEN
4428: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT. BACKORDERED_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
4429: END IF;
4430: --
4431: backorder_delivery_detail(
4432: p_delivery_detail_id => l_dummy_detail_id ,
4459: --
4460: -- Debug Statements
4461: --
4462: IF l_debug_on THEN
4463: WSH_DEBUG_SV.logmsg(l_module_name, 'CYCLE_COUNT_QUANTITY = ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .CYCLE_COUNT_QUANTITY );
4464: WSH_DEBUG_SV.logmsg(l_module_name, 'L_REQUEST_ID = ' || L_REQUEST_ID );
4465: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4466: END IF;
4467:
4460: -- Debug Statements
4461: --
4462: IF l_debug_on THEN
4463: WSH_DEBUG_SV.logmsg(l_module_name, 'CYCLE_COUNT_QUANTITY = ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .CYCLE_COUNT_QUANTITY );
4464: WSH_DEBUG_SV.logmsg(l_module_name, 'L_REQUEST_ID = ' || L_REQUEST_ID );
4465: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4466: END IF;
4467:
4468: l_item_name := WSH_UTIL_CORE.Get_Item_Name(old_delivery_detail_rec.inventory_item_id,old_delivery_detail_rec.organization_id);
4461: --
4462: IF l_debug_on THEN
4463: WSH_DEBUG_SV.logmsg(l_module_name, 'CYCLE_COUNT_QUANTITY = ' || P_CHANGED_ATTRIBUTES ( L_COUNTER ) .CYCLE_COUNT_QUANTITY );
4464: WSH_DEBUG_SV.logmsg(l_module_name, 'L_REQUEST_ID = ' || L_REQUEST_ID );
4465: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4466: END IF;
4467:
4468: l_item_name := WSH_UTIL_CORE.Get_Item_Name(old_delivery_detail_rec.inventory_item_id,old_delivery_detail_rec.organization_id);
4469: IF (old_delivery_detail_rec.ship_set_id IS NOT NULL) OR
4473: --
4474: -- Debug Statements
4475: --
4476: IF l_debug_on THEN
4477: WSH_DEBUG_SV.logmsg(l_module_name, 'CHECK FOR BACKORDER OF SHIP SET / SMC LINES' );
4478: END IF;
4479: --
4480: --
4481: -- Debug Statements
4480: --
4481: -- Debug Statements
4482: --
4483: IF l_debug_on THEN
4484: WSH_DEBUG_SV.logmsg(l_module_name,
4485: 'SS ID = '
4486: || OLD_DELIVERY_DETAIL_REC.SHIP_SET_ID
4487: || ' , SMC ID = '
4488: || OLD_DELIVERY_DETAIL_REC.TOP_MODEL_LINE_ID
4500: --
4501: -- Debug Statements
4502: --
4503: IF l_debug_on THEN
4504: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIP SET IS DIFFERENT AND ASSIGNING BEFORE LOOP ' );
4505: END IF;
4506: --
4507: g_ss_smc_found := FALSE;
4508: g_move_order_line_id := NULL ;
4517: --
4518: -- Debug Statements
4519: --
4520: IF l_debug_on THEN
4521: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL',WSH_DEBUG_SV.C_PROC_LEVEL);
4522: END IF;
4523: --
4524: IF NVL(old_delivery_detail_rec.ship_set_id,0) =
4525: NVL(WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).ship_set_id,0) THEN
4525: NVL(WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).ship_set_id,0) THEN
4526: g_ss_smc_found := TRUE;
4527: --
4528: IF l_debug_on THEN
4529: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL',WSH_DEBUG_SV.C_PROC_LEVEL);
4530: END IF;
4531: --
4532: g_move_order_line_id := WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).move_order_line_id;
4533: g_delivery_detail_id := WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).delivery_detail_id;
4532: g_move_order_line_id := WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).move_order_line_id;
4533: g_delivery_detail_id := WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).delivery_detail_id;
4534: --
4535: IF l_debug_on THEN
4536: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL',WSH_DEBUG_SV.C_PROC_LEVEL);
4537: END IF;
4538: --
4539: g_ship_set_id := WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).ship_set_id;
4540: g_ship_model_id := NULL;
4558: AND set_type = 'SHIP_SET';
4559: END IF;
4560:
4561: IF l_debug_on THEN
4562: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4563: END IF;
4564: --
4565: g_backordered_item := WSH_UTIL_CORE.Get_Item_Name(l_backordered_item_id,old_delivery_detail_rec.organization_id);
4566: --
4565: g_backordered_item := WSH_UTIL_CORE.Get_Item_Name(l_backordered_item_id,old_delivery_detail_rec.organization_id);
4566: --
4567: --
4568: IF l_debug_on THEN
4569: WSH_DEBUG_SV.logmsg(l_module_name, 'FOUND NEW G_MOVE_ORDER_LINE_ID = ' || G_MOVE_ORDER_LINE_ID ||
4570: ' G_DELIVERY_DETAIL_ID = ' || G_DELIVERY_DETAIL_ID );
4571: END IF;
4572: --
4573: --
4573: --
4574: -- Debug Statements
4575: --
4576: IF l_debug_on THEN
4577: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL.DELETE',WSH_DEBUG_SV.C_PROC_LEVEL);
4578: END IF;
4579: --
4580: WSH_INTEGRATION.G_BackorderRec_Tbl.DELETE(l_backorder_cnt);
4581: EXIT;
4583: --
4584: -- Debug Statements
4585: --
4586: IF l_debug_on THEN
4587: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL.NEXT',WSH_DEBUG_SV.C_PROC_LEVEL);
4588: END IF;
4589: --
4590: l_backorder_cnt := WSH_INTEGRATION.G_BackorderRec_Tbl.NEXT(l_backorder_cnt);
4591: END LOOP;
4594: --
4595: -- Debug Statements
4596: --
4597: IF l_debug_on THEN
4598: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIP MODEL IS DIFFERENT AND ASSIGNING BEFORE LOOP ' );
4599: END IF;
4600: --
4601: g_ss_smc_found := FALSE;
4602: g_move_order_line_id := NULL ;
4611: --
4612: -- Debug Statements
4613: --
4614: IF l_debug_on THEN
4615: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL',WSH_DEBUG_SV.C_PROC_LEVEL);
4616: END IF;
4617: --
4618: IF NVL(old_delivery_detail_rec.top_model_line_id,0) =
4619: NVL(WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).ship_model_id,0) THEN
4622: --
4623: -- Debug Statements
4624: --
4625: IF l_debug_on THEN
4626: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL',WSH_DEBUG_SV.C_PROC_LEVEL);
4627: END IF;
4628: --
4629: g_move_order_line_id := WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).move_order_line_id;
4630: g_delivery_detail_id := WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).delivery_detail_id;
4632:
4633: -- Debug Statements
4634: --
4635: IF l_debug_on THEN
4636: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL',WSH_DEBUG_SV.C_PROC_LEVEL);
4637: WSH_DEBUG_SV.logmsg(l_module_name, 'FOUND NEW G_MOVE_ORDER_LINE_ID = ' || G_MOVE_ORDER_LINE_ID ||
4638: ' G_DELIVERY_DETAIL_ID = ' || G_DELIVERY_DETAIL_ID );
4639: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL.DELETE',WSH_DEBUG_SV.C_PROC_LEVEL);
4640: END IF;
4633: -- Debug Statements
4634: --
4635: IF l_debug_on THEN
4636: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL',WSH_DEBUG_SV.C_PROC_LEVEL);
4637: WSH_DEBUG_SV.logmsg(l_module_name, 'FOUND NEW G_MOVE_ORDER_LINE_ID = ' || G_MOVE_ORDER_LINE_ID ||
4638: ' G_DELIVERY_DETAIL_ID = ' || G_DELIVERY_DETAIL_ID );
4639: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL.DELETE',WSH_DEBUG_SV.C_PROC_LEVEL);
4640: END IF;
4641: --
4635: IF l_debug_on THEN
4636: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL',WSH_DEBUG_SV.C_PROC_LEVEL);
4637: WSH_DEBUG_SV.logmsg(l_module_name, 'FOUND NEW G_MOVE_ORDER_LINE_ID = ' || G_MOVE_ORDER_LINE_ID ||
4638: ' G_DELIVERY_DETAIL_ID = ' || G_DELIVERY_DETAIL_ID );
4639: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL.DELETE',WSH_DEBUG_SV.C_PROC_LEVEL);
4640: END IF;
4641: --
4642: g_ship_model_id := WSH_INTEGRATION.G_BackorderRec_Tbl(l_backorder_cnt).ship_model_id;
4643:
4660: WHERE line_id = g_ship_model_id;
4661: END IF;
4662: --
4663: IF l_debug_on THEN
4664: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_ITEM_NAME',WSH_DEBUG_SV.C_PROC_LEVEL);
4665: END IF;
4666: --
4667: g_backordered_item := WSH_UTIL_CORE.Get_Item_Name(l_backordered_item_id,old_delivery_detail_rec.organization_id);
4668: --
4674: --
4675: -- Debug Statements
4676: --
4677: IF l_debug_on THEN
4678: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INTEGRATION.G_BACKORDERREC_TBL.NEXT',WSH_DEBUG_SV.C_PROC_LEVEL);
4679: END IF;
4680: --
4681: l_backorder_cnt := WSH_INTEGRATION.G_BackorderRec_Tbl.NEXT(l_backorder_cnt);
4682: END LOOP;
4685: --
4686: -- Debug Statements
4687: --
4688: IF l_debug_on THEN
4689: WSH_DEBUG_SV.logmsg(l_module_name, 'BEFORE LOGGING EXCEPTION , G_MOVE_ORDER_LINE_ID = ' || G_MOVE_ORDER_LINE_ID ||
4690: ' G_DELIVERY_DETAIL_ID = ' || G_DELIVERY_DETAIL_ID );
4691: END IF;
4692: --
4693:
4698: --
4699: -- Debug Statements
4700: --
4701: IF l_debug_on THEN
4702: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIPSET/SMC LINE GETTING BACKORDERED DUE TO ANOTHER LINE' );
4703: END IF;
4704: --
4705: IF g_ship_set_id IS NOT NULL THEN
4706: FND_MESSAGE.SET_NAME('WSH','WSH_PR_OTHER_SS_FAILED');
4720: --
4721: -- Debug Statements
4722: --
4723: IF l_debug_on THEN
4724: WSH_DEBUG_SV.logmsg(l_module_name, L_MSG );
4725: END IF;
4726: --
4727: l_exception_location_id := old_delivery_detail_rec.ship_from_location_id;
4728:
4744: -- 1729516
4745: p_batch_id => WSH_PICK_LIST.G_BATCH_ID
4746: );
4747: IF l_debug_on THEN
4748: WSH_DEBUG_SV.log(l_module_name,'log_exception l_exception_return_status',l_exception_return_status);
4749: END IF;
4750: Exception
4751: when others then
4752: --
4752: --
4753: -- Debug Statements
4754: --
4755: IF l_debug_on THEN
4756: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION RAISED BY LOG_EXCEPTION' );
4757: END IF;
4758: --
4759: End;
4760: --
4760: --
4761: -- Debug Statements
4762: --
4763: IF l_debug_on THEN
4764: WSH_DEBUG_SV.logmsg(l_module_name, L_EXCEPTION_ERROR_MESSAGE );
4765: END IF;
4766: --
4767:
4768: ELSE
4769: --
4770: -- Debug Statements
4771: --
4772: IF l_debug_on THEN
4773: WSH_DEBUG_SV.logmsg(l_module_name, 'SHIPSET/SMC LINE GETTING BACKORDERED DUE TO INSUFFICIENT QTY ' );
4774: END IF;
4775: --
4776: FND_MESSAGE.SET_NAME('WSH','WSH_PICK_BACKORDER');
4777: FND_MESSAGE.SET_TOKEN('QTY',p_Changed_attributes(l_Counter).cycle_count_quantity);
4781: --
4782: -- Debug Statements
4783: --
4784: IF l_debug_on THEN
4785: WSH_DEBUG_SV.logmsg(l_module_name, L_MSG );
4786: END IF;
4787: --
4788: l_exception_location_id := old_delivery_detail_rec.ship_from_location_id;
4789:
4808: -- 1729516
4809: p_batch_id => WSH_PICK_LIST.G_BATCH_ID
4810: );
4811: IF l_debug_on THEN
4812: WSH_DEBUG_SV.log(l_module_name,'log_exception l_exception_return_status',l_exception_return_status);
4813: END IF;
4814: Exception
4815: when others then
4816: --
4816: --
4817: -- Debug Statements
4818: --
4819: IF l_debug_on THEN
4820: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION RAISED BY LOG_EXCEPTION' );
4821: END IF;
4822: --
4823: End;
4824: --
4824: --
4825: -- Debug Statements
4826: --
4827: IF l_debug_on THEN
4828: WSH_DEBUG_SV.logmsg(l_module_name, L_EXCEPTION_ERROR_MESSAGE );
4829: END IF;
4830: --
4831:
4832: END IF; -- End of Logging exceptions for Ship Sets / SMCs lines
4836: --
4837: -- Debug Statements
4838: --
4839: IF l_debug_on THEN
4840: WSH_DEBUG_SV.logmsg(l_module_name, 'LOGGING EXCEPTIONS FOR NON SHIPSET/SMC LINES ' );
4841: END IF;
4842: --
4843: FND_MESSAGE.SET_NAME('WSH','WSH_PICK_BACKORDER');
4844: FND_MESSAGE.SET_TOKEN('QTY',p_Changed_attributes(l_Counter).cycle_count_quantity);
4848: --
4849: -- Debug Statements
4850: --
4851: IF l_debug_on THEN
4852: WSH_DEBUG_SV.logmsg(l_module_name, L_MSG );
4853: END IF;
4854: --
4855: l_exception_location_id := old_delivery_detail_rec.ship_from_location_id;
4856:
4876: -- 1729516
4877: p_batch_id => WSH_PICK_LIST.G_BATCH_ID
4878: );
4879: IF l_debug_on THEN
4880: WSH_DEBUG_SV.log(l_module_name,'log_exception l_exception_return_status',l_exception_return_status);
4881: END IF;
4882: Exception
4883: when others then
4884: --
4884: --
4885: -- Debug Statements
4886: --
4887: IF l_debug_on THEN
4888: WSH_DEBUG_SV.logmsg(l_module_name, 'EXCEPTION RAISED BY LOG_EXCEPTION' );
4889: END IF;
4890: --
4891: End;
4892: --
4892: --
4893: -- Debug Statements
4894: --
4895: IF l_debug_on THEN
4896: WSH_DEBUG_SV.logmsg(l_module_name, L_EXCEPTION_ERROR_MESSAGE );
4897: END IF;
4898: --
4899:
4900: END IF; -- End of check whether line belongs to Ship Set / SMC
4903: --
4904: -- Debug Statements
4905: --
4906: IF l_debug_on THEN
4907: WSH_DEBUG_SV.logmsg(l_module_name, 'L_REQUEST_ID = -1 , NOT LOGGING EXCEPTION FOR BACKORDERING' );
4908: END IF;
4909: --
4910: END IF;
4911: -- BUG#:1549665 hwahdani end of changes
4927: --
4928: -- Debug Statements
4929: --
4930: IF l_debug_on THEN
4931: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT. Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
4932: END IF;
4933: --
4934: WSH_SHIPPING_PARAMS_PVT. Get_Global_Parameters(l_global_param_rec_type,l_return_status);
4935: --
4933: --
4934: WSH_SHIPPING_PARAMS_PVT. Get_Global_Parameters(l_global_param_rec_type,l_return_status);
4935: --
4936: IF l_debug_on THEN
4937: WSH_DEBUG_SV.logmsg(l_module_name, 'After calling Get_Global_Parameters: ' || l_return_status );
4938: END IF;
4939: --
4940: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4941: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4950: --
4951: -- Debug Statements
4952: --
4953: IF l_debug_on THEN
4954: WSH_DEBUG_SV.log(l_module_name, 'WSH_DELIVERY_DETAILS_ACTIONS.CONSOLIDATE_SOURCE_LINE being called with Del Det Id: ',p_Changed_attributes(l_counter).delivery_detail_id);
4955: END IF;
4956: --
4957: l_Cons_Source_Line_Rec_Tab(1).delivery_detail_id:= old_Delivery_detail_rec.delivery_detail_id ;
4958: l_Cons_Source_Line_Rec_Tab(1).delivery_id:= null;
4969: x_consolidate_ids => l_cons_dd_ids,
4970: x_return_status => l_return_status);
4971:
4972: IF l_debug_on THEN
4973: WSH_DEBUG_SV.log(l_module_name,'After calling CONSOLIDATE_SOURCE_LINE: ',l_return_status);
4974: END IF;
4975: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
4976: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4977: END IF;
4979:
4980: IF ( l_cons_dd_ids(1) <> p_Changed_attributes(l_counter).delivery_detail_id ) THEN
4981: l_cons_flag := 'Y';
4982: IF l_debug_on THEN
4983: WSH_DEBUG_SV.log(l_module_name,'Consolidated partial Qty for the Del Det Id: ',old_Delivery_detail_rec.delivery_detail_id);
4984: END IF;
4985:
4986: l_dummy_detail_id := 0;
4987: ELSE
4985:
4986: l_dummy_detail_id := 0;
4987: ELSE
4988: IF l_debug_on THEN
4989: WSH_DEBUG_SV.log(l_module_name,'Consolidation not happened for the the Del Det Id: ',old_Delivery_detail_rec.delivery_detail_id);
4990: END IF;
4991: END IF;
4992: END IF; --}, l_auto_consolidate
4993:
4994: -- If no consolidation for the partail quantity then Split the line
4995: IF ( l_cons_flag = 'N' ) THEN
4996: --{
4997: IF l_debug_on THEN
4998: WSH_DEBUG_SV.logmsg(l_module_name, 'SPLIT_DELIVERY_DETAILS BEING CALLED WITH ' || TO_CHAR ( L_SPLIT_QUANTITY ) );
4999: END IF;
5000: --
5001: WSH_DELIVERY_DETAILS_ACTIONS.Split_Delivery_Details(
5002: p_from_detail_id => p_Changed_attributes(l_counter).delivery_detail_id,
5005: x_return_status => l_return_status,
5006: p_req_quantity2 => l_split_quantity2,
5007: p_manual_split => p_changed_attributes(l_counter).action_flag);
5008: IF l_debug_on THEN
5009: WSH_DEBUG_SV.log(l_module_name,'Split_Delivery_Details l_return_status',l_return_status);
5010: END IF;
5011:
5012: -- Bug 3724578 : Return back to the caller if any error occures while
5013: -- splitting the delivery detail line
5029: -- If it is complete back order case then try to consolidate it
5030: IF ( l_auto_consolidate = 'Y' AND l_dummy_detail_id = p_Changed_attributes(l_counter).delivery_detail_id) THEN
5031: --{
5032: IF l_debug_on THEN
5033: WSH_DEBUG_SV.log(l_module_name, 'WSH_DELIVERY_DETAILS_ACTIONS.CONSOLIDATE_SOURCE_LINE being called with Del Det Id: ',old_Delivery_detail_rec.delivery_detail_id);
5034: END IF;
5035: l_Cons_Source_Line_Rec_Tab(1).delivery_detail_id:= old_Delivery_detail_rec.delivery_detail_id ;
5036: l_Cons_Source_Line_Rec_Tab(1).delivery_id:= null;
5037: l_Cons_Source_Line_Rec_Tab(1).source_line_id:= old_Delivery_detail_rec.source_line_id;
5047: x_consolidate_ids => l_cons_dd_ids,
5048: x_return_status => l_return_status);
5049:
5050: IF l_debug_on THEN
5051: WSH_DEBUG_SV.log(l_module_name,'After calling CONSOLIDATE_SOURCE_LINE: ',l_return_status);
5052: END IF;
5053:
5054: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5055: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
5057:
5058: IF ( l_cons_dd_ids(1) <> p_Changed_attributes(l_counter).delivery_detail_id ) THEN
5059: l_cons_flag := 'Y';
5060: IF l_debug_on THEN
5061: WSH_DEBUG_SV.log(l_module_name,'Consolidated the Del Det Id: ',old_Delivery_detail_rec.delivery_detail_id);
5062: END IF;
5063: ELSE
5064: IF l_debug_on THEN
5065: WSH_DEBUG_SV.log(l_module_name,'Consolidation not happened for the the Del Det Id: ',old_Delivery_detail_rec.delivery_detail_id);
5061: WSH_DEBUG_SV.log(l_module_name,'Consolidated the Del Det Id: ',old_Delivery_detail_rec.delivery_detail_id);
5062: END IF;
5063: ELSE
5064: IF l_debug_on THEN
5065: WSH_DEBUG_SV.log(l_module_name,'Consolidation not happened for the the Del Det Id: ',old_Delivery_detail_rec.delivery_detail_id);
5066: END IF;
5067: END IF;
5068:
5069: END IF; --}, End of consolidation for the complete back order case
5083: -- Debug Statements
5084: --
5085:
5086: IF l_debug_on THEN
5087: WSH_DEBUG_SV.log(l_module_name,'Calling program unit WSH_USA_INV_PVT. BACKORDERED_DELIVERY_DETAIL' ,WSH_DEBUG_SV.C_PROC_LEVEL);
5088: END IF;
5089: --
5090: --
5091: backorder_delivery_detail(
5149: --
5150: -- Debug Statements
5151: --
5152: IF l_debug_on THEN
5153: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE TRANSFER LPN ID' );
5154: END IF;
5155: --
5156:
5157: IF ( l_reject_update = 'Y' ) THEN
5158: --
5159: -- Debug Statements
5160: --
5161: IF l_debug_on THEN
5162: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE REJECTED' );
5163: END IF;
5164: --
5165: FND_MESSAGE.Set_Name('WSH', 'WSH_REJECT_UPDATE_REQUEST');
5166: FND_MESSAGE.Set_Token('SHIP_STATUS', l_ship_status);
5194: p_inventory_item_id => old_delivery_detail_rec.inventory_item_id,
5195: p_error_message => l_exception_error_message
5196: );
5197: IF l_debug_on THEN
5198: WSH_DEBUG_SV.log(l_module_name,'log_exception l_exception_return_status',l_exception_return_status);
5199: END IF;
5200: IF (l_exception_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5201: --
5202: -- Debug Statements
5201: --
5202: -- Debug Statements
5203: --
5204: IF l_debug_on THEN
5205: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_XC_UTIL.LOG_EXCEPTION PROCEDURE FAILED TO LOG EXCEPTION' );
5206: WSH_DEBUG_SV.logmsg(l_module_name, L_EXCEPTION_ERROR_MESSAGE );
5207: END IF;
5208: END IF;
5209:
5202: -- Debug Statements
5203: --
5204: IF l_debug_on THEN
5205: WSH_DEBUG_SV.logmsg(l_module_name, 'WSH_XC_UTIL.LOG_EXCEPTION PROCEDURE FAILED TO LOG EXCEPTION' );
5206: WSH_DEBUG_SV.logmsg(l_module_name, L_EXCEPTION_ERROR_MESSAGE );
5207: END IF;
5208: END IF;
5209:
5210:
5214: --
5215: -- Debug Statements
5216: --
5217: IF l_debug_on THEN
5218: WSH_DEBUG_SV.logmsg(l_module_name, 'FETCHING LPN DETAILS' );
5219: END IF;
5220: --
5221:
5222: -- K LPN CONV. rvishnuv
5249: --
5250: -- Debug Statements
5251: --
5252: IF l_debug_on THEN
5253: WSH_DEBUG_SV.logmsg(l_module_name, TO_CHAR ( L_NUM_CONTAINERS ) || ' CONTAINER DELIVERY DETAILS FETCHED' );
5254: END IF;
5255: --
5256:
5257: IF ( l_num_containers = 0 ) then--{
5258: --
5259: -- Debug Statements
5260: --
5261: IF l_debug_on THEN
5262: WSH_DEBUG_SV.logmsg(l_module_name, 'CREATING CONTAINER WITH LPN ' );
5263: END IF;
5264: --
5265: -- Create container as it does not exist.
5266: -- K LPN CONV. rvishnuv
5288: --
5289: -- Debug Statements
5290: --
5291: IF l_debug_on THEN
5292: WSH_DEBUG_SV.logmsg(l_module_name, 'NO CONTAINERS WERE CREATED THROUGH CREATE_CONT_INSTANCE_MULTI' );
5293: WSH_DEBUG_SV.pop(l_module_name);
5294: END IF;
5295: --
5296: RETURN;
5289: -- Debug Statements
5290: --
5291: IF l_debug_on THEN
5292: WSH_DEBUG_SV.logmsg(l_module_name, 'NO CONTAINERS WERE CREATED THROUGH CREATE_CONT_INSTANCE_MULTI' );
5293: WSH_DEBUG_SV.pop(l_module_name);
5294: END IF;
5295: --
5296: RETURN;
5297: --
5299:
5300: l_cont_instance_id := l_cont_tab(1);
5301:
5302: IF l_debug_on THEN
5303: WSH_DEBUG_SV.log(l_module_name,'Create_Cont_Instance_Multi l_return_status',l_return_status);
5304: END IF;
5305:
5306: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,
5307: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5306: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,
5307: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5308: x_return_status := l_return_status;
5309: IF l_debug_on THEN
5310: WSH_DEBUG_SV.pop(l_module_name);
5311: END IF;
5312: RETURN; -- bug 3703648: should return immediately to avoid spurious messages created by subsequent calls
5313: END IF ;
5314: -- K LPN CONV. rvishnuv
5318: --
5319: -- Debug Statements
5320: --
5321: IF l_debug_on THEN
5322: WSH_DEBUG_SV.logmsg(l_module_name, 'FETCHING DELIVERY DETAIL OF CONTAINER WITH LPN' );
5323: END IF;
5324: --
5325: -- Bug 4093619(FP-4145867): Modified following query to fetch delivery grouping
5326: -- attributes of container record
5348: AND released_status = 'X'
5349: AND nvl(line_direction , 'O') IN ('O', 'IO'); -- J-IB-JCKWOK
5350:
5351: IF l_debug_on THEN
5352: WSH_DEBUG_SV.log(l_module_name, 'l_cont_instance_id', l_cont_instance_id);
5353: WSH_DEBUG_SV.log(l_module_name, 'l_customer_id', l_customer_id);
5354: WSH_DEBUG_SV.log(l_module_name, 'l_ship_to_location_id', l_ship_to_location_id);
5355: WSH_DEBUG_SV.log(l_module_name, 'l_intmed_ship_to_location_id', l_intmed_ship_to_location_id);
5356: WSH_DEBUG_SV.log(l_module_name, 'l_deliver_to_location_id', l_deliver_to_location_id);
5349: AND nvl(line_direction , 'O') IN ('O', 'IO'); -- J-IB-JCKWOK
5350:
5351: IF l_debug_on THEN
5352: WSH_DEBUG_SV.log(l_module_name, 'l_cont_instance_id', l_cont_instance_id);
5353: WSH_DEBUG_SV.log(l_module_name, 'l_customer_id', l_customer_id);
5354: WSH_DEBUG_SV.log(l_module_name, 'l_ship_to_location_id', l_ship_to_location_id);
5355: WSH_DEBUG_SV.log(l_module_name, 'l_intmed_ship_to_location_id', l_intmed_ship_to_location_id);
5356: WSH_DEBUG_SV.log(l_module_name, 'l_deliver_to_location_id', l_deliver_to_location_id);
5357: WSH_DEBUG_SV.log(l_module_name, 'l_fob_code', l_fob_code);
5350:
5351: IF l_debug_on THEN
5352: WSH_DEBUG_SV.log(l_module_name, 'l_cont_instance_id', l_cont_instance_id);
5353: WSH_DEBUG_SV.log(l_module_name, 'l_customer_id', l_customer_id);
5354: WSH_DEBUG_SV.log(l_module_name, 'l_ship_to_location_id', l_ship_to_location_id);
5355: WSH_DEBUG_SV.log(l_module_name, 'l_intmed_ship_to_location_id', l_intmed_ship_to_location_id);
5356: WSH_DEBUG_SV.log(l_module_name, 'l_deliver_to_location_id', l_deliver_to_location_id);
5357: WSH_DEBUG_SV.log(l_module_name, 'l_fob_code', l_fob_code);
5358: WSH_DEBUG_SV.log(l_module_name, 'l_freight_terms_code', l_freight_terms_code);
5351: IF l_debug_on THEN
5352: WSH_DEBUG_SV.log(l_module_name, 'l_cont_instance_id', l_cont_instance_id);
5353: WSH_DEBUG_SV.log(l_module_name, 'l_customer_id', l_customer_id);
5354: WSH_DEBUG_SV.log(l_module_name, 'l_ship_to_location_id', l_ship_to_location_id);
5355: WSH_DEBUG_SV.log(l_module_name, 'l_intmed_ship_to_location_id', l_intmed_ship_to_location_id);
5356: WSH_DEBUG_SV.log(l_module_name, 'l_deliver_to_location_id', l_deliver_to_location_id);
5357: WSH_DEBUG_SV.log(l_module_name, 'l_fob_code', l_fob_code);
5358: WSH_DEBUG_SV.log(l_module_name, 'l_freight_terms_code', l_freight_terms_code);
5359: WSH_DEBUG_SV.log(l_module_name, 'l_ship_method_code', l_ship_method_code);
5352: WSH_DEBUG_SV.log(l_module_name, 'l_cont_instance_id', l_cont_instance_id);
5353: WSH_DEBUG_SV.log(l_module_name, 'l_customer_id', l_customer_id);
5354: WSH_DEBUG_SV.log(l_module_name, 'l_ship_to_location_id', l_ship_to_location_id);
5355: WSH_DEBUG_SV.log(l_module_name, 'l_intmed_ship_to_location_id', l_intmed_ship_to_location_id);
5356: WSH_DEBUG_SV.log(l_module_name, 'l_deliver_to_location_id', l_deliver_to_location_id);
5357: WSH_DEBUG_SV.log(l_module_name, 'l_fob_code', l_fob_code);
5358: WSH_DEBUG_SV.log(l_module_name, 'l_freight_terms_code', l_freight_terms_code);
5359: WSH_DEBUG_SV.log(l_module_name, 'l_ship_method_code', l_ship_method_code);
5360: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
5353: WSH_DEBUG_SV.log(l_module_name, 'l_customer_id', l_customer_id);
5354: WSH_DEBUG_SV.log(l_module_name, 'l_ship_to_location_id', l_ship_to_location_id);
5355: WSH_DEBUG_SV.log(l_module_name, 'l_intmed_ship_to_location_id', l_intmed_ship_to_location_id);
5356: WSH_DEBUG_SV.log(l_module_name, 'l_deliver_to_location_id', l_deliver_to_location_id);
5357: WSH_DEBUG_SV.log(l_module_name, 'l_fob_code', l_fob_code);
5358: WSH_DEBUG_SV.log(l_module_name, 'l_freight_terms_code', l_freight_terms_code);
5359: WSH_DEBUG_SV.log(l_module_name, 'l_ship_method_code', l_ship_method_code);
5360: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
5361: WSH_DEBUG_SV.log(l_module_name, 'l_ignore_for_planning', l_ignore_for_planning);
5354: WSH_DEBUG_SV.log(l_module_name, 'l_ship_to_location_id', l_ship_to_location_id);
5355: WSH_DEBUG_SV.log(l_module_name, 'l_intmed_ship_to_location_id', l_intmed_ship_to_location_id);
5356: WSH_DEBUG_SV.log(l_module_name, 'l_deliver_to_location_id', l_deliver_to_location_id);
5357: WSH_DEBUG_SV.log(l_module_name, 'l_fob_code', l_fob_code);
5358: WSH_DEBUG_SV.log(l_module_name, 'l_freight_terms_code', l_freight_terms_code);
5359: WSH_DEBUG_SV.log(l_module_name, 'l_ship_method_code', l_ship_method_code);
5360: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
5361: WSH_DEBUG_SV.log(l_module_name, 'l_ignore_for_planning', l_ignore_for_planning);
5362: WSH_DEBUG_SV.log(l_module_name, 'l_shipping_control', l_shipping_control);
5355: WSH_DEBUG_SV.log(l_module_name, 'l_intmed_ship_to_location_id', l_intmed_ship_to_location_id);
5356: WSH_DEBUG_SV.log(l_module_name, 'l_deliver_to_location_id', l_deliver_to_location_id);
5357: WSH_DEBUG_SV.log(l_module_name, 'l_fob_code', l_fob_code);
5358: WSH_DEBUG_SV.log(l_module_name, 'l_freight_terms_code', l_freight_terms_code);
5359: WSH_DEBUG_SV.log(l_module_name, 'l_ship_method_code', l_ship_method_code);
5360: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
5361: WSH_DEBUG_SV.log(l_module_name, 'l_ignore_for_planning', l_ignore_for_planning);
5362: WSH_DEBUG_SV.log(l_module_name, 'l_shipping_control', l_shipping_control);
5363: WSH_DEBUG_SV.log(l_module_name, 'l_carrier_id', l_carrier_id);
5356: WSH_DEBUG_SV.log(l_module_name, 'l_deliver_to_location_id', l_deliver_to_location_id);
5357: WSH_DEBUG_SV.log(l_module_name, 'l_fob_code', l_fob_code);
5358: WSH_DEBUG_SV.log(l_module_name, 'l_freight_terms_code', l_freight_terms_code);
5359: WSH_DEBUG_SV.log(l_module_name, 'l_ship_method_code', l_ship_method_code);
5360: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
5361: WSH_DEBUG_SV.log(l_module_name, 'l_ignore_for_planning', l_ignore_for_planning);
5362: WSH_DEBUG_SV.log(l_module_name, 'l_shipping_control', l_shipping_control);
5363: WSH_DEBUG_SV.log(l_module_name, 'l_carrier_id', l_carrier_id);
5364: WSH_DEBUG_SV.log(l_module_name, 'l_service_level', l_service_level);
5357: WSH_DEBUG_SV.log(l_module_name, 'l_fob_code', l_fob_code);
5358: WSH_DEBUG_SV.log(l_module_name, 'l_freight_terms_code', l_freight_terms_code);
5359: WSH_DEBUG_SV.log(l_module_name, 'l_ship_method_code', l_ship_method_code);
5360: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
5361: WSH_DEBUG_SV.log(l_module_name, 'l_ignore_for_planning', l_ignore_for_planning);
5362: WSH_DEBUG_SV.log(l_module_name, 'l_shipping_control', l_shipping_control);
5363: WSH_DEBUG_SV.log(l_module_name, 'l_carrier_id', l_carrier_id);
5364: WSH_DEBUG_SV.log(l_module_name, 'l_service_level', l_service_level);
5365: WSH_DEBUG_SV.log(l_module_name, 'l_mode_of_transport', l_mode_of_transport);
5358: WSH_DEBUG_SV.log(l_module_name, 'l_freight_terms_code', l_freight_terms_code);
5359: WSH_DEBUG_SV.log(l_module_name, 'l_ship_method_code', l_ship_method_code);
5360: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
5361: WSH_DEBUG_SV.log(l_module_name, 'l_ignore_for_planning', l_ignore_for_planning);
5362: WSH_DEBUG_SV.log(l_module_name, 'l_shipping_control', l_shipping_control);
5363: WSH_DEBUG_SV.log(l_module_name, 'l_carrier_id', l_carrier_id);
5364: WSH_DEBUG_SV.log(l_module_name, 'l_service_level', l_service_level);
5365: WSH_DEBUG_SV.log(l_module_name, 'l_mode_of_transport', l_mode_of_transport);
5366: END IF;
5359: WSH_DEBUG_SV.log(l_module_name, 'l_ship_method_code', l_ship_method_code);
5360: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
5361: WSH_DEBUG_SV.log(l_module_name, 'l_ignore_for_planning', l_ignore_for_planning);
5362: WSH_DEBUG_SV.log(l_module_name, 'l_shipping_control', l_shipping_control);
5363: WSH_DEBUG_SV.log(l_module_name, 'l_carrier_id', l_carrier_id);
5364: WSH_DEBUG_SV.log(l_module_name, 'l_service_level', l_service_level);
5365: WSH_DEBUG_SV.log(l_module_name, 'l_mode_of_transport', l_mode_of_transport);
5366: END IF;
5367: -- End of Bug 4093619(FP-4145867)
5360: WSH_DEBUG_SV.log(l_module_name, 'l_line_direction', l_line_direction);
5361: WSH_DEBUG_SV.log(l_module_name, 'l_ignore_for_planning', l_ignore_for_planning);
5362: WSH_DEBUG_SV.log(l_module_name, 'l_shipping_control', l_shipping_control);
5363: WSH_DEBUG_SV.log(l_module_name, 'l_carrier_id', l_carrier_id);
5364: WSH_DEBUG_SV.log(l_module_name, 'l_service_level', l_service_level);
5365: WSH_DEBUG_SV.log(l_module_name, 'l_mode_of_transport', l_mode_of_transport);
5366: END IF;
5367: -- End of Bug 4093619(FP-4145867)
5368:
5361: WSH_DEBUG_SV.log(l_module_name, 'l_ignore_for_planning', l_ignore_for_planning);
5362: WSH_DEBUG_SV.log(l_module_name, 'l_shipping_control', l_shipping_control);
5363: WSH_DEBUG_SV.log(l_module_name, 'l_carrier_id', l_carrier_id);
5364: WSH_DEBUG_SV.log(l_module_name, 'l_service_level', l_service_level);
5365: WSH_DEBUG_SV.log(l_module_name, 'l_mode_of_transport', l_mode_of_transport);
5366: END IF;
5367: -- End of Bug 4093619(FP-4145867)
5368:
5369: END IF ;--}
5378: p_changed_attributes(l_Counter).delivery_detail_id,
5379: l_cont_instance_id,
5380: l_return_status);
5381: IF l_debug_on THEN
5382: WSH_DEBUG_SV.log(l_module_name,'Assign_Detail_To_Cont l_return_status',l_return_status);
5383:
5384: END IF;
5385: --
5386: -- LPN CONV rv
5388: IF (nvl(l_num_containers,0) > 0 ) THEN
5389: --{
5390:
5391: IF l_debug_on THEN
5392: WSH_DEBUG_SV.logmsg(l_module_name,'Updating the master serial number of the container onto the line');
5393: END IF;
5394:
5395: UPDATE WSH_DELIVERY_DETAILS
5396: SET master_serial_number = (select master_serial_number
5412: RETURN;
5413: END IF ;
5414:
5415: IF l_debug_on THEN
5416: WSH_DEBUG_SV.logmsg(l_module_name, 'calling Calculate TP Dates for entity LPN' );
5417: END IF;
5418: --Modified Entity_Type and Entity_ids for bug 5234326
5419: l_cont_tab(1) := l_cont_instance_id;
5420: WSH_TP_RELEASE.calculate_cont_del_tpdates(
5422: p_entity_ids => l_cnt_tab,
5423: x_return_status => l_return_status);
5424:
5425: IF l_debug_on THEN
5426: WSH_DEBUG_SV.log(l_module_name,'calculate_cont_del_tpdates l_return_status',l_return_status);
5427: END IF;
5428:
5429: IF (l_return_status NOT IN (WSH_UTIL_CORE.G_RET_STS_SUCCESS,
5430: WSH_UTIL_CORE.G_RET_STS_WARNING)) THEN
5453: -- code fix per WMS issue where grouping attributes were not updated for a reused container.
5454: -- IF (l_num_containers = 0) THEN
5455: --
5456: IF l_debug_on THEN
5457: WSH_DEBUG_SV.logmsg(l_module_name, 'Calling Update_Cont_Hierarchy as Grouping attributes do not match');
5458: END IF;
5459: WSH_CONTAINER_ACTIONS.Update_Cont_Hierarchy (
5460: p_changed_attributes(l_Counter).delivery_detail_id,
5461: NULL,
5461: NULL,
5462: l_cont_instance_id,
5463: l_return_status);
5464: IF l_debug_on THEN
5465: WSH_DEBUG_SV.log(l_module_name,'Update_Cont_Hierarchy l_return_status',l_return_status);
5466: END IF;
5467:
5468: IF l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5469: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_UPD_ATTR_ERROR');
5486: --
5487: -- Debug Statements
5488: --
5489: IF l_debug_on THEN
5490: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE INVENTORY' );
5491: END IF;
5492: --
5493: IF ( l_reject_update = 'Y' ) THEN
5494: FND_MESSAGE.Set_Name('WSH', 'WSH_REJECT_UPDATE_REQUEST');
5512: --
5513: -- Debug Statements
5514: --
5515: IF l_debug_on THEN
5516: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE LOCATOR' );
5517: END IF;
5518: --
5519: IF (l_reject_update = 'Y') THEN
5520: -- At least one line is shipped, reject user's request
5538: --
5539: -- Debug Statements
5540: --
5541: IF l_debug_on THEN
5542: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE REVISION' );
5543: END IF;
5544: --
5545: IF (l_reject_update = 'Y') THEN
5546: -- At least one line is shipped, reject user's request
5574: --
5575: -- Debug Statements
5576: --
5577: IF l_debug_on THEN
5578: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE LOT NUMBER' );
5579: END IF;
5580: --
5581: IF (l_reject_update = 'Y') THEN
5582: -- At least one line is shipped, reject user's request
5603: --
5604: -- Debug Statements
5605: --
5606: IF l_debug_on THEN
5607: WSH_DEBUG_SV.logmsg(l_module_name, 'PREFERRED GRADE' );
5608: END IF;
5609: --
5610: IF (l_reject_update = 'Y') THEN
5611: -- At least one line is shipped, reject user's request
5631: --
5632: -- Debug Statements
5633: --
5634: IF l_debug_on THEN
5635: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE TRANSACTION TEMP ID with transaction_temp_id :'||
5636: l_transaction_temp_id ||
5637: ', picked_quantity :'||
5638: p_changed_attributes(l_Counter).picked_quantity );
5639: END IF;
5656: --
5657: -- Debug Statements
5658: --
5659: IF l_debug_on THEN
5660: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE SERIAL NUMBER' );
5661: END IF;
5662: --
5663: IF (l_reject_update = 'Y') THEN
5664: -- At least one line is shipped, reject user's request
5682: --
5683: -- Debug Statements
5684: --
5685: IF l_debug_on THEN
5686: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE RELEASED STATUS ' );
5687: END IF;
5688: --
5689: IF (l_reject_update = 'Y') THEN
5690: -- At least one line is shipped, reject user's request
5770: x_avail_req_quantity => l_avail_quantity,
5771: x_avail_req_quantity2 => l_avail_quantity2,
5772: x_return_status => l_rs);
5773: IF l_debug_on THEN
5774: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_rs',l_rs);
5775: --Bug 7131800
5776: WSH_DEBUG_SV.log(l_module_name,'l_detail_info.req.qty ', l_detail_info.requested_quantity);
5777: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_avail_qty ', l_avail_quantity);
5778: WSH_DEBUG_SV.log(l_module_name,'chgd.attr picked.qty ', p_changed_attributes(l_counter).picked_quantity);
5772: x_return_status => l_rs);
5773: IF l_debug_on THEN
5774: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_rs',l_rs);
5775: --Bug 7131800
5776: WSH_DEBUG_SV.log(l_module_name,'l_detail_info.req.qty ', l_detail_info.requested_quantity);
5777: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_avail_qty ', l_avail_quantity);
5778: WSH_DEBUG_SV.log(l_module_name,'chgd.attr picked.qty ', p_changed_attributes(l_counter).picked_quantity);
5779: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_max_qty ', l_max_quantity);
5780: --Bug 7131800
5773: IF l_debug_on THEN
5774: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_rs',l_rs);
5775: --Bug 7131800
5776: WSH_DEBUG_SV.log(l_module_name,'l_detail_info.req.qty ', l_detail_info.requested_quantity);
5777: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_avail_qty ', l_avail_quantity);
5778: WSH_DEBUG_SV.log(l_module_name,'chgd.attr picked.qty ', p_changed_attributes(l_counter).picked_quantity);
5779: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_max_qty ', l_max_quantity);
5780: --Bug 7131800
5781: END IF;
5774: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_rs',l_rs);
5775: --Bug 7131800
5776: WSH_DEBUG_SV.log(l_module_name,'l_detail_info.req.qty ', l_detail_info.requested_quantity);
5777: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_avail_qty ', l_avail_quantity);
5778: WSH_DEBUG_SV.log(l_module_name,'chgd.attr picked.qty ', p_changed_attributes(l_counter).picked_quantity);
5779: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_max_qty ', l_max_quantity);
5780: --Bug 7131800
5781: END IF;
5782:
5775: --Bug 7131800
5776: WSH_DEBUG_SV.log(l_module_name,'l_detail_info.req.qty ', l_detail_info.requested_quantity);
5777: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_avail_qty ', l_avail_quantity);
5778: WSH_DEBUG_SV.log(l_module_name,'chgd.attr picked.qty ', p_changed_attributes(l_counter).picked_quantity);
5779: WSH_DEBUG_SV.log(l_module_name,'check_quantity_to_pick l_max_qty ', l_max_quantity);
5780: --Bug 7131800
5781: END IF;
5782:
5783: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5782:
5783: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5784: --Bug 7131800
5785: IF l_debug_on THEN
5786: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',
5787: WSH_DEBUG_SV.C_PROC_LEVEL);
5788: END IF;
5789: wsh_shipping_params_pvt.get(
5790: p_organization_id => l_detail_info.organization_id,
5783: IF l_rs = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5784: --Bug 7131800
5785: IF l_debug_on THEN
5786: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.GET',
5787: WSH_DEBUG_SV.C_PROC_LEVEL);
5788: END IF;
5789: wsh_shipping_params_pvt.get(
5790: p_organization_id => l_detail_info.organization_id,
5791: x_param_info => l_ship_params,
5791: x_param_info => l_ship_params,
5792: x_return_status => l_ret_status);
5793:
5794: IF l_debug_on THEN
5795: WSH_DEBUG_SV.log(l_module_name,'wsh_shipping_params_pvt.get l_ret_status',l_ret_status);
5796: WSH_DEBUG_SV.log(l_module_name,'l_ship_params.retain_nonstaged_det_flag',l_ship_params.retain_nonstaged_det_flag);
5797: END IF;
5798:
5799: -- bug 7131800
5792: x_return_status => l_ret_status);
5793:
5794: IF l_debug_on THEN
5795: WSH_DEBUG_SV.log(l_module_name,'wsh_shipping_params_pvt.get l_ret_status',l_ret_status);
5796: WSH_DEBUG_SV.log(l_module_name,'l_ship_params.retain_nonstaged_det_flag',l_ship_params.retain_nonstaged_det_flag);
5797: END IF;
5798:
5799: -- bug 7131800
5800: IF NOT INV_GMI_RSV_BRANCH.Process_Branch(p_organization_id => l_detail_info.organization_id) THEN
5803: l_process_flag := FND_API.G_TRUE;
5804: END IF;
5805:
5806: IF l_debug_on THEN
5807: WSH_DEBUG_SV.log(l_module_name,'l_process_flag',l_process_flag);
5808: END IF;
5809:
5810:
5811: IF l_ret_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS THEN
5832:
5833: END IF;
5834: --Bug 7131800
5835: IF l_debug_on THEN
5836: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty ', l_new_req_quantity);
5837: END IF;
5838: --Bug 7131800
5839:
5840: -- HW OPM added condition OR
5887: --
5888: -- Debug Statements
5889: --
5890: IF l_debug_on THEN
5891: WSH_DEBUG_SV.logmsg(l_module_name, ' l_update_transaction_temp_id '||l_update_transaction_temp_id||
5892: ' l_update_serial_number '||l_update_serial_number||
5893: ' p_changed_attributes(l_counter).picked_quantity '||p_changed_attributes(l_counter).picked_quantity||
5894: ' l_new_req_quantity '||l_new_req_quantity||
5895: ' old_delivery_detail_rec.requested_quantity '||old_delivery_detail_rec.requested_quantity );
5931: --
5932: -- Debug Statements
5933: --
5934: IF l_debug_on THEN
5935: WSH_DEBUG_SV.logmsg(l_module_name, 'UPDATE WSH_DELIVERY_DETAILS' );
5936: END IF;
5937: --
5938:
5939: -- bug 2120494
5963: --
5964: -- Debug Statements
5965: --
5966: IF l_debug_on THEN
5967: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT. Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
5968: END IF;
5969: --
5970: WSH_SHIPPING_PARAMS_PVT. Get_Global_Parameters(l_global_param_rec_type,l_return_status);
5971: --
5969: --
5970: WSH_SHIPPING_PARAMS_PVT. Get_Global_Parameters(l_global_param_rec_type,l_return_status);
5971: --
5972: IF l_debug_on THEN
5973: WSH_DEBUG_SV.logmsg(l_module_name, 'After calling Get_Global_Parameters: ' || l_return_status );
5974: END IF;
5975: --
5976: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
5977: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6014: --
6015: -- Debug Statements
6016: --
6017: IF l_debug_on THEN
6018: WSH_DEBUG_SV.log(l_module_name, 'CONSOLIDATE_SOURCE_LINE BEING CALLED WITH FOLLOWING PARAMETERS');
6019: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',old_Delivery_detail_rec.delivery_detail_id);
6020: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',old_Delivery_detail_rec.requested_quantity);
6021: WSH_DEBUG_SV.log(l_module_name,'Back Order Qty:',old_Delivery_detail_rec.requested_quantity - l_split_quantity);
6022: -- HW OPM BUG#:3121616 added qty2s
6015: -- Debug Statements
6016: --
6017: IF l_debug_on THEN
6018: WSH_DEBUG_SV.log(l_module_name, 'CONSOLIDATE_SOURCE_LINE BEING CALLED WITH FOLLOWING PARAMETERS');
6019: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',old_Delivery_detail_rec.delivery_detail_id);
6020: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',old_Delivery_detail_rec.requested_quantity);
6021: WSH_DEBUG_SV.log(l_module_name,'Back Order Qty:',old_Delivery_detail_rec.requested_quantity - l_split_quantity);
6022: -- HW OPM BUG#:3121616 added qty2s
6023: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',old_Delivery_detail_rec.requested_quantity2);
6016: --
6017: IF l_debug_on THEN
6018: WSH_DEBUG_SV.log(l_module_name, 'CONSOLIDATE_SOURCE_LINE BEING CALLED WITH FOLLOWING PARAMETERS');
6019: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',old_Delivery_detail_rec.delivery_detail_id);
6020: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',old_Delivery_detail_rec.requested_quantity);
6021: WSH_DEBUG_SV.log(l_module_name,'Back Order Qty:',old_Delivery_detail_rec.requested_quantity - l_split_quantity);
6022: -- HW OPM BUG#:3121616 added qty2s
6023: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',old_Delivery_detail_rec.requested_quantity2);
6024: WSH_DEBUG_SV.log(l_module_name,'Back Order Qty2:',l_Cons_Source_Line_Rec_Tab(1).bo_qty2);
6017: IF l_debug_on THEN
6018: WSH_DEBUG_SV.log(l_module_name, 'CONSOLIDATE_SOURCE_LINE BEING CALLED WITH FOLLOWING PARAMETERS');
6019: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',old_Delivery_detail_rec.delivery_detail_id);
6020: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',old_Delivery_detail_rec.requested_quantity);
6021: WSH_DEBUG_SV.log(l_module_name,'Back Order Qty:',old_Delivery_detail_rec.requested_quantity - l_split_quantity);
6022: -- HW OPM BUG#:3121616 added qty2s
6023: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',old_Delivery_detail_rec.requested_quantity2);
6024: WSH_DEBUG_SV.log(l_module_name,'Back Order Qty2:',l_Cons_Source_Line_Rec_Tab(1).bo_qty2);
6025:
6019: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',old_Delivery_detail_rec.delivery_detail_id);
6020: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',old_Delivery_detail_rec.requested_quantity);
6021: WSH_DEBUG_SV.log(l_module_name,'Back Order Qty:',old_Delivery_detail_rec.requested_quantity - l_split_quantity);
6022: -- HW OPM BUG#:3121616 added qty2s
6023: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',old_Delivery_detail_rec.requested_quantity2);
6024: WSH_DEBUG_SV.log(l_module_name,'Back Order Qty2:',l_Cons_Source_Line_Rec_Tab(1).bo_qty2);
6025:
6026: END IF;
6027: --
6020: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY',old_Delivery_detail_rec.requested_quantity);
6021: WSH_DEBUG_SV.log(l_module_name,'Back Order Qty:',old_Delivery_detail_rec.requested_quantity - l_split_quantity);
6022: -- HW OPM BUG#:3121616 added qty2s
6023: WSH_DEBUG_SV.log(l_module_name,'P_REQUESTED_QUANTITY2',old_Delivery_detail_rec.requested_quantity2);
6024: WSH_DEBUG_SV.log(l_module_name,'Back Order Qty2:',l_Cons_Source_Line_Rec_Tab(1).bo_qty2);
6025:
6026: END IF;
6027: --
6028: WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Source_Line(
6030: x_consolidate_ids => l_cons_dd_ids,
6031: x_return_status => l_return_status);
6032:
6033: IF l_debug_on THEN
6034: WSH_DEBUG_SV.log(l_module_name,'After calling CONSOLIDATE_SOURCE_LINE: ',l_return_status);
6035: END IF;
6036: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6037: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6038: END IF;
6039:
6040: IF ( l_cons_dd_ids(1) <> p_Changed_attributes(l_counter).delivery_detail_id ) THEN
6041: l_cons_flag := 'Y';
6042: IF l_debug_on THEN
6043: WSH_DEBUG_SV.log(l_module_name,'Consolidated the Del Det Id: ',old_Delivery_detail_rec.delivery_detail_id);
6044: END IF;
6045: l_dummy_detail_id := p_Changed_attributes(l_counter).delivery_detail_id;
6046: ELSE
6047: IF l_debug_on THEN
6044: END IF;
6045: l_dummy_detail_id := p_Changed_attributes(l_counter).delivery_detail_id;
6046: ELSE
6047: IF l_debug_on THEN
6048: WSH_DEBUG_SV.log(l_module_name,'Consolidation not happened for the the Del Det Id: ',old_Delivery_detail_rec.delivery_detail_id);
6049: END IF;
6050: END IF;
6051:
6052: END IF; -- End of Consolidation of BO DD's
6061: x_return_status => l_return_status,
6062: p_req_quantity2 => l_split_quantity2,
6063: p_manual_split => p_changed_attributes(l_counter).action_flag);
6064: IF l_debug_on THEN
6065: WSH_DEBUG_SV.log(l_module_name,'Split_Delivery_Details l_return_status',l_return_status);
6066: END IF;
6067:
6068:
6069: -- Bug 3724578 : Return back to the caller if any error occures while
6078: --
6079: -- Debug Statements
6080: --
6081: IF l_debug_on THEN
6082: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_INV_PVT. BACKORDERED_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
6083: END IF;
6084: --
6085: --Bug# 5436033
6086: --do not calculate the qty2 convert from bo_Qty Cause this is like entering a new line
6187: p_event => 'oracle.apps.wsh.line.gen.staged' ,
6188: p_organization_id => l_organization_id,
6189: x_return_status => l_wf_rs ) ;
6190: IF l_debug_on THEN
6191: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
6192: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
6193: END IF;
6194: --Done Raise Event : Pick To Pod Workflow
6195:
6188: p_organization_id => l_organization_id,
6189: x_return_status => l_wf_rs ) ;
6190: IF l_debug_on THEN
6191: WSH_DEBUG_SV.log(l_module_name,'Current Time is ',SYSDATE);
6192: wsh_debug_sv.log(l_module_name,'Return Status After Calling WSH_WF_STD.Raise_Event',l_wf_rs);
6193: END IF;
6194: --Done Raise Event : Pick To Pod Workflow
6195:
6196:
6200: -- Update of wsh_delivery_details where requested_quantity
6201: -- are changed, call DBI API after the update.
6202: -- DBI API checks for DBI Installed also
6203: IF l_debug_on THEN
6204: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail id-',l_dummy_detail_id);
6205: END IF;
6206: l_detail_tab(1) := l_dummy_detail_id;
6207: WSH_INTEGRATION.DBI_Update_Detail_Log
6208: (p_delivery_detail_id_tab => l_detail_tab,
6209: p_dml_type => 'UPDATE',
6210: x_return_status => l_dbi_rs);
6211:
6212: IF l_debug_on THEN
6213: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
6214: END IF;
6215: -- DBI API can only raise unexpected error, in that case need to
6216: -- pass it to the caller API for roll back of the whole transaction
6217: -- Only need to handle Unexpected error, rest are treated as success
6218: -- Since code is not proceeding, no need to reset x_return_status
6219: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
6220: x_return_status := l_dbi_rs;
6221: IF l_debug_on THEN
6222: WSH_DEBUG_SV.pop(l_module_name);
6223: END IF;
6224: RETURN;
6225: END IF;
6226:
6245: l_post_process_flag := 'N';
6246: END IF;
6247: --
6248: IF l_debug_on THEN
6249: WSH_DEBUG_SV.log(l_module_name,'l_post_process_flag',l_post_process_flag);
6250: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
6251: END IF;
6252:
6253: WSH_WV_UTILS.Detail_Weight_Volume
6246: END IF;
6247: --
6248: IF l_debug_on THEN
6249: WSH_DEBUG_SV.log(l_module_name,'l_post_process_flag',l_post_process_flag);
6250: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.Detail_Weight_Volume',WSH_DEBUG_SV.C_PROC_LEVEL);
6251: END IF;
6252:
6253: WSH_WV_UTILS.Detail_Weight_Volume
6254: (p_delivery_detail_id =>l_dummy_detail_id,
6260: x_return_status => l_return_status);
6261: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6262: x_return_status := l_return_status;
6263: IF l_debug_on THEN
6264: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
6265: WSH_DEBUG_SV.pop(l_module_name);
6266: END IF;
6267: return;
6268: END IF;
6261: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
6262: x_return_status := l_return_status;
6263: IF l_debug_on THEN
6264: WSH_DEBUG_SV.pop(l_module_name,'Detail_Weight_Volume returned '||l_return_status);
6265: WSH_DEBUG_SV.pop(l_module_name);
6266: END IF;
6267: return;
6268: END IF;
6269:
6275: --
6276: -- Debug Statements
6277: --
6278: IF l_debug_on THEN
6279: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_USA_QUANTITY_PVT.UPDATE_ORDERED_QUANTITY',WSH_DEBUG_SV.C_PROC_LEVEL);
6280: END IF;
6281: --
6282: -- bug 2942655 / 2936559
6283: -- overpick normalization will avoid canceling
6333: WSH_INTERFACE.Delete_Details(
6334: p_details_id => l_details_to_delete,
6335: x_return_status => l_return_status);
6336: IF l_debug_on THEN
6337: WSH_DEBUG_SV.log(l_module_name,'Delete_Details l_return_status',l_return_status);
6338: END IF;
6339: IF (l_return_status <> WSH_UTIL_CORE.G_RET_STS_SUCCESS) THEN
6340: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
6341: END IF;
6351: p_call_lcss => 'Y',
6352: x_return_status => l_return_status);
6353:
6354: IF l_debug_on THEN
6355: WSH_DEBUG_SV.log(l_module_name,'Adjust_Planned_Flag returns ',l_return_status);
6356: END IF;
6357:
6358: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
6359: raise Adjust_Planned_Flag_Err;
6374: --
6375: -- Debug Statements
6376: --
6377: IF l_debug_on THEN
6378: WSH_DEBUG_SV.logmsg(l_module_name, 'EXITING UPDATE_INVENTORY_INFO PROCEDURE ...' );
6379: END IF;
6380: --
6381:
6382: --
6382: --
6383: -- Debug Statements
6384: --
6385: IF l_debug_on THEN
6386: WSH_DEBUG_SV.pop(l_module_name);
6387: END IF;
6388: --
6389: EXCEPTION
6390: -- inbound logistics --jckwok
6396: WSH_WMS_LPN_GRP.g_callback_required := l_orig_callback_reqd;
6397: -- LPN CONV rv
6398: --
6399: IF l_debug_on THEN
6400: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Delivery_Line_Direction_Err');
6401: END IF;
6402: -- deliveryMerge
6403: WHEN Adjust_Planned_Flag_Err THEN
6404: FND_MESSAGE.SET_NAME('WSH', 'WSH_ADJUST_PLANNED_FLAG_ERR');
6411: WSH_WMS_LPN_GRP.g_callback_required := l_orig_callback_reqd;
6412: -- LPN CONV rv
6413: --
6414: IF l_debug_on THEN
6415: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_Planned_Flag_Err exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6416: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Adjust_Planned_Flag_Err');
6417: END IF;
6418: --
6419:
6412: -- LPN CONV rv
6413: --
6414: IF l_debug_on THEN
6415: WSH_DEBUG_SV.logmsg(l_module_name,'Adjust_Planned_Flag_Err exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
6416: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:Adjust_Planned_Flag_Err');
6417: END IF;
6418: --
6419:
6420: WHEN others THEN
6426: WSH_WMS_LPN_GRP.g_callback_required := l_orig_callback_reqd;
6427: -- LPN CONV rv
6428: --
6429: IF l_debug_on THEN
6430: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6431: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6432: END IF;
6433: --
6434: END Update_Inventory_Info;
6427: -- LPN CONV rv
6428: --
6429: IF l_debug_on THEN
6430: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6431: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6432: END IF;
6433: --
6434: END Update_Inventory_Info;
6435:
6476: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6477: --
6478: IF l_debug_on IS NULL
6479: THEN
6480: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6481: END IF;
6482: --
6483: IF l_debug_on THEN
6484: WSH_DEBUG_SV.push(l_module_name);
6480: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6481: END IF;
6482: --
6483: IF l_debug_on THEN
6484: WSH_DEBUG_SV.push(l_module_name);
6485: WSH_DEBUG_SV.log(l_module_name,'p_mo_line_id',p_mo_line_id);
6486: END IF;
6487:
6488: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6481: END IF;
6482: --
6483: IF l_debug_on THEN
6484: WSH_DEBUG_SV.push(l_module_name);
6485: WSH_DEBUG_SV.log(l_module_name,'p_mo_line_id',p_mo_line_id);
6486: END IF;
6487:
6488: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6489:
6490: OPEN c_detailed_qty(p_mo_line_id);
6491: FETCH c_detailed_qty INTO l_detailed_qty, l_detailed_qty2;
6492: IF c_detailed_qty%NOTFOUND THEN
6493: IF l_debug_on THEN
6494: WSH_DEBUG_SV.logmsg(l_module_name,'l_detailed_qty not found');
6495: raise qty_not_found;
6496: END IF;
6497: END IF;
6498:
6499: CLOSE c_detailed_qty;
6500:
6501:
6502: IF l_debug_on THEN
6503: WSH_DEBUG_SV.log(l_module_name,'l_detailed_qty',l_detailed_qty);
6504: -- HW OPMCONV - Print value of Qty2
6505: WSH_DEBUG_SV.log(l_module_name,'l_detailed_qty2',l_detailed_qty2);
6506: WSH_DEBUG_SV.pop(l_module_name);
6507: END IF;
6501:
6502: IF l_debug_on THEN
6503: WSH_DEBUG_SV.log(l_module_name,'l_detailed_qty',l_detailed_qty);
6504: -- HW OPMCONV - Print value of Qty2
6505: WSH_DEBUG_SV.log(l_module_name,'l_detailed_qty2',l_detailed_qty2);
6506: WSH_DEBUG_SV.pop(l_module_name);
6507: END IF;
6508:
6509: --fp bug 5347149/5253861: return 0, instead of NULL, so that
6502: IF l_debug_on THEN
6503: WSH_DEBUG_SV.log(l_module_name,'l_detailed_qty',l_detailed_qty);
6504: -- HW OPMCONV - Print value of Qty2
6505: WSH_DEBUG_SV.log(l_module_name,'l_detailed_qty2',l_detailed_qty2);
6506: WSH_DEBUG_SV.pop(l_module_name);
6507: END IF;
6508:
6509: --fp bug 5347149/5253861: return 0, instead of NULL, so that
6510: -- the callers can compute the non-null reservation quantity to transfer.
6519: IF c_detailed_qty%ISOPEN THEN
6520: CLOSE c_detailed_qty;
6521: END IF;
6522: IF l_debug_on THEN
6523: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:get_detailed_FAILED');
6524: END IF;
6525:
6526:
6527: WHEN OTHERS THEN
6530: IF c_detailed_qty%ISOPEN THEN
6531: CLOSE c_detailed_qty;
6532: END IF;
6533: IF l_debug_on THEN
6534: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6535: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6536: END IF;
6537: wsh_util_core.default_handler('WSH_USA_INV_PVT.get_detailed_quantity',l_module_name);
6538:
6531: CLOSE c_detailed_qty;
6532: END IF;
6533: IF l_debug_on THEN
6534: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6535: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6536: END IF;
6537: wsh_util_core.default_handler('WSH_USA_INV_PVT.get_detailed_quantity',l_module_name);
6538:
6539: END get_detailed_quantity;
6559:
6560: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6561: --
6562: IF l_debug_on IS NULL THEN
6563: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6564: END IF;
6565: --
6566: IF l_debug_on THEN
6567: WSH_DEBUG_SV.push(l_module_name);
6563: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6564: END IF;
6565: --
6566: IF l_debug_on THEN
6567: WSH_DEBUG_SV.push(l_module_name);
6568: WSH_DEBUG_SV.log(l_module_name,'p_move_order_line_id',p_move_order_line_id);
6569: END IF;
6570:
6571: l_is_putaway := 'N';
6564: END IF;
6565: --
6566: IF l_debug_on THEN
6567: WSH_DEBUG_SV.push(l_module_name);
6568: WSH_DEBUG_SV.log(l_module_name,'p_move_order_line_id',p_move_order_line_id);
6569: END IF;
6570:
6571: l_is_putaway := 'N';
6572:
6577: x_mo_type => l_mo_type,
6578: x_is_putaway_mo => l_is_putaway);
6579:
6580: IF l_debug_on THEN
6581: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6582: WSH_DEBUG_SV.log(l_module_name,'l_mo_header_id',l_mo_header_id);
6583: WSH_DEBUG_SV.log(l_module_name,'l_mo_type',l_mo_type);
6584: WSH_DEBUG_SV.log(l_module_name,'Is Type Putaway',l_is_putaway);
6585: WSH_DEBUG_SV.pop(l_module_name);
6578: x_is_putaway_mo => l_is_putaway);
6579:
6580: IF l_debug_on THEN
6581: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6582: WSH_DEBUG_SV.log(l_module_name,'l_mo_header_id',l_mo_header_id);
6583: WSH_DEBUG_SV.log(l_module_name,'l_mo_type',l_mo_type);
6584: WSH_DEBUG_SV.log(l_module_name,'Is Type Putaway',l_is_putaway);
6585: WSH_DEBUG_SV.pop(l_module_name);
6586: END IF;
6579:
6580: IF l_debug_on THEN
6581: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6582: WSH_DEBUG_SV.log(l_module_name,'l_mo_header_id',l_mo_header_id);
6583: WSH_DEBUG_SV.log(l_module_name,'l_mo_type',l_mo_type);
6584: WSH_DEBUG_SV.log(l_module_name,'Is Type Putaway',l_is_putaway);
6585: WSH_DEBUG_SV.pop(l_module_name);
6586: END IF;
6587:
6580: IF l_debug_on THEN
6581: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6582: WSH_DEBUG_SV.log(l_module_name,'l_mo_header_id',l_mo_header_id);
6583: WSH_DEBUG_SV.log(l_module_name,'l_mo_type',l_mo_type);
6584: WSH_DEBUG_SV.log(l_module_name,'Is Type Putaway',l_is_putaway);
6585: WSH_DEBUG_SV.pop(l_module_name);
6586: END IF;
6587:
6588: RETURN l_is_putaway;
6581: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
6582: WSH_DEBUG_SV.log(l_module_name,'l_mo_header_id',l_mo_header_id);
6583: WSH_DEBUG_SV.log(l_module_name,'l_mo_type',l_mo_type);
6584: WSH_DEBUG_SV.log(l_module_name,'Is Type Putaway',l_is_putaway);
6585: WSH_DEBUG_SV.pop(l_module_name);
6586: END IF;
6587:
6588: RETURN l_is_putaway;
6589:
6590: EXCEPTION
6591:
6592: WHEN OTHERS THEN
6593: IF l_debug_on THEN
6594: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6595: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6596: END IF;
6597: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_INV_PVT.is_mo_type_putaway',l_module_name);
6598: RETURN 'N';
6591:
6592: WHEN OTHERS THEN
6593: IF l_debug_on THEN
6594: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6595: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6596: END IF;
6597: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_INV_PVT.is_mo_type_putaway',l_module_name);
6598: RETURN 'N';
6599:
6630:
6631: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
6632: --
6633: IF l_debug_on IS NULL THEN
6634: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6635: END IF;
6636: --
6637: IF l_debug_on THEN
6638: WSH_DEBUG_SV.push(l_module_name);
6634: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
6635: END IF;
6636: --
6637: IF l_debug_on THEN
6638: WSH_DEBUG_SV.push(l_module_name);
6639: WSH_DEBUG_SV.log(l_module_name,'p_detail_id',p_detail_id);
6640: WSH_DEBUG_SV.log(l_module_name,'p_released_status',p_released_status);
6641: WSH_DEBUG_SV.log(l_module_name,'p_move_order_line_id',p_move_order_line_id);
6642: END IF;
6635: END IF;
6636: --
6637: IF l_debug_on THEN
6638: WSH_DEBUG_SV.push(l_module_name);
6639: WSH_DEBUG_SV.log(l_module_name,'p_detail_id',p_detail_id);
6640: WSH_DEBUG_SV.log(l_module_name,'p_released_status',p_released_status);
6641: WSH_DEBUG_SV.log(l_module_name,'p_move_order_line_id',p_move_order_line_id);
6642: END IF;
6643:
6636: --
6637: IF l_debug_on THEN
6638: WSH_DEBUG_SV.push(l_module_name);
6639: WSH_DEBUG_SV.log(l_module_name,'p_detail_id',p_detail_id);
6640: WSH_DEBUG_SV.log(l_module_name,'p_released_status',p_released_status);
6641: WSH_DEBUG_SV.log(l_module_name,'p_move_order_line_id',p_move_order_line_id);
6642: END IF;
6643:
6644: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6637: IF l_debug_on THEN
6638: WSH_DEBUG_SV.push(l_module_name);
6639: WSH_DEBUG_SV.log(l_module_name,'p_detail_id',p_detail_id);
6640: WSH_DEBUG_SV.log(l_module_name,'p_released_status',p_released_status);
6641: WSH_DEBUG_SV.log(l_module_name,'p_move_order_line_id',p_move_order_line_id);
6642: END IF;
6643:
6644: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
6645: -- Check if released_status and move_order_line_id have been specified
6671: x_detail_id := p_detail_id;
6672: END IF;
6673:
6674: IF l_debug_on THEN
6675: WSH_DEBUG_SV.log(l_module_name,'x_detail_id',x_detail_id);
6676: WSH_DEBUG_SV.pop(l_module_name);
6677: END IF;
6678:
6679: EXCEPTION
6672: END IF;
6673:
6674: IF l_debug_on THEN
6675: WSH_DEBUG_SV.log(l_module_name,'x_detail_id',x_detail_id);
6676: WSH_DEBUG_SV.pop(l_module_name);
6677: END IF;
6678:
6679: EXCEPTION
6680:
6684: END IF;
6685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6686: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_INV_PVT.get_putaway_detail_id',l_module_name);
6687: IF l_debug_on THEN
6688: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6689: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6690: END IF;
6691: END get_putaway_detail_id;
6692:
6685: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6686: WSH_UTIL_CORE.DEFAULT_HANDLER('WSH_USA_INV_PVT.get_putaway_detail_id',l_module_name);
6687: IF l_debug_on THEN
6688: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6689: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
6690: END IF;
6691: END get_putaway_detail_id;
6692:
6693: END WSH_USA_INV_PVT;