[Home] [Help]
317: x_return_status := fnd_api.g_ret_sts_unexp_error;
318: x_reservable_qty := 0;
319: x_qty_available := 0;
320: --
321: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
322: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_supply_reservable_qty');
323: END IF;
324:
325: END get_supply_reservable_qty;
318: x_reservable_qty := 0;
319: x_qty_available := 0;
320: --
321: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
322: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_supply_reservable_qty');
323: END IF;
324:
325: END get_supply_reservable_qty;
326:
527: x_return_status := fnd_api.g_ret_sts_unexp_error;
528: x_reservable_qty := 0;
529: x_qty_available := 0;
530: --
531: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
532: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_demand_reservable_qty');
533: END IF;
534:
535: END get_demand_reservable_qty;
528: x_reservable_qty := 0;
529: x_qty_available := 0;
530: --
531: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
532: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_demand_reservable_qty');
533: END IF;
534:
535: END get_demand_reservable_qty;
536:
580: END IF;
581: --
582: -- Initialize message list.
583: IF fnd_api.to_boolean(p_init_msg_lst) THEN
584: fnd_msg_pub.initialize;
585: END IF;
586:
587: IF p_demand_type_id IN (inv_reservation_global.g_source_type_oe,
588: inv_reservation_global.g_source_type_internal_ord,
659: WHEN fnd_api.g_exc_error THEN
660: x_return_status := fnd_api.g_ret_sts_error;
661:
662: -- Get message count and data
663: fnd_msg_pub.count_and_get
664: ( p_count => x_msg_count
665: , p_data => x_msg_data
666: , p_encoded => 'F'
667: );
669: WHEN fnd_api.g_exc_unexpected_error THEN
670: x_return_status := fnd_api.g_ret_sts_unexp_error ;
671:
672: -- Get message count and data
673: fnd_msg_pub.count_and_get
674: ( p_count => x_msg_count
675: , p_data => x_msg_data
676: , p_encoded => 'F'
677: );
678:
679: WHEN OTHERS THEN
680: x_return_status := fnd_api.g_ret_sts_unexp_error ;
681:
682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
683: THEN
684: fnd_msg_pub.add_exc_msg
685: ( g_pkg_name
686: , l_api_name
680: x_return_status := fnd_api.g_ret_sts_unexp_error ;
681:
682: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
683: THEN
684: fnd_msg_pub.add_exc_msg
685: ( g_pkg_name
686: , l_api_name
687: );
688: END IF;
687: );
688: END IF;
689:
690: -- Get message count and data
691: fnd_msg_pub.count_and_get
692: ( p_count => x_msg_count
693: , p_data => x_msg_data
694: , p_encoded => 'F'
695: );
755:
756: IF l_tmp_quantity = -99999 THEN
757: -- conversion failed
758: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-PRIMARY-UOM');
759: fnd_msg_pub.ADD;
760: RAISE fnd_api.g_exc_error;
761: END IF;
762:
763: --
798:
799: IF l_tmp_quantity = -99999 THEN
800: -- conversion failed
801: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-RSV-UOM');
802: fnd_msg_pub.ADD;
803: RAISE fnd_api.g_exc_error;
804: END IF;
805: END IF;
806:
826:
827: IF l_tmp_secondary_quantity = -99999 THEN
828: -- conversion failed
829: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-SECOND-UOM'); -- INVCONV NEW MESSAGE
830: fnd_msg_pub.ADD;
831: RAISE fnd_api.g_exc_error;
832: END IF;
833: px_rsv_rec.secondary_reservation_quantity := l_tmp_secondary_quantity; -- INVCONV
834: END IF;
853:
854: IF l_tmp_secondary_quantity = -99999 THEN
855: -- conversion failed
856: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-SECOND-UOM'); -- INVCONV NEW MESSAGE
857: fnd_msg_pub.ADD;
858: RAISE fnd_api.g_exc_error;
859: END IF;
860: px_rsv_rec.secondary_detailed_quantity := l_tmp_secondary_quantity; -- INVCONV
861: END IF;
876: WHEN OTHERS THEN
877: x_return_status := fnd_api.g_ret_sts_unexp_error;
878:
879: --
880: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
881: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Convert_Quantity');
882: END IF;
883: END convert_quantity;
884:
877: x_return_status := fnd_api.g_ret_sts_unexp_error;
878:
879: --
880: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
881: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Convert_Quantity');
882: END IF;
883: END convert_quantity;
884:
885: --
2250: l_debug := g_debug;
2251:
2252: IF (p_source_type_id <> INV_RESERVATION_GLOBAL.g_source_type_wip) THEN
2253: fnd_message.set_name('INV', 'INV_INVALID_SUPPLY_SOURCE');
2254: fnd_msg_pub.add;
2255: RAISE fnd_api.g_exc_error;
2256: END IF;
2257:
2258: BEGIN
2265: IF (l_debug = 1) THEN
2266: debug_print('No WIP entity record found for the source header passed' );
2267: END IF;
2268: fnd_message.set_name('INV', 'INV_INVALID_WIP_ENTITY_TYPE');
2269: fnd_msg_pub.add;
2270: RAISE fnd_api.g_exc_error;
2271: END ;
2272:
2273: IF l_wip_entity_id = inv_reservation_global.g_wip_source_type_discrete then
2305: EXCEPTION
2306: WHEN fnd_api.g_exc_error THEN
2307: x_return_status := fnd_api.g_ret_sts_error;
2308: -- Get message count and data
2309: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2310: WHEN fnd_api.g_exc_unexpected_error THEN
2311: x_return_status := fnd_api.g_ret_sts_unexp_error;
2312: -- Get message count and data
2313: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2309: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2310: WHEN fnd_api.g_exc_unexpected_error THEN
2311: x_return_status := fnd_api.g_ret_sts_unexp_error;
2312: -- Get message count and data
2313: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2314: WHEN OTHERS THEN
2315: x_return_status := fnd_api.g_ret_sts_unexp_error;
2316:
2317: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2313: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2314: WHEN OTHERS THEN
2315: x_return_status := fnd_api.g_ret_sts_unexp_error;
2316:
2317: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2318: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2319: END IF;
2320:
2321: -- Get message count and data
2314: WHEN OTHERS THEN
2315: x_return_status := fnd_api.g_ret_sts_unexp_error;
2316:
2317: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2318: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2319: END IF;
2320:
2321: -- Get message count and data
2322: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2318: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2319: END IF;
2320:
2321: -- Get message count and data
2322: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2323: END get_wip_entity_type;
2324:
2325: PROCEDURE update_serial_rsv_quantity(
2326: x_return_status OUT NOCOPY VARCHAR2
2359: EXCEPTION
2360: WHEN fnd_api.g_exc_error THEN
2361: x_return_status := fnd_api.g_ret_sts_error;
2362: -- Get message count and data
2363: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2364: WHEN fnd_api.g_exc_unexpected_error THEN
2365: x_return_status := fnd_api.g_ret_sts_unexp_error;
2366: -- Get message count and data
2367: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2363: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2364: WHEN fnd_api.g_exc_unexpected_error THEN
2365: x_return_status := fnd_api.g_ret_sts_unexp_error;
2366: -- Get message count and data
2367: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2368: WHEN OTHERS THEN
2369: x_return_status := fnd_api.g_ret_sts_unexp_error;
2370:
2371: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2367: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2368: WHEN OTHERS THEN
2369: x_return_status := fnd_api.g_ret_sts_unexp_error;
2370:
2371: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2372: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2373: END IF;
2374:
2375: -- Get message count and data
2368: WHEN OTHERS THEN
2369: x_return_status := fnd_api.g_ret_sts_unexp_error;
2370:
2371: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2372: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2373: END IF;
2374:
2375: -- Get message count and data
2376: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2372: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2373: END IF;
2374:
2375: -- Get message count and data
2376: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2377:
2378: END update_serial_rsv_quantity;
2379:
2380: PROCEDURE is_serial_number_reserved(
2434: EXCEPTION
2435: WHEN fnd_api.g_exc_error THEN
2436: x_return_status := fnd_api.g_ret_sts_error;
2437: -- Get message count and data
2438: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2439: WHEN fnd_api.g_exc_unexpected_error THEN
2440: x_return_status := fnd_api.g_ret_sts_unexp_error;
2441: -- Get message count and data
2442: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2438: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2439: WHEN fnd_api.g_exc_unexpected_error THEN
2440: x_return_status := fnd_api.g_ret_sts_unexp_error;
2441: -- Get message count and data
2442: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2443: WHEN OTHERS THEN
2444: x_return_status := fnd_api.g_ret_sts_unexp_error;
2445:
2446: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2442: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2443: WHEN OTHERS THEN
2444: x_return_status := fnd_api.g_ret_sts_unexp_error;
2445:
2446: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2447: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2448: END IF;
2449:
2450: -- Get message count and data
2443: WHEN OTHERS THEN
2444: x_return_status := fnd_api.g_ret_sts_unexp_error;
2445:
2446: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2447: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2448: END IF;
2449:
2450: -- Get message count and data
2451: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2447: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2448: END IF;
2449:
2450: -- Get message count and data
2451: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2452: END is_serial_number_reserved;
2453:
2454: PROCEDURE is_serial_reserved(
2455: p_api_version_number IN NUMBER
2589: EXCEPTION
2590: WHEN fnd_api.g_exc_error THEN
2591: x_return_status := fnd_api.g_ret_sts_error;
2592: -- Get message count and data
2593: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2594: WHEN fnd_api.g_exc_unexpected_error THEN
2595: x_return_status := fnd_api.g_ret_sts_unexp_error;
2596: -- Get message count and data
2597: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2593: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2594: WHEN fnd_api.g_exc_unexpected_error THEN
2595: x_return_status := fnd_api.g_ret_sts_unexp_error;
2596: -- Get message count and data
2597: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2598: WHEN OTHERS THEN
2599: x_return_status := fnd_api.g_ret_sts_unexp_error;
2600:
2601: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2597: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2598: WHEN OTHERS THEN
2599: x_return_status := fnd_api.g_ret_sts_unexp_error;
2600:
2601: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2602: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2603: END IF;
2604:
2605: -- Get message count and data
2598: WHEN OTHERS THEN
2599: x_return_status := fnd_api.g_ret_sts_unexp_error;
2600:
2601: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2602: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2603: END IF;
2604:
2605: -- Get message count and data
2606: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2602: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2603: END IF;
2604:
2605: -- Get message count and data
2606: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2607: END is_serial_reserved;
2608: /*** End R12 ***/
2609:
2610:
2746: IF p_lot_divisible_flag = 'N' THEN
2747: IF l_net_qty < l_atr THEN
2748: -- Available to reserve cannot be subdivided
2749: fnd_message.set_name('INV', 'INV_LOT_INDIVISIBLE_VIOLATION'); -- INVCONV New Message
2750: fnd_msg_pub.ADD;
2751: RAISE fnd_api.g_exc_error;
2752: END IF;
2753: END IF;
2754: -- INVCONV END - lot_indivisible quantities cannot be split
2782: OR l_atr <= 0
2783: AND p_partial_reservation_flag = fnd_api.g_true
2784: ) THEN
2785: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
2786: fnd_msg_pub.ADD;
2787: RAISE fnd_api.g_exc_error;
2788: END IF;
2789:
2790: IF (l_debug = 1) THEN
2858: WHEN OTHERS THEN
2859: x_return_status := fnd_api.g_ret_sts_unexp_error;
2860:
2861: --
2862: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2863: fnd_msg_pub.add_exc_msg(g_pkg_name, 'modify_tree_crt_del_rel');
2864: END IF;
2865: END modify_tree_crt_del_rel;
2866:
2859: x_return_status := fnd_api.g_ret_sts_unexp_error;
2860:
2861: --
2862: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2863: fnd_msg_pub.add_exc_msg(g_pkg_name, 'modify_tree_crt_del_rel');
2864: END IF;
2865: END modify_tree_crt_del_rel;
2866:
2867: --
3175: debug_print('Lot indivisible scenario so compare l_atr '||l_atr ||' with l_net_qty2 '||l_net_qty2);
3176: END IF;
3177: IF l_atr > l_net_qty2 THEN
3178: fnd_message.set_name('INV', 'INV_LOT_INDIVISIBLE_VIOLATION');
3179: fnd_msg_pub.ADD;
3180: RAISE fnd_api.g_exc_error;
3181: END IF;
3182: END IF;
3183: -- INVCONV END
3251: END IF;
3252:
3253:
3254: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
3255: fnd_msg_pub.ADD;
3256: RAISE fnd_api.g_exc_error;
3257: END IF;
3258: --Changed for Qty validation. Bug 3336837
3259:
3445: WHEN OTHERS THEN
3446: x_return_status := fnd_api.g_ret_sts_unexp_error;
3447:
3448: --
3449: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3450: fnd_msg_pub.add_exc_msg(g_pkg_name, 'modify_tree_for_update_xfer');
3451: END IF;
3452: END modify_tree_for_update_xfer;
3453:
3446: x_return_status := fnd_api.g_ret_sts_unexp_error;
3447:
3448: --
3449: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3450: fnd_msg_pub.add_exc_msg(g_pkg_name, 'modify_tree_for_update_xfer');
3451: END IF;
3452: END modify_tree_for_update_xfer;
3453:
3454: --
4382:
4383: --
4384: -- Initialize message list.
4385: IF fnd_api.to_boolean(p_init_msg_lst) THEN
4386: fnd_msg_pub.initialize;
4387: END IF;
4388:
4389: --
4390: IF (l_debug = 1) then
7411: EXCEPTION
7412: WHEN fnd_api.g_exc_error THEN
7413: x_return_status := fnd_api.g_ret_sts_error;
7414: -- Get message count and data
7415: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7416: WHEN fnd_api.g_exc_unexpected_error THEN
7417: x_return_status := fnd_api.g_ret_sts_unexp_error;
7418: -- Get message count and data
7419: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7415: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7416: WHEN fnd_api.g_exc_unexpected_error THEN
7417: x_return_status := fnd_api.g_ret_sts_unexp_error;
7418: -- Get message count and data
7419: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7420: WHEN OTHERS THEN
7421: IF SQLCODE = -54 THEN -- failed to lock
7422: x_return_status := fnd_api.g_ret_sts_error;
7423: x_error_code := inv_reservation_global.g_err_fail_to_lock_rec;
7423: x_error_code := inv_reservation_global.g_err_fail_to_lock_rec;
7424: ELSE
7425: x_return_status := fnd_api.g_ret_sts_unexp_error;
7426:
7427: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7428: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7429: END IF;
7430:
7431: -- Get message count and data
7424: ELSE
7425: x_return_status := fnd_api.g_ret_sts_unexp_error;
7426:
7427: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7428: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7429: END IF;
7430:
7431: -- Get message count and data
7432: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7428: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7429: END IF;
7430:
7431: -- Get message count and data
7432: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7433: END IF;
7434: END query_reservation;
7435:
7436: /**** {{ R12 Enhanced reservations code changes. Overloaded query
7615: EXCEPTION
7616: WHEN fnd_api.g_exc_error THEN
7617: x_return_status := fnd_api.g_ret_sts_error;
7618: -- Get message count and data
7619: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7620: WHEN fnd_api.g_exc_unexpected_error THEN
7621: x_return_status := fnd_api.g_ret_sts_unexp_error;
7622: -- Get message count and data
7623: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7619: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7620: WHEN fnd_api.g_exc_unexpected_error THEN
7621: x_return_status := fnd_api.g_ret_sts_unexp_error;
7622: -- Get message count and data
7623: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7624: WHEN OTHERS THEN
7625: IF SQLCODE = -54 THEN -- failed to lock
7626: x_return_status := fnd_api.g_ret_sts_error;
7627: x_error_code := inv_reservation_global.g_err_fail_to_lock_rec;
7627: x_error_code := inv_reservation_global.g_err_fail_to_lock_rec;
7628: ELSE
7629: x_return_status := fnd_api.g_ret_sts_unexp_error;
7630:
7631: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7632: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7633: END IF;
7634:
7635: -- Get message count and data
7628: ELSE
7629: x_return_status := fnd_api.g_ret_sts_unexp_error;
7630:
7631: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7632: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7633: END IF;
7634:
7635: -- Get message count and data
7636: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7632: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7633: END IF;
7634:
7635: -- Get message count and data
7636: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7637: END IF;
7638: END query_reservation;
7639:
7640: /*** End R12 ***/
7754:
7755: --
7756: -- Initialize message list.
7757: IF fnd_api.to_boolean(p_init_msg_lst) THEN
7758: fnd_msg_pub.initialize;
7759: END IF;
7760:
7761: /**** {{ R12 Enhanced reservations code changes.Initializing orig parameters }}****/
7762:
7881: IF l_debug=1 THEN
7882: debug_print('Serial numbers are passed with partial flag exists. error out');
7883: END IF;
7884: fnd_message.set_name('INV', 'INV_SER_PARTIAL_RSV_EXISTS');
7885: fnd_msg_pub.add;
7886: RAISE fnd_api.g_exc_error;
7887: END IF;
7888:
7889: IF l_debug=1 THEN
8064: ,x_lock_status => l_lock_status);
8065:
8066: IF l_lock_status = 0 THEN
8067: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
8068: fnd_msg_pub.ADD;
8069: RAISE fnd_api.g_exc_error;
8070: END if;
8071:
8072: inv_reservation_lock_pvt.lock_supply_demand_record
8080: ,x_lock_status => l_lock_status);
8081:
8082: IF l_lock_status = 0 THEN
8083: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
8084: fnd_msg_pub.ADD;
8085: RAISE fnd_api.g_exc_error;
8086: END if;
8087:
8088: l_lock_obtained := TRUE;
8106:
8107: IF ((NVL(l_rsv_rec.reservation_quantity,0) < 0) OR
8108: (NVL(l_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
8109: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
8110: fnd_msg_pub.ADD;
8111: RAISE fnd_api.g_exc_error;
8112: END IF;
8113:
8114: /*---------------- Added by nimisra for bug6268983 ----------------
8117: --------------------------------------------------------------------*/
8118: IF (p_rsv_rec.demand_source_type_id=2 or p_rsv_rec.demand_source_type_id=8)
8119: and (p_rsv_rec.demand_source_name is NOT NULL) THEN
8120: fnd_message.set_name('INV', 'INV_INVALID_DEMAND_SOURCE');
8121: fnd_msg_pub.ADD; debug_print('For Sales Orders and Internal Orders DEMAND_SOURCE_NAME Should Be Null');
8122: RAISE fnd_api.g_exc_error;
8123: END IF;
8124:
8125: /* ------------------Added by nimisra for bug6268983--------------- */
8144: -- for creation of reservation.
8145: -- must be some value or null.
8146: fnd_message.set_name('INV', 'INV-RSV-INPUT-MISSING');
8147: fnd_message.set_token('FIELD_NAME', l_what_field);
8148: fnd_msg_pub.ADD;
8149: RAISE fnd_api.g_exc_error;
8150: END IF;
8151:
8152:
8235:
8236: --
8237: IF l_tmp_rsv_tbl_count > 0 THEN
8238: fnd_message.set_name('INV', 'INV-RESERVATION-EXIST');
8239: fnd_msg_pub.ADD;
8240: RAISE fnd_api.g_exc_error;
8241: END IF;
8242:
8243: *** End comment *******/
8541: IF l_serial_number.COUNT > 0 THEN
8542: l_rsv_rec.serial_reservation_quantity := l_serial_number.COUNT;
8543: IF (l_rsv_rec.serial_reservation_quantity > l_rsv_rec.primary_reservation_quantity) THEN
8544: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
8545: fnd_msg_pub.ADD;
8546: RAISE fnd_api.g_exc_error;
8547: END IF;
8548:
8549: END IF;
8607:
8608: -- bug #5454715. Error out if the available supply to reserve is zero.
8609: IF l_qty_changed = 0 THEN
8610: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
8611: fnd_msg_pub.ADD;
8612: RAISE fnd_api.g_exc_error;
8613: END IF;
8614:
8615: -- Bug 5199672: Removed the condition l_qty_changed > 0
8619: IF (l_debug = 1) THEN
8620: debug_print('The supply document doesnt have enough quantity to be reserved against. error out. ');
8621: END IF;
8622: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
8623: fnd_msg_pub.ADD;
8624: RAISE fnd_api.g_exc_error;
8625: ELSE
8626: l_rsv_rec.primary_reservation_quantity := l_qty_changed + NVL(l_rsv_rec.detailed_quantity, 0);
8627: l_rsv_rec.reservation_quantity := NULL;
8752: IF (l_debug = 1) THEN
8753: debug_print('The demand document doesnt have enough quantity to be reserved against. error out. ');
8754: END IF;
8755: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
8756: fnd_msg_pub.ADD;
8757: RAISE fnd_api.g_exc_error;
8758: END IF;
8759:
8760: END IF;
8775:
8776: IF ( (NVL(l_rsv_rec.reservation_quantity,0) < 0) OR
8777: (NVL(l_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
8778: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
8779: fnd_msg_pub.ADD;
8780: RAISE fnd_api.g_exc_error;
8781: END IF;
8782:
8783: --Bug 5535030 Selecting the sequence value has been moved to the table handler in
8867: IF l_serial_number.COUNT > 0 THEN
8868: l_rsv_rec.serial_reservation_quantity := l_serial_number.COUNT;
8869: IF (l_rsv_rec.serial_reservation_quantity > l_rsv_rec.primary_reservation_quantity) THEN
8870: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
8871: fnd_msg_pub.ADD;
8872: RAISE fnd_api.g_exc_error;
8873: END IF;
8874: END IF;
8875:
9035: IF (l_debug = 1) THEN
9036: debug_print('Errow while selecting the serial number. serial Number ' || l_serial_number(l_serial_index).serial_number);
9037: END IF;
9038: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
9039: fnd_msg_pub.ADD;
9040: RAISE fnd_api.g_exc_error;
9041: END;
9042:
9043: IF (l_group_mark_id IS NOT NULL) AND (l_group_mark_id <> -1)THEN
9044: IF (l_debug = 1) THEN
9045: debug_print('Group Mark Id is not null for serial ' || l_serial_number(l_serial_index).serial_number);
9046: END IF;
9047: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
9048: fnd_msg_pub.ADD;
9049: RAISE fnd_api.g_exc_error;
9050: END IF;
9051:
9052: BEGIN
9063: IF (l_debug = 1) THEN
9064: debug_print('Errow while updating the serial number. serial Number ' || l_serial_number(l_serial_index).serial_number || ' Reservation Id : ' || l_rsv_rec.reservation_id);
9065: END IF;
9066: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
9067: fnd_msg_pub.ADD;
9068: RAISE fnd_api.g_exc_error;
9069: END;
9070: END LOOP;
9071:
9176: (l_demand_lock_handle);
9177: END IF;
9178: /*** End R12 ***/
9179: -- Get message count and data
9180: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9181: WHEN fnd_api.g_exc_unexpected_error THEN
9182: ROLLBACK TO create_reservation_sa;
9183: x_return_status := fnd_api.g_ret_sts_unexp_error;
9184: /**** {{ R12 Enhanced reservations code changes. Should be
9190: (l_demand_lock_handle);
9191: END IF;
9192: /*** End R12 ***/
9193: -- Get message count and data
9194: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9195: WHEN OTHERS THEN
9196: ROLLBACK TO create_reservation_sa;
9197: x_return_status := fnd_api.g_ret_sts_unexp_error;
9198: /**** {{ R12 Enhanced reservations code changes. Should be
9203: inv_reservation_lock_pvt.release_lock
9204: (l_demand_lock_handle);
9205: END IF;
9206: /*** End R12 ***/
9207: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9208: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9209: END IF;
9210:
9211: -- Get message count and data
9204: (l_demand_lock_handle);
9205: END IF;
9206: /*** End R12 ***/
9207: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9208: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9209: END IF;
9210:
9211: -- Get message count and data
9212: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9208: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9209: END IF;
9210:
9211: -- Get message count and data
9212: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9213: END create_reservation;
9214:
9215:
9216: PROCEDURE update_reservation
9249: END IF;
9250:
9251: -- Initialize message list.
9252: IF fnd_api.to_boolean(p_init_msg_lst) THEN
9253: fnd_msg_pub.initialize;
9254: END IF;
9255:
9256: -- Use cache to get value for l_debug
9257: IF g_is_pickrelease_set IS NULL THEN
9318:
9319: WHEN fnd_api.g_exc_error THEN
9320: x_return_status := fnd_api.g_ret_sts_error;
9321: -- Get message count and data
9322: fnd_msg_pub.count_and_get
9323: ( p_count => x_msg_count
9324: , p_data => x_msg_data
9325: );
9326:
9327: WHEN fnd_api.g_exc_unexpected_error THEN
9328: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9329:
9330: -- Get message count and data
9331: fnd_msg_pub.count_and_get
9332: ( p_count => x_msg_count
9333: , p_data => x_msg_data
9334: );
9335:
9335:
9336: WHEN OTHERS THEN
9337: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9338:
9339: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9340: THEN
9341: fnd_msg_pub.add_exc_msg
9342: ( g_pkg_name
9343: , l_api_name
9337: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9338:
9339: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9340: THEN
9341: fnd_msg_pub.add_exc_msg
9342: ( g_pkg_name
9343: , l_api_name
9344: );
9345: END IF;
9344: );
9345: END IF;
9346:
9347: -- Get message count and data
9348: fnd_msg_pub.count_and_get
9349: ( p_count => x_msg_count
9350: , p_data => x_msg_data
9351: );
9352:
9495:
9496: IF ((NVL(p_to_rsv_rec.reservation_quantity,0) < 0) OR
9497: (NVL(p_to_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
9498: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
9499: fnd_msg_pub.ADD;
9500: RAISE fnd_api.g_exc_error;
9501: END IF;
9502:
9503: -- INVCONV BEGIN
9502:
9503: -- INVCONV BEGIN
9504: IF (NVL(p_to_rsv_rec.secondary_reservation_quantity,0) < 0) THEN
9505: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY QTY'); -- INVCONV NEW MESSAGE
9506: fnd_msg_pub.ADD;
9507: RAISE fnd_api.g_exc_error;
9508: END IF;
9509: -- INVCONV END
9510:
9560:
9561: --
9562: -- Initialize message list.
9563: IF fnd_api.to_boolean(p_init_msg_lst) THEN
9564: fnd_msg_pub.initialize;
9565: END IF;
9566:
9567: --
9568: --
9605: IF (l_debug = 1) THEN
9606: debug_print('Query Reservation returned no row');
9607: END IF;
9608: fnd_message.set_name('INV', 'INV-ROW NOT FOUND');
9609: fnd_msg_pub.ADD;
9610: RAISE fnd_api.g_exc_error;
9611: END IF;
9612:
9613: --
9615: IF (l_debug = 1) THEN
9616: debug_print('Query Reservation returned more than one row');
9617: END IF;
9618: fnd_message.set_name('INV', 'INV-UPATE MORE THAN ONE RSV');
9619: fnd_msg_pub.ADD;
9620: RAISE fnd_api.g_exc_error;
9621: END IF;
9622:
9623: IF (l_debug = 1) THEN
9657: ,x_lock_status => l_lock_status);
9658:
9659: IF l_lock_status = 0 THEN
9660: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
9661: fnd_msg_pub.ADD;
9662: RAISE fnd_api.g_exc_error;
9663: END if;
9664:
9665: inv_reservation_lock_pvt.lock_supply_demand_record
9673: ,x_lock_status => l_lock_status);
9674:
9675: IF l_lock_status = 0 THEN
9676: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
9677: fnd_msg_pub.ADD;
9678: RAISE fnd_api.g_exc_error;
9679: END if;
9680:
9681: l_lock_obtained := TRUE;
9688: IF (l_debug = 1) THEN
9689: debug_print('Cannot update reservation ID');
9690: END IF;
9691: fnd_message.set_name('INV', 'CANNOT_UPDATE_RESERVATION_ID');
9692: fnd_msg_pub.ADD;
9693: RAISE fnd_api.g_exc_error;
9694: END IF;
9695:
9696: --
9698: IF (l_debug = 1) THEN
9699: debug_print('Cannot update organization ID');
9700: END IF;
9701: fnd_message.set_name('INV', 'CANNOT_UPDATE_ORGANIZATION_ID');
9702: fnd_msg_pub.ADD;
9703: RAISE fnd_api.g_exc_error;
9704: END IF;
9705:
9706: --
9708: IF (l_debug = 1) THEN
9709: debug_print('Cannot update Inventory Item ID');
9710: END IF;
9711: fnd_message.set_name('INV', 'CANNOT_UPDATE_INVENTORY_ITEM');
9712: fnd_msg_pub.ADD;
9713: RAISE fnd_api.g_exc_error;
9714: END IF;
9715:
9716: --
9801: IF (l_debug = 1) THEN
9802: debug_print('Reservation target row exists');
9803: END IF;
9804: fnd_message.set_name('INV', 'INV-RSV TARGET ROW EXISTS');
9805: fnd_msg_pub.ADD;
9806: RAISE fnd_api.g_exc_error;
9807: END IF;
9808:
9809: /**** {{ R12 Enhanced reservations code changes }}****/
10211: IF (l_debug = 1) THEN
10212: debug_print('The supply document doesnt have enough quantity to be reserved against. error out. ');
10213: END IF;
10214: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
10215: fnd_msg_pub.ADD;
10216: RAISE fnd_api.g_exc_error;
10217: ELSE
10218: l_to_rsv_rec.primary_reservation_quantity := l_quantity_reserved;
10219: l_to_rsv_rec.reservation_quantity := NULL;
10264: FROM oe_order_lines_all
10265: WHERE line_id = l_to_rsv_rec.demand_source_line_id;
10266: EXCEPTION WHEN no_data_found THEN
10267: fnd_message.set_name('INV', 'INV_INVALID_SALES_ORDER');
10268: fnd_msg_pub.ADD;
10269: RAISE fnd_api.g_exc_error;
10270: END;
10271: END IF;
10272:
10342: debug_print('The demand document doesnt have enough quantity to be reserved against. error out. ');
10343: debug_print('l_to_rsv_rec.primary_reservation_quantity: ' || l_to_rsv_rec.primary_reservation_quantity);
10344: END IF;
10345: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
10346: fnd_msg_pub.ADD;
10347: RAISE fnd_api.g_exc_error;
10348: END IF;
10349:
10350: END IF;
10425:
10426: IF ( (NVL(l_to_rsv_rec.reservation_quantity,0) < 0) OR
10427: (NVL(l_to_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
10428: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
10429: fnd_msg_pub.ADD;
10430: RAISE fnd_api.g_exc_error;
10431: END IF;
10432:
10433: -- INVCONV BEGIN
10432:
10433: -- INVCONV BEGIN
10434: IF (NVL(l_to_rsv_rec.secondary_reservation_quantity,0) < 0) THEN
10435: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY'); -- INVCONV New Message
10436: fnd_msg_pub.ADD;
10437: RAISE fnd_api.g_exc_error;
10438: END IF;
10439: -- INVCONV END
10440:
10521: IF l_debug=1 THEN
10522: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
10523: END IF;
10524: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
10525: fnd_msg_pub.ADD;
10526: RAISE fnd_api.g_exc_error;
10527: END;
10528: IF l_debug=1 THEN
10529: debug_print('Serial being unreserved. serial number: ' || l_serial_number_table(i).serial_number);
10564: IF l_debug=1 THEN
10565: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
10566: END IF;
10567: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
10568: fnd_msg_pub.ADD;
10569: RAISE fnd_api.g_exc_error;
10570: END;
10571: IF l_debug=1 THEN
10572: debug_print('Serial being migrated. serial number: ' || l_serial_number_table(l_serial_index).serial_number);
10602: debug_print('No serials found for this data : ' ||
10603: p_to_serial_number(i).serial_number);
10604: END IF;
10605: fnd_message.set_name('INV', 'INV_INVALID_TO_SERIAL');
10606: fnd_msg_pub.ADD;
10607: RAISE fnd_api.g_exc_error;
10608: END;
10609:
10610: IF (l_reservation_id IS NOT NULL AND l_reservation_id <>
10609:
10610: IF (l_reservation_id IS NOT NULL AND l_reservation_id <>
10611: l_orig_rsv_tbl(1).reservation_id) THEN
10612: fnd_message.set_name('INV', 'INV_INVALID_TO_SERIAL');
10613: fnd_msg_pub.ADD;
10614: RAISE fnd_api.g_exc_error;
10615: END IF;
10616:
10617: -- If the serial is not reserved then it should not have the
10622: IF (l_debug = 1) THEN
10623: debug_print('Group Mark Id is not null for serial ' || p_to_serial_number(i).serial_number);
10624: END IF;
10625: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
10626: fnd_msg_pub.ADD;
10627: RAISE fnd_api.g_exc_error;
10628: END IF;
10629:
10630: END LOOP;
10649: IF l_debug=1 THEN
10650: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
10651: END IF;
10652: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
10653: fnd_msg_pub.ADD;
10654: RAISE fnd_api.g_exc_error;
10655: END;
10656: END LOOP;
10657: END IF;
10680: debug_print('No serials found for reservation
10681: record. serial number: ' || p_to_serial_number(i).serial_number);
10682: END IF;
10683: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
10684: fnd_msg_pub.ADD;
10685: RAISE fnd_api.g_exc_error;
10686: END;
10687: END LOOP;
10688: END IF;
10750: IF l_debug=1 THEN
10751: debug_print('Inside relieve serials.No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
10752: END IF;
10753: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
10754: fnd_msg_pub.ADD;
10755: RAISE fnd_api.g_exc_error;
10756: END;
10757: END LOOP;
10758: -- update the serial reservation quantity to be the primary
10980: (l_demand_lock_handle);
10981: END IF;
10982: /*** End R12 ***/
10983: -- Get message count and data
10984: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
10985: WHEN fnd_api.g_exc_unexpected_error THEN
10986: IF (l_debug = 1) THEN
10987: debug_print('Exception Unexpected');
10988: END IF;
10997: (l_demand_lock_handle);
10998: END IF;
10999: /*** End R12 ***/
11000: -- Get message count and data
11001: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11002: WHEN OTHERS THEN
11003: IF (l_debug = 1) THEN
11004: debug_print('Exception Others'|| SQLERRM);
11005: END IF;
11013: inv_reservation_lock_pvt.release_lock
11014: (l_demand_lock_handle);
11015: END IF;
11016: /*** End R12 ***/
11017: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
11018: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
11019: END IF;
11020:
11021: -- Get message count and data
11014: (l_demand_lock_handle);
11015: END IF;
11016: /*** End R12 ***/
11017: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
11018: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
11019: END IF;
11020:
11021: -- Get message count and data
11022: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11018: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
11019: END IF;
11020:
11021: -- Get message count and data
11022: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11023: END update_reservation;
11024:
11025: --
11026: PROCEDURE relieve_reservation(
11090:
11091: --
11092: -- Initialize message list.
11093: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11094: fnd_msg_pub.initialize;
11095: END IF;
11096:
11097: --
11098: SAVEPOINT relieve_reservation_sa;
11163: IF (l_debug = 1) THEN
11164: debug_print('reservation not found ');
11165: END IF;
11166: fnd_message.set_name('INV', 'INV-ROW NOT FOUND');
11167: fnd_msg_pub.ADD;
11168: RAISE fnd_api.g_exc_error;
11169: END IF;
11170:
11171: --
11173: IF (l_debug = 1) THEN
11174: debug_print('found more than one row reservation');
11175: END IF;
11176: fnd_message.set_name('INV', 'INV-RELIEVE MORE THAN ONE ROW');
11177: fnd_msg_pub.ADD;
11178: RAISE fnd_api.g_exc_error;
11179: END IF;
11180:
11181: --
11274: IF (l_debug = 1) THEN
11275: debug_print('relieve_quantity_not_specified');
11276: END IF;
11277: fnd_message.set_name('INV', 'RELIEVE_QUANTITY_NOT_SPECIFIED');
11278: fnd_msg_pub.ADD;
11279: RAISE fnd_api.g_exc_error;
11280: END IF;
11281:
11282: IF p_primary_relieved_quantity > l_tmp_rsv_tbl(1).primary_reservation_quantity THEN
11283: IF (l_debug = 1) THEN
11284: debug_print('relieve_more_than_reserved');
11285: END IF;
11286: fnd_message.set_name('INV', 'RELIEVE_MORE_THAN_RESERVED');
11287: fnd_msg_pub.ADD;
11288: RAISE fnd_api.g_exc_unexpected_error;
11289: END IF;
11290:
11291: IF is_dual_control(l_orig_item_cache_index) THEN
11551:
11552: IF ( (NVL(l_tmp_rsv_tbl(1).reservation_quantity,0) < 0) OR
11553: (NVL(l_tmp_rsv_tbl(1).primary_reservation_quantity,0) < 0) ) THEN
11554: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
11555: fnd_msg_pub.ADD;
11556: RAISE fnd_api.g_exc_error;
11557: END IF;
11558:
11559: -- INVCONV BEGIN
11558:
11559: -- INVCONV BEGIN
11560: IF (NVL(l_tmp_rsv_tbl(1).secondary_reservation_quantity,0) < 0) THEN
11561: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY');
11562: fnd_msg_pub.ADD;
11563: RAISE fnd_api.g_exc_error;
11564: END IF;
11565: -- INVCONV END
11566:
11641: IF (l_debug = 1) THEN
11642: debug_print('No serials found for reservation record. id = ' || l_reservation_id);
11643: END IF;
11644: fnd_message.set_name('INV', 'INV_SR_EXCEED_RSV_QTY');
11645: fnd_msg_pub.add;
11646: RAISE fnd_api.g_exc_error;
11647: END;
11648:
11649: IF (l_debug = 1) THEN
11657: IF (l_debug = 1) THEN
11658: debug_print('Not enough serials to unreserved for reservation record. id = ' || l_reservation_id);
11659: END IF;
11660: fnd_message.set_name('INV', 'INV_SR_EXCEED_RSV_QTY');
11661: fnd_msg_pub.add;
11662: RAISE fnd_api.g_exc_error;
11663: END IF;
11664:
11665: FOR i in 1..l_count_to_unrsv_serials LOOP
11721: IF (l_debug = 1) THEN
11722: debug_print('No serial found for reservation record. id = ' || l_reservation_id);
11723: END IF;
11724: fnd_message.set_name('INV', 'INV_SR_EXCEED_RSV_QTY');
11725: fnd_msg_pub.add;
11726: RAISE fnd_api.g_exc_error;
11727: END;
11728:
11729: IF (l_serial_number_table.COUNT < l_count_to_unrsv_serials) THEN
11730: IF (l_debug = 1) THEN
11731: debug_print('Not enough serials to unreserved for reservation record. id = ' || l_reservation_id);
11732: END IF;
11733: fnd_message.set_name('INV', 'INV_SR_EXCEED_RSV_QTY');
11734: fnd_msg_pub.add;
11735: RAISE fnd_api.g_exc_error;
11736: END IF;
11737:
11738: FOR i in 1..l_count_to_unrsv_serials LOOP
11796: WHEN fnd_api.g_exc_error THEN
11797: ROLLBACK TO relieve_reservation_sa;
11798: x_return_status := fnd_api.g_ret_sts_error;
11799: -- Get message count and data
11800: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11801: WHEN fnd_api.g_exc_unexpected_error THEN
11802: ROLLBACK TO relieve_reservation_sa;
11803: x_return_status := fnd_api.g_ret_sts_unexp_error;
11804: -- Get message count and data
11801: WHEN fnd_api.g_exc_unexpected_error THEN
11802: ROLLBACK TO relieve_reservation_sa;
11803: x_return_status := fnd_api.g_ret_sts_unexp_error;
11804: -- Get message count and data
11805: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11806: WHEN OTHERS THEN
11807: ROLLBACK TO relieve_reservation_sa;
11808: x_return_status := fnd_api.g_ret_sts_unexp_error;
11809:
11806: WHEN OTHERS THEN
11807: ROLLBACK TO relieve_reservation_sa;
11808: x_return_status := fnd_api.g_ret_sts_unexp_error;
11809:
11810: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
11811: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
11812: END IF;
11813:
11814: -- Get message count and data
11807: ROLLBACK TO relieve_reservation_sa;
11808: x_return_status := fnd_api.g_ret_sts_unexp_error;
11809:
11810: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
11811: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
11812: END IF;
11813:
11814: -- Get message count and data
11815: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11811: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
11812: END IF;
11813:
11814: -- Get message count and data
11815: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11816: END relieve_reservation;
11817:
11818: --
11819: PROCEDURE delete_reservation(
11878:
11879: --
11880: -- Initialize message list.
11881: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11882: fnd_msg_pub.initialize;
11883: END IF;
11884:
11885: /**** {{ R12 Enhanced reservations code changes ****/
11886: -- Set the original columns to g_miss_xxx as the user should not be
11927:
11928: --
11929: IF l_tmp_rsv_tbl_count = 0 THEN
11930: fnd_message.set_name('INV', 'INV-ROW NOT FOUND');
11931: fnd_msg_pub.ADD;
11932: RAISE fnd_api.g_exc_error;
11933: END IF;
11934:
11935: IF (l_debug = 1) THEN
11938: END IF;
11939: --
11940: IF l_tmp_rsv_tbl_count > 1 THEN
11941: fnd_message.set_name('INV', 'INV-DELETE MORE THAN ONE ROW');
11942: fnd_msg_pub.ADD;
11943: RAISE fnd_api.g_exc_error;
11944: END IF;
11945:
11946: --
12164: EXCEPTION
12165: WHEN fnd_api.g_exc_error THEN
12166: x_return_status := fnd_api.g_ret_sts_error;
12167: -- Get message count and data
12168: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12169: WHEN fnd_api.g_exc_unexpected_error THEN
12170: x_return_status := fnd_api.g_ret_sts_unexp_error;
12171: -- Get message count and data
12172: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12168: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12169: WHEN fnd_api.g_exc_unexpected_error THEN
12170: x_return_status := fnd_api.g_ret_sts_unexp_error;
12171: -- Get message count and data
12172: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12173: WHEN OTHERS THEN
12174: x_return_status := fnd_api.g_ret_sts_unexp_error;
12175:
12176: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
12172: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12173: WHEN OTHERS THEN
12174: x_return_status := fnd_api.g_ret_sts_unexp_error;
12175:
12176: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
12177: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12178: END IF;
12179:
12180: -- Get message count and data
12173: WHEN OTHERS THEN
12174: x_return_status := fnd_api.g_ret_sts_unexp_error;
12175:
12176: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
12177: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12178: END IF;
12179:
12180: -- Get message count and data
12181: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12177: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12178: END IF;
12179:
12180: -- Get message count and data
12181: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12182: END delete_reservation;
12183:
12184:
12185: /**** {{ R12 Enhanced reservations code changes }}****/
12223: END IF;
12224:
12225: -- Initialize message list.
12226: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12227: fnd_msg_pub.initialize;
12228: END IF;
12229:
12230: -- Use cache to get value for l_debug
12231: IF g_is_pickrelease_set IS NULL THEN
12288:
12289: WHEN fnd_api.g_exc_error THEN
12290: x_return_status := fnd_api.g_ret_sts_error;
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:
12297: WHEN fnd_api.g_exc_unexpected_error THEN
12298: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12299:
12300: -- Get message count and data
12301: fnd_msg_pub.count_and_get
12302: ( p_count => x_msg_count
12303: , p_data => x_msg_data
12304: );
12305:
12305:
12306: WHEN OTHERS THEN
12307: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12308:
12309: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12310: THEN
12311: fnd_msg_pub.add_exc_msg
12312: ( g_pkg_name
12313: , l_api_name
12307: x_return_status := fnd_api.g_ret_sts_unexp_error ;
12308:
12309: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
12310: THEN
12311: fnd_msg_pub.add_exc_msg
12312: ( g_pkg_name
12313: , l_api_name
12314: );
12315: END IF;
12314: );
12315: END IF;
12316:
12317: -- Get message count and data
12318: fnd_msg_pub.count_and_get
12319: ( p_count => x_msg_count
12320: , p_data => x_msg_data
12321: );
12322:
12477: END IF;
12478:
12479: -- Initialize message list.
12480: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12481: fnd_msg_pub.initialize;
12482: END IF;
12483:
12484: /**** {{ R12 Enhanced reservations code changes }}****/
12485:
12529:
12530: --
12531: IF l_orig_rsv_tbl_count = 0 THEN
12532: fnd_message.set_name('INV', 'INV-ROW NOT FOUND');
12533: fnd_msg_pub.ADD;
12534: RAISE fnd_api.g_exc_error;
12535: END IF;
12536:
12537: --
12536:
12537: --
12538: IF l_orig_rsv_tbl_count > 1 THEN
12539: fnd_message.set_name('INV', 'TRANSFER MORE THAN ONE ROW');
12540: fnd_msg_pub.ADD;
12541: RAISE fnd_api.g_exc_error;
12542: END IF;
12543:
12544: IF (l_debug = 1) THEN
12561:
12562: --
12563: IF l_orig_rsv_tbl(1).organization_id <> l_to_rsv_rec.organization_id THEN
12564: fnd_message.set_name('INV', 'CANNOT_CHANGE_ORGANIZATION_ID');
12565: fnd_msg_pub.ADD;
12566: RAISE fnd_api.g_exc_error;
12567: END IF;
12568:
12569: --
12568:
12569: --
12570: IF l_orig_rsv_tbl(1).inventory_item_id <> l_to_rsv_rec.inventory_item_id THEN
12571: fnd_message.set_name('INV', 'CANNOT_CHANGE_INVENTORY_ITEM');
12572: fnd_msg_pub.ADD;
12573: RAISE fnd_api.g_exc_error;
12574: END IF;
12575:
12576: -- convert quantity between primary uom and reservation uom
12639: IF l_to_rsv_tbl_count > 1 THEN
12640: -- if there more than one target row, the reservation table
12641: -- must be damaged. We can not do anything but failed
12642: fnd_message.set_name('INV', 'INV-RSV-TOO-MANY-TARGET');
12643: fnd_msg_pub.ADD;
12644: RAISE fnd_api.g_exc_error;
12645: END IF;
12646:
12647: IF (l_debug = 1) THEN
12658: -- in the primary key columns (see query_reservation select criteria)
12659: -- as the original reservation.
12660: -- we might want to move that to the validation api soon
12661: fnd_message.set_name('INV', 'MISS_USE_TRANSFER');
12662: fnd_msg_pub.ADD;
12663: RAISE fnd_api.g_exc_error;
12664: END IF;
12665:
12666: l_to_row_exist := (l_to_rsv_tbl_count > 0);
12673:
12674: --
12675: IF l_orig_rsv_tbl(1).primary_reservation_quantity < l_to_rsv_rec.primary_reservation_quantity THEN
12676: fnd_message.set_name('INV', 'TRANSFER MORE THAN RESERVE');
12677: fnd_msg_pub.ADD;
12678: RAISE fnd_api.g_exc_error;
12679: END IF;
12680:
12681: /**** {{ R12 Enhanced reservations code changes.Calling the reservation
12705: ,x_lock_status => l_lock_status);
12706:
12707: IF l_lock_status = 0 THEN
12708: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
12709: fnd_msg_pub.ADD;
12710: RAISE fnd_api.g_exc_error;
12711: END if;
12712:
12713: inv_reservation_lock_pvt.lock_supply_demand_record
12721: ,x_lock_status => l_lock_status);
12722:
12723: IF l_lock_status = 0 THEN
12724: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
12725: fnd_msg_pub.ADD;
12726: RAISE fnd_api.g_exc_error;
12727: END if;
12728:
12729: l_lock_obtained := TRUE;
12845: IF (l_debug = 1) THEN
12846: debug_print('Cannot determine what is being passed to the serial tables');
12847: END IF;
12848: fnd_message.set_name('INV', 'INV_INVALID_SERIAL_TABLES');
12849: fnd_msg_pub.ADD;
12850: RAISE fnd_api.g_exc_error;
12851: END IF;
12852:
12853: IF (l_debug = 1) THEN
13103: debug_print('The supply document doesnt have enough quantity to be reserved against. error out. ');
13104: debug_print('l_to_rsv_rec.primary_reservation_quantity: ' || l_to_rsv_rec.primary_reservation_quantity);
13105: END IF;
13106: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
13107: fnd_msg_pub.ADD;
13108: RAISE fnd_api.g_exc_error;
13109:
13110: END IF;
13111: END IF;
13179: debug_print('The demand document doesnt have enough quantity to be reserved against. error out. ');
13180: debug_print('l_to_rsv_rec.primary_reservation_quantity: ' || l_to_rsv_rec.primary_reservation_quantity);
13181: END IF;
13182: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
13183: fnd_msg_pub.ADD;
13184: RAISE fnd_api.g_exc_error;
13185:
13186: END IF;
13187:
13315:
13316: IF l_new_orig_rsv_qty = -99999 THEN
13317: -- conversion failed
13318: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-PRIMARY-UOM');
13319: fnd_msg_pub.ADD;
13320: RAISE fnd_api.g_exc_error;
13321: END IF;
13322: ELSE
13323: l_new_orig_rsv_qty := l_new_orig_prim_qty;
13344:
13345: IF ( (NVL(l_new_orig_rsv_qty,0) < 0) OR
13346: (NVL(l_new_orig_prim_qty,0) < 0) ) THEN
13347: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
13348: fnd_msg_pub.ADD;
13349: RAISE fnd_api.g_exc_error;
13350: END IF;
13351:
13352: -- INVCONV BEGIN
13351:
13352: -- INVCONV BEGIN
13353: IF (NVL(l_orig_second_rsv_qty,0) < 0) THEN
13354: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY'); -- INVCONV New Message
13355: fnd_msg_pub.ADD;
13356: RAISE fnd_api.g_exc_error;
13357: END IF;
13358: -- INVCONV END
13359: -- Bug 3461990: Reservations API should not update reservations with more
13580:
13581: IF ( (NVL(l_to_rsv_rec.reservation_quantity,0) < 0) OR
13582: (NVL(l_to_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
13583: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
13584: fnd_msg_pub.ADD;
13585: RAISE fnd_api.g_exc_error;
13586: END IF;
13587:
13588: -- INVCONV BEGIN
13587:
13588: -- INVCONV BEGIN
13589: IF (NVL(l_to_rsv_rec.secondary_reservation_quantity,0) < 0) THEN
13590: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY'); -- INVCONV New Message
13591: fnd_msg_pub.ADD;
13592: RAISE fnd_api.g_exc_error;
13593: END IF;
13594: -- INVCONV END
13595:
13851:
13852: IF ( (NVL(l_primary_rsv_quantity,0) < 0) OR
13853: (NVL(l_rsv_quantity,0)< 0) ) THEN
13854: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
13855: fnd_msg_pub.ADD;
13856: RAISE fnd_api.g_exc_error;
13857: END IF;
13858:
13859: -- INVCONV BEGIN
13858:
13859: -- INVCONV BEGIN
13860: IF (NVL(l_secondary_rsv_quantity,0) < 0) THEN
13861: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY'); -- INVCONV New Message
13862: fnd_msg_pub.ADD;
13863: RAISE fnd_api.g_exc_error;
13864: END IF;
13865: -- INVCONV END
13866:
13972:
13973: IF ( (NVL(l_to_rsv_rec.reservation_quantity,0) < 0) OR
13974: (NVL(l_to_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
13975: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
13976: fnd_msg_pub.ADD;
13977: RAISE fnd_api.g_exc_error;
13978: END IF;
13979:
13980: -- INVCONV BEGIN
13979:
13980: -- INVCONV BEGIN
13981: IF (NVL(l_to_rsv_rec.secondary_reservation_quantity,0) < 0) THEN
13982: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY'); -- INVCONV New Message
13983: fnd_msg_pub.ADD;
13984: RAISE fnd_api.g_exc_error;
13985: END IF;
13986: -- INVCONV END
13987:
14310: END IF;
14311:
14312: IF (l_total_serials_reserved > l_to_primary_reservation_qty) THEN
14313: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
14314: fnd_msg_pub.ADD;
14315: RAISE fnd_api.g_exc_error;
14316: END IF;
14317: -- we will have to migrate the serials to the new reservation
14318: -- Just make sure that the group_mark_id and the
14330: IF l_debug=1 THEN
14331: debug_print('No serials found for serial number. : ' || l_serial_number_table(l_serial_index).serial_number);
14332: END IF;
14333: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
14334: fnd_msg_pub.ADD;
14335: RAISE fnd_api.g_exc_error;
14336: END;
14337: IF l_debug=1 THEN
14338: debug_print('Serial being migrated. serial number: ' || l_serial_number_table(l_serial_index).serial_number);
14389: IF l_debug=1 THEN
14390: debug_print('No serials found for Serial Number: ' || l_serial_number_table(i).serial_number);
14391: END IF;
14392: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
14393: fnd_msg_pub.ADD;
14394: RAISE fnd_api.g_exc_error;
14395: END;
14396:
14397: IF l_debug=1 THEN
14456: END IF;
14457: END;
14458: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
14459: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
14460: fnd_msg_pub.ADD;
14461: RAISE fnd_api.g_exc_error;
14462: END IF;
14463:
14464: END IF; -- total serials more than orig reservation qty
14468: -- exceed the to reservation count and they
14469: -- are validated.
14470: IF (l_total_serials_reserved > l_to_primary_reservation_qty) THEN
14471: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
14472: fnd_msg_pub.ADD;
14473: RAISE fnd_api.g_exc_error;
14474: END IF;
14475: END IF; -- transfer all and to row exists
14476:
14508: -- different reservation record, then fail
14509: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
14510: l_orig_rsv_tbl(1).reservation_id) OR (l_from_reservation_id IS NULL) THEN
14511: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
14512: fnd_msg_pub.ADD;
14513: RAISE fnd_api.g_exc_error;
14514: END IF;
14515:
14516: IF (l_total_serials_reserved > 0) THEN
14599: IF l_debug=1 THEN
14600: debug_print('No serials found for this data. rsv id: ' || l_orig_rsv_tbl(1).reservation_id);
14601: END IF;
14602: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
14603: fnd_msg_pub.ADD;
14604: RAISE fnd_api.g_exc_error;
14605: END;
14606:
14607: -- check to see if we have reserved more than the to_record
14618: END;
14619:
14620: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
14621: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
14622: fnd_msg_pub.ADD;
14623: RAISE fnd_api.g_exc_error;
14624: END IF;
14625:
14626: -- update with whatever is being moved to the to record
14716: IF l_debug=1 THEN
14717: debug_print('No serials found for serial number: ' || l_validate_serial_number_table(i).serial_number);
14718: END IF;
14719: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
14720: fnd_msg_pub.ADD;
14721: RAISE fnd_api.g_exc_error;
14722: END;
14723:
14724: IF l_debug=1 THEN
14740: END;
14741:
14742: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
14743: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
14744: fnd_msg_pub.ADD;
14745: RAISE fnd_api.g_exc_error;
14746: END IF;
14747:
14748: update_serial_rsv_quantity
14822: END IF;
14823:
14824: IF (l_validate_serials_reserved > l_to_primary_reservation_qty) THEN
14825: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
14826: fnd_msg_pub.ADD;
14827: RAISE fnd_api.g_exc_error;
14828: END IF;
14829:
14830: IF (l_validate_serials_reserved > 0) THEN
14914: debug_print('No serials found for this data : ' ||
14915: p_to_serial_number(i).serial_number);
14916: END IF;
14917: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
14918: fnd_msg_pub.ADD;
14919: RAISE fnd_api.g_exc_error;
14920: END;
14921:
14922: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
14921:
14922: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
14923: l_orig_rsv_tbl(1).reservation_id) THEN
14924: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
14925: fnd_msg_pub.ADD;
14926: RAISE fnd_api.g_exc_error;
14927: END IF;
14928:
14929: -- If reservation id is null, then we are reserving a new
14934: IF (l_debug = 1) THEN
14935: debug_print('Group Mark Id is not null for serial ' || p_to_serial_number(i).serial_number);
14936: END IF;
14937: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
14938: fnd_msg_pub.ADD;
14939: RAISE fnd_api.g_exc_error;
14940: END IF;
14941:
14942: BEGIN
15008: IF l_debug=1 THEN
15009: debug_print('No serials found for the serial number: ' || l_serial_number_table(l_serial_index).serial_number);
15010: END IF;
15011: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
15012: fnd_msg_pub.ADD;
15013: RAISE fnd_api.g_exc_error;
15014: END;
15015:
15016: IF l_debug=1 THEN
15032: END;
15033:
15034: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
15035: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15036: fnd_msg_pub.ADD;
15037: RAISE fnd_api.g_exc_error;
15038: END IF;
15039:
15040: -- update the to serial reservation quantity. dont have
15050: IF l_debug=1 THEN
15051: debug_print('Update failed for from reservation record. id: ' || l_to_reservation_id);
15052: END IF;
15053: fnd_message.set_name('INV', 'INV_INVALID_ROW');
15054: fnd_msg_pub.ADD;
15055: RAISE fnd_api.g_exc_error;
15056: END;
15057:
15058: IF (l_debug = 1) THEN
15120: END;
15121:
15122: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
15123: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15124: fnd_msg_pub.ADD;
15125: RAISE fnd_api.g_exc_error;
15126: END IF;
15127:
15128: BEGIN
15135: IF l_debug=1 THEN
15136: debug_print('Update failed for from reservation record. id: ' || l_to_reservation_id);
15137: END IF;
15138: fnd_message.set_name('INV', 'INV_INVALID_ROW');
15139: fnd_msg_pub.ADD;
15140: RAISE fnd_api.g_exc_error;
15141: END;
15142:
15143: IF (l_debug = 1) THEN
15230: IF l_debug=1 THEN
15231: debug_print('No serials found for Serial Number: ' || l_serial_number_table(i).serial_number);
15232: END IF;
15233: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
15234: fnd_msg_pub.ADD;
15235: RAISE fnd_api.g_exc_error;
15236: END;
15237:
15238: IF l_debug=1 THEN
15256: END;
15257:
15258: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
15259: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15260: fnd_msg_pub.ADD;
15261: RAISE fnd_api.g_exc_error;
15262: END IF;
15263:
15264: BEGIN
15271: IF l_debug=1 THEN
15272: debug_print('Update failed for to reservation record. id: ' || l_to_reservation_id);
15273: END IF;
15274: fnd_message.set_name('INV', 'INV_INVALID_ROW');
15275: fnd_msg_pub.ADD;
15276: RAISE fnd_api.g_exc_error;
15277: END;
15278:
15279: BEGIN
15298: IF l_debug=1 THEN
15299: debug_print('Update failed for from reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
15300: END IF;
15301: fnd_message.set_name('INV', 'INV_INVALID_ROW');
15302: fnd_msg_pub.ADD;
15303: RAISE fnd_api.g_exc_error;
15304: END;
15305:
15306:
15339: -- different reservation record, then fail
15340: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
15341: l_orig_rsv_tbl(1).reservation_id) OR (l_from_reservation_id IS NULL) THEN
15342: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
15343: fnd_msg_pub.ADD;
15344: RAISE fnd_api.g_exc_error;
15345: END IF;
15346:
15347: -- unreserve the passed serials.
15379: IF l_debug=1 THEN
15380: debug_print('No serials found for this data : ' || p_to_serial_number(i).serial_number);
15381: END IF;
15382: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
15383: fnd_msg_pub.ADD;
15384: RAISE fnd_api.g_exc_error;
15385: END;
15386:
15387: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
15386:
15387: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
15388: l_orig_rsv_tbl(1).reservation_id) THEN
15389: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
15390: fnd_msg_pub.ADD;
15391: RAISE fnd_api.g_exc_error;
15392: END IF;
15393:
15394: IF (l_from_reservation_id IS NULL) AND (l_group_mark_id IS NOT NULL) AND (l_group_mark_id <> -1)THEN
15395: IF (l_debug = 1) THEN
15396: debug_print('Group Mark Id is not null for serial ' || p_to_serial_number(i).serial_number);
15397: END IF;
15398: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
15399: fnd_msg_pub.ADD;
15400: RAISE fnd_api.g_exc_error;
15401: END IF;
15402:
15403: BEGIN
15478: IF l_debug=1 THEN
15479: debug_print('No serials found for this data. rsv id: ' || l_orig_rsv_tbl(1).reservation_id);
15480: END IF;
15481: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
15482: fnd_msg_pub.ADD;
15483: RAISE fnd_api.g_exc_error;
15484: END;
15485: END IF;
15486: END IF;
15498: END;
15499:
15500: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
15501: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15502: fnd_msg_pub.ADD;
15503: RAISE fnd_api.g_exc_error;
15504: END IF;
15505:
15506: BEGIN
15513: IF l_debug=1 THEN
15514: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
15515: END IF;
15516: fnd_message.set_name('INV', 'INV_INVALID_ROW');
15517: fnd_msg_pub.ADD;
15518: RAISE fnd_api.g_exc_error;
15519: END;
15520:
15521: ELSIF (l_transfer_all AND (NOT l_to_row_exist)) THEN
15586: END IF;
15587: END;
15588: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
15589: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15590: fnd_msg_pub.ADD;
15591: RAISE fnd_api.g_exc_error;
15592: END IF;
15593:
15594: BEGIN
15601: IF l_debug=1 THEN
15602: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
15603: END IF;
15604: fnd_message.set_name('INV', 'INV_INVALID_ROW');
15605: fnd_msg_pub.ADD;
15606: RAISE fnd_api.g_exc_error;
15607: END;
15608:
15609: ELSIF (NOT l_transfer_all) THEN
15681: IF l_debug=1 THEN
15682: debug_print('No serials found for serial number: ' || l_validate_serial_number_table(i).serial_number);
15683: END IF;
15684: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
15685: fnd_msg_pub.ADD;
15686: RAISE fnd_api.g_exc_error;
15687: END;
15688:
15689: IF l_debug=1 THEN
15707: END IF;
15708: END;
15709: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
15710: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15711: fnd_msg_pub.ADD;
15712: RAISE fnd_api.g_exc_error;
15713: END IF;
15714:
15715: BEGIN
15722: IF l_debug=1 THEN
15723: debug_print('No serials found for reservation record. id: ' || l_to_reservation_id);
15724: END IF;
15725: fnd_message.set_name('INV', 'INV_INVALID_ROW');
15726: fnd_msg_pub.ADD;
15727: RAISE fnd_api.g_exc_error;
15728: END;
15729:
15730: BEGIN
15749: IF l_debug=1 THEN
15750: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
15751: END IF;
15752: fnd_message.set_name('INV', 'INV_INVALID_ROW');
15753: fnd_msg_pub.ADD;
15754: RAISE fnd_api.g_exc_error;
15755: END;
15756:
15757: END IF;-- transfer all and to row exist
15784: (l_demand_lock_handle);
15785: END IF;
15786: /*** End R12 ***/
15787: -- Get message count and data
15788: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
15789: WHEN fnd_api.g_exc_unexpected_error THEN
15790: ROLLBACK TO transfer_reservation_sa;
15791: x_return_status := fnd_api.g_ret_sts_unexp_error;
15792: /**** {{ R12 Enhanced reservations code changes. Should be
15798: (l_demand_lock_handle);
15799: END IF;
15800: /*** End R12 ***/
15801: -- Get message count and data
15802: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
15803: WHEN OTHERS THEN
15804: ROLLBACK TO transfer_reservation_sa;
15805: x_return_status := fnd_api.g_ret_sts_unexp_error;
15806: /**** {{ R12 Enhanced reservations code changes. Should be
15811: inv_reservation_lock_pvt.release_lock
15812: (l_demand_lock_handle);
15813: END IF;
15814: /*** End R12 ***/
15815: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
15816: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
15817: END IF;
15818:
15819: -- Get message count and data
15812: (l_demand_lock_handle);
15813: END IF;
15814: /*** End R12 ***/
15815: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
15816: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
15817: END IF;
15818:
15819: -- Get message count and data
15820: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
15816: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
15817: END IF;
15818:
15819: -- Get message count and data
15820: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
15821: END transfer_reservation;
15822:
15823: --
15824: -- Procedure
16153:
16154: --
16155: -- Initialize message list.
16156: IF fnd_api.to_boolean(p_init_msg_lst) THEN
16157: fnd_msg_pub.initialize;
16158: END IF;
16159:
16160: --
16161: /*
16165: OR p_query_input.demand_source_header_id IS NULL
16166: ) THEN
16167: fnd_message.set_name('INV', 'INV-RSV-INPUT-MISSING');
16168: fnd_message.set_token('FIELD_NAME', 'demand_source_header_id');
16169: fnd_msg_pub.ADD;
16170: RAISE fnd_api.g_exc_error;
16171: END IF;
16172:
16173: IF (p_query_input.demand_source_line_id = fnd_api.g_miss_num
16174: OR p_query_input.demand_source_line_id IS NULL
16175: ) THEN
16176: fnd_message.set_name('INV', 'INV-RSV-INPUT-MISSING');
16177: fnd_message.set_token('FIELD_NAME', 'demand_source_line_id');
16178: fnd_msg_pub.ADD;
16179: RAISE fnd_api.g_exc_error;
16180: END IF;
16181:
16182: --Bug#2872822/2914726 OM call to this API passes null. This was changed
16228: EXCEPTION
16229: WHEN fnd_api.g_exc_error THEN
16230: x_return_status := fnd_api.g_ret_sts_error;
16231: -- Get message count and data
16232: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16233: WHEN fnd_api.g_exc_unexpected_error THEN
16234: x_return_status := fnd_api.g_ret_sts_unexp_error;
16235: -- Get message count and data
16236: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16232: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16233: WHEN fnd_api.g_exc_unexpected_error THEN
16234: x_return_status := fnd_api.g_ret_sts_unexp_error;
16235: -- Get message count and data
16236: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16237: WHEN OTHERS THEN
16238: x_return_status := fnd_api.g_ret_sts_unexp_error;
16239:
16240: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16236: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16237: WHEN OTHERS THEN
16238: x_return_status := fnd_api.g_ret_sts_unexp_error;
16239:
16240: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16241: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
16242: END IF;
16243:
16244: -- Get message count and data
16237: WHEN OTHERS THEN
16238: x_return_status := fnd_api.g_ret_sts_unexp_error;
16239:
16240: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16241: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
16242: END IF;
16243:
16244: -- Get message count and data
16245: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16241: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
16242: END IF;
16243:
16244: -- Get message count and data
16245: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16246: END query_reservation_om_hdr_line;
16247:
16248: -- Change the signiture of upd_reservation_pup for bug 2879208
16249: -- Create overload porceudre
16389: x_return_status := fnd_api.g_ret_sts_success;
16390:
16391: -- Initialize message list.
16392: IF fnd_api.to_boolean(p_init_msg_list) THEN
16393: fnd_msg_pub.initialize;
16394: END IF;
16395:
16396: SAVEPOINT upd_reservation_pup_new;
16397: l_remaining_qty := p_quantity;
16455: IF (l_debug = 1) THEN
16456: debug_print('Conversion to RSV UOM Failed');
16457: END IF;
16458: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-RSV-UOM');
16459: fnd_msg_pub.ADD;
16460: RAISE fnd_api.g_exc_error;
16461: END IF;
16462:
16463: -- Remember UOM of current remaining quantity
16493: IF (l_debug = 1) THEN
16494: debug_print('Conversion to SECONDARY UOM Failed');
16495: END IF;
16496: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-SECOND-UOM');
16497: fnd_msg_pub.ADD;
16498: RAISE fnd_api.g_exc_error;
16499: END IF;
16500: IF (l_debug = 1) THEN
16501: debug_print('After conversion secondary_qty= '||l_src_rsv.secondary_reservation_quantity); -- KYH
16575: IF (l_debug = 1) THEN
16576: debug_print('Not enough reserved quantity l_remaining_qty='||l_remaining_qty);
16577: END IF;
16578: fnd_message.set_name('INV', 'INV_UPDATE_RSV_FAILED');
16579: fnd_msg_pub.ADD;
16580: RAISE FND_API.G_EXC_ERROR;
16581: END IF;
16582:
16583: -- Standard check of p_commit.
16587: EXCEPTION
16588: WHEN FND_API.G_EXC_ERROR THEN
16589: ROLLBACK TO upd_reservation_pup_new;
16590: x_return_status := fnd_api.g_ret_sts_error;
16591: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
16592: IF (l_debug = 1) THEN
16593: debug_print(l_api_name ||' Exec Err prog='||l_progress||' SQL error: '|| SQLERRM(SQLCODE));
16594: END IF;
16595: WHEN OTHERS THEN
16594: END IF;
16595: WHEN OTHERS THEN
16596: ROLLBACK TO upd_reservation_pup_new;
16597: x_return_status := fnd_api.g_ret_sts_unexp_error;
16598: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
16599: IF (l_debug = 1) THEN
16600: debug_print(l_api_name ||' Unexp Err prog='||l_progress||' SQL error: '|| SQLERRM(SQLCODE));
16601: END IF;
16602: END Upd_Reservation_PUP_New;
16808: IF (l_debug = 1) THEN
16809: debug_print('upd_reservation_pup failed '|| x_msg_data, 1);
16810: END IF;
16811: fnd_message.set_name('WMS', 'UPD_RESERVATION_PUP_FAIL');
16812: fnd_msg_pub.ADD;
16813: RAISE fnd_api.g_exc_unexpected_error;
16814: END IF;
16815: END LOOP;
16816:
16863: IF (l_debug = 1) THEN
16864: debug_print('upd_reservation_pup failed '|| x_msg_data, 1);
16865: END IF;
16866: fnd_message.set_name('WMS', 'UPD_RESERVATION_PUP_FAIL');
16867: fnd_msg_pub.ADD;
16868: RAISE fnd_api.g_exc_unexpected_error;
16869: END IF;
16870:
16871: l_count := l_count + 1;
16873: IF (l_debug = 1) THEN
16874: debug_print('**Split disallowed for lpns with multiple delivery lines for the same item', 1);
16875: END IF;
16876: fnd_message.set_name('INV', 'INV_MULTI_DEL_SPLIT_ERROR');
16877: fnd_msg_pub.ADD;
16878: RAISE fnd_api.g_exc_error;
16879: END IF;
16880: END LOOP;
16881: END LOOP;
16918: IF (l_debug = 1) THEN
16919: debug_print('upd_reservation_pup failed '|| x_msg_data, 1);
16920: END IF;
16921: fnd_message.set_name('WMS', 'UPD_RESERVATION_PUP_FAIL');
16922: fnd_msg_pub.ADD;
16923: RAISE fnd_api.g_exc_unexpected_error;
16924: END IF;
16925:
16926: l_count := l_count + 1;
16928: IF (l_debug = 1) THEN
16929: debug_print('**Split disallowed for lpns with multiple delivery lines for the same item', 1);
16930: END IF;
16931: fnd_message.set_name('INV', 'INV_MULTI_DEL_SPLIT_ERROR');
16932: fnd_msg_pub.ADD;
16933: RAISE fnd_api.g_exc_error;
16934: END IF;
16935: END LOOP;
16936: END IF;
16937: END IF;
16938: EXCEPTION
16939: WHEN fnd_api.g_exc_error THEN
16940: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
16941: fnd_msg_pub.ADD;
16942: ROLLBACK TO transfer_lpn_trx_reservation;
16943: x_return_status := fnd_api.g_ret_sts_error;
16944: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16945: WHEN fnd_api.g_exc_unexpected_error THEN
16940: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
16941: fnd_msg_pub.ADD;
16942: ROLLBACK TO transfer_lpn_trx_reservation;
16943: x_return_status := fnd_api.g_ret_sts_error;
16944: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16945: WHEN fnd_api.g_exc_unexpected_error THEN
16946: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
16947: fnd_msg_pub.ADD;
16948: ROLLBACK TO transfer_lpn_trx_reservation;
16943: x_return_status := fnd_api.g_ret_sts_error;
16944: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16945: WHEN fnd_api.g_exc_unexpected_error THEN
16946: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
16947: fnd_msg_pub.ADD;
16948: ROLLBACK TO transfer_lpn_trx_reservation;
16949: x_return_status := fnd_api.g_ret_sts_unexp_error;
16950: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16951: WHEN OTHERS THEN
16946: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
16947: fnd_msg_pub.ADD;
16948: ROLLBACK TO transfer_lpn_trx_reservation;
16949: x_return_status := fnd_api.g_ret_sts_unexp_error;
16950: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16951: WHEN OTHERS THEN
16952: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
16953: fnd_msg_pub.ADD;
16954: ROLLBACK TO transfer_lpn_trx_reservation;
16949: x_return_status := fnd_api.g_ret_sts_unexp_error;
16950: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16951: WHEN OTHERS THEN
16952: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
16953: fnd_msg_pub.ADD;
16954: ROLLBACK TO transfer_lpn_trx_reservation;
16955: x_return_status := fnd_api.g_ret_sts_unexp_error;
16956:
16957: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16953: fnd_msg_pub.ADD;
16954: ROLLBACK TO transfer_lpn_trx_reservation;
16955: x_return_status := fnd_api.g_ret_sts_unexp_error;
16956:
16957: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16958: fnd_msg_pub.add_exc_msg('wms_upd_res_pvt', 'TRANSFER_LPN_TRX_RESERVATION');
16959: END IF;
16960:
16961: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16954: ROLLBACK TO transfer_lpn_trx_reservation;
16955: x_return_status := fnd_api.g_ret_sts_unexp_error;
16956:
16957: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16958: fnd_msg_pub.add_exc_msg('wms_upd_res_pvt', 'TRANSFER_LPN_TRX_RESERVATION');
16959: END IF;
16960:
16961: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16962: END transfer_lpn_trx_reservation;
16957: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16958: fnd_msg_pub.add_exc_msg('wms_upd_res_pvt', 'TRANSFER_LPN_TRX_RESERVATION');
16959: END IF;
16960:
16961: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16962: END transfer_lpn_trx_reservation;
16963:
16964: PROCEDURE insert_rsv_temp(
16965: p_organization_id NUMBER
17008: EXCEPTION
17009: WHEN OTHERS THEN
17010: x_return_status := fnd_api.g_ret_sts_unexp_error;
17011:
17012: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17013: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17014: END IF;
17015:
17016: -- Get message count and data
17009: WHEN OTHERS THEN
17010: x_return_status := fnd_api.g_ret_sts_unexp_error;
17011:
17012: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17013: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17014: END IF;
17015:
17016: -- Get message count and data
17017: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17013: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17014: END IF;
17015:
17016: -- Get message count and data
17017: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17018: END insert_rsv_temp;
17019:
17020: --Ref 2132071 This procedure pick up reservations created from last commit issued
17021: --and check if there is any node violation.If there is one then it will clear
17138: EXCEPTION
17139: WHEN fnd_api.g_exc_error THEN
17140: x_return_status := fnd_api.g_ret_sts_error;
17141: -- Get message count and data
17142: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17143: WHEN fnd_api.g_exc_unexpected_error THEN
17144: x_return_status := fnd_api.g_ret_sts_unexp_error;
17145: -- Get message count and data
17146: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17142: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17143: WHEN fnd_api.g_exc_unexpected_error THEN
17144: x_return_status := fnd_api.g_ret_sts_unexp_error;
17145: -- Get message count and data
17146: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17147: WHEN OTHERS THEN
17148: x_return_status := fnd_api.g_ret_sts_unexp_error;
17149:
17150: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17146: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17147: WHEN OTHERS THEN
17148: x_return_status := fnd_api.g_ret_sts_unexp_error;
17149:
17150: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17151: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17152: END IF;
17153:
17154: -- Get message count and data
17147: WHEN OTHERS THEN
17148: x_return_status := fnd_api.g_ret_sts_unexp_error;
17149:
17150: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17151: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17152: END IF;
17153:
17154: -- Get message count and data
17155: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17151: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17152: END IF;
17153:
17154: -- Get message count and data
17155: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17156: END do_check_for_commit;
17157:
17158: /**** {{ R12 Enhanced reservations code changes }}****/
17159: PROCEDURE Transfer_Reservation_SubXfer
17274: WHEN fnd_api.g_exc_error THEN
17275: x_return_status := fnd_api.g_ret_sts_error;
17276:
17277: -- Get message count and data
17278: fnd_msg_pub.count_and_get
17279: ( p_count => x_msg_count
17280: , p_data => x_msg_data
17281: );
17282:
17283: WHEN fnd_api.g_exc_unexpected_error THEN
17284: x_return_status := fnd_api.g_ret_sts_unexp_error ;
17285:
17286: -- Get message count and data
17287: fnd_msg_pub.count_and_get
17288: ( p_count => x_msg_count
17289: , p_data => x_msg_data
17290: );
17291:
17291:
17292: WHEN OTHERS THEN
17293: x_return_status := fnd_api.g_ret_sts_unexp_error ;
17294:
17295: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
17296: THEN
17297: fnd_msg_pub.add_exc_msg
17298: ( g_pkg_name
17299: , l_api_name
17293: x_return_status := fnd_api.g_ret_sts_unexp_error ;
17294:
17295: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
17296: THEN
17297: fnd_msg_pub.add_exc_msg
17298: ( g_pkg_name
17299: , l_api_name
17300: );
17301: END IF;
17300: );
17301: END IF;
17302:
17303: -- Get message count and data
17304: fnd_msg_pub.count_and_get
17305: ( p_count => x_msg_count
17306: , p_data => x_msg_data
17307: );
17308:
17544: EXCEPTION
17545: WHEN fnd_api.g_exc_error THEN
17546: x_return_status := fnd_api.g_ret_sts_error;
17547: -- Get message count and data
17548: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17549: WHEN fnd_api.g_exc_unexpected_error THEN
17550: x_return_status := fnd_api.g_ret_sts_unexp_error;
17551:
17552: IF (l_debug = 1) THEN
17553: debug_print('unexpected error: ' || SQLERRM);
17554: END IF;
17555:
17556: -- Get message count and data
17557: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17558: WHEN OTHERS THEN
17559: x_return_status := fnd_api.g_ret_sts_unexp_error;
17560:
17561: IF (l_debug = 1) THEN
17561: IF (l_debug = 1) THEN
17562: debug_print('others error: ' || SQLERRM);
17563: END IF;
17564:
17565: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17566: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17567: END IF;
17568:
17569: -- Get message count and data
17562: debug_print('others error: ' || SQLERRM);
17563: END IF;
17564:
17565: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17566: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17567: END IF;
17568:
17569: -- Get message count and data
17570: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17566: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17567: END IF;
17568:
17569: -- Get message count and data
17570: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17571: END transfer_serial_rsv_in_LPN;
17572:
17573: /*** End R12 ***/
17574: