[Home] [Help]
484:
485: BEGIN
486:
487: -- Standard call to check for call compatibility.
488: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
489: l_api_name, 'inv_rcv_integration_apis') THEN
490: print_debug('FND_API not compatible inv_rcv_integration_apis.insert_mtli', 4);
491: RAISE fnd_api.g_exc_unexpected_error;
492: END IF;
486:
487: -- Standard call to check for call compatibility.
488: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
489: l_api_name, 'inv_rcv_integration_apis') THEN
490: print_debug('FND_API not compatible inv_rcv_integration_apis.insert_mtli', 4);
491: RAISE fnd_api.g_exc_unexpected_error;
492: END IF;
493:
494: -- Initialize message list if p_init_msg_list is set to TRUE.
487: -- Standard call to check for call compatibility.
488: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
489: l_api_name, 'inv_rcv_integration_apis') THEN
490: print_debug('FND_API not compatible inv_rcv_integration_apis.insert_mtli', 4);
491: RAISE fnd_api.g_exc_unexpected_error;
492: END IF;
493:
494: -- Initialize message list if p_init_msg_list is set to TRUE.
495: IF fnd_api.to_boolean(p_init_msg_lst) THEN
491: RAISE fnd_api.g_exc_unexpected_error;
492: END IF;
493:
494: -- Initialize message list if p_init_msg_list is set to TRUE.
495: IF fnd_api.to_boolean(p_init_msg_lst) THEN
496: fnd_msg_pub.initialize;
497: END IF;
498:
499: --Initialize the return status
496: fnd_msg_pub.initialize;
497: END IF;
498:
499: --Initialize the return status
500: x_return_status := FND_API.G_RET_STS_SUCCESS;
501:
502: --If the lot number and transaction_interface_id combination already exists
503: --then add the specified transaction_quantity and primary_quantity to the
504: --current lot interface record.
1047: print_debug('p_product_transaction_id returned: ' || p_product_transaction_id, 4);
1048: END IF;
1049:
1050: EXCEPTION
1051: WHEN FND_API.G_EXC_ERROR THEN
1052: IF c_mln_attributes%ISOPEN THEN
1053: CLOSE c_mln_attributes;
1054: END IF;
1055: x_return_status := FND_API.G_RET_STS_ERROR;
1051: WHEN FND_API.G_EXC_ERROR THEN
1052: IF c_mln_attributes%ISOPEN THEN
1053: CLOSE c_mln_attributes;
1054: END IF;
1055: x_return_status := FND_API.G_RET_STS_ERROR;
1056: fnd_msg_pub.count_and_get (
1057: p_encoded => FND_API.G_FALSE
1058: , p_count => x_msg_count
1059: , p_data => x_msg_data );
1053: CLOSE c_mln_attributes;
1054: END IF;
1055: x_return_status := FND_API.G_RET_STS_ERROR;
1056: fnd_msg_pub.count_and_get (
1057: p_encoded => FND_API.G_FALSE
1058: , p_count => x_msg_count
1059: , p_data => x_msg_data );
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: IF c_mln_attributes%ISOPEN THEN
1056: fnd_msg_pub.count_and_get (
1057: p_encoded => FND_API.G_FALSE
1058: , p_count => x_msg_count
1059: , p_data => x_msg_data );
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: IF c_mln_attributes%ISOPEN THEN
1062: CLOSE c_mln_attributes;
1063: END IF;
1064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1060: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1061: IF c_mln_attributes%ISOPEN THEN
1062: CLOSE c_mln_attributes;
1063: END IF;
1064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1065: fnd_msg_pub.count_and_get (
1066: p_encoded => FND_API.G_FALSE
1067: , p_count => x_msg_count
1068: , p_data => x_msg_data );
1062: CLOSE c_mln_attributes;
1063: END IF;
1064: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1065: fnd_msg_pub.count_and_get (
1066: p_encoded => FND_API.G_FALSE
1067: , p_count => x_msg_count
1068: , p_data => x_msg_data );
1069: WHEN OTHERS THEN
1070: IF c_mln_attributes%ISOPEN THEN
1069: WHEN OTHERS THEN
1070: IF c_mln_attributes%ISOPEN THEN
1071: CLOSE c_mln_attributes;
1072: END IF;
1073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: fnd_msg_pub.count_and_get (
1075: p_encoded => FND_API.G_FALSE
1076: , p_count => x_msg_count
1077: , p_data => x_msg_data );
1071: CLOSE c_mln_attributes;
1072: END IF;
1073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1074: fnd_msg_pub.count_and_get (
1075: p_encoded => FND_API.G_FALSE
1076: , p_count => x_msg_count
1077: , p_data => x_msg_data );
1078: IF SQLCODE IS NOT NULL THEN
1079: inv_mobile_helper_functions.sql_error (
1414: l_debug NUMBER := NVL(fnd_profile.VALUE('INV_DEBUG_TRACE'), 0);
1415: BEGIN
1416:
1417: -- Standard call to check for call compatibility.
1418: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
1419: l_api_name, 'inv_rcv_integration_apis') THEN
1420: print_debug('FND_API not compatible','inv_rcv_integration_apis.insert_msni');
1421: RAISE fnd_api.g_exc_unexpected_error;
1422: END IF;
1416:
1417: -- Standard call to check for call compatibility.
1418: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
1419: l_api_name, 'inv_rcv_integration_apis') THEN
1420: print_debug('FND_API not compatible','inv_rcv_integration_apis.insert_msni');
1421: RAISE fnd_api.g_exc_unexpected_error;
1422: END IF;
1423:
1424: -- Initialize message list if p_init_msg_list is set to TRUE.
1417: -- Standard call to check for call compatibility.
1418: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
1419: l_api_name, 'inv_rcv_integration_apis') THEN
1420: print_debug('FND_API not compatible','inv_rcv_integration_apis.insert_msni');
1421: RAISE fnd_api.g_exc_unexpected_error;
1422: END IF;
1423:
1424: -- Initialize message list if p_init_msg_list is set to TRUE.
1425: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1421: RAISE fnd_api.g_exc_unexpected_error;
1422: END IF;
1423:
1424: -- Initialize message list if p_init_msg_list is set to TRUE.
1425: IF fnd_api.to_boolean(p_init_msg_lst) THEN
1426: fnd_msg_pub.initialize;
1427: END IF;
1428:
1429: --Initialize the return status
1426: fnd_msg_pub.initialize;
1427: END IF;
1428:
1429: --Initialize the return status
1430: x_return_status := fnd_api.g_ret_sts_success;
1431:
1432: --Generate transaction_interface_id if necessary
1433: IF (p_transaction_interface_id IS NULL) THEN
1434: SELECT mtl_material_transactions_s.NEXTVAL
1589: IF l_msni_tbl_count <= 0 THEN
1590: IF (l_debug = 1) THEN
1591: print_debug('Unexpected error. The table of serials is empty!', 4);
1592: END IF;
1593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1594: END IF;
1595:
1596: FOR i IN 1 .. l_msni_tbl_count LOOP
1597:
1876: print_debug('p_product_transaction_id returned: ' || p_product_transaction_id, 4);
1877: END IF;
1878:
1879: EXCEPTION
1880: WHEN FND_API.G_EXC_ERROR THEN
1881: IF c_msn_attributes%ISOPEN THEN
1882: CLOSE c_msn_attributes;
1883: END IF;
1884: x_return_status := fnd_api.g_ret_sts_error;
1880: WHEN FND_API.G_EXC_ERROR THEN
1881: IF c_msn_attributes%ISOPEN THEN
1882: CLOSE c_msn_attributes;
1883: END IF;
1884: x_return_status := fnd_api.g_ret_sts_error;
1885: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1887: IF c_msn_attributes%ISOPEN THEN
1888: CLOSE c_msn_attributes;
1881: IF c_msn_attributes%ISOPEN THEN
1882: CLOSE c_msn_attributes;
1883: END IF;
1884: x_return_status := fnd_api.g_ret_sts_error;
1885: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1887: IF c_msn_attributes%ISOPEN THEN
1888: CLOSE c_msn_attributes;
1889: END IF;
1882: CLOSE c_msn_attributes;
1883: END IF;
1884: x_return_status := fnd_api.g_ret_sts_error;
1885: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1887: IF c_msn_attributes%ISOPEN THEN
1888: CLOSE c_msn_attributes;
1889: END IF;
1890: x_return_status := fnd_api.g_ret_sts_unexp_error;
1886: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1887: IF c_msn_attributes%ISOPEN THEN
1888: CLOSE c_msn_attributes;
1889: END IF;
1890: x_return_status := fnd_api.g_ret_sts_unexp_error;
1891: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1892: WHEN OTHERS THEN
1893: IF c_msn_attributes%ISOPEN THEN
1894: CLOSE c_msn_attributes;
1887: IF c_msn_attributes%ISOPEN THEN
1888: CLOSE c_msn_attributes;
1889: END IF;
1890: x_return_status := fnd_api.g_ret_sts_unexp_error;
1891: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1892: WHEN OTHERS THEN
1893: IF c_msn_attributes%ISOPEN THEN
1894: CLOSE c_msn_attributes;
1895: END IF;
1892: WHEN OTHERS THEN
1893: IF c_msn_attributes%ISOPEN THEN
1894: CLOSE c_msn_attributes;
1895: END IF;
1896: x_return_status := fnd_api.g_ret_sts_unexp_error;
1897: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1898:
1899: IF SQLCODE IS NOT NULL THEN
1900: inv_mobile_helper_functions.sql_error('INV_RCV_INTEGRATION_APIS.INSERT_MSNI', l_progress, SQLCODE);
1893: IF c_msn_attributes%ISOPEN THEN
1894: CLOSE c_msn_attributes;
1895: END IF;
1896: x_return_status := fnd_api.g_ret_sts_unexp_error;
1897: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
1898:
1899: IF SQLCODE IS NOT NULL THEN
1900: inv_mobile_helper_functions.sql_error('INV_RCV_INTEGRATION_APIS.INSERT_MSNI', l_progress, SQLCODE);
1901: END IF;
2033: IF (p_validation_mode = INV_RCV_INTEGRATION_APIS.G_EXISTS_ONLY AND
2034: l_lot_exists = 'N') THEN
2035: fnd_message.set_name('INV', 'INV_INVALID_LOT');
2036: fnd_msg_pub.ADD;
2037: x_return_status := FND_API.g_ret_sts_error;
2038: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2039: print_debug('err: ' || x_msg_data, 9);
2040: RETURN FALSE;
2041: END IF;
2034: l_lot_exists = 'N') THEN
2035: fnd_message.set_name('INV', 'INV_INVALID_LOT');
2036: fnd_msg_pub.ADD;
2037: x_return_status := FND_API.g_ret_sts_error;
2038: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2039: print_debug('err: ' || x_msg_data, 9);
2040: RETURN FALSE;
2041: END IF;
2042:
2054: --If the lot is not unique then raise an error
2055: IF NOT l_unique_lot THEN
2056: fnd_message.set_name('INV', 'INV_LOT_UNIQUE_FAIL');
2057: fnd_msg_pub.add;
2058: x_return_status := FND_API.g_ret_sts_error;
2059: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2060: RETURN FALSE;
2061: END IF;
2062:
2055: IF NOT l_unique_lot THEN
2056: fnd_message.set_name('INV', 'INV_LOT_UNIQUE_FAIL');
2057: fnd_msg_pub.add;
2058: x_return_status := FND_API.g_ret_sts_error;
2059: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2060: RETURN FALSE;
2061: END IF;
2062:
2063: --Validate the expiration date based on shelf life code
2076: fnd_msg_pub.ADD;
2077: IF l_debug = 1 THEN
2078: print_debug('validate_lot_number: Unable to fetch shelf life code for the inventory item passed', 9);
2079: END IF;
2080: x_return_status := FND_API.g_ret_sts_error;
2081: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2082: RETURN FALSE;
2083: END;
2084:
2077: IF l_debug = 1 THEN
2078: print_debug('validate_lot_number: Unable to fetch shelf life code for the inventory item passed', 9);
2079: END IF;
2080: x_return_status := FND_API.g_ret_sts_error;
2081: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2082: RETURN FALSE;
2083: END;
2084:
2085: IF l_debug = 1 THEN
2100: fnd_msg_pub.ADD;
2101: IF l_debug = 1 THEN
2102: print_debug('validate_lot_number: Expiration will not be considered for shelf_life code of type ITEM_SHELF_LIFE_DAYS', 9);
2103: END IF;
2104: x_return_status := FND_API.g_ret_sts_error;
2105: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2106: RETURN FALSE;
2107: END IF;
2108: ELSIF l_shelf_life_code = user_defined_exp_date THEN
2101: IF l_debug = 1 THEN
2102: print_debug('validate_lot_number: Expiration will not be considered for shelf_life code of type ITEM_SHELF_LIFE_DAYS', 9);
2103: END IF;
2104: x_return_status := FND_API.g_ret_sts_error;
2105: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2106: RETURN FALSE;
2107: END IF;
2108: ELSIF l_shelf_life_code = user_defined_exp_date THEN
2109: IF l_debug = 1 THEN
2114: fnd_msg_pub.ADD;
2115: IF l_debug = 1 THEN
2116: print_debug('validate_lot_number: Lot expiration date is required ', 9);
2117: END IF;
2118: x_return_status := FND_API.g_ret_sts_error;
2119: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2120: RETURN FALSE;
2121: ELSE
2122: l_expiration_date := p_expiration_date;
2115: IF l_debug = 1 THEN
2116: print_debug('validate_lot_number: Lot expiration date is required ', 9);
2117: END IF;
2118: x_return_status := FND_API.g_ret_sts_error;
2119: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2120: RETURN FALSE;
2121: ELSE
2122: l_expiration_date := p_expiration_date;
2123: END IF;
2175: , p_territory_code => p_territory_code
2176: , p_supplier_lot_number => p_supplier_lot_number
2177: , p_vendor_name => p_vendor_name
2178: , p_source => inv_lot_api_pub.inv);
2179: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2180: IF (l_debug = 1) THEN
2181: print_debug('validate_lot_number: Error in creating the lot number', 9);
2182: END IF;
2183: x_return_status := FND_API.g_ret_sts_error;
2179: IF x_return_status <> fnd_api.g_ret_sts_success THEN
2180: IF (l_debug = 1) THEN
2181: print_debug('validate_lot_number: Error in creating the lot number', 9);
2182: END IF;
2183: x_return_status := FND_API.g_ret_sts_error;
2184: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2185: RETURN FALSE;
2186: END IF;
2187: END IF; --END IF create the lot number
2180: IF (l_debug = 1) THEN
2181: print_debug('validate_lot_number: Error in creating the lot number', 9);
2182: END IF;
2183: x_return_status := FND_API.g_ret_sts_error;
2184: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2185: RETURN FALSE;
2186: END IF;
2187: END IF; --END IF create the lot number
2188: --This API should be getting called only for a ship transaction from iSP.
2188: --This API should be getting called only for a ship transaction from iSP.
2189: ELSE
2190: fnd_message.set_name('INV','INV_NOT_IMPLEMENTED');
2191: fnd_msg_pub.add;
2192: x_return_status := FND_API.g_ret_sts_error;
2193: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2194: RETURN FALSE;
2195: END IF; --END IF Check the transaction type
2196:
2189: ELSE
2190: fnd_message.set_name('INV','INV_NOT_IMPLEMENTED');
2191: fnd_msg_pub.add;
2192: x_return_status := FND_API.g_ret_sts_error;
2193: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2194: RETURN FALSE;
2195: END IF; --END IF Check the transaction type
2196:
2197: --All the validations have passed successfully, then
2201: WHEN OTHERS THEN
2202: IF (l_debug = 1) THEN
2203: print_debug('validate_lot_number: Exception occurred in validate_lot_number', 3);
2204: END IF;
2205: x_return_status := FND_API.g_ret_sts_error;
2206: fnd_msg_pub.count_and_get(
2207: p_encoded => fnd_api.g_false
2208: , p_count => x_msg_count
2209: , p_data => x_msg_data);
2203: print_debug('validate_lot_number: Exception occurred in validate_lot_number', 3);
2204: END IF;
2205: x_return_status := FND_API.g_ret_sts_error;
2206: fnd_msg_pub.count_and_get(
2207: p_encoded => fnd_api.g_false
2208: , p_count => x_msg_count
2209: , p_data => x_msg_data);
2210: IF SQLCODE IS NOT NULL THEN
2211: inv_mobile_helper_functions.sql_error(
2274: print_debug('validate_serial_range: From Serial Number cannot be NULL', 9);
2275: END IF;
2276: fnd_message.set_name('INV', 'INV_INLTIS_FROMSER');
2277: fnd_msg_pub.add;
2278: x_return_status := FND_API.g_ret_sts_error;
2279: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2280: RETURN FALSE;
2281: END IF;
2282:
2275: END IF;
2276: fnd_message.set_name('INV', 'INV_INLTIS_FROMSER');
2277: fnd_msg_pub.add;
2278: x_return_status := FND_API.g_ret_sts_error;
2279: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2280: RETURN FALSE;
2281: END IF;
2282:
2283: --If to serial number and quantity both are NULL then raise an error
2286: print_debug('validate_serial_range: To Serial and quantity both cannot be NULL', 9);
2287: END IF;
2288: fnd_message.set_name('INV', 'INV_INLTIS_RANGE');
2289: fnd_msg_pub.add;
2290: x_return_status := FND_API.g_ret_sts_error;
2291: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2292: RETURN FALSE;
2293: END IF;
2294:
2287: END IF;
2288: fnd_message.set_name('INV', 'INV_INLTIS_RANGE');
2289: fnd_msg_pub.add;
2290: x_return_status := FND_API.g_ret_sts_error;
2291: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2292: RETURN FALSE;
2293: END IF;
2294:
2295: --If to serial number is passed, get the difference between from and to serials
2304: END IF;
2305: -- Bug Fix 4375959
2306: -- fnd_message.set_name('INV', 'INV_INLTIS_RANGE');
2307: fnd_msg_pub.add;
2308: x_return_status := FND_API.g_ret_sts_error;
2309: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2310: RETURN FALSE;
2311: END IF; --End If serial difference is < 0
2312:
2305: -- Bug Fix 4375959
2306: -- fnd_message.set_name('INV', 'INV_INLTIS_RANGE');
2307: fnd_msg_pub.add;
2308: x_return_status := FND_API.g_ret_sts_error;
2309: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2310: RETURN FALSE;
2311: END IF; --End If serial difference is < 0
2312:
2313: --If quantity is > 1 and the serial difference does not match the quantity
2320: print_debug('validate_serial_range: Serial quantity does not match transaction quantity', 9);
2321: END IF;
2322: fnd_message.set_name('INV', 'INV_SERQTY_NOTMATCH');
2323: fnd_msg_pub.add;
2324: x_return_status := FND_API.g_ret_sts_error;
2325: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2326: RETURN FALSE;
2327: END IF;
2328: END IF; --END IF p_to_serial_number is NOT NULL
2321: END IF;
2322: fnd_message.set_name('INV', 'INV_SERQTY_NOTMATCH');
2323: fnd_msg_pub.add;
2324: x_return_status := FND_API.g_ret_sts_error;
2325: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2326: RETURN FALSE;
2327: END IF;
2328: END IF; --END IF p_to_serial_number is NOT NULL
2329:
2336: print_debug('validate_serial_range: To serial number must be specified', 9);
2337: END IF;
2338: fnd_message.set_name('INV', 'INV_SERIAL_NOT_ENTERED');
2339: fnd_msg_pub.add;
2340: x_return_status := FND_API.g_ret_sts_error;
2341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2342: RETURN FALSE;
2343: END IF; --END IF p_to_serial_number IS NULL
2344:
2337: END IF;
2338: fnd_message.set_name('INV', 'INV_SERIAL_NOT_ENTERED');
2339: fnd_msg_pub.add;
2340: x_return_status := FND_API.g_ret_sts_error;
2341: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2342: RETURN FALSE;
2343: END IF; --END IF p_to_serial_number IS NULL
2344:
2345: --Now check for the existence of all the serials in the range
2375: END IF;
2376: fnd_message.set_name('INV', 'INV_SER_NOTEXIST');
2377: fnd_message.set_token('TOKEN', l_cur_serial_number);
2378: fnd_msg_pub.add;
2379: x_return_status := FND_API.g_ret_sts_error;
2380: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2381: RETURN FALSE;
2382: END;
2383: END LOOP; --END For each serial in the range
2376: fnd_message.set_name('INV', 'INV_SER_NOTEXIST');
2377: fnd_message.set_token('TOKEN', l_cur_serial_number);
2378: fnd_msg_pub.add;
2379: x_return_status := FND_API.g_ret_sts_error;
2380: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2381: RETURN FALSE;
2382: END;
2383: END LOOP; --END For each serial in the range
2384: END IF; --END IF g_exists_only
2418: print_debug('validate_serial_range: Error returned by validate_serials', 9);
2419: END IF;
2420: fnd_message.set_name('INV', 'INVALID_SERIAL_NUMBER');
2421: fnd_msg_pub.ADD;
2422: x_return_status := FND_API.g_ret_sts_error;
2423: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2424: RETURN FALSE;
2425: END IF;
2426: END IF; --END IF g_exists_or_create
2419: END IF;
2420: fnd_message.set_name('INV', 'INVALID_SERIAL_NUMBER');
2421: fnd_msg_pub.ADD;
2422: x_return_status := FND_API.g_ret_sts_error;
2423: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2424: RETURN FALSE;
2425: END IF;
2426: END IF; --END IF g_exists_or_create
2427:
2431: --This API should be getting called only for a ship transaction from iSP.
2432: ELSE
2433: fnd_message.set_name('INV','INV_NOT_IMPLEMENTED');
2434: fnd_msg_pub.add;
2435: x_return_status := FND_API.g_ret_sts_error;
2436: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2437: RETURN FALSE;
2438: END IF; --END IF Check the transaction type
2439:
2432: ELSE
2433: fnd_message.set_name('INV','INV_NOT_IMPLEMENTED');
2434: fnd_msg_pub.add;
2435: x_return_status := FND_API.g_ret_sts_error;
2436: fnd_msg_pub.count_and_get(p_encoded => fnd_api.g_false, p_count => x_msg_count, p_data => x_msg_data);
2437: RETURN FALSE;
2438: END IF; --END IF Check the transaction type
2439:
2440: EXCEPTION
2441: WHEN OTHERS THEN
2442: IF (l_debug = 1) THEN
2443: print_debug('validate_serial_range: Exception occurred in validate_serial_range', 3);
2444: END IF;
2445: x_return_status := FND_API.g_ret_sts_error;
2446: fnd_msg_pub.count_and_get(
2447: p_encoded => fnd_api.g_false
2448: , p_count => x_msg_count
2449: , p_data => x_msg_data);
2443: print_debug('validate_serial_range: Exception occurred in validate_serial_range', 3);
2444: END IF;
2445: x_return_status := FND_API.g_ret_sts_error;
2446: fnd_msg_pub.count_and_get(
2447: p_encoded => fnd_api.g_false
2448: , p_count => x_msg_count
2449: , p_data => x_msg_data);
2450: IF SQLCODE IS NOT NULL THEN
2451: inv_mobile_helper_functions.sql_error(
2619: wms_container_pvt.create_lpn(
2620: p_api_version => 1.0,
2621: p_init_msg_list => g_false,
2622: p_commit => g_false,
2623: p_validation_level => fnd_api.g_valid_level_full,
2624: x_return_status => x_return_status,
2625: x_msg_count => x_msg_count,
2626: x_msg_data => x_msg_data,
2627: p_lpn => p_lpn,
2747: END IF;
2748: /*end , INVCONV */
2749:
2750: -- Standard call to check for call compatibility.
2751: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2752: l_api_name, 'inv_rcv_integration_apis') THEN
2753: print_debug('FND_API not compatible inv_rcv_integration_apis.validate_lpn_info', 4);
2754: RAISE fnd_api.g_exc_unexpected_error;
2755: END IF;
2749:
2750: -- Standard call to check for call compatibility.
2751: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2752: l_api_name, 'inv_rcv_integration_apis') THEN
2753: print_debug('FND_API not compatible inv_rcv_integration_apis.validate_lpn_info', 4);
2754: RAISE fnd_api.g_exc_unexpected_error;
2755: END IF;
2756:
2757: l_progress := '50';
2750: -- Standard call to check for call compatibility.
2751: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
2752: l_api_name, 'inv_rcv_integration_apis') THEN
2753: print_debug('FND_API not compatible inv_rcv_integration_apis.validate_lpn_info', 4);
2754: RAISE fnd_api.g_exc_unexpected_error;
2755: END IF;
2756:
2757: l_progress := '50';
2758:
2756:
2757: l_progress := '50';
2758:
2759: -- Initialize message list if p_init_msg_list is set to TRUE.
2760: IF fnd_api.to_boolean(p_init_msg_lst) THEN
2761: fnd_msg_pub.initialize;
2762: END IF;
2763:
2764: l_progress := '60';
2787:
2788: RETURN TRUE;
2789: EXCEPTION
2790: WHEN OTHERS THEN
2791: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2792:
2793: IF SQLCODE IS NOT NULL THEN
2794: inv_mobile_helper_functions.sql_error (
2795: 'INV_RCV_INTEGRATION_APIS.VALIDATE_LPN_INFO',
3190: BEGIN
3191: x_return_status := g_ret_sts_success;
3192:
3193: -- Standard call to check for call compatibility.
3194: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3195: l_api_name, 'inv_rcv_integration_apis') THEN
3196: IF (l_debug = 1) THEN
3197: print_debug('FND_API not compatible inv_rcv_integration_apis.split_lot_serial', 4);
3198: END IF;
3193: -- Standard call to check for call compatibility.
3194: IF NOT fnd_api.compatible_api_call(l_api_version, p_api_version,
3195: l_api_name, 'inv_rcv_integration_apis') THEN
3196: IF (l_debug = 1) THEN
3197: print_debug('FND_API not compatible inv_rcv_integration_apis.split_lot_serial', 4);
3198: END IF;
3199: RAISE fnd_api.g_exc_unexpected_error;
3200: END IF;
3201:
3195: l_api_name, 'inv_rcv_integration_apis') THEN
3196: IF (l_debug = 1) THEN
3197: print_debug('FND_API not compatible inv_rcv_integration_apis.split_lot_serial', 4);
3198: END IF;
3199: RAISE fnd_api.g_exc_unexpected_error;
3200: END IF;
3201:
3202: -- Initialize message list if p_init_msg_list is set to TRUE.
3203: IF fnd_api.to_boolean(p_init_msg_lst) THEN
3199: RAISE fnd_api.g_exc_unexpected_error;
3200: END IF;
3201:
3202: -- Initialize message list if p_init_msg_list is set to TRUE.
3203: IF fnd_api.to_boolean(p_init_msg_lst) THEN
3204: fnd_msg_pub.initialize;
3205: END IF;
3206:
3207: inv_rcv_integration_pvt.split_lot_serial(p_rti_tb => p_new_rti_info,
3845: || p_txn_header_id || ' found MOL',4);
3846: END IF;
3847: fnd_message.set_name('WMS','WMS_TASK_NO_ELIGIBLE_TASKS');
3848: fnd_msg_pub.add;
3849: RAISE fnd_api.g_exc_error;
3850: END IF;
3851: ELSE
3852: IF (mmtt_cur%notfound) THEN
3853: IF (l_debug = 1) THEN
3895: ,p_inventory_item_id => NULL
3896: ,p_lpn_id => NULL
3897: ,p_activity_type_id => 1 -- INBOUND
3898: ,p_organization_id => l_orig_mmtt_rec.organization_id);
3899: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3900: IF (l_debug = 1) THEN
3901: print_debug('SPLIT_MMTT: validate_operation failed',4);
3902: END IF;
3903: RAISE fnd_api.g_exc_error;
3899: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
3900: IF (l_debug = 1) THEN
3901: print_debug('SPLIT_MMTT: validate_operation failed',4);
3902: END IF;
3903: RAISE fnd_api.g_exc_error;
3904: END IF;
3905:
3906: IF (l_debug = 1) THEN
3907: print_debug('SPLIT_MMTT: Values returned from call to validate_operation',4);
4442: WHEN OTHERS THEN
4443: IF (l_debug = 1) THEN
4444: print_debug('SPLIT_MMTT: Error inserting mmtt', 4);
4445: END IF;
4446: RAISE fnd_api.g_exc_error;
4447: END;
4448:
4449: l_progress := '100';
4450:
4470: WHEN OTHERS THEN
4471: IF (l_debug = 1) THEN
4472: print_debug('SPLIT_MMTT: Error updating original MMTT', 4);
4473: END IF;
4474: RAISE fnd_api.g_exc_error;
4475: END;
4476:
4477: l_progress := '110';
4478: -- Update putaway_temp_table if necessary
4475: END;
4476:
4477: l_progress := '110';
4478: -- Update putaway_temp_table if necessary
4479: IF (p_updt_putaway_temp_tbl = fnd_api.g_true) THEN
4480: BEGIN
4481: UPDATE
4482: wms_putaway_group_tasks_gtmp
4483: SET
4502: IF (l_debug = 1) THEN
4503: print_debug('SPLIT_MMTT: Error updating putaway temp table',
4504: 4);
4505: END IF;
4506: RAISE fnd_api.g_exc_error;
4507: END;
4508: END IF;
4509:
4510: l_progress := '120';
4523: print_debug('SPLIT_MMTT: Error in split_operation_instance',4);
4524: END IF;
4525: fnd_message.set_name('WMS','WMS_TASK_SPLIT_FAIL');
4526: fnd_msg_pub.add;
4527: RAISE fnd_api.g_exc_error;
4528: END IF;
4529: l_progress := '130';
4530:
4531: /* Retrieve lot/serial control code call break to split */
4541: || x_orig_mol_rec.inventory_item_id ||
4542: ' organization:' ||
4543: x_orig_mol_rec.organization_id, 4);
4544: END IF;
4545: RAISE fnd_api.g_exc_error;
4546: END;
4547: l_progress := '140';
4548:
4549: l_new_txn_tb(1).transaction_id := l_new_mmtt_id;
4567: WHEN OTHERS THEN
4568: IF (l_debug = 1) THEN
4569: print_debug('SPLIT_MMTT: Error breaking lot serial', 4);
4570: END IF;
4571: RAISE fnd_api.g_exc_error;
4572: END;
4573:
4574: l_progress := '150';
4575:
4622: IF (l_debug = 1) THEN
4623: print_debug('SPLIT_MMTT: Error updating mmtt with id '
4624: || l_orig_mmtt_rec.transaction_temp_id, 4);
4625: END IF;
4626: RAISE fnd_api.g_exc_error;
4627: END;
4628: l_progress := '180';
4629:
4630: -- Update MOL of putaway_temp_table if necessary
4627: END;
4628: l_progress := '180';
4629:
4630: -- Update MOL of putaway_temp_table if necessary
4631: IF (p_updt_putaway_temp_tbl = fnd_api.g_true) THEN
4632: BEGIN
4633: UPDATE
4634: wms_putaway_group_tasks_gtmp
4635: SET move_order_line_id = x_new_mol_rec.line_id
4641: IF (l_debug = 1) THEN
4642: print_debug('Error updating[[[ putaway temp table',
4643: 4);
4644: END IF;
4645: RAISE fnd_api.g_exc_error;
4646: END;
4647: END IF;
4648: l_progress := '190';
4649:
4721: IF (l_debug = 1) THEN
4722: print_debug('SPLIT_MMTT: Error updating MMTT with id:'
4723: || l_orig_mmtt_rec.transaction_temp_id, 4);
4724: END IF;
4725: RAISE fnd_api.g_exc_error;
4726: END;
4727:
4728: l_progress := '230';
4729:
4727:
4728: l_progress := '230';
4729:
4730: -- Delete from putawau_temp_table if necessary
4731: IF (p_updt_putaway_temp_tbl = fnd_api.g_true) THEN
4732: BEGIN
4733: UPDATE
4734: wms_putaway_group_tasks_gtmp
4735: SET
4742: IF (l_debug = 1) THEN
4743: print_debug('Error updating putaway temp table',
4744: 4);
4745: END IF;
4746: RAISE fnd_api.g_exc_error;
4747: END;
4748: END IF;
4749: l_progress := '240';
4750:
4839:
4840: PROCEDURE split_mo
4841: (p_orig_mol_id IN NUMBER,
4842: p_mo_splt_tb IN OUT nocopy mo_in_tb_tp,
4843: p_updt_putaway_temp_tbl IN VARCHAR2 DEFAULT fnd_api.g_false,
4844: p_txn_header_id IN NUMBER DEFAULT NULL,
4845: p_operation_type IN VARCHAR2 DEFAULT NULL,
4846: x_return_status OUT NOCOPY VARCHAR2,
4847: x_msg_count OUT NOCOPY NUMBER,
4947: print_debug('SPLIT_MO ERROR: Original quantity is <= 0', 4);
4948: END IF;
4949: fnd_message.set_name('INV', 'INV_INVALID_QTY');
4950: fnd_msg_pub.ADD;
4951: RAISE fnd_api.g_exc_error;
4952: END IF;
4953:
4954: l_progress := '20';
4955:
4972: print_debug('SPLIT_MO - ERROR: Quantity to split is <= 0', 4);
4973: END IF;
4974: fnd_message.set_name('INV', 'INV_INVALID_QTY');
4975: fnd_msg_pub.ADD;
4976: RAISE fnd_api.g_exc_error;
4977: END IF;
4978:
4979: -- convert prim quantities to transaction uom in mol first
4980: IF (l_orig_mol_rec.uom_code = l_prim_uom_code) THEN
5017: || ', not enough to split ' || l_total_to_split, 4);
5018: END IF;
5019: fnd_message.set_name('INV', 'INV_INSUFFICIENT_QTY');
5020: fnd_msg_pub.ADD;
5021: RAISE fnd_api.g_exc_error;
5022: END IF;
5023:
5024: l_progress := '40';
5025:
5293: print_debug('SPLIT_MO: SQLCODE = ' || SQLCODE, 4);
5294: END IF;
5295: fnd_message.set_name('WMS','WMS_MO_CREATE_FAIL');
5296: fnd_msg_pub.add;
5297: RAISE fnd_api.g_exc_error;
5298: END;
5299:
5300: l_progress := '60';
5301: IF (l_debug = 1) THEN
5325: IF (x_return_status <> g_ret_sts_success) THEN
5326: IF (l_debug = 1) THEN
5327: print_debug('SPLIT_MO: Error in split_mmtt',4);
5328: END IF;
5329: RAISE fnd_api.g_exc_error;
5330: END IF;
5331:
5332: l_progress := '64';
5333:
5335: IF (p_txn_header_id IS NULL) THEN
5336: IF (l_debug = 1) THEN
5337: print_debug('SPLIT_MO: Not possible',4);
5338: END IF;
5339: RAISE fnd_api.g_exc_error;
5340: ELSE -- p_txn_header_id is not null
5341: l_remaining_qty := l_orig_mol_rec.quantity_detailed - l_orig_mol_rec.quantity;
5342: IF (l_prim_uom_code <> l_orig_mol_rec.uom_code) THEN
5343: l_remaining_prim_qty := inv_rcv_cache.convert_qty
5370: IF (x_return_status <> g_ret_sts_success) THEN
5371: IF (l_debug = 1) THEN
5372: print_debug('SPLIT_MO: Error in split_mmtt',4);
5373: END IF;
5374: RAISE fnd_api.g_exc_error;
5375: END IF;
5376: END IF;
5377: END IF; -- IF (l_orig_mol_rec.quantity_detailed > l_orig_mol_rec.quantity)
5378:
5398: print_debug('Returned from inv_rcv_reservation_util.split_wdd',4);
5399: print_debug('x_return_status =>'||x_return_status,4);
5400: END IF;
5401:
5402: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5403: IF (l_debug = 1) THEN
5404: print_debug('x_msg_data: '||x_msg_data,4);
5405: print_debug('x_msg_count: '||x_msg_count,4);
5406: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5406: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5407: print_debug('Raising Exception!!!',4);
5408: END IF;
5409: l_progress := '@@@';
5410: RAISE fnd_api.g_exc_unexpected_error;
5411: END IF;
5412:
5413: l_new_mol_rec.backorder_delivery_detail_id := l_new_wdd_id;
5414:
5421: WHEN OTHERS THEN
5422: IF (l_debug = 1) THEN
5423: print_debug('Error retrieving doc type for SO',4);
5424: END IF;
5425: RAISE fnd_api.g_exc_unexpected_error;
5426: END;
5427:
5428: IF l_doc_type = 10 THEN
5429: l_rsv_query_rec.demand_source_type_id := inv_reservation_global.g_source_type_internal_ord;
5442: , x_return_status => x_return_status
5443: , x_msg_count => x_msg_count
5444: , x_msg_data => x_msg_data
5445: , p_query_input => l_rsv_query_rec
5446: , p_lock_records => fnd_api.g_true --???
5447: , p_sort_by_req_date => inv_reservation_global.g_query_demand_ship_date_desc--There's shoudl be just 1 row
5448: , x_mtl_reservation_tbl => l_rsv_results_tbl
5449: , x_mtl_reservation_tbl_count => l_rsv_results_count
5450: , x_error_code => l_error_code
5454: print_debug('Returned from inv_reservation_pub.query_reservation',4);
5455: print_debug('x_return_status: '||x_return_status,4);
5456: END IF;
5457:
5458: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5459: IF (l_debug = 1) THEN
5460: print_debug('x_error_code: '||l_error_code,4);
5461: print_debug('x_msg_data: '||x_msg_data,4);
5462: print_debug('x_msg_count: '||x_msg_count,4);
5463: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5464: print_debug('Raising Exception!!!',4);
5465: END IF;
5466: l_progress := '@@@';
5467: RAISE fnd_api.g_exc_unexpected_error;
5468: END IF;
5469:
5470: l_rsv_update_rec := l_rsv_results_tbl(1);
5471: l_rsv_update_rec.demand_source_line_detail := l_new_wdd_id;
5490: ,p_original_rsv_rec => l_rsv_results_tbl(1)
5491: ,p_to_rsv_rec => l_rsv_update_rec
5492: ,p_original_serial_number => l_dummy_serial
5493: ,p_to_serial_number => l_dummy_serial
5494: ,p_validation_flag => fnd_api.g_false --??
5495: ,x_to_reservation_id => l_new_reservation_id);
5496:
5497: IF (l_debug = 1) THEN
5498: print_debug('Returned from inv_reservation_pub.transfer_reservation',4);
5499: print_debug('x_return_status =>'||x_return_status,4);
5500: print_debug('x_to_reservation_id =>'||l_new_reservation_id,4);
5501: END IF;
5502:
5503: IF (x_return_status <> fnd_api.g_ret_sts_success) THEN
5504: IF (l_debug = 1) THEN
5505: print_debug('x_msg_data: '||x_msg_data,4);
5506: print_debug('x_msg_count: '||x_msg_count,4);
5507: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5507: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,4);
5508: print_debug('Raising Exception!!!',4);
5509: END IF;
5510: l_progress := '@@@';
5511: RAISE fnd_api.g_exc_unexpected_error;
5512: END IF;
5513:
5514: END IF;--IF l_orig_mol_rec.backorder_delivery_detail_id IS NOT NULL
5515: --R12: XDOCK EXE END
5565: IF (l_debug = 1) THEN
5566: print_debug('SPLIT_MO: Error update new mol record',
5567: 4);
5568: END IF;
5569: RAISE fnd_api.g_exc_error;
5570: END;
5571:
5572: l_progress := '190';
5573:
5664: WHEN OTHERS THEN
5665: IF (l_debug = 1) THEN
5666: print_debug('SPLIT_MO ERROR: error update original MOL',4);
5667: END IF;
5668: RAISE fnd_api.g_exc_error;
5669: END;
5670:
5671: l_progress := '210';
5672: IF (l_debug = 1) THEN
5982: CLOSE mmtt_cur;
5983:
5984: IF (Nvl(l_mmtt_rec.primary_quantity,0) < p_prim_qty_to_splt) THEN
5985: print_debug(' ORIG MMTT QYT > P_PRIM_QTY_SPLT!!',1);
5986: RAISE fnd_api.g_exc_unexpected_error;
5987: END IF;
5988:
5989: l_mmtt_rec.primary_quantity := p_prim_qty_to_splt;
5990:
6468: IF (l_debug = 1) THEN
6469: print_debug('SPLIT_MMTT: Error while inserting new MMTT!', 4);
6470: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,11);
6471: END IF;
6472: RAISE fnd_api.g_exc_unexpected_error;
6473: END;
6474:
6475: x_new_mmtt_id := l_new_mmtt_id;
6476:
6484: IF (l_debug = 1) THEN
6485: print_debug('SPLIT_MMTT: Error while updating original MMTT!', 4);
6486: print_debug('SQLCODE:'||SQLCODE||' SQLERRM:'||SQLERRM,11);
6487: END IF;
6488: RAISE fnd_api.g_exc_unexpected_error;
6489: END ;
6490:
6491: -- Split parent MMTT, operation instance, operation plan
6492: l_mmtts_to_split(1) := l_new_mmtt_id;
6503: print_debug('SPLIT_MMTT: Error in split_operation_instance',4);
6504: END IF;
6505: fnd_message.set_name('WMS','WMS_TASK_SPLIT_FAIL');
6506: fnd_msg_pub.add;
6507: RAISE fnd_api.g_exc_error;
6508: END IF;
6509:
6510: IF l_debug = 1 THEN
6511: print_debug(' x_new_mmtt_id => '||x_new_mmtt_id,4);