[Home] [Help]
1436: EXCEPTION
1437: WHEN OTHERS THEN
1438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1439: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1440: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_UTIZ_STMT_ERR');
1441: FND_MSG_PUB.add;
1442: END IF;
1443: END Get_Utiz_Sql_Stmt;
1444:
1550: OPEN csr_cust_name(l_cust_account_id);
1551: FETCH csr_cust_name INTO l_cust_name_num;
1552: CLOSE csr_cust_name;
1553:
1554: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CURRENCY_MISS');
1555: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1556: FND_MSG_PUB.ADD;
1557: END IF;
1558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1551: FETCH csr_cust_name INTO l_cust_name_num;
1552: CLOSE csr_cust_name;
1553:
1554: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_CURRENCY_MISS');
1555: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1556: FND_MSG_PUB.ADD;
1557: END IF;
1558: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1559: END IF;
1564: OPEN csr_cust_name(l_cust_account_id);
1565: FETCH csr_cust_name INTO l_cust_name_num;
1566: CLOSE csr_cust_name;
1567:
1568: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PYMTHD_MISS');
1569: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1570: FND_MSG_PUB.ADD;
1571: END IF;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1565: FETCH csr_cust_name INTO l_cust_name_num;
1566: CLOSE csr_cust_name;
1567:
1568: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_PYMTHD_MISS');
1569: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1570: FND_MSG_PUB.ADD;
1571: END IF;
1572: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1573: END IF;
1579: OPEN csr_cust_name(l_cust_account_id);
1580: FETCH csr_cust_name INTO l_cust_name_num;
1581: CLOSE csr_cust_name;
1582:
1583: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_VENDOR_MISS');
1584: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1585: FND_MSG_PUB.ADD;
1586: END IF;
1587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1580: FETCH csr_cust_name INTO l_cust_name_num;
1581: CLOSE csr_cust_name;
1582:
1583: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_VENDOR_MISS');
1584: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1585: FND_MSG_PUB.ADD;
1586: END IF;
1587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1588: END IF;
1592: OPEN csr_cust_name(l_cust_account_id);
1593: FETCH csr_cust_name INTO l_cust_name_num;
1594: CLOSE csr_cust_name;
1595:
1596: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_SITEID_MISS');
1597: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1598: FND_MSG_PUB.ADD;
1599: END IF;
1600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1593: FETCH csr_cust_name INTO l_cust_name_num;
1594: CLOSE csr_cust_name;
1595:
1596: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ATPY_SITEID_MISS');
1597: FND_MESSAGE.Set_Token('ID',l_cust_name_num);
1598: FND_MSG_PUB.ADD;
1599: END IF;
1600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1601: END IF;
1607: EXCEPTION
1608: WHEN OTHERS THEN
1609: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1610: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1611: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ATPY_CUSTOMER_ERR');
1612: FND_MSG_PUB.add;
1613: END IF;
1614: END Validate_Cust_Trade_Profile;
1615:
1989: , X_access => l_access);
1990:
1991: IF l_access = 'N' THEN
1992: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1993: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
1994: FND_MSG_PUB.add;
1995: END IF;
1996: RAISE FND_API.G_EXC_ERROR;
1997: END IF;
2300: , X_access => l_access);
2301:
2302: IF l_access = 'N' THEN
2303: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2304: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2305: FND_MSG_PUB.add;
2306: END IF;
2307: RAISE FND_API.G_EXC_ERROR;
2308: END IF;
2706: , X_access => l_access);
2707:
2708: IF l_access = 'N' THEN
2709: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2710: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2711: FND_MSG_PUB.add;
2712: END IF;
2713: RAISE FND_API.G_EXC_ERROR;
2714: END IF;
2949: , X_access => l_access);
2950:
2951: IF l_access = 'N' THEN
2952: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2953: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
2954: FND_MSG_PUB.add;
2955: END IF;
2956: RAISE FND_API.G_EXC_ERROR;
2957: END IF;
3088: --AND object_version_number = p_line_util_rec.object_version_number;
3089:
3090: IF (SQL%NOTFOUND) THEN
3091: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3092: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3093: FND_MSG_PUB.add;
3094: END IF;
3095: RAISE FND_API.g_exc_error;
3096: END IF;
3447: , X_access => l_access);
3448:
3449: IF l_access = 'N' THEN
3450: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3451: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3452: FND_MSG_PUB.add;
3453: END IF;
3454: RAISE FND_API.G_EXC_ERROR;
3455: END IF;
3669: , X_access => l_access);
3670:
3671: IF l_access = 'N' THEN
3672: IF FND_MSG_PUB.check_msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3673: FND_MESSAGE.set_name('OZF','OZF_CLAIM_NO_ACCESS');
3674: FND_MSG_PUB.add;
3675: END IF;
3676: RAISE FND_API.G_EXC_ERROR;
3677: END IF;
3737: AND object_version_number = p_object_version;
3738:
3739: IF (SQL%NOTFOUND) THEN
3740: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3741: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3742: FND_MSG_PUB.add;
3743: END IF;
3744: RAISE FND_API.g_exc_error;
3745: END IF;
3851: FETCH csr_line_util INTO l_line_util_rec;
3852: IF csr_line_util%NOTFOUND THEN
3853: CLOSE csr_line_util;
3854: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3855: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
3856: FND_MSG_PUB.add;
3857: END IF;
3858: RAISE FND_API.g_exc_error;
3859: END IF;
4123: ,to_name => NULL
4124: );
4125: IF l_requirement_value = -99999 THEN
4126: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4127: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4128: FND_MSG_PUB.add;
4129: END IF;
4130: RAISE FND_API.g_exc_error;
4131: END IF;
4242: ,to_name => NULL
4243: );
4244: IF l_requirement_value = -99999 THEN
4245: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4246: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
4247: FND_MSG_PUB.add;
4248: END IF;
4249: RAISE FND_API.g_exc_error;
4250: END IF;
4675: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
4676: IF csr_uom_code%NOTFOUND THEN
4677: CLOSE csr_uom_code;
4678: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4679: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
4680: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
4681: FND_MSG_PUB.ADD;
4682: END IF;
4683: RAISE FND_API.g_exc_unexpected_error;
4676: IF csr_uom_code%NOTFOUND THEN
4677: CLOSE csr_uom_code;
4678: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4679: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
4680: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
4681: FND_MSG_PUB.ADD;
4682: END IF;
4683: RAISE FND_API.g_exc_unexpected_error;
4684: END IF;
4716: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
4717: IF csr_uom_code%NOTFOUND THEN
4718: CLOSE csr_uom_code;
4719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4720: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
4721: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
4722: FND_MSG_PUB.ADD;
4723: END IF;
4724: RAISE FND_API.g_exc_unexpected_error;
4717: IF csr_uom_code%NOTFOUND THEN
4718: CLOSE csr_uom_code;
4719: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4720: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
4721: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
4722: FND_MSG_PUB.ADD;
4723: END IF;
4724: RAISE FND_API.g_exc_unexpected_error;
4725: END IF;
4848: OZF_Utility_PVT.debug_message('Amount: ' || l_claim_rec.amount);
4849: END IF;
4850:
4851: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4852: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_SCAN_DATA_ERROR');
4853: FND_MSG_PUB.ADD;
4854: END IF;
4855:
4856: RAISE FND_API.g_exc_unexpected_error;
4855:
4856: RAISE FND_API.g_exc_unexpected_error;
4857: ELSE
4858: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4859: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_REM_AMOUNT_LT_ZERO');
4860: FND_MSG_PUB.ADD;
4861: END IF;
4862: RAISE FND_API.g_exc_unexpected_error;
4863: END IF;
5037: OPEN csr_party_name(p_claim_rec.cust_account_id);
5038: FETCH csr_party_name INTO l_party_name;
5039: CLOSE csr_party_name;
5040:
5041: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_NO_TRADE_PROFILE');
5042: FND_MESSAGE.Set_Token('CUST_NAME', l_party_name);
5043: FND_MSG_PUB.ADD;
5044: END IF;
5045: RAISE FND_API.g_exc_unexpected_error;
5038: FETCH csr_party_name INTO l_party_name;
5039: CLOSE csr_party_name;
5040:
5041: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_NO_TRADE_PROFILE');
5042: FND_MESSAGE.Set_Token('CUST_NAME', l_party_name);
5043: FND_MSG_PUB.ADD;
5044: END IF;
5045: RAISE FND_API.g_exc_unexpected_error;
5046: END IF;
5253: FETCH csr_claim_info INTO l_cust_account_id, l_total_amount,l_claim_class;
5254: IF csr_claim_info%NOTFOUND THEN
5255: CLOSE csr_claim_info;
5256: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5257: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ID_NOT_EXIST');
5258: FND_MESSAGE.Set_Token('CLAIM_ID', p_claim_id);
5259: FND_MSG_PUB.ADD;
5260: END IF;
5261: RAISE FND_API.g_exc_unexpected_error;
5254: IF csr_claim_info%NOTFOUND THEN
5255: CLOSE csr_claim_info;
5256: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5257: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_ID_NOT_EXIST');
5258: FND_MESSAGE.Set_Token('CLAIM_ID', p_claim_id);
5259: FND_MSG_PUB.ADD;
5260: END IF;
5261: RAISE FND_API.g_exc_unexpected_error;
5262: END IF;
5356: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
5357: IF csr_uom_code%NOTFOUND THEN
5358: CLOSE csr_uom_code;
5359: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5360: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5361: FND_MESSAGE.Set_Token('ITEM_ID', l_product_id);
5362: FND_MSG_PUB.ADD;
5363: END IF;
5364: RAISE FND_API.g_exc_unexpected_error;
5357: IF csr_uom_code%NOTFOUND THEN
5358: CLOSE csr_uom_code;
5359: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5360: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
5361: FND_MESSAGE.Set_Token('ITEM_ID', l_product_id);
5362: FND_MSG_PUB.ADD;
5363: END IF;
5364: RAISE FND_API.g_exc_unexpected_error;
5365: END IF;
5621:
5622: IF csr_line_info%NOTFOUND THEN
5623: CLOSE csr_line_info;
5624: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5625: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
5626: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
5627: FND_MSG_PUB.ADD;
5628: END IF;
5629: RAISE FND_API.g_exc_unexpected_error;
5622: IF csr_line_info%NOTFOUND THEN
5623: CLOSE csr_line_info;
5624: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5625: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
5626: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
5627: FND_MSG_PUB.ADD;
5628: END IF;
5629: RAISE FND_API.g_exc_unexpected_error;
5630: END IF;
5635:
5636: IF csr_sum_util_amounts%NOTFOUND THEN
5637: CLOSE csr_line_info;
5638: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5639: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
5640: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
5641: FND_MSG_PUB.ADD;
5642: END IF;
5643: RAISE FND_API.g_exc_unexpected_error;
5636: IF csr_sum_util_amounts%NOTFOUND THEN
5637: CLOSE csr_line_info;
5638: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5639: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
5640: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
5641: FND_MSG_PUB.ADD;
5642: END IF;
5643: RAISE FND_API.g_exc_unexpected_error;
5644: END IF;
5649:
5650: IF csr_sum_scan_units%NOTFOUND THEN
5651: CLOSE csr_line_info;
5652: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5653: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
5654: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
5655: FND_MSG_PUB.ADD;
5656: END IF;
5657: RAISE FND_API.g_exc_unexpected_error;
5650: IF csr_sum_scan_units%NOTFOUND THEN
5651: CLOSE csr_line_info;
5652: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5653: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_LINEID_NOT_EXIST');
5654: FND_MESSAGE.Set_Token('LINE_ID', p_claim_line_id);
5655: FND_MSG_PUB.ADD;
5656: END IF;
5657: RAISE FND_API.g_exc_unexpected_error;
5658: END IF;
5957: OPEN csr_party_name(l_cust_account_id);
5958: FETCH csr_party_name INTO l_party_name;
5959: CLOSE csr_party_name;
5960:
5961: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_NO_TRADE_PROFILE');
5962: FND_MESSAGE.Set_Token('CUST_NAME', l_party_name);
5963: FND_MSG_PUB.ADD;
5964: END IF;
5965: RAISE FND_API.g_exc_unexpected_error;
5958: FETCH csr_party_name INTO l_party_name;
5959: CLOSE csr_party_name;
5960:
5961: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_NO_TRADE_PROFILE');
5962: FND_MESSAGE.Set_Token('CUST_NAME', l_party_name);
5963: FND_MSG_PUB.ADD;
5964: END IF;
5965: RAISE FND_API.g_exc_unexpected_error;
5966: */
6059: ,to_name => NULL
6060: );
6061: IF l_quantity = -99999 THEN
6062: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6063: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
6064: FND_MSG_PUB.add;
6065: END IF;
6066: RAISE FND_API.g_exc_error;
6067: END IF;
6364: IF l_adjustment_flag = 'N' THEN
6365: -- As of 15-JAN-2003, adjustment workflow is not supported. An error is raised
6366: -- if the offer is not auto-adjustable.
6367: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6368: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_ADJUST_SCANUNIT');
6369: FND_MSG_PUB.add;
6370: END IF;
6371: x_return_status := FND_API.g_ret_sts_error;
6372: RETURN;
6374: /*
6375: -- Adjustment workflow can be invoked only when profile is set
6376: IF NVL(fnd_profile.value('OZF_CLAIM_SCAN_ADJUST_WORKFLOW'),'N') <> 'Y' THEN
6377: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6378: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_ADJUST_WORKFLOW');
6379: FND_MSG_PUB.add;
6380: END IF;
6381: x_return_status := FND_API.g_ret_sts_error;
6382: RETURN;
6388: CLOSE csr_count_workflow;
6389:
6390: IF l_count_workflow > 0 THEN
6391: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6392: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MULTI_ADJ_WORKFLOW');
6393: FND_MSG_PUB.add;
6394: END IF;
6395: x_return_status := FND_API.g_ret_sts_error;
6396: RETURN;
6404: p_funds_util_flt.activity_type IS NULL OR
6405: p_funds_util_flt.activity_type <> 'OFFR'
6406: THEN
6407: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6408: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NO_OFFER');
6409: FND_MSG_PUB.add;
6410: END IF;
6411: x_return_status := FND_API.g_ret_sts_error;
6412: RETURN;
6441: END IF;
6442:
6443: IF l_un_earned_pay_allow_to = 'DISALLOW' THEN
6444: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6445: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
6446: FND_MSG_PUB.add;
6447: END IF;
6448: x_return_status := FND_API.g_ret_sts_error;
6449: RETURN;
6462: IF l_un_earned_pay_allow_to IS NULL OR
6463: l_un_earned_pay_allow_to = 'ALLOW_SELECTED'
6464: THEN
6465: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6466: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_NOT_ALLOWED');
6467: FND_MSG_PUB.add;
6468: END IF;
6469: x_return_status := FND_API.g_ret_sts_error;
6470: RETURN;
6490:
6491: IF l_over_paid_amount > l_threshold_amount THEN
6492: IF l_un_earned_pay_thold_flag IS NULL OR l_un_earned_pay_thold_flag <> 'T' THEN
6493: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6494: FND_MESSAGE.set_name('OZF', 'OZF_EARN_OVERPAY_OVER_THOLD');
6495: FND_MSG_PUB.add;
6496: END IF;
6497: x_return_status := FND_API.g_ret_sts_error;
6498: RETURN;
6926: END IF;
6927:
6928: IF l_claim_status <> 'OPEN' THEN
6929: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6930: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_NOT_OPEN');
6931: FND_MSG_PUB.add;
6932: END IF;
6933: RAISE FND_API.g_exc_error;
6934: END IF;
6956: -- or either accrual or claim currency must be in functional currency
6957: IF l_funds_util_flt.utiz_currency_code <> G_FUNCTIONAL_CURRENCY THEN
6958: IF l_funds_util_flt.utiz_currency_code is not null AND l_funds_util_flt.utiz_currency_code <> G_CLAIM_CURRENCY THEN
6959: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6960: FND_MESSAGE.set_name('OZF', 'OZF_CROSS_CURR_UTILIZATION');
6961: FND_MSG_PUB.add;
6962: END IF;
6963: RAISE FND_API.g_exc_error;
6964: END IF;
7066: ,to_name => NULL
7067: );
7068: IF l_util_quantity = -99999 THEN
7069: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7070: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7071: FND_MSG_PUB.add;
7072: END IF;
7073: RAISE FND_API.g_exc_error;
7074: END IF;
7093: ,to_name => NULL
7094: );
7095: IF l_util_quantity = -99999 THEN
7096: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7097: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_CONVERT_UOM');
7098: FND_MSG_PUB.add;
7099: END IF;
7100: RAISE FND_API.g_exc_error;
7101: END IF;
7166: CLOSE csr_offer_status;
7167:
7168: IF l_offer_status = 'COMPLETED' THEN
7169: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7170: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ASSO_COMPLETE_OFFER');
7171: FND_MSG_PUB.add;
7172: END IF;
7173: RAISE FND_API.g_exc_error;
7174: END IF;
7385: ELSE
7386: IF (l_cre_total_amount < 0 and l_total_amt_rem >0)
7387: THEN
7388: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7389: FND_MESSAGE.set_name('OZF', 'OZF_ASSO_NEG_AMT');
7390: FND_MSG_PUB.add;
7391: END IF;
7392: RAISE FND_API.g_exc_error;
7393: END IF;
7422: IF l_funds_util_flt.offer_type IS NULL OR
7423: l_funds_util_flt.offer_type NOT IN ('ACCRUAL','DEAL','LUMPSUM','NET_ACCRUAL','VOLUME_OFFER', 'SCAN_DATA')
7424: THEN
7425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7426: FND_MESSAGE.set_name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
7427: FND_MSG_PUB.add;
7428: END IF;
7429: RAISE FND_API.g_exc_error;
7430: END IF;
7954: WHERE claim_line_util_id = p_line_util_rec.claim_line_util_id;
7955:
7956: IF (SQL%NOTFOUND) THEN
7957: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7958: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
7959: FND_MSG_PUB.add;
7960: END IF;
7961: RAISE FND_API.g_exc_error;
7962: END IF;
8936: -- change the settlement fetcher process
8937: -- mchang: As of 24-OCT-2002, we don't support manual adjust over utilization. TM raise
8938: -- error everytime if ams_act_products.adjustment_flag is 'N'.
8939: IF OZF_DEBUG_LOW_ON THEN
8940: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8941: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Manual Adjust Over Utilization is not supported.');
8942: FND_MSG_PUB.Add;
8943: END IF;
8944:
8937: -- mchang: As of 24-OCT-2002, we don't support manual adjust over utilization. TM raise
8938: -- error everytime if ams_act_products.adjustment_flag is 'N'.
8939: IF OZF_DEBUG_LOW_ON THEN
8940: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8941: FND_MESSAGE.Set_Token('TEXT',l_full_name||' : Manual Adjust Over Utilization is not supported.');
8942: FND_MSG_PUB.Add;
8943: END IF;
8944:
8945: RAISE FND_API.g_exc_unexpected_error;
10010: END IF;
10011: END LOOP;
10012: IF l_check > 1 THEN
10013: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10014: FND_MESSAGE.Set_Name('OZF', 'OZF_DUP_CUST_ACCTS');
10015: FND_MESSAGE.Set_Token('CUST_ACCOUNT_ID', l_cust_util_tbl(i).cust_account_id);
10016: FND_MSG_PUB.ADD;
10017: END IF;
10018: RAISE FND_API.g_exc_unexpected_error;
10011: END LOOP;
10012: IF l_check > 1 THEN
10013: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10014: FND_MESSAGE.Set_Name('OZF', 'OZF_DUP_CUST_ACCTS');
10015: FND_MESSAGE.Set_Token('CUST_ACCOUNT_ID', l_cust_util_tbl(i).cust_account_id);
10016: FND_MSG_PUB.ADD;
10017: END IF;
10018: RAISE FND_API.g_exc_unexpected_error;
10019: END IF;
10161: FETCH csr_uom_code INTO l_line_tbl(l_counter).quantity_uom;
10162: IF csr_uom_code%NOTFOUND THEN
10163: CLOSE csr_uom_code;
10164: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10165: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
10166: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
10167: FND_MSG_PUB.ADD;
10168: END IF;
10169: RAISE FND_API.g_exc_unexpected_error;
10162: IF csr_uom_code%NOTFOUND THEN
10163: CLOSE csr_uom_code;
10164: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10165: FND_MESSAGE.Set_Name('OZF', 'OZF_PRODUCT_UOM_MISSING');
10166: FND_MESSAGE.Set_Token('ITEM_ID', l_line_tbl(l_counter).item_id);
10167: FND_MSG_PUB.ADD;
10168: END IF;
10169: RAISE FND_API.g_exc_unexpected_error;
10170: END IF;
10180:
10181: --Raise error, if no accrual exists, may happen for INTERNAL claims only
10182: IF l_counter = 1 THEN
10183: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10184: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
10185: FND_MSG_PUB.ADD;
10186: END IF;
10187: RAISE FND_API.g_exc_unexpected_error;
10188: END IF;
10360: ELSIF l_claim_rec.amount = 0 THEN
10361: --Raise error, if claim amount is zero. Claim header is not allowed with
10362: --zero amount.
10363: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10364: FND_MESSAGE.Set_Name('OZF', 'OZF_EARN_AVAIL_AMT_ZERO');
10365: FND_MSG_PUB.ADD;
10366: END IF;
10367: RAISE FND_API.g_exc_unexpected_error;
10368: ELSE
10367: RAISE FND_API.g_exc_unexpected_error;
10368: ELSE
10369: --Raise error, if claim amount is negative.
10370: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10371: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_AMOUNT_NEGATIVE');
10372: FND_MSG_PUB.ADD;
10373: END IF;
10374: RAISE FND_API.g_exc_unexpected_error;
10375: END IF;
10410: END LOOP;
10411: ELSE
10412: --Raise error, if no accrual exists, may happen for INTERNAL claims only
10413: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
10414: FND_MESSAGE.Set_Name('OZF', 'OZF_ACCRUAL_NOT_EXISTS');
10415: FND_MSG_PUB.ADD;
10416: END IF;
10417: RAISE FND_API.g_exc_unexpected_error;
10418: END IF;