[Home] [Help]
9: G_PKG_NAME CONSTANT VARCHAR2(50) := 'WSH_RCV_CORR_RTV_TXN_PKG';
10: --
11: --
12: -- the following variables are defined for caching the delivery id
13: g_del_cache_tbl wsh_util_core.key_value_tab_type;
14: g_del_ext_cache_tbl wsh_util_core.key_value_tab_type;
15:
16: -- the following variables are defined for caching the lpns that need to
17: -- deleted
10: --
11: --
12: -- the following variables are defined for caching the delivery id
13: g_del_cache_tbl wsh_util_core.key_value_tab_type;
14: g_del_ext_cache_tbl wsh_util_core.key_value_tab_type;
15:
16: -- the following variables are defined for caching the lpns that need to
17: -- deleted
18: g_unassgin_lpn_cache_tbl wsh_util_core.key_value_tab_type;
14: g_del_ext_cache_tbl wsh_util_core.key_value_tab_type;
15:
16: -- the following variables are defined for caching the lpns that need to
17: -- deleted
18: g_unassgin_lpn_cache_tbl wsh_util_core.key_value_tab_type;
19: g_unassgin_lpn_ext_cache_tbl wsh_util_core.key_value_tab_type;
20: --
21: --
22: --===================
15:
16: -- the following variables are defined for caching the lpns that need to
17: -- deleted
18: g_unassgin_lpn_cache_tbl wsh_util_core.key_value_tab_type;
19: g_unassgin_lpn_ext_cache_tbl wsh_util_core.key_value_tab_type;
20: --
21: --
22: --===================
23: -- PROCEDURES
75: p_matched_detail_index IN NUMBER,
76: x_update_det_rec IN OUT NOCOPY update_detail_rec_type,
77: p_update_det_rec_idx IN NUMBER,
78: x_rem_req_qty_rec IN OUT NOCOPY rem_req_qty_rec_type,
79: x_unassign_det_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
80: x_po_line_loc_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
81: x_delivery_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
82: x_wv_detail_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
83: x_unassigned_lpn_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
76: x_update_det_rec IN OUT NOCOPY update_detail_rec_type,
77: p_update_det_rec_idx IN NUMBER,
78: x_rem_req_qty_rec IN OUT NOCOPY rem_req_qty_rec_type,
79: x_unassign_det_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
80: x_po_line_loc_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
81: x_delivery_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
82: x_wv_detail_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
83: x_unassigned_lpn_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
84: x_wv_recalc_del_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
77: p_update_det_rec_idx IN NUMBER,
78: x_rem_req_qty_rec IN OUT NOCOPY rem_req_qty_rec_type,
79: x_unassign_det_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
80: x_po_line_loc_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
81: x_delivery_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
82: x_wv_detail_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
83: x_unassigned_lpn_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
84: x_wv_recalc_del_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
85: x_return_status OUT NOCOPY VARCHAR2)
78: x_rem_req_qty_rec IN OUT NOCOPY rem_req_qty_rec_type,
79: x_unassign_det_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
80: x_po_line_loc_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
81: x_delivery_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
82: x_wv_detail_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
83: x_unassigned_lpn_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
84: x_wv_recalc_del_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
85: x_return_status OUT NOCOPY VARCHAR2)
86: IS
79: x_unassign_det_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
80: x_po_line_loc_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
81: x_delivery_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
82: x_wv_detail_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
83: x_unassigned_lpn_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
84: x_wv_recalc_del_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
85: x_return_status OUT NOCOPY VARCHAR2)
86: IS
87: --{
80: x_po_line_loc_tbl IN OUT NOCOPY wsh_util_core.id_tab_type,
81: x_delivery_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
82: x_wv_detail_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
83: x_unassigned_lpn_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
84: x_wv_recalc_del_id_tab IN OUT NOCOPY wsh_util_core.id_tab_type,
85: x_return_status OUT NOCOPY VARCHAR2)
86: IS
87: --{
88:
86: IS
87: --{
88:
89: l_child_index NUMBER;
90: l_det_id_tab wsh_util_core.id_tab_type;
91: l_det_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
92: l_det_action_out_rec WSH_GLBL_VAR_STRCT_GRP.DD_ACTION_OUT_REC_TYPE;
93: l_return_status VARCHAR2(1);
94: l_num_errors NUMBER;
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;
169: IF x_matched_detail_rec.received_qty_tab(p_matched_detail_index) < 0 THEN
170: --{
171: FND_MESSAGE.SET_NAME('WSH','WSH_UI_NEGATIVE_QTY');
172: x_return_status := wsh_util_core.g_ret_sts_error;
168: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
169: IF x_matched_detail_rec.received_qty_tab(p_matched_detail_index) < 0 THEN
170: --{
171: FND_MESSAGE.SET_NAME('WSH','WSH_UI_NEGATIVE_QTY');
172: x_return_status := wsh_util_core.g_ret_sts_error;
173: wsh_util_core.add_message(x_return_status, l_module_name);
174: RAISE FND_API.G_EXC_ERROR;
175: --}
176: END IF;
169: IF x_matched_detail_rec.received_qty_tab(p_matched_detail_index) < 0 THEN
170: --{
171: FND_MESSAGE.SET_NAME('WSH','WSH_UI_NEGATIVE_QTY');
172: x_return_status := wsh_util_core.g_ret_sts_error;
173: wsh_util_core.add_message(x_return_status, l_module_name);
174: RAISE FND_API.G_EXC_ERROR;
175: --}
176: END IF;
177: IF nvl(x_matched_detail_rec.received_qty_db_tab(p_matched_detail_index),0) > nvl(x_matched_detail_rec.received_qty_tab(p_matched_detail_index),0) THEN
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,
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,
214: p_cache_ext_tbl => g_unassgin_lpn_ext_cache_tbl,
215: p_value => l_unassigned_lpn_id,
216: p_key => l_unassigned_lpn_id,
216: p_key => l_unassigned_lpn_id,
217: p_action => 'GET',
218: x_return_status => l_return_status);
219:
220: IF l_return_status IN (wsh_util_core.g_ret_sts_error, wsh_util_core.g_ret_sts_unexp_error) THEN
221: RAISE FND_API.G_EXC_ERROR;
222: END IF;
223:
224: IF (l_return_status = wsh_util_core.g_ret_sts_warning) THEN
220: IF l_return_status IN (wsh_util_core.g_ret_sts_error, wsh_util_core.g_ret_sts_unexp_error) THEN
221: RAISE FND_API.G_EXC_ERROR;
222: END IF;
223:
224: IF (l_return_status = wsh_util_core.g_ret_sts_warning) THEN
225: --{
226: --
227: -- Debug Statements
228: --
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,
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,
235: p_cache_ext_tbl => g_unassgin_lpn_ext_cache_tbl,
236: p_value => l_unassigned_lpn_id,
237: p_key => l_unassigned_lpn_id,
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,
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,
251: x_num_warnings => l_num_warnings,
252: x_num_errors => l_num_errors);
253:
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,
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,
389: p_cache_ext_tbl => g_del_ext_cache_tbl,
390: p_value => l_delivery_id,
391: p_key => l_delivery_id,
391: p_key => l_delivery_id,
392: p_action => 'GET',
393: x_return_status => l_return_status);
394:
395: IF l_return_status IN (wsh_util_core.g_ret_sts_error, wsh_util_core.g_ret_sts_unexp_error) THEN
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398:
399: IF (l_return_status = wsh_util_core.g_ret_sts_warning) THEN
395: IF l_return_status IN (wsh_util_core.g_ret_sts_error, wsh_util_core.g_ret_sts_unexp_error) THEN
396: RAISE FND_API.G_EXC_ERROR;
397: END IF;
398:
399: IF (l_return_status = wsh_util_core.g_ret_sts_warning) THEN
400: --{
401: --
402: -- Debug Statements
403: --
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,
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,
410: p_cache_ext_tbl => g_del_ext_cache_tbl,
411: p_value => l_delivery_id,
412: p_key => l_delivery_id,
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,
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,
426: x_num_warnings => l_num_warnings,
427: x_num_errors => l_num_errors);
428:
450: EXCEPTION
451: --{
452: WHEN FND_API.G_EXC_ERROR THEN
453: ROLLBACK TO PROCESS_RCV;
454: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
455: --
456: -- Debug Statements
457: --
458: IF l_debug_on THEN
461: END IF;
462: --
463: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
464: ROLLBACK TO PROCESS_RCV;
465: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
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
475: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
476: --
477: -- Debug Statements
478: --
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
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;
482: END IF;
483: --
484: WHEN OTHERS THEN
485: ROLLBACK TO PROCESS_RCV;
486: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
487: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.PROCESS_RCV');
488: --}
489: --
490: -- Debug Statements
483: --
484: WHEN OTHERS THEN
485: ROLLBACK TO PROCESS_RCV;
486: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
487: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.PROCESS_RCV');
488: --}
489: --
490: -- Debug Statements
491: --
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
574: --{
575: FND_MESSAGE.SET_NAME('WSH','WSH_UI_NEGATIVE_QTY');
576: x_return_status := wsh_util_core.g_ret_sts_error;
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
574: --{
575: FND_MESSAGE.SET_NAME('WSH','WSH_UI_NEGATIVE_QTY');
576: x_return_status := wsh_util_core.g_ret_sts_error;
577: wsh_util_core.add_message(x_return_status, l_module_name);
578: RAISE FND_API.G_EXC_ERROR;
579: --}
580: END IF;
573: IF x_matched_detail_rec.returned_qty_tab(p_matched_detail_index) < 0 THEN
574: --{
575: FND_MESSAGE.SET_NAME('WSH','WSH_UI_NEGATIVE_QTY');
576: x_return_status := wsh_util_core.g_ret_sts_error;
577: wsh_util_core.add_message(x_return_status, l_module_name);
578: RAISE FND_API.G_EXC_ERROR;
579: --}
580: END IF;
581: IF nvl(x_matched_detail_rec.returned_qty_db_tab(p_matched_detail_index),0) <> nvl(x_matched_detail_rec.returned_qty_tab(p_matched_detail_index),0) THEN
621: --
622: EXCEPTION
623: --{
624: WHEN FND_API.G_EXC_ERROR THEN
625: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
626: --
627: -- Debug Statements
628: --
629: IF l_debug_on THEN
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
645: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
646: --
647: -- Debug Statements
648: --
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
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 ;
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 ;
656: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.PROCESS_RTV');
657: --}
658: --
659: -- Debug Statements
652: END IF;
653: --
654: WHEN OTHERS THEN
655: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
656: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.PROCESS_RTV');
657: --}
658: --
659: -- Debug Statements
660: --
748:
749: l_prev_po_line_loc_id NUMBER;
750: l_prev_po_line_id NUMBER;
751:
752: l_delivery_id_tab wsh_util_core.id_tab_type;
753: l_fob_code_tab wsh_util_core.Column_tab_type;
754: l_fr_terms_code_tab wsh_util_core.Column_tab_type;
755:
756: l_return_status VARCHAR2(1);
749: l_prev_po_line_loc_id NUMBER;
750: l_prev_po_line_id NUMBER;
751:
752: l_delivery_id_tab wsh_util_core.id_tab_type;
753: l_fob_code_tab wsh_util_core.Column_tab_type;
754: l_fr_terms_code_tab wsh_util_core.Column_tab_type;
755:
756: l_return_status VARCHAR2(1);
757: l_msg_data VARCHAR2(32767);
750: l_prev_po_line_id NUMBER;
751:
752: l_delivery_id_tab wsh_util_core.id_tab_type;
753: l_fob_code_tab wsh_util_core.Column_tab_type;
754: l_fr_terms_code_tab wsh_util_core.Column_tab_type;
755:
756: l_return_status VARCHAR2(1);
757: l_msg_data VARCHAR2(32767);
758: l_msg_count NUMBER;
807: l_fob_code VARCHAR2(32767);
808: l_fr_terms_code VARCHAR2(32767);
809:
810: l_fob_fr_terms_csr_open_flag VARCHAR2(1) := 'N';
811: l_fob_fr_terms_changed_tab wsh_util_core.Column_tab_type;
812: i NUMBER;
813:
814:
815: l_unassign_det_tbl wsh_util_core.id_tab_type;
811: l_fob_fr_terms_changed_tab wsh_util_core.Column_tab_type;
812: i NUMBER;
813:
814:
815: l_unassign_det_tbl wsh_util_core.id_tab_type;
816: l_po_line_loc_tbl wsh_util_core.id_tab_type;
817: l_wv_detail_tab wsh_util_core.id_tab_type;
818:
819: -- cursor to check the lpns obtained from process_rcv
812: i NUMBER;
813:
814:
815: l_unassign_det_tbl wsh_util_core.id_tab_type;
816: l_po_line_loc_tbl wsh_util_core.id_tab_type;
817: l_wv_detail_tab wsh_util_core.id_tab_type;
818:
819: -- cursor to check the lpns obtained from process_rcv
820: -- still have any delivery lines in them or not.
813:
814:
815: l_unassign_det_tbl wsh_util_core.id_tab_type;
816: l_po_line_loc_tbl wsh_util_core.id_tab_type;
817: l_wv_detail_tab wsh_util_core.id_tab_type;
818:
819: -- cursor to check the lpns obtained from process_rcv
820: -- still have any delivery lines in them or not.
821: -- If they do not have any delivery lines, then
826: where parent_delivery_detail_id = p_del_det_id
827: and rownum=1;
828:
829: l_lpn_empty_flag VARCHAR2(10);
830: l_unassigned_lpn_id_tab wsh_util_core.id_tab_type;
831: l_delete_lpn_id_tab wsh_util_core.id_tab_type;
832: l_wv_recalc_del_id_tab wsh_util_core.id_tab_type;
833:
834: l_line_rec OE_WSH_BULK_GRP.line_rec_type;
827: and rownum=1;
828:
829: l_lpn_empty_flag VARCHAR2(10);
830: l_unassigned_lpn_id_tab wsh_util_core.id_tab_type;
831: l_delete_lpn_id_tab wsh_util_core.id_tab_type;
832: l_wv_recalc_del_id_tab wsh_util_core.id_tab_type;
833:
834: l_line_rec OE_WSH_BULK_GRP.line_rec_type;
835: -- the following variables are defined for caching the po line location id
828:
829: l_lpn_empty_flag VARCHAR2(10);
830: l_unassigned_lpn_id_tab wsh_util_core.id_tab_type;
831: l_delete_lpn_id_tab wsh_util_core.id_tab_type;
832: l_wv_recalc_del_id_tab wsh_util_core.id_tab_type;
833:
834: l_line_rec OE_WSH_BULK_GRP.line_rec_type;
835: -- the following variables are defined for caching the po line location id
836: l_po_line_loc_cache_tbl wsh_util_core.key_value_tab_type;
832: l_wv_recalc_del_id_tab wsh_util_core.id_tab_type;
833:
834: l_line_rec OE_WSH_BULK_GRP.line_rec_type;
835: -- the following variables are defined for caching the po line location id
836: l_po_line_loc_cache_tbl wsh_util_core.key_value_tab_type;
837: l_po_line_loc_ext_cache_tbl wsh_util_core.key_value_tab_type;
838:
839: --l_cancel_line_rec OE_WSH_BULK_GRP.line_rec_type;
840: --l_close_line_rec OE_WSH_BULK_GRP.line_rec_type;
833:
834: l_line_rec OE_WSH_BULK_GRP.line_rec_type;
835: -- the following variables are defined for caching the po line location id
836: l_po_line_loc_cache_tbl wsh_util_core.key_value_tab_type;
837: l_po_line_loc_ext_cache_tbl wsh_util_core.key_value_tab_type;
838:
839: --l_cancel_line_rec OE_WSH_BULK_GRP.line_rec_type;
840: --l_close_line_rec OE_WSH_BULK_GRP.line_rec_type;
841: l_action_prms WSH_BULK_TYPES_GRP.action_parameters_rectype;
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;
878:
879: --l_index := p_matched_detail_rec.del_detail_id_tab.first;
880: --l_prev_po_line_loc_id := p_matched_detail_rec.po_line_location_id_tab(l_index);
881: l_rem_req_qty_rec.requested_quantity := 0;
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,
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,
951: x_num_warnings => l_num_warnings,
952: x_num_errors => l_num_errors);
953:
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,
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,
986: x_num_warnings => l_num_warnings,
987: x_num_errors => l_num_errors);
988: --}
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,
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,
1011: x_num_warnings => l_num_warnings,
1012: x_num_errors => l_num_errors);
1013: --}
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,
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,
1050: x_num_warnings => l_num_warnings,
1051: x_num_errors => l_num_errors);
1052: l_rem_req_qty_rec.requested_quantity := 0;
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;
1129: ROLLBACK TO process_corrections_and_rtv;
1130: --
1131: IF l_debug_on THEN
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(
1156: P_REC_OF_DETAIL_IDS => l_unassign_det_tbl,
1157: P_FROM_delivery => 'Y',
1158: P_FROM_container => 'N',
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,
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,
1176: x_num_warnings => l_num_warnings,
1177: x_num_errors => l_num_errors);
1178:
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,
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,
1259: x_num_warnings => l_num_warnings,
1260: x_num_errors => l_num_errors);
1261: --
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,
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,
1289: x_num_warnings => l_num_warnings,
1290: x_num_errors => l_num_errors);
1291:
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,
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,
1319: x_num_warnings => l_num_warnings,
1320: x_num_errors => l_num_errors);
1321: --}
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,
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,
1352: x_num_warnings => l_num_warnings,
1353: x_num_errors => l_num_errors);
1354: */
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,
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,
1378: x_num_warnings => l_num_warnings,
1379: x_num_errors => l_num_errors);
1380:
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,
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,
1400: x_num_warnings => l_num_warnings,
1401: x_num_errors => l_num_errors);
1402: --}
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,
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,
1416: p_cache_ext_tbl => l_po_line_loc_ext_cache_tbl,
1417: p_value => p_matched_detail_rec.po_line_location_id_tab(l_index),
1418: p_key => p_matched_detail_rec.po_line_location_id_tab(l_index),
1418: p_key => p_matched_detail_rec.po_line_location_id_tab(l_index),
1419: p_action => 'GET',
1420: x_return_status => l_return_status);
1421:
1422: IF l_return_status IN (wsh_util_core.g_ret_sts_error, wsh_util_core.g_ret_sts_unexp_error) THEN
1423: RAISE FND_API.G_EXC_ERROR;
1424: END IF;
1425:
1426: IF (l_return_status = wsh_util_core.g_ret_sts_warning) THEN
1422: IF l_return_status IN (wsh_util_core.g_ret_sts_error, wsh_util_core.g_ret_sts_unexp_error) THEN
1423: RAISE FND_API.G_EXC_ERROR;
1424: END IF;
1425:
1426: IF (l_return_status = wsh_util_core.g_ret_sts_warning) THEN
1427: --{
1428: --
1429: -- Debug Statements
1430: --
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,
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,
1437: p_cache_ext_tbl => l_po_line_loc_ext_cache_tbl,
1438: p_value => p_matched_detail_rec.po_line_location_id_tab(l_index),
1439: p_key => p_matched_detail_rec.po_line_location_id_tab(l_index),
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,
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,
1452: x_num_warnings => l_num_warnings,
1453: x_num_errors => l_num_errors);
1454:
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,
1480: x_num_errors => l_num_errors);
1481: IF l_po_status_rec.closed_code.count > 0 THEN
1515: end loop;
1516: --
1517:
1518: IF l_num_warnings > 0 THEN
1519: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
1520: ELSE
1521: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1522: END IF;
1523: --}
1517:
1518: IF l_num_warnings > 0 THEN
1519: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
1520: ELSE
1521: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1522: END IF;
1523: --}
1524: --
1525: -- Debug Statements
1532: EXCEPTION
1533: --{
1534: WHEN FND_API.G_EXC_ERROR THEN
1535: ROLLBACK TO process_corrections_and_rtv;
1536: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1537: --
1538: -- Debug Statements
1539: --
1540: IF l_debug_on THEN
1543: END IF;
1544: --
1545: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1546: ROLLBACK TO process_corrections_and_rtv;
1547: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
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
1557: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1558: --
1559: -- Debug Statements
1560: --
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
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;
1564: END IF;
1565: --
1566: WHEN OTHERS THEN
1567: ROLLBACK TO process_corrections_and_rtv;
1568: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1569: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.PROCESS_CORRECTIONS_AND_RTV');
1570: --}
1571: --
1572: -- Debug Statements
1565: --
1566: WHEN OTHERS THEN
1567: ROLLBACK TO process_corrections_and_rtv;
1568: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1569: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.PROCESS_CORRECTIONS_AND_RTV');
1570: --}
1571: --
1572: -- Debug Statements
1573: --
1635: l_new_req_qty NUMBER := p_rem_req_qty_rec.requested_quantity;
1636: l_new_req_qty2 NUMBER := p_rem_req_qty_rec.requested_quantity2;
1637: l_update_rec update_detail_rec_type;
1638: l_update_del_det_id NUMBER;
1639: l_update_del_det_id_tab wsh_util_core.id_tab_type;
1640: l_update_del_det_req_qty NUMBER;
1641: l_update_del_det_req_qty2 NUMBER;
1642: l_record_found BOOLEAN := TRUE;
1643: l_num_errors NUMBER;
1652: l_ordered_quantity2 NUMBER;
1653: l_action_prms WSH_BULK_TYPES_GRP.action_parameters_rectype;
1654: l_line_rec OE_WSH_BULK_GRP.line_rec_type;
1655: l_out_rec WSH_BULK_TYPES_GRP.Bulk_process_out_rec_type;
1656: l_header_ids wsh_util_core.id_tab_type;
1657: l_dd_list WSH_PO_CMG_PVT.dd_list_type;
1658:
1659: l_po_line_rec PO_FTE_INTEGRATION_GRP.po_release_rec_type;
1660:
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;
1772: IF nvl(p_in_rec.action_code, 'MATCH') <> 'REVERT_MATCH' THEN
1773: --{
1774: open l_open_del_det_csr(p_rem_req_qty_rec.po_line_location_id,
1775: p_rem_req_qty_rec.po_line_id);
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,
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,
1828: x_num_warnings => l_num_warnings,
1829: x_num_errors => l_num_errors);
1830: IF l_debug_on THEN
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,
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,
1863: x_num_warnings => l_num_warnings,
1864: x_num_errors => l_num_errors);
1865: --}
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,
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,
1933: x_num_warnings => l_num_warnings,
1934: x_num_errors => l_num_errors);
1935:
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: --
2011: x_return_status := l_dbi_rs;
2012: ROLLBACK TO PR_REM_REQ_QTY;
2013: IF l_debug_on THEN
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,
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,
2043: x_num_warnings => l_num_warnings,
2044: x_num_errors => l_num_errors);
2045: --
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;
2179: --
2180: ROLLBACK TO PR_REM_REQ_QTY;
2181: IF l_debug_on THEN
2195: --}
2196: END IF;
2197: --
2198: IF l_num_warnings > 0 THEN
2199: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2200: ELSE
2201: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2202: END IF;
2203: --}
2197: --
2198: IF l_num_warnings > 0 THEN
2199: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2200: ELSE
2201: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2202: END IF;
2203: --}
2204: --
2205: -- Debug Statements
2211: EXCEPTION
2212: --{
2213: WHEN DD_LOCKED THEN
2214: ROLLBACK TO PR_REM_REQ_QTY;
2215: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
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
2214: ROLLBACK TO PR_REM_REQ_QTY;
2215: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
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;
2222: END IF;
2223: --
2224: WHEN FND_API.G_EXC_ERROR THEN
2225: ROLLBACK TO PR_REM_REQ_QTY;
2226: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2227: --
2228: -- Debug Statements
2229: --
2230: IF l_debug_on THEN
2233: END IF;
2234: --
2235: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2236: ROLLBACK TO PR_REM_REQ_QTY;
2237: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
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
2247: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2248: --
2249: -- Debug Statements
2250: --
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
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;
2254: END IF;
2255: --
2256: WHEN OTHERS THEN
2257: ROLLBACK TO PR_REM_REQ_QTY;
2258: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2259: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.PROCESS_REMAINING_REQ_QUANTITY');
2260: --}
2261: --
2262: -- Debug Statements
2255: --
2256: WHEN OTHERS THEN
2257: ROLLBACK TO PR_REM_REQ_QTY;
2258: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2259: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.PROCESS_REMAINING_REQ_QUANTITY');
2260: --}
2261: --
2262: -- Debug Statements
2263: --