195: RETURN 1;
196: END IF;
197:
198: IF p_lot_control NOT IN (g_lot_control,g_no_lot_control) THEN
199: FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_LOT_CTRL_OPTION');
200: FND_MSG_PUB.ADD;
201: RAISE FND_API.G_EXC_ERROR;
202: END IF;
203:
202: END IF;
203:
204: -- invConv removed this test : serial_control can have other values.
205: -- IF p_serial_control NOT IN (g_serial_control,g_no_serial_control) THEN
206: -- FND_MESSAGE.SET_NAME('INV', 'INV_INVALID_SER_CTRL_OPTION');
207: -- FND_MSG_PUB.ADD;
208: -- RAISE FND_API.G_EXC_ERROR;
209: -- END IF;
210:
284: IF (l_debug = 1) then
285: print_debug('Error from inv_quantity_tree_pvt.create_tree');
286: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
287: END IF;
288: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_CREATE_TREE');
289: FND_MSG_PUB.ADD;
290: RAISE fnd_api.g_exc_error;
291: END IF;
292:
325: IF (l_debug = 1) then
326: print_debug('Error from inv_quantity_tree_pvt.query_tree');
327: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
328: END IF;
329: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_QUERY_TREE');
330: FND_MSG_PUB.ADD;
331: RAISE fnd_api.g_exc_error;
332: END IF;
333:
362: WHEN no_data_found THEN
363: IF (l_debug = 1) THEN
364: print_debug('Primary UOM not found');
365: END IF;
366: FND_MESSAGE.SET_NAME('INV', 'INV_NO_PRIMARY_UOM');
367: FND_MSG_PUB.ADD;
368: RAISE FND_API.G_EXC_ERROR;
369: END;
370:
385: IF l_available_conv_quantity < 0 THEN
386: IF (l_debug = 1) THEN
387: print_debug('Error converting l_available_quantity');
388: END IF;
389: FND_MESSAGE.SET_NAME('INV', 'INV_UOM_CANNOT_CONVERT');
390: FND_MSG_PUB.ADD;
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
393:
412: IF l_onhand_conv_quantity < 0 THEN
413: IF (l_debug = 1) THEN
414: print_debug('Error converting l_onhand_quantity');
415: END IF;
416: FND_MESSAGE.SET_NAME('INV', 'INV_UOM_CANNOT_CONVERT');
417: FND_MSG_PUB.ADD;
418: RAISE FND_API.G_EXC_ERROR;
419: END IF;
420:
774: IF (get_item_details%NOTFOUND)
775: THEN
776: CLOSE get_item_details;
777: -- The item doesn't exist under this organization.
778: FND_MESSAGE.SET_NAME('INV', 'ITEM_NOTFOUND');
779: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
780: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
781: FND_MSG_PUB.ADD;
782: RAISE FND_API.G_EXC_ERROR;
775: THEN
776: CLOSE get_item_details;
777: -- The item doesn't exist under this organization.
778: FND_MESSAGE.SET_NAME('INV', 'ITEM_NOTFOUND');
779: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
780: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
781: FND_MSG_PUB.ADD;
782: RAISE FND_API.G_EXC_ERROR;
783: END IF;
776: CLOSE get_item_details;
777: -- The item doesn't exist under this organization.
778: FND_MESSAGE.SET_NAME('INV', 'ITEM_NOTFOUND');
779: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
780: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
781: FND_MSG_PUB.ADD;
782: RAISE FND_API.G_EXC_ERROR;
783: END IF;
784: CLOSE get_item_details;
834: IF (l_debug = 1) then
835: print_debug('Error from inv_quantity_tree_pvt.find_rootinfo');
836: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
837: END IF;
838: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_FIND_ROOTINFO');
839: FND_MSG_PUB.ADD;
840: RAISE fnd_api.g_exc_error;
841: END IF;
842:
879: IF (l_debug = 1) then
880: print_debug('Error from inv_quantity_tree_pvt.query_tree');
881: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
882: END IF;
883: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_QUERY_TREE');
884: FND_MSG_PUB.ADD;
885: RAISE fnd_api.g_exc_error;
886: END IF;
887:
927: IF (l_debug = 1) then
928: print_debug('Error from inv_quantity_tree_pvt.get_total_qoh');
929: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
930: END IF;
931: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_TOTAL_QOH');
932: FND_MSG_PUB.ADD;
933: RAISE fnd_api.g_exc_error;
934: END IF;
935:
952: WHEN no_data_found THEN
953: IF (l_debug = 1) then
954: print_debug('Cannot Find primary UOM');
955: END IF;
956: FND_MESSAGE.SET_NAME('INV', 'INV_NO_PRIMARY_UOM');
957: FND_MSG_PUB.ADD;
958: RAISE FND_API.G_EXC_ERROR;
959: END;
960: END IF;
981: IF l_transaction_conv_quantity < 0 THEN
982: IF (l_debug = 1) THEN
983: print_debug('Error converting l_transaction_quantity');
984: END IF;
985: FND_MESSAGE.SET_NAME('INV', 'INV_UOM_CANNOT_CONVERT');
986: FND_MSG_PUB.ADD;
987: RAISE FND_API.G_EXC_ERROR;
988: END IF;
989:
1044: IF l_available_conv_quantity < 0 THEN
1045: IF (l_debug = 1) THEN
1046: print_debug('Error converting l_available_quantity');
1047: END IF;
1048: FND_MESSAGE.SET_NAME('INV', 'INV_UOM_CANNOT_CONVERT');
1049: FND_MSG_PUB.ADD;
1050: RAISE FND_API.G_EXC_ERROR;
1051: END IF;
1052:
1073: IF l_avail_qoh_conv_quantity < 0 THEN
1074: IF (l_debug = 1) THEN
1075: print_debug('Error converting l_avail_qoh');
1076: END IF;
1077: FND_MESSAGE.SET_NAME('INV', 'INV_UOM_CANNOT_CONVERT');
1078: FND_MSG_PUB.ADD;
1079: RAISE FND_API.G_EXC_ERROR;
1080: END IF;
1081:
1102: IF l_transaction_conv_quantity < 0 THEN
1103: IF (l_debug = 1) THEN
1104: print_debug('Error converting l_transaction_quantity');
1105: END IF;
1106: FND_MESSAGE.SET_NAME('INV', 'INV_UOM_CANNOT_CONVERT');
1107: FND_MSG_PUB.ADD;
1108: RAISE FND_API.G_EXC_ERROR;
1109: END IF;
1110:
1479: IF (get_item_details%NOTFOUND)
1480: THEN
1481: CLOSE get_item_details;
1482: -- The item doesn't exist under this organization.
1483: FND_MESSAGE.SET_NAME('INV', 'ITEM_NOTFOUND');
1484: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
1485: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
1486: FND_MSG_PUB.ADD;
1487: RAISE FND_API.G_EXC_ERROR;
1480: THEN
1481: CLOSE get_item_details;
1482: -- The item doesn't exist under this organization.
1483: FND_MESSAGE.SET_NAME('INV', 'ITEM_NOTFOUND');
1484: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
1485: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
1486: FND_MSG_PUB.ADD;
1487: RAISE FND_API.G_EXC_ERROR;
1488: END IF;
1481: CLOSE get_item_details;
1482: -- The item doesn't exist under this organization.
1483: FND_MESSAGE.SET_NAME('INV', 'ITEM_NOTFOUND');
1484: FND_MESSAGE.SET_TOKEN('INVENTORY_ITEM_ID', p_inventory_item_id);
1485: FND_MESSAGE.SET_TOKEN('ORGANIZATION_ID', p_organization_id);
1486: FND_MSG_PUB.ADD;
1487: RAISE FND_API.G_EXC_ERROR;
1488: END IF;
1489: CLOSE get_item_details;
1519: WHEN no_data_found THEN
1520: IF (l_debug = 1) then
1521: print_debug('Cannot Find primary UOM');
1522: END IF;
1523: FND_MESSAGE.SET_NAME('INV', 'INV_NO_PRIMARY_UOM');
1524: FND_MSG_PUB.ADD;
1525: RAISE FND_API.G_EXC_ERROR;
1526: END;
1527: END IF;
1546: IF l_transaction_conv_quantity < 0 THEN
1547: IF (l_debug = 1) THEN
1548: print_debug('Error converting l_transaction_quantity');
1549: END IF;
1550: FND_MESSAGE.SET_NAME('INV', 'INV_UOM_CANNOT_CONVERT');
1551: FND_MSG_PUB.ADD;
1552: RAISE FND_API.G_EXC_ERROR;
1553: END IF;
1554:
1612: IF (l_debug = 1) then
1613: print_debug('Error from inv_quantity_tree_pvt.find_rootinfo');
1614: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
1615: END IF;
1616: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_FIND_ROOTINFO');
1617: FND_MSG_PUB.ADD;
1618: RAISE fnd_api.g_exc_error;
1619: END IF;
1620:
1664: IF (l_debug = 1) then
1665: print_debug('Error from inv_quantity_tree_pvt.update_quantities_for_form 1');
1666: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
1667: END IF;
1668: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_UPDATE_QUANTITIES');
1669: FND_MSG_PUB.ADD;
1670: RAISE fnd_api.g_exc_error;
1671: END IF;
1672:
1715: IF (l_debug = 1) then
1716: print_debug('Error from inv_quantity_tree_pvt.update_quantities_for_form 2');
1717: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
1718: END IF;
1719: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_UPDATE_QUANTITIES');
1720: FND_MSG_PUB.ADD;
1721: RAISE fnd_api.g_exc_error;
1722: END IF;
1723:
1763: IF (l_debug = 1) then
1764: print_debug('Error from inv_quantity_tree_pvt.query_tree');
1765: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
1766: END IF;
1767: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_QUERY_TREE');
1768: FND_MSG_PUB.ADD;
1769: RAISE fnd_api.g_exc_error;
1770: END IF;
1771:
1821: IF (l_debug = 1) then
1822: print_debug('Error from inv_quantity_tree_pvt.update_quantities_for_form 3');
1823: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
1824: END IF;
1825: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_UPDATE_QUANTITIES');
1826: FND_MSG_PUB.ADD;
1827: RAISE fnd_api.g_exc_error;
1828: END IF;
1829:
1875: IF (l_debug = 1) then
1876: print_debug('Error from inv_quantity_tree_pvt.get_total_qoh');
1877: print_debug('l_return_status:'||l_return_status||'l_msg_data:'||l_msg_data);
1878: END IF;
1879: FND_MESSAGE.SET_NAME('INV', 'INV_ERROR_GET_TOTAL_QOH');
1880: FND_MSG_PUB.ADD;
1881: RAISE fnd_api.g_exc_error;
1882: END IF;
1883:
1904: IF l_available_conv_quantity < 0 THEN
1905: IF (l_debug = 1) THEN
1906: print_debug('Error converting l_available_quantity');
1907: END IF;
1908: FND_MESSAGE.SET_NAME('INV', 'INV_UOM_CANNOT_CONVERT');
1909: FND_MSG_PUB.ADD;
1910: RAISE FND_API.G_EXC_ERROR;
1911: END IF;
1912:
1933: IF l_avail_qoh_conv_quantity < 0 THEN
1934: IF (l_debug = 1) THEN
1935: print_debug('Error converting l_avail_qoh');
1936: END IF;
1937: FND_MESSAGE.SET_NAME('INV', 'INV_UOM_CANNOT_CONVERT');
1938: FND_MSG_PUB.ADD;
1939: RAISE FND_API.G_EXC_ERROR;
1940: END IF;
1941:
1962: IF l_transaction_conv_quantity < 0 THEN
1963: IF (l_debug = 1) THEN
1964: print_debug('Error converting l_transaction_quantity');
1965: END IF;
1966: FND_MESSAGE.SET_NAME('INV', 'INV_UOM_CANNOT_CONVERT');
1967: FND_MSG_PUB.ADD;
1968: RAISE FND_API.G_EXC_ERROR;
1969: END IF;
1970: