[Home] [Help]
430: l_node_index INTEGER;
431:
432: l_found BOOLEAN;
433: l_root_id NUMBER;
434: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
435: l_reservable VARCHAR2(10);
436: b_reservable BOOLEAN;
437: l_status_id NUMBER;
438: l_zone_control NUMBER;
618: , p_organization_id IN VARCHAR2
619: , p_subinventory_code IN VARCHAR2
620: , x_is_reservable_sub OUT NOCOPY BOOLEAN
621: ) IS
622: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
623: l_reservable_type NUMBER := 2;
624: l_hash_value NUMBER;
625: BEGIN
626: --Bug 4699159. The query is throwing a no data found exception when
658:
659: EXCEPTION
660:
661: WHEN OTHERS THEN
662: x_return_status := fnd_api.g_ret_sts_unexp_error ;
663:
664: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
665: THEN
666: fnd_msg_pub.add_exc_msg
684: , p_organization_id IN VARCHAR2
685: , p_inventory_location_id IN NUMBER
686: , x_is_reservable_loc OUT NOCOPY BOOLEAN
687: ) IS
688: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
689: l_reservable_type NUMBER := 2;
690: l_hash_value NUMBER;
691: BEGIN
692: --Bug 4699159. The query is throwing a no data found exception when
724:
725: EXCEPTION
726:
727: WHEN OTHERS THEN
728: x_return_status := fnd_api.g_ret_sts_unexp_error ;
729:
730: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
731: THEN
732: fnd_msg_pub.add_exc_msg
751: , p_inventory_item_id IN NUMBER
752: , p_lot_number IN VARCHAR2
753: , x_is_reservable_lot OUT NOCOPY BOOLEAN
754: ) IS
755: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
756: l_reservable_type NUMBER := 2;
757: l_hash_value NUMBER;
758: BEGIN
759: --Bug 4699159. The query is throwing a no data found exception when
794:
795: EXCEPTION
796:
797: WHEN OTHERS THEN
798: x_return_status := fnd_api.g_ret_sts_unexp_error ;
799:
800: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
801: THEN
802: fnd_msg_pub.add_exc_msg
827: , p_loc_id IN NUMBER
828: , p_lpn_id IN NUMBER
829: , x_is_reservable_onhand OUT NOCOPY BOOLEAN
830: ) IS
831: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
832: l_reservable_type NUMBER := 1;
833: l_hash_value NUMBER;
834: l_hash_string VARCHAR2(1000);
835: BEGIN
912:
913: EXCEPTION
914:
915: WHEN OTHERS THEN
916: x_return_status := fnd_api.g_ret_sts_unexp_error ;
917:
918: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
919: THEN
920: fnd_msg_pub.add_exc_msg
938: , p_organization_id IN NUMBER
939: , p_inventory_item_id IN NUMBER
940: , x_is_reservable_item OUT NOCOPY BOOLEAN
941: ) IS
942: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
943: l_reservable_type NUMBER;
944: l_no_info BOOLEAN := FALSE;
945: BEGIN
946: IF NOT g_is_item_reservable.exists(p_inventory_item_id) THEN
970:
971: EXCEPTION
972:
973: WHEN OTHERS THEN
974: x_return_status := fnd_api.g_ret_sts_unexp_error ;
975:
976: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
977: THEN
978: fnd_msg_pub.add_exc_msg
1000: , x_is_reservable OUT NOCOPY BOOLEAN
1001: , p_lpn_id IN NUMBER DEFAULT NULL -- Onhand Material Status Support
1002: ) IS
1003:
1004: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1005: l_reservable_type NUMBER;
1006: l_default_onhand_status_id NUMBER; -- Onhand Material Status Support
1007:
1008: /* Bug 6719389 */
1247: EXCEPTION
1248:
1249: WHEN OTHERS THEN
1250: print_debug('in check_is_reservable, OTHERS Error='||SQLERRM, 9);
1251: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1252:
1253: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1254: THEN
1255: fnd_msg_pub.add_exc_msg
1263: PROCEDURE zero_tree_node
1264: (x_return_status OUT NOCOPY VARCHAR2
1265: , p_node_index IN INTEGER
1266: ) IS
1267: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1268: l_node_index INTEGER;
1269: BEGIN
1270: l_node_index := p_node_index;
1271: IF l_node_index <>0 THEN
1293: l_node_index := g_nodes(l_node_index).first_child_index;
1294: WHILE l_node_index<>0 LOOP
1295: zero_tree_node(l_return_status, l_node_index);
1296:
1297: IF l_return_status = fnd_api.g_ret_sts_error THEN
1298: RAISE fnd_api.g_exc_error;
1299: End IF ;
1300:
1301: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1294: WHILE l_node_index<>0 LOOP
1295: zero_tree_node(l_return_status, l_node_index);
1296:
1297: IF l_return_status = fnd_api.g_ret_sts_error THEN
1298: RAISE fnd_api.g_exc_error;
1299: End IF ;
1300:
1301: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1302: RAISE fnd_api.g_exc_unexpected_error;
1297: IF l_return_status = fnd_api.g_ret_sts_error THEN
1298: RAISE fnd_api.g_exc_error;
1299: End IF ;
1300:
1301: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1302: RAISE fnd_api.g_exc_unexpected_error;
1303: End IF;
1304:
1305: l_node_index := g_nodes(l_node_index).next_sibling_index;
1298: RAISE fnd_api.g_exc_error;
1299: End IF ;
1300:
1301: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1302: RAISE fnd_api.g_exc_unexpected_error;
1303: End IF;
1304:
1305: l_node_index := g_nodes(l_node_index).next_sibling_index;
1306: END LOOP;
1307: END IF;
1308: x_return_status := l_return_status;
1309:
1310: EXCEPTION
1311: WHEN fnd_api.g_exc_error THEN
1312: x_return_status := fnd_api.g_ret_sts_error;
1313:
1314: WHEN fnd_api.g_exc_unexpected_error THEN
1315: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1308: x_return_status := l_return_status;
1309:
1310: EXCEPTION
1311: WHEN fnd_api.g_exc_error THEN
1312: x_return_status := fnd_api.g_ret_sts_error;
1313:
1314: WHEN fnd_api.g_exc_unexpected_error THEN
1315: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1316:
1310: EXCEPTION
1311: WHEN fnd_api.g_exc_error THEN
1312: x_return_status := fnd_api.g_ret_sts_error;
1313:
1314: WHEN fnd_api.g_exc_unexpected_error THEN
1315: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1316:
1317: WHEN OTHERS THEN
1318: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1311: WHEN fnd_api.g_exc_error THEN
1312: x_return_status := fnd_api.g_ret_sts_error;
1313:
1314: WHEN fnd_api.g_exc_unexpected_error THEN
1315: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1316:
1317: WHEN OTHERS THEN
1318: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1319:
1314: WHEN fnd_api.g_exc_unexpected_error THEN
1315: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1316:
1317: WHEN OTHERS THEN
1318: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1319:
1320: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1321: THEN
1322: fnd_msg_pub.add_exc_msg
1348: , p_cost_group_id IN NUMBER DEFAULT NULL
1349: , p_node_index IN INTEGER
1350: , p_hash_string IN VARCHAR2 DEFAULT NULL
1351: ) IS
1352: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1353: l_new_node_index INTEGER;
1354: l_org_id NUMBER;
1355: l_parent_index INTEGER;
1356: l_last_child_index INTEGER;
1413: , p_root_id => p_tree_id
1414: , x_is_reservable => l_is_reservable_sub
1415: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
1416:
1417: IF l_return_status = fnd_api.g_ret_sts_error THEN
1418: RAISE fnd_api.g_exc_error;
1419: End IF ;
1420:
1421: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1414: , x_is_reservable => l_is_reservable_sub
1415: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
1416:
1417: IF l_return_status = fnd_api.g_ret_sts_error THEN
1418: RAISE fnd_api.g_exc_error;
1419: End IF ;
1420:
1421: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1422: RAISE fnd_api.g_exc_unexpected_error;
1417: IF l_return_status = fnd_api.g_ret_sts_error THEN
1418: RAISE fnd_api.g_exc_error;
1419: End IF ;
1420:
1421: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1422: RAISE fnd_api.g_exc_unexpected_error;
1423: End IF;
1424:
1425:
1418: RAISE fnd_api.g_exc_error;
1419: End IF ;
1420:
1421: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1422: RAISE fnd_api.g_exc_unexpected_error;
1423: End IF;
1424:
1425:
1426: g_nodes(l_new_node_index).is_reservable_sub := l_is_reservable_sub;
1433:
1434: EXCEPTION
1435:
1436: WHEN OTHERS THEN
1437: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1438:
1439: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1440: THEN
1441: fnd_msg_pub.add_exc_msg
1467: l_pjm_enabled VARCHAR2(1);
1468:
1469: BEGIN
1470:
1471: x_return_status := fnd_api.g_ret_sts_success;
1472:
1473: -- Bug 1918356
1474: -- If PJM unit effectivity is enabled, we need to create
1475: -- a new tree for each different sales order line id
1520:
1521: RETURN l_hash_string;
1522: EXCEPTION
1523: WHEN OTHERS THEN
1524: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1525:
1526: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1527: THEN
1528: fnd_msg_pub.add_exc_msg
1561: , p_pick_release IN NUMBER
1562: , p_grade_code IN VARCHAR2 DEFAULT NULL
1563: , x_tree_id OUT NOCOPY INTEGER
1564: ) IS
1565: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1566: l_item_node_index INTEGER;
1567: l_negative_inv_receipt_code NUMBER;
1568: l_disable_flag NUMBER;
1569:
1631: l_tree_index := 1;
1632: END IF;
1633: -- if this ever true, we've used all the possible indices. Raise an exception.
1634: IF l_tree_index = l_original_tree_index THEN
1635: RAISE fnd_api.g_exc_unexpected_error;
1636: END IF;
1637: END LOOP;
1638: END IF;
1639:
1709: , p_tree_id => l_tree_index
1710: , p_node_index => l_item_node_index
1711: );
1712:
1713: IF l_return_status = fnd_api.g_ret_sts_error THEN
1714: RAISE fnd_api.g_exc_error;
1715: End IF ;
1716:
1717: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1710: , p_node_index => l_item_node_index
1711: );
1712:
1713: IF l_return_status = fnd_api.g_ret_sts_error THEN
1714: RAISE fnd_api.g_exc_error;
1715: End IF ;
1716:
1717: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1718: RAISE fnd_api.g_exc_unexpected_error;
1713: IF l_return_status = fnd_api.g_ret_sts_error THEN
1714: RAISE fnd_api.g_exc_error;
1715: End IF ;
1716:
1717: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1718: RAISE fnd_api.g_exc_unexpected_error;
1719: End IF;
1720:
1721: g_rootinfos(l_tree_index).item_node_index := l_item_node_index;
1714: RAISE fnd_api.g_exc_error;
1715: End IF ;
1716:
1717: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1718: RAISE fnd_api.g_exc_unexpected_error;
1719: End IF;
1720:
1721: g_rootinfos(l_tree_index).item_node_index := l_item_node_index;
1722: --bug 9380420, commenting the code below as new_tree_node will take care of it.
1733: */
1734:
1735: l_return_value := INV_CACHE.set_org_rec(p_organization_id);
1736: IF NOT l_return_value THEN
1737: RAISE fnd_api.g_exc_unexpected_error;
1738: END IF;
1739: l_negative_inv_receipt_code := INV_CACHE.org_rec.negative_inv_receipt_code;
1740: l_default_org_status_id := INV_CACHE.org_rec.default_status_id; --Bug 9150005
1741:
1762: ,x_organization_id => p_organization_id);
1763: */
1764: l_return_value := INV_CACHE.set_item_rec(p_organization_id, p_inventory_item_id);
1765: IF NOT l_return_value THEN
1766: RAISE fnd_api.g_exc_unexpected_error;
1767: END IF;
1768: l_unit_effective := INV_CACHE.item_rec.effectivity_control;
1769:
1770: /*Bug#5352407. All EAM asset group items are unit effective. Though they are unit
1807: print_debug('in new_tree org_id ='||g_rootinfos(l_tree_index).organization_id);
1808:
1809: EXCEPTION
1810:
1811: WHEN fnd_api.g_exc_error THEN
1812: x_return_status := fnd_api.g_ret_sts_error;
1813:
1814: WHEN fnd_api.g_exc_unexpected_error THEN
1815: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1808:
1809: EXCEPTION
1810:
1811: WHEN fnd_api.g_exc_error THEN
1812: x_return_status := fnd_api.g_ret_sts_error;
1813:
1814: WHEN fnd_api.g_exc_unexpected_error THEN
1815: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1816:
1810:
1811: WHEN fnd_api.g_exc_error THEN
1812: x_return_status := fnd_api.g_ret_sts_error;
1813:
1814: WHEN fnd_api.g_exc_unexpected_error THEN
1815: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1816:
1817: WHEN OTHERS THEN
1818: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1811: WHEN fnd_api.g_exc_error THEN
1812: x_return_status := fnd_api.g_ret_sts_error;
1813:
1814: WHEN fnd_api.g_exc_unexpected_error THEN
1815: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1816:
1817: WHEN OTHERS THEN
1818: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1819:
1814: WHEN fnd_api.g_exc_unexpected_error THEN
1815: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1816:
1817: WHEN OTHERS THEN
1818: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1819:
1820: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1821: THEN
1822: fnd_msg_pub.add_exc_msg
1871:
1872: IS
1873: l_api_version_number CONSTANT NUMBER := 1.0;
1874: l_api_name CONSTANT VARCHAR2(30) := 'Lock_Tree';
1875: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1876: l_lock_handle VARCHAR2(128);
1877: l_status INTEGER;
1878:
1879: BEGIN
1878:
1879: BEGIN
1880: print_debug('... in lock_tree... will create a dbms_lock...');
1881: -- Standard call to check for call compatibility
1882: IF NOT fnd_api.compatible_api_call( l_api_version_number
1883: , p_api_version_number
1884: , l_api_name
1885: , G_PKG_NAME
1886: ) THEN
1883: , p_api_version_number
1884: , l_api_name
1885: , G_PKG_NAME
1886: ) THEN
1887: RAISE fnd_api.g_exc_unexpected_error;
1888: END IF;
1889:
1890: -- Initialize message list.
1891: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1887: RAISE fnd_api.g_exc_unexpected_error;
1888: END IF;
1889:
1890: -- Initialize message list.
1891: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1892: fnd_msg_pub.initialize;
1893: END IF;
1894:
1895: --validate organization and inventory item
1896: IF (p_organization_id IS NULL OR p_inventory_item_id IS NULL) THEN
1897: --raise error condition
1898: fnd_message.set_name('INV','INV_LOCK_MISSING_ARGS');
1899: fnd_msg_pub.ADD;
1900: RAISE fnd_api.g_exc_error;
1901: END IF;
1902:
1903: IF g_lock_timeout IS NULL THEN
1904: g_lock_timeout := nvl(to_number(fnd_profile.value('INV_QTY_TREE_TIMEOUT')),dbms_lock.maxwait);
1919: IF (l_status NOT IN (0,4)) THEN
1920: if (l_status = 1) then -- timeout
1921: fnd_message.set_name('INV','INV_LOCK_TREE_TIMEOUT');
1922: fnd_msg_pub.ADD;
1923: RAISE fnd_api.g_exc_error;
1924: elsif (l_status = 2) then -- deadlock
1925: fnd_message.set_name('INV','INV_LOCK_TREE_DEADLOCK');
1926: fnd_msg_pub.ADD;
1927: RAISE fnd_api.g_exc_error;
1923: RAISE fnd_api.g_exc_error;
1924: elsif (l_status = 2) then -- deadlock
1925: fnd_message.set_name('INV','INV_LOCK_TREE_DEADLOCK');
1926: fnd_msg_pub.ADD;
1927: RAISE fnd_api.g_exc_error;
1928: else -- internal error - not fault of user
1929: fnd_message.set_name('INV','INV_LOCK_TREE_ERROR');
1930: fnd_msg_pub.ADD;
1931: RAISE fnd_api.g_exc_error;
1927: RAISE fnd_api.g_exc_error;
1928: else -- internal error - not fault of user
1929: fnd_message.set_name('INV','INV_LOCK_TREE_ERROR');
1930: fnd_msg_pub.ADD;
1931: RAISE fnd_api.g_exc_error;
1932: end if;
1933: END IF;
1934:
1935: print_debug('QTY TREE LOCK ACQUIRED '||l_lock_handle, 9);
1937: x_return_status := l_return_status;
1938:
1939: EXCEPTION
1940:
1941: WHEN fnd_api.g_exc_error THEN
1942: x_return_status := fnd_api.g_ret_sts_error;
1943:
1944: WHEN fnd_api.g_exc_unexpected_error THEN
1945: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1938:
1939: EXCEPTION
1940:
1941: WHEN fnd_api.g_exc_error THEN
1942: x_return_status := fnd_api.g_ret_sts_error;
1943:
1944: WHEN fnd_api.g_exc_unexpected_error THEN
1945: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1946:
1940:
1941: WHEN fnd_api.g_exc_error THEN
1942: x_return_status := fnd_api.g_ret_sts_error;
1943:
1944: WHEN fnd_api.g_exc_unexpected_error THEN
1945: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1946:
1947: WHEN OTHERS THEN
1948: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1941: WHEN fnd_api.g_exc_error THEN
1942: x_return_status := fnd_api.g_ret_sts_error;
1943:
1944: WHEN fnd_api.g_exc_unexpected_error THEN
1945: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1946:
1947: WHEN OTHERS THEN
1948: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1949:
1944: WHEN fnd_api.g_exc_unexpected_error THEN
1945: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1946:
1947: WHEN OTHERS THEN
1948: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1949:
1950: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1951: THEN
1952: fnd_msg_pub.add_exc_msg
1976:
1977: IS
1978: l_api_version_number CONSTANT NUMBER := 1.0;
1979: l_api_name CONSTANT VARCHAR2(30) := 'Release_Lock';
1980: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1981: l_lock_handle VARCHAR2(128);
1982: l_status INTEGER;
1983: BEGIN
1984: print_debug('... in release_lock ...');
1982: l_status INTEGER;
1983: BEGIN
1984: print_debug('... in release_lock ...');
1985: -- Standard call to check for call compatibility
1986: IF NOT fnd_api.compatible_api_call(l_api_version_number
1987: , p_api_version_number
1988: , l_api_name
1989: , G_PKG_NAME
1990: ) THEN
1987: , p_api_version_number
1988: , l_api_name
1989: , G_PKG_NAME
1990: ) THEN
1991: RAISE fnd_api.g_exc_unexpected_error;
1992: END IF;
1993:
1994: -- Initialize message list.
1995: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1991: RAISE fnd_api.g_exc_unexpected_error;
1992: END IF;
1993:
1994: -- Initialize message list.
1995: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1996: fnd_msg_pub.initialize;
1997: END IF;
1998:
1999: --validate organization and inventory item
2001: p_inventory_item_id IS NULL) THEN
2002: --raise error condition
2003: fnd_message.set_name('INV','INV_LOCK_RELEASE_MISSING_ARGS');
2004: fnd_msg_pub.ADD;
2005: RAISE fnd_api.g_exc_error;
2006: END IF;
2007:
2008:
2009: --get lock handle by calling helper function
2018: --if parameter error or illegal lock handle (internal error)
2019: if l_status IN (3,5) THEN
2020: fnd_message.set_name('INV','INV_LOCK_RELEASE_ERROR');
2021: fnd_msg_pub.ADD;
2022: RAISE fnd_api.g_exc_error;
2023: end if;
2024:
2025: print_debug('... Normal end of release_lock ...');
2026: x_return_status := l_return_status;
2026: x_return_status := l_return_status;
2027:
2028: EXCEPTION
2029:
2030: WHEN fnd_api.g_exc_error THEN
2031: print_debug('... release_lock EXP_ERROR='||SQLERRM, 9);
2032: x_return_status := fnd_api.g_ret_sts_error;
2033:
2034: WHEN fnd_api.g_exc_unexpected_error THEN
2028: EXCEPTION
2029:
2030: WHEN fnd_api.g_exc_error THEN
2031: print_debug('... release_lock EXP_ERROR='||SQLERRM, 9);
2032: x_return_status := fnd_api.g_ret_sts_error;
2033:
2034: WHEN fnd_api.g_exc_unexpected_error THEN
2035: print_debug('... release_lock UNEXP_ERROR='||SQLERRM, 9);
2036: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2030: WHEN fnd_api.g_exc_error THEN
2031: print_debug('... release_lock EXP_ERROR='||SQLERRM, 9);
2032: x_return_status := fnd_api.g_ret_sts_error;
2033:
2034: WHEN fnd_api.g_exc_unexpected_error THEN
2035: print_debug('... release_lock UNEXP_ERROR='||SQLERRM, 9);
2036: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2037:
2038: WHEN OTHERS THEN
2032: x_return_status := fnd_api.g_ret_sts_error;
2033:
2034: WHEN fnd_api.g_exc_unexpected_error THEN
2035: print_debug('... release_lock UNEXP_ERROR='||SQLERRM, 9);
2036: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2037:
2038: WHEN OTHERS THEN
2039: print_debug('... release_lock others='||SQLERRM, 9);
2040: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2036: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2037:
2038: WHEN OTHERS THEN
2039: print_debug('... release_lock others='||SQLERRM, 9);
2040: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2041:
2042: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2043: THEN
2044: fnd_msg_pub.add_exc_msg
2143: , p_pick_release IN NUMBER
2144: ) RETURN INTEGER
2145: IS
2146:
2147: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2148: l_rootinfo_index INTEGER;
2149: l_hash_base NUMBER;
2150: l_hash_size NUMBER;
2151: l_hash_string VARCHAR2(1000);
2229: End If;
2230: -- if this ever true, we've used all the possible indices. Raise
2231: -- an exception.
2232: If l_tree_index = l_original_tree_index Then
2233: RAISE fnd_api.g_exc_unexpected_error;
2234: End If;
2235: END LOOP;
2236: --Bug 5241485 fix. This one causing no data found exception
2237: print_debug('in find_rootinfo: AFTER LOOP l_tree_index:'||l_tree_index);
2262: END IF;
2263:
2264: EXCEPTION
2265: WHEN OTHERS THEN
2266: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2267: print_debug('odab in find_rootinfo OTHERS='||SQLERRM, 9);
2268: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2269: THEN
2270: fnd_msg_pub.add_exc_msg
2295: , p_lpn_id IN NUMBER DEFAULT NULL
2296: , p_cost_group_id IN NUMBER DEFAULT NULL
2297: , x_child_index OUT NOCOPY INTEGER
2298: ) RETURN BOOLEAN IS
2299: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2300: l_node_index INTEGER;
2301: l_hash_string VARCHAR2(300);
2302: l_hash_size NUMBER;
2303: l_hash_base NUMBER := 1;
2313: THEN
2314: fnd_message.set_name('INV','INV-Cannot find node');
2315: fnd_message.set_token('ROUTINE', 'Find_Child_Node');
2316: fnd_msg_pub.ADD;
2317: RAISE fnd_api.g_exc_error;
2318: END IF;
2319:
2320:
2321: print_debug('... in find_child_node, building the hash string...');
2373: RETURN TRUE;
2374:
2375: EXCEPTION
2376:
2377: WHEN fnd_api.g_exc_error THEN
2378: x_return_status := fnd_api.g_ret_sts_error;
2379:
2380: WHEN fnd_api.g_exc_unexpected_error THEN
2381: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2374:
2375: EXCEPTION
2376:
2377: WHEN fnd_api.g_exc_error THEN
2378: x_return_status := fnd_api.g_ret_sts_error;
2379:
2380: WHEN fnd_api.g_exc_unexpected_error THEN
2381: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2382:
2376:
2377: WHEN fnd_api.g_exc_error THEN
2378: x_return_status := fnd_api.g_ret_sts_error;
2379:
2380: WHEN fnd_api.g_exc_unexpected_error THEN
2381: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2382:
2383: WHEN OTHERS THEN
2384: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2377: WHEN fnd_api.g_exc_error THEN
2378: x_return_status := fnd_api.g_ret_sts_error;
2379:
2380: WHEN fnd_api.g_exc_unexpected_error THEN
2381: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2382:
2383: WHEN OTHERS THEN
2384: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2385:
2380: WHEN fnd_api.g_exc_unexpected_error THEN
2381: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2382:
2383: WHEN OTHERS THEN
2384: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2385:
2386: -- For performance reasons during pick release only do this ifdebug is on
2387: IF ((NOT g_is_pickrelease) OR nvl(g_debug,2) = 1) THEN
2388: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2413: , x_node_index OUT NOCOPY INTEGER
2414: , p_lpn_id IN NUMBER
2415: , p_cost_group_id IN NUMBER
2416: ) RETURN BOOLEAN IS
2417: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2418: l_current_node_index INTEGER;
2419: l_child_node_index INTEGER;
2420: l_found BOOLEAN;
2421: l_last_child INTEGER;
2440: , p_cost_group_id => NULL
2441: , x_child_index => l_current_node_index
2442: );
2443:
2444: IF l_return_status = fnd_api.g_ret_sts_error THEN
2445: RAISE fnd_api.g_exc_error;
2446: End IF ;
2447:
2448: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2441: , x_child_index => l_current_node_index
2442: );
2443:
2444: IF l_return_status = fnd_api.g_ret_sts_error THEN
2445: RAISE fnd_api.g_exc_error;
2446: End IF ;
2447:
2448: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2449: RAISE fnd_api.g_exc_unexpected_error;
2444: IF l_return_status = fnd_api.g_ret_sts_error THEN
2445: RAISE fnd_api.g_exc_error;
2446: End IF ;
2447:
2448: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2449: RAISE fnd_api.g_exc_unexpected_error;
2450: End IF;
2451:
2452: IF l_found = FALSE THEN
2445: RAISE fnd_api.g_exc_error;
2446: End IF ;
2447:
2448: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2449: RAISE fnd_api.g_exc_unexpected_error;
2450: End IF;
2451:
2452: IF l_found = FALSE THEN
2453: fnd_message.set_name('INV','INV-Cannot find node');
2452: IF l_found = FALSE THEN
2453: fnd_message.set_name('INV','INV-Cannot find node');
2454: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
2455: fnd_msg_pub.ADD;
2456: RAISE fnd_api.g_exc_unexpected_error;
2457: End IF;
2458:
2459: IF l_child_node_index <> 0 THEN
2460: IF g_nodes(l_current_node_index).first_child_index = 0 THEN
2494: , p_cost_group_id => NULL
2495: , x_child_index => l_current_node_index
2496: );
2497:
2498: IF l_return_status = fnd_api.g_ret_sts_error THEN
2499: RAISE fnd_api.g_exc_error;
2500: End IF ;
2501:
2502: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2495: , x_child_index => l_current_node_index
2496: );
2497:
2498: IF l_return_status = fnd_api.g_ret_sts_error THEN
2499: RAISE fnd_api.g_exc_error;
2500: End IF ;
2501:
2502: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2503: RAISE fnd_api.g_exc_unexpected_error;
2498: IF l_return_status = fnd_api.g_ret_sts_error THEN
2499: RAISE fnd_api.g_exc_error;
2500: End IF ;
2501:
2502: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2503: RAISE fnd_api.g_exc_unexpected_error;
2504: End IF;
2505:
2506: IF l_found = FALSE THEN
2499: RAISE fnd_api.g_exc_error;
2500: End IF ;
2501:
2502: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2503: RAISE fnd_api.g_exc_unexpected_error;
2504: End IF;
2505:
2506: IF l_found = FALSE THEN
2507: fnd_message.set_name('INV','INV-Cannot find node');
2506: IF l_found = FALSE THEN
2507: fnd_message.set_name('INV','INV-Cannot find node');
2508: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
2509: fnd_msg_pub.ADD;
2510: RAISE fnd_api.g_exc_unexpected_error;
2511: End IF;
2512:
2513: If l_child_node_index <> 0 Then
2514: if g_nodes(l_current_node_index).first_child_index = 0 then
2547: , p_cost_group_id => NULL
2548: , x_child_index => l_current_node_index
2549: );
2550:
2551: IF l_return_status = fnd_api.g_ret_sts_error THEN
2552: RAISE fnd_api.g_exc_error;
2553: End IF ;
2554:
2555: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2548: , x_child_index => l_current_node_index
2549: );
2550:
2551: IF l_return_status = fnd_api.g_ret_sts_error THEN
2552: RAISE fnd_api.g_exc_error;
2553: End IF ;
2554:
2555: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2556: RAISE fnd_api.g_exc_unexpected_error;
2551: IF l_return_status = fnd_api.g_ret_sts_error THEN
2552: RAISE fnd_api.g_exc_error;
2553: End IF ;
2554:
2555: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2556: RAISE fnd_api.g_exc_unexpected_error;
2557: End IF;
2558:
2559: IF l_found = FALSE THEN
2552: RAISE fnd_api.g_exc_error;
2553: End IF ;
2554:
2555: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2556: RAISE fnd_api.g_exc_unexpected_error;
2557: End IF;
2558:
2559: IF l_found = FALSE THEN
2560: fnd_message.set_name('INV','INV-Cannot find node');
2559: IF l_found = FALSE THEN
2560: fnd_message.set_name('INV','INV-Cannot find node');
2561: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
2562: fnd_msg_pub.ADD;
2563: RAISE fnd_api.g_exc_unexpected_error;
2564: End IF;
2565:
2566: If l_child_node_index <> 0 Then
2567: if g_nodes(l_current_node_index).first_child_index = 0 then
2600: , p_cost_group_id => NULL
2601: , x_child_index => l_current_node_index
2602: );
2603:
2604: IF l_return_status = fnd_api.g_ret_sts_error THEN
2605: RAISE fnd_api.g_exc_error;
2606: End IF ;
2607:
2608: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2601: , x_child_index => l_current_node_index
2602: );
2603:
2604: IF l_return_status = fnd_api.g_ret_sts_error THEN
2605: RAISE fnd_api.g_exc_error;
2606: End IF ;
2607:
2608: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2609: RAISE fnd_api.g_exc_unexpected_error;
2604: IF l_return_status = fnd_api.g_ret_sts_error THEN
2605: RAISE fnd_api.g_exc_error;
2606: End IF ;
2607:
2608: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2609: RAISE fnd_api.g_exc_unexpected_error;
2610: End IF;
2611:
2612: IF l_found = FALSE THEN
2605: RAISE fnd_api.g_exc_error;
2606: End IF ;
2607:
2608: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2609: RAISE fnd_api.g_exc_unexpected_error;
2610: End IF;
2611:
2612: IF l_found = FALSE THEN
2613: fnd_message.set_name('INV','INV-Cannot find node');
2612: IF l_found = FALSE THEN
2613: fnd_message.set_name('INV','INV-Cannot find node');
2614: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
2615: fnd_msg_pub.ADD;
2616: RAISE fnd_api.g_exc_unexpected_error;
2617: End IF;
2618:
2619: If l_child_node_index <> 0 Then
2620: if g_nodes(l_current_node_index).first_child_index = 0 then
2653: , p_cost_group_id => NULL
2654: , x_child_index => l_current_node_index
2655: );
2656:
2657: IF l_return_status = fnd_api.g_ret_sts_error THEN
2658: RAISE fnd_api.g_exc_error;
2659: End IF ;
2660:
2661: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2654: , x_child_index => l_current_node_index
2655: );
2656:
2657: IF l_return_status = fnd_api.g_ret_sts_error THEN
2658: RAISE fnd_api.g_exc_error;
2659: End IF ;
2660:
2661: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2662: RAISE fnd_api.g_exc_unexpected_error;
2657: IF l_return_status = fnd_api.g_ret_sts_error THEN
2658: RAISE fnd_api.g_exc_error;
2659: End IF ;
2660:
2661: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2662: RAISE fnd_api.g_exc_unexpected_error;
2663: End IF;
2664:
2665: IF l_found = FALSE THEN
2658: RAISE fnd_api.g_exc_error;
2659: End IF ;
2660:
2661: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2662: RAISE fnd_api.g_exc_unexpected_error;
2663: End IF;
2664:
2665: IF l_found = FALSE THEN
2666: fnd_message.set_name('INV','INV-Cannot find node');
2665: IF l_found = FALSE THEN
2666: fnd_message.set_name('INV','INV-Cannot find node');
2667: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
2668: fnd_msg_pub.ADD;
2669: RAISE fnd_api.g_exc_unexpected_error;
2670: End IF;
2671:
2672: If l_child_node_index <> 0 Then
2673: if g_nodes(l_current_node_index).first_child_index = 0 then
2723: RETURN TRUE;
2724:
2725: EXCEPTION
2726:
2727: WHEN fnd_api.g_exc_error THEN
2728: x_return_status := fnd_api.g_ret_sts_error;
2729: RETURN FALSE;
2730: WHEN fnd_api.g_exc_unexpected_error THEN
2731: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2724:
2725: EXCEPTION
2726:
2727: WHEN fnd_api.g_exc_error THEN
2728: x_return_status := fnd_api.g_ret_sts_error;
2729: RETURN FALSE;
2730: WHEN fnd_api.g_exc_unexpected_error THEN
2731: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2732: RETURN FALSE;
2726:
2727: WHEN fnd_api.g_exc_error THEN
2728: x_return_status := fnd_api.g_ret_sts_error;
2729: RETURN FALSE;
2730: WHEN fnd_api.g_exc_unexpected_error THEN
2731: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2732: RETURN FALSE;
2733:
2734: WHEN OTHERS THEN
2727: WHEN fnd_api.g_exc_error THEN
2728: x_return_status := fnd_api.g_ret_sts_error;
2729: RETURN FALSE;
2730: WHEN fnd_api.g_exc_unexpected_error THEN
2731: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2732: RETURN FALSE;
2733:
2734: WHEN OTHERS THEN
2735: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2731: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2732: RETURN FALSE;
2733:
2734: WHEN OTHERS THEN
2735: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2736:
2737: IF ((NOT g_is_pickrelease) OR nvl(g_debug,2) = 1) THEN
2738: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2739: THEN
2785: , p_quantity_type IN INTEGER
2786: , p_set_check_mark IN BOOLEAN
2787: , p_cost_group_id IN NUMBER
2788: , p_lpn_id IN NUMBER
2789: , p_check_mark_node_only IN VARCHAR2 DEFAULT fnd_api.g_false
2790: --Bug 4294336 --Additional Parameters
2791: , p_transaction_action_id IN NUMBER DEFAULT NULL
2792: , p_transfer_subinventory_code IN VARCHAR2 DEFAULT NULL
2793: , p_transfer_locator_id IN NUMBER DEFAULT NULL
2793: , p_transfer_locator_id IN NUMBER DEFAULT NULL
2794: , p_expiration_date IN DATE DEFAULT NULL -- Bug 7628989
2795: , p_is_reservable_lot IN NUMBER DEFAULT NULL -- Bug 8713821
2796: ) IS
2797: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
2798: l_node_index INTEGER;
2799: l_found BOOLEAN;
2800: l_is_reservable_sub BOOLEAN;
2801: ll_is_reservable_sub BOOLEAN;
2847: -- invalid p_quantity_type. the caller's fault
2848: print_debug('... error=INVALID_QUANTITY_TYPE');
2849: fnd_message.set_name('INV', 'INV-INVALID_QUANTITY_TYPE');
2850: fnd_msg_pub.ADD;
2851: RAISE fnd_api.g_exc_error;
2852: END IF;
2853:
2854: l_hash_base := 1;
2855: l_hash_size := power(2, 20);
2866: , p_cost_group_id => p_cost_group_id
2867: , p_lpn_id => p_lpn_id
2868: );
2869:
2870: IF l_return_status = fnd_api.g_ret_sts_error THEN
2871: RAISE fnd_api.g_exc_error;
2872: End IF ;
2873:
2874: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2867: , p_lpn_id => p_lpn_id
2868: );
2869:
2870: IF l_return_status = fnd_api.g_ret_sts_error THEN
2871: RAISE fnd_api.g_exc_error;
2872: End IF ;
2873:
2874: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2875: RAISE fnd_api.g_exc_unexpected_error;
2870: IF l_return_status = fnd_api.g_ret_sts_error THEN
2871: RAISE fnd_api.g_exc_error;
2872: End IF ;
2873:
2874: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2875: RAISE fnd_api.g_exc_unexpected_error;
2876: END IF;
2877:
2878: IF l_found = FALSE THEN
2871: RAISE fnd_api.g_exc_error;
2872: End IF ;
2873:
2874: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2875: RAISE fnd_api.g_exc_unexpected_error;
2876: END IF;
2877:
2878: IF l_found = FALSE THEN
2879: fnd_message.set_name('INV','INV-Cannot find node');
2878: IF l_found = FALSE THEN
2879: fnd_message.set_name('INV','INV-Cannot find node');
2880: fnd_message.set_token('ROUTINE', 'Add_Quantities');
2881: fnd_msg_pub.ADD;
2882: RAISE fnd_api.g_exc_unexpected_error;
2883: End IF;
2884:
2885: -- get tree mode
2886: -- only use this value to see if mode is loose or not
2904: THEN
2905: print_debug('... error=INV-WRONG_LEVEL');
2906: fnd_message.set_name('INV', 'INV-WRONG_LEVEL');
2907: fnd_msg_pub.ADD;
2908: RAISE fnd_api.g_exc_error;
2909: End IF;
2910:
2911: --bug 9380420, commenting the code below, as is_reservable_sub should be checked from g_nodes.
2912: /*
2932: , x_is_reservable => l_is_reservable_sub
2933: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
2934: print_debug('in add_qty, after check_is_reservable. return_status='||l_return_status);
2935:
2936: IF l_return_status = fnd_api.g_ret_sts_error THEN
2937: RAISE fnd_api.g_exc_error;
2938: End IF ;
2939:
2940: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2933: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
2934: print_debug('in add_qty, after check_is_reservable. return_status='||l_return_status);
2935:
2936: IF l_return_status = fnd_api.g_ret_sts_error THEN
2937: RAISE fnd_api.g_exc_error;
2938: End IF ;
2939:
2940: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2941: RAISE fnd_api.g_exc_unexpected_error;
2936: IF l_return_status = fnd_api.g_ret_sts_error THEN
2937: RAISE fnd_api.g_exc_error;
2938: End IF ;
2939:
2940: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2941: RAISE fnd_api.g_exc_unexpected_error;
2942: End IF;
2943: END IF; -- p_is_reservable_sub = NULL
2944:
2937: RAISE fnd_api.g_exc_error;
2938: End IF ;
2939:
2940: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2941: RAISE fnd_api.g_exc_unexpected_error;
2942: End IF;
2943: END IF; -- p_is_reservable_sub = NULL
2944:
2945:
3226: -- Bug 2486318. The do check does not work. Trasactions get committed
3227: -- even if there is a node violation. Added p_check_mark_node_only to mark the nodes.
3228:
3229: IF (p_set_check_mark = TRUE or
3230: p_check_mark_node_only = fnd_api.g_true AND
3231: p_primary_quantity < 0 )THEN
3232: g_nodes(l_loop_index).check_mark := TRUE;
3233: END IF;
3234:
3463: -- Bug 2486318. The do check does not work. Trasactions get committed
3464: -- even if there is a node violation. Added p_check_mark_node_only to mark the nodes.
3465:
3466: IF (p_set_check_mark = TRUE or
3467: p_check_mark_node_only = fnd_api.g_true AND p_primary_quantity >0) THEN
3468: g_nodes(l_loop_index).check_mark := TRUE;
3469: END IF;
3470:
3471: IF g_debug = 1 THEN
3487: AND g_nodes(l_node_index).node_level <> g_lpn_level
3488: THEN
3489: fnd_message.set_name('INV', 'INV-WRONG_LEVEL');
3490: fnd_msg_pub.ADD;
3491: RAISE fnd_api.g_exc_error;
3492: End IF;
3493:
3494: -- need to find out whether the sub is reservable or not
3495: -- in order to compute atr
3521: , p_root_id => p_tree_id
3522: , x_is_reservable => l_is_reservable_sub
3523: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
3524:
3525: IF l_return_status = fnd_api.g_ret_sts_error THEN
3526: RAISE fnd_api.g_exc_error;
3527: End IF ;
3528:
3529: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3522: , x_is_reservable => l_is_reservable_sub
3523: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
3524:
3525: IF l_return_status = fnd_api.g_ret_sts_error THEN
3526: RAISE fnd_api.g_exc_error;
3527: End IF ;
3528:
3529: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3530: RAISE fnd_api.g_exc_unexpected_error;
3525: IF l_return_status = fnd_api.g_ret_sts_error THEN
3526: RAISE fnd_api.g_exc_error;
3527: End IF ;
3528:
3529: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3530: RAISE fnd_api.g_exc_unexpected_error;
3531: End IF;
3532: END IF;
3533:
3526: RAISE fnd_api.g_exc_error;
3527: End IF ;
3528:
3529: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3530: RAISE fnd_api.g_exc_unexpected_error;
3531: End IF;
3532: END IF;
3533:
3534: g_nodes(l_sub_index).is_reservable_sub := l_is_reservable_sub;
3541: IF NVL(p_transaction_action_id,-1 ) = 2 THEN
3542: l_is_reservable_xfer_sub := FALSE;
3543: IF p_transfer_subinventory_code IS NULL THEN
3544: print_debug('add_quantities, transaction_action_id = 2 with NULL transfer subinventory ',9);
3545: RAISE fnd_api.g_exc_error;
3546: END IF;
3547: --bug 9380420, we should be calling check_is_reservable to account for transfer locator as well.
3548: /*
3549: check_is_reservable_sub
3565: , p_root_id => p_tree_id
3566: , x_is_reservable => l_is_reservable_xfer_sub
3567: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
3568:
3569: IF l_return_status = fnd_api.g_ret_sts_error THEN
3570: RAISE fnd_api.g_exc_error;
3571: End IF ;
3572:
3573: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3566: , x_is_reservable => l_is_reservable_xfer_sub
3567: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
3568:
3569: IF l_return_status = fnd_api.g_ret_sts_error THEN
3570: RAISE fnd_api.g_exc_error;
3571: End IF ;
3572:
3573: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3574: RAISE fnd_api.g_exc_unexpected_error;
3569: IF l_return_status = fnd_api.g_ret_sts_error THEN
3570: RAISE fnd_api.g_exc_error;
3571: End IF ;
3572:
3573: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3574: RAISE fnd_api.g_exc_unexpected_error;
3575: End IF;
3576:
3577: END IF;
3570: RAISE fnd_api.g_exc_error;
3571: End IF ;
3572:
3573: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3574: RAISE fnd_api.g_exc_unexpected_error;
3575: End IF;
3576:
3577: END IF;
3578: --Bug 4294336
4186: -- Bug 2486318. The do check does not work. Trasactions get committed
4187: -- even if there is a node violation. Added p_check_mark_node_only to mark the nodes.
4188:
4189: IF (p_set_check_mark = TRUE or
4190: p_check_mark_node_only = fnd_api.g_true AND p_primary_quantity < 0 )THEN
4191: g_nodes(l_loop_index).check_mark := TRUE;
4192: END IF;
4193:
4194: IF g_debug = 1 THEN
4244: print_debug('Normal end of add_quantities...');
4245: x_return_status := l_return_status;
4246:
4247: EXCEPTION
4248: WHEN fnd_api.g_exc_error THEN
4249: print_debug('in add_quantities... EXP_ERROR sql='||SQLERRM,9);
4250: x_return_status := fnd_api.g_ret_sts_error;
4251:
4252: WHEN fnd_api.g_exc_unexpected_error THEN
4246:
4247: EXCEPTION
4248: WHEN fnd_api.g_exc_error THEN
4249: print_debug('in add_quantities... EXP_ERROR sql='||SQLERRM,9);
4250: x_return_status := fnd_api.g_ret_sts_error;
4251:
4252: WHEN fnd_api.g_exc_unexpected_error THEN
4253: print_debug('in add_quantities... UNEXP_ERROR sql='||SQLERRM,9);
4254: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4248: WHEN fnd_api.g_exc_error THEN
4249: print_debug('in add_quantities... EXP_ERROR sql='||SQLERRM,9);
4250: x_return_status := fnd_api.g_ret_sts_error;
4251:
4252: WHEN fnd_api.g_exc_unexpected_error THEN
4253: print_debug('in add_quantities... UNEXP_ERROR sql='||SQLERRM,9);
4254: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4255:
4256: WHEN OTHERS THEN
4250: x_return_status := fnd_api.g_ret_sts_error;
4251:
4252: WHEN fnd_api.g_exc_unexpected_error THEN
4253: print_debug('in add_quantities... UNEXP_ERROR sql='||SQLERRM,9);
4254: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4255:
4256: WHEN OTHERS THEN
4257: print_debug('in add_quantities... OTHERS ERROR sql='||SQLERRM,9);
4258: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4254: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4255:
4256: WHEN OTHERS THEN
4257: print_debug('in add_quantities... OTHERS ERROR sql='||SQLERRM,9);
4258: x_return_status := fnd_api.g_ret_sts_unexp_error ;
4259:
4260: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
4261: THEN
4262: fnd_msg_pub.add_exc_msg
4274: ( x_return_status OUT NOCOPY VARCHAR2
4275: , p_tree_id IN INTEGER
4276: ) IS
4277: l_api_name VARCHAR2(30) := 'BUILD_TREE';
4278: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
4279: l_is_reservable_sub BOOLEAN;
4280: l_cursor NUMBER;
4281: l_dummy INTEGER;
4282: l_index_start NUMBER := 0;
8430: print_debug('In build_tree. g_is_lot_control=FALSE');
8431: end if;
8432:
8433: zero_tree_node(l_return_status, g_rootinfos(p_tree_id).item_node_index);
8434: IF l_return_status = fnd_api.g_ret_sts_error THEN
8435: RAISE fnd_api.g_exc_error;
8436: End IF ;
8437:
8438: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8431: end if;
8432:
8433: zero_tree_node(l_return_status, g_rootinfos(p_tree_id).item_node_index);
8434: IF l_return_status = fnd_api.g_ret_sts_error THEN
8435: RAISE fnd_api.g_exc_error;
8436: End IF ;
8437:
8438: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8439: RAISE fnd_api.g_exc_unexpected_error;
8434: IF l_return_status = fnd_api.g_ret_sts_error THEN
8435: RAISE fnd_api.g_exc_error;
8436: End IF ;
8437:
8438: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8439: RAISE fnd_api.g_exc_unexpected_error;
8440: End IF;
8441:
8442: --bug 2668448
8435: RAISE fnd_api.g_exc_error;
8436: End IF ;
8437:
8438: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8439: RAISE fnd_api.g_exc_unexpected_error;
8440: End IF;
8441:
8442: --bug 2668448
8443: --quantity tree returned wrong values if the tree is rebuilt
8878: , p_expiration_date => v_lot_expiration_date(l_index) -- Bug 7628989
8879: , p_is_reservable_lot => v_is_reservable_lot(l_index) --Bug#8713821
8880: );
8881:
8882: IF l_return_status = fnd_api.g_ret_sts_error THEN
8883: RAISE fnd_api.g_exc_error;
8884: End IF ;
8885:
8886: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8879: , p_is_reservable_lot => v_is_reservable_lot(l_index) --Bug#8713821
8880: );
8881:
8882: IF l_return_status = fnd_api.g_ret_sts_error THEN
8883: RAISE fnd_api.g_exc_error;
8884: End IF ;
8885:
8886: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8887: RAISE fnd_api.g_exc_unexpected_error;
8882: IF l_return_status = fnd_api.g_ret_sts_error THEN
8883: RAISE fnd_api.g_exc_error;
8884: End IF ;
8885:
8886: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8887: RAISE fnd_api.g_exc_unexpected_error;
8888: End IF;
8889: ELSE
8890: print_debug(' Calling add_quantities for qty1='||v_primary_quantity(l_index)||', qty2='||v_secondary_quantity(l_index)||'...');
8883: RAISE fnd_api.g_exc_error;
8884: End IF ;
8885:
8886: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8887: RAISE fnd_api.g_exc_unexpected_error;
8888: End IF;
8889: ELSE
8890: print_debug(' Calling add_quantities for qty1='||v_primary_quantity(l_index)||', qty2='||v_secondary_quantity(l_index)||'...');
8891: --bug 9380420, passing NULL instead of l_is_reservable_sub to p_is_reservable_sub.
8911: , p_expiration_date => v_lot_expiration_date(l_index) -- Bug 7628989
8912: , p_is_reservable_lot => v_is_reservable_lot(l_index) --Bug#8713821
8913: );
8914:
8915: IF l_return_status = fnd_api.g_ret_sts_error THEN
8916: RAISE fnd_api.g_exc_error;
8917: End IF ;
8918:
8919: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8912: , p_is_reservable_lot => v_is_reservable_lot(l_index) --Bug#8713821
8913: );
8914:
8915: IF l_return_status = fnd_api.g_ret_sts_error THEN
8916: RAISE fnd_api.g_exc_error;
8917: End IF ;
8918:
8919: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8920: RAISE fnd_api.g_exc_unexpected_error;
8915: IF l_return_status = fnd_api.g_ret_sts_error THEN
8916: RAISE fnd_api.g_exc_error;
8917: End IF ;
8918:
8919: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8920: RAISE fnd_api.g_exc_unexpected_error;
8921: End IF;
8922: -- invConv changes begin : Closing test on g_is_lot_ctl
8923: END IF;
8916: RAISE fnd_api.g_exc_error;
8917: End IF ;
8918:
8919: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
8920: RAISE fnd_api.g_exc_unexpected_error;
8921: End IF;
8922: -- invConv changes begin : Closing test on g_is_lot_ctl
8923: END IF;
8924: END IF;
8938: print_debug(' '||l_api_name || ' Exited with status = '||l_return_status,9);
8939: END IF;
8940:
8941: EXCEPTION
8942: WHEN fnd_api.g_exc_error THEN
8943: print_debug('build_tree: exc_err='||sqlerrm,9);
8944: x_return_status := fnd_api.g_ret_sts_error;
8945:
8946: WHEN fnd_api.g_exc_unexpected_error THEN
8940:
8941: EXCEPTION
8942: WHEN fnd_api.g_exc_error THEN
8943: print_debug('build_tree: exc_err='||sqlerrm,9);
8944: x_return_status := fnd_api.g_ret_sts_error;
8945:
8946: WHEN fnd_api.g_exc_unexpected_error THEN
8947: print_debug('build_tree: unexp_err='||sqlerrm,9);
8948: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8942: WHEN fnd_api.g_exc_error THEN
8943: print_debug('build_tree: exc_err='||sqlerrm,9);
8944: x_return_status := fnd_api.g_ret_sts_error;
8945:
8946: WHEN fnd_api.g_exc_unexpected_error THEN
8947: print_debug('build_tree: unexp_err='||sqlerrm,9);
8948: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8949:
8950: WHEN OTHERS THEN
8944: x_return_status := fnd_api.g_ret_sts_error;
8945:
8946: WHEN fnd_api.g_exc_unexpected_error THEN
8947: print_debug('build_tree: unexp_err='||sqlerrm,9);
8948: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8949:
8950: WHEN OTHERS THEN
8951: print_debug('build_tree: others='||sqlerrm,9);
8952: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8948: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8949:
8950: WHEN OTHERS THEN
8951: print_debug('build_tree: others='||sqlerrm,9);
8952: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8953:
8954: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8955: THEN
8956: fnd_msg_pub.add_exc_msg
8972: , p_negative_allowed IN BOOLEAN
8973: , p_item_node_index IN INTEGER
8974: ) RETURN BOOLEAN
8975: IS
8976: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
8977: l_child_index INTEGER;
8978: l_no_violation BOOLEAN;
8979: l_node_index INTEGER;
8980: BEGIN
9034: END IF;
9035: RETURN l_no_violation;
9036:
9037: EXCEPTION
9038: WHEN fnd_api.g_exc_error THEN
9039: x_return_status := fnd_api.g_ret_sts_error;
9040:
9041: WHEN fnd_api.g_exc_unexpected_error THEN
9042: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9035: RETURN l_no_violation;
9036:
9037: EXCEPTION
9038: WHEN fnd_api.g_exc_error THEN
9039: x_return_status := fnd_api.g_ret_sts_error;
9040:
9041: WHEN fnd_api.g_exc_unexpected_error THEN
9042: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9043:
9037: EXCEPTION
9038: WHEN fnd_api.g_exc_error THEN
9039: x_return_status := fnd_api.g_ret_sts_error;
9040:
9041: WHEN fnd_api.g_exc_unexpected_error THEN
9042: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9043:
9044: WHEN OTHERS THEN
9045: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9038: WHEN fnd_api.g_exc_error THEN
9039: x_return_status := fnd_api.g_ret_sts_error;
9040:
9041: WHEN fnd_api.g_exc_unexpected_error THEN
9042: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9043:
9044: WHEN OTHERS THEN
9045: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9046:
9041: WHEN fnd_api.g_exc_unexpected_error THEN
9042: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9043:
9044: WHEN OTHERS THEN
9045: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9046:
9047: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9048: THEN
9049: fnd_msg_pub.add_exc_msg
9221: AND nvl(supply_source_type_id,13) = 13 ; -- Bug 4194323
9222: is_lot_control Boolean :=false; -- Bug 4194323
9223: BEGIN
9224:
9225: x_return_status := fnd_api.g_ret_sts_success;
9226: g_rsv_info.DELETE;
9227: g_rsv_counter := 0;
9228: l_root_id := g_demand_info(p_tree_id).root_id;
9229: is_lot_control:=g_rootinfos(l_root_id).is_lot_control;
9263: , p_lpn_id => l_lpn_id
9264: );
9265:
9266: print_debug('... after add_quantities... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9267: IF x_return_status = fnd_api.g_ret_sts_error THEN
9268: RAISE fnd_api.g_exc_error;
9269: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9270: RAISE fnd_api.g_exc_unexpected_error;
9271: END IF;
9264: );
9265:
9266: print_debug('... after add_quantities... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9267: IF x_return_status = fnd_api.g_ret_sts_error THEN
9268: RAISE fnd_api.g_exc_error;
9269: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9270: RAISE fnd_api.g_exc_unexpected_error;
9271: END IF;
9272:
9265:
9266: print_debug('... after add_quantities... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9267: IF x_return_status = fnd_api.g_ret_sts_error THEN
9268: RAISE fnd_api.g_exc_error;
9269: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9270: RAISE fnd_api.g_exc_unexpected_error;
9271: END IF;
9272:
9273: g_rsv_counter := g_rsv_counter + 1;
9266: print_debug('... after add_quantities... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9267: IF x_return_status = fnd_api.g_ret_sts_error THEN
9268: RAISE fnd_api.g_exc_error;
9269: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9270: RAISE fnd_api.g_exc_unexpected_error;
9271: END IF;
9272:
9273: g_rsv_counter := g_rsv_counter + 1;
9274: g_rsv_info(g_rsv_counter).revision := l_revision;
9312: );
9313:
9314: print_debug('... after add_quantities 2... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9315:
9316: IF x_return_status = fnd_api.g_ret_sts_error THEN
9317: RAISE fnd_api.g_exc_error;
9318: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9319: RAISE fnd_api.g_exc_unexpected_error;
9320: END IF;
9313:
9314: print_debug('... after add_quantities 2... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9315:
9316: IF x_return_status = fnd_api.g_ret_sts_error THEN
9317: RAISE fnd_api.g_exc_error;
9318: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9319: RAISE fnd_api.g_exc_unexpected_error;
9320: END IF;
9321:
9314: print_debug('... after add_quantities 2... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9315:
9316: IF x_return_status = fnd_api.g_ret_sts_error THEN
9317: RAISE fnd_api.g_exc_error;
9318: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9319: RAISE fnd_api.g_exc_unexpected_error;
9320: END IF;
9321:
9322: g_rsv_counter := g_rsv_counter + 1;
9315:
9316: IF x_return_status = fnd_api.g_ret_sts_error THEN
9317: RAISE fnd_api.g_exc_error;
9318: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9319: RAISE fnd_api.g_exc_unexpected_error;
9320: END IF;
9321:
9322: g_rsv_counter := g_rsv_counter + 1;
9323: g_rsv_info(g_rsv_counter).revision := l_revision;
9361: );
9362:
9363: print_debug('... after add_quantities 3... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9364:
9365: IF x_return_status = fnd_api.g_ret_sts_error THEN
9366: RAISE fnd_api.g_exc_error;
9367: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9368: RAISE fnd_api.g_exc_unexpected_error;
9369: END IF;
9362:
9363: print_debug('... after add_quantities 3... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9364:
9365: IF x_return_status = fnd_api.g_ret_sts_error THEN
9366: RAISE fnd_api.g_exc_error;
9367: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9368: RAISE fnd_api.g_exc_unexpected_error;
9369: END IF;
9370:
9363: print_debug('... after add_quantities 3... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9364:
9365: IF x_return_status = fnd_api.g_ret_sts_error THEN
9366: RAISE fnd_api.g_exc_error;
9367: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9368: RAISE fnd_api.g_exc_unexpected_error;
9369: END IF;
9370:
9371: g_rsv_counter := g_rsv_counter + 1;
9364:
9365: IF x_return_status = fnd_api.g_ret_sts_error THEN
9366: RAISE fnd_api.g_exc_error;
9367: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9368: RAISE fnd_api.g_exc_unexpected_error;
9369: END IF;
9370:
9371: g_rsv_counter := g_rsv_counter + 1;
9372: g_rsv_info(g_rsv_counter).revision := l_revision;
9416: );
9417:
9418: print_debug('... after add_quantities 4... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9419:
9420: IF x_return_status = fnd_api.g_ret_sts_error THEN
9421: RAISE fnd_api.g_exc_error;
9422: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9423: RAISE fnd_api.g_exc_unexpected_error;
9424: END IF;
9417:
9418: print_debug('... after add_quantities 4... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9419:
9420: IF x_return_status = fnd_api.g_ret_sts_error THEN
9421: RAISE fnd_api.g_exc_error;
9422: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9423: RAISE fnd_api.g_exc_unexpected_error;
9424: END IF;
9425:
9418: print_debug('... after add_quantities 4... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9419:
9420: IF x_return_status = fnd_api.g_ret_sts_error THEN
9421: RAISE fnd_api.g_exc_error;
9422: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9423: RAISE fnd_api.g_exc_unexpected_error;
9424: END IF;
9425:
9426: g_rsv_counter := g_rsv_counter + 1;
9419:
9420: IF x_return_status = fnd_api.g_ret_sts_error THEN
9421: RAISE fnd_api.g_exc_error;
9422: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9423: RAISE fnd_api.g_exc_unexpected_error;
9424: END IF;
9425:
9426: g_rsv_counter := g_rsv_counter + 1;
9427: g_rsv_info(g_rsv_counter).revision := l_revision;
9466: );
9467:
9468: print_debug('... after add_quantities 5... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9469:
9470: IF x_return_status = fnd_api.g_ret_sts_error THEN
9471: RAISE fnd_api.g_exc_error;
9472: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9473: RAISE fnd_api.g_exc_unexpected_error;
9474: END IF;
9467:
9468: print_debug('... after add_quantities 5... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9469:
9470: IF x_return_status = fnd_api.g_ret_sts_error THEN
9471: RAISE fnd_api.g_exc_error;
9472: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9473: RAISE fnd_api.g_exc_unexpected_error;
9474: END IF;
9475:
9468: print_debug('... after add_quantities 5... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9469:
9470: IF x_return_status = fnd_api.g_ret_sts_error THEN
9471: RAISE fnd_api.g_exc_error;
9472: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9473: RAISE fnd_api.g_exc_unexpected_error;
9474: END IF;
9475:
9476: g_rsv_counter := g_rsv_counter + 1;
9469:
9470: IF x_return_status = fnd_api.g_ret_sts_error THEN
9471: RAISE fnd_api.g_exc_error;
9472: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9473: RAISE fnd_api.g_exc_unexpected_error;
9474: END IF;
9475:
9476: g_rsv_counter := g_rsv_counter + 1;
9477: g_rsv_info(g_rsv_counter).revision := l_revision;
9516: );
9517:
9518: print_debug('... after add_quantities 6... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9519:
9520: IF x_return_status = fnd_api.g_ret_sts_error THEN
9521: RAISE fnd_api.g_exc_error;
9522: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9523: RAISE fnd_api.g_exc_unexpected_error;
9524: END IF;
9517:
9518: print_debug('... after add_quantities 6... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9519:
9520: IF x_return_status = fnd_api.g_ret_sts_error THEN
9521: RAISE fnd_api.g_exc_error;
9522: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9523: RAISE fnd_api.g_exc_unexpected_error;
9524: END IF;
9525:
9518: print_debug('... after add_quantities 6... x_return_status='||x_return_status||', qty='||l_quantity||', qty2='||l_quantity2);
9519:
9520: IF x_return_status = fnd_api.g_ret_sts_error THEN
9521: RAISE fnd_api.g_exc_error;
9522: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9523: RAISE fnd_api.g_exc_unexpected_error;
9524: END IF;
9525:
9526: g_rsv_counter := g_rsv_counter + 1;
9519:
9520: IF x_return_status = fnd_api.g_ret_sts_error THEN
9521: RAISE fnd_api.g_exc_error;
9522: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9523: RAISE fnd_api.g_exc_unexpected_error;
9524: END IF;
9525:
9526: g_rsv_counter := g_rsv_counter + 1;
9527: g_rsv_info(g_rsv_counter).revision := l_revision;
9538: END IF;
9539: print_debug('... ending add_demand_qty');
9540:
9541: EXCEPTION
9542: WHEN fnd_api.g_exc_error THEN
9543: x_return_status := fnd_api.g_ret_sts_error;
9544:
9545: WHEN fnd_api.g_exc_unexpected_error THEN
9546: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9539: print_debug('... ending add_demand_qty');
9540:
9541: EXCEPTION
9542: WHEN fnd_api.g_exc_error THEN
9543: x_return_status := fnd_api.g_ret_sts_error;
9544:
9545: WHEN fnd_api.g_exc_unexpected_error THEN
9546: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9547:
9541: EXCEPTION
9542: WHEN fnd_api.g_exc_error THEN
9543: x_return_status := fnd_api.g_ret_sts_error;
9544:
9545: WHEN fnd_api.g_exc_unexpected_error THEN
9546: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9547:
9548: WHEN OTHERS THEN
9549: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9542: WHEN fnd_api.g_exc_error THEN
9543: x_return_status := fnd_api.g_ret_sts_error;
9544:
9545: WHEN fnd_api.g_exc_unexpected_error THEN
9546: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9547:
9548: WHEN OTHERS THEN
9549: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9550: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9545: WHEN fnd_api.g_exc_unexpected_error THEN
9546: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9547:
9548: WHEN OTHERS THEN
9549: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9550: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9551: THEN
9552: fnd_msg_pub.add_exc_msg
9553: ( g_pkg_name
9570:
9571: BEGIN
9572: print_debug('... entering subtract_demand_qty');
9573:
9574: x_return_status := fnd_api.g_ret_sts_success;
9575:
9576: l_root_id := g_demand_info(p_tree_id).root_id;
9577:
9578: FOR i in 1..g_rsv_counter LOOP
9593: , p_cost_group_id => NULL
9594: , p_lpn_id => g_rsv_info(i).lpn_id
9595: );
9596:
9597: IF x_return_status = fnd_api.g_ret_sts_error THEN
9598: RAISE fnd_api.g_exc_error;
9599: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9600: RAISE fnd_api.g_exc_unexpected_error;
9601: END IF;
9594: , p_lpn_id => g_rsv_info(i).lpn_id
9595: );
9596:
9597: IF x_return_status = fnd_api.g_ret_sts_error THEN
9598: RAISE fnd_api.g_exc_error;
9599: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9600: RAISE fnd_api.g_exc_unexpected_error;
9601: END IF;
9602:
9595: );
9596:
9597: IF x_return_status = fnd_api.g_ret_sts_error THEN
9598: RAISE fnd_api.g_exc_error;
9599: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9600: RAISE fnd_api.g_exc_unexpected_error;
9601: END IF;
9602:
9603: END LOOP;
9596:
9597: IF x_return_status = fnd_api.g_ret_sts_error THEN
9598: RAISE fnd_api.g_exc_error;
9599: ELSIF x_return_status = fnd_api.g_ret_sts_unexp_error THEN
9600: RAISE fnd_api.g_exc_unexpected_error;
9601: END IF;
9602:
9603: END LOOP;
9604:
9602:
9603: END LOOP;
9604:
9605: EXCEPTION
9606: WHEN fnd_api.g_exc_error THEN
9607: x_return_status := fnd_api.g_ret_sts_error;
9608:
9609: WHEN fnd_api.g_exc_unexpected_error THEN
9610: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9603: END LOOP;
9604:
9605: EXCEPTION
9606: WHEN fnd_api.g_exc_error THEN
9607: x_return_status := fnd_api.g_ret_sts_error;
9608:
9609: WHEN fnd_api.g_exc_unexpected_error THEN
9610: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9611:
9605: EXCEPTION
9606: WHEN fnd_api.g_exc_error THEN
9607: x_return_status := fnd_api.g_ret_sts_error;
9608:
9609: WHEN fnd_api.g_exc_unexpected_error THEN
9610: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9611:
9612: WHEN OTHERS THEN
9613: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9606: WHEN fnd_api.g_exc_error THEN
9607: x_return_status := fnd_api.g_ret_sts_error;
9608:
9609: WHEN fnd_api.g_exc_unexpected_error THEN
9610: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9611:
9612: WHEN OTHERS THEN
9613: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9614: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9609: WHEN fnd_api.g_exc_unexpected_error THEN
9610: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9611:
9612: WHEN OTHERS THEN
9613: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9614: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9615: THEN
9616: fnd_msg_pub.add_exc_msg
9617: ( g_pkg_name
9802: , p_transfer_locator_id IN NUMBER
9803: ) IS
9804: l_api_version_number CONSTANT NUMBER := 1.0;
9805: l_api_name CONSTANT VARCHAR2(30) := 'QUERY_TREE';
9806: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
9807: l_node_index INTEGER;
9808: l_atr NUMBER;
9809: l_att NUMBER;
9810: l_satr NUMBER;
9835: print_debug(l_api_name || ' Entered',9);
9836: END IF;
9837:
9838: -- Standard call to check for call compatibility
9839: IF NOT fnd_api.compatible_api_call(l_api_version_number
9840: , p_api_version_number
9841: , l_api_name
9842: , G_PKG_NAME
9843: ) THEN
9840: , p_api_version_number
9841: , l_api_name
9842: , G_PKG_NAME
9843: ) THEN
9844: RAISE fnd_api.g_exc_unexpected_error;
9845: END IF;
9846:
9847: -- Initialize message list.
9848: IF fnd_api.to_boolean(p_init_msg_lst) THEN
9844: RAISE fnd_api.g_exc_unexpected_error;
9845: END IF;
9846:
9847: -- Initialize message list.
9848: IF fnd_api.to_boolean(p_init_msg_lst) THEN
9849: fnd_msg_pub.initialize;
9850: END IF;
9851:
9852: l_root_id := g_demand_info(p_tree_id).root_id;
9854: IF is_tree_valid(l_root_id) = FALSE THEN
9855: fnd_message.set_name('INV', 'INV-Qtyroot not found');
9856: fnd_message.set_token('ROUTINE', 'Query_Tree');
9857: fnd_msg_pub.ADD;
9858: RAISE fnd_api.g_exc_error;
9859: END IF;
9860:
9861: print_debug('>>> In query_tree : mode='||g_demand_info(p_tree_id).tree_mode||', tree_id='||p_tree_id
9862: ||'..for item='||g_rootinfos(l_root_id).inventory_item_id||' rev='||p_revision||' lot='||p_lot_number
9871: x_return_status => l_return_status
9872: , p_tree_id => g_rsv_tree_id
9873: );
9874:
9875: IF l_return_status = fnd_api.g_ret_sts_error THEN
9876: RAISE fnd_api.g_exc_error;
9877: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9878: RAISE fnd_api.g_exc_unexpected_error;
9879: END IF;
9872: , p_tree_id => g_rsv_tree_id
9873: );
9874:
9875: IF l_return_status = fnd_api.g_ret_sts_error THEN
9876: RAISE fnd_api.g_exc_error;
9877: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9878: RAISE fnd_api.g_exc_unexpected_error;
9879: END IF;
9880: g_rsv_tree_id := 0;
9873: );
9874:
9875: IF l_return_status = fnd_api.g_ret_sts_error THEN
9876: RAISE fnd_api.g_exc_error;
9877: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9878: RAISE fnd_api.g_exc_unexpected_error;
9879: END IF;
9880: g_rsv_tree_id := 0;
9881: g_rsv_counter := 0;
9874:
9875: IF l_return_status = fnd_api.g_ret_sts_error THEN
9876: RAISE fnd_api.g_exc_error;
9877: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9878: RAISE fnd_api.g_exc_unexpected_error;
9879: END IF;
9880: g_rsv_tree_id := 0;
9881: g_rsv_counter := 0;
9882: g_rsv_info.DELETE;
9892: x_return_status => l_return_status
9893: , p_tree_id => g_rsv_tree_id
9894: );
9895:
9896: IF l_return_status = fnd_api.g_ret_sts_error THEN
9897: RAISE fnd_api.g_exc_error;
9898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9899: RAISE fnd_api.g_exc_unexpected_error;
9900: END IF;
9893: , p_tree_id => g_rsv_tree_id
9894: );
9895:
9896: IF l_return_status = fnd_api.g_ret_sts_error THEN
9897: RAISE fnd_api.g_exc_error;
9898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9899: RAISE fnd_api.g_exc_unexpected_error;
9900: END IF;
9901: g_rsv_tree_id := 0;
9894: );
9895:
9896: IF l_return_status = fnd_api.g_ret_sts_error THEN
9897: RAISE fnd_api.g_exc_error;
9898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9899: RAISE fnd_api.g_exc_unexpected_error;
9900: END IF;
9901: g_rsv_tree_id := 0;
9902: g_rsv_counter := 0;
9895:
9896: IF l_return_status = fnd_api.g_ret_sts_error THEN
9897: RAISE fnd_api.g_exc_error;
9898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9899: RAISE fnd_api.g_exc_unexpected_error;
9900: END IF;
9901: g_rsv_tree_id := 0;
9902: g_rsv_counter := 0;
9903: g_rsv_info.DELETE;
9909: x_return_status => l_return_status
9910: , p_tree_id => p_tree_id
9911: );
9912:
9913: IF l_return_status = fnd_api.g_ret_sts_error THEN
9914: RAISE fnd_api.g_exc_error;
9915: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9916: RAISE fnd_api.g_exc_unexpected_error;
9917: END IF;
9910: , p_tree_id => p_tree_id
9911: );
9912:
9913: IF l_return_status = fnd_api.g_ret_sts_error THEN
9914: RAISE fnd_api.g_exc_error;
9915: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9916: RAISE fnd_api.g_exc_unexpected_error;
9917: END IF;
9918: g_rsv_tree_id := p_tree_id;
9911: );
9912:
9913: IF l_return_status = fnd_api.g_ret_sts_error THEN
9914: RAISE fnd_api.g_exc_error;
9915: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9916: RAISE fnd_api.g_exc_unexpected_error;
9917: END IF;
9918: g_rsv_tree_id := p_tree_id;
9919: ELSE
9912:
9913: IF l_return_status = fnd_api.g_ret_sts_error THEN
9914: RAISE fnd_api.g_exc_error;
9915: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9916: RAISE fnd_api.g_exc_unexpected_error;
9917: END IF;
9918: g_rsv_tree_id := p_tree_id;
9919: ELSE
9920: print_debug(' Transaction Mode, rsv_tree_id='||g_rsv_tree_id, 12);
9934: , p_lpn_id => p_lpn_id
9935: , p_cost_group_id => p_cost_group_id
9936: );
9937:
9938: IF l_return_status = fnd_api.g_ret_sts_error THEN
9939: RAISE fnd_api.g_exc_error;
9940: End IF ;
9941:
9942: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9935: , p_cost_group_id => p_cost_group_id
9936: );
9937:
9938: IF l_return_status = fnd_api.g_ret_sts_error THEN
9939: RAISE fnd_api.g_exc_error;
9940: End IF ;
9941:
9942: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9943: RAISE fnd_api.g_exc_unexpected_error;
9938: IF l_return_status = fnd_api.g_ret_sts_error THEN
9939: RAISE fnd_api.g_exc_error;
9940: End IF ;
9941:
9942: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9943: RAISE fnd_api.g_exc_unexpected_error;
9944: End IF;
9945:
9946: IF l_found = FALSE THEN
9939: RAISE fnd_api.g_exc_error;
9940: End IF ;
9941:
9942: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
9943: RAISE fnd_api.g_exc_unexpected_error;
9944: End IF;
9945:
9946: IF l_found = FALSE THEN
9947: fnd_message.set_name('INV','INV-Cannot find node');
9946: IF l_found = FALSE THEN
9947: fnd_message.set_name('INV','INV-Cannot find node');
9948: fnd_message.set_token('ROUTINE', 'Query_Tree');
9949: fnd_msg_pub.ADD;
9950: RAISE fnd_api.g_exc_unexpected_error;
9951: End IF;
9952:
9953: x_qoh := g_nodes(l_node_index).qoh;
9954: x_rqoh := g_nodes(l_node_index).rqoh;
10025: , p_root_id => l_root_id
10026: , x_is_reservable => l_is_reservable_sub
10027: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
10028:
10029: IF l_return_status = fnd_api.g_ret_sts_error THEN
10030: RAISE fnd_api.g_exc_error;
10031: End IF ;
10032:
10033: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10026: , x_is_reservable => l_is_reservable_sub
10027: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
10028:
10029: IF l_return_status = fnd_api.g_ret_sts_error THEN
10030: RAISE fnd_api.g_exc_error;
10031: End IF ;
10032:
10033: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10034: RAISE fnd_api.g_exc_unexpected_error;
10029: IF l_return_status = fnd_api.g_ret_sts_error THEN
10030: RAISE fnd_api.g_exc_error;
10031: End IF ;
10032:
10033: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10034: RAISE fnd_api.g_exc_unexpected_error;
10035: End IF;
10036:
10037: END IF; -- l_is_reservable_sub
10030: RAISE fnd_api.g_exc_error;
10031: End IF ;
10032:
10033: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10034: RAISE fnd_api.g_exc_unexpected_error;
10035: End IF;
10036:
10037: END IF; -- l_is_reservable_sub
10038: */
10039:
10040: --bug 16428282 start
10041: l_return_org_value := INV_CACHE.set_org_rec(g_rootinfos(l_root_id).organization_id);
10042: IF NOT l_return_org_value THEN
10043: RAISE fnd_api.g_exc_unexpected_error;
10044: END IF;
10045: l_wms_enabled := INV_CACHE.org_rec.WMS_ENABLED_FLAG;
10046:
10047: --l_allocate_lot_flag := INV_CACHE.org_rec.ALLOCATE_LOT_FLAG;
10058:
10059: --bug 13961830 start
10060: l_return_value := INV_CACHE.set_item_rec(g_rootinfos(l_root_id).organization_id, g_rootinfos(l_root_id).inventory_item_id);
10061: IF NOT l_return_value THEN
10062: RAISE fnd_api.g_exc_unexpected_error;
10063: END IF;
10064: l_lot_divisible_flag := INV_CACHE.item_rec.LOT_DIVISIBLE_FLAG;
10065:
10066: IF NVL(l_lot_divisible_flag,'Y') = 'N' THEN
10091: , p_root_id => l_root_id
10092: , x_is_reservable => l_is_reservable_transfer_sub
10093: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
10094:
10095: IF l_return_status = fnd_api.g_ret_sts_error THEN
10096: RAISE fnd_api.g_exc_error;
10097: End IF ;
10098:
10099: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10092: , x_is_reservable => l_is_reservable_transfer_sub
10093: , p_lpn_id => p_lpn_id); -- Onhand Material Status Support
10094:
10095: IF l_return_status = fnd_api.g_ret_sts_error THEN
10096: RAISE fnd_api.g_exc_error;
10097: End IF ;
10098:
10099: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10100: RAISE fnd_api.g_exc_unexpected_error;
10095: IF l_return_status = fnd_api.g_ret_sts_error THEN
10096: RAISE fnd_api.g_exc_error;
10097: End IF ;
10098:
10099: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10100: RAISE fnd_api.g_exc_unexpected_error;
10101: End IF;
10102:
10103: IF l_is_reservable_transfer_sub = TRUE THEN
10096: RAISE fnd_api.g_exc_error;
10097: End IF ;
10098:
10099: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10100: RAISE fnd_api.g_exc_unexpected_error;
10101: End IF;
10102:
10103: IF l_is_reservable_transfer_sub = TRUE THEN
10104: l_debug_line := l_debug_line||' Xfr Sub '||p_transfer_subinventory_code||' is reservable';
10480: print_debug(' ',9);
10481: END IF;
10482: EXCEPTION
10483:
10484: WHEN fnd_api.g_exc_error THEN
10485: print_debug('QT: ending... g_exc_error'||SQLERRM,9);
10486: x_return_status := fnd_api.g_ret_sts_error;
10487:
10488: -- Get message count and data
10482: EXCEPTION
10483:
10484: WHEN fnd_api.g_exc_error THEN
10485: print_debug('QT: ending... g_exc_error'||SQLERRM,9);
10486: x_return_status := fnd_api.g_ret_sts_error;
10487:
10488: -- Get message count and data
10489: fnd_msg_pub.count_and_get
10490: ( p_count => x_msg_count
10490: ( p_count => x_msg_count
10491: , p_data => x_msg_data
10492: );
10493:
10494: WHEN fnd_api.g_exc_unexpected_error THEN
10495: print_debug('QT: ending... g_exc_unexpected_error '||SQLERRM,9);
10496: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10497:
10498: -- Get message count and data
10492: );
10493:
10494: WHEN fnd_api.g_exc_unexpected_error THEN
10495: print_debug('QT: ending... g_exc_unexpected_error '||SQLERRM,9);
10496: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10497:
10498: -- Get message count and data
10499: fnd_msg_pub.count_and_get
10500: ( p_count => x_msg_count
10502: );
10503:
10504: WHEN OTHERS THEN
10505: print_debug('QT: ending... OTHERS.'||SQLERRM,9);
10506: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10507:
10508: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
10509: THEN
10510: fnd_msg_pub.add_exc_msg
10658:
10659: print_debug(' End of query_tree2');
10660:
10661: EXCEPTION
10662: WHEN fnd_api.g_exc_error THEN
10663: x_return_status := fnd_api.g_ret_sts_error;
10664: -- Get message count and data
10665: fnd_msg_pub.count_and_get
10666: ( p_count => x_msg_count
10659: print_debug(' End of query_tree2');
10660:
10661: EXCEPTION
10662: WHEN fnd_api.g_exc_error THEN
10663: x_return_status := fnd_api.g_ret_sts_error;
10664: -- Get message count and data
10665: fnd_msg_pub.count_and_get
10666: ( p_count => x_msg_count
10667: , p_data => x_msg_data
10665: fnd_msg_pub.count_and_get
10666: ( p_count => x_msg_count
10667: , p_data => x_msg_data
10668: );
10669: WHEN fnd_api.g_exc_unexpected_error THEN
10670: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10671:
10672: -- Get message count and data
10673: fnd_msg_pub.count_and_get
10666: ( p_count => x_msg_count
10667: , p_data => x_msg_data
10668: );
10669: WHEN fnd_api.g_exc_unexpected_error THEN
10670: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10671:
10672: -- Get message count and data
10673: fnd_msg_pub.count_and_get
10674: ( p_count => x_msg_count
10674: ( p_count => x_msg_count
10675: , p_data => x_msg_data
10676: );
10677: WHEN OTHERS THEN
10678: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10679: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
10680: THEN
10681: fnd_msg_pub.add_exc_msg
10682: ( g_pkg_name
10815:
10816: ) IS
10817: l_api_version_number CONSTANT NUMBER := 1.0;
10818: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TREE';
10819: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
10820: l_rootinfo_index INTEGER;
10821: l_demand_source_type_id NUMBER;
10822: l_demand_source_header_id NUMBER;
10823: l_demand_source_line_id NUMBER;
10885: print_debug(' >>>>>>>>> In create_tree. mode='||p_tree_mode||', grade='||p_grade_code||', rev_ctl=FALSE. mat_stat='||INV_QUANTITY_TREE_PVT.g_is_mat_status_used);
10886: end if;
10887:
10888: -- Standard call to check for call compatibility
10889: IF NOT fnd_api.compatible_api_call(l_api_version_number
10890: , p_api_version_number
10891: , l_api_name
10892: , G_PKG_NAME
10893: ) THEN
10890: , p_api_version_number
10891: , l_api_name
10892: , G_PKG_NAME
10893: ) THEN
10894: RAISE fnd_api.g_exc_unexpected_error;
10895: END IF;
10896:
10897: -- Initialize message list.
10898: IF fnd_api.to_boolean(p_init_msg_lst) THEN
10894: RAISE fnd_api.g_exc_unexpected_error;
10895: END IF;
10896:
10897: -- Initialize message list.
10898: IF fnd_api.to_boolean(p_init_msg_lst) THEN
10899: fnd_msg_pub.initialize;
10900: END IF;
10901:
10902: g_is_pickrelease := nvl(inv_cache.is_pickrelease,FALSE);
10908: IF p_tree_mode IN (g_transaction_mode, g_loose_only_mode) THEN
10909: IF p_demand_source_type_id IS NULL THEN
10910: fnd_message.set_name('INV', 'INV-MISSING DEMAND SOURCE TYPE');
10911: fnd_msg_pub.ADD;
10912: RAISE fnd_api.g_exc_error;
10913: END IF;
10914:
10915: IF p_demand_source_header_id IS NULL THEN
10916: IF p_demand_source_name IS NULL THEN
10915: IF p_demand_source_header_id IS NULL THEN
10916: IF p_demand_source_name IS NULL THEN
10917: fnd_message.set_name('INV', 'INV-MISSING DEMAND SRC HEADER');
10918: fnd_msg_pub.ADD;
10919: RAISE fnd_api.g_exc_error;
10920: END IF;
10921: END IF;
10922:
10923: IF p_demand_source_header_id IS NULL
10923: IF p_demand_source_header_id IS NULL
10924: AND p_demand_source_line_id IS NOT NULL THEN
10925: fnd_message.set_name('INV', 'INV-MISSING DEMAND SRC HEADER');
10926: fnd_msg_pub.ADD;
10927: RAISE fnd_api.g_exc_error;
10928: END IF;
10929: END IF;
10930:
10931: -- Material Status : Need to know whether the item is lot_control : MANDATORY.
10946: FND_MESSAGE.SET_NAME('INV', 'ITEM_NOTFOUND');
10947: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
10948: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
10949: FND_MSG_PUB.ADD;
10950: RAISE FND_API.G_EXC_ERROR;
10951: END IF;
10952: -- invConv comment : g_is_mat_status_used = 1 == Material Status is USED
10953: IF (inv_quantity_tree_pvt.g_is_mat_status_used = 1 AND l_lot_control = 2)
10954: THEN
10961:
10962: IF (p_exclusive = g_exclusive) THEN
10963: lock_tree(
10964: p_api_version_number => 1.0
10965: , p_init_msg_lst => fnd_api.g_false
10966: , x_return_status => l_return_status
10967: , x_msg_count => x_msg_count
10968: , x_msg_data => x_msg_data
10969: , p_organization_id => p_organization_id
10969: , p_organization_id => p_organization_id
10970: , p_inventory_item_id => p_inventory_item_id
10971: );
10972:
10973: IF l_return_status = fnd_api.g_ret_sts_error THEN
10974: RAISE fnd_api.g_exc_error;
10975: END IF ;
10976:
10977: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10970: , p_inventory_item_id => p_inventory_item_id
10971: );
10972:
10973: IF l_return_status = fnd_api.g_ret_sts_error THEN
10974: RAISE fnd_api.g_exc_error;
10975: END IF ;
10976:
10977: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10978: RAISE fnd_api.g_exc_unexpected_error;
10973: IF l_return_status = fnd_api.g_ret_sts_error THEN
10974: RAISE fnd_api.g_exc_error;
10975: END IF ;
10976:
10977: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10978: RAISE fnd_api.g_exc_unexpected_error;
10979: END IF;
10980: END IF;
10981:
10974: RAISE fnd_api.g_exc_error;
10975: END IF ;
10976:
10977: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
10978: RAISE fnd_api.g_exc_unexpected_error;
10979: END IF;
10980: END IF;
10981:
10982: IF p_lot_expiration_date IS NOT NULL THEN
11004: , p_pick_release => p_pick_release
11005: -- odab temp removed , p_grade_code => p_grade_code
11006: );
11007:
11008: IF l_return_status = fnd_api.g_ret_sts_error THEN
11009: RAISE fnd_api.g_exc_error;
11010: End IF ;
11011:
11012: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11005: -- odab temp removed , p_grade_code => p_grade_code
11006: );
11007:
11008: IF l_return_status = fnd_api.g_ret_sts_error THEN
11009: RAISE fnd_api.g_exc_error;
11010: End IF ;
11011:
11012: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11013: RAISE fnd_api.g_exc_unexpected_error;
11008: IF l_return_status = fnd_api.g_ret_sts_error THEN
11009: RAISE fnd_api.g_exc_error;
11010: End IF ;
11011:
11012: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11013: RAISE fnd_api.g_exc_unexpected_error;
11014: End IF;
11015: -- create the tree if the rootinfo can not be found
11016: IF (l_rootinfo_index = 0) THEN
11009: RAISE fnd_api.g_exc_error;
11010: End IF ;
11011:
11012: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11013: RAISE fnd_api.g_exc_unexpected_error;
11014: End IF;
11015: -- create the tree if the rootinfo can not be found
11016: IF (l_rootinfo_index = 0) THEN
11017: new_tree(
11034: , p_pick_release => p_pick_release
11035: , p_grade_code => p_grade_code
11036: , x_tree_id => l_rootinfo_index
11037: );
11038: IF l_return_status = fnd_api.g_ret_sts_error THEN
11039: RAISE fnd_api.g_exc_error;
11040: END IF ;
11041:
11042: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11035: , p_grade_code => p_grade_code
11036: , x_tree_id => l_rootinfo_index
11037: );
11038: IF l_return_status = fnd_api.g_ret_sts_error THEN
11039: RAISE fnd_api.g_exc_error;
11040: END IF ;
11041:
11042: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11043: RAISE fnd_api.g_exc_unexpected_error;
11038: IF l_return_status = fnd_api.g_ret_sts_error THEN
11039: RAISE fnd_api.g_exc_error;
11040: END IF ;
11041:
11042: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11043: RAISE fnd_api.g_exc_unexpected_error;
11044: END IF;
11045:
11046: END IF;
11039: RAISE fnd_api.g_exc_error;
11040: END IF ;
11041:
11042: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11043: RAISE fnd_api.g_exc_unexpected_error;
11044: END IF;
11045:
11046: END IF;
11047:
11074: g_rootinfos(l_rootinfo_index).inventory_item_id := p_inventory_item_id;
11075: g_rootinfos(l_rootinfo_index).organization_id := p_organization_id;
11076: END IF;
11077: build_tree(l_return_status, l_rootinfo_index);
11078: IF (l_return_status = fnd_api.g_ret_sts_error OR l_return_status = fnd_api.g_ret_sts_unexp_error) THEN
11079: -- if build_tree failed
11080: -- invalidate the rootinfo record and the index to the record
11081: invalidate_tree(l_rootinfo_index);
11082: l_tree_id := 0;
11081: invalidate_tree(l_rootinfo_index);
11082: l_tree_id := 0;
11083: END IF;
11084:
11085: IF l_return_status = fnd_api.g_ret_sts_error THEN
11086: RAISE fnd_api.g_exc_error;
11087: End IF ;
11088:
11089: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11082: l_tree_id := 0;
11083: END IF;
11084:
11085: IF l_return_status = fnd_api.g_ret_sts_error THEN
11086: RAISE fnd_api.g_exc_error;
11087: End IF ;
11088:
11089: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11090: RAISE fnd_api.g_exc_unexpected_error;
11085: IF l_return_status = fnd_api.g_ret_sts_error THEN
11086: RAISE fnd_api.g_exc_error;
11087: End IF ;
11088:
11089: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11090: RAISE fnd_api.g_exc_unexpected_error;
11091: End IF;
11092:
11093: END IF;
11086: RAISE fnd_api.g_exc_error;
11087: End IF ;
11088:
11089: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11090: RAISE fnd_api.g_exc_unexpected_error;
11091: End IF;
11092:
11093: END IF;
11094:
11102: END IF;
11103:
11104: EXCEPTION
11105:
11106: WHEN fnd_api.g_exc_error THEN
11107: print_debug(' CreateTree ending with g_exc_error.'||SQLERRM,9);
11108: x_return_status := fnd_api.g_ret_sts_error;
11109:
11110: -- Get message count and data
11104: EXCEPTION
11105:
11106: WHEN fnd_api.g_exc_error THEN
11107: print_debug(' CreateTree ending with g_exc_error.'||SQLERRM,9);
11108: x_return_status := fnd_api.g_ret_sts_error;
11109:
11110: -- Get message count and data
11111: fnd_msg_pub.count_and_get
11112: ( p_count => x_msg_count
11112: ( p_count => x_msg_count
11113: , p_data => x_msg_data
11114: );
11115:
11116: WHEN fnd_api.g_exc_unexpected_error THEN
11117: print_debug(' CreateTree ending with g_exc_unexpected_error.'||SQLERRM,9);
11118: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11119:
11120: -- Get message count and data
11114: );
11115:
11116: WHEN fnd_api.g_exc_unexpected_error THEN
11117: print_debug(' CreateTree ending with g_exc_unexpected_error.'||SQLERRM,9);
11118: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11119:
11120: -- Get message count and data
11121: fnd_msg_pub.count_and_get
11122: ( p_count => x_msg_count
11124: );
11125:
11126: WHEN OTHERS THEN
11127: print_debug(' CreateTree ending with OTHERS.'||SQLERRM,9);
11128: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11129:
11130: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11131: THEN
11132: fnd_msg_pub.add_exc_msg
11368: );
11369: --END LOOP;
11370:
11371: -- return status
11372: x_return_status := fnd_api.g_ret_sts_success;
11373: IF g_debug = 1 THEN
11374: print_debug(l_api_name || ' Exited with status = '||x_return_status,9);
11375: print_debug(' ',9);
11376: END IF;
11375: print_debug(' ',9);
11376: END IF;
11377: EXCEPTION
11378: WHEN OTHERS THEN
11379: x_return_status := fnd_api.g_ret_sts_unexp_error;
11380: if g_debug = 1 then
11381: print_debug('prepare_rsv_qty error msg: '||SQLERRM,9);
11382: end if;
11383: END prepare_reservation_quantities;
11448: , p_lpn_id IN NUMBER
11449: ) IS
11450:
11451: l_found BOOLEAN;
11452: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
11453: l_node_index NUMBER;
11454: l_tqoh NUMBER;
11455: l_stqoh NUMBER;
11456: l_loop_index NUMBER;
11484: , p_cost_group_id => p_cost_group_id
11485: , p_lpn_id => p_lpn_id
11486: );
11487:
11488: IF l_return_status = fnd_api.g_ret_sts_error THEN
11489: RAISE fnd_api.g_exc_error;
11490: End IF ;
11491:
11492:
11485: , p_lpn_id => p_lpn_id
11486: );
11487:
11488: IF l_return_status = fnd_api.g_ret_sts_error THEN
11489: RAISE fnd_api.g_exc_error;
11490: End IF ;
11491:
11492:
11493: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11489: RAISE fnd_api.g_exc_error;
11490: End IF ;
11491:
11492:
11493: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11494: RAISE fnd_api.g_exc_unexpected_error;
11495: End IF;
11496:
11497:
11490: End IF ;
11491:
11492:
11493: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11494: RAISE fnd_api.g_exc_unexpected_error;
11495: End IF;
11496:
11497:
11498: IF l_found = FALSE THEN
11498: IF l_found = FALSE THEN
11499: fnd_message.set_name('INV','INV-Cannot find node');
11500: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
11501: fnd_msg_pub.ADD;
11502: RAISE fnd_api.g_exc_unexpected_error;
11503: End IF;
11504:
11505: print_debug('get_total_qoh: node found... node_index='||l_node_index||' level='||g_nodes(l_node_index).node_level||'<>'||g_item_level);
11506:
11583: END IF;
11584:
11585: EXCEPTION
11586:
11587: WHEN fnd_api.g_exc_error THEN
11588: x_return_status := fnd_api.g_ret_sts_error;
11589:
11590: -- Get message count and data
11591: fnd_msg_pub.count_and_get
11584:
11585: EXCEPTION
11586:
11587: WHEN fnd_api.g_exc_error THEN
11588: x_return_status := fnd_api.g_ret_sts_error;
11589:
11590: -- Get message count and data
11591: fnd_msg_pub.count_and_get
11592: ( p_count => x_msg_count
11591: fnd_msg_pub.count_and_get
11592: ( p_count => x_msg_count
11593: , p_data => x_msg_data);
11594:
11595: WHEN fnd_api.g_exc_unexpected_error THEN
11596: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11597:
11598: -- Get message count and data
11599: fnd_msg_pub.count_and_get
11592: ( p_count => x_msg_count
11593: , p_data => x_msg_data);
11594:
11595: WHEN fnd_api.g_exc_unexpected_error THEN
11596: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11597:
11598: -- Get message count and data
11599: fnd_msg_pub.count_and_get
11600: ( p_count => x_msg_count
11600: ( p_count => x_msg_count
11601: , p_data => x_msg_data);
11602:
11603: WHEN OTHERS THEN
11604: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11605:
11606:
11607: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11608: THEN
11638: -- x_no_violation true if no violation, false otherwise
11639: --
11640: PROCEDURE do_check_pvt
11641: ( p_api_version_number IN NUMBER
11642: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
11643: , x_return_status OUT NOCOPY VARCHAR2
11644: , x_msg_count OUT NOCOPY NUMBER
11645: , x_msg_data OUT NOCOPY VARCHAR2
11646: , p_tree_id IN INTEGER
11647: , x_no_violation OUT NOCOPY BOOLEAN
11648: ) IS
11649: l_api_version_number CONSTANT NUMBER := 1.0;
11650: l_api_name CONSTANT VARCHAR2(30) := 'Do_Check_Pvt';
11651: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
11652: l_no_violation BOOLEAN;
11653: BEGIN
11654: print_debug('Entering do_check_pvt. tree_id='||p_tree_id);
11655:
11653: BEGIN
11654: print_debug('Entering do_check_pvt. tree_id='||p_tree_id);
11655:
11656: -- Standard call to check for call compatibility
11657: IF NOT fnd_api.compatible_api_call(l_api_version_number
11658: , p_api_version_number
11659: , l_api_name
11660: , G_PKG_NAME
11661: ) THEN
11658: , p_api_version_number
11659: , l_api_name
11660: , G_PKG_NAME
11661: ) THEN
11662: RAISE fnd_api.g_exc_unexpected_error;
11663: END IF;
11664:
11665: -- Initialize message list.
11666: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11662: RAISE fnd_api.g_exc_unexpected_error;
11663: END IF;
11664:
11665: -- Initialize message list.
11666: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11667: fnd_msg_pub.initialize;
11668: END IF;
11669:
11670: -- check if tree id is valid
11671: IF is_tree_valid(p_tree_id) = FALSE THEN
11672: fnd_message.set_name('INV', 'INV-Qtyroot not found');
11673: fnd_message.set_token('ROUTINE', 'Do_Check');
11674: fnd_msg_pub.ADD;
11675: RAISE fnd_api.g_exc_unexpected_error;
11676: END IF;
11677:
11678:
11679: zero_tree_node(l_return_status, g_rootinfos(p_tree_id).item_node_index);
11676: END IF;
11677:
11678:
11679: zero_tree_node(l_return_status, g_rootinfos(p_tree_id).item_node_index);
11680: IF l_return_status = fnd_api.g_ret_sts_error THEN
11681: RAISE fnd_api.g_exc_error;
11682: End IF ;
11683:
11684: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11677:
11678:
11679: zero_tree_node(l_return_status, g_rootinfos(p_tree_id).item_node_index);
11680: IF l_return_status = fnd_api.g_ret_sts_error THEN
11681: RAISE fnd_api.g_exc_error;
11682: End IF ;
11683:
11684: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11685: RAISE fnd_api.g_exc_unexpected_error;
11680: IF l_return_status = fnd_api.g_ret_sts_error THEN
11681: RAISE fnd_api.g_exc_error;
11682: End IF ;
11683:
11684: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11685: RAISE fnd_api.g_exc_unexpected_error;
11686: End IF;
11687:
11688: --lock the tree - do_check must acquire tree lock before building tree
11681: RAISE fnd_api.g_exc_error;
11682: End IF ;
11683:
11684: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11685: RAISE fnd_api.g_exc_unexpected_error;
11686: End IF;
11687:
11688: --lock the tree - do_check must acquire tree lock before building tree
11689: print_debug('in do_check_pvt, calling lock_tree ');
11688: --lock the tree - do_check must acquire tree lock before building tree
11689: print_debug('in do_check_pvt, calling lock_tree ');
11690: lock_tree(
11691: p_api_version_number => 1.0
11692: , p_init_msg_lst => fnd_api.g_false
11693: , x_return_status => l_return_status
11694: , x_msg_count => x_msg_count
11695: , x_msg_data => x_msg_data
11696: , p_organization_id => g_rootinfos(p_tree_id).organization_id
11696: , p_organization_id => g_rootinfos(p_tree_id).organization_id
11697: , p_inventory_item_id => g_rootinfos(p_tree_id).inventory_item_id
11698: );
11699:
11700: IF l_return_status = fnd_api.g_ret_sts_error THEN
11701: RAISE fnd_api.g_exc_error;
11702: END IF ;
11703:
11704: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11697: , p_inventory_item_id => g_rootinfos(p_tree_id).inventory_item_id
11698: );
11699:
11700: IF l_return_status = fnd_api.g_ret_sts_error THEN
11701: RAISE fnd_api.g_exc_error;
11702: END IF ;
11703:
11704: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11705: RAISE fnd_api.g_exc_unexpected_error;
11700: IF l_return_status = fnd_api.g_ret_sts_error THEN
11701: RAISE fnd_api.g_exc_error;
11702: END IF ;
11703:
11704: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11705: RAISE fnd_api.g_exc_unexpected_error;
11706: END IF;
11707:
11708: print_debug('in do_check_pvt, calling build_tree for tree_id='||p_tree_id);
11701: RAISE fnd_api.g_exc_error;
11702: END IF ;
11703:
11704: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11705: RAISE fnd_api.g_exc_unexpected_error;
11706: END IF;
11707:
11708: print_debug('in do_check_pvt, calling build_tree for tree_id='||p_tree_id);
11709: build_tree(l_return_status, p_tree_id);
11707:
11708: print_debug('in do_check_pvt, calling build_tree for tree_id='||p_tree_id);
11709: build_tree(l_return_status, p_tree_id);
11710: print_debug('in do_check_pvt, after build_tree... return='||l_return_status);
11711: IF l_return_status = fnd_api.g_ret_sts_error THEN
11712: RAISE fnd_api.g_exc_error;
11713: End IF ;
11714:
11715: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11708: print_debug('in do_check_pvt, calling build_tree for tree_id='||p_tree_id);
11709: build_tree(l_return_status, p_tree_id);
11710: print_debug('in do_check_pvt, after build_tree... return='||l_return_status);
11711: IF l_return_status = fnd_api.g_ret_sts_error THEN
11712: RAISE fnd_api.g_exc_error;
11713: End IF ;
11714:
11715: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11716: RAISE fnd_api.g_exc_unexpected_error;
11711: IF l_return_status = fnd_api.g_ret_sts_error THEN
11712: RAISE fnd_api.g_exc_error;
11713: End IF ;
11714:
11715: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11716: RAISE fnd_api.g_exc_unexpected_error;
11717: End IF;
11718:
11719: if g_rootinfos(p_tree_id).neg_inv_allowed
11712: RAISE fnd_api.g_exc_error;
11713: End IF ;
11714:
11715: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11716: RAISE fnd_api.g_exc_unexpected_error;
11717: End IF;
11718:
11719: if g_rootinfos(p_tree_id).neg_inv_allowed
11720: then
11733: , p_item_node_index => g_rootinfos(p_tree_id).item_node_index
11734: );
11735:
11736: print_debug('in do_check_pvt, after check_node_violation... return='||l_return_status);
11737: IF l_return_status = fnd_api.g_ret_sts_error THEN
11738: RAISE fnd_api.g_exc_error;
11739: END IF ;
11740:
11741: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11734: );
11735:
11736: print_debug('in do_check_pvt, after check_node_violation... return='||l_return_status);
11737: IF l_return_status = fnd_api.g_ret_sts_error THEN
11738: RAISE fnd_api.g_exc_error;
11739: END IF ;
11740:
11741: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11742: RAISE fnd_api.g_exc_unexpected_error;
11737: IF l_return_status = fnd_api.g_ret_sts_error THEN
11738: RAISE fnd_api.g_exc_error;
11739: END IF ;
11740:
11741: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11742: RAISE fnd_api.g_exc_unexpected_error;
11743: END IF;
11744:
11745: x_no_violation := l_no_violation;
11738: RAISE fnd_api.g_exc_error;
11739: END IF ;
11740:
11741: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11742: RAISE fnd_api.g_exc_unexpected_error;
11743: END IF;
11744:
11745: x_no_violation := l_no_violation;
11746: x_return_status := l_return_status;
11747:
11748: print_debug('Normal end of do_check_pvt');
11749: EXCEPTION
11750:
11751: WHEN fnd_api.g_exc_error THEN
11752: x_return_status := fnd_api.g_ret_sts_error;
11753:
11754: -- Get message count and data
11755: fnd_msg_pub.count_and_get
11748: print_debug('Normal end of do_check_pvt');
11749: EXCEPTION
11750:
11751: WHEN fnd_api.g_exc_error THEN
11752: x_return_status := fnd_api.g_ret_sts_error;
11753:
11754: -- Get message count and data
11755: fnd_msg_pub.count_and_get
11756: ( p_count => x_msg_count
11756: ( p_count => x_msg_count
11757: , p_data => x_msg_data
11758: );
11759:
11760: WHEN fnd_api.g_exc_unexpected_error THEN
11761: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11762:
11763: -- Get message count and data
11764: fnd_msg_pub.count_and_get
11757: , p_data => x_msg_data
11758: );
11759:
11760: WHEN fnd_api.g_exc_unexpected_error THEN
11761: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11762:
11763: -- Get message count and data
11764: fnd_msg_pub.count_and_get
11765: ( p_count => x_msg_count
11766: , p_data => x_msg_data
11767: );
11768:
11769: WHEN OTHERS THEN
11770: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11771:
11772: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11773: THEN
11774: fnd_msg_pub.add_exc_msg
11807: -- x_no_violation true if no violation, false otherwise
11808: --
11809: PROCEDURE do_check
11810: ( p_api_version_number IN NUMBER
11811: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
11812: , x_return_status OUT NOCOPY VARCHAR2
11813: , x_msg_count OUT NOCOPY NUMBER
11814: , x_msg_data OUT NOCOPY VARCHAR2
11815: , p_tree_id IN INTEGER
11816: , x_no_violation OUT NOCOPY BOOLEAN
11817: ) IS
11818: l_api_version_number CONSTANT NUMBER := 1.0;
11819: l_api_name CONSTANT VARCHAR2(30) := 'DO_CHECK';
11820: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
11821: l_no_violation BOOLEAN;
11822: l_root_id INTEGER;
11823: BEGIN
11824: IF g_debug = 1 THEN
11827:
11828: print_debug('Entering do_check, tree_id='||p_tree_id, 9);
11829:
11830: -- Standard call to check for call compatibility
11831: IF NOT fnd_api.compatible_api_call(l_api_version_number
11832: , p_api_version_number
11833: , l_api_name
11834: , G_PKG_NAME
11835: ) THEN
11832: , p_api_version_number
11833: , l_api_name
11834: , G_PKG_NAME
11835: ) THEN
11836: RAISE fnd_api.g_exc_unexpected_error;
11837: END IF;
11838:
11839: -- Initialize message list.
11840: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11836: RAISE fnd_api.g_exc_unexpected_error;
11837: END IF;
11838:
11839: -- Initialize message list.
11840: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11841: fnd_msg_pub.initialize;
11842: END IF;
11843:
11844: --call do_check on the base tree
11845: l_root_id := g_demand_info(p_tree_id).root_id;
11846:
11847: do_check_pvt(
11848: p_api_version_number => 1.0
11849: , p_init_msg_lst => fnd_api.g_false
11850: , x_return_status => l_return_status
11851: , x_msg_count => x_msg_count
11852: , x_msg_data => x_msg_data
11853: , p_tree_id => l_root_id
11853: , p_tree_id => l_root_id
11854: , x_no_violation => l_no_violation
11855: );
11856: print_debug('In do_check, after do_check_pvt, return='||l_return_status);
11857: IF l_return_status = fnd_api.g_ret_sts_error THEN
11858: RAISE fnd_api.g_exc_error;
11859: END IF ;
11860:
11861: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11854: , x_no_violation => l_no_violation
11855: );
11856: print_debug('In do_check, after do_check_pvt, return='||l_return_status);
11857: IF l_return_status = fnd_api.g_ret_sts_error THEN
11858: RAISE fnd_api.g_exc_error;
11859: END IF ;
11860:
11861: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11862: RAISE fnd_api.g_exc_unexpected_error;
11857: IF l_return_status = fnd_api.g_ret_sts_error THEN
11858: RAISE fnd_api.g_exc_error;
11859: END IF ;
11860:
11861: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11862: RAISE fnd_api.g_exc_unexpected_error;
11863: END IF;
11864:
11865: -- Bug 7340567, printing the tree to verify node violation
11858: RAISE fnd_api.g_exc_error;
11859: END IF ;
11860:
11861: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
11862: RAISE fnd_api.g_exc_unexpected_error;
11863: END IF;
11864:
11865: -- Bug 7340567, printing the tree to verify node violation
11866: print_tree(p_tree_id);
11877: print_debug(' ',9);
11878: END IF;
11879: EXCEPTION
11880:
11881: WHEN fnd_api.g_exc_error THEN
11882: x_return_status := fnd_api.g_ret_sts_error;
11883:
11884: -- Get message count and data
11885: fnd_msg_pub.count_and_get
11878: END IF;
11879: EXCEPTION
11880:
11881: WHEN fnd_api.g_exc_error THEN
11882: x_return_status := fnd_api.g_ret_sts_error;
11883:
11884: -- Get message count and data
11885: fnd_msg_pub.count_and_get
11886: ( p_count => x_msg_count
11886: ( p_count => x_msg_count
11887: , p_data => x_msg_data
11888: );
11889:
11890: WHEN fnd_api.g_exc_unexpected_error THEN
11891: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11892:
11893: -- Get message count and data
11894: fnd_msg_pub.count_and_get
11887: , p_data => x_msg_data
11888: );
11889:
11890: WHEN fnd_api.g_exc_unexpected_error THEN
11891: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11892:
11893: -- Get message count and data
11894: fnd_msg_pub.count_and_get
11895: ( p_count => x_msg_count
11896: , p_data => x_msg_data
11897: );
11898:
11899: WHEN OTHERS THEN
11900: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11901:
11902: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11903: THEN
11904: fnd_msg_pub.add_exc_msg
11945: , x_no_violation OUT NOCOPY BOOLEAN
11946: ) IS
11947: l_api_version_number CONSTANT NUMBER := 1.0;
11948: l_api_name CONSTANT VARCHAR2(30) := 'DO_CHECK_ALL';
11949: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
11950: l_no_violation BOOLEAN;
11951: l_root_id NUMBER;
11952: l_org_id NUMBER;
11953: l_item_id NUMBER;
11965: print_debug(l_api_name || ' Entered',9);
11966: END IF;
11967:
11968: -- Standard call to check for call compatibility
11969: IF NOT fnd_api.compatible_api_call(l_api_version_number
11970: , p_api_version_number
11971: , l_api_name
11972: , G_PKG_NAME
11973: ) THEN
11970: , p_api_version_number
11971: , l_api_name
11972: , G_PKG_NAME
11973: ) THEN
11974: RAISE fnd_api.g_exc_unexpected_error;
11975: END IF;
11976:
11977: -- Initialize message list.
11978: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11974: RAISE fnd_api.g_exc_unexpected_error;
11975: END IF;
11976:
11977: -- Initialize message list.
11978: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11979: fnd_msg_pub.initialize;
11980: END IF;
11981:
11982: for l_loop_index IN 1..g_all_roots_counter LOOP
12011: EXIT WHEN c1%NOTFOUND;
12012:
12013: IF is_tree_valid(l_root_id_tmp) THEN
12014: do_check_pvt( p_api_version_number => 1.0
12015: ,p_init_msg_lst => fnd_api.g_false
12016: ,x_return_status => l_return_status
12017: ,x_msg_count => x_msg_count
12018: ,x_msg_data => x_msg_data
12019: ,p_tree_id => l_root_id_tmp
12017: ,x_msg_count => x_msg_count
12018: ,x_msg_data => x_msg_data
12019: ,p_tree_id => l_root_id_tmp
12020: ,x_no_violation => l_no_violation);
12021: IF l_return_status = fnd_api.g_ret_sts_error THEN
12022: RAISE fnd_api.g_exc_error;
12023: END IF ;
12024:
12025: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12018: ,x_msg_data => x_msg_data
12019: ,p_tree_id => l_root_id_tmp
12020: ,x_no_violation => l_no_violation);
12021: IF l_return_status = fnd_api.g_ret_sts_error THEN
12022: RAISE fnd_api.g_exc_error;
12023: END IF ;
12024:
12025: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12026: RAISE fnd_api.g_exc_unexpected_error;
12021: IF l_return_status = fnd_api.g_ret_sts_error THEN
12022: RAISE fnd_api.g_exc_error;
12023: END IF ;
12024:
12025: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12026: RAISE fnd_api.g_exc_unexpected_error;
12027: END IF;
12028:
12029: IF l_no_violation = FALSE THEN
12022: RAISE fnd_api.g_exc_error;
12023: END IF ;
12024:
12025: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12026: RAISE fnd_api.g_exc_unexpected_error;
12027: END IF;
12028:
12029: IF l_no_violation = FALSE THEN
12030: --utl_debug1('do_check_pvt returns false to do_check');
12046: END IF;
12047:
12048: EXCEPTION
12049:
12050: WHEN fnd_api.g_exc_error THEN
12051: x_return_status := fnd_api.g_ret_sts_error;
12052:
12053: -- Get message count and data
12054: fnd_msg_pub.count_and_get
12047:
12048: EXCEPTION
12049:
12050: WHEN fnd_api.g_exc_error THEN
12051: x_return_status := fnd_api.g_ret_sts_error;
12052:
12053: -- Get message count and data
12054: fnd_msg_pub.count_and_get
12055: ( p_count => x_msg_count
12055: ( p_count => x_msg_count
12056: , p_data => x_msg_data
12057: );
12058:
12059: WHEN fnd_api.g_exc_unexpected_error THEN
12060: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12061:
12062: -- Get message count and data
12063: fnd_msg_pub.count_and_get
12056: , p_data => x_msg_data
12057: );
12058:
12059: WHEN fnd_api.g_exc_unexpected_error THEN
12060: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12061:
12062: -- Get message count and data
12063: fnd_msg_pub.count_and_get
12064: ( p_count => x_msg_count
12065: , p_data => x_msg_data
12066: );
12067:
12068: WHEN OTHERS THEN
12069: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12070:
12071: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12072: THEN
12073: fnd_msg_pub.add_exc_msg
12106: -- x_msg_data standard output parameter
12107: --
12108: PROCEDURE free_tree_pvt
12109: ( p_api_version_number IN NUMBER
12110: , p_init_msg_lst IN VARCHAR2 DEFAULT fnd_api.g_false
12111: , x_return_status OUT NOCOPY VARCHAR2
12112: , x_msg_count OUT NOCOPY NUMBER
12113: , x_msg_data OUT NOCOPY VARCHAR2
12114: , p_tree_id IN INTEGER
12114: , p_tree_id IN INTEGER
12115: ) IS
12116: l_api_version_number CONSTANT NUMBER := 1.0;
12117: l_api_name CONSTANT VARCHAR2(30) := 'Free_Tree_Pvt';
12118: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12119: BEGIN
12120:
12121: -- Standard call to check for call compatibility
12122: IF NOT fnd_api.compatible_api_call(l_api_version_number
12118: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12119: BEGIN
12120:
12121: -- Standard call to check for call compatibility
12122: IF NOT fnd_api.compatible_api_call(l_api_version_number
12123: , p_api_version_number
12124: , l_api_name
12125: , G_PKG_NAME
12126: ) THEN
12123: , p_api_version_number
12124: , l_api_name
12125: , G_PKG_NAME
12126: ) THEN
12127: RAISE fnd_api.g_exc_unexpected_error;
12128: END IF;
12129:
12130: -- Initialize message list.
12131: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12127: RAISE fnd_api.g_exc_unexpected_error;
12128: END IF;
12129:
12130: -- Initialize message list.
12131: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12132: fnd_msg_pub.initialize;
12133: END IF;
12134: invalidate_tree(p_tree_id);
12135:
12136: x_return_status := l_return_status;
12137:
12138: EXCEPTION
12139:
12140: WHEN fnd_api.g_exc_error THEN
12141: x_return_status := fnd_api.g_ret_sts_error;
12142:
12143: -- Get message count and data
12144: fnd_msg_pub.count_and_get
12137:
12138: EXCEPTION
12139:
12140: WHEN fnd_api.g_exc_error THEN
12141: x_return_status := fnd_api.g_ret_sts_error;
12142:
12143: -- Get message count and data
12144: fnd_msg_pub.count_and_get
12145: ( p_count => x_msg_count
12145: ( p_count => x_msg_count
12146: , p_data => x_msg_data
12147: );
12148:
12149: WHEN fnd_api.g_exc_unexpected_error THEN
12150: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12151:
12152: -- Get message count and data
12153: fnd_msg_pub.count_and_get
12146: , p_data => x_msg_data
12147: );
12148:
12149: WHEN fnd_api.g_exc_unexpected_error THEN
12150: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12151:
12152: -- Get message count and data
12153: fnd_msg_pub.count_and_get
12154: ( p_count => x_msg_count
12155: , p_data => x_msg_data
12156: );
12157:
12158: WHEN OTHERS THEN
12159: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12160:
12161: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12162: THEN
12163: fnd_msg_pub.add_exc_msg
12207: IS
12208:
12209: l_api_version_number CONSTANT NUMBER := 1.0;
12210: l_api_name CONSTANT VARCHAR2(30) := 'FREE_TREE';
12211: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12212: l_root_id INTEGER;
12213:
12214: BEGIN
12215:
12217: print_debug(l_api_name || ' Entered',9);
12218: END IF;
12219:
12220: -- Standard call to check for call compatibility
12221: IF NOT fnd_api.compatible_api_call(l_api_version_number
12222: , p_api_version_number
12223: , l_api_name
12224: , G_PKG_NAME
12225: ) THEN
12222: , p_api_version_number
12223: , l_api_name
12224: , G_PKG_NAME
12225: ) THEN
12226: RAISE fnd_api.g_exc_unexpected_error;
12227: END IF;
12228:
12229: -- Initialize message list.
12230: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12226: RAISE fnd_api.g_exc_unexpected_error;
12227: END IF;
12228:
12229: -- Initialize message list.
12230: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12231: fnd_msg_pub.initialize;
12232: END IF;
12233:
12234: --call free_tree on base_tree
12235: l_root_id := g_demand_info(p_tree_id).root_id;
12236:
12237: free_tree_pvt(
12238: p_api_version_number => l_api_version_number
12239: , p_init_msg_lst => fnd_api.g_false
12240: , x_return_status => l_return_status
12241: , x_msg_count => x_msg_count
12242: , x_msg_data => x_msg_data
12243: , p_tree_id => l_root_id
12242: , x_msg_data => x_msg_data
12243: , p_tree_id => l_root_id
12244: );
12245:
12246: IF l_return_status = fnd_api.g_ret_sts_error THEN
12247: RAISE fnd_api.g_exc_error;
12248: End IF ;
12249:
12250: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12243: , p_tree_id => l_root_id
12244: );
12245:
12246: IF l_return_status = fnd_api.g_ret_sts_error THEN
12247: RAISE fnd_api.g_exc_error;
12248: End IF ;
12249:
12250: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12251: RAISE fnd_api.g_exc_unexpected_error;
12246: IF l_return_status = fnd_api.g_ret_sts_error THEN
12247: RAISE fnd_api.g_exc_error;
12248: End IF ;
12249:
12250: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12251: RAISE fnd_api.g_exc_unexpected_error;
12252: End IF;
12253:
12254:
12247: RAISE fnd_api.g_exc_error;
12248: End IF ;
12249:
12250: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12251: RAISE fnd_api.g_exc_unexpected_error;
12252: End IF;
12253:
12254:
12255: x_return_status := l_return_status;
12255: x_return_status := l_return_status;
12256:
12257: EXCEPTION
12258:
12259: WHEN fnd_api.g_exc_error THEN
12260: x_return_status := fnd_api.g_ret_sts_error;
12261:
12262: -- Get message count and data
12263: fnd_msg_pub.count_and_get
12256:
12257: EXCEPTION
12258:
12259: WHEN fnd_api.g_exc_error THEN
12260: x_return_status := fnd_api.g_ret_sts_error;
12261:
12262: -- Get message count and data
12263: fnd_msg_pub.count_and_get
12264: ( p_count => x_msg_count
12264: ( p_count => x_msg_count
12265: , p_data => x_msg_data
12266: );
12267:
12268: WHEN fnd_api.g_exc_unexpected_error THEN
12269: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12270:
12271: -- Get message count and data
12272: fnd_msg_pub.count_and_get
12265: , p_data => x_msg_data
12266: );
12267:
12268: WHEN fnd_api.g_exc_unexpected_error THEN
12269: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12270:
12271: -- Get message count and data
12272: fnd_msg_pub.count_and_get
12273: ( p_count => x_msg_count
12274: , p_data => x_msg_data
12275: );
12276:
12277: WHEN OTHERS THEN
12278: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12279:
12280: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12281: THEN
12282: fnd_msg_pub.add_exc_msg
12323: IS
12324:
12325: l_api_version_number CONSTANT NUMBER := 1.0;
12326: l_api_name CONSTANT VARCHAR2(30) := 'Free_All';
12327: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12328: l_root_id NUMBER;
12329:
12330: BEGIN
12331:
12329:
12330: BEGIN
12331:
12332: -- Standard call to check for call compatibility
12333: IF NOT fnd_api.compatible_api_call(l_api_version_number
12334: , p_api_version_number
12335: , l_api_name
12336: , G_PKG_NAME
12337: ) THEN
12334: , p_api_version_number
12335: , l_api_name
12336: , G_PKG_NAME
12337: ) THEN
12338: RAISE fnd_api.g_exc_unexpected_error;
12339: END IF;
12340:
12341: -- Initialize message list.
12342: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12338: RAISE fnd_api.g_exc_unexpected_error;
12339: END IF;
12340:
12341: -- Initialize message list.
12342: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12343: fnd_msg_pub.initialize;
12344: END IF;
12345:
12346: FOR l_loop_index IN 1..g_all_roots_counter LOOP
12346: FOR l_loop_index IN 1..g_all_roots_counter LOOP
12347: l_root_id := g_all_roots(l_loop_index).root_id;
12348: free_tree_pvt(
12349: p_api_version_number => l_api_version_number
12350: ,p_init_msg_lst => fnd_api.g_false
12351: ,x_return_status => l_return_status
12352: ,x_msg_count => x_msg_count
12353: ,x_msg_data => x_msg_data
12354: ,p_tree_id => l_root_id
12353: ,x_msg_data => x_msg_data
12354: ,p_tree_id => l_root_id
12355: );
12356:
12357: IF l_return_status = fnd_api.g_ret_sts_error THEN
12358: RAISE fnd_api.g_exc_error;
12359: End IF ;
12360:
12361: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12354: ,p_tree_id => l_root_id
12355: );
12356:
12357: IF l_return_status = fnd_api.g_ret_sts_error THEN
12358: RAISE fnd_api.g_exc_error;
12359: End IF ;
12360:
12361: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12362: RAISE fnd_api.g_exc_unexpected_error;
12357: IF l_return_status = fnd_api.g_ret_sts_error THEN
12358: RAISE fnd_api.g_exc_error;
12359: End IF ;
12360:
12361: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12362: RAISE fnd_api.g_exc_unexpected_error;
12363: End IF;
12364:
12365: END LOOP;
12358: RAISE fnd_api.g_exc_error;
12359: End IF ;
12360:
12361: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12362: RAISE fnd_api.g_exc_unexpected_error;
12363: End IF;
12364:
12365: END LOOP;
12366:
12367: x_return_status := l_return_status;
12368:
12369: EXCEPTION
12370:
12371: WHEN fnd_api.g_exc_error THEN
12372: x_return_status := fnd_api.g_ret_sts_error;
12373:
12374: -- Get message count and data
12375: fnd_msg_pub.count_and_get
12368:
12369: EXCEPTION
12370:
12371: WHEN fnd_api.g_exc_error THEN
12372: x_return_status := fnd_api.g_ret_sts_error;
12373:
12374: -- Get message count and data
12375: fnd_msg_pub.count_and_get
12376: ( p_count => x_msg_count
12376: ( p_count => x_msg_count
12377: , p_data => x_msg_data
12378: );
12379:
12380: WHEN fnd_api.g_exc_unexpected_error THEN
12381: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12382:
12383: -- Get message count and data
12384: fnd_msg_pub.count_and_get
12377: , p_data => x_msg_data
12378: );
12379:
12380: WHEN fnd_api.g_exc_unexpected_error THEN
12381: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12382:
12383: -- Get message count and data
12384: fnd_msg_pub.count_and_get
12385: ( p_count => x_msg_count
12386: , p_data => x_msg_data
12387: );
12388:
12389: WHEN OTHERS THEN
12390: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12391:
12392: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12393: THEN
12394: fnd_msg_pub.add_exc_msg
12441: ) IS
12442:
12443: l_api_version_number CONSTANT NUMBER := 1.0;
12444: l_api_name CONSTANT VARCHAR2(30) := 'Mark_All_For_Refresh';
12445: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12446: l_root_id NUMBER;
12447:
12448: BEGIN
12449:
12447:
12448: BEGIN
12449:
12450: -- Standard call to check for call compatibility
12451: IF NOT fnd_api.compatible_api_call(l_api_version_number
12452: , p_api_version_number
12453: , l_api_name
12454: , G_PKG_NAME
12455: ) THEN
12452: , p_api_version_number
12453: , l_api_name
12454: , G_PKG_NAME
12455: ) THEN
12456: RAISE fnd_api.g_exc_unexpected_error;
12457: END IF;
12458:
12459: -- Initialize message list.
12460: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12456: RAISE fnd_api.g_exc_unexpected_error;
12457: END IF;
12458:
12459: -- Initialize message list.
12460: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12461: fnd_msg_pub.initialize;
12462: END IF;
12463:
12464: FOR l_loop_index IN 1..g_all_roots_counter LOOP
12470:
12471:
12472: EXCEPTION
12473:
12474: WHEN fnd_api.g_exc_error THEN
12475: x_return_status := fnd_api.g_ret_sts_error;
12476:
12477: -- Get message count and data
12478: fnd_msg_pub.count_and_get
12471:
12472: EXCEPTION
12473:
12474: WHEN fnd_api.g_exc_error THEN
12475: x_return_status := fnd_api.g_ret_sts_error;
12476:
12477: -- Get message count and data
12478: fnd_msg_pub.count_and_get
12479: ( p_count => x_msg_count
12479: ( p_count => x_msg_count
12480: , p_data => x_msg_data
12481: );
12482:
12483: WHEN fnd_api.g_exc_unexpected_error THEN
12484: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12485:
12486: -- Get message count and data
12487: fnd_msg_pub.count_and_get
12480: , p_data => x_msg_data
12481: );
12482:
12483: WHEN fnd_api.g_exc_unexpected_error THEN
12484: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12485:
12486: -- Get message count and data
12487: fnd_msg_pub.count_and_get
12488: ( p_count => x_msg_count
12489: , p_data => x_msg_data
12490: );
12491:
12492: WHEN OTHERS THEN
12493: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12494:
12495: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12496: THEN
12497: fnd_msg_pub.add_exc_msg
12641: , p_transfer_locator_id IN NUMBER
12642: ) IS
12643: l_api_version_number CONSTANT NUMBER := 1.0;
12644: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_QUANTITIES';
12645: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12646: l_root_id INTEGER;
12647: BEGIN
12648: IF g_debug = 1 THEN
12649: print_debug(l_api_name || ' Entered',9);
12651:
12652: print_debug('Entering update_quantities. primQty='||p_primary_quantity||', secQty='||p_secondary_quantity);
12653:
12654: -- Standard call to check for call compatibility
12655: IF NOT fnd_api.compatible_api_call(l_api_version_number
12656: , p_api_version_number
12657: , l_api_name
12658: , G_PKG_NAME
12659: ) THEN
12656: , p_api_version_number
12657: , l_api_name
12658: , G_PKG_NAME
12659: ) THEN
12660: RAISE fnd_api.g_exc_unexpected_error;
12661: END IF;
12662:
12663: -- Initialize message list.
12664: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12660: RAISE fnd_api.g_exc_unexpected_error;
12661: END IF;
12662:
12663: -- Initialize message list.
12664: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12665: fnd_msg_pub.initialize;
12666: END IF;
12667:
12668: l_root_id := g_demand_info(p_tree_id).root_id;
12670: IF is_tree_valid(l_root_id) = FALSE THEN
12671: fnd_message.set_name('INV', 'INV-Qtyroot not found');
12672: fnd_message.set_token('ROUTINE', 'Update_Quantities');
12673: fnd_msg_pub.ADD;
12674: RAISE fnd_api.g_exc_unexpected_error;
12675: END IF;
12676:
12677: print_debug('in update_quantities, calling add_quantities qty1='||p_primary_quantity||', qty2='||p_secondary_quantity||'.');
12678: add_quantities(
12690: , p_cost_group_id => p_cost_group_id
12691: , p_lpn_id => p_lpn_id
12692: );
12693:
12694: IF l_return_status = fnd_api.g_ret_sts_error THEN
12695: RAISE fnd_api.g_exc_error;
12696: End IF ;
12697:
12698: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12691: , p_lpn_id => p_lpn_id
12692: );
12693:
12694: IF l_return_status = fnd_api.g_ret_sts_error THEN
12695: RAISE fnd_api.g_exc_error;
12696: End IF ;
12697:
12698: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12699: RAISE fnd_api.g_exc_unexpected_error;
12694: IF l_return_status = fnd_api.g_ret_sts_error THEN
12695: RAISE fnd_api.g_exc_error;
12696: End IF ;
12697:
12698: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12699: RAISE fnd_api.g_exc_unexpected_error;
12700: End IF;
12701:
12702: -- query the quantities after the update
12695: RAISE fnd_api.g_exc_error;
12696: End IF ;
12697:
12698: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12699: RAISE fnd_api.g_exc_unexpected_error;
12700: End IF;
12701:
12702: -- query the quantities after the update
12703: query_tree
12702: -- query the quantities after the update
12703: query_tree
12704: (
12705: p_api_version_number => 1.0
12706: , p_init_msg_lst => fnd_api.g_false
12707: , x_return_status => l_return_status
12708: , x_msg_count => x_msg_count
12709: , x_msg_data => x_msg_data
12710: , p_tree_id => p_tree_id
12729: , p_lpn_id => p_lpn_id
12730: , p_transfer_locator_id => p_transfer_locator_id
12731: );
12732:
12733: IF l_return_status = fnd_api.g_ret_sts_error THEN
12734: RAISE fnd_api.g_exc_error;
12735: End IF ;
12736:
12737: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12730: , p_transfer_locator_id => p_transfer_locator_id
12731: );
12732:
12733: IF l_return_status = fnd_api.g_ret_sts_error THEN
12734: RAISE fnd_api.g_exc_error;
12735: End IF ;
12736:
12737: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12738: RAISE fnd_api.g_exc_unexpected_error;
12733: IF l_return_status = fnd_api.g_ret_sts_error THEN
12734: RAISE fnd_api.g_exc_error;
12735: End IF ;
12736:
12737: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12738: RAISE fnd_api.g_exc_unexpected_error;
12739: End IF;
12740:
12741: x_return_status := l_return_status;
12734: RAISE fnd_api.g_exc_error;
12735: End IF ;
12736:
12737: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12738: RAISE fnd_api.g_exc_unexpected_error;
12739: End IF;
12740:
12741: x_return_status := l_return_status;
12742:
12746: END IF;
12747:
12748: EXCEPTION
12749:
12750: WHEN fnd_api.g_exc_error THEN
12751: x_return_status := fnd_api.g_ret_sts_error;
12752:
12753: -- Get message count and data
12754: fnd_msg_pub.count_and_get
12747:
12748: EXCEPTION
12749:
12750: WHEN fnd_api.g_exc_error THEN
12751: x_return_status := fnd_api.g_ret_sts_error;
12752:
12753: -- Get message count and data
12754: fnd_msg_pub.count_and_get
12755: ( p_count => x_msg_count
12755: ( p_count => x_msg_count
12756: , p_data => x_msg_data
12757: );
12758:
12759: WHEN fnd_api.g_exc_unexpected_error THEN
12760: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12761:
12762: -- Get message count and data
12763: fnd_msg_pub.count_and_get
12756: , p_data => x_msg_data
12757: );
12758:
12759: WHEN fnd_api.g_exc_unexpected_error THEN
12760: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12761:
12762: -- Get message count and data
12763: fnd_msg_pub.count_and_get
12764: ( p_count => x_msg_count
12765: , p_data => x_msg_data
12766: );
12767:
12768: WHEN OTHERS THEN
12769: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12770:
12771: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12772: THEN
12773: fnd_msg_pub.add_exc_msg
12927: , p_lpn_id IN NUMBER DEFAULT NULL --added for bug7038890
12928: ) IS
12929: l_api_version_number CONSTANT NUMBER := 1.0;
12930: l_api_name CONSTANT VARCHAR2(30) := 'UPDATE_QUANTITIES_FOR_FORM';
12931: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
12932: l_root_id INTEGER;
12933: l_is_for_form BOOLEAN;
12934: BEGIN
12935:
12937: print_debug(l_api_name || ' Entered',9);
12938: END IF;
12939:
12940: -- Standard call to check for call compatibility
12941: IF NOT fnd_api.compatible_api_call(l_api_version_number
12942: , p_api_version_number
12943: , l_api_name
12944: , G_PKG_NAME
12945: ) THEN
12942: , p_api_version_number
12943: , l_api_name
12944: , G_PKG_NAME
12945: ) THEN
12946: RAISE fnd_api.g_exc_unexpected_error;
12947: END IF;
12948:
12949: -- Initialize message list.
12950: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12946: RAISE fnd_api.g_exc_unexpected_error;
12947: END IF;
12948:
12949: -- Initialize message list.
12950: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12951: fnd_msg_pub.initialize;
12952: END IF;
12953:
12954: l_root_id := g_demand_info(p_tree_id).root_id;
12957: IF is_tree_valid(l_root_id) = FALSE THEN
12958: fnd_message.set_name('INV', 'INV-Qtyroot not found');
12959: fnd_message.set_token('ROUTINE', 'Update_Quantities');
12960: fnd_msg_pub.ADD;
12961: RAISE fnd_api.g_exc_unexpected_error;
12962: END IF;
12963:
12964: IF p_call_for_form = fnd_api.g_true THEN
12965: l_is_for_form := FALSE;
12960: fnd_msg_pub.ADD;
12961: RAISE fnd_api.g_exc_unexpected_error;
12962: END IF;
12963:
12964: IF p_call_for_form = fnd_api.g_true THEN
12965: l_is_for_form := FALSE;
12966: ELSE
12967: l_is_for_form := TRUE;
12968: END IF;
12981: , p_quantity_type => p_quantity_type
12982: , p_set_check_mark => l_is_for_form
12983: , p_cost_group_id => p_cost_group_id
12984: , p_lpn_id => p_lpn_id --replaced null value with p_lpn_id bug7038890
12985: , p_check_mark_node_only => fnd_api.g_true
12986: );
12987: print_debug('After calling add_quantities. return_status='||l_return_status);
12988:
12989: IF l_return_status = fnd_api.g_ret_sts_error THEN
12985: , p_check_mark_node_only => fnd_api.g_true
12986: );
12987: print_debug('After calling add_quantities. return_status='||l_return_status);
12988:
12989: IF l_return_status = fnd_api.g_ret_sts_error THEN
12990: RAISE fnd_api.g_exc_error;
12991: End IF ;
12992:
12993: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12986: );
12987: print_debug('After calling add_quantities. return_status='||l_return_status);
12988:
12989: IF l_return_status = fnd_api.g_ret_sts_error THEN
12990: RAISE fnd_api.g_exc_error;
12991: End IF ;
12992:
12993: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12994: RAISE fnd_api.g_exc_unexpected_error;
12989: IF l_return_status = fnd_api.g_ret_sts_error THEN
12990: RAISE fnd_api.g_exc_error;
12991: End IF ;
12992:
12993: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12994: RAISE fnd_api.g_exc_unexpected_error;
12995: End IF;
12996: print_debug('Before calling Query_Tree');
12997: -- query the quantities after the update
12990: RAISE fnd_api.g_exc_error;
12991: End IF ;
12992:
12993: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
12994: RAISE fnd_api.g_exc_unexpected_error;
12995: End IF;
12996: print_debug('Before calling Query_Tree');
12997: -- query the quantities after the update
12998: query_tree(
12996: print_debug('Before calling Query_Tree');
12997: -- query the quantities after the update
12998: query_tree(
12999: p_api_version_number => 1.0
13000: , p_init_msg_lst => fnd_api.g_false
13001: , x_return_status => l_return_status
13002: , x_msg_count => x_msg_count
13003: , x_msg_data => x_msg_data
13004: , p_tree_id => p_tree_id
13023: , p_lpn_id => p_lpn_id --added for bug7038890
13024: );
13025: print_debug('After calling Query_Tree return_status='||l_return_status);
13026:
13027: IF l_return_status = fnd_api.g_ret_sts_error THEN
13028: RAISE fnd_api.g_exc_error;
13029: End IF ;
13030:
13031: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13024: );
13025: print_debug('After calling Query_Tree return_status='||l_return_status);
13026:
13027: IF l_return_status = fnd_api.g_ret_sts_error THEN
13028: RAISE fnd_api.g_exc_error;
13029: End IF ;
13030:
13031: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13032: RAISE fnd_api.g_exc_unexpected_error;
13027: IF l_return_status = fnd_api.g_ret_sts_error THEN
13028: RAISE fnd_api.g_exc_error;
13029: End IF ;
13030:
13031: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13032: RAISE fnd_api.g_exc_unexpected_error;
13033: End IF;
13034:
13035: x_return_status := l_return_status;
13028: RAISE fnd_api.g_exc_error;
13029: End IF ;
13030:
13031: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
13032: RAISE fnd_api.g_exc_unexpected_error;
13033: End IF;
13034:
13035: x_return_status := l_return_status;
13036:
13040: END IF;
13041:
13042: EXCEPTION
13043:
13044: WHEN fnd_api.g_exc_error THEN
13045: x_return_status := fnd_api.g_ret_sts_error;
13046:
13047: -- Get message count and data
13048: fnd_msg_pub.count_and_get
13041:
13042: EXCEPTION
13043:
13044: WHEN fnd_api.g_exc_error THEN
13045: x_return_status := fnd_api.g_ret_sts_error;
13046:
13047: -- Get message count and data
13048: fnd_msg_pub.count_and_get
13049: ( p_count => x_msg_count
13049: ( p_count => x_msg_count
13050: , p_data => x_msg_data
13051: );
13052:
13053: WHEN fnd_api.g_exc_unexpected_error THEN
13054: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13055:
13056: -- Get message count and data
13057: fnd_msg_pub.count_and_get
13050: , p_data => x_msg_data
13051: );
13052:
13053: WHEN fnd_api.g_exc_unexpected_error THEN
13054: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13055:
13056: -- Get message count and data
13057: fnd_msg_pub.count_and_get
13058: ( p_count => x_msg_count
13059: , p_data => x_msg_data
13060: );
13061:
13062: WHEN OTHERS THEN
13063: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13064:
13065: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
13066: THEN
13067: fnd_msg_pub.add_exc_msg
13115: (
13116: x_return_status OUT NOCOPY VARCHAR2
13117: , p_tree_id IN INTEGER
13118: ) IS
13119: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
13120: l_root_id INTEGER;
13121: l_api_name VARCHAR2(30) := 'BACKUP_TREE';
13122: BEGIN
13123: IF g_debug = 1 THEN
13127: IF is_tree_valid(l_root_id) = FALSE THEN
13128: fnd_message.set_name('INV', 'INV-Qtyroot not found');
13129: fnd_message.set_token('ROUTINE', 'Backup_Tree');
13130: fnd_msg_pub.ADD;
13131: RAISE fnd_api.g_exc_error;
13132: END IF;
13133:
13134: save_rootinfo(l_root_id);
13135: -- bug 6683013, backing up rsv_tree
13154: END IF;
13155:
13156: EXCEPTION
13157:
13158: WHEN fnd_api.g_exc_error THEN
13159: x_return_status := fnd_api.g_ret_sts_error;
13160:
13161: WHEN fnd_api.g_exc_unexpected_error THEN
13162: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13155:
13156: EXCEPTION
13157:
13158: WHEN fnd_api.g_exc_error THEN
13159: x_return_status := fnd_api.g_ret_sts_error;
13160:
13161: WHEN fnd_api.g_exc_unexpected_error THEN
13162: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13163:
13157:
13158: WHEN fnd_api.g_exc_error THEN
13159: x_return_status := fnd_api.g_ret_sts_error;
13160:
13161: WHEN fnd_api.g_exc_unexpected_error THEN
13162: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13163:
13164:
13165: WHEN OTHERS THEN
13158: WHEN fnd_api.g_exc_error THEN
13159: x_return_status := fnd_api.g_ret_sts_error;
13160:
13161: WHEN fnd_api.g_exc_unexpected_error THEN
13162: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13163:
13164:
13165: WHEN OTHERS THEN
13166: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13162: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13163:
13164:
13165: WHEN OTHERS THEN
13166: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13167:
13168: END backup_tree;
13169:
13170: -- restore a node and its children using the backup tables
13205: (
13206: x_return_status OUT NOCOPY VARCHAR2
13207: , p_tree_id IN INTEGER
13208: ) IS
13209: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
13210: l_root_id INTEGER;
13211: l_api_name VARCHAR2(30) := 'RESTORE_TREE';
13212: BEGIN
13213: IF g_debug = 1 THEN
13218: IF is_saved_tree_valid(l_root_id) = FALSE THEN
13219: fnd_message.set_name('INV', 'INV-Qtyroot not found');
13220: fnd_message.set_token('ROUTINE', 'Restore_Tree');
13221: fnd_msg_pub.ADD;
13222: RAISE fnd_api.g_exc_error;
13223: END IF;
13224:
13225: restore_rootinfo(l_root_id);
13226: -- bug 6683013, restoring back rsv_tree
13244: END IF;
13245:
13246: EXCEPTION
13247:
13248: WHEN fnd_api.g_exc_error THEN
13249: x_return_status := fnd_api.g_ret_sts_error;
13250:
13251: WHEN fnd_api.g_exc_unexpected_error THEN
13252: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13245:
13246: EXCEPTION
13247:
13248: WHEN fnd_api.g_exc_error THEN
13249: x_return_status := fnd_api.g_ret_sts_error;
13250:
13251: WHEN fnd_api.g_exc_unexpected_error THEN
13252: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13253:
13247:
13248: WHEN fnd_api.g_exc_error THEN
13249: x_return_status := fnd_api.g_ret_sts_error;
13250:
13251: WHEN fnd_api.g_exc_unexpected_error THEN
13252: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13253:
13254:
13255: WHEN OTHERS THEN
13248: WHEN fnd_api.g_exc_error THEN
13249: x_return_status := fnd_api.g_ret_sts_error;
13250:
13251: WHEN fnd_api.g_exc_unexpected_error THEN
13252: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13253:
13254:
13255: WHEN OTHERS THEN
13256: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13252: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13253:
13254:
13255: WHEN OTHERS THEN
13256: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13257:
13258: END restore_tree;
13259:
13260:
13296: x_return_status OUT NOCOPY VARCHAR2
13297: , p_tree_id IN INTEGER
13298: , x_backup_id OUT NOCOPY NUMBER
13299: ) IS
13300: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
13301: l_root_id INTEGER;
13302: l_backup_id NUMBER;
13303: l_api_name VARCHAR2(30) := 'BACKUP_TREE';
13304: BEGIN
13310: IF is_tree_valid(l_root_id) = FALSE THEN
13311: fnd_message.set_name('INV', 'INV-Qtyroot not found');
13312: fnd_message.set_token('ROUTINE', 'Backup_Tree');
13313: fnd_msg_pub.ADD;
13314: RAISE fnd_api.g_exc_error;
13315: END IF;
13316:
13317: g_backup_tree_counter := g_backup_tree_counter + 1;
13318: l_backup_id := g_backup_tree_counter;
13336: END IF;
13337:
13338: EXCEPTION
13339:
13340: WHEN fnd_api.g_exc_error THEN
13341: x_return_status := fnd_api.g_ret_sts_error;
13342:
13343: WHEN fnd_api.g_exc_unexpected_error THEN
13344: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13337:
13338: EXCEPTION
13339:
13340: WHEN fnd_api.g_exc_error THEN
13341: x_return_status := fnd_api.g_ret_sts_error;
13342:
13343: WHEN fnd_api.g_exc_unexpected_error THEN
13344: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13345:
13339:
13340: WHEN fnd_api.g_exc_error THEN
13341: x_return_status := fnd_api.g_ret_sts_error;
13342:
13343: WHEN fnd_api.g_exc_unexpected_error THEN
13344: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13345:
13346: WHEN OTHERS THEN
13347: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13340: WHEN fnd_api.g_exc_error THEN
13341: x_return_status := fnd_api.g_ret_sts_error;
13342:
13343: WHEN fnd_api.g_exc_unexpected_error THEN
13344: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13345:
13346: WHEN OTHERS THEN
13347: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13348:
13343: WHEN fnd_api.g_exc_unexpected_error THEN
13344: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13345:
13346: WHEN OTHERS THEN
13347: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13348:
13349: END backup_tree;
13350:
13351: -- Procedure
13361: x_return_status OUT NOCOPY VARCHAR2
13362: , p_tree_id IN INTEGER
13363: , p_backup_id IN NUMBER
13364: ) IS
13365: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
13366: l_root_id INTEGER;
13367: l_loop_index NUMBER;
13368: l_node_index NUMBER;
13369: l_api_name VARCHAR2(30) := 'RESTORE_TREE';
13372: print_debug(l_api_name || ' Entered',9);
13373: END IF;
13374:
13375: IF NOT g_demand_info.exists(p_tree_id) THEN
13376: raise fnd_api.g_exc_unexpected_error;
13377: END IF;
13378: IF NOT g_backup_trees.exists(p_backup_id) THEN
13379: raise fnd_api.g_exc_unexpected_error;
13380: END IF;
13375: IF NOT g_demand_info.exists(p_tree_id) THEN
13376: raise fnd_api.g_exc_unexpected_error;
13377: END IF;
13378: IF NOT g_backup_trees.exists(p_backup_id) THEN
13379: raise fnd_api.g_exc_unexpected_error;
13380: END IF;
13381:
13382: l_root_id := g_demand_info(p_tree_id).root_id;
13383:
13381:
13382: l_root_id := g_demand_info(p_tree_id).root_id;
13383:
13384: IF l_root_id <> g_backup_trees(p_backup_id).root_id THEN
13385: raise fnd_api.g_exc_unexpected_error;
13386: END IF;
13387:
13388: l_loop_index := g_backup_trees(p_backup_id).first_node;
13389:
13402: END IF;
13403:
13404: EXCEPTION
13405:
13406: WHEN fnd_api.g_exc_error THEN
13407: x_return_status := fnd_api.g_ret_sts_error;
13408:
13409: WHEN fnd_api.g_exc_unexpected_error THEN
13410: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13403:
13404: EXCEPTION
13405:
13406: WHEN fnd_api.g_exc_error THEN
13407: x_return_status := fnd_api.g_ret_sts_error;
13408:
13409: WHEN fnd_api.g_exc_unexpected_error THEN
13410: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13411:
13405:
13406: WHEN fnd_api.g_exc_error THEN
13407: x_return_status := fnd_api.g_ret_sts_error;
13408:
13409: WHEN fnd_api.g_exc_unexpected_error THEN
13410: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13411:
13412:
13413: WHEN OTHERS THEN
13406: WHEN fnd_api.g_exc_error THEN
13407: x_return_status := fnd_api.g_ret_sts_error;
13408:
13409: WHEN fnd_api.g_exc_unexpected_error THEN
13410: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13411:
13412:
13413: WHEN OTHERS THEN
13414: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13410: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13411:
13412:
13413: WHEN OTHERS THEN
13414: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13415:
13416: END restore_tree;
13417:
13418:
13427: begin
13428: for c1_rec in C1 loop
13429: INV_QUANTITY_TREE_PVT.release_lock(
13430: l_api_number,
13431: fnd_api.g_false,
13432: l_return_status,
13433: l_msg_count,
13434: l_msg_data,
13435: c1_rec.organization_id,
13433: l_msg_count,
13434: l_msg_data,
13435: c1_rec.organization_id,
13436: c1_rec.inventory_item_id);
13437: if l_return_status = fnd_api.g_ret_sts_error then
13438: Return FALSE;
13439: End if;
13440: end loop;
13441: return TRUE;
13445: -- Coding standard used in this program
13446: -- 1. PLSQL business object api coding standard
13447: -- 2. Oracle application developer's guide
13448: -- Note:
13449: -- 1. Data types are not initialized to fnd_api.g_miss_???
13450: -- 2. Procedures or functions not exposed to user do not have the following parameters:
13451: -- p_api_version, p_msg_count, p_msg_data. x_return_status is optional.
13452: -- 3. identation and character case uses plsql mode of emacs
13453: -------------------------------------------------------------------------------