[Home] [Help]
35: and wnd.delivery_id = wdl.delivery_id
36: and wdl.pick_up_stop_id = wts.stop_id
37: and wts.trip_id = wt.trip_id;
38:
39: l_trip_id_tab wsh_util_core.id_tab_type;
40: l_return_status VARCHAR2(1);
41: l_num_errors NUMBER := 0;
42: l_num_warnings NUMBER := 0;
43: i NUMBER;
67: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TYPE',P_TRANSACTION_TYPE);
68: END IF;
69: --
70: SAVEPOINT REVERT_TRIPS_GRP;
71: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
72: open l_trips_csr(p_shipment_header_id);
73: fetch l_trips_csr bulk collect into l_trip_id_tab;
74: close l_trips_csr;
75:
92: EXCEPTION
93: --{
94: WHEN FND_API.G_EXC_ERROR THEN
95: ROLLBACK TO REVERT_TRIPS_GRP;
96: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
97: --
98: -- Debug Statements
99: --
100: IF l_debug_on THEN
103: END IF;
104: --
105: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
106: ROLLBACK TO REVERT_TRIPS_GRP;
107: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
108: --
109: -- Debug Statements
110: --
111: IF l_debug_on THEN
112: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
113: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
114: END IF;
115: --
116: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
117: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
118: --
119: -- Debug Statements
120: --
113: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
114: END IF;
115: --
116: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
117: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
118: --
119: -- Debug Statements
120: --
121: IF l_debug_on THEN
118: --
119: -- Debug Statements
120: --
121: IF l_debug_on THEN
122: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
123: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
124: END IF;
125: --
126: WHEN OTHERS THEN
119: -- Debug Statements
120: --
121: IF l_debug_on THEN
122: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
123: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
124: END IF;
125: --
126: WHEN OTHERS THEN
127: ROLLBACK TO REVERT_TRIPS_GRP;
124: END IF;
125: --
126: WHEN OTHERS THEN
127: ROLLBACK TO REVERT_TRIPS_GRP;
128: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
129: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.REVERT_TRIPS', l_module_name);
130: --}
131: --
132: -- Debug Statements
125: --
126: WHEN OTHERS THEN
127: ROLLBACK TO REVERT_TRIPS_GRP;
128: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
129: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.REVERT_TRIPS', l_module_name);
130: --}
131: --
132: -- Debug Statements
133: --
173: -- to set the statuses of the corresponding trips and stops
174: -- corresponding to the new status of the deliveries.
175: --========================================================================
176: PROCEDURE revert_deliveries(
177: p_delivery_id_tab IN wsh_util_core.id_tab_type,
178: p_status_code_tab IN wsh_util_core.column_tab_type,
179: x_return_status OUT NOCOPY VARCHAR2)
180: IS
181: --{
174: -- corresponding to the new status of the deliveries.
175: --========================================================================
176: PROCEDURE revert_deliveries(
177: p_delivery_id_tab IN wsh_util_core.id_tab_type,
178: p_status_code_tab IN wsh_util_core.column_tab_type,
179: x_return_status OUT NOCOPY VARCHAR2)
180: IS
181: --{
182: -- This cursor is not used anymore. Was added in the beginning of coding.
195: l_num_warnings NUMBER := 0;
196: l_organization_id Number;
197: l_wf_rs VARCHAR2(1); --Pick To POD Wf Project
198:
199: l_delivery_id_tab wsh_util_core.id_tab_type;
200:
201: --}
202: --
203: l_debug_on BOOLEAN;
224: --WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TYPE',P_TRANSACTION_TYPE);
225: END IF;
226: --
227: SAVEPOINT REVERT_DELIVERIES_GRP;
228: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
229: /*
230: open l_parent_txn_sts_csr(p_shipment_header_id);
231: fetch l_parent_txn_sts_csr into l_parent_txn_exists;
232: close l_parent_txn_sts_csr;
281: IF l_debug_on THEN
282: WSH_DEBUG_SV.log(l_module_name,'Return STatus after calling Delivery_Weight_Volume',l_return_status);
283: END IF;
284:
285: wsh_util_core.api_post_call(
286: p_return_status => l_return_status,
287: x_num_warnings => l_num_warnings,
288: x_num_errors => l_num_errors);
289: */
296: IF l_debug_on THEN
297: WSH_DEBUG_SV.log(l_module_name,'Return STatus after calling Mark_Reprice_Required',l_return_status);
298: END IF;
299: --
300: wsh_util_core.api_post_call(
301: p_return_status => l_return_status,
302: x_num_warnings => l_num_warnings,
303: x_num_errors => l_num_errors);
304: --
310: IF l_debug_on THEN
311: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling calculate_cont_del_tpdates',l_return_status);
312: END IF;
313: --
314: wsh_util_core.api_post_call(
315: p_return_status => l_return_status,
316: x_num_warnings => l_num_warnings,
317: x_num_errors => l_num_errors);
318: --
324:
325: IF l_debug_on THEN
326: WSH_DEBUG_SV.log(l_module_name,'Return STatus after calling setTripStopStatus',l_return_status);
327: END IF;
328: wsh_util_core.api_post_call(
329: p_return_status => l_return_status,
330: x_num_warnings => l_num_warnings,
331: x_num_errors => l_num_errors);
332: --
335:
336: IF l_num_errors > 0 THEN
337: RAISE FND_API.G_EXC_ERROR;
338: ELSIF l_num_warnings > 0 THEN
339: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
340: ELSE
341: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
342: END IF;
343: --}
337: RAISE FND_API.G_EXC_ERROR;
338: ELSIF l_num_warnings > 0 THEN
339: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
340: ELSE
341: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
342: END IF;
343: --}
344: --
345: -- Debug Statements
351: EXCEPTION
352: --{
353: WHEN FND_API.G_EXC_ERROR THEN
354: ROLLBACK TO REVERT_DELIVERIES_GRP;
355: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
356: --
357: -- Debug Statements
358: --
359: IF l_debug_on THEN
362: END IF;
363: --
364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
365: ROLLBACK TO REVERT_DELIVERIES_GRP;
366: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
367: --
368: -- Debug Statements
369: --
370: IF l_debug_on THEN
371: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
372: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
373: END IF;
374: --
375: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
376: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
377: --
378: -- Debug Statements
379: --
372: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
373: END IF;
374: --
375: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
376: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
377: --
378: -- Debug Statements
379: --
380: IF l_debug_on THEN
377: --
378: -- Debug Statements
379: --
380: IF l_debug_on THEN
381: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
382: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
383: END IF;
384: --
385: WHEN OTHERS THEN
378: -- Debug Statements
379: --
380: IF l_debug_on THEN
381: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
382: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
383: END IF;
384: --
385: WHEN OTHERS THEN
386: ROLLBACK TO REVERT_DELIVERIES_GRP;
383: END IF;
384: --
385: WHEN OTHERS THEN
386: ROLLBACK TO REVERT_DELIVERIES_GRP;
387: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
388: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.REVERT_DELIVERIES', l_module_name);
389: --}
390: --
391: -- Debug Statements
384: --
385: WHEN OTHERS THEN
386: ROLLBACK TO REVERT_DELIVERIES_GRP;
387: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
388: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.REVERT_DELIVERIES', l_module_name);
389: --}
390: --
391: -- Debug Statements
392: --
455: procedure revert_details(
456: p_shipment_header_id IN NUMBER,
457: p_transaction_type IN VARCHAR2,
458: x_dd_list OUT NOCOPY WSH_PO_CMG_PVT.dd_list_type,
459: x_delivery_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
460: x_status_code_tab OUT NOCOPY WSH_UTIL_CORE.column_tab_type,
461: x_unassign_det_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
462: x_msg_count OUT NOCOPY NUMBER,
463: x_msg_data OUT NOCOPY NUMBER,
456: p_shipment_header_id IN NUMBER,
457: p_transaction_type IN VARCHAR2,
458: x_dd_list OUT NOCOPY WSH_PO_CMG_PVT.dd_list_type,
459: x_delivery_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
460: x_status_code_tab OUT NOCOPY WSH_UTIL_CORE.column_tab_type,
461: x_unassign_det_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
462: x_msg_count OUT NOCOPY NUMBER,
463: x_msg_data OUT NOCOPY NUMBER,
464: x_return_status OUT NOCOPY VARCHAR2)
457: p_transaction_type IN VARCHAR2,
458: x_dd_list OUT NOCOPY WSH_PO_CMG_PVT.dd_list_type,
459: x_delivery_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
460: x_status_code_tab OUT NOCOPY WSH_UTIL_CORE.column_tab_type,
461: x_unassign_det_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
462: x_msg_count OUT NOCOPY NUMBER,
463: x_msg_data OUT NOCOPY NUMBER,
464: x_return_status OUT NOCOPY VARCHAR2)
465: IS
566: l_purged_details_flag VARCHAR2(1);
567: l_rel_sts VARCHAR2(1);
568: l_parent_txn_exists VARCHAR2(1);
569: l_shipment_line_id NUMBER;
570: l_source_line_id_tab wsh_util_core.id_tab_type;
571: l_po_line_loc_id_tab wsh_util_core.id_tab_type;
572: l_del_det_id_tab wsh_util_core.id_tab_type;
573: l_ship_from_loc_id_tab wsh_util_core.id_tab_type;
574: l_rcv_shipment_line_id_tab wsh_util_core.id_tab_type;
567: l_rel_sts VARCHAR2(1);
568: l_parent_txn_exists VARCHAR2(1);
569: l_shipment_line_id NUMBER;
570: l_source_line_id_tab wsh_util_core.id_tab_type;
571: l_po_line_loc_id_tab wsh_util_core.id_tab_type;
572: l_del_det_id_tab wsh_util_core.id_tab_type;
573: l_ship_from_loc_id_tab wsh_util_core.id_tab_type;
574: l_rcv_shipment_line_id_tab wsh_util_core.id_tab_type;
575: l_released_status_tab wsh_util_core.column_tab_type;
568: l_parent_txn_exists VARCHAR2(1);
569: l_shipment_line_id NUMBER;
570: l_source_line_id_tab wsh_util_core.id_tab_type;
571: l_po_line_loc_id_tab wsh_util_core.id_tab_type;
572: l_del_det_id_tab wsh_util_core.id_tab_type;
573: l_ship_from_loc_id_tab wsh_util_core.id_tab_type;
574: l_rcv_shipment_line_id_tab wsh_util_core.id_tab_type;
575: l_released_status_tab wsh_util_core.column_tab_type;
576: l_asn_shipment_header_id_tab wsh_util_core.id_tab_type;
569: l_shipment_line_id NUMBER;
570: l_source_line_id_tab wsh_util_core.id_tab_type;
571: l_po_line_loc_id_tab wsh_util_core.id_tab_type;
572: l_del_det_id_tab wsh_util_core.id_tab_type;
573: l_ship_from_loc_id_tab wsh_util_core.id_tab_type;
574: l_rcv_shipment_line_id_tab wsh_util_core.id_tab_type;
575: l_released_status_tab wsh_util_core.column_tab_type;
576: l_asn_shipment_header_id_tab wsh_util_core.id_tab_type;
577: l_rcv_shipment_header_id_tab wsh_util_core.id_tab_type;
570: l_source_line_id_tab wsh_util_core.id_tab_type;
571: l_po_line_loc_id_tab wsh_util_core.id_tab_type;
572: l_del_det_id_tab wsh_util_core.id_tab_type;
573: l_ship_from_loc_id_tab wsh_util_core.id_tab_type;
574: l_rcv_shipment_line_id_tab wsh_util_core.id_tab_type;
575: l_released_status_tab wsh_util_core.column_tab_type;
576: l_asn_shipment_header_id_tab wsh_util_core.id_tab_type;
577: l_rcv_shipment_header_id_tab wsh_util_core.id_tab_type;
578: l_packed_details_tab wsh_util_core.id_tab_type;
571: l_po_line_loc_id_tab wsh_util_core.id_tab_type;
572: l_del_det_id_tab wsh_util_core.id_tab_type;
573: l_ship_from_loc_id_tab wsh_util_core.id_tab_type;
574: l_rcv_shipment_line_id_tab wsh_util_core.id_tab_type;
575: l_released_status_tab wsh_util_core.column_tab_type;
576: l_asn_shipment_header_id_tab wsh_util_core.id_tab_type;
577: l_rcv_shipment_header_id_tab wsh_util_core.id_tab_type;
578: l_packed_details_tab wsh_util_core.id_tab_type;
579: l_picked_quantity_tab wsh_util_core.id_tab_type;
572: l_del_det_id_tab wsh_util_core.id_tab_type;
573: l_ship_from_loc_id_tab wsh_util_core.id_tab_type;
574: l_rcv_shipment_line_id_tab wsh_util_core.id_tab_type;
575: l_released_status_tab wsh_util_core.column_tab_type;
576: l_asn_shipment_header_id_tab wsh_util_core.id_tab_type;
577: l_rcv_shipment_header_id_tab wsh_util_core.id_tab_type;
578: l_packed_details_tab wsh_util_core.id_tab_type;
579: l_picked_quantity_tab wsh_util_core.id_tab_type;
580: l_shipped_quantity_tab wsh_util_core.id_tab_type;
573: l_ship_from_loc_id_tab wsh_util_core.id_tab_type;
574: l_rcv_shipment_line_id_tab wsh_util_core.id_tab_type;
575: l_released_status_tab wsh_util_core.column_tab_type;
576: l_asn_shipment_header_id_tab wsh_util_core.id_tab_type;
577: l_rcv_shipment_header_id_tab wsh_util_core.id_tab_type;
578: l_packed_details_tab wsh_util_core.id_tab_type;
579: l_picked_quantity_tab wsh_util_core.id_tab_type;
580: l_shipped_quantity_tab wsh_util_core.id_tab_type;
581: l_sum_returned_quantity NUMBER;
574: l_rcv_shipment_line_id_tab wsh_util_core.id_tab_type;
575: l_released_status_tab wsh_util_core.column_tab_type;
576: l_asn_shipment_header_id_tab wsh_util_core.id_tab_type;
577: l_rcv_shipment_header_id_tab wsh_util_core.id_tab_type;
578: l_packed_details_tab wsh_util_core.id_tab_type;
579: l_picked_quantity_tab wsh_util_core.id_tab_type;
580: l_shipped_quantity_tab wsh_util_core.id_tab_type;
581: l_sum_returned_quantity NUMBER;
582: l_sum_returned_quantity2 NUMBER;
575: l_released_status_tab wsh_util_core.column_tab_type;
576: l_asn_shipment_header_id_tab wsh_util_core.id_tab_type;
577: l_rcv_shipment_header_id_tab wsh_util_core.id_tab_type;
578: l_packed_details_tab wsh_util_core.id_tab_type;
579: l_picked_quantity_tab wsh_util_core.id_tab_type;
580: l_shipped_quantity_tab wsh_util_core.id_tab_type;
581: l_sum_returned_quantity NUMBER;
582: l_sum_returned_quantity2 NUMBER;
583: l_sum_req_qty NUMBER;
576: l_asn_shipment_header_id_tab wsh_util_core.id_tab_type;
577: l_rcv_shipment_header_id_tab wsh_util_core.id_tab_type;
578: l_packed_details_tab wsh_util_core.id_tab_type;
579: l_picked_quantity_tab wsh_util_core.id_tab_type;
580: l_shipped_quantity_tab wsh_util_core.id_tab_type;
581: l_sum_returned_quantity NUMBER;
582: l_sum_returned_quantity2 NUMBER;
583: l_sum_req_qty NUMBER;
584: l_sum_req_qty2 NUMBER;
583: l_sum_req_qty NUMBER;
584: l_sum_req_qty2 NUMBER;
585: l_accept_rcv_lpn_flag VARCHAR2(32767);
586: l_prev_po_line_loc_id NUMBER := -9999;
587: l_unassign_det_id_tab wsh_util_core.id_tab_type;
588: l_delivery_id_tab wsh_util_core.id_tab_type;
589: l_status_code_tab wsh_util_core.column_tab_type;
590:
591: l_rcv_rtv_rec WSH_RCV_CORR_RTV_TXN_PKG.rem_req_qty_rec_type;
584: l_sum_req_qty2 NUMBER;
585: l_accept_rcv_lpn_flag VARCHAR2(32767);
586: l_prev_po_line_loc_id NUMBER := -9999;
587: l_unassign_det_id_tab wsh_util_core.id_tab_type;
588: l_delivery_id_tab wsh_util_core.id_tab_type;
589: l_status_code_tab wsh_util_core.column_tab_type;
590:
591: l_rcv_rtv_rec WSH_RCV_CORR_RTV_TXN_PKG.rem_req_qty_rec_type;
592: l_det_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
585: l_accept_rcv_lpn_flag VARCHAR2(32767);
586: l_prev_po_line_loc_id NUMBER := -9999;
587: l_unassign_det_id_tab wsh_util_core.id_tab_type;
588: l_delivery_id_tab wsh_util_core.id_tab_type;
589: l_status_code_tab wsh_util_core.column_tab_type;
590:
591: l_rcv_rtv_rec WSH_RCV_CORR_RTV_TXN_PKG.rem_req_qty_rec_type;
592: l_det_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
593: l_det_action_out_rec WSH_GLBL_VAR_STRCT_GRP.dd_action_out_rec_type;
602: l_msg_data VARCHAR2(32767);
603:
604: l_pr_rem_in_rec WSH_RCV_CORR_RTV_TXN_PKG.action_in_rec_type;
605:
606: l_del_cache_tbl wsh_util_core.key_value_tab_type;
607: l_del_ext_cache_tbl wsh_util_core.key_value_tab_type;
608:
609: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
610: l_dbi_rs VARCHAR2(1); -- DBI Project
603:
604: l_pr_rem_in_rec WSH_RCV_CORR_RTV_TXN_PKG.action_in_rec_type;
605:
606: l_del_cache_tbl wsh_util_core.key_value_tab_type;
607: l_del_ext_cache_tbl wsh_util_core.key_value_tab_type;
608:
609: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
610: l_dbi_rs VARCHAR2(1); -- DBI Project
611:
605:
606: l_del_cache_tbl wsh_util_core.key_value_tab_type;
607: l_del_ext_cache_tbl wsh_util_core.key_value_tab_type;
608:
609: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
610: l_dbi_rs VARCHAR2(1); -- DBI Project
611:
612: l_cnt_det_id_tab wsh_util_core.id_tab_type;
613:
608:
609: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI Project
610: l_dbi_rs VARCHAR2(1); -- DBI Project
611:
612: l_cnt_det_id_tab wsh_util_core.id_tab_type;
613:
614: cursor l_delete_det_csr (p_source_line_id IN NUMBER,
615: p_po_shpmt_line_id IN NUMBER) is
616: select delivery_detail_id
623: )
624: and routing_req_id is null
625: for update of delivery_detail_id nowait;
626:
627: l_delete_det_tbl wsh_util_core.id_tab_type;
628:
629: DD_LOCKED exception;
630: PRAGMA EXCEPTION_INIT(DD_LOCKED, -54);
631: --}
654: WSH_DEBUG_SV.log(l_module_name,'P_TRANSACTION_TYPE',P_TRANSACTION_TYPE);
655: END IF;
656: --
657: SAVEPOINT REVERT_DETAILS_GRP;
658: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
659: /*
660: open l_parent_txn_sts_csr(p_shipment_header_id);
661: fetch l_parent_txn_sts_csr into l_parent_txn_exists;
662: close l_parent_txn_sts_csr;
704: close l_purge_details_csr;
705: IF (nvl(l_purged_details_flag, 'N') = 'Y') THEN
706: --{
707: FND_MESSAGE.SET_NAME('WSH','WSH_IB_DETAILS_PURGED');
708: x_return_status := wsh_util_core.g_ret_sts_error;
709: wsh_util_core.add_message(x_return_status, l_module_name);
710: RAISE FND_API.G_EXC_ERROR;
711: --}
712: END IF;
705: IF (nvl(l_purged_details_flag, 'N') = 'Y') THEN
706: --{
707: FND_MESSAGE.SET_NAME('WSH','WSH_IB_DETAILS_PURGED');
708: x_return_status := wsh_util_core.g_ret_sts_error;
709: wsh_util_core.add_message(x_return_status, l_module_name);
710: RAISE FND_API.G_EXC_ERROR;
711: --}
712: END IF;
713: l_sum_returned_quantity := 0;
737: END IF;
738: IF nvl (l_sum_req_qty, 0) < l_sum_returned_quantity THEN
739: --{
740: FND_MESSAGE.SET_NAME('WSH','WSH_IB_INSUFF_LINES_REVERT');
741: x_return_status := wsh_util_core.g_ret_sts_error;
742: wsh_util_core.add_message(x_return_status, l_module_name);
743: RAISE FND_API.G_EXC_ERROR;
744: --}
745: ELSIF l_sum_req_qty = l_sum_returned_quantity THEN
738: IF nvl (l_sum_req_qty, 0) < l_sum_returned_quantity THEN
739: --{
740: FND_MESSAGE.SET_NAME('WSH','WSH_IB_INSUFF_LINES_REVERT');
741: x_return_status := wsh_util_core.g_ret_sts_error;
742: wsh_util_core.add_message(x_return_status, l_module_name);
743: RAISE FND_API.G_EXC_ERROR;
744: --}
745: ELSIF l_sum_req_qty = l_sum_returned_quantity THEN
746: --{
820: --
821: -- Debug Statements
822: --
823: IF l_debug_on THEN
824: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
825: END IF;
826: --
827: wsh_util_core.api_post_call(
828: p_return_status => l_return_status,
823: IF l_debug_on THEN
824: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
825: END IF;
826: --
827: wsh_util_core.api_post_call(
828: p_return_status => l_return_status,
829: x_num_warnings => l_num_warnings,
830: x_num_errors => l_num_errors);
831: --}
866:
867: IF l_debug_on THEN
868: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
869: END IF;
870: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
871: x_return_status := l_dbi_rs;
872: Rollback to REVERT_DETAILS_GRP;
873: -- just pass this return status to caller API
874: IF l_debug_on THEN
969:
970: IF l_debug_on THEN
971: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
972: END IF;
973: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
974: x_return_status := l_dbi_rs ;
975: Rollback to REVERT_DETAILS_GRP;
976: -- just pass this return status to caller API
977: IF l_debug_on THEN
1023:
1024: IF l_debug_on THEN
1025: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1026: END IF;
1027: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1028: x_return_status := l_dbi_rs ;
1029: Rollback to REVERT_DETAILS_GRP;
1030: -- just pass this return status to caller API
1031: IF l_debug_on THEN
1056: --
1057: -- Debug Statements
1058: --
1059: IF l_debug_on THEN
1060: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1061: END IF;
1062: --
1063: wsh_util_core.api_post_call(
1064: p_return_status => l_return_status,
1059: IF l_debug_on THEN
1060: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1061: END IF;
1062: --
1063: wsh_util_core.api_post_call(
1064: p_return_status => l_return_status,
1065: x_num_warnings => l_num_warnings,
1066: x_num_errors => l_num_errors);
1067:
1086: --
1087: -- Debug Statements
1088: --
1089: IF l_debug_on THEN
1090: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1091: END IF;
1092: --
1093: wsh_util_core.get_cached_value(
1094: p_cache_tbl => l_del_cache_tbl,
1089: IF l_debug_on THEN
1090: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1091: END IF;
1092: --
1093: wsh_util_core.get_cached_value(
1094: p_cache_tbl => l_del_cache_tbl,
1095: p_cache_ext_tbl => l_del_ext_cache_tbl,
1096: p_value => l_delivery_id_tab(l_del_index),
1097: p_key => l_delivery_id_tab(l_del_index),
1097: p_key => l_delivery_id_tab(l_del_index),
1098: p_action => 'GET',
1099: x_return_status => l_return_status);
1100:
1101: IF l_return_status IN (wsh_util_core.g_ret_sts_error, wsh_util_core.g_ret_sts_unexp_error) THEN
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104:
1105: IF (l_return_status = wsh_util_core.g_ret_sts_warning) THEN
1101: IF l_return_status IN (wsh_util_core.g_ret_sts_error, wsh_util_core.g_ret_sts_unexp_error) THEN
1102: RAISE FND_API.G_EXC_ERROR;
1103: END IF;
1104:
1105: IF (l_return_status = wsh_util_core.g_ret_sts_warning) THEN
1106: --{
1107: --
1108: -- Debug Statements
1109: --
1107: --
1108: -- Debug Statements
1109: --
1110: IF l_debug_on THEN
1111: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1112: WSH_DEBUG_SV.log(l_module_name,'Delivery Id is ',l_delivery_id_tab(l_del_index));
1113: END IF;
1114: --
1115: wsh_util_core.get_cached_value(
1111: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.GET_CACHED_VALUE',WSH_DEBUG_SV.C_PROC_LEVEL);
1112: WSH_DEBUG_SV.log(l_module_name,'Delivery Id is ',l_delivery_id_tab(l_del_index));
1113: END IF;
1114: --
1115: wsh_util_core.get_cached_value(
1116: p_cache_tbl => l_del_cache_tbl,
1117: p_cache_ext_tbl => l_del_ext_cache_tbl,
1118: p_value => l_delivery_id_tab(l_del_index),
1119: p_key => l_delivery_id_tab(l_del_index),
1123: --
1124: -- Debug Statements
1125: --
1126: IF l_debug_on THEN
1127: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling wsh_util_core.get_cached_value for put is',l_return_status);
1128: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1129: END IF;
1130: --
1131: wsh_util_core.api_post_call(
1124: -- Debug Statements
1125: --
1126: IF l_debug_on THEN
1127: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling wsh_util_core.get_cached_value for put is',l_return_status);
1128: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1129: END IF;
1130: --
1131: wsh_util_core.api_post_call(
1132: p_return_status => l_return_status,
1127: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling wsh_util_core.get_cached_value for put is',l_return_status);
1128: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
1129: END IF;
1130: --
1131: wsh_util_core.api_post_call(
1132: p_return_status => l_return_status,
1133: x_num_warnings => l_num_warnings,
1134: x_num_errors => l_num_errors);
1135:
1146: --
1147: IF l_num_errors > 0 THEN
1148: RAISE FND_API.G_EXC_ERROR;
1149: ELSIF l_num_warnings > 0 THEN
1150: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
1151: ELSE
1152: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1153: END IF;
1154: --
1148: RAISE FND_API.G_EXC_ERROR;
1149: ELSIF l_num_warnings > 0 THEN
1150: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
1151: ELSE
1152: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1153: END IF;
1154: --
1155: IF l_debug_on THEN
1156: WSH_DEBUG_SV.logmsg(l_module_name,'Before calling count and get');
1176: EXCEPTION
1177: --{
1178: WHEN DD_LOCKED THEN
1179: ROLLBACK TO REVERT_DETAILS_GRP;
1180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1181: -- need to change the message
1182: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_LINES_LOCKED');
1183: wsh_util_core.add_message(x_return_status,l_module_name);
1184: IF l_debug_on THEN
1179: ROLLBACK TO REVERT_DETAILS_GRP;
1180: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1181: -- need to change the message
1182: FND_MESSAGE.SET_NAME('WSH','WSH_DELIVERY_LINES_LOCKED');
1183: wsh_util_core.add_message(x_return_status,l_module_name);
1184: IF l_debug_on THEN
1185: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1186: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:DD_LOCKED');
1187: END IF;
1187: END IF;
1188: --
1189: WHEN FND_API.G_EXC_ERROR THEN
1190: ROLLBACK TO REVERT_DETAILS_GRP;
1191: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1192: --
1193: FND_MSG_PUB.Count_And_Get
1194: (
1195: p_count => x_msg_count,
1206: END IF;
1207: --
1208: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1209: ROLLBACK TO REVERT_DETAILS_GRP;
1210: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1211: --
1212: FND_MSG_PUB.Count_And_Get
1213: (
1214: p_count => x_msg_count,
1223: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1224: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1225: END IF;
1226: --
1227: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1228: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1229: --
1230: FND_MSG_PUB.Count_And_Get
1231: (
1224: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1225: END IF;
1226: --
1227: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1228: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1229: --
1230: FND_MSG_PUB.Count_And_Get
1231: (
1232: p_count => x_msg_count,
1237: --
1238: -- Debug Statements
1239: --
1240: IF l_debug_on THEN
1241: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1242: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1243: END IF;
1244: --
1245: WHEN OTHERS THEN
1238: -- Debug Statements
1239: --
1240: IF l_debug_on THEN
1241: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1242: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1243: END IF;
1244: --
1245: WHEN OTHERS THEN
1246: ROLLBACK TO REVERT_DETAILS_GRP;
1243: END IF;
1244: --
1245: WHEN OTHERS THEN
1246: ROLLBACK TO REVERT_DETAILS_GRP;
1247: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1248: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.REVERT_DETAILS', l_module_name);
1249: --
1250: FND_MSG_PUB.Count_And_Get
1251: (
1244: --
1245: WHEN OTHERS THEN
1246: ROLLBACK TO REVERT_DETAILS_GRP;
1247: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1248: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.REVERT_DETAILS', l_module_name);
1249: --
1250: FND_MSG_PUB.Count_And_Get
1251: (
1252: p_count => x_msg_count,
1343: l_sec_rtv_corr_qty NUMBER;
1344: l_primary_uom_code VARCHAR2(32767);
1345: l_secondary_uom_code VARCHAR2(32767);
1346:
1347: l_txn_id_tab wsh_util_core.id_tab_type;
1348: l_parent_txn_id_tab wsh_util_core.id_tab_type;
1349: l_prim_qty_tab wsh_util_core.id_tab_type;
1350: l_sec_qty_tab wsh_util_core.id_tab_type;
1351: l_prim_uom_code_tab wsh_util_core.column_tab_type;
1344: l_primary_uom_code VARCHAR2(32767);
1345: l_secondary_uom_code VARCHAR2(32767);
1346:
1347: l_txn_id_tab wsh_util_core.id_tab_type;
1348: l_parent_txn_id_tab wsh_util_core.id_tab_type;
1349: l_prim_qty_tab wsh_util_core.id_tab_type;
1350: l_sec_qty_tab wsh_util_core.id_tab_type;
1351: l_prim_uom_code_tab wsh_util_core.column_tab_type;
1352: l_sec_uom_code_tab wsh_util_core.column_tab_type;
1345: l_secondary_uom_code VARCHAR2(32767);
1346:
1347: l_txn_id_tab wsh_util_core.id_tab_type;
1348: l_parent_txn_id_tab wsh_util_core.id_tab_type;
1349: l_prim_qty_tab wsh_util_core.id_tab_type;
1350: l_sec_qty_tab wsh_util_core.id_tab_type;
1351: l_prim_uom_code_tab wsh_util_core.column_tab_type;
1352: l_sec_uom_code_tab wsh_util_core.column_tab_type;
1353: l_txn_type_tab wsh_util_core.column_tab_type;
1346:
1347: l_txn_id_tab wsh_util_core.id_tab_type;
1348: l_parent_txn_id_tab wsh_util_core.id_tab_type;
1349: l_prim_qty_tab wsh_util_core.id_tab_type;
1350: l_sec_qty_tab wsh_util_core.id_tab_type;
1351: l_prim_uom_code_tab wsh_util_core.column_tab_type;
1352: l_sec_uom_code_tab wsh_util_core.column_tab_type;
1353: l_txn_type_tab wsh_util_core.column_tab_type;
1354: l_parent_txn_type_tab wsh_util_core.column_tab_type;
1347: l_txn_id_tab wsh_util_core.id_tab_type;
1348: l_parent_txn_id_tab wsh_util_core.id_tab_type;
1349: l_prim_qty_tab wsh_util_core.id_tab_type;
1350: l_sec_qty_tab wsh_util_core.id_tab_type;
1351: l_prim_uom_code_tab wsh_util_core.column_tab_type;
1352: l_sec_uom_code_tab wsh_util_core.column_tab_type;
1353: l_txn_type_tab wsh_util_core.column_tab_type;
1354: l_parent_txn_type_tab wsh_util_core.column_tab_type;
1355:
1348: l_parent_txn_id_tab wsh_util_core.id_tab_type;
1349: l_prim_qty_tab wsh_util_core.id_tab_type;
1350: l_sec_qty_tab wsh_util_core.id_tab_type;
1351: l_prim_uom_code_tab wsh_util_core.column_tab_type;
1352: l_sec_uom_code_tab wsh_util_core.column_tab_type;
1353: l_txn_type_tab wsh_util_core.column_tab_type;
1354: l_parent_txn_type_tab wsh_util_core.column_tab_type;
1355:
1356: l_index NUMBER;
1349: l_prim_qty_tab wsh_util_core.id_tab_type;
1350: l_sec_qty_tab wsh_util_core.id_tab_type;
1351: l_prim_uom_code_tab wsh_util_core.column_tab_type;
1352: l_sec_uom_code_tab wsh_util_core.column_tab_type;
1353: l_txn_type_tab wsh_util_core.column_tab_type;
1354: l_parent_txn_type_tab wsh_util_core.column_tab_type;
1355:
1356: l_index NUMBER;
1357:
1350: l_sec_qty_tab wsh_util_core.id_tab_type;
1351: l_prim_uom_code_tab wsh_util_core.column_tab_type;
1352: l_sec_uom_code_tab wsh_util_core.column_tab_type;
1353: l_txn_type_tab wsh_util_core.column_tab_type;
1354: l_parent_txn_type_tab wsh_util_core.column_tab_type;
1355:
1356: l_index NUMBER;
1357:
1358: c_receipt CONSTANT VARCHAR2(32767) := 'RECEIPT';
1386: WSH_DEBUG_SV.log(l_module_name,'P_SHIPMENT_LINE_ID',P_SHIPMENT_LINE_ID);
1387: --WSH_DEBUG_SV.log(l_module_name,'P_MAX_RCV_TXN_ID',P_MAX_RCV_TXN_ID);
1388: END IF;
1389: --
1390: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1391: --
1392: --
1393: open l_max_txn_id_csr(p_shipment_line_id);
1394: fetch l_max_txn_id_csr into l_max_txn_id;
1490: --
1491: EXCEPTION
1492: --{
1493: WHEN FND_API.G_EXC_ERROR THEN
1494: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1495: --
1496: -- Debug Statements
1497: --
1498: IF l_debug_on THEN
1500: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
1501: END IF;
1502: --
1503: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1504: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1505: --
1506: -- Debug Statements
1507: --
1508: IF l_debug_on THEN
1509: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1510: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1511: END IF;
1512: --
1513: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1514: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1515: --
1516: -- Debug Statements
1517: --
1510: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
1511: END IF;
1512: --
1513: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
1514: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
1515: --
1516: -- Debug Statements
1517: --
1518: IF l_debug_on THEN
1515: --
1516: -- Debug Statements
1517: --
1518: IF l_debug_on THEN
1519: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1520: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1521: END IF;
1522: --
1523: WHEN OTHERS THEN
1516: -- Debug Statements
1517: --
1518: IF l_debug_on THEN
1519: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
1520: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1521: END IF;
1522: --
1523: WHEN OTHERS THEN
1524: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1520: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
1521: END IF;
1522: --
1523: WHEN OTHERS THEN
1524: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1525: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.GET_CUM_RCVD_RTV_QUANTITIES', l_module_name);
1526: --}
1527: --
1528: -- Debug Statements
1521: END IF;
1522: --
1523: WHEN OTHERS THEN
1524: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
1525: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.GET_CUM_RCVD_RTV_QUANTITIES', l_module_name);
1526: --}
1527: --
1528: -- Debug Statements
1529: --
1885: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1886: END IF;
1887: --
1888: -- setting the return status
1889: x_return_status := wsh_util_core.g_ret_sts_success;
1890: -- instantiating the table.
1891:
1892: -- Locking the transaction history to make sure that no other process
1893: -- works on this transaction
1899: close l_lock_txn_hist_csr;
1900: IF (NOT l_lock_obtained) THEN
1901: --{
1902: FND_MESSAGE.SET_NAME('WSH','WSH_IB_TXN_UPDATE_ERROR');
1903: wsh_util_core.add_message(WSH_UTIL_CORE.G_RET_STS_ERROR,l_module_name);
1904: RAISE FND_API.G_EXC_ERROR;
1905: --}
1906: END IF;
1907:
2085: IF l_debug_on THEN
2086: WSH_DEBUG_SV.log(l_module_name,'l_prim_rcvd_qty', l_prim_rcvd_qty);
2087: WSH_DEBUG_SV.log(l_module_name,'l_prim_ret_qty', l_prim_ret_qty);
2088: WSH_DEBUG_SV.log(l_module_name,'l_prim_rcv_uom_code', l_prim_rcv_uom_code);
2089: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2090: END IF;
2091: --
2092: wsh_util_core.api_post_call(
2093: p_return_status => l_return_status,
2088: WSH_DEBUG_SV.log(l_module_name,'l_prim_rcv_uom_code', l_prim_rcv_uom_code);
2089: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2090: END IF;
2091: --
2092: wsh_util_core.api_post_call(
2093: p_return_status => l_return_status,
2094: x_num_warnings => l_num_warnings,
2095: x_num_errors => l_num_errors);
2096: --}
2238: --
2239: -- Debug Statements
2240: --
2241: IF l_debug_on THEN
2242: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2243: END IF;
2244: --
2245: wsh_util_core.api_post_call(
2246: p_return_status => l_return_status,
2241: IF l_debug_on THEN
2242: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2243: END IF;
2244: --
2245: wsh_util_core.api_post_call(
2246: p_return_status => l_return_status,
2247: x_num_warnings => l_num_warnings,
2248: x_num_errors => l_num_errors);
2249: --
2264: --
2265: -- Debug Statements
2266: --
2267: IF l_debug_on THEN
2268: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2269: END IF;
2270: --
2271: wsh_util_core.api_post_call(
2272: p_return_status => l_return_status,
2267: IF l_debug_on THEN
2268: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2269: END IF;
2270: --
2271: wsh_util_core.api_post_call(
2272: p_return_status => l_return_status,
2273: x_num_warnings => l_num_warnings,
2274: x_num_errors => l_num_errors);
2275:
2310: --
2311: -- Debug Statements
2312: --
2313: IF l_debug_on THEN
2314: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2315: END IF;
2316: --
2317: wsh_util_core.api_post_call(
2318: p_return_status => l_return_status,
2313: IF l_debug_on THEN
2314: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2315: END IF;
2316: --
2317: wsh_util_core.api_post_call(
2318: p_return_status => l_return_status,
2319: x_num_warnings => l_num_warnings,
2320: x_num_errors => l_num_errors);
2321: --
2330: --{
2331: -- HW OPMCONV - No need to use OPM precision. Use current INV which is 5
2332: x_shpmt_lines_out_rec.secondary_qty_shipped_tab(l_index) :=
2333: ROUND (
2334: l_src_requested_qty2 * x_shpmt_lines_out_rec.primary_qty_shipped_tab(l_index)/l_src_requested_qty, WSH_UTIL_CORE.C_MAX_DECIMAL_DIGITS_INV
2335: );
2336: l_src_requested_qty2 := NULL;
2337: --}
2338: END IF;
2365: rollback to lock_txn_history_sp;
2366:
2367: IF x_shpmt_lines_out_rec.shipment_line_id_tab.count = 0 THEN
2368: FND_MESSAGE.SET_NAME('WSH','NO_DATA_FOUND');
2369: x_return_status := wsh_util_core.g_ret_sts_error;
2370: wsh_util_core.add_message(x_return_status, l_module_name);
2371: RAISE FND_API.G_EXC_ERROR;
2372: END IF;
2373: --
2366:
2367: IF x_shpmt_lines_out_rec.shipment_line_id_tab.count = 0 THEN
2368: FND_MESSAGE.SET_NAME('WSH','NO_DATA_FOUND');
2369: x_return_status := wsh_util_core.g_ret_sts_error;
2370: wsh_util_core.add_message(x_return_status, l_module_name);
2371: RAISE FND_API.G_EXC_ERROR;
2372: END IF;
2373: --
2374: FND_MSG_PUB.Count_And_Get
2401: EXCEPTION
2402: --{
2403: WHEN RECORD_LOCKED THEN
2404: ROLLBACK TO SAVEPOINT lock_txn_history_sp;
2405: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2406: FND_MESSAGE.SET_NAME('WSH','WSH_IB_TXN_LOCK_ERROR');
2407: wsh_util_core.add_message(x_return_status,l_module_name);
2408: IF l_debug_on THEN
2409: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2403: WHEN RECORD_LOCKED THEN
2404: ROLLBACK TO SAVEPOINT lock_txn_history_sp;
2405: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2406: FND_MESSAGE.SET_NAME('WSH','WSH_IB_TXN_LOCK_ERROR');
2407: wsh_util_core.add_message(x_return_status,l_module_name);
2408: IF l_debug_on THEN
2409: WSH_DEBUG_SV.logmsg(l_module_name,'RECORD_LOCKED exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2410: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2411: END IF;
2410: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2411: END IF;
2412: --
2413: WHEN FND_API.G_EXC_ERROR THEN
2414: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2415: --
2416: FND_MSG_PUB.Count_And_Get
2417: (
2418: p_count => x_msg_count,
2428: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
2429: END IF;
2430: --
2431: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2432: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2433: --
2434: FND_MSG_PUB.Count_And_Get
2435: (
2436: p_count => x_msg_count,
2445: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_UNEXPECTED_ERROR exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2446: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2447: END IF;
2448: --
2449: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2450: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2451: --
2452: FND_MSG_PUB.Count_And_Get
2453: (
2446: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
2447: END IF;
2448: --
2449: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
2450: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
2451: --
2452: FND_MSG_PUB.Count_And_Get
2453: (
2454: p_count => x_msg_count,
2459: --
2460: -- Debug Statements
2461: --
2462: IF l_debug_on THEN
2463: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2464: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2465: END IF;
2466: --
2467: WHEN OTHERS THEN
2460: -- Debug Statements
2461: --
2462: IF l_debug_on THEN
2463: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
2464: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2465: END IF;
2466: --
2467: WHEN OTHERS THEN
2468: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2464: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
2465: END IF;
2466: --
2467: WHEN OTHERS THEN
2468: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2469: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.GET_SHIPMENT_LINES', l_module_name);
2470: --
2471: FND_MSG_PUB.Count_And_Get
2472: (
2465: END IF;
2466: --
2467: WHEN OTHERS THEN
2468: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
2469: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.GET_SHIPMENT_LINES', l_module_name);
2470: --
2471: FND_MSG_PUB.Count_And_Get
2472: (
2473: p_count => x_msg_count,
2556: l_out_rec WSH_BULK_TYPES_GRP.Bulk_process_out_rec_type;
2557: l_return_status VARCHAR2(1);
2558:
2559: l_dd_list WSH_PO_CMG_PVT.dd_list_type;
2560: l_delivery_id_tab wsh_util_core.id_tab_type;
2561: l_status_code_tab wsh_util_core.column_tab_type;
2562: l_unassign_det_id_tab wsh_util_core.id_tab_type;
2563: l_po_action_prms WSH_BULK_TYPES_GRP.action_parameters_rectype;
2564: l_dd_id_unassigned wsh_util_core.id_tab_type;
2557: l_return_status VARCHAR2(1);
2558:
2559: l_dd_list WSH_PO_CMG_PVT.dd_list_type;
2560: l_delivery_id_tab wsh_util_core.id_tab_type;
2561: l_status_code_tab wsh_util_core.column_tab_type;
2562: l_unassign_det_id_tab wsh_util_core.id_tab_type;
2563: l_po_action_prms WSH_BULK_TYPES_GRP.action_parameters_rectype;
2564: l_dd_id_unassigned wsh_util_core.id_tab_type;
2565: l_wt_vol_dd_id wsh_util_core.id_tab_type;
2558:
2559: l_dd_list WSH_PO_CMG_PVT.dd_list_type;
2560: l_delivery_id_tab wsh_util_core.id_tab_type;
2561: l_status_code_tab wsh_util_core.column_tab_type;
2562: l_unassign_det_id_tab wsh_util_core.id_tab_type;
2563: l_po_action_prms WSH_BULK_TYPES_GRP.action_parameters_rectype;
2564: l_dd_id_unassigned wsh_util_core.id_tab_type;
2565: l_wt_vol_dd_id wsh_util_core.id_tab_type;
2566: l_unassign_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
2560: l_delivery_id_tab wsh_util_core.id_tab_type;
2561: l_status_code_tab wsh_util_core.column_tab_type;
2562: l_unassign_det_id_tab wsh_util_core.id_tab_type;
2563: l_po_action_prms WSH_BULK_TYPES_GRP.action_parameters_rectype;
2564: l_dd_id_unassigned wsh_util_core.id_tab_type;
2565: l_wt_vol_dd_id wsh_util_core.id_tab_type;
2566: l_unassign_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
2567:
2568: l_num_errors NUMBER := 0;
2561: l_status_code_tab wsh_util_core.column_tab_type;
2562: l_unassign_det_id_tab wsh_util_core.id_tab_type;
2563: l_po_action_prms WSH_BULK_TYPES_GRP.action_parameters_rectype;
2564: l_dd_id_unassigned wsh_util_core.id_tab_type;
2565: l_wt_vol_dd_id wsh_util_core.id_tab_type;
2566: l_unassign_action_prms WSH_GLBL_VAR_STRCT_GRP.dd_action_parameters_rec_type;
2567:
2568: l_num_errors NUMBER := 0;
2569: l_num_warnings NUMBER := 0;
2591: l_reset_flags BOOLEAN;
2592: --}
2593: BEGIN
2594: --{
2595: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
2596: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
2597: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
2598: END IF;
2599:
2592: --}
2593: BEGIN
2594: --{
2595: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
2596: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
2597: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
2598: END IF;
2599:
2600: --
2593: BEGIN
2594: --{
2595: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
2596: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
2597: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
2598: END IF;
2599:
2600: --
2601: --
2624: FND_MSG_PUB.initialize;
2625: END IF;
2626: --
2627: SAVEPOINT revert_matching_grp;
2628: x_return_status := wsh_util_core.g_ret_sts_success;
2629: --
2630: IF NOT FND_API.Compatible_API_Call
2631: ( l_api_version_number,
2632: p_api_version_number,
2659: IF nvl(l_child_txn_sts,'@@') like 'MATCHED%' THEN
2660: --{
2661: FND_MESSAGE.SET_NAME('WSH','WSH_IB_RECEIPT_MATCHED_ERR');
2662: FND_MESSAGE.SET_TOKEN('RECEIPT_NUM',l_receipt_num);
2663: x_return_status := wsh_util_core.g_ret_sts_error;
2664: wsh_util_core.add_message(x_return_status, l_module_name);
2665: RAISE FND_API.G_EXC_ERROR;
2666: --}
2667: ELSE
2660: --{
2661: FND_MESSAGE.SET_NAME('WSH','WSH_IB_RECEIPT_MATCHED_ERR');
2662: FND_MESSAGE.SET_TOKEN('RECEIPT_NUM',l_receipt_num);
2663: x_return_status := wsh_util_core.g_ret_sts_error;
2664: wsh_util_core.add_message(x_return_status, l_module_name);
2665: RAISE FND_API.G_EXC_ERROR;
2666: --}
2667: ELSE
2668: --{
2683: --
2684: -- Debug Statements
2685: --
2686: IF l_debug_on THEN
2687: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2688: END IF;
2689: --
2690: wsh_util_core.api_post_call(
2691: p_return_status => l_return_status,
2686: IF l_debug_on THEN
2687: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2688: END IF;
2689: --
2690: wsh_util_core.api_post_call(
2691: p_return_status => l_return_status,
2692: x_num_warnings => l_num_warnings,
2693: x_num_errors => l_num_errors);
2694: --}
2718: -- Debug Statements
2719: --
2720: IF l_debug_on THEN
2721: WSH_DEBUG_SV.log(l_module_name,'return status is ', l_return_status);
2722: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2723: END IF;
2724: --
2725: wsh_util_core.api_post_call(
2726: p_return_status => l_return_status,
2721: WSH_DEBUG_SV.log(l_module_name,'return status is ', l_return_status);
2722: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2723: END IF;
2724: --
2725: wsh_util_core.api_post_call(
2726: p_return_status => l_return_status,
2727: x_num_warnings => l_num_warnings,
2728: x_num_errors => l_num_errors);
2729:
2734: --
2735: -- Debug Statements
2736: --
2737: IF l_debug_on THEN
2738: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2739: END IF;
2740: --
2741: wsh_util_core.api_post_call(
2742: p_return_status => l_return_status,
2737: IF l_debug_on THEN
2738: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2739: END IF;
2740: --
2741: wsh_util_core.api_post_call(
2742: p_return_status => l_return_status,
2743: x_num_warnings => l_num_warnings,
2744: x_num_errors => l_num_errors);
2745:
2749: fetch l_parent_txn_exists_csr into l_parent_txn_exists_flag;
2750: close l_parent_txn_exists_csr;
2751: IF (nvl(l_parent_txn_exists_flag,'N') = 'Y') THEN
2752: --{
2753: l_unassign_action_prms.caller := wsh_util_core.C_IB_RECEIPT_PREFIX;
2754: --}
2755: ELSE
2756: --{
2757: l_unassign_action_prms.caller := wsh_util_core.C_IB_ASN_PREFIX;
2753: l_unassign_action_prms.caller := wsh_util_core.C_IB_RECEIPT_PREFIX;
2754: --}
2755: ELSE
2756: --{
2757: l_unassign_action_prms.caller := wsh_util_core.C_IB_ASN_PREFIX;
2758: --}
2759: END IF;
2760: --
2761: -- Debug Statements
2763: IF l_debug_on THEN
2764: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAILS',WSH_DEBUG_SV.C_PROC_LEVEL);
2765: END IF;
2766: --
2767: --l_unassign_action_prms.caller := wsh_util_core.C_IB_RECEIPT_PREFIX;
2768: WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Multiple_Details(
2769: P_REC_OF_DETAIL_IDS => l_unassign_det_id_tab,
2770: P_FROM_delivery => 'Y',
2771: P_FROM_container => 'N',
2775: --
2776: -- Debug Statements
2777: --
2778: IF l_debug_on THEN
2779: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2780: END IF;
2781: --
2782: wsh_util_core.api_post_call(
2783: p_return_status => l_return_status,
2778: IF l_debug_on THEN
2779: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2780: END IF;
2781: --
2782: wsh_util_core.api_post_call(
2783: p_return_status => l_return_status,
2784: x_num_warnings => l_num_warnings,
2785: x_num_errors => l_num_errors);
2786: --}
2817: -- Debug Statements
2818: --
2819: IF l_debug_on THEN
2820: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling Reapprove_PO is ', l_return_status);
2821: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2822: END IF;
2823: --
2824: wsh_util_core.api_post_call(
2825: p_return_status => l_return_status,
2820: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling Reapprove_PO is ', l_return_status);
2821: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2822: END IF;
2823: --
2824: wsh_util_core.api_post_call(
2825: p_return_status => l_return_status,
2826: x_num_warnings => l_num_warnings,
2827: x_num_errors => l_num_errors);
2828: --}
2846: --
2847: --
2848: IF l_debug_on THEN
2849: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_INBOUND_TXN_HISTORY_PKG.post_process is ', l_return_status);
2850: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2851: END IF;
2852: --
2853: --
2854: wsh_util_core.api_post_call(
2850: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
2851: END IF;
2852: --
2853: --
2854: wsh_util_core.api_post_call(
2855: p_return_status => l_return_status,
2856: x_num_warnings => l_num_warnings,
2857: x_num_errors => l_num_errors);
2858: --
2865: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
2866:
2867: FND_MESSAGE.SET_NAME('WSH','WSH_DEBUG_FILE_NAME');
2868: FND_MESSAGE.SET_TOKEN('DEBUG_FILE_NAME',l_debugfile);
2869: x_return_status := wsh_util_core.g_ret_sts_success;
2870: wsh_util_core.add_message(x_return_status, l_module_name);
2871: --}
2872: END IF;
2873: --
2866:
2867: FND_MESSAGE.SET_NAME('WSH','WSH_DEBUG_FILE_NAME');
2868: FND_MESSAGE.SET_TOKEN('DEBUG_FILE_NAME',l_debugfile);
2869: x_return_status := wsh_util_core.g_ret_sts_success;
2870: wsh_util_core.add_message(x_return_status, l_module_name);
2871: --}
2872: END IF;
2873: --
2874:
2874:
2875: IF l_num_errors > 0 THEN
2876: RAISE FND_API.G_EXC_ERROR;
2877: ELSIF l_num_warnings > 0 THEN
2878: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2879: ELSE
2880: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2881: END IF;
2882:
2876: RAISE FND_API.G_EXC_ERROR;
2877: ELSIF l_num_warnings > 0 THEN
2878: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2879: ELSE
2880: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
2881: END IF;
2882:
2883: -- Standard check of p_commit.
2884: IF FND_API.To_Boolean( p_commit ) THEN
2883: -- Standard check of p_commit.
2884: IF FND_API.To_Boolean( p_commit ) THEN
2885:
2886: --bug 4070732
2887: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2888: --{
2889:
2890: l_reset_flags := FALSE;
2891:
2889:
2890: l_reset_flags := FALSE;
2891:
2892: IF l_debug_on THEN
2893: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2894: END IF;
2895:
2896: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
2897: x_return_status => l_return_status);
2892: IF l_debug_on THEN
2893: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2894: END IF;
2895:
2896: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
2897: x_return_status => l_return_status);
2898:
2899: IF l_debug_on THEN
2900: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2899: IF l_debug_on THEN
2900: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2901: END IF;
2902:
2903: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2904: RAISE FND_API.G_EXC_ERROR;
2905: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2907: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2901: END IF;
2902:
2903: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2904: RAISE FND_API.G_EXC_ERROR;
2905: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2907: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2908: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2909: END IF;
2903: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
2904: RAISE FND_API.G_EXC_ERROR;
2905: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2907: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2908: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2909: END IF;
2910:
2911: --}
2904: RAISE FND_API.G_EXC_ERROR;
2905: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2906: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2907: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
2908: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
2909: END IF;
2910:
2911: --}
2912: END IF;
2915: COMMIT WORK;
2916: END IF;
2917: --
2918: --bug 4070732
2919: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2920: --{
2921: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2922: --{
2923:
2917: --
2918: --bug 4070732
2919: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2920: --{
2921: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2922: --{
2923:
2924: IF FND_API.To_Boolean( p_commit ) THEN
2925:
2923:
2924: IF FND_API.To_Boolean( p_commit ) THEN
2925:
2926: IF l_debug_on THEN
2927: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2928: END IF;
2929:
2930: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
2931: x_return_status => l_return_status);
2926: IF l_debug_on THEN
2927: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2928: END IF;
2929:
2930: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
2931: x_return_status => l_return_status);
2932:
2933: ELSE
2934:
2932:
2933: ELSE
2934:
2935: IF l_debug_on THEN
2936: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2937: END IF;
2938:
2939: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
2940: x_return_status => l_return_status);
2935: IF l_debug_on THEN
2936: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
2937: END IF;
2938:
2939: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
2940: x_return_status => l_return_status);
2941:
2942: END IF;
2943:
2944: IF l_debug_on THEN
2945: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2946: END IF;
2947:
2948: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
2949: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
2950: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2951: x_return_status := l_return_status;
2952: END IF;
2945: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
2946: END IF;
2947:
2948: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
2949: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
2950: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2951: x_return_status := l_return_status;
2952: END IF;
2953:
2946: END IF;
2947:
2948: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
2949: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
2950: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2951: x_return_status := l_return_status;
2952: END IF;
2953:
2954: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
2950: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
2951: x_return_status := l_return_status;
2952: END IF;
2953:
2954: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
2955: WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2956: IF NOT FND_API.To_Boolean( p_commit ) THEN
2957: ROLLBACK TO REVERT_MATCHING_GRP;
2958: END IF;
2951: x_return_status := l_return_status;
2952: END IF;
2953:
2954: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
2955: WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2956: IF NOT FND_API.To_Boolean( p_commit ) THEN
2957: ROLLBACK TO REVERT_MATCHING_GRP;
2958: END IF;
2959: END IF;
2984: EXCEPTION
2985: --{
2986: WHEN FND_API.G_EXC_ERROR THEN
2987: ROLLBACK TO REVERT_MATCHING_GRP;
2988: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2989: --
2990: --
2991: --
2992: -- Start code for Bugfix 4070732
2990: --
2991: --
2992: -- Start code for Bugfix 4070732
2993: --
2994: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2995: --{
2996: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2997: --{
2998: IF l_debug_on THEN
2992: -- Start code for Bugfix 4070732
2993: --
2994: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
2995: --{
2996: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2997: --{
2998: IF l_debug_on THEN
2999: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3000: END IF;
2995: --{
2996: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
2997: --{
2998: IF l_debug_on THEN
2999: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3000: END IF;
3001:
3002: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3003: x_return_status => l_return_status);
2998: IF l_debug_on THEN
2999: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3000: END IF;
3001:
3002: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3003: x_return_status => l_return_status);
3004:
3005:
3006: IF l_debug_on THEN
3006: IF l_debug_on THEN
3007: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3008: END IF;
3009:
3010: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3011: x_return_status := l_return_status;
3012: END IF;
3013: --}
3014: END IF;
3033: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
3034:
3035: FND_MESSAGE.SET_NAME('WSH','WSH_DEBUG_FILE_NAME');
3036: FND_MESSAGE.SET_TOKEN('DEBUG_FILE_NAME',l_debugfile);
3037: wsh_util_core.add_message(x_return_status, l_module_name);
3038:
3039: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
3040: END IF;
3041: --
3040: END IF;
3041: --
3042: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3043: ROLLBACK TO REVERT_MATCHING_GRP;
3044: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3045: --
3046:
3047: --
3048: --
3047: --
3048: --
3049: -- Start code for Bugfix 4070732
3050: --
3051: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3052: --{
3053: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3054: --{
3055: IF l_debug_on THEN
3049: -- Start code for Bugfix 4070732
3050: --
3051: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3052: --{
3053: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3054: --{
3055: IF l_debug_on THEN
3056: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3057: END IF;
3052: --{
3053: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3054: --{
3055: IF l_debug_on THEN
3056: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3057: END IF;
3058:
3059: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3060: x_return_status => l_return_status);
3055: IF l_debug_on THEN
3056: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3057: END IF;
3058:
3059: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3060: x_return_status => l_return_status);
3061:
3062:
3063: IF l_debug_on THEN
3063: IF l_debug_on THEN
3064: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3065: END IF;
3066:
3067: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3068: x_return_status := l_return_status;
3069: END IF;
3070: --}
3071: END IF;
3088: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
3089:
3090: FND_MESSAGE.SET_NAME('WSH','WSH_DEBUG_FILE_NAME');
3091: FND_MESSAGE.SET_TOKEN('DEBUG_FILE_NAME',l_debugfile);
3092: wsh_util_core.add_message(x_return_status, l_module_name);
3093:
3094: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3095: END IF;
3096: --
3093:
3094: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3095: END IF;
3096: --
3097: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3098: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3099: --
3100: --
3101: --
3094: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3095: END IF;
3096: --
3097: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3098: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3099: --
3100: --
3101: --
3102: -- Start code for Bugfix 4070732
3100: --
3101: --
3102: -- Start code for Bugfix 4070732
3103: --
3104: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3105: --{
3106: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3107: --{
3108: IF l_debug_on THEN
3102: -- Start code for Bugfix 4070732
3103: --
3104: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3105: --{
3106: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3107: --{
3108: IF l_debug_on THEN
3109: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3110: END IF;
3105: --{
3106: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3107: --{
3108: IF l_debug_on THEN
3109: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3110: END IF;
3111:
3112: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3113: x_return_status => l_return_status);
3108: IF l_debug_on THEN
3109: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3110: END IF;
3111:
3112: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3113: x_return_status => l_return_status);
3114:
3115:
3116: IF l_debug_on THEN
3116: IF l_debug_on THEN
3117: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3118: END IF;
3119:
3120: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3121: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3122: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3123: x_return_status := l_return_status;
3124: END IF;
3117: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3118: END IF;
3119:
3120: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3121: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3122: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3123: x_return_status := l_return_status;
3124: END IF;
3125: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3118: END IF;
3119:
3120: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3121: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3122: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3123: x_return_status := l_return_status;
3124: END IF;
3125: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3126: WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3121: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3122: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3123: x_return_status := l_return_status;
3124: END IF;
3125: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3126: WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3127: ROLLBACK TO REVERT_MATCHING_GRP;
3128: END IF;
3129:
3122: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3123: x_return_status := l_return_status;
3124: END IF;
3125: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3126: WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
3127: ROLLBACK TO REVERT_MATCHING_GRP;
3128: END IF;
3129:
3130: --}
3142: --
3143: -- Debug Statements
3144: --
3145: IF l_debug_on THEN
3146: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3147: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3148: END IF;
3149: --
3150: WHEN OTHERS THEN
3143: -- Debug Statements
3144: --
3145: IF l_debug_on THEN
3146: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3147: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3148: END IF;
3149: --
3150: WHEN OTHERS THEN
3151: ROLLBACK TO REVERT_MATCHING_GRP;
3148: END IF;
3149: --
3150: WHEN OTHERS THEN
3151: ROLLBACK TO REVERT_MATCHING_GRP;
3152: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3153: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.REVERT_MATCHING', l_module_name);
3154: --
3155: --
3156: --
3149: --
3150: WHEN OTHERS THEN
3151: ROLLBACK TO REVERT_MATCHING_GRP;
3152: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3153: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.REVERT_MATCHING', l_module_name);
3154: --
3155: --
3156: --
3157: --
3156: --
3157: --
3158: -- Start code for Bugfix 4070732
3159: --
3160: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3161: --{
3162: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3163: --{
3164: IF l_debug_on THEN
3158: -- Start code for Bugfix 4070732
3159: --
3160: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3161: --{
3162: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3163: --{
3164: IF l_debug_on THEN
3165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3166: END IF;
3161: --{
3162: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3163: --{
3164: IF l_debug_on THEN
3165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3166: END IF;
3167:
3168: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3169: x_return_status => l_return_status);
3164: IF l_debug_on THEN
3165: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3166: END IF;
3167:
3168: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3169: x_return_status => l_return_status);
3170:
3171:
3172: IF l_debug_on THEN
3172: IF l_debug_on THEN
3173: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3174: END IF;
3175:
3176: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3177: x_return_status := l_return_status;
3178: END IF;
3179: --}
3180: END IF;
3200: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
3201:
3202: FND_MESSAGE.SET_NAME('WSH','WSH_DEBUG_FILE_NAME');
3203: FND_MESSAGE.SET_TOKEN('DEBUG_FILE_NAME',l_debugfile);
3204: wsh_util_core.add_message(x_return_status, l_module_name);
3205:
3206: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3207: END IF;
3208: --
3372:
3373: --
3374: --}
3375: BEGIN
3376: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
3377: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
3378: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
3379: END IF;
3380:
3373: --
3374: --}
3375: BEGIN
3376: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
3377: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
3378: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
3379: END IF;
3380:
3381: --{
3374: --}
3375: BEGIN
3376: IF WSH_UTIL_CORE.G_START_OF_SESSION_API is null THEN --Bugfix 4070732
3377: WSH_UTIL_CORE.G_START_OF_SESSION_API := l_api_session_name;
3378: WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API := FALSE;
3379: END IF;
3380:
3381: --{
3382: --
3448: THEN
3449: update wsh_inbound_del_lines_temp
3450: set ship_from_location_id = l_header_ship_from_loc_id
3451: where ship_from_location_id is null
3452: or ship_from_location_id = WSH_UTIL_CORE.C_NULL_SF_LOCN_ID;
3453: END IF;
3454: -- } IB-Phase-2
3455:
3456: open l_inbound_del_det_temp_csr;
3554: --
3555: -- Debug Statements
3556: --
3557: IF l_debug_on THEN
3558: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3559: END IF;
3560: --
3561: wsh_util_core.api_post_call(
3562: p_return_status => l_return_status,
3557: IF l_debug_on THEN
3558: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3559: END IF;
3560: --
3561: wsh_util_core.api_post_call(
3562: p_return_status => l_return_status,
3563: x_num_warnings => l_num_warnings,
3564: x_num_errors => l_num_errors);
3565: --}
3588: --
3589: -- Debug Statements
3590: --
3591: IF l_debug_on THEN
3592: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3593: END IF;
3594: --
3595: wsh_util_core.api_post_call(
3596: p_return_status => l_return_status,
3591: IF l_debug_on THEN
3592: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3593: END IF;
3594: --
3595: wsh_util_core.api_post_call(
3596: p_return_status => l_return_status,
3597: x_num_warnings => l_num_warnings,
3598: x_num_errors => l_num_errors,
3599: p_msg_data => l_msg_data);
3648: -- Debug Statements
3649: --
3650: IF l_debug_on THEN
3651: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_INBOUND_TXN_HISTORY_PKG.post_process is ', l_return_status);
3652: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3653: END IF;
3654: --
3655: wsh_util_core.api_post_call(
3656: p_return_status => l_return_status,
3651: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling WSH_INBOUND_TXN_HISTORY_PKG.post_process is ', l_return_status);
3652: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3653: END IF;
3654: --
3655: wsh_util_core.api_post_call(
3656: p_return_status => l_return_status,
3657: x_num_warnings => l_num_warnings,
3658: x_num_errors => l_num_errors);
3659:
3656: p_return_status => l_return_status,
3657: x_num_warnings => l_num_warnings,
3658: x_num_errors => l_num_errors);
3659:
3660: --x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3661: IF (l_asn_rcv_po_cancel_rec.line_id.COUNT > 0 OR l_asn_rcv_po_close_rec.line_id.COUNT > 0 ) THEN
3662: --{
3663: WSH_ASN_RECEIPT_PVT.cancel_close_pending_txns(
3664: p_po_cancel_rec => l_asn_rcv_po_cancel_rec,
3668: -- Debug Statements
3669: --
3670: IF l_debug_on THEN
3671: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling cancel_close_pending_txns 1 is ', l_return_status);
3672: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3673: END IF;
3674: --
3675: wsh_util_core.api_post_call(
3676: p_return_status => l_return_status,
3671: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling cancel_close_pending_txns 1 is ', l_return_status);
3672: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3673: END IF;
3674: --
3675: wsh_util_core.api_post_call(
3676: p_return_status => l_return_status,
3677: x_num_warnings => l_num_warnings,
3678: x_num_errors => l_num_errors);
3679: --}
3689: -- Debug Statements
3690: --
3691: IF l_debug_on THEN
3692: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling cancel_close_pending_txns 2 is ', l_return_status);
3693: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3694: END IF;
3695: --
3696: wsh_util_core.api_post_call(
3697: p_return_status => l_return_status,
3692: WSH_DEBUG_SV.log(l_module_name,'Return Status after calling cancel_close_pending_txns 2 is ', l_return_status);
3693: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.API_POST_CALL',WSH_DEBUG_SV.C_PROC_LEVEL);
3694: END IF;
3695: --
3696: wsh_util_core.api_post_call(
3697: p_return_status => l_return_status,
3698: x_num_warnings => l_num_warnings,
3699: x_num_errors => l_num_errors);
3700: --}
3706: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
3707:
3708: FND_MESSAGE.SET_NAME('WSH','WSH_DEBUG_FILE_NAME');
3709: FND_MESSAGE.SET_TOKEN('DEBUG_FILE_NAME',l_debugfile);
3710: x_return_status := wsh_util_core.g_ret_sts_success;
3711: wsh_util_core.add_message(x_return_status, l_module_name);
3712:
3713: --}
3714: END IF;
3707:
3708: FND_MESSAGE.SET_NAME('WSH','WSH_DEBUG_FILE_NAME');
3709: FND_MESSAGE.SET_TOKEN('DEBUG_FILE_NAME',l_debugfile);
3710: x_return_status := wsh_util_core.g_ret_sts_success;
3711: wsh_util_core.add_message(x_return_status, l_module_name);
3712:
3713: --}
3714: END IF;
3715: --
3714: END IF;
3715: --
3716:
3717: IF l_num_warnings > 0 THEN
3718: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3719: ELSE
3720: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3721: END IF;
3722: -- Standard check of p_commit.
3716:
3717: IF l_num_warnings > 0 THEN
3718: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3719: ELSE
3720: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3721: END IF;
3722: -- Standard check of p_commit.
3723: IF FND_API.To_Boolean( p_commit ) THEN
3724:
3722: -- Standard check of p_commit.
3723: IF FND_API.To_Boolean( p_commit ) THEN
3724:
3725: --bug 4070732
3726: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3727: --{
3728:
3729: l_reset_flags := FALSE;
3730:
3728:
3729: l_reset_flags := FALSE;
3730:
3731: IF l_debug_on THEN
3732: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3733: END IF;
3734:
3735: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
3736: x_return_status => l_return_status);
3731: IF l_debug_on THEN
3732: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3733: END IF;
3734:
3735: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => l_reset_flags,
3736: x_return_status => l_return_status);
3737:
3738: IF l_debug_on THEN
3739: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3738: IF l_debug_on THEN
3739: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3740: END IF;
3741:
3742: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3743: RAISE FND_API.G_EXC_ERROR;
3744: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3746: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3740: END IF;
3741:
3742: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3743: RAISE FND_API.G_EXC_ERROR;
3744: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3746: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3747: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3748: END IF;
3742: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3743: RAISE FND_API.G_EXC_ERROR;
3744: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3746: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3747: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3748: END IF;
3749:
3750: --}
3743: RAISE FND_API.G_EXC_ERROR;
3744: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3745: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3746: ELSIF l_return_status = WSH_UTIL_CORE.G_RET_STS_WARNING THEN
3747: RAISE WSH_UTIL_CORE.G_EXC_WARNING;
3748: END IF;
3749:
3750: --}
3751: END IF;
3754: COMMIT WORK;
3755: END IF;
3756: --
3757: --bug 4070732
3758: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3759: --{
3760: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3761: --{
3762:
3756: --
3757: --bug 4070732
3758: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3759: --{
3760: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3761: --{
3762:
3763: IF FND_API.To_Boolean( p_commit ) THEN
3764:
3762:
3763: IF FND_API.To_Boolean( p_commit ) THEN
3764:
3765: IF l_debug_on THEN
3766: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3767: END IF;
3768:
3769: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
3770: x_return_status => l_return_status);
3765: IF l_debug_on THEN
3766: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3767: END IF;
3768:
3769: WSH_UTIL_CORE.reset_stops_for_load_tender(p_reset_flags => TRUE,
3770: x_return_status => l_return_status);
3771:
3772:
3773: ELSE
3773: ELSE
3774:
3775:
3776: IF l_debug_on THEN
3777: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3778: END IF;
3779:
3780: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3781: x_return_status => l_return_status);
3776: IF l_debug_on THEN
3777: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3778: END IF;
3779:
3780: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3781: x_return_status => l_return_status);
3782:
3783: END IF;
3784:
3785: IF l_debug_on THEN
3786: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3787: END IF;
3788:
3789: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3790: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3791: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3792: x_return_status := l_return_status;
3793: END IF;
3786: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3787: END IF;
3788:
3789: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3790: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3791: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3792: x_return_status := l_return_status;
3793: END IF;
3794:
3787: END IF;
3788:
3789: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3790: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3791: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3792: x_return_status := l_return_status;
3793: END IF;
3794:
3795: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3791: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3792: x_return_status := l_return_status;
3793: END IF;
3794:
3795: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3796: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3797: IF NOT FND_API.To_Boolean( p_commit ) THEN
3798: ROLLBACK TO MATCH_SHIPMENTS_GRP;
3799: END IF;
3792: x_return_status := l_return_status;
3793: END IF;
3794:
3795: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3796: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3797: IF NOT FND_API.To_Boolean( p_commit ) THEN
3798: ROLLBACK TO MATCH_SHIPMENTS_GRP;
3799: END IF;
3800: END IF;
3824: EXCEPTION
3825: --{
3826: WHEN FND_API.G_EXC_ERROR THEN
3827: ROLLBACK TO MATCH_SHIPMENTS_GRP;
3828: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
3829: --
3830: --
3831: -- Start code for Bugfix 4070732
3832: --
3829: --
3830: --
3831: -- Start code for Bugfix 4070732
3832: --
3833: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3834: --{
3835: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3836: --{
3837: IF l_debug_on THEN
3831: -- Start code for Bugfix 4070732
3832: --
3833: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3834: --{
3835: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3836: --{
3837: IF l_debug_on THEN
3838: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3839: END IF;
3834: --{
3835: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3836: --{
3837: IF l_debug_on THEN
3838: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3839: END IF;
3840:
3841: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3842: x_return_status => l_return_status);
3837: IF l_debug_on THEN
3838: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3839: END IF;
3840:
3841: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3842: x_return_status => l_return_status);
3843:
3844:
3845: IF l_debug_on THEN
3845: IF l_debug_on THEN
3846: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3847: END IF;
3848:
3849: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3850: x_return_status := l_return_status;
3851: END IF;
3852: --}
3853: END IF;
3871: END IF;
3872: --
3873: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3874: ROLLBACK TO MATCH_SHIPMENTS_GRP;
3875: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3876: --
3877: --
3878: -- Start code for Bugfix 4070732
3879: --
3876: --
3877: --
3878: -- Start code for Bugfix 4070732
3879: --
3880: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3881: --{
3882: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3883: --{
3884: IF l_debug_on THEN
3878: -- Start code for Bugfix 4070732
3879: --
3880: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3881: --{
3882: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3883: --{
3884: IF l_debug_on THEN
3885: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3886: END IF;
3881: --{
3882: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3883: --{
3884: IF l_debug_on THEN
3885: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3886: END IF;
3887:
3888: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3889: x_return_status => l_return_status);
3884: IF l_debug_on THEN
3885: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3886: END IF;
3887:
3888: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3889: x_return_status => l_return_status);
3890:
3891:
3892: IF l_debug_on THEN
3892: IF l_debug_on THEN
3893: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3894: END IF;
3895:
3896: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3897: x_return_status := l_return_status;
3898: END IF;
3899: --}
3900: END IF;
3918: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
3919:
3920: FND_MESSAGE.SET_NAME('WSH','WSH_DEBUG_FILE_NAME');
3921: FND_MESSAGE.SET_TOKEN('DEBUG_FILE_NAME',l_debugfile);
3922: wsh_util_core.add_message(x_return_status, l_module_name);
3923:
3924: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3925: END IF;
3926: --
3923:
3924: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3925: END IF;
3926: --
3927: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3928: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3929: --
3930: --
3931: --
3924: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
3925: END IF;
3926: --
3927: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
3928: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
3929: --
3930: --
3931: --
3932: -- Start code for Bugfix 4070732
3930: --
3931: --
3932: -- Start code for Bugfix 4070732
3933: --
3934: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3935: --{
3936: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3937: --{
3938: IF l_debug_on THEN
3932: -- Start code for Bugfix 4070732
3933: --
3934: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3935: --{
3936: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3937: --{
3938: IF l_debug_on THEN
3939: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3940: END IF;
3935: --{
3936: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3937: --{
3938: IF l_debug_on THEN
3939: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3940: END IF;
3941:
3942: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3943: x_return_status => l_return_status);
3938: IF l_debug_on THEN
3939: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Process_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3940: END IF;
3941:
3942: WSH_UTIL_CORE.Process_stops_for_load_tender(p_reset_flags => TRUE,
3943: x_return_status => l_return_status);
3944:
3945:
3946: IF l_debug_on THEN
3946: IF l_debug_on THEN
3947: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3948: END IF;
3949:
3950: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3951: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3952: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3953: x_return_status := l_return_status;
3954: END IF;
3947: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
3948: END IF;
3949:
3950: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3951: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3952: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3953: x_return_status := l_return_status;
3954: END IF;
3955: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3948: END IF;
3949:
3950: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3951: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3952: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3953: x_return_status := l_return_status;
3954: END IF;
3955: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3956: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3951: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR,
3952: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3953: x_return_status := l_return_status;
3954: END IF;
3955: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3956: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3957: ROLLBACK TO MATCH_SHIPMENTS_GRP;
3958: END IF;
3959:
3952: WSH_UTIL_CORE.G_RET_STS_WARNING) THEN
3953: x_return_status := l_return_status;
3954: END IF;
3955: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,
3956: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
3957: ROLLBACK TO MATCH_SHIPMENTS_GRP;
3958: END IF;
3959:
3960:
3973: );
3974: -- Debug Statements
3975: --
3976: IF l_debug_on THEN
3977: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3978: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3979: END IF;
3980: --
3981: WHEN OTHERS THEN
3974: -- Debug Statements
3975: --
3976: IF l_debug_on THEN
3977: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured.',WSH_DEBUG_SV.C_EXCEP_LEVEL);
3978: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
3979: END IF;
3980: --
3981: WHEN OTHERS THEN
3982: ROLLBACK TO MATCH_SHIPMENTS_GRP;
3979: END IF;
3980: --
3981: WHEN OTHERS THEN
3982: ROLLBACK TO MATCH_SHIPMENTS_GRP;
3983: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3984: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.MATCH_SHIPMENTS', l_module_name);
3985: --
3986: --
3987: -- Start code for Bugfix 4070732
3980: --
3981: WHEN OTHERS THEN
3982: ROLLBACK TO MATCH_SHIPMENTS_GRP;
3983: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR ;
3984: wsh_util_core.default_handler('WSH_IB_UI_RECON_GRP.MATCH_SHIPMENTS', l_module_name);
3985: --
3986: --
3987: -- Start code for Bugfix 4070732
3988: --
3985: --
3986: --
3987: -- Start code for Bugfix 4070732
3988: --
3989: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3990: --{
3991: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3992: --{
3993: IF l_debug_on THEN
3987: -- Start code for Bugfix 4070732
3988: --
3989: IF upper(WSH_UTIL_CORE.G_START_OF_SESSION_API) = upper(l_api_session_name) THEN
3990: --{
3991: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3992: --{
3993: IF l_debug_on THEN
3994: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3995: END IF;
3990: --{
3991: IF NOT(WSH_UTIL_CORE.G_CALL_FTE_LOAD_TENDER_API) THEN
3992: --{
3993: IF l_debug_on THEN
3994: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3995: END IF;
3996:
3997: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3998: x_return_status => l_return_status);
3993: IF l_debug_on THEN
3994: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_UTIL_CORE.Reset_stops_for_load_tender',WSH_DEBUG_SV.C_PROC_LEVEL);
3995: END IF;
3996:
3997: WSH_UTIL_CORE.Reset_stops_for_load_tender(p_reset_flags => TRUE,
3998: x_return_status => l_return_status);
3999:
4000:
4001: IF l_debug_on THEN
4001: IF l_debug_on THEN
4002: WSH_DEBUG_SV.log(l_module_name,'l_return_status',l_return_status);
4003: END IF;
4004:
4005: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4006: x_return_status := l_return_status;
4007: END IF;
4008: --}
4009: END IF;
4028: l_debugfile := l_debugfile||'/'||WSH_DEBUG_SV.g_file;
4029:
4030: FND_MESSAGE.SET_NAME('WSH','WSH_DEBUG_FILE_NAME');
4031: FND_MESSAGE.SET_TOKEN('DEBUG_FILE_NAME',l_debugfile);
4032: wsh_util_core.add_message(x_return_status, l_module_name);
4033: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4034: END IF;
4035: --
4036: END match_shipments;