[Home] [Help]
31:
32: l_row_count NUMBER;
33: l_container_name varchar2(50);
34: l_temp_id NUMBER;
35: l_cont_dummy_tab WSH_UTIL_CORE.id_tab_type;
36:
37: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
38:
39: others exception;
33: l_container_name varchar2(50);
34: l_temp_id NUMBER;
35: l_cont_dummy_tab WSH_UTIL_CORE.id_tab_type;
36:
37: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
38:
39: others exception;
40:
41: -- bug 3022644 - Cursor to check whether container name is already exist
72: WSH_DEBUG_SV.log(l_module_name,'p_delivery_details_info.container_name',
73: p_delivery_details_info.container_name);
74: END IF;
75: --
76: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
77:
78: -- bug 3022644
79: /* bmso take out this code once WMS code is ready*/
80: IF (p_delivery_details_info.container_flag = 'Y') THEN
85: OPEN Get_Exist_Cont(l_container_name,WSH_UTIL_VALIDATE.check_wms_org(p_delivery_details_info.organization_id));
86: FETCH Get_Exist_Cont INTO l_cont_cnt;
87: CLOSE Get_Exist_Cont;
88: IF l_cont_cnt = 1 THEN
89: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
90: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NAME_DUPLICATE');
91: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_container_name);
92: WSH_UTIL_CORE.Add_Message(x_return_status);
93: IF l_debug_on THEN
88: IF l_cont_cnt = 1 THEN
89: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
90: FND_MESSAGE.SET_NAME('WSH','WSH_CONT_NAME_DUPLICATE');
91: FND_MESSAGE.SET_TOKEN('CONT_NAME',l_container_name);
92: WSH_UTIL_CORE.Add_Message(x_return_status);
93: IF l_debug_on THEN
94: WSH_DEBUG_SV.pop(l_module_name);
95: END IF;
96: RETURN;
139: --
140: EXCEPTION
141: WHEN others THEN
142: --
143: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
144: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_DETAILS',l_module_name);
145: --
146: IF l_debug_on THEN
147: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
140: EXCEPTION
141: WHEN others THEN
142: --
143: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
144: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_DETAILS',l_module_name);
145: --
146: IF l_debug_on THEN
147: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
148: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
165: p_num_of_rec IN NUMBER,
166: -- lpn conv
167: p_container_info_rec IN WSH_GLBL_VAR_STRCT_GRP.ContInfoRectype,
168: x_return_status OUT NOCOPY VARCHAR2,
169: x_dd_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type
170: ) IS
171:
172: /*
173: CURSOR C_Del_Detail_Rowid
198: l_row_count NUMBER;
199: l_container_name varchar2(50);
200: l_ignore_for_planning VARCHAR2(1);
201: l_temp_id NUMBER;
202: l_cont_dummy_tab WSH_UTIL_CORE.id_tab_type;
203:
204: -- 2530743
205: l_delivery_details_info WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type;
206: l_dff_attribute WSH_FLEXFIELD_UTILS.FlexfieldAttributeTabType;
250: END IF;
251: --
252:
253: --OTM R12 Start Org-Specific
254: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
255: IF l_gc3_is_installed IS NULL THEN
256: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
257: END IF;
258: IF l_debug_on THEN
252:
253: --OTM R12 Start Org-Specific
254: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
255: IF l_gc3_is_installed IS NULL THEN
256: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
257: END IF;
258: IF l_debug_on THEN
259: wsh_debug_sv.log(l_module_name,'l_gc3_is_installed ',
260: l_gc3_is_installed);
278:
279: END IF;
280: END IF;
281:
282: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
283: l_delivery_details_info := p_delivery_details_info;
284:
285: -- 2530743 : To get Default DFF values
286:
295: WSH_DEBUG_SV.log(l_module_name,' Get_DFF_Defaults,l_return_status',l_dff_tp_ret_status);
296: WSH_DEBUG_SV.log(l_module_name,' l_dff_tp_update_flag',l_dff_tp_update_flag);
297: END IF;
298:
299: IF ( l_dff_ret_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_dff_update_flag = 'Y' ) THEN
300: l_delivery_details_info.attribute_category :=
301: nvl(p_delivery_details_info.attribute_category,l_dff_context );
302: l_delivery_details_info.attribute1 :=
303: nvl(p_delivery_details_info.attribute1, l_dff_attribute(1) );
343: WSH_DEBUG_SV.log(l_module_name,' Get_DFF_Defaults,l_return_status',l_dff_tp_ret_status);
344: WSH_DEBUG_SV.log(l_module_name,' l_dff_tp_update_flag',l_dff_tp_update_flag);
345: END IF;
346:
347: IF ( l_dff_tp_ret_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_dff_tp_update_flag = 'Y' ) THEN
348: l_delivery_details_info.tp_attribute_category :=
349: nvl(p_delivery_details_info.tp_attribute_category,l_dff_tp_context );
350: l_delivery_details_info.tp_attribute1 :=
351: nvl(p_delivery_details_info.tp_attribute1, l_dff_tp_attribute(1) );
402: -- l_cont_dummy_tab will have container instance id
403:
404: /*** J changes TP release ****/
405: --OTM R12 Start Org-Specific
406: IF (wsh_util_core.tp_is_installed ='Y' OR l_gc3_is_installed = 'Y' ) THEN --{
407: IF ( l_delivery_details_info.ignore_for_planning IS NULL ) THEN --{
408:
409: -- if new detail is being created by split then it will take the original details flag
410: l_wh_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type
418: l_wh_type);
419: WSH_DEBUG_SV.log(l_module_name,'Get_Warehouse_Type l_return_status',
420: l_return_status);
421: END IF;
422: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
423: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
424: RAISE FND_API.G_EXC_ERROR;
425: END IF;
426: -- TPW - Distribution Organization Changes
419: WSH_DEBUG_SV.log(l_module_name,'Get_Warehouse_Type l_return_status',
420: l_return_status);
421: END IF;
422: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
423: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
424: RAISE FND_API.G_EXC_ERROR;
425: END IF;
426: -- TPW - Distribution Organization Changes
427: -- Included TW2 in IF condition.
444: ||'LC_IGNORE_FOR_PLANNING l_return_status',l_return_status);
445: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning ',
446: l_ignore_for_planning );
447: END IF;
448: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
449: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
450: RAISE FND_API.G_EXC_ERROR;
451: END IF;
452: l_delivery_details_info.ignore_for_planning := l_ignore_for_planning;
445: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning ',
446: l_ignore_for_planning );
447: END IF;
448: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
449: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
450: RAISE FND_API.G_EXC_ERROR;
451: END IF;
452: l_delivery_details_info.ignore_for_planning := l_ignore_for_planning;
453: ELSE
941:
942: IF l_debug_on THEN
943: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
944: END IF;
945: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
946: x_return_status := l_dbi_rs;
947: -- just pass this return status to caller API
948: END IF;
949: -- End of Code for DBI Project
955: --
956: EXCEPTION
957: WHEN FND_API.G_EXC_ERROR THEN
958:
959: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
960: --
961: IF l_debug_on THEN
962: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
963: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
968: IF l_debug_on THEN
969: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_DELIVERY_DETAILS_BULK ' || SQLERRM );
970: END IF;
971: --
972: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
973: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_DETAILS_BULK',l_module_name);
974: --
975: IF l_debug_on THEN
976: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
969: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_DELIVERY_DETAILS_BULK ' || SQLERRM );
970: END IF;
971: --
972: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
973: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_DETAILS_BULK',l_module_name);
974: --
975: IF l_debug_on THEN
976: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
977: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
994: PROCEDURE create_dd_from_old_bulk(
995: p_delivery_detail_rec IN WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type,
996: p_delivery_detail_id IN NUMBER,
997: p_num_of_rec IN NUMBER,
998: x_dd_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
999: x_return_status OUT NOCOPY VARCHAR2
1000: ) IS
1001:
1002: l_container_name varchar2(50);
1008:
1009: l_row_count NUMBER;
1010: l_temp_id NUMBER;
1011:
1012: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
1013: l_dd_rec WSH_GLBL_VAR_STRCT_GRP.DELIVERY_DETAILS_REC_TYPE;
1014: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
1015: --Standalone project Changes
1016: l_standalone_mode VARCHAR2(1);
1043: --
1044: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1045: END IF;
1046: --
1047: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1048:
1049: --
1050: IF l_debug_on THEN
1051: WSH_DEBUG_SV.logmsg(l_module_name, 'INSIDE PROCEDURE CREATE DD FROM OLD_BULK' );
1583: p_new_delivery_detail_id => L_dd_id_tab(i),
1584: x_return_status => x_return_status,
1585: x_msg_count => x_message_count, x_msg_data => x_msg_data);
1586:
1587: IF x_return_status <> wsh_util_core.g_ret_sts_success THEN
1588: --{
1589: IF l_debug_on THEN
1590: wsh_debug_sv.Logmsg(l_module_name, 'UNEXPECTED ERROR FROM WMS_SHIPPING_INTERFACE_GRP.split_wave_line ');
1591: END IF;
1609:
1610: IF l_debug_on THEN
1611: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1612: END IF;
1613: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1614: x_return_status := l_dbi_rs;
1615: -- just pass this return status to caller API
1616: END IF;
1617: -- End of Code for DBI Project
1627: IF l_debug_on THEN
1628: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_DD_FROM_OLD_BULK ' || SQLERRM );
1629: END IF;
1630: --
1631: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1632: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DD_FROM_OLD_BULK',l_module_name);
1633: --
1634: IF l_debug_on THEN
1635: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1628: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_DD_FROM_OLD_BULK ' || SQLERRM );
1629: END IF;
1630: --
1631: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1632: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DD_FROM_OLD_BULK',l_module_name);
1633: --
1634: IF l_debug_on THEN
1635: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1636: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1658:
1659: PROCEDURE Create_Deliv_Assignment_bulk(
1660: p_delivery_assignments_info IN Delivery_Assignments_Rec_Type,
1661: p_num_of_rec IN NUMBER,
1662: p_dd_id_tab IN WSH_UTIL_CORE.id_tab_type,
1663: x_da_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1664: x_return_status OUT NOCOPY VARCHAR2
1665: -- added new input parameter
1666: ) IS
1659: PROCEDURE Create_Deliv_Assignment_bulk(
1660: p_delivery_assignments_info IN Delivery_Assignments_Rec_Type,
1661: p_num_of_rec IN NUMBER,
1662: p_dd_id_tab IN WSH_UTIL_CORE.id_tab_type,
1663: x_da_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1664: x_return_status OUT NOCOPY VARCHAR2
1665: -- added new input parameter
1666: ) IS
1667:
1672:
1673: l_row_count NUMBER;
1674: l_temp_id NUMBER;
1675:
1676: l_da_id_tab WSH_UTIL_CORE.id_tab_type;
1677: l_da_info Delivery_Assignments_Rec_Type;
1678: others exception;
1679:
1680: --
1695: IF l_debug_on THEN
1696: WSH_DEBUG_SV.push(l_module_name);
1697: END IF;
1698: --
1699: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1700:
1701: FOR i in 1..p_num_of_rec
1702: LOOP
1703: OPEN C_Del_Assign_ID;
1754: END IF;
1755: --
1756: EXCEPTION
1757: WHEN others THEN
1758: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1759: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',l_module_name);
1760:
1761: --
1762: IF l_debug_on THEN
1755: --
1756: EXCEPTION
1757: WHEN others THEN
1758: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1759: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',l_module_name);
1760:
1761: --
1762: IF l_debug_on THEN
1763: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1793: WHERE delivery_detail_id = x_delivery_detail_id;
1794:
1795: l_row_count NUMBER;
1796: l_temp_id NUMBER;
1797: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
1798: others exception;
1799:
1800: --
1801: l_debug_on BOOLEAN;
1818: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1819: WSH_DEBUG_SV.logmsg(l_module_name, 'INSIDE PROCEDURE CREATE NEW DETAIL FROM OLD CALLING BULK API' );
1820: END IF;
1821: --
1822: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1823: -- make call to Bulk api from here
1824: WSH_DELIVERY_DETAILS_PKG.create_dd_from_old_bulk
1825: ( p_delivery_detail_rec => p_delivery_detail_rec,
1826: p_delivery_detail_id => p_delivery_detail_id,
1855: IF l_debug_on THEN
1856: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_NEW_DETAIL_FROM_OLD ' || SQLERRM );
1857: END IF;
1858: --
1859: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1860: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_NEW_DETAIL_FROM_OLD',l_module_name);
1861: --
1862: IF l_debug_on THEN
1863: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1856: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_NEW_DETAIL_FROM_OLD ' || SQLERRM );
1857: END IF;
1858: --
1859: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1860: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_NEW_DETAIL_FROM_OLD',l_module_name);
1861: --
1862: IF l_debug_on THEN
1863: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1864: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1924: l_transaction_temp_id NUMBER := NULL;
1925: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
1926: l_return_status VARCHAR2(5) := NULL;
1927:
1928: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI changes
1929: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
1930: l_dbi_dml_type VARCHAR2(10);
1931:
1932: -- bug 4416863
1934: l_delivery_id NUMBER := NULL;
1935: -- end bug
1936:
1937: -- OTM R12
1938: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1939: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1940: l_ignore WSH_DELIVERY_DETAILS.IGNORE_FOR_PLANNING%TYPE;
1941: l_is_delivery_empty VARCHAR2(1);
1942: l_gc3_is_installed VARCHAR2(1);
1935: -- end bug
1936:
1937: -- OTM R12
1938: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1939: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1940: l_ignore WSH_DELIVERY_DETAILS.IGNORE_FOR_PLANNING%TYPE;
1941: l_is_delivery_empty VARCHAR2(1);
1942: l_gc3_is_installed VARCHAR2(1);
1943: l_gross_weight WSH_DELIVERY_DETAILS.GROSS_WEIGHT%TYPE; -- packing ECO
1965: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1966: WSH_DEBUG_SV.log(l_module_name,'P_CANCEL_FLAG',P_CANCEL_FLAG);
1967: END IF;
1968: --
1969: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1970:
1971: -- OTM R12
1972: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1973: IF l_gc3_is_installed IS NULL THEN
1968: --
1969: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1970:
1971: -- OTM R12
1972: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1973: IF l_gc3_is_installed IS NULL THEN
1974: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1975: END IF;
1976:
1970:
1971: -- OTM R12
1972: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1973: IF l_gc3_is_installed IS NULL THEN
1974: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1975: END IF;
1976:
1977: IF l_debug_on THEN
1978: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed',l_gc3_is_installed);
2053: END IF;
2054: wsh_delivery_details_actions.unassign_detail_from_delivery (
2055: p_detail_id => l_delivery_detail_id,
2056: x_return_status => l_return_status);
2057: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
2058: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2059: --
2060: x_return_status := l_return_status;
2061: WSH_UTIL_CORE.Add_Message(x_return_status);
2054: wsh_delivery_details_actions.unassign_detail_from_delivery (
2055: p_detail_id => l_delivery_detail_id,
2056: x_return_status => l_return_status);
2057: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
2058: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2059: --
2060: x_return_status := l_return_status;
2061: WSH_UTIL_CORE.Add_Message(x_return_status);
2062: IF l_debug_on THEN
2057: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
2058: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
2059: --
2060: x_return_status := l_return_status;
2061: WSH_UTIL_CORE.Add_Message(x_return_status);
2062: IF l_debug_on THEN
2063: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
2064: WSH_DEBUG_SV.pop(l_module_name);
2065: END IF;
2127:
2128: l_call_update := 'Y';
2129: l_delivery_id_tab(1) := l_delivery_id;
2130: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_delivery_id);
2131: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2132: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2133: IF l_debug_on THEN
2134: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY');
2135: WSH_DEBUG_SV.pop(l_module_name);
2128: l_call_update := 'Y';
2129: l_delivery_id_tab(1) := l_delivery_id;
2130: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_delivery_id);
2131: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
2132: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
2133: IF l_debug_on THEN
2134: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY');
2135: WSH_DEBUG_SV.pop(l_module_name);
2136: END IF;
2157: p_delivery_id_tab => l_delivery_id_tab,
2158: p_tms_interface_flag_tab => l_interface_flag_tab,
2159: x_return_status => l_return_status);
2160:
2161: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2162: --
2163: x_return_status := l_return_status;
2164: IF l_debug_on THEN
2165: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
2192:
2193: IF l_debug_on THEN
2194: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2195: END IF;
2196: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2197: x_return_status := l_dbi_rs;
2198: -- just pass this return status to caller API
2199: END IF;
2200: -- End of Code for DBI Project
2208: END IF;
2209: --
2210: EXCEPTION
2211: WHEN others THEN
2212: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2213: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS',l_module_name);
2214:
2215: -- close all cursors at exception
2216: IF (get_del_detail%ISOPEN) THEN
2209: --
2210: EXCEPTION
2211: WHEN others THEN
2212: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2213: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS',l_module_name);
2214:
2215: -- close all cursors at exception
2216: IF (get_del_detail%ISOPEN) THEN
2217: CLOSE get_del_detail;
3339: WHERE wdd.delivery_detail_id = p_delivery_details_info.delivery_detail_id
3340: AND wdd.delivery_detail_id = wda.delivery_detail_id;
3341:
3342: l_cons_source_line_rec_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab;
3343: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type ; --Stores the dd_ids returned by Consolidate_Source_Line
3344: l_back_order_consolidation VARCHAR2(1) := 'N';
3345: l_req NUMBER;
3346: l_req2 NUMBER;
3347: l_line_id NUMBER;
3351:
3352: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
3353: l_requested_quantity WSH_DELIVERY_DETAILS.REQUESTED_QUANTITY%TYPE;
3354: l_shipped_quantity WSH_DELIVERY_DETAILS.SHIPPED_QUANTITY%TYPE;
3355: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
3356: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
3357: l_gc3_is_installed VARCHAR2(1);
3358: -- End of OTM R12
3359:
3352: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
3353: l_requested_quantity WSH_DELIVERY_DETAILS.REQUESTED_QUANTITY%TYPE;
3354: l_shipped_quantity WSH_DELIVERY_DETAILS.SHIPPED_QUANTITY%TYPE;
3355: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
3356: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
3357: l_gc3_is_installed VARCHAR2(1);
3358: -- End of OTM R12
3359:
3360: l_rowid VARCHAR2(30);
3383: l_container_name VARCHAR2(50);
3384: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
3385: e_wt_vol_fail EXCEPTION;
3386:
3387: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI changes
3388: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
3389: l_num_errors NUMBER := 0;
3390: l_num_warnings NUMBER := 0;
3391: l_wms_installed VARCHAR2(10);
3451: --
3452: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
3453: END IF;
3454: --
3455: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3456:
3457: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3458: IF l_gc3_is_installed IS NULL THEN
3459: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3453: END IF;
3454: --
3455: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3456:
3457: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3458: IF l_gc3_is_installed IS NULL THEN
3459: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3460: END IF;
3461: IF l_debug_on THEN
3455: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3456:
3457: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3458: IF l_gc3_is_installed IS NULL THEN
3459: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3460: END IF;
3461: IF l_debug_on THEN
3462: wsh_debug_sv.log(l_module_name,'l_gc3_is_installed ',
3463: l_gc3_is_installed);
3584: quantity => l_maximum_load_weight,
3585: item_id => p_delivery_details_info.inventory_item_id,
3586: x_return_status => l_return_status
3587: );
3588: wsh_util_core.api_post_call
3589: (
3590: p_return_status => l_return_status,
3591: x_num_warnings => l_num_warnings,
3592: x_num_errors => l_num_errors
3605: quantity => l_unit_weight_item,
3606: item_id => p_delivery_details_info.inventory_item_id,
3607: x_return_status => l_return_status
3608: );
3609: wsh_util_core.api_post_call
3610: (
3611: p_return_status => l_return_status,
3612: x_num_warnings => l_num_warnings,
3613: x_num_errors => l_num_errors
3627: quantity => l_unit_volume_item,
3628: item_id => p_delivery_details_info.inventory_item_id,
3629: x_return_status => l_return_status
3630: );
3631: wsh_util_core.api_post_call
3632: (
3633: p_return_status => l_return_status,
3634: x_num_warnings => l_num_warnings,
3635: x_num_errors => l_num_errors
3647: quantity => l_maximum_volume,
3648: item_id => p_delivery_details_info.inventory_item_id,
3649: x_return_status => l_return_status
3650: );
3651: wsh_util_core.api_post_call
3652: (
3653: p_return_status => l_return_status,
3654: x_num_warnings => l_num_warnings,
3655: x_num_errors => l_num_errors
3824: p_sync_tmp_rec => l_sync_tmp_rec,
3825: x_return_status => l_return_status
3826: );
3827:
3828: wsh_util_core.api_post_call
3829: (
3830: p_return_status => l_return_status,
3831: x_num_warnings => l_num_warnings,
3832: x_num_errors => l_num_errors
4037:
4038: IF (SQL%NOTFOUND) THEN
4039: RAISE NO_DATA_FOUND;
4040: ELSE
4041: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4042: END IF;
4043: --
4044: --
4045: -- DBI Project
4061: -- DBI API can only raise unexpected error, in that case need to
4062: -- pass it to the caller API for roll back of the whole transaction
4063: -- Only need to handle Unexpected error, rest are treated as success
4064: -- Since code is not proceeding, no need to reset x_return_status
4065: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
4066: x_return_status := l_dbi_rs;
4067: IF l_debug_on THEN
4068: WSH_DEBUG_SV.pop(l_module_name);
4069: END IF;
4121: p_diff_fill_volume => NVL(p_delivery_details_info.volume,0) - NVL(l_volume,0),
4122: p_diff_volume => NVL(p_delivery_details_info.volume,0) - NVL(l_volume,0),
4123: x_return_status => l_return_status);
4124:
4125: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
4126: raise e_wt_vol_fail;
4127: END IF;
4128: ELSIF NVL(l_filled_volume,-99) <>
4129: NVL(p_delivery_details_info.filled_volume,-99)
4136: p_fill_pc_basis => NULL,
4137: x_fill_percent => l_cont_fill_pc,
4138: x_return_status => l_return_status
4139: );
4140: wsh_util_core.api_post_call
4141: (
4142: p_return_status => l_return_status,
4143: x_num_warnings => l_num_warnings,
4144: x_num_errors => l_num_errors
4160: ,
4161: P_subinventory => p_delivery_details_info.subinventory,
4162: X_return_status => l_return_status
4163: );
4164: wsh_util_core.api_post_call
4165: (
4166: p_return_status => l_return_status,
4167: x_num_warnings => l_num_warnings,
4168: x_num_errors => l_num_errors
4240: p_delivery_id_tab => l_delivery_id_tab,
4241: p_tms_interface_flag_tab => l_interface_flag_tab,
4242: x_return_status => l_return_status);
4243:
4244: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4245: x_return_status := l_return_status;
4246: IF l_debug_on THEN
4247: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
4248: WSH_DEBUG_SV.log(l_module_name,'l_return_status', l_return_status);
4285: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
4286: END IF;
4287: --
4288: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec, l_return_status);
4289: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4290: wsh_util_core.add_message(l_return_status,'WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details');
4291: x_return_status := l_return_status;
4292: END IF;
4293: IF (l_global_param_rec.consolidate_bo_lines = 'Y') THEN
4286: END IF;
4287: --
4288: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec, l_return_status);
4289: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4290: wsh_util_core.add_message(l_return_status,'WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details');
4291: x_return_status := l_return_status;
4292: END IF;
4293: IF (l_global_param_rec.consolidate_bo_lines = 'Y') THEN
4294: --{
4312: WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Source_Line(
4313: p_Cons_Source_Line_Rec_Tab => l_cons_source_line_rec_tab,
4314: x_consolidate_ids => l_cons_dd_ids,
4315: x_return_status => l_return_status);
4316: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )THEN
4317: --{
4318: x_return_status := l_return_status;
4319: --}
4320: END IF;
4325: -- bug # 6749200 (replenishment project) : end
4326:
4327: IF l_num_errors > 0
4328: THEN
4329: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4330: ELSIF l_num_warnings > 0
4331: THEN
4332: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4333: ELSE
4328: THEN
4329: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4330: ELSIF l_num_warnings > 0
4331: THEN
4332: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4333: ELSE
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4335: END IF;
4336: IF l_debug_on THEN
4330: ELSIF l_num_warnings > 0
4331: THEN
4332: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4333: ELSE
4334: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4335: END IF;
4336: IF l_debug_on THEN
4337: WSH_DEBUG_SV.pop(l_module_name);
4338: END IF;
4341: EXCEPTION
4342: --lpn conv
4343: WHEN FND_API.G_EXC_ERROR THEN
4344: ROLLBACK TO s_before_update_dd;
4345: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4346:
4347: IF (c_get_delivery_info%ISOPEN) THEN
4348: CLOSE c_get_delivery_info;
4349: END IF;
4361: WHEN e_wt_vol_fail THEN
4362: ROLLBACK TO s_before_update_dd;
4363: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
4364: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_details_info.delivery_detail_id);
4365: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4366: WSH_UTIL_CORE.add_message (x_return_status);
4367:
4368: IF (get_dd_info%ISOPEN) THEN
4369: CLOSE get_dd_info;
4362: ROLLBACK TO s_before_update_dd;
4363: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
4364: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_details_info.delivery_detail_id);
4365: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4366: WSH_UTIL_CORE.add_message (x_return_status);
4367:
4368: IF (get_dd_info%ISOPEN) THEN
4369: CLOSE get_dd_info;
4370: END IF;
4374: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
4375: END IF;
4376:
4377: WHEN others THEN
4378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4379: ROLLBACK TO s_before_update_dd;
4380: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.UPDATE_DELIVERY_DETAILS',l_module_name);
4381:
4382: IF (c_get_delivery_info%ISOPEN) THEN
4376:
4377: WHEN others THEN
4378: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4379: ROLLBACK TO s_before_update_dd;
4380: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.UPDATE_DELIVERY_DETAILS',l_module_name);
4381:
4382: IF (c_get_delivery_info%ISOPEN) THEN
4383: CLOSE c_get_delivery_info;
4384: END IF;
4433: l_temp_id NUMBER;
4434:
4435: others exception;
4436:
4437: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
4438: l_da_id_tab WSH_UTIL_CORE.id_tab_type;
4439:
4440: --
4441: l_debug_on BOOLEAN;
4434:
4435: others exception;
4436:
4437: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
4438: l_da_id_tab WSH_UTIL_CORE.id_tab_type;
4439:
4440: --
4441: l_debug_on BOOLEAN;
4442: --
4455: IF l_debug_on THEN
4456: WSH_DEBUG_SV.push(l_module_name);
4457: END IF;
4458: --
4459: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4460:
4461: -- delivery assignment id should not be populated before hand
4462: /*
4463: IF p_delivery_assignments_info.delivery_assignment_id IS NOT NULL THEN
4485: IF (C_Del_Assign_Rowid%NOTFOUND) THEN
4486: CLOSE C_Del_Assign_Rowid;
4487: RAISE others;
4488: ELSE
4489: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4490: END IF;
4491: CLOSE C_Del_Assign_Rowid;
4492: --
4493: IF l_debug_on THEN
4495: END IF;
4496: --
4497: EXCEPTION
4498: WHEN others THEN
4499: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4500: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_ASSIGNMENTS',l_module_name);
4501:
4502: --
4503: IF l_debug_on THEN
4496: --
4497: EXCEPTION
4498: WHEN others THEN
4499: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4500: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_ASSIGNMENTS',l_module_name);
4501:
4502: --
4503: IF l_debug_on THEN
4504: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4557: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
4558: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
4559: END IF;
4560: --
4561: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4562:
4563: IF p_rowid IS NOT NULL THEN
4564: OPEN get_del_assignment_id_rowid(p_rowid);
4565: FETCH get_del_assignment_id_rowid INTO l_delivery_assignment_id;
4572:
4573: IF p_delivery_assignment_id IS NOT NULL THEN
4574: DELETE FROM wsh_delivery_assignments
4575: WHERE delivery_assignment_id = l_delivery_assignment_id;
4576: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4577: ELSE
4578: raise others;
4579: END IF;
4580:
4584: END IF;
4585: --
4586: EXCEPTION
4587: WHEN others THEN
4588: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4589: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG_.DELETE_DELIVERY_ASSIGNMENTS',l_module_name);
4590:
4591: --
4592: IF l_debug_on THEN
4585: --
4586: EXCEPTION
4587: WHEN others THEN
4588: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4589: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG_.DELETE_DELIVERY_ASSIGNMENTS',l_module_name);
4590:
4591: --
4592: IF l_debug_on THEN
4593: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4640: --
4641: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
4642: END IF;
4643: --
4644: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4645:
4646: IF (p_rowid IS NULL) THEN
4647: OPEN get_rowid;
4648: FETCH get_rowid INTO l_rowid;
4676:
4677: IF (SQL%NOTFOUND) THEN
4678: raise others;
4679: ELSE
4680: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4681: END IF;
4682:
4683: --
4684: IF l_debug_on THEN
4686: END IF;
4687: --
4688: EXCEPTION
4689: WHEN others THEN
4690: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4691: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.UPDATE_DELIVERY_ASSIGNMENTS',l_module_name);
4692:
4693: --
4694: IF l_debug_on THEN
4687: --
4688: EXCEPTION
4689: WHEN others THEN
4690: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4691: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.UPDATE_DELIVERY_ASSIGNMENTS',l_module_name);
4692:
4693: --
4694: IF l_debug_on THEN
4695: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4741: --
4742: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
4743: END IF;
4744: --
4745: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4746:
4747: OPEN lock_row;
4748: FETCH lock_row INTO Recinfo;
4749: IF (lock_row%NOTFOUND) THEN
4747: OPEN lock_row;
4748: FETCH lock_row INTO Recinfo;
4749: IF (lock_row%NOTFOUND) THEN
4750: CLOSE lock_row;
4751: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4752: FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
4753: wsh_util_core.add_message(x_return_status,l_module_name);
4754: --
4755: IF l_debug_on THEN
4749: IF (lock_row%NOTFOUND) THEN
4750: CLOSE lock_row;
4751: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4752: FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
4753: wsh_util_core.add_message(x_return_status,l_module_name);
4754: --
4755: IF l_debug_on THEN
4756: WSH_DEBUG_SV.pop(l_module_name);
4757: END IF;
4781: AND ( (Recinfo.program_application_id = p_delivery_assignments_info.program_application_id)
4782: OR ( (Recinfo.program_application_id IS NULL)
4783: AND (p_delivery_assignments_info.program_application_id IS NULL))))
4784: THEN
4785: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4786: --
4787: IF l_debug_on THEN
4788: WSH_DEBUG_SV.pop(l_module_name);
4789: END IF;
4789: END IF;
4790: --
4791: RETURN;
4792: ELSE
4793: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4794: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
4795: IF l_debug_on THEN
4796: WSH_DEBUG_SV.log(l_module_name,'FORM RECORD CHANGED');
4797: END IF;
4805: END IF;
4806: --
4807: EXCEPTION
4808: WHEN others THEN
4809: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.LOCK_DELIVERY_ASSIGNMENTS',l_module_name);
4810: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4811: --
4812: IF l_debug_on THEN
4813: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4806: --
4807: EXCEPTION
4808: WHEN others THEN
4809: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.LOCK_DELIVERY_ASSIGNMENTS',l_module_name);
4810: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4811: --
4812: IF l_debug_on THEN
4813: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4814: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4819:
4820: procedure Lock_Delivery_Details(
4821: p_rec_attr_tab IN WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type,
4822: p_caller IN VARCHAR2,
4823: p_valid_index_tab IN wsh_util_core.id_tab_type,
4824: x_valid_ids_tab OUT NOCOPY wsh_util_core.id_tab_type,
4825: x_return_status OUT NOCOPY VARCHAR2
4826: )
4827:
4820: procedure Lock_Delivery_Details(
4821: p_rec_attr_tab IN WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type,
4822: p_caller IN VARCHAR2,
4823: p_valid_index_tab IN wsh_util_core.id_tab_type,
4824: x_valid_ids_tab OUT NOCOPY wsh_util_core.id_tab_type,
4825: x_return_status OUT NOCOPY VARCHAR2
4826: )
4827:
4828: IS
4880: IF nvl(p_caller,'!') = 'WSH_PUB'
4881: OR nvl(p_caller, '!') like 'FTE%' THEN
4882: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVB_LOCK_FAILED');
4883: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',p_rec_attr_tab(l_index).delivery_detail_id);
4884: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4885: END IF;
4886: l_num_errors := l_num_errors + 1;
4887: --
4888: IF l_debug_on THEN
4898: --
4899: end loop;
4900: --
4901: IF p_valid_index_tab.COUNT = 0 THEN
4902: x_return_status := wsh_util_core.g_ret_sts_success;
4903: ELSIF l_num_errors = p_valid_index_tab.COUNT THEN
4904: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PERFORMED');
4905: x_return_status := wsh_util_core.g_ret_sts_error;
4906: wsh_util_core.add_message(x_return_status,l_module_name);
4901: IF p_valid_index_tab.COUNT = 0 THEN
4902: x_return_status := wsh_util_core.g_ret_sts_success;
4903: ELSIF l_num_errors = p_valid_index_tab.COUNT THEN
4904: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PERFORMED');
4905: x_return_status := wsh_util_core.g_ret_sts_error;
4906: wsh_util_core.add_message(x_return_status,l_module_name);
4907: IF l_debug_on THEN
4908: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PERFORMED');
4909: END IF;
4902: x_return_status := wsh_util_core.g_ret_sts_success;
4903: ELSIF l_num_errors = p_valid_index_tab.COUNT THEN
4904: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PERFORMED');
4905: x_return_status := wsh_util_core.g_ret_sts_error;
4906: wsh_util_core.add_message(x_return_status,l_module_name);
4907: IF l_debug_on THEN
4908: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PERFORMED');
4909: END IF;
4910: raise fnd_api.g_exc_error;
4909: END IF;
4910: raise fnd_api.g_exc_error;
4911: ELSIF l_num_errors > 0 THEN
4912: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PROCESSED');
4913: x_return_status := wsh_util_core.g_ret_sts_warning;
4914: wsh_util_core.add_message(x_return_status,l_module_name);
4915: IF l_debug_on THEN
4916: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PROCESSED');
4917: END IF;
4910: raise fnd_api.g_exc_error;
4911: ELSIF l_num_errors > 0 THEN
4912: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PROCESSED');
4913: x_return_status := wsh_util_core.g_ret_sts_warning;
4914: wsh_util_core.add_message(x_return_status,l_module_name);
4915: IF l_debug_on THEN
4916: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PROCESSED');
4917: END IF;
4918: raise wsh_util_core.g_exc_warning;
4914: wsh_util_core.add_message(x_return_status,l_module_name);
4915: IF l_debug_on THEN
4916: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PROCESSED');
4917: END IF;
4918: raise wsh_util_core.g_exc_warning;
4919: ELSE
4920: x_return_status := wsh_util_core.g_ret_sts_success;
4921: END IF;
4922: --
4916: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PROCESSED');
4917: END IF;
4918: raise wsh_util_core.g_exc_warning;
4919: ELSE
4920: x_return_status := wsh_util_core.g_ret_sts_success;
4921: END IF;
4922: --
4923: IF l_debug_on THEN
4924: WSH_DEBUG_SV.pop(l_module_name);
4928: --
4929: --
4930: WHEN FND_API.G_EXC_ERROR THEN
4931: --
4932: x_return_status := wsh_util_core.g_ret_sts_error;
4933: --
4934: IF l_debug_on THEN
4935: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4936: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4936: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4937: END IF;
4938: --
4939: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4940: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
4941: --
4942: IF l_debug_on THEN
4943: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4944: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4943: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4944: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4945: END IF;
4946: --
4947: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4948: x_return_status := wsh_util_core.g_ret_sts_warning;
4949: --
4950: IF l_debug_on THEN
4951: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4944: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4945: END IF;
4946: --
4947: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4948: x_return_status := wsh_util_core.g_ret_sts_warning;
4949: --
4950: IF l_debug_on THEN
4951: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4952: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4947: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4948: x_return_status := wsh_util_core.g_ret_sts_warning;
4949: --
4950: IF l_debug_on THEN
4951: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4952: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4953: END IF;
4954: --
4955: WHEN OTHERS THEN
4948: x_return_status := wsh_util_core.g_ret_sts_warning;
4949: --
4950: IF l_debug_on THEN
4951: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4952: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4953: END IF;
4954: --
4955: WHEN OTHERS THEN
4956: --
4953: END IF;
4954: --
4955: WHEN OTHERS THEN
4956: --
4957: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
4958: --
4959: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.LOCK_DELIVERY_DETAILS_WRAPPER',l_module_name);
4960: --
4961: IF l_debug_on THEN
4955: WHEN OTHERS THEN
4956: --
4957: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
4958: --
4959: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.LOCK_DELIVERY_DETAILS_WRAPPER',l_module_name);
4960: --
4961: IF l_debug_on THEN
4962: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4963: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5041: IF p_delivery_id IS NOT NULL THEN
5042: l_del_name := wsh_new_deliveries_pvt.get_name(p_delivery_id);
5043: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_LINE_LPN_LOCK');
5044: FND_MESSAGE.SET_TOKEN('DEL_NAME', l_del_name);
5045: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
5046: IF l_debug_on THEN
5047: wsh_debug_sv.log(l_module_name, 'Could not obtain lock on some lines or lpns of delivery', p_delivery_id);
5048: END IF;
5049: ELSE
5324:
5325: IF l_debug_on THEN
5326: WSH_DEBUG_SV.pop(l_module_name);
5327: END IF;
5328: x_return_status := wsh_util_core.g_ret_sts_success;
5329: EXCEPTION
5330:
5331: WHEN OTHERS THEN
5332: IF c_tbl_rec%ISOPEN THEN
5332: IF c_tbl_rec%ISOPEN THEN
5333: CLOSE c_tbl_rec;
5334: END IF;
5335: --
5336: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
5337: --
5338: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.Table_to_Record',l_module_name);
5339: --
5340: IF l_debug_on THEN
5334: END IF;
5335: --
5336: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
5337: --
5338: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.Table_to_Record',l_module_name);
5339: --
5340: IF l_debug_on THEN
5341: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL); WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
5342: END IF;
5417: IF p_delivery_id IS NOT NULL THEN
5418: l_del_name := wsh_new_deliveries_pvt.get_name(p_delivery_id);
5419: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_LINE_LPN_LOCK');
5420: FND_MESSAGE.SET_TOKEN('DEL_NAME', l_del_name);
5421: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
5422: IF l_debug_on THEN
5423: wsh_debug_sv.log(l_module_name, 'Could not obtain lock on some lines or lpns of delivery', p_delivery_id);
5424: END IF;
5425: ELSE