[Home] [Help]
1: PACKAGE BODY WSH_DELIVERY_DETAILS_ACTIONS as
2: /* $Header: WSHDDACB.pls 120.50.12020000.14 2013/05/30 13:27:00 skanduku ship $ */
3:
4: -- odaboval : Begin of OPM Changes (Pick_Confirm)
5: G_PACKAGE_NAME CONSTANT VARCHAR2(50) := 'WSH_DELIVERY_DETAILS_ACTIONS';
1: PACKAGE BODY WSH_DELIVERY_DETAILS_ACTIONS as
2: /* $Header: WSHDDACB.pls 120.50.12020000.14 2013/05/30 13:27:00 skanduku ship $ */
3:
4: -- odaboval : Begin of OPM Changes (Pick_Confirm)
5: G_PACKAGE_NAME CONSTANT VARCHAR2(50) := 'WSH_DELIVERY_DETAILS_ACTIONS';
6:
7: G_MAX_DECIMAL_DIGITS CONSTANT NUMBER := 9 ;
8: G_MAX_REAL_DIGITS CONSTANT NUMBER := 10 ;
9: G_RET_WARNING CONSTANT VARCHAR2(1):= 'W';
1563: END IF;
1564: -- Workflow Changes ==/
1565: --
1566: IF l_debug_on THEN
1567: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
1568: END IF;
1569: --
1570:
1571: wsh_delivery_details_actions.assign_top_detail_to_delivery(
1567: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
1568: END IF;
1569: --
1570:
1571: wsh_delivery_details_actions.assign_top_detail_to_delivery(
1572: P_DETAIL_ID => l_topmost_delivery_detail_id,
1573: P_DELIVERY_ID => p_delivery_id,
1574: X_RETURN_STATUS => x_return_status,
1575: x_dlvy_has_lines => x_dlvy_has_lines, -- J-IB-NPARIKH
1713: WHEN others THEN
1714: ROLLBACK TO before_assign_topmost_cont;
1715: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1716: wsh_util_core.add_message(x_return_status,l_module_name);
1717: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DELIVERY_DETAIL',l_module_name);
1718:
1719: --
1720: IF l_debug_on THEN
1721: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1784: --
1785: EXCEPTION
1786: WHEN others THEN
1787: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1788: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.Assign_Detail_to_Delivery',l_module_name);
1789: --
1790: IF l_debug_on THEN
1791: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1792: END IF;
3257: -- End of OTM R12 : assign delivery detail
3258:
3259: -- K: MDC delete consolidation record of it exists
3260: l_mdc_detail_tab(1) := p_detail_id;
3261: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
3262: p_detail_id_tab => l_mdc_detail_tab,
3263: x_return_status => x_return_status);
3264:
3265: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3334: last_update_login = FND_GLOBAL.LOGIN_ID
3335: WHERE delivery_detail_id = p_detail_id;
3336:
3337: l_mdc_detail_tab(1) := p_detail_id;
3338: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
3339: p_detail_id_tab => l_mdc_detail_tab,
3340: x_return_status => x_return_status);
3341:
3342: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3513:
3514: FOR i in l_sync_tmp_recTbl.delivery_detail_id_tbl.first..l_sync_tmp_recTbl.delivery_detail_id_tbl.last LOOP
3515: l_mdc_detail_tab(i) := l_sync_tmp_recTbl.delivery_detail_id_tbl(i);
3516: END LOOP;
3517: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
3518: p_detail_id_tab => l_mdc_detail_tab,
3519: x_return_status => x_return_status);
3520:
3521: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
3665: --
3666: RETURN;
3667: WHEN others THEN
3668: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
3669: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_CONT',l_module_name);
3670: --
3671: IF l_debug_on THEN
3672: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
3673: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
3874: last_updated_by = FND_GLOBAL.USER_ID,
3875: last_update_login = FND_GLOBAL.LOGIN_ID
3876: WHERE delivery_detail_id = p_detail_id;
3877: l_mdc_detail_tab(1) := p_detail_id;
3878: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
3879: p_detail_id_tab => l_mdc_detail_tab,
3880: x_return_status => x_return_status);
3881:
3882: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4040: END IF;
4041: --
4042: RETURN;
4043: WHEN others THEN
4044: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_CONT',l_module_name);
4045: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4046:
4047: --
4048: IF l_debug_on THEN
4882: RAISE NO_DATA_FOUND;
4883: END IF;
4884:
4885: l_mdc_detail_tab(1) := l_detail.delivery_detail_id;
4886: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
4887: p_detail_id_tab => l_mdc_detail_tab,
4888: x_return_status => x_return_status);
4889:
4890: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
5236: --
5237: RETURN;
5238: WHEN others THEN
5239: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5240: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5241: --
5242: IF l_debug_on THEN
5243: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
5244: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5304: --
5305: EXCEPTION
5306: WHEN others THEN
5307: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
5308: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_TOP_DETAIL_TO_DELIVERY',l_module_name);
5309: --
5310: IF l_debug_on THEN
5311: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5312: END IF;
6234:
6235: FOR i in l_sync_tmp_recTbl.delivery_detail_id_tbl.first..l_sync_tmp_recTbl.delivery_detail_id_tbl.last LOOP
6236: l_mdc_detail_tab(i) := l_sync_tmp_recTbl.delivery_detail_id_tbl(i);
6237: END LOOP;
6238: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
6239: p_detail_id_tab => l_mdc_detail_tab,
6240: x_return_status => x_return_status);
6241:
6242: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6398:
6399: FOR i in l_sync_tmp_recTbl.delivery_detail_id_tbl.first..l_sync_tmp_recTbl.delivery_detail_id_tbl.last LOOP
6400: l_mdc_detail_tab(i) := l_sync_tmp_recTbl.delivery_detail_id_tbl(i);
6401: END LOOP;
6402: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
6403: p_detail_id_tab => l_mdc_detail_tab,
6404: x_return_status => x_return_status);
6405: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6406: IF l_debug_on THEN
6479: last_updated_by = FND_GLOBAL.USER_ID,
6480: last_update_login = FND_GLOBAL.LOGIN_ID
6481: WHERE delivery_detail_id = p_detail_id1;
6482: l_mdc_detail_tab(1) := p_detail_id1;
6483: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
6484: p_detail_id_tab => l_mdc_detail_tab,
6485: x_return_status => x_return_status);
6486:
6487: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
6642: if c_del_id_for_cont_or_detail%ISOPEN THEN
6643: close c_del_id_for_cont_or_detail;
6644: end if;
6645: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
6646: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_CONT_TO_CONT',l_module_name);
6647: --
6648: IF l_debug_on THEN
6649: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
6650: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7172: RAISE NO_DATA_FOUND;
7173: END IF;
7174:
7175: l_mdc_detail_tab(1) := l_dd_id(j);
7176: WSH_DELIVERY_DETAILS_ACTIONS.Delete_Consol_Record(
7177: p_detail_id_tab => l_mdc_detail_tab,
7178: x_return_status => x_return_status);
7179:
7180: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7519: RAISE NO_DATA_FOUND;
7520: END IF;
7521:
7522: l_mdc_detail_tab(1) := p_detail_id;
7523: WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record(
7524: p_detail_id_tab => l_mdc_detail_tab,
7525: x_return_status => x_return_status);
7526:
7527: IF (x_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
7717: END IF;
7718:
7719: WHEN others THEN
7720: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7721: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7722: ROLLBACK TO before_unassign;
7723:
7724:
7725: --
7769: WSH_DEBUG_SV.log(l_module_name,'P_VALIDATE_FLAG',P_VALIDATE_FLAG);
7770: END IF;
7771: --
7772: IF l_debug_on THEN
7773: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
7774: END IF;
7775: UNASSIGN_DETAIL_FROM_DELIVERY (p_detail_id,
7776: x_return_status,
7777: p_validate_flag,
7783: --
7784: EXCEPTION
7785: WHEN others THEN
7786: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
7787: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',l_module_name);
7788: --
7789: IF l_debug_on THEN
7790: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
7791: END IF;
8390: END IF;
8391: --
8392: WHEN others THEN
8393: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8394: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8395: --
8396: IF l_debug_on THEN
8397: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8398: END IF;
8473: --
8474: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
8475: --
8476: IF l_debug_on THEN
8477: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
8478: END IF;
8479: --
8480: UNASSIGN_MULTIPLE_DETAILS
8481: (
8493:
8494: EXCEPTION
8495: WHEN others THEN
8496: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8497: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_MULTIPLE_DETAIL',l_module_name);
8498: --
8499: IF l_debug_on THEN
8500: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
8501: END IF;
8624: --
8625: IF l_debug_on THEN
8626: WSH_DEBUG_SV.log(l_module_name,'Delivery id ',p_rec_of_detail_ids(i));
8627:
8628: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
8629: END IF;
8630: --
8631: wsh_delivery_details_actions.assign_detail_to_delivery(
8632: p_detail_id => P_REC_OF_DETAIL_IDS(i),
8627:
8628: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_DETAIL_TO_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
8629: END IF;
8630: --
8631: wsh_delivery_details_actions.assign_detail_to_delivery(
8632: p_detail_id => P_REC_OF_DETAIL_IDS(i),
8633: p_delivery_id => p_delivery_id,
8634: x_return_status => x_return_status,
8635: x_dlvy_has_lines => l_has_lines, -- J-IB-NPARIKH
8654:
8655: IF (p_cont_ins_id <> -9999) THEN
8656: -- J: W/V Changes
8657: -- replaced the direct update with Assign_Detail_To_Cont API
8658: wsh_delivery_details_actions.Assign_Detail_To_Cont(
8659: p_detail_id => P_REC_OF_DETAIL_IDS(i),
8660: p_parent_detail_id => p_cont_ins_id,
8661: x_return_status => x_return_status);
8662:
8770: END IF;
8771: --
8772: WHEN others THEN
8773: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
8774: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.ASSIGN_MULTIPLE_DETAILS',l_module_name);
8775:
8776: --
8777: IF l_debug_on THEN
8778: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
8882:
8883: -- Bug 2637876
8884: l_original_shipped_qty NUMBER;
8885: l_split_shipped_qty NUMBER;
8886: l_serial_tab WSH_DELIVERY_DETAILS_ACTIONS.serial_tab;
8887: i NUMBER;
8888: j NUMBER;
8889: l_serial_orig_rec WSH_DELIVERY_DETAILS_ACTIONS.SplitDetailRecType;
8890: l_new_serial_rec WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
8885: l_split_shipped_qty NUMBER;
8886: l_serial_tab WSH_DELIVERY_DETAILS_ACTIONS.serial_tab;
8887: i NUMBER;
8888: j NUMBER;
8889: l_serial_orig_rec WSH_DELIVERY_DETAILS_ACTIONS.SplitDetailRecType;
8890: l_new_serial_rec WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
8891: l_transaction_id_tab WSH_UTIL_CORE.id_tab_type;
8892: l_serial_number WSH_DELIVERY_DETAILS.serial_number%TYPE;
8893: TYPE l_sr_no_tab IS TABLE OF VARCHAR2(30) INDEX BY BINARY_INTEGER;
9187: END IF;
9188: --
9189: WHEN others THEN
9190: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
9191: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS_BULK',l_module_name);
9192: --
9193: IF l_debug_on THEN
9194: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
9195: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10083: CLOSE c_get_req_pick_qty;
10084: END IF;
10085: rollback to split_savepoint;
10086: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10087: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT_BULK',l_module_name);
10088: --
10089: IF l_debug_on THEN
10090: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10091: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
10476: END IF;
10477: --
10478: WHEN others THEN
10479: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
10480: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DELIVERY_DETAILS',l_module_name);
10481: --
10482: IF l_debug_on THEN
10483: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
10484: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
11474: END IF;
11475:
11476: WHEN others THEN
11477: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
11478: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.SPLIT_DETAIL_INT',l_module_name);
11479: --
11480: IF l_debug_on THEN
11481: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
11482: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
12154: END IF;
12155: CLOSE get_container;
12156:
12157: IF l_debug_on THEN
12158: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_DETAIL_FROM_DELIVERY',WSH_DEBUG_SV.C_PROC_LEVEL);
12159: END IF;
12160:
12161: -- Unassign the Line or Container
12162: -- because this
12159: END IF;
12160:
12161: -- Unassign the Line or Container
12162: -- because this
12163: wsh_delivery_details_actions.unassign_detail_from_delivery(
12164: p_detail_id => p_ids_tobe_unassigned(i),
12165: p_validate_flag => p_validate_flag,
12166: x_return_status => l_return_status
12167: );
12202: END IF;
12203:
12204: IF l_line_id IS NULL THEN
12205: IF l_debug_on THEN
12206: WSH_DEBUG_SV.log(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNASSIGN_UNPACK_EMPTY_CONT
12207: recursively for ',l_parent_container_id(1));
12208: END IF;
12209:
12210: -- lpn conv
12618: -- in p_Cons_Source_Line_Rec_Tab.
12619: --
12620: -- HW OPM BUG#:3121616 added requested_quantity2
12621: PROCEDURE Consolidate_Source_Line(
12622: p_Cons_Source_Line_Rec_Tab IN WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
12623: x_consolidate_ids OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
12624: x_return_status OUT NOCOPY VARCHAR2 ) IS
12625:
12626: CURSOR get_bo_dds_cur(p_delivery_detail_id IN NUMBER, p_source_line_id IN NUMBER,p_delivery_id IN NUMBER) is
13095:
13096:
13097: WHEN OTHERS THEN
13098: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13099: WSH_UTIL_CORE.default_handler('WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Source_Lines ' );
13100: --
13101: -- Debug Statements
13102: --
13103: IF l_debug_on THEN
13191: --
13192: -- Debug Statements
13193: --
13194: IF l_debug_on THEN
13195: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont',WSH_DEBUG_SV.C_PROC_LEVEL);
13196: END IF;
13197: --
13198: l_delivery_detail_ids(1) := p_delivery_detail_id;
13199: IF (p_delete_flag = 'Y') THEN --{
13196: END IF;
13197: --
13198: l_delivery_detail_ids(1) := p_delivery_detail_id;
13199: IF (p_delete_flag = 'Y') THEN --{
13200: WSH_DELIVERY_DETAILS_ACTIONS.unassign_unpack_empty_cont (
13201: p_ids_tobe_unassigned => l_delivery_detail_ids ,
13202: p_validate_flag => 'N',
13203: x_return_status => l_return_status
13204: );
13240: WSH_DEBUG_SV.logmsg(l_module_name,'Unreserving the Backordered quantity ');
13241: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id);
13242: -- muom
13243: WSH_DEBUG_SV.logmsg(l_module_name,'... backordered quantity '||p_bo_qty||' backordered quantity2 '||p_bo_qty2s );
13244: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
13245: END IF;
13246: --
13247: IF (l_fulfillment_base='S' AND p_overpick_qty2s= 0 AND p_overpick_qty>0 ) THEN
13248: WSH_DEBUG_SV.logmsg(l_module_name,'..with . backordered quantity+overpicked quantity '||p_bo_qty||'+'||p_overpick_qty||' backordered quantity2 '||p_bo_qty2s );
13245: END IF;
13246: --
13247: IF (l_fulfillment_base='S' AND p_overpick_qty2s= 0 AND p_overpick_qty>0 ) THEN
13248: WSH_DEBUG_SV.logmsg(l_module_name,'..with . backordered quantity+overpicked quantity '||p_bo_qty||'+'||p_overpick_qty||' backordered quantity2 '||p_bo_qty2s );
13249: wsh_delivery_details_actions.unreserve_delivery_detail(
13250: p_delivery_Detail_id => p_delivery_detail_id,
13251: p_unreserve_mode => p_bo_mode ,
13252: p_quantity_to_unreserve => p_bo_qty+p_overpick_qty,
13253: p_override_retain_ato_rsv => 'N',
13255: x_return_status => l_return_status
13256: );
13257:
13258: ELSE
13259: wsh_delivery_details_actions.unreserve_delivery_detail(
13260: p_delivery_Detail_id => p_delivery_detail_id,
13261: p_unreserve_mode => p_bo_mode ,
13262: p_quantity_to_unreserve => p_bo_qty,
13263: p_override_retain_ato_rsv => 'N',
13280: IF l_debug_on THEN
13281: WSH_DEBUG_SV.logmsg(l_module_name,'Unreserving the Backordered quantity ');
13282: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id);
13283: WSH_DEBUG_SV.logmsg(l_module_name,'... overpicked quantity '||p_overpick_qty||' overpicked quantity2 '||p_overpick_qty2s );
13284: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
13285: END IF;
13286: --
13287:
13288: --Bug 4721577 Do not retain reservation for overpicked quantities
13288: --Bug 4721577 Do not retain reservation for overpicked quantities
13289: -- muom
13290: IF l_fulfillment_base = 'P' THEN
13291: IF p_bo_mode = 'RETAIN_RSV' THEN
13292: wsh_delivery_details_actions.unreserve_delivery_detail(
13293: p_delivery_Detail_id => p_delivery_detail_id,
13294: p_unreserve_mode => 'UNRESERVE' ,
13295: p_quantity_to_unreserve => p_overpick_qty,
13296: p_override_retain_ato_rsv => 'Y',
13297: p_quantity2_to_unreserve => p_bo_qty2s,
13298: x_return_status => l_return_status
13299: );
13300: ELSE
13301: wsh_delivery_details_actions.unreserve_delivery_detail(
13302: p_delivery_Detail_id => p_delivery_detail_id,
13303: p_unreserve_mode => p_bo_mode ,
13304: p_quantity_to_unreserve => p_overpick_qty,
13305: p_override_retain_ato_rsv => 'Y',
13308: );
13309: END IF;
13310: ELSE
13311: IF p_bo_mode = 'RETAIN_RSV' THEN
13312: wsh_delivery_details_actions.unreserve_delivery_detail(
13313: p_delivery_Detail_id => p_delivery_detail_id,
13314: p_unreserve_mode => 'UNRESERVE' ,
13315: p_quantity_to_unreserve => p_overpick_qty,
13316: p_override_retain_ato_rsv => 'Y',
13317: p_quantity2_to_unreserve => p_overpick_qty2s,
13318: x_return_status => l_return_status
13319: );
13320: ELSE
13321: wsh_delivery_details_actions.unreserve_delivery_detail(
13322: p_delivery_Detail_id => p_delivery_detail_id,
13323: p_unreserve_mode => p_bo_mode ,
13324: p_quantity_to_unreserve => p_overpick_qty,
13325: p_override_retain_ato_rsv => 'Y',
13351: -- muom
13352: l_qty2_unres :=p_bo_qty2s + p_overpick_qty2s;
13353: ------
13354: --This change should not be done in WSH_SHIP_CONFIRM_ACTIONS2.Backorder before calling
13355: --WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details because
13356: ------
13357: --When backorder quantity is not equal to requested
13358: --Consolidate_Delivery_Details API calls Process_Delivery_Details with 'delete_flag' as 'N'
13359:
13367: WSH_DEBUG_SV.logmsg(l_module_name,'... delivery_detail_id '|| p_delivery_detail_id);
13368: WSH_DEBUG_SV.logmsg(l_module_name,'... backordered quantity '||l_qty_unres );
13369: -- muom
13370: WSH_DEBUG_SV.logmsg(l_module_name,'... backordered quantity2 '||l_qty2_unres );
13371: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_DELIVERY_DETAILS_ACTIONS.UNRESERVE_DELIVERY_DETAIL',WSH_DEBUG_SV.C_PROC_LEVEL);
13372: END IF;
13373: --
13374: -- muom
13375: IF l_fulfillment_base = 'P' THEN
13372: END IF;
13373: --
13374: -- muom
13375: IF l_fulfillment_base = 'P' THEN
13376: wsh_delivery_details_actions.unreserve_delivery_detail(
13377: p_delivery_Detail_id => p_delivery_detail_id,
13378: p_unreserve_mode => l_bo_mode ,
13379: p_quantity_to_unreserve => l_qty_unres ,
13380: p_override_retain_ato_rsv => 'N',
13381: p_quantity2_to_unreserve => p_bo_qty2s,
13382: x_return_status => l_return_status
13383: );
13384: ELSE
13385: wsh_delivery_details_actions.unreserve_delivery_detail(
13386: p_delivery_Detail_id => p_delivery_detail_id,
13387: p_unreserve_mode => l_bo_mode ,
13388: p_quantity_to_unreserve => l_qty_unres ,
13389: p_override_retain_ato_rsv => 'N',
13480: -- delivery detail for each source line id.
13481: --
13482: -- HW OPM BUG#:3121616 Added x_remain_bo_qty2s
13483: PROCEDURE Consolidate_Delivery_Details(
13484: p_delivery_details_tab IN WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
13485: p_bo_mode IN VARCHAR2,
13486: x_cons_delivery_details_tab OUT NOCOPY WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
13487: x_remain_bo_qtys OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13488: x_remain_bo_qty2s OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13482: -- HW OPM BUG#:3121616 Added x_remain_bo_qty2s
13483: PROCEDURE Consolidate_Delivery_Details(
13484: p_delivery_details_tab IN WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
13485: p_bo_mode IN VARCHAR2,
13486: x_cons_delivery_details_tab OUT NOCOPY WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab,
13487: x_remain_bo_qtys OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13488: x_remain_bo_qty2s OUT NOCOPY WSH_UTIL_CORE.Id_Tab_Type,
13489: x_return_status OUT NOCOPY VARCHAR2
13490: ) IS
13489: x_return_status OUT NOCOPY VARCHAR2
13490: ) IS
13491: l_line_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the source line ids passed as parameter
13492: l_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery detail ids passed as parameter
13493: l_delivery_details_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab; -- Stores the delivery detail records with req-qty >0
13494: l_freight_detail_ids WSH_UTIL_CORE.Id_Tab_Type; -- Stores the delivery details for which the freight costs need to be deleted.
13495: l_req_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the requested quantities passed as parameter
13496: l_bo_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the BO quantities passed as parameter
13497: l_overpick_qtys WSH_UTIL_CORE.Id_Tab_Type; -- Stores the Overpicked quantities passed as parameter
13895: --
13896:
13897: WHEN OTHERS THEN
13898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13899: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details',l_module_name);
13900: --
13901: -- Debug Statements
13902: --
13903: IF l_debug_on THEN
13949: END IF;
13950: EXCEPTION
13951: WHEN OTHERS THEN
13952: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
13953: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Unassign_Top_Detail_from_Delivery',l_module_name);
13954: --
13955: -- Debug Statements
13956: --
13957: IF l_debug_on THEN
14081: EXCEPTION
14082:
14083: WHEN OTHERS THEN
14084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
14085: WSH_UTIL_CORE.Default_Handler('WSH_DELIVERY_DETAILS_ACTIONS.Create_Consol_Record',l_module_name);
14086: --
14087: -- Debug Statements
14088: --
14089: IF l_debug_on THEN
14092: END IF;
14093: --
14094: END Create_Consol_Record;
14095:
14096: END WSH_DELIVERY_DETAILS_ACTIONS;