1157: -- dbms_output.put_line(Sqlerrm);
1158: -- dbms_output.put_line('start');
1159: -- inv_ppcommon_pvt.showsql(l_sql);
1160: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1161: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1162: THEN
1163: fnd_msg_pub.add_exc_msg
1164: ( g_pkg_name
1165: , 'Build_Cursor'
1159: -- inv_ppcommon_pvt.showsql(l_sql);
1160: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1161: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1162: THEN
1163: fnd_msg_pub.add_exc_msg
1164: ( g_pkg_name
1165: , 'Build_Cursor'
1166: );
1167: END IF;
1592:
1593: WHEN OTHERS THEN
1594: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1595:
1596: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1597: THEN
1598: fnd_msg_pub.add_exc_msg
1599: ( g_pkg_name
1600: , 'Zero_Tree_Node'
1594: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1595:
1596: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1597: THEN
1598: fnd_msg_pub.add_exc_msg
1599: ( g_pkg_name
1600: , 'Zero_Tree_Node'
1601: );
1602: END IF;
1633:
1634: WHEN OTHERS THEN
1635: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1636:
1637: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1638: THEN
1639: fnd_msg_pub.add_exc_msg
1640: ( g_pkg_name
1641: , 'Zero_Tree'
1635: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1636:
1637: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1638: THEN
1639: fnd_msg_pub.add_exc_msg
1640: ( g_pkg_name
1641: , 'Zero_Tree'
1642: );
1643: END IF;
1717:
1718: WHEN OTHERS THEN
1719: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1720:
1721: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1722: THEN
1723: fnd_msg_pub.add_exc_msg
1724: ( g_pkg_name
1725: , 'New_Tree_Node'
1719: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1720:
1721: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1722: THEN
1723: fnd_msg_pub.add_exc_msg
1724: ( g_pkg_name
1725: , 'New_Tree_Node'
1726: );
1727: END IF;
1804: EXCEPTION
1805: WHEN OTHERS THEN
1806: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1807:
1808: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1809: THEN
1810: fnd_msg_pub.add_exc_msg
1811: ( g_pkg_name
1812: , 'Build_Hash_String'
1806: x_return_status := fnd_api.g_ret_sts_unexp_error ;
1807:
1808: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
1809: THEN
1810: fnd_msg_pub.add_exc_msg
1811: ( g_pkg_name
1812: , 'Build_Hash_String'
1813: );
1814: END IF;
2071:
2072: WHEN OTHERS THEN
2073: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2074:
2075: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2076: THEN
2077: fnd_msg_pub.add_exc_msg
2078: ( g_pkg_name
2079: , 'New_Tree'
2073: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2074:
2075: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2076: THEN
2077: fnd_msg_pub.add_exc_msg
2078: ( g_pkg_name
2079: , 'New_Tree'
2080: );
2081: END IF;
2143: END IF;
2144:
2145: -- Initialize message list.
2146: IF fnd_api.to_boolean(p_init_msg_lst) THEN
2147: fnd_msg_pub.initialize;
2148: END IF;
2149:
2150: --validate organization and inventory item
2151: IF (p_organization_id IS NULL OR p_inventory_item_id IS NULL) THEN
2150: --validate organization and inventory item
2151: IF (p_organization_id IS NULL OR p_inventory_item_id IS NULL) THEN
2152: --raise error condition
2153: fnd_message.set_name('INV','INV_LOCK_MISSING_ARGS');
2154: fnd_msg_pub.ADD;
2155: RAISE fnd_api.g_exc_error;
2156: END IF;
2157:
2158: IF g_lock_timeout IS NULL THEN
2173: --check for error cases
2174: IF (l_status NOT IN (0,4)) THEN
2175: if (l_status = 1) then -- timeout
2176: fnd_message.set_name('INV','INV_LOCK_TREE_TIMEOUT');
2177: fnd_msg_pub.ADD;
2178: RAISE fnd_api.g_exc_error;
2179: elsif (l_status = 2) then -- deadlock
2180: fnd_message.set_name('INV','INV_LOCK_TREE_DEADLOCK');
2181: fnd_msg_pub.ADD;
2177: fnd_msg_pub.ADD;
2178: RAISE fnd_api.g_exc_error;
2179: elsif (l_status = 2) then -- deadlock
2180: fnd_message.set_name('INV','INV_LOCK_TREE_DEADLOCK');
2181: fnd_msg_pub.ADD;
2182: RAISE fnd_api.g_exc_error;
2183: else -- internal error - not fault of user
2184: fnd_message.set_name('INV','INV_LOCK_TREE_ERROR');
2185: fnd_msg_pub.ADD;
2181: fnd_msg_pub.ADD;
2182: RAISE fnd_api.g_exc_error;
2183: else -- internal error - not fault of user
2184: fnd_message.set_name('INV','INV_LOCK_TREE_ERROR');
2185: fnd_msg_pub.ADD;
2186: RAISE fnd_api.g_exc_error;
2187: end if;
2188: END IF;
2189:
2201:
2202: WHEN OTHERS THEN
2203: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2204:
2205: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2206: THEN
2207: fnd_msg_pub.add_exc_msg
2208: ( g_pkg_name
2209: , 'Lock_Tree'
2203: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2204:
2205: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2206: THEN
2207: fnd_msg_pub.add_exc_msg
2208: ( g_pkg_name
2209: , 'Lock_Tree'
2210: );
2211: END IF;
2247: END IF;
2248:
2249: -- Initialize message list.
2250: IF fnd_api.to_boolean(p_init_msg_lst) THEN
2251: fnd_msg_pub.initialize;
2252: END IF;
2253:
2254: --validate organization and inventory item
2255: IF (p_organization_id IS NULL OR
2255: IF (p_organization_id IS NULL OR
2256: p_inventory_item_id IS NULL) THEN
2257: --raise error condition
2258: fnd_message.set_name('INV','INV_LOCK_RELEASE_MISSING_ARGS');
2259: fnd_msg_pub.ADD;
2260: RAISE fnd_api.g_exc_error;
2261: END IF;
2262:
2263:
2272: --if success (status = 0) or session does not own lock (status=4), do nothing
2273: --if parameter error or illegal lock handle (internal error)
2274: if l_status IN (3,5) THEN
2275: fnd_message.set_name('INV','INV_LOCK_RELEASE_ERROR');
2276: fnd_msg_pub.ADD;
2277: RAISE fnd_api.g_exc_error;
2278: end if;
2279:
2280: print_debug('... Normal end of release_lock ...');
2293: WHEN OTHERS THEN
2294: print_debug('... release_lock others='||SQLERRM, 9);
2295: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2296:
2297: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2298: THEN
2299: fnd_msg_pub.add_exc_msg
2300: ( g_pkg_name
2301: , 'Release_Lock'
2295: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2296:
2297: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2298: THEN
2299: fnd_msg_pub.add_exc_msg
2300: ( g_pkg_name
2301: , 'Release_Lock'
2302: );
2303: END IF;
2397:
2398: WHEN OTHERS THEN
2399: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2400:
2401: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2402: THEN
2403: fnd_msg_pub.add_exc_msg
2404: ( g_pkg_name
2405: , 'Check_Is_Reservable_SUB'
2399: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2400:
2401: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2402: THEN
2403: fnd_msg_pub.add_exc_msg
2404: ( g_pkg_name
2405: , 'Check_Is_Reservable_SUB'
2406: );
2407: END IF;
2453:
2454: WHEN OTHERS THEN
2455: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2456:
2457: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2458: THEN
2459: fnd_msg_pub.add_exc_msg
2460: ( g_pkg_name
2461: , 'Check_Is_Reservable_item'
2455: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2456:
2457: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2458: THEN
2459: fnd_msg_pub.add_exc_msg
2460: ( g_pkg_name
2461: , 'Check_Is_Reservable_item'
2462: );
2463: END IF;
2786: WHEN OTHERS THEN
2787: print_debug('in check_is_reservable, OTHERS Error='||SQLERRM, 9);
2788: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2789:
2790: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2791: THEN
2792: fnd_msg_pub.add_exc_msg
2793: ( g_pkg_name
2794: , 'Check_Is_Reservable'
2788: x_return_status := fnd_api.g_ret_sts_unexp_error ;
2789:
2790: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
2791: THEN
2792: fnd_msg_pub.add_exc_msg
2793: ( g_pkg_name
2794: , 'Check_Is_Reservable'
2795: );
2796: END IF;
3090: EXCEPTION
3091: WHEN OTHERS THEN
3092: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3093: print_debug('odab in find_rootinfo OTHERS='||SQLERRM, 9);
3094: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3095: THEN
3096: fnd_msg_pub.add_exc_msg
3097: ( g_pkg_name
3098: , 'Find_Rootinfo'
3092: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3093: print_debug('odab in find_rootinfo OTHERS='||SQLERRM, 9);
3094: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3095: THEN
3096: fnd_msg_pub.add_exc_msg
3097: ( g_pkg_name
3098: , 'Find_Rootinfo'
3099: );
3100: END IF;
3138: AND p_cost_group_id IS NULL
3139: THEN
3140: fnd_message.set_name('INV','INV-Cannot find node');
3141: fnd_message.set_token('ROUTINE', 'Find_Child_Node');
3142: fnd_msg_pub.ADD;
3143: RAISE fnd_api.g_exc_error;
3144: END IF;
3145:
3146:
3210: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3211:
3212: -- For performance reasons during pick release only do this ifdebug is on
3213: IF ((NOT g_is_pickrelease) OR nvl(g_debug,2) = 1) THEN
3214: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3215: THEN
3216: fnd_msg_pub.add_exc_msg
3217: ( g_pkg_name
3218: , 'Find_Child_Node'
3212: -- For performance reasons during pick release only do this ifdebug is on
3213: IF ((NOT g_is_pickrelease) OR nvl(g_debug,2) = 1) THEN
3214: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3215: THEN
3216: fnd_msg_pub.add_exc_msg
3217: ( g_pkg_name
3218: , 'Find_Child_Node'
3219: );
3220: END IF;
3282: *
3283: * IF l_found = FALSE THEN
3284: * fnd_message.set_name('INV','INV-Cannot find node');
3285: * fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
3286: * fnd_msg_pub.ADD;
3287: * RAISE fnd_api.g_exc_unexpected_error;
3288: * End IF;
3289: *
3290: * l_child_node_index := l_current_node_index;
3322:
3323: IF l_found = FALSE THEN
3324: fnd_message.set_name('INV','INV-Cannot find node');
3325: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
3326: fnd_msg_pub.ADD;
3327: RAISE fnd_api.g_exc_unexpected_error;
3328: End IF;
3329:
3330: IF l_child_node_index <> 0 THEN
3376:
3377: IF l_found = FALSE THEN
3378: fnd_message.set_name('INV','INV-Cannot find node');
3379: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
3380: fnd_msg_pub.ADD;
3381: RAISE fnd_api.g_exc_unexpected_error;
3382: End IF;
3383:
3384: If l_child_node_index <> 0 Then
3429:
3430: IF l_found = FALSE THEN
3431: fnd_message.set_name('INV','INV-Cannot find node');
3432: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
3433: fnd_msg_pub.ADD;
3434: RAISE fnd_api.g_exc_unexpected_error;
3435: End IF;
3436:
3437: If l_child_node_index <> 0 Then
3482:
3483: IF l_found = FALSE THEN
3484: fnd_message.set_name('INV','INV-Cannot find node');
3485: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
3486: fnd_msg_pub.ADD;
3487: RAISE fnd_api.g_exc_unexpected_error;
3488: End IF;
3489:
3490: If l_child_node_index <> 0 Then
3535:
3536: IF l_found = FALSE THEN
3537: fnd_message.set_name('INV','INV-Cannot find node');
3538: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
3539: fnd_msg_pub.ADD;
3540: RAISE fnd_api.g_exc_unexpected_error;
3541: End IF;
3542:
3543: If l_child_node_index <> 0 Then
3600: WHEN OTHERS THEN
3601: x_return_status := fnd_api.g_ret_sts_unexp_error ;
3602:
3603: IF ((NOT g_is_pickrelease) OR nvl(g_debug,2) = 1) THEN
3604: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3605: THEN
3606: fnd_msg_pub.add_exc_msg
3607: ( g_pkg_name
3608: , 'Find_Tree_Node'
3602:
3603: IF ((NOT g_is_pickrelease) OR nvl(g_debug,2) = 1) THEN
3604: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
3605: THEN
3606: fnd_msg_pub.add_exc_msg
3607: ( g_pkg_name
3608: , 'Find_Tree_Node'
3609: );
3610: END IF;
3888: AND p_quantity_type <> g_qs_txn THEN
3889: -- invalid p_quantity_type. the caller's fault
3890: print_debug('... error=INVALID_QUANTITY_TYPE');
3891: fnd_message.set_name('INV', 'INV-INVALID_QUANTITY_TYPE');
3892: fnd_msg_pub.ADD;
3893: RAISE fnd_api.g_exc_error;
3894: END IF;
3895:
3896: l_hash_base := 1;
3935:
3936: IF l_found = FALSE THEN
3937: fnd_message.set_name('INV','INV-Cannot find node');
3938: fnd_message.set_token('ROUTINE', 'Add_Quantities');
3939: fnd_msg_pub.ADD;
3940: RAISE fnd_api.g_exc_unexpected_error;
3941: End IF;
3942:
3943: -- get tree mode
3961: AND g_nodes(l_node_index).node_level <> g_lpn_level
3962: THEN
3963: print_debug('... error=INV-WRONG_LEVEL');
3964: fnd_message.set_name('INV', 'INV-WRONG_LEVEL');
3965: fnd_msg_pub.ADD;
3966: RAISE fnd_api.g_exc_error;
3967: End IF;
3968:
3969: -- need to find out whether the sub is reservable or not
4426: AND g_nodes(l_node_index).node_level <> g_sub_level
4427: AND g_nodes(l_node_index).node_level <> g_lpn_level
4428: THEN
4429: fnd_message.set_name('INV', 'INV-WRONG_LEVEL');
4430: fnd_msg_pub.ADD;
4431: RAISE fnd_api.g_exc_error;
4432: End IF;
4433:
4434: -- need to find out whether the sub is reservable or not
5076: WHEN OTHERS THEN
5077: print_debug('in add_quantities... OTHERS ERROR sql='||SQLERRM,9);
5078: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5079:
5080: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
5081: THEN
5082: fnd_msg_pub.add_exc_msg
5083: ( g_pkg_name
5084: , 'Add_Quantities'
5078: x_return_status := fnd_api.g_ret_sts_unexp_error ;
5079:
5080: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
5081: THEN
5082: fnd_msg_pub.add_exc_msg
5083: ( g_pkg_name
5084: , 'Add_Quantities'
5085: ,9);
5086: END IF;
8582: WHEN OTHERS THEN
8583: print_debug('build_tree: others='||sqlerrm,9);
8584: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8585:
8586: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8587: THEN
8588: fnd_msg_pub.add_exc_msg
8589: ( g_pkg_name
8590: , 'Build_Tree'
8584: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8585:
8586: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8587: THEN
8588: fnd_msg_pub.add_exc_msg
8589: ( g_pkg_name
8590: , 'Build_Tree'
8591: );
8592: END IF;
8675:
8676: WHEN OTHERS THEN
8677: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8678:
8679: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8680: THEN
8681: fnd_msg_pub.add_exc_msg
8682: ( g_pkg_name
8683: , 'Check_Node_Violation'
8677: x_return_status := fnd_api.g_ret_sts_unexp_error ;
8678:
8679: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
8680: THEN
8681: fnd_msg_pub.add_exc_msg
8682: ( g_pkg_name
8683: , 'Check_Node_Violation'
8684: );
8685: END IF;
9178: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9179:
9180: WHEN OTHERS THEN
9181: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9182: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9183: THEN
9184: fnd_msg_pub.add_exc_msg
9185: ( g_pkg_name
9186: ,'Add_Demand_Qty'
9180: WHEN OTHERS THEN
9181: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9182: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9183: THEN
9184: fnd_msg_pub.add_exc_msg
9185: ( g_pkg_name
9186: ,'Add_Demand_Qty'
9187: );
9188: END IF;
9242: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9243:
9244: WHEN OTHERS THEN
9245: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9246: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9247: THEN
9248: fnd_msg_pub.add_exc_msg
9249: ( g_pkg_name
9250: ,'Subtract_Demand_Qty'
9244: WHEN OTHERS THEN
9245: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9246: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9247: THEN
9248: fnd_msg_pub.add_exc_msg
9249: ( g_pkg_name
9250: ,'Subtract_Demand_Qty'
9251: );
9252: END IF;
9487: END IF;
9488:
9489: -- Initialize message list.
9490: IF fnd_api.to_boolean(p_init_msg_lst) THEN
9491: fnd_msg_pub.initialize;
9492: END IF;
9493:
9494: l_root_id := g_demand_info(p_tree_id).root_id;
9495: -- check if tree id is valid
9495: -- check if tree id is valid
9496: IF is_tree_valid(l_root_id) = FALSE THEN
9497: fnd_message.set_name('INV', 'INV-Qtyroot not found');
9498: fnd_message.set_token('ROUTINE', 'Query_Tree');
9499: fnd_msg_pub.ADD;
9500: RAISE fnd_api.g_exc_error;
9501: END IF;
9502:
9503: print_debug('>>>>>> In query_tree, mode='||g_demand_info(p_tree_id).tree_mode||', tree_id='||p_tree_id
9597:
9598: IF l_found = FALSE THEN
9599: fnd_message.set_name('INV','INV-Cannot find node');
9600: fnd_message.set_token('ROUTINE', 'Query_Tree');
9601: fnd_msg_pub.ADD;
9602: RAISE fnd_api.g_exc_unexpected_error;
9603: End IF;
9604:
9605: x_qoh := g_nodes(l_node_index).qoh;
9934: print_debug('QT: ending... g_exc_error'||SQLERRM,9);
9935: x_return_status := fnd_api.g_ret_sts_error;
9936:
9937: -- Get message count and data
9938: fnd_msg_pub.count_and_get
9939: ( p_count => x_msg_count
9940: , p_data => x_msg_data
9941: );
9942:
9944: print_debug('QT: ending... g_exc_unexpected_error '||SQLERRM,9);
9945: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9946:
9947: -- Get message count and data
9948: fnd_msg_pub.count_and_get
9949: ( p_count => x_msg_count
9950: , p_data => x_msg_data
9951: );
9952:
9953: WHEN OTHERS THEN
9954: print_debug('QT: ending... OTHERS.'||SQLERRM,9);
9955: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9956:
9957: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9958: THEN
9959: fnd_msg_pub.add_exc_msg
9960: ( g_pkg_name
9961: , l_api_name
9955: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9956:
9957: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9958: THEN
9959: fnd_msg_pub.add_exc_msg
9960: ( g_pkg_name
9961: , l_api_name
9962: );
9963: END IF;
9962: );
9963: END IF;
9964:
9965: -- Get message count and data
9966: fnd_msg_pub.count_and_get
9967: ( p_count => x_msg_count
9968: , p_data => x_msg_data
9969: );
9970: END query_tree;
10112: EXCEPTION
10113: WHEN fnd_api.g_exc_error THEN
10114: x_return_status := fnd_api.g_ret_sts_error;
10115: -- Get message count and data
10116: fnd_msg_pub.count_and_get
10117: ( p_count => x_msg_count
10118: , p_data => x_msg_data
10119: );
10120: WHEN fnd_api.g_exc_unexpected_error THEN
10120: WHEN fnd_api.g_exc_unexpected_error THEN
10121: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10122:
10123: -- Get message count and data
10124: fnd_msg_pub.count_and_get
10125: ( p_count => x_msg_count
10126: , p_data => x_msg_data
10127: );
10128: WHEN OTHERS THEN
10126: , p_data => x_msg_data
10127: );
10128: WHEN OTHERS THEN
10129: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10130: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
10131: THEN
10132: fnd_msg_pub.add_exc_msg
10133: ( g_pkg_name
10134: , l_api_name
10128: WHEN OTHERS THEN
10129: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10130: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
10131: THEN
10132: fnd_msg_pub.add_exc_msg
10133: ( g_pkg_name
10134: , l_api_name
10135: );
10136: END IF;
10134: , l_api_name
10135: );
10136: END IF;
10137: -- Get message count and data
10138: fnd_msg_pub.count_and_get
10139: ( p_count => x_msg_count
10140: , p_data => x_msg_data
10141: );
10142: END query_tree;
10379: END IF;
10380:
10381: -- Initialize message list.
10382: IF fnd_api.to_boolean(p_init_msg_lst) THEN
10383: fnd_msg_pub.initialize;
10384: END IF;
10385:
10386: g_is_pickrelease := nvl(inv_cache.is_pickrelease,FALSE);
10387:
10397: ||', p_demand_source_line_id='||p_demand_source_line_id);
10398: IF p_tree_mode IN (g_transaction_mode, g_loose_only_mode) THEN
10399: IF p_demand_source_type_id IS NULL THEN
10400: fnd_message.set_name('INV', 'INV-MISSING DEMAND SOURCE TYPE');
10401: fnd_msg_pub.ADD;
10402: RAISE fnd_api.g_exc_error;
10403: END IF;
10404:
10405: IF p_demand_source_header_id IS NULL THEN
10404:
10405: IF p_demand_source_header_id IS NULL THEN
10406: IF p_demand_source_name IS NULL THEN
10407: fnd_message.set_name('INV', 'INV-MISSING DEMAND SRC HEADER');
10408: fnd_msg_pub.ADD;
10409: RAISE fnd_api.g_exc_error;
10410: END IF;
10411: END IF;
10412:
10412:
10413: IF p_demand_source_header_id IS NULL
10414: AND p_demand_source_line_id IS NOT NULL THEN
10415: fnd_message.set_name('INV', 'INV-MISSING DEMAND SRC HEADER');
10416: fnd_msg_pub.ADD;
10417: RAISE fnd_api.g_exc_error;
10418: END IF;
10419: END IF;
10420:
10436: -- The item doesn't exist under this organization.
10437: FND_MESSAGE.SET_NAME('INV', 'ITEM_NOTFOUND');
10438: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
10439: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
10440: FND_MSG_PUB.ADD;
10441: RAISE FND_API.G_EXC_ERROR;
10442: END IF;
10443: -- invConv comment : g_is_mat_status_used = 1 == Material Status is USED
10444: IF (inv_quantity_tree_pvt.g_is_mat_status_used = 1 AND l_lot_control = 2)
10608: print_debug(' CreateTree ending with g_exc_error.'||SQLERRM,9);
10609: x_return_status := fnd_api.g_ret_sts_error;
10610:
10611: -- Get message count and data
10612: fnd_msg_pub.count_and_get
10613: ( p_count => x_msg_count
10614: , p_data => x_msg_data
10615: );
10616:
10618: print_debug(' CreateTree ending with g_exc_unexpected_error.'||SQLERRM,9);
10619: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10620:
10621: -- Get message count and data
10622: fnd_msg_pub.count_and_get
10623: ( p_count => x_msg_count
10624: , p_data => x_msg_data
10625: );
10626:
10627: WHEN OTHERS THEN
10628: print_debug(' CreateTree ending with OTHERS.'||SQLERRM,9);
10629: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10630:
10631: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
10632: THEN
10633: fnd_msg_pub.add_exc_msg
10634: ( g_pkg_name
10635: , l_api_name
10629: x_return_status := fnd_api.g_ret_sts_unexp_error ;
10630:
10631: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
10632: THEN
10633: fnd_msg_pub.add_exc_msg
10634: ( g_pkg_name
10635: , l_api_name
10636: );
10637: END IF;
10636: );
10637: END IF;
10638:
10639: -- Get message count and data
10640: fnd_msg_pub.count_and_get
10641: ( p_count => x_msg_count
10642: , p_data => x_msg_data
10643: );
10644:
10977:
10978: IF l_found = FALSE THEN
10979: fnd_message.set_name('INV','INV-Cannot find node');
10980: fnd_message.set_token('ROUTINE', 'Find_Tree_Node');
10981: fnd_msg_pub.ADD;
10982: RAISE fnd_api.g_exc_unexpected_error;
10983: End IF;
10984:
10985: print_debug('get_total_qoh: node found... node_index='||l_node_index||' level='||g_nodes(l_node_index).node_level||'<>'||g_item_level);
11069: WHEN fnd_api.g_exc_error THEN
11070: x_return_status := fnd_api.g_ret_sts_error;
11071:
11072: -- Get message count and data
11073: fnd_msg_pub.count_and_get
11074: ( p_count => x_msg_count
11075: , p_data => x_msg_data);
11076:
11077: WHEN fnd_api.g_exc_unexpected_error THEN
11077: WHEN fnd_api.g_exc_unexpected_error THEN
11078: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11079:
11080: -- Get message count and data
11081: fnd_msg_pub.count_and_get
11082: ( p_count => x_msg_count
11083: , p_data => x_msg_data);
11084:
11085: WHEN OTHERS THEN
11085: WHEN OTHERS THEN
11086: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11087:
11088:
11089: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11090: THEN
11091: fnd_msg_pub.add_exc_msg
11092: ( g_pkg_name
11093: , 'get_total_qoh');
11087:
11088:
11089: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11090: THEN
11091: fnd_msg_pub.add_exc_msg
11092: ( g_pkg_name
11093: , 'get_total_qoh');
11094: END IF;
11095: -- Get message count and data
11092: ( g_pkg_name
11093: , 'get_total_qoh');
11094: END IF;
11095: -- Get message count and data
11096: fnd_msg_pub.count_and_get
11097: ( p_count => x_msg_count
11098: , p_data => x_msg_data);
11099: END get_total_qoh;
11100:
11145: END IF;
11146:
11147: -- Initialize message list.
11148: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11149: fnd_msg_pub.initialize;
11150: END IF;
11151:
11152: -- check if tree id is valid
11153: IF is_tree_valid(p_tree_id) = FALSE THEN
11152: -- check if tree id is valid
11153: IF is_tree_valid(p_tree_id) = FALSE THEN
11154: fnd_message.set_name('INV', 'INV-Qtyroot not found');
11155: fnd_message.set_token('ROUTINE', 'Do_Check');
11156: fnd_msg_pub.ADD;
11157: RAISE fnd_api.g_exc_unexpected_error;
11158: END IF;
11159:
11160:
11233: WHEN fnd_api.g_exc_error THEN
11234: x_return_status := fnd_api.g_ret_sts_error;
11235:
11236: -- Get message count and data
11237: fnd_msg_pub.count_and_get
11238: ( p_count => x_msg_count
11239: , p_data => x_msg_data
11240: );
11241:
11242: WHEN fnd_api.g_exc_unexpected_error THEN
11243: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11244:
11245: -- Get message count and data
11246: fnd_msg_pub.count_and_get
11247: ( p_count => x_msg_count
11248: , p_data => x_msg_data
11249: );
11250:
11250:
11251: WHEN OTHERS THEN
11252: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11253:
11254: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11255: THEN
11256: fnd_msg_pub.add_exc_msg
11257: ( g_pkg_name
11258: , l_api_name
11252: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11253:
11254: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11255: THEN
11256: fnd_msg_pub.add_exc_msg
11257: ( g_pkg_name
11258: , l_api_name
11259: );
11260: END IF;
11259: );
11260: END IF;
11261:
11262: -- Get message count and data
11263: fnd_msg_pub.count_and_get
11264: ( p_count => x_msg_count
11265: , p_data => x_msg_data
11266: );
11267:
11319: END IF;
11320:
11321: -- Initialize message list.
11322: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11323: fnd_msg_pub.initialize;
11324: END IF;
11325:
11326: --call do_check on the base tree
11327: l_root_id := g_demand_info(p_tree_id).root_id;
11363: WHEN fnd_api.g_exc_error THEN
11364: x_return_status := fnd_api.g_ret_sts_error;
11365:
11366: -- Get message count and data
11367: fnd_msg_pub.count_and_get
11368: ( p_count => x_msg_count
11369: , p_data => x_msg_data
11370: );
11371:
11372: WHEN fnd_api.g_exc_unexpected_error THEN
11373: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11374:
11375: -- Get message count and data
11376: fnd_msg_pub.count_and_get
11377: ( p_count => x_msg_count
11378: , p_data => x_msg_data
11379: );
11380:
11380:
11381: WHEN OTHERS THEN
11382: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11383:
11384: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11385: THEN
11386: fnd_msg_pub.add_exc_msg
11387: ( g_pkg_name
11388: , l_api_name
11382: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11383:
11384: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11385: THEN
11386: fnd_msg_pub.add_exc_msg
11387: ( g_pkg_name
11388: , l_api_name
11389: );
11390: END IF;
11389: );
11390: END IF;
11391:
11392: -- Get message count and data
11393: fnd_msg_pub.count_and_get
11394: ( p_count => x_msg_count
11395: , p_data => x_msg_data
11396: );
11397:
11457: END IF;
11458:
11459: -- Initialize message list.
11460: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11461: fnd_msg_pub.initialize;
11462: END IF;
11463:
11464: for l_loop_index IN 1..g_all_roots_counter LOOP
11465: l_root_id := g_all_roots(l_loop_index).root_id;
11564: WHEN fnd_api.g_exc_error THEN
11565: x_return_status := fnd_api.g_ret_sts_error;
11566:
11567: -- Get message count and data
11568: fnd_msg_pub.count_and_get
11569: ( p_count => x_msg_count
11570: , p_data => x_msg_data
11571: );
11572:
11573: WHEN fnd_api.g_exc_unexpected_error THEN
11574: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11575:
11576: -- Get message count and data
11577: fnd_msg_pub.count_and_get
11578: ( p_count => x_msg_count
11579: , p_data => x_msg_data
11580: );
11581:
11581:
11582: WHEN OTHERS THEN
11583: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11584:
11585: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11586: THEN
11587: fnd_msg_pub.add_exc_msg
11588: ( g_pkg_name
11589: , l_api_name
11583: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11584:
11585: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11586: THEN
11587: fnd_msg_pub.add_exc_msg
11588: ( g_pkg_name
11589: , l_api_name
11590: );
11591: END IF;
11590: );
11591: END IF;
11592:
11593: -- Get message count and data
11594: fnd_msg_pub.count_and_get
11595: ( p_count => x_msg_count
11596: , p_data => x_msg_data
11597: );
11598:
11642: END IF;
11643:
11644: -- Initialize message list.
11645: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11646: fnd_msg_pub.initialize;
11647: END IF;
11648: /* This code was causing bug. As soon as one invalid tree
11649: * was reached, no other trees were freed.
11650: * Invalidate_tree checks this condition, but doesn't return error.
11652: *-- check if tree id is valid
11653: *IF is_tree_valid(p_tree_id) = FALSE THEN
11654: * fnd_message.set_name('INV', 'INV-Qtyroot not found');
11655: * fnd_message.set_token('ROUTINE', 'Free_Tree');
11656: * fnd_msg_pub.ADD;
11657: * RAISE fnd_api.g_exc_unexpected_error;
11658: *END IF;
11659: */
11660: invalidate_tree(p_tree_id);
11666: WHEN fnd_api.g_exc_error THEN
11667: x_return_status := fnd_api.g_ret_sts_error;
11668:
11669: -- Get message count and data
11670: fnd_msg_pub.count_and_get
11671: ( p_count => x_msg_count
11672: , p_data => x_msg_data
11673: );
11674:
11675: WHEN fnd_api.g_exc_unexpected_error THEN
11676: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11677:
11678: -- Get message count and data
11679: fnd_msg_pub.count_and_get
11680: ( p_count => x_msg_count
11681: , p_data => x_msg_data
11682: );
11683:
11683:
11684: WHEN OTHERS THEN
11685: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11686:
11687: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11688: THEN
11689: fnd_msg_pub.add_exc_msg
11690: ( g_pkg_name
11691: , l_api_name
11685: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11686:
11687: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11688: THEN
11689: fnd_msg_pub.add_exc_msg
11690: ( g_pkg_name
11691: , l_api_name
11692: );
11693: END IF;
11692: );
11693: END IF;
11694:
11695: -- Get message count and data
11696: fnd_msg_pub.count_and_get
11697: ( p_count => x_msg_count
11698: , p_data => x_msg_data
11699: );
11700:
11753: END IF;
11754:
11755: -- Initialize message list.
11756: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11757: fnd_msg_pub.initialize;
11758: END IF;
11759:
11760: --call free_tree on base_tree
11761: l_root_id := g_demand_info(p_tree_id).root_id;
11785: WHEN fnd_api.g_exc_error THEN
11786: x_return_status := fnd_api.g_ret_sts_error;
11787:
11788: -- Get message count and data
11789: fnd_msg_pub.count_and_get
11790: ( p_count => x_msg_count
11791: , p_data => x_msg_data
11792: );
11793:
11794: WHEN fnd_api.g_exc_unexpected_error THEN
11795: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11796:
11797: -- Get message count and data
11798: fnd_msg_pub.count_and_get
11799: ( p_count => x_msg_count
11800: , p_data => x_msg_data
11801: );
11802:
11802:
11803: WHEN OTHERS THEN
11804: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11805:
11806: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11807: THEN
11808: fnd_msg_pub.add_exc_msg
11809: ( g_pkg_name
11810: , l_api_name
11804: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11805:
11806: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11807: THEN
11808: fnd_msg_pub.add_exc_msg
11809: ( g_pkg_name
11810: , l_api_name
11811: );
11812: END IF;
11811: );
11812: END IF;
11813:
11814: -- Get message count and data
11815: fnd_msg_pub.count_and_get
11816: ( p_count => x_msg_count
11817: , p_data => x_msg_data
11818: );
11819:
11865: END IF;
11866:
11867: -- Initialize message list.
11868: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11869: fnd_msg_pub.initialize;
11870: END IF;
11871:
11872: FOR l_loop_index IN 1..g_all_roots_counter LOOP
11873: l_root_id := g_all_roots(l_loop_index).root_id;
11897: WHEN fnd_api.g_exc_error THEN
11898: x_return_status := fnd_api.g_ret_sts_error;
11899:
11900: -- Get message count and data
11901: fnd_msg_pub.count_and_get
11902: ( p_count => x_msg_count
11903: , p_data => x_msg_data
11904: );
11905:
11906: WHEN fnd_api.g_exc_unexpected_error THEN
11907: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11908:
11909: -- Get message count and data
11910: fnd_msg_pub.count_and_get
11911: ( p_count => x_msg_count
11912: , p_data => x_msg_data
11913: );
11914:
11914:
11915: WHEN OTHERS THEN
11916: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11917:
11918: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11919: THEN
11920: fnd_msg_pub.add_exc_msg
11921: ( g_pkg_name
11922: , l_api_name
11916: x_return_status := fnd_api.g_ret_sts_unexp_error ;
11917:
11918: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
11919: THEN
11920: fnd_msg_pub.add_exc_msg
11921: ( g_pkg_name
11922: , l_api_name
11923: );
11924: END IF;
11923: );
11924: END IF;
11925:
11926: -- Get message count and data
11927: fnd_msg_pub.count_and_get
11928: ( p_count => x_msg_count
11929: , p_data => x_msg_data
11930: );
11931:
11983: END IF;
11984:
11985: -- Initialize message list.
11986: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11987: fnd_msg_pub.initialize;
11988: END IF;
11989:
11990: FOR l_loop_index IN 1..g_all_roots_counter LOOP
11991: l_root_id := g_all_roots(l_loop_index).root_id;
12000: WHEN fnd_api.g_exc_error THEN
12001: x_return_status := fnd_api.g_ret_sts_error;
12002:
12003: -- Get message count and data
12004: fnd_msg_pub.count_and_get
12005: ( p_count => x_msg_count
12006: , p_data => x_msg_data
12007: );
12008:
12009: WHEN fnd_api.g_exc_unexpected_error THEN
12010: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12011:
12012: -- Get message count and data
12013: fnd_msg_pub.count_and_get
12014: ( p_count => x_msg_count
12015: , p_data => x_msg_data
12016: );
12017:
12017:
12018: WHEN OTHERS THEN
12019: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12020:
12021: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12022: THEN
12023: fnd_msg_pub.add_exc_msg
12024: ( g_pkg_name
12025: , l_api_name
12019: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12020:
12021: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12022: THEN
12023: fnd_msg_pub.add_exc_msg
12024: ( g_pkg_name
12025: , l_api_name
12026: );
12027: END IF;
12026: );
12027: END IF;
12028:
12029: -- Get message count and data
12030: fnd_msg_pub.count_and_get
12031: ( p_count => x_msg_count
12032: , p_data => x_msg_data
12033: );
12034:
12190: END IF;
12191:
12192: -- Initialize message list.
12193: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12194: fnd_msg_pub.initialize;
12195: END IF;
12196:
12197: l_root_id := g_demand_info(p_tree_id).root_id;
12198: -- check if tree id is valid
12198: -- check if tree id is valid
12199: IF is_tree_valid(l_root_id) = FALSE THEN
12200: fnd_message.set_name('INV', 'INV-Qtyroot not found');
12201: fnd_message.set_token('ROUTINE', 'Update_Quantities');
12202: fnd_msg_pub.ADD;
12203: RAISE fnd_api.g_exc_unexpected_error;
12204: END IF;
12205:
12206: print_debug('in update_quantities, calling add_quantities qty1='||p_primary_quantity||', qty2='||p_secondary_quantity||'.');
12279: WHEN fnd_api.g_exc_error THEN
12280: x_return_status := fnd_api.g_ret_sts_error;
12281:
12282: -- Get message count and data
12283: fnd_msg_pub.count_and_get
12284: ( p_count => x_msg_count
12285: , p_data => x_msg_data
12286: );
12287:
12288: WHEN fnd_api.g_exc_unexpected_error THEN
12289: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12290:
12291: -- Get message count and data
12292: fnd_msg_pub.count_and_get
12293: ( p_count => x_msg_count
12294: , p_data => x_msg_data
12295: );
12296:
12296:
12297: WHEN OTHERS THEN
12298: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12299:
12300: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12301: THEN
12302: fnd_msg_pub.add_exc_msg
12303: ( g_pkg_name
12304: , l_api_name
12298: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12299:
12300: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12301: THEN
12302: fnd_msg_pub.add_exc_msg
12303: ( g_pkg_name
12304: , l_api_name
12305: );
12306: END IF;
12305: );
12306: END IF;
12307:
12308: -- Get message count and data
12309: fnd_msg_pub.count_and_get
12310: ( p_count => x_msg_count
12311: , p_data => x_msg_data
12312: );
12313:
12475: END IF;
12476:
12477: -- Initialize message list.
12478: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12479: fnd_msg_pub.initialize;
12480: END IF;
12481:
12482: l_root_id := g_demand_info(p_tree_id).root_id;
12483:
12484: -- check if tree id is valid
12485: IF is_tree_valid(l_root_id) = FALSE THEN
12486: fnd_message.set_name('INV', 'INV-Qtyroot not found');
12487: fnd_message.set_token('ROUTINE', 'Update_Quantities');
12488: fnd_msg_pub.ADD;
12489: RAISE fnd_api.g_exc_unexpected_error;
12490: END IF;
12491:
12492: IF p_call_for_form = fnd_api.g_true THEN
12571: WHEN fnd_api.g_exc_error THEN
12572: x_return_status := fnd_api.g_ret_sts_error;
12573:
12574: -- Get message count and data
12575: fnd_msg_pub.count_and_get
12576: ( p_count => x_msg_count
12577: , p_data => x_msg_data
12578: );
12579:
12580: WHEN fnd_api.g_exc_unexpected_error THEN
12581: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12582:
12583: -- Get message count and data
12584: fnd_msg_pub.count_and_get
12585: ( p_count => x_msg_count
12586: , p_data => x_msg_data
12587: );
12588:
12588:
12589: WHEN OTHERS THEN
12590: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12591:
12592: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12593: THEN
12594: fnd_msg_pub.add_exc_msg
12595: ( g_pkg_name
12596: , l_api_name
12590: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12591:
12592: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12593: THEN
12594: fnd_msg_pub.add_exc_msg
12595: ( g_pkg_name
12596: , l_api_name
12597: );
12598: END IF;
12597: );
12598: END IF;
12599:
12600: -- Get message count and data
12601: fnd_msg_pub.count_and_get
12602: ( p_count => x_msg_count
12603: , p_data => x_msg_data
12604: );
12605:
12653: l_root_id := g_demand_info(p_tree_id).root_id;
12654: IF is_tree_valid(l_root_id) = FALSE THEN
12655: fnd_message.set_name('INV', 'INV-Qtyroot not found');
12656: fnd_message.set_token('ROUTINE', 'Backup_Tree');
12657: fnd_msg_pub.ADD;
12658: RAISE fnd_api.g_exc_error;
12659: END IF;
12660:
12661: save_rootinfo(l_root_id);
12744: l_root_id := g_demand_info(p_tree_id).root_id;
12745: IF is_saved_tree_valid(l_root_id) = FALSE THEN
12746: fnd_message.set_name('INV', 'INV-Qtyroot not found');
12747: fnd_message.set_token('ROUTINE', 'Restore_Tree');
12748: fnd_msg_pub.ADD;
12749: RAISE fnd_api.g_exc_error;
12750: END IF;
12751:
12752: restore_rootinfo(l_root_id);
12836: l_root_id := g_demand_info(p_tree_id).root_id;
12837: IF is_tree_valid(l_root_id) = FALSE THEN
12838: fnd_message.set_name('INV', 'INV-Qtyroot not found');
12839: fnd_message.set_token('ROUTINE', 'Backup_Tree');
12840: fnd_msg_pub.ADD;
12841: RAISE fnd_api.g_exc_error;
12842: END IF;
12843:
12844: g_backup_tree_counter := g_backup_tree_counter + 1;
12989: -- dbm_output.put_line('Error: '||l_msg_data);
12990: NULL;
12991: ELSE
12992: FOR l_counter IN 1..l_msg_count LOOP
12993: -- dbm_output.put_line(fnd_msg_pub.get);
12994: NULL;
12995: END LOOP;
12996: END IF;
12997: IF l_return_status = 'S' THEN
13137: );
13138:
13139: IF l_rval <> 0 THEN
13140: fnd_message.set_name('INV', 'INV-FAILED_TO_SEND_MESSAGE');
13141: fnd_msg_pub.add;
13142: -- dbm_output.put_line('Error: failed to send message to the pipe.'
13143: -- || 'Error code is '||To_char(l_rval));
13144: RAISE fnd_api.g_exc_error;
13145: END IF ;
13172: );
13173:
13174: IF l_rval <> 0 THEN
13175: fnd_message.set_name('INV', 'INV-FAILED_TO_SEND_MESSAGE');
13176: fnd_msg_pub.add;
13177: -- dbm_output.put_line('Error: failed to send message to the pipe.'
13178: -- || 'Error code is '||To_char(l_rval));
13179: RAISE fnd_api.g_exc_error;
13180: END IF ;
13286: );
13287:
13288: IF l_rval <> 0 THEN
13289: fnd_message.set_name('INV', 'INV-FAILED_TO_SEND_MESSAGE');
13290: fnd_msg_pub.add;
13291: -- dbm_output.put_line('Error: failed to send message to the pipe.'
13292: -- || 'Error code is '||To_char(l_rval));
13293: RAISE fnd_api.g_exc_error;
13294: END IF ;
13315: );
13316:
13317: IF l_rval <> 0 THEN
13318: fnd_message.set_name('INV', 'INV-FAILED_TO_SEND_MESSAGE');
13319: fnd_msg_pub.add;
13320: -- dbm_output.put_line('Error: failed to send message to the pipe.'
13321: -- || 'Error code is '||To_char(l_rval));
13322: RAISE fnd_api.g_exc_error;
13323: END IF ;
13351: -- check if tree id is valid
13352: IF is_tree_valid(p_tree_id) = FALSE THEN
13353: fnd_message.set_name('INV', 'INV-Qtyroot not found');
13354: fnd_message.set_token('ROUTINE', 'Dump_Tree_To_DB_Pipe');
13355: fnd_msg_pub.ADD;
13356: RAISE fnd_api.g_exc_error;
13357: END IF;
13358:
13359: dump_rootinfo
13378: );
13379:
13380: IF l_rval <> 0 THEN
13381: fnd_message.set_name('INV', 'INV-FAILED_TO_SEND_MESSAGE');
13382: fnd_msg_pub.add;
13383: -- dbm_output.put_line('Error: failed to send message to the pipe.'
13384: -- || 'Error code is '||To_char(l_rval));
13385: RAISE fnd_api.g_exc_error;
13386: END IF ;
13431: );
13432:
13433: IF l_rval <> 0 THEN
13434: fnd_message.set_name('INV', 'INV-FAILED_TO_SEND_MESSAGE');
13435: fnd_msg_pub.add;
13436: -- dbm_output.put_line('Error: failed to send message to the pipe.'
13437: -- || 'Error code is '||To_char(l_rval));
13438: RAISE fnd_api.g_exc_error;
13439: END IF ;
13459: );
13460:
13461: IF l_rval <> 0 THEN
13462: fnd_message.set_name('INV', 'INV-FAILED_TO_SEND_MESSAGE');
13463: fnd_msg_pub.add;
13464: -- dbm_output.put_line('Error: failed to send message to the pipe.'
13465: -- || 'Error code is '||To_char(l_rval));
13466: RAISE fnd_api.g_exc_error;
13467: END IF ;
13473: );
13474:
13475: IF l_rval <> 0 THEN
13476: fnd_message.set_name('INV', 'INV-FAILED_TO_SEND_MESSAGE');
13477: fnd_msg_pub.add;
13478: -- dbm_output.put_line('Error: failed to send message to the pipe.'
13479: -- || 'Error code is '||To_char(l_rval));
13480: RAISE fnd_api.g_exc_error;
13481: END IF ;