[Home] [Help]
145: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
146: --
147: IF l_debug_on IS NULL
148: THEN
149: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
150: END IF;
151: --
152: --
153: -- Debug Statements
152: --
153: -- Debug Statements
154: --
155: IF l_debug_on THEN
156: WSH_DEBUG_SV.push(l_module_name);
157: --
158: WSH_DEBUG_SV.log(l_module_name,'P_MATCHED_DETAIL_INDEX',P_MATCHED_DETAIL_INDEX);
159:
160: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
154: --
155: IF l_debug_on THEN
156: WSH_DEBUG_SV.push(l_module_name);
157: --
158: WSH_DEBUG_SV.log(l_module_name,'P_MATCHED_DETAIL_INDEX',P_MATCHED_DETAIL_INDEX);
159:
160: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
161: WSH_DEBUG_SV.log(l_module_name,'recevied quantity db',x_matched_detail_rec.received_qty_db_tab(p_matched_detail_index));
162: WSH_DEBUG_SV.log(l_module_name,'recevied quantity ',x_matched_detail_rec.received_qty_tab(p_matched_detail_index));
156: WSH_DEBUG_SV.push(l_module_name);
157: --
158: WSH_DEBUG_SV.log(l_module_name,'P_MATCHED_DETAIL_INDEX',P_MATCHED_DETAIL_INDEX);
159:
160: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
161: WSH_DEBUG_SV.log(l_module_name,'recevied quantity db',x_matched_detail_rec.received_qty_db_tab(p_matched_detail_index));
162: WSH_DEBUG_SV.log(l_module_name,'recevied quantity ',x_matched_detail_rec.received_qty_tab(p_matched_detail_index));
163: WSH_DEBUG_SV.log(l_module_name,'update recs recevied quantity ',x_update_det_rec.received_qty_tab(p_update_det_rec_idx));
164: WSH_DEBUG_SV.log(l_module_name,'update recs record_changed_flag ',x_update_det_rec.record_changed_flag_tab(p_update_det_rec_idx));
157: --
158: WSH_DEBUG_SV.log(l_module_name,'P_MATCHED_DETAIL_INDEX',P_MATCHED_DETAIL_INDEX);
159:
160: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
161: WSH_DEBUG_SV.log(l_module_name,'recevied quantity db',x_matched_detail_rec.received_qty_db_tab(p_matched_detail_index));
162: WSH_DEBUG_SV.log(l_module_name,'recevied quantity ',x_matched_detail_rec.received_qty_tab(p_matched_detail_index));
163: WSH_DEBUG_SV.log(l_module_name,'update recs recevied quantity ',x_update_det_rec.received_qty_tab(p_update_det_rec_idx));
164: WSH_DEBUG_SV.log(l_module_name,'update recs record_changed_flag ',x_update_det_rec.record_changed_flag_tab(p_update_det_rec_idx));
165: END IF;
158: WSH_DEBUG_SV.log(l_module_name,'P_MATCHED_DETAIL_INDEX',P_MATCHED_DETAIL_INDEX);
159:
160: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
161: WSH_DEBUG_SV.log(l_module_name,'recevied quantity db',x_matched_detail_rec.received_qty_db_tab(p_matched_detail_index));
162: WSH_DEBUG_SV.log(l_module_name,'recevied quantity ',x_matched_detail_rec.received_qty_tab(p_matched_detail_index));
163: WSH_DEBUG_SV.log(l_module_name,'update recs recevied quantity ',x_update_det_rec.received_qty_tab(p_update_det_rec_idx));
164: WSH_DEBUG_SV.log(l_module_name,'update recs record_changed_flag ',x_update_det_rec.record_changed_flag_tab(p_update_det_rec_idx));
165: END IF;
166: --
159:
160: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
161: WSH_DEBUG_SV.log(l_module_name,'recevied quantity db',x_matched_detail_rec.received_qty_db_tab(p_matched_detail_index));
162: WSH_DEBUG_SV.log(l_module_name,'recevied quantity ',x_matched_detail_rec.received_qty_tab(p_matched_detail_index));
163: WSH_DEBUG_SV.log(l_module_name,'update recs recevied quantity ',x_update_det_rec.received_qty_tab(p_update_det_rec_idx));
164: WSH_DEBUG_SV.log(l_module_name,'update recs record_changed_flag ',x_update_det_rec.record_changed_flag_tab(p_update_det_rec_idx));
165: END IF;
166: --
167: SAVEPOINT PROCESS_RCV;
160: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
161: WSH_DEBUG_SV.log(l_module_name,'recevied quantity db',x_matched_detail_rec.received_qty_db_tab(p_matched_detail_index));
162: WSH_DEBUG_SV.log(l_module_name,'recevied quantity ',x_matched_detail_rec.received_qty_tab(p_matched_detail_index));
163: WSH_DEBUG_SV.log(l_module_name,'update recs recevied quantity ',x_update_det_rec.received_qty_tab(p_update_det_rec_idx));
164: WSH_DEBUG_SV.log(l_module_name,'update recs record_changed_flag ',x_update_det_rec.record_changed_flag_tab(p_update_det_rec_idx));
165: END IF;
166: --
167: SAVEPOINT PROCESS_RCV;
168: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
182: --{
183: -- This means that the delivery detail's received quantity is nulled by the user
184: -- which tells us that we need to unassign this detail its the delivery.
185: IF l_debug_on THEN
186: WSH_DEBUG_SV.logmsg(l_module_name,'This means complete negative correction of the original quantity received');
187: WSH_DEBUG_SV.log(l_module_name,'delivery detail id ', x_matched_detail_rec.del_detail_id_tab(p_matched_detail_index));
188: WSH_DEBUG_SV.log(l_module_name,'po line loc id ', x_matched_detail_rec.po_line_location_id_tab(p_matched_detail_index));
189: END IF;
190: x_unassign_det_tbl(x_unassign_det_tbl.count + 1) := x_matched_detail_rec.del_detail_id_tab(p_matched_detail_index);
183: -- This means that the delivery detail's received quantity is nulled by the user
184: -- which tells us that we need to unassign this detail its the delivery.
185: IF l_debug_on THEN
186: WSH_DEBUG_SV.logmsg(l_module_name,'This means complete negative correction of the original quantity received');
187: WSH_DEBUG_SV.log(l_module_name,'delivery detail id ', x_matched_detail_rec.del_detail_id_tab(p_matched_detail_index));
188: WSH_DEBUG_SV.log(l_module_name,'po line loc id ', x_matched_detail_rec.po_line_location_id_tab(p_matched_detail_index));
189: END IF;
190: x_unassign_det_tbl(x_unassign_det_tbl.count + 1) := x_matched_detail_rec.del_detail_id_tab(p_matched_detail_index);
191: x_po_line_loc_tbl(x_po_line_loc_tbl.count + 1) := x_matched_detail_rec.po_line_location_id_tab(p_matched_detail_index);
184: -- which tells us that we need to unassign this detail its the delivery.
185: IF l_debug_on THEN
186: WSH_DEBUG_SV.logmsg(l_module_name,'This means complete negative correction of the original quantity received');
187: WSH_DEBUG_SV.log(l_module_name,'delivery detail id ', x_matched_detail_rec.del_detail_id_tab(p_matched_detail_index));
188: WSH_DEBUG_SV.log(l_module_name,'po line loc id ', x_matched_detail_rec.po_line_location_id_tab(p_matched_detail_index));
189: END IF;
190: x_unassign_det_tbl(x_unassign_det_tbl.count + 1) := x_matched_detail_rec.del_detail_id_tab(p_matched_detail_index);
191: x_po_line_loc_tbl(x_po_line_loc_tbl.count + 1) := x_matched_detail_rec.po_line_location_id_tab(p_matched_detail_index);
192:
195: open l_unassigned_lpns_csr(x_matched_detail_rec.del_detail_id_tab(p_matched_detail_index));
196: fetch l_unassigned_lpns_csr into l_unassigned_lpn_id;
197: close l_unassigned_lpns_csr;
198: IF l_debug_on THEN
199: WSH_DEBUG_SV.log(l_module_name,'delivery line is',x_matched_detail_rec.del_detail_id_tab(p_matched_detail_index));
200: WSH_DEBUG_SV.log(l_module_name,'l_unassigned_lpn_id',l_unassigned_lpn_id);
201: END IF;
202:
203: IF (l_unassigned_lpn_id IS NOT NULL) THEN
196: fetch l_unassigned_lpns_csr into l_unassigned_lpn_id;
197: close l_unassigned_lpns_csr;
198: IF l_debug_on THEN
199: WSH_DEBUG_SV.log(l_module_name,'delivery line is',x_matched_detail_rec.del_detail_id_tab(p_matched_detail_index));
200: WSH_DEBUG_SV.log(l_module_name,'l_unassigned_lpn_id',l_unassigned_lpn_id);
201: END IF;
202:
203: IF (l_unassigned_lpn_id IS NOT NULL) THEN
204: --{
205: --
206: -- Debug Statements
207: --
208: IF l_debug_on THEN
209: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
210: END IF;
211: --
212: wsh_util_core.get_cached_value(
213: p_cache_tbl => g_unassgin_lpn_cache_tbl,
226: --
227: -- Debug Statements
228: --
229: IF l_debug_on THEN
230: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
231: END IF;
232: --
233: wsh_util_core.get_cached_value(
234: p_cache_tbl => g_unassgin_lpn_cache_tbl,
241: --
242: -- Debug Statements
243: --
244: IF l_debug_on THEN
245: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling wsh_util_core.get_cached_value for put is',l_return_status);
246: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
247: END IF;
248: --
249: wsh_util_core.api_post_call(
242: -- Debug Statements
243: --
244: IF l_debug_on THEN
245: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling wsh_util_core.get_cached_value for put is',l_return_status);
246: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
247: END IF;
248: --
249: wsh_util_core.api_post_call(
250: p_return_status => l_return_status,
252: x_num_errors => l_num_errors);
253:
254: x_unassigned_lpn_id_tab(x_unassigned_lpn_id_tab.count + 1) := l_unassigned_lpn_id;
255: IF l_debug_on THEN
256: WSH_DEBUG_SV.logmsg(l_module_name,'After assigning the value');
257: END IF;
258: --}
259: END IF;
260: --}
272: --}
273: ELSE
274: --{
275: IF l_debug_on THEN
276: WSH_DEBUG_SV.logmsg(l_module_name,'Inside the Else part of IF condition');
277: END IF;
278: x_update_det_rec.received_qty_tab(p_update_det_rec_idx) := x_matched_detail_rec.received_qty_tab(p_matched_detail_index);
279:
280: x_update_det_rec.requested_qty_tab(p_update_det_rec_idx) := least(x_matched_detail_rec.requested_qty_tab(p_matched_detail_index),
327: --{
328: -- This means that the user has increased the received quantity on the delivery
329: -- detail (equivalent to positive correction).
330: IF l_debug_on THEN
331: WSH_DEBUG_SV.logmsg(l_module_name,'Inside the Else IF condition');
332: END IF;
333: x_update_det_rec.received_qty_tab(p_update_det_rec_idx) := x_matched_detail_rec.received_qty_tab(p_matched_detail_index);
334:
335: x_update_det_rec.received_qty2_tab(p_update_det_rec_idx) := x_matched_detail_rec.received_qty2_tab(p_matched_detail_index);
380: --
381: -- Debug Statements
382: --
383: IF l_debug_on THEN
384: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
385: END IF;
386: --
387: wsh_util_core.get_cached_value(
388: p_cache_tbl => g_del_cache_tbl,
401: --
402: -- Debug Statements
403: --
404: IF l_debug_on THEN
405: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
406: END IF;
407: --
408: wsh_util_core.get_cached_value(
409: p_cache_tbl => g_del_cache_tbl,
416: --
417: -- Debug Statements
418: --
419: IF l_debug_on THEN
420: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling wsh_util_core.get_cached_value for put is',l_return_status);
421: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
422: END IF;
423: --
424: wsh_util_core.api_post_call(
417: -- Debug Statements
418: --
419: IF l_debug_on THEN
420: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling wsh_util_core.get_cached_value for put is',l_return_status);
421: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
422: END IF;
423: --
424: wsh_util_core.api_post_call(
425: p_return_status => l_return_status,
427: x_num_errors => l_num_errors);
428:
429: x_delivery_id_tab(x_delivery_id_tab.count+1) := l_delivery_id;
430: IF l_debug_on THEN
431: WSH_DEBUG_SV.logmsg(l_module_name,'After assigning the value');
432: END IF;
433: IF (l_det_wv_frozen_flag = 'Y') THEN
434: x_wv_recalc_del_id_tab(x_wv_recalc_del_id_tab.count+1) := l_delivery_id;
435: END IF;
441: --
442: -- Debug Statements
443: --
444: IF l_debug_on THEN
445: WSH_DEBUG_SV.log(l_module_name,'At the end - update recs recevied quantity ',x_update_det_rec.received_qty_tab(p_update_det_rec_idx));
446: WSH_DEBUG_SV.log(l_module_name,'At the end - update recs record_changed_flag ',x_update_det_rec.record_changed_flag_tab(p_update_det_rec_idx));
447: WSH_DEBUG_SV.pop(l_module_name);
448: END IF;
449: --
442: -- Debug Statements
443: --
444: IF l_debug_on THEN
445: WSH_DEBUG_SV.log(l_module_name,'At the end - update recs recevied quantity ',x_update_det_rec.received_qty_tab(p_update_det_rec_idx));
446: WSH_DEBUG_SV.log(l_module_name,'At the end - update recs record_changed_flag ',x_update_det_rec.record_changed_flag_tab(p_update_det_rec_idx));
447: WSH_DEBUG_SV.pop(l_module_name);
448: END IF;
449: --
450: EXCEPTION
443: --
444: IF l_debug_on THEN
445: WSH_DEBUG_SV.log(l_module_name,'At the end - update recs recevied quantity ',x_update_det_rec.received_qty_tab(p_update_det_rec_idx));
446: WSH_DEBUG_SV.log(l_module_name,'At the end - update recs record_changed_flag ',x_update_det_rec.record_changed_flag_tab(p_update_det_rec_idx));
447: WSH_DEBUG_SV.pop(l_module_name);
448: END IF;
449: --
450: EXCEPTION
451: --{
455: --
456: -- Debug Statements
457: --
458: IF l_debug_on THEN
459: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
460: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
461: END IF;
462: --
463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
456: -- Debug Statements
457: --
458: IF l_debug_on THEN
459: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
460: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
461: END IF;
462: --
463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
464: ROLLBACK TO PROCESS_RCV;
466: --
467: -- Debug Statements
468: --
469: IF l_debug_on THEN
470: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
471: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
472: END IF;
473: --
474: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
467: -- Debug Statements
468: --
469: IF l_debug_on THEN
470: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
471: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
472: END IF;
473: --
474: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
475: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
476: --
477: -- Debug Statements
478: --
479: IF l_debug_on THEN
480: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
481: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
482: END IF;
483: --
484: WHEN OTHERS THEN
477: -- Debug Statements
478: --
479: IF l_debug_on THEN
480: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
481: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
482: END IF;
483: --
484: WHEN OTHERS THEN
485: ROLLBACK TO PROCESS_RCV;
489: --
490: -- Debug Statements
491: --
492: IF l_debug_on THEN
493: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
494: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
495: END IF;
496: --
497: END process_rcv;
490: -- Debug Statements
491: --
492: IF l_debug_on THEN
493: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
494: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
495: END IF;
496: --
497: END process_rcv;
498:
553: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
554: --
555: IF l_debug_on IS NULL
556: THEN
557: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
558: END IF;
559: --
560: --
561: -- Debug Statements
560: --
561: -- Debug Statements
562: --
563: IF l_debug_on THEN
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_MATCHED_DETAIL_INDEX',P_MATCHED_DETAIL_INDEX);
567: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
568: WSH_DEBUG_SV.log(l_module_name,'returned_qty',x_matched_detail_rec.returned_qty_tab(p_matched_detail_index));
562: --
563: IF l_debug_on THEN
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_MATCHED_DETAIL_INDEX',P_MATCHED_DETAIL_INDEX);
567: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
568: WSH_DEBUG_SV.log(l_module_name,'returned_qty',x_matched_detail_rec.returned_qty_tab(p_matched_detail_index));
569: WSH_DEBUG_SV.log(l_module_name,'returned_qty_db',x_matched_detail_rec.returned_qty_db_tab(p_matched_detail_index));
570: END IF;
563: IF l_debug_on THEN
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_MATCHED_DETAIL_INDEX',P_MATCHED_DETAIL_INDEX);
567: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
568: WSH_DEBUG_SV.log(l_module_name,'returned_qty',x_matched_detail_rec.returned_qty_tab(p_matched_detail_index));
569: WSH_DEBUG_SV.log(l_module_name,'returned_qty_db',x_matched_detail_rec.returned_qty_db_tab(p_matched_detail_index));
570: END IF;
571: --
564: WSH_DEBUG_SV.push(l_module_name);
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_MATCHED_DETAIL_INDEX',P_MATCHED_DETAIL_INDEX);
567: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
568: WSH_DEBUG_SV.log(l_module_name,'returned_qty',x_matched_detail_rec.returned_qty_tab(p_matched_detail_index));
569: WSH_DEBUG_SV.log(l_module_name,'returned_qty_db',x_matched_detail_rec.returned_qty_db_tab(p_matched_detail_index));
570: END IF;
571: --
572: x_return_status := wsh_util_core.g_ret_sts_success;
565: --
566: WSH_DEBUG_SV.log(l_module_name,'P_MATCHED_DETAIL_INDEX',P_MATCHED_DETAIL_INDEX);
567: WSH_DEBUG_SV.log(l_module_name,'P_UPDATE_DET_REC_IDX',P_UPDATE_DET_REC_IDX);
568: WSH_DEBUG_SV.log(l_module_name,'returned_qty',x_matched_detail_rec.returned_qty_tab(p_matched_detail_index));
569: WSH_DEBUG_SV.log(l_module_name,'returned_qty_db',x_matched_detail_rec.returned_qty_db_tab(p_matched_detail_index));
570: END IF;
571: --
572: x_return_status := wsh_util_core.g_ret_sts_success;
573: IF x_matched_detail_rec.returned_qty_tab(p_matched_detail_index) < 0 THEN
614: --
615: -- Debug Statements
616: --
617: IF l_debug_on THEN
618: WSH_DEBUG_SV.log(l_module_name,'remaining req quantity',x_rem_req_qty_rec.requested_quantity);
619: WSH_DEBUG_SV.pop(l_module_name);
620: END IF;
621: --
622: EXCEPTION
615: -- Debug Statements
616: --
617: IF l_debug_on THEN
618: WSH_DEBUG_SV.log(l_module_name,'remaining req quantity',x_rem_req_qty_rec.requested_quantity);
619: WSH_DEBUG_SV.pop(l_module_name);
620: END IF;
621: --
622: EXCEPTION
623: --{
626: --
627: -- Debug Statements
628: --
629: IF l_debug_on THEN
630: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
631: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
632: END IF;
633: --
634: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
627: -- Debug Statements
628: --
629: IF l_debug_on THEN
630: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
631: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
632: END IF;
633: --
634: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
635: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
636: --
637: -- Debug Statements
638: --
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
641: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
642: END IF;
643: --
644: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
637: -- Debug Statements
638: --
639: IF l_debug_on THEN
640: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
641: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
642: END IF;
643: --
644: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
645: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
646: --
647: -- Debug Statements
648: --
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
652: END IF;
653: --
654: WHEN OTHERS THEN
647: -- Debug Statements
648: --
649: IF l_debug_on THEN
650: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
651: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
652: END IF;
653: --
654: WHEN OTHERS THEN
655: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
658: --
659: -- Debug Statements
660: --
661: IF l_debug_on THEN
662: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
663: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
664: END IF;
665: --
666: END process_rtv;
659: -- Debug Statements
660: --
661: IF l_debug_on THEN
662: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
663: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
664: END IF;
665: --
666: END process_rtv;
667:
862: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
863: --
864: IF l_debug_on IS NULL
865: THEN
866: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
867: END IF;
868: --
869: --
870: -- Debug Statements
869: --
870: -- Debug Statements
871: --
872: IF l_debug_on THEN
873: WSH_DEBUG_SV.push(l_module_name);
874: END IF;
875: --
876: SAVEPOINT process_corrections_and_rtv;
877: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
917: l_update_det_rec.gross_weight_tab(l_update_det_rec_idx) := null;
918: l_update_det_rec.volume_tab(l_update_det_rec_idx) := null;
919:
920: IF l_debug_on THEN
921: WSH_DEBUG_SV.log(l_module_name,'requested qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.requested_qty_tab(l_update_det_rec_idx));
922: WSH_DEBUG_SV.log(l_module_name,'received qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.received_qty_tab(l_update_det_rec_idx));
923: WSH_DEBUG_SV.log(l_module_name,'returned qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.returned_qty_tab(l_update_det_rec_idx));
924: WSH_DEBUG_SV.log(l_module_name,'Shipped qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.shipped_qty_tab(l_update_det_rec_idx));
925: END IF;
918: l_update_det_rec.volume_tab(l_update_det_rec_idx) := null;
919:
920: IF l_debug_on THEN
921: WSH_DEBUG_SV.log(l_module_name,'requested qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.requested_qty_tab(l_update_det_rec_idx));
922: WSH_DEBUG_SV.log(l_module_name,'received qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.received_qty_tab(l_update_det_rec_idx));
923: WSH_DEBUG_SV.log(l_module_name,'returned qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.returned_qty_tab(l_update_det_rec_idx));
924: WSH_DEBUG_SV.log(l_module_name,'Shipped qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.shipped_qty_tab(l_update_det_rec_idx));
925: END IF;
926:
919:
920: IF l_debug_on THEN
921: WSH_DEBUG_SV.log(l_module_name,'requested qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.requested_qty_tab(l_update_det_rec_idx));
922: WSH_DEBUG_SV.log(l_module_name,'received qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.received_qty_tab(l_update_det_rec_idx));
923: WSH_DEBUG_SV.log(l_module_name,'returned qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.returned_qty_tab(l_update_det_rec_idx));
924: WSH_DEBUG_SV.log(l_module_name,'Shipped qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.shipped_qty_tab(l_update_det_rec_idx));
925: END IF;
926:
927: -- Here we compare if the requested quantity for a given
920: IF l_debug_on THEN
921: WSH_DEBUG_SV.log(l_module_name,'requested qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.requested_qty_tab(l_update_det_rec_idx));
922: WSH_DEBUG_SV.log(l_module_name,'received qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.received_qty_tab(l_update_det_rec_idx));
923: WSH_DEBUG_SV.log(l_module_name,'returned qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.returned_qty_tab(l_update_det_rec_idx));
924: WSH_DEBUG_SV.log(l_module_name,'Shipped qty(' || l_update_det_rec_idx|| ')', l_update_det_rec.shipped_qty_tab(l_update_det_rec_idx));
925: END IF;
926:
927: -- Here we compare if the requested quantity for a given
928: -- po_line_location_id is not equal to zero or not. If yes,
942: --
943: -- Debug Statements
944: --
945: IF l_debug_on THEN
946: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
947: END IF;
948: --
949: wsh_util_core.api_post_call(
950: p_return_status => l_return_status,
977: --
978: -- Debug Statements
979: --
980: IF l_debug_on THEN
981: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
982: END IF;
983: --
984: wsh_util_core.api_post_call(
985: p_return_status => l_return_status,
1001: --
1002: -- Debug Statements
1003: --
1004: IF l_debug_on THEN
1005: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
1006: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1007: END IF;
1008: --
1009: wsh_util_core.api_post_call(
1002: -- Debug Statements
1003: --
1004: IF l_debug_on THEN
1005: WSH_DEBUG_SV.log(l_module_name,'Return Status',l_return_status);
1006: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1007: END IF;
1008: --
1009: wsh_util_core.api_post_call(
1010: p_return_status => l_return_status,
1013: --}
1014: END IF;
1015:
1016: IF l_debug_on THEN
1017: WSH_DEBUG_SV.logmsg(l_module_name,'Before assigning the value to l_prev_po_line_loc_id');
1018: END IF;
1019: l_prev_po_line_loc_id := p_matched_detail_rec.po_line_location_id_tab(l_index);
1020: l_prev_po_line_id := p_matched_detail_rec.po_line_id_tab(l_index);
1021: IF l_debug_on THEN
1018: END IF;
1019: l_prev_po_line_loc_id := p_matched_detail_rec.po_line_location_id_tab(l_index);
1020: l_prev_po_line_id := p_matched_detail_rec.po_line_id_tab(l_index);
1021: IF l_debug_on THEN
1022: WSH_DEBUG_SV.logmsg(l_module_name,'After assigning the value to l_prev_po_line_loc_id');
1023: WSH_DEBUG_SV.log(l_module_name,'l_index', l_index);
1024: END IF;
1025: l_last_valid_det_index := l_index;
1026: --}
1019: l_prev_po_line_loc_id := p_matched_detail_rec.po_line_location_id_tab(l_index);
1020: l_prev_po_line_id := p_matched_detail_rec.po_line_id_tab(l_index);
1021: IF l_debug_on THEN
1022: WSH_DEBUG_SV.logmsg(l_module_name,'After assigning the value to l_prev_po_line_loc_id');
1023: WSH_DEBUG_SV.log(l_module_name,'l_index', l_index);
1024: END IF;
1025: l_last_valid_det_index := l_index;
1026: --}
1027: END IF;
1041: --
1042: -- Debug Statements
1043: --
1044: IF l_debug_on THEN
1045: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1046: END IF;
1047: --
1048: wsh_util_core.api_post_call(
1049: p_return_status => l_return_status,
1053: l_rem_req_qty_rec.requested_quantity2 := 0;
1054: --}
1055: END IF;
1056: IF l_debug_on THEN
1057: WSH_DEBUG_SV.logmsg(l_module_name,'Before doing a bulk update');
1058: WSH_DEBUG_SV.log(l_module_name,'received qty before the update', l_update_det_rec.received_qty_tab(1));
1059: WSH_DEBUG_SV.log(l_module_name,'update rec count is', l_update_det_rec.received_qty_tab.count);
1060: WSH_DEBUG_SV.log(l_module_name,'record_changed_flag', l_update_det_rec.record_changed_flag_tab(1));
1061: WSH_DEBUG_SV.log(l_module_name,'del_detid', l_update_det_rec.del_det_id_tab(1));
1054: --}
1055: END IF;
1056: IF l_debug_on THEN
1057: WSH_DEBUG_SV.logmsg(l_module_name,'Before doing a bulk update');
1058: WSH_DEBUG_SV.log(l_module_name,'received qty before the update', l_update_det_rec.received_qty_tab(1));
1059: WSH_DEBUG_SV.log(l_module_name,'update rec count is', l_update_det_rec.received_qty_tab.count);
1060: WSH_DEBUG_SV.log(l_module_name,'record_changed_flag', l_update_det_rec.record_changed_flag_tab(1));
1061: WSH_DEBUG_SV.log(l_module_name,'del_detid', l_update_det_rec.del_det_id_tab(1));
1062: WSH_DEBUG_SV.log(l_module_name,'shipped_qty_tab', l_update_det_rec.shipped_qty_tab(1));
1055: END IF;
1056: IF l_debug_on THEN
1057: WSH_DEBUG_SV.logmsg(l_module_name,'Before doing a bulk update');
1058: WSH_DEBUG_SV.log(l_module_name,'received qty before the update', l_update_det_rec.received_qty_tab(1));
1059: WSH_DEBUG_SV.log(l_module_name,'update rec count is', l_update_det_rec.received_qty_tab.count);
1060: WSH_DEBUG_SV.log(l_module_name,'record_changed_flag', l_update_det_rec.record_changed_flag_tab(1));
1061: WSH_DEBUG_SV.log(l_module_name,'del_detid', l_update_det_rec.del_det_id_tab(1));
1062: WSH_DEBUG_SV.log(l_module_name,'shipped_qty_tab', l_update_det_rec.shipped_qty_tab(1));
1063: WSH_DEBUG_SV.log(l_module_name,'shipped_qty2_tab', l_update_det_rec.shipped_qty2_tab(1));
1056: IF l_debug_on THEN
1057: WSH_DEBUG_SV.logmsg(l_module_name,'Before doing a bulk update');
1058: WSH_DEBUG_SV.log(l_module_name,'received qty before the update', l_update_det_rec.received_qty_tab(1));
1059: WSH_DEBUG_SV.log(l_module_name,'update rec count is', l_update_det_rec.received_qty_tab.count);
1060: WSH_DEBUG_SV.log(l_module_name,'record_changed_flag', l_update_det_rec.record_changed_flag_tab(1));
1061: WSH_DEBUG_SV.log(l_module_name,'del_detid', l_update_det_rec.del_det_id_tab(1));
1062: WSH_DEBUG_SV.log(l_module_name,'shipped_qty_tab', l_update_det_rec.shipped_qty_tab(1));
1063: WSH_DEBUG_SV.log(l_module_name,'shipped_qty2_tab', l_update_det_rec.shipped_qty2_tab(1));
1064: WSH_DEBUG_SV.log(l_module_name,'received_qty_tab', l_update_det_rec.received_qty_tab(1));
1057: WSH_DEBUG_SV.logmsg(l_module_name,'Before doing a bulk update');
1058: WSH_DEBUG_SV.log(l_module_name,'received qty before the update', l_update_det_rec.received_qty_tab(1));
1059: WSH_DEBUG_SV.log(l_module_name,'update rec count is', l_update_det_rec.received_qty_tab.count);
1060: WSH_DEBUG_SV.log(l_module_name,'record_changed_flag', l_update_det_rec.record_changed_flag_tab(1));
1061: WSH_DEBUG_SV.log(l_module_name,'del_detid', l_update_det_rec.del_det_id_tab(1));
1062: WSH_DEBUG_SV.log(l_module_name,'shipped_qty_tab', l_update_det_rec.shipped_qty_tab(1));
1063: WSH_DEBUG_SV.log(l_module_name,'shipped_qty2_tab', l_update_det_rec.shipped_qty2_tab(1));
1064: WSH_DEBUG_SV.log(l_module_name,'received_qty_tab', l_update_det_rec.received_qty_tab(1));
1065: WSH_DEBUG_SV.log(l_module_name,'returned_qty_tab', l_update_det_rec.returned_qty_tab(1));
1058: WSH_DEBUG_SV.log(l_module_name,'received qty before the update', l_update_det_rec.received_qty_tab(1));
1059: WSH_DEBUG_SV.log(l_module_name,'update rec count is', l_update_det_rec.received_qty_tab.count);
1060: WSH_DEBUG_SV.log(l_module_name,'record_changed_flag', l_update_det_rec.record_changed_flag_tab(1));
1061: WSH_DEBUG_SV.log(l_module_name,'del_detid', l_update_det_rec.del_det_id_tab(1));
1062: WSH_DEBUG_SV.log(l_module_name,'shipped_qty_tab', l_update_det_rec.shipped_qty_tab(1));
1063: WSH_DEBUG_SV.log(l_module_name,'shipped_qty2_tab', l_update_det_rec.shipped_qty2_tab(1));
1064: WSH_DEBUG_SV.log(l_module_name,'received_qty_tab', l_update_det_rec.received_qty_tab(1));
1065: WSH_DEBUG_SV.log(l_module_name,'returned_qty_tab', l_update_det_rec.returned_qty_tab(1));
1066: WSH_DEBUG_SV.log(l_module_name,'shipment_line_id_tab', l_update_det_rec.shipment_line_id_tab(1));
1059: WSH_DEBUG_SV.log(l_module_name,'update rec count is', l_update_det_rec.received_qty_tab.count);
1060: WSH_DEBUG_SV.log(l_module_name,'record_changed_flag', l_update_det_rec.record_changed_flag_tab(1));
1061: WSH_DEBUG_SV.log(l_module_name,'del_detid', l_update_det_rec.del_det_id_tab(1));
1062: WSH_DEBUG_SV.log(l_module_name,'shipped_qty_tab', l_update_det_rec.shipped_qty_tab(1));
1063: WSH_DEBUG_SV.log(l_module_name,'shipped_qty2_tab', l_update_det_rec.shipped_qty2_tab(1));
1064: WSH_DEBUG_SV.log(l_module_name,'received_qty_tab', l_update_det_rec.received_qty_tab(1));
1065: WSH_DEBUG_SV.log(l_module_name,'returned_qty_tab', l_update_det_rec.returned_qty_tab(1));
1066: WSH_DEBUG_SV.log(l_module_name,'shipment_line_id_tab', l_update_det_rec.shipment_line_id_tab(1));
1067: WSH_DEBUG_SV.log(l_module_name,'wv_changed_flag_tab', l_update_det_rec.wv_changed_flag_tab(1));
1060: WSH_DEBUG_SV.log(l_module_name,'record_changed_flag', l_update_det_rec.record_changed_flag_tab(1));
1061: WSH_DEBUG_SV.log(l_module_name,'del_detid', l_update_det_rec.del_det_id_tab(1));
1062: WSH_DEBUG_SV.log(l_module_name,'shipped_qty_tab', l_update_det_rec.shipped_qty_tab(1));
1063: WSH_DEBUG_SV.log(l_module_name,'shipped_qty2_tab', l_update_det_rec.shipped_qty2_tab(1));
1064: WSH_DEBUG_SV.log(l_module_name,'received_qty_tab', l_update_det_rec.received_qty_tab(1));
1065: WSH_DEBUG_SV.log(l_module_name,'returned_qty_tab', l_update_det_rec.returned_qty_tab(1));
1066: WSH_DEBUG_SV.log(l_module_name,'shipment_line_id_tab', l_update_det_rec.shipment_line_id_tab(1));
1067: WSH_DEBUG_SV.log(l_module_name,'wv_changed_flag_tab', l_update_det_rec.wv_changed_flag_tab(1));
1068: WSH_DEBUG_SV.log(l_module_name,'net_weight_tab', l_update_det_rec.net_weight_tab(1));
1061: WSH_DEBUG_SV.log(l_module_name,'del_detid', l_update_det_rec.del_det_id_tab(1));
1062: WSH_DEBUG_SV.log(l_module_name,'shipped_qty_tab', l_update_det_rec.shipped_qty_tab(1));
1063: WSH_DEBUG_SV.log(l_module_name,'shipped_qty2_tab', l_update_det_rec.shipped_qty2_tab(1));
1064: WSH_DEBUG_SV.log(l_module_name,'received_qty_tab', l_update_det_rec.received_qty_tab(1));
1065: WSH_DEBUG_SV.log(l_module_name,'returned_qty_tab', l_update_det_rec.returned_qty_tab(1));
1066: WSH_DEBUG_SV.log(l_module_name,'shipment_line_id_tab', l_update_det_rec.shipment_line_id_tab(1));
1067: WSH_DEBUG_SV.log(l_module_name,'wv_changed_flag_tab', l_update_det_rec.wv_changed_flag_tab(1));
1068: WSH_DEBUG_SV.log(l_module_name,'net_weight_tab', l_update_det_rec.net_weight_tab(1));
1069: WSH_DEBUG_SV.log(l_module_name,'gross_weight_tab', l_update_det_rec.gross_weight_tab(1));
1062: WSH_DEBUG_SV.log(l_module_name,'shipped_qty_tab', l_update_det_rec.shipped_qty_tab(1));
1063: WSH_DEBUG_SV.log(l_module_name,'shipped_qty2_tab', l_update_det_rec.shipped_qty2_tab(1));
1064: WSH_DEBUG_SV.log(l_module_name,'received_qty_tab', l_update_det_rec.received_qty_tab(1));
1065: WSH_DEBUG_SV.log(l_module_name,'returned_qty_tab', l_update_det_rec.returned_qty_tab(1));
1066: WSH_DEBUG_SV.log(l_module_name,'shipment_line_id_tab', l_update_det_rec.shipment_line_id_tab(1));
1067: WSH_DEBUG_SV.log(l_module_name,'wv_changed_flag_tab', l_update_det_rec.wv_changed_flag_tab(1));
1068: WSH_DEBUG_SV.log(l_module_name,'net_weight_tab', l_update_det_rec.net_weight_tab(1));
1069: WSH_DEBUG_SV.log(l_module_name,'gross_weight_tab', l_update_det_rec.gross_weight_tab(1));
1070: WSH_DEBUG_SV.log(l_module_name,'volume_tab', l_update_det_rec.volume_tab(1));
1063: WSH_DEBUG_SV.log(l_module_name,'shipped_qty2_tab', l_update_det_rec.shipped_qty2_tab(1));
1064: WSH_DEBUG_SV.log(l_module_name,'received_qty_tab', l_update_det_rec.received_qty_tab(1));
1065: WSH_DEBUG_SV.log(l_module_name,'returned_qty_tab', l_update_det_rec.returned_qty_tab(1));
1066: WSH_DEBUG_SV.log(l_module_name,'shipment_line_id_tab', l_update_det_rec.shipment_line_id_tab(1));
1067: WSH_DEBUG_SV.log(l_module_name,'wv_changed_flag_tab', l_update_det_rec.wv_changed_flag_tab(1));
1068: WSH_DEBUG_SV.log(l_module_name,'net_weight_tab', l_update_det_rec.net_weight_tab(1));
1069: WSH_DEBUG_SV.log(l_module_name,'gross_weight_tab', l_update_det_rec.gross_weight_tab(1));
1070: WSH_DEBUG_SV.log(l_module_name,'volume_tab', l_update_det_rec.volume_tab(1));
1071: END IF;
1064: WSH_DEBUG_SV.log(l_module_name,'received_qty_tab', l_update_det_rec.received_qty_tab(1));
1065: WSH_DEBUG_SV.log(l_module_name,'returned_qty_tab', l_update_det_rec.returned_qty_tab(1));
1066: WSH_DEBUG_SV.log(l_module_name,'shipment_line_id_tab', l_update_det_rec.shipment_line_id_tab(1));
1067: WSH_DEBUG_SV.log(l_module_name,'wv_changed_flag_tab', l_update_det_rec.wv_changed_flag_tab(1));
1068: WSH_DEBUG_SV.log(l_module_name,'net_weight_tab', l_update_det_rec.net_weight_tab(1));
1069: WSH_DEBUG_SV.log(l_module_name,'gross_weight_tab', l_update_det_rec.gross_weight_tab(1));
1070: WSH_DEBUG_SV.log(l_module_name,'volume_tab', l_update_det_rec.volume_tab(1));
1071: END IF;
1072: forall i in l_update_det_rec.del_det_id_tab.first..l_update_det_rec.del_det_id_tab.last
1065: WSH_DEBUG_SV.log(l_module_name,'returned_qty_tab', l_update_det_rec.returned_qty_tab(1));
1066: WSH_DEBUG_SV.log(l_module_name,'shipment_line_id_tab', l_update_det_rec.shipment_line_id_tab(1));
1067: WSH_DEBUG_SV.log(l_module_name,'wv_changed_flag_tab', l_update_det_rec.wv_changed_flag_tab(1));
1068: WSH_DEBUG_SV.log(l_module_name,'net_weight_tab', l_update_det_rec.net_weight_tab(1));
1069: WSH_DEBUG_SV.log(l_module_name,'gross_weight_tab', l_update_det_rec.gross_weight_tab(1));
1070: WSH_DEBUG_SV.log(l_module_name,'volume_tab', l_update_det_rec.volume_tab(1));
1071: END IF;
1072: forall i in l_update_det_rec.del_det_id_tab.first..l_update_det_rec.del_det_id_tab.last
1073: update wsh_delivery_details
1066: WSH_DEBUG_SV.log(l_module_name,'shipment_line_id_tab', l_update_det_rec.shipment_line_id_tab(1));
1067: WSH_DEBUG_SV.log(l_module_name,'wv_changed_flag_tab', l_update_det_rec.wv_changed_flag_tab(1));
1068: WSH_DEBUG_SV.log(l_module_name,'net_weight_tab', l_update_det_rec.net_weight_tab(1));
1069: WSH_DEBUG_SV.log(l_module_name,'gross_weight_tab', l_update_det_rec.gross_weight_tab(1));
1070: WSH_DEBUG_SV.log(l_module_name,'volume_tab', l_update_det_rec.volume_tab(1));
1071: END IF;
1072: forall i in l_update_det_rec.del_det_id_tab.first..l_update_det_rec.del_det_id_tab.last
1073: update wsh_delivery_details
1074: set requested_quantity = l_update_det_rec.requested_qty_tab(i),
1102: and delivery_detail_id = l_update_det_rec.del_det_id_tab(i);
1103:
1104:
1105: IF l_debug_on THEN
1106: WSH_DEBUG_SV.logmsg(l_module_name,'After the bulk update');
1107: WSH_DEBUG_SV.log(l_module_name,'Number of Records updated', SQL%ROWCOUNT);
1108: END IF;
1109:
1110: --
1103:
1104:
1105: IF l_debug_on THEN
1106: WSH_DEBUG_SV.logmsg(l_module_name,'After the bulk update');
1107: WSH_DEBUG_SV.log(l_module_name,'Number of Records updated', SQL%ROWCOUNT);
1108: END IF;
1109:
1110: --
1111: -- DBI Project
1112: -- Update of wsh_delivery_details where requested_quantity/released_status
1113: -- are changed, call DBI API after the update.
1114: -- DBI API will check if DBI is installed
1115: IF l_debug_on THEN
1116: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-',l_update_det_rec.del_det_id_tab.count);
1117: END IF;
1118: WSH_INTEGRATION.DBI_Update_Detail_Log
1119: (p_delivery_detail_id_tab => l_update_det_rec.del_det_id_tab,
1120: p_dml_type => 'UPDATE',
1120: p_dml_type => 'UPDATE',
1121: x_return_status => l_dbi_rs);
1122:
1123: IF l_debug_on THEN
1124: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1125: END IF;
1126: -- Only Handle Unexpected error
1127: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1128: x_return_status := l_dbi_rs;
1128: x_return_status := l_dbi_rs;
1129: ROLLBACK TO process_corrections_and_rtv;
1130: --
1131: IF l_debug_on THEN
1132: WSH_DEBUG_SV.pop(l_module_name);
1133: END IF;
1134: --
1135: RETURN;
1136: END IF;
1147: --
1148: -- Debug Statements
1149: --
1150: IF l_debug_on THEN
1151: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
1152: END IF;
1153: --
1154: l_unassign_action_prms.caller := wsh_util_core.C_IB_RECEIPT_PREFIX;
1155: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Multiple_Details(
1167: --
1168: -- Debug Statements
1169: --
1170: IF l_debug_on THEN
1171: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1172: END IF;
1173: --
1174: wsh_util_core.api_post_call(
1175: p_return_status => l_return_status,
1203: DELETE wsh_delivery_assignments_v
1204: WHERE delivery_detail_id = l_delete_lpn_id_tab(i);
1205:
1206: IF l_debug_on THEN
1207: WSH_DEBUG_SV.log(l_module_name,'SQL%ROWCOUNT After deleting LPNs from WDA',SQL%ROWCOUNT);
1208: END IF;
1209:
1210: --Deleting the rows in WSH_DELIVERY_DETAILS corresponding to the selected LPNs.
1211: FORALL i IN l_delete_lpn_id_tab.FIRST..l_delete_lpn_id_tab.LAST
1212: DELETE WSH_DELIVERY_DETAILS
1213: WHERE delivery_detail_id = l_delete_lpn_id_tab(i);
1214:
1215: IF l_debug_on THEN
1216: WSH_DEBUG_SV.log(l_module_name,'SQL%ROWCOUNT After deleting LPNs from WDD',SQL%ROWCOUNT);
1217: END IF;
1218: --}
1219: END IF;
1220:
1232: l_dd_list.delivery_detail_id(l_dd_list.delivery_detail_id.count) := l_unassign_det_tbl(i);
1233: --}
1234: END LOOP;
1235: IF l_debug_on THEN
1236: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PO_CMG_PVT.REAPPROVE_PO',WSH_DEBUG_SV.C_PROC_LEVEL);
1237: WSH_DEBUG_SV.log(l_module_name,'l_dd_list.COUNT',l_dd_list.po_shipment_line_id.COUNT);
1238: END IF;
1239: l_po_action_prms.action_code := 'CANCEL_ASN';
1240: l_po_action_prms.caller := 'WSH_RCV_CORR_RTV';
1233: --}
1234: END LOOP;
1235: IF l_debug_on THEN
1236: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PO_CMG_PVT.REAPPROVE_PO',WSH_DEBUG_SV.C_PROC_LEVEL);
1237: WSH_DEBUG_SV.log(l_module_name,'l_dd_list.COUNT',l_dd_list.po_shipment_line_id.COUNT);
1238: END IF;
1239: l_po_action_prms.action_code := 'CANCEL_ASN';
1240: l_po_action_prms.caller := 'WSH_RCV_CORR_RTV';
1241: IF (l_dd_list.po_shipment_line_id.COUNT > 0 ) THEN
1249: --
1250: -- Debug Statements
1251: --
1252: IF l_debug_on THEN
1253: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling Reapprove_PO is ', l_return_status);
1254: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1255: END IF;
1256: --
1257: wsh_util_core.api_post_call(
1250: -- Debug Statements
1251: --
1252: IF l_debug_on THEN
1253: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling Reapprove_PO is ', l_return_status);
1254: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1255: END IF;
1256: --
1257: wsh_util_core.api_post_call(
1258: p_return_status => l_return_status,
1268: --
1269: -- Debug Statements
1270: --
1271: IF l_debug_on THEN
1272: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
1273: END IF;
1274: --
1275: WSH_WV_UTILS.Detail_Weight_Volume(
1276: p_detail_rows => l_wv_detail_tab,
1280: --
1281: -- Debug Statements
1282: --
1283: IF l_debug_on THEN
1284: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1285: END IF;
1286: --
1287: wsh_util_core.api_post_call(
1288: p_return_status => l_return_status,
1297: --
1298: -- Debug Statements
1299: --
1300: IF l_debug_on THEN
1301: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
1302: END IF;
1303: --
1304: WSH_WV_UTILS.Delivery_Weight_Volume(
1305: p_del_rows => l_wv_recalc_del_id_tab,
1310: --
1311: -- Debug Statements
1312: --
1313: IF l_debug_on THEN
1314: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1315: END IF;
1316: --
1317: wsh_util_core.api_post_call(
1318: p_return_status => l_return_status,
1330: --
1331: -- Debug Statements
1332: --
1333: IF l_debug_on THEN
1334: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DELIVERY_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
1335: END IF;
1336: --
1337: WSH_WV_UTILS.Delivery_Weight_Volume(
1338: p_del_rows => l_delivery_id_tab,
1343: --
1344: -- Debug Statements
1345: --
1346: IF l_debug_on THEN
1347: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1348: END IF;
1349: --
1350: wsh_util_core.api_post_call(
1351: p_return_status => l_return_status,
1357: --
1358: -- Debug Statements
1359: --
1360: IF l_debug_on THEN
1361: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_LEGS_ACTIONS.MARK_REPRICE_REQUIRED',WSH_DEBUG_SV.C_PROC_LEVEL);
1362: END IF;
1363: --
1364: WSH_DELIVERY_LEGS_ACTIONS.Mark_Reprice_Required(
1365: p_entity_type => 'DELIVERY',
1369: --
1370: -- Debug Statements
1371: --
1372: IF l_debug_on THEN
1373: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1374: END IF;
1375: --
1376: wsh_util_core.api_post_call(
1377: p_return_status => l_return_status,
1381: --
1382: -- Debug Statements
1383: --
1384: IF l_debug_on THEN
1385: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_UTIL_PKG.RERATEDELIVERIES',WSH_DEBUG_SV.C_PROC_LEVEL);
1386: END IF;
1387: --
1388: WSH_INBOUND_UTIL_PKG.reRateDeliveries(
1389: p_delivery_id_tab => l_delivery_id_tab,
1391: --
1392: -- Debug Statements
1393: --
1394: IF l_debug_on THEN
1395: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1396: END IF;
1397: --
1398: wsh_util_core.api_post_call(
1399: p_return_status => l_return_status,
1407: --
1408: -- Debug Statements
1409: --
1410: IF l_debug_on THEN
1411: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1412: END IF;
1413: --
1414: wsh_util_core.get_cached_value(
1415: p_cache_tbl => l_po_line_loc_cache_tbl,
1428: --
1429: -- Debug Statements
1430: --
1431: IF l_debug_on THEN
1432: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1433: END IF;
1434: --
1435: wsh_util_core.get_cached_value(
1436: p_cache_tbl => l_po_line_loc_cache_tbl,
1442: --
1443: -- Debug Statements
1444: --
1445: IF l_debug_on THEN
1446: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling wsh_util_core.get_cached_value for put is',l_return_status);
1447: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1448: END IF;
1449: --
1450: wsh_util_core.api_post_call(
1443: -- Debug Statements
1444: --
1445: IF l_debug_on THEN
1446: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling wsh_util_core.get_cached_value for put is',l_return_status);
1447: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1448: END IF;
1449: --
1450: wsh_util_core.api_post_call(
1451: p_return_status => l_return_status,
1469: p_lock_flag => 'N',
1470: x_po_status_rec => l_po_status_rec,
1471: x_return_status => l_return_status);
1472: IF l_debug_on THEN
1473: WSH_DEBUG_SV.log(l_module_name,'l_index', l_index);
1474: WSH_DEBUG_SV.log(l_module_name,'return_status is', l_return_status);
1475: WSH_DEBUG_SV.log(l_module_name,'count of l_po_status_rec.closed_code', l_po_status_rec.closed_code.count);
1476: END IF;
1477: wsh_util_core.api_post_call(
1470: x_po_status_rec => l_po_status_rec,
1471: x_return_status => l_return_status);
1472: IF l_debug_on THEN
1473: WSH_DEBUG_SV.log(l_module_name,'l_index', l_index);
1474: WSH_DEBUG_SV.log(l_module_name,'return_status is', l_return_status);
1475: WSH_DEBUG_SV.log(l_module_name,'count of l_po_status_rec.closed_code', l_po_status_rec.closed_code.count);
1476: END IF;
1477: wsh_util_core.api_post_call(
1478: p_return_status => l_return_status,
1471: x_return_status => l_return_status);
1472: IF l_debug_on THEN
1473: WSH_DEBUG_SV.log(l_module_name,'l_index', l_index);
1474: WSH_DEBUG_SV.log(l_module_name,'return_status is', l_return_status);
1475: WSH_DEBUG_SV.log(l_module_name,'count of l_po_status_rec.closed_code', l_po_status_rec.closed_code.count);
1476: END IF;
1477: wsh_util_core.api_post_call(
1478: p_return_status => l_return_status,
1479: x_num_warnings => l_num_warnings,
1505: END IF;
1506: --}
1507: END IF;
1508: IF l_debug_on THEN
1509: WSH_DEBUG_SV.logmsg(l_module_name,'After checking for status');
1510: END IF;
1511: --}
1512: END IF;
1513:
1524: --
1525: -- Debug Statements
1526: --
1527: IF l_debug_on THEN
1528: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling Post_Process',l_return_status);
1529: WSH_DEBUG_SV.pop(l_module_name);
1530: END IF;
1531: --
1532: EXCEPTION
1525: -- Debug Statements
1526: --
1527: IF l_debug_on THEN
1528: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling Post_Process',l_return_status);
1529: WSH_DEBUG_SV.pop(l_module_name);
1530: END IF;
1531: --
1532: EXCEPTION
1533: --{
1537: --
1538: -- Debug Statements
1539: --
1540: IF l_debug_on THEN
1541: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1542: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1543: END IF;
1544: --
1545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1538: -- Debug Statements
1539: --
1540: IF l_debug_on THEN
1541: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1542: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1543: END IF;
1544: --
1545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1546: ROLLBACK TO process_corrections_and_rtv;
1548: --
1549: -- Debug Statements
1550: --
1551: IF l_debug_on THEN
1552: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1553: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1554: END IF;
1555: --
1556: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1549: -- Debug Statements
1550: --
1551: IF l_debug_on THEN
1552: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1553: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1554: END IF;
1555: --
1556: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1557: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1558: --
1559: -- Debug Statements
1560: --
1561: IF l_debug_on THEN
1562: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1563: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1564: END IF;
1565: --
1566: WHEN OTHERS THEN
1559: -- Debug Statements
1560: --
1561: IF l_debug_on THEN
1562: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1563: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1564: END IF;
1565: --
1566: WHEN OTHERS THEN
1567: ROLLBACK TO process_corrections_and_rtv;
1571: --
1572: -- Debug Statements
1573: --
1574: IF l_debug_on THEN
1575: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1577: END IF;
1578: --
1579: END process_corrections_and_rtv;
1572: -- Debug Statements
1573: --
1574: IF l_debug_on THEN
1575: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1576: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1577: END IF;
1578: --
1579: END process_corrections_and_rtv;
1580:
1753: l_debug_on := WSH_DEBUG_INTERFACE.g_debug;
1754: --
1755: IF l_debug_on IS NULL
1756: THEN
1757: l_debug_on := WSH_DEBUG_SV.is_debug_enabled;
1758: END IF;
1759: --
1760: --
1761: -- Debug Statements
1760: --
1761: -- Debug Statements
1762: --
1763: IF l_debug_on THEN
1764: WSH_DEBUG_SV.push(l_module_name);
1765: WSH_DEBUG_SV.log(l_module_name,'Remaining Requested Quantity is', p_rem_req_qty_rec.requested_quantity);
1766: WSH_DEBUG_SV.log(l_module_name,'po line location id', p_rem_req_qty_rec.po_line_location_id);
1767: WSH_DEBUG_SV.log(l_module_name,'po line id', p_rem_req_qty_rec.po_line_id);
1768: END IF;
1761: -- Debug Statements
1762: --
1763: IF l_debug_on THEN
1764: WSH_DEBUG_SV.push(l_module_name);
1765: WSH_DEBUG_SV.log(l_module_name,'Remaining Requested Quantity is', p_rem_req_qty_rec.requested_quantity);
1766: WSH_DEBUG_SV.log(l_module_name,'po line location id', p_rem_req_qty_rec.po_line_location_id);
1767: WSH_DEBUG_SV.log(l_module_name,'po line id', p_rem_req_qty_rec.po_line_id);
1768: END IF;
1769: --
1762: --
1763: IF l_debug_on THEN
1764: WSH_DEBUG_SV.push(l_module_name);
1765: WSH_DEBUG_SV.log(l_module_name,'Remaining Requested Quantity is', p_rem_req_qty_rec.requested_quantity);
1766: WSH_DEBUG_SV.log(l_module_name,'po line location id', p_rem_req_qty_rec.po_line_location_id);
1767: WSH_DEBUG_SV.log(l_module_name,'po line id', p_rem_req_qty_rec.po_line_id);
1768: END IF;
1769: --
1770: SAVEPOINT PR_REM_REQ_QTY;
1763: IF l_debug_on THEN
1764: WSH_DEBUG_SV.push(l_module_name);
1765: WSH_DEBUG_SV.log(l_module_name,'Remaining Requested Quantity is', p_rem_req_qty_rec.requested_quantity);
1766: WSH_DEBUG_SV.log(l_module_name,'po line location id', p_rem_req_qty_rec.po_line_location_id);
1767: WSH_DEBUG_SV.log(l_module_name,'po line id', p_rem_req_qty_rec.po_line_id);
1768: END IF;
1769: --
1770: SAVEPOINT PR_REM_REQ_QTY;
1771: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1791: --}
1792: END IF;
1793:
1794: IF l_debug_on THEN
1795: WSH_DEBUG_SV.log(l_module_name,'count of update rec tables is', l_update_rec.del_det_id_tab.COUNT);
1796: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
1797: END IF;
1798: IF (l_update_rec.del_det_id_tab.COUNT < 1 ) THEN
1799: --{
1792: END IF;
1793:
1794: IF l_debug_on THEN
1795: WSH_DEBUG_SV.log(l_module_name,'count of update rec tables is', l_update_rec.del_det_id_tab.COUNT);
1796: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
1797: END IF;
1798: IF (l_update_rec.del_det_id_tab.COUNT < 1 ) THEN
1799: --{
1800: l_record_found := FALSE;
1806: --
1807: -- Debug Statements
1808: --
1809: IF l_debug_on THEN
1810: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_INBOUND_UTIL_PKG.GET_PO_RCV_ATTRIBUTES',WSH_DEBUG_SV.C_PROC_LEVEL);
1811: END IF;
1812: --
1813: WSH_INBOUND_UTIL_PKG.get_po_rcv_attributes(
1814: p_po_line_location_id => p_rem_req_qty_rec.po_line_location_id,
1818: --
1819: -- Debug Statements
1820: --
1821: IF l_debug_on THEN
1822: WSH_DEBUG_SV.log(l_module_name,'return status after calling get_po_rcv_attributes', l_return_status);
1823: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1824: END IF;
1825: --
1826: wsh_util_core.api_post_call(
1819: -- Debug Statements
1820: --
1821: IF l_debug_on THEN
1822: WSH_DEBUG_SV.log(l_module_name,'return status after calling get_po_rcv_attributes', l_return_status);
1823: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1824: END IF;
1825: --
1826: wsh_util_core.api_post_call(
1827: p_return_status => l_return_status,
1827: p_return_status => l_return_status,
1828: x_num_warnings => l_num_warnings,
1829: x_num_errors => l_num_errors);
1830: IF l_debug_on THEN
1831: WSH_DEBUG_SV.log(l_module_name,'Before assigning the consolidate quantity', l_new_req_qty);
1832: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
1833: WSH_DEBUG_SV.log(l_module_name,'req qty uom', p_rem_req_qty_rec.requested_quantity_uom);
1834: WSH_DEBUG_SV.log(l_module_name,'req qty uom 2', p_rem_req_qty_rec.requested_quantity2_uom);
1835: END IF;
1828: x_num_warnings => l_num_warnings,
1829: x_num_errors => l_num_errors);
1830: IF l_debug_on THEN
1831: WSH_DEBUG_SV.log(l_module_name,'Before assigning the consolidate quantity', l_new_req_qty);
1832: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
1833: WSH_DEBUG_SV.log(l_module_name,'req qty uom', p_rem_req_qty_rec.requested_quantity_uom);
1834: WSH_DEBUG_SV.log(l_module_name,'req qty uom 2', p_rem_req_qty_rec.requested_quantity2_uom);
1835: END IF;
1836: l_line_rec.consolidate_quantity.extend;
1829: x_num_errors => l_num_errors);
1830: IF l_debug_on THEN
1831: WSH_DEBUG_SV.log(l_module_name,'Before assigning the consolidate quantity', l_new_req_qty);
1832: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
1833: WSH_DEBUG_SV.log(l_module_name,'req qty uom', p_rem_req_qty_rec.requested_quantity_uom);
1834: WSH_DEBUG_SV.log(l_module_name,'req qty uom 2', p_rem_req_qty_rec.requested_quantity2_uom);
1835: END IF;
1836: l_line_rec.consolidate_quantity.extend;
1837: l_line_rec.consolidate_quantity(1) := l_new_req_qty;
1830: IF l_debug_on THEN
1831: WSH_DEBUG_SV.log(l_module_name,'Before assigning the consolidate quantity', l_new_req_qty);
1832: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
1833: WSH_DEBUG_SV.log(l_module_name,'req qty uom', p_rem_req_qty_rec.requested_quantity_uom);
1834: WSH_DEBUG_SV.log(l_module_name,'req qty uom 2', p_rem_req_qty_rec.requested_quantity2_uom);
1835: END IF;
1836: l_line_rec.consolidate_quantity.extend;
1837: l_line_rec.consolidate_quantity(1) := l_new_req_qty;
1838: l_line_rec.requested_quantity_uom(1) := p_rem_req_qty_rec.requested_quantity_uom;
1843: --
1844: -- Debug Statements
1845: --
1846: IF l_debug_on THEN
1847: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_PO_CMG_PVT.REAPPROVE_PO',WSH_DEBUG_SV.C_PROC_LEVEL);
1848: END IF;
1849: --
1850: WSH_PO_CMG_PVT.reapprove_po(
1851: p_line_rec => l_line_rec,
1853: p_dd_list => l_dd_list,
1854: x_return_status => l_return_status);
1855: --
1856: IF l_debug_on THEN
1857: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling reapprove_po is', l_return_status);
1858: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1859: END IF;
1860: --
1861: wsh_util_core.api_post_call(
1854: x_return_status => l_return_status);
1855: --
1856: IF l_debug_on THEN
1857: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling reapprove_po is', l_return_status);
1858: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1859: END IF;
1860: --
1861: wsh_util_core.api_post_call(
1862: p_return_status => l_return_status,
1869: WHILE i is not null AND l_new_req_qty < 0 LOOP
1870: --{
1871:
1872: IF l_debug_on THEN
1873: WSH_DEBUG_SV.log(l_module_name,'i is', i);
1874: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id', l_update_rec.del_det_id_tab(i));
1875: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
1876: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ', l_update_rec.requested_qty_tab(i));
1877: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
1870: --{
1871:
1872: IF l_debug_on THEN
1873: WSH_DEBUG_SV.log(l_module_name,'i is', i);
1874: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id', l_update_rec.del_det_id_tab(i));
1875: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
1876: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ', l_update_rec.requested_qty_tab(i));
1877: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
1878: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty 2', l_update_rec.requested_qty2_tab(i));
1871:
1872: IF l_debug_on THEN
1873: WSH_DEBUG_SV.log(l_module_name,'i is', i);
1874: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id', l_update_rec.del_det_id_tab(i));
1875: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
1876: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ', l_update_rec.requested_qty_tab(i));
1877: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
1878: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty 2', l_update_rec.requested_qty2_tab(i));
1879: END IF;
1872: IF l_debug_on THEN
1873: WSH_DEBUG_SV.log(l_module_name,'i is', i);
1874: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id', l_update_rec.del_det_id_tab(i));
1875: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
1876: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ', l_update_rec.requested_qty_tab(i));
1877: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
1878: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty 2', l_update_rec.requested_qty2_tab(i));
1879: END IF;
1880:
1873: WSH_DEBUG_SV.log(l_module_name,'i is', i);
1874: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id', l_update_rec.del_det_id_tab(i));
1875: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
1876: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ', l_update_rec.requested_qty_tab(i));
1877: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
1878: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty 2', l_update_rec.requested_qty2_tab(i));
1879: END IF;
1880:
1881: l_update_rec.record_changed_flag_tab (i) := 'N';
1874: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id', l_update_rec.del_det_id_tab(i));
1875: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
1876: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ', l_update_rec.requested_qty_tab(i));
1877: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
1878: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty 2', l_update_rec.requested_qty2_tab(i));
1879: END IF;
1880:
1881: l_update_rec.record_changed_flag_tab (i) := 'N';
1882: IF l_update_rec.requested_qty_tab(i) > abs(l_new_req_qty) THEN
1907: --
1908: -- Debug Statements
1909: --
1910: IF l_debug_on THEN
1911: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.LOCK_DETAIL_NO_COMPARE',WSH_DEBUG_SV.C_PROC_LEVEL);
1912: END IF;
1913: --
1914: wsh_delivery_details_pkg.Lock_Detail_No_Compare(
1915: p_delivery_detail_id => l_update_rec.del_det_id_tab(i));
1914: wsh_delivery_details_pkg.Lock_Detail_No_Compare(
1915: p_delivery_detail_id => l_update_rec.del_det_id_tab(i));
1916:
1917: IF l_debug_on THEN
1918: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
1919: END IF;
1920:
1921: wsh_delivery_details_pkg.delete_delivery_details(
1922: p_delivery_detail_id => l_update_rec.del_det_id_tab(i),
1924: --
1925: -- Debug Statements
1926: --
1927: IF l_debug_on THEN
1928: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1929: END IF;
1930: --
1931: wsh_util_core.api_post_call(
1932: p_return_status => l_return_status,
1947:
1948: --}
1949: END IF;
1950: IF l_debug_on THEN
1951: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty at the end of processing the current record ', l_new_req_qty);
1952: WSH_DEBUG_SV.log(l_module_name,'Record Changed flag for the current record is', l_update_rec.record_changed_flag_tab(i));
1953: END IF;
1954:
1955: i := l_update_rec.del_det_id_tab.NEXT(i);
1948: --}
1949: END IF;
1950: IF l_debug_on THEN
1951: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty at the end of processing the current record ', l_new_req_qty);
1952: WSH_DEBUG_SV.log(l_module_name,'Record Changed flag for the current record is', l_update_rec.record_changed_flag_tab(i));
1953: END IF;
1954:
1955: i := l_update_rec.del_det_id_tab.NEXT(i);
1956: /*
1962: */
1963: --}
1964: END LOOP;
1965: IF l_debug_on THEN
1966: WSH_DEBUG_SV.logmsg(l_module_name,'Before performing the update');
1967: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ', l_update_del_det_id);
1968: END IF;
1969:
1970: IF l_update_del_det_id IS NOT NULL THEN
1963: --}
1964: END LOOP;
1965: IF l_debug_on THEN
1966: WSH_DEBUG_SV.logmsg(l_module_name,'Before performing the update');
1967: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id is ', l_update_del_det_id);
1968: END IF;
1969:
1970: IF l_update_del_det_id IS NOT NULL THEN
1971: --{
1969:
1970: IF l_update_del_det_id IS NOT NULL THEN
1971: --{
1972: IF l_debug_on THEN
1973: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_PKG.LOCK_DETAIL_NO_COMPARE',WSH_DEBUG_SV.C_PROC_LEVEL);
1974: END IF;
1975: --
1976: wsh_delivery_details_pkg.Lock_Detail_No_Compare(
1977: p_delivery_detail_id => l_update_del_det_id);
1983: last_updated_by = fnd_global.user_id,
1984: last_update_login = fnd_global.user_id
1985: where delivery_detail_id = l_update_del_det_id;
1986: IF l_debug_on THEN
1987: WSH_DEBUG_SV.logmsg(l_module_name,'After the update');
1988: END IF;
1989: --
1990: l_update_del_det_id_tab(1) := l_update_del_det_id;
1991:
1994: -- Update of wsh_delivery_details where requested_quantity/released_status
1995: -- are changed, call DBI API after the update.
1996: -- DBI API will check if DBI is installed
1997: IF l_debug_on THEN
1998: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-', l_update_del_det_id_tab.count);
1999: END IF;
2000: WSH_INTEGRATION.DBI_Update_Detail_Log
2001: (p_delivery_detail_id_tab => l_update_del_det_id_tab,
2002: p_dml_type => 'UPDATE',
2002: p_dml_type => 'UPDATE',
2003: x_return_status => l_dbi_rs);
2004:
2005: IF l_debug_on THEN
2006: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2007: END IF;
2008: -- Only Handle Unexpected error
2009: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2010: --
2010: --
2011: x_return_status := l_dbi_rs;
2012: ROLLBACK TO PR_REM_REQ_QTY;
2013: IF l_debug_on THEN
2014: WSH_DEBUG_SV.pop(l_module_name);
2015: END IF;
2016: --
2017: RETURN;
2018: END IF;
2021: --
2022: -- Debug Statements
2023: --
2024: IF l_debug_on THEN
2025: WSH_DEBUG_SV.log(l_module_name,'Need to recalculate weight and volume for del detail --- ',l_update_del_det_id);
2026: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
2027: END IF;
2028: --
2029: WSH_WV_UTILS.Detail_Weight_Volume(
2022: -- Debug Statements
2023: --
2024: IF l_debug_on THEN
2025: WSH_DEBUG_SV.log(l_module_name,'Need to recalculate weight and volume for del detail --- ',l_update_del_det_id);
2026: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
2027: END IF;
2028: --
2029: WSH_WV_UTILS.Detail_Weight_Volume(
2030: p_detail_rows => l_update_del_det_id_tab,
2034: --
2035: -- Debug Statements
2036: --
2037: IF l_debug_on THEN
2038: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2039: END IF;
2040: --
2041: wsh_util_core.api_post_call(
2042: p_return_status => l_return_status,
2067: l_update_rec.requested_qty2_tab,
2068: l_update_rec.record_changed_flag_tab;
2069: close l_rem_ret_qty_csr;
2070: IF l_debug_on THEN
2071: WSH_DEBUG_SV.log(l_module_name,'Need to recalculate weight and volume for del detail --- ',l_update_del_det_id);
2072: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
2073: END IF;
2074: -- This loop is exact repetition (except for the deletes) of the above loop
2075: -- but since this is just to take care of a corner
2068: l_update_rec.record_changed_flag_tab;
2069: close l_rem_ret_qty_csr;
2070: IF l_debug_on THEN
2071: WSH_DEBUG_SV.log(l_module_name,'Need to recalculate weight and volume for del detail --- ',l_update_del_det_id);
2072: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_WV_UTILS.DETAIL_WEIGHT_VOLUME',WSH_DEBUG_SV.C_PROC_LEVEL);
2073: END IF;
2074: -- This loop is exact repetition (except for the deletes) of the above loop
2075: -- but since this is just to take care of a corner
2076: -- case, we are repeating the code.
2079: WHILE i is not null AND l_new_req_qty < 0 LOOP
2080: --{
2081:
2082: IF l_debug_on THEN
2083: WSH_DEBUG_SV.log(l_module_name,'i is', i);
2084: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id ('||i||')', l_update_rec.del_det_id_tab(i));
2085: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
2086: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ('||i||')', l_update_rec.requested_qty_tab(i));
2087: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
2080: --{
2081:
2082: IF l_debug_on THEN
2083: WSH_DEBUG_SV.log(l_module_name,'i is', i);
2084: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id ('||i||')', l_update_rec.del_det_id_tab(i));
2085: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
2086: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ('||i||')', l_update_rec.requested_qty_tab(i));
2087: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
2088: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty 2 ('||i||')', l_update_rec.requested_qty2_tab(i));
2081:
2082: IF l_debug_on THEN
2083: WSH_DEBUG_SV.log(l_module_name,'i is', i);
2084: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id ('||i||')', l_update_rec.del_det_id_tab(i));
2085: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
2086: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ('||i||')', l_update_rec.requested_qty_tab(i));
2087: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
2088: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty 2 ('||i||')', l_update_rec.requested_qty2_tab(i));
2089: END IF;
2082: IF l_debug_on THEN
2083: WSH_DEBUG_SV.log(l_module_name,'i is', i);
2084: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id ('||i||')', l_update_rec.del_det_id_tab(i));
2085: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
2086: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ('||i||')', l_update_rec.requested_qty_tab(i));
2087: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
2088: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty 2 ('||i||')', l_update_rec.requested_qty2_tab(i));
2089: END IF;
2090:
2083: WSH_DEBUG_SV.log(l_module_name,'i is', i);
2084: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id ('||i||')', l_update_rec.del_det_id_tab(i));
2085: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
2086: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ('||i||')', l_update_rec.requested_qty_tab(i));
2087: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
2088: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty 2 ('||i||')', l_update_rec.requested_qty2_tab(i));
2089: END IF;
2090:
2091: IF l_update_rec.requested_qty_tab(i) > abs(l_new_req_qty) THEN
2084: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Id ('||i||')', l_update_rec.del_det_id_tab(i));
2085: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty', l_new_req_qty);
2086: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty ('||i||')', l_update_rec.requested_qty_tab(i));
2087: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty2', l_new_req_qty2);
2088: WSH_DEBUG_SV.log(l_module_name,'Delivery Detail Req Qty 2 ('||i||')', l_update_rec.requested_qty2_tab(i));
2089: END IF;
2090:
2091: IF l_update_rec.requested_qty_tab(i) > abs(l_new_req_qty) THEN
2092: --{
2131:
2132: --}
2133: END IF;
2134: IF l_debug_on THEN
2135: WSH_DEBUG_SV.log(l_module_name,'l_new_req_qty at the end of processing the current record ', l_new_req_qty);
2136: END IF;
2137:
2138: i := l_update_rec.del_det_id_tab.NEXT(i);
2139: --}
2153: and nvl(l_update_rec.record_changed_flag_tab(i), 'N') = 'Y';
2154: --
2155: --
2156: IF l_debug_on THEN
2157: WSH_DEBUG_SV.logmsg(l_module_name,'After the bulk update');
2158: WSH_DEBUG_SV.log(l_module_name,'Number of Records updated', SQL%ROWCOUNT);
2159: END IF;
2160: --
2161: -- DBI Project
2154: --
2155: --
2156: IF l_debug_on THEN
2157: WSH_DEBUG_SV.logmsg(l_module_name,'After the bulk update');
2158: WSH_DEBUG_SV.log(l_module_name,'Number of Records updated', SQL%ROWCOUNT);
2159: END IF;
2160: --
2161: -- DBI Project
2162: -- Update of wsh_delivery_details where requested_quantity/released_status
2162: -- Update of wsh_delivery_details where requested_quantity/released_status
2163: -- are changed, call DBI API after the update.
2164: -- DBI API will check if DBI is installed
2165: IF l_debug_on THEN
2166: WSH_DEBUG_SV.log(l_module_name,'Calling DBI API.Detail Count-', l_update_rec.del_det_id_tab.count);
2167: END IF;
2168: WSH_INTEGRATION.DBI_Update_Detail_Log
2169: (p_delivery_detail_id_tab => l_update_rec.del_det_id_tab,
2170: p_dml_type => 'UPDATE',
2170: p_dml_type => 'UPDATE',
2171: x_return_status => l_dbi_rs);
2172:
2173: IF l_debug_on THEN
2174: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2175: END IF;
2176: -- Only Handle Unexpected error
2177: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2178: x_return_status := l_dbi_rs;
2178: x_return_status := l_dbi_rs;
2179: --
2180: ROLLBACK TO PR_REM_REQ_QTY;
2181: IF l_debug_on THEN
2182: WSH_DEBUG_SV.pop(l_module_name);
2183: END IF;
2184: --
2185: RETURN;
2186: END IF;
2204: --
2205: -- Debug Statements
2206: --
2207: IF l_debug_on THEN
2208: WSH_DEBUG_SV.pop(l_module_name);
2209: END IF;
2210: --
2211: EXCEPTION
2212: --{
2216: -- need to change the message
2217: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_LINES_LOCKED');
2218: wsh_util_core.add_message(x_return_status,l_module_name);
2219: IF l_debug_on THEN
2220: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2221: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2222: END IF;
2223: --
2224: WHEN FND_API.G_EXC_ERROR THEN
2217: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_LINES_LOCKED');
2218: wsh_util_core.add_message(x_return_status,l_module_name);
2219: IF l_debug_on THEN
2220: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2221: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2222: END IF;
2223: --
2224: WHEN FND_API.G_EXC_ERROR THEN
2225: ROLLBACK TO PR_REM_REQ_QTY;
2227: --
2228: -- Debug Statements
2229: --
2230: IF l_debug_on THEN
2231: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2232: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2233: END IF;
2234: --
2235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2228: -- Debug Statements
2229: --
2230: IF l_debug_on THEN
2231: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2232: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2233: END IF;
2234: --
2235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2236: ROLLBACK TO PR_REM_REQ_QTY;
2238: --
2239: -- Debug Statements
2240: --
2241: IF l_debug_on THEN
2242: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2243: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2244: END IF;
2245: --
2246: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2239: -- Debug Statements
2240: --
2241: IF l_debug_on THEN
2242: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2243: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2244: END IF;
2245: --
2246: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2247: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2248: --
2249: -- Debug Statements
2250: --
2251: IF l_debug_on THEN
2252: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2253: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2254: END IF;
2255: --
2256: WHEN OTHERS THEN
2249: -- Debug Statements
2250: --
2251: IF l_debug_on THEN
2252: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2253: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2254: END IF;
2255: --
2256: WHEN OTHERS THEN
2257: ROLLBACK TO PR_REM_REQ_QTY;
2261: --
2262: -- Debug Statements
2263: --
2264: IF l_debug_on THEN
2265: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2266: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2267: END IF;
2268: --
2269: END process_remaining_req_quantity;
2262: -- Debug Statements
2263: --
2264: IF l_debug_on THEN
2265: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
2266: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
2267: END IF;
2268: --
2269: END process_remaining_req_quantity;
2270: