[Home] [Help]
754: );
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:
797: );
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;
825: );
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
852: );
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
2249:
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:
2264: WHEN no_data_found THEN
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:
2745: -- INVCONV BEGIN - lot_indivisible quantities cannot be split
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;
2781: AND p_partial_reservation_flag = fnd_api.g_false
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:
3174: IF (l_debug = 1) THEN
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;
3250: END IF;
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
7880: -- reservations and not create reservations
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:
8063: ,x_lock_handle => l_supply_lock_handle
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:
8079: ,x_lock_handle => l_demand_lock_handle
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:
8105: END IF;
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:
8116: Sales orders Or Internal Orders
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:
8142: IF check_missing(l_rsv_rec, l_what_field) THEN
8143: -- input record attribute can not be missing
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;
8143: -- input record attribute can not be missing
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:
8234: END IF;
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:
8540: /*** move to before insert_row
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:
8606: 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:
8618: IF (p_partial_reservation_flag = fnd_api.g_false) THEN
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);
8751:
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:
8774: 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:
8866:
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;
9034:
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:
9062:
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;
9494: END IF;
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:
9501: END IF;
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
9604: IF l_orig_rsv_tbl_count = 0 THEN
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:
9614: IF l_orig_rsv_tbl_count > 1 THEN
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:
9656: ,x_lock_handle => l_supply_lock_handle
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:
9672: ,x_lock_handle => l_demand_lock_handle
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:
9687: IF l_orig_rsv_tbl(1).reservation_id <> l_to_rsv_rec.reservation_id THEN
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:
9697: IF l_orig_rsv_tbl(1).organization_id <> l_to_rsv_rec.organization_id THEN
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:
9707: IF l_orig_rsv_tbl(1).inventory_item_id <> l_to_rsv_rec.inventory_item_id THEN
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:
9800: AND l_to_rsv_tbl(1).reservation_id <> l_orig_rsv_tbl(1).reservation_id THEN
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:
10210: IF (p_partial_reservation_flag = fnd_api.g_false) THEN
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;
10263: l_booked_flag
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;
10341: IF (l_debug = 1) THEN
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:
10424: 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:
10431: END IF;
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
10520: WHEN no_data_found THEN
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
10563: WHEN no_data_found THEN
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
10601: IF l_debug=1 THEN
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:
10608: END;
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:
10621: (l_group_mark_id <> -1)THEN
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:
10648: WHEN no_data_found THEN
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;
10679: IF l_debug=1 THEN
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;
10749: WHEN no_data_found THEN
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;
11162: IF l_tmp_rsv_tbl_count = 0 THEN
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:
11172: IF l_tmp_rsv_tbl_count > 1 THEN
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:
11273: AND p_relieve_all <> fnd_api.g_true THEN
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:
11550: END IF;
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:
11557: END IF;
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
11640: WHEN no_data_found THEN
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:
11656: IF (l_serial_number_table.COUNT < l_count_to_unrsv_serials) 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:
11720: WHEN no_data_found THEN
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:
11926: END IF;
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:
11937: debug_print('No of rows to be deleted '|| l_tmp_rsv_tbl_count);
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:
12528: END IF;
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:
12535: END IF;
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:
12560: END IF;
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:
12567: END IF;
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:
12638: --
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:
12657: -- otherwise we would not have the target row having the same values
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:
12672: END IF;
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:
12704: ,x_lock_handle => l_supply_lock_handle
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:
12720: ,x_lock_handle => l_demand_lock_handle
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:
12844: -- indeterminate value.error
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:
13102: 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;
13178: IF (l_debug = 1) THEN
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;
13314: );
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
13343: END IF;
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:
13350: END IF;
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
13579: END IF;
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:
13586: END IF;
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
13850: END IF;
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:
13857: END IF;
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
13971: END IF;
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:
13978: END IF;
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
14309: debug_print('Inside serial check. Not passed');
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
14329: WHEN no_data_found THEN
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
14388: WHEN no_data_found THEN
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:
14455: debug_print('No serials found for reservation record. id: ' || l_to_reservation_id);
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:
14467: -- make sure that the total serials doesnt
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
14507: -- if the serial is not reserved or if the serial belongs to a
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:
14598: WHEN no_data_found 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:
14617: END IF;
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:
14715: WHEN no_data_found THEN
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:
14739: END IF;
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:
14821: debug_print('Total reserved serials: ' || l_validate_serials_reserved);
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:
14913: IF l_debug=1 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:
14920: END;
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:
14933: IF (l_from_reservation_id IS NULL) AND (l_group_mark_id IS NOT NULL) AND (l_group_mark_id <> -1)THEN
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:
15007: WHEN no_data_found THEN
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:
15031: END IF;
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:
15049: WHEN no_data_found THEN
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:
15119: END IF;
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:
15134: WHEN no_data_found THEN
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:
15229: WHEN no_data_found 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:
15255: END IF;
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:
15270: WHEN no_data_found THEN
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:
15297: WHEN no_data_found THEN
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:
15338: -- if the serial is not reserved or if the serial belongs to a
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:
15378: WHEN no_data_found THEN
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:
15385: END;
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:
15477: WHEN no_data_found THEN
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;
15497: 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:
15512: WHEN no_data_found THEN
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:
15585: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
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:
15600: WHEN no_data_found THEN
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:
15680: WHEN no_data_found 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:
15706: debug_print('No serials found for reservation record. id: ' || l_to_reservation_id);
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:
15721: WHEN no_data_found THEN
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:
15748: WHEN no_data_found THEN
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:
16163: */
16164: IF (p_query_input.demand_source_header_id = fnd_api.g_miss_num
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;
16164: IF (p_query_input.demand_source_header_id = fnd_api.g_miss_num
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:
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;
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:
16454: -- conversion failed
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:
16492: -- conversion failed
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
16574: IF ( ROUND(l_remaining_qty, 5) > 0 ) THEN
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:
16807: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
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;
16862: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
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:
16872: ELSE
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;
16917: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
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:
16927: ELSE
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);
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;
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);
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;
16955: x_return_status := fnd_api.g_ret_sts_unexp_error;
16956: