[Home] [Help]
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
667: ( g_pkg_name
668: , 'Check_Is_Reservable_SUB'
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
667: ( g_pkg_name
668: , 'Check_Is_Reservable_SUB'
669: );
670: END IF;
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
733: ( g_pkg_name
734: , 'Check_Is_Reservable_LOC'
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
733: ( g_pkg_name
734: , 'Check_Is_Reservable_LOC'
735: );
736: END IF;
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
803: ( g_pkg_name
804: , 'Check_Is_Reservable_SUB'
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
803: ( g_pkg_name
804: , 'Check_Is_Reservable_SUB'
805: );
806: END IF;
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
921: ( g_pkg_name
922: , 'Check_Is_Reservable_onhand'
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
921: ( g_pkg_name
922: , 'Check_Is_Reservable_onhand'
923: );
924: END IF;
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
979: ( g_pkg_name
980: , 'Check_Is_Reservable_item'
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
979: ( g_pkg_name
980: , 'Check_Is_Reservable_item'
981: );
982: END IF;
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
1256: ( g_pkg_name
1257: , 'Check_Is_Reservable'
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
1256: ( g_pkg_name
1257: , 'Check_Is_Reservable'
1258: );
1259: END IF;
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
1323: ( g_pkg_name
1324: , 'Zero_Tree_Node'
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
1323: ( g_pkg_name
1324: , 'Zero_Tree_Node'
1325: );
1326: END IF;
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
1442: ( g_pkg_name
1443: , 'New_Tree_Node'
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
1442: ( g_pkg_name
1443: , 'New_Tree_Node'
1444: );
1445: END IF;
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
1529: ( g_pkg_name
1530: , 'Build_Hash_String'
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
1529: ( g_pkg_name
1530: , 'Build_Hash_String'
1531: );
1532: END IF;
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
1823: ( g_pkg_name
1824: , 'New_Tree'
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
1823: ( g_pkg_name
1824: , 'New_Tree'
1825: );
1826: END IF;
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
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
1918: --check for error cases
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;
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;
1928: else -- internal error - not fault of user
1929: fnd_message.set_name('INV','INV_LOCK_TREE_ERROR');
1930: fnd_msg_pub.ADD;
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;
1932: end if;
1933: END IF;
1934:
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
1953: ( g_pkg_name
1954: , 'Lock_Tree'
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
1953: ( g_pkg_name
1954: , 'Lock_Tree'
1955: );
1956: END IF;
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
2000: IF (p_organization_id IS NULL OR
2000: IF (p_organization_id IS NULL OR
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:
2017: --if success (status = 0) or session does not own lock (status=4), do nothing
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 ...');
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
2045: ( g_pkg_name
2046: , 'Release_Lock'
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
2045: ( g_pkg_name
2046: , 'Release_Lock'
2047: );
2048: END IF;
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
2271: ( g_pkg_name
2272: , 'Find_Rootinfo'
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
2271: ( g_pkg_name
2272: , 'Find_Rootinfo'
2273: );
2274: END IF;
2312: AND p_cost_group_id IS NULL
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:
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)
2389: THEN
2390: fnd_msg_pub.add_exc_msg
2391: ( g_pkg_name
2392: , 'Find_Child_Node'
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)
2389: THEN
2390: fnd_msg_pub.add_exc_msg
2391: ( g_pkg_name
2392: , 'Find_Child_Node'
2393: );
2394: END IF;
2451:
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
2505:
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
2558:
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
2611:
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
2664:
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
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
2740: fnd_msg_pub.add_exc_msg
2741: ( g_pkg_name
2742: , 'Find_Tree_Node'
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
2740: fnd_msg_pub.add_exc_msg
2741: ( g_pkg_name
2742: , 'Find_Tree_Node'
2743: );
2744: END IF;
2846: AND p_quantity_type <> g_qs_txn THEN
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;
2877:
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
2903: AND g_nodes(l_node_index).node_level <> g_lpn_level
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.
3486: AND g_nodes(l_node_index).node_level <> g_sub_level
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
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
4263: ( g_pkg_name
4264: , 'Add_Quantities'
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
4263: ( g_pkg_name
4264: , 'Add_Quantities'
4265: ,9);
4266: END IF;
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
8957: ( g_pkg_name
8958: , 'Build_Tree'
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
8957: ( g_pkg_name
8958: , 'Build_Tree'
8959: );
8960: END IF;
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
9050: ( g_pkg_name
9051: , 'Check_Node_Violation'
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
9050: ( g_pkg_name
9051: , 'Check_Node_Violation'
9052: );
9053: END IF;
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
9554: ,'Add_Demand_Qty'
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
9554: ,'Add_Demand_Qty'
9555: );
9556: END IF;
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
9618: ,'Subtract_Demand_Qty'
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
9618: ,'Subtract_Demand_Qty'
9619: );
9620: END IF;
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;
9853: -- check if tree id is valid
9853: -- check if tree id is valid
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
9945:
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;
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
10491: , p_data => x_msg_data
10492: );
10493:
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
10501: , p_data => x_msg_data
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
10511: ( g_pkg_name
10512: , l_api_name
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
10511: ( g_pkg_name
10512: , l_api_name
10513: );
10514: END IF;
10513: );
10514: END IF;
10515:
10516: -- Get message count and data
10517: fnd_msg_pub.count_and_get
10518: ( p_count => x_msg_count
10519: , p_data => x_msg_data
10520: );
10521: END query_tree;
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
10668: );
10669: WHEN fnd_api.g_exc_unexpected_error THEN
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
10675: , p_data => x_msg_data
10676: );
10677: WHEN OTHERS THEN
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
10683: , l_api_name
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
10683: , l_api_name
10684: );
10685: END IF;
10683: , l_api_name
10684: );
10685: END IF;
10686: -- Get message count and data
10687: fnd_msg_pub.count_and_get
10688: ( p_count => x_msg_count
10689: , p_data => x_msg_data
10690: );
10691: END query_tree;
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);
10903:
10907: -- validate demand source info
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
10914:
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:
10922:
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:
10945: -- The item doesn't exist under this organization.
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)
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
11113: , p_data => x_msg_data
11114: );
11115:
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
11123: , p_data => x_msg_data
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
11133: ( g_pkg_name
11134: , l_api_name
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
11133: ( g_pkg_name
11134: , l_api_name
11135: );
11136: END IF;
11135: );
11136: END IF;
11137:
11138: -- Get message count and data
11139: fnd_msg_pub.count_and_get
11140: ( p_count => x_msg_count
11141: , p_data => x_msg_data
11142: );
11143:
11497:
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);
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
11593: , p_data => x_msg_data);
11594:
11595: WHEN fnd_api.g_exc_unexpected_error THEN
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
11601: , p_data => x_msg_data);
11602:
11603: WHEN OTHERS THEN
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
11609: fnd_msg_pub.add_exc_msg
11610: ( g_pkg_name
11611: , 'get_total_qoh');
11605:
11606:
11607: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11608: THEN
11609: fnd_msg_pub.add_exc_msg
11610: ( g_pkg_name
11611: , 'get_total_qoh');
11612: END IF;
11613: -- Get message count and data
11610: ( g_pkg_name
11611: , 'get_total_qoh');
11612: END IF;
11613: -- Get message count and data
11614: fnd_msg_pub.count_and_get
11615: ( p_count => x_msg_count
11616: , p_data => x_msg_data);
11617: END get_total_qoh;
11618:
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
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:
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
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:
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
11775: ( g_pkg_name
11776: , l_api_name
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
11775: ( g_pkg_name
11776: , l_api_name
11777: );
11778: END IF;
11777: );
11778: END IF;
11779:
11780: -- Get message count and data
11781: fnd_msg_pub.count_and_get
11782: ( p_count => x_msg_count
11783: , p_data => x_msg_data
11784: );
11785:
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;
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
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:
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
11905: ( g_pkg_name
11906: , l_api_name
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
11905: ( g_pkg_name
11906: , l_api_name
11907: );
11908: END IF;
11907: );
11908: END IF;
11909:
11910: -- Get message count and data
11911: fnd_msg_pub.count_and_get
11912: ( p_count => x_msg_count
11913: , p_data => x_msg_data
11914: );
11915:
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
11983: l_root_id := g_all_roots(l_loop_index).root_id;
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
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:
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
12074: ( g_pkg_name
12075: , l_api_name
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
12074: ( g_pkg_name
12075: , l_api_name
12076: );
12077: END IF;
12076: );
12077: END IF;
12078:
12079: -- Get message count and data
12080: fnd_msg_pub.count_and_get
12081: ( p_count => x_msg_count
12082: , p_data => x_msg_data
12083: );
12084:
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;
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
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:
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
12164: ( g_pkg_name
12165: , l_api_name
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
12164: ( g_pkg_name
12165: , l_api_name
12166: );
12167: END IF;
12166: );
12167: END IF;
12168:
12169: -- Get message count and data
12170: fnd_msg_pub.count_and_get
12171: ( p_count => x_msg_count
12172: , p_data => x_msg_data
12173: );
12174:
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;
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
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:
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
12283: ( g_pkg_name
12284: , l_api_name
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
12283: ( g_pkg_name
12284: , l_api_name
12285: );
12286: END IF;
12285: );
12286: END IF;
12287:
12288: -- Get message count and data
12289: fnd_msg_pub.count_and_get
12290: ( p_count => x_msg_count
12291: , p_data => x_msg_data
12292: );
12293:
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
12347: l_root_id := g_all_roots(l_loop_index).root_id;
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
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:
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
12395: ( g_pkg_name
12396: , l_api_name
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
12395: ( g_pkg_name
12396: , l_api_name
12397: );
12398: END IF;
12397: );
12398: END IF;
12399:
12400: -- Get message count and data
12401: fnd_msg_pub.count_and_get
12402: ( p_count => x_msg_count
12403: , p_data => x_msg_data
12404: );
12405:
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
12465: l_root_id := g_all_roots(l_loop_index).root_id;
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
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:
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
12498: ( g_pkg_name
12499: , l_api_name
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
12498: ( g_pkg_name
12499: , l_api_name
12500: );
12501: END IF;
12500: );
12501: END IF;
12502:
12503: -- Get message count and data
12504: fnd_msg_pub.count_and_get
12505: ( p_count => x_msg_count
12506: , p_data => x_msg_data
12507: );
12508:
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;
12669: -- check if tree id is valid
12669: -- check if tree id is valid
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||'.');
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
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:
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
12774: ( g_pkg_name
12775: , l_api_name
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
12774: ( g_pkg_name
12775: , l_api_name
12776: );
12777: END IF;
12776: );
12777: END IF;
12778:
12779: -- Get message count and data
12780: fnd_msg_pub.count_and_get
12781: ( p_count => x_msg_count
12782: , p_data => x_msg_data
12783: );
12784:
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;
12955:
12956: -- check if tree id is valid
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
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
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:
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
13068: ( g_pkg_name
13069: , l_api_name
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
13068: ( g_pkg_name
13069: , l_api_name
13070: );
13071: END IF;
13070: );
13071: END IF;
13072:
13073: -- Get message count and data
13074: fnd_msg_pub.count_and_get
13075: ( p_count => x_msg_count
13076: , p_data => x_msg_data
13077: );
13078:
13126: l_root_id := g_demand_info(p_tree_id).root_id;
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);
13217: l_root_id := g_demand_info(p_tree_id).root_id;
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);
13309: l_root_id := g_demand_info(p_tree_id).root_id;
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;