[Home] [Help]
179: IF (p_move_order_type = 3) THEN
180: l_rsv_temp_rec.reservation_id := l_troldt_tbl(l_counter).reservation_id;
181: inv_reservation_pub.query_reservation(
182: p_api_version_number => 1.0
183: , p_init_msg_lst => fnd_api.g_true
184: , x_return_status => l_return_status
185: , x_msg_count => l_msg_count
186: , x_msg_data => l_msg_data
187: , p_query_input => l_rsv_temp_rec
189: , x_mtl_reservation_tbl_count => l_mtl_reservation_count
190: , x_error_code => l_error_code
191: );
192:
193: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
194: RAISE fnd_api.g_exc_unexpected_error;
195: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
196: RAISE fnd_api.g_exc_error;
197: END IF;
190: , x_error_code => l_error_code
191: );
192:
193: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
194: RAISE fnd_api.g_exc_unexpected_error;
195: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
196: RAISE fnd_api.g_exc_error;
197: END IF;
198:
191: );
192:
193: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
194: RAISE fnd_api.g_exc_unexpected_error;
195: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
196: RAISE fnd_api.g_exc_error;
197: END IF;
198:
199: l_rsv_temp_rec := l_mtl_reservation(1);
192:
193: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
194: RAISE fnd_api.g_exc_unexpected_error;
195: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
196: RAISE fnd_api.g_exc_error;
197: END IF;
198:
199: l_rsv_temp_rec := l_mtl_reservation(1);
200: l_to_rsv_rec := l_mtl_reservation(1);
208: END IF;
209:
210: inv_reservation_pub.update_reservation(
211: p_api_version_number => 1.0
212: , p_init_msg_lst => fnd_api.g_true
213: , x_return_status => l_return_status
214: , x_msg_count => l_msg_count
215: , x_msg_data => l_msg_data
216: , p_original_rsv_rec => l_rsv_temp_rec
216: , p_original_rsv_rec => l_rsv_temp_rec
217: , p_to_rsv_rec => l_to_rsv_rec
218: , p_original_serial_number => l_dummy_sn
219: , p_to_serial_number => l_dummy_sn
220: , p_validation_flag => fnd_api.g_true
221: );
222:
223: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
224: RAISE fnd_api.g_exc_unexpected_error;
219: , p_to_serial_number => l_dummy_sn
220: , p_validation_flag => fnd_api.g_true
221: );
222:
223: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
224: RAISE fnd_api.g_exc_unexpected_error;
225: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
226: RAISE fnd_api.g_exc_error;
227: END IF;
220: , p_validation_flag => fnd_api.g_true
221: );
222:
223: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
224: RAISE fnd_api.g_exc_unexpected_error;
225: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
226: RAISE fnd_api.g_exc_error;
227: END IF;
228: END IF;
221: );
222:
223: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
224: RAISE fnd_api.g_exc_unexpected_error;
225: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
226: RAISE fnd_api.g_exc_error;
227: END IF;
228: END IF;
229:
222:
223: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
224: RAISE fnd_api.g_exc_unexpected_error;
225: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
226: RAISE fnd_api.g_exc_error;
227: END IF;
228: END IF;
229:
230: BEGIN
230: BEGIN
231: inv_replenish_detail_pub.clear_record(p_trx_tmp_id => l_troldt_tbl(l_counter).transaction_temp_id,
232: p_success => l_success);
233: if( not l_success ) then
234: raise FND_API.G_EXC_ERROR;
235: end if;
236: EXCEPTION
237: WHEN OTHERS THEN
238: RAISE fnd_api.g_exc_unexpected_error;
234: raise FND_API.G_EXC_ERROR;
235: end if;
236: EXCEPTION
237: WHEN OTHERS THEN
238: RAISE fnd_api.g_exc_unexpected_error;
239: END;
240: inv_mo_line_detail_util.delete_row(x_return_status => l_return_status, p_line_id => l_troldt_tbl(l_counter).move_order_line_id, p_line_detail_id => l_troldt_tbl(l_counter).transaction_temp_id);
241: END LOOP;
242:
243: x_return_status := l_return_status;
244: x_msg_data := l_msg_data;
245: x_msg_count := l_msg_count;
246: EXCEPTION
247: WHEN fnd_api.g_exc_error THEN
248: RAISE;
249: WHEN fnd_api.g_exc_unexpected_error THEN
250: RAISE;
251: WHEN OTHERS THEN
245: x_msg_count := l_msg_count;
246: EXCEPTION
247: WHEN fnd_api.g_exc_error THEN
248: RAISE;
249: WHEN fnd_api.g_exc_unexpected_error THEN
250: RAISE;
251: WHEN OTHERS THEN
252: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
253: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
252: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
253: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
254: END IF;
255:
256: RAISE fnd_api.g_exc_unexpected_error;
257: END delete_troldt;
258:
259: PROCEDURE update_lots_temp(
260: x_return_status OUT NOCOPY VARCHAR2
299:
300: l_debug number;
301: BEGIN
302: -- Initialize API return status to success
303: x_return_status := fnd_api.g_ret_sts_success;
304:
305: -- Use cache to get value for l_debug
306: IF g_is_pickrelease_set IS NULL THEN
307: g_is_pickrelease_set := 2;
376: fnd_message.set_name('INV', 'INV_INVALID_UOM_CONV');
377: fnd_message.set_token('VALUE1', l_secondary_uom_code);
378: fnd_message.set_token('VALUE2', p_trx_uom);
379: fnd_msg_pub.ADD;
380: RAISE fnd_api.g_exc_unexpected_error;
381: END IF;
382:
383: l_mtlt_sec_trx_qty := l_mtlt_sec_trx_qty - l_sec_quantity_cancel;
384: IF l_mtlt_sec_trx_qty < 0 THEN
407: END IF;
408: END LOOP;
409: END IF;
410: EXCEPTION
411: WHEN fnd_api.g_exc_error THEN
412: x_return_status := fnd_api.g_ret_sts_error;
413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
414: WHEN fnd_api.g_exc_unexpected_error THEN
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
408: END LOOP;
409: END IF;
410: EXCEPTION
411: WHEN fnd_api.g_exc_error THEN
412: x_return_status := fnd_api.g_ret_sts_error;
413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
414: WHEN fnd_api.g_exc_unexpected_error THEN
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
410: EXCEPTION
411: WHEN fnd_api.g_exc_error THEN
412: x_return_status := fnd_api.g_ret_sts_error;
413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
414: WHEN fnd_api.g_exc_unexpected_error THEN
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
417: WHEN OTHERS THEN
418: x_return_status := fnd_api.g_ret_sts_unexp_error;
411: WHEN fnd_api.g_exc_error THEN
412: x_return_status := fnd_api.g_ret_sts_error;
413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
414: WHEN fnd_api.g_exc_unexpected_error THEN
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
417: WHEN OTHERS THEN
418: x_return_status := fnd_api.g_ret_sts_unexp_error;
419:
414: WHEN fnd_api.g_exc_unexpected_error THEN
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
417: WHEN OTHERS THEN
418: x_return_status := fnd_api.g_ret_sts_unexp_error;
419:
420: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
421: fnd_msg_pub.add_exc_msg(g_pkg_name, 'update lots temp');
422: END IF;
445: ORDER BY fm_serial_number DESC
446: FOR UPDATE OF transaction_temp_id;
447: BEGIN
448: -- Initialize API return status to success
449: x_return_status := fnd_api.g_ret_sts_success;
450:
451: IF p_operation = 'DELETE' THEN -- when cancel qty >sum(mmtt trx qty)
452: DELETE FROM mtl_serial_numbers_temp
453: WHERE transaction_temp_id = p_trx_temp_id;
492: ,to_serial_number => l_to_serial_number
493: ,serial_code => null
494: ,hdr_id => l_transaction_header_id
495: ,temp_id => p_trx_temp_id
496: ,p_update_reservation => fnd_api.g_true);
497: /*** End R12 }} ***/
498:
499: del_serial_number := del_serial_number + 1;
500:
511: END LOOP;
512: END IF;
513: END IF;
514: EXCEPTION
515: WHEN fnd_api.g_exc_error THEN
516: x_return_status := fnd_api.g_ret_sts_error;
517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
518: WHEN fnd_api.g_exc_unexpected_error THEN
519: x_return_status := fnd_api.g_ret_sts_unexp_error;
512: END IF;
513: END IF;
514: EXCEPTION
515: WHEN fnd_api.g_exc_error THEN
516: x_return_status := fnd_api.g_ret_sts_error;
517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
518: WHEN fnd_api.g_exc_unexpected_error THEN
519: x_return_status := fnd_api.g_ret_sts_unexp_error;
520: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
514: EXCEPTION
515: WHEN fnd_api.g_exc_error THEN
516: x_return_status := fnd_api.g_ret_sts_error;
517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
518: WHEN fnd_api.g_exc_unexpected_error THEN
519: x_return_status := fnd_api.g_ret_sts_unexp_error;
520: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
521: WHEN OTHERS THEN
522: x_return_status := fnd_api.g_ret_sts_unexp_error;
515: WHEN fnd_api.g_exc_error THEN
516: x_return_status := fnd_api.g_ret_sts_error;
517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
518: WHEN fnd_api.g_exc_unexpected_error THEN
519: x_return_status := fnd_api.g_ret_sts_unexp_error;
520: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
521: WHEN OTHERS THEN
522: x_return_status := fnd_api.g_ret_sts_unexp_error;
523:
518: WHEN fnd_api.g_exc_unexpected_error THEN
519: x_return_status := fnd_api.g_ret_sts_unexp_error;
520: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
521: WHEN OTHERS THEN
522: x_return_status := fnd_api.g_ret_sts_unexp_error;
523:
524: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
525: fnd_msg_pub.add_exc_msg(g_pkg_name, 'update serial temp');
526: END IF;
584:
585: -- if the update is update quantity and decrease the quantity
586: IF (l_trolin_rec.quantity < l_old_trolin_rec.quantity) THEN
587: IF (l_trolin_rec.quantity <= 0) THEN
588: l_return_status := fnd_api.g_ret_sts_error;
589: RAISE fnd_api.g_exc_error;
590: END IF;
591:
592: l_quantity_cancel := l_old_trolin_rec.quantity - l_trolin_rec.quantity;
585: -- if the update is update quantity and decrease the quantity
586: IF (l_trolin_rec.quantity < l_old_trolin_rec.quantity) THEN
587: IF (l_trolin_rec.quantity <= 0) THEN
588: l_return_status := fnd_api.g_ret_sts_error;
589: RAISE fnd_api.g_exc_error;
590: END IF;
591:
592: l_quantity_cancel := l_old_trolin_rec.quantity - l_trolin_rec.quantity;
593:
591:
592: l_quantity_cancel := l_old_trolin_rec.quantity - l_trolin_rec.quantity;
593:
594: IF (l_quantity_cancel > (l_trolin_rec.quantity - l_trolin_rec.quantity_delivered)) THEN
595: l_return_status := fnd_api.g_ret_sts_error;
596: RAISE fnd_api.g_exc_error;
597: END IF;
598:
599: l_trolin_rec.quantity_detailed := l_trolin_rec.quantity_detailed - l_quantity_cancel;
592: l_quantity_cancel := l_old_trolin_rec.quantity - l_trolin_rec.quantity;
593:
594: IF (l_quantity_cancel > (l_trolin_rec.quantity - l_trolin_rec.quantity_delivered)) THEN
595: l_return_status := fnd_api.g_ret_sts_error;
596: RAISE fnd_api.g_exc_error;
597: END IF;
598:
599: l_trolin_rec.quantity_detailed := l_trolin_rec.quantity_detailed - l_quantity_cancel;
600: -- nsinghi bug#5724815 Update the secondary_quantity_detailed also. Fetch l_quantity_cancel in sec uom and deduct from secondary_quantity_detailed.
617: fnd_message.set_name('INV', 'INV_INVALID_UOM_CONV');
618: fnd_message.set_token('VALUE1', l_old_trolin_rec.secondary_uom);
619: fnd_message.set_token('VALUE2', l_trolin_rec.uom_code);
620: fnd_msg_pub.ADD;
621: RAISE fnd_api.g_exc_unexpected_error;
622: END IF;
623: IF l_trolin_rec.secondary_quantity_detailed IS NOT NULL THEN
624: l_trolin_rec.secondary_quantity_detailed := l_trolin_rec.secondary_quantity_detailed - l_sec_quantity_cancel;
625: IF l_trolin_rec.secondary_quantity_detailed < 0 THEN
668: , x_mtl_reservation_tbl_count => l_mtl_reservation_count
669: , x_error_code => l_error_code
670: );
671:
672: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
673: RAISE fnd_api.g_exc_unexpected_error;
674: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
675: RAISE fnd_api.g_exc_error;
676: END IF;
669: , x_error_code => l_error_code
670: );
671:
672: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
673: RAISE fnd_api.g_exc_unexpected_error;
674: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
675: RAISE fnd_api.g_exc_error;
676: END IF;
677:
670: );
671:
672: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
673: RAISE fnd_api.g_exc_unexpected_error;
674: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
675: RAISE fnd_api.g_exc_error;
676: END IF;
677:
678: l_to_rsv_rec := l_mtl_reservation(1);
671:
672: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
673: RAISE fnd_api.g_exc_unexpected_error;
674: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
675: RAISE fnd_api.g_exc_error;
676: END IF;
677:
678: l_to_rsv_rec := l_mtl_reservation(1);
679: l_rsv_temp_rec := l_mtl_reservation(1);
710: , p_creation_date => l_troldt_tbl(l_counter).creation_date
711: , p_created_by => l_troldt_tbl(l_counter).created_by
712: );
713:
714: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
715: RAISE fnd_api.g_exc_unexpected_error;
716: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
717: RAISE fnd_api.g_exc_error;
718: END IF;
711: , p_created_by => l_troldt_tbl(l_counter).created_by
712: );
713:
714: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
715: RAISE fnd_api.g_exc_unexpected_error;
716: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
717: RAISE fnd_api.g_exc_error;
718: END IF;
719: END IF;
712: );
713:
714: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
715: RAISE fnd_api.g_exc_unexpected_error;
716: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
717: RAISE fnd_api.g_exc_error;
718: END IF;
719: END IF;
720:
713:
714: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
715: RAISE fnd_api.g_exc_unexpected_error;
716: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
717: RAISE fnd_api.g_exc_error;
718: END IF;
719: END IF;
720:
721: -- bug 2195303
721: -- bug 2195303
722: IF l_serial_control_code IN (2, 5) THEN
723: update_serial_temp(x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_operation => 'DELETE', p_trx_temp_id => l_troldt_tbl(l_counter).transaction_temp_id, p_cancel_qty => l_quantity_cancel);
724:
725: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
726: RAISE fnd_api.g_exc_unexpected_error;
727: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
728: RAISE fnd_api.g_exc_error;
729: END IF;
722: IF l_serial_control_code IN (2, 5) THEN
723: update_serial_temp(x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_operation => 'DELETE', p_trx_temp_id => l_troldt_tbl(l_counter).transaction_temp_id, p_cancel_qty => l_quantity_cancel);
724:
725: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
726: RAISE fnd_api.g_exc_unexpected_error;
727: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
728: RAISE fnd_api.g_exc_error;
729: END IF;
730: END IF;
723: update_serial_temp(x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_operation => 'DELETE', p_trx_temp_id => l_troldt_tbl(l_counter).transaction_temp_id, p_cancel_qty => l_quantity_cancel);
724:
725: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
726: RAISE fnd_api.g_exc_unexpected_error;
727: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
728: RAISE fnd_api.g_exc_error;
729: END IF;
730: END IF;
731:
724:
725: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
726: RAISE fnd_api.g_exc_unexpected_error;
727: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
728: RAISE fnd_api.g_exc_error;
729: END IF;
730: END IF;
731:
732: l_quantity_cancel := l_quantity_cancel - l_troldt_tbl(l_counter).transaction_quantity;
735: inv_replenish_detail_pub.clear_record(
736: p_trx_tmp_id => l_troldt_tbl(l_counter).transaction_temp_id,
737: p_success => l_success);
738: if( not l_success ) then
739: raise FND_API.G_EXC_ERROR;
740: end if;
741: EXCEPTION
742: WHEN OTHERS THEN
743: RAISE fnd_api.g_exc_unexpected_error;
739: raise FND_API.G_EXC_ERROR;
740: end if;
741: EXCEPTION
742: WHEN OTHERS THEN
743: RAISE fnd_api.g_exc_unexpected_error;
744: END;
745: IF p_delete_mmtt = 'YES' THEN --Added bug3524130
746: inv_mo_line_detail_util.delete_row(x_return_status => l_return_status, p_line_id => l_trolin_rec.line_id, p_line_detail_id => l_troldt_tbl(l_counter).transaction_temp_id);
747: END IF;
745: IF p_delete_mmtt = 'YES' THEN --Added bug3524130
746: inv_mo_line_detail_util.delete_row(x_return_status => l_return_status, p_line_id => l_trolin_rec.line_id, p_line_detail_id => l_troldt_tbl(l_counter).transaction_temp_id);
747: END IF;
748:
749: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
750: RAISE fnd_api.g_exc_unexpected_error;
751: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
752: RAISE fnd_api.g_exc_error;
753: END IF;
746: inv_mo_line_detail_util.delete_row(x_return_status => l_return_status, p_line_id => l_trolin_rec.line_id, p_line_detail_id => l_troldt_tbl(l_counter).transaction_temp_id);
747: END IF;
748:
749: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
750: RAISE fnd_api.g_exc_unexpected_error;
751: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
752: RAISE fnd_api.g_exc_error;
753: END IF;
754: ELSIF (l_troldt_tbl(l_counter).transaction_quantity > l_quantity_cancel) THEN
747: END IF;
748:
749: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
750: RAISE fnd_api.g_exc_unexpected_error;
751: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
752: RAISE fnd_api.g_exc_error;
753: END IF;
754: ELSIF (l_troldt_tbl(l_counter).transaction_quantity > l_quantity_cancel) THEN
755: IF (l_debug = 1) THEN
748:
749: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
750: RAISE fnd_api.g_exc_unexpected_error;
751: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
752: RAISE fnd_api.g_exc_error;
753: END IF;
754: ELSIF (l_troldt_tbl(l_counter).transaction_quantity > l_quantity_cancel) THEN
755: IF (l_debug = 1) THEN
756: DEBUG('only need to update the line detail', 'UPDATE TROLNDT ');
773: , p_creation_date => l_troldt_tbl(l_counter).creation_date
774: , p_created_by => l_troldt_tbl(l_counter).created_by
775: );
776:
777: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
778: RAISE fnd_api.g_exc_unexpected_error;
779: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
780: RAISE fnd_api.g_exc_error;
781: END IF;
774: , p_created_by => l_troldt_tbl(l_counter).created_by
775: );
776:
777: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
778: RAISE fnd_api.g_exc_unexpected_error;
779: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
780: RAISE fnd_api.g_exc_error;
781: END IF;
782: END IF;
775: );
776:
777: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
778: RAISE fnd_api.g_exc_unexpected_error;
779: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
780: RAISE fnd_api.g_exc_error;
781: END IF;
782: END IF;
783:
776:
777: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
778: RAISE fnd_api.g_exc_unexpected_error;
779: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
780: RAISE fnd_api.g_exc_error;
781: END IF;
782: END IF;
783:
784: -- bug 2195303
784: -- bug 2195303
785: IF l_serial_control_code IN (2, 5) THEN
786: update_serial_temp(x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_operation => 'DELETE', p_trx_temp_id => l_troldt_tbl(l_counter).transaction_temp_id, p_cancel_qty => l_quantity_cancel);
787:
788: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
789: RAISE fnd_api.g_exc_unexpected_error;
790: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
791: RAISE fnd_api.g_exc_error;
792: END IF;
785: IF l_serial_control_code IN (2, 5) THEN
786: update_serial_temp(x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_operation => 'DELETE', p_trx_temp_id => l_troldt_tbl(l_counter).transaction_temp_id, p_cancel_qty => l_quantity_cancel);
787:
788: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
789: RAISE fnd_api.g_exc_unexpected_error;
790: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
791: RAISE fnd_api.g_exc_error;
792: END IF;
793: END IF;
786: update_serial_temp(x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, p_operation => 'DELETE', p_trx_temp_id => l_troldt_tbl(l_counter).transaction_temp_id, p_cancel_qty => l_quantity_cancel);
787:
788: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
789: RAISE fnd_api.g_exc_unexpected_error;
790: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
791: RAISE fnd_api.g_exc_error;
792: END IF;
793: END IF;
794:
787:
788: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
789: RAISE fnd_api.g_exc_unexpected_error;
790: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
791: RAISE fnd_api.g_exc_error;
792: END IF;
793: END IF;
794:
795: l_troldt_tbl(l_counter).transaction_quantity := l_troldt_tbl(l_counter).transaction_quantity - l_quantity_cancel;
818: fnd_message.set_name('INV', 'INV_INVALID_UOM_CONV');
819: fnd_message.set_token('VALUE1', l_troldt_tbl(l_counter).secondary_uom_code);
820: fnd_message.set_token('VALUE2', l_transaction_uom);
821: fnd_msg_pub.ADD;
822: RAISE fnd_api.g_exc_unexpected_error;
823: END IF;
824: IF l_secondary_uom_qty < 0 THEN
825: l_secondary_uom_qty := 0;
826: END IF;
830:
831: l_rsv_quantity := l_quantity_cancel;
832: inv_mo_line_detail_util.update_row(x_return_status => l_return_status, p_mo_line_detail_rec => l_troldt_tbl(l_counter));
833:
834: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
835: RAISE fnd_api.g_exc_unexpected_error;
836: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
837: RAISE fnd_api.g_exc_error;
838: END IF;
831: l_rsv_quantity := l_quantity_cancel;
832: inv_mo_line_detail_util.update_row(x_return_status => l_return_status, p_mo_line_detail_rec => l_troldt_tbl(l_counter));
833:
834: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
835: RAISE fnd_api.g_exc_unexpected_error;
836: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
837: RAISE fnd_api.g_exc_error;
838: END IF;
839:
832: inv_mo_line_detail_util.update_row(x_return_status => l_return_status, p_mo_line_detail_rec => l_troldt_tbl(l_counter));
833:
834: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
835: RAISE fnd_api.g_exc_unexpected_error;
836: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
837: RAISE fnd_api.g_exc_error;
838: END IF;
839:
840: l_quantity_cancel := 0;
833:
834: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
835: RAISE fnd_api.g_exc_unexpected_error;
836: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
837: RAISE fnd_api.g_exc_error;
838: END IF;
839:
840: l_quantity_cancel := 0;
841: END IF;
856: , p_original_rsv_rec => l_rsv_temp_rec
857: , p_to_rsv_rec => l_to_rsv_rec
858: , p_original_serial_number => l_dummy_sn
859: , p_to_serial_number => l_dummy_sn
860: , p_validation_flag => fnd_api.g_true
861: );
862:
863: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
864: RAISE fnd_api.g_exc_unexpected_error;
859: , p_to_serial_number => l_dummy_sn
860: , p_validation_flag => fnd_api.g_true
861: );
862:
863: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
864: RAISE fnd_api.g_exc_unexpected_error;
865: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
866: RAISE fnd_api.g_exc_error;
867: END IF;
860: , p_validation_flag => fnd_api.g_true
861: );
862:
863: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
864: RAISE fnd_api.g_exc_unexpected_error;
865: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
866: RAISE fnd_api.g_exc_error;
867: END IF;
868: END IF;
861: );
862:
863: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
864: RAISE fnd_api.g_exc_unexpected_error;
865: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
866: RAISE fnd_api.g_exc_error;
867: END IF;
868: END IF;
869:
862:
863: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
864: RAISE fnd_api.g_exc_unexpected_error;
865: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
866: RAISE fnd_api.g_exc_error;
867: END IF;
868: END IF;
869:
870: IF (l_quantity_cancel <= 0) THEN
896: , p_original_rsv_rec => l_rsv_temp_rec
897: , p_to_rsv_rec => l_to_rsv_rec
898: , p_original_serial_number => l_dummy_sn
899: , p_to_serial_number => l_dummy_sn
900: , p_validation_flag => fnd_api.g_true
901: );
902:
903: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
904: RAISE fnd_api.g_exc_unexpected_error;
899: , p_to_serial_number => l_dummy_sn
900: , p_validation_flag => fnd_api.g_true
901: );
902:
903: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
904: RAISE fnd_api.g_exc_unexpected_error;
905: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
906: RAISE fnd_api.g_exc_error;
907: END IF;
900: , p_validation_flag => fnd_api.g_true
901: );
902:
903: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
904: RAISE fnd_api.g_exc_unexpected_error;
905: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
906: RAISE fnd_api.g_exc_error;
907: END IF;
908: END IF;
901: );
902:
903: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
904: RAISE fnd_api.g_exc_unexpected_error;
905: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
906: RAISE fnd_api.g_exc_error;
907: END IF;
908: END IF;
909:
902:
903: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
904: RAISE fnd_api.g_exc_unexpected_error;
905: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
906: RAISE fnd_api.g_exc_error;
907: END IF;
908: END IF;
909:
910: BEGIN
911: inv_replenish_detail_pub.clear_record(
912: p_trx_tmp_id => l_troldt_tbl(l_counter).transaction_temp_id,
913: p_success => l_success);
914: if( not l_success ) then
915: raise FND_API.G_EXC_ERROR;
916: end if;
917: EXCEPTION
918: WHEN OTHERS THEN
919: RAISE fnd_api.g_exc_unexpected_error;
915: raise FND_API.G_EXC_ERROR;
916: end if;
917: EXCEPTION
918: WHEN OTHERS THEN
919: RAISE fnd_api.g_exc_unexpected_error;
920: END;
921: inv_mo_line_detail_util.delete_row(x_return_status => l_return_status, p_line_id => l_trolin_rec.line_id, p_line_detail_id => l_troldt_tbl(l_counter).transaction_temp_id);
922:
923: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
919: RAISE fnd_api.g_exc_unexpected_error;
920: END;
921: inv_mo_line_detail_util.delete_row(x_return_status => l_return_status, p_line_id => l_trolin_rec.line_id, p_line_detail_id => l_troldt_tbl(l_counter).transaction_temp_id);
922:
923: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
924: RAISE fnd_api.g_exc_unexpected_error;
925: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
926: RAISE fnd_api.g_exc_error;
927: END IF;
920: END;
921: inv_mo_line_detail_util.delete_row(x_return_status => l_return_status, p_line_id => l_trolin_rec.line_id, p_line_detail_id => l_troldt_tbl(l_counter).transaction_temp_id);
922:
923: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
924: RAISE fnd_api.g_exc_unexpected_error;
925: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
926: RAISE fnd_api.g_exc_error;
927: END IF;
928: END IF;
921: inv_mo_line_detail_util.delete_row(x_return_status => l_return_status, p_line_id => l_trolin_rec.line_id, p_line_detail_id => l_troldt_tbl(l_counter).transaction_temp_id);
922:
923: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
924: RAISE fnd_api.g_exc_unexpected_error;
925: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
926: RAISE fnd_api.g_exc_error;
927: END IF;
928: END IF;
929: END LOOP;
922:
923: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
924: RAISE fnd_api.g_exc_unexpected_error;
925: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
926: RAISE fnd_api.g_exc_error;
927: END IF;
928: END IF;
929: END LOOP;
930: END IF;
930: END IF;
931:
932: x_trolin_rec := l_trolin_rec;
933: EXCEPTION
934: WHEN fnd_api.g_exc_error THEN
935: RAISE;
936: WHEN fnd_api.g_exc_unexpected_error THEN
937: RAISE;
938: WHEN OTHERS THEN
932: x_trolin_rec := l_trolin_rec;
933: EXCEPTION
934: WHEN fnd_api.g_exc_error THEN
935: RAISE;
936: WHEN fnd_api.g_exc_unexpected_error THEN
937: RAISE;
938: WHEN OTHERS THEN
939: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
940: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
939: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
940: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
941: END IF;
942:
943: RAISE fnd_api.g_exc_unexpected_error;
944: END update_troldt;
945:
946: PROCEDURE trohdr(
947: p_validation_level IN NUMBER
965:
966: -- Load API control record
967: l_control_rec := inv_globals.init_control_rec(p_operation => l_trohdr_rec.operation, p_control_rec => p_control_rec);
968: -- Set record return status.
969: l_trohdr_rec.return_status := fnd_api.g_ret_sts_success;
970:
971: -- Prepare record.
972: IF l_trohdr_rec.operation = inv_globals.g_opr_create THEN
973: l_trohdr_rec.db_flag := fnd_api.g_false;
969: l_trohdr_rec.return_status := fnd_api.g_ret_sts_success;
970:
971: -- Prepare record.
972: IF l_trohdr_rec.operation = inv_globals.g_opr_create THEN
973: l_trohdr_rec.db_flag := fnd_api.g_false;
974: -- Set missing old record elements to NULL.
975: l_old_trohdr_rec := inv_trohdr_util.convert_miss_to_null(l_old_trohdr_rec);
976: ELSIF l_trohdr_rec.operation = inv_globals.g_opr_update
977: OR l_trohdr_rec.operation = inv_globals.g_opr_delete THEN
974: -- Set missing old record elements to NULL.
975: l_old_trohdr_rec := inv_trohdr_util.convert_miss_to_null(l_old_trohdr_rec);
976: ELSIF l_trohdr_rec.operation = inv_globals.g_opr_update
977: OR l_trohdr_rec.operation = inv_globals.g_opr_delete THEN
978: l_trohdr_rec.db_flag := fnd_api.g_true;
979:
980: -- Query Old if missing
981: IF l_old_trohdr_rec.header_id = fnd_api.g_miss_num THEN
982: l_old_trohdr_rec := inv_trohdr_util.query_row(p_header_id => l_trohdr_rec.header_id);
977: OR l_trohdr_rec.operation = inv_globals.g_opr_delete THEN
978: l_trohdr_rec.db_flag := fnd_api.g_true;
979:
980: -- Query Old if missing
981: IF l_old_trohdr_rec.header_id = fnd_api.g_miss_num THEN
982: l_old_trohdr_rec := inv_trohdr_util.query_row(p_header_id => l_trohdr_rec.header_id);
983: ELSE
984: -- Set missing old record elements to NULL.
985: l_old_trohdr_rec := inv_trohdr_util.convert_miss_to_null(l_old_trohdr_rec);
1008: l_trohdr_rec := l_tmp_trohdr_rec;
1009:
1010: --Bug# 4554438.End
1011:
1012: IF p_validation_level > fnd_api.g_valid_level_none THEN
1013: -- Bug#2536932: Setting Missing elements of P_TROHDR_VAL_REC to NULL values.
1014: l_trohdr_val_rec := inv_trohdr_util.convert_miss_to_null(p_trohdr_val_rec);
1015: inv_validate_trohdr.ATTRIBUTES(x_return_status => l_return_status, p_trohdr_rec => l_trohdr_rec, p_trohdr_val_rec => l_trohdr_val_rec, p_old_trohdr_rec => l_old_trohdr_rec);
1016:
1013: -- Bug#2536932: Setting Missing elements of P_TROHDR_VAL_REC to NULL values.
1014: l_trohdr_val_rec := inv_trohdr_util.convert_miss_to_null(p_trohdr_val_rec);
1015: inv_validate_trohdr.ATTRIBUTES(x_return_status => l_return_status, p_trohdr_rec => l_trohdr_rec, p_trohdr_val_rec => l_trohdr_val_rec, p_old_trohdr_rec => l_old_trohdr_rec);
1016:
1017: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1018: RAISE fnd_api.g_exc_unexpected_error;
1019: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1020: RAISE fnd_api.g_exc_error;
1021: END IF;
1014: l_trohdr_val_rec := inv_trohdr_util.convert_miss_to_null(p_trohdr_val_rec);
1015: inv_validate_trohdr.ATTRIBUTES(x_return_status => l_return_status, p_trohdr_rec => l_trohdr_rec, p_trohdr_val_rec => l_trohdr_val_rec, p_old_trohdr_rec => l_old_trohdr_rec);
1016:
1017: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1018: RAISE fnd_api.g_exc_unexpected_error;
1019: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1020: RAISE fnd_api.g_exc_error;
1021: END IF;
1022: END IF;
1015: inv_validate_trohdr.ATTRIBUTES(x_return_status => l_return_status, p_trohdr_rec => l_trohdr_rec, p_trohdr_val_rec => l_trohdr_val_rec, p_old_trohdr_rec => l_old_trohdr_rec);
1016:
1017: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1018: RAISE fnd_api.g_exc_unexpected_error;
1019: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1020: RAISE fnd_api.g_exc_error;
1021: END IF;
1022: END IF;
1023: END IF;
1016:
1017: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1018: RAISE fnd_api.g_exc_unexpected_error;
1019: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1020: RAISE fnd_api.g_exc_error;
1021: END IF;
1022: END IF;
1023: END IF;
1024:
1042: ELSE
1043: inv_validate_trohdr.entity(x_return_status => l_return_status, p_trohdr_rec => l_trohdr_rec, p_old_trohdr_rec => l_old_trohdr_rec);
1044: END IF;
1045:
1046: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1047: RAISE fnd_api.g_exc_unexpected_error;
1048: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1049: RAISE fnd_api.g_exc_error;
1050: END IF;
1043: inv_validate_trohdr.entity(x_return_status => l_return_status, p_trohdr_rec => l_trohdr_rec, p_old_trohdr_rec => l_old_trohdr_rec);
1044: END IF;
1045:
1046: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1047: RAISE fnd_api.g_exc_unexpected_error;
1048: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1049: RAISE fnd_api.g_exc_error;
1050: END IF;
1051: END IF;
1044: END IF;
1045:
1046: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1047: RAISE fnd_api.g_exc_unexpected_error;
1048: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1049: RAISE fnd_api.g_exc_error;
1050: END IF;
1051: END IF;
1052:
1045:
1046: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1047: RAISE fnd_api.g_exc_unexpected_error;
1048: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1049: RAISE fnd_api.g_exc_error;
1050: END IF;
1051: END IF;
1052:
1053: -- Step 4. Write to DB
1076: x_trohdr_rec := l_trohdr_rec;
1077: --debug(l_trohdr_rec.header_id);
1078: x_old_trohdr_rec := l_old_trohdr_rec;
1079: EXCEPTION
1080: WHEN fnd_api.g_exc_error THEN
1081: l_trohdr_rec.return_status := fnd_api.g_ret_sts_error;
1082: x_trohdr_rec := l_trohdr_rec;
1083: x_old_trohdr_rec := l_old_trohdr_rec;
1084: RAISE;
1077: --debug(l_trohdr_rec.header_id);
1078: x_old_trohdr_rec := l_old_trohdr_rec;
1079: EXCEPTION
1080: WHEN fnd_api.g_exc_error THEN
1081: l_trohdr_rec.return_status := fnd_api.g_ret_sts_error;
1082: x_trohdr_rec := l_trohdr_rec;
1083: x_old_trohdr_rec := l_old_trohdr_rec;
1084: RAISE;
1085: WHEN fnd_api.g_exc_unexpected_error THEN
1081: l_trohdr_rec.return_status := fnd_api.g_ret_sts_error;
1082: x_trohdr_rec := l_trohdr_rec;
1083: x_old_trohdr_rec := l_old_trohdr_rec;
1084: RAISE;
1085: WHEN fnd_api.g_exc_unexpected_error THEN
1086: l_trohdr_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1087: x_trohdr_rec := l_trohdr_rec;
1088: x_old_trohdr_rec := l_old_trohdr_rec;
1089: RAISE;
1082: x_trohdr_rec := l_trohdr_rec;
1083: x_old_trohdr_rec := l_old_trohdr_rec;
1084: RAISE;
1085: WHEN fnd_api.g_exc_unexpected_error THEN
1086: l_trohdr_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1087: x_trohdr_rec := l_trohdr_rec;
1088: x_old_trohdr_rec := l_old_trohdr_rec;
1089: RAISE;
1090: WHEN OTHERS THEN
1091: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1092: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trohdr');
1093: END IF;
1094:
1095: l_trohdr_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1096: x_trohdr_rec := l_trohdr_rec;
1097: x_old_trohdr_rec := l_old_trohdr_rec;
1098: RAISE fnd_api.g_exc_unexpected_error;
1099: END trohdr;
1094:
1095: l_trohdr_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1096: x_trohdr_rec := l_trohdr_rec;
1097: x_old_trohdr_rec := l_old_trohdr_rec;
1098: RAISE fnd_api.g_exc_unexpected_error;
1099: END trohdr;
1100:
1101: -- Trolins
1102:
1174: END IF;
1175:
1176: IF NVL(l_trolin_rec.ship_set_id, -99) = NVL(l_failed_ship_set_id, -999) THEN
1177: DEBUG('MO Line failed due to Ship Set validation: ' || to_char(l_trolin_rec.line_id), 'Inv_Transfer_Order_PVT.Trolins');
1178: RAISE fnd_api.g_exc_error;
1179: END IF;
1180:
1181: /* Bug 2504964: Tracking Ship Set : Code Ends */
1182:
1200: --l_trohdr_rec := inv_trohdr_util.query_row(l_trolin_tbl(I).header_id);
1201: --l_move_order_type := l_trohdr_rec.move_order_type;
1202:
1203: -- Set record return status.
1204: l_trolin_rec.return_status := fnd_api.g_ret_sts_success;
1205: -- Prepare record.
1206: IF (l_debug = 1) THEN
1207: DEBUG('Trolin operation:'|| l_trolin_rec.operation, 'Inv_Transfer_Order_PVT.Trolins');
1208: END IF;
1207: DEBUG('Trolin operation:'|| l_trolin_rec.operation, 'Inv_Transfer_Order_PVT.Trolins');
1208: END IF;
1209:
1210: IF l_trolin_rec.operation = inv_globals.g_opr_create THEN
1211: l_trolin_rec.db_flag := fnd_api.g_false;
1212: -- Set missing old record elements to NULL.
1213: --debug('Trolin convert');
1214: IF (l_debug = 1) THEN
1215: DEBUG('Trolin convert', 'Inv_Transfer_Order_PVT.Trolins');
1216: END IF;
1217: l_old_trolin_rec := inv_trolin_util.convert_miss_to_null(l_old_trolin_rec);
1218: ELSIF l_trolin_rec.operation = inv_globals.g_opr_update
1219: OR l_trolin_rec.operation = inv_globals.g_opr_delete THEN
1220: l_trolin_rec.db_flag := fnd_api.g_true;
1221:
1222: -- Query Old if missing
1223: IF l_old_trolin_rec.line_id = fnd_api.g_miss_num THEN
1224: --debug('Trolin line_id miss num');
1219: OR l_trolin_rec.operation = inv_globals.g_opr_delete THEN
1220: l_trolin_rec.db_flag := fnd_api.g_true;
1221:
1222: -- Query Old if missing
1223: IF l_old_trolin_rec.line_id = fnd_api.g_miss_num THEN
1224: --debug('Trolin line_id miss num');
1225: IF (l_debug = 1) THEN
1226: DEBUG('Trolin line_id miss num', 'Inv_Transfer_Order_PVT.Trolins');
1227: END IF;
1250: l_cur_mfg_org_id := TO_NUMBER(FND_PROFILE.VALUE('MFG_ORGANIZATION_ID'));
1251: l_cur_line_org_id := l_trolin_rec.organization_id;
1252:
1253: IF ( ( (l_cur_mfg_org_id IS NULL) OR
1254: (l_cur_mfg_org_id IS NOT NULL AND l_cur_mfg_org_id = FND_API.G_MISS_NUM)
1255: ) AND
1256: (l_cur_line_org_id IS NOT NULL AND l_cur_line_org_id <> FND_API.G_MISS_NUM)
1257: ) THEN
1258: FND_PROFILE.put('MFG_ORGANIZATION_ID',l_trolin_rec.organization_id);
1252:
1253: IF ( ( (l_cur_mfg_org_id IS NULL) OR
1254: (l_cur_mfg_org_id IS NOT NULL AND l_cur_mfg_org_id = FND_API.G_MISS_NUM)
1255: ) AND
1256: (l_cur_line_org_id IS NOT NULL AND l_cur_line_org_id <> FND_API.G_MISS_NUM)
1257: ) THEN
1258: FND_PROFILE.put('MFG_ORGANIZATION_ID',l_trolin_rec.organization_id);
1259: END IF;
1260:
1274: , x_trolin_rec => l_tmp_trolin_rec);
1275:
1276: l_trolin_rec := l_tmp_trolin_rec;
1277:
1278: IF p_validation_level > fnd_api.g_valid_level_none THEN
1279: inv_validate_trolin.ATTRIBUTES(x_return_status => l_return_status, p_trolin_rec => l_trolin_rec, p_trolin_val_rec => l_trolin_val_rec, p_old_trolin_rec => l_old_trolin_rec);
1280:
1281: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1282: --debug('error in validate_attributes');
1277:
1278: IF p_validation_level > fnd_api.g_valid_level_none THEN
1279: inv_validate_trolin.ATTRIBUTES(x_return_status => l_return_status, p_trolin_rec => l_trolin_rec, p_trolin_val_rec => l_trolin_val_rec, p_old_trolin_rec => l_old_trolin_rec);
1280:
1281: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1282: --debug('error in validate_attributes');
1283: IF (l_debug = 1) THEN
1284: DEBUG('error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1285: END IF;
1282: --debug('error in validate_attributes');
1283: IF (l_debug = 1) THEN
1284: DEBUG('error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1285: END IF;
1286: RAISE fnd_api.g_exc_unexpected_error;
1287: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1288: IF (l_debug = 1) THEN
1289: DEBUG('exc error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1290: END IF;
1283: IF (l_debug = 1) THEN
1284: DEBUG('error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1285: END IF;
1286: RAISE fnd_api.g_exc_unexpected_error;
1287: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1288: IF (l_debug = 1) THEN
1289: DEBUG('exc error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1290: END IF;
1291: RAISE fnd_api.g_exc_error;
1287: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1288: IF (l_debug = 1) THEN
1289: DEBUG('exc error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1290: END IF;
1291: RAISE fnd_api.g_exc_error;
1292: END IF;
1293: END IF;
1294: END IF;
1295:
1327: END IF;
1328: inv_validate_trolin.entity(x_return_status => l_return_status, p_trolin_rec => l_trolin_rec, p_old_trolin_rec => l_old_trolin_rec, p_move_order_type => p_move_order_type);
1329: END IF;
1330:
1331: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1332: l_trolin_rec.return_status := l_return_status;
1333: RAISE fnd_api.g_exc_unexpected_error;
1334: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1335: l_trolin_rec.return_status := l_return_status;
1329: END IF;
1330:
1331: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1332: l_trolin_rec.return_status := l_return_status;
1333: RAISE fnd_api.g_exc_unexpected_error;
1334: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1335: l_trolin_rec.return_status := l_return_status;
1336: IF (l_debug = 1) THEN
1337: DEBUG('Error from Trolin Validate Entity', 'Inv_Transfer_Order_PVT.Trolins');
1330:
1331: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1332: l_trolin_rec.return_status := l_return_status;
1333: RAISE fnd_api.g_exc_unexpected_error;
1334: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1335: l_trolin_rec.return_status := l_return_status;
1336: IF (l_debug = 1) THEN
1337: DEBUG('Error from Trolin Validate Entity', 'Inv_Transfer_Order_PVT.Trolins');
1338: END IF;
1335: l_trolin_rec.return_status := l_return_status;
1336: IF (l_debug = 1) THEN
1337: DEBUG('Error from Trolin Validate Entity', 'Inv_Transfer_Order_PVT.Trolins');
1338: END IF;
1339: RAISE fnd_api.g_exc_error;
1340: END IF;
1341: END IF;
1342:
1343: --debug('AFter Trolin Validate Entity');
1390: fnd_message.set_name('INV', 'INV_INVALID_UOM_CONV');
1391: fnd_message.set_token('VALUE1', l_old_trolin_rec.secondary_uom);
1392: fnd_message.set_token('VALUE2', l_trolin_rec.uom_code);
1393: fnd_msg_pub.ADD;
1394: RAISE fnd_api.g_exc_unexpected_error;
1395: END IF;
1396: END IF;
1397: -- END
1398:
1415: DEBUG('Calling Delete_Troldt', 'Inv_Transfer_Order_PVT.Trolins');
1416: END IF;
1417: delete_troldt(x_return_status => l_return_status, x_msg_data => l_msg_data, x_msg_count => l_msg_count, p_troldt_tbl => l_troldt_tbl, p_move_order_type => l_move_order_type);
1418:
1419: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1420: l_trolin_rec.return_status := l_return_status;
1421: RAISE fnd_api.g_exc_unexpected_error;
1422: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1423: l_trolin_rec.return_status := l_return_status;
1417: delete_troldt(x_return_status => l_return_status, x_msg_data => l_msg_data, x_msg_count => l_msg_count, p_troldt_tbl => l_troldt_tbl, p_move_order_type => l_move_order_type);
1418:
1419: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1420: l_trolin_rec.return_status := l_return_status;
1421: RAISE fnd_api.g_exc_unexpected_error;
1422: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1423: l_trolin_rec.return_status := l_return_status;
1424: RAISE fnd_api.g_exc_error;
1425: END IF;
1418:
1419: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1420: l_trolin_rec.return_status := l_return_status;
1421: RAISE fnd_api.g_exc_unexpected_error;
1422: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1423: l_trolin_rec.return_status := l_return_status;
1424: RAISE fnd_api.g_exc_error;
1425: END IF;
1426: END IF;
1420: l_trolin_rec.return_status := l_return_status;
1421: RAISE fnd_api.g_exc_unexpected_error;
1422: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1423: l_trolin_rec.return_status := l_return_status;
1424: RAISE fnd_api.g_exc_error;
1425: END IF;
1426: END IF;
1427:
1428: inv_trolin_util.delete_row(p_line_id => l_trolin_rec.line_id);
1478: , x_trolin_rec => l_trolin_rec
1479: , p_delete_mmtt => p_delete_mmtt --Added bug 3524130
1480: );
1481:
1482: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1483: IF (l_debug = 1) THEN
1484: DEBUG('got error', 'Inv_Transfer_Order_PVT.Trolins');
1485: END IF;
1486: l_trolin_rec.return_status := l_return_status;
1483: IF (l_debug = 1) THEN
1484: DEBUG('got error', 'Inv_Transfer_Order_PVT.Trolins');
1485: END IF;
1486: l_trolin_rec.return_status := l_return_status;
1487: RAISE fnd_api.g_exc_unexpected_error;
1488: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1489: l_trolin_rec.return_status := l_return_status;
1490: RAISE fnd_api.g_exc_error;
1491: END IF;
1484: DEBUG('got error', 'Inv_Transfer_Order_PVT.Trolins');
1485: END IF;
1486: l_trolin_rec.return_status := l_return_status;
1487: RAISE fnd_api.g_exc_unexpected_error;
1488: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1489: l_trolin_rec.return_status := l_return_status;
1490: RAISE fnd_api.g_exc_error;
1491: END IF;
1492: END IF;
1486: l_trolin_rec.return_status := l_return_status;
1487: RAISE fnd_api.g_exc_unexpected_error;
1488: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1489: l_trolin_rec.return_status := l_return_status;
1490: RAISE fnd_api.g_exc_error;
1491: END IF;
1492: END IF;
1493: END IF;
1494:
1523: l_trolin_tbl(i) := l_trolin_rec;
1524: l_old_trolin_tbl(i) := l_old_trolin_rec;
1525: -- For loop exception handler.
1526: EXCEPTION
1527: WHEN fnd_api.g_exc_error THEN
1528: l_trolin_rec.return_status := fnd_api.g_ret_sts_error;
1529: l_trolin_tbl(i) := l_trolin_rec;
1530: l_old_trolin_tbl(i) := l_old_trolin_rec;
1531:
1524: l_old_trolin_tbl(i) := l_old_trolin_rec;
1525: -- For loop exception handler.
1526: EXCEPTION
1527: WHEN fnd_api.g_exc_error THEN
1528: l_trolin_rec.return_status := fnd_api.g_ret_sts_error;
1529: l_trolin_tbl(i) := l_trolin_rec;
1530: l_old_trolin_tbl(i) := l_old_trolin_rec;
1531:
1532: /* Bug 2504964: One of the MO Lines in the ShipSet failed.
1540: END IF;
1541:
1542: FOR l_count IN 1 .. l_trolin_tbl.COUNT LOOP
1543: IF l_trolin_tbl(l_count).ship_set_id = NVL(l_failed_ship_set_id, -99) THEN
1544: l_trolin_tbl(l_count).return_status := fnd_api.g_ret_sts_error;
1545: END IF;
1546: END LOOP;
1547:
1548: l_marked_failed_shipset := TRUE;
1552: --Bug 4756455 (11.5.10 bug 4755172 )
1553: --Reverted change of Bug 4329971,4699505 here and removed the code
1554:
1555:
1556: WHEN fnd_api.g_exc_unexpected_error THEN
1557: l_trolin_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1558: l_trolin_tbl(i) := l_trolin_rec;
1559: l_old_trolin_tbl(i) := l_old_trolin_rec;
1560: RAISE fnd_api.g_exc_unexpected_error;
1553: --Reverted change of Bug 4329971,4699505 here and removed the code
1554:
1555:
1556: WHEN fnd_api.g_exc_unexpected_error THEN
1557: l_trolin_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1558: l_trolin_tbl(i) := l_trolin_rec;
1559: l_old_trolin_tbl(i) := l_old_trolin_rec;
1560: RAISE fnd_api.g_exc_unexpected_error;
1561: WHEN OTHERS THEN
1556: WHEN fnd_api.g_exc_unexpected_error THEN
1557: l_trolin_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1558: l_trolin_tbl(i) := l_trolin_rec;
1559: l_old_trolin_tbl(i) := l_old_trolin_rec;
1560: RAISE fnd_api.g_exc_unexpected_error;
1561: WHEN OTHERS THEN
1562: l_trolin_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1563: l_trolin_tbl(i) := l_trolin_rec;
1564: l_old_trolin_tbl(i) := l_old_trolin_rec;
1558: l_trolin_tbl(i) := l_trolin_rec;
1559: l_old_trolin_tbl(i) := l_old_trolin_rec;
1560: RAISE fnd_api.g_exc_unexpected_error;
1561: WHEN OTHERS THEN
1562: l_trolin_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1563: l_trolin_tbl(i) := l_trolin_rec;
1564: l_old_trolin_tbl(i) := l_old_trolin_rec;
1565:
1566: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1566: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1567: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
1568: END IF;
1569:
1570: RAISE fnd_api.g_exc_unexpected_error;
1571: END;
1572: END LOOP;
1573:
1574: -- Load OUT parameters
1575:
1576: x_trolin_tbl := l_trolin_tbl;
1577: x_old_trolin_tbl := l_old_trolin_tbl;
1578: EXCEPTION
1579: WHEN fnd_api.g_exc_error THEN
1580: RAISE;
1581: WHEN fnd_api.g_exc_unexpected_error THEN
1582: RAISE;
1583: WHEN OTHERS THEN
1577: x_old_trolin_tbl := l_old_trolin_tbl;
1578: EXCEPTION
1579: WHEN fnd_api.g_exc_error THEN
1580: RAISE;
1581: WHEN fnd_api.g_exc_unexpected_error THEN
1582: RAISE;
1583: WHEN OTHERS THEN
1584: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1585: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
1584: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1585: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
1586: END IF;
1587:
1588: RAISE fnd_api.g_exc_unexpected_error;
1589: END trolins;
1590:
1591: /*Procedure Get_Reservations(
1592: x_return_status OUT VARCHAR2,
1596: p_source_line_id IN NUMBER,
1597: p_source_delivery_id IN NUMBER,
1598: p_organization_id IN NUMBER,
1599: p_inventory_item_id IN NUMBER,
1600: p_subinventory_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1601: p_locator_id IN NUMBER := FND_API.G_MISS_NUM,
1602: p_revision IN VARCHAR2 := FND_API.G_MISS_CHAR,
1603: p_lot_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1604: p_serial_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1597: p_source_delivery_id IN NUMBER,
1598: p_organization_id IN NUMBER,
1599: p_inventory_item_id IN NUMBER,
1600: p_subinventory_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1601: p_locator_id IN NUMBER := FND_API.G_MISS_NUM,
1602: p_revision IN VARCHAR2 := FND_API.G_MISS_CHAR,
1603: p_lot_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1604: p_serial_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1605: x_mtl_reservation_tbl OUT INV_RESERVATION_GLOBAL.MTL_RESERVATION_TBL_TYPE
1598: p_organization_id IN NUMBER,
1599: p_inventory_item_id IN NUMBER,
1600: p_subinventory_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1601: p_locator_id IN NUMBER := FND_API.G_MISS_NUM,
1602: p_revision IN VARCHAR2 := FND_API.G_MISS_CHAR,
1603: p_lot_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1604: p_serial_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1605: x_mtl_reservation_tbl OUT INV_RESERVATION_GLOBAL.MTL_RESERVATION_TBL_TYPE
1606: )
1599: p_inventory_item_id IN NUMBER,
1600: p_subinventory_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1601: p_locator_id IN NUMBER := FND_API.G_MISS_NUM,
1602: p_revision IN VARCHAR2 := FND_API.G_MISS_CHAR,
1603: p_lot_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1604: p_serial_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1605: x_mtl_reservation_tbl OUT INV_RESERVATION_GLOBAL.MTL_RESERVATION_TBL_TYPE
1606: )
1607: IS
1600: p_subinventory_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1601: p_locator_id IN NUMBER := FND_API.G_MISS_NUM,
1602: p_revision IN VARCHAR2 := FND_API.G_MISS_CHAR,
1603: p_lot_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1604: p_serial_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1605: x_mtl_reservation_tbl OUT INV_RESERVATION_GLOBAL.MTL_RESERVATION_TBL_TYPE
1606: )
1607: IS
1608: l_rsv_temp_rec INV_RESERVATION_GLOBAL.MTL_RESERVATION_REC_TYPE;
1635: if(l_mtl_reservation(l_count).revision is null ) then
1636: if( l_mtl_reservation(l_count).lot_number is null) then
1637: if( l_mtl_reservation(l_count).serial_number is null) then
1638: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1639: elsif( p_serial_number <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).serial_number =p_serial_number) then
1640: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1641: end if;
1642: elsif( p_lot_number <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).lot_number =p_lot_number) then
1643: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1638: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1639: elsif( p_serial_number <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).serial_number =p_serial_number) then
1640: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1641: end if;
1642: elsif( p_lot_number <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).lot_number =p_lot_number) then
1643: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1644: end if;
1645: elsif( p_revision <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).revision =p_revision) then
1646: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1641: end if;
1642: elsif( p_lot_number <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).lot_number =p_lot_number) then
1643: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1644: end if;
1645: elsif( p_revision <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).revision =p_revision) then
1646: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1647: end if;
1648: elsif( p_locator_id <> FND_API.G_MISS_NUM AND l_mtl_reservation(l_count).locator_id =p_locator_id) then
1649: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1644: end if;
1645: elsif( p_revision <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).revision =p_revision) then
1646: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1647: end if;
1648: elsif( p_locator_id <> FND_API.G_MISS_NUM AND l_mtl_reservation(l_count).locator_id =p_locator_id) then
1649: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1650: end if;
1651: elsif( p_subinventory_code <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).subinventory_code =p_subinventory_code) then
1652: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1647: end if;
1648: elsif( p_locator_id <> FND_API.G_MISS_NUM AND l_mtl_reservation(l_count).locator_id =p_locator_id) then
1649: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1650: end if;
1651: elsif( p_subinventory_code <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).subinventory_code =p_subinventory_code) then
1652: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1653: end if;
1654: end loop;
1655: end if; */
1655: end if; */
1656: /* x_mtl_reservation_tbl := l_rsv_result_tbl;
1657: EXCEPTION
1658:
1659: WHEN FND_API.G_EXC_ERROR THEN
1660: RAISE;
1661:
1662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1663: RAISE;
1658:
1659: WHEN FND_API.G_EXC_ERROR THEN
1660: RAISE;
1661:
1662: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1663: RAISE;
1664:
1665: WHEN OTHERS THEN
1666: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1669: ( G_PKG_NAME
1670: , 'Trolins'
1671: );
1672: END IF;
1673: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1674: END Get_Reservations;*/
1675:
1676: -- Start of Comments
1677: -- API name Process_Transfer_Order
1690: -- End of Comments
1691:
1692: PROCEDURE process_transfer_order(
1693: p_api_version_number IN NUMBER
1694: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1695: , p_commit IN VARCHAR2 := fnd_api.g_false
1696: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1697: , p_control_rec IN inv_globals.control_rec_type := inv_globals.g_miss_control_rec
1698: , x_return_status OUT NOCOPY VARCHAR2
1691:
1692: PROCEDURE process_transfer_order(
1693: p_api_version_number IN NUMBER
1694: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1695: , p_commit IN VARCHAR2 := fnd_api.g_false
1696: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1697: , p_control_rec IN inv_globals.control_rec_type := inv_globals.g_miss_control_rec
1698: , x_return_status OUT NOCOPY VARCHAR2
1699: , x_msg_count OUT NOCOPY NUMBER
1692: PROCEDURE process_transfer_order(
1693: p_api_version_number IN NUMBER
1694: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1695: , p_commit IN VARCHAR2 := fnd_api.g_false
1696: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1697: , p_control_rec IN inv_globals.control_rec_type := inv_globals.g_miss_control_rec
1698: , x_return_status OUT NOCOPY VARCHAR2
1699: , x_msg_count OUT NOCOPY NUMBER
1700: , x_msg_data OUT NOCOPY VARCHAR2
1720: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
1721: l_debug number;
1722: BEGIN
1723: -- Standard call to check for call compatibility
1724: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1725: RAISE fnd_api.g_exc_unexpected_error;
1726: END IF;
1727:
1728: -- Initialize message list.
1721: l_debug number;
1722: BEGIN
1723: -- Standard call to check for call compatibility
1724: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1725: RAISE fnd_api.g_exc_unexpected_error;
1726: END IF;
1727:
1728: -- Initialize message list.
1729:
1726: END IF;
1727:
1728: -- Initialize message list.
1729:
1730: IF fnd_api.to_boolean(p_init_msg_list) THEN
1731: fnd_msg_pub.initialize;
1732: END IF;
1733:
1734: -- Use cache to get value for l_debug
1775: l_trolin_rec := l_trolin_tbl(i);
1776:
1777: IF l_trolin_rec.operation = inv_globals.g_opr_create
1778: AND (l_trolin_rec.header_id IS NULL
1779: OR l_trolin_rec.header_id = fnd_api.g_miss_num
1780: ) THEN
1781: -- Copy parent_id.
1782: IF (l_debug = 1) THEN
1783: DEBUG('Header:'|| TO_CHAR(l_trohdr_rec.header_id), 'Inv_Transfer_Order_PVT.Process_Transfer_Orders');
1811: --debug(x_trohdr_rec.header_id);
1812: x_trolin_tbl := l_trolin_tbl;
1813: --debug('AFter trolins 4');
1814: -- Derive return status.
1815: x_return_status := fnd_api.g_ret_sts_success;
1816:
1817:
1818: --Bug #4777248
1819: --Modified both the if loops by removing p_control_rec.process from the condition
1819: --Modified both the if loops by removing p_control_rec.process from the condition
1820: IF (p_control_rec.process_entity = inv_globals.g_entity_all
1821: OR p_control_rec.process_entity = inv_globals.g_entity_trohdr
1822: ) THEN
1823: IF l_trohdr_rec.return_status = fnd_api.g_ret_sts_error THEN
1824: x_return_status := fnd_api.g_ret_sts_error;
1825: END IF;
1826: END IF;
1827:
1820: IF (p_control_rec.process_entity = inv_globals.g_entity_all
1821: OR p_control_rec.process_entity = inv_globals.g_entity_trohdr
1822: ) THEN
1823: IF l_trohdr_rec.return_status = fnd_api.g_ret_sts_error THEN
1824: x_return_status := fnd_api.g_ret_sts_error;
1825: END IF;
1826: END IF;
1827:
1828: IF (p_control_rec.process_entity = inv_globals.g_entity_all
1829: OR p_control_rec.process_entity = inv_globals.g_entity_trolin
1830: ) THEN
1831: FOR i IN 1 .. l_trolin_tbl.COUNT LOOP
1832: --debug('In Loop :'||to_char(I));
1833: IF l_trolin_tbl(i).return_status = fnd_api.g_ret_sts_error THEN
1834: x_return_status := fnd_api.g_ret_sts_error;
1835: END IF;
1836: END LOOP;
1837: END IF;
1830: ) THEN
1831: FOR i IN 1 .. l_trolin_tbl.COUNT LOOP
1832: --debug('In Loop :'||to_char(I));
1833: IF l_trolin_tbl(i).return_status = fnd_api.g_ret_sts_error THEN
1834: x_return_status := fnd_api.g_ret_sts_error;
1835: END IF;
1836: END LOOP;
1837: END IF;
1838: --End Bug #4777248
1839:
1840: -- Get message count and data
1841: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1842: EXCEPTION
1843: WHEN fnd_api.g_exc_error THEN
1844: x_return_status := fnd_api.g_ret_sts_error;
1845: -- Get message count and data
1846: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1847: WHEN fnd_api.g_exc_unexpected_error THEN
1840: -- Get message count and data
1841: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1842: EXCEPTION
1843: WHEN fnd_api.g_exc_error THEN
1844: x_return_status := fnd_api.g_ret_sts_error;
1845: -- Get message count and data
1846: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1847: WHEN fnd_api.g_exc_unexpected_error THEN
1848: x_return_status := fnd_api.g_ret_sts_unexp_error;
1843: WHEN fnd_api.g_exc_error THEN
1844: x_return_status := fnd_api.g_ret_sts_error;
1845: -- Get message count and data
1846: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1847: WHEN fnd_api.g_exc_unexpected_error THEN
1848: x_return_status := fnd_api.g_ret_sts_unexp_error;
1849: -- Get message count and data
1850: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1851: WHEN OTHERS THEN
1844: x_return_status := fnd_api.g_ret_sts_error;
1845: -- Get message count and data
1846: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1847: WHEN fnd_api.g_exc_unexpected_error THEN
1848: x_return_status := fnd_api.g_ret_sts_unexp_error;
1849: -- Get message count and data
1850: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1851: WHEN OTHERS THEN
1852: x_return_status := fnd_api.g_ret_sts_unexp_error;
1848: x_return_status := fnd_api.g_ret_sts_unexp_error;
1849: -- Get message count and data
1850: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1851: WHEN OTHERS THEN
1852: x_return_status := fnd_api.g_ret_sts_unexp_error;
1853:
1854: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1855: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Process_Transfer_Order');
1856: END IF;
1876: -- End of Comments
1877:
1878: PROCEDURE lock_transfer_order(
1879: p_api_version_number IN NUMBER
1880: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1881: , x_return_status OUT NOCOPY VARCHAR2
1882: , x_msg_count OUT NOCOPY NUMBER
1883: , x_msg_data OUT NOCOPY VARCHAR2
1884: , p_trohdr_rec IN inv_move_order_pub.trohdr_rec_type := inv_move_order_pub.g_miss_trohdr_rec
1887: , x_trolin_tbl IN OUT NOCOPY inv_move_order_pub.trolin_tbl_type
1888: ) IS
1889: l_api_version_number CONSTANT NUMBER := 1.0;
1890: l_api_name CONSTANT VARCHAR2(30) := 'Lock_Transfer_Order';
1891: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1892: l_trolin_rec inv_move_order_pub.trolin_rec_type;
1893: BEGIN
1894: -- Standard call to check for call compatibility
1895: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1891: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1892: l_trolin_rec inv_move_order_pub.trolin_rec_type;
1893: BEGIN
1894: -- Standard call to check for call compatibility
1895: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1896: RAISE fnd_api.g_exc_unexpected_error;
1897: END IF;
1898:
1899: -- Initialize message list.
1892: l_trolin_rec inv_move_order_pub.trolin_rec_type;
1893: BEGIN
1894: -- Standard call to check for call compatibility
1895: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1896: RAISE fnd_api.g_exc_unexpected_error;
1897: END IF;
1898:
1899: -- Initialize message list.
1900: IF fnd_api.to_boolean(p_init_msg_list) THEN
1896: RAISE fnd_api.g_exc_unexpected_error;
1897: END IF;
1898:
1899: -- Initialize message list.
1900: IF fnd_api.to_boolean(p_init_msg_list) THEN
1901: fnd_msg_pub.initialize;
1902: END IF;
1903:
1904: -- Set Savepoint
1907: -- Lock trohdr
1908: IF p_trohdr_rec.operation = inv_globals.g_opr_lock THEN
1909: inv_trohdr_util.lock_row(p_trohdr_rec => p_trohdr_rec, x_trohdr_rec => x_trohdr_rec, x_return_status => l_return_status);
1910:
1911: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1912: RAISE fnd_api.g_exc_unexpected_error;
1913: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1914: RAISE fnd_api.g_exc_error;
1915: END IF;
1908: IF p_trohdr_rec.operation = inv_globals.g_opr_lock THEN
1909: inv_trohdr_util.lock_row(p_trohdr_rec => p_trohdr_rec, x_trohdr_rec => x_trohdr_rec, x_return_status => l_return_status);
1910:
1911: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1912: RAISE fnd_api.g_exc_unexpected_error;
1913: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1914: RAISE fnd_api.g_exc_error;
1915: END IF;
1916: END IF;
1909: inv_trohdr_util.lock_row(p_trohdr_rec => p_trohdr_rec, x_trohdr_rec => x_trohdr_rec, x_return_status => l_return_status);
1910:
1911: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1912: RAISE fnd_api.g_exc_unexpected_error;
1913: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1914: RAISE fnd_api.g_exc_error;
1915: END IF;
1916: END IF;
1917:
1910:
1911: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1912: RAISE fnd_api.g_exc_unexpected_error;
1913: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1914: RAISE fnd_api.g_exc_error;
1915: END IF;
1916: END IF;
1917:
1918: -- Lock trolin
1919: FOR i IN 1 .. p_trolin_tbl.COUNT LOOP
1920: IF p_trolin_tbl(i).operation = inv_globals.g_opr_lock THEN
1921: inv_trolin_util.lock_row(p_trolin_rec => p_trolin_tbl(i), x_trolin_rec => l_trolin_rec, x_return_status => l_return_status);
1922:
1923: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1924: RAISE fnd_api.g_exc_unexpected_error;
1925: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1926: RAISE fnd_api.g_exc_error;
1927: END IF;
1920: IF p_trolin_tbl(i).operation = inv_globals.g_opr_lock THEN
1921: inv_trolin_util.lock_row(p_trolin_rec => p_trolin_tbl(i), x_trolin_rec => l_trolin_rec, x_return_status => l_return_status);
1922:
1923: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1924: RAISE fnd_api.g_exc_unexpected_error;
1925: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1926: RAISE fnd_api.g_exc_error;
1927: END IF;
1928:
1921: inv_trolin_util.lock_row(p_trolin_rec => p_trolin_tbl(i), x_trolin_rec => l_trolin_rec, x_return_status => l_return_status);
1922:
1923: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1924: RAISE fnd_api.g_exc_unexpected_error;
1925: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1926: RAISE fnd_api.g_exc_error;
1927: END IF;
1928:
1929: x_trolin_tbl(i) := l_trolin_rec;
1922:
1923: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1924: RAISE fnd_api.g_exc_unexpected_error;
1925: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1926: RAISE fnd_api.g_exc_error;
1927: END IF;
1928:
1929: x_trolin_tbl(i) := l_trolin_rec;
1930: END IF;
1930: END IF;
1931: END LOOP;
1932:
1933: -- Set return status
1934: x_return_status := fnd_api.g_ret_sts_success;
1935: -- Get message count and data
1936: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1937: EXCEPTION
1938: WHEN fnd_api.g_exc_error THEN
1934: x_return_status := fnd_api.g_ret_sts_success;
1935: -- Get message count and data
1936: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1937: EXCEPTION
1938: WHEN fnd_api.g_exc_error THEN
1939: x_return_status := fnd_api.g_ret_sts_error;
1940: -- Get message count and data
1941: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1942: -- Rollback
1935: -- Get message count and data
1936: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1937: EXCEPTION
1938: WHEN fnd_api.g_exc_error THEN
1939: x_return_status := fnd_api.g_ret_sts_error;
1940: -- Get message count and data
1941: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1942: -- Rollback
1943: ROLLBACK TO lock_transfer_order_pvt;
1940: -- Get message count and data
1941: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1942: -- Rollback
1943: ROLLBACK TO lock_transfer_order_pvt;
1944: WHEN fnd_api.g_exc_unexpected_error THEN
1945: x_return_status := fnd_api.g_ret_sts_unexp_error;
1946: -- Get message count and data
1947: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1948: -- Rollback
1941: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1942: -- Rollback
1943: ROLLBACK TO lock_transfer_order_pvt;
1944: WHEN fnd_api.g_exc_unexpected_error THEN
1945: x_return_status := fnd_api.g_ret_sts_unexp_error;
1946: -- Get message count and data
1947: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1948: -- Rollback
1949: ROLLBACK TO lock_transfer_order_pvt;
1947: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1948: -- Rollback
1949: ROLLBACK TO lock_transfer_order_pvt;
1950: WHEN OTHERS THEN
1951: x_return_status := fnd_api.g_ret_sts_unexp_error;
1952:
1953: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1954: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Lock_Transfer_Order');
1955: END IF;
1977: -- End of Comments
1978:
1979: PROCEDURE get_transfer_order(
1980: p_api_version_number IN NUMBER
1981: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1982: , x_return_status OUT NOCOPY VARCHAR2
1983: , x_msg_count OUT NOCOPY NUMBER
1984: , x_msg_data OUT NOCOPY VARCHAR2
1985: , p_header_id IN NUMBER
1991: l_trohdr_rec inv_move_order_pub.trohdr_rec_type;
1992: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
1993: BEGIN
1994: -- Standard call to check for call compatibility
1995: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1996: RAISE fnd_api.g_exc_unexpected_error;
1997: END IF;
1998:
1999: -- Initialize message list.
1992: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
1993: BEGIN
1994: -- Standard call to check for call compatibility
1995: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1996: RAISE fnd_api.g_exc_unexpected_error;
1997: END IF;
1998:
1999: -- Initialize message list.
2000: IF fnd_api.to_boolean(p_init_msg_list) THEN
1996: RAISE fnd_api.g_exc_unexpected_error;
1997: END IF;
1998:
1999: -- Initialize message list.
2000: IF fnd_api.to_boolean(p_init_msg_list) THEN
2001: fnd_msg_pub.initialize;
2002: END IF;
2003:
2004: -- Get trohdr ( parent = trohdr )
2009: -- Load out parameters
2010: x_trohdr_rec := l_trohdr_rec;
2011: x_trolin_tbl := l_trolin_tbl;
2012: -- Set return status
2013: x_return_status := fnd_api.g_ret_sts_success;
2014: -- Get message count and data
2015: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2016: EXCEPTION
2017: WHEN fnd_api.g_exc_error THEN
2013: x_return_status := fnd_api.g_ret_sts_success;
2014: -- Get message count and data
2015: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2016: EXCEPTION
2017: WHEN fnd_api.g_exc_error THEN
2018: x_return_status := fnd_api.g_ret_sts_error;
2019: -- Get message count and data
2020: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2021: WHEN fnd_api.g_exc_unexpected_error THEN
2014: -- Get message count and data
2015: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2016: EXCEPTION
2017: WHEN fnd_api.g_exc_error THEN
2018: x_return_status := fnd_api.g_ret_sts_error;
2019: -- Get message count and data
2020: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2021: WHEN fnd_api.g_exc_unexpected_error THEN
2022: x_return_status := fnd_api.g_ret_sts_unexp_error;
2017: WHEN fnd_api.g_exc_error THEN
2018: x_return_status := fnd_api.g_ret_sts_error;
2019: -- Get message count and data
2020: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2021: WHEN fnd_api.g_exc_unexpected_error THEN
2022: x_return_status := fnd_api.g_ret_sts_unexp_error;
2023: -- Get message count and data
2024: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2025: WHEN OTHERS THEN
2018: x_return_status := fnd_api.g_ret_sts_error;
2019: -- Get message count and data
2020: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2021: WHEN fnd_api.g_exc_unexpected_error THEN
2022: x_return_status := fnd_api.g_ret_sts_unexp_error;
2023: -- Get message count and data
2024: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2025: WHEN OTHERS THEN
2026: x_return_status := fnd_api.g_ret_sts_unexp_error;
2022: x_return_status := fnd_api.g_ret_sts_unexp_error;
2023: -- Get message count and data
2024: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2025: WHEN OTHERS THEN
2026: x_return_status := fnd_api.g_ret_sts_unexp_error;
2027:
2028: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2029: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Get_Transfer_Order');
2030: END IF;
2104: -- g_from_sub.asset_inventory := p_from_sub_asset;
2105: l_return := inv_validate.to_subinventory(l_sub, l_org, l_item, g_from_sub, l_acct_txn);
2106:
2107: IF (l_return = inv_validate.f) THEN
2108: --l_error_msg := FND_MSG_PUB.GET(p_encoded => FND_API.G_FALSE);
2109: l_result := FALSE;
2110: ELSE
2111: l_result := TRUE;
2112: END IF;
2188: x_mtl_reservation_tbl => l_mtl_reservation_tbl,
2189: x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count,
2190: x_error_code => l_error_code);
2191:
2192: IF l_return_status = fnd_api.g_ret_sts_error THEN
2193:
2194: IF (l_debug = 1) THEN
2195: debug('Error from query_reservations', 'update_txn_source_line');
2196: END IF;
2194: IF (l_debug = 1) THEN
2195: debug('Error from query_reservations', 'update_txn_source_line');
2196: END IF;
2197:
2198: RAISE fnd_api.g_exc_error;
2199: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2200:
2201: IF (l_debug = 1) THEN
2202: debug('Error from query_reservations', 'update_txn_source_line');
2195: debug('Error from query_reservations', 'update_txn_source_line');
2196: END IF;
2197:
2198: RAISE fnd_api.g_exc_error;
2199: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2200:
2201: IF (l_debug = 1) THEN
2202: debug('Error from query_reservations', 'update_txn_source_line');
2203: END IF;
2201: IF (l_debug = 1) THEN
2202: debug('Error from query_reservations', 'update_txn_source_line');
2203: END IF;
2204:
2205: RAISE fnd_api.g_exc_unexpected_error;
2206: END IF;
2207:
2208: IF (l_debug = 1) THEN
2209: debug('Original Reservation_ID: ' || rec_mmtt.reservation_id, 'update_txn_source_line');
2220: rec_mmtt.transaction_quantity);
2221:
2222: inv_reservation_pub.transfer_reservation
2223: (p_api_version_number => 1.0,
2224: p_init_msg_lst => fnd_api.g_false,
2225: x_return_status => l_return_status,
2226: x_msg_count => l_msg_count,
2227: x_msg_data => l_msg_data,
2228: p_original_rsv_rec => l_mtl_reservation_tbl(1),
2228: p_original_rsv_rec => l_mtl_reservation_tbl(1),
2229: p_to_rsv_rec => l_new_reservation_rec,
2230: p_original_serial_number => l_original_serial_number,
2231: p_to_serial_number => l_original_serial_number,
2232: p_validation_flag => fnd_api.g_false,
2233: x_to_reservation_id => l_reservation_id);
2234:
2235: IF l_return_status = fnd_api.g_ret_sts_error THEN
2236: IF (l_debug = 1) THEN
2231: p_to_serial_number => l_original_serial_number,
2232: p_validation_flag => fnd_api.g_false,
2233: x_to_reservation_id => l_reservation_id);
2234:
2235: IF l_return_status = fnd_api.g_ret_sts_error THEN
2236: IF (l_debug = 1) THEN
2237: debug('Return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
2238: END IF;
2239:
2236: IF (l_debug = 1) THEN
2237: debug('Return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
2238: END IF;
2239:
2240: RAISE fnd_api.g_exc_error;
2241: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2242:
2243: IF (l_debug = 1) THEN
2244: debug('Return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
2237: debug('Return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
2238: END IF;
2239:
2240: RAISE fnd_api.g_exc_error;
2241: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2242:
2243: IF (l_debug = 1) THEN
2244: debug('Return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
2245: END IF;
2243: IF (l_debug = 1) THEN
2244: debug('Return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
2245: END IF;
2246:
2247: RAISE fnd_api.g_exc_unexpected_error;
2248: END IF;
2249:
2250: IF (l_debug = 1) THEN
2251: debug('New Reservation_ID: '|| l_reservation_id, 'Finalize_Pick_Confirm');
2310: END IF;
2311:
2312: l_debug := g_debug;
2313:
2314: x_return_status := fnd_api.g_ret_sts_success;
2315: IF (l_debug = 1) THEN
2316: DEBUG('Cleaning reservations', 'Clean_Reservations');
2317: END IF;
2318:
2413: -- of crossdock material, stage the move order line from Inventory.
2414: -- Ensure that the crossdock peg is not deleted }}
2415: inv_reservation_pub.delete_reservation(
2416: p_api_version_number => 1.0
2417: , p_init_msg_lst => fnd_api.g_true
2418: , x_return_status => l_return_status
2419: , x_msg_count => l_msg_count
2420: , x_msg_data => l_msg_data
2421: , p_rsv_rec => l_mtl_reservation_rec
2424: IF (l_debug = 1) THEN
2425: DEBUG('after delete reservation return status is '|| l_return_status, 'Clean_Reservations');
2426: END IF;
2427:
2428: IF l_return_status = fnd_api.g_ret_sts_error THEN
2429: RAISE fnd_api.g_exc_error;
2430: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2431: RAISE fnd_api.g_exc_unexpected_error;
2432: END IF;
2425: DEBUG('after delete reservation return status is '|| l_return_status, 'Clean_Reservations');
2426: END IF;
2427:
2428: IF l_return_status = fnd_api.g_ret_sts_error THEN
2429: RAISE fnd_api.g_exc_error;
2430: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2431: RAISE fnd_api.g_exc_unexpected_error;
2432: END IF;
2433: END LOOP;
2426: END IF;
2427:
2428: IF l_return_status = fnd_api.g_ret_sts_error THEN
2429: RAISE fnd_api.g_exc_error;
2430: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2431: RAISE fnd_api.g_exc_unexpected_error;
2432: END IF;
2433: END LOOP;
2434: END IF;
2427:
2428: IF l_return_status = fnd_api.g_ret_sts_error THEN
2429: RAISE fnd_api.g_exc_error;
2430: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2431: RAISE fnd_api.g_exc_unexpected_error;
2432: END IF;
2433: END LOOP;
2434: END IF;
2435: EXCEPTION
2432: END IF;
2433: END LOOP;
2434: END IF;
2435: EXCEPTION
2436: WHEN fnd_api.g_exc_error THEN
2437: x_return_status := fnd_api.g_ret_sts_error;
2438: -- Get message count and data
2439: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2440: WHEN fnd_api.g_exc_unexpected_error THEN
2433: END LOOP;
2434: END IF;
2435: EXCEPTION
2436: WHEN fnd_api.g_exc_error THEN
2437: x_return_status := fnd_api.g_ret_sts_error;
2438: -- Get message count and data
2439: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2440: WHEN fnd_api.g_exc_unexpected_error THEN
2441: x_return_status := fnd_api.g_ret_sts_unexp_error;
2436: WHEN fnd_api.g_exc_error THEN
2437: x_return_status := fnd_api.g_ret_sts_error;
2438: -- Get message count and data
2439: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2440: WHEN fnd_api.g_exc_unexpected_error THEN
2441: x_return_status := fnd_api.g_ret_sts_unexp_error;
2442: -- Get message count and data
2443: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2444: WHEN OTHERS THEN
2437: x_return_status := fnd_api.g_ret_sts_error;
2438: -- Get message count and data
2439: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2440: WHEN fnd_api.g_exc_unexpected_error THEN
2441: x_return_status := fnd_api.g_ret_sts_unexp_error;
2442: -- Get message count and data
2443: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2444: WHEN OTHERS THEN
2445: x_return_status := fnd_api.g_ret_sts_unexp_error;
2441: x_return_status := fnd_api.g_ret_sts_unexp_error;
2442: -- Get message count and data
2443: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2444: WHEN OTHERS THEN
2445: x_return_status := fnd_api.g_ret_sts_unexp_error;
2446:
2447: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2448: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Clean Reservations');
2449: END IF;
2456: -- Finalize pick confirm processes the move orders that are being
2457: -- picked. In case of pick wave move orders it handles the reservations and
2458: -- updates the shipping attributes.
2459: PROCEDURE finalize_pick_confirm
2460: (p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2461: , x_return_status OUT NOCOPY VARCHAR2
2462: , x_msg_count OUT NOCOPY NUMBER
2463: , x_msg_data OUT NOCOPY VARCHAR2
2464: , p_transaction_temp_id IN NUMBER
2685: DEBUG('Call to Finalize_Pick_Confirm trxtmpid='||p_transaction_temp_id||' trxid='||p_transaction_id||' xfrtxnid='||p_xfr_transaction_id, 'Finalize Pick Confirm');
2686: END IF;
2687:
2688: IF p_transaction_temp_id IS NULL THEN
2689: x_return_status := fnd_api.g_ret_sts_error;
2690: RAISE fnd_api.g_exc_error;
2691: END IF;
2692:
2693: -- query the move order line detail for the move order line
2686: END IF;
2687:
2688: IF p_transaction_temp_id IS NULL THEN
2689: x_return_status := fnd_api.g_ret_sts_error;
2690: RAISE fnd_api.g_exc_error;
2691: END IF;
2692:
2693: -- query the move order line detail for the move order line
2694: -- detail id passed in
2717:
2718: -- Cannot transact a closed move order line
2719: IF l_trolin_rec.line_status = 5 THEN
2720: fnd_message.set_name('INV', 'INV_CANNOT_TRX_CLOSED_MO');
2721: x_return_status := fnd_api.g_ret_sts_error;
2722: RAISE fnd_api.g_exc_error;
2723: END IF;
2724:
2725: --MUOM for INV files get from INV API instead of MMTT
2718: -- Cannot transact a closed move order line
2719: IF l_trolin_rec.line_status = 5 THEN
2720: fnd_message.set_name('INV', 'INV_CANNOT_TRX_CLOSED_MO');
2721: x_return_status := fnd_api.g_ret_sts_error;
2722: RAISE fnd_api.g_exc_error;
2723: END IF;
2724:
2725: --MUOM for INV files get from INV API instead of MMTT
2726: inv_utilities.get_inv_fulfillment_base(
2841:
2842: l_organization_id := l_trolin_rec.organization_id;
2843: l_return_value := INV_CACHE.set_wms_installed(l_organization_id);
2844: If NOT l_return_value Then
2845: RAISE fnd_api.g_exc_unexpected_error;
2846: End If;
2847: l_wms_org_flag := INV_CACHE.wms_installed;
2848:
2849: -- End of Changes for Bug#3153166
2855: END IF;
2856: IF l_wms_org_flag AND l_move_order_type = 3
2857: AND l_trolin_rec.quantity_delivered > l_trolin_rec.quantity THEN
2858: fnd_message.set_name('INV', 'INV_CANNOT_OVERPICK_WMS_SO');
2859: x_return_status := fnd_api.g_ret_sts_error;
2860: RAISE fnd_api.g_exc_error;
2861: END IF;
2862:
2863: END IF;
2856: IF l_wms_org_flag AND l_move_order_type = 3
2857: AND l_trolin_rec.quantity_delivered > l_trolin_rec.quantity THEN
2858: fnd_message.set_name('INV', 'INV_CANNOT_OVERPICK_WMS_SO');
2859: x_return_status := fnd_api.g_ret_sts_error;
2860: RAISE fnd_api.g_exc_error;
2861: END IF;
2862:
2863: END IF;
2864:
2925: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
2926: fnd_message.set_token('UOM', l_mtl_reservation_rec.primary_uom_code);
2927: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
2928: fnd_msg_pub.ADD;
2929: RAISE fnd_api.g_exc_unexpected_error;
2930: END IF;
2931: END IF;
2932: ELSE
2933: l_shipping_quantity := ABS(l_mmtt_rec.transaction_quantity);
2983: fnd_message.set_token('UOM1', l_curr_mmtt_txn_uom);
2984: fnd_message.set_token('UOM2', l_mmtt_rec.transaction_uom);
2985: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
2986: fnd_msg_pub.ADD;
2987: RAISE fnd_api.g_exc_unexpected_error;
2988: END IF;
2989: ELSIF(l_fulfillment_base = 'S' ) THEN
2990: IF (l_curr_mmtt_txn_uom = NVL(l_mmtt_rec.secondary_uom_code,'@@@@')) THEN
2991: l_curr_mmtt_txn_qty := l_curr_mmtt_sec_qty;
3009: fnd_message.set_token('UOM1', l_curr_mmtt_sec_uom);
3010: fnd_message.set_token('UOM2', l_mmtt_rec.transaction_uom);
3011: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
3012: fnd_msg_pub.ADD;
3013: RAISE fnd_api.g_exc_unexpected_error;
3014: END IF;
3015: END IF;
3016: END IF;
3017: END IF;
3078: fnd_message.set_token('UOM1', g_mo_picked_quantity_tbl(MOD(l_trolin_rec.line_id,2147483648)).picked_uom );
3079: fnd_message.set_token('UOM2', l_mmtt_rec.transaction_uom);
3080: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
3081: fnd_msg_pub.ADD;
3082: RAISE fnd_api.g_exc_unexpected_error;
3083: END IF;
3084: g_mo_picked_quantity_tbl(MOD(l_trolin_rec.line_id,2147483648)).picked_uom := l_mmtt_rec.transaction_uom ;
3085: END If;
3086: --Bug5950172. Fix Ends
3175: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
3176: fnd_message.set_token('UOM', l_mtl_reservation_rec.primary_uom_code);
3177: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
3178: fnd_msg_pub.ADD;
3179: RAISE fnd_api.g_exc_unexpected_error;
3180: END IF;
3181: ELSE
3182: l_primary_pending_quantity := l_pending_quantity;
3183: END IF;
3282: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
3283: fnd_message.set_token('UOM', l_mmtt_rec.item_primary_uom_code);
3284: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
3285: fnd_msg_pub.ADD;
3286: RAISE fnd_api.g_exc_unexpected_error;
3287: END IF;
3288: END IF; -- if UOM code not primary UOM
3289:
3290: IF (l_debug = 1) THEN
3319: DEBUG('Unable to lock the work order line for update', 'Finalize_Pick_Confirm');
3320: END IF;
3321: fnd_message.set_name('INV', 'INV_WIP_WORK_ORDER_LOCKED');
3322: fnd_msg_pub.ADD;
3323: RAISE fnd_api.g_exc_error;
3324: ELSIF l_return_status <> fnd_api.g_ret_sts_success THEN
3325: IF (l_debug = 1) THEN
3326: DEBUG('Error from wip_picking_pub.unallocate_material', 'Finalize_Pick_Confirm');
3327: END IF;
3320: END IF;
3321: fnd_message.set_name('INV', 'INV_WIP_WORK_ORDER_LOCKED');
3322: fnd_msg_pub.ADD;
3323: RAISE fnd_api.g_exc_error;
3324: ELSIF l_return_status <> fnd_api.g_ret_sts_success THEN
3325: IF (l_debug = 1) THEN
3326: DEBUG('Error from wip_picking_pub.unallocate_material', 'Finalize_Pick_Confirm');
3327: END IF;
3328: RAISE fnd_api.g_exc_unexpected_error;
3324: ELSIF l_return_status <> fnd_api.g_ret_sts_success THEN
3325: IF (l_debug = 1) THEN
3326: DEBUG('Error from wip_picking_pub.unallocate_material', 'Finalize_Pick_Confirm');
3327: END IF;
3328: RAISE fnd_api.g_exc_unexpected_error;
3329: END IF;
3330: END IF; -- if unalloc qty > 0
3331: END IF; -- if WIP move order (MO type is 5 or 7)
3332:
3521: ,to_serial_number => null
3522: ,serial_code => null
3523: ,hdr_id => null
3524: ,p_inventory_item_id => l_mmtt_rec.inventory_item_id
3525: ,p_update_reservation => fnd_api.g_true);
3526: /*** End R12 }} ***/
3527: END LOOP;
3528:
3529: CLOSE serial_csr;
3557: ,to_serial_number => null
3558: ,serial_code => null
3559: ,hdr_id => null
3560: ,p_inventory_item_id => l_mmtt_rec.inventory_item_id
3561: ,p_update_reservation => fnd_api.g_true);
3562: /*** End R12 }} ***/
3563: END LOOP;
3564:
3565: CLOSE serial_csr;
3643: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
3644: , x_error_code => l_error_code
3645: );
3646:
3647: IF l_return_status = fnd_api.g_ret_sts_error THEN
3648: IF (l_debug = 1) THEN
3649: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3650: END IF;
3651: RAISE fnd_api.g_exc_error;
3647: IF l_return_status = fnd_api.g_ret_sts_error THEN
3648: IF (l_debug = 1) THEN
3649: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3650: END IF;
3651: RAISE fnd_api.g_exc_error;
3652: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3653: IF (l_debug = 1) THEN
3654: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3655: END IF;
3648: IF (l_debug = 1) THEN
3649: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3650: END IF;
3651: RAISE fnd_api.g_exc_error;
3652: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3653: IF (l_debug = 1) THEN
3654: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3655: END IF;
3656: RAISE fnd_api.g_exc_unexpected_error;
3652: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3653: IF (l_debug = 1) THEN
3654: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3655: END IF;
3656: RAISE fnd_api.g_exc_unexpected_error;
3657: END IF;
3658:
3659: IF (l_debug = 1) THEN
3660: DEBUG('reservation count = '|| l_mtl_reservation_tbl.COUNT, 'Finalize_Pick_Confirm');
3720: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
3721: END IF;
3722: inv_reservation_pub.update_reservation(
3723: p_api_version_number => 1.0
3724: , p_init_msg_lst => fnd_api.g_false
3725: , x_return_status => l_return_status
3726: , x_msg_count => x_msg_count
3727: , x_msg_data => x_msg_data
3728: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3728: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3729: , p_to_rsv_rec => l_mtl_reservation_rec
3730: , p_original_serial_number => l_original_serial_number
3731: , p_to_serial_number => l_to_serial_number
3732: , p_validation_flag => fnd_api.g_true -- Explicitly set the validation flag to true with respect to the Bug 4004597
3733: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
3734: );
3735: IF (l_debug = 1) THEN
3736: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3735: IF (l_debug = 1) THEN
3736: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3737: END IF;
3738:
3739: IF l_return_status = fnd_api.g_ret_sts_error THEN
3740: RAISE fnd_api.g_exc_error;
3741: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3742: RAISE fnd_api.g_exc_unexpected_error;
3743: END IF;
3736: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3737: END IF;
3738:
3739: IF l_return_status = fnd_api.g_ret_sts_error THEN
3740: RAISE fnd_api.g_exc_error;
3741: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3742: RAISE fnd_api.g_exc_unexpected_error;
3743: END IF;
3744:
3737: END IF;
3738:
3739: IF l_return_status = fnd_api.g_ret_sts_error THEN
3740: RAISE fnd_api.g_exc_error;
3741: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3742: RAISE fnd_api.g_exc_unexpected_error;
3743: END IF;
3744:
3745: --requery reservation to reflect updated data
3738:
3739: IF l_return_status = fnd_api.g_ret_sts_error THEN
3740: RAISE fnd_api.g_exc_error;
3741: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3742: RAISE fnd_api.g_exc_unexpected_error;
3743: END IF;
3744:
3745: --requery reservation to reflect updated data
3746: inv_reservation_pub.query_reservation(
3753: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
3754: , x_error_code => l_error_code
3755: );
3756:
3757: IF l_return_status = fnd_api.g_ret_sts_error THEN
3758: IF (l_debug = 1) THEN
3759: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3760: END IF;
3761: RAISE fnd_api.g_exc_error;
3757: IF l_return_status = fnd_api.g_ret_sts_error THEN
3758: IF (l_debug = 1) THEN
3759: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3760: END IF;
3761: RAISE fnd_api.g_exc_error;
3762: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3763: IF (l_debug = 1) THEN
3764: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3765: END IF;
3758: IF (l_debug = 1) THEN
3759: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3760: END IF;
3761: RAISE fnd_api.g_exc_error;
3762: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3763: IF (l_debug = 1) THEN
3764: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3765: END IF;
3766: RAISE fnd_api.g_exc_unexpected_error;
3762: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3763: IF (l_debug = 1) THEN
3764: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3765: END IF;
3766: RAISE fnd_api.g_exc_unexpected_error;
3767: END IF;
3768: END IF;
3769:
3770: -- Create a new reservation on a staging sub
3940: END IF;
3941:
3942: inv_reservation_pub.update_reservation(
3943: p_api_version_number => 1.0
3944: , p_init_msg_lst => fnd_api.g_false
3945: , x_return_status => l_return_status
3946: , x_msg_count => x_msg_count
3947: , x_msg_data => x_msg_data
3948: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3948: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3949: , p_to_rsv_rec => l_mtl_reservation_rec
3950: , p_original_serial_number => l_original_serial_number
3951: , p_to_serial_number => l_to_serial_number
3952: , p_validation_flag => fnd_api.g_true
3953: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
3954: );
3955: IF (l_debug = 1) THEN
3956: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3955: IF (l_debug = 1) THEN
3956: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3957: END IF;
3958:
3959: IF l_return_status = fnd_api.g_ret_sts_error THEN
3960: RAISE fnd_api.g_exc_error;
3961: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3962: RAISE fnd_api.g_exc_unexpected_error;
3963: END IF;
3956: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3957: END IF;
3958:
3959: IF l_return_status = fnd_api.g_ret_sts_error THEN
3960: RAISE fnd_api.g_exc_error;
3961: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3962: RAISE fnd_api.g_exc_unexpected_error;
3963: END IF;
3964: ELSE
3957: END IF;
3958:
3959: IF l_return_status = fnd_api.g_ret_sts_error THEN
3960: RAISE fnd_api.g_exc_error;
3961: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3962: RAISE fnd_api.g_exc_unexpected_error;
3963: END IF;
3964: ELSE
3965: IF (l_debug = 1) THEN
3958:
3959: IF l_return_status = fnd_api.g_ret_sts_error THEN
3960: RAISE fnd_api.g_exc_error;
3961: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3962: RAISE fnd_api.g_exc_unexpected_error;
3963: END IF;
3964: ELSE
3965: IF (l_debug = 1) THEN
3966: DEBUG('reservable staging subinventory, '|| 'transfer reservation to staging', 'Finalize_Pick_Confirm');
4035: END IF;
4036:
4037: inv_reservation_pub.transfer_reservation(
4038: p_api_version_number => 1.0
4039: , p_init_msg_lst => fnd_api.g_false
4040: , x_return_status => l_return_status
4041: , x_msg_count => x_msg_count
4042: , x_msg_data => x_msg_data
4043: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4043: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4044: , p_to_rsv_rec => l_mtl_reservation_rec
4045: , p_original_serial_number => l_to_serial_number
4046: , p_to_serial_number => l_to_serial_number
4047: , p_validation_flag => fnd_api.g_false
4048: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4049: , x_to_reservation_id => l_reservation_id
4050: );
4051: IF (l_debug = 1) THEN
4053: DEBUG('after create new reservation', 'Finalize_Pick_Confirm');
4054: DEBUG('l_return_status is '|| l_return_status, 'Finalize_Pick_Confirm');
4055: END IF;
4056:
4057: IF l_return_status = fnd_api.g_ret_sts_error THEN
4058: IF (l_debug = 1) THEN
4059: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
4060: END IF;
4061: RAISE fnd_api.g_exc_error;
4057: IF l_return_status = fnd_api.g_ret_sts_error THEN
4058: IF (l_debug = 1) THEN
4059: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
4060: END IF;
4061: RAISE fnd_api.g_exc_error;
4062: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4063: IF (l_debug = 1) THEN
4064: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
4065: END IF;
4058: IF (l_debug = 1) THEN
4059: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
4060: END IF;
4061: RAISE fnd_api.g_exc_error;
4062: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4063: IF (l_debug = 1) THEN
4064: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
4065: END IF;
4066: RAISE fnd_api.g_exc_unexpected_error;
4062: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4063: IF (l_debug = 1) THEN
4064: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
4065: END IF;
4066: RAISE fnd_api.g_exc_unexpected_error;
4067: END IF;
4068:
4069: -- bug 3703983
4070: -- inv_staged_reservation_util.update_staged_flag(x_return_status => l_return_status, x_msg_count => x_msg_count, x_msg_data => x_msg_data, p_reservation_id => l_reservation_id, p_staged_flag => 'Y');
4068:
4069: -- bug 3703983
4070: -- inv_staged_reservation_util.update_staged_flag(x_return_status => l_return_status, x_msg_count => x_msg_count, x_msg_data => x_msg_data, p_reservation_id => l_reservation_id, p_staged_flag => 'Y');
4071:
4072: --IF l_return_status = fnd_api.g_ret_sts_error THEN
4073: -- (l_debug = 1) THEN
4074: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4075: -- END IF;
4076: -- RAISE fnd_api.g_exc_error;
4072: --IF l_return_status = fnd_api.g_ret_sts_error THEN
4073: -- (l_debug = 1) THEN
4074: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4075: -- END IF;
4076: -- RAISE fnd_api.g_exc_error;
4077: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4078: -- IF (l_debug = 1) THEN
4079: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4080: -- END IF;
4073: -- (l_debug = 1) THEN
4074: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4075: -- END IF;
4076: -- RAISE fnd_api.g_exc_error;
4077: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4078: -- IF (l_debug = 1) THEN
4079: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4080: -- END IF;
4081: -- RAISE fnd_api.g_exc_unexpected_error;
4077: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4078: -- IF (l_debug = 1) THEN
4079: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4080: -- END IF;
4081: -- RAISE fnd_api.g_exc_unexpected_error;
4082: --END IF;
4083: END LOOP;
4084:
4085: IF (l_debug = 1) THEN
4124: END IF;
4125:
4126: inv_reservation_pub.transfer_reservation(
4127: p_api_version_number => 1.0
4128: , p_init_msg_lst => fnd_api.g_false
4129: , x_return_status => l_return_status
4130: , x_msg_count => x_msg_count
4131: , x_msg_data => x_msg_data
4132: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4132: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4133: , p_to_rsv_rec => l_mtl_reservation_rec
4134: , p_original_serial_number => l_to_serial_number
4135: , p_to_serial_number => l_to_serial_number
4136: , p_validation_flag => fnd_api.g_false
4137: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4138: , x_to_reservation_id => l_reservation_id
4139: );
4140:
4143: DEBUG('after create new reservation', 'Finalize_Pick_Confirm');
4144: DEBUG('l_return_status is '|| l_return_status, 'Finalize_Pick_Confirm');
4145: END IF;
4146:
4147: IF l_return_status = fnd_api.g_ret_sts_error THEN
4148: IF (l_debug = 1) THEN
4149: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
4150: END IF;
4151: RAISE fnd_api.g_exc_error;
4147: IF l_return_status = fnd_api.g_ret_sts_error THEN
4148: IF (l_debug = 1) THEN
4149: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
4150: END IF;
4151: RAISE fnd_api.g_exc_error;
4152: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4153: IF (l_debug = 1) THEN
4154: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
4155: END IF;
4148: IF (l_debug = 1) THEN
4149: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
4150: END IF;
4151: RAISE fnd_api.g_exc_error;
4152: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4153: IF (l_debug = 1) THEN
4154: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
4155: END IF;
4156: RAISE fnd_api.g_exc_unexpected_error;
4152: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4153: IF (l_debug = 1) THEN
4154: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
4155: END IF;
4156: RAISE fnd_api.g_exc_unexpected_error;
4157: END IF;
4158:
4159: IF (l_debug = 1) THEN
4160: DEBUG('still inside if no lot records', 'Finalize_Pick_Confirm');
4162:
4163: -- bug 3703983
4164: --inv_staged_reservation_util.update_staged_flag(x_return_status => l_return_status, x_msg_count => x_msg_count, x_msg_data => x_msg_data, p_reservation_id => l_reservation_id, p_staged_flag => 'Y');
4165:
4166: --IF l_return_status = fnd_api.g_ret_sts_error THEN
4167: -- IF (l_debug = 1) THEN
4168: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4169: -- END IF;
4170: -- RAISE fnd_api.g_exc_error;
4166: --IF l_return_status = fnd_api.g_ret_sts_error THEN
4167: -- IF (l_debug = 1) THEN
4168: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4169: -- END IF;
4170: -- RAISE fnd_api.g_exc_error;
4171: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4172: -- IF (l_debug = 1) THEN
4173: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4174: -- END IF;
4167: -- IF (l_debug = 1) THEN
4168: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4169: -- END IF;
4170: -- RAISE fnd_api.g_exc_error;
4171: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4172: -- IF (l_debug = 1) THEN
4173: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4174: -- END IF;
4175: -- RAISE fnd_api.g_exc_unexpected_error;
4171: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4172: -- IF (l_debug = 1) THEN
4173: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4174: -- END IF;
4175: -- RAISE fnd_api.g_exc_unexpected_error;
4176: --END IF;
4177: END IF; -- lot or not lot control
4178: END IF; -- reservable or not
4179: ELSE -- query reservation returns 0 records
4273: -- attributes already exists
4274: -- if there is, use update instead of create
4275: inv_reservation_pub.query_reservation(
4276: p_api_version_number => 1.0
4277: , p_init_msg_lst => fnd_api.g_false
4278: , x_return_status => l_return_status
4279: , x_msg_count => x_msg_count
4280: , x_msg_data => x_msg_data
4281: , p_query_input => l_mtl_reservation_rec
4278: , x_return_status => l_return_status
4279: , x_msg_count => x_msg_count
4280: , x_msg_data => x_msg_data
4281: , p_query_input => l_mtl_reservation_rec
4282: , p_lock_records => fnd_api.g_true
4283: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
4284: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
4285: , x_error_code => l_error_code
4286: );
4284: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
4285: , x_error_code => l_error_code
4286: );
4287:
4288: IF l_return_status = fnd_api.g_ret_sts_error THEN
4289: RAISE fnd_api.g_exc_error;
4290: END IF;
4291:
4292: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4285: , x_error_code => l_error_code
4286: );
4287:
4288: IF l_return_status = fnd_api.g_ret_sts_error THEN
4289: RAISE fnd_api.g_exc_error;
4290: END IF;
4291:
4292: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4293: RAISE fnd_api.g_exc_unexpected_error;
4288: IF l_return_status = fnd_api.g_ret_sts_error THEN
4289: RAISE fnd_api.g_exc_error;
4290: END IF;
4291:
4292: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4293: RAISE fnd_api.g_exc_unexpected_error;
4294: END IF;
4295:
4296: IF l_mtl_reservation_tbl_count > 0 THEN
4289: RAISE fnd_api.g_exc_error;
4290: END IF;
4291:
4292: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4293: RAISE fnd_api.g_exc_unexpected_error;
4294: END IF;
4295:
4296: IF l_mtl_reservation_tbl_count > 0 THEN
4297: l_mtl_reservation_rec.primary_reservation_quantity := l_mtl_reservation_tbl(1).primary_reservation_quantity + ABS(l_lot_primary_quantity);
4306: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
4307: END IF;
4308: inv_reservation_pub.update_reservation(
4309: p_api_version_number => 1.0
4310: , p_init_msg_lst => fnd_api.g_false
4311: , x_return_status => l_return_status
4312: , x_msg_count => x_msg_count
4313: , x_msg_data => x_msg_data
4314: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4314: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4315: , p_to_rsv_rec => l_mtl_reservation_rec
4316: , p_original_serial_number => l_original_serial_number
4317: , p_to_serial_number => l_to_serial_number
4318: , p_validation_flag => fnd_api.g_true
4319: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4320: );
4321: IF (l_debug = 1) THEN
4322: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4321: IF (l_debug = 1) THEN
4322: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4323: END IF;
4324:
4325: IF l_return_status = fnd_api.g_ret_sts_error THEN
4326: RAISE fnd_api.g_exc_error;
4327: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4328: RAISE fnd_api.g_exc_unexpected_error;
4329: END IF;
4322: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4323: END IF;
4324:
4325: IF l_return_status = fnd_api.g_ret_sts_error THEN
4326: RAISE fnd_api.g_exc_error;
4327: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4328: RAISE fnd_api.g_exc_unexpected_error;
4329: END IF;
4330: ELSE
4323: END IF;
4324:
4325: IF l_return_status = fnd_api.g_ret_sts_error THEN
4326: RAISE fnd_api.g_exc_error;
4327: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4328: RAISE fnd_api.g_exc_unexpected_error;
4329: END IF;
4330: ELSE
4331:
4324:
4325: IF l_return_status = fnd_api.g_ret_sts_error THEN
4326: RAISE fnd_api.g_exc_error;
4327: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4328: RAISE fnd_api.g_exc_unexpected_error;
4329: END IF;
4330: ELSE
4331:
4332: -- check to see the lot is reservable...
4382: --Bug 13961830 end
4383:
4384: inv_reservation_pub.create_reservation(
4385: p_api_version_number => 1.0
4386: , p_init_msg_lst => fnd_api.g_false
4387: , x_return_status => l_return_status
4388: , x_msg_count => x_msg_count
4389: , x_msg_data => x_msg_data
4390: , p_rsv_rec => l_mtl_reservation_rec
4389: , x_msg_data => x_msg_data
4390: , p_rsv_rec => l_mtl_reservation_rec
4391: , p_serial_number => l_to_serial_number
4392: , x_serial_number => l_to_serial_number
4393: , p_partial_reservation_flag => fnd_api.g_true
4394: , p_force_reservation_flag => fnd_api.g_false
4395: , p_validation_flag => fnd_api.g_true
4396: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4397: , x_quantity_reserved => l_quantity_reserved
4390: , p_rsv_rec => l_mtl_reservation_rec
4391: , p_serial_number => l_to_serial_number
4392: , x_serial_number => l_to_serial_number
4393: , p_partial_reservation_flag => fnd_api.g_true
4394: , p_force_reservation_flag => fnd_api.g_false
4395: , p_validation_flag => fnd_api.g_true
4396: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4397: , x_quantity_reserved => l_quantity_reserved
4398: , x_reservation_id => l_reservation_id
4391: , p_serial_number => l_to_serial_number
4392: , x_serial_number => l_to_serial_number
4393: , p_partial_reservation_flag => fnd_api.g_true
4394: , p_force_reservation_flag => fnd_api.g_false
4395: , p_validation_flag => fnd_api.g_true
4396: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4397: , x_quantity_reserved => l_quantity_reserved
4398: , x_reservation_id => l_reservation_id
4399: );
4401: DEBUG('Quantity reserved: '|| l_quantity_reserved, 'Finalize_Pick_Confirm');
4402: DEBUG('Reservation ID: '|| l_reservation_id, 'Finalize_Pick_Confirm');
4403: END IF;
4404:
4405: IF l_return_status = fnd_api.g_ret_sts_error THEN
4406: IF (l_debug = 1) THEN
4407: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4408: END IF;
4409: RAISE fnd_api.g_exc_error;
4405: IF l_return_status = fnd_api.g_ret_sts_error THEN
4406: IF (l_debug = 1) THEN
4407: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4408: END IF;
4409: RAISE fnd_api.g_exc_error;
4410: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4411: IF (l_debug = 1) THEN
4412: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4413: END IF;
4406: IF (l_debug = 1) THEN
4407: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4408: END IF;
4409: RAISE fnd_api.g_exc_error;
4410: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4411: IF (l_debug = 1) THEN
4412: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4413: END IF;
4414: RAISE fnd_api.g_exc_unexpected_error;
4410: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4411: IF (l_debug = 1) THEN
4412: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4413: END IF;
4414: RAISE fnd_api.g_exc_unexpected_error;
4415: END IF;
4416:
4417: --Bug 13961830 start,for indivisible item,update posting_flag back to Y
4418: IF NVL(l_lot_divisible_flag,'Y') = 'N' THEN
4432:
4433: --bug 1402436 - set the reservations staged flag
4434: inv_staged_reservation_util.update_staged_flag(x_return_status => l_return_status, x_msg_count => x_msg_count, x_msg_data => x_msg_data, p_reservation_id => l_reservation_id, p_staged_flag => 'Y');
4435:
4436: IF l_return_status = fnd_api.g_ret_sts_error THEN
4437: IF (l_debug = 1) THEN
4438: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4439: END IF;
4440: RAISE fnd_api.g_exc_error;
4436: IF l_return_status = fnd_api.g_ret_sts_error THEN
4437: IF (l_debug = 1) THEN
4438: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4439: END IF;
4440: RAISE fnd_api.g_exc_error;
4441: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4442: IF (l_debug = 1) THEN
4443: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4444: END IF;
4437: IF (l_debug = 1) THEN
4438: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4439: END IF;
4440: RAISE fnd_api.g_exc_error;
4441: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4442: IF (l_debug = 1) THEN
4443: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4444: END IF;
4445: RAISE fnd_api.g_exc_unexpected_error;
4441: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4442: IF (l_debug = 1) THEN
4443: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4444: END IF;
4445: RAISE fnd_api.g_exc_unexpected_error;
4446: END IF;
4447: END IF; --IF (l_reservable_type_lot = 1)
4448: END IF; -- Create or Update
4449: END LOOP; -- Lot loop
4459: -- attributes already exists
4460: -- if there is, use update instead of create
4461: inv_reservation_pub.query_reservation(
4462: p_api_version_number => 1.0
4463: , p_init_msg_lst => fnd_api.g_false
4464: , x_return_status => l_return_status
4465: , x_msg_count => x_msg_count
4466: , x_msg_data => x_msg_data
4467: , p_query_input => l_mtl_reservation_rec
4464: , x_return_status => l_return_status
4465: , x_msg_count => x_msg_count
4466: , x_msg_data => x_msg_data
4467: , p_query_input => l_mtl_reservation_rec
4468: , p_lock_records => fnd_api.g_true
4469: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
4470: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
4471: , x_error_code => l_error_code
4472: );
4470: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
4471: , x_error_code => l_error_code
4472: );
4473:
4474: IF l_return_status = fnd_api.g_ret_sts_error THEN
4475: RAISE fnd_api.g_exc_error;
4476: END IF;
4477:
4478: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4471: , x_error_code => l_error_code
4472: );
4473:
4474: IF l_return_status = fnd_api.g_ret_sts_error THEN
4475: RAISE fnd_api.g_exc_error;
4476: END IF;
4477:
4478: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4479: RAISE fnd_api.g_exc_unexpected_error;
4474: IF l_return_status = fnd_api.g_ret_sts_error THEN
4475: RAISE fnd_api.g_exc_error;
4476: END IF;
4477:
4478: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4479: RAISE fnd_api.g_exc_unexpected_error;
4480: END IF;
4481:
4482: IF l_mtl_reservation_tbl_count > 0 THEN
4475: RAISE fnd_api.g_exc_error;
4476: END IF;
4477:
4478: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4479: RAISE fnd_api.g_exc_unexpected_error;
4480: END IF;
4481:
4482: IF l_mtl_reservation_tbl_count > 0 THEN
4483: l_mtl_reservation_rec.primary_reservation_quantity := l_mtl_reservation_tbl(1).primary_reservation_quantity + l_primary_shipping_quantity;
4492: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
4493: END IF;
4494: inv_reservation_pub.update_reservation(
4495: p_api_version_number => 1.0
4496: , p_init_msg_lst => fnd_api.g_false
4497: , x_return_status => l_return_status
4498: , x_msg_count => x_msg_count
4499: , x_msg_data => x_msg_data
4500: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4500: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4501: , p_to_rsv_rec => l_mtl_reservation_rec
4502: , p_original_serial_number => l_original_serial_number
4503: , p_to_serial_number => l_to_serial_number
4504: , p_validation_flag => fnd_api.g_true
4505: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4506: );
4507: IF (l_debug = 1) THEN
4508: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4507: IF (l_debug = 1) THEN
4508: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4509: END IF;
4510:
4511: IF l_return_status = fnd_api.g_ret_sts_error THEN
4512: RAISE fnd_api.g_exc_error;
4513: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4514: RAISE fnd_api.g_exc_unexpected_error;
4515: END IF;
4508: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4509: END IF;
4510:
4511: IF l_return_status = fnd_api.g_ret_sts_error THEN
4512: RAISE fnd_api.g_exc_error;
4513: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4514: RAISE fnd_api.g_exc_unexpected_error;
4515: END IF;
4516: ELSE
4509: END IF;
4510:
4511: IF l_return_status = fnd_api.g_ret_sts_error THEN
4512: RAISE fnd_api.g_exc_error;
4513: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4514: RAISE fnd_api.g_exc_unexpected_error;
4515: END IF;
4516: ELSE
4517: l_mtl_reservation_rec.primary_reservation_quantity := l_primary_shipping_quantity;
4510:
4511: IF l_return_status = fnd_api.g_ret_sts_error THEN
4512: RAISE fnd_api.g_exc_error;
4513: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4514: RAISE fnd_api.g_exc_unexpected_error;
4515: END IF;
4516: ELSE
4517: l_mtl_reservation_rec.primary_reservation_quantity := l_primary_shipping_quantity;
4518: l_mtl_reservation_rec.reservation_quantity := l_shipping_quantity;
4519: l_mtl_reservation_rec.secondary_reservation_quantity := l_sec_shipping_quantity;
4520: l_mtl_reservation_rec.requirement_date := SYSDATE;
4521: inv_reservation_pub.create_reservation(
4522: p_api_version_number => 1.0
4523: , p_init_msg_lst => fnd_api.g_false
4524: , x_return_status => l_return_status
4525: , x_msg_count => x_msg_count
4526: , x_msg_data => x_msg_data
4527: , p_rsv_rec => l_mtl_reservation_rec
4526: , x_msg_data => x_msg_data
4527: , p_rsv_rec => l_mtl_reservation_rec
4528: , p_serial_number => l_to_serial_number
4529: , x_serial_number => l_to_serial_number
4530: , p_partial_reservation_flag => fnd_api.g_true
4531: , p_force_reservation_flag => fnd_api.g_false
4532: , p_validation_flag => fnd_api.g_true
4533: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4534: , x_quantity_reserved => l_quantity_reserved
4527: , p_rsv_rec => l_mtl_reservation_rec
4528: , p_serial_number => l_to_serial_number
4529: , x_serial_number => l_to_serial_number
4530: , p_partial_reservation_flag => fnd_api.g_true
4531: , p_force_reservation_flag => fnd_api.g_false
4532: , p_validation_flag => fnd_api.g_true
4533: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4534: , x_quantity_reserved => l_quantity_reserved
4535: , x_reservation_id => l_reservation_id
4528: , p_serial_number => l_to_serial_number
4529: , x_serial_number => l_to_serial_number
4530: , p_partial_reservation_flag => fnd_api.g_true
4531: , p_force_reservation_flag => fnd_api.g_false
4532: , p_validation_flag => fnd_api.g_true
4533: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4534: , x_quantity_reserved => l_quantity_reserved
4535: , x_reservation_id => l_reservation_id
4536: );
4538: DEBUG('Quantity reserved: '|| l_quantity_reserved, 'Finalize_Pick_Confirm');
4539: DEBUG('Reservation ID: '|| l_reservation_id, 'Finalize_Pick_Confirm');
4540: END IF;
4541:
4542: IF l_return_status = fnd_api.g_ret_sts_error THEN
4543: IF (l_debug = 1) THEN
4544: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4545: END IF;
4546: RAISE fnd_api.g_exc_error;
4542: IF l_return_status = fnd_api.g_ret_sts_error THEN
4543: IF (l_debug = 1) THEN
4544: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4545: END IF;
4546: RAISE fnd_api.g_exc_error;
4547: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4548: IF (l_debug = 1) THEN
4549: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4550: END IF;
4543: IF (l_debug = 1) THEN
4544: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4545: END IF;
4546: RAISE fnd_api.g_exc_error;
4547: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4548: IF (l_debug = 1) THEN
4549: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4550: END IF;
4551: RAISE fnd_api.g_exc_unexpected_error;
4547: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4548: IF (l_debug = 1) THEN
4549: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4550: END IF;
4551: RAISE fnd_api.g_exc_unexpected_error;
4552: END IF;
4553:
4554: --bug 1402436 - set the reservations staged flag
4555: inv_staged_reservation_util.update_staged_flag
4559: , p_reservation_id => l_reservation_id
4560: , p_staged_flag => 'Y'
4561: );
4562:
4563: IF l_return_status = fnd_api.g_ret_sts_error THEN
4564: IF (l_debug = 1) THEN
4565: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4566: END IF;
4567: RAISE fnd_api.g_exc_error;
4563: IF l_return_status = fnd_api.g_ret_sts_error THEN
4564: IF (l_debug = 1) THEN
4565: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4566: END IF;
4567: RAISE fnd_api.g_exc_error;
4568: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4569: IF (l_debug = 1) THEN
4570: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4571: END IF;
4564: IF (l_debug = 1) THEN
4565: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4566: END IF;
4567: RAISE fnd_api.g_exc_error;
4568: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4569: IF (l_debug = 1) THEN
4570: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4571: END IF;
4572: RAISE fnd_api.g_exc_unexpected_error;
4568: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4569: IF (l_debug = 1) THEN
4570: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4571: END IF;
4572: RAISE fnd_api.g_exc_unexpected_error;
4573: END IF;
4574: END IF; -- Create or Update
4575: END IF; -- Lot control or not
4576: END IF; -- Staging sub reservable or not
4595: EXCEPTION
4596: WHEN NO_DATA_FOUND THEN
4597: fnd_message.set_name('INV', 'INV_DELIV_INFO_MISSING');
4598: fnd_msg_pub.ADD;
4599: RAISE fnd_api.g_exc_error;
4600: WHEN OTHERS THEN
4601: --could not lock row
4602: IF SQLCODE = -54 THEN
4603: fnd_message.set_name('INV', 'INV_DELIV_INFO_LOCKED');
4602: IF SQLCODE = -54 THEN
4603: fnd_message.set_name('INV', 'INV_DELIV_INFO_LOCKED');
4604: fnd_message.set_token('LINEID', l_trolin_rec.line_id);
4605: fnd_msg_pub.ADD;
4606: RAISE fnd_api.g_exc_error;
4607: ELSE
4608: RAISE fnd_api.g_exc_unexpected_error;
4609: END IF;
4610: END;
4604: fnd_message.set_token('LINEID', l_trolin_rec.line_id);
4605: fnd_msg_pub.ADD;
4606: RAISE fnd_api.g_exc_error;
4607: ELSE
4608: RAISE fnd_api.g_exc_unexpected_error;
4609: END IF;
4610: END;
4611:
4612: if (l_return_status = FND_API.G_RET_STS_ERROR) then
4608: RAISE fnd_api.g_exc_unexpected_error;
4609: END IF;
4610: END;
4611:
4612: if (l_return_status = FND_API.G_RET_STS_ERROR) then
4613: RAISE FND_API.G_EXC_ERROR;
4614: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
4615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4616: end if;
4609: END IF;
4610: END;
4611:
4612: if (l_return_status = FND_API.G_RET_STS_ERROR) then
4613: RAISE FND_API.G_EXC_ERROR;
4614: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
4615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4616: end if;
4617:
4610: END;
4611:
4612: if (l_return_status = FND_API.G_RET_STS_ERROR) then
4613: RAISE FND_API.G_EXC_ERROR;
4614: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
4615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4616: end if;
4617:
4618: -- When calling shipping, pending quantity should be the total
4611:
4612: if (l_return_status = FND_API.G_RET_STS_ERROR) then
4613: RAISE FND_API.G_EXC_ERROR;
4614: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
4615: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4616: end if;
4617:
4618: -- When calling shipping, pending quantity should be the total
4619: -- quantity remaining that Shipping has not been updated with
4638: x_msg_data => l_msg_data );
4639: IF (l_debug = 1) THEN
4640: DEBUG('after Set_Inv_PC_Attributes Ret status'||l_return_status, 'Finalize_Pick_Confirm'); END IF;
4641:
4642: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4643: IF (l_debug = 1) THEN
4644: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4645: END IF;
4646: RAISE fnd_api.g_exc_error;
4642: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4643: IF (l_debug = 1) THEN
4644: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4645: END IF;
4646: RAISE fnd_api.g_exc_error;
4647: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4648: IF (l_debug = 1) THEN
4649: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4650: END IF;
4643: IF (l_debug = 1) THEN
4644: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4645: END IF;
4646: RAISE fnd_api.g_exc_error;
4647: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4648: IF (l_debug = 1) THEN
4649: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4650: END IF;
4651: RAISE fnd_api.g_exc_unexpected_error;
4647: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4648: IF (l_debug = 1) THEN
4649: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4650: END IF;
4651: RAISE fnd_api.g_exc_unexpected_error;
4652: END IF;
4653:
4654: l_shipping_attr(1).source_header_id := l_source_header_id;
4655: l_shipping_attr(1).source_line_id := l_source_line_id;
4707: debug('BF CONTAINER EXISTS, Renamed to : ' || l_new_container_name,'Finalize_Pick_Confirm');
4708: END IF;
4709: WSH_CONTAINER_GRP.Update_Container(
4710: p_api_version => 1.0,
4711: p_init_msg_list => FND_API.G_FALSE,
4712: p_commit =>FND_API.G_FALSE,
4713: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4714: x_return_status => x_return_status,
4715: x_msg_count => x_msg_count,
4708: END IF;
4709: WSH_CONTAINER_GRP.Update_Container(
4710: p_api_version => 1.0,
4711: p_init_msg_list => FND_API.G_FALSE,
4712: p_commit =>FND_API.G_FALSE,
4713: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4714: x_return_status => x_return_status,
4715: x_msg_count => x_msg_count,
4716: x_msg_data => x_msg_data,
4709: WSH_CONTAINER_GRP.Update_Container(
4710: p_api_version => 1.0,
4711: p_init_msg_list => FND_API.G_FALSE,
4712: p_commit =>FND_API.G_FALSE,
4713: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4714: x_return_status => x_return_status,
4715: x_msg_count => x_msg_count,
4716: x_msg_data => x_msg_data,
4717: p_container_rec => l_container_rec
4715: x_msg_count => x_msg_count,
4716: x_msg_data => x_msg_data,
4717: p_container_rec => l_container_rec
4718: );
4719: IF( x_return_status in (FND_API.G_RET_STS_ERROR) ) THEN
4720: IF (l_debug = 1) THEN
4721: debug('WSH_Container_Grp.Update_Containers returns error','Finalize Pick Confirm');
4722: END IF;
4723: RAISE FND_API.G_EXC_ERROR;
4719: IF( x_return_status in (FND_API.G_RET_STS_ERROR) ) THEN
4720: IF (l_debug = 1) THEN
4721: debug('WSH_Container_Grp.Update_Containers returns error','Finalize Pick Confirm');
4722: END IF;
4723: RAISE FND_API.G_EXC_ERROR;
4724: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4725: IF (l_debug = 1) THEN
4726: debug('WSH_Container_Grp.Update_Containers returns success','Finalize Pick Confirm');
4727: END IF;
4720: IF (l_debug = 1) THEN
4721: debug('WSH_Container_Grp.Update_Containers returns error','Finalize Pick Confirm');
4722: END IF;
4723: RAISE FND_API.G_EXC_ERROR;
4724: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4725: IF (l_debug = 1) THEN
4726: debug('WSH_Container_Grp.Update_Containers returns success','Finalize Pick Confirm');
4727: END IF;
4728: RAISE fnd_api.g_exc_unexpected_error;
4724: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4725: IF (l_debug = 1) THEN
4726: debug('WSH_Container_Grp.Update_Containers returns success','Finalize Pick Confirm');
4727: END IF;
4728: RAISE fnd_api.g_exc_unexpected_error;
4729: ELSE
4730: IF (l_debug = 1) THEN
4731: debug(' AF CONTAINER EXISTS, Renamed to : ' || l_new_container_name,'Finalize Pick Confirm');
4732: END IF;
4787: , x_msg_count => x_msg_count
4788: , x_msg_data => x_msg_data
4789: , p_organization_id => l_mmtt_rec.organization_id
4790: , p_inventory_item_id => l_mmtt_rec.inventory_item_id );
4791: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
4792: fnd_message.set_name('INV', 'WMS_GET_CATCH_WEIGHT_ATT_FAIL');
4793: fnd_msg_pub.ADD;
4794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4795: END IF;
4790: , p_inventory_item_id => l_mmtt_rec.inventory_item_id );
4791: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
4792: fnd_message.set_name('INV', 'WMS_GET_CATCH_WEIGHT_ATT_FAIL');
4793: fnd_msg_pub.ADD;
4794: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4795: END IF;
4796:
4797: IF (l_catch_weight_enabled = WMS_CATCH_WEIGHT_PVT.G_PRICE_SECONDARY AND (NVL(l_lpn_id,-1)<=0)
4798: AND nvl(l_mmtt_rec.secondary_transaction_quantity,0) = 0) THEN -- added secondary_transaction_quantity for bug 12616674
4797: IF (l_catch_weight_enabled = WMS_CATCH_WEIGHT_PVT.G_PRICE_SECONDARY AND (NVL(l_lpn_id,-1)<=0)
4798: AND nvl(l_mmtt_rec.secondary_transaction_quantity,0) = 0) THEN -- added secondary_transaction_quantity for bug 12616674
4799: fnd_message.set_name('INV', 'WMS_CATCH_WEIGHT_NO_LPN_ERR');
4800: fnd_msg_pub.ADD;
4801: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4802: END IF;
4803:
4804: END IF;
4805:
4928: ( p_in_attributes => l_InvPCInRecType,
4929: x_return_status => l_return_status,
4930: x_msg_count => l_msg_count,
4931: x_msg_data => l_msg_data );
4932: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4933: IF (l_debug = 1) THEN
4934: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4935: END IF;
4936: RAISE fnd_api.g_exc_error;
4932: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4933: IF (l_debug = 1) THEN
4934: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4935: END IF;
4936: RAISE fnd_api.g_exc_error;
4937: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4938: IF (l_debug = 1) THEN
4939: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4940: END IF;
4933: IF (l_debug = 1) THEN
4934: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4935: END IF;
4936: RAISE fnd_api.g_exc_error;
4937: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4938: IF (l_debug = 1) THEN
4939: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4940: END IF;
4941: RAISE fnd_api.g_exc_unexpected_error;
4937: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4938: IF (l_debug = 1) THEN
4939: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4940: END IF;
4941: RAISE fnd_api.g_exc_unexpected_error;
4942: END IF;
4943:
4944: IF (l_debug = 1) THEN
4945: DEBUG('Calling Update Shipping Attributes for a serial range of lot items', 'Finalize Pick Confirm');
4960: IF (l_debug = 1) THEN
4961: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
4962: END IF;
4963:
4964: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4965: IF (l_debug = 1) THEN
4966: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4967: END IF;
4968: RAISE fnd_api.g_exc_error;
4964: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4965: IF (l_debug = 1) THEN
4966: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4967: END IF;
4968: RAISE fnd_api.g_exc_error;
4969: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4970: IF (l_debug = 1) THEN
4971: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4972: END IF;
4965: IF (l_debug = 1) THEN
4966: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4967: END IF;
4968: RAISE fnd_api.g_exc_error;
4969: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4970: IF (l_debug = 1) THEN
4971: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4972: END IF;
4973: RAISE fnd_api.g_exc_unexpected_error;
4969: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4970: IF (l_debug = 1) THEN
4971: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4972: END IF;
4973: RAISE fnd_api.g_exc_unexpected_error;
4974: END IF;
4975: ELSE -- Either only a single serial item or not WMS.I process the old way
4976: IF ( l_catch_weight_enabled = WMS_CATCH_WEIGHT_PVT.G_PRICE_SECONDARY ) THEN
4977: -- Calculate the secondary quantity for a single serial number
5031: ( p_in_attributes => l_InvPCInRecType,
5032: x_return_status => l_return_status,
5033: x_msg_count => l_msg_count,
5034: x_msg_data => l_msg_data );
5035: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5036: IF (l_debug = 1) THEN
5037: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5038: END IF;
5039: RAISE fnd_api.g_exc_error;
5035: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5036: IF (l_debug = 1) THEN
5037: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5038: END IF;
5039: RAISE fnd_api.g_exc_error;
5040: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5041: IF (l_debug = 1) THEN
5042: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5043: END IF;
5036: IF (l_debug = 1) THEN
5037: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5038: END IF;
5039: RAISE fnd_api.g_exc_error;
5040: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5041: IF (l_debug = 1) THEN
5042: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5043: END IF;
5044: RAISE fnd_api.g_exc_unexpected_error;
5040: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5041: IF (l_debug = 1) THEN
5042: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5043: END IF;
5044: RAISE fnd_api.g_exc_unexpected_error;
5045: END IF;
5046:
5047: IF (l_debug = 1) THEN
5048: DEBUG('Calling Update Shipping Attributes', 'Finalize Pick Confirm');
5056: IF (l_debug = 1) THEN
5057: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
5058: END IF;
5059:
5060: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5061: IF (l_debug = 1) THEN
5062: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5063: END IF;
5064: RAISE fnd_api.g_exc_error;
5060: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5061: IF (l_debug = 1) THEN
5062: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5063: END IF;
5064: RAISE fnd_api.g_exc_error;
5065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5066: IF (l_debug = 1) THEN
5067: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5068: END IF;
5061: IF (l_debug = 1) THEN
5062: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5063: END IF;
5064: RAISE fnd_api.g_exc_error;
5065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5066: IF (l_debug = 1) THEN
5067: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5068: END IF;
5069: RAISE fnd_api.g_exc_unexpected_error;
5065: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5066: IF (l_debug = 1) THEN
5067: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5068: END IF;
5069: RAISE fnd_api.g_exc_unexpected_error;
5070: END IF;
5071: ELSE
5072: -- Unmark the remaining serials
5073: /*** {{ R12 Enhanced reservations code changes,
5084: ,to_serial_number => null
5085: ,serial_code => null
5086: ,hdr_id => null
5087: ,p_inventory_item_id => l_mmtt_rec.inventory_item_id
5088: ,p_update_reservation => fnd_api.g_true);
5089: /*** End R12 }} ***/
5090: END IF;
5091: END LOOP;
5092: CLOSE serial_csr;
5156: ( p_in_attributes => l_InvPCInRecType,
5157: x_return_status => l_return_status,
5158: x_msg_count => l_msg_count,
5159: x_msg_data => l_msg_data );
5160: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5161: IF (l_debug = 1) THEN
5162: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5163: END IF;
5164: RAISE fnd_api.g_exc_error;
5160: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5161: IF (l_debug = 1) THEN
5162: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5163: END IF;
5164: RAISE fnd_api.g_exc_error;
5165: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5166: IF (l_debug = 1) THEN
5167: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5168: END IF;
5161: IF (l_debug = 1) THEN
5162: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5163: END IF;
5164: RAISE fnd_api.g_exc_error;
5165: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5166: IF (l_debug = 1) THEN
5167: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5168: END IF;
5169: RAISE fnd_api.g_exc_unexpected_error;
5165: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5166: IF (l_debug = 1) THEN
5167: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5168: END IF;
5169: RAISE fnd_api.g_exc_unexpected_error;
5170: END IF;
5171:
5172: IF (l_debug = 1) THEN
5173: DEBUG('Calling Update Shipping Attributes for a serial range', 'Finalize Pick Confirm');
5194: IF (l_debug = 1) THEN
5195: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
5196: END IF;
5197:
5198: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5199: IF (l_debug = 1) THEN
5200: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5201: END IF;
5202: RAISE fnd_api.g_exc_error;
5198: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5199: IF (l_debug = 1) THEN
5200: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5201: END IF;
5202: RAISE fnd_api.g_exc_error;
5203: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5204: IF (l_debug = 1) THEN
5205: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
5206: END IF;
5199: IF (l_debug = 1) THEN
5200: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5201: END IF;
5202: RAISE fnd_api.g_exc_error;
5203: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5204: IF (l_debug = 1) THEN
5205: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
5206: END IF;
5207: RAISE fnd_api.g_exc_unexpected_error;
5203: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5204: IF (l_debug = 1) THEN
5205: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
5206: END IF;
5207: RAISE fnd_api.g_exc_unexpected_error;
5208: END IF;
5209: ELSE -- Either only a single serial item or not WMS.I process the old way
5210: l_serial_trx_temp_id := 0;
5211: l_ser_prim_shipping_quantity := 0;
5261: ( p_in_attributes => l_InvPCInRecType,
5262: x_return_status => l_return_status,
5263: x_msg_count => l_msg_count,
5264: x_msg_data => l_msg_data );
5265: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5266: IF (l_debug = 1) THEN
5267: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5268: END IF;
5269: RAISE fnd_api.g_exc_error;
5265: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5266: IF (l_debug = 1) THEN
5267: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5268: END IF;
5269: RAISE fnd_api.g_exc_error;
5270: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5271: IF (l_debug = 1) THEN
5272: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5273: END IF;
5266: IF (l_debug = 1) THEN
5267: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5268: END IF;
5269: RAISE fnd_api.g_exc_error;
5270: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5271: IF (l_debug = 1) THEN
5272: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5273: END IF;
5274: RAISE fnd_api.g_exc_unexpected_error;
5270: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5271: IF (l_debug = 1) THEN
5272: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5273: END IF;
5274: RAISE fnd_api.g_exc_unexpected_error;
5275: END IF;
5276:
5277: IF (l_debug = 1) THEN
5278: DEBUG('Calling Update Shipping Attributes', 'Finalize Pick Confirm');
5285: IF (l_debug = 1) THEN
5286: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
5287: END IF;
5288:
5289: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5290: IF (l_debug = 1) THEN
5291: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5292: END IF;
5293: RAISE fnd_api.g_exc_error;
5289: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5290: IF (l_debug = 1) THEN
5291: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5292: END IF;
5293: RAISE fnd_api.g_exc_error;
5294: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5295: IF (l_debug = 1) THEN
5296: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5297: END IF;
5290: IF (l_debug = 1) THEN
5291: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5292: END IF;
5293: RAISE fnd_api.g_exc_error;
5294: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5295: IF (l_debug = 1) THEN
5296: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5297: END IF;
5298: RAISE fnd_api.g_exc_unexpected_error;
5294: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5295: IF (l_debug = 1) THEN
5296: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5297: END IF;
5298: RAISE fnd_api.g_exc_unexpected_error;
5299: END IF;
5300: ELSE
5301: -- Unmark the remaining serials
5302: /*** {{ R12 Enhanced reservations code changes,
5313: ,to_serial_number => null
5314: ,serial_code => null
5315: ,hdr_id => null
5316: ,p_inventory_item_id => l_mmtt_rec.inventory_item_id
5317: ,p_update_reservation => fnd_api.g_true);
5318: /*** End R12 }} ***/
5319: END IF;
5320: END LOOP;
5321: CLOSE serial_csr;
5404: ( p_in_attributes => l_InvPCInRecType,
5405: x_return_status => l_return_status,
5406: x_msg_count => l_msg_count,
5407: x_msg_data => l_msg_data );
5408: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5409: IF (l_debug = 1) THEN
5410: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5411: END IF;
5412: RAISE fnd_api.g_exc_error;
5408: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5409: IF (l_debug = 1) THEN
5410: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5411: END IF;
5412: RAISE fnd_api.g_exc_error;
5413: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5414: IF (l_debug = 1) THEN
5415: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5416: END IF;
5409: IF (l_debug = 1) THEN
5410: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5411: END IF;
5412: RAISE fnd_api.g_exc_error;
5413: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5414: IF (l_debug = 1) THEN
5415: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5416: END IF;
5417: RAISE fnd_api.g_exc_unexpected_error;
5413: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5414: IF (l_debug = 1) THEN
5415: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5416: END IF;
5417: RAISE fnd_api.g_exc_unexpected_error;
5418: END IF;
5419:
5420: IF(l_fulfillment_base = 'S' AND l_shipping_attr(1).pending_quantity2 <= 0)THEN
5421: l_shipping_attr(1).pending_quantity := 0;
5439: IF (l_debug = 1) THEN
5440: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
5441: END IF;
5442:
5443: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5444: IF (l_debug = 1) THEN
5445: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5446: END IF;
5447: RAISE fnd_api.g_exc_error;
5443: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5444: IF (l_debug = 1) THEN
5445: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5446: END IF;
5447: RAISE fnd_api.g_exc_error;
5448: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5449: IF (l_debug = 1) THEN
5450: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5451: END IF;
5444: IF (l_debug = 1) THEN
5445: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5446: END IF;
5447: RAISE fnd_api.g_exc_error;
5448: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5449: IF (l_debug = 1) THEN
5450: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5451: END IF;
5452: RAISE fnd_api.g_exc_unexpected_error;
5448: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5449: IF (l_debug = 1) THEN
5450: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5451: END IF;
5452: RAISE fnd_api.g_exc_unexpected_error;
5453: END IF;
5454: END LOOP;
5455:
5456: CLOSE lot_csr;
5506: ( p_in_attributes => l_InvPCInRecType,
5507: x_return_status => l_return_status,
5508: x_msg_count => l_msg_count,
5509: x_msg_data => l_msg_data );
5510: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5511: IF (l_debug = 1) THEN
5512: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5513: END IF;
5514: RAISE fnd_api.g_exc_error;
5510: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5511: IF (l_debug = 1) THEN
5512: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5513: END IF;
5514: RAISE fnd_api.g_exc_error;
5515: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5516: IF (l_debug = 1) THEN
5517: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5518: END IF;
5511: IF (l_debug = 1) THEN
5512: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5513: END IF;
5514: RAISE fnd_api.g_exc_error;
5515: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5516: IF (l_debug = 1) THEN
5517: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5518: END IF;
5519: RAISE fnd_api.g_exc_unexpected_error;
5515: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5516: IF (l_debug = 1) THEN
5517: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5518: END IF;
5519: RAISE fnd_api.g_exc_unexpected_error;
5520: END IF;
5521:
5522: IF(l_fulfillment_base = 'S' AND l_shipping_attr(1).pending_quantity2 <= 0)THEN
5523: l_shipping_attr(1).pending_quantity := 0;
5543: END IF;
5544:
5545: -- code added for bug#8530301
5546:
5547: IF (l_return_status <> fnd_api.g_ret_sts_success) THEN
5548: IF (l_debug = 1) THEN
5549: DEBUG('after update shipping attributes Raising exec_wsh_int_upd_SA', 'Finalize_Pick_Confirm');
5550: END IF;
5551: RAISE exec_wsh_int_upd_SA;
5551: RAISE exec_wsh_int_upd_SA;
5552: END IF;
5553:
5554: -- orginal code removed as we don't want to empty the stack WSH is returning a message and we are printing that message on mobile .. Original code is printing this message in log file . So we raised an exception
5555: /* IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5556: IF (l_debug = 1) THEN
5557: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5558: END IF;
5559: RAISE fnd_api.g_exc_error;
5555: /* IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5556: IF (l_debug = 1) THEN
5557: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5558: END IF;
5559: RAISE fnd_api.g_exc_error;
5560: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5561: IF (l_debug = 1) THEN
5562: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
5563: END IF;
5556: IF (l_debug = 1) THEN
5557: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5558: END IF;
5559: RAISE fnd_api.g_exc_error;
5560: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5561: IF (l_debug = 1) THEN
5562: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
5563: END IF;
5564: RAISE fnd_api.g_exc_unexpected_error;
5560: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5561: IF (l_debug = 1) THEN
5562: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
5563: END IF;
5564: RAISE fnd_api.g_exc_unexpected_error;
5565: END IF;
5566: */
5567: -- end of code added for bug#8530301
5568:
5574: -- reservations for this record. This will also delete
5575: -- reservations which are against the backordered lines.
5576: clean_reservations(p_source_line_id => l_trolin_rec.txn_source_line_id, x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data);
5577:
5578: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5579: IF (l_debug = 1) THEN
5580: DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
5581: END IF;
5582: RAISE fnd_api.g_exc_error;
5578: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5579: IF (l_debug = 1) THEN
5580: DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
5581: END IF;
5582: RAISE fnd_api.g_exc_error;
5583: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5584: IF (l_debug = 1) THEN
5585: DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
5586: END IF;
5579: IF (l_debug = 1) THEN
5580: DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
5581: END IF;
5582: RAISE fnd_api.g_exc_error;
5583: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5584: IF (l_debug = 1) THEN
5585: DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
5586: END IF;
5587: RAISE fnd_api.g_exc_unexpected_error;
5583: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5584: IF (l_debug = 1) THEN
5585: DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
5586: END IF;
5587: RAISE fnd_api.g_exc_unexpected_error;
5588: END IF;
5589:
5590: -- Bug 1838450
5591: -- Fix the detailed quantity on all reservations for this
5640: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
5641: END IF;
5642: inv_reservation_pub.update_reservation(
5643: p_api_version_number => 1.0
5644: , p_init_msg_lst => fnd_api.g_false
5645: , x_return_status => l_return_status
5646: , x_msg_count => x_msg_count
5647: , x_msg_data => x_msg_data
5648: , p_original_rsv_rec => l_mtl_reservation_rec2
5648: , p_original_rsv_rec => l_mtl_reservation_rec2
5649: , p_to_rsv_rec => l_mtl_reservation_rec3
5650: , p_original_serial_number => l_original_serial_number
5651: , p_to_serial_number => l_to_serial_number
5652: , p_validation_flag => fnd_api.g_true
5653: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5654: );
5655: IF (l_debug = 1) THEN
5656: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5655: IF (l_debug = 1) THEN
5656: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5657: END IF;
5658:
5659: IF l_return_status = fnd_api.g_ret_sts_error THEN
5660: RAISE fnd_api.g_exc_error;
5661: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5662: RAISE fnd_api.g_exc_unexpected_error;
5663: END IF;
5656: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5657: END IF;
5658:
5659: IF l_return_status = fnd_api.g_ret_sts_error THEN
5660: RAISE fnd_api.g_exc_error;
5661: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5662: RAISE fnd_api.g_exc_unexpected_error;
5663: END IF;
5664: END IF; -- if allocated quantity < detailed rsv quantity
5657: END IF;
5658:
5659: IF l_return_status = fnd_api.g_ret_sts_error THEN
5660: RAISE fnd_api.g_exc_error;
5661: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5662: RAISE fnd_api.g_exc_unexpected_error;
5663: END IF;
5664: END IF; -- if allocated quantity < detailed rsv quantity
5665: END LOOP;
5658:
5659: IF l_return_status = fnd_api.g_ret_sts_error THEN
5660: RAISE fnd_api.g_exc_error;
5661: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5662: RAISE fnd_api.g_exc_unexpected_error;
5663: END IF;
5664: END IF; -- if allocated quantity < detailed rsv quantity
5665: END LOOP;
5666: IF reservations_csr%ISOPEN THEN
5730: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
5731: , x_error_code => l_error_code
5732: );
5733:
5734: IF l_return_status = fnd_api.g_ret_sts_error THEN
5735: IF (l_debug = 1) THEN
5736: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5737: END IF;
5738: RAISE fnd_api.g_exc_error;
5734: IF l_return_status = fnd_api.g_ret_sts_error THEN
5735: IF (l_debug = 1) THEN
5736: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5737: END IF;
5738: RAISE fnd_api.g_exc_error;
5739: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5740: IF (l_debug = 1) THEN
5741: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5742: END IF;
5735: IF (l_debug = 1) THEN
5736: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5737: END IF;
5738: RAISE fnd_api.g_exc_error;
5739: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5740: IF (l_debug = 1) THEN
5741: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5742: END IF;
5743: RAISE fnd_api.g_exc_unexpected_error;
5739: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5740: IF (l_debug = 1) THEN
5741: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5742: END IF;
5743: RAISE fnd_api.g_exc_unexpected_error;
5744: END IF;
5745:
5746: IF (l_debug = 1) THEN
5747: DEBUG('reservation count = '|| l_mtl_reservation_tbl.COUNT, 'Finalize_Pick_Confirm');
5757: END IF;
5758: l_set_sub_return_value := inv_cache.set_tosub_rec(l_mmtt_rec.organization_id,l_mmtt_rec.transfer_subinventory);
5759:
5760: If NOT l_set_sub_return_value Then
5761: RAISE fnd_api.g_exc_unexpected_error;
5762: End If;
5763:
5764: -- Check if the sub is lpn controlled
5765: IF (l_debug = 1) THEN
5803: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
5804: END IF;
5805: inv_reservation_pub.update_reservation(
5806: p_api_version_number => 1.0
5807: , p_init_msg_lst => fnd_api.g_false
5808: , x_return_status => l_return_status
5809: , x_msg_count => x_msg_count
5810: , x_msg_data => x_msg_data
5811: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5811: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5812: , p_to_rsv_rec => l_mtl_reservation_rec
5813: , p_original_serial_number => l_original_serial_number
5814: , p_to_serial_number => l_to_serial_number
5815: , p_validation_flag => fnd_api.g_true -- Explicitly set the validation flag to true with respect to the Bug 4004597
5816: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5817: );
5818: IF (l_debug = 1) THEN
5819: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5818: IF (l_debug = 1) THEN
5819: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5820: END IF;
5821:
5822: IF l_return_status = fnd_api.g_ret_sts_error THEN
5823: RAISE fnd_api.g_exc_error;
5824: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5825: RAISE fnd_api.g_exc_unexpected_error;
5826: END IF;
5819: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5820: END IF;
5821:
5822: IF l_return_status = fnd_api.g_ret_sts_error THEN
5823: RAISE fnd_api.g_exc_error;
5824: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5825: RAISE fnd_api.g_exc_unexpected_error;
5826: END IF;
5827:
5820: END IF;
5821:
5822: IF l_return_status = fnd_api.g_ret_sts_error THEN
5823: RAISE fnd_api.g_exc_error;
5824: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5825: RAISE fnd_api.g_exc_unexpected_error;
5826: END IF;
5827:
5828: --requery reservation to reflect updated data
5821:
5822: IF l_return_status = fnd_api.g_ret_sts_error THEN
5823: RAISE fnd_api.g_exc_error;
5824: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5825: RAISE fnd_api.g_exc_unexpected_error;
5826: END IF;
5827:
5828: --requery reservation to reflect updated data
5829: inv_reservation_pub.query_reservation(
5836: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
5837: , x_error_code => l_error_code
5838: );
5839:
5840: IF l_return_status = fnd_api.g_ret_sts_error THEN
5841: IF (l_debug = 1) THEN
5842: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5843: END IF;
5844: RAISE fnd_api.g_exc_error;
5840: IF l_return_status = fnd_api.g_ret_sts_error THEN
5841: IF (l_debug = 1) THEN
5842: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5843: END IF;
5844: RAISE fnd_api.g_exc_error;
5845: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5846: IF (l_debug = 1) THEN
5847: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5848: END IF;
5841: IF (l_debug = 1) THEN
5842: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5843: END IF;
5844: RAISE fnd_api.g_exc_error;
5845: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5846: IF (l_debug = 1) THEN
5847: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5848: END IF;
5849: RAISE fnd_api.g_exc_unexpected_error;
5845: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5846: IF (l_debug = 1) THEN
5847: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5848: END IF;
5849: RAISE fnd_api.g_exc_unexpected_error;
5850: END IF;
5851: END IF;
5852:
5853: -- Create a new reservation on a staging sub
5909: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
5910: END IF;
5911: inv_reservation_pub.update_reservation(
5912: p_api_version_number => 1.0
5913: , p_init_msg_lst => fnd_api.g_false
5914: , x_return_status => l_return_status
5915: , x_msg_count => x_msg_count
5916: , x_msg_data => x_msg_data
5917: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5917: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5918: , p_to_rsv_rec => l_mtl_reservation_rec
5919: , p_original_serial_number => l_original_serial_number
5920: , p_to_serial_number => l_to_serial_number
5921: , p_validation_flag => fnd_api.g_true
5922: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5923: );
5924: IF (l_debug = 1) THEN
5925: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5924: IF (l_debug = 1) THEN
5925: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5926: END IF;
5927:
5928: IF l_return_status = fnd_api.g_ret_sts_error THEN
5929: RAISE fnd_api.g_exc_error;
5930: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5931: RAISE fnd_api.g_exc_unexpected_error;
5932: END IF;
5925: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5926: END IF;
5927:
5928: IF l_return_status = fnd_api.g_ret_sts_error THEN
5929: RAISE fnd_api.g_exc_error;
5930: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5931: RAISE fnd_api.g_exc_unexpected_error;
5932: END IF;
5933: ELSE -- reservable type <> 2
5926: END IF;
5927:
5928: IF l_return_status = fnd_api.g_ret_sts_error THEN
5929: RAISE fnd_api.g_exc_error;
5930: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5931: RAISE fnd_api.g_exc_unexpected_error;
5932: END IF;
5933: ELSE -- reservable type <> 2
5934: IF (l_debug = 1) THEN
5927:
5928: IF l_return_status = fnd_api.g_ret_sts_error THEN
5929: RAISE fnd_api.g_exc_error;
5930: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5931: RAISE fnd_api.g_exc_unexpected_error;
5932: END IF;
5933: ELSE -- reservable type <> 2
5934: IF (l_debug = 1) THEN
5935: DEBUG('reservable staging subinventory, '|| 'transfer reservation to staging', 'Finalize_Pick_Confirm');
5998: DEBUG('Transfering reservations', 'Finalize_Pick_Confirm');
5999: end if;
6000: inv_reservation_pub.transfer_reservation(
6001: p_api_version_number => 1.0
6002: , p_init_msg_lst => fnd_api.g_false
6003: , x_return_status => l_return_status
6004: , x_msg_count => x_msg_count
6005: , x_msg_data => x_msg_data
6006: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
6006: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
6007: , p_to_rsv_rec => l_mtl_reservation_rec
6008: , p_original_serial_number => l_to_serial_number
6009: , p_to_serial_number => l_to_serial_number
6010: , p_validation_flag => fnd_api.g_false
6011: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6012: , x_to_reservation_id => l_reservation_id
6013: );
6014: IF (l_debug = 1) THEN
6016: DEBUG('after create new reservation', 'Finalize_Pick_Confirm');
6017: DEBUG('l_return_status is '|| l_return_status, 'Finalize_Pick_Confirm');
6018: END IF;
6019:
6020: IF l_return_status = fnd_api.g_ret_sts_error THEN
6021: IF (l_debug = 1) THEN
6022: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
6023: END IF;
6024: RAISE fnd_api.g_exc_error;
6020: IF l_return_status = fnd_api.g_ret_sts_error THEN
6021: IF (l_debug = 1) THEN
6022: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
6023: END IF;
6024: RAISE fnd_api.g_exc_error;
6025: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6026: IF (l_debug = 1) THEN
6027: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
6028: END IF;
6021: IF (l_debug = 1) THEN
6022: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
6023: END IF;
6024: RAISE fnd_api.g_exc_error;
6025: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6026: IF (l_debug = 1) THEN
6027: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
6028: END IF;
6029: RAISE fnd_api.g_exc_unexpected_error;
6025: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6026: IF (l_debug = 1) THEN
6027: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
6028: END IF;
6029: RAISE fnd_api.g_exc_unexpected_error;
6030: END IF;
6031:
6032: -- bug 3703983
6033: -- inv_staged_reservation_util.update_staged_flag(x_return_status => l_return_status, x_msg_count => x_msg_count, x_msg_data => x_msg_data, p_reservation_id => l_reservation_id, p_staged_flag => 'Y');
6031:
6032: -- bug 3703983
6033: -- inv_staged_reservation_util.update_staged_flag(x_return_status => l_return_status, x_msg_count => x_msg_count, x_msg_data => x_msg_data, p_reservation_id => l_reservation_id, p_staged_flag => 'Y');
6034:
6035: --IF l_return_status = fnd_api.g_ret_sts_error THEN
6036: -- (l_debug = 1) THEN
6037: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6038: -- END IF;
6039: -- RAISE fnd_api.g_exc_error;
6035: --IF l_return_status = fnd_api.g_ret_sts_error THEN
6036: -- (l_debug = 1) THEN
6037: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6038: -- END IF;
6039: -- RAISE fnd_api.g_exc_error;
6040: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6041: -- IF (l_debug = 1) THEN
6042: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6043: -- END IF;
6036: -- (l_debug = 1) THEN
6037: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6038: -- END IF;
6039: -- RAISE fnd_api.g_exc_error;
6040: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6041: -- IF (l_debug = 1) THEN
6042: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6043: -- END IF;
6044: -- RAISE fnd_api.g_exc_unexpected_error;
6040: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6041: -- IF (l_debug = 1) THEN
6042: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6043: -- END IF;
6044: -- RAISE fnd_api.g_exc_unexpected_error;
6045: --END IF;
6046: END LOOP;
6047:
6048: IF (l_debug = 1) THEN
6077: DEBUG('l_primary_shipping_quantity: '|| l_primary_shipping_quantity, 'Finalize_Pick_Confirm');
6078: END IF;
6079: inv_reservation_pub.transfer_reservation(
6080: p_api_version_number => 1.0
6081: , p_init_msg_lst => fnd_api.g_false
6082: , x_return_status => l_return_status
6083: , x_msg_count => x_msg_count
6084: , x_msg_data => x_msg_data
6085: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
6085: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
6086: , p_to_rsv_rec => l_mtl_reservation_rec
6087: , p_original_serial_number => l_to_serial_number
6088: , p_to_serial_number => l_to_serial_number
6089: , p_validation_flag => fnd_api.g_false
6090: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6091: , x_to_reservation_id => l_reservation_id
6092: );
6093: IF (l_debug = 1) THEN
6094: DEBUG('new reservation id is '|| l_reservation_id, 'Finalize_Pick_Confirm');
6095: DEBUG('after create new reservation', 'Finalize_Pick_Confirm');
6096: DEBUG('l_return_status is '|| l_return_status, 'Finalize_Pick_Confirm');
6097: END IF;
6098: IF l_return_status = fnd_api.g_ret_sts_error THEN
6099: IF (l_debug = 1) THEN
6100: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
6101: END IF;
6102: RAISE fnd_api.g_exc_error;
6098: IF l_return_status = fnd_api.g_ret_sts_error THEN
6099: IF (l_debug = 1) THEN
6100: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
6101: END IF;
6102: RAISE fnd_api.g_exc_error;
6103: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6104: IF (l_debug = 1) THEN
6105: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
6106: END IF;
6099: IF (l_debug = 1) THEN
6100: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
6101: END IF;
6102: RAISE fnd_api.g_exc_error;
6103: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6104: IF (l_debug = 1) THEN
6105: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
6106: END IF;
6107: RAISE fnd_api.g_exc_unexpected_error;
6103: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6104: IF (l_debug = 1) THEN
6105: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
6106: END IF;
6107: RAISE fnd_api.g_exc_unexpected_error;
6108: END IF;
6109: IF (l_debug = 1) THEN
6110: DEBUG('still inside if no lot records', 'Finalize_Pick_Confirm');
6111: END IF;
6206: -- attributes already exists
6207: -- if there is, use update instead of create
6208: inv_reservation_pub.query_reservation(
6209: p_api_version_number => 1.0
6210: , p_init_msg_lst => fnd_api.g_false
6211: , x_return_status => l_return_status
6212: , x_msg_count => x_msg_count
6213: , x_msg_data => x_msg_data
6214: , p_query_input => l_mtl_reservation_rec
6211: , x_return_status => l_return_status
6212: , x_msg_count => x_msg_count
6213: , x_msg_data => x_msg_data
6214: , p_query_input => l_mtl_reservation_rec
6215: , p_lock_records => fnd_api.g_true
6216: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
6217: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
6218: , x_error_code => l_error_code
6219: );
6217: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
6218: , x_error_code => l_error_code
6219: );
6220:
6221: IF l_return_status = fnd_api.g_ret_sts_error THEN
6222: RAISE fnd_api.g_exc_error;
6223: END IF;
6224:
6225: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6218: , x_error_code => l_error_code
6219: );
6220:
6221: IF l_return_status = fnd_api.g_ret_sts_error THEN
6222: RAISE fnd_api.g_exc_error;
6223: END IF;
6224:
6225: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6226: RAISE fnd_api.g_exc_unexpected_error;
6221: IF l_return_status = fnd_api.g_ret_sts_error THEN
6222: RAISE fnd_api.g_exc_error;
6223: END IF;
6224:
6225: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6226: RAISE fnd_api.g_exc_unexpected_error;
6227: END IF;
6228: IF (l_debug = 1) THEN
6229: DEBUG('Query reservation get count '|| l_mtl_reservation_tbl_count, 'Finalize_Pick_Confirm');
6222: RAISE fnd_api.g_exc_error;
6223: END IF;
6224:
6225: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6226: RAISE fnd_api.g_exc_unexpected_error;
6227: END IF;
6228: IF (l_debug = 1) THEN
6229: DEBUG('Query reservation get count '|| l_mtl_reservation_tbl_count, 'Finalize_Pick_Confirm');
6230: END IF;
6243: DEBUG('Update reservation id '|| l_mtl_reservation_rec.reservation_id, 'Finalize_Pick_Confirm');
6244: END IF;
6245: inv_reservation_pub.update_reservation(
6246: p_api_version_number => 1.0
6247: , p_init_msg_lst => fnd_api.g_false
6248: , x_return_status => l_return_status
6249: , x_msg_count => x_msg_count
6250: , x_msg_data => x_msg_data
6251: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
6251: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
6252: , p_to_rsv_rec => l_mtl_reservation_rec
6253: , p_original_serial_number => l_original_serial_number
6254: , p_to_serial_number => l_to_serial_number
6255: , p_validation_flag => fnd_api.g_true
6256: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6257: );
6258: IF (l_debug = 1) THEN
6259: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6258: IF (l_debug = 1) THEN
6259: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6260: END IF;
6261:
6262: IF l_return_status = fnd_api.g_ret_sts_error THEN
6263: RAISE fnd_api.g_exc_error;
6264: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6265: RAISE fnd_api.g_exc_unexpected_error;
6266: END IF;
6259: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6260: END IF;
6261:
6262: IF l_return_status = fnd_api.g_ret_sts_error THEN
6263: RAISE fnd_api.g_exc_error;
6264: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6265: RAISE fnd_api.g_exc_unexpected_error;
6266: END IF;
6267: ELSE
6260: END IF;
6261:
6262: IF l_return_status = fnd_api.g_ret_sts_error THEN
6263: RAISE fnd_api.g_exc_error;
6264: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6265: RAISE fnd_api.g_exc_unexpected_error;
6266: END IF;
6267: ELSE
6268: -- check to see the lot is reservable...
6261:
6262: IF l_return_status = fnd_api.g_ret_sts_error THEN
6263: RAISE fnd_api.g_exc_error;
6264: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6265: RAISE fnd_api.g_exc_unexpected_error;
6266: END IF;
6267: ELSE
6268: -- check to see the lot is reservable...
6269: -- Bug 8560030
6292: l_mtl_reservation_rec.secondary_reservation_quantity := ABS(l_lot_secondary_quantity);
6293: l_mtl_reservation_rec.requirement_date := SYSDATE;
6294: inv_reservation_pub.create_reservation(
6295: p_api_version_number => 1.0
6296: , p_init_msg_lst => fnd_api.g_false
6297: , x_return_status => l_return_status
6298: , x_msg_count => x_msg_count
6299: , x_msg_data => x_msg_data
6300: , p_rsv_rec => l_mtl_reservation_rec
6299: , x_msg_data => x_msg_data
6300: , p_rsv_rec => l_mtl_reservation_rec
6301: , p_serial_number => l_to_serial_number
6302: , x_serial_number => l_to_serial_number
6303: , p_partial_reservation_flag => fnd_api.g_true
6304: , p_force_reservation_flag => fnd_api.g_false
6305: , p_validation_flag => fnd_api.g_true
6306: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6307: , x_quantity_reserved => l_quantity_reserved
6300: , p_rsv_rec => l_mtl_reservation_rec
6301: , p_serial_number => l_to_serial_number
6302: , x_serial_number => l_to_serial_number
6303: , p_partial_reservation_flag => fnd_api.g_true
6304: , p_force_reservation_flag => fnd_api.g_false
6305: , p_validation_flag => fnd_api.g_true
6306: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6307: , x_quantity_reserved => l_quantity_reserved
6308: , x_reservation_id => l_reservation_id
6301: , p_serial_number => l_to_serial_number
6302: , x_serial_number => l_to_serial_number
6303: , p_partial_reservation_flag => fnd_api.g_true
6304: , p_force_reservation_flag => fnd_api.g_false
6305: , p_validation_flag => fnd_api.g_true
6306: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6307: , x_quantity_reserved => l_quantity_reserved
6308: , x_reservation_id => l_reservation_id
6309: );
6312: DEBUG('Quantity reserved: '|| l_quantity_reserved, 'Finalize_Pick_Confirm');
6313: DEBUG('Reservation ID: '|| l_reservation_id, 'Finalize_Pick_Confirm');
6314: END IF;
6315:
6316: IF l_return_status = fnd_api.g_ret_sts_error THEN
6317: IF (l_debug = 1) THEN
6318: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
6319: END IF;
6320: RAISE fnd_api.g_exc_error;
6316: IF l_return_status = fnd_api.g_ret_sts_error THEN
6317: IF (l_debug = 1) THEN
6318: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
6319: END IF;
6320: RAISE fnd_api.g_exc_error;
6321: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6322: IF (l_debug = 1) THEN
6323: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
6324: END IF;
6317: IF (l_debug = 1) THEN
6318: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
6319: END IF;
6320: RAISE fnd_api.g_exc_error;
6321: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6322: IF (l_debug = 1) THEN
6323: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
6324: END IF;
6325: RAISE fnd_api.g_exc_unexpected_error;
6321: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6322: IF (l_debug = 1) THEN
6323: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
6324: END IF;
6325: RAISE fnd_api.g_exc_unexpected_error;
6326: END IF;
6327:
6328: --bug 1402436 - set the reservations staged flag
6329: inv_staged_reservation_util.update_staged_flag(x_return_status => l_return_status, x_msg_count => x_msg_count, x_msg_data => x_msg_data, p_reservation_id => l_reservation_id, p_staged_flag => 'Y');
6327:
6328: --bug 1402436 - set the reservations staged flag
6329: inv_staged_reservation_util.update_staged_flag(x_return_status => l_return_status, x_msg_count => x_msg_count, x_msg_data => x_msg_data, p_reservation_id => l_reservation_id, p_staged_flag => 'Y');
6330:
6331: IF l_return_status = fnd_api.g_ret_sts_error THEN
6332: IF (l_debug = 1) THEN
6333: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6334: END IF;
6335: RAISE fnd_api.g_exc_error;
6331: IF l_return_status = fnd_api.g_ret_sts_error THEN
6332: IF (l_debug = 1) THEN
6333: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6334: END IF;
6335: RAISE fnd_api.g_exc_error;
6336: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6337: IF (l_debug = 1) THEN
6338: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6339: END IF;
6332: IF (l_debug = 1) THEN
6333: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6334: END IF;
6335: RAISE fnd_api.g_exc_error;
6336: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6337: IF (l_debug = 1) THEN
6338: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6339: END IF;
6340: RAISE fnd_api.g_exc_unexpected_error;
6336: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6337: IF (l_debug = 1) THEN
6338: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6339: END IF;
6340: RAISE fnd_api.g_exc_unexpected_error;
6341: END IF;
6342: END IF; -- l_reservable_type_lot = 1
6343: END IF; -- Create or Update
6344: END LOOP; -- Lot loop
6357: -- attributes already exists
6358: -- if there is, use update instead of create
6359: inv_reservation_pub.query_reservation(
6360: p_api_version_number => 1.0
6361: , p_init_msg_lst => fnd_api.g_false
6362: , x_return_status => l_return_status
6363: , x_msg_count => x_msg_count
6364: , x_msg_data => x_msg_data
6365: , p_query_input => l_mtl_reservation_rec
6362: , x_return_status => l_return_status
6363: , x_msg_count => x_msg_count
6364: , x_msg_data => x_msg_data
6365: , p_query_input => l_mtl_reservation_rec
6366: , p_lock_records => fnd_api.g_true
6367: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
6368: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
6369: , x_error_code => l_error_code
6370: );
6368: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
6369: , x_error_code => l_error_code
6370: );
6371:
6372: IF l_return_status = fnd_api.g_ret_sts_error THEN
6373: RAISE fnd_api.g_exc_error;
6374: END IF;
6375:
6376: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6369: , x_error_code => l_error_code
6370: );
6371:
6372: IF l_return_status = fnd_api.g_ret_sts_error THEN
6373: RAISE fnd_api.g_exc_error;
6374: END IF;
6375:
6376: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6377: RAISE fnd_api.g_exc_unexpected_error;
6372: IF l_return_status = fnd_api.g_ret_sts_error THEN
6373: RAISE fnd_api.g_exc_error;
6374: END IF;
6375:
6376: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6377: RAISE fnd_api.g_exc_unexpected_error;
6378: END IF;
6379:
6380: IF l_mtl_reservation_tbl_count > 0 THEN
6373: RAISE fnd_api.g_exc_error;
6374: END IF;
6375:
6376: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6377: RAISE fnd_api.g_exc_unexpected_error;
6378: END IF;
6379:
6380: IF l_mtl_reservation_tbl_count > 0 THEN
6381: l_mtl_reservation_rec.primary_reservation_quantity := l_mtl_reservation_tbl(1).primary_reservation_quantity + l_primary_shipping_quantity;
6388: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
6389: END IF;
6390: inv_reservation_pub.update_reservation(
6391: p_api_version_number => 1.0
6392: , p_init_msg_lst => fnd_api.g_false
6393: , x_return_status => l_return_status
6394: , x_msg_count => x_msg_count
6395: , x_msg_data => x_msg_data
6396: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
6396: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
6397: , p_to_rsv_rec => l_mtl_reservation_rec
6398: , p_original_serial_number => l_original_serial_number
6399: , p_to_serial_number => l_to_serial_number
6400: , p_validation_flag => fnd_api.g_true
6401: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6402: );
6403: IF (l_debug = 1) THEN
6404: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6403: IF (l_debug = 1) THEN
6404: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6405: END IF;
6406:
6407: IF l_return_status = fnd_api.g_ret_sts_error THEN
6408: RAISE fnd_api.g_exc_error;
6409: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6410: RAISE fnd_api.g_exc_unexpected_error;
6411: END IF;
6404: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6405: END IF;
6406:
6407: IF l_return_status = fnd_api.g_ret_sts_error THEN
6408: RAISE fnd_api.g_exc_error;
6409: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6410: RAISE fnd_api.g_exc_unexpected_error;
6411: END IF;
6412: ELSE
6405: END IF;
6406:
6407: IF l_return_status = fnd_api.g_ret_sts_error THEN
6408: RAISE fnd_api.g_exc_error;
6409: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6410: RAISE fnd_api.g_exc_unexpected_error;
6411: END IF;
6412: ELSE
6413: l_mtl_reservation_rec.primary_reservation_quantity := l_primary_shipping_quantity;
6406:
6407: IF l_return_status = fnd_api.g_ret_sts_error THEN
6408: RAISE fnd_api.g_exc_error;
6409: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6410: RAISE fnd_api.g_exc_unexpected_error;
6411: END IF;
6412: ELSE
6413: l_mtl_reservation_rec.primary_reservation_quantity := l_primary_shipping_quantity;
6414: l_mtl_reservation_rec.reservation_quantity := l_shipping_quantity;
6418: DEBUG('create reservation demand source'|| l_mtl_reservation_rec.demand_source_type_id, 'Finalize_Pick_Confirm');
6419: END IF;
6420: inv_reservation_pub.create_reservation(
6421: p_api_version_number => 1.0
6422: , p_init_msg_lst => fnd_api.g_false
6423: , x_return_status => l_return_status
6424: , x_msg_count => x_msg_count
6425: , x_msg_data => x_msg_data
6426: , p_rsv_rec => l_mtl_reservation_rec
6425: , x_msg_data => x_msg_data
6426: , p_rsv_rec => l_mtl_reservation_rec
6427: , p_serial_number => l_to_serial_number
6428: , x_serial_number => l_to_serial_number
6429: , p_partial_reservation_flag => fnd_api.g_true
6430: , p_force_reservation_flag => fnd_api.g_false
6431: , p_validation_flag => fnd_api.g_true
6432: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6433: , x_quantity_reserved => l_quantity_reserved
6426: , p_rsv_rec => l_mtl_reservation_rec
6427: , p_serial_number => l_to_serial_number
6428: , x_serial_number => l_to_serial_number
6429: , p_partial_reservation_flag => fnd_api.g_true
6430: , p_force_reservation_flag => fnd_api.g_false
6431: , p_validation_flag => fnd_api.g_true
6432: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6433: , x_quantity_reserved => l_quantity_reserved
6434: , x_reservation_id => l_reservation_id
6427: , p_serial_number => l_to_serial_number
6428: , x_serial_number => l_to_serial_number
6429: , p_partial_reservation_flag => fnd_api.g_true
6430: , p_force_reservation_flag => fnd_api.g_false
6431: , p_validation_flag => fnd_api.g_true
6432: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6433: , x_quantity_reserved => l_quantity_reserved
6434: , x_reservation_id => l_reservation_id
6435: );
6437: DEBUG('Quantity reserved: '|| l_quantity_reserved, 'Finalize_Pick_Confirm');
6438: DEBUG('Reservation ID: '|| l_reservation_id, 'Finalize_Pick_Confirm');
6439: END IF;
6440:
6441: IF l_return_status = fnd_api.g_ret_sts_error THEN
6442: IF (l_debug = 1) THEN
6443: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
6444: END IF;
6445: RAISE fnd_api.g_exc_error;
6441: IF l_return_status = fnd_api.g_ret_sts_error THEN
6442: IF (l_debug = 1) THEN
6443: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
6444: END IF;
6445: RAISE fnd_api.g_exc_error;
6446: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6447: IF (l_debug = 1) THEN
6448: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
6449: END IF;
6442: IF (l_debug = 1) THEN
6443: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
6444: END IF;
6445: RAISE fnd_api.g_exc_error;
6446: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6447: IF (l_debug = 1) THEN
6448: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
6449: END IF;
6450: RAISE fnd_api.g_exc_unexpected_error;
6446: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6447: IF (l_debug = 1) THEN
6448: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
6449: END IF;
6450: RAISE fnd_api.g_exc_unexpected_error;
6451: END IF;
6452:
6453: --bug 1402436 - set the reservations staged flag
6454: inv_staged_reservation_util.update_staged_flag
6458: , p_reservation_id => l_reservation_id
6459: , p_staged_flag => 'Y'
6460: );
6461:
6462: IF l_return_status = fnd_api.g_ret_sts_error THEN
6463: IF (l_debug = 1) THEN
6464: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6465: END IF;
6466: RAISE fnd_api.g_exc_error;
6462: IF l_return_status = fnd_api.g_ret_sts_error THEN
6463: IF (l_debug = 1) THEN
6464: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6465: END IF;
6466: RAISE fnd_api.g_exc_error;
6467: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6468: IF (l_debug = 1) THEN
6469: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6470: END IF;
6463: IF (l_debug = 1) THEN
6464: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6465: END IF;
6466: RAISE fnd_api.g_exc_error;
6467: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6468: IF (l_debug = 1) THEN
6469: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6470: END IF;
6471: RAISE fnd_api.g_exc_unexpected_error;
6467: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6468: IF (l_debug = 1) THEN
6469: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6470: END IF;
6471: RAISE fnd_api.g_exc_unexpected_error;
6472: END IF;
6473: END IF; -- Create or Update
6474: END IF; -- Lot control or not
6475: END IF; -- Staging sub reservable or not
6486: -- reservations which are against the backordered lines.
6487:
6488: --clean_reservations(p_source_line_id => l_trolin_rec.txn_source_line_id, x_return_status => l_return_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data);
6489:
6490: --IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6491: -- IF (l_debug = 1) THEN
6492: -- DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
6493: -- END IF;
6494: -- RAISE fnd_api.g_exc_error;
6490: --IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6491: -- IF (l_debug = 1) THEN
6492: -- DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
6493: -- END IF;
6494: -- RAISE fnd_api.g_exc_error;
6495: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6496: -- IF (l_debug = 1) THEN
6497: -- DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
6498: -- END IF;
6491: -- IF (l_debug = 1) THEN
6492: -- DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
6493: -- END IF;
6494: -- RAISE fnd_api.g_exc_error;
6495: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6496: -- IF (l_debug = 1) THEN
6497: -- DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
6498: -- END IF;
6499: -- RAISE fnd_api.g_exc_unexpected_error;
6495: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6496: -- IF (l_debug = 1) THEN
6497: -- DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
6498: -- END IF;
6499: -- RAISE fnd_api.g_exc_unexpected_error;
6500: --END IF;
6501:
6502: -- Fix the detailed quantity on all reservations for this
6503: -- sales order line. Necessary for underpicking.
6553: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
6554: END IF;
6555: inv_reservation_pub.update_reservation(
6556: p_api_version_number => 1.0
6557: , p_init_msg_lst => fnd_api.g_false
6558: , x_return_status => l_return_status
6559: , x_msg_count => x_msg_count
6560: , x_msg_data => x_msg_data
6561: , p_original_rsv_rec => l_mtl_reservation_rec2
6561: , p_original_rsv_rec => l_mtl_reservation_rec2
6562: , p_to_rsv_rec => l_mtl_reservation_rec3
6563: , p_original_serial_number => l_original_serial_number
6564: , p_to_serial_number => l_to_serial_number
6565: , p_validation_flag => fnd_api.g_true
6566: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6567: );
6568: IF (l_debug = 1) THEN
6569: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6568: IF (l_debug = 1) THEN
6569: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6570: END IF;
6571:
6572: IF l_return_status = fnd_api.g_ret_sts_error THEN
6573: RAISE fnd_api.g_exc_error;
6574: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6575: RAISE fnd_api.g_exc_unexpected_error;
6576: END IF;
6569: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6570: END IF;
6571:
6572: IF l_return_status = fnd_api.g_ret_sts_error THEN
6573: RAISE fnd_api.g_exc_error;
6574: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6575: RAISE fnd_api.g_exc_unexpected_error;
6576: END IF;
6577: END IF; -- if allocated quantity < detailed rsv quantity
6570: END IF;
6571:
6572: IF l_return_status = fnd_api.g_ret_sts_error THEN
6573: RAISE fnd_api.g_exc_error;
6574: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6575: RAISE fnd_api.g_exc_unexpected_error;
6576: END IF;
6577: END IF; -- if allocated quantity < detailed rsv quantity
6578: END LOOP;
6571:
6572: IF l_return_status = fnd_api.g_ret_sts_error THEN
6573: RAISE fnd_api.g_exc_error;
6574: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6575: RAISE fnd_api.g_exc_unexpected_error;
6576: END IF;
6577: END IF; -- if allocated quantity < detailed rsv quantity
6578: END LOOP;
6579: IF reservations_csr%ISOPEN THEN
6584:
6585: IF (l_debug = 1) THEN
6586: DEBUG('before return', 'Finalize_Pick_Confirm');
6587: END IF;
6588: x_return_status := fnd_api.g_ret_sts_success;
6589: EXCEPTION
6590: --code added for bug#8530301
6591: WHEN exec_wsh_int_upd_SA THEN
6592: IF (l_debug = 1) THEN
6591: WHEN exec_wsh_int_upd_SA THEN
6592: IF (l_debug = 1) THEN
6593: DEBUG('wsh_interface.update_shipping_attributes Raised an exception ', 'Finalize_Pick_Confirm');
6594: END IF;
6595: x_return_status := fnd_api.g_ret_sts_error;
6596: -- end of code added for bug#8530301
6597: WHEN fnd_api.g_exc_error THEN
6598: x_return_status := fnd_api.g_ret_sts_error;
6599: -- Get message count and data
6593: DEBUG('wsh_interface.update_shipping_attributes Raised an exception ', 'Finalize_Pick_Confirm');
6594: END IF;
6595: x_return_status := fnd_api.g_ret_sts_error;
6596: -- end of code added for bug#8530301
6597: WHEN fnd_api.g_exc_error THEN
6598: x_return_status := fnd_api.g_ret_sts_error;
6599: -- Get message count and data
6600: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6601: WHEN fnd_api.g_exc_unexpected_error THEN
6594: END IF;
6595: x_return_status := fnd_api.g_ret_sts_error;
6596: -- end of code added for bug#8530301
6597: WHEN fnd_api.g_exc_error THEN
6598: x_return_status := fnd_api.g_ret_sts_error;
6599: -- Get message count and data
6600: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6601: WHEN fnd_api.g_exc_unexpected_error THEN
6602: x_return_status := fnd_api.g_ret_sts_unexp_error;
6597: WHEN fnd_api.g_exc_error THEN
6598: x_return_status := fnd_api.g_ret_sts_error;
6599: -- Get message count and data
6600: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6601: WHEN fnd_api.g_exc_unexpected_error THEN
6602: x_return_status := fnd_api.g_ret_sts_unexp_error;
6603: -- Get message count and data
6604: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6605: WHEN OTHERS THEN
6598: x_return_status := fnd_api.g_ret_sts_error;
6599: -- Get message count and data
6600: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6601: WHEN fnd_api.g_exc_unexpected_error THEN
6602: x_return_status := fnd_api.g_ret_sts_unexp_error;
6603: -- Get message count and data
6604: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6605: WHEN OTHERS THEN
6606: x_return_status := fnd_api.g_ret_sts_unexp_error;
6602: x_return_status := fnd_api.g_ret_sts_unexp_error;
6603: -- Get message count and data
6604: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6605: WHEN OTHERS THEN
6606: x_return_status := fnd_api.g_ret_sts_unexp_error;
6607:
6608: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6609: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Pick Confirm');
6610: END IF;
6662: l_debug number;
6663: l_kill_mo_profile NUMBER := NVL(FND_PROFILE.VALUE_WNPS('INV_KILL_MOVE_ORDER'),2);
6664: l_trolin_rec inv_move_order_pub.trolin_rec_type; -- Bug 5059984
6665: BEGIN
6666: x_return_status := FND_API.G_RET_STS_SUCCESS;
6667:
6668: -- Use cache to get value for l_debug
6669: IF g_is_pickrelease_set IS NULL THEN
6670: g_is_pickrelease_set := 2;
6700: IF (l_debug = 1) THEN
6701: DEBUG('MO Header not found for the MO Line = ' || l_rep_mmtt_rec.move_order_line_id,'INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6702: END IF;
6703: CLOSE c_mo_type;
6704: RAISE FND_API.G_EXC_ERROR;
6705: END IF;
6706: CLOSE c_mo_type;
6707:
6708: IF (l_debug = 1) THEN
6743: IF (l_debug = 1) THEN
6744: DEBUG('MO Header not found for the MO Line = ' || l_mo_line.move_order_line_id,'INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6745: END IF;
6746: CLOSE c_mo_type;
6747: RAISE FND_API.G_EXC_ERROR;
6748: END IF;
6749: CLOSE c_mo_type;
6750:
6751: IF (l_debug = 1) THEN
6758: DEBUG('Replenishment Move Order... Closing the Move Order','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6759: END IF;
6760: INV_MO_ADMIN_PUB.close_line(1.0,'F','F','F',l_mo_line.move_order_line_id,l_msg_count,l_msg_data,l_return_status);
6761:
6762: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6763: RAISE FND_API.G_EXC_ERROR;
6764: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6766: END IF;
6759: END IF;
6760: INV_MO_ADMIN_PUB.close_line(1.0,'F','F','F',l_mo_line.move_order_line_id,l_msg_count,l_msg_data,l_return_status);
6761:
6762: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6763: RAISE FND_API.G_EXC_ERROR;
6764: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6766: END IF;
6767: END IF; -- end if check mo_type = 2
6760: INV_MO_ADMIN_PUB.close_line(1.0,'F','F','F',l_mo_line.move_order_line_id,l_msg_count,l_msg_data,l_return_status);
6761:
6762: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6763: RAISE FND_API.G_EXC_ERROR;
6764: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6766: END IF;
6767: END IF; -- end if check mo_type = 2
6768: END LOOP;
6761:
6762: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6763: RAISE FND_API.G_EXC_ERROR;
6764: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6765: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6766: END IF;
6767: END IF; -- end if check mo_type = 2
6768: END LOOP;
6769: END IF; -- end if check fill kill profile
6768: END LOOP;
6769: END IF; -- end if check fill kill profile
6770:
6771: EXCEPTION
6772: WHEN FND_API.G_EXC_ERROR THEN
6773: IF (l_debug = 1) THEN
6774: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6775: END IF;
6776: x_return_status := FND_API.G_RET_STS_ERROR;
6772: WHEN FND_API.G_EXC_ERROR THEN
6773: IF (l_debug = 1) THEN
6774: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6775: END IF;
6776: x_return_status := FND_API.G_RET_STS_ERROR;
6777: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6779: IF (l_debug = 1) THEN
6780: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6774: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6775: END IF;
6776: x_return_status := FND_API.G_RET_STS_ERROR;
6777: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6779: IF (l_debug = 1) THEN
6780: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6781: END IF;
6782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6778: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6779: IF (l_debug = 1) THEN
6780: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6781: END IF;
6782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6783: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6784: WHEN OTHERS THEN
6785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6786:
6781: END IF;
6782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6783: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6784: WHEN OTHERS THEN
6785: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6786:
6787: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6788: fnd_msg_pub.add_exc_msg(g_pkg_name, 'KILL_MOVE_ORDER');
6789: END IF;
6894: ,to_serial_number => l_serial_cursor.to_Serial_number
6895: ,serial_code => null
6896: ,hdr_id => null
6897: ,p_inventory_item_id => l_Serial_cursor.inventory_item_id
6898: ,p_update_reservation => fnd_api.g_true);
6899: /*** End R12 }} ***/
6900:
6901: delete_remaining_serial := TRUE;
6902: been_here := TRUE;
6916: x_quantity => x_quantity,
6917: x_from_number => l_from_number,
6918: x_to_number => l_to_number,
6919: x_errorcode => x_errorcode) THEN
6920: RAISE FND_API.G_EXC_ERROR;
6921: END IF;
6922:
6923: l_new_num:=l_from_number+(diff_qty-((qty_count-p_qty)+1));
6924: l_new_num_update:=l_from_number+(diff_qty-((qty_count-p_qty)+1))+1;
6963: ,to_serial_number => l_serial_cursor.to_serial_number
6964: ,serial_code => null
6965: ,hdr_id => null
6966: ,p_inventory_item_id => l_serial_cursor.inventory_item_id
6967: ,p_update_reservation => fnd_api.g_true);
6968: /*** End R12 }} ***/
6969:
6970: delete_remaining_serial := TRUE;
6971: been_here := TRUE;
6995: ,to_serial_number => null
6996: ,serial_code => null
6997: ,hdr_id => null
6998: ,p_inventory_item_id => l_serial_cursor.inventory_item_id
6999: ,p_update_reservation => fnd_api.g_true);
7000: /*** End R12 }} ***/
7001:
7002: delete_remaining_serial := TRUE;
7003: been_here := TRUE;
7031: ,to_serial_number => null
7032: ,serial_code => null
7033: ,hdr_id => null
7034: ,p_inventory_item_id => l_serial_cursor.inventory_item_id
7035: ,p_update_reservation => fnd_api.g_true);
7036: /*** End R12 }} ***/
7037:
7038: end if;
7039:
7040: been_here :=FALSE;
7041: END LOOP;
7042:
7043: EXCEPTION
7044: WHEN FND_API.G_EXC_ERROR THEN
7045: IF (l_debug = 1) THEN
7046: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
7047: END IF;
7048: x_return_status := FND_API.G_RET_STS_ERROR;
7044: WHEN FND_API.G_EXC_ERROR THEN
7045: IF (l_debug = 1) THEN
7046: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
7047: END IF;
7048: x_return_status := FND_API.G_RET_STS_ERROR;
7049: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7051: IF (l_debug = 1) THEN
7052: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
7046: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
7047: END IF;
7048: x_return_status := FND_API.G_RET_STS_ERROR;
7049: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7051: IF (l_debug = 1) THEN
7052: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
7053: END IF;
7054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7051: IF (l_debug = 1) THEN
7052: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
7053: END IF;
7054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7055: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7056: WHEN OTHERS THEN
7057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7058:
7053: END IF;
7054: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7055: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
7056: WHEN OTHERS THEN
7057: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7058:
7059: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
7060: fnd_msg_pub.add_exc_msg(g_pkg_name, 'adjust_serial_numbers_in_MMTT');
7061: END IF;