[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;
248: END IF;
249: --
250:
251: --OTM R12 Start Org-Specific
252: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
253: IF l_gc3_is_installed IS NULL THEN
254: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
255: END IF;
256: IF l_debug_on THEN
250:
251: --OTM R12 Start Org-Specific
252: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
253: IF l_gc3_is_installed IS NULL THEN
254: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
255: END IF;
256: IF l_debug_on THEN
257: wsh_debug_sv.log(l_module_name,'l_gc3_is_installed ',
258: l_gc3_is_installed);
276:
277: END IF;
278: END IF;
279:
280: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
281: l_delivery_details_info := p_delivery_details_info;
282:
283: -- 2530743 : To get Default DFF values
284:
293: WSH_DEBUG_SV.log(l_module_name,' Get_DFF_Defaults,l_return_status',l_dff_tp_ret_status);
294: WSH_DEBUG_SV.log(l_module_name,' l_dff_tp_update_flag',l_dff_tp_update_flag);
295: END IF;
296:
297: IF ( l_dff_ret_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_dff_update_flag = 'Y' ) THEN
298: l_delivery_details_info.attribute_category :=
299: nvl(p_delivery_details_info.attribute_category,l_dff_context );
300: l_delivery_details_info.attribute1 :=
301: nvl(p_delivery_details_info.attribute1, l_dff_attribute(1) );
341: WSH_DEBUG_SV.log(l_module_name,' Get_DFF_Defaults,l_return_status',l_dff_tp_ret_status);
342: WSH_DEBUG_SV.log(l_module_name,' l_dff_tp_update_flag',l_dff_tp_update_flag);
343: END IF;
344:
345: IF ( l_dff_tp_ret_status = WSH_UTIL_CORE.G_RET_STS_SUCCESS AND l_dff_tp_update_flag = 'Y' ) THEN
346: l_delivery_details_info.tp_attribute_category :=
347: nvl(p_delivery_details_info.tp_attribute_category,l_dff_tp_context );
348: l_delivery_details_info.tp_attribute1 :=
349: nvl(p_delivery_details_info.tp_attribute1, l_dff_tp_attribute(1) );
400: -- l_cont_dummy_tab will have container instance id
401:
402: /*** J changes TP release ****/
403: --OTM R12 Start Org-Specific
404: IF (wsh_util_core.tp_is_installed ='Y' OR l_gc3_is_installed = 'Y' ) THEN --{
405: IF ( l_delivery_details_info.ignore_for_planning IS NULL ) THEN --{
406:
407: -- if new detail is being created by split then it will take the original details flag
408: l_wh_type := WSH_EXTERNAL_INTERFACE_SV.Get_Warehouse_Type
416: l_wh_type);
417: WSH_DEBUG_SV.log(l_module_name,'Get_Warehouse_Type l_return_status',
418: l_return_status);
419: END IF;
420: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
421: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424: IF (nvl(l_wh_type, FND_API.G_MISS_CHAR) IN ('TPW','CMS')) THEN --{
417: WSH_DEBUG_SV.log(l_module_name,'Get_Warehouse_Type l_return_status',
418: l_return_status);
419: END IF;
420: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
421: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
422: RAISE FND_API.G_EXC_ERROR;
423: END IF;
424: IF (nvl(l_wh_type, FND_API.G_MISS_CHAR) IN ('TPW','CMS')) THEN --{
425: l_delivery_details_info.ignore_for_planning:='Y';
438: ||'LC_IGNORE_FOR_PLANNING l_return_status',l_return_status);
439: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning ',
440: l_ignore_for_planning );
441: END IF;
442: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
443: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446: l_delivery_details_info.ignore_for_planning := l_ignore_for_planning;
439: WSH_DEBUG_SV.log(l_module_name,'l_ignore_for_planning ',
440: l_ignore_for_planning );
441: END IF;
442: IF (l_return_status in (WSH_UTIL_CORE.G_RET_STS_ERROR,
443: WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
444: RAISE FND_API.G_EXC_ERROR;
445: END IF;
446: l_delivery_details_info.ignore_for_planning := l_ignore_for_planning;
447: ELSE
907:
908: IF l_debug_on THEN
909: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
910: END IF;
911: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
912: x_return_status := l_dbi_rs;
913: -- just pass this return status to caller API
914: END IF;
915: -- End of Code for DBI Project
921: --
922: EXCEPTION
923: WHEN FND_API.G_EXC_ERROR THEN
924:
925: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
926: --
927: IF l_debug_on THEN
928: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
929: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
934: IF l_debug_on THEN
935: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_DELIVERY_DETAILS_BULK ' || SQLERRM );
936: END IF;
937: --
938: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
939: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_DETAILS_BULK',l_module_name);
940: --
941: IF l_debug_on THEN
942: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
935: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_DELIVERY_DETAILS_BULK ' || SQLERRM );
936: END IF;
937: --
938: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
939: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_DETAILS_BULK',l_module_name);
940: --
941: IF l_debug_on THEN
942: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
943: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
960: PROCEDURE create_dd_from_old_bulk(
961: p_delivery_detail_rec IN WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Rec_Type,
962: p_delivery_detail_id IN NUMBER,
963: p_num_of_rec IN NUMBER,
964: x_dd_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
965: x_return_status OUT NOCOPY VARCHAR2
966: ) IS
967:
968: l_container_name varchar2(50);
974:
975: l_row_count NUMBER;
976: l_temp_id NUMBER;
977:
978: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
979: l_dd_rec WSH_GLBL_VAR_STRCT_GRP.DELIVERY_DETAILS_REC_TYPE;
980: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
981:
982: others exception;
1001: --
1002: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1003: END IF;
1004: --
1005: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1006:
1007: --
1008: IF l_debug_on THEN
1009: WSH_DEBUG_SV.logmsg(l_module_name, 'INSIDE PROCEDURE CREATE DD FROM OLD_BULK' );
1472:
1473: IF l_debug_on THEN
1474: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
1475: END IF;
1476: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
1477: x_return_status := l_dbi_rs;
1478: -- just pass this return status to caller API
1479: END IF;
1480: -- End of Code for DBI Project
1490: IF l_debug_on THEN
1491: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_DD_FROM_OLD_BULK ' || SQLERRM );
1492: END IF;
1493: --
1494: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1495: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DD_FROM_OLD_BULK',l_module_name);
1496: --
1497: IF l_debug_on THEN
1498: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1491: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_DD_FROM_OLD_BULK ' || SQLERRM );
1492: END IF;
1493: --
1494: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1495: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DD_FROM_OLD_BULK',l_module_name);
1496: --
1497: IF l_debug_on THEN
1498: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1499: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1521:
1522: PROCEDURE Create_Deliv_Assignment_bulk(
1523: p_delivery_assignments_info IN Delivery_Assignments_Rec_Type,
1524: p_num_of_rec IN NUMBER,
1525: p_dd_id_tab IN WSH_UTIL_CORE.id_tab_type,
1526: x_da_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1527: x_return_status OUT NOCOPY VARCHAR2
1528: -- added new input parameter
1529: ) IS
1522: PROCEDURE Create_Deliv_Assignment_bulk(
1523: p_delivery_assignments_info IN Delivery_Assignments_Rec_Type,
1524: p_num_of_rec IN NUMBER,
1525: p_dd_id_tab IN WSH_UTIL_CORE.id_tab_type,
1526: x_da_id_tab OUT NOCOPY WSH_UTIL_CORE.id_tab_type,
1527: x_return_status OUT NOCOPY VARCHAR2
1528: -- added new input parameter
1529: ) IS
1530:
1535:
1536: l_row_count NUMBER;
1537: l_temp_id NUMBER;
1538:
1539: l_da_id_tab WSH_UTIL_CORE.id_tab_type;
1540: l_da_info Delivery_Assignments_Rec_Type;
1541: others exception;
1542:
1543: --
1558: IF l_debug_on THEN
1559: WSH_DEBUG_SV.push(l_module_name);
1560: END IF;
1561: --
1562: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1563:
1564: FOR i in 1..p_num_of_rec
1565: LOOP
1566: OPEN C_Del_Assign_ID;
1617: END IF;
1618: --
1619: EXCEPTION
1620: WHEN others THEN
1621: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1622: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',l_module_name);
1623:
1624: --
1625: IF l_debug_on THEN
1618: --
1619: EXCEPTION
1620: WHEN others THEN
1621: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1622: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIV_ASSIGNMENT_BULK',l_module_name);
1623:
1624: --
1625: IF l_debug_on THEN
1626: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1656: WHERE delivery_detail_id = x_delivery_detail_id;
1657:
1658: l_row_count NUMBER;
1659: l_temp_id NUMBER;
1660: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
1661: others exception;
1662:
1663: --
1664: l_debug_on BOOLEAN;
1681: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1682: WSH_DEBUG_SV.logmsg(l_module_name, 'INSIDE PROCEDURE CREATE NEW DETAIL FROM OLD CALLING BULK API' );
1683: END IF;
1684: --
1685: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1686: -- make call to Bulk api from here
1687: WSH_DELIVERY_DETAILS_PKG.create_dd_from_old_bulk
1688: ( p_delivery_detail_rec => p_delivery_detail_rec,
1689: p_delivery_detail_id => p_delivery_detail_id,
1718: IF l_debug_on THEN
1719: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_NEW_DETAIL_FROM_OLD ' || SQLERRM );
1720: END IF;
1721: --
1722: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1723: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_NEW_DETAIL_FROM_OLD',l_module_name);
1724: --
1725: IF l_debug_on THEN
1726: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1719: WSH_DEBUG_SV.logmsg(l_module_name, 'WHEN OTHERS IN CREATE_NEW_DETAIL_FROM_OLD ' || SQLERRM );
1720: END IF;
1721: --
1722: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
1723: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_NEW_DETAIL_FROM_OLD',l_module_name);
1724: --
1725: IF l_debug_on THEN
1726: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
1727: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
1787: l_transaction_temp_id NUMBER := NULL;
1788: l_inv_controls_rec WSH_DELIVERY_DETAILS_INV.inv_control_flag_rec;
1789: l_return_status VARCHAR2(5) := NULL;
1790:
1791: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI changes
1792: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
1793: l_dbi_dml_type VARCHAR2(10);
1794:
1795: -- bug 4416863
1797: l_delivery_id NUMBER := NULL;
1798: -- end bug
1799:
1800: -- OTM R12
1801: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1802: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1803: l_ignore WSH_DELIVERY_DETAILS.IGNORE_FOR_PLANNING%TYPE;
1804: l_is_delivery_empty VARCHAR2(1);
1805: l_gc3_is_installed VARCHAR2(1);
1798: -- end bug
1799:
1800: -- OTM R12
1801: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
1802: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
1803: l_ignore WSH_DELIVERY_DETAILS.IGNORE_FOR_PLANNING%TYPE;
1804: l_is_delivery_empty VARCHAR2(1);
1805: l_gc3_is_installed VARCHAR2(1);
1806: l_gross_weight WSH_DELIVERY_DETAILS.GROSS_WEIGHT%TYPE; -- packing ECO
1828: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_DETAIL_ID',P_DELIVERY_DETAIL_ID);
1829: WSH_DEBUG_SV.log(l_module_name,'P_CANCEL_FLAG',P_CANCEL_FLAG);
1830: END IF;
1831: --
1832: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1833:
1834: -- OTM R12
1835: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1836: IF l_gc3_is_installed IS NULL THEN
1831: --
1832: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
1833:
1834: -- OTM R12
1835: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1836: IF l_gc3_is_installed IS NULL THEN
1837: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1838: END IF;
1839:
1833:
1834: -- OTM R12
1835: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
1836: IF l_gc3_is_installed IS NULL THEN
1837: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
1838: END IF;
1839:
1840: IF l_debug_on THEN
1841: WSH_DEBUG_SV.log(l_module_name,'l_gc3_is_installed',l_gc3_is_installed);
1916: END IF;
1917: wsh_delivery_details_actions.unassign_detail_from_delivery (
1918: p_detail_id => l_delivery_detail_id,
1919: x_return_status => l_return_status);
1920: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
1921: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1922: --
1923: x_return_status := l_return_status;
1924: WSH_UTIL_CORE.Add_Message(x_return_status);
1917: wsh_delivery_details_actions.unassign_detail_from_delivery (
1918: p_detail_id => l_delivery_detail_id,
1919: x_return_status => l_return_status);
1920: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
1921: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1922: --
1923: x_return_status := l_return_status;
1924: WSH_UTIL_CORE.Add_Message(x_return_status);
1925: IF l_debug_on THEN
1920: IF (l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR) OR
1921: (l_return_status = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
1922: --
1923: x_return_status := l_return_status;
1924: WSH_UTIL_CORE.Add_Message(x_return_status);
1925: IF l_debug_on THEN
1926: WSH_DEBUG_SV.log(l_module_name,'Return Status',x_return_status);
1927: WSH_DEBUG_SV.pop(l_module_name);
1928: END IF;
1988:
1989: l_call_update := 'Y';
1990: l_delivery_id_tab(1) := l_delivery_id;
1991: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_delivery_id);
1992: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1993: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1994: IF l_debug_on THEN
1995: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY');
1996: WSH_DEBUG_SV.pop(l_module_name);
1989: l_call_update := 'Y';
1990: l_delivery_id_tab(1) := l_delivery_id;
1991: l_is_delivery_empty := WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY(l_delivery_id);
1992: IF (l_is_delivery_empty = WSH_UTIL_CORE.G_RET_STS_ERROR) THEN
1993: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
1994: IF l_debug_on THEN
1995: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERY_ACTIONS.IS_DELIVERY_EMPTY');
1996: WSH_DEBUG_SV.pop(l_module_name);
1997: END IF;
2022: p_delivery_id_tab => l_delivery_id_tab,
2023: p_tms_interface_flag_tab => l_interface_flag_tab,
2024: x_return_status => l_return_status);
2025:
2026: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
2027: --
2028: x_return_status := l_return_status;
2029: IF l_debug_on THEN
2030: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
2057:
2058: IF l_debug_on THEN
2059: WSH_DEBUG_SV.log(l_module_name,'Return Status after DBI Call-',l_dbi_rs);
2060: END IF;
2061: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
2062: x_return_status := l_dbi_rs;
2063: -- just pass this return status to caller API
2064: END IF;
2065: -- End of Code for DBI Project
2073: END IF;
2074: --
2075: EXCEPTION
2076: WHEN others THEN
2077: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2078: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS',l_module_name);
2079:
2080: -- close all cursors at exception
2081: IF (get_del_detail%ISOPEN) THEN
2074: --
2075: EXCEPTION
2076: WHEN others THEN
2077: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
2078: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.DELETE_DELIVERY_DETAILS',l_module_name);
2079:
2080: -- close all cursors at exception
2081: IF (get_del_detail%ISOPEN) THEN
2082: CLOSE get_del_detail;
3204: WHERE wdd.delivery_detail_id = p_delivery_details_info.delivery_detail_id
3205: AND wdd.delivery_detail_id = wda.delivery_detail_id;
3206:
3207: l_cons_source_line_rec_tab WSH_DELIVERY_DETAILS_ACTIONS.Cons_Source_Line_Rec_Tab;
3208: l_cons_dd_ids WSH_UTIL_CORE.Id_Tab_Type ; --Stores the dd_ids returned by Consolidate_Source_Line
3209: l_back_order_consolidation VARCHAR2(1) := 'N';
3210: l_req NUMBER;
3211: l_req2 NUMBER;
3212: l_line_id NUMBER;
3216:
3217: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
3218: l_requested_quantity WSH_DELIVERY_DETAILS.REQUESTED_QUANTITY%TYPE;
3219: l_shipped_quantity WSH_DELIVERY_DETAILS.SHIPPED_QUANTITY%TYPE;
3220: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
3221: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
3222: l_gc3_is_installed VARCHAR2(1);
3223: -- End of OTM R12
3224:
3217: l_delivery_id WSH_NEW_DELIVERIES.DELIVERY_ID%TYPE;
3218: l_requested_quantity WSH_DELIVERY_DETAILS.REQUESTED_QUANTITY%TYPE;
3219: l_shipped_quantity WSH_DELIVERY_DETAILS.SHIPPED_QUANTITY%TYPE;
3220: l_delivery_id_tab WSH_UTIL_CORE.ID_TAB_TYPE;
3221: l_interface_flag_tab WSH_UTIL_CORE.COLUMN_TAB_TYPE;
3222: l_gc3_is_installed VARCHAR2(1);
3223: -- End of OTM R12
3224:
3225: l_rowid VARCHAR2(30);
3248: l_container_name VARCHAR2(50);
3249: l_param_info WSH_SHIPPING_PARAMS_PVT.Parameter_Rec_Typ;
3250: e_wt_vol_fail EXCEPTION;
3251:
3252: l_detail_tab WSH_UTIL_CORE.id_tab_type; -- DBI changes
3253: l_dbi_rs VARCHAR2(1); -- Return Status from DBI API
3254: l_num_errors NUMBER := 0;
3255: l_num_warnings NUMBER := 0;
3256: l_wms_installed VARCHAR2(10);
3316: --
3317: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
3318: END IF;
3319: --
3320: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3321:
3322: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3323: IF l_gc3_is_installed IS NULL THEN
3324: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3318: END IF;
3319: --
3320: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3321:
3322: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3323: IF l_gc3_is_installed IS NULL THEN
3324: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3325: END IF;
3326: IF l_debug_on THEN
3320: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3321:
3322: l_gc3_is_installed := WSH_UTIL_CORE.G_GC3_IS_INSTALLED;
3323: IF l_gc3_is_installed IS NULL THEN
3324: l_gc3_is_installed := WSH_UTIL_CORE.GC3_IS_INSTALLED;
3325: END IF;
3326: IF l_debug_on THEN
3327: wsh_debug_sv.log(l_module_name,'l_gc3_is_installed ',
3328: l_gc3_is_installed);
3449: quantity => l_maximum_load_weight,
3450: item_id => p_delivery_details_info.inventory_item_id,
3451: x_return_status => l_return_status
3452: );
3453: wsh_util_core.api_post_call
3454: (
3455: p_return_status => l_return_status,
3456: x_num_warnings => l_num_warnings,
3457: x_num_errors => l_num_errors
3470: quantity => l_unit_weight_item,
3471: item_id => p_delivery_details_info.inventory_item_id,
3472: x_return_status => l_return_status
3473: );
3474: wsh_util_core.api_post_call
3475: (
3476: p_return_status => l_return_status,
3477: x_num_warnings => l_num_warnings,
3478: x_num_errors => l_num_errors
3492: quantity => l_unit_volume_item,
3493: item_id => p_delivery_details_info.inventory_item_id,
3494: x_return_status => l_return_status
3495: );
3496: wsh_util_core.api_post_call
3497: (
3498: p_return_status => l_return_status,
3499: x_num_warnings => l_num_warnings,
3500: x_num_errors => l_num_errors
3512: quantity => l_maximum_volume,
3513: item_id => p_delivery_details_info.inventory_item_id,
3514: x_return_status => l_return_status
3515: );
3516: wsh_util_core.api_post_call
3517: (
3518: p_return_status => l_return_status,
3519: x_num_warnings => l_num_warnings,
3520: x_num_errors => l_num_errors
3689: p_sync_tmp_rec => l_sync_tmp_rec,
3690: x_return_status => l_return_status
3691: );
3692:
3693: wsh_util_core.api_post_call
3694: (
3695: p_return_status => l_return_status,
3696: x_num_warnings => l_num_warnings,
3697: x_num_errors => l_num_errors
3902:
3903: IF (SQL%NOTFOUND) THEN
3904: RAISE NO_DATA_FOUND;
3905: ELSE
3906: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
3907: END IF;
3908: --
3909: --
3910: -- DBI Project
3926: -- DBI API can only raise unexpected error, in that case need to
3927: -- pass it to the caller API for roll back of the whole transaction
3928: -- Only need to handle Unexpected error, rest are treated as success
3929: -- Since code is not proceeding, no need to reset x_return_status
3930: IF l_dbi_rs = WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR THEN
3931: x_return_status := l_dbi_rs;
3932: IF l_debug_on THEN
3933: WSH_DEBUG_SV.pop(l_module_name);
3934: END IF;
3986: p_diff_fill_volume => NVL(p_delivery_details_info.volume,0) - NVL(l_volume,0),
3987: p_diff_volume => NVL(p_delivery_details_info.volume,0) - NVL(l_volume,0),
3988: x_return_status => l_return_status);
3989:
3990: IF l_return_status = WSH_UTIL_CORE.G_RET_STS_ERROR THEN
3991: raise e_wt_vol_fail;
3992: END IF;
3993: ELSIF NVL(l_filled_volume,-99) <>
3994: NVL(p_delivery_details_info.filled_volume,-99)
4001: p_fill_pc_basis => NULL,
4002: x_fill_percent => l_cont_fill_pc,
4003: x_return_status => l_return_status
4004: );
4005: wsh_util_core.api_post_call
4006: (
4007: p_return_status => l_return_status,
4008: x_num_warnings => l_num_warnings,
4009: x_num_errors => l_num_errors
4025: ,
4026: P_subinventory => p_delivery_details_info.subinventory,
4027: X_return_status => l_return_status
4028: );
4029: wsh_util_core.api_post_call
4030: (
4031: p_return_status => l_return_status,
4032: x_num_warnings => l_num_warnings,
4033: x_num_errors => l_num_errors
4105: p_delivery_id_tab => l_delivery_id_tab,
4106: p_tms_interface_flag_tab => l_interface_flag_tab,
4107: x_return_status => l_return_status);
4108:
4109: IF (l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR)) THEN
4110: x_return_status := l_return_status;
4111: IF l_debug_on THEN
4112: WSH_DEBUG_SV.logmsg(l_module_name,'Error in WSH_NEW_DELIVERIES_PVT.UPDATE_TMS_INTERFACE_FLAG');
4113: WSH_DEBUG_SV.log(l_module_name,'l_return_status', l_return_status);
4150: WSH_DEBUG_SV.logmsg(l_module_name,'Calling program unit WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters',WSH_DEBUG_SV.C_PROC_LEVEL);
4151: END IF;
4152: --
4153: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec, l_return_status);
4154: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4155: wsh_util_core.add_message(l_return_status,'WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details');
4156: x_return_status := l_return_status;
4157: END IF;
4158: IF (l_global_param_rec.consolidate_bo_lines = 'Y') THEN
4151: END IF;
4152: --
4153: WSH_SHIPPING_PARAMS_PVT.Get_Global_Parameters(l_global_param_rec, l_return_status);
4154: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR, WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR) THEN
4155: wsh_util_core.add_message(l_return_status,'WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Delivery_Details');
4156: x_return_status := l_return_status;
4157: END IF;
4158: IF (l_global_param_rec.consolidate_bo_lines = 'Y') THEN
4159: --{
4177: WSH_DELIVERY_DETAILS_ACTIONS.Consolidate_Source_Line(
4178: p_Cons_Source_Line_Rec_Tab => l_cons_source_line_rec_tab,
4179: x_consolidate_ids => l_cons_dd_ids,
4180: x_return_status => l_return_status);
4181: IF l_return_status IN (WSH_UTIL_CORE.G_RET_STS_ERROR,WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR )THEN
4182: --{
4183: x_return_status := l_return_status;
4184: --}
4185: END IF;
4190: -- bug # 6749200 (replenishment project) : end
4191:
4192: IF l_num_errors > 0
4193: THEN
4194: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4195: ELSIF l_num_warnings > 0
4196: THEN
4197: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4198: ELSE
4193: THEN
4194: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4195: ELSIF l_num_warnings > 0
4196: THEN
4197: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4198: ELSE
4199: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4200: END IF;
4201: IF l_debug_on THEN
4195: ELSIF l_num_warnings > 0
4196: THEN
4197: x_return_status := WSH_UTIL_CORE.G_RET_STS_WARNING;
4198: ELSE
4199: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4200: END IF;
4201: IF l_debug_on THEN
4202: WSH_DEBUG_SV.pop(l_module_name);
4203: END IF;
4206: EXCEPTION
4207: --lpn conv
4208: WHEN FND_API.G_EXC_ERROR THEN
4209: ROLLBACK TO s_before_update_dd;
4210: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4211:
4212: IF (c_get_delivery_info%ISOPEN) THEN
4213: CLOSE c_get_delivery_info;
4214: END IF;
4226: WHEN e_wt_vol_fail THEN
4227: ROLLBACK TO s_before_update_dd;
4228: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
4229: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_details_info.delivery_detail_id);
4230: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4231: WSH_UTIL_CORE.add_message (x_return_status);
4232:
4233: IF (get_dd_info%ISOPEN) THEN
4234: CLOSE get_dd_info;
4227: ROLLBACK TO s_before_update_dd;
4228: FND_MESSAGE.SET_NAME('WSH','WSH_DET_WT_VOL_FAILED');
4229: FND_MESSAGE.SET_TOKEN('DETAIL_ID',p_delivery_details_info.delivery_detail_id);
4230: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4231: WSH_UTIL_CORE.add_message (x_return_status);
4232:
4233: IF (get_dd_info%ISOPEN) THEN
4234: CLOSE get_dd_info;
4235: END IF;
4239: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:E_WT_VOL_FAIL');
4240: END IF;
4241:
4242: WHEN others THEN
4243: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4244: ROLLBACK TO s_before_update_dd;
4245: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.UPDATE_DELIVERY_DETAILS',l_module_name);
4246:
4247: IF (c_get_delivery_info%ISOPEN) THEN
4241:
4242: WHEN others THEN
4243: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4244: ROLLBACK TO s_before_update_dd;
4245: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.UPDATE_DELIVERY_DETAILS',l_module_name);
4246:
4247: IF (c_get_delivery_info%ISOPEN) THEN
4248: CLOSE c_get_delivery_info;
4249: END IF;
4298: l_temp_id NUMBER;
4299:
4300: others exception;
4301:
4302: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
4303: l_da_id_tab WSH_UTIL_CORE.id_tab_type;
4304:
4305: --
4306: l_debug_on BOOLEAN;
4299:
4300: others exception;
4301:
4302: l_dd_id_tab WSH_UTIL_CORE.id_tab_type;
4303: l_da_id_tab WSH_UTIL_CORE.id_tab_type;
4304:
4305: --
4306: l_debug_on BOOLEAN;
4307: --
4320: IF l_debug_on THEN
4321: WSH_DEBUG_SV.push(l_module_name);
4322: END IF;
4323: --
4324: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4325:
4326: -- delivery assignment id should not be populated before hand
4327: /*
4328: IF p_delivery_assignments_info.delivery_assignment_id IS NOT NULL THEN
4350: IF (C_Del_Assign_Rowid%NOTFOUND) THEN
4351: CLOSE C_Del_Assign_Rowid;
4352: RAISE others;
4353: ELSE
4354: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4355: END IF;
4356: CLOSE C_Del_Assign_Rowid;
4357: --
4358: IF l_debug_on THEN
4360: END IF;
4361: --
4362: EXCEPTION
4363: WHEN others THEN
4364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4365: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_ASSIGNMENTS',l_module_name);
4366:
4367: --
4368: IF l_debug_on THEN
4361: --
4362: EXCEPTION
4363: WHEN others THEN
4364: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4365: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.CREATE_DELIVERY_ASSIGNMENTS',l_module_name);
4366:
4367: --
4368: IF l_debug_on THEN
4369: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4422: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
4423: WSH_DEBUG_SV.log(l_module_name,'P_DELIVERY_ASSIGNMENT_ID',P_DELIVERY_ASSIGNMENT_ID);
4424: END IF;
4425: --
4426: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4427:
4428: IF p_rowid IS NOT NULL THEN
4429: OPEN get_del_assignment_id_rowid(p_rowid);
4430: FETCH get_del_assignment_id_rowid INTO l_delivery_assignment_id;
4437:
4438: IF p_delivery_assignment_id IS NOT NULL THEN
4439: DELETE FROM wsh_delivery_assignments
4440: WHERE delivery_assignment_id = l_delivery_assignment_id;
4441: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4442: ELSE
4443: raise others;
4444: END IF;
4445:
4449: END IF;
4450: --
4451: EXCEPTION
4452: WHEN others THEN
4453: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4454: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG_.DELETE_DELIVERY_ASSIGNMENTS',l_module_name);
4455:
4456: --
4457: IF l_debug_on THEN
4450: --
4451: EXCEPTION
4452: WHEN others THEN
4453: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4454: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG_.DELETE_DELIVERY_ASSIGNMENTS',l_module_name);
4455:
4456: --
4457: IF l_debug_on THEN
4458: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4505: --
4506: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
4507: END IF;
4508: --
4509: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4510:
4511: IF (p_rowid IS NULL) THEN
4512: OPEN get_rowid;
4513: FETCH get_rowid INTO l_rowid;
4541:
4542: IF (SQL%NOTFOUND) THEN
4543: raise others;
4544: ELSE
4545: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4546: END IF;
4547:
4548: --
4549: IF l_debug_on THEN
4551: END IF;
4552: --
4553: EXCEPTION
4554: WHEN others THEN
4555: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4556: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.UPDATE_DELIVERY_ASSIGNMENTS',l_module_name);
4557:
4558: --
4559: IF l_debug_on THEN
4552: --
4553: EXCEPTION
4554: WHEN others THEN
4555: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4556: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.UPDATE_DELIVERY_ASSIGNMENTS',l_module_name);
4557:
4558: --
4559: IF l_debug_on THEN
4560: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4606: --
4607: WSH_DEBUG_SV.log(l_module_name,'P_ROWID',P_ROWID);
4608: END IF;
4609: --
4610: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4611:
4612: OPEN lock_row;
4613: FETCH lock_row INTO Recinfo;
4614: IF (lock_row%NOTFOUND) THEN
4612: OPEN lock_row;
4613: FETCH lock_row INTO Recinfo;
4614: IF (lock_row%NOTFOUND) THEN
4615: CLOSE lock_row;
4616: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4617: FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
4618: wsh_util_core.add_message(x_return_status,l_module_name);
4619: --
4620: IF l_debug_on THEN
4614: IF (lock_row%NOTFOUND) THEN
4615: CLOSE lock_row;
4616: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4617: FND_MESSAGE.Set_Name('FND','FORM_RECORD_DELETED');
4618: wsh_util_core.add_message(x_return_status,l_module_name);
4619: --
4620: IF l_debug_on THEN
4621: WSH_DEBUG_SV.pop(l_module_name);
4622: END IF;
4646: AND ( (Recinfo.program_application_id = p_delivery_assignments_info.program_application_id)
4647: OR ( (Recinfo.program_application_id IS NULL)
4648: AND (p_delivery_assignments_info.program_application_id IS NULL))))
4649: THEN
4650: x_return_status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
4651: --
4652: IF l_debug_on THEN
4653: WSH_DEBUG_SV.pop(l_module_name);
4654: END IF;
4654: END IF;
4655: --
4656: RETURN;
4657: ELSE
4658: -- x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
4659: FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
4660: IF l_debug_on THEN
4661: WSH_DEBUG_SV.log(l_module_name,'FORM RECORD CHANGED');
4662: END IF;
4670: END IF;
4671: --
4672: EXCEPTION
4673: WHEN others THEN
4674: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.LOCK_DELIVERY_ASSIGNMENTS',l_module_name);
4675: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4676: --
4677: IF l_debug_on THEN
4678: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4671: --
4672: EXCEPTION
4673: WHEN others THEN
4674: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.LOCK_DELIVERY_ASSIGNMENTS',l_module_name);
4675: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
4676: --
4677: IF l_debug_on THEN
4678: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4679: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4684:
4685: procedure Lock_Delivery_Details(
4686: p_rec_attr_tab IN WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type,
4687: p_caller IN VARCHAR2,
4688: p_valid_index_tab IN wsh_util_core.id_tab_type,
4689: x_valid_ids_tab OUT NOCOPY wsh_util_core.id_tab_type,
4690: x_return_status OUT NOCOPY VARCHAR2
4691: )
4692:
4685: procedure Lock_Delivery_Details(
4686: p_rec_attr_tab IN WSH_GLBL_VAR_STRCT_GRP.Delivery_Details_Attr_Tbl_Type,
4687: p_caller IN VARCHAR2,
4688: p_valid_index_tab IN wsh_util_core.id_tab_type,
4689: x_valid_ids_tab OUT NOCOPY wsh_util_core.id_tab_type,
4690: x_return_status OUT NOCOPY VARCHAR2
4691: )
4692:
4693: IS
4745: IF nvl(p_caller,'!') = 'WSH_PUB'
4746: OR nvl(p_caller, '!') like 'FTE%' THEN
4747: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVB_LOCK_FAILED');
4748: FND_MESSAGE.SET_TOKEN('ENTITY_NAME',p_rec_attr_tab(l_index).delivery_detail_id);
4749: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4750: END IF;
4751: l_num_errors := l_num_errors + 1;
4752: --
4753: IF l_debug_on THEN
4763: --
4764: end loop;
4765: --
4766: IF p_valid_index_tab.COUNT = 0 THEN
4767: x_return_status := wsh_util_core.g_ret_sts_success;
4768: ELSIF l_num_errors = p_valid_index_tab.COUNT THEN
4769: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PERFORMED');
4770: x_return_status := wsh_util_core.g_ret_sts_error;
4771: wsh_util_core.add_message(x_return_status,l_module_name);
4766: IF p_valid_index_tab.COUNT = 0 THEN
4767: x_return_status := wsh_util_core.g_ret_sts_success;
4768: ELSIF l_num_errors = p_valid_index_tab.COUNT THEN
4769: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PERFORMED');
4770: x_return_status := wsh_util_core.g_ret_sts_error;
4771: wsh_util_core.add_message(x_return_status,l_module_name);
4772: IF l_debug_on THEN
4773: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PERFORMED');
4774: END IF;
4767: x_return_status := wsh_util_core.g_ret_sts_success;
4768: ELSIF l_num_errors = p_valid_index_tab.COUNT THEN
4769: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PERFORMED');
4770: x_return_status := wsh_util_core.g_ret_sts_error;
4771: wsh_util_core.add_message(x_return_status,l_module_name);
4772: IF l_debug_on THEN
4773: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PERFORMED');
4774: END IF;
4775: raise fnd_api.g_exc_error;
4774: END IF;
4775: raise fnd_api.g_exc_error;
4776: ELSIF l_num_errors > 0 THEN
4777: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PROCESSED');
4778: x_return_status := wsh_util_core.g_ret_sts_warning;
4779: wsh_util_core.add_message(x_return_status,l_module_name);
4780: IF l_debug_on THEN
4781: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PROCESSED');
4782: END IF;
4775: raise fnd_api.g_exc_error;
4776: ELSIF l_num_errors > 0 THEN
4777: FND_MESSAGE.SET_NAME('WSH', 'WSH_UI_NOT_PROCESSED');
4778: x_return_status := wsh_util_core.g_ret_sts_warning;
4779: wsh_util_core.add_message(x_return_status,l_module_name);
4780: IF l_debug_on THEN
4781: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PROCESSED');
4782: END IF;
4783: raise wsh_util_core.g_exc_warning;
4779: wsh_util_core.add_message(x_return_status,l_module_name);
4780: IF l_debug_on THEN
4781: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PROCESSED');
4782: END IF;
4783: raise wsh_util_core.g_exc_warning;
4784: ELSE
4785: x_return_status := wsh_util_core.g_ret_sts_success;
4786: END IF;
4787: --
4781: wsh_debug_sv.logmsg(l_module_name, 'WSH_UI_NOT_PROCESSED');
4782: END IF;
4783: raise wsh_util_core.g_exc_warning;
4784: ELSE
4785: x_return_status := wsh_util_core.g_ret_sts_success;
4786: END IF;
4787: --
4788: IF l_debug_on THEN
4789: WSH_DEBUG_SV.pop(l_module_name);
4793: --
4794: --
4795: WHEN FND_API.G_EXC_ERROR THEN
4796: --
4797: x_return_status := wsh_util_core.g_ret_sts_error;
4798: --
4799: IF l_debug_on THEN
4800: WSH_DEBUG_SV.logmsg(l_module_name,'FND_API.G_EXC_ERROR exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4801: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4801: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_ERROR');
4802: END IF;
4803: --
4804: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4805: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
4806: --
4807: IF l_debug_on THEN
4808: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4809: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4808: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4809: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4810: END IF;
4811: --
4812: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4813: x_return_status := wsh_util_core.g_ret_sts_warning;
4814: --
4815: IF l_debug_on THEN
4816: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4809: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:FND_API.G_EXC_UNEXPECTED_ERROR');
4810: END IF;
4811: --
4812: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4813: x_return_status := wsh_util_core.g_ret_sts_warning;
4814: --
4815: IF l_debug_on THEN
4816: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4817: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4812: WHEN WSH_UTIL_CORE.G_EXC_WARNING THEN
4813: x_return_status := wsh_util_core.g_ret_sts_warning;
4814: --
4815: IF l_debug_on THEN
4816: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4817: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4818: END IF;
4819: --
4820: WHEN OTHERS THEN
4813: x_return_status := wsh_util_core.g_ret_sts_warning;
4814: --
4815: IF l_debug_on THEN
4816: WSH_DEBUG_SV.logmsg(l_module_name,'WSH_UTIL_CORE.G_EXC_WARNING exception has occured ',WSH_DEBUG_SV.C_EXCEP_LEVEL);
4817: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:WSH_UTIL_CORE.G_EXC_WARNING');
4818: END IF;
4819: --
4820: WHEN OTHERS THEN
4821: --
4818: END IF;
4819: --
4820: WHEN OTHERS THEN
4821: --
4822: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
4823: --
4824: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.LOCK_DELIVERY_DETAILS_WRAPPER',l_module_name);
4825: --
4826: IF l_debug_on THEN
4820: WHEN OTHERS THEN
4821: --
4822: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
4823: --
4824: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.LOCK_DELIVERY_DETAILS_WRAPPER',l_module_name);
4825: --
4826: IF l_debug_on THEN
4827: WSH_DEBUG_SV.logmsg(l_module_name,'Unexpected error has occured. Oracle error message is '|| SQLERRM,WSH_DEBUG_SV.C_UNEXPEC_ERR_LEVEL);
4828: WSH_DEBUG_SV.pop(l_module_name,'EXCEPTION:OTHERS');
4906: IF p_delivery_id IS NOT NULL THEN
4907: l_del_name := wsh_new_deliveries_pvt.get_name(p_delivery_id);
4908: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_LINE_LPN_LOCK');
4909: FND_MESSAGE.SET_TOKEN('DEL_NAME', l_del_name);
4910: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
4911: IF l_debug_on THEN
4912: wsh_debug_sv.log(l_module_name, 'Could not obtain lock on some lines or lpns of delivery', p_delivery_id);
4913: END IF;
4914: ELSE
5172: CLOSE c_tbl_rec;
5173: IF l_debug_on THEN
5174: WSH_DEBUG_SV.pop(l_module_name);
5175: END IF;
5176: x_return_status := wsh_util_core.g_ret_sts_success;
5177: EXCEPTION
5178:
5179: WHEN OTHERS THEN
5180: IF c_tbl_rec%ISOPEN THEN
5180: IF c_tbl_rec%ISOPEN THEN
5181: CLOSE c_tbl_rec;
5182: END IF;
5183: --
5184: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
5185: --
5186: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.Table_to_Record',l_module_name);
5187: --
5188: IF l_debug_on THEN
5182: END IF;
5183: --
5184: x_return_status := wsh_util_core.g_ret_sts_unexp_error;
5185: --
5186: wsh_util_core.default_handler('WSH_DELIVERY_DETAILS_PKG.Table_to_Record',l_module_name);
5187: --
5188: IF l_debug_on THEN
5189: 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');
5190: END IF;
5265: IF p_delivery_id IS NOT NULL THEN
5266: l_del_name := wsh_new_deliveries_pvt.get_name(p_delivery_id);
5267: FND_MESSAGE.SET_NAME('WSH', 'WSH_DLVY_LINE_LPN_LOCK');
5268: FND_MESSAGE.SET_TOKEN('DEL_NAME', l_del_name);
5269: wsh_util_core.add_message(wsh_util_core.g_ret_sts_error, l_module_name);
5270: IF l_debug_on THEN
5271: wsh_debug_sv.log(l_module_name, 'Could not obtain lock on some lines or lpns of delivery', p_delivery_id);
5272: END IF;
5273: ELSE