748:
749: EXCEPTION
750: WHEN FND_API.G_EXC_ERROR THEN
751: x_return_status := FND_API.G_RET_STS_ERROR;
752: fnd_msg_pub.count_and_get (
753: p_encoded => FND_API.G_FALSE
754: , p_count => x_msg_count
755: , p_data => x_msg_data );
756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
754: , p_count => x_msg_count
755: , p_data => x_msg_data );
756: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
757: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
758: fnd_msg_pub.count_and_get (
759: p_encoded => FND_API.G_FALSE
760: , p_count => x_msg_count
761: , p_data => x_msg_data );
762: WHEN OTHERS THEN
760: , p_count => x_msg_count
761: , p_data => x_msg_data );
762: WHEN OTHERS THEN
763: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
764: fnd_msg_pub.count_and_get (
765: p_encoded => FND_API.G_FALSE
766: , p_count => x_msg_count
767: , p_data => x_msg_data );
768: IF SQLCODE IS NOT NULL THEN
858: IF (l_debug = 1) THEN
859: print_debug('MOL LPN not matching!!!', 4);
860: END IF;
861: fnd_message.set_name('INV', 'INV_RCV_NO_ROWS');
862: fnd_msg_pub.add;
863: RAISE FND_API.G_EXC_ERROR;
864: END IF;
865:
866: EXCEPTION
865:
866: EXCEPTION
867: WHEN OTHERS THEN
868: fnd_message.set_name('INV', 'INV_RCV_NO_ROWS');
869: fnd_msg_pub.add;
870: RAISE FND_API.G_EXC_ERROR;
871: END;
872: END IF; --END IF p_lpn_id is NOT NULL
873:
889: IF (l_debug = 1) THEN
890: print_debug('Lot Number not matching!!!', 4);
891: END IF;
892: fnd_message.set_name('INV', 'INV_RCV_NO_ROWS');
893: fnd_msg_pub.add;
894: RAISE FND_API.G_EXC_ERROR;
895: END IF;
896:
897: EXCEPTION
896:
897: EXCEPTION
898: WHEN OTHERS THEN
899: fnd_message.set_name('INV', 'INV_RCV_NO_ROWS');
900: fnd_msg_pub.add;
901: RAISE FND_API.G_EXC_ERROR;
902: END;
903: END IF; --END IF p_lot_number is NOT NULL
904:
962: IF (l_debug = 1) THEN
963: print_debug('get_avail_quantity_to_transfer: There is no quantity available to transfer: ', 4);
964: END IF;
965: fnd_message.set_name('INV', 'INV_RCV_NO_ROWS');
966: fnd_msg_pub.add;
967: RAISE FND_API.G_EXC_ERROR;
968: ELSIF (p_transfer_quantity > l_rcvqty_txn_uom) THEN
969: IF (l_debug = 1) THEN
970: print_debug('Transfer qty ' || p_transfer_quantity || ' exceeds ' ||
970: print_debug('Transfer qty ' || p_transfer_quantity || ' exceeds ' ||
971: ' available quantity ' || l_rcvqty_txn_uom, 4);
972: END IF;
973: fnd_message.set_name('INV', 'INV_RCV_QTY_OVER_TOLERANCE');
974: fnd_msg_pub.add;
975: RAISE FND_API.G_EXC_ERROR;
976: ELSIF (p_transfer_quantity < l_rcvqty_txn_uom) THEN
977: l_avail_transfer_qty := p_transfer_quantity;
978: ELSE
1009:
1010: EXCEPTION
1011: WHEN FND_API.G_EXC_ERROR THEN
1012: x_return_status := FND_API.G_RET_STS_ERROR;
1013: fnd_msg_pub.count_and_get (
1014: p_encoded => FND_API.G_FALSE
1015: , p_count => x_msg_count
1016: , p_data => x_msg_data );
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1015: , p_count => x_msg_count
1016: , p_data => x_msg_data );
1017: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1018: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1019: fnd_msg_pub.count_and_get (
1020: p_encoded => FND_API.G_FALSE
1021: , p_count => x_msg_count
1022: , p_data => x_msg_data );
1023: WHEN OTHERS THEN
1021: , p_count => x_msg_count
1022: , p_data => x_msg_data );
1023: WHEN OTHERS THEN
1024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1025: fnd_msg_pub.count_and_get (
1026: p_encoded => FND_API.G_FALSE
1027: , p_count => x_msg_count
1028: , p_data => x_msg_data );
1029: IF SQLCODE IS NOT NULL THEN
1300:
1301: EXCEPTION
1302: WHEN OTHERS THEN
1303: fnd_message.set_name('INV', 'INV-NO ITEM UOM');
1304: fnd_msg_pub.add;
1305: RAISE FND_API.G_EXC_ERROR;
1306: END;
1307:
1308: l_progress := 30;
1441: IF c_rcvtxn_detail%ISOPEN THEN
1442: CLOSE c_rcvtxn_detail;
1443: END IF;
1444: x_return_status := FND_API.G_RET_STS_ERROR;
1445: fnd_msg_pub.count_and_get (
1446: p_encoded => FND_API.G_FALSE
1447: , p_count => x_msg_count
1448: , p_data => x_msg_data );
1449: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1451: IF c_rcvtxn_detail%ISOPEN THEN
1452: CLOSE c_rcvtxn_detail;
1453: END IF;
1454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1455: fnd_msg_pub.count_and_get (
1456: p_encoded => FND_API.G_FALSE
1457: , p_count => x_msg_count
1458: , p_data => x_msg_data );
1459: WHEN OTHERS THEN
1461: IF c_rcvtxn_detail%ISOPEN THEN
1462: CLOSE c_rcvtxn_detail;
1463: END IF;
1464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1465: fnd_msg_pub.count_and_get (
1466: p_encoded => FND_API.G_FALSE
1467: , p_count => x_msg_count
1468: , p_data => x_msg_data );
1469: IF SQLCODE IS NOT NULL THEN
1723:
1724: EXCEPTION
1725: WHEN OTHERS THEN
1726: fnd_message.set_name('INV', 'INV-NO ITEM UOM');
1727: fnd_msg_pub.add;
1728: RAISE FND_API.G_EXC_ERROR;
1729: END;
1730:
1731: l_progress := 30;
1859: IF c_rcvtxn_detail%ISOPEN THEN
1860: CLOSE c_rcvtxn_detail;
1861: END IF;
1862: x_return_status := FND_API.G_RET_STS_ERROR;
1863: fnd_msg_pub.count_and_get (
1864: p_encoded => FND_API.G_FALSE
1865: , p_count => x_msg_count
1866: , p_data => x_msg_data );
1867: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1868: IF c_rcvtxn_detail%ISOPEN THEN
1869: CLOSE c_rcvtxn_detail;
1870: END IF;
1871: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1872: fnd_msg_pub.count_and_get (
1873: p_encoded => FND_API.G_FALSE
1874: , p_count => x_msg_count
1875: , p_data => x_msg_data );
1876: WHEN OTHERS THEN
1877: IF c_rcvtxn_detail%ISOPEN THEN
1878: CLOSE c_rcvtxn_detail;
1879: END IF;
1880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1881: fnd_msg_pub.count_and_get (
1882: p_encoded => FND_API.G_FALSE
1883: , p_count => x_msg_count
1884: , p_data => x_msg_data );
1885: IF SQLCODE IS NOT NULL THEN
2141:
2142: EXCEPTION
2143: WHEN OTHERS THEN
2144: fnd_message.set_name('INV', 'INV-NO ITEM UOM');
2145: fnd_msg_pub.add;
2146: RAISE FND_API.G_EXC_ERROR;
2147: END;
2148:
2149: l_progress := 30;
2278: IF c_rcvtxn_detail%ISOPEN THEN
2279: CLOSE c_rcvtxn_detail;
2280: END IF;
2281: x_return_status := FND_API.G_RET_STS_ERROR;
2282: fnd_msg_pub.count_and_get (
2283: p_encoded => FND_API.G_FALSE
2284: , p_count => x_msg_count
2285: , p_data => x_msg_data );
2286: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2287: IF c_rcvtxn_detail%ISOPEN THEN
2288: CLOSE c_rcvtxn_detail;
2289: END IF;
2290: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2291: fnd_msg_pub.count_and_get (
2292: p_encoded => FND_API.G_FALSE
2293: , p_count => x_msg_count
2294: , p_data => x_msg_data );
2295: WHEN OTHERS THEN
2296: IF c_rcvtxn_detail%ISOPEN THEN
2297: CLOSE c_rcvtxn_detail;
2298: END IF;
2299: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2300: fnd_msg_pub.count_and_get (
2301: p_encoded => FND_API.G_FALSE
2302: , p_count => x_msg_count
2303: , p_data => x_msg_data );
2304: IF SQLCODE IS NOT NULL THEN
2451: ' . Error in initializing receiving parameters', 4);
2452: print_debug('err: ' || substr(sqlerrm,1,140),4);
2453: END IF;
2454: fnd_message.set_name('INV', 'INV_RCV_PARAM');
2455: fnd_msg_pub.add;
2456:
2457: RAISE FND_API.G_EXC_ERROR;
2458: END;
2459:
2560:
2561: --Check the return status
2562: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2563: fnd_message.set_name('INV', 'INV_RCV_CREATE_PO_RTI_FAIL');
2564: fnd_msg_pub.add;
2565:
2566: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2567: IF (l_debug = 1) THEN
2568: print_debug('Failure in create_transfer_rcvtxn_rec at progress level '
2628:
2629: --Check the return status
2630: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2631: fnd_message.set_name('INV', 'INV_RCV_CRT_INSHP_RTI_FAIL');
2632: fnd_msg_pub.add;
2633:
2634: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2635: IF (l_debug = 1) THEN
2636: print_debug('Failure in create_transfer_rcvtxn_rec at progress level '
2691:
2692: --Check the return status
2693: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2694: fnd_message.set_name('INV', 'INV_RCV_CREATE_RMA_RTI_FAIL');
2695: fnd_msg_pub.add;
2696:
2697: IF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2698: IF (l_debug = 1) THEN
2699: print_debug('Failure in create_transfer_rcvtxn_rec at progress level '
2717: ELSE
2718: print_debug('Failed at : ' || l_progress || ' . Invalid Reference passed : '
2719: || p_reference_type_code, 4);
2720: fnd_message.set_name('INV', 'INV-BAD SOURCE TYPE');
2721: fnd_msg_pub.add;
2722: RAISE FND_API.G_EXC_ERROR;
2723: END IF;
2724:
2725: l_progress := 60;
2731:
2732: EXCEPTION
2733: WHEN FND_API.G_EXC_ERROR THEN
2734: x_return_status := FND_API.G_RET_STS_ERROR;
2735: fnd_msg_pub.count_and_get (
2736: p_encoded => FND_API.G_FALSE
2737: , p_count => x_msg_count
2738: , p_data => x_msg_data );
2739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2737: , p_count => x_msg_count
2738: , p_data => x_msg_data );
2739: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2740: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2741: fnd_msg_pub.count_and_get (
2742: p_encoded => FND_API.G_FALSE
2743: , p_count => x_msg_count
2744: , p_data => x_msg_data );
2745: WHEN OTHERS THEN
2743: , p_count => x_msg_count
2744: , p_data => x_msg_data );
2745: WHEN OTHERS THEN
2746: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2747: fnd_msg_pub.count_and_get (
2748: p_encoded => FND_API.G_FALSE
2749: , p_count => x_msg_count
2750: , p_data => x_msg_data );
2751: IF SQLCODE IS NOT NULL THEN
2836: ,p_sec_qty => p_secondary_quantity
2837: );
2838:
2839: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2840: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
2841: IF (l_debug = 1) THEN
2842: print_debug('insert_mtli_helper: Error occurred while creating interface lots: ' || l_msg_data,1);
2843: END IF;
2844: RETURN FALSE;
2913: , p_att_exist => l_yes
2914: , p_update_msn => l_no);
2915:
2916: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2917: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
2918: IF (l_debug = 1) THEN
2919: print_debug('insert_msni_helper: Error occurred while creating interface serials: ' || l_msg_data,1);
2920: END IF;
2921: RETURN FALSE;
3543: IF (l_debug = 1) THEN
3544: print_debug('REFERENCE INFO CAN NOT BE RETRIEVVED FROM RT' , 1);
3545: END IF;
3546: fnd_message.set_name('INV', 'INV_FAILED');
3547: fnd_msg_pub.ADD;
3548: RAISE fnd_api.g_exc_error;
3549: END IF;
3550:
3551: IF (l_debug = 1) THEN
3604: END IF;
3605:
3606: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
3607: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
3608: fnd_msg_pub.ADD;
3609: RAISE fnd_api.g_exc_unexpected_error;
3610: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3611: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
3612: fnd_msg_pub.ADD;
3608: fnd_msg_pub.ADD;
3609: RAISE fnd_api.g_exc_unexpected_error;
3610: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
3611: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
3612: fnd_msg_pub.ADD;
3613: RAISE fnd_api.g_exc_error;
3614: END IF;
3615:
3616: <
3630: END IF;
3631:
3632: -- Unable to match RS with quantity.
3633: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
3634: fnd_msg_pub.ADD;
3635: RAISE FND_API.g_exc_error;
3636:
3637: END IF;
3638: --Bug 5331779-Begin Change
3741: IF (l_debug = 1) THEN
3742: print_debug('REF INFO CAN NOT BE RETRIEVVED FROM RT' , 1);
3743: END IF;
3744: fnd_message.set_name('INV', 'INV_FAILED');
3745: fnd_msg_pub.ADD;
3746: RAISE fnd_api.g_exc_error;
3747: END IF;
3748:
3749: IF (l_debug = 1) THEN
3769: RAISE fnd_api.g_exc_unexpected_error;
3770: END IF; -- END IF check l_result
3771:
3772: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3773: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
3774: IF (l_debug = 1) THEN
3775: print_debug('insert_msni_helper: Error occurred while creating interface serials: ' || l_msg_data,1);
3776: END IF;
3777: RAISE fnd_api.g_exc_error;
3855: IF (l_debug = 1) THEN
3856: print_debug('REF INFO CAN NOT BE RETRIEVVED FROM RT' , 1);
3857: END IF;
3858: fnd_message.set_name('INV', 'INV_FAILED');
3859: fnd_msg_pub.ADD;
3860: RAISE fnd_api.g_exc_error;
3861: END IF;
3862:
3863: IF (l_debug = 1) THEN
3883: RAISE fnd_api.g_exc_unexpected_error;
3884: END IF; -- END IF check l_result
3885:
3886: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3887: fnd_msg_pub.count_and_get(p_count => l_msg_count, p_data => l_msg_data);
3888: IF (l_debug = 1) THEN
3889: print_debug('insert_msni_helper: Error occurred while creating interface serials: ' || l_msg_data,1);
3890: END IF;
3891: RAISE fnd_api.g_exc_error;
3959: IF (l_debug = 1) THEN
3960: print_debug('Avaiable Qty is less than Txn Qty ' , 1);
3961: END IF;
3962: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
3963: fnd_msg_pub.ADD;
3964: RAISE fnd_api.g_exc_error;
3965: END IF;
3966:
3967: IF (l_rti_tb(k)(l).quantity < l_remaining_prim_qty) THEN
4111: END IF;
4112:
4113: IF l_return_status = fnd_api.g_ret_sts_unexp_error THEN
4114: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
4115: fnd_msg_pub.ADD;
4116: RAISE fnd_api.g_exc_unexpected_error;
4117: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4118: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
4119: fnd_msg_pub.ADD;
4115: fnd_msg_pub.ADD;
4116: RAISE fnd_api.g_exc_unexpected_error;
4117: ELSIF l_return_status = fnd_api.g_ret_sts_error THEN
4118: fnd_message.set_name('WMS', 'WMS_TASK_ERROR');
4119: fnd_msg_pub.ADD;
4120: RAISE fnd_api.g_exc_error;
4121: END IF;
4122:
4123: l := l_rti_tb(k).next(l);
4134: EXCEPTION
4135: WHEN FND_API.G_EXC_ERROR THEN
4136: rollback to match_rti_ss;
4137: x_return_status := FND_API.G_RET_STS_ERROR;
4138: fnd_msg_pub.count_and_get (
4139: p_encoded => FND_API.G_FALSE
4140: , p_count => x_msg_count
4141: , p_data => x_msg_data );
4142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4141: , p_data => x_msg_data );
4142: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4143: rollback to match_rti_ss;
4144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4145: fnd_msg_pub.count_and_get (
4146: p_encoded => FND_API.G_FALSE
4147: , p_count => x_msg_count
4148: , p_data => x_msg_data );
4149: WHEN OTHERS THEN
4148: , p_data => x_msg_data );
4149: WHEN OTHERS THEN
4150: rollback to match_rti_ss;
4151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4152: fnd_msg_pub.count_and_get (
4153: p_encoded => FND_API.G_FALSE
4154: , p_count => x_msg_count
4155: , p_data => x_msg_data );
4156: IF SQLCODE IS NOT NULL THEN