[Home] [Help]
1658: EXCEPTION
1659: WHEN OTHERS THEN
1660: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1661: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1662: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_UTIZ_STMT_ERR');
1663: FND_MSG_PUB.add;
1664: END IF;
1665: END Get_Utiz_Sql_Stmt;
1666:
1847: OPEN csr_cust_name(l_cust_account_id);
1848: FETCH csr_cust_name INTO l_cust_name_num;
1849: CLOSE csr_cust_name;
1850:
1851: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CURRENCY_MISS');
1852: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1853: FND_MSG_PUB.ADD;
1854: END IF;
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1848: FETCH csr_cust_name INTO l_cust_name_num;
1849: CLOSE csr_cust_name;
1850:
1851: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CURRENCY_MISS');
1852: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1853: FND_MSG_PUB.ADD;
1854: END IF;
1855: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1856: END IF;
1861: OPEN csr_cust_name(l_cust_account_id);
1862: FETCH csr_cust_name INTO l_cust_name_num;
1863: CLOSE csr_cust_name;
1864:
1865: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PYMTHD_MISS');
1866: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1867: FND_MSG_PUB.ADD;
1868: END IF;
1869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1862: FETCH csr_cust_name INTO l_cust_name_num;
1863: CLOSE csr_cust_name;
1864:
1865: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PYMTHD_MISS');
1866: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1867: FND_MSG_PUB.ADD;
1868: END IF;
1869: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1870: END IF;
1876: OPEN csr_cust_name(l_cust_account_id);
1877: FETCH csr_cust_name INTO l_cust_name_num;
1878: CLOSE csr_cust_name;
1879:
1880: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_VENDOR_MISS');
1881: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1882: FND_MSG_PUB.ADD;
1883: END IF;
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1877: FETCH csr_cust_name INTO l_cust_name_num;
1878: CLOSE csr_cust_name;
1879:
1880: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_VENDOR_MISS');
1881: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1882: FND_MSG_PUB.ADD;
1883: END IF;
1884: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1885: ELSE
1892: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1893: OPEN csr_cust_name(l_cust_account_id);
1894: FETCH csr_cust_name INTO l_cust_name_num;
1895: CLOSE csr_cust_name;
1896: FND_MESSAGE.Set_Name('OZF', 'OZF_TRADE_VENDOR_INACTIVE');
1897: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1898: FND_MSG_PUB.ADD;
1899: END IF;
1900: --if vendor or vendor site is inactive, don't default from Customer Trade Profile. Setting it null.
1893: OPEN csr_cust_name(l_cust_account_id);
1894: FETCH csr_cust_name INTO l_cust_name_num;
1895: CLOSE csr_cust_name;
1896: FND_MESSAGE.Set_Name('OZF', 'OZF_TRADE_VENDOR_INACTIVE');
1897: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1898: FND_MSG_PUB.ADD;
1899: END IF;
1900: --if vendor or vendor site is inactive, don't default from Customer Trade Profile. Setting it null.
1901: p_cust_trade_profile.vendor_id := null;
1910: OPEN csr_cust_name(l_cust_account_id);
1911: FETCH csr_cust_name INTO l_cust_name_num;
1912: CLOSE csr_cust_name;
1913:
1914: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_SITEID_MISS');
1915: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1916: FND_MSG_PUB.ADD;
1917: END IF;
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1911: FETCH csr_cust_name INTO l_cust_name_num;
1912: CLOSE csr_cust_name;
1913:
1914: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_SITEID_MISS');
1915: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1916: FND_MSG_PUB.ADD;
1917: END IF;
1918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1919: END IF;
1925: EXCEPTION
1926: WHEN OTHERS THEN
1927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1928: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1929: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_CUSTOMER_ERR');
1930: FND_MSG_PUB.add;
1931: END IF;
1932: END Validate_Cust_Trade_Profile;
1933:
2330: , X_access => l_access);
2331:
2332: IF l_access = 'N' THEN
2333: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2334: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2335: FND_MSG_PUB.add;
2336: END IF;
2337: RAISE FND_API.G_EXC_ERROR;
2338: END IF;
3027: , X_access => l_access);
3028:
3029: IF l_access = 'N' THEN
3030: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3031: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3032: FND_MSG_PUB.add;
3033: END IF;
3034: RAISE FND_API.G_EXC_ERROR;
3035: END IF;
3283: , X_access => l_access);
3284:
3285: IF l_access = 'N' THEN
3286: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3287: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3288: FND_MSG_PUB.add;
3289: END IF;
3290: RAISE FND_API.G_EXC_ERROR;
3291: END IF;
3421: --AND object_version_number = p_line_util_rec.object_version_number;
3422:
3423: IF (SQL%NOTFOUND) THEN
3424: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3425: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3426: FND_MSG_PUB.add;
3427: END IF;
3428: RAISE FND_API.g_exc_error;
3429: END IF;
3792: , X_access => l_access);
3793:
3794: IF l_access = 'N' THEN
3795: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3796: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3797: FND_MSG_PUB.add;
3798: END IF;
3799: RAISE FND_API.G_EXC_ERROR;
3800: END IF;
4035: , X_access => l_access);
4036:
4037: IF l_access = 'N' THEN
4038: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4039: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
4040: FND_MSG_PUB.add;
4041: END IF;
4042: RAISE FND_API.G_EXC_ERROR;
4043: END IF;
4096: AND object_version_number = p_object_version;
4097:
4098: IF (SQL%NOTFOUND) THEN
4099: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4100: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4101: FND_MSG_PUB.add;
4102: END IF;
4103: RAISE FND_API.g_exc_error;
4104: END IF;
4213: FETCH csr_line_util INTO l_line_util_rec;
4214: IF csr_line_util%NOTFOUND THEN
4215: CLOSE csr_line_util;
4216: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4217: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
4218: FND_MSG_PUB.add;
4219: END IF;
4220: RAISE FND_API.g_exc_error;
4221: END IF;
4503: ,to_name => NULL
4504: );
4505: IF l_requirement_value = -99999 THEN
4506: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4507: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4508: FND_MSG_PUB.add;
4509: END IF;
4510: RAISE FND_API.g_exc_error;
4511: END IF;
4622: ,to_name => NULL
4623: );
4624: IF l_requirement_value = -99999 THEN
4625: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4626: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4627: FND_MSG_PUB.add;
4628: END IF;
4629: RAISE FND_API.g_exc_error;
4630: END IF;
5163: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
5164: IF csr_uom_code%NOTFOUND THEN
5165: CLOSE csr_uom_code;
5166: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5167: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5168: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5169: FND_MSG_PUB.ADD;
5170: END IF;
5171: RAISE FND_API.g_exc_unexpected_error;
5164: IF csr_uom_code%NOTFOUND THEN
5165: CLOSE csr_uom_code;
5166: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5167: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5168: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5169: FND_MSG_PUB.ADD;
5170: END IF;
5171: RAISE FND_API.g_exc_unexpected_error;
5172: END IF;
5216: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
5217: IF csr_uom_code%NOTFOUND THEN
5218: CLOSE csr_uom_code;
5219: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5220: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5221: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5222: FND_MSG_PUB.ADD;
5223: END IF;
5224: RAISE FND_API.g_exc_unexpected_error;
5217: IF csr_uom_code%NOTFOUND THEN
5218: CLOSE csr_uom_code;
5219: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5220: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5221: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5222: FND_MSG_PUB.ADD;
5223: END IF;
5224: RAISE FND_API.g_exc_unexpected_error;
5225: END IF;
5366: OZF_Utility_PVT.debug_message('Amount: ' || l_claim_rec.amount);
5367: END IF;
5368:
5369: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5370: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_SCAN_DATA_ERROR');
5371: FND_MSG_PUB.ADD;
5372: END IF;
5373:
5374: RAISE FND_API.g_exc_unexpected_error;
5373:
5374: RAISE FND_API.g_exc_unexpected_error;
5375: ELSIF l_claim_rec.created_from <> 'PROMO_CLAIM' THEN
5376: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5377: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_REM_AMOUNT_LT_ZERO');
5378: FND_MSG_PUB.ADD;
5379: END IF;
5380: RAISE FND_API.g_exc_unexpected_error;
5381:
5700: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
5701: IF csr_uom_code%NOTFOUND THEN
5702: CLOSE csr_uom_code;
5703: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5704: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5705: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5706: FND_MSG_PUB.ADD;
5707: END IF;
5708: RAISE FND_API.g_exc_unexpected_error;
5701: IF csr_uom_code%NOTFOUND THEN
5702: CLOSE csr_uom_code;
5703: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5704: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5705: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
5706: FND_MSG_PUB.ADD;
5707: END IF;
5708: RAISE FND_API.g_exc_unexpected_error;
5709: END IF;
5765:
5766: -- If flag = f then dispute the batch and batch lines
5767: IF l_batch_settlement_flag = 'F' THEN
5768: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5769: FND_MESSAGE.Set_Name('OZF', 'OZF_CHBK_NO_FUNDS');
5770: FND_MSG_PUB.ADD;
5771: END IF;
5772: RAISE FND_API.g_exc_unexpected_error;
5773: END IF;
6048: OPEN csr_party_name(p_claim_rec.cust_account_id);
6049: FETCH csr_party_name INTO l_party_name;
6050: CLOSE csr_party_name;
6051:
6052: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_NO_TRADE_PROFILE');
6053: FND_MESSAGE.Set_Token('CUST_NAME', l_party_name);
6054: FND_MSG_PUB.ADD;
6055: END IF;
6056: RAISE FND_API.g_exc_unexpected_error;
6049: FETCH csr_party_name INTO l_party_name;
6050: CLOSE csr_party_name;
6051:
6052: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_NO_TRADE_PROFILE');
6053: FND_MESSAGE.Set_Token('CUST_NAME', l_party_name);
6054: FND_MSG_PUB.ADD;
6055: END IF;
6056: RAISE FND_API.g_exc_unexpected_error;
6057: END IF;
6311: FETCH csr_claim_info INTO l_cust_account_id, l_total_amount,l_claim_class,l_claim_currency_code;
6312: IF csr_claim_info%NOTFOUND THEN
6313: CLOSE csr_claim_info;
6314: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6315: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ID_NOT_EXIST');
6316: FND_MESSAGE.Set_Token('CLAIM_ID', p_claim_id);
6317: FND_MSG_PUB.ADD;
6318: END IF;
6319: RAISE FND_API.g_exc_unexpected_error;
6312: IF csr_claim_info%NOTFOUND THEN
6313: CLOSE csr_claim_info;
6314: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6315: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ID_NOT_EXIST');
6316: FND_MESSAGE.Set_Token('CLAIM_ID', p_claim_id);
6317: FND_MSG_PUB.ADD;
6318: END IF;
6319: RAISE FND_API.g_exc_unexpected_error;
6320: END IF;
6448: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
6449: IF csr_uom_code%NOTFOUND THEN
6450: CLOSE csr_uom_code;
6451: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6452: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
6453: FND_MESSAGE.Set_Token('ITEM_ID', l_product_id);
6454: FND_MSG_PUB.ADD;
6455: END IF;
6456: RAISE FND_API.g_exc_unexpected_error;
6449: IF csr_uom_code%NOTFOUND THEN
6450: CLOSE csr_uom_code;
6451: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6452: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
6453: FND_MESSAGE.Set_Token('ITEM_ID', l_product_id);
6454: FND_MSG_PUB.ADD;
6455: END IF;
6456: RAISE FND_API.g_exc_unexpected_error;
6457: END IF;
6716:
6717: IF csr_line_info%NOTFOUND THEN
6718: CLOSE csr_line_info;
6719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6720: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6721: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6722: FND_MSG_PUB.ADD;
6723: END IF;
6724: RAISE FND_API.g_exc_unexpected_error;
6717: IF csr_line_info%NOTFOUND THEN
6718: CLOSE csr_line_info;
6719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6720: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6721: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6722: FND_MSG_PUB.ADD;
6723: END IF;
6724: RAISE FND_API.g_exc_unexpected_error;
6725: END IF;
6730:
6731: IF csr_sum_util_amounts%NOTFOUND THEN
6732: CLOSE csr_line_info;
6733: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6734: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6735: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6736: FND_MSG_PUB.ADD;
6737: END IF;
6738: RAISE FND_API.g_exc_unexpected_error;
6731: IF csr_sum_util_amounts%NOTFOUND THEN
6732: CLOSE csr_line_info;
6733: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6734: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6735: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6736: FND_MSG_PUB.ADD;
6737: END IF;
6738: RAISE FND_API.g_exc_unexpected_error;
6739: END IF;
6744:
6745: IF csr_sum_scan_units%NOTFOUND THEN
6746: CLOSE csr_line_info;
6747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6748: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6749: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6750: FND_MSG_PUB.ADD;
6751: END IF;
6752: RAISE FND_API.g_exc_unexpected_error;
6745: IF csr_sum_scan_units%NOTFOUND THEN
6746: CLOSE csr_line_info;
6747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6748: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
6749: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
6750: FND_MSG_PUB.ADD;
6751: END IF;
6752: RAISE FND_API.g_exc_unexpected_error;
6753: END IF;
7121: ,from_name => NULL
7122: ,to_name => NULL);
7123: IF l_quantity = -99999 THEN
7124: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7125: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7126: FND_MSG_PUB.add;
7127: END IF;
7128: RAISE FND_API.g_exc_error;
7129: END IF;
7604: ,to_name => NULL
7605: );
7606: IF l_quantity = -99999 THEN
7607: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7608: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7609: FND_MSG_PUB.add;
7610: END IF;
7611: RAISE FND_API.g_exc_error;
7612: END IF;
8052: IF l_adjustment_flag = 'N' THEN
8053: -- As of 15-JAN-2003, adjustment workflow is not supported. An error is raised
8054: -- if the offer is not auto-adjustable.
8055: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8056: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_ADJUST_SCANUNIT');
8057: FND_MSG_PUB.add;
8058: END IF;
8059: x_return_status := FND_API.g_ret_sts_error;
8060: RETURN;
8062: /*
8063: -- Adjustment workflow can be invoked only when profile is set
8064: IF NVL(fnd_profile.value('OZF_CLAIM_SCAN_ADJUST_WORKFLOW'),'N') <> 'Y' THEN
8065: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8066: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_ADJUST_WORKFLOW');
8067: FND_MSG_PUB.add;
8068: END IF;
8069: x_return_status := FND_API.g_ret_sts_error;
8070: RETURN;
8076: CLOSE csr_count_workflow;
8077:
8078: IF l_count_workflow > 0 THEN
8079: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8080: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MULTI_ADJ_WORKFLOW');
8081: FND_MSG_PUB.add;
8082: END IF;
8083: x_return_status := FND_API.g_ret_sts_error;
8084: RETURN;
8092: p_funds_util_flt.activity_type IS NULL OR
8093: p_funds_util_flt.activity_type <> 'OFFR'
8094: THEN
8095: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8096: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NO_OFFER');
8097: FND_MSG_PUB.add;
8098: END IF;
8099: x_return_status := FND_API.g_ret_sts_error;
8100: RETURN;
8129: END IF;
8130:
8131: IF l_un_earned_pay_allow_to = 'DISALLOW' THEN
8132: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8133: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
8134: FND_MSG_PUB.add;
8135: END IF;
8136: x_return_status := FND_API.g_ret_sts_error;
8137: RETURN;
8150: IF l_un_earned_pay_allow_to IS NULL OR
8151: l_un_earned_pay_allow_to = 'ALLOW_SELECTED'
8152: THEN
8153: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8154: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
8155: FND_MSG_PUB.add;
8156: END IF;
8157: x_return_status := FND_API.g_ret_sts_error;
8158: RETURN;
8184:
8185: IF l_over_paid_amount > l_threshold_amount THEN
8186: IF l_un_earned_pay_thold_flag IS NULL OR l_un_earned_pay_thold_flag <> 'T' THEN
8187: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8188: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_OVER_THOLD');
8189: FND_MSG_PUB.add;
8190: END IF;
8191: x_return_status := FND_API.g_ret_sts_error;
8192: RETURN;
8895: --Raise error, if negative assocation is taking place for positive amount remaining.
8896: IF l_total_amt_rem = 0 AND
8897: NVL(p_funds_util_flt.offer_type,'X') NOT IN ('ACCRUAL','DEAL','LUMPSUM','NET_ACCRUAL','VOLUME_OFFER', 'SCAN_DATA') THEN
8898: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8899: FND_MESSAGE.set_name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
8900: FND_MSG_PUB.add;
8901: END IF;
8902: RAISE FND_API.g_exc_error;
8903: ELSE
8907: ELSE
8908: IF (p_cre_util_amount < 0 and l_total_amt_rem >0)
8909: THEN
8910: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8911: FND_MESSAGE.set_name('OZF', 'OZF_ASSO_NEG_AMT');
8912: FND_MSG_PUB.add;
8913: END IF;
8914: RAISE FND_API.g_exc_error;
8915: END IF;
9277: , to_name => NULL
9278: );
9279: IF l_asso_total_quantity = -99999 THEN
9280: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9281: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
9282: FND_MSG_PUB.add;
9283: END IF;
9284: RAISE FND_API.g_exc_error;
9285: END IF;
9305: , to_name => NULL
9306: );
9307: IF l_asso_total_quantity = -99999 THEN
9308: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9309: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
9310: FND_MSG_PUB.add;
9311: END IF;
9312: RAISE FND_API.g_exc_error;
9313: END IF;
9339: --Raise error, if net association amount exists and offer is COMPLETED.
9340: IF l_net_asso_amount <> 0 THEN
9341: IF p_offer_status = 'COMPLETED' THEN
9342: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9343: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_COMPLETE_OFFER');
9344: FND_MSG_PUB.add;
9345: END IF;
9346: RAISE FND_API.g_exc_error;
9347: END IF;
9825:
9826: --Raise error, if claim is not OPEN status and associate earnings is happening.
9827: IF l_claim_status <> 'OPEN' THEN
9828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9829: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_NOT_OPEN');
9830: FND_MSG_PUB.add;
9831: END IF;
9832: RAISE FND_API.g_exc_error;
9833: END IF;
10292: WHERE claim_line_util_id = p_line_util_rec.claim_line_util_id;
10293:
10294: IF (SQL%NOTFOUND) THEN
10295: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
10296: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
10297: FND_MSG_PUB.add;
10298: END IF;
10299: RAISE FND_API.g_exc_error;
10300: END IF;
11305: -- change the settlement fetcher process
11306: -- mchang: As of 24-OCT-2002, we don't support manual adjust over utilization. TM raise
11307: -- error everytime if ams_act_products.adjustment_flag is 'N'.
11308: IF OZF_DEBUG_LOW_ON THEN
11309: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
11310: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Manual Adjust Over Utilization is not supported.');
11311: FND_MSG_PUB.Add;
11312: END IF;
11313:
11306: -- mchang: As of 24-OCT-2002, we don't support manual adjust over utilization. TM raise
11307: -- error everytime if ams_act_products.adjustment_flag is 'N'.
11308: IF OZF_DEBUG_LOW_ON THEN
11309: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
11310: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Manual Adjust Over Utilization is not supported.');
11311: FND_MSG_PUB.Add;
11312: END IF;
11313:
11314: RAISE FND_API.g_exc_unexpected_error;
12325: END IF;
12326: END LOOP;
12327: IF l_check > 1 THEN
12328: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12329: FND_MESSAGE.Set_Name('OZF', 'OZF_DUP_CUST_ACCTS');
12330: FND_MESSAGE.Set_Token('CUST_ACCOUNT_ID', l_cust_util_tbl(i).cust_account_id);
12331: FND_MSG_PUB.ADD;
12332: END IF;
12333: RAISE FND_API.g_exc_unexpected_error;
12326: END LOOP;
12327: IF l_check > 1 THEN
12328: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12329: FND_MESSAGE.Set_Name('OZF', 'OZF_DUP_CUST_ACCTS');
12330: FND_MESSAGE.Set_Token('CUST_ACCOUNT_ID', l_cust_util_tbl(i).cust_account_id);
12331: FND_MSG_PUB.ADD;
12332: END IF;
12333: RAISE FND_API.g_exc_unexpected_error;
12334: END IF;
12516: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
12517: IF csr_uom_code%NOTFOUND THEN
12518: CLOSE csr_uom_code;
12519: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12520: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
12521: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
12522: FND_MSG_PUB.ADD;
12523: END IF;
12524: RAISE FND_API.g_exc_unexpected_error;
12517: IF csr_uom_code%NOTFOUND THEN
12518: CLOSE csr_uom_code;
12519: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12520: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
12521: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
12522: FND_MSG_PUB.ADD;
12523: END IF;
12524: RAISE FND_API.g_exc_unexpected_error;
12525: END IF;
12535:
12536: --Raise error, if no accrual exists, may happen for INTERNAL claims only
12537: IF l_counter = 1 THEN
12538: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12539: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
12540: FND_MSG_PUB.ADD;
12541: END IF;
12542: RAISE FND_API.g_exc_unexpected_error;
12543: END IF;
12649: ELSE
12650: l_create_claim := 'N';
12651: --Raise error, if claim amount is negative.
12652: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12653: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
12654: FND_MSG_PUB.ADD;
12655: END IF;
12656: RAISE FND_API.g_exc_unexpected_error;
12657:
12771: ELSIF l_claim_rec.amount = 0 THEN
12772: --Raise error, if claim amount is zero. Claim header is not allowed with
12773: --zero amount.
12774: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12775: FND_MESSAGE.Set_Name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
12776: FND_MSG_PUB.ADD;
12777: END IF;
12778: RAISE FND_API.g_exc_unexpected_error;
12779: /*ELSE
12778: RAISE FND_API.g_exc_unexpected_error;
12779: /*ELSE
12780: --Raise error, if claim amount is negative.
12781: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12782: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
12783: FND_MSG_PUB.ADD;
12784: END IF;
12785: RAISE FND_API.g_exc_unexpected_error;
12786: */
12822: END LOOP;
12823: ELSE
12824: --Raise error, if no accrual exists, may happen for INTERNAL claims only
12825: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
12826: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
12827: FND_MSG_PUB.ADD;
12828: END IF;
12829: RAISE FND_API.g_exc_unexpected_error;
12830: END IF;