367: END IF;
368:
369: EXCEPTION
370: WHEN GL_CURRENCY_API.no_rate THEN
371: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_GL_API_NO_RATE');
372: FND_MESSAGE.Set_Token('SuppName',p_vendor_name);
373: FND_MESSAGE.Set_Token('SiteCode',p_vendor_site);
374: FND_MSG_PUB.ADD;
375: g_error_code := 'INV_CONS_SUP_GL_API_NO_RATE' ;
368:
369: EXCEPTION
370: WHEN GL_CURRENCY_API.no_rate THEN
371: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_GL_API_NO_RATE');
372: FND_MESSAGE.Set_Token('SuppName',p_vendor_name);
373: FND_MESSAGE.Set_Token('SiteCode',p_vendor_site);
374: FND_MSG_PUB.ADD;
375: g_error_code := 'INV_CONS_SUP_GL_API_NO_RATE' ;
376: RAISE FND_API.G_EXC_ERROR;
369: EXCEPTION
370: WHEN GL_CURRENCY_API.no_rate THEN
371: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_GL_API_NO_RATE');
372: FND_MESSAGE.Set_Token('SuppName',p_vendor_name);
373: FND_MESSAGE.Set_Token('SiteCode',p_vendor_site);
374: FND_MSG_PUB.ADD;
375: g_error_code := 'INV_CONS_SUP_GL_API_NO_RATE' ;
376: RAISE FND_API.G_EXC_ERROR;
377:
1048: THEN
1049: CLOSE tax_csr_type_rate;
1050: END IF;
1051:
1052: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_TAX_SETUP');
1053: FND_MESSAGE.Set_Token('SuppName',p_vendor_name);
1054: FND_MESSAGE.Set_Token('SiteCode',p_vendor_site);
1055: FND_MSG_PUB.ADD;
1056: g_error_code := 'INV_CONS_SUP_NO_TAX_SETUP' ;
1049: CLOSE tax_csr_type_rate;
1050: END IF;
1051:
1052: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_TAX_SETUP');
1053: FND_MESSAGE.Set_Token('SuppName',p_vendor_name);
1054: FND_MESSAGE.Set_Token('SiteCode',p_vendor_site);
1055: FND_MSG_PUB.ADD;
1056: g_error_code := 'INV_CONS_SUP_NO_TAX_SETUP' ;
1057: RAISE FND_API.G_EXC_ERROR;
1050: END IF;
1051:
1052: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_TAX_SETUP');
1053: FND_MESSAGE.Set_Token('SuppName',p_vendor_name);
1054: FND_MESSAGE.Set_Token('SiteCode',p_vendor_site);
1055: FND_MSG_PUB.ADD;
1056: g_error_code := 'INV_CONS_SUP_NO_TAX_SETUP' ;
1057: RAISE FND_API.G_EXC_ERROR;
1058:
1563: IF l_header_id IS NULL
1564: THEN
1565: IF NVL(l_global_flag,'N') = 'Y'
1566: THEN
1567: FND_MESSAGE.Set_Name('INV','INV_CONS_SUP_MANUAL_NUM_CODE');
1568: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1569: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1570: FND_MSG_PUB.ADD;
1571: g_error_code := 'INV_CONS_SUP_MANUAL_NUM_CODE' ;
1564: THEN
1565: IF NVL(l_global_flag,'N') = 'Y'
1566: THEN
1567: FND_MESSAGE.Set_Name('INV','INV_CONS_SUP_MANUAL_NUM_CODE');
1568: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1569: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1570: FND_MSG_PUB.ADD;
1571: g_error_code := 'INV_CONS_SUP_MANUAL_NUM_CODE' ;
1572: RAISE FND_API.G_EXC_ERROR;
1565: IF NVL(l_global_flag,'N') = 'Y'
1566: THEN
1567: FND_MESSAGE.Set_Name('INV','INV_CONS_SUP_MANUAL_NUM_CODE');
1568: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1569: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1570: FND_MSG_PUB.ADD;
1571: g_error_code := 'INV_CONS_SUP_MANUAL_NUM_CODE' ;
1572: RAISE FND_API.G_EXC_ERROR;
1573: ELSE
1570: FND_MSG_PUB.ADD;
1571: g_error_code := 'INV_CONS_SUP_MANUAL_NUM_CODE' ;
1572: RAISE FND_API.G_EXC_ERROR;
1573: ELSE
1574: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_BPO_EXISTS');
1575: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1576: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1577: FND_MSG_PUB.ADD;
1578: g_error_code := 'INV_CONS_SUP_NO_BPO_EXISTS' ;
1571: g_error_code := 'INV_CONS_SUP_MANUAL_NUM_CODE' ;
1572: RAISE FND_API.G_EXC_ERROR;
1573: ELSE
1574: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_BPO_EXISTS');
1575: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1576: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1577: FND_MSG_PUB.ADD;
1578: g_error_code := 'INV_CONS_SUP_NO_BPO_EXISTS' ;
1579: RAISE FND_API.G_EXC_ERROR;
1572: RAISE FND_API.G_EXC_ERROR;
1573: ELSE
1574: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_BPO_EXISTS');
1575: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1576: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1577: FND_MSG_PUB.ADD;
1578: g_error_code := 'INV_CONS_SUP_NO_BPO_EXISTS' ;
1579: RAISE FND_API.G_EXC_ERROR;
1580: END IF;
1669: -- If there is no conversion, error out
1670:
1671: IF l_conv_qty IS NULL OR l_conv_qty < 0
1672: THEN
1673: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_UOM_CONV');
1674: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1675: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1676: FND_MSG_PUB.ADD;
1677: g_error_code := 'INV_CONS_SUP_NO_UOM_CONV' ;
1670:
1671: IF l_conv_qty IS NULL OR l_conv_qty < 0
1672: THEN
1673: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_UOM_CONV');
1674: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1675: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1676: FND_MSG_PUB.ADD;
1677: g_error_code := 'INV_CONS_SUP_NO_UOM_CONV' ;
1678: RAISE FND_API.G_EXC_ERROR;
1671: IF l_conv_qty IS NULL OR l_conv_qty < 0
1672: THEN
1673: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_UOM_CONV');
1674: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1675: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1676: FND_MSG_PUB.ADD;
1677: g_error_code := 'INV_CONS_SUP_NO_UOM_CONV' ;
1678: RAISE FND_API.G_EXC_ERROR;
1679: END IF;
1700: -- If there is no conversion rate, error out
1701:
1702: IF l_uom_rate IS NULL OR l_uom_rate < 0
1703: THEN
1704: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_UOM_CONV');
1705: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1706: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1707: FND_MSG_PUB.ADD;
1708: g_error_code := 'INV_CONS_SUP_NO_UOM_CONV' ;
1701:
1702: IF l_uom_rate IS NULL OR l_uom_rate < 0
1703: THEN
1704: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_UOM_CONV');
1705: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1706: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1707: FND_MSG_PUB.ADD;
1708: g_error_code := 'INV_CONS_SUP_NO_UOM_CONV' ;
1709: RAISE FND_API.G_EXC_ERROR;
1702: IF l_uom_rate IS NULL OR l_uom_rate < 0
1703: THEN
1704: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_UOM_CONV');
1705: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1706: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1707: FND_MSG_PUB.ADD;
1708: g_error_code := 'INV_CONS_SUP_NO_UOM_CONV' ;
1709: RAISE FND_API.G_EXC_ERROR;
1710: END IF;
1802: /* Bug 4969420 - End*/
1803:
1804: IF l_po_price IS NULL
1805: THEN
1806: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_BPO_EXISTS');
1807: FND_MSG_PUB.ADD;
1808: RAISE FND_API.G_EXC_ERROR;
1809: END IF;
1810:
1954: WHERE NVL(org_id,-99) = NVL(l_org_id,-99);
1955:
1956: IF l_conv_type IS NULL
1957: THEN
1958: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_RATE_SETUP');
1959: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1960: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1961: FND_MSG_PUB.ADD;
1962: g_error_code := 'INV_CONS_SUP_NO_RATE_SETUP';
1955:
1956: IF l_conv_type IS NULL
1957: THEN
1958: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_RATE_SETUP');
1959: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1960: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1961: FND_MSG_PUB.ADD;
1962: g_error_code := 'INV_CONS_SUP_NO_RATE_SETUP';
1963: RAISE FND_API.G_EXC_ERROR;
1956: IF l_conv_type IS NULL
1957: THEN
1958: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_NO_RATE_SETUP');
1959: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
1960: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
1961: FND_MSG_PUB.ADD;
1962: g_error_code := 'INV_CONS_SUP_NO_RATE_SETUP';
1963: RAISE FND_API.G_EXC_ERROR;
1964: END IF;
2047: IF (NVL(l_bkt_amt_limit,0) > 0) AND
2048: (NVL(l_released_amt,0)+NVL(l_consumed_amt,0)+
2049: NVL(l_purch_uom_price,0) > l_bkt_amt_limit)
2050: THEN
2051: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_AMT_AGREED_FAIL');
2052: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
2053: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
2054: FND_MSG_PUB.ADD;
2055: g_error_code := 'INV_CONS_SUP_AMT_AGREED_FAIL' ;
2048: (NVL(l_released_amt,0)+NVL(l_consumed_amt,0)+
2049: NVL(l_purch_uom_price,0) > l_bkt_amt_limit)
2050: THEN
2051: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_AMT_AGREED_FAIL');
2052: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
2053: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
2054: FND_MSG_PUB.ADD;
2055: g_error_code := 'INV_CONS_SUP_AMT_AGREED_FAIL' ;
2056: RAISE FND_API.G_EXC_ERROR;
2049: NVL(l_purch_uom_price,0) > l_bkt_amt_limit)
2050: THEN
2051: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_AMT_AGREED_FAIL');
2052: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
2053: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
2054: FND_MSG_PUB.ADD;
2055: g_error_code := 'INV_CONS_SUP_AMT_AGREED_FAIL' ;
2056: RAISE FND_API.G_EXC_ERROR;
2057: END IF;
2431: WHERE pov.vendor_id = povs.vendor_id
2432: AND pov.vendor_id = p_vendor_id
2433: AND povs.vendor_site_id = l_vendor_site_id;
2434:
2435: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_GEN_ACCT');
2436: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
2437: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
2438: FND_MSG_PUB.ADD;
2439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2432: AND pov.vendor_id = p_vendor_id
2433: AND povs.vendor_site_id = l_vendor_site_id;
2434:
2435: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_GEN_ACCT');
2436: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
2437: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
2438: FND_MSG_PUB.ADD;
2439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2440:
2433: AND povs.vendor_site_id = l_vendor_site_id;
2434:
2435: FND_MESSAGE.Set_Name('INV', 'INV_CONS_SUP_GEN_ACCT');
2436: FND_MESSAGE.Set_Token('SuppName',l_vendor_name);
2437: FND_MESSAGE.Set_Token('SiteCode',l_vendor_site);
2438: FND_MSG_PUB.ADD;
2439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2440:
2441: END IF;