[Home] [Help]
175: IF (p_move_order_type = 3) THEN
176: l_rsv_temp_rec.reservation_id := l_troldt_tbl(l_counter).reservation_id;
177: inv_reservation_pub.query_reservation(
178: p_api_version_number => 1.0
179: , p_init_msg_lst => fnd_api.g_true
180: , x_return_status => l_return_status
181: , x_msg_count => l_msg_count
182: , x_msg_data => l_msg_data
183: , p_query_input => l_rsv_temp_rec
185: , x_mtl_reservation_tbl_count => l_mtl_reservation_count
186: , x_error_code => l_error_code
187: );
188:
189: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
190: RAISE fnd_api.g_exc_unexpected_error;
191: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
192: RAISE fnd_api.g_exc_error;
193: END IF;
186: , x_error_code => l_error_code
187: );
188:
189: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
190: RAISE fnd_api.g_exc_unexpected_error;
191: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
192: RAISE fnd_api.g_exc_error;
193: END IF;
194:
187: );
188:
189: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
190: RAISE fnd_api.g_exc_unexpected_error;
191: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
192: RAISE fnd_api.g_exc_error;
193: END IF;
194:
195: l_rsv_temp_rec := l_mtl_reservation(1);
188:
189: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
190: RAISE fnd_api.g_exc_unexpected_error;
191: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
192: RAISE fnd_api.g_exc_error;
193: END IF;
194:
195: l_rsv_temp_rec := l_mtl_reservation(1);
196: l_to_rsv_rec := l_mtl_reservation(1);
204: END IF;
205:
206: inv_reservation_pub.update_reservation(
207: p_api_version_number => 1.0
208: , p_init_msg_lst => fnd_api.g_true
209: , x_return_status => l_return_status
210: , x_msg_count => l_msg_count
211: , x_msg_data => l_msg_data
212: , p_original_rsv_rec => l_rsv_temp_rec
212: , p_original_rsv_rec => l_rsv_temp_rec
213: , p_to_rsv_rec => l_to_rsv_rec
214: , p_original_serial_number => l_dummy_sn
215: , p_to_serial_number => l_dummy_sn
216: , p_validation_flag => fnd_api.g_true
217: );
218:
219: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
220: RAISE fnd_api.g_exc_unexpected_error;
215: , p_to_serial_number => l_dummy_sn
216: , p_validation_flag => fnd_api.g_true
217: );
218:
219: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
220: RAISE fnd_api.g_exc_unexpected_error;
221: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
222: RAISE fnd_api.g_exc_error;
223: END IF;
216: , p_validation_flag => fnd_api.g_true
217: );
218:
219: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
220: RAISE fnd_api.g_exc_unexpected_error;
221: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
222: RAISE fnd_api.g_exc_error;
223: END IF;
224: END IF;
217: );
218:
219: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
220: RAISE fnd_api.g_exc_unexpected_error;
221: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
222: RAISE fnd_api.g_exc_error;
223: END IF;
224: END IF;
225:
218:
219: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
220: RAISE fnd_api.g_exc_unexpected_error;
221: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
222: RAISE fnd_api.g_exc_error;
223: END IF;
224: END IF;
225:
226: BEGIN
226: BEGIN
227: inv_replenish_detail_pub.clear_record(p_trx_tmp_id => l_troldt_tbl(l_counter).transaction_temp_id,
228: p_success => l_success);
229: if( not l_success ) then
230: raise FND_API.G_EXC_ERROR;
231: end if;
232: EXCEPTION
233: WHEN OTHERS THEN
234: RAISE fnd_api.g_exc_unexpected_error;
230: raise FND_API.G_EXC_ERROR;
231: end if;
232: EXCEPTION
233: WHEN OTHERS THEN
234: RAISE fnd_api.g_exc_unexpected_error;
235: END;
236: 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);
237: END LOOP;
238:
239: x_return_status := l_return_status;
240: x_msg_data := l_msg_data;
241: x_msg_count := l_msg_count;
242: EXCEPTION
243: WHEN fnd_api.g_exc_error THEN
244: RAISE;
245: WHEN fnd_api.g_exc_unexpected_error THEN
246: RAISE;
247: WHEN OTHERS THEN
241: x_msg_count := l_msg_count;
242: EXCEPTION
243: WHEN fnd_api.g_exc_error THEN
244: RAISE;
245: WHEN fnd_api.g_exc_unexpected_error THEN
246: RAISE;
247: WHEN OTHERS THEN
248: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
249: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
248: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
249: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
250: END IF;
251:
252: RAISE fnd_api.g_exc_unexpected_error;
253: END delete_troldt;
254:
255: PROCEDURE update_lots_temp(
256: x_return_status OUT NOCOPY VARCHAR2
296:
297: l_debug number;
298: BEGIN
299: -- Initialize API return status to success
300: x_return_status := fnd_api.g_ret_sts_success;
301:
302: -- Use cache to get value for l_debug
303: IF g_is_pickrelease_set IS NULL THEN
304: g_is_pickrelease_set := 2;
373: fnd_message.set_name('INV', 'INV_INVALID_UOM_CONV');
374: fnd_message.set_token('VALUE1', l_secondary_uom_code);
375: fnd_message.set_token('VALUE2', p_trx_uom);
376: fnd_msg_pub.ADD;
377: RAISE fnd_api.g_exc_unexpected_error;
378: END IF;
379:
380: l_mtlt_sec_trx_qty := l_mtlt_sec_trx_qty - l_sec_quantity_cancel;
381: IF l_mtlt_sec_trx_qty < 0 THEN
404: END IF;
405: END LOOP;
406: END IF;
407: EXCEPTION
408: WHEN fnd_api.g_exc_error THEN
409: x_return_status := fnd_api.g_ret_sts_error;
410: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
411: WHEN fnd_api.g_exc_unexpected_error THEN
412: x_return_status := fnd_api.g_ret_sts_unexp_error;
405: END LOOP;
406: END IF;
407: EXCEPTION
408: WHEN fnd_api.g_exc_error THEN
409: x_return_status := fnd_api.g_ret_sts_error;
410: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
411: WHEN fnd_api.g_exc_unexpected_error THEN
412: x_return_status := fnd_api.g_ret_sts_unexp_error;
413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
407: EXCEPTION
408: WHEN fnd_api.g_exc_error THEN
409: x_return_status := fnd_api.g_ret_sts_error;
410: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
411: WHEN fnd_api.g_exc_unexpected_error THEN
412: x_return_status := fnd_api.g_ret_sts_unexp_error;
413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
414: WHEN OTHERS THEN
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
408: WHEN fnd_api.g_exc_error THEN
409: x_return_status := fnd_api.g_ret_sts_error;
410: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
411: WHEN fnd_api.g_exc_unexpected_error THEN
412: x_return_status := fnd_api.g_ret_sts_unexp_error;
413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
414: WHEN OTHERS THEN
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416:
411: WHEN fnd_api.g_exc_unexpected_error THEN
412: x_return_status := fnd_api.g_ret_sts_unexp_error;
413: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
414: WHEN OTHERS THEN
415: x_return_status := fnd_api.g_ret_sts_unexp_error;
416:
417: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
418: fnd_msg_pub.add_exc_msg(g_pkg_name, 'update lots temp');
419: END IF;
442: ORDER BY fm_serial_number DESC
443: FOR UPDATE OF transaction_temp_id;
444: BEGIN
445: -- Initialize API return status to success
446: x_return_status := fnd_api.g_ret_sts_success;
447:
448: IF p_operation = 'DELETE' THEN -- when cancel qty >sum(mmtt trx qty)
449: DELETE FROM mtl_serial_numbers_temp
450: WHERE transaction_temp_id = p_trx_temp_id;
489: ,to_serial_number => l_to_serial_number
490: ,serial_code => null
491: ,hdr_id => l_transaction_header_id
492: ,temp_id => p_trx_temp_id
493: ,p_update_reservation => fnd_api.g_true);
494: /*** End R12 }} ***/
495:
496: del_serial_number := del_serial_number + 1;
497:
508: END LOOP;
509: END IF;
510: END IF;
511: EXCEPTION
512: WHEN fnd_api.g_exc_error THEN
513: x_return_status := fnd_api.g_ret_sts_error;
514: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
515: WHEN fnd_api.g_exc_unexpected_error THEN
516: x_return_status := fnd_api.g_ret_sts_unexp_error;
509: END IF;
510: END IF;
511: EXCEPTION
512: WHEN fnd_api.g_exc_error THEN
513: x_return_status := fnd_api.g_ret_sts_error;
514: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
515: WHEN fnd_api.g_exc_unexpected_error THEN
516: x_return_status := fnd_api.g_ret_sts_unexp_error;
517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
511: EXCEPTION
512: WHEN fnd_api.g_exc_error THEN
513: x_return_status := fnd_api.g_ret_sts_error;
514: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
515: WHEN fnd_api.g_exc_unexpected_error THEN
516: x_return_status := fnd_api.g_ret_sts_unexp_error;
517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
518: WHEN OTHERS THEN
519: x_return_status := fnd_api.g_ret_sts_unexp_error;
512: WHEN fnd_api.g_exc_error THEN
513: x_return_status := fnd_api.g_ret_sts_error;
514: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
515: WHEN fnd_api.g_exc_unexpected_error THEN
516: x_return_status := fnd_api.g_ret_sts_unexp_error;
517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
518: WHEN OTHERS THEN
519: x_return_status := fnd_api.g_ret_sts_unexp_error;
520:
515: WHEN fnd_api.g_exc_unexpected_error THEN
516: x_return_status := fnd_api.g_ret_sts_unexp_error;
517: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
518: WHEN OTHERS THEN
519: x_return_status := fnd_api.g_ret_sts_unexp_error;
520:
521: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
522: fnd_msg_pub.add_exc_msg(g_pkg_name, 'update serial temp');
523: END IF;
581:
582: -- if the update is update quantity and decrease the quantity
583: IF (l_trolin_rec.quantity < l_old_trolin_rec.quantity) THEN
584: IF (l_trolin_rec.quantity <= 0) THEN
585: l_return_status := fnd_api.g_ret_sts_error;
586: RAISE fnd_api.g_exc_error;
587: END IF;
588:
589: l_quantity_cancel := l_old_trolin_rec.quantity - l_trolin_rec.quantity;
582: -- if the update is update quantity and decrease the quantity
583: IF (l_trolin_rec.quantity < l_old_trolin_rec.quantity) THEN
584: IF (l_trolin_rec.quantity <= 0) THEN
585: l_return_status := fnd_api.g_ret_sts_error;
586: RAISE fnd_api.g_exc_error;
587: END IF;
588:
589: l_quantity_cancel := l_old_trolin_rec.quantity - l_trolin_rec.quantity;
590:
588:
589: l_quantity_cancel := l_old_trolin_rec.quantity - l_trolin_rec.quantity;
590:
591: IF (l_quantity_cancel > (l_trolin_rec.quantity - l_trolin_rec.quantity_delivered)) THEN
592: l_return_status := fnd_api.g_ret_sts_error;
593: RAISE fnd_api.g_exc_error;
594: END IF;
595:
596: l_trolin_rec.quantity_detailed := l_trolin_rec.quantity_detailed - l_quantity_cancel;
589: l_quantity_cancel := l_old_trolin_rec.quantity - l_trolin_rec.quantity;
590:
591: IF (l_quantity_cancel > (l_trolin_rec.quantity - l_trolin_rec.quantity_delivered)) THEN
592: l_return_status := fnd_api.g_ret_sts_error;
593: RAISE fnd_api.g_exc_error;
594: END IF;
595:
596: l_trolin_rec.quantity_detailed := l_trolin_rec.quantity_detailed - l_quantity_cancel;
597: -- nsinghi bug#5724815 Update the secondary_quantity_detailed also. Fetch l_quantity_cancel in sec uom and deduct from secondary_quantity_detailed.
614: fnd_message.set_name('INV', 'INV_INVALID_UOM_CONV');
615: fnd_message.set_token('VALUE1', l_old_trolin_rec.secondary_uom);
616: fnd_message.set_token('VALUE2', l_trolin_rec.uom_code);
617: fnd_msg_pub.ADD;
618: RAISE fnd_api.g_exc_unexpected_error;
619: END IF;
620: IF l_trolin_rec.secondary_quantity_detailed IS NOT NULL THEN
621: l_trolin_rec.secondary_quantity_detailed := l_trolin_rec.secondary_quantity_detailed - l_sec_quantity_cancel;
622: IF l_trolin_rec.secondary_quantity_detailed < 0 THEN
665: , x_mtl_reservation_tbl_count => l_mtl_reservation_count
666: , x_error_code => l_error_code
667: );
668:
669: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
670: RAISE fnd_api.g_exc_unexpected_error;
671: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
672: RAISE fnd_api.g_exc_error;
673: END IF;
666: , x_error_code => l_error_code
667: );
668:
669: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
670: RAISE fnd_api.g_exc_unexpected_error;
671: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
672: RAISE fnd_api.g_exc_error;
673: END IF;
674:
667: );
668:
669: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
670: RAISE fnd_api.g_exc_unexpected_error;
671: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
672: RAISE fnd_api.g_exc_error;
673: END IF;
674:
675: l_to_rsv_rec := l_mtl_reservation(1);
668:
669: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
670: RAISE fnd_api.g_exc_unexpected_error;
671: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
672: RAISE fnd_api.g_exc_error;
673: END IF;
674:
675: l_to_rsv_rec := l_mtl_reservation(1);
676: l_rsv_temp_rec := l_mtl_reservation(1);
707: , p_creation_date => l_troldt_tbl(l_counter).creation_date
708: , p_created_by => l_troldt_tbl(l_counter).created_by
709: );
710:
711: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
712: RAISE fnd_api.g_exc_unexpected_error;
713: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
714: RAISE fnd_api.g_exc_error;
715: END IF;
708: , p_created_by => l_troldt_tbl(l_counter).created_by
709: );
710:
711: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
712: RAISE fnd_api.g_exc_unexpected_error;
713: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
714: RAISE fnd_api.g_exc_error;
715: END IF;
716: END IF;
709: );
710:
711: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
712: RAISE fnd_api.g_exc_unexpected_error;
713: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
714: RAISE fnd_api.g_exc_error;
715: END IF;
716: END IF;
717:
710:
711: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
712: RAISE fnd_api.g_exc_unexpected_error;
713: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
714: RAISE fnd_api.g_exc_error;
715: END IF;
716: END IF;
717:
718: -- bug 2195303
718: -- bug 2195303
719: IF l_serial_control_code IN (2, 5) THEN
720: 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);
721:
722: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
723: RAISE fnd_api.g_exc_unexpected_error;
724: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
725: RAISE fnd_api.g_exc_error;
726: END IF;
719: IF l_serial_control_code IN (2, 5) THEN
720: 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);
721:
722: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
723: RAISE fnd_api.g_exc_unexpected_error;
724: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
725: RAISE fnd_api.g_exc_error;
726: END IF;
727: END IF;
720: 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);
721:
722: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
723: RAISE fnd_api.g_exc_unexpected_error;
724: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
725: RAISE fnd_api.g_exc_error;
726: END IF;
727: END IF;
728:
721:
722: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
723: RAISE fnd_api.g_exc_unexpected_error;
724: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
725: RAISE fnd_api.g_exc_error;
726: END IF;
727: END IF;
728:
729: l_quantity_cancel := l_quantity_cancel - l_troldt_tbl(l_counter).transaction_quantity;
732: inv_replenish_detail_pub.clear_record(
733: p_trx_tmp_id => l_troldt_tbl(l_counter).transaction_temp_id,
734: p_success => l_success);
735: if( not l_success ) then
736: raise FND_API.G_EXC_ERROR;
737: end if;
738: EXCEPTION
739: WHEN OTHERS THEN
740: RAISE fnd_api.g_exc_unexpected_error;
736: raise FND_API.G_EXC_ERROR;
737: end if;
738: EXCEPTION
739: WHEN OTHERS THEN
740: RAISE fnd_api.g_exc_unexpected_error;
741: END;
742: IF p_delete_mmtt = 'YES' THEN --Added bug3524130
743: 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);
744: END IF;
742: IF p_delete_mmtt = 'YES' THEN --Added bug3524130
743: 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);
744: END IF;
745:
746: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
747: RAISE fnd_api.g_exc_unexpected_error;
748: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
749: RAISE fnd_api.g_exc_error;
750: END IF;
743: 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);
744: END IF;
745:
746: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
747: RAISE fnd_api.g_exc_unexpected_error;
748: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
749: RAISE fnd_api.g_exc_error;
750: END IF;
751: ELSIF (l_troldt_tbl(l_counter).transaction_quantity > l_quantity_cancel) THEN
744: END IF;
745:
746: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
747: RAISE fnd_api.g_exc_unexpected_error;
748: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
749: RAISE fnd_api.g_exc_error;
750: END IF;
751: ELSIF (l_troldt_tbl(l_counter).transaction_quantity > l_quantity_cancel) THEN
752: IF (l_debug = 1) THEN
745:
746: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
747: RAISE fnd_api.g_exc_unexpected_error;
748: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
749: RAISE fnd_api.g_exc_error;
750: END IF;
751: ELSIF (l_troldt_tbl(l_counter).transaction_quantity > l_quantity_cancel) THEN
752: IF (l_debug = 1) THEN
753: DEBUG('only need to update the line detail', 'UPDATE TROLNDT ');
770: , p_creation_date => l_troldt_tbl(l_counter).creation_date
771: , p_created_by => l_troldt_tbl(l_counter).created_by
772: );
773:
774: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
775: RAISE fnd_api.g_exc_unexpected_error;
776: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
777: RAISE fnd_api.g_exc_error;
778: END IF;
771: , p_created_by => l_troldt_tbl(l_counter).created_by
772: );
773:
774: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
775: RAISE fnd_api.g_exc_unexpected_error;
776: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
777: RAISE fnd_api.g_exc_error;
778: END IF;
779: END IF;
772: );
773:
774: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
775: RAISE fnd_api.g_exc_unexpected_error;
776: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
777: RAISE fnd_api.g_exc_error;
778: END IF;
779: END IF;
780:
773:
774: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
775: RAISE fnd_api.g_exc_unexpected_error;
776: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
777: RAISE fnd_api.g_exc_error;
778: END IF;
779: END IF;
780:
781: -- bug 2195303
781: -- bug 2195303
782: IF l_serial_control_code IN (2, 5) THEN
783: 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);
784:
785: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
786: RAISE fnd_api.g_exc_unexpected_error;
787: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
788: RAISE fnd_api.g_exc_error;
789: END IF;
782: IF l_serial_control_code IN (2, 5) THEN
783: 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);
784:
785: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
786: RAISE fnd_api.g_exc_unexpected_error;
787: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
788: RAISE fnd_api.g_exc_error;
789: END IF;
790: END IF;
783: 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);
784:
785: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
786: RAISE fnd_api.g_exc_unexpected_error;
787: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
788: RAISE fnd_api.g_exc_error;
789: END IF;
790: END IF;
791:
784:
785: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
786: RAISE fnd_api.g_exc_unexpected_error;
787: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
788: RAISE fnd_api.g_exc_error;
789: END IF;
790: END IF;
791:
792: l_troldt_tbl(l_counter).transaction_quantity := l_troldt_tbl(l_counter).transaction_quantity - l_quantity_cancel;
815: fnd_message.set_name('INV', 'INV_INVALID_UOM_CONV');
816: fnd_message.set_token('VALUE1', l_troldt_tbl(l_counter).secondary_uom_code);
817: fnd_message.set_token('VALUE2', l_transaction_uom);
818: fnd_msg_pub.ADD;
819: RAISE fnd_api.g_exc_unexpected_error;
820: END IF;
821: IF l_secondary_uom_qty < 0 THEN
822: l_secondary_uom_qty := 0;
823: END IF;
827:
828: l_rsv_quantity := l_quantity_cancel;
829: inv_mo_line_detail_util.update_row(x_return_status => l_return_status, p_mo_line_detail_rec => l_troldt_tbl(l_counter));
830:
831: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
832: RAISE fnd_api.g_exc_unexpected_error;
833: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
834: RAISE fnd_api.g_exc_error;
835: END IF;
828: l_rsv_quantity := l_quantity_cancel;
829: inv_mo_line_detail_util.update_row(x_return_status => l_return_status, p_mo_line_detail_rec => l_troldt_tbl(l_counter));
830:
831: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
832: RAISE fnd_api.g_exc_unexpected_error;
833: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
834: RAISE fnd_api.g_exc_error;
835: END IF;
836:
829: inv_mo_line_detail_util.update_row(x_return_status => l_return_status, p_mo_line_detail_rec => l_troldt_tbl(l_counter));
830:
831: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
832: RAISE fnd_api.g_exc_unexpected_error;
833: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
834: RAISE fnd_api.g_exc_error;
835: END IF;
836:
837: l_quantity_cancel := 0;
830:
831: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
832: RAISE fnd_api.g_exc_unexpected_error;
833: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
834: RAISE fnd_api.g_exc_error;
835: END IF;
836:
837: l_quantity_cancel := 0;
838: END IF;
853: , p_original_rsv_rec => l_rsv_temp_rec
854: , p_to_rsv_rec => l_to_rsv_rec
855: , p_original_serial_number => l_dummy_sn
856: , p_to_serial_number => l_dummy_sn
857: , p_validation_flag => fnd_api.g_true
858: );
859:
860: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
861: RAISE fnd_api.g_exc_unexpected_error;
856: , p_to_serial_number => l_dummy_sn
857: , p_validation_flag => fnd_api.g_true
858: );
859:
860: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
861: RAISE fnd_api.g_exc_unexpected_error;
862: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
863: RAISE fnd_api.g_exc_error;
864: END IF;
857: , p_validation_flag => fnd_api.g_true
858: );
859:
860: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
861: RAISE fnd_api.g_exc_unexpected_error;
862: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
863: RAISE fnd_api.g_exc_error;
864: END IF;
865: END IF;
858: );
859:
860: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
861: RAISE fnd_api.g_exc_unexpected_error;
862: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
863: RAISE fnd_api.g_exc_error;
864: END IF;
865: END IF;
866:
859:
860: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
861: RAISE fnd_api.g_exc_unexpected_error;
862: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
863: RAISE fnd_api.g_exc_error;
864: END IF;
865: END IF;
866:
867: IF (l_quantity_cancel <= 0) THEN
893: , p_original_rsv_rec => l_rsv_temp_rec
894: , p_to_rsv_rec => l_to_rsv_rec
895: , p_original_serial_number => l_dummy_sn
896: , p_to_serial_number => l_dummy_sn
897: , p_validation_flag => fnd_api.g_true
898: );
899:
900: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
901: RAISE fnd_api.g_exc_unexpected_error;
896: , p_to_serial_number => l_dummy_sn
897: , p_validation_flag => fnd_api.g_true
898: );
899:
900: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
901: RAISE fnd_api.g_exc_unexpected_error;
902: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
903: RAISE fnd_api.g_exc_error;
904: END IF;
897: , p_validation_flag => fnd_api.g_true
898: );
899:
900: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
901: RAISE fnd_api.g_exc_unexpected_error;
902: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
903: RAISE fnd_api.g_exc_error;
904: END IF;
905: END IF;
898: );
899:
900: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
901: RAISE fnd_api.g_exc_unexpected_error;
902: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
903: RAISE fnd_api.g_exc_error;
904: END IF;
905: END IF;
906:
899:
900: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
901: RAISE fnd_api.g_exc_unexpected_error;
902: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
903: RAISE fnd_api.g_exc_error;
904: END IF;
905: END IF;
906:
907: BEGIN
908: inv_replenish_detail_pub.clear_record(
909: p_trx_tmp_id => l_troldt_tbl(l_counter).transaction_temp_id,
910: p_success => l_success);
911: if( not l_success ) then
912: raise FND_API.G_EXC_ERROR;
913: end if;
914: EXCEPTION
915: WHEN OTHERS THEN
916: RAISE fnd_api.g_exc_unexpected_error;
912: raise FND_API.G_EXC_ERROR;
913: end if;
914: EXCEPTION
915: WHEN OTHERS THEN
916: RAISE fnd_api.g_exc_unexpected_error;
917: END;
918: 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);
919:
920: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
916: RAISE fnd_api.g_exc_unexpected_error;
917: END;
918: 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);
919:
920: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
921: RAISE fnd_api.g_exc_unexpected_error;
922: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
923: RAISE fnd_api.g_exc_error;
924: END IF;
917: END;
918: 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);
919:
920: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
921: RAISE fnd_api.g_exc_unexpected_error;
922: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
923: RAISE fnd_api.g_exc_error;
924: END IF;
925: END IF;
918: 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);
919:
920: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
921: RAISE fnd_api.g_exc_unexpected_error;
922: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
923: RAISE fnd_api.g_exc_error;
924: END IF;
925: END IF;
926: END LOOP;
919:
920: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
921: RAISE fnd_api.g_exc_unexpected_error;
922: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
923: RAISE fnd_api.g_exc_error;
924: END IF;
925: END IF;
926: END LOOP;
927: END IF;
927: END IF;
928:
929: x_trolin_rec := l_trolin_rec;
930: EXCEPTION
931: WHEN fnd_api.g_exc_error THEN
932: RAISE;
933: WHEN fnd_api.g_exc_unexpected_error THEN
934: RAISE;
935: WHEN OTHERS THEN
929: x_trolin_rec := l_trolin_rec;
930: EXCEPTION
931: WHEN fnd_api.g_exc_error THEN
932: RAISE;
933: WHEN fnd_api.g_exc_unexpected_error THEN
934: RAISE;
935: WHEN OTHERS THEN
936: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
937: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
936: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
937: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
938: END IF;
939:
940: RAISE fnd_api.g_exc_unexpected_error;
941: END update_troldt;
942:
943: PROCEDURE trohdr(
944: p_validation_level IN NUMBER
962:
963: -- Load API control record
964: l_control_rec := inv_globals.init_control_rec(p_operation => l_trohdr_rec.operation, p_control_rec => p_control_rec);
965: -- Set record return status.
966: l_trohdr_rec.return_status := fnd_api.g_ret_sts_success;
967:
968: -- Prepare record.
969: IF l_trohdr_rec.operation = inv_globals.g_opr_create THEN
970: l_trohdr_rec.db_flag := fnd_api.g_false;
966: l_trohdr_rec.return_status := fnd_api.g_ret_sts_success;
967:
968: -- Prepare record.
969: IF l_trohdr_rec.operation = inv_globals.g_opr_create THEN
970: l_trohdr_rec.db_flag := fnd_api.g_false;
971: -- Set missing old record elements to NULL.
972: l_old_trohdr_rec := inv_trohdr_util.convert_miss_to_null(l_old_trohdr_rec);
973: ELSIF l_trohdr_rec.operation = inv_globals.g_opr_update
974: OR l_trohdr_rec.operation = inv_globals.g_opr_delete THEN
971: -- Set missing old record elements to NULL.
972: l_old_trohdr_rec := inv_trohdr_util.convert_miss_to_null(l_old_trohdr_rec);
973: ELSIF l_trohdr_rec.operation = inv_globals.g_opr_update
974: OR l_trohdr_rec.operation = inv_globals.g_opr_delete THEN
975: l_trohdr_rec.db_flag := fnd_api.g_true;
976:
977: -- Query Old if missing
978: IF l_old_trohdr_rec.header_id = fnd_api.g_miss_num THEN
979: l_old_trohdr_rec := inv_trohdr_util.query_row(p_header_id => l_trohdr_rec.header_id);
974: OR l_trohdr_rec.operation = inv_globals.g_opr_delete THEN
975: l_trohdr_rec.db_flag := fnd_api.g_true;
976:
977: -- Query Old if missing
978: IF l_old_trohdr_rec.header_id = fnd_api.g_miss_num THEN
979: l_old_trohdr_rec := inv_trohdr_util.query_row(p_header_id => l_trohdr_rec.header_id);
980: ELSE
981: -- Set missing old record elements to NULL.
982: l_old_trohdr_rec := inv_trohdr_util.convert_miss_to_null(l_old_trohdr_rec);
1005: l_trohdr_rec := l_tmp_trohdr_rec;
1006:
1007: --Bug# 4554438.End
1008:
1009: IF p_validation_level > fnd_api.g_valid_level_none THEN
1010: -- Bug#2536932: Setting Missing elements of P_TROHDR_VAL_REC to NULL values.
1011: l_trohdr_val_rec := inv_trohdr_util.convert_miss_to_null(p_trohdr_val_rec);
1012: 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);
1013:
1010: -- Bug#2536932: Setting Missing elements of P_TROHDR_VAL_REC to NULL values.
1011: l_trohdr_val_rec := inv_trohdr_util.convert_miss_to_null(p_trohdr_val_rec);
1012: 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);
1013:
1014: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1015: RAISE fnd_api.g_exc_unexpected_error;
1016: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1017: RAISE fnd_api.g_exc_error;
1018: END IF;
1011: l_trohdr_val_rec := inv_trohdr_util.convert_miss_to_null(p_trohdr_val_rec);
1012: 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);
1013:
1014: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1015: RAISE fnd_api.g_exc_unexpected_error;
1016: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1017: RAISE fnd_api.g_exc_error;
1018: END IF;
1019: END IF;
1012: 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);
1013:
1014: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1015: RAISE fnd_api.g_exc_unexpected_error;
1016: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1017: RAISE fnd_api.g_exc_error;
1018: END IF;
1019: END IF;
1020: END IF;
1013:
1014: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1015: RAISE fnd_api.g_exc_unexpected_error;
1016: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1017: RAISE fnd_api.g_exc_error;
1018: END IF;
1019: END IF;
1020: END IF;
1021:
1039: ELSE
1040: inv_validate_trohdr.entity(x_return_status => l_return_status, p_trohdr_rec => l_trohdr_rec, p_old_trohdr_rec => l_old_trohdr_rec);
1041: END IF;
1042:
1043: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1044: RAISE fnd_api.g_exc_unexpected_error;
1045: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1046: RAISE fnd_api.g_exc_error;
1047: END IF;
1040: inv_validate_trohdr.entity(x_return_status => l_return_status, p_trohdr_rec => l_trohdr_rec, p_old_trohdr_rec => l_old_trohdr_rec);
1041: END IF;
1042:
1043: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1044: RAISE fnd_api.g_exc_unexpected_error;
1045: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1046: RAISE fnd_api.g_exc_error;
1047: END IF;
1048: END IF;
1041: END IF;
1042:
1043: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1044: RAISE fnd_api.g_exc_unexpected_error;
1045: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1046: RAISE fnd_api.g_exc_error;
1047: END IF;
1048: END IF;
1049:
1042:
1043: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1044: RAISE fnd_api.g_exc_unexpected_error;
1045: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1046: RAISE fnd_api.g_exc_error;
1047: END IF;
1048: END IF;
1049:
1050: -- Step 4. Write to DB
1073: x_trohdr_rec := l_trohdr_rec;
1074: --debug(l_trohdr_rec.header_id);
1075: x_old_trohdr_rec := l_old_trohdr_rec;
1076: EXCEPTION
1077: WHEN fnd_api.g_exc_error THEN
1078: l_trohdr_rec.return_status := fnd_api.g_ret_sts_error;
1079: x_trohdr_rec := l_trohdr_rec;
1080: x_old_trohdr_rec := l_old_trohdr_rec;
1081: RAISE;
1074: --debug(l_trohdr_rec.header_id);
1075: x_old_trohdr_rec := l_old_trohdr_rec;
1076: EXCEPTION
1077: WHEN fnd_api.g_exc_error THEN
1078: l_trohdr_rec.return_status := fnd_api.g_ret_sts_error;
1079: x_trohdr_rec := l_trohdr_rec;
1080: x_old_trohdr_rec := l_old_trohdr_rec;
1081: RAISE;
1082: WHEN fnd_api.g_exc_unexpected_error THEN
1078: l_trohdr_rec.return_status := fnd_api.g_ret_sts_error;
1079: x_trohdr_rec := l_trohdr_rec;
1080: x_old_trohdr_rec := l_old_trohdr_rec;
1081: RAISE;
1082: WHEN fnd_api.g_exc_unexpected_error THEN
1083: l_trohdr_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1084: x_trohdr_rec := l_trohdr_rec;
1085: x_old_trohdr_rec := l_old_trohdr_rec;
1086: RAISE;
1079: x_trohdr_rec := l_trohdr_rec;
1080: x_old_trohdr_rec := l_old_trohdr_rec;
1081: RAISE;
1082: WHEN fnd_api.g_exc_unexpected_error THEN
1083: l_trohdr_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1084: x_trohdr_rec := l_trohdr_rec;
1085: x_old_trohdr_rec := l_old_trohdr_rec;
1086: RAISE;
1087: WHEN OTHERS THEN
1088: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1089: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trohdr');
1090: END IF;
1091:
1092: l_trohdr_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1093: x_trohdr_rec := l_trohdr_rec;
1094: x_old_trohdr_rec := l_old_trohdr_rec;
1095: RAISE fnd_api.g_exc_unexpected_error;
1096: END trohdr;
1091:
1092: l_trohdr_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1093: x_trohdr_rec := l_trohdr_rec;
1094: x_old_trohdr_rec := l_old_trohdr_rec;
1095: RAISE fnd_api.g_exc_unexpected_error;
1096: END trohdr;
1097:
1098: -- Trolins
1099:
1171: END IF;
1172:
1173: IF NVL(l_trolin_rec.ship_set_id, -99) = NVL(l_failed_ship_set_id, -999) THEN
1174: DEBUG('MO Line failed due to Ship Set validation: ' || to_char(l_trolin_rec.line_id), 'Inv_Transfer_Order_PVT.Trolins');
1175: RAISE fnd_api.g_exc_error;
1176: END IF;
1177:
1178: /* Bug 2504964: Tracking Ship Set : Code Ends */
1179:
1197: --l_trohdr_rec := inv_trohdr_util.query_row(l_trolin_tbl(I).header_id);
1198: --l_move_order_type := l_trohdr_rec.move_order_type;
1199:
1200: -- Set record return status.
1201: l_trolin_rec.return_status := fnd_api.g_ret_sts_success;
1202: -- Prepare record.
1203: IF (l_debug = 1) THEN
1204: DEBUG('Trolin operation:'|| l_trolin_rec.operation, 'Inv_Transfer_Order_PVT.Trolins');
1205: END IF;
1204: DEBUG('Trolin operation:'|| l_trolin_rec.operation, 'Inv_Transfer_Order_PVT.Trolins');
1205: END IF;
1206:
1207: IF l_trolin_rec.operation = inv_globals.g_opr_create THEN
1208: l_trolin_rec.db_flag := fnd_api.g_false;
1209: -- Set missing old record elements to NULL.
1210: --debug('Trolin convert');
1211: IF (l_debug = 1) THEN
1212: DEBUG('Trolin convert', 'Inv_Transfer_Order_PVT.Trolins');
1213: END IF;
1214: l_old_trolin_rec := inv_trolin_util.convert_miss_to_null(l_old_trolin_rec);
1215: ELSIF l_trolin_rec.operation = inv_globals.g_opr_update
1216: OR l_trolin_rec.operation = inv_globals.g_opr_delete THEN
1217: l_trolin_rec.db_flag := fnd_api.g_true;
1218:
1219: -- Query Old if missing
1220: IF l_old_trolin_rec.line_id = fnd_api.g_miss_num THEN
1221: --debug('Trolin line_id miss num');
1216: OR l_trolin_rec.operation = inv_globals.g_opr_delete THEN
1217: l_trolin_rec.db_flag := fnd_api.g_true;
1218:
1219: -- Query Old if missing
1220: IF l_old_trolin_rec.line_id = fnd_api.g_miss_num THEN
1221: --debug('Trolin line_id miss num');
1222: IF (l_debug = 1) THEN
1223: DEBUG('Trolin line_id miss num', 'Inv_Transfer_Order_PVT.Trolins');
1224: END IF;
1247: l_cur_mfg_org_id := TO_NUMBER(FND_PROFILE.VALUE('MFG_ORGANIZATION_ID'));
1248: l_cur_line_org_id := l_trolin_rec.organization_id;
1249:
1250: IF ( ( (l_cur_mfg_org_id IS NULL) OR
1251: (l_cur_mfg_org_id IS NOT NULL AND l_cur_mfg_org_id = FND_API.G_MISS_NUM)
1252: ) AND
1253: (l_cur_line_org_id IS NOT NULL AND l_cur_line_org_id <> FND_API.G_MISS_NUM)
1254: ) THEN
1255: FND_PROFILE.put('MFG_ORGANIZATION_ID',l_trolin_rec.organization_id);
1249:
1250: IF ( ( (l_cur_mfg_org_id IS NULL) OR
1251: (l_cur_mfg_org_id IS NOT NULL AND l_cur_mfg_org_id = FND_API.G_MISS_NUM)
1252: ) AND
1253: (l_cur_line_org_id IS NOT NULL AND l_cur_line_org_id <> FND_API.G_MISS_NUM)
1254: ) THEN
1255: FND_PROFILE.put('MFG_ORGANIZATION_ID',l_trolin_rec.organization_id);
1256: END IF;
1257:
1271: , x_trolin_rec => l_tmp_trolin_rec);
1272:
1273: l_trolin_rec := l_tmp_trolin_rec;
1274:
1275: IF p_validation_level > fnd_api.g_valid_level_none THEN
1276: 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);
1277:
1278: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1279: --debug('error in validate_attributes');
1274:
1275: IF p_validation_level > fnd_api.g_valid_level_none THEN
1276: 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);
1277:
1278: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1279: --debug('error in validate_attributes');
1280: IF (l_debug = 1) THEN
1281: DEBUG('error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1282: END IF;
1279: --debug('error in validate_attributes');
1280: IF (l_debug = 1) THEN
1281: DEBUG('error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1282: END IF;
1283: RAISE fnd_api.g_exc_unexpected_error;
1284: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1285: IF (l_debug = 1) THEN
1286: DEBUG('exc error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1287: END IF;
1280: IF (l_debug = 1) THEN
1281: DEBUG('error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1282: END IF;
1283: RAISE fnd_api.g_exc_unexpected_error;
1284: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1285: IF (l_debug = 1) THEN
1286: DEBUG('exc error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1287: END IF;
1288: RAISE fnd_api.g_exc_error;
1284: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1285: IF (l_debug = 1) THEN
1286: DEBUG('exc error in validate_attributes', 'Inv_Transfer_Order_PVT.Trolins');
1287: END IF;
1288: RAISE fnd_api.g_exc_error;
1289: END IF;
1290: END IF;
1291: END IF;
1292:
1324: END IF;
1325: 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);
1326: END IF;
1327:
1328: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1329: l_trolin_rec.return_status := l_return_status;
1330: RAISE fnd_api.g_exc_unexpected_error;
1331: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1332: l_trolin_rec.return_status := l_return_status;
1326: END IF;
1327:
1328: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1329: l_trolin_rec.return_status := l_return_status;
1330: RAISE fnd_api.g_exc_unexpected_error;
1331: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1332: l_trolin_rec.return_status := l_return_status;
1333: IF (l_debug = 1) THEN
1334: DEBUG('Error from Trolin Validate Entity', 'Inv_Transfer_Order_PVT.Trolins');
1327:
1328: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1329: l_trolin_rec.return_status := l_return_status;
1330: RAISE fnd_api.g_exc_unexpected_error;
1331: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1332: l_trolin_rec.return_status := l_return_status;
1333: IF (l_debug = 1) THEN
1334: DEBUG('Error from Trolin Validate Entity', 'Inv_Transfer_Order_PVT.Trolins');
1335: END IF;
1332: l_trolin_rec.return_status := l_return_status;
1333: IF (l_debug = 1) THEN
1334: DEBUG('Error from Trolin Validate Entity', 'Inv_Transfer_Order_PVT.Trolins');
1335: END IF;
1336: RAISE fnd_api.g_exc_error;
1337: END IF;
1338: END IF;
1339:
1340: --debug('AFter Trolin Validate Entity');
1377: fnd_message.set_name('INV', 'INV_INVALID_UOM_CONV');
1378: fnd_message.set_token('VALUE1', l_old_trolin_rec.secondary_uom);
1379: fnd_message.set_token('VALUE2', l_trolin_rec.uom_code);
1380: fnd_msg_pub.ADD;
1381: RAISE fnd_api.g_exc_unexpected_error;
1382: END IF;
1383: END IF;
1384: -- END
1385:
1402: DEBUG('Calling Delete_Troldt', 'Inv_Transfer_Order_PVT.Trolins');
1403: END IF;
1404: 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);
1405:
1406: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1407: l_trolin_rec.return_status := l_return_status;
1408: RAISE fnd_api.g_exc_unexpected_error;
1409: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1410: l_trolin_rec.return_status := l_return_status;
1404: 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);
1405:
1406: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1407: l_trolin_rec.return_status := l_return_status;
1408: RAISE fnd_api.g_exc_unexpected_error;
1409: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1410: l_trolin_rec.return_status := l_return_status;
1411: RAISE fnd_api.g_exc_error;
1412: END IF;
1405:
1406: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1407: l_trolin_rec.return_status := l_return_status;
1408: RAISE fnd_api.g_exc_unexpected_error;
1409: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1410: l_trolin_rec.return_status := l_return_status;
1411: RAISE fnd_api.g_exc_error;
1412: END IF;
1413: END IF;
1407: l_trolin_rec.return_status := l_return_status;
1408: RAISE fnd_api.g_exc_unexpected_error;
1409: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1410: l_trolin_rec.return_status := l_return_status;
1411: RAISE fnd_api.g_exc_error;
1412: END IF;
1413: END IF;
1414:
1415: inv_trolin_util.delete_row(p_line_id => l_trolin_rec.line_id);
1465: , x_trolin_rec => l_trolin_rec
1466: , p_delete_mmtt => p_delete_mmtt --Added bug 3524130
1467: );
1468:
1469: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1470: IF (l_debug = 1) THEN
1471: DEBUG('got error', 'Inv_Transfer_Order_PVT.Trolins');
1472: END IF;
1473: l_trolin_rec.return_status := l_return_status;
1470: IF (l_debug = 1) THEN
1471: DEBUG('got error', 'Inv_Transfer_Order_PVT.Trolins');
1472: END IF;
1473: l_trolin_rec.return_status := l_return_status;
1474: RAISE fnd_api.g_exc_unexpected_error;
1475: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1476: l_trolin_rec.return_status := l_return_status;
1477: RAISE fnd_api.g_exc_error;
1478: END IF;
1471: DEBUG('got error', 'Inv_Transfer_Order_PVT.Trolins');
1472: END IF;
1473: l_trolin_rec.return_status := l_return_status;
1474: RAISE fnd_api.g_exc_unexpected_error;
1475: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1476: l_trolin_rec.return_status := l_return_status;
1477: RAISE fnd_api.g_exc_error;
1478: END IF;
1479: END IF;
1473: l_trolin_rec.return_status := l_return_status;
1474: RAISE fnd_api.g_exc_unexpected_error;
1475: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1476: l_trolin_rec.return_status := l_return_status;
1477: RAISE fnd_api.g_exc_error;
1478: END IF;
1479: END IF;
1480: END IF;
1481:
1510: l_trolin_tbl(i) := l_trolin_rec;
1511: l_old_trolin_tbl(i) := l_old_trolin_rec;
1512: -- For loop exception handler.
1513: EXCEPTION
1514: WHEN fnd_api.g_exc_error THEN
1515: l_trolin_rec.return_status := fnd_api.g_ret_sts_error;
1516: l_trolin_tbl(i) := l_trolin_rec;
1517: l_old_trolin_tbl(i) := l_old_trolin_rec;
1518:
1511: l_old_trolin_tbl(i) := l_old_trolin_rec;
1512: -- For loop exception handler.
1513: EXCEPTION
1514: WHEN fnd_api.g_exc_error THEN
1515: l_trolin_rec.return_status := fnd_api.g_ret_sts_error;
1516: l_trolin_tbl(i) := l_trolin_rec;
1517: l_old_trolin_tbl(i) := l_old_trolin_rec;
1518:
1519: /* Bug 2504964: One of the MO Lines in the ShipSet failed.
1527: END IF;
1528:
1529: FOR l_count IN 1 .. l_trolin_tbl.COUNT LOOP
1530: IF l_trolin_tbl(l_count).ship_set_id = NVL(l_failed_ship_set_id, -99) THEN
1531: l_trolin_tbl(l_count).return_status := fnd_api.g_ret_sts_error;
1532: END IF;
1533: END LOOP;
1534:
1535: l_marked_failed_shipset := TRUE;
1539: --Bug 4756455 (11.5.10 bug 4755172 )
1540: --Reverted change of Bug 4329971,4699505 here and removed the code
1541:
1542:
1543: WHEN fnd_api.g_exc_unexpected_error THEN
1544: l_trolin_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1545: l_trolin_tbl(i) := l_trolin_rec;
1546: l_old_trolin_tbl(i) := l_old_trolin_rec;
1547: RAISE fnd_api.g_exc_unexpected_error;
1540: --Reverted change of Bug 4329971,4699505 here and removed the code
1541:
1542:
1543: WHEN fnd_api.g_exc_unexpected_error THEN
1544: l_trolin_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1545: l_trolin_tbl(i) := l_trolin_rec;
1546: l_old_trolin_tbl(i) := l_old_trolin_rec;
1547: RAISE fnd_api.g_exc_unexpected_error;
1548: WHEN OTHERS THEN
1543: WHEN fnd_api.g_exc_unexpected_error THEN
1544: l_trolin_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1545: l_trolin_tbl(i) := l_trolin_rec;
1546: l_old_trolin_tbl(i) := l_old_trolin_rec;
1547: RAISE fnd_api.g_exc_unexpected_error;
1548: WHEN OTHERS THEN
1549: l_trolin_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1550: l_trolin_tbl(i) := l_trolin_rec;
1551: l_old_trolin_tbl(i) := l_old_trolin_rec;
1545: l_trolin_tbl(i) := l_trolin_rec;
1546: l_old_trolin_tbl(i) := l_old_trolin_rec;
1547: RAISE fnd_api.g_exc_unexpected_error;
1548: WHEN OTHERS THEN
1549: l_trolin_rec.return_status := fnd_api.g_ret_sts_unexp_error;
1550: l_trolin_tbl(i) := l_trolin_rec;
1551: l_old_trolin_tbl(i) := l_old_trolin_rec;
1552:
1553: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1553: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1554: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
1555: END IF;
1556:
1557: RAISE fnd_api.g_exc_unexpected_error;
1558: END;
1559: END LOOP;
1560:
1561: -- Load OUT parameters
1562:
1563: x_trolin_tbl := l_trolin_tbl;
1564: x_old_trolin_tbl := l_old_trolin_tbl;
1565: EXCEPTION
1566: WHEN fnd_api.g_exc_error THEN
1567: RAISE;
1568: WHEN fnd_api.g_exc_unexpected_error THEN
1569: RAISE;
1570: WHEN OTHERS THEN
1564: x_old_trolin_tbl := l_old_trolin_tbl;
1565: EXCEPTION
1566: WHEN fnd_api.g_exc_error THEN
1567: RAISE;
1568: WHEN fnd_api.g_exc_unexpected_error THEN
1569: RAISE;
1570: WHEN OTHERS THEN
1571: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1572: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
1571: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1572: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Trolins');
1573: END IF;
1574:
1575: RAISE fnd_api.g_exc_unexpected_error;
1576: END trolins;
1577:
1578: /*Procedure Get_Reservations(
1579: x_return_status OUT VARCHAR2,
1583: p_source_line_id IN NUMBER,
1584: p_source_delivery_id IN NUMBER,
1585: p_organization_id IN NUMBER,
1586: p_inventory_item_id IN NUMBER,
1587: p_subinventory_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1588: p_locator_id IN NUMBER := FND_API.G_MISS_NUM,
1589: p_revision IN VARCHAR2 := FND_API.G_MISS_CHAR,
1590: p_lot_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1591: p_serial_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1584: p_source_delivery_id IN NUMBER,
1585: p_organization_id IN NUMBER,
1586: p_inventory_item_id IN NUMBER,
1587: p_subinventory_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1588: p_locator_id IN NUMBER := FND_API.G_MISS_NUM,
1589: p_revision IN VARCHAR2 := FND_API.G_MISS_CHAR,
1590: p_lot_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1591: p_serial_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1592: x_mtl_reservation_tbl OUT INV_RESERVATION_GLOBAL.MTL_RESERVATION_TBL_TYPE
1585: p_organization_id IN NUMBER,
1586: p_inventory_item_id IN NUMBER,
1587: p_subinventory_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1588: p_locator_id IN NUMBER := FND_API.G_MISS_NUM,
1589: p_revision IN VARCHAR2 := FND_API.G_MISS_CHAR,
1590: p_lot_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1591: p_serial_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1592: x_mtl_reservation_tbl OUT INV_RESERVATION_GLOBAL.MTL_RESERVATION_TBL_TYPE
1593: )
1586: p_inventory_item_id IN NUMBER,
1587: p_subinventory_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1588: p_locator_id IN NUMBER := FND_API.G_MISS_NUM,
1589: p_revision IN VARCHAR2 := FND_API.G_MISS_CHAR,
1590: p_lot_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1591: p_serial_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1592: x_mtl_reservation_tbl OUT INV_RESERVATION_GLOBAL.MTL_RESERVATION_TBL_TYPE
1593: )
1594: IS
1587: p_subinventory_code IN VARCHAR2 := FND_API.G_MISS_CHAR,
1588: p_locator_id IN NUMBER := FND_API.G_MISS_NUM,
1589: p_revision IN VARCHAR2 := FND_API.G_MISS_CHAR,
1590: p_lot_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1591: p_serial_number IN VARCHAR2 := FND_API.G_MISS_CHAR,
1592: x_mtl_reservation_tbl OUT INV_RESERVATION_GLOBAL.MTL_RESERVATION_TBL_TYPE
1593: )
1594: IS
1595: l_rsv_temp_rec INV_RESERVATION_GLOBAL.MTL_RESERVATION_REC_TYPE;
1622: if(l_mtl_reservation(l_count).revision is null ) then
1623: if( l_mtl_reservation(l_count).lot_number is null) then
1624: if( l_mtl_reservation(l_count).serial_number is null) then
1625: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1626: elsif( p_serial_number <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).serial_number =p_serial_number) then
1627: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1628: end if;
1629: elsif( p_lot_number <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).lot_number =p_lot_number) then
1630: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1625: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1626: elsif( p_serial_number <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).serial_number =p_serial_number) then
1627: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1628: end if;
1629: elsif( p_lot_number <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).lot_number =p_lot_number) then
1630: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1631: end if;
1632: elsif( p_revision <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).revision =p_revision) then
1633: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1628: end if;
1629: elsif( p_lot_number <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).lot_number =p_lot_number) then
1630: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1631: end if;
1632: elsif( p_revision <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).revision =p_revision) then
1633: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1634: end if;
1635: elsif( p_locator_id <> FND_API.G_MISS_NUM AND l_mtl_reservation(l_count).locator_id =p_locator_id) then
1636: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1631: end if;
1632: elsif( p_revision <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).revision =p_revision) then
1633: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1634: end if;
1635: elsif( p_locator_id <> FND_API.G_MISS_NUM AND l_mtl_reservation(l_count).locator_id =p_locator_id) then
1636: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1637: end if;
1638: elsif( p_subinventory_code <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).subinventory_code =p_subinventory_code) then
1639: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1634: end if;
1635: elsif( p_locator_id <> FND_API.G_MISS_NUM AND l_mtl_reservation(l_count).locator_id =p_locator_id) then
1636: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1637: end if;
1638: elsif( p_subinventory_code <> FND_API.G_MISS_CHAR AND l_mtl_reservation(l_count).subinventory_code =p_subinventory_code) then
1639: l_rsv_result_tbl(l_count) := l_mtl_reservation(l_count);
1640: end if;
1641: end loop;
1642: end if; */
1642: end if; */
1643: /* x_mtl_reservation_tbl := l_rsv_result_tbl;
1644: EXCEPTION
1645:
1646: WHEN FND_API.G_EXC_ERROR THEN
1647: RAISE;
1648:
1649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1650: RAISE;
1645:
1646: WHEN FND_API.G_EXC_ERROR THEN
1647: RAISE;
1648:
1649: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1650: RAISE;
1651:
1652: WHEN OTHERS THEN
1653: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1656: ( G_PKG_NAME
1657: , 'Trolins'
1658: );
1659: END IF;
1660: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1661: END Get_Reservations;*/
1662:
1663: -- Start of Comments
1664: -- API name Process_Transfer_Order
1677: -- End of Comments
1678:
1679: PROCEDURE process_transfer_order(
1680: p_api_version_number IN NUMBER
1681: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1682: , p_commit IN VARCHAR2 := fnd_api.g_false
1683: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1684: , p_control_rec IN inv_globals.control_rec_type := inv_globals.g_miss_control_rec
1685: , x_return_status OUT NOCOPY VARCHAR2
1678:
1679: PROCEDURE process_transfer_order(
1680: p_api_version_number IN NUMBER
1681: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1682: , p_commit IN VARCHAR2 := fnd_api.g_false
1683: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1684: , p_control_rec IN inv_globals.control_rec_type := inv_globals.g_miss_control_rec
1685: , x_return_status OUT NOCOPY VARCHAR2
1686: , x_msg_count OUT NOCOPY NUMBER
1679: PROCEDURE process_transfer_order(
1680: p_api_version_number IN NUMBER
1681: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1682: , p_commit IN VARCHAR2 := fnd_api.g_false
1683: , p_validation_level IN NUMBER := fnd_api.g_valid_level_full
1684: , p_control_rec IN inv_globals.control_rec_type := inv_globals.g_miss_control_rec
1685: , x_return_status OUT NOCOPY VARCHAR2
1686: , x_msg_count OUT NOCOPY NUMBER
1687: , x_msg_data OUT NOCOPY VARCHAR2
1707: l_old_trolin_tbl inv_move_order_pub.trolin_tbl_type;
1708: l_debug number;
1709: BEGIN
1710: -- Standard call to check for call compatibility
1711: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1712: RAISE fnd_api.g_exc_unexpected_error;
1713: END IF;
1714:
1715: -- Initialize message list.
1708: l_debug number;
1709: BEGIN
1710: -- Standard call to check for call compatibility
1711: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1712: RAISE fnd_api.g_exc_unexpected_error;
1713: END IF;
1714:
1715: -- Initialize message list.
1716:
1713: END IF;
1714:
1715: -- Initialize message list.
1716:
1717: IF fnd_api.to_boolean(p_init_msg_list) THEN
1718: fnd_msg_pub.initialize;
1719: END IF;
1720:
1721: -- Use cache to get value for l_debug
1762: l_trolin_rec := l_trolin_tbl(i);
1763:
1764: IF l_trolin_rec.operation = inv_globals.g_opr_create
1765: AND (l_trolin_rec.header_id IS NULL
1766: OR l_trolin_rec.header_id = fnd_api.g_miss_num
1767: ) THEN
1768: -- Copy parent_id.
1769: IF (l_debug = 1) THEN
1770: DEBUG('Header:'|| TO_CHAR(l_trohdr_rec.header_id), 'Inv_Transfer_Order_PVT.Process_Transfer_Orders');
1798: --debug(x_trohdr_rec.header_id);
1799: x_trolin_tbl := l_trolin_tbl;
1800: --debug('AFter trolins 4');
1801: -- Derive return status.
1802: x_return_status := fnd_api.g_ret_sts_success;
1803:
1804:
1805: --Bug #4777248
1806: --Modified both the if loops by removing p_control_rec.process from the condition
1806: --Modified both the if loops by removing p_control_rec.process from the condition
1807: IF (p_control_rec.process_entity = inv_globals.g_entity_all
1808: OR p_control_rec.process_entity = inv_globals.g_entity_trohdr
1809: ) THEN
1810: IF l_trohdr_rec.return_status = fnd_api.g_ret_sts_error THEN
1811: x_return_status := fnd_api.g_ret_sts_error;
1812: END IF;
1813: END IF;
1814:
1807: IF (p_control_rec.process_entity = inv_globals.g_entity_all
1808: OR p_control_rec.process_entity = inv_globals.g_entity_trohdr
1809: ) THEN
1810: IF l_trohdr_rec.return_status = fnd_api.g_ret_sts_error THEN
1811: x_return_status := fnd_api.g_ret_sts_error;
1812: END IF;
1813: END IF;
1814:
1815: IF (p_control_rec.process_entity = inv_globals.g_entity_all
1816: OR p_control_rec.process_entity = inv_globals.g_entity_trolin
1817: ) THEN
1818: FOR i IN 1 .. l_trolin_tbl.COUNT LOOP
1819: --debug('In Loop :'||to_char(I));
1820: IF l_trolin_tbl(i).return_status = fnd_api.g_ret_sts_error THEN
1821: x_return_status := fnd_api.g_ret_sts_error;
1822: END IF;
1823: END LOOP;
1824: END IF;
1817: ) THEN
1818: FOR i IN 1 .. l_trolin_tbl.COUNT LOOP
1819: --debug('In Loop :'||to_char(I));
1820: IF l_trolin_tbl(i).return_status = fnd_api.g_ret_sts_error THEN
1821: x_return_status := fnd_api.g_ret_sts_error;
1822: END IF;
1823: END LOOP;
1824: END IF;
1825: --End Bug #4777248
1826:
1827: -- Get message count and data
1828: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1829: EXCEPTION
1830: WHEN fnd_api.g_exc_error THEN
1831: x_return_status := fnd_api.g_ret_sts_error;
1832: -- Get message count and data
1833: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1834: WHEN fnd_api.g_exc_unexpected_error THEN
1827: -- Get message count and data
1828: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1829: EXCEPTION
1830: WHEN fnd_api.g_exc_error THEN
1831: x_return_status := fnd_api.g_ret_sts_error;
1832: -- Get message count and data
1833: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1834: WHEN fnd_api.g_exc_unexpected_error THEN
1835: x_return_status := fnd_api.g_ret_sts_unexp_error;
1830: WHEN fnd_api.g_exc_error THEN
1831: x_return_status := fnd_api.g_ret_sts_error;
1832: -- Get message count and data
1833: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1834: WHEN fnd_api.g_exc_unexpected_error THEN
1835: x_return_status := fnd_api.g_ret_sts_unexp_error;
1836: -- Get message count and data
1837: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1838: WHEN OTHERS THEN
1831: x_return_status := fnd_api.g_ret_sts_error;
1832: -- Get message count and data
1833: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1834: WHEN fnd_api.g_exc_unexpected_error THEN
1835: x_return_status := fnd_api.g_ret_sts_unexp_error;
1836: -- Get message count and data
1837: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1838: WHEN OTHERS THEN
1839: x_return_status := fnd_api.g_ret_sts_unexp_error;
1835: x_return_status := fnd_api.g_ret_sts_unexp_error;
1836: -- Get message count and data
1837: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1838: WHEN OTHERS THEN
1839: x_return_status := fnd_api.g_ret_sts_unexp_error;
1840:
1841: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1842: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Process_Transfer_Order');
1843: END IF;
1863: -- End of Comments
1864:
1865: PROCEDURE lock_transfer_order(
1866: p_api_version_number IN NUMBER
1867: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1868: , x_return_status OUT NOCOPY VARCHAR2
1869: , x_msg_count OUT NOCOPY NUMBER
1870: , x_msg_data OUT NOCOPY VARCHAR2
1871: , p_trohdr_rec IN inv_move_order_pub.trohdr_rec_type := inv_move_order_pub.g_miss_trohdr_rec
1874: , x_trolin_tbl IN OUT NOCOPY inv_move_order_pub.trolin_tbl_type
1875: ) IS
1876: l_api_version_number CONSTANT NUMBER := 1.0;
1877: l_api_name CONSTANT VARCHAR2(30) := 'Lock_Transfer_Order';
1878: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1879: l_trolin_rec inv_move_order_pub.trolin_rec_type;
1880: BEGIN
1881: -- Standard call to check for call compatibility
1882: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1878: l_return_status VARCHAR2(1) := fnd_api.g_ret_sts_success;
1879: l_trolin_rec inv_move_order_pub.trolin_rec_type;
1880: BEGIN
1881: -- Standard call to check for call compatibility
1882: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1883: RAISE fnd_api.g_exc_unexpected_error;
1884: END IF;
1885:
1886: -- Initialize message list.
1879: l_trolin_rec inv_move_order_pub.trolin_rec_type;
1880: BEGIN
1881: -- Standard call to check for call compatibility
1882: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1883: RAISE fnd_api.g_exc_unexpected_error;
1884: END IF;
1885:
1886: -- Initialize message list.
1887: IF fnd_api.to_boolean(p_init_msg_list) THEN
1883: RAISE fnd_api.g_exc_unexpected_error;
1884: END IF;
1885:
1886: -- Initialize message list.
1887: IF fnd_api.to_boolean(p_init_msg_list) THEN
1888: fnd_msg_pub.initialize;
1889: END IF;
1890:
1891: -- Set Savepoint
1894: -- Lock trohdr
1895: IF p_trohdr_rec.operation = inv_globals.g_opr_lock THEN
1896: inv_trohdr_util.lock_row(p_trohdr_rec => p_trohdr_rec, x_trohdr_rec => x_trohdr_rec, x_return_status => l_return_status);
1897:
1898: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1899: RAISE fnd_api.g_exc_unexpected_error;
1900: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1901: RAISE fnd_api.g_exc_error;
1902: END IF;
1895: IF p_trohdr_rec.operation = inv_globals.g_opr_lock THEN
1896: inv_trohdr_util.lock_row(p_trohdr_rec => p_trohdr_rec, x_trohdr_rec => x_trohdr_rec, x_return_status => l_return_status);
1897:
1898: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1899: RAISE fnd_api.g_exc_unexpected_error;
1900: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1901: RAISE fnd_api.g_exc_error;
1902: END IF;
1903: END IF;
1896: inv_trohdr_util.lock_row(p_trohdr_rec => p_trohdr_rec, x_trohdr_rec => x_trohdr_rec, x_return_status => l_return_status);
1897:
1898: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1899: RAISE fnd_api.g_exc_unexpected_error;
1900: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1901: RAISE fnd_api.g_exc_error;
1902: END IF;
1903: END IF;
1904:
1897:
1898: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1899: RAISE fnd_api.g_exc_unexpected_error;
1900: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1901: RAISE fnd_api.g_exc_error;
1902: END IF;
1903: END IF;
1904:
1905: -- Lock trolin
1906: FOR i IN 1 .. p_trolin_tbl.COUNT LOOP
1907: IF p_trolin_tbl(i).operation = inv_globals.g_opr_lock THEN
1908: inv_trolin_util.lock_row(p_trolin_rec => p_trolin_tbl(i), x_trolin_rec => l_trolin_rec, x_return_status => l_return_status);
1909:
1910: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1911: RAISE fnd_api.g_exc_unexpected_error;
1912: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1913: RAISE fnd_api.g_exc_error;
1914: END IF;
1907: IF p_trolin_tbl(i).operation = inv_globals.g_opr_lock THEN
1908: inv_trolin_util.lock_row(p_trolin_rec => p_trolin_tbl(i), x_trolin_rec => l_trolin_rec, x_return_status => l_return_status);
1909:
1910: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1911: RAISE fnd_api.g_exc_unexpected_error;
1912: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1913: RAISE fnd_api.g_exc_error;
1914: END IF;
1915:
1908: inv_trolin_util.lock_row(p_trolin_rec => p_trolin_tbl(i), x_trolin_rec => l_trolin_rec, x_return_status => l_return_status);
1909:
1910: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1911: RAISE fnd_api.g_exc_unexpected_error;
1912: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1913: RAISE fnd_api.g_exc_error;
1914: END IF;
1915:
1916: x_trolin_tbl(i) := l_trolin_rec;
1909:
1910: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
1911: RAISE fnd_api.g_exc_unexpected_error;
1912: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
1913: RAISE fnd_api.g_exc_error;
1914: END IF;
1915:
1916: x_trolin_tbl(i) := l_trolin_rec;
1917: END IF;
1917: END IF;
1918: END LOOP;
1919:
1920: -- Set return status
1921: x_return_status := fnd_api.g_ret_sts_success;
1922: -- Get message count and data
1923: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1924: EXCEPTION
1925: WHEN fnd_api.g_exc_error THEN
1921: x_return_status := fnd_api.g_ret_sts_success;
1922: -- Get message count and data
1923: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1924: EXCEPTION
1925: WHEN fnd_api.g_exc_error THEN
1926: x_return_status := fnd_api.g_ret_sts_error;
1927: -- Get message count and data
1928: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1929: -- Rollback
1922: -- Get message count and data
1923: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1924: EXCEPTION
1925: WHEN fnd_api.g_exc_error THEN
1926: x_return_status := fnd_api.g_ret_sts_error;
1927: -- Get message count and data
1928: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1929: -- Rollback
1930: ROLLBACK TO lock_transfer_order_pvt;
1927: -- Get message count and data
1928: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1929: -- Rollback
1930: ROLLBACK TO lock_transfer_order_pvt;
1931: WHEN fnd_api.g_exc_unexpected_error THEN
1932: x_return_status := fnd_api.g_ret_sts_unexp_error;
1933: -- Get message count and data
1934: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1935: -- Rollback
1928: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1929: -- Rollback
1930: ROLLBACK TO lock_transfer_order_pvt;
1931: WHEN fnd_api.g_exc_unexpected_error THEN
1932: x_return_status := fnd_api.g_ret_sts_unexp_error;
1933: -- Get message count and data
1934: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1935: -- Rollback
1936: ROLLBACK TO lock_transfer_order_pvt;
1934: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
1935: -- Rollback
1936: ROLLBACK TO lock_transfer_order_pvt;
1937: WHEN OTHERS THEN
1938: x_return_status := fnd_api.g_ret_sts_unexp_error;
1939:
1940: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
1941: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Lock_Transfer_Order');
1942: END IF;
1964: -- End of Comments
1965:
1966: PROCEDURE get_transfer_order(
1967: p_api_version_number IN NUMBER
1968: , p_init_msg_list IN VARCHAR2 := fnd_api.g_false
1969: , x_return_status OUT NOCOPY VARCHAR2
1970: , x_msg_count OUT NOCOPY NUMBER
1971: , x_msg_data OUT NOCOPY VARCHAR2
1972: , p_header_id IN NUMBER
1978: l_trohdr_rec inv_move_order_pub.trohdr_rec_type;
1979: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
1980: BEGIN
1981: -- Standard call to check for call compatibility
1982: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1983: RAISE fnd_api.g_exc_unexpected_error;
1984: END IF;
1985:
1986: -- Initialize message list.
1979: l_trolin_tbl inv_move_order_pub.trolin_tbl_type;
1980: BEGIN
1981: -- Standard call to check for call compatibility
1982: IF NOT fnd_api.compatible_api_call(l_api_version_number, p_api_version_number, l_api_name, g_pkg_name) THEN
1983: RAISE fnd_api.g_exc_unexpected_error;
1984: END IF;
1985:
1986: -- Initialize message list.
1987: IF fnd_api.to_boolean(p_init_msg_list) THEN
1983: RAISE fnd_api.g_exc_unexpected_error;
1984: END IF;
1985:
1986: -- Initialize message list.
1987: IF fnd_api.to_boolean(p_init_msg_list) THEN
1988: fnd_msg_pub.initialize;
1989: END IF;
1990:
1991: -- Get trohdr ( parent = trohdr )
1996: -- Load out parameters
1997: x_trohdr_rec := l_trohdr_rec;
1998: x_trolin_tbl := l_trolin_tbl;
1999: -- Set return status
2000: x_return_status := fnd_api.g_ret_sts_success;
2001: -- Get message count and data
2002: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2003: EXCEPTION
2004: WHEN fnd_api.g_exc_error THEN
2000: x_return_status := fnd_api.g_ret_sts_success;
2001: -- Get message count and data
2002: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2003: EXCEPTION
2004: WHEN fnd_api.g_exc_error THEN
2005: x_return_status := fnd_api.g_ret_sts_error;
2006: -- Get message count and data
2007: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2008: WHEN fnd_api.g_exc_unexpected_error THEN
2001: -- Get message count and data
2002: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2003: EXCEPTION
2004: WHEN fnd_api.g_exc_error THEN
2005: x_return_status := fnd_api.g_ret_sts_error;
2006: -- Get message count and data
2007: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2008: WHEN fnd_api.g_exc_unexpected_error THEN
2009: x_return_status := fnd_api.g_ret_sts_unexp_error;
2004: WHEN fnd_api.g_exc_error THEN
2005: x_return_status := fnd_api.g_ret_sts_error;
2006: -- Get message count and data
2007: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2008: WHEN fnd_api.g_exc_unexpected_error THEN
2009: x_return_status := fnd_api.g_ret_sts_unexp_error;
2010: -- Get message count and data
2011: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2012: WHEN OTHERS THEN
2005: x_return_status := fnd_api.g_ret_sts_error;
2006: -- Get message count and data
2007: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2008: WHEN fnd_api.g_exc_unexpected_error THEN
2009: x_return_status := fnd_api.g_ret_sts_unexp_error;
2010: -- Get message count and data
2011: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2012: WHEN OTHERS THEN
2013: x_return_status := fnd_api.g_ret_sts_unexp_error;
2009: x_return_status := fnd_api.g_ret_sts_unexp_error;
2010: -- Get message count and data
2011: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2012: WHEN OTHERS THEN
2013: x_return_status := fnd_api.g_ret_sts_unexp_error;
2014:
2015: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2016: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Get_Transfer_Order');
2017: END IF;
2091: -- g_from_sub.asset_inventory := p_from_sub_asset;
2092: l_return := inv_validate.to_subinventory(l_sub, l_org, l_item, g_from_sub, l_acct_txn);
2093:
2094: IF (l_return = inv_validate.f) THEN
2095: --l_error_msg := FND_MSG_PUB.GET(p_encoded => FND_API.G_FALSE);
2096: l_result := FALSE;
2097: ELSE
2098: l_result := TRUE;
2099: END IF;
2175: x_mtl_reservation_tbl => l_mtl_reservation_tbl,
2176: x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count,
2177: x_error_code => l_error_code);
2178:
2179: IF l_return_status = fnd_api.g_ret_sts_error THEN
2180:
2181: IF (l_debug = 1) THEN
2182: debug('Error from query_reservations', 'update_txn_source_line');
2183: END IF;
2181: IF (l_debug = 1) THEN
2182: debug('Error from query_reservations', 'update_txn_source_line');
2183: END IF;
2184:
2185: RAISE fnd_api.g_exc_error;
2186: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2187:
2188: IF (l_debug = 1) THEN
2189: debug('Error from query_reservations', 'update_txn_source_line');
2182: debug('Error from query_reservations', 'update_txn_source_line');
2183: END IF;
2184:
2185: RAISE fnd_api.g_exc_error;
2186: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2187:
2188: IF (l_debug = 1) THEN
2189: debug('Error from query_reservations', 'update_txn_source_line');
2190: END IF;
2188: IF (l_debug = 1) THEN
2189: debug('Error from query_reservations', 'update_txn_source_line');
2190: END IF;
2191:
2192: RAISE fnd_api.g_exc_unexpected_error;
2193: END IF;
2194:
2195: IF (l_debug = 1) THEN
2196: debug('Original Reservation_ID: ' || rec_mmtt.reservation_id, 'update_txn_source_line');
2207: rec_mmtt.transaction_quantity);
2208:
2209: inv_reservation_pub.transfer_reservation
2210: (p_api_version_number => 1.0,
2211: p_init_msg_lst => fnd_api.g_false,
2212: x_return_status => l_return_status,
2213: x_msg_count => l_msg_count,
2214: x_msg_data => l_msg_data,
2215: p_original_rsv_rec => l_mtl_reservation_tbl(1),
2215: p_original_rsv_rec => l_mtl_reservation_tbl(1),
2216: p_to_rsv_rec => l_new_reservation_rec,
2217: p_original_serial_number => l_original_serial_number,
2218: p_to_serial_number => l_original_serial_number,
2219: p_validation_flag => fnd_api.g_false,
2220: x_to_reservation_id => l_reservation_id);
2221:
2222: IF l_return_status = fnd_api.g_ret_sts_error THEN
2223: IF (l_debug = 1) THEN
2218: p_to_serial_number => l_original_serial_number,
2219: p_validation_flag => fnd_api.g_false,
2220: x_to_reservation_id => l_reservation_id);
2221:
2222: IF l_return_status = fnd_api.g_ret_sts_error THEN
2223: IF (l_debug = 1) THEN
2224: debug('Return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
2225: END IF;
2226:
2223: IF (l_debug = 1) THEN
2224: debug('Return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
2225: END IF;
2226:
2227: RAISE fnd_api.g_exc_error;
2228: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2229:
2230: IF (l_debug = 1) THEN
2231: debug('Return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
2224: debug('Return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
2225: END IF;
2226:
2227: RAISE fnd_api.g_exc_error;
2228: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2229:
2230: IF (l_debug = 1) THEN
2231: debug('Return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
2232: END IF;
2230: IF (l_debug = 1) THEN
2231: debug('Return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
2232: END IF;
2233:
2234: RAISE fnd_api.g_exc_unexpected_error;
2235: END IF;
2236:
2237: IF (l_debug = 1) THEN
2238: debug('New Reservation_ID: '|| l_reservation_id, 'Finalize_Pick_Confirm');
2297: END IF;
2298:
2299: l_debug := g_debug;
2300:
2301: x_return_status := fnd_api.g_ret_sts_success;
2302: IF (l_debug = 1) THEN
2303: DEBUG('Cleaning reservations', 'Clean_Reservations');
2304: END IF;
2305:
2400: -- of crossdock material, stage the move order line from Inventory.
2401: -- Ensure that the crossdock peg is not deleted }}
2402: inv_reservation_pub.delete_reservation(
2403: p_api_version_number => 1.0
2404: , p_init_msg_lst => fnd_api.g_true
2405: , x_return_status => l_return_status
2406: , x_msg_count => l_msg_count
2407: , x_msg_data => l_msg_data
2408: , p_rsv_rec => l_mtl_reservation_rec
2411: IF (l_debug = 1) THEN
2412: DEBUG('after delete reservation return status is '|| l_return_status, 'Clean_Reservations');
2413: END IF;
2414:
2415: IF l_return_status = fnd_api.g_ret_sts_error THEN
2416: RAISE fnd_api.g_exc_error;
2417: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2418: RAISE fnd_api.g_exc_unexpected_error;
2419: END IF;
2412: DEBUG('after delete reservation return status is '|| l_return_status, 'Clean_Reservations');
2413: END IF;
2414:
2415: IF l_return_status = fnd_api.g_ret_sts_error THEN
2416: RAISE fnd_api.g_exc_error;
2417: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2418: RAISE fnd_api.g_exc_unexpected_error;
2419: END IF;
2420: END LOOP;
2413: END IF;
2414:
2415: IF l_return_status = fnd_api.g_ret_sts_error THEN
2416: RAISE fnd_api.g_exc_error;
2417: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2418: RAISE fnd_api.g_exc_unexpected_error;
2419: END IF;
2420: END LOOP;
2421: END IF;
2414:
2415: IF l_return_status = fnd_api.g_ret_sts_error THEN
2416: RAISE fnd_api.g_exc_error;
2417: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
2418: RAISE fnd_api.g_exc_unexpected_error;
2419: END IF;
2420: END LOOP;
2421: END IF;
2422: EXCEPTION
2419: END IF;
2420: END LOOP;
2421: END IF;
2422: EXCEPTION
2423: WHEN fnd_api.g_exc_error THEN
2424: x_return_status := fnd_api.g_ret_sts_error;
2425: -- Get message count and data
2426: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2427: WHEN fnd_api.g_exc_unexpected_error THEN
2420: END LOOP;
2421: END IF;
2422: EXCEPTION
2423: WHEN fnd_api.g_exc_error THEN
2424: x_return_status := fnd_api.g_ret_sts_error;
2425: -- Get message count and data
2426: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2427: WHEN fnd_api.g_exc_unexpected_error THEN
2428: x_return_status := fnd_api.g_ret_sts_unexp_error;
2423: WHEN fnd_api.g_exc_error THEN
2424: x_return_status := fnd_api.g_ret_sts_error;
2425: -- Get message count and data
2426: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2427: WHEN fnd_api.g_exc_unexpected_error THEN
2428: x_return_status := fnd_api.g_ret_sts_unexp_error;
2429: -- Get message count and data
2430: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2431: WHEN OTHERS THEN
2424: x_return_status := fnd_api.g_ret_sts_error;
2425: -- Get message count and data
2426: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2427: WHEN fnd_api.g_exc_unexpected_error THEN
2428: x_return_status := fnd_api.g_ret_sts_unexp_error;
2429: -- Get message count and data
2430: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2431: WHEN OTHERS THEN
2432: x_return_status := fnd_api.g_ret_sts_unexp_error;
2428: x_return_status := fnd_api.g_ret_sts_unexp_error;
2429: -- Get message count and data
2430: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
2431: WHEN OTHERS THEN
2432: x_return_status := fnd_api.g_ret_sts_unexp_error;
2433:
2434: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
2435: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Clean Reservations');
2436: END IF;
2443: -- Finalize pick confirm processes the move orders that are being
2444: -- picked. In case of pick wave move orders it handles the reservations and
2445: -- updates the shipping attributes.
2446: PROCEDURE finalize_pick_confirm
2447: (p_init_msg_list IN VARCHAR2 := fnd_api.g_false
2448: , x_return_status OUT NOCOPY VARCHAR2
2449: , x_msg_count OUT NOCOPY NUMBER
2450: , x_msg_data OUT NOCOPY VARCHAR2
2451: , p_transaction_temp_id IN NUMBER
2655: DEBUG('Call to Finalize_Pick_Confirm trxtmpid='||p_transaction_temp_id||' trxid='||p_transaction_id||' xfrtxnid='||p_xfr_transaction_id, 'Finalize Pick Confirm');
2656: END IF;
2657:
2658: IF p_transaction_temp_id IS NULL THEN
2659: x_return_status := fnd_api.g_ret_sts_error;
2660: RAISE fnd_api.g_exc_error;
2661: END IF;
2662:
2663: -- query the move order line detail for the move order line
2656: END IF;
2657:
2658: IF p_transaction_temp_id IS NULL THEN
2659: x_return_status := fnd_api.g_ret_sts_error;
2660: RAISE fnd_api.g_exc_error;
2661: END IF;
2662:
2663: -- query the move order line detail for the move order line
2664: -- detail id passed in
2686:
2687: -- Cannot transact a closed move order line
2688: IF l_trolin_rec.line_status = 5 THEN
2689: fnd_message.set_name('INV', 'INV_CANNOT_TRX_CLOSED_MO');
2690: x_return_status := fnd_api.g_ret_sts_error;
2691: RAISE fnd_api.g_exc_error;
2692: END IF;
2693:
2694: -- update the quantity delivered in the move order line record
2687: -- Cannot transact a closed move order line
2688: IF l_trolin_rec.line_status = 5 THEN
2689: fnd_message.set_name('INV', 'INV_CANNOT_TRX_CLOSED_MO');
2690: x_return_status := fnd_api.g_ret_sts_error;
2691: RAISE fnd_api.g_exc_error;
2692: END IF;
2693:
2694: -- update the quantity delivered in the move order line record
2695: IF l_trolin_rec.uom_code = l_mmtt_rec.transaction_uom
2743:
2744: l_organization_id := l_trolin_rec.organization_id;
2745: l_return_value := INV_CACHE.set_wms_installed(l_organization_id);
2746: If NOT l_return_value Then
2747: RAISE fnd_api.g_exc_unexpected_error;
2748: End If;
2749: l_wms_org_flag := INV_CACHE.wms_installed;
2750:
2751: -- End of Changes for Bug#3153166
2757: END IF;
2758: IF l_wms_org_flag AND l_move_order_type = 3
2759: AND l_trolin_rec.quantity_delivered > l_trolin_rec.quantity THEN
2760: fnd_message.set_name('INV', 'INV_CANNOT_OVERPICK_WMS_SO');
2761: x_return_status := fnd_api.g_ret_sts_error;
2762: RAISE fnd_api.g_exc_error;
2763: END IF;
2764:
2765: END IF;
2758: IF l_wms_org_flag AND l_move_order_type = 3
2759: AND l_trolin_rec.quantity_delivered > l_trolin_rec.quantity THEN
2760: fnd_message.set_name('INV', 'INV_CANNOT_OVERPICK_WMS_SO');
2761: x_return_status := fnd_api.g_ret_sts_error;
2762: RAISE fnd_api.g_exc_error;
2763: END IF;
2764:
2765: END IF;
2766:
2806: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
2807: fnd_message.set_token('UOM', l_mtl_reservation_rec.primary_uom_code);
2808: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
2809: fnd_msg_pub.ADD;
2810: RAISE fnd_api.g_exc_unexpected_error;
2811: END IF;
2812: ELSE
2813: l_primary_shipping_quantity := l_shipping_quantity;
2814: END IF;
2859: fnd_message.set_token('UOM1', l_curr_mmtt_txn_uom);
2860: fnd_message.set_token('UOM2', l_mmtt_rec.transaction_uom);
2861: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
2862: fnd_msg_pub.ADD;
2863: RAISE fnd_api.g_exc_unexpected_error;
2864: END IF;
2865: END IF;
2866:
2867: l_pending_quantity := l_pending_quantity + l_curr_mmtt_txn_qty ;
2917: fnd_message.set_token('UOM1', g_mo_picked_quantity_tbl(l_trolin_rec.line_id).picked_uom );
2918: fnd_message.set_token('UOM2', l_mmtt_rec.transaction_uom);
2919: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
2920: fnd_msg_pub.ADD;
2921: RAISE fnd_api.g_exc_unexpected_error;
2922: END IF;
2923: g_mo_picked_quantity_tbl(l_trolin_rec.line_id).picked_uom := l_mmtt_rec.transaction_uom ;
2924: END If;
2925: --Bug5950172. Fix Ends
2978: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
2979: fnd_message.set_token('UOM', l_mtl_reservation_rec.primary_uom_code);
2980: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
2981: fnd_msg_pub.ADD;
2982: RAISE fnd_api.g_exc_unexpected_error;
2983: END IF;
2984: ELSE
2985: l_primary_pending_quantity := l_pending_quantity;
2986: END IF;
3071: fnd_message.set_name('INV', 'INV-CANNOT CONVERT');
3072: fnd_message.set_token('UOM', l_mmtt_rec.item_primary_uom_code);
3073: fnd_message.set_token('ROUTINE', 'Pick Confirm process');
3074: fnd_msg_pub.ADD;
3075: RAISE fnd_api.g_exc_unexpected_error;
3076: END IF;
3077: END IF; -- if UOM code not primary UOM
3078:
3079: IF (l_debug = 1) THEN
3108: DEBUG('Unable to lock the work order line for update', 'Finalize_Pick_Confirm');
3109: END IF;
3110: fnd_message.set_name('INV', 'INV_WIP_WORK_ORDER_LOCKED');
3111: fnd_msg_pub.ADD;
3112: RAISE fnd_api.g_exc_error;
3113: ELSIF l_return_status <> fnd_api.g_ret_sts_success THEN
3114: IF (l_debug = 1) THEN
3115: DEBUG('Error from wip_picking_pub.unallocate_material', 'Finalize_Pick_Confirm');
3116: END IF;
3109: END IF;
3110: fnd_message.set_name('INV', 'INV_WIP_WORK_ORDER_LOCKED');
3111: fnd_msg_pub.ADD;
3112: RAISE fnd_api.g_exc_error;
3113: ELSIF l_return_status <> fnd_api.g_ret_sts_success THEN
3114: IF (l_debug = 1) THEN
3115: DEBUG('Error from wip_picking_pub.unallocate_material', 'Finalize_Pick_Confirm');
3116: END IF;
3117: RAISE fnd_api.g_exc_unexpected_error;
3113: ELSIF l_return_status <> fnd_api.g_ret_sts_success THEN
3114: IF (l_debug = 1) THEN
3115: DEBUG('Error from wip_picking_pub.unallocate_material', 'Finalize_Pick_Confirm');
3116: END IF;
3117: RAISE fnd_api.g_exc_unexpected_error;
3118: END IF;
3119: END IF; -- if unalloc qty > 0
3120: END IF; -- if WIP move order (MO type is 5 or 7)
3121:
3294: ,to_serial_number => null
3295: ,serial_code => null
3296: ,hdr_id => null
3297: ,p_inventory_item_id => l_mmtt_rec.inventory_item_id
3298: ,p_update_reservation => fnd_api.g_true);
3299: /*** End R12 }} ***/
3300: END LOOP;
3301:
3302: CLOSE serial_csr;
3330: ,to_serial_number => null
3331: ,serial_code => null
3332: ,hdr_id => null
3333: ,p_inventory_item_id => l_mmtt_rec.inventory_item_id
3334: ,p_update_reservation => fnd_api.g_true);
3335: /*** End R12 }} ***/
3336: END LOOP;
3337:
3338: CLOSE serial_csr;
3412: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
3413: , x_error_code => l_error_code
3414: );
3415:
3416: IF l_return_status = fnd_api.g_ret_sts_error THEN
3417: IF (l_debug = 1) THEN
3418: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3419: END IF;
3420: RAISE fnd_api.g_exc_error;
3416: IF l_return_status = fnd_api.g_ret_sts_error THEN
3417: IF (l_debug = 1) THEN
3418: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3419: END IF;
3420: RAISE fnd_api.g_exc_error;
3421: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3422: IF (l_debug = 1) THEN
3423: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3424: END IF;
3417: IF (l_debug = 1) THEN
3418: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3419: END IF;
3420: RAISE fnd_api.g_exc_error;
3421: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3422: IF (l_debug = 1) THEN
3423: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3424: END IF;
3425: RAISE fnd_api.g_exc_unexpected_error;
3421: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3422: IF (l_debug = 1) THEN
3423: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3424: END IF;
3425: RAISE fnd_api.g_exc_unexpected_error;
3426: END IF;
3427:
3428: IF (l_debug = 1) THEN
3429: DEBUG('reservation count = '|| l_mtl_reservation_tbl.COUNT, 'Finalize_Pick_Confirm');
3476: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
3477: END IF;
3478: inv_reservation_pub.update_reservation(
3479: p_api_version_number => 1.0
3480: , p_init_msg_lst => fnd_api.g_false
3481: , x_return_status => l_return_status
3482: , x_msg_count => x_msg_count
3483: , x_msg_data => x_msg_data
3484: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3484: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3485: , p_to_rsv_rec => l_mtl_reservation_rec
3486: , p_original_serial_number => l_original_serial_number
3487: , p_to_serial_number => l_to_serial_number
3488: , p_validation_flag => fnd_api.g_true -- Explicitly set the validation flag to true with respect to the Bug 4004597
3489: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
3490: );
3491: IF (l_debug = 1) THEN
3492: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3491: IF (l_debug = 1) THEN
3492: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3493: END IF;
3494:
3495: IF l_return_status = fnd_api.g_ret_sts_error THEN
3496: RAISE fnd_api.g_exc_error;
3497: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3498: RAISE fnd_api.g_exc_unexpected_error;
3499: END IF;
3492: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3493: END IF;
3494:
3495: IF l_return_status = fnd_api.g_ret_sts_error THEN
3496: RAISE fnd_api.g_exc_error;
3497: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3498: RAISE fnd_api.g_exc_unexpected_error;
3499: END IF;
3500:
3493: END IF;
3494:
3495: IF l_return_status = fnd_api.g_ret_sts_error THEN
3496: RAISE fnd_api.g_exc_error;
3497: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3498: RAISE fnd_api.g_exc_unexpected_error;
3499: END IF;
3500:
3501: --requery reservation to reflect updated data
3494:
3495: IF l_return_status = fnd_api.g_ret_sts_error THEN
3496: RAISE fnd_api.g_exc_error;
3497: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3498: RAISE fnd_api.g_exc_unexpected_error;
3499: END IF;
3500:
3501: --requery reservation to reflect updated data
3502: inv_reservation_pub.query_reservation(
3509: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
3510: , x_error_code => l_error_code
3511: );
3512:
3513: IF l_return_status = fnd_api.g_ret_sts_error THEN
3514: IF (l_debug = 1) THEN
3515: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3516: END IF;
3517: RAISE fnd_api.g_exc_error;
3513: IF l_return_status = fnd_api.g_ret_sts_error THEN
3514: IF (l_debug = 1) THEN
3515: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3516: END IF;
3517: RAISE fnd_api.g_exc_error;
3518: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3519: IF (l_debug = 1) THEN
3520: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3521: END IF;
3514: IF (l_debug = 1) THEN
3515: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3516: END IF;
3517: RAISE fnd_api.g_exc_error;
3518: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3519: IF (l_debug = 1) THEN
3520: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3521: END IF;
3522: RAISE fnd_api.g_exc_unexpected_error;
3518: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3519: IF (l_debug = 1) THEN
3520: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
3521: END IF;
3522: RAISE fnd_api.g_exc_unexpected_error;
3523: END IF;
3524: END IF;
3525:
3526: -- Create a new reservation on a staging sub
3681: END IF;
3682:
3683: inv_reservation_pub.update_reservation(
3684: p_api_version_number => 1.0
3685: , p_init_msg_lst => fnd_api.g_false
3686: , x_return_status => l_return_status
3687: , x_msg_count => x_msg_count
3688: , x_msg_data => x_msg_data
3689: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3689: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3690: , p_to_rsv_rec => l_mtl_reservation_rec
3691: , p_original_serial_number => l_original_serial_number
3692: , p_to_serial_number => l_to_serial_number
3693: , p_validation_flag => fnd_api.g_true
3694: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
3695: );
3696: IF (l_debug = 1) THEN
3697: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3696: IF (l_debug = 1) THEN
3697: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3698: END IF;
3699:
3700: IF l_return_status = fnd_api.g_ret_sts_error THEN
3701: RAISE fnd_api.g_exc_error;
3702: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3703: RAISE fnd_api.g_exc_unexpected_error;
3704: END IF;
3697: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
3698: END IF;
3699:
3700: IF l_return_status = fnd_api.g_ret_sts_error THEN
3701: RAISE fnd_api.g_exc_error;
3702: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3703: RAISE fnd_api.g_exc_unexpected_error;
3704: END IF;
3705: ELSE
3698: END IF;
3699:
3700: IF l_return_status = fnd_api.g_ret_sts_error THEN
3701: RAISE fnd_api.g_exc_error;
3702: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3703: RAISE fnd_api.g_exc_unexpected_error;
3704: END IF;
3705: ELSE
3706: IF (l_debug = 1) THEN
3699:
3700: IF l_return_status = fnd_api.g_ret_sts_error THEN
3701: RAISE fnd_api.g_exc_error;
3702: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3703: RAISE fnd_api.g_exc_unexpected_error;
3704: END IF;
3705: ELSE
3706: IF (l_debug = 1) THEN
3707: DEBUG('reservable staging subinventory, '|| 'transfer reservation to staging', 'Finalize_Pick_Confirm');
3774: END IF;
3775:
3776: inv_reservation_pub.transfer_reservation(
3777: p_api_version_number => 1.0
3778: , p_init_msg_lst => fnd_api.g_false
3779: , x_return_status => l_return_status
3780: , x_msg_count => x_msg_count
3781: , x_msg_data => x_msg_data
3782: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3782: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3783: , p_to_rsv_rec => l_mtl_reservation_rec
3784: , p_original_serial_number => l_to_serial_number
3785: , p_to_serial_number => l_to_serial_number
3786: , p_validation_flag => fnd_api.g_false
3787: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
3788: , x_to_reservation_id => l_reservation_id
3789: );
3790: IF (l_debug = 1) THEN
3792: DEBUG('after create new reservation', 'Finalize_Pick_Confirm');
3793: DEBUG('l_return_status is '|| l_return_status, 'Finalize_Pick_Confirm');
3794: END IF;
3795:
3796: IF l_return_status = fnd_api.g_ret_sts_error THEN
3797: IF (l_debug = 1) THEN
3798: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
3799: END IF;
3800: RAISE fnd_api.g_exc_error;
3796: IF l_return_status = fnd_api.g_ret_sts_error THEN
3797: IF (l_debug = 1) THEN
3798: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
3799: END IF;
3800: RAISE fnd_api.g_exc_error;
3801: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3802: IF (l_debug = 1) THEN
3803: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
3804: END IF;
3797: IF (l_debug = 1) THEN
3798: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
3799: END IF;
3800: RAISE fnd_api.g_exc_error;
3801: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3802: IF (l_debug = 1) THEN
3803: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
3804: END IF;
3805: RAISE fnd_api.g_exc_unexpected_error;
3801: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3802: IF (l_debug = 1) THEN
3803: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
3804: END IF;
3805: RAISE fnd_api.g_exc_unexpected_error;
3806: END IF;
3807:
3808: -- bug 3703983
3809: -- 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');
3807:
3808: -- bug 3703983
3809: -- 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');
3810:
3811: --IF l_return_status = fnd_api.g_ret_sts_error THEN
3812: -- (l_debug = 1) THEN
3813: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
3814: -- END IF;
3815: -- RAISE fnd_api.g_exc_error;
3811: --IF l_return_status = fnd_api.g_ret_sts_error THEN
3812: -- (l_debug = 1) THEN
3813: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
3814: -- END IF;
3815: -- RAISE fnd_api.g_exc_error;
3816: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3817: -- IF (l_debug = 1) THEN
3818: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
3819: -- END IF;
3812: -- (l_debug = 1) THEN
3813: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
3814: -- END IF;
3815: -- RAISE fnd_api.g_exc_error;
3816: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3817: -- IF (l_debug = 1) THEN
3818: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
3819: -- END IF;
3820: -- RAISE fnd_api.g_exc_unexpected_error;
3816: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3817: -- IF (l_debug = 1) THEN
3818: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
3819: -- END IF;
3820: -- RAISE fnd_api.g_exc_unexpected_error;
3821: --END IF;
3822: END LOOP;
3823:
3824: IF (l_debug = 1) THEN
3863: END IF;
3864:
3865: inv_reservation_pub.transfer_reservation(
3866: p_api_version_number => 1.0
3867: , p_init_msg_lst => fnd_api.g_false
3868: , x_return_status => l_return_status
3869: , x_msg_count => x_msg_count
3870: , x_msg_data => x_msg_data
3871: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3871: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
3872: , p_to_rsv_rec => l_mtl_reservation_rec
3873: , p_original_serial_number => l_to_serial_number
3874: , p_to_serial_number => l_to_serial_number
3875: , p_validation_flag => fnd_api.g_false
3876: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
3877: , x_to_reservation_id => l_reservation_id
3878: );
3879:
3882: DEBUG('after create new reservation', 'Finalize_Pick_Confirm');
3883: DEBUG('l_return_status is '|| l_return_status, 'Finalize_Pick_Confirm');
3884: END IF;
3885:
3886: IF l_return_status = fnd_api.g_ret_sts_error THEN
3887: IF (l_debug = 1) THEN
3888: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
3889: END IF;
3890: RAISE fnd_api.g_exc_error;
3886: IF l_return_status = fnd_api.g_ret_sts_error THEN
3887: IF (l_debug = 1) THEN
3888: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
3889: END IF;
3890: RAISE fnd_api.g_exc_error;
3891: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3892: IF (l_debug = 1) THEN
3893: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
3894: END IF;
3887: IF (l_debug = 1) THEN
3888: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
3889: END IF;
3890: RAISE fnd_api.g_exc_error;
3891: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3892: IF (l_debug = 1) THEN
3893: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
3894: END IF;
3895: RAISE fnd_api.g_exc_unexpected_error;
3891: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3892: IF (l_debug = 1) THEN
3893: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
3894: END IF;
3895: RAISE fnd_api.g_exc_unexpected_error;
3896: END IF;
3897:
3898: IF (l_debug = 1) THEN
3899: DEBUG('still inside if no lot records', 'Finalize_Pick_Confirm');
3901:
3902: -- bug 3703983
3903: --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');
3904:
3905: --IF l_return_status = fnd_api.g_ret_sts_error THEN
3906: -- IF (l_debug = 1) THEN
3907: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
3908: -- END IF;
3909: -- RAISE fnd_api.g_exc_error;
3905: --IF l_return_status = fnd_api.g_ret_sts_error THEN
3906: -- IF (l_debug = 1) THEN
3907: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
3908: -- END IF;
3909: -- RAISE fnd_api.g_exc_error;
3910: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3911: -- IF (l_debug = 1) THEN
3912: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
3913: -- END IF;
3906: -- IF (l_debug = 1) THEN
3907: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
3908: -- END IF;
3909: -- RAISE fnd_api.g_exc_error;
3910: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3911: -- IF (l_debug = 1) THEN
3912: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
3913: -- END IF;
3914: -- RAISE fnd_api.g_exc_unexpected_error;
3910: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3911: -- IF (l_debug = 1) THEN
3912: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
3913: -- END IF;
3914: -- RAISE fnd_api.g_exc_unexpected_error;
3915: --END IF;
3916: END IF; -- lot or not lot control
3917: END IF; -- reservable or not
3918: ELSE -- query reservation returns 0 records
4003: -- attributes already exists
4004: -- if there is, use update instead of create
4005: inv_reservation_pub.query_reservation(
4006: p_api_version_number => 1.0
4007: , p_init_msg_lst => fnd_api.g_false
4008: , x_return_status => l_return_status
4009: , x_msg_count => x_msg_count
4010: , x_msg_data => x_msg_data
4011: , p_query_input => l_mtl_reservation_rec
4008: , x_return_status => l_return_status
4009: , x_msg_count => x_msg_count
4010: , x_msg_data => x_msg_data
4011: , p_query_input => l_mtl_reservation_rec
4012: , p_lock_records => fnd_api.g_true
4013: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
4014: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
4015: , x_error_code => l_error_code
4016: );
4014: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
4015: , x_error_code => l_error_code
4016: );
4017:
4018: IF l_return_status = fnd_api.g_ret_sts_error THEN
4019: RAISE fnd_api.g_exc_error;
4020: END IF;
4021:
4022: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4015: , x_error_code => l_error_code
4016: );
4017:
4018: IF l_return_status = fnd_api.g_ret_sts_error THEN
4019: RAISE fnd_api.g_exc_error;
4020: END IF;
4021:
4022: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4023: RAISE fnd_api.g_exc_unexpected_error;
4018: IF l_return_status = fnd_api.g_ret_sts_error THEN
4019: RAISE fnd_api.g_exc_error;
4020: END IF;
4021:
4022: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4023: RAISE fnd_api.g_exc_unexpected_error;
4024: END IF;
4025:
4026: IF l_mtl_reservation_tbl_count > 0 THEN
4019: RAISE fnd_api.g_exc_error;
4020: END IF;
4021:
4022: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4023: RAISE fnd_api.g_exc_unexpected_error;
4024: END IF;
4025:
4026: IF l_mtl_reservation_tbl_count > 0 THEN
4027: l_mtl_reservation_rec.primary_reservation_quantity := l_mtl_reservation_tbl(1).primary_reservation_quantity + ABS(l_lot_primary_quantity);
4036: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
4037: END IF;
4038: inv_reservation_pub.update_reservation(
4039: p_api_version_number => 1.0
4040: , p_init_msg_lst => fnd_api.g_false
4041: , x_return_status => l_return_status
4042: , x_msg_count => x_msg_count
4043: , x_msg_data => x_msg_data
4044: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4044: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4045: , p_to_rsv_rec => l_mtl_reservation_rec
4046: , p_original_serial_number => l_original_serial_number
4047: , p_to_serial_number => l_to_serial_number
4048: , p_validation_flag => fnd_api.g_true
4049: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4050: );
4051: IF (l_debug = 1) THEN
4052: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4051: IF (l_debug = 1) THEN
4052: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4053: END IF;
4054:
4055: IF l_return_status = fnd_api.g_ret_sts_error THEN
4056: RAISE fnd_api.g_exc_error;
4057: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4058: RAISE fnd_api.g_exc_unexpected_error;
4059: END IF;
4052: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4053: END IF;
4054:
4055: IF l_return_status = fnd_api.g_ret_sts_error THEN
4056: RAISE fnd_api.g_exc_error;
4057: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4058: RAISE fnd_api.g_exc_unexpected_error;
4059: END IF;
4060: ELSE
4053: END IF;
4054:
4055: IF l_return_status = fnd_api.g_ret_sts_error THEN
4056: RAISE fnd_api.g_exc_error;
4057: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4058: RAISE fnd_api.g_exc_unexpected_error;
4059: END IF;
4060: ELSE
4061: l_mtl_reservation_rec.primary_reservation_quantity := ABS(l_lot_primary_quantity);
4054:
4055: IF l_return_status = fnd_api.g_ret_sts_error THEN
4056: RAISE fnd_api.g_exc_error;
4057: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4058: RAISE fnd_api.g_exc_unexpected_error;
4059: END IF;
4060: ELSE
4061: l_mtl_reservation_rec.primary_reservation_quantity := ABS(l_lot_primary_quantity);
4062: l_mtl_reservation_rec.reservation_quantity := ABS(l_lot_transaction_quantity);
4063: l_mtl_reservation_rec.secondary_reservation_quantity := ABS(l_lot_secondary_quantity);
4064: l_mtl_reservation_rec.requirement_date := SYSDATE;
4065: inv_reservation_pub.create_reservation(
4066: p_api_version_number => 1.0
4067: , p_init_msg_lst => fnd_api.g_false
4068: , x_return_status => l_return_status
4069: , x_msg_count => x_msg_count
4070: , x_msg_data => x_msg_data
4071: , p_rsv_rec => l_mtl_reservation_rec
4070: , x_msg_data => x_msg_data
4071: , p_rsv_rec => l_mtl_reservation_rec
4072: , p_serial_number => l_to_serial_number
4073: , x_serial_number => l_to_serial_number
4074: , p_partial_reservation_flag => fnd_api.g_true
4075: , p_force_reservation_flag => fnd_api.g_false
4076: , p_validation_flag => fnd_api.g_true
4077: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4078: , x_quantity_reserved => l_quantity_reserved
4071: , p_rsv_rec => l_mtl_reservation_rec
4072: , p_serial_number => l_to_serial_number
4073: , x_serial_number => l_to_serial_number
4074: , p_partial_reservation_flag => fnd_api.g_true
4075: , p_force_reservation_flag => fnd_api.g_false
4076: , p_validation_flag => fnd_api.g_true
4077: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4078: , x_quantity_reserved => l_quantity_reserved
4079: , x_reservation_id => l_reservation_id
4072: , p_serial_number => l_to_serial_number
4073: , x_serial_number => l_to_serial_number
4074: , p_partial_reservation_flag => fnd_api.g_true
4075: , p_force_reservation_flag => fnd_api.g_false
4076: , p_validation_flag => fnd_api.g_true
4077: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4078: , x_quantity_reserved => l_quantity_reserved
4079: , x_reservation_id => l_reservation_id
4080: );
4082: DEBUG('Quantity reserved: '|| l_quantity_reserved, 'Finalize_Pick_Confirm');
4083: DEBUG('Reservation ID: '|| l_reservation_id, 'Finalize_Pick_Confirm');
4084: END IF;
4085:
4086: IF l_return_status = fnd_api.g_ret_sts_error THEN
4087: IF (l_debug = 1) THEN
4088: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4089: END IF;
4090: RAISE fnd_api.g_exc_error;
4086: IF l_return_status = fnd_api.g_ret_sts_error THEN
4087: IF (l_debug = 1) THEN
4088: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4089: END IF;
4090: RAISE fnd_api.g_exc_error;
4091: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4092: IF (l_debug = 1) THEN
4093: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4094: END IF;
4087: IF (l_debug = 1) THEN
4088: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4089: END IF;
4090: RAISE fnd_api.g_exc_error;
4091: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4092: IF (l_debug = 1) THEN
4093: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4094: END IF;
4095: RAISE fnd_api.g_exc_unexpected_error;
4091: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4092: IF (l_debug = 1) THEN
4093: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4094: END IF;
4095: RAISE fnd_api.g_exc_unexpected_error;
4096: END IF;
4097:
4098: --bug 1402436 - set the reservations staged flag
4099: 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');
4097:
4098: --bug 1402436 - set the reservations staged flag
4099: 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');
4100:
4101: IF l_return_status = fnd_api.g_ret_sts_error THEN
4102: IF (l_debug = 1) THEN
4103: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4104: END IF;
4105: RAISE fnd_api.g_exc_error;
4101: IF l_return_status = fnd_api.g_ret_sts_error THEN
4102: IF (l_debug = 1) THEN
4103: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4104: END IF;
4105: RAISE fnd_api.g_exc_error;
4106: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4107: IF (l_debug = 1) THEN
4108: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4109: END IF;
4102: IF (l_debug = 1) THEN
4103: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4104: END IF;
4105: RAISE fnd_api.g_exc_error;
4106: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4107: IF (l_debug = 1) THEN
4108: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4109: END IF;
4110: RAISE fnd_api.g_exc_unexpected_error;
4106: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4107: IF (l_debug = 1) THEN
4108: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4109: END IF;
4110: RAISE fnd_api.g_exc_unexpected_error;
4111: END IF;
4112: END IF; -- Create or Update
4113: END LOOP; -- Lot loop
4114:
4123: -- attributes already exists
4124: -- if there is, use update instead of create
4125: inv_reservation_pub.query_reservation(
4126: p_api_version_number => 1.0
4127: , p_init_msg_lst => fnd_api.g_false
4128: , x_return_status => l_return_status
4129: , x_msg_count => x_msg_count
4130: , x_msg_data => x_msg_data
4131: , p_query_input => l_mtl_reservation_rec
4128: , x_return_status => l_return_status
4129: , x_msg_count => x_msg_count
4130: , x_msg_data => x_msg_data
4131: , p_query_input => l_mtl_reservation_rec
4132: , p_lock_records => fnd_api.g_true
4133: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
4134: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
4135: , x_error_code => l_error_code
4136: );
4134: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
4135: , x_error_code => l_error_code
4136: );
4137:
4138: IF l_return_status = fnd_api.g_ret_sts_error THEN
4139: RAISE fnd_api.g_exc_error;
4140: END IF;
4141:
4142: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4135: , x_error_code => l_error_code
4136: );
4137:
4138: IF l_return_status = fnd_api.g_ret_sts_error THEN
4139: RAISE fnd_api.g_exc_error;
4140: END IF;
4141:
4142: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4143: RAISE fnd_api.g_exc_unexpected_error;
4138: IF l_return_status = fnd_api.g_ret_sts_error THEN
4139: RAISE fnd_api.g_exc_error;
4140: END IF;
4141:
4142: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4143: RAISE fnd_api.g_exc_unexpected_error;
4144: END IF;
4145:
4146: IF l_mtl_reservation_tbl_count > 0 THEN
4139: RAISE fnd_api.g_exc_error;
4140: END IF;
4141:
4142: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4143: RAISE fnd_api.g_exc_unexpected_error;
4144: END IF;
4145:
4146: IF l_mtl_reservation_tbl_count > 0 THEN
4147: l_mtl_reservation_rec.primary_reservation_quantity := l_mtl_reservation_tbl(1).primary_reservation_quantity + l_primary_shipping_quantity;
4156: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
4157: END IF;
4158: inv_reservation_pub.update_reservation(
4159: p_api_version_number => 1.0
4160: , p_init_msg_lst => fnd_api.g_false
4161: , x_return_status => l_return_status
4162: , x_msg_count => x_msg_count
4163: , x_msg_data => x_msg_data
4164: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4164: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
4165: , p_to_rsv_rec => l_mtl_reservation_rec
4166: , p_original_serial_number => l_original_serial_number
4167: , p_to_serial_number => l_to_serial_number
4168: , p_validation_flag => fnd_api.g_true
4169: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4170: );
4171: IF (l_debug = 1) THEN
4172: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4171: IF (l_debug = 1) THEN
4172: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4173: END IF;
4174:
4175: IF l_return_status = fnd_api.g_ret_sts_error THEN
4176: RAISE fnd_api.g_exc_error;
4177: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4178: RAISE fnd_api.g_exc_unexpected_error;
4179: END IF;
4172: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
4173: END IF;
4174:
4175: IF l_return_status = fnd_api.g_ret_sts_error THEN
4176: RAISE fnd_api.g_exc_error;
4177: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4178: RAISE fnd_api.g_exc_unexpected_error;
4179: END IF;
4180: ELSE
4173: END IF;
4174:
4175: IF l_return_status = fnd_api.g_ret_sts_error THEN
4176: RAISE fnd_api.g_exc_error;
4177: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4178: RAISE fnd_api.g_exc_unexpected_error;
4179: END IF;
4180: ELSE
4181: l_mtl_reservation_rec.primary_reservation_quantity := l_primary_shipping_quantity;
4174:
4175: IF l_return_status = fnd_api.g_ret_sts_error THEN
4176: RAISE fnd_api.g_exc_error;
4177: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4178: RAISE fnd_api.g_exc_unexpected_error;
4179: END IF;
4180: ELSE
4181: l_mtl_reservation_rec.primary_reservation_quantity := l_primary_shipping_quantity;
4182: l_mtl_reservation_rec.reservation_quantity := l_shipping_quantity;
4183: l_mtl_reservation_rec.secondary_reservation_quantity := l_sec_shipping_quantity;
4184: l_mtl_reservation_rec.requirement_date := SYSDATE;
4185: inv_reservation_pub.create_reservation(
4186: p_api_version_number => 1.0
4187: , p_init_msg_lst => fnd_api.g_false
4188: , x_return_status => l_return_status
4189: , x_msg_count => x_msg_count
4190: , x_msg_data => x_msg_data
4191: , p_rsv_rec => l_mtl_reservation_rec
4190: , x_msg_data => x_msg_data
4191: , p_rsv_rec => l_mtl_reservation_rec
4192: , p_serial_number => l_to_serial_number
4193: , x_serial_number => l_to_serial_number
4194: , p_partial_reservation_flag => fnd_api.g_true
4195: , p_force_reservation_flag => fnd_api.g_false
4196: , p_validation_flag => fnd_api.g_true
4197: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4198: , x_quantity_reserved => l_quantity_reserved
4191: , p_rsv_rec => l_mtl_reservation_rec
4192: , p_serial_number => l_to_serial_number
4193: , x_serial_number => l_to_serial_number
4194: , p_partial_reservation_flag => fnd_api.g_true
4195: , p_force_reservation_flag => fnd_api.g_false
4196: , p_validation_flag => fnd_api.g_true
4197: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4198: , x_quantity_reserved => l_quantity_reserved
4199: , x_reservation_id => l_reservation_id
4192: , p_serial_number => l_to_serial_number
4193: , x_serial_number => l_to_serial_number
4194: , p_partial_reservation_flag => fnd_api.g_true
4195: , p_force_reservation_flag => fnd_api.g_false
4196: , p_validation_flag => fnd_api.g_true
4197: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
4198: , x_quantity_reserved => l_quantity_reserved
4199: , x_reservation_id => l_reservation_id
4200: );
4202: DEBUG('Quantity reserved: '|| l_quantity_reserved, 'Finalize_Pick_Confirm');
4203: DEBUG('Reservation ID: '|| l_reservation_id, 'Finalize_Pick_Confirm');
4204: END IF;
4205:
4206: IF l_return_status = fnd_api.g_ret_sts_error THEN
4207: IF (l_debug = 1) THEN
4208: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4209: END IF;
4210: RAISE fnd_api.g_exc_error;
4206: IF l_return_status = fnd_api.g_ret_sts_error THEN
4207: IF (l_debug = 1) THEN
4208: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4209: END IF;
4210: RAISE fnd_api.g_exc_error;
4211: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4212: IF (l_debug = 1) THEN
4213: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4214: END IF;
4207: IF (l_debug = 1) THEN
4208: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
4209: END IF;
4210: RAISE fnd_api.g_exc_error;
4211: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4212: IF (l_debug = 1) THEN
4213: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4214: END IF;
4215: RAISE fnd_api.g_exc_unexpected_error;
4211: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4212: IF (l_debug = 1) THEN
4213: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
4214: END IF;
4215: RAISE fnd_api.g_exc_unexpected_error;
4216: END IF;
4217:
4218: --bug 1402436 - set the reservations staged flag
4219: inv_staged_reservation_util.update_staged_flag
4223: , p_reservation_id => l_reservation_id
4224: , p_staged_flag => 'Y'
4225: );
4226:
4227: IF l_return_status = fnd_api.g_ret_sts_error THEN
4228: IF (l_debug = 1) THEN
4229: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4230: END IF;
4231: RAISE fnd_api.g_exc_error;
4227: IF l_return_status = fnd_api.g_ret_sts_error THEN
4228: IF (l_debug = 1) THEN
4229: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4230: END IF;
4231: RAISE fnd_api.g_exc_error;
4232: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4233: IF (l_debug = 1) THEN
4234: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4235: END IF;
4228: IF (l_debug = 1) THEN
4229: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
4230: END IF;
4231: RAISE fnd_api.g_exc_error;
4232: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4233: IF (l_debug = 1) THEN
4234: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4235: END IF;
4236: RAISE fnd_api.g_exc_unexpected_error;
4232: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4233: IF (l_debug = 1) THEN
4234: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
4235: END IF;
4236: RAISE fnd_api.g_exc_unexpected_error;
4237: END IF;
4238: END IF; -- Create or Update
4239: END IF; -- Lot control or not
4240: END IF; -- Staging sub reservable or not
4259: EXCEPTION
4260: WHEN NO_DATA_FOUND THEN
4261: fnd_message.set_name('INV', 'INV_DELIV_INFO_MISSING');
4262: fnd_msg_pub.ADD;
4263: RAISE fnd_api.g_exc_error;
4264: WHEN OTHERS THEN
4265: --could not lock row
4266: IF SQLCODE = -54 THEN
4267: fnd_message.set_name('INV', 'INV_DELIV_INFO_LOCKED');
4266: IF SQLCODE = -54 THEN
4267: fnd_message.set_name('INV', 'INV_DELIV_INFO_LOCKED');
4268: fnd_message.set_token('LINEID', l_trolin_rec.line_id);
4269: fnd_msg_pub.ADD;
4270: RAISE fnd_api.g_exc_error;
4271: ELSE
4272: RAISE fnd_api.g_exc_unexpected_error;
4273: END IF;
4274: END;
4268: fnd_message.set_token('LINEID', l_trolin_rec.line_id);
4269: fnd_msg_pub.ADD;
4270: RAISE fnd_api.g_exc_error;
4271: ELSE
4272: RAISE fnd_api.g_exc_unexpected_error;
4273: END IF;
4274: END;
4275:
4276: if (l_return_status = FND_API.G_RET_STS_ERROR) then
4272: RAISE fnd_api.g_exc_unexpected_error;
4273: END IF;
4274: END;
4275:
4276: if (l_return_status = FND_API.G_RET_STS_ERROR) then
4277: RAISE FND_API.G_EXC_ERROR;
4278: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
4279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4280: end if;
4273: END IF;
4274: END;
4275:
4276: if (l_return_status = FND_API.G_RET_STS_ERROR) then
4277: RAISE FND_API.G_EXC_ERROR;
4278: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
4279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4280: end if;
4281:
4274: END;
4275:
4276: if (l_return_status = FND_API.G_RET_STS_ERROR) then
4277: RAISE FND_API.G_EXC_ERROR;
4278: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
4279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4280: end if;
4281:
4282: -- When calling shipping, pending quantity should be the total
4275:
4276: if (l_return_status = FND_API.G_RET_STS_ERROR) then
4277: RAISE FND_API.G_EXC_ERROR;
4278: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
4279: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4280: end if;
4281:
4282: -- When calling shipping, pending quantity should be the total
4283: -- quantity remaining that Shipping has not been updated with
4302: x_msg_data => l_msg_data );
4303: IF (l_debug = 1) THEN
4304: DEBUG('after Set_Inv_PC_Attributes Ret status'||l_return_status, 'Finalize_Pick_Confirm'); END IF;
4305:
4306: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4307: IF (l_debug = 1) THEN
4308: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4309: END IF;
4310: RAISE fnd_api.g_exc_error;
4306: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4307: IF (l_debug = 1) THEN
4308: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4309: END IF;
4310: RAISE fnd_api.g_exc_error;
4311: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4312: IF (l_debug = 1) THEN
4313: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4314: END IF;
4307: IF (l_debug = 1) THEN
4308: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4309: END IF;
4310: RAISE fnd_api.g_exc_error;
4311: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4312: IF (l_debug = 1) THEN
4313: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4314: END IF;
4315: RAISE fnd_api.g_exc_unexpected_error;
4311: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4312: IF (l_debug = 1) THEN
4313: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize_Pick_Confirm');
4314: END IF;
4315: RAISE fnd_api.g_exc_unexpected_error;
4316: END IF;
4317:
4318: l_shipping_attr(1).source_header_id := l_source_header_id;
4319: l_shipping_attr(1).source_line_id := l_source_line_id;
4371: debug('BF CONTAINER EXISTS, Renamed to : ' || l_new_container_name,'Finalize_Pick_Confirm');
4372: END IF;
4373: WSH_CONTAINER_GRP.Update_Container(
4374: p_api_version => 1.0,
4375: p_init_msg_list => FND_API.G_FALSE,
4376: p_commit =>FND_API.G_FALSE,
4377: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4378: x_return_status => x_return_status,
4379: x_msg_count => x_msg_count,
4372: END IF;
4373: WSH_CONTAINER_GRP.Update_Container(
4374: p_api_version => 1.0,
4375: p_init_msg_list => FND_API.G_FALSE,
4376: p_commit =>FND_API.G_FALSE,
4377: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4378: x_return_status => x_return_status,
4379: x_msg_count => x_msg_count,
4380: x_msg_data => x_msg_data,
4373: WSH_CONTAINER_GRP.Update_Container(
4374: p_api_version => 1.0,
4375: p_init_msg_list => FND_API.G_FALSE,
4376: p_commit =>FND_API.G_FALSE,
4377: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
4378: x_return_status => x_return_status,
4379: x_msg_count => x_msg_count,
4380: x_msg_data => x_msg_data,
4381: p_container_rec => l_container_rec
4379: x_msg_count => x_msg_count,
4380: x_msg_data => x_msg_data,
4381: p_container_rec => l_container_rec
4382: );
4383: IF( x_return_status in (FND_API.G_RET_STS_ERROR) ) THEN
4384: IF (l_debug = 1) THEN
4385: debug('WSH_Container_Grp.Update_Containers returns error','Finalize Pick Confirm');
4386: END IF;
4387: RAISE FND_API.G_EXC_ERROR;
4383: IF( x_return_status in (FND_API.G_RET_STS_ERROR) ) THEN
4384: IF (l_debug = 1) THEN
4385: debug('WSH_Container_Grp.Update_Containers returns error','Finalize Pick Confirm');
4386: END IF;
4387: RAISE FND_API.G_EXC_ERROR;
4388: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4389: IF (l_debug = 1) THEN
4390: debug('WSH_Container_Grp.Update_Containers returns success','Finalize Pick Confirm');
4391: END IF;
4384: IF (l_debug = 1) THEN
4385: debug('WSH_Container_Grp.Update_Containers returns error','Finalize Pick Confirm');
4386: END IF;
4387: RAISE FND_API.G_EXC_ERROR;
4388: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4389: IF (l_debug = 1) THEN
4390: debug('WSH_Container_Grp.Update_Containers returns success','Finalize Pick Confirm');
4391: END IF;
4392: RAISE fnd_api.g_exc_unexpected_error;
4388: ELSIF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
4389: IF (l_debug = 1) THEN
4390: debug('WSH_Container_Grp.Update_Containers returns success','Finalize Pick Confirm');
4391: END IF;
4392: RAISE fnd_api.g_exc_unexpected_error;
4393: ELSE
4394: IF (l_debug = 1) THEN
4395: debug(' AF CONTAINER EXISTS, Renamed to : ' || l_new_container_name,'Finalize Pick Confirm');
4396: END IF;
4451: , x_msg_count => x_msg_count
4452: , x_msg_data => x_msg_data
4453: , p_organization_id => l_mmtt_rec.organization_id
4454: , p_inventory_item_id => l_mmtt_rec.inventory_item_id );
4455: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
4456: fnd_message.set_name('INV', 'WMS_GET_CATCH_WEIGHT_ATT_FAIL');
4457: fnd_msg_pub.ADD;
4458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4459: END IF;
4454: , p_inventory_item_id => l_mmtt_rec.inventory_item_id );
4455: IF ( x_return_status <> fnd_api.g_ret_sts_success ) THEN
4456: fnd_message.set_name('INV', 'WMS_GET_CATCH_WEIGHT_ATT_FAIL');
4457: fnd_msg_pub.ADD;
4458: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4459: END IF;
4460:
4461: IF (l_catch_weight_enabled = WMS_CATCH_WEIGHT_PVT.G_PRICE_SECONDARY AND (NVL(l_lpn_id,-1)<=0)) THEN
4462: fnd_message.set_name('INV', 'WMS_CATCH_WEIGHT_NO_LPN_ERR');
4460:
4461: IF (l_catch_weight_enabled = WMS_CATCH_WEIGHT_PVT.G_PRICE_SECONDARY AND (NVL(l_lpn_id,-1)<=0)) THEN
4462: fnd_message.set_name('INV', 'WMS_CATCH_WEIGHT_NO_LPN_ERR');
4463: fnd_msg_pub.ADD;
4464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4465: END IF;
4466:
4467: END IF;
4468:
4591: ( p_in_attributes => l_InvPCInRecType,
4592: x_return_status => l_return_status,
4593: x_msg_count => l_msg_count,
4594: x_msg_data => l_msg_data );
4595: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4596: IF (l_debug = 1) THEN
4597: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4598: END IF;
4599: RAISE fnd_api.g_exc_error;
4595: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4596: IF (l_debug = 1) THEN
4597: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4598: END IF;
4599: RAISE fnd_api.g_exc_error;
4600: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4601: IF (l_debug = 1) THEN
4602: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4603: END IF;
4596: IF (l_debug = 1) THEN
4597: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4598: END IF;
4599: RAISE fnd_api.g_exc_error;
4600: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4601: IF (l_debug = 1) THEN
4602: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4603: END IF;
4604: RAISE fnd_api.g_exc_unexpected_error;
4600: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4601: IF (l_debug = 1) THEN
4602: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4603: END IF;
4604: RAISE fnd_api.g_exc_unexpected_error;
4605: END IF;
4606:
4607: IF (l_debug = 1) THEN
4608: DEBUG('Calling Update Shipping Attributes for a serial range of lot items', 'Finalize Pick Confirm');
4624: IF (l_debug = 1) THEN
4625: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
4626: END IF;
4627:
4628: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4629: IF (l_debug = 1) THEN
4630: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4631: END IF;
4632: RAISE fnd_api.g_exc_error;
4628: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4629: IF (l_debug = 1) THEN
4630: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4631: END IF;
4632: RAISE fnd_api.g_exc_error;
4633: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4634: IF (l_debug = 1) THEN
4635: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4636: END IF;
4629: IF (l_debug = 1) THEN
4630: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4631: END IF;
4632: RAISE fnd_api.g_exc_error;
4633: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4634: IF (l_debug = 1) THEN
4635: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4636: END IF;
4637: RAISE fnd_api.g_exc_unexpected_error;
4633: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4634: IF (l_debug = 1) THEN
4635: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4636: END IF;
4637: RAISE fnd_api.g_exc_unexpected_error;
4638: END IF;
4639: ELSE -- Either only a single serial item or not WMS.I process the old way
4640: IF ( l_catch_weight_enabled = WMS_CATCH_WEIGHT_PVT.G_PRICE_SECONDARY ) THEN
4641: -- Calculate the secondary quantity for a single serial number
4695: ( p_in_attributes => l_InvPCInRecType,
4696: x_return_status => l_return_status,
4697: x_msg_count => l_msg_count,
4698: x_msg_data => l_msg_data );
4699: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4700: IF (l_debug = 1) THEN
4701: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4702: END IF;
4703: RAISE fnd_api.g_exc_error;
4699: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4700: IF (l_debug = 1) THEN
4701: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4702: END IF;
4703: RAISE fnd_api.g_exc_error;
4704: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4705: IF (l_debug = 1) THEN
4706: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4707: END IF;
4700: IF (l_debug = 1) THEN
4701: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4702: END IF;
4703: RAISE fnd_api.g_exc_error;
4704: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4705: IF (l_debug = 1) THEN
4706: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4707: END IF;
4708: RAISE fnd_api.g_exc_unexpected_error;
4704: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4705: IF (l_debug = 1) THEN
4706: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4707: END IF;
4708: RAISE fnd_api.g_exc_unexpected_error;
4709: END IF;
4710:
4711: IF (l_debug = 1) THEN
4712: DEBUG('Calling Update Shipping Attributes', 'Finalize Pick Confirm');
4720: IF (l_debug = 1) THEN
4721: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
4722: END IF;
4723:
4724: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4725: IF (l_debug = 1) THEN
4726: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4727: END IF;
4728: RAISE fnd_api.g_exc_error;
4724: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4725: IF (l_debug = 1) THEN
4726: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4727: END IF;
4728: RAISE fnd_api.g_exc_error;
4729: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4730: IF (l_debug = 1) THEN
4731: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4732: END IF;
4725: IF (l_debug = 1) THEN
4726: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4727: END IF;
4728: RAISE fnd_api.g_exc_error;
4729: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4730: IF (l_debug = 1) THEN
4731: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4732: END IF;
4733: RAISE fnd_api.g_exc_unexpected_error;
4729: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4730: IF (l_debug = 1) THEN
4731: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4732: END IF;
4733: RAISE fnd_api.g_exc_unexpected_error;
4734: END IF;
4735: ELSE
4736: -- Unmark the remaining serials
4737: /*** {{ R12 Enhanced reservations code changes,
4748: ,to_serial_number => null
4749: ,serial_code => null
4750: ,hdr_id => null
4751: ,p_inventory_item_id => l_mmtt_rec.inventory_item_id
4752: ,p_update_reservation => fnd_api.g_true);
4753: /*** End R12 }} ***/
4754: END IF;
4755: END LOOP;
4756: CLOSE serial_csr;
4820: ( p_in_attributes => l_InvPCInRecType,
4821: x_return_status => l_return_status,
4822: x_msg_count => l_msg_count,
4823: x_msg_data => l_msg_data );
4824: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4825: IF (l_debug = 1) THEN
4826: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4827: END IF;
4828: RAISE fnd_api.g_exc_error;
4824: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4825: IF (l_debug = 1) THEN
4826: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4827: END IF;
4828: RAISE fnd_api.g_exc_error;
4829: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4830: IF (l_debug = 1) THEN
4831: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4832: END IF;
4825: IF (l_debug = 1) THEN
4826: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4827: END IF;
4828: RAISE fnd_api.g_exc_error;
4829: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4830: IF (l_debug = 1) THEN
4831: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4832: END IF;
4833: RAISE fnd_api.g_exc_unexpected_error;
4829: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4830: IF (l_debug = 1) THEN
4831: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4832: END IF;
4833: RAISE fnd_api.g_exc_unexpected_error;
4834: END IF;
4835:
4836: IF (l_debug = 1) THEN
4837: DEBUG('Calling Update Shipping Attributes for a serial range', 'Finalize Pick Confirm');
4850: IF (l_debug = 1) THEN
4851: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
4852: END IF;
4853:
4854: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4855: IF (l_debug = 1) THEN
4856: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4857: END IF;
4858: RAISE fnd_api.g_exc_error;
4854: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4855: IF (l_debug = 1) THEN
4856: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4857: END IF;
4858: RAISE fnd_api.g_exc_error;
4859: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4860: IF (l_debug = 1) THEN
4861: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
4862: END IF;
4855: IF (l_debug = 1) THEN
4856: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4857: END IF;
4858: RAISE fnd_api.g_exc_error;
4859: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4860: IF (l_debug = 1) THEN
4861: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
4862: END IF;
4863: RAISE fnd_api.g_exc_unexpected_error;
4859: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4860: IF (l_debug = 1) THEN
4861: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
4862: END IF;
4863: RAISE fnd_api.g_exc_unexpected_error;
4864: END IF;
4865: ELSE -- Either only a single serial item or not WMS.I process the old way
4866: l_serial_trx_temp_id := 0;
4867: l_ser_prim_shipping_quantity := 0;
4917: ( p_in_attributes => l_InvPCInRecType,
4918: x_return_status => l_return_status,
4919: x_msg_count => l_msg_count,
4920: x_msg_data => l_msg_data );
4921: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4922: IF (l_debug = 1) THEN
4923: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4924: END IF;
4925: RAISE fnd_api.g_exc_error;
4921: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4922: IF (l_debug = 1) THEN
4923: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4924: END IF;
4925: RAISE fnd_api.g_exc_error;
4926: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4927: IF (l_debug = 1) THEN
4928: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4929: END IF;
4922: IF (l_debug = 1) THEN
4923: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4924: END IF;
4925: RAISE fnd_api.g_exc_error;
4926: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4927: IF (l_debug = 1) THEN
4928: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4929: END IF;
4930: RAISE fnd_api.g_exc_unexpected_error;
4926: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4927: IF (l_debug = 1) THEN
4928: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
4929: END IF;
4930: RAISE fnd_api.g_exc_unexpected_error;
4931: END IF;
4932:
4933: IF (l_debug = 1) THEN
4934: DEBUG('Calling Update Shipping Attributes', 'Finalize Pick Confirm');
4941: IF (l_debug = 1) THEN
4942: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
4943: END IF;
4944:
4945: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4946: IF (l_debug = 1) THEN
4947: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4948: END IF;
4949: RAISE fnd_api.g_exc_error;
4945: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
4946: IF (l_debug = 1) THEN
4947: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4948: END IF;
4949: RAISE fnd_api.g_exc_error;
4950: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4951: IF (l_debug = 1) THEN
4952: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4953: END IF;
4946: IF (l_debug = 1) THEN
4947: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4948: END IF;
4949: RAISE fnd_api.g_exc_error;
4950: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4951: IF (l_debug = 1) THEN
4952: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4953: END IF;
4954: RAISE fnd_api.g_exc_unexpected_error;
4950: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4951: IF (l_debug = 1) THEN
4952: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
4953: END IF;
4954: RAISE fnd_api.g_exc_unexpected_error;
4955: END IF;
4956: ELSE
4957: -- Unmark the remaining serials
4958: /*** {{ R12 Enhanced reservations code changes,
4969: ,to_serial_number => null
4970: ,serial_code => null
4971: ,hdr_id => null
4972: ,p_inventory_item_id => l_mmtt_rec.inventory_item_id
4973: ,p_update_reservation => fnd_api.g_true);
4974: /*** End R12 }} ***/
4975: END IF;
4976: END LOOP;
4977: CLOSE serial_csr;
5060: ( p_in_attributes => l_InvPCInRecType,
5061: x_return_status => l_return_status,
5062: x_msg_count => l_msg_count,
5063: x_msg_data => l_msg_data );
5064: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5065: IF (l_debug = 1) THEN
5066: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5067: END IF;
5068: RAISE fnd_api.g_exc_error;
5064: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5065: IF (l_debug = 1) THEN
5066: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5067: END IF;
5068: RAISE fnd_api.g_exc_error;
5069: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5070: IF (l_debug = 1) THEN
5071: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5072: END IF;
5065: IF (l_debug = 1) THEN
5066: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5067: END IF;
5068: RAISE fnd_api.g_exc_error;
5069: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5070: IF (l_debug = 1) THEN
5071: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5072: END IF;
5073: RAISE fnd_api.g_exc_unexpected_error;
5069: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5070: IF (l_debug = 1) THEN
5071: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5072: END IF;
5073: RAISE fnd_api.g_exc_unexpected_error;
5074: END IF;
5075:
5076: IF (l_debug = 1) THEN
5077: DEBUG('Calling Update Shipping Attributes', 'Finalize Pick Confirm');
5084: IF (l_debug = 1) THEN
5085: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
5086: END IF;
5087:
5088: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5089: IF (l_debug = 1) THEN
5090: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5091: END IF;
5092: RAISE fnd_api.g_exc_error;
5088: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5089: IF (l_debug = 1) THEN
5090: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5091: END IF;
5092: RAISE fnd_api.g_exc_error;
5093: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5094: IF (l_debug = 1) THEN
5095: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5096: END IF;
5089: IF (l_debug = 1) THEN
5090: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5091: END IF;
5092: RAISE fnd_api.g_exc_error;
5093: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5094: IF (l_debug = 1) THEN
5095: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5096: END IF;
5097: RAISE fnd_api.g_exc_unexpected_error;
5093: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5094: IF (l_debug = 1) THEN
5095: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5096: END IF;
5097: RAISE fnd_api.g_exc_unexpected_error;
5098: END IF;
5099: END LOOP;
5100:
5101: CLOSE lot_csr;
5151: ( p_in_attributes => l_InvPCInRecType,
5152: x_return_status => l_return_status,
5153: x_msg_count => l_msg_count,
5154: x_msg_data => l_msg_data );
5155: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5156: IF (l_debug = 1) THEN
5157: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5158: END IF;
5159: RAISE fnd_api.g_exc_error;
5155: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5156: IF (l_debug = 1) THEN
5157: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5158: END IF;
5159: RAISE fnd_api.g_exc_error;
5160: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5161: IF (l_debug = 1) THEN
5162: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5163: END IF;
5156: IF (l_debug = 1) THEN
5157: DEBUG('return error E from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5158: END IF;
5159: RAISE fnd_api.g_exc_error;
5160: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5161: IF (l_debug = 1) THEN
5162: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5163: END IF;
5164: RAISE fnd_api.g_exc_unexpected_error;
5160: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5161: IF (l_debug = 1) THEN
5162: DEBUG('return error U from Set_Inv_PC_Attributes', 'Finalize Pick Confirm');
5163: END IF;
5164: RAISE fnd_api.g_exc_unexpected_error;
5165: END IF;
5166:
5167: IF (l_debug = 1) THEN
5168: DEBUG('Calling Update Shipping Attributes', 'Finalize Pick Confirm');
5175: IF (l_debug = 1) THEN
5176: DEBUG('after update shipping attributes', 'Finalize_Pick_Confirm');
5177: END IF;
5178:
5179: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5180: IF (l_debug = 1) THEN
5181: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5182: END IF;
5183: RAISE fnd_api.g_exc_error;
5179: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5180: IF (l_debug = 1) THEN
5181: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5182: END IF;
5183: RAISE fnd_api.g_exc_error;
5184: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5185: IF (l_debug = 1) THEN
5186: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
5187: END IF;
5180: IF (l_debug = 1) THEN
5181: DEBUG('return error from update shipping attributes', 'Finalize_Pick_Confirm');
5182: END IF;
5183: RAISE fnd_api.g_exc_error;
5184: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5185: IF (l_debug = 1) THEN
5186: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
5187: END IF;
5188: RAISE fnd_api.g_exc_unexpected_error;
5184: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5185: IF (l_debug = 1) THEN
5186: DEBUG('return unexpected error from update shipping attributes', 'Finalize_Pick_Confirm');
5187: END IF;
5188: RAISE fnd_api.g_exc_unexpected_error;
5189: END IF;
5190: END IF; -- lot control and serial control
5191:
5192: IF l_trolin_rec.line_status = 5 THEN
5195: -- reservations for this record. This will also delete
5196: -- reservations which are against the backordered lines.
5197: 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);
5198:
5199: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5200: IF (l_debug = 1) THEN
5201: DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
5202: END IF;
5203: RAISE fnd_api.g_exc_error;
5199: IF (l_return_status = fnd_api.g_ret_sts_error) THEN
5200: IF (l_debug = 1) THEN
5201: DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
5202: END IF;
5203: RAISE fnd_api.g_exc_error;
5204: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5205: IF (l_debug = 1) THEN
5206: DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
5207: END IF;
5200: IF (l_debug = 1) THEN
5201: DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
5202: END IF;
5203: RAISE fnd_api.g_exc_error;
5204: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5205: IF (l_debug = 1) THEN
5206: DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
5207: END IF;
5208: RAISE fnd_api.g_exc_unexpected_error;
5204: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5205: IF (l_debug = 1) THEN
5206: DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
5207: END IF;
5208: RAISE fnd_api.g_exc_unexpected_error;
5209: END IF;
5210:
5211: -- Bug 1838450
5212: -- Fix the detailed quantity on all reservations for this
5259: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
5260: END IF;
5261: inv_reservation_pub.update_reservation(
5262: p_api_version_number => 1.0
5263: , p_init_msg_lst => fnd_api.g_false
5264: , x_return_status => l_return_status
5265: , x_msg_count => x_msg_count
5266: , x_msg_data => x_msg_data
5267: , p_original_rsv_rec => l_mtl_reservation_rec2
5267: , p_original_rsv_rec => l_mtl_reservation_rec2
5268: , p_to_rsv_rec => l_mtl_reservation_rec3
5269: , p_original_serial_number => l_original_serial_number
5270: , p_to_serial_number => l_to_serial_number
5271: , p_validation_flag => fnd_api.g_true
5272: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5273: );
5274: IF (l_debug = 1) THEN
5275: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5274: IF (l_debug = 1) THEN
5275: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5276: END IF;
5277:
5278: IF l_return_status = fnd_api.g_ret_sts_error THEN
5279: RAISE fnd_api.g_exc_error;
5280: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5281: RAISE fnd_api.g_exc_unexpected_error;
5282: END IF;
5275: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5276: END IF;
5277:
5278: IF l_return_status = fnd_api.g_ret_sts_error THEN
5279: RAISE fnd_api.g_exc_error;
5280: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5281: RAISE fnd_api.g_exc_unexpected_error;
5282: END IF;
5283: END IF; -- if allocated quantity < detailed rsv quantity
5276: END IF;
5277:
5278: IF l_return_status = fnd_api.g_ret_sts_error THEN
5279: RAISE fnd_api.g_exc_error;
5280: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5281: RAISE fnd_api.g_exc_unexpected_error;
5282: END IF;
5283: END IF; -- if allocated quantity < detailed rsv quantity
5284: END LOOP;
5277:
5278: IF l_return_status = fnd_api.g_ret_sts_error THEN
5279: RAISE fnd_api.g_exc_error;
5280: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5281: RAISE fnd_api.g_exc_unexpected_error;
5282: END IF;
5283: END IF; -- if allocated quantity < detailed rsv quantity
5284: END LOOP;
5285: IF reservations_csr%ISOPEN THEN
5349: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
5350: , x_error_code => l_error_code
5351: );
5352:
5353: IF l_return_status = fnd_api.g_ret_sts_error THEN
5354: IF (l_debug = 1) THEN
5355: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5356: END IF;
5357: RAISE fnd_api.g_exc_error;
5353: IF l_return_status = fnd_api.g_ret_sts_error THEN
5354: IF (l_debug = 1) THEN
5355: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5356: END IF;
5357: RAISE fnd_api.g_exc_error;
5358: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5359: IF (l_debug = 1) THEN
5360: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5361: END IF;
5354: IF (l_debug = 1) THEN
5355: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5356: END IF;
5357: RAISE fnd_api.g_exc_error;
5358: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5359: IF (l_debug = 1) THEN
5360: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5361: END IF;
5362: RAISE fnd_api.g_exc_unexpected_error;
5358: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5359: IF (l_debug = 1) THEN
5360: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5361: END IF;
5362: RAISE fnd_api.g_exc_unexpected_error;
5363: END IF;
5364:
5365: IF (l_debug = 1) THEN
5366: DEBUG('reservation count = '|| l_mtl_reservation_tbl.COUNT, 'Finalize_Pick_Confirm');
5399: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
5400: END IF;
5401: inv_reservation_pub.update_reservation(
5402: p_api_version_number => 1.0
5403: , p_init_msg_lst => fnd_api.g_false
5404: , x_return_status => l_return_status
5405: , x_msg_count => x_msg_count
5406: , x_msg_data => x_msg_data
5407: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5407: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5408: , p_to_rsv_rec => l_mtl_reservation_rec
5409: , p_original_serial_number => l_original_serial_number
5410: , p_to_serial_number => l_to_serial_number
5411: , p_validation_flag => fnd_api.g_true -- Explicitly set the validation flag to true with respect to the Bug 4004597
5412: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5413: );
5414: IF (l_debug = 1) THEN
5415: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5414: IF (l_debug = 1) THEN
5415: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5416: END IF;
5417:
5418: IF l_return_status = fnd_api.g_ret_sts_error THEN
5419: RAISE fnd_api.g_exc_error;
5420: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5421: RAISE fnd_api.g_exc_unexpected_error;
5422: END IF;
5415: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5416: END IF;
5417:
5418: IF l_return_status = fnd_api.g_ret_sts_error THEN
5419: RAISE fnd_api.g_exc_error;
5420: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5421: RAISE fnd_api.g_exc_unexpected_error;
5422: END IF;
5423:
5416: END IF;
5417:
5418: IF l_return_status = fnd_api.g_ret_sts_error THEN
5419: RAISE fnd_api.g_exc_error;
5420: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5421: RAISE fnd_api.g_exc_unexpected_error;
5422: END IF;
5423:
5424: --requery reservation to reflect updated data
5417:
5418: IF l_return_status = fnd_api.g_ret_sts_error THEN
5419: RAISE fnd_api.g_exc_error;
5420: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5421: RAISE fnd_api.g_exc_unexpected_error;
5422: END IF;
5423:
5424: --requery reservation to reflect updated data
5425: inv_reservation_pub.query_reservation(
5432: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
5433: , x_error_code => l_error_code
5434: );
5435:
5436: IF l_return_status = fnd_api.g_ret_sts_error THEN
5437: IF (l_debug = 1) THEN
5438: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5439: END IF;
5440: RAISE fnd_api.g_exc_error;
5436: IF l_return_status = fnd_api.g_ret_sts_error THEN
5437: IF (l_debug = 1) THEN
5438: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5439: END IF;
5440: RAISE fnd_api.g_exc_error;
5441: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5442: IF (l_debug = 1) THEN
5443: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5444: END IF;
5437: IF (l_debug = 1) THEN
5438: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5439: END IF;
5440: RAISE fnd_api.g_exc_error;
5441: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5442: IF (l_debug = 1) THEN
5443: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5444: END IF;
5445: RAISE fnd_api.g_exc_unexpected_error;
5441: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5442: IF (l_debug = 1) THEN
5443: DEBUG('Error from query_reservations', 'Finalize_Pick_Confirm');
5444: END IF;
5445: RAISE fnd_api.g_exc_unexpected_error;
5446: END IF;
5447: END IF;
5448:
5449: -- Create a new reservation on a staging sub
5505: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
5506: END IF;
5507: inv_reservation_pub.update_reservation(
5508: p_api_version_number => 1.0
5509: , p_init_msg_lst => fnd_api.g_false
5510: , x_return_status => l_return_status
5511: , x_msg_count => x_msg_count
5512: , x_msg_data => x_msg_data
5513: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5513: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5514: , p_to_rsv_rec => l_mtl_reservation_rec
5515: , p_original_serial_number => l_original_serial_number
5516: , p_to_serial_number => l_to_serial_number
5517: , p_validation_flag => fnd_api.g_true
5518: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5519: );
5520: IF (l_debug = 1) THEN
5521: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5520: IF (l_debug = 1) THEN
5521: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5522: END IF;
5523:
5524: IF l_return_status = fnd_api.g_ret_sts_error THEN
5525: RAISE fnd_api.g_exc_error;
5526: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5527: RAISE fnd_api.g_exc_unexpected_error;
5528: END IF;
5521: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5522: END IF;
5523:
5524: IF l_return_status = fnd_api.g_ret_sts_error THEN
5525: RAISE fnd_api.g_exc_error;
5526: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5527: RAISE fnd_api.g_exc_unexpected_error;
5528: END IF;
5529: ELSE -- reservable type <> 2
5522: END IF;
5523:
5524: IF l_return_status = fnd_api.g_ret_sts_error THEN
5525: RAISE fnd_api.g_exc_error;
5526: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5527: RAISE fnd_api.g_exc_unexpected_error;
5528: END IF;
5529: ELSE -- reservable type <> 2
5530: IF (l_debug = 1) THEN
5523:
5524: IF l_return_status = fnd_api.g_ret_sts_error THEN
5525: RAISE fnd_api.g_exc_error;
5526: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5527: RAISE fnd_api.g_exc_unexpected_error;
5528: END IF;
5529: ELSE -- reservable type <> 2
5530: IF (l_debug = 1) THEN
5531: DEBUG('reservable staging subinventory, '|| 'transfer reservation to staging', 'Finalize_Pick_Confirm');
5595: DEBUG('Transfering reservations', 'Finalize_Pick_Confirm');
5596: end if;
5597: inv_reservation_pub.transfer_reservation(
5598: p_api_version_number => 1.0
5599: , p_init_msg_lst => fnd_api.g_false
5600: , x_return_status => l_return_status
5601: , x_msg_count => x_msg_count
5602: , x_msg_data => x_msg_data
5603: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5603: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5604: , p_to_rsv_rec => l_mtl_reservation_rec
5605: , p_original_serial_number => l_to_serial_number
5606: , p_to_serial_number => l_to_serial_number
5607: , p_validation_flag => fnd_api.g_false
5608: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5609: , x_to_reservation_id => l_reservation_id
5610: );
5611: IF (l_debug = 1) THEN
5613: DEBUG('after create new reservation', 'Finalize_Pick_Confirm');
5614: DEBUG('l_return_status is '|| l_return_status, 'Finalize_Pick_Confirm');
5615: END IF;
5616:
5617: IF l_return_status = fnd_api.g_ret_sts_error THEN
5618: IF (l_debug = 1) THEN
5619: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
5620: END IF;
5621: RAISE fnd_api.g_exc_error;
5617: IF l_return_status = fnd_api.g_ret_sts_error THEN
5618: IF (l_debug = 1) THEN
5619: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
5620: END IF;
5621: RAISE fnd_api.g_exc_error;
5622: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5623: IF (l_debug = 1) THEN
5624: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
5625: END IF;
5618: IF (l_debug = 1) THEN
5619: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
5620: END IF;
5621: RAISE fnd_api.g_exc_error;
5622: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5623: IF (l_debug = 1) THEN
5624: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
5625: END IF;
5626: RAISE fnd_api.g_exc_unexpected_error;
5622: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5623: IF (l_debug = 1) THEN
5624: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
5625: END IF;
5626: RAISE fnd_api.g_exc_unexpected_error;
5627: END IF;
5628:
5629: -- bug 3703983
5630: -- 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');
5628:
5629: -- bug 3703983
5630: -- 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');
5631:
5632: --IF l_return_status = fnd_api.g_ret_sts_error THEN
5633: -- (l_debug = 1) THEN
5634: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
5635: -- END IF;
5636: -- RAISE fnd_api.g_exc_error;
5632: --IF l_return_status = fnd_api.g_ret_sts_error THEN
5633: -- (l_debug = 1) THEN
5634: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
5635: -- END IF;
5636: -- RAISE fnd_api.g_exc_error;
5637: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5638: -- IF (l_debug = 1) THEN
5639: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
5640: -- END IF;
5633: -- (l_debug = 1) THEN
5634: -- DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
5635: -- END IF;
5636: -- RAISE fnd_api.g_exc_error;
5637: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5638: -- IF (l_debug = 1) THEN
5639: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
5640: -- END IF;
5641: -- RAISE fnd_api.g_exc_unexpected_error;
5637: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5638: -- IF (l_debug = 1) THEN
5639: -- DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
5640: -- END IF;
5641: -- RAISE fnd_api.g_exc_unexpected_error;
5642: --END IF;
5643: END LOOP;
5644:
5645: IF (l_debug = 1) THEN
5675: DEBUG('l_primary_shipping_quantity: '|| l_primary_shipping_quantity, 'Finalize_Pick_Confirm');
5676: END IF;
5677: inv_reservation_pub.transfer_reservation(
5678: p_api_version_number => 1.0
5679: , p_init_msg_lst => fnd_api.g_false
5680: , x_return_status => l_return_status
5681: , x_msg_count => x_msg_count
5682: , x_msg_data => x_msg_data
5683: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5683: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5684: , p_to_rsv_rec => l_mtl_reservation_rec
5685: , p_original_serial_number => l_to_serial_number
5686: , p_to_serial_number => l_to_serial_number
5687: , p_validation_flag => fnd_api.g_false
5688: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5689: , x_to_reservation_id => l_reservation_id
5690: );
5691: IF (l_debug = 1) THEN
5692: DEBUG('new reservation id is '|| l_reservation_id, 'Finalize_Pick_Confirm');
5693: DEBUG('after create new reservation', 'Finalize_Pick_Confirm');
5694: DEBUG('l_return_status is '|| l_return_status, 'Finalize_Pick_Confirm');
5695: END IF;
5696: IF l_return_status = fnd_api.g_ret_sts_error THEN
5697: IF (l_debug = 1) THEN
5698: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
5699: END IF;
5700: RAISE fnd_api.g_exc_error;
5696: IF l_return_status = fnd_api.g_ret_sts_error THEN
5697: IF (l_debug = 1) THEN
5698: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
5699: END IF;
5700: RAISE fnd_api.g_exc_error;
5701: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5702: IF (l_debug = 1) THEN
5703: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
5704: END IF;
5697: IF (l_debug = 1) THEN
5698: DEBUG('return from transfer_reservation with error E', 'Finalize_Pick_Confirm');
5699: END IF;
5700: RAISE fnd_api.g_exc_error;
5701: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5702: IF (l_debug = 1) THEN
5703: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
5704: END IF;
5705: RAISE fnd_api.g_exc_unexpected_error;
5701: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5702: IF (l_debug = 1) THEN
5703: DEBUG('return from transfer_reservation with error U', 'Finalize_Pick_Confirm');
5704: END IF;
5705: RAISE fnd_api.g_exc_unexpected_error;
5706: END IF;
5707: IF (l_debug = 1) THEN
5708: DEBUG('still inside if no lot records', 'Finalize_Pick_Confirm');
5709: END IF;
5804: -- attributes already exists
5805: -- if there is, use update instead of create
5806: inv_reservation_pub.query_reservation(
5807: p_api_version_number => 1.0
5808: , p_init_msg_lst => fnd_api.g_false
5809: , x_return_status => l_return_status
5810: , x_msg_count => x_msg_count
5811: , x_msg_data => x_msg_data
5812: , p_query_input => l_mtl_reservation_rec
5809: , x_return_status => l_return_status
5810: , x_msg_count => x_msg_count
5811: , x_msg_data => x_msg_data
5812: , p_query_input => l_mtl_reservation_rec
5813: , p_lock_records => fnd_api.g_true
5814: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
5815: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
5816: , x_error_code => l_error_code
5817: );
5815: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
5816: , x_error_code => l_error_code
5817: );
5818:
5819: IF l_return_status = fnd_api.g_ret_sts_error THEN
5820: RAISE fnd_api.g_exc_error;
5821: END IF;
5822:
5823: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5816: , x_error_code => l_error_code
5817: );
5818:
5819: IF l_return_status = fnd_api.g_ret_sts_error THEN
5820: RAISE fnd_api.g_exc_error;
5821: END IF;
5822:
5823: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5824: RAISE fnd_api.g_exc_unexpected_error;
5819: IF l_return_status = fnd_api.g_ret_sts_error THEN
5820: RAISE fnd_api.g_exc_error;
5821: END IF;
5822:
5823: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5824: RAISE fnd_api.g_exc_unexpected_error;
5825: END IF;
5826: IF (l_debug = 1) THEN
5827: DEBUG('Query reservation get count '|| l_mtl_reservation_tbl_count, 'Finalize_Pick_Confirm');
5820: RAISE fnd_api.g_exc_error;
5821: END IF;
5822:
5823: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5824: RAISE fnd_api.g_exc_unexpected_error;
5825: END IF;
5826: IF (l_debug = 1) THEN
5827: DEBUG('Query reservation get count '|| l_mtl_reservation_tbl_count, 'Finalize_Pick_Confirm');
5828: END IF;
5841: DEBUG('Update reservation id '|| l_mtl_reservation_rec.reservation_id, 'Finalize_Pick_Confirm');
5842: END IF;
5843: inv_reservation_pub.update_reservation(
5844: p_api_version_number => 1.0
5845: , p_init_msg_lst => fnd_api.g_false
5846: , x_return_status => l_return_status
5847: , x_msg_count => x_msg_count
5848: , x_msg_data => x_msg_data
5849: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5849: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5850: , p_to_rsv_rec => l_mtl_reservation_rec
5851: , p_original_serial_number => l_original_serial_number
5852: , p_to_serial_number => l_to_serial_number
5853: , p_validation_flag => fnd_api.g_true
5854: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5855: );
5856: IF (l_debug = 1) THEN
5857: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5856: IF (l_debug = 1) THEN
5857: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5858: END IF;
5859:
5860: IF l_return_status = fnd_api.g_ret_sts_error THEN
5861: RAISE fnd_api.g_exc_error;
5862: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5863: RAISE fnd_api.g_exc_unexpected_error;
5864: END IF;
5857: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5858: END IF;
5859:
5860: IF l_return_status = fnd_api.g_ret_sts_error THEN
5861: RAISE fnd_api.g_exc_error;
5862: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5863: RAISE fnd_api.g_exc_unexpected_error;
5864: END IF;
5865: ELSE
5858: END IF;
5859:
5860: IF l_return_status = fnd_api.g_ret_sts_error THEN
5861: RAISE fnd_api.g_exc_error;
5862: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5863: RAISE fnd_api.g_exc_unexpected_error;
5864: END IF;
5865: ELSE
5866: -- check to see the lot is reservable...
5859:
5860: IF l_return_status = fnd_api.g_ret_sts_error THEN
5861: RAISE fnd_api.g_exc_error;
5862: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5863: RAISE fnd_api.g_exc_unexpected_error;
5864: END IF;
5865: ELSE
5866: -- check to see the lot is reservable...
5867: l_mtl_reservation_rec.primary_reservation_quantity := ABS(l_lot_primary_quantity);
5869: l_mtl_reservation_rec.secondary_reservation_quantity := ABS(l_lot_secondary_quantity);
5870: l_mtl_reservation_rec.requirement_date := SYSDATE;
5871: inv_reservation_pub.create_reservation(
5872: p_api_version_number => 1.0
5873: , p_init_msg_lst => fnd_api.g_false
5874: , x_return_status => l_return_status
5875: , x_msg_count => x_msg_count
5876: , x_msg_data => x_msg_data
5877: , p_rsv_rec => l_mtl_reservation_rec
5876: , x_msg_data => x_msg_data
5877: , p_rsv_rec => l_mtl_reservation_rec
5878: , p_serial_number => l_to_serial_number
5879: , x_serial_number => l_to_serial_number
5880: , p_partial_reservation_flag => fnd_api.g_true
5881: , p_force_reservation_flag => fnd_api.g_false
5882: , p_validation_flag => fnd_api.g_true
5883: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5884: , x_quantity_reserved => l_quantity_reserved
5877: , p_rsv_rec => l_mtl_reservation_rec
5878: , p_serial_number => l_to_serial_number
5879: , x_serial_number => l_to_serial_number
5880: , p_partial_reservation_flag => fnd_api.g_true
5881: , p_force_reservation_flag => fnd_api.g_false
5882: , p_validation_flag => fnd_api.g_true
5883: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5884: , x_quantity_reserved => l_quantity_reserved
5885: , x_reservation_id => l_reservation_id
5878: , p_serial_number => l_to_serial_number
5879: , x_serial_number => l_to_serial_number
5880: , p_partial_reservation_flag => fnd_api.g_true
5881: , p_force_reservation_flag => fnd_api.g_false
5882: , p_validation_flag => fnd_api.g_true
5883: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5884: , x_quantity_reserved => l_quantity_reserved
5885: , x_reservation_id => l_reservation_id
5886: );
5889: DEBUG('Quantity reserved: '|| l_quantity_reserved, 'Finalize_Pick_Confirm');
5890: DEBUG('Reservation ID: '|| l_reservation_id, 'Finalize_Pick_Confirm');
5891: END IF;
5892:
5893: IF l_return_status = fnd_api.g_ret_sts_error THEN
5894: IF (l_debug = 1) THEN
5895: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
5896: END IF;
5897: RAISE fnd_api.g_exc_error;
5893: IF l_return_status = fnd_api.g_ret_sts_error THEN
5894: IF (l_debug = 1) THEN
5895: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
5896: END IF;
5897: RAISE fnd_api.g_exc_error;
5898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5899: IF (l_debug = 1) THEN
5900: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
5901: END IF;
5894: IF (l_debug = 1) THEN
5895: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
5896: END IF;
5897: RAISE fnd_api.g_exc_error;
5898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5899: IF (l_debug = 1) THEN
5900: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
5901: END IF;
5902: RAISE fnd_api.g_exc_unexpected_error;
5898: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5899: IF (l_debug = 1) THEN
5900: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
5901: END IF;
5902: RAISE fnd_api.g_exc_unexpected_error;
5903: END IF;
5904:
5905: --bug 1402436 - set the reservations staged flag
5906: 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');
5904:
5905: --bug 1402436 - set the reservations staged flag
5906: 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');
5907:
5908: IF l_return_status = fnd_api.g_ret_sts_error THEN
5909: IF (l_debug = 1) THEN
5910: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
5911: END IF;
5912: RAISE fnd_api.g_exc_error;
5908: IF l_return_status = fnd_api.g_ret_sts_error THEN
5909: IF (l_debug = 1) THEN
5910: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
5911: END IF;
5912: RAISE fnd_api.g_exc_error;
5913: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5914: IF (l_debug = 1) THEN
5915: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
5916: END IF;
5909: IF (l_debug = 1) THEN
5910: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
5911: END IF;
5912: RAISE fnd_api.g_exc_error;
5913: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5914: IF (l_debug = 1) THEN
5915: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
5916: END IF;
5917: RAISE fnd_api.g_exc_unexpected_error;
5913: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5914: IF (l_debug = 1) THEN
5915: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
5916: END IF;
5917: RAISE fnd_api.g_exc_unexpected_error;
5918: END IF;
5919: END IF; -- Create or Update
5920: END LOOP; -- Lot loop
5921:
5933: -- attributes already exists
5934: -- if there is, use update instead of create
5935: inv_reservation_pub.query_reservation(
5936: p_api_version_number => 1.0
5937: , p_init_msg_lst => fnd_api.g_false
5938: , x_return_status => l_return_status
5939: , x_msg_count => x_msg_count
5940: , x_msg_data => x_msg_data
5941: , p_query_input => l_mtl_reservation_rec
5938: , x_return_status => l_return_status
5939: , x_msg_count => x_msg_count
5940: , x_msg_data => x_msg_data
5941: , p_query_input => l_mtl_reservation_rec
5942: , p_lock_records => fnd_api.g_true
5943: , x_mtl_reservation_tbl => l_mtl_reservation_tbl
5944: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
5945: , x_error_code => l_error_code
5946: );
5944: , x_mtl_reservation_tbl_count => l_mtl_reservation_tbl_count
5945: , x_error_code => l_error_code
5946: );
5947:
5948: IF l_return_status = fnd_api.g_ret_sts_error THEN
5949: RAISE fnd_api.g_exc_error;
5950: END IF;
5951:
5952: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5945: , x_error_code => l_error_code
5946: );
5947:
5948: IF l_return_status = fnd_api.g_ret_sts_error THEN
5949: RAISE fnd_api.g_exc_error;
5950: END IF;
5951:
5952: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5953: RAISE fnd_api.g_exc_unexpected_error;
5948: IF l_return_status = fnd_api.g_ret_sts_error THEN
5949: RAISE fnd_api.g_exc_error;
5950: END IF;
5951:
5952: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5953: RAISE fnd_api.g_exc_unexpected_error;
5954: END IF;
5955:
5956: IF l_mtl_reservation_tbl_count > 0 THEN
5949: RAISE fnd_api.g_exc_error;
5950: END IF;
5951:
5952: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5953: RAISE fnd_api.g_exc_unexpected_error;
5954: END IF;
5955:
5956: IF l_mtl_reservation_tbl_count > 0 THEN
5957: l_mtl_reservation_rec.primary_reservation_quantity := l_mtl_reservation_tbl(1).primary_reservation_quantity + l_primary_shipping_quantity;
5964: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
5965: END IF;
5966: inv_reservation_pub.update_reservation(
5967: p_api_version_number => 1.0
5968: , p_init_msg_lst => fnd_api.g_false
5969: , x_return_status => l_return_status
5970: , x_msg_count => x_msg_count
5971: , x_msg_data => x_msg_data
5972: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5972: , p_original_rsv_rec => l_mtl_reservation_tbl(1)
5973: , p_to_rsv_rec => l_mtl_reservation_rec
5974: , p_original_serial_number => l_original_serial_number
5975: , p_to_serial_number => l_to_serial_number
5976: , p_validation_flag => fnd_api.g_true
5977: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
5978: );
5979: IF (l_debug = 1) THEN
5980: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5979: IF (l_debug = 1) THEN
5980: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5981: END IF;
5982:
5983: IF l_return_status = fnd_api.g_ret_sts_error THEN
5984: RAISE fnd_api.g_exc_error;
5985: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5986: RAISE fnd_api.g_exc_unexpected_error;
5987: END IF;
5980: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
5981: END IF;
5982:
5983: IF l_return_status = fnd_api.g_ret_sts_error THEN
5984: RAISE fnd_api.g_exc_error;
5985: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5986: RAISE fnd_api.g_exc_unexpected_error;
5987: END IF;
5988: ELSE
5981: END IF;
5982:
5983: IF l_return_status = fnd_api.g_ret_sts_error THEN
5984: RAISE fnd_api.g_exc_error;
5985: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5986: RAISE fnd_api.g_exc_unexpected_error;
5987: END IF;
5988: ELSE
5989: l_mtl_reservation_rec.primary_reservation_quantity := l_primary_shipping_quantity;
5982:
5983: IF l_return_status = fnd_api.g_ret_sts_error THEN
5984: RAISE fnd_api.g_exc_error;
5985: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
5986: RAISE fnd_api.g_exc_unexpected_error;
5987: END IF;
5988: ELSE
5989: l_mtl_reservation_rec.primary_reservation_quantity := l_primary_shipping_quantity;
5990: l_mtl_reservation_rec.reservation_quantity := l_shipping_quantity;
5994: DEBUG('create reservation demand source'|| l_mtl_reservation_rec.demand_source_type_id, 'Finalize_Pick_Confirm');
5995: END IF;
5996: inv_reservation_pub.create_reservation(
5997: p_api_version_number => 1.0
5998: , p_init_msg_lst => fnd_api.g_false
5999: , x_return_status => l_return_status
6000: , x_msg_count => x_msg_count
6001: , x_msg_data => x_msg_data
6002: , p_rsv_rec => l_mtl_reservation_rec
6001: , x_msg_data => x_msg_data
6002: , p_rsv_rec => l_mtl_reservation_rec
6003: , p_serial_number => l_to_serial_number
6004: , x_serial_number => l_to_serial_number
6005: , p_partial_reservation_flag => fnd_api.g_true
6006: , p_force_reservation_flag => fnd_api.g_false
6007: , p_validation_flag => fnd_api.g_true
6008: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6009: , x_quantity_reserved => l_quantity_reserved
6002: , p_rsv_rec => l_mtl_reservation_rec
6003: , p_serial_number => l_to_serial_number
6004: , x_serial_number => l_to_serial_number
6005: , p_partial_reservation_flag => fnd_api.g_true
6006: , p_force_reservation_flag => fnd_api.g_false
6007: , p_validation_flag => fnd_api.g_true
6008: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6009: , x_quantity_reserved => l_quantity_reserved
6010: , x_reservation_id => l_reservation_id
6003: , p_serial_number => l_to_serial_number
6004: , x_serial_number => l_to_serial_number
6005: , p_partial_reservation_flag => fnd_api.g_true
6006: , p_force_reservation_flag => fnd_api.g_false
6007: , p_validation_flag => fnd_api.g_true
6008: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6009: , x_quantity_reserved => l_quantity_reserved
6010: , x_reservation_id => l_reservation_id
6011: );
6013: DEBUG('Quantity reserved: '|| l_quantity_reserved, 'Finalize_Pick_Confirm');
6014: DEBUG('Reservation ID: '|| l_reservation_id, 'Finalize_Pick_Confirm');
6015: END IF;
6016:
6017: IF l_return_status = fnd_api.g_ret_sts_error THEN
6018: IF (l_debug = 1) THEN
6019: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
6020: END IF;
6021: RAISE fnd_api.g_exc_error;
6017: IF l_return_status = fnd_api.g_ret_sts_error THEN
6018: IF (l_debug = 1) THEN
6019: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
6020: END IF;
6021: RAISE fnd_api.g_exc_error;
6022: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6023: IF (l_debug = 1) THEN
6024: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
6025: END IF;
6018: IF (l_debug = 1) THEN
6019: DEBUG('Error in creating reservation for lot', 'Finalize_Pick_Confirm');
6020: END IF;
6021: RAISE fnd_api.g_exc_error;
6022: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6023: IF (l_debug = 1) THEN
6024: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
6025: END IF;
6026: RAISE fnd_api.g_exc_unexpected_error;
6022: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6023: IF (l_debug = 1) THEN
6024: DEBUG('Unexpected error in creating reservation for lot', 'Finalize_Pick_Confirm');
6025: END IF;
6026: RAISE fnd_api.g_exc_unexpected_error;
6027: END IF;
6028:
6029: --bug 1402436 - set the reservations staged flag
6030: inv_staged_reservation_util.update_staged_flag
6034: , p_reservation_id => l_reservation_id
6035: , p_staged_flag => 'Y'
6036: );
6037:
6038: IF l_return_status = fnd_api.g_ret_sts_error THEN
6039: IF (l_debug = 1) THEN
6040: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6041: END IF;
6042: RAISE fnd_api.g_exc_error;
6038: IF l_return_status = fnd_api.g_ret_sts_error THEN
6039: IF (l_debug = 1) THEN
6040: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6041: END IF;
6042: RAISE fnd_api.g_exc_error;
6043: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6044: IF (l_debug = 1) THEN
6045: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6046: END IF;
6039: IF (l_debug = 1) THEN
6040: DEBUG('Error in update_staged_flag', 'Finalize_Pick_Confirm');
6041: END IF;
6042: RAISE fnd_api.g_exc_error;
6043: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6044: IF (l_debug = 1) THEN
6045: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6046: END IF;
6047: RAISE fnd_api.g_exc_unexpected_error;
6043: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6044: IF (l_debug = 1) THEN
6045: DEBUG('Unexpected error in update_staged_flag', 'Finalize_Pick_Confirm');
6046: END IF;
6047: RAISE fnd_api.g_exc_unexpected_error;
6048: END IF;
6049: END IF; -- Create or Update
6050: END IF; -- Lot control or not
6051: END IF; -- Staging sub reservable or not
6062: -- reservations which are against the backordered lines.
6063:
6064: --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);
6065:
6066: --IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6067: -- IF (l_debug = 1) THEN
6068: -- DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
6069: -- END IF;
6070: -- RAISE fnd_api.g_exc_error;
6066: --IF (l_return_status = fnd_api.g_ret_sts_error) THEN
6067: -- IF (l_debug = 1) THEN
6068: -- DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
6069: -- END IF;
6070: -- RAISE fnd_api.g_exc_error;
6071: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6072: -- IF (l_debug = 1) THEN
6073: -- DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
6074: -- END IF;
6067: -- IF (l_debug = 1) THEN
6068: -- DEBUG('return error from clean reservations', 'Finalize_Pick_Confirm');
6069: -- END IF;
6070: -- RAISE fnd_api.g_exc_error;
6071: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6072: -- IF (l_debug = 1) THEN
6073: -- DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
6074: -- END IF;
6075: -- RAISE fnd_api.g_exc_unexpected_error;
6071: --ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6072: -- IF (l_debug = 1) THEN
6073: -- DEBUG('return unexpected error from clean reservations', 'Finalize_Pick_Confirm');
6074: -- END IF;
6075: -- RAISE fnd_api.g_exc_unexpected_error;
6076: --END IF;
6077:
6078: -- Fix the detailed quantity on all reservations for this
6079: -- sales order line. Necessary for underpicking.
6127: l_mtl_reservation_rec.secondary_detailed_quantity := NULL;
6128: END IF;
6129: inv_reservation_pub.update_reservation(
6130: p_api_version_number => 1.0
6131: , p_init_msg_lst => fnd_api.g_false
6132: , x_return_status => l_return_status
6133: , x_msg_count => x_msg_count
6134: , x_msg_data => x_msg_data
6135: , p_original_rsv_rec => l_mtl_reservation_rec2
6135: , p_original_rsv_rec => l_mtl_reservation_rec2
6136: , p_to_rsv_rec => l_mtl_reservation_rec3
6137: , p_original_serial_number => l_original_serial_number
6138: , p_to_serial_number => l_to_serial_number
6139: , p_validation_flag => fnd_api.g_true
6140: , p_over_reservation_flag => 3 -- Bug 4997704, Passing p_over_reservation_flag to reservation API to handle overpicking scenarios
6141: );
6142: IF (l_debug = 1) THEN
6143: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6142: IF (l_debug = 1) THEN
6143: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6144: END IF;
6145:
6146: IF l_return_status = fnd_api.g_ret_sts_error THEN
6147: RAISE fnd_api.g_exc_error;
6148: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6149: RAISE fnd_api.g_exc_unexpected_error;
6150: END IF;
6143: DEBUG('after update reservation return status is '|| l_return_status, 'Finalize_Pick_Confirm');
6144: END IF;
6145:
6146: IF l_return_status = fnd_api.g_ret_sts_error THEN
6147: RAISE fnd_api.g_exc_error;
6148: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6149: RAISE fnd_api.g_exc_unexpected_error;
6150: END IF;
6151: END IF; -- if allocated quantity < detailed rsv quantity
6144: END IF;
6145:
6146: IF l_return_status = fnd_api.g_ret_sts_error THEN
6147: RAISE fnd_api.g_exc_error;
6148: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6149: RAISE fnd_api.g_exc_unexpected_error;
6150: END IF;
6151: END IF; -- if allocated quantity < detailed rsv quantity
6152: END LOOP;
6145:
6146: IF l_return_status = fnd_api.g_ret_sts_error THEN
6147: RAISE fnd_api.g_exc_error;
6148: ELSIF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
6149: RAISE fnd_api.g_exc_unexpected_error;
6150: END IF;
6151: END IF; -- if allocated quantity < detailed rsv quantity
6152: END LOOP;
6153: IF reservations_csr%ISOPEN THEN
6158:
6159: IF (l_debug = 1) THEN
6160: DEBUG('before return', 'Finalize_Pick_Confirm');
6161: END IF;
6162: x_return_status := fnd_api.g_ret_sts_success;
6163: EXCEPTION
6164: WHEN fnd_api.g_exc_error THEN
6165: x_return_status := fnd_api.g_ret_sts_error;
6166: -- Get message count and data
6160: DEBUG('before return', 'Finalize_Pick_Confirm');
6161: END IF;
6162: x_return_status := fnd_api.g_ret_sts_success;
6163: EXCEPTION
6164: WHEN fnd_api.g_exc_error THEN
6165: x_return_status := fnd_api.g_ret_sts_error;
6166: -- Get message count and data
6167: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6168: WHEN fnd_api.g_exc_unexpected_error THEN
6161: END IF;
6162: x_return_status := fnd_api.g_ret_sts_success;
6163: EXCEPTION
6164: WHEN fnd_api.g_exc_error THEN
6165: x_return_status := fnd_api.g_ret_sts_error;
6166: -- Get message count and data
6167: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6168: WHEN fnd_api.g_exc_unexpected_error THEN
6169: x_return_status := fnd_api.g_ret_sts_unexp_error;
6164: WHEN fnd_api.g_exc_error THEN
6165: x_return_status := fnd_api.g_ret_sts_error;
6166: -- Get message count and data
6167: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6168: WHEN fnd_api.g_exc_unexpected_error THEN
6169: x_return_status := fnd_api.g_ret_sts_unexp_error;
6170: -- Get message count and data
6171: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6172: WHEN OTHERS THEN
6165: x_return_status := fnd_api.g_ret_sts_error;
6166: -- Get message count and data
6167: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6168: WHEN fnd_api.g_exc_unexpected_error THEN
6169: x_return_status := fnd_api.g_ret_sts_unexp_error;
6170: -- Get message count and data
6171: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6172: WHEN OTHERS THEN
6173: x_return_status := fnd_api.g_ret_sts_unexp_error;
6169: x_return_status := fnd_api.g_ret_sts_unexp_error;
6170: -- Get message count and data
6171: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6172: WHEN OTHERS THEN
6173: x_return_status := fnd_api.g_ret_sts_unexp_error;
6174:
6175: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6176: fnd_msg_pub.add_exc_msg(g_pkg_name, 'Pick Confirm');
6177: END IF;
6229: l_debug number;
6230: l_kill_mo_profile NUMBER := NVL(FND_PROFILE.VALUE_WNPS('INV_KILL_MOVE_ORDER'),2);
6231: l_trolin_rec inv_move_order_pub.trolin_rec_type; -- Bug 5059984
6232: BEGIN
6233: x_return_status := FND_API.G_RET_STS_SUCCESS;
6234:
6235: -- Use cache to get value for l_debug
6236: IF g_is_pickrelease_set IS NULL THEN
6237: g_is_pickrelease_set := 2;
6267: IF (l_debug = 1) THEN
6268: DEBUG('MO Header not found for the MO Line = ' || l_rep_mmtt_rec.move_order_line_id,'INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6269: END IF;
6270: CLOSE c_mo_type;
6271: RAISE FND_API.G_EXC_ERROR;
6272: END IF;
6273: CLOSE c_mo_type;
6274:
6275: IF (l_debug = 1) THEN
6309: IF (l_debug = 1) THEN
6310: DEBUG('MO Header not found for the MO Line = ' || l_mo_line.move_order_line_id,'INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6311: END IF;
6312: CLOSE c_mo_type;
6313: RAISE FND_API.G_EXC_ERROR;
6314: END IF;
6315: CLOSE c_mo_type;
6316:
6317: IF (l_debug = 1) THEN
6324: DEBUG('Replenishment Move Order... Closing the Move Order','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6325: END IF;
6326: 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);
6327:
6328: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6329: RAISE FND_API.G_EXC_ERROR;
6330: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6332: END IF;
6325: END IF;
6326: 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);
6327:
6328: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6329: RAISE FND_API.G_EXC_ERROR;
6330: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6332: END IF;
6333: END IF; -- end if check mo_type = 2
6326: 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);
6327:
6328: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6329: RAISE FND_API.G_EXC_ERROR;
6330: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6332: END IF;
6333: END IF; -- end if check mo_type = 2
6334: END LOOP;
6327:
6328: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
6329: RAISE FND_API.G_EXC_ERROR;
6330: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
6331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6332: END IF;
6333: END IF; -- end if check mo_type = 2
6334: END LOOP;
6335: END IF; -- end if check fill kill profile
6334: END LOOP;
6335: END IF; -- end if check fill kill profile
6336:
6337: EXCEPTION
6338: WHEN FND_API.G_EXC_ERROR THEN
6339: IF (l_debug = 1) THEN
6340: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6341: END IF;
6342: x_return_status := FND_API.G_RET_STS_ERROR;
6338: WHEN FND_API.G_EXC_ERROR THEN
6339: IF (l_debug = 1) THEN
6340: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6341: END IF;
6342: x_return_status := FND_API.G_RET_STS_ERROR;
6343: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6345: IF (l_debug = 1) THEN
6346: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6340: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6341: END IF;
6342: x_return_status := FND_API.G_RET_STS_ERROR;
6343: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6345: IF (l_debug = 1) THEN
6346: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6347: END IF;
6348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6344: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6345: IF (l_debug = 1) THEN
6346: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.KILL_MOVE_ORDER');
6347: END IF;
6348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6349: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6350: WHEN OTHERS THEN
6351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6352:
6347: END IF;
6348: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6349: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6350: WHEN OTHERS THEN
6351: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6352:
6353: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6354: fnd_msg_pub.add_exc_msg(g_pkg_name, 'KILL_MOVE_ORDER');
6355: END IF;
6460: ,to_serial_number => l_serial_cursor.to_Serial_number
6461: ,serial_code => null
6462: ,hdr_id => null
6463: ,p_inventory_item_id => l_Serial_cursor.inventory_item_id
6464: ,p_update_reservation => fnd_api.g_true);
6465: /*** End R12 }} ***/
6466:
6467: delete_remaining_serial := TRUE;
6468: been_here := TRUE;
6482: x_quantity => x_quantity,
6483: x_from_number => l_from_number,
6484: x_to_number => l_to_number,
6485: x_errorcode => x_errorcode) THEN
6486: RAISE FND_API.G_EXC_ERROR;
6487: END IF;
6488:
6489: l_new_num:=l_from_number+(diff_qty-((qty_count-p_qty)+1));
6490: l_new_num_update:=l_from_number+(diff_qty-((qty_count-p_qty)+1))+1;
6529: ,to_serial_number => l_serial_cursor.to_serial_number
6530: ,serial_code => null
6531: ,hdr_id => null
6532: ,p_inventory_item_id => l_serial_cursor.inventory_item_id
6533: ,p_update_reservation => fnd_api.g_true);
6534: /*** End R12 }} ***/
6535:
6536: delete_remaining_serial := TRUE;
6537: been_here := TRUE;
6561: ,to_serial_number => null
6562: ,serial_code => null
6563: ,hdr_id => null
6564: ,p_inventory_item_id => l_serial_cursor.inventory_item_id
6565: ,p_update_reservation => fnd_api.g_true);
6566: /*** End R12 }} ***/
6567:
6568: delete_remaining_serial := TRUE;
6569: been_here := TRUE;
6597: ,to_serial_number => null
6598: ,serial_code => null
6599: ,hdr_id => null
6600: ,p_inventory_item_id => l_serial_cursor.inventory_item_id
6601: ,p_update_reservation => fnd_api.g_true);
6602: /*** End R12 }} ***/
6603:
6604: end if;
6605:
6606: been_here :=FALSE;
6607: END LOOP;
6608:
6609: EXCEPTION
6610: WHEN FND_API.G_EXC_ERROR THEN
6611: IF (l_debug = 1) THEN
6612: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
6613: END IF;
6614: x_return_status := FND_API.G_RET_STS_ERROR;
6610: WHEN FND_API.G_EXC_ERROR THEN
6611: IF (l_debug = 1) THEN
6612: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
6613: END IF;
6614: x_return_status := FND_API.G_RET_STS_ERROR;
6615: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: IF (l_debug = 1) THEN
6618: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
6612: DEBUG('Expected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
6613: END IF;
6614: x_return_status := FND_API.G_RET_STS_ERROR;
6615: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: IF (l_debug = 1) THEN
6618: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
6619: END IF;
6620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: IF (l_debug = 1) THEN
6618: DEBUG('Unexpected error while closing the Line','INV_TRANSFER_ORDER_PVT.adjust_serial_numbers_in_MMTT');
6619: END IF;
6620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6621: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6622: WHEN OTHERS THEN
6623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6624:
6619: END IF;
6620: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6621: fnd_msg_pub.count_and_get(p_count => x_msg_count, p_data => x_msg_data);
6622: WHEN OTHERS THEN
6623: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6624:
6625: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_unexp_error) THEN
6626: fnd_msg_pub.add_exc_msg(g_pkg_name, 'adjust_serial_numbers_in_MMTT');
6627: END IF;