809: -- =========================================================================
810: IF FND_GLOBAL.User_Id IS NULL
811: THEN
812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
813: FND_MESSAGE.set_name('OZF', 'OZF_USER_PROFILE_MISSING');
814: FND_MSG_PUB.add;
815: END IF;
816: RAISE FND_API.G_EXC_ERROR;
817: END IF;
961:
962: EXCEPTION
963: WHEN OTHERS THEN
964: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
965: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
966: FND_MSG_PUB.add;
967: END IF;
968:
969: RAISE FND_API.G_EXC_ERROR;
992: EXCEPTION
993: WHEN OZF_Utility_PVT.resource_locked THEN
994: x_return_status := FND_API.g_ret_sts_error;
995: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
996: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCES_LOCKED');
997: FND_MSG_PUB.add;
998: END IF;
999: WHEN FND_API.G_EXC_ERROR THEN
1000: ROLLBACK TO Create_Supp_Trade_Profile_PVT;
1108: OPEN c_supp_trade;
1109: FETCH c_supp_trade INTO l_ref_supp_trade_profile_rec;
1110: IF ( c_supp_trade%NOTFOUND) THEN
1111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1112: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1113: FND_MSG_PUB.add;
1114: END IF;
1115: RAISE FND_API.G_EXC_ERROR;
1116: END IF;
1122:
1123: IF (l_tar_supp_trade_profile_rec.object_version_number is NULL or
1124: l_tar_supp_trade_profile_rec.object_version_number = FND_API.G_MISS_NUM ) THEN
1125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1126: FND_MESSAGE.set_name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
1127: FND_MSG_PUB.add;
1128: END IF;
1129: raise FND_API.G_EXC_ERROR;
1130: End if;
1341: EXCEPTION
1342: WHEN OZF_Utility_PVT.resource_locked THEN
1343: x_return_status := FND_API.g_ret_sts_error;
1344: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1345: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
1346: FND_MSG_PUB.add;
1347: END IF;
1348: WHEN FND_API.G_EXC_ERROR THEN
1349: ROLLBACK TO UPDATE_Supp_Trade_Profile_PVT;
1445: EXCEPTION
1446: WHEN OZF_Utility_PVT.resource_locked THEN
1447: x_return_status := FND_API.g_ret_sts_error;
1448: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1449: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCES_LOCKED');
1450: FND_MSG_PUB.add;
1451: END IF;
1452: WHEN FND_API.G_EXC_ERROR THEN
1453: ROLLBACK TO Delete_Supp_Trade_Profile_PVT;
1534: FETCH c_Supp_Trade_Profile INTO l_SUPP_TRADE_PROFILE_ID;
1535: IF (c_Supp_Trade_Profile%NOTFOUND) THEN
1536: CLOSE c_Supp_Trade_Profile;
1537: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1538: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
1539: FND_MSG_PUB.add;
1540: END IF;
1541: RAISE FND_API.g_exc_error;
1542: END IF;
1552: EXCEPTION
1553: WHEN OZF_Utility_PVT.resource_locked THEN
1554: x_return_status := FND_API.g_ret_sts_error;
1555: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1556: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCES LOCKED');
1557: FND_MSG_PUB.add;
1558: END IF;
1559: WHEN FND_API.G_EXC_ERROR THEN
1560: ROLLBACK TO LOCK_Supp_Trade_Profile_PVT;
1640: END IF;
1641: --Seed the message OZF_SUPP_TRADE_DUPLICATE
1642: IF l_valid_flag = FND_API.g_false THEN
1643: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1644: FND_MESSAGE.set_name('OZF', 'OZF_SUPP_TRADE_PROFILE_DUPLIC');
1645: FND_MSG_PUB.add;
1646: END IF;
1647: x_return_status := FND_API.G_RET_STS_ERROR;
1648: END IF;
1670: IF p_supp_trade_profile_rec.supplier_id = FND_API.g_miss_num OR
1671: p_supp_trade_profile_rec.supplier_id IS NULL
1672: THEN
1673: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1674: FND_MESSAGE.set_name('OZF', 'OZF_SUPPLIER_MISSING');
1675: FND_MSG_PUB.add;
1676: END IF;
1677: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1678: END IF;
1679: IF p_supp_trade_profile_rec.supplier_site_id = FND_API.g_miss_num OR
1680: p_supp_trade_profile_rec.supplier_site_id IS NULL
1681: THEN
1682: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1683: FND_MESSAGE.set_name('OZF', 'OZF_SUPPLIER_SITE_MISSING');
1684: FND_MSG_PUB.add;
1685: END IF;
1686: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1687: END IF;
1689: IF p_supp_trade_profile_rec.party_id = FND_API.g_miss_num OR
1690: p_supp_trade_profile_rec.party_id IS NULL
1691: THEN
1692: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1693: FND_MESSAGE.set_name('OZF', 'OZF_CUSTOMER_MISSING');
1694: FND_MSG_PUB.add;
1695: END IF;
1696: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1697: END IF;
1698: IF p_supp_trade_profile_rec.cust_account_id = FND_API.g_miss_num OR
1699: p_supp_trade_profile_rec.cust_account_id IS NULL
1700: THEN
1701: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1702: FND_MESSAGE.set_name('OZF', 'OZF_CUSTOMER_ACCOUNT_MISSING');
1703: FND_MSG_PUB.add;
1704: END IF;
1705: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1706: END IF;
1846: EXCEPTION
1847: WHEN OZF_Utility_PVT.resource_locked THEN
1848: x_return_status := FND_API.g_ret_sts_error;
1849: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1850: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED ');
1851: FND_MSG_PUB.add;
1852: END IF;
1853: WHEN FND_API.G_EXC_ERROR THEN
1854: ROLLBACK TO VALIDATE_Supp_Trade_Prfl_PVT;
1907: ( p_supp_trade_profile_rec.default_days_covered > 9999 or
1908: p_supp_trade_profile_rec.default_days_covered < 0)
1909: THEN
1910: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1911: FND_MESSAGE.set_name('OZF', 'OZF_DEFAULT_DAYS_INVALID_VAL');
1912: FND_MSG_PUB.add;
1913: END IF;
1914: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1915: END IF ;
1919: p_supp_trade_profile_rec.qty_increase_tolerance < 0)
1920: THEN
1921: x_return_status := FND_API.G_RET_STS_ERROR;
1922: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1923: FND_MESSAGE.set_name('OZF', 'OZF_QTY_INC_TOLERANCE_INVALID');
1924: FND_MSG_PUB.add;
1925: END IF;
1926: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1927: END IF ;
1930: p_supp_trade_profile_rec.grace_days < 0)
1931: THEN
1932: x_return_status := FND_API.G_RET_STS_ERROR;
1933: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1934: FND_MESSAGE.set_name('OZF', 'OZF_GRACE_DAYS_INVALID_VAL');
1935: FND_MSG_PUB.add;
1936: END IF;
1937: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1938: END IF ;
1941: p_supp_trade_profile_rec.authorization_period < 0)
1942: THEN
1943: x_return_status := FND_API.G_RET_STS_ERROR;
1944: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1945: FND_MESSAGE.set_name('OZF', 'OZF_AUTH_PERIOD_INVALID_VAL');
1946: FND_MSG_PUB.add;
1947: END IF;
1948: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1949: END IF ;
1952: p_supp_trade_profile_rec.claim_frequency < 0
1953: THEN
1954: x_return_status := FND_API.G_RET_STS_ERROR;
1955: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1956: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_FREQ_NEG');
1957: FND_MSG_PUB.add;
1958: END IF;
1959: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1960: END IF ;
1963: THEN
1964: IF (p_supp_trade_profile_rec.min_claim_amt < 0)
1965: THEN
1966: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1967: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_INVALID');
1968: FND_MSG_PUB.add;
1969: END IF;
1970: x_return_status := FND_API.G_RET_STS_ERROR;
1971: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1976: THEN
1977: IF (p_supp_trade_profile_rec.min_claim_amt_line_lvl < 0)
1978: THEN
1979: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1980: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_LINE_AMT_NEG');
1981: FND_MSG_PUB.add;
1982: END IF;
1983: x_return_status := FND_API.G_RET_STS_ERROR;
1984: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1993:
1994: IF (p_supp_trade_profile_rec.min_claim_amt < p_supp_trade_profile_rec.min_claim_amt_line_lvl)
1995: THEN
1996: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1997: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_ERROR');
1998: FND_MSG_PUB.add;
1999: END IF;
2000: x_return_status := FND_API.G_RET_STS_ERROR;
2001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2007: p_supp_trade_profile_rec.days_before_claiming_debit < 0
2008: THEN
2009: x_return_status := FND_API.G_RET_STS_ERROR;
2010: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2011: FND_MESSAGE.set_name('OZF', 'OZF_DAYS_BEF_CLAIMING_DEBIT');
2012: FND_MSG_PUB.add;
2013: END IF;
2014: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2015: END IF ;