[Home] [Help]
504: x_return_status := fnd_api.g_ret_sts_unexp_error;
505: x_reservable_qty := 0;
506: x_qty_available := 0;
507: --
508: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
509: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_supply_reservable_qty');
510: END IF;
511:
512: END get_supply_reservable_qty;
505: x_reservable_qty := 0;
506: x_qty_available := 0;
507: --
508: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
509: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_supply_reservable_qty');
510: END IF;
511:
512: END get_supply_reservable_qty;
513:
764: x_qty_available := 0;
765: x_reservable_qty2 := 0;
766: x_qty_available2 := 0;
767: --
768: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
769: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_demand_reservable_qty');
770: END IF;
771:
772: END get_demand_reservable_qty;
765: x_reservable_qty2 := 0;
766: x_qty_available2 := 0;
767: --
768: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
769: fnd_msg_pub.add_exc_msg(g_pkg_name, 'get_demand_reservable_qty');
770: END IF;
771:
772: END get_demand_reservable_qty;
773:
821: END IF;
822: --
823: -- Initialize message list.
824: IF fnd_api.to_boolean(p_init_msg_lst) THEN
825: fnd_msg_pub.initialize;
826: END IF;
827:
828: IF p_demand_type_id IN (inv_reservation_global.g_source_type_oe,
829: inv_reservation_global.g_source_type_internal_ord,
917: WHEN fnd_api.g_exc_error THEN
918: x_return_status := fnd_api.g_ret_sts_error;
919:
920: -- Get message count and data
921: fnd_msg_pub.count_and_get
922: ( p_count => x_msg_count
923: , p_data => x_msg_data
924: , p_encoded => 'F'
925: );
927: WHEN fnd_api.g_exc_unexpected_error THEN
928: x_return_status := fnd_api.g_ret_sts_unexp_error ;
929:
930: -- Get message count and data
931: fnd_msg_pub.count_and_get
932: ( p_count => x_msg_count
933: , p_data => x_msg_data
934: , p_encoded => 'F'
935: );
936:
937: WHEN OTHERS THEN
938: x_return_status := fnd_api.g_ret_sts_unexp_error ;
939:
940: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
941: THEN
942: fnd_msg_pub.add_exc_msg
943: ( g_pkg_name
944: , l_api_name
938: x_return_status := fnd_api.g_ret_sts_unexp_error ;
939:
940: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
941: THEN
942: fnd_msg_pub.add_exc_msg
943: ( g_pkg_name
944: , l_api_name
945: );
946: END IF;
945: );
946: END IF;
947:
948: -- Get message count and data
949: fnd_msg_pub.count_and_get
950: ( p_count => x_msg_count
951: , p_data => x_msg_data
952: , p_encoded => 'F'
953: );
1016:
1017: IF l_tmp_quantity = -99999 THEN
1018: -- conversion failed
1019: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-PRIMARY-UOM');
1020: fnd_msg_pub.ADD;
1021: RAISE fnd_api.g_exc_error;
1022: END IF;
1023:
1024: --
1072:
1073: IF l_tmp_quantity = -99999 THEN
1074: -- conversion failed
1075: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-RSV-UOM');
1076: fnd_msg_pub.ADD;
1077: RAISE fnd_api.g_exc_error;
1078: END IF;
1079: ELSE
1080: -- INVCONV upgrade inv_um_convert call
1092:
1093: IF l_tmp_quantity = -99999 THEN
1094: -- conversion failed
1095: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-RSV-UOM');
1096: fnd_msg_pub.ADD;
1097: RAISE fnd_api.g_exc_error;
1098: END IF;
1099: END IF;
1100:
1120:
1121: IF l_tmp_secondary_quantity = -99999 THEN
1122: -- conversion failed
1123: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-SECOND-UOM'); -- INVCONV NEW MESSAGE
1124: fnd_msg_pub.ADD;
1125: RAISE fnd_api.g_exc_error;
1126: END IF;
1127: px_rsv_rec.secondary_reservation_quantity := l_tmp_secondary_quantity; -- INVCONV
1128: END IF;
1148:
1149: IF l_tmp_secondary_quantity = -99999 THEN
1150: -- conversion failed
1151: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-SECOND-UOM'); -- INVCONV NEW MESSAGE
1152: fnd_msg_pub.ADD;
1153: RAISE fnd_api.g_exc_error;
1154: END IF;
1155: px_rsv_rec.secondary_detailed_quantity := l_tmp_secondary_quantity; -- INVCONV
1156: END IF;
1171: WHEN OTHERS THEN
1172: x_return_status := fnd_api.g_ret_sts_unexp_error;
1173:
1174: --
1175: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1176: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Convert_Quantity');
1177: END IF;
1178: END convert_quantity;
1179:
1172: x_return_status := fnd_api.g_ret_sts_unexp_error;
1173:
1174: --
1175: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1176: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Convert_Quantity');
1177: END IF;
1178: END convert_quantity;
1179:
1180: --
2599: l_debug := g_debug;
2600:
2601: IF (p_source_type_id <> INV_RESERVATION_GLOBAL.g_source_type_wip) THEN
2602: fnd_message.set_name('INV', 'INV_INVALID_SUPPLY_SOURCE');
2603: fnd_msg_pub.add;
2604: RAISE fnd_api.g_exc_error;
2605: END IF;
2606:
2607: BEGIN
2614: IF (l_debug = 1) THEN
2615: debug_print('No WIP entity record found for the source header passed' );
2616: END IF;
2617: fnd_message.set_name('INV', 'INV_INVALID_WIP_ENTITY_TYPE');
2618: fnd_msg_pub.add;
2619: RAISE fnd_api.g_exc_error;
2620: END ;
2621:
2622: IF l_wip_entity_id = inv_reservation_global.g_wip_source_type_discrete then
2654: EXCEPTION
2655: WHEN fnd_api.g_exc_error THEN
2656: x_return_status := fnd_api.g_ret_sts_error;
2657: -- Get message count and data
2658: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2659: WHEN fnd_api.g_exc_unexpected_error THEN
2660: x_return_status := fnd_api.g_ret_sts_unexp_error;
2661: -- Get message count and data
2662: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2658: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2659: WHEN fnd_api.g_exc_unexpected_error THEN
2660: x_return_status := fnd_api.g_ret_sts_unexp_error;
2661: -- Get message count and data
2662: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2663: WHEN OTHERS THEN
2664: x_return_status := fnd_api.g_ret_sts_unexp_error;
2665:
2666: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2662: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2663: WHEN OTHERS THEN
2664: x_return_status := fnd_api.g_ret_sts_unexp_error;
2665:
2666: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2667: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2668: END IF;
2669:
2670: -- Get message count and data
2663: WHEN OTHERS THEN
2664: x_return_status := fnd_api.g_ret_sts_unexp_error;
2665:
2666: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2667: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2668: END IF;
2669:
2670: -- Get message count and data
2671: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2667: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2668: END IF;
2669:
2670: -- Get message count and data
2671: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2672: END get_wip_entity_type;
2673:
2674: PROCEDURE update_serial_rsv_quantity(
2675: x_return_status OUT NOCOPY VARCHAR2
2708: EXCEPTION
2709: WHEN fnd_api.g_exc_error THEN
2710: x_return_status := fnd_api.g_ret_sts_error;
2711: -- Get message count and data
2712: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2713: WHEN fnd_api.g_exc_unexpected_error THEN
2714: x_return_status := fnd_api.g_ret_sts_unexp_error;
2715: -- Get message count and data
2716: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2712: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2713: WHEN fnd_api.g_exc_unexpected_error THEN
2714: x_return_status := fnd_api.g_ret_sts_unexp_error;
2715: -- Get message count and data
2716: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2717: WHEN OTHERS THEN
2718: x_return_status := fnd_api.g_ret_sts_unexp_error;
2719:
2720: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2716: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2717: WHEN OTHERS THEN
2718: x_return_status := fnd_api.g_ret_sts_unexp_error;
2719:
2720: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2721: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2722: END IF;
2723:
2724: -- Get message count and data
2717: WHEN OTHERS THEN
2718: x_return_status := fnd_api.g_ret_sts_unexp_error;
2719:
2720: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2721: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2722: END IF;
2723:
2724: -- Get message count and data
2725: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2721: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2722: END IF;
2723:
2724: -- Get message count and data
2725: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2726:
2727: END update_serial_rsv_quantity;
2728:
2729: PROCEDURE is_serial_number_reserved(
2783: EXCEPTION
2784: WHEN fnd_api.g_exc_error THEN
2785: x_return_status := fnd_api.g_ret_sts_error;
2786: -- Get message count and data
2787: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2788: WHEN fnd_api.g_exc_unexpected_error THEN
2789: x_return_status := fnd_api.g_ret_sts_unexp_error;
2790: -- Get message count and data
2791: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2787: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2788: WHEN fnd_api.g_exc_unexpected_error THEN
2789: x_return_status := fnd_api.g_ret_sts_unexp_error;
2790: -- Get message count and data
2791: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2792: WHEN OTHERS THEN
2793: x_return_status := fnd_api.g_ret_sts_unexp_error;
2794:
2795: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2791: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2792: WHEN OTHERS THEN
2793: x_return_status := fnd_api.g_ret_sts_unexp_error;
2794:
2795: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2796: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2797: END IF;
2798:
2799: -- Get message count and data
2792: WHEN OTHERS THEN
2793: x_return_status := fnd_api.g_ret_sts_unexp_error;
2794:
2795: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2796: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2797: END IF;
2798:
2799: -- Get message count and data
2800: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2796: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2797: END IF;
2798:
2799: -- Get message count and data
2800: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2801: END is_serial_number_reserved;
2802:
2803: PROCEDURE is_serial_reserved(
2804: p_api_version_number IN NUMBER
2938: EXCEPTION
2939: WHEN fnd_api.g_exc_error THEN
2940: x_return_status := fnd_api.g_ret_sts_error;
2941: -- Get message count and data
2942: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2943: WHEN fnd_api.g_exc_unexpected_error THEN
2944: x_return_status := fnd_api.g_ret_sts_unexp_error;
2945: -- Get message count and data
2946: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2942: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2943: WHEN fnd_api.g_exc_unexpected_error THEN
2944: x_return_status := fnd_api.g_ret_sts_unexp_error;
2945: -- Get message count and data
2946: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2947: WHEN OTHERS THEN
2948: x_return_status := fnd_api.g_ret_sts_unexp_error;
2949:
2950: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2946: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2947: WHEN OTHERS THEN
2948: x_return_status := fnd_api.g_ret_sts_unexp_error;
2949:
2950: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2951: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2952: END IF;
2953:
2954: -- Get message count and data
2947: WHEN OTHERS THEN
2948: x_return_status := fnd_api.g_ret_sts_unexp_error;
2949:
2950: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2951: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2952: END IF;
2953:
2954: -- Get message count and data
2955: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2951: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
2952: END IF;
2953:
2954: -- Get message count and data
2955: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2956: END is_serial_reserved;
2957: /*** End R12 ***/
2958:
2959:
3100: IF p_lot_divisible_flag = 'N' THEN
3101: IF l_net_qty < l_atr THEN
3102: -- Available to reserve cannot be subdivided
3103: fnd_message.set_name('INV', 'INV_LOT_INDIVISIBLE_VIOLATION'); -- INVCONV New Message
3104: fnd_msg_pub.ADD;
3105: RAISE fnd_api.g_exc_error;
3106: END IF;
3107: END IF;
3108: -- INVCONV END - lot_indivisible quantities cannot be split
3146: OR (l_atr <= 0 AND p_partial_reservation_flag = fnd_api.g_true)
3147: OR (l_fulfill_base ='S' AND l_secondary_net_qty > l_satr AND p_partial_reservation_flag = fnd_api.g_false)
3148: ) THEN
3149: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
3150: fnd_msg_pub.ADD;
3151: RAISE fnd_api.g_exc_error;
3152: END IF;
3153:
3154: IF (l_debug = 1) THEN
3245: WHEN OTHERS THEN
3246: x_return_status := fnd_api.g_ret_sts_unexp_error;
3247:
3248: --
3249: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3250: fnd_msg_pub.add_exc_msg(g_pkg_name, 'modify_tree_crt_del_rel');
3251: END IF;
3252: END modify_tree_crt_del_rel;
3253:
3246: x_return_status := fnd_api.g_ret_sts_unexp_error;
3247:
3248: --
3249: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3250: fnd_msg_pub.add_exc_msg(g_pkg_name, 'modify_tree_crt_del_rel');
3251: END IF;
3252: END modify_tree_crt_del_rel;
3253:
3254: --
3562: debug_print('Lot indivisible scenario so compare l_atr '||l_atr ||' with l_net_qty2 '||l_net_qty2);
3563: END IF;
3564: IF l_atr > l_net_qty2 THEN
3565: fnd_message.set_name('INV', 'INV_LOT_INDIVISIBLE_VIOLATION');
3566: fnd_msg_pub.ADD;
3567: RAISE fnd_api.g_exc_error;
3568: END IF;
3569: END IF;
3570: -- INVCONV END
3638: END IF;
3639:
3640:
3641: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
3642: fnd_msg_pub.ADD;
3643: RAISE fnd_api.g_exc_error;
3644: END IF;
3645: --Changed for Qty validation. Bug 3336837
3646:
3832: WHEN OTHERS THEN
3833: x_return_status := fnd_api.g_ret_sts_unexp_error;
3834:
3835: --
3836: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3837: fnd_msg_pub.add_exc_msg(g_pkg_name, 'modify_tree_for_update_xfer');
3838: END IF;
3839: END modify_tree_for_update_xfer;
3840:
3833: x_return_status := fnd_api.g_ret_sts_unexp_error;
3834:
3835: --
3836: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
3837: fnd_msg_pub.add_exc_msg(g_pkg_name, 'modify_tree_for_update_xfer');
3838: END IF;
3839: END modify_tree_for_update_xfer;
3840:
3841: --
4769:
4770: --
4771: -- Initialize message list.
4772: IF fnd_api.to_boolean(p_init_msg_lst) THEN
4773: fnd_msg_pub.initialize;
4774: END IF;
4775:
4776: --
4777: IF (l_debug = 1) then
7798: EXCEPTION
7799: WHEN fnd_api.g_exc_error THEN
7800: x_return_status := fnd_api.g_ret_sts_error;
7801: -- Get message count and data
7802: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7803: WHEN fnd_api.g_exc_unexpected_error THEN
7804: x_return_status := fnd_api.g_ret_sts_unexp_error;
7805: -- Get message count and data
7806: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7802: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7803: WHEN fnd_api.g_exc_unexpected_error THEN
7804: x_return_status := fnd_api.g_ret_sts_unexp_error;
7805: -- Get message count and data
7806: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7807: WHEN OTHERS THEN
7808: IF SQLCODE = -54 THEN -- failed to lock
7809: x_return_status := fnd_api.g_ret_sts_error;
7810: x_error_code := inv_reservation_global.g_err_fail_to_lock_rec;
7810: x_error_code := inv_reservation_global.g_err_fail_to_lock_rec;
7811: ELSE
7812: x_return_status := fnd_api.g_ret_sts_unexp_error;
7813:
7814: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7815: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7816: END IF;
7817:
7818: -- Get message count and data
7811: ELSE
7812: x_return_status := fnd_api.g_ret_sts_unexp_error;
7813:
7814: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7815: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7816: END IF;
7817:
7818: -- Get message count and data
7819: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7815: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
7816: END IF;
7817:
7818: -- Get message count and data
7819: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7820: END IF;
7821: END query_reservation;
7822:
7823: /**** {{ R12 Enhanced reservations code changes. Overloaded query
8016: EXCEPTION
8017: WHEN fnd_api.g_exc_error THEN
8018: x_return_status := fnd_api.g_ret_sts_error;
8019: -- Get message count and data
8020: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8021: WHEN fnd_api.g_exc_unexpected_error THEN
8022: x_return_status := fnd_api.g_ret_sts_unexp_error;
8023: -- Get message count and data
8024: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8020: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8021: WHEN fnd_api.g_exc_unexpected_error THEN
8022: x_return_status := fnd_api.g_ret_sts_unexp_error;
8023: -- Get message count and data
8024: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8025: WHEN OTHERS THEN
8026: IF SQLCODE = -54 THEN -- failed to lock
8027: x_return_status := fnd_api.g_ret_sts_error;
8028: x_error_code := inv_reservation_global.g_err_fail_to_lock_rec;
8028: x_error_code := inv_reservation_global.g_err_fail_to_lock_rec;
8029: ELSE
8030: x_return_status := fnd_api.g_ret_sts_unexp_error;
8031:
8032: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8033: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8034: END IF;
8035:
8036: -- Get message count and data
8029: ELSE
8030: x_return_status := fnd_api.g_ret_sts_unexp_error;
8031:
8032: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
8033: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8034: END IF;
8035:
8036: -- Get message count and data
8037: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8033: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
8034: END IF;
8035:
8036: -- Get message count and data
8037: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
8038: END IF;
8039: END query_reservation;
8040:
8041: /*** End R12 ***/
8171:
8172: --
8173: -- Initialize message list.
8174: IF fnd_api.to_boolean(p_init_msg_lst) THEN
8175: fnd_msg_pub.initialize;
8176: END IF;
8177:
8178: /**** {{ R12 Enhanced reservations code changes.Initializing orig parameters }}****/
8179:
8298: IF l_debug=1 THEN
8299: debug_print('Serial numbers are passed with partial flag exists. error out');
8300: END IF;
8301: fnd_message.set_name('INV', 'INV_SER_PARTIAL_RSV_EXISTS');
8302: fnd_msg_pub.add;
8303: RAISE fnd_api.g_exc_error;
8304: END IF;
8305:
8306: IF l_debug=1 THEN
8484: ,x_lock_status => l_lock_status);
8485:
8486: IF l_lock_status = 0 THEN
8487: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
8488: fnd_msg_pub.ADD;
8489: RAISE fnd_api.g_exc_error;
8490: END if;
8491:
8492: inv_reservation_lock_pvt.lock_supply_demand_record
8500: ,x_lock_status => l_lock_status);
8501:
8502: IF l_lock_status = 0 THEN
8503: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
8504: fnd_msg_pub.ADD;
8505: RAISE fnd_api.g_exc_error;
8506: END if;
8507:
8508: l_lock_obtained := TRUE;
8526:
8527: IF ((NVL(l_rsv_rec.reservation_quantity,0) < 0) OR
8528: (NVL(l_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
8529: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
8530: fnd_msg_pub.ADD;
8531: RAISE fnd_api.g_exc_error;
8532: END IF;
8533:
8534: /*---------------- Added by nimisra for bug6268983 ----------------
8537: --------------------------------------------------------------------*/
8538: IF (p_rsv_rec.demand_source_type_id=2 or p_rsv_rec.demand_source_type_id=8)
8539: and (p_rsv_rec.demand_source_name is NOT NULL) THEN
8540: fnd_message.set_name('INV', 'INV_INVALID_DEMAND_SOURCE');
8541: fnd_msg_pub.ADD; debug_print('For Sales Orders and Internal Orders DEMAND_SOURCE_NAME Should Be Null');
8542: RAISE fnd_api.g_exc_error;
8543: END IF;
8544:
8545: /* ------------------Added by nimisra for bug6268983--------------- */
8564: -- for creation of reservation.
8565: -- must be some value or null.
8566: fnd_message.set_name('INV', 'INV-RSV-INPUT-MISSING');
8567: fnd_message.set_token('FIELD_NAME', l_what_field);
8568: fnd_msg_pub.ADD;
8569: RAISE fnd_api.g_exc_error;
8570: END IF;
8571:
8572:
8655:
8656: --
8657: IF l_tmp_rsv_tbl_count > 0 THEN
8658: fnd_message.set_name('INV', 'INV-RESERVATION-EXIST');
8659: fnd_msg_pub.ADD;
8660: RAISE fnd_api.g_exc_error;
8661: END IF;
8662:
8663: *** End comment *******/
9051: IF l_serial_number.COUNT > 0 THEN
9052: l_rsv_rec.serial_reservation_quantity := l_serial_number.COUNT;
9053: IF (l_rsv_rec.serial_reservation_quantity > l_rsv_rec.primary_reservation_quantity) THEN
9054: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
9055: fnd_msg_pub.ADD;
9056: RAISE fnd_api.g_exc_error;
9057: END IF;
9058:
9059: END IF;
9117:
9118: -- bug #5454715. Error out if the available supply to reserve is zero.
9119: IF l_qty_changed = 0 THEN
9120: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
9121: fnd_msg_pub.ADD;
9122: RAISE fnd_api.g_exc_error;
9123: END IF;
9124:
9125:
9130: IF (l_debug = 1) THEN
9131: debug_print('The supply document doesnt have enough quantity to be reserved against. error out. ');
9132: END IF;
9133: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
9134: fnd_msg_pub.ADD;
9135: RAISE fnd_api.g_exc_error;
9136: ELSE
9137: l_rsv_rec.primary_reservation_quantity := l_qty_changed + NVL(l_rsv_rec.detailed_quantity, 0);
9138: l_rsv_rec.reservation_quantity := NULL;
9289: IF (l_debug= 1) THEN
9290: debug_print('The demand document doesnt have enough quantity to be reserved against. error out. for fulfilment base=S');
9291: END IF;
9292: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
9293: fnd_msg_pub.add;
9294: raise fnd_api.g_exc_error;
9295: END IF;
9296: ELSE
9297: IF ((l_reservation_qty_lot - l_qty_changed) > 0.000005) THEN
9298: IF (l_debug = 1) THEN
9299: debug_print('The demand document doesnt have enough quantity to be reserved against. error out. ');
9300: END IF;
9301: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
9302: fnd_msg_pub.add;
9303: raise fnd_api.g_exc_error;
9304: END IF;
9305: END IF; -- MUOM fulfillment Project ends
9306:
9322:
9323: IF ( (NVL(l_rsv_rec.reservation_quantity,0) < 0) OR
9324: (NVL(l_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
9325: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
9326: fnd_msg_pub.ADD;
9327: RAISE fnd_api.g_exc_error;
9328: END IF;
9329:
9330: --Bug 5535030 Selecting the sequence value has been moved to the table handler in
9414: IF l_serial_number.COUNT > 0 THEN
9415: l_rsv_rec.serial_reservation_quantity := l_serial_number.COUNT;
9416: IF (l_rsv_rec.serial_reservation_quantity > l_rsv_rec.primary_reservation_quantity) THEN
9417: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
9418: fnd_msg_pub.ADD;
9419: RAISE fnd_api.g_exc_error;
9420: END IF;
9421: END IF;
9422:
9593: IF (l_debug = 1) THEN
9594: debug_print('Errow while selecting the serial number. serial Number ' || l_serial_number(l_serial_index).serial_number);
9595: END IF;
9596: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
9597: fnd_msg_pub.ADD;
9598: RAISE fnd_api.g_exc_error;
9599: END;
9600:
9601: IF (l_group_mark_id IS NOT NULL) AND (l_group_mark_id <> -1)THEN
9602: IF (l_debug = 1) THEN
9603: debug_print('Group Mark Id is not null for serial ' || l_serial_number(l_serial_index).serial_number);
9604: END IF;
9605: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
9606: fnd_msg_pub.ADD;
9607: RAISE fnd_api.g_exc_error;
9608: END IF;
9609:
9610: BEGIN
9621: IF (l_debug = 1) THEN
9622: 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);
9623: END IF;
9624: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
9625: fnd_msg_pub.ADD;
9626: RAISE fnd_api.g_exc_error;
9627: END;
9628: END LOOP;
9629:
9734: (l_demand_lock_handle);
9735: END IF;
9736: /*** End R12 ***/
9737: -- Get message count and data
9738: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9739: WHEN fnd_api.g_exc_unexpected_error THEN
9740: ROLLBACK TO create_reservation_sa;
9741: x_return_status := fnd_api.g_ret_sts_unexp_error;
9742: /**** {{ R12 Enhanced reservations code changes. Should be
9748: (l_demand_lock_handle);
9749: END IF;
9750: /*** End R12 ***/
9751: -- Get message count and data
9752: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9753: WHEN OTHERS THEN
9754: ROLLBACK TO create_reservation_sa;
9755: x_return_status := fnd_api.g_ret_sts_unexp_error;
9756: /**** {{ R12 Enhanced reservations code changes. Should be
9761: inv_reservation_lock_pvt.release_lock
9762: (l_demand_lock_handle);
9763: END IF;
9764: /*** End R12 ***/
9765: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9766: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9767: END IF;
9768:
9769: -- Get message count and data
9762: (l_demand_lock_handle);
9763: END IF;
9764: /*** End R12 ***/
9765: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
9766: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9767: END IF;
9768:
9769: -- Get message count and data
9770: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9766: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
9767: END IF;
9768:
9769: -- Get message count and data
9770: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
9771: END create_reservation;
9772:
9773:
9774: PROCEDURE update_reservation
9809: END IF;
9810:
9811: -- Initialize message list.
9812: IF fnd_api.to_boolean(p_init_msg_lst) THEN
9813: fnd_msg_pub.initialize;
9814: END IF;
9815:
9816: -- Use cache to get value for l_debug
9817: IF g_is_pickrelease_set IS NULL THEN
9878:
9879: WHEN fnd_api.g_exc_error THEN
9880: x_return_status := fnd_api.g_ret_sts_error;
9881: -- Get message count and data
9882: fnd_msg_pub.count_and_get
9883: ( p_count => x_msg_count
9884: , p_data => x_msg_data
9885: );
9886:
9887: WHEN fnd_api.g_exc_unexpected_error THEN
9888: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9889:
9890: -- Get message count and data
9891: fnd_msg_pub.count_and_get
9892: ( p_count => x_msg_count
9893: , p_data => x_msg_data
9894: );
9895:
9895:
9896: WHEN OTHERS THEN
9897: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9898:
9899: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9900: THEN
9901: fnd_msg_pub.add_exc_msg
9902: ( g_pkg_name
9903: , l_api_name
9897: x_return_status := fnd_api.g_ret_sts_unexp_error ;
9898:
9899: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
9900: THEN
9901: fnd_msg_pub.add_exc_msg
9902: ( g_pkg_name
9903: , l_api_name
9904: );
9905: END IF;
9904: );
9905: END IF;
9906:
9907: -- Get message count and data
9908: fnd_msg_pub.count_and_get
9909: ( p_count => x_msg_count
9910: , p_data => x_msg_data
9911: );
9912:
10076:
10077: IF ((NVL(p_to_rsv_rec.reservation_quantity,0) < 0) OR
10078: (NVL(p_to_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
10079: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
10080: fnd_msg_pub.ADD;
10081: RAISE fnd_api.g_exc_error;
10082: END IF;
10083:
10084: -- INVCONV BEGIN
10084: -- INVCONV BEGIN
10085: /*Bug#13045525 Changing the condition as the validation makes sense when the primary quantity is greater than zero */
10086: IF (NVL(p_to_rsv_rec.primary_reservation_quantity,0) > 0) AND (NVL(p_to_rsv_rec.secondary_reservation_quantity,0) < 0) THEN
10087: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY QTY'); -- INVCONV NEW MESSAGE
10088: fnd_msg_pub.ADD;
10089: RAISE fnd_api.g_exc_error;
10090: END IF;
10091: -- INVCONV END
10092:
10142:
10143: --
10144: -- Initialize message list.
10145: IF fnd_api.to_boolean(p_init_msg_lst) THEN
10146: fnd_msg_pub.initialize;
10147: END IF;
10148:
10149: --
10150: --
10187: IF (l_debug = 1) THEN
10188: debug_print('Query Reservation returned no row');
10189: END IF;
10190: fnd_message.set_name('INV', 'INV-ROW NOT FOUND');
10191: fnd_msg_pub.ADD;
10192: RAISE fnd_api.g_exc_error;
10193: END IF;
10194:
10195: --
10197: IF (l_debug = 1) THEN
10198: debug_print('Query Reservation returned more than one row');
10199: END IF;
10200: fnd_message.set_name('INV', 'INV-UPATE MORE THAN ONE RSV');
10201: fnd_msg_pub.ADD;
10202: RAISE fnd_api.g_exc_error;
10203: END IF;
10204:
10205: IF (l_debug = 1) THEN
10239: ,x_lock_status => l_lock_status);
10240:
10241: IF l_lock_status = 0 THEN
10242: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
10243: fnd_msg_pub.ADD;
10244: RAISE fnd_api.g_exc_error;
10245: END if;
10246:
10247: inv_reservation_lock_pvt.lock_supply_demand_record
10255: ,x_lock_status => l_lock_status);
10256:
10257: IF l_lock_status = 0 THEN
10258: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
10259: fnd_msg_pub.ADD;
10260: RAISE fnd_api.g_exc_error;
10261: END if;
10262:
10263: l_lock_obtained := TRUE;
10270: IF (l_debug = 1) THEN
10271: debug_print('Cannot update reservation ID');
10272: END IF;
10273: fnd_message.set_name('INV', 'CANNOT_UPDATE_RESERVATION_ID');
10274: fnd_msg_pub.ADD;
10275: RAISE fnd_api.g_exc_error;
10276: END IF;
10277:
10278: --
10280: IF (l_debug = 1) THEN
10281: debug_print('Cannot update organization ID');
10282: END IF;
10283: fnd_message.set_name('INV', 'CANNOT_UPDATE_ORGANIZATION_ID');
10284: fnd_msg_pub.ADD;
10285: RAISE fnd_api.g_exc_error;
10286: END IF;
10287:
10288: --
10290: IF (l_debug = 1) THEN
10291: debug_print('Cannot update Inventory Item ID');
10292: END IF;
10293: fnd_message.set_name('INV', 'CANNOT_UPDATE_INVENTORY_ITEM');
10294: fnd_msg_pub.ADD;
10295: RAISE fnd_api.g_exc_error;
10296: END IF;
10297:
10298: --
10383: IF (l_debug = 1) THEN
10384: debug_print('Reservation target row exists');
10385: END IF;
10386: fnd_message.set_name('INV', 'INV-RSV TARGET ROW EXISTS');
10387: fnd_msg_pub.ADD;
10388: RAISE fnd_api.g_exc_error;
10389: END IF;
10390:
10391: /**** {{ R12 Enhanced reservations code changes }}****/
10912: IF (l_debug = 1) THEN
10913: debug_print('The supply document doesnt have enough quantity to be reserved against. error out. ');
10914: END IF;
10915: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
10916: fnd_msg_pub.ADD;
10917: RAISE fnd_api.g_exc_error;
10918: ELSE
10919: l_to_rsv_rec.primary_reservation_quantity := l_quantity_reserved;
10920: l_to_rsv_rec.reservation_quantity := NULL;
10965: FROM oe_order_lines_all
10966: WHERE line_id = l_to_rsv_rec.demand_source_line_id;
10967: EXCEPTION WHEN no_data_found THEN
10968: fnd_message.set_name('INV', 'INV_INVALID_SALES_ORDER');
10969: fnd_msg_pub.ADD;
10970: RAISE fnd_api.g_exc_error;
10971: END;
10972: END IF;
10973:
11088: debug_print('l_reservable_qty2:= '||l_reservable_qty2);
11089: debug_print('l_reservation_qty_lot:= '||l_reservation_qty_lot);
11090: END IF;
11091: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
11092: fnd_msg_pub.add;
11093: raise fnd_api.g_exc_error;
11094: END IF;
11095: ELSE
11096: IF ((l_reservation_qty_lot - l_reservable_qty) > 0.000005) THEN
11098: debug_print('The demand document doesnt have enough quantity to be reserved against. error out. ');
11099: debug_print('l_to_rsv_rec.primary_reservation_quantity: ' || l_to_rsv_rec.primary_reservation_quantity);
11100: END IF;
11101: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
11102: fnd_msg_pub.add;
11103: raise fnd_api.g_exc_error;
11104: END IF;
11105: END IF;
11106: -- MUOM fulfillment Project ends
11182:
11183: IF ( (NVL(l_to_rsv_rec.reservation_quantity,0) < 0) OR
11184: (NVL(l_to_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
11185: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
11186: fnd_msg_pub.ADD;
11187: RAISE fnd_api.g_exc_error;
11188: END IF;
11189:
11190: -- INVCONV BEGIN
11189:
11190: -- INVCONV BEGIN
11191: IF (NVL(l_to_rsv_rec.secondary_reservation_quantity,0) < 0) THEN
11192: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY'); -- INVCONV New Message
11193: fnd_msg_pub.ADD;
11194: RAISE fnd_api.g_exc_error;
11195: END IF;
11196: -- INVCONV END
11197:
11278: IF l_debug=1 THEN
11279: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
11280: END IF;
11281: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
11282: fnd_msg_pub.ADD;
11283: RAISE fnd_api.g_exc_error;
11284: END;
11285: IF l_debug=1 THEN
11286: debug_print('Serial being unreserved. serial number: ' || l_serial_number_table(i).serial_number);
11321: IF l_debug=1 THEN
11322: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
11323: END IF;
11324: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
11325: fnd_msg_pub.ADD;
11326: RAISE fnd_api.g_exc_error;
11327: END;
11328: IF l_debug=1 THEN
11329: debug_print('Serial being migrated. serial number: ' || l_serial_number_table(l_serial_index).serial_number);
11359: debug_print('No serials found for this data : ' ||
11360: p_to_serial_number(i).serial_number);
11361: END IF;
11362: fnd_message.set_name('INV', 'INV_INVALID_TO_SERIAL');
11363: fnd_msg_pub.ADD;
11364: RAISE fnd_api.g_exc_error;
11365: END;
11366:
11367: IF (l_reservation_id IS NOT NULL AND l_reservation_id <>
11366:
11367: IF (l_reservation_id IS NOT NULL AND l_reservation_id <>
11368: l_orig_rsv_tbl(1).reservation_id) THEN
11369: fnd_message.set_name('INV', 'INV_INVALID_TO_SERIAL');
11370: fnd_msg_pub.ADD;
11371: RAISE fnd_api.g_exc_error;
11372: END IF;
11373:
11374: -- If the serial is not reserved then it should not have the
11379: IF (l_debug = 1) THEN
11380: debug_print('Group Mark Id is not null for serial ' || p_to_serial_number(i).serial_number);
11381: END IF;
11382: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
11383: fnd_msg_pub.ADD;
11384: RAISE fnd_api.g_exc_error;
11385: END IF;
11386:
11387: END LOOP;
11406: IF l_debug=1 THEN
11407: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
11408: END IF;
11409: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
11410: fnd_msg_pub.ADD;
11411: RAISE fnd_api.g_exc_error;
11412: END;
11413: END LOOP;
11414: END IF;
11437: debug_print('No serials found for reservation
11438: record. serial number: ' || p_to_serial_number(i).serial_number);
11439: END IF;
11440: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
11441: fnd_msg_pub.ADD;
11442: RAISE fnd_api.g_exc_error;
11443: END;
11444: END LOOP;
11445: END IF;
11507: IF l_debug=1 THEN
11508: debug_print('Inside relieve serials.No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
11509: END IF;
11510: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
11511: fnd_msg_pub.ADD;
11512: RAISE fnd_api.g_exc_error;
11513: END;
11514: END LOOP;
11515: -- update the serial reservation quantity to be the primary
11744: (l_demand_lock_handle);
11745: END IF;
11746: /*** End R12 ***/
11747: -- Get message count and data
11748: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11749: WHEN fnd_api.g_exc_unexpected_error THEN
11750: IF (l_debug = 1) THEN
11751: debug_print('Exception Unexpected');
11752: END IF;
11761: (l_demand_lock_handle);
11762: END IF;
11763: /*** End R12 ***/
11764: -- Get message count and data
11765: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11766: WHEN OTHERS THEN
11767: IF (l_debug = 1) THEN
11768: debug_print('Exception Others'|| SQLERRM);
11769: END IF;
11777: inv_reservation_lock_pvt.release_lock
11778: (l_demand_lock_handle);
11779: END IF;
11780: /*** End R12 ***/
11781: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
11782: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
11783: END IF;
11784:
11785: -- Get message count and data
11778: (l_demand_lock_handle);
11779: END IF;
11780: /*** End R12 ***/
11781: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
11782: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
11783: END IF;
11784:
11785: -- Get message count and data
11786: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11782: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
11783: END IF;
11784:
11785: -- Get message count and data
11786: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
11787: END update_reservation;
11788:
11789: --
11790: PROCEDURE relieve_reservation(
11854:
11855: --
11856: -- Initialize message list.
11857: IF fnd_api.to_boolean(p_init_msg_lst) THEN
11858: fnd_msg_pub.initialize;
11859: END IF;
11860:
11861: --
11862: SAVEPOINT relieve_reservation_sa;
11927: IF (l_debug = 1) THEN
11928: debug_print('reservation not found ');
11929: END IF;
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: --
11937: IF (l_debug = 1) THEN
11938: debug_print('found more than one row reservation');
11939: END IF;
11940: fnd_message.set_name('INV', 'INV-RELIEVE MORE THAN ONE ROW');
11941: fnd_msg_pub.ADD;
11942: RAISE fnd_api.g_exc_error;
11943: END IF;
11944:
11945: --
12038: IF (l_debug = 1) THEN
12039: debug_print('relieve_quantity_not_specified');
12040: END IF;
12041: fnd_message.set_name('INV', 'RELIEVE_QUANTITY_NOT_SPECIFIED');
12042: fnd_msg_pub.ADD;
12043: RAISE fnd_api.g_exc_error;
12044: END IF;
12045:
12046: IF p_primary_relieved_quantity > l_tmp_rsv_tbl(1).primary_reservation_quantity THEN
12047: IF (l_debug = 1) THEN
12048: debug_print('relieve_more_than_reserved');
12049: END IF;
12050: fnd_message.set_name('INV', 'RELIEVE_MORE_THAN_RESERVED');
12051: fnd_msg_pub.ADD;
12052: RAISE fnd_api.g_exc_unexpected_error;
12053: END IF;
12054:
12055: IF is_dual_control(l_orig_item_cache_index) THEN
12318:
12319: IF ( (NVL(l_tmp_rsv_tbl(1).reservation_quantity,0) < 0) OR
12320: (NVL(l_tmp_rsv_tbl(1).primary_reservation_quantity,0) < 0) ) THEN
12321: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
12322: fnd_msg_pub.ADD;
12323: RAISE fnd_api.g_exc_error;
12324: END IF;
12325:
12326: -- INVCONV BEGIN
12325:
12326: -- INVCONV BEGIN
12327: IF (NVL(l_tmp_rsv_tbl(1).secondary_reservation_quantity,0) < 0) THEN
12328: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY');
12329: fnd_msg_pub.ADD;
12330: RAISE fnd_api.g_exc_error;
12331: END IF;
12332: -- INVCONV END
12333:
12408: IF (l_debug = 1) THEN
12409: debug_print('No serials found for reservation record. id = ' || l_reservation_id);
12410: END IF;
12411: fnd_message.set_name('INV', 'INV_SR_EXCEED_RSV_QTY');
12412: fnd_msg_pub.add;
12413: RAISE fnd_api.g_exc_error;
12414: END;
12415:
12416: IF (l_debug = 1) THEN
12424: IF (l_debug = 1) THEN
12425: debug_print('Not enough serials to unreserved for reservation record. id = ' || l_reservation_id);
12426: END IF;
12427: fnd_message.set_name('INV', 'INV_SR_EXCEED_RSV_QTY');
12428: fnd_msg_pub.add;
12429: RAISE fnd_api.g_exc_error;
12430: END IF;
12431:
12432: FOR i in 1..l_count_to_unrsv_serials LOOP
12488: IF (l_debug = 1) THEN
12489: debug_print('No serial found for reservation record. id = ' || l_reservation_id);
12490: END IF;
12491: fnd_message.set_name('INV', 'INV_SR_EXCEED_RSV_QTY');
12492: fnd_msg_pub.add;
12493: RAISE fnd_api.g_exc_error;
12494: END;
12495:
12496: IF (l_serial_number_table.COUNT < l_count_to_unrsv_serials) THEN
12497: IF (l_debug = 1) THEN
12498: debug_print('Not enough serials to unreserved for reservation record. id = ' || l_reservation_id);
12499: END IF;
12500: fnd_message.set_name('INV', 'INV_SR_EXCEED_RSV_QTY');
12501: fnd_msg_pub.add;
12502: RAISE fnd_api.g_exc_error;
12503: END IF;
12504:
12505: FOR i in 1..l_count_to_unrsv_serials LOOP
12563: WHEN fnd_api.g_exc_error THEN
12564: ROLLBACK TO relieve_reservation_sa;
12565: x_return_status := fnd_api.g_ret_sts_error;
12566: -- Get message count and data
12567: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12568: WHEN fnd_api.g_exc_unexpected_error THEN
12569: ROLLBACK TO relieve_reservation_sa;
12570: x_return_status := fnd_api.g_ret_sts_unexp_error;
12571: -- Get message count and data
12568: WHEN fnd_api.g_exc_unexpected_error THEN
12569: ROLLBACK TO relieve_reservation_sa;
12570: x_return_status := fnd_api.g_ret_sts_unexp_error;
12571: -- Get message count and data
12572: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12573: WHEN OTHERS THEN
12574: ROLLBACK TO relieve_reservation_sa;
12575: x_return_status := fnd_api.g_ret_sts_unexp_error;
12576:
12573: WHEN OTHERS THEN
12574: ROLLBACK TO relieve_reservation_sa;
12575: x_return_status := fnd_api.g_ret_sts_unexp_error;
12576:
12577: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
12578: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12579: END IF;
12580:
12581: -- Get message count and data
12574: ROLLBACK TO relieve_reservation_sa;
12575: x_return_status := fnd_api.g_ret_sts_unexp_error;
12576:
12577: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
12578: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12579: END IF;
12580:
12581: -- Get message count and data
12582: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12578: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12579: END IF;
12580:
12581: -- Get message count and data
12582: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12583: END relieve_reservation;
12584:
12585: --
12586: PROCEDURE delete_reservation(
12645:
12646: --
12647: -- Initialize message list.
12648: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12649: fnd_msg_pub.initialize;
12650: END IF;
12651:
12652: /**** {{ R12 Enhanced reservations code changes ****/
12653: -- Set the original columns to g_miss_xxx as the user should not be
12694:
12695: --
12696: IF l_tmp_rsv_tbl_count = 0 THEN
12697: fnd_message.set_name('INV', 'INV-ROW NOT FOUND');
12698: fnd_msg_pub.ADD;
12699: RAISE fnd_api.g_exc_error;
12700: END IF;
12701:
12702: IF (l_debug = 1) THEN
12705: END IF;
12706: --
12707: IF l_tmp_rsv_tbl_count > 1 THEN
12708: fnd_message.set_name('INV', 'INV-DELETE MORE THAN ONE ROW');
12709: fnd_msg_pub.ADD;
12710: RAISE fnd_api.g_exc_error;
12711: END IF;
12712:
12713: --
12934: EXCEPTION
12935: WHEN fnd_api.g_exc_error THEN
12936: x_return_status := fnd_api.g_ret_sts_error;
12937: -- Get message count and data
12938: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12939: WHEN fnd_api.g_exc_unexpected_error THEN
12940: x_return_status := fnd_api.g_ret_sts_unexp_error;
12941: -- Get message count and data
12942: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12938: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12939: WHEN fnd_api.g_exc_unexpected_error THEN
12940: x_return_status := fnd_api.g_ret_sts_unexp_error;
12941: -- Get message count and data
12942: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12943: WHEN OTHERS THEN
12944: x_return_status := fnd_api.g_ret_sts_unexp_error;
12945:
12946: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
12942: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12943: WHEN OTHERS THEN
12944: x_return_status := fnd_api.g_ret_sts_unexp_error;
12945:
12946: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
12947: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12948: END IF;
12949:
12950: -- Get message count and data
12943: WHEN OTHERS THEN
12944: x_return_status := fnd_api.g_ret_sts_unexp_error;
12945:
12946: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
12947: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12948: END IF;
12949:
12950: -- Get message count and data
12951: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12947: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
12948: END IF;
12949:
12950: -- Get message count and data
12951: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
12952: END delete_reservation;
12953:
12954:
12955: /**** {{ R12 Enhanced reservations code changes }}****/
12994: END IF;
12995:
12996: -- Initialize message list.
12997: IF fnd_api.to_boolean(p_init_msg_lst) THEN
12998: fnd_msg_pub.initialize;
12999: END IF;
13000:
13001: -- Use cache to get value for l_debug
13002: IF g_is_pickrelease_set IS NULL THEN
13059:
13060: WHEN fnd_api.g_exc_error THEN
13061: x_return_status := fnd_api.g_ret_sts_error;
13062: -- Get message count and data
13063: fnd_msg_pub.count_and_get
13064: ( p_count => x_msg_count
13065: , p_data => x_msg_data
13066: );
13067:
13068: WHEN fnd_api.g_exc_unexpected_error THEN
13069: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13070:
13071: -- Get message count and data
13072: fnd_msg_pub.count_and_get
13073: ( p_count => x_msg_count
13074: , p_data => x_msg_data
13075: );
13076:
13076:
13077: WHEN OTHERS THEN
13078: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13079:
13080: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
13081: THEN
13082: fnd_msg_pub.add_exc_msg
13083: ( g_pkg_name
13084: , l_api_name
13078: x_return_status := fnd_api.g_ret_sts_unexp_error ;
13079:
13080: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
13081: THEN
13082: fnd_msg_pub.add_exc_msg
13083: ( g_pkg_name
13084: , l_api_name
13085: );
13086: END IF;
13085: );
13086: END IF;
13087:
13088: -- Get message count and data
13089: fnd_msg_pub.count_and_get
13090: ( p_count => x_msg_count
13091: , p_data => x_msg_data
13092: );
13093:
13273: END IF;
13274:
13275: -- Initialize message list.
13276: IF fnd_api.to_boolean(p_init_msg_lst) THEN
13277: fnd_msg_pub.initialize;
13278: END IF;
13279:
13280: /**** {{ R12 Enhanced reservations code changes }}****/
13281:
13325:
13326: --
13327: IF l_orig_rsv_tbl_count = 0 THEN
13328: fnd_message.set_name('INV', 'INV-ROW NOT FOUND');
13329: fnd_msg_pub.ADD;
13330: RAISE fnd_api.g_exc_error;
13331: END IF;
13332:
13333: --
13332:
13333: --
13334: IF l_orig_rsv_tbl_count > 1 THEN
13335: fnd_message.set_name('INV', 'TRANSFER MORE THAN ONE ROW');
13336: fnd_msg_pub.ADD;
13337: RAISE fnd_api.g_exc_error;
13338: END IF;
13339:
13340: IF (l_debug = 1) THEN
13357:
13358: --
13359: IF l_orig_rsv_tbl(1).organization_id <> l_to_rsv_rec.organization_id THEN
13360: fnd_message.set_name('INV', 'CANNOT_CHANGE_ORGANIZATION_ID');
13361: fnd_msg_pub.ADD;
13362: RAISE fnd_api.g_exc_error;
13363: END IF;
13364:
13365: --
13364:
13365: --
13366: IF l_orig_rsv_tbl(1).inventory_item_id <> l_to_rsv_rec.inventory_item_id THEN
13367: fnd_message.set_name('INV', 'CANNOT_CHANGE_INVENTORY_ITEM');
13368: fnd_msg_pub.ADD;
13369: RAISE fnd_api.g_exc_error;
13370: END IF;
13371:
13372: -- convert quantity between primary uom and reservation uom
13435: IF l_to_rsv_tbl_count > 1 THEN
13436: -- if there more than one target row, the reservation table
13437: -- must be damaged. We can not do anything but failed
13438: fnd_message.set_name('INV', 'INV-RSV-TOO-MANY-TARGET');
13439: fnd_msg_pub.ADD;
13440: RAISE fnd_api.g_exc_error;
13441: END IF;
13442:
13443: IF (l_debug = 1) THEN
13454: -- in the primary key columns (see query_reservation select criteria)
13455: -- as the original reservation.
13456: -- we might want to move that to the validation api soon
13457: fnd_message.set_name('INV', 'MISS_USE_TRANSFER');
13458: fnd_msg_pub.ADD;
13459: RAISE fnd_api.g_exc_error;
13460: END IF;
13461:
13462: l_to_row_exist := (l_to_rsv_tbl_count > 0);
13469:
13470: --
13471: IF l_orig_rsv_tbl(1).primary_reservation_quantity < l_to_rsv_rec.primary_reservation_quantity THEN
13472: fnd_message.set_name('INV', 'TRANSFER MORE THAN RESERVE');
13473: fnd_msg_pub.ADD;
13474: RAISE fnd_api.g_exc_error;
13475: END IF;
13476:
13477: /**** {{ R12 Enhanced reservations code changes.Calling the reservation
13501: ,x_lock_status => l_lock_status);
13502:
13503: IF l_lock_status = 0 THEN
13504: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
13505: fnd_msg_pub.ADD;
13506: RAISE fnd_api.g_exc_error;
13507: END if;
13508:
13509: inv_reservation_lock_pvt.lock_supply_demand_record
13517: ,x_lock_status => l_lock_status);
13518:
13519: IF l_lock_status = 0 THEN
13520: fnd_message.set_name('INV', 'INV_INVALID_LOCK');
13521: fnd_msg_pub.ADD;
13522: RAISE fnd_api.g_exc_error;
13523: END if;
13524:
13525: l_lock_obtained := TRUE;
13718: IF (l_debug = 1) THEN
13719: debug_print('Cannot determine what is being passed to the serial tables');
13720: END IF;
13721: fnd_message.set_name('INV', 'INV_INVALID_SERIAL_TABLES');
13722: fnd_msg_pub.ADD;
13723: RAISE fnd_api.g_exc_error;
13724: END IF;
13725:
13726: IF (l_debug = 1) THEN
14046: debug_print('The supply document doesnt have enough quantity to be reserved against. error out. ');
14047: debug_print('l_to_rsv_rec.primary_reservation_quantity: ' || l_to_rsv_rec.primary_reservation_quantity);
14048: END IF;
14049: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
14050: fnd_msg_pub.ADD;
14051: RAISE fnd_api.g_exc_error;
14052:
14053: END IF;
14054: END IF; --xdock split - Bug 9879753 End
14148: debug_print('l_quantity_reserved2 : ' || l_quantity_reserved2);
14149: debug_print('l_reservation_qty_lot : ' || l_reservation_qty_lot);
14150: END IF;
14151: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
14152: fnd_msg_pub.add;
14153: raise fnd_api.g_exc_error;
14154: END IF;
14155: ELSE
14156: IF ((l_reservation_qty_lot - l_quantity_reserved) > 0.000005) THEN
14158: debug_print('The demand document doesnt have enough quantity to be reserved against. error out. ');
14159: debug_print('l_to_rsv_rec.primary_reservation_quantity: ' || l_to_rsv_rec.primary_reservation_quantity);
14160: END IF;
14161: fnd_message.set_name('INV', 'INV_INVALID_AVAILABLE_QTY');
14162: fnd_msg_pub.add;
14163: raise fnd_api.g_exc_error;
14164: END IF;
14165: END IF;
14166: -- MUOM fulfillment Project
14288: END IF;
14289: fnd_message.set_name('INV', 'INV_INVALID_UOM_CONV');
14290: fnd_message.set_token('VALUE1', l_orig_rsv_tbl(1).secondary_uom_code);
14291: fnd_message.set_token('VALUE2', l_primary_uom_code);
14292: fnd_msg_pub.ADD;
14293: RAISE fnd_api.g_exc_error;
14294: END IF;
14295: /* End 13604458 */
14296: END IF;
14357:
14358: IF l_new_orig_rsv_qty = -99999 THEN
14359: -- conversion failed
14360: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-PRIMARY-UOM');
14361: fnd_msg_pub.ADD;
14362: RAISE fnd_api.g_exc_error;
14363: END IF;
14364: -- MUOM Fulfillment project
14365: ELSIF l_orig_rsv_tbl(1).reservation_uom_code = l_orig_rsv_tbl(1).secondary_uom_code AND l_fulfill_base = 'S' THEN
14423: END IF;
14424: fnd_message.set_name('INV', 'INV_INVALID_UOM_CONV');
14425: fnd_message.set_token('VALUE1', l_orig_rsv_tbl(1).secondary_uom_code);
14426: fnd_message.set_token('VALUE2', l_primary_uom_code);
14427: fnd_msg_pub.ADD;
14428: RAISE fnd_api.g_exc_error;
14429: END IF;
14430: /* End 13604458 */
14431: END IF;
14452:
14453: IF ( (NVL(l_new_orig_rsv_qty,0) < 0) OR
14454: (NVL(l_new_orig_prim_qty,0) < 0) ) THEN
14455: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
14456: fnd_msg_pub.ADD;
14457: RAISE fnd_api.g_exc_error;
14458: END IF;
14459:
14460: -- INVCONV BEGIN
14459:
14460: -- INVCONV BEGIN
14461: IF (NVL(l_orig_second_rsv_qty,0) < 0) THEN
14462: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY'); -- INVCONV New Message
14463: fnd_msg_pub.ADD;
14464: RAISE fnd_api.g_exc_error;
14465: END IF;
14466: -- INVCONV END
14467: -- Bug 3461990: Reservations API should not update reservations with more
14689:
14690: IF ( (NVL(l_to_rsv_rec.reservation_quantity,0) < 0) OR
14691: (NVL(l_to_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
14692: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
14693: fnd_msg_pub.ADD;
14694: RAISE fnd_api.g_exc_error;
14695: END IF;
14696:
14697: -- INVCONV BEGIN
14696:
14697: -- INVCONV BEGIN
14698: IF (NVL(l_to_rsv_rec.secondary_reservation_quantity,0) < 0) THEN
14699: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY'); -- INVCONV New Message
14700: fnd_msg_pub.ADD;
14701: RAISE fnd_api.g_exc_error;
14702: END IF;
14703: -- INVCONV END
14704:
14960:
14961: IF ( (NVL(l_primary_rsv_quantity,0) < 0) OR
14962: (NVL(l_rsv_quantity,0)< 0) ) THEN
14963: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
14964: fnd_msg_pub.ADD;
14965: RAISE fnd_api.g_exc_error;
14966: END IF;
14967:
14968: -- INVCONV BEGIN
14967:
14968: -- INVCONV BEGIN
14969: IF (NVL(l_secondary_rsv_quantity,0) < 0) THEN
14970: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY'); -- INVCONV New Message
14971: fnd_msg_pub.ADD;
14972: RAISE fnd_api.g_exc_error;
14973: END IF;
14974: -- INVCONV END
14975:
15082:
15083: IF ( (NVL(l_to_rsv_rec.reservation_quantity,0) < 0) OR
15084: (NVL(l_to_rsv_rec.primary_reservation_quantity,0) < 0) ) THEN
15085: fnd_message.set_name('INV', 'INV-INVALID RESERVATION QTY');
15086: fnd_msg_pub.ADD;
15087: RAISE fnd_api.g_exc_error;
15088: END IF;
15089:
15090: -- INVCONV BEGIN
15089:
15090: -- INVCONV BEGIN
15091: IF (NVL(l_to_rsv_rec.secondary_reservation_quantity,0) < 0) THEN
15092: fnd_message.set_name('INV', 'INV-INVALID NEGATIVE SECONDARY'); -- INVCONV New Message
15093: fnd_msg_pub.ADD;
15094: RAISE fnd_api.g_exc_error;
15095: END IF;
15096: -- INVCONV END
15097:
15439: END IF;
15440:
15441: IF (l_total_serials_reserved > l_to_primary_reservation_qty) THEN
15442: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15443: fnd_msg_pub.ADD;
15444: RAISE fnd_api.g_exc_error;
15445: END IF;
15446: -- we will have to migrate the serials to the new reservation
15447: -- Just make sure that the group_mark_id and the
15459: IF l_debug=1 THEN
15460: debug_print('No serials found for serial number. : ' || l_serial_number_table(l_serial_index).serial_number);
15461: END IF;
15462: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
15463: fnd_msg_pub.ADD;
15464: RAISE fnd_api.g_exc_error;
15465: END;
15466: IF l_debug=1 THEN
15467: debug_print('Serial being migrated. serial number: ' || l_serial_number_table(l_serial_index).serial_number);
15518: IF l_debug=1 THEN
15519: debug_print('No serials found for Serial Number: ' || l_serial_number_table(i).serial_number);
15520: END IF;
15521: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
15522: fnd_msg_pub.ADD;
15523: RAISE fnd_api.g_exc_error;
15524: END;
15525:
15526: IF l_debug=1 THEN
15585: END IF;
15586: END;
15587: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
15588: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15589: fnd_msg_pub.ADD;
15590: RAISE fnd_api.g_exc_error;
15591: END IF;
15592:
15593: END IF; -- total serials more than orig reservation qty
15597: -- exceed the to reservation count and they
15598: -- are validated.
15599: IF (l_total_serials_reserved > l_to_primary_reservation_qty) THEN
15600: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15601: fnd_msg_pub.ADD;
15602: RAISE fnd_api.g_exc_error;
15603: END IF;
15604: END IF; -- transfer all and to row exists
15605:
15637: -- different reservation record, then fail
15638: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
15639: l_orig_rsv_tbl(1).reservation_id) OR (l_from_reservation_id IS NULL) THEN
15640: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
15641: fnd_msg_pub.ADD;
15642: RAISE fnd_api.g_exc_error;
15643: END IF;
15644:
15645: IF (l_total_serials_reserved > 0) THEN
15728: IF l_debug=1 THEN
15729: debug_print('No serials found for this data. rsv id: ' || l_orig_rsv_tbl(1).reservation_id);
15730: END IF;
15731: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
15732: fnd_msg_pub.ADD;
15733: RAISE fnd_api.g_exc_error;
15734: END;
15735:
15736: -- check to see if we have reserved more than the to_record
15747: END;
15748:
15749: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
15750: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15751: fnd_msg_pub.ADD;
15752: RAISE fnd_api.g_exc_error;
15753: END IF;
15754:
15755: -- update with whatever is being moved to the to record
15845: IF l_debug=1 THEN
15846: debug_print('No serials found for serial number: ' || l_validate_serial_number_table(i).serial_number);
15847: END IF;
15848: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
15849: fnd_msg_pub.ADD;
15850: RAISE fnd_api.g_exc_error;
15851: END;
15852:
15853: IF l_debug=1 THEN
15869: END;
15870:
15871: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
15872: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15873: fnd_msg_pub.ADD;
15874: RAISE fnd_api.g_exc_error;
15875: END IF;
15876:
15877: update_serial_rsv_quantity
15951: END IF;
15952:
15953: IF (l_validate_serials_reserved > l_to_primary_reservation_qty) THEN
15954: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
15955: fnd_msg_pub.ADD;
15956: RAISE fnd_api.g_exc_error;
15957: END IF;
15958:
15959: IF (l_validate_serials_reserved > 0) THEN
16043: debug_print('No serials found for this data : ' ||
16044: p_to_serial_number(i).serial_number);
16045: END IF;
16046: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
16047: fnd_msg_pub.ADD;
16048: RAISE fnd_api.g_exc_error;
16049: END;
16050:
16051: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
16050:
16051: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
16052: l_orig_rsv_tbl(1).reservation_id) THEN
16053: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
16054: fnd_msg_pub.ADD;
16055: RAISE fnd_api.g_exc_error;
16056: END IF;
16057:
16058: -- If reservation id is null, then we are reserving a new
16063: IF (l_debug = 1) THEN
16064: debug_print('Group Mark Id is not null for serial ' || p_to_serial_number(i).serial_number);
16065: END IF;
16066: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
16067: fnd_msg_pub.ADD;
16068: RAISE fnd_api.g_exc_error;
16069: END IF;
16070:
16071: BEGIN
16137: IF l_debug=1 THEN
16138: debug_print('No serials found for the serial number: ' || l_serial_number_table(l_serial_index).serial_number);
16139: END IF;
16140: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
16141: fnd_msg_pub.ADD;
16142: RAISE fnd_api.g_exc_error;
16143: END;
16144:
16145: IF l_debug=1 THEN
16161: END;
16162:
16163: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
16164: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
16165: fnd_msg_pub.ADD;
16166: RAISE fnd_api.g_exc_error;
16167: END IF;
16168:
16169: -- update the to serial reservation quantity. dont have
16179: IF l_debug=1 THEN
16180: debug_print('Update failed for from reservation record. id: ' || l_to_reservation_id);
16181: END IF;
16182: fnd_message.set_name('INV', 'INV_INVALID_ROW');
16183: fnd_msg_pub.ADD;
16184: RAISE fnd_api.g_exc_error;
16185: END;
16186:
16187: IF (l_debug = 1) THEN
16249: END;
16250:
16251: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
16252: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
16253: fnd_msg_pub.ADD;
16254: RAISE fnd_api.g_exc_error;
16255: END IF;
16256:
16257: BEGIN
16264: IF l_debug=1 THEN
16265: debug_print('Update failed for from reservation record. id: ' || l_to_reservation_id);
16266: END IF;
16267: fnd_message.set_name('INV', 'INV_INVALID_ROW');
16268: fnd_msg_pub.ADD;
16269: RAISE fnd_api.g_exc_error;
16270: END;
16271:
16272: IF (l_debug = 1) THEN
16359: IF l_debug=1 THEN
16360: debug_print('No serials found for Serial Number: ' || l_serial_number_table(i).serial_number);
16361: END IF;
16362: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
16363: fnd_msg_pub.ADD;
16364: RAISE fnd_api.g_exc_error;
16365: END;
16366:
16367: IF l_debug=1 THEN
16385: END;
16386:
16387: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
16388: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
16389: fnd_msg_pub.ADD;
16390: RAISE fnd_api.g_exc_error;
16391: END IF;
16392:
16393: BEGIN
16400: IF l_debug=1 THEN
16401: debug_print('Update failed for to reservation record. id: ' || l_to_reservation_id);
16402: END IF;
16403: fnd_message.set_name('INV', 'INV_INVALID_ROW');
16404: fnd_msg_pub.ADD;
16405: RAISE fnd_api.g_exc_error;
16406: END;
16407:
16408: BEGIN
16427: IF l_debug=1 THEN
16428: debug_print('Update failed for from reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
16429: END IF;
16430: fnd_message.set_name('INV', 'INV_INVALID_ROW');
16431: fnd_msg_pub.ADD;
16432: RAISE fnd_api.g_exc_error;
16433: END;
16434:
16435:
16468: -- different reservation record, then fail
16469: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
16470: l_orig_rsv_tbl(1).reservation_id) OR (l_from_reservation_id IS NULL) THEN
16471: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
16472: fnd_msg_pub.ADD;
16473: RAISE fnd_api.g_exc_error;
16474: END IF;
16475:
16476: -- unreserve the passed serials.
16508: IF l_debug=1 THEN
16509: debug_print('No serials found for this data : ' || p_to_serial_number(i).serial_number);
16510: END IF;
16511: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
16512: fnd_msg_pub.ADD;
16513: RAISE fnd_api.g_exc_error;
16514: END;
16515:
16516: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
16515:
16516: IF (l_from_reservation_id IS NOT NULL AND l_from_reservation_id <>
16517: l_orig_rsv_tbl(1).reservation_id) THEN
16518: fnd_message.set_name('INV', 'INV_INVALID_FROM_SERIAL');
16519: fnd_msg_pub.ADD;
16520: RAISE fnd_api.g_exc_error;
16521: END IF;
16522:
16523: IF (l_from_reservation_id IS NULL) AND (l_group_mark_id IS NOT NULL) AND (l_group_mark_id <> -1)THEN
16524: IF (l_debug = 1) THEN
16525: debug_print('Group Mark Id is not null for serial ' || p_to_serial_number(i).serial_number);
16526: END IF;
16527: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
16528: fnd_msg_pub.ADD;
16529: RAISE fnd_api.g_exc_error;
16530: END IF;
16531:
16532: BEGIN
16607: IF l_debug=1 THEN
16608: debug_print('No serials found for this data. rsv id: ' || l_orig_rsv_tbl(1).reservation_id);
16609: END IF;
16610: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
16611: fnd_msg_pub.ADD;
16612: RAISE fnd_api.g_exc_error;
16613: END;
16614: END IF;
16615: END IF;
16627: END;
16628:
16629: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
16630: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
16631: fnd_msg_pub.ADD;
16632: RAISE fnd_api.g_exc_error;
16633: END IF;
16634:
16635: BEGIN
16642: IF l_debug=1 THEN
16643: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
16644: END IF;
16645: fnd_message.set_name('INV', 'INV_INVALID_ROW');
16646: fnd_msg_pub.ADD;
16647: RAISE fnd_api.g_exc_error;
16648: END;
16649:
16650: ELSIF (l_transfer_all AND (NOT l_to_row_exist)) THEN
16715: END IF;
16716: END;
16717: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
16718: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
16719: fnd_msg_pub.ADD;
16720: RAISE fnd_api.g_exc_error;
16721: END IF;
16722:
16723: BEGIN
16730: IF l_debug=1 THEN
16731: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
16732: END IF;
16733: fnd_message.set_name('INV', 'INV_INVALID_ROW');
16734: fnd_msg_pub.ADD;
16735: RAISE fnd_api.g_exc_error;
16736: END;
16737:
16738: ELSIF (NOT l_transfer_all) THEN
16810: IF l_debug=1 THEN
16811: debug_print('No serials found for serial number: ' || l_validate_serial_number_table(i).serial_number);
16812: END IF;
16813: fnd_message.set_name('INV', 'INV_INVALID_SERIAL');
16814: fnd_msg_pub.ADD;
16815: RAISE fnd_api.g_exc_error;
16816: END;
16817:
16818: IF l_debug=1 THEN
16836: END IF;
16837: END;
16838: IF (l_total_to_serials_reserved > l_to_primary_reservation_qty) THEN
16839: fnd_message.set_name('INV', 'INV_SERIAL_QTY_MORE_THAN_RSV');
16840: fnd_msg_pub.ADD;
16841: RAISE fnd_api.g_exc_error;
16842: END IF;
16843:
16844: BEGIN
16851: IF l_debug=1 THEN
16852: debug_print('No serials found for reservation record. id: ' || l_to_reservation_id);
16853: END IF;
16854: fnd_message.set_name('INV', 'INV_INVALID_ROW');
16855: fnd_msg_pub.ADD;
16856: RAISE fnd_api.g_exc_error;
16857: END;
16858:
16859: BEGIN
16878: IF l_debug=1 THEN
16879: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
16880: END IF;
16881: fnd_message.set_name('INV', 'INV_INVALID_ROW');
16882: fnd_msg_pub.ADD;
16883: RAISE fnd_api.g_exc_error;
16884: END;
16885:
16886: END IF;-- transfer all and to row exist
16913: (l_demand_lock_handle);
16914: END IF;
16915: /*** End R12 ***/
16916: -- Get message count and data
16917: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16918: WHEN fnd_api.g_exc_unexpected_error THEN
16919: ROLLBACK TO transfer_reservation_sa;
16920: x_return_status := fnd_api.g_ret_sts_unexp_error;
16921: /**** {{ R12 Enhanced reservations code changes. Should be
16927: (l_demand_lock_handle);
16928: END IF;
16929: /*** End R12 ***/
16930: -- Get message count and data
16931: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16932: WHEN OTHERS THEN
16933: ROLLBACK TO transfer_reservation_sa;
16934: x_return_status := fnd_api.g_ret_sts_unexp_error;
16935: /**** {{ R12 Enhanced reservations code changes. Should be
16940: inv_reservation_lock_pvt.release_lock
16941: (l_demand_lock_handle);
16942: END IF;
16943: /*** End R12 ***/
16944: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16945: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
16946: END IF;
16947:
16948: -- Get message count and data
16941: (l_demand_lock_handle);
16942: END IF;
16943: /*** End R12 ***/
16944: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
16945: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
16946: END IF;
16947:
16948: -- Get message count and data
16949: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16945: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
16946: END IF;
16947:
16948: -- Get message count and data
16949: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
16950: END transfer_reservation;
16951:
16952: --
16953: -- Procedure
17282:
17283: --
17284: -- Initialize message list.
17285: IF fnd_api.to_boolean(p_init_msg_lst) THEN
17286: fnd_msg_pub.initialize;
17287: END IF;
17288:
17289: --
17290: /*
17294: OR p_query_input.demand_source_header_id IS NULL
17295: ) THEN
17296: fnd_message.set_name('INV', 'INV-RSV-INPUT-MISSING');
17297: fnd_message.set_token('FIELD_NAME', 'demand_source_header_id');
17298: fnd_msg_pub.ADD;
17299: RAISE fnd_api.g_exc_error;
17300: END IF;
17301:
17302: IF (p_query_input.demand_source_line_id = fnd_api.g_miss_num
17303: OR p_query_input.demand_source_line_id IS NULL
17304: ) THEN
17305: fnd_message.set_name('INV', 'INV-RSV-INPUT-MISSING');
17306: fnd_message.set_token('FIELD_NAME', 'demand_source_line_id');
17307: fnd_msg_pub.ADD;
17308: RAISE fnd_api.g_exc_error;
17309: END IF;
17310:
17311: --Bug#2872822/2914726 OM call to this API passes null. This was changed
17357: EXCEPTION
17358: WHEN fnd_api.g_exc_error THEN
17359: x_return_status := fnd_api.g_ret_sts_error;
17360: -- Get message count and data
17361: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17362: WHEN fnd_api.g_exc_unexpected_error THEN
17363: x_return_status := fnd_api.g_ret_sts_unexp_error;
17364: -- Get message count and data
17365: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17361: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17362: WHEN fnd_api.g_exc_unexpected_error THEN
17363: x_return_status := fnd_api.g_ret_sts_unexp_error;
17364: -- Get message count and data
17365: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17366: WHEN OTHERS THEN
17367: x_return_status := fnd_api.g_ret_sts_unexp_error;
17368:
17369: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17365: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17366: WHEN OTHERS THEN
17367: x_return_status := fnd_api.g_ret_sts_unexp_error;
17368:
17369: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17370: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17371: END IF;
17372:
17373: -- Get message count and data
17366: WHEN OTHERS THEN
17367: x_return_status := fnd_api.g_ret_sts_unexp_error;
17368:
17369: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
17370: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17371: END IF;
17372:
17373: -- Get message count and data
17374: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17370: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
17371: END IF;
17372:
17373: -- Get message count and data
17374: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
17375: END query_reservation_om_hdr_line;
17376:
17377: -- Change the signiture of upd_reservation_pup for bug 2879208
17378: -- Create overload porceudre
17521: x_return_status := fnd_api.g_ret_sts_success;
17522:
17523: -- Initialize message list.
17524: IF fnd_api.to_boolean(p_init_msg_list) THEN
17525: fnd_msg_pub.initialize;
17526: END IF;
17527:
17528: SAVEPOINT upd_reservation_pup_new;
17529: l_remaining_qty := p_quantity;
17621: IF (l_debug = 1) THEN
17622: debug_print('Conversion to RSV UOM Failed');
17623: END IF;
17624: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-RSV-UOM');
17625: fnd_msg_pub.ADD;
17626: RAISE fnd_api.g_exc_error;
17627: END IF;
17628:
17629: -- Remember UOM of current remaining quantity
17659: IF (l_debug = 1) THEN
17660: debug_print('Conversion to SECONDARY UOM Failed');
17661: END IF;
17662: fnd_message.set_name('INV', 'CAN-NOT-CONVERT-TO-SECOND-UOM');
17663: fnd_msg_pub.ADD;
17664: RAISE fnd_api.g_exc_error;
17665: END IF;
17666: IF (l_debug = 1) THEN
17667: debug_print('After conversion secondary_qty= '||l_src_rsv.secondary_reservation_quantity); -- KYH
17741: IF (l_debug = 1) THEN
17742: debug_print('Not enough reserved quantity l_remaining_qty='||l_remaining_qty);
17743: END IF;
17744: fnd_message.set_name('INV', 'INV_UPDATE_RSV_FAILED');
17745: fnd_msg_pub.ADD;
17746: RAISE FND_API.G_EXC_ERROR;
17747: END IF;
17748:
17749: -- Standard check of p_commit.
17753: EXCEPTION
17754: WHEN FND_API.G_EXC_ERROR THEN
17755: ROLLBACK TO upd_reservation_pup_new;
17756: x_return_status := fnd_api.g_ret_sts_error;
17757: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
17758: IF (l_debug = 1) THEN
17759: debug_print(l_api_name ||' Exec Err prog='||l_progress||' SQL error: '|| SQLERRM(SQLCODE));
17760: END IF;
17761: WHEN OTHERS THEN
17760: END IF;
17761: WHEN OTHERS THEN
17762: ROLLBACK TO upd_reservation_pup_new;
17763: x_return_status := fnd_api.g_ret_sts_unexp_error;
17764: FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
17765: IF (l_debug = 1) THEN
17766: debug_print(l_api_name ||' Unexp Err prog='||l_progress||' SQL error: '|| SQLERRM(SQLCODE));
17767: END IF;
17768: END Upd_Reservation_PUP_New;
17976: IF (l_debug = 1) THEN
17977: debug_print('upd_reservation_pup failed '|| x_msg_data, 1);
17978: END IF;
17979: fnd_message.set_name('WMS', 'UPD_RESERVATION_PUP_FAIL');
17980: fnd_msg_pub.ADD;
17981: RAISE fnd_api.g_exc_unexpected_error;
17982: END IF;
17983: END LOOP;
17984:
18031: IF (l_debug = 1) THEN
18032: debug_print('upd_reservation_pup failed '|| x_msg_data, 1);
18033: END IF;
18034: fnd_message.set_name('WMS', 'UPD_RESERVATION_PUP_FAIL');
18035: fnd_msg_pub.ADD;
18036: RAISE fnd_api.g_exc_unexpected_error;
18037: END IF;
18038:
18039: l_count := l_count + 1;
18041: IF (l_debug = 1) THEN
18042: debug_print('**Split disallowed for lpns with multiple delivery lines for the same item', 1);
18043: END IF;
18044: fnd_message.set_name('INV', 'INV_MULTI_DEL_SPLIT_ERROR');
18045: fnd_msg_pub.ADD;
18046: RAISE fnd_api.g_exc_error;
18047: END IF;
18048: END LOOP;
18049: END LOOP;
18086: IF (l_debug = 1) THEN
18087: debug_print('upd_reservation_pup failed '|| x_msg_data, 1);
18088: END IF;
18089: fnd_message.set_name('WMS', 'UPD_RESERVATION_PUP_FAIL');
18090: fnd_msg_pub.ADD;
18091: RAISE fnd_api.g_exc_unexpected_error;
18092: END IF;
18093:
18094: l_count := l_count + 1;
18096: IF (l_debug = 1) THEN
18097: debug_print('**Split disallowed for lpns with multiple delivery lines for the same item', 1);
18098: END IF;
18099: fnd_message.set_name('INV', 'INV_MULTI_DEL_SPLIT_ERROR');
18100: fnd_msg_pub.ADD;
18101: RAISE fnd_api.g_exc_error;
18102: END IF;
18103: END LOOP;
18104: END IF;
18105: END IF;
18106: EXCEPTION
18107: WHEN fnd_api.g_exc_error THEN
18108: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
18109: fnd_msg_pub.ADD;
18110: ROLLBACK TO transfer_lpn_trx_reservation;
18111: x_return_status := fnd_api.g_ret_sts_error;
18112: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18113: WHEN fnd_api.g_exc_unexpected_error THEN
18108: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
18109: fnd_msg_pub.ADD;
18110: ROLLBACK TO transfer_lpn_trx_reservation;
18111: x_return_status := fnd_api.g_ret_sts_error;
18112: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18113: WHEN fnd_api.g_exc_unexpected_error THEN
18114: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
18115: fnd_msg_pub.ADD;
18116: ROLLBACK TO transfer_lpn_trx_reservation;
18111: x_return_status := fnd_api.g_ret_sts_error;
18112: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18113: WHEN fnd_api.g_exc_unexpected_error THEN
18114: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
18115: fnd_msg_pub.ADD;
18116: ROLLBACK TO transfer_lpn_trx_reservation;
18117: x_return_status := fnd_api.g_ret_sts_unexp_error;
18118: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18119: WHEN OTHERS THEN
18114: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
18115: fnd_msg_pub.ADD;
18116: ROLLBACK TO transfer_lpn_trx_reservation;
18117: x_return_status := fnd_api.g_ret_sts_unexp_error;
18118: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18119: WHEN OTHERS THEN
18120: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
18121: fnd_msg_pub.ADD;
18122: ROLLBACK TO transfer_lpn_trx_reservation;
18117: x_return_status := fnd_api.g_ret_sts_unexp_error;
18118: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18119: WHEN OTHERS THEN
18120: fnd_message.set_name('WMS', 'INV_XFR_RSV_FAILURE');
18121: fnd_msg_pub.ADD;
18122: ROLLBACK TO transfer_lpn_trx_reservation;
18123: x_return_status := fnd_api.g_ret_sts_unexp_error;
18124:
18125: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18121: fnd_msg_pub.ADD;
18122: ROLLBACK TO transfer_lpn_trx_reservation;
18123: x_return_status := fnd_api.g_ret_sts_unexp_error;
18124:
18125: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18126: fnd_msg_pub.add_exc_msg('wms_upd_res_pvt', 'TRANSFER_LPN_TRX_RESERVATION');
18127: END IF;
18128:
18129: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18122: ROLLBACK TO transfer_lpn_trx_reservation;
18123: x_return_status := fnd_api.g_ret_sts_unexp_error;
18124:
18125: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18126: fnd_msg_pub.add_exc_msg('wms_upd_res_pvt', 'TRANSFER_LPN_TRX_RESERVATION');
18127: END IF;
18128:
18129: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18130: END transfer_lpn_trx_reservation;
18125: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18126: fnd_msg_pub.add_exc_msg('wms_upd_res_pvt', 'TRANSFER_LPN_TRX_RESERVATION');
18127: END IF;
18128:
18129: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18130: END transfer_lpn_trx_reservation;
18131:
18132: PROCEDURE insert_rsv_temp(
18133: p_organization_id NUMBER
18176: EXCEPTION
18177: WHEN OTHERS THEN
18178: x_return_status := fnd_api.g_ret_sts_unexp_error;
18179:
18180: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18181: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
18182: END IF;
18183:
18184: -- Get message count and data
18177: WHEN OTHERS THEN
18178: x_return_status := fnd_api.g_ret_sts_unexp_error;
18179:
18180: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18181: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
18182: END IF;
18183:
18184: -- Get message count and data
18185: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18181: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
18182: END IF;
18183:
18184: -- Get message count and data
18185: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18186: END insert_rsv_temp;
18187:
18188: --Ref 2132071 This procedure pick up reservations created from last commit issued
18189: --and check if there is any node violation.If there is one then it will clear
18306: EXCEPTION
18307: WHEN fnd_api.g_exc_error THEN
18308: x_return_status := fnd_api.g_ret_sts_error;
18309: -- Get message count and data
18310: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18311: WHEN fnd_api.g_exc_unexpected_error THEN
18312: x_return_status := fnd_api.g_ret_sts_unexp_error;
18313: -- Get message count and data
18314: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18310: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18311: WHEN fnd_api.g_exc_unexpected_error THEN
18312: x_return_status := fnd_api.g_ret_sts_unexp_error;
18313: -- Get message count and data
18314: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18315: WHEN OTHERS THEN
18316: x_return_status := fnd_api.g_ret_sts_unexp_error;
18317:
18318: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18314: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18315: WHEN OTHERS THEN
18316: x_return_status := fnd_api.g_ret_sts_unexp_error;
18317:
18318: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18319: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
18320: END IF;
18321:
18322: -- Get message count and data
18315: WHEN OTHERS THEN
18316: x_return_status := fnd_api.g_ret_sts_unexp_error;
18317:
18318: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18319: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
18320: END IF;
18321:
18322: -- Get message count and data
18323: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18319: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
18320: END IF;
18321:
18322: -- Get message count and data
18323: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18324: END do_check_for_commit;
18325:
18326: /**** {{ R12 Enhanced reservations code changes }}****/
18327: PROCEDURE Transfer_Reservation_SubXfer
18442: WHEN fnd_api.g_exc_error THEN
18443: x_return_status := fnd_api.g_ret_sts_error;
18444:
18445: -- Get message count and data
18446: fnd_msg_pub.count_and_get
18447: ( p_count => x_msg_count
18448: , p_data => x_msg_data
18449: );
18450:
18451: WHEN fnd_api.g_exc_unexpected_error THEN
18452: x_return_status := fnd_api.g_ret_sts_unexp_error ;
18453:
18454: -- Get message count and data
18455: fnd_msg_pub.count_and_get
18456: ( p_count => x_msg_count
18457: , p_data => x_msg_data
18458: );
18459:
18459:
18460: WHEN OTHERS THEN
18461: x_return_status := fnd_api.g_ret_sts_unexp_error ;
18462:
18463: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
18464: THEN
18465: fnd_msg_pub.add_exc_msg
18466: ( g_pkg_name
18467: , l_api_name
18461: x_return_status := fnd_api.g_ret_sts_unexp_error ;
18462:
18463: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error)
18464: THEN
18465: fnd_msg_pub.add_exc_msg
18466: ( g_pkg_name
18467: , l_api_name
18468: );
18469: END IF;
18468: );
18469: END IF;
18470:
18471: -- Get message count and data
18472: fnd_msg_pub.count_and_get
18473: ( p_count => x_msg_count
18474: , p_data => x_msg_data
18475: );
18476:
18712: EXCEPTION
18713: WHEN fnd_api.g_exc_error THEN
18714: x_return_status := fnd_api.g_ret_sts_error;
18715: -- Get message count and data
18716: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18717: WHEN fnd_api.g_exc_unexpected_error THEN
18718: x_return_status := fnd_api.g_ret_sts_unexp_error;
18719:
18720: IF (l_debug = 1) THEN
18721: debug_print('unexpected error: ' || SQLERRM);
18722: END IF;
18723:
18724: -- Get message count and data
18725: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18726: WHEN OTHERS THEN
18727: x_return_status := fnd_api.g_ret_sts_unexp_error;
18728:
18729: IF (l_debug = 1) THEN
18729: IF (l_debug = 1) THEN
18730: debug_print('others error: ' || SQLERRM);
18731: END IF;
18732:
18733: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18734: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
18735: END IF;
18736:
18737: -- Get message count and data
18730: debug_print('others error: ' || SQLERRM);
18731: END IF;
18732:
18733: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
18734: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
18735: END IF;
18736:
18737: -- Get message count and data
18738: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18734: fnd_msg_pub.add_exc_msg(g_pkg_name, l_api_name);
18735: END IF;
18736:
18737: -- Get message count and data
18738: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
18739: END transfer_serial_rsv_in_LPN;
18740:
18741: /*** End R12 ***/
18742: