[Home] [Help]
1015: );
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:
1071: );
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
1091: );
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;
1119: );
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
1147: );
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
2598:
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:
2613: WHEN no_data_found THEN
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:
3099: -- INVCONV BEGIN - lot_indivisible quantities cannot be split
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;
3145: AND ((l_net_qty > l_atr AND p_partial_reservation_flag = fnd_api.g_false AND l_fulfill_base='P')
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:
3561: IF (l_debug = 1) THEN
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;
3637: END IF;
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
8297: -- reservations and not create reservations
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:
8483: ,x_lock_handle => l_supply_lock_handle
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:
8499: ,x_lock_handle => l_demand_lock_handle
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:
8525: END IF;
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:
8536: Sales orders Or Internal Orders
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:
8562: IF check_missing(l_rsv_rec, l_what_field) THEN
8563: -- input record attribute can not be missing
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;
8563: -- input record attribute can not be missing
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:
8654: END IF;
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:
9050: /*** move to before insert_row
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:
9116: 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:
9129: IF (p_partial_reservation_flag = fnd_api.g_false) THEN
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);
9288: IF((l_reservation_qty_lot-l_qty_changed2)>0.000005) THEN
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
9321: END IF;
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:
9413:
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;
9592:
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:
9620:
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;
10075: END IF;
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:
10083:
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
10186: IF l_orig_rsv_tbl_count = 0 THEN
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:
10196: IF l_orig_rsv_tbl_count > 1 THEN
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:
10238: ,x_lock_handle => l_supply_lock_handle
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:
10254: ,x_lock_handle => l_demand_lock_handle
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:
10269: IF l_orig_rsv_tbl(1).reservation_id <> l_to_rsv_rec.reservation_id THEN
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:
10279: IF l_orig_rsv_tbl(1).organization_id <> l_to_rsv_rec.organization_id THEN
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:
10289: IF l_orig_rsv_tbl(1).inventory_item_id <> l_to_rsv_rec.inventory_item_id THEN
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:
10382: AND l_to_rsv_tbl(1).reservation_id <> l_orig_rsv_tbl(1).reservation_id THEN
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:
10911: IF (p_partial_reservation_flag = fnd_api.g_false) THEN
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;
10964: l_booked_flag
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;
11087: debug_print('The demand document doesnt have enough quantity to be reserved against. error out. for fulfilment base=S ');
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
11097: IF (l_debug = 1) 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;
11181: END IF;
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:
11188: END IF;
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
11277: WHEN no_data_found THEN
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
11320: WHEN no_data_found THEN
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
11358: IF l_debug=1 THEN
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:
11365: END;
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:
11378: (l_group_mark_id <> -1)THEN
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:
11405: WHEN no_data_found THEN
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;
11436: IF l_debug=1 THEN
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;
11506: WHEN no_data_found THEN
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;
11926: IF l_tmp_rsv_tbl_count = 0 THEN
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:
11936: IF l_tmp_rsv_tbl_count > 1 THEN
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:
12037: AND p_relieve_all <> fnd_api.g_true THEN
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:
12317: END IF;
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:
12324: END IF;
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
12407: WHEN no_data_found THEN
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:
12423: IF (l_serial_number_table.COUNT < l_count_to_unrsv_serials) 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:
12487: WHEN no_data_found THEN
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:
12693: END IF;
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:
12704: debug_print('No of rows to be deleted '|| l_tmp_rsv_tbl_count);
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:
13324: END IF;
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:
13331: END IF;
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:
13356: END IF;
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:
13363: END IF;
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:
13434: --
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:
13453: -- otherwise we would not have the target row having the same values
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:
13468: END IF;
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:
13500: ,x_lock_handle => l_supply_lock_handle
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:
13516: ,x_lock_handle => l_demand_lock_handle
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:
13717: -- indeterminate value.error
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:
14045: 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;
14147: debug_print('The demand document doesnt have enough quantity to be reserved against. error out. for fulfilment base=S ');
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
14157: IF (l_debug = 1) 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;
14285: -- conversion failed
14286: IF (l_debug = 1) THEN
14287: debug_print('Conversion to SECONDARY UOM Failed');
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;
14286: IF (l_debug = 1) THEN
14287: debug_print('Conversion to SECONDARY UOM Failed');
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;
14287: debug_print('Conversion to SECONDARY UOM Failed');
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 */
14356: );
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
14420: -- conversion failed
14421: IF (l_debug = 1) THEN
14422: debug_print('Conversion to SECONDARY UOM Failed');
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;
14421: IF (l_debug = 1) THEN
14422: debug_print('Conversion to SECONDARY UOM Failed');
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;
14422: debug_print('Conversion to SECONDARY UOM Failed');
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 */
14451: 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:
14458: END IF;
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
14688: END IF;
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:
14695: END IF;
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
14959: END IF;
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:
14966: END IF;
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
15081: END IF;
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:
15088: END IF;
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
15438: debug_print('Inside serial check. Not passed');
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
15458: WHEN no_data_found THEN
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
15517: WHEN no_data_found THEN
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:
15584: debug_print('No serials found for reservation record. id: ' || l_to_reservation_id);
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:
15596: -- make sure that the total serials doesnt
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
15636: -- if the serial is not reserved or if the serial belongs to a
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:
15727: WHEN no_data_found 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:
15746: END IF;
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:
15844: WHEN no_data_found THEN
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:
15868: END IF;
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:
15950: debug_print('Total reserved serials: ' || l_validate_serials_reserved);
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:
16042: IF l_debug=1 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:
16049: END;
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:
16062: IF (l_from_reservation_id IS NULL) AND (l_group_mark_id IS NOT NULL) AND (l_group_mark_id <> -1)THEN
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:
16136: WHEN no_data_found THEN
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:
16160: END IF;
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:
16178: WHEN no_data_found THEN
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:
16248: END IF;
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:
16263: WHEN no_data_found THEN
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:
16358: WHEN no_data_found 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:
16384: END IF;
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:
16399: WHEN no_data_found THEN
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:
16426: WHEN no_data_found THEN
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:
16467: -- if the serial is not reserved or if the serial belongs to a
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:
16507: WHEN no_data_found THEN
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:
16514: END;
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:
16606: WHEN no_data_found THEN
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;
16626: 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:
16641: WHEN no_data_found THEN
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:
16714: debug_print('No serials found for reservation record. id: ' || l_orig_rsv_tbl(1).reservation_id);
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:
16729: WHEN no_data_found THEN
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:
16809: WHEN no_data_found 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:
16835: debug_print('No serials found for reservation record. id: ' || l_to_reservation_id);
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:
16850: WHEN no_data_found THEN
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:
16877: WHEN no_data_found THEN
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:
17292: */
17293: IF (p_query_input.demand_source_header_id = fnd_api.g_miss_num
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;
17293: IF (p_query_input.demand_source_header_id = fnd_api.g_miss_num
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:
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;
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:
17620: -- conversion failed
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:
17658: -- conversion failed
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
17740: IF ( ROUND(l_remaining_qty, 5) > 0 ) THEN
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:
17975: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
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;
18030: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
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:
18040: ELSE
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;
18085: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
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:
18095: ELSE
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);
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;
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);
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;
18123: x_return_status := fnd_api.g_ret_sts_unexp_error;
18124: