[Home] [Help]
119: EXCEPTION
120: WHEN OTHERS THEN
121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
122: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
123: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_STATUS_CODE');
124: FND_MSG_PUB.add;
125: END IF;
126: -- Standard call to get message count and if count=1, get the message
127: FND_MSG_PUB.Count_And_Get (
167: EXCEPTION
168: WHEN OTHERS THEN
169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
171: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_USER_STATUS');
172: FND_MSG_PUB.add;
173: END IF;
174: END get_seeded_user_status;
175: ---------------------------------------------------------------------
244: CLOSE prefix_csr;
245:
246: IF l_prefix is NULL THEN
247: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
248: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SUFFIX_NOT_FOUND');
249: FND_MSG_PUB.add;
250: END IF;
251: RAISE FND_API.G_EXC_ERROR;
252: END IF;
286: --Bug fix 3354592
287: l_claim_number_length := length(l_parent_claim_number || '_' || l_number_of_split_claim);
288: IF l_claim_number_length > 30 THEN
289: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
290: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUMBER_TOO_LARGE');
291: FND_MSG_PUB.add;
292: END IF;
293: RAISE FND_API.G_EXC_ERROR;
294: END IF;
302: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
303: WHEN OTHERS THEN
304: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
305: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
306: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_CLAIM_NUMBER');
307: FND_MSG_PUB.add;
308: END IF;
309: FND_MSG_PUB.Count_And_Get (
310: p_encoded => FND_API.G_FALSE,
574: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
575: WHEN OTHERS THEN
576: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
577: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
578: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUSTOMER_INFO_ERR');
579: FND_MSG_PUB.add;
580: END IF;
581: END get_customer_info;
582:
634: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
635: WHEN OTHERS THEN
636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
637: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
638: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DAYS_DUE_ERR');
639: FND_MSG_PUB.add;
640: END IF;
641: END get_days_due;
642:
845: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
846: WHEN OTHERS THEN
847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
848: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
849: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_OFF_QUAL_ERR');
850: FND_MSG_PUB.add;
851: END IF;
852: END get_offer_qualifiers;
853: ---------------------------------------------------------------------
1334: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'Get_owner');
1335: END IF;
1336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1337: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1338: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_GET_OWNER_ERR');
1339: FND_MSG_PUB.add;
1340: END IF;
1341: END get_owner;
1342:
1382: -- Initialize API return status to sucess
1383: x_return_status := FND_API.G_RET_STS_SUCCESS;
1384:
1385: IF OZF_DEBUG_LOW_ON THEN
1386: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1387: FND_MESSAGE.Set_Token('TEXT','create task from template');
1388: FND_MSG_PUB.Add;
1389: END IF;
1390:
1383: x_return_status := FND_API.G_RET_STS_SUCCESS;
1384:
1385: IF OZF_DEBUG_LOW_ON THEN
1386: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1387: FND_MESSAGE.Set_Token('TEXT','create task from template');
1388: FND_MSG_PUB.Add;
1389: END IF;
1390:
1391: -- Generate taks template
1411: FETCH task_status_csr INTO l_assignment_status_id;
1412: CLOSE task_status_csr;
1413:
1414: IF OZF_DEBUG_LOW_ON THEN
1415: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1416: FND_MESSAGE.Set_Token('TEXT','create task assignment');
1417: FND_MSG_PUB.Add;
1418: END IF;
1419:
1412: CLOSE task_status_csr;
1413:
1414: IF OZF_DEBUG_LOW_ON THEN
1415: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1416: FND_MESSAGE.Set_Token('TEXT','create task assignment');
1417: FND_MSG_PUB.Add;
1418: END IF;
1419:
1420: JTF_TASK_ASSIGNMENTS_PUB.create_task_assignment (
1447: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1448: WHEN OTHERS THEN
1449: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1450: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1451: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_TASK_API_ERR');
1452: FND_MSG_PUB.add;
1453: END IF;
1454: END generate_tasks;
1455:
1595: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1596: WHEN OTHERS THEN
1597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1598: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1599: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WO_THRESHOLD_ERROR');
1600: FND_MSG_PUB.ADD;
1601: END IF;
1602: END get_write_off_threshold;
1603:
1710: --If the exchange rate type is null then raise an error
1711: IF (l_exchange_rate_type IS NULL
1712: OR l_exchange_rate_type = FND_API.G_MISS_CHAR) THEN
1713: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1714: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
1715: FND_MSG_PUB.add;
1716: END IF;
1717: RAISE FND_API.G_EXC_ERROR;
1718: END IF;
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: WHEN OTHERS THEN
1809: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1810: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1811: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WRITE_OFF_SETUP_ERR');
1812: FND_MSG_PUB.add;
1813: END IF;
1814:
1815: END get_write_off_eligibility;
1899: ELSE
1900: -- Mapping for the custome reason is not available. Throw an exception
1901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1902: THEN
1903: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_REASON_MAPPING');
1904: FND_MSG_PUB.add;
1905: END IF;
1906: RAISE FND_API.G_EXC_ERROR;
1907: END IF;
1989: IF x_pass = true THEN
1990: x_pass := p_claim.cust_account_id = l_info.cust_account_id;
1991: IF x_pass = false 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_DED_CUST_CHANGED');
1994: FND_MSG_PUB.ADD;
1995: END IF;
1996: END IF;
1997: ELSE
1995: END IF;
1996: END IF;
1997: ELSE
1998: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1999: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2000: FND_MSG_PUB.ADD;
2001: END IF;
2002: END IF;
2003: END IF;
2009: p_mode = 'MANU' THEN
2010: x_pass := p_claim.amount = l_info.amount;
2011: IF x_pass = false THEN
2012: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2013: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_CHLD_AMT_CHANGED');
2014: FND_MSG_PUB.ADD;
2015: END IF;
2016: END IF;
2017: END IF;
2058: EXCEPTION
2059: WHEN OTHERS THEN
2060: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2061: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2062: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMOUNT_CHANGE_ERR');
2063: FND_MSG_PUB.add;
2064: END IF;
2065: END check_amount;
2066: ---------------------------------------------------------------------
2108:
2109: IF ((p_claim_number is null) OR
2110: (p_claim_number = FND_API.G_MISS_CHAR)) THEN
2111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2112: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_CLAIM_NUM');
2113: FND_MSG_PUB.add;
2114: END IF;
2115: x_return_status := FND_API.g_ret_sts_error;
2116: ELSE
2130: CLOSE get_claim_id_num_csr;
2131:
2132: IF l_count <> 0 THEN
2133: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2134: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM_NEW');
2135: FND_MSG_PUB.add;
2136: END IF;
2137: x_return_status := FND_API.g_ret_sts_error;
2138: END IF;
2145: CLOSE get_count_csr;
2146:
2147: IF l_count <> 1 THEN
2148: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2149: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ID_NUM_MISS');
2150: FND_MSG_PUB.add;
2151: END IF;
2152: x_return_status := FND_API.g_ret_sts_error;
2153: ELSE
2157: CLOSE get_claim_id_num_csr;
2158:
2159: IF l_count <> 1 THEN
2160: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2161: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
2162: FND_MSG_PUB.add;
2163: END IF;
2164: x_return_status := FND_API.g_ret_sts_error;
2165: END IF;
2169:
2170: EXCEPTION
2171: WHEN OTHERS THEN
2172: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2173: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUM_CHECK_ERROR');
2174: FND_MSG_PUB.add;
2175: END IF;
2176: x_return_status := FND_API.g_ret_sts_unexp_error;
2177: END check_claim_number;
2310: (p_claim.amount <> l_deduction_info.amount)) THEN
2311:
2312: x_pass := false;
2313: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2314: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2315: FND_MSG_PUB.ADD;
2316: END IF;
2317: END IF;
2318: END IF; -- End of BUG#2781186
2319:
2320: IF p_claim.cust_account_id <> l_deduction_info.cust_account_id THEN
2321: x_pass := false;
2322: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2323: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
2324: FND_MSG_PUB.ADD;
2325: END IF;
2326: END IF;
2327:
2328: EXCEPTION
2329: WHEN OTHERS THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2332: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DED_CHK_ERR');
2333: FND_MSG_PUB.add;
2334: END IF;
2335: END check_deduction;
2336:
2373: FETCH c_claim INTO l_claim_rec;
2374: IF c_claim%NOTFOUND THEN
2375: CLOSE c_claim;
2376: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2377: FND_MESSAGE.set_name('OZF','OZF_API_RECORD_NOT_FOUND');
2378: FND_MSG_PUB.add;
2379: END IF;
2380: RAISE FND_API.g_exc_error;
2381: END IF;
3217: WHEN FND_API.G_EXC_ERROR THEN
3218: x_return_status := FND_API.G_RET_STS_ERROR;
3219: WHEN OTHERS THEN
3220: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3221: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_COMPLETE_ERROR');
3222: FND_MSG_PUB.add;
3223: END IF;
3224: x_return_status := FND_API.g_ret_sts_unexp_error;
3225: END Complete_Claim_Rec;
3421: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3422: END IF;
3423: -- Debug Message
3424: IF OZF_DEBUG_LOW_ON THEN
3425: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3426: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3427: FND_MSG_PUB.Add;
3428: END IF;
3429: --Initialize message list if p_init_msg_list is TRUE.
3422: END IF;
3423: -- Debug Message
3424: IF OZF_DEBUG_LOW_ON THEN
3425: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3426: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3427: FND_MSG_PUB.Add;
3428: END IF;
3429: --Initialize message list if p_init_msg_list is TRUE.
3430: IF FND_API.To_Boolean (p_init_msg_list) THEN
3453: THEN
3454:
3455: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3456: THEN
3457: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_CLASS_WRG');
3458: FND_MSG_PUB.add;
3459: END IF;
3460: RAISE FND_API.G_EXC_ERROR;
3461: END IF;
3464: IF l_claim.cust_account_id is NULL OR
3465: l_claim.cust_account_id = FND_API.G_MISS_NUM
3466: THEN
3467: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3468: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
3469: FND_MSG_PUB.Add;
3470: END IF;
3471: RAISE FND_API.G_EXC_ERROR;
3472: END IF;
3525: l_claim.custom_setup_id = FND_API.G_MISS_NUM
3526: THEN
3527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3528: THEN
3529: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_SETUP_MISSING');
3530: FND_MSG_PUB.add;
3531: END IF;
3532: RAISE FND_API.G_EXC_ERROR;
3533: END IF;
3543: IF l_claim.claim_type_id is NULL OR
3544: l_claim.claim_type_id = FND_API.G_MISS_NUM
3545: THEN
3546: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3547: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
3548: FND_MSG_PUB.Add;
3549: END IF;
3550: RAISE FND_API.G_EXC_ERROR;
3551: END IF;
3562: -- End Bug: 2732290 -----------------------------------------------------------
3563: IF l_claim.reason_code_id is NULL
3564: THEN
3565: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3566: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
3567: FND_MSG_PUB.Add;
3568: END IF;
3569: RAISE FND_API.G_EXC_ERROR;
3570: END IF;
3576: l_claim.amount = 0) AND
3577: l_claim.claim_class <>'GROUP' THEN
3578:
3579: IF OZF_DEBUG_LOW_ON THEN
3580: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3581: FND_MESSAGE.Set_Token('TEXT','l_claim.amount='||l_claim.amount);
3582: FND_MSG_PUB.Add;
3583: END IF;
3584:
3577: l_claim.claim_class <>'GROUP' THEN
3578:
3579: IF OZF_DEBUG_LOW_ON THEN
3580: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3581: FND_MESSAGE.Set_Token('TEXT','l_claim.amount='||l_claim.amount);
3582: FND_MSG_PUB.Add;
3583: END IF;
3584:
3585: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3582: FND_MSG_PUB.Add;
3583: END IF;
3584:
3585: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3586: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMOUNT_MISSING');
3587: FND_MSG_PUB.Add;
3588: END IF;
3589: RAISE FND_API.G_EXC_ERROR;
3590: END IF;
3596: FETCH org_id_csr INTO l_org_id;
3597: IF org_id_csr%NOTFOUND THEN
3598: CLOSE org_id_csr;
3599: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3600: fnd_message.set_name('OZF', 'OZF_CLAIM_ORG_ID_MISSING');
3601: fnd_msg_pub.add;
3602: END IF;
3603: RAISE fnd_api.g_exc_error;
3604: END IF;
3626: IF l_claim.legal_entity_id is NULL OR
3627: l_claim.legal_entity_id = FND_API.G_MISS_NUM
3628: THEN
3629: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3630: FND_MESSAGE.Set_Name('OZF','OZF_LE_FOR_CLAIM_MISSING');
3631: FND_MSG_PUB.Add;
3632: END IF;
3633: RAISE FND_API.G_EXC_ERROR;
3634: END IF;
3667: CLOSE claim_number_count_csr;
3668:
3669: IF l_count > 0 THEN
3670: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
3671: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
3672: FND_MSG_PUB.add;
3673: END IF;
3674: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3675: END IF;
3888:
3889: IF l_claim.exchange_rate_type is null OR
3890: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
3891: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3892: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
3893: fnd_msg_pub.add;
3894: END IF;
3895: RAISE fnd_api.g_exc_error;
3896: END IF;
4167: );
4168: EXCEPTION
4169: WHEN OTHERS THEN
4170: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4171: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
4172: FND_MSG_PUB.add;
4173: END IF;
4174: RAISE FND_API.g_exc_error;
4175: END;
4186: ,x_return_status => l_return_status
4187: );
4188:
4189: IF OZF_DEBUG_LOW_ON THEN
4190: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4191: FND_MESSAGE.Set_Token('TEXT','After generate_task: '|| l_return_status);
4192: FND_MSG_PUB.Add;
4193: END IF;
4194: END IF;
4187: );
4188:
4189: IF OZF_DEBUG_LOW_ON THEN
4190: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4191: FND_MESSAGE.Set_Token('TEXT','After generate_task: '|| l_return_status);
4192: FND_MSG_PUB.Add;
4193: END IF;
4194: END IF;
4195:
4287: COMMIT WORK;
4288: END IF;
4289: -- Debug Message
4290: IF OZF_DEBUG_LOW_ON THEN
4291: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4292: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
4293: FND_MSG_PUB.Add;
4294: END IF;
4295:
4288: END IF;
4289: -- Debug Message
4290: IF OZF_DEBUG_LOW_ON THEN
4291: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4292: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
4293: FND_MSG_PUB.Add;
4294: END IF;
4295:
4296: --Standard call to get message count AND if count=1, get the message
4443: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4444: END IF;
4445: -- Debug Message
4446: IF OZF_DEBUG_LOW_ON THEN
4447: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4448: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
4449: FND_MSG_PUB.Add;
4450: END IF;
4451: --Initialize message list if p_init_msg_list is TRUE.
4444: END IF;
4445: -- Debug Message
4446: IF OZF_DEBUG_LOW_ON THEN
4447: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4448: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
4449: FND_MSG_PUB.Add;
4450: END IF;
4451: --Initialize message list if p_init_msg_list is TRUE.
4452: IF FND_API.To_Boolean (p_init_msg_list) THEN
4518: END LOOP;
4519: END IF;
4520: ELSE
4521: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4522: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
4523: FND_MSG_PUB.add;
4524: END IF;
4525: END IF;
4526: ELSE
4524: END IF;
4525: END IF;
4526: ELSE
4527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4528: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
4529: FND_MSG_PUB.add;
4530: END IF;
4531: RAISE FND_API.g_exc_error;
4532: END IF;
4536: COMMIT WORK;
4537: END IF;
4538: -- Debug Message
4539: IF OZF_DEBUG_LOW_ON THEN
4540: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4541: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
4542: FND_MSG_PUB.Add;
4543: END IF;
4544:
4537: END IF;
4538: -- Debug Message
4539: IF OZF_DEBUG_LOW_ON THEN
4540: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4541: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
4542: FND_MSG_PUB.Add;
4543: END IF;
4544:
4545: --Standard call to get message count AND if count=1, get the message
4682: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4683: END IF;
4684: -- Debug Message
4685: IF OZF_DEBUG_LOW_ON THEN
4686: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4687: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
4688: FND_MSG_PUB.Add;
4689: END IF;
4690: --Initialize message list if p_init_msg_list is TRUE.
4683: END IF;
4684: -- Debug Message
4685: IF OZF_DEBUG_LOW_ON THEN
4686: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4687: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
4688: FND_MSG_PUB.Add;
4689: END IF;
4690: --Initialize message list if p_init_msg_list is TRUE.
4691: IF FND_API.To_Boolean (p_init_msg_list) THEN
4814:
4815: OZF_claims_PKG.Delete_Row(p_object_id);
4816: ELSE
4817: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4818: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
4819: FND_MSG_PUB.add;
4820: END IF;
4821: END IF;
4822:
4821: END IF;
4822:
4823: ELSE
4824: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4825: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
4826: FND_MSG_PUB.add;
4827: END IF;
4828: RAISE FND_API.g_exc_error;
4829: END IF;
4834: END IF;
4835:
4836: -- Debug Message
4837: IF OZF_DEBUG_LOW_ON THEN
4838: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4839: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
4840: FND_MSG_PUB.Add;
4841: END IF;
4842:
4835:
4836: -- Debug Message
4837: IF OZF_DEBUG_LOW_ON THEN
4838: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4839: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
4840: FND_MSG_PUB.Add;
4841: END IF;
4842:
4843: --Standard call to get message count and if count=1, get the message
4963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4964: WHEN OTHERS THEN
4965: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4966: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
4967: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CHANGE_ERR');
4968: FND_MSG_PUB.add;
4969: END IF;
4970: END reason_changed;
4971:
5028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5029: END IF;
5030: -- Debug Message
5031: IF OZF_DEBUG_LOW_ON THEN
5032: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5033: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5034: FND_MSG_PUB.Add;
5035: END IF;
5036: --Initialize message list if p_init_msg_list is TRUE.
5029: END IF;
5030: -- Debug Message
5031: IF OZF_DEBUG_LOW_ON THEN
5032: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5033: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5034: FND_MSG_PUB.Add;
5035: END IF;
5036: --Initialize message list if p_init_msg_list is TRUE.
5037: IF FND_API.To_Boolean (p_init_msg_list) THEN
5099: COMMIT WORK;
5100: END IF;
5101: -- Debug Message
5102: IF OZF_DEBUG_LOW_ON THEN
5103: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5104: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5105: FND_MSG_PUB.Add;
5106: END IF;
5107: --Standard call to get message count and if count=1, get the message
5100: END IF;
5101: -- Debug Message
5102: IF OZF_DEBUG_LOW_ON THEN
5103: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5104: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5105: FND_MSG_PUB.Add;
5106: END IF;
5107: --Standard call to get message count and if count=1, get the message
5108: FND_MSG_PUB.Count_And_Get (
5394: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5395: END IF;
5396: -- Debug Message
5397: IF OZF_DEBUG_LOW_ON THEN
5398: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5399: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5400: FND_MSG_PUB.Add;
5401: END IF;
5402: --Initialize message list if p_init_msg_list is TRUE.
5395: END IF;
5396: -- Debug Message
5397: IF OZF_DEBUG_LOW_ON THEN
5398: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5399: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5400: FND_MSG_PUB.Add;
5401: END IF;
5402: --Initialize message list if p_init_msg_list is TRUE.
5403: IF FND_API.To_Boolean (p_init_msg_list) THEN
5409: -- Varify object_version_number
5410: IF (l_claim.object_version_number is NULL or
5411: l_claim.object_version_number = FND_API.G_MISS_NUM ) THEN
5412: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5413: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
5414: FND_MSG_PUB.ADD;
5415: END IF;
5416: RAISE FND_API.G_EXC_ERROR;
5417: END IF;
5421: CLOSE object_version_number_csr;
5422:
5423: IF l_object_version_number <> l_claim.object_version_number THEN
5424: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5425: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
5426: FND_MSG_PUB.ADD;
5427: END IF;
5428: RAISE FND_API.G_EXC_ERROR;
5429: END IF;
5468: X_access => l_access);
5469:
5470: IF l_access = 'N' THEN
5471: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5472: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_ACCESS');
5473: FND_MSG_PUB.Add;
5474: END IF;
5475: RAISE FND_API.G_EXC_ERROR;
5476: END IF;
5589: IF l_claim.reason_code_id is null
5590: OR l_claim.reason_code_id = FND_API.G_MISS_NUM
5591: THEN
5592: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5593: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
5594: FND_MSG_PUB.Add;
5595: END IF;
5596: RAISE FND_API.G_EXC_ERROR;
5597: END IF;
5658: IF l_claim.status_code = G_DUPLICATE_STATUS THEN
5659: IF l_claim.duplicate_claim_id is null OR
5660: l_claim.duplicate_claim_id = FND_API.G_MISS_NUM THEN
5661: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5662: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLM_ID_MISSING');
5663: FND_MSG_PUB.add;
5664: END IF;
5665: RAISE FND_API.G_EXC_ERROR;
5666: END IF;
5668: -- Raise an error
5669: -- if the duplicate_claim_id equal to the current claim_id
5670: IF l_claim.duplicate_claim_id = l_claim.claim_id THEN
5671: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5672: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_DUP_ID_SAME');
5673: FND_MSG_PUB.Add;
5674: END IF;
5675: RAISE FND_API.G_EXC_ERROR;
5676: END IF;
5694: IF ((l_old_owner_id <> l_resource_id) AND
5695: (l_access <> 'F') AND
5696: (p_mode = OZF_claim_Utility_pvt.G_MANU_MODE) ) THEN
5697: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
5698: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_UPDT_OWNER_PERM');
5699: FND_MSG_PUB.ADD;
5700: END IF;
5701: RAISE FND_API.G_EXC_ERROR;
5702: END IF;
5843: END IF;
5844: ELSE
5845: -- Should never be in this block.
5846: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5847: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_UPDATE_OWNER_ERR');
5848: FND_MSG_PUB.add;
5849: END IF;
5850: RAISE FND_API.g_exc_error;
5851: END IF;
5860: FETCH gp_func_currency_cd_csr INTO l_functional_currency_code;
5861: IF gp_func_currency_cd_csr%NOTFOUND THEN
5862: CLOSE gp_func_currency_cd_csr;
5863: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
5864: fnd_message.set_name('OZF', 'OZF_CLAIM_GL_FUNCUR_MISSING');
5865: fnd_msg_pub.add;
5866: END IF;
5867: RAISE fnd_api.g_exc_error;
5868: END IF;
5875: IF l_claim.currency_code <> l_functional_currency_code THEN
5876: IF l_claim.exchange_rate_type is null OR
5877: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
5878: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
5879: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
5880: fnd_msg_pub.add;
5881: END IF;
5882: RAISE fnd_api.g_exc_error;
5883: END IF;
5978: IF l_claim.status_code NOT IN ('PENDING_CLOSE', 'CLOSED') AND
5979: ABS(l_claim.amount_remaining + l_claim.amount_settled) < ABS(l_claim_lines_sum) THEN
5980: -- [END FIX 04/29/02]
5981: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5982: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_REM_ERR');
5983: FND_MSG_PUB.add;
5984: END IF;
5985: RAISE FND_API.g_exc_error;
5986: END IF;
6195: END IF;
6196: */
6197:
6198: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6199: FND_MESSAGE.Set_Name('AMS', 'OZF_CLAIM_API_NO_OPEN_STATUS');
6200: FND_MSG_PUB.ADD;
6201: END IF;
6202: RAISE FND_API.G_EXC_ERROR;
6203: END IF;
6351:
6352: EXCEPTION
6353: WHEN OTHERS THEN
6354: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6355: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
6356: FND_MSG_PUB.add;
6357: END IF;
6358: RAISE FND_API.g_exc_error;
6359: END;
6635: COMMIT WORK;
6636: END IF;
6637: -- Debug Message
6638: IF OZF_DEBUG_LOW_ON THEN
6639: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6640: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
6641: FND_MSG_PUB.Add;
6642: END IF;
6643: --Standard call to get message count and if count=1, get the message
6636: END IF;
6637: -- Debug Message
6638: IF OZF_DEBUG_LOW_ON THEN
6639: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6640: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
6641: FND_MSG_PUB.Add;
6642: END IF;
6643: --Standard call to get message count and if count=1, get the message
6644: FND_MSG_PUB.Count_And_Get (
6829: END IF;
6830:
6831: -- Debug Message
6832: IF OZF_DEBUG_LOW_ON THEN
6833: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6834: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
6835: FND_MSG_PUB.Add;
6836: END IF;
6837:
6830:
6831: -- Debug Message
6832: IF OZF_DEBUG_LOW_ON THEN
6833: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6834: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
6835: FND_MSG_PUB.Add;
6836: END IF;
6837:
6838: --Initialize message list if p_init_msg_list is TRUE.
6860: -- Raise an error
6861: -- Due_date must be later than the claim_date
6862: IF trunc(l_claim.DUE_DATE) < trunc(l_claim.claim_date) THEN
6863: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6864: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUE_DATE_ERR');
6865: FND_MSG_PUB.add;
6866: END IF;
6867: IF OZF_DEBUG_HIGH_ON THEN
6868: ozf_utility_PVT.debug_message('claim date: ' || l_claim.claim_date);
6876: IF ((l_claim.status_code <> G_DUPLICATE_STATUS) AND
6877: (l_claim.duplicate_claim_id is not null) AND
6878: (l_claim.duplicate_claim_id <> FND_API.G_MISS_NUM)) THEN
6879: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6880: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CANT_DUP');
6881: FND_MSG_PUB.Add;
6882: END IF;
6883: RAISE FND_API.G_EXC_ERROR;
6884: END IF;
6897: CLOSE cust_site_csr;
6898:
6899: IF (l_count = 0) THEN
6900: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6901: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BILL_TO_ST_WRNG');
6902: FND_MSG_PUB.Add;
6903: END IF;
6904: RAISE FND_API.G_EXC_ERROR;
6905: END IF;
6914: CLOSE rel_cust_csr;
6915:
6916: IF (l_count = 0) THEN
6917: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6918: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_UNRELATED_SHIPTO');
6919: FND_MSG_PUB.Add;
6920: END IF;
6921: RAISE FND_API.G_EXC_ERROR;
6922: END IF;
6933: CLOSE cust_site_csr;
6934:
6935: IF (l_count = 0) THEN
6936: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6937: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SHIP_TO_ST_WRNG');
6938: FND_MSG_PUB.Add;
6939: END IF;
6940: RAISE FND_API.G_EXC_ERROR;
6941: END IF;
6953: CLOSE party_csr;
6954:
6955: IF (l_count = 0) THEN
6956: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6957: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CONTACT_WRNG');
6958: FND_MSG_PUB.Add;
6959: END IF;
6960: RAISE FND_API.G_EXC_ERROR;
6961: END IF;
6972: CLOSE party_csr;
6973:
6974: IF (l_count = 0) THEN
6975: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6976: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BROKER_WRNG');
6977: FND_MSG_PUB.Add;
6978: END IF;
6979: RAISE FND_API.G_EXC_ERROR;
6980: END IF;
6991: CLOSE sales_rep_num_csr;
6992:
6993: IF l_sales_rep_num = 0 THEN
6994: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
6995: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SALES_REP_MISSING');
6996: FND_MSG_PUB.add;
6997: END IF;
6998: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6999: END IF;
7001: */
7002:
7003: ELSE
7004: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7005: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
7006: FND_MSG_PUB.Add;
7007: END IF;
7008: RAISE FND_API.G_EXC_ERROR;
7009: END IF;
7020: CLOSE status_count_csr;
7021:
7022: IF l_count <> 1 THEN
7023: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7024: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_STATUS_NOT_MAT');
7025: FND_MSG_PUB.Add;
7026:
7027: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7028: FND_MESSAGE.Set_Token('TEXT','code: '||l_claim.status_code||' id:'||l_claim.user_status_id);
7023: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7024: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_STATUS_NOT_MAT');
7025: FND_MSG_PUB.Add;
7026:
7027: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7028: FND_MESSAGE.Set_Token('TEXT','code: '||l_claim.status_code||' id:'||l_claim.user_status_id);
7029: FND_MSG_PUB.Add;
7030: END IF;
7031: RAISE FND_API.G_EXC_ERROR;
7024: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_STATUS_NOT_MAT');
7025: FND_MSG_PUB.Add;
7026:
7027: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7028: FND_MESSAGE.Set_Token('TEXT','code: '||l_claim.status_code||' id:'||l_claim.user_status_id);
7029: FND_MSG_PUB.Add;
7030: END IF;
7031: RAISE FND_API.G_EXC_ERROR;
7032: END IF;
7045: CLOSE action_count_csr;
7046:
7047: IF l_count <> 1 THEN
7048: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7049: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_ACTION_NOT_MAT');
7050: FND_MSG_PUB.Add;
7051: END IF;
7052: RAISE FND_API.G_EXC_ERROR;
7053: END IF;
7057: -- raise an error if owner_id is not found
7058: IF (l_claim.owner_id is null OR
7059: l_claim.owner_id = FND_API.G_MISS_NUM) THEN
7060: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7061: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_OWNER_NOT_FOUND');
7062: FND_MSG_PUB.Add;
7063: END IF;
7064: RAISE FND_API.G_EXC_ERROR;
7065: END IF;
7067: -- raise an error if status_code is open and amount_remaining is 0
7068: IF (l_claim.status_code = G_OPEN_STATUS AND
7069: l_claim.amount_remaining = 0) THEN
7070: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7071: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_ZERO_WOPEN');
7072: FND_MSG_PUB.Add;
7073: END IF;
7074: RAISE FND_API.G_EXC_ERROR;
7075: END IF;
7079: IF (l_claim.amount < 0 AND
7080: (l_claim.claim_class = G_CLAIM_CLASS OR
7081: l_claim.claim_class = G_DEDUCTION_CLASS)) THEN
7082: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7083: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_NEG');
7084: FND_MSG_PUB.Add;
7085: END IF;
7086: RAISE FND_API.G_EXC_ERROR;
7087: END IF;
7089: IF (l_claim.amount > 0 AND
7090: (l_claim.claim_class = G_OVERPAYMENT_CLASS OR
7091: l_claim.claim_class = G_CHARGE_CLASS )) THEN
7092: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7093: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_POS_OPM');
7094: FND_MSG_PUB.Add;
7095: END IF;
7096: RAISE FND_API.G_EXC_ERROR;
7097: END IF;
7108: (l_claim.source_object_number IS NULL OR
7109: l_claim.source_object_number = FND_API.G_MISS_CHAR)) THEN
7110:
7111: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7112: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
7113: FND_MSG_PUB.add;
7114: END IF;
7115: RAISE FND_API.g_exc_error;
7116: END IF;
7125: CLOSE payment_method_csr;
7126:
7127: IF l_lookup_code_count = 0 THEN
7128: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7129: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_MTHD_WRG');
7130: FND_MSG_PUB.add;
7131: END IF;
7132: RAISE FND_API.g_exc_error;
7133: END IF;
7140: IF (l_claim.pay_related_account_flag <> 'F' AND
7141: l_claim.pay_related_account_flag <> 'T') THEN
7142:
7143: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7144: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_REL_FLG_WRG');
7145: FND_MSG_PUB.add;
7146: END IF;
7147: RAISE FND_API.g_exc_error;
7148: END IF;
7156: FETCH order_type_count_csr into l_order_type_count;
7157: CLOSE order_type_count_csr;
7158: IF l_order_type_count = 0 then
7159: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7160: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ODTYPE_WRG');
7161: FND_MSG_PUB.add;
7162: END IF;
7163: RAISE FND_API.g_exc_error;
7164: END IF;
7165: END IF;
7166:
7167: -- Debug Message
7168: IF OZF_DEBUG_LOW_ON THEN
7169: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7170: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7171: FND_MSG_PUB.Add;
7172: END IF;
7173: --Standard call to get message count and if count=1, get the message
7166:
7167: -- Debug Message
7168: IF OZF_DEBUG_LOW_ON THEN
7169: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7170: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7171: FND_MSG_PUB.Add;
7172: END IF;
7173: --Standard call to get message count and if count=1, get the message
7174: FND_MSG_PUB.Count_And_Get (
7297: END IF;
7298:
7299: -- Debug Message
7300: IF OZF_DEBUG_LOW_ON THEN
7301: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7302: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
7303: FND_MSG_PUB.Add;
7304: END IF;
7305:
7298:
7299: -- Debug Message
7300: IF OZF_DEBUG_LOW_ON THEN
7301: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7302: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
7303: FND_MSG_PUB.Add;
7304: END IF;
7305:
7306: --Initialize message list if p_init_msg_list is TRUE.
7325: -- FETCH claim_type_id_csr into l_claim.claim_type_id;
7326: -- CLOSE claim_type_id_csr;
7327: -- IF l_claim.claim_type_id is NULL THEN
7328: -- IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
7329: -- FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
7330: -- FND_MSG_PUB.Add;
7331: -- END IF;
7332: -- RAISE FND_API.G_EXC_ERROR;
7333: -- END IF;
7338: -- CLOSE number_of_claim_type_id_csr;
7339: --
7340: -- IF l_number_of_claim_type_id = 0 THEN
7341: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7342: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_TYPE_NOT_IN_DB');
7343: -- FND_MSG_PUB.add;
7344: -- END IF;
7345: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7346: -- END IF;
7357: -- CLOSE number_of_reason_code_id_csr;
7358:
7359: -- IF l_number_of_reason_code_id = 0 THEN
7360: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7361: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CD_NOT_IN_DB');
7362: -- FND_MSG_PUB.add;
7363: -- END IF;
7364: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7365: -- END IF;
7369: IF l_claim.cust_account_id is NULL OR
7370: l_claim.cust_account_id = FND_API.G_MISS_NUM THEN
7371:
7372: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
7373: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
7374: FND_MSG_PUB.Add;
7375: END IF;
7376: RAISE FND_API.G_EXC_ERROR;
7377: ELSE
7381: CLOSE num_of_cust_acctid_csr;
7382:
7383: IF l_number_of_cust = 0 THEN
7384: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7385: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_NOT_IN_DB');
7386: FND_MSG_PUB.add;
7387: END IF;
7388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7389: END IF;
7423:
7424: x_claim := l_claim;
7425: -- Debug Message
7426: IF OZF_DEBUG_LOW_ON THEN
7427: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7428: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7429: FND_MSG_PUB.Add;
7430: END IF;
7431: --Standard call to get message count and if count=1, get the message
7424: x_claim := l_claim;
7425: -- Debug Message
7426: IF OZF_DEBUG_LOW_ON THEN
7427: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7428: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7429: FND_MSG_PUB.Add;
7430: END IF;
7431: --Standard call to get message count and if count=1, get the message
7432: FND_MSG_PUB.Count_And_Get (
7526: x_error_index := -1;
7527:
7528: -- Debug Message
7529: IF OZF_DEBUG_LOW_ON THEN
7530: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7531: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
7532: FND_MSG_PUB.Add;
7533: END IF;
7534:
7527:
7528: -- Debug Message
7529: IF OZF_DEBUG_LOW_ON THEN
7530: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7531: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
7532: FND_MSG_PUB.Add;
7533: END IF;
7534:
7535: --Initialize message list if p_init_msg_list is TRUE.
7603: END LOOP;
7604:
7605: -- Debug Message
7606: IF OZF_DEBUG_LOW_ON THEN
7607: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7608: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7609: FND_MSG_PUB.Add;
7610: END IF;
7611: --Standard call to get message count and if count=1, get the message
7604:
7605: -- Debug Message
7606: IF OZF_DEBUG_LOW_ON THEN
7607: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7608: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7609: FND_MSG_PUB.Add;
7610: END IF;
7611: --Standard call to get message count and if count=1, get the message
7612: FND_MSG_PUB.Count_And_Get (
7618: WHEN FND_API.G_EXC_ERROR THEN
7619: ROLLBACK TO Create_Claim_Tbl_PVT;
7620: x_return_status := FND_API.G_RET_STS_ERROR;
7621: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7622: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7623: FND_MESSAGE.Set_Token('ROW',l_err_row);
7624: FND_MSG_PUB.Add;
7625: END IF;
7626: */
7619: ROLLBACK TO Create_Claim_Tbl_PVT;
7620: x_return_status := FND_API.G_RET_STS_ERROR;
7621: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7622: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7623: FND_MESSAGE.Set_Token('ROW',l_err_row);
7624: FND_MSG_PUB.Add;
7625: END IF;
7626: */
7627: -- Standard call to get message count and if count=1, get the message
7633: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7634: ROLLBACK TO Create_Claim_Tbl_PVT;
7635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7636: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7637: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7638: FND_MESSAGE.Set_Token('ROW',l_err_row);
7639: FND_MSG_PUB.Add;
7640: END IF;
7641: */
7634: ROLLBACK TO Create_Claim_Tbl_PVT;
7635: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7636: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7637: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7638: FND_MESSAGE.Set_Token('ROW',l_err_row);
7639: FND_MSG_PUB.Add;
7640: END IF;
7641: */
7642: -- Standard call to get message count and if count=1, get the message
7649: ROLLBACK TO Create_Claim_Tbl_PVT;
7650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7651: /* IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7652: THEN
7653: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7654: FND_MESSAGE.Set_Token('ROW',l_err_row);
7655: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7656: END IF;
7657: */ -- Standard call to get message count and if count=1, get the message
7650: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7651: /* IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
7652: THEN
7653: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7654: FND_MESSAGE.Set_Token('ROW',l_err_row);
7655: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7656: END IF;
7657: */ -- Standard call to get message count and if count=1, get the message
7658: FND_MSG_PUB.Count_And_Get (
7725: END IF;
7726:
7727: -- Debug Message
7728: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
7729: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7730: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
7731: FND_MSG_PUB.Add;
7732: END IF;
7733:
7726:
7727: -- Debug Message
7728: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
7729: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7730: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
7731: FND_MSG_PUB.Add;
7732: END IF;
7733:
7734: --Initialize message list if p_init_msg_list is TRUE.
7745: -- Varify status code if NOT OPEN then raise error.
7746: IF upper(l_claim.status_code) <> 'OPEN' then
7747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7748: l_err_row := i;
7749: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_API_NO_OPEN_STATUS');
7750: FND_MESSAGE.Set_Token('ROW',l_err_row);
7751: FND_MSG_PUB.ADD;
7752: END IF;
7753: RAISE FND_API.G_EXC_ERROR;
7746: IF upper(l_claim.status_code) <> 'OPEN' then
7747: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7748: l_err_row := i;
7749: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_API_NO_OPEN_STATUS');
7750: FND_MESSAGE.Set_Token('ROW',l_err_row);
7751: FND_MSG_PUB.ADD;
7752: END IF;
7753: RAISE FND_API.G_EXC_ERROR;
7754: END IF;
7784: END LOOP;
7785:
7786: -- Debug Message
7787: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
7788: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7789: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7790: FND_MSG_PUB.Add;
7791: END IF;
7792: --Standard call to get message count and if count=1, get the message
7785:
7786: -- Debug Message
7787: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
7788: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
7789: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
7790: FND_MSG_PUB.Add;
7791: END IF;
7792: --Standard call to get message count and if count=1, get the message
7793: FND_MSG_PUB.Count_And_Get (
7799: WHEN FND_API.G_EXC_ERROR THEN
7800: ROLLBACK TO Update_Claim_Tbl_PVT;
7801: x_return_status := FND_API.G_RET_STS_ERROR;
7802: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7803: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7804: FND_MESSAGE.Set_Token('ROW',l_err_row);
7805: FND_MSG_PUB.Add;
7806: END IF;
7807: -- Standard call to get message count and if count=1, get the message
7800: ROLLBACK TO Update_Claim_Tbl_PVT;
7801: x_return_status := FND_API.G_RET_STS_ERROR;
7802: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7803: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7804: FND_MESSAGE.Set_Token('ROW',l_err_row);
7805: FND_MSG_PUB.Add;
7806: END IF;
7807: -- Standard call to get message count and if count=1, get the message
7808: FND_MSG_PUB.Count_And_Get (
7813: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7814: ROLLBACK TO Update_Claim_Tbl_PVT;
7815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7816: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7817: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7818: FND_MESSAGE.Set_Token('ROW',l_err_row);
7819: FND_MSG_PUB.Add;
7820: END IF;
7821: -- Standard call to get message count and if count=1, get the message
7814: ROLLBACK TO Update_Claim_Tbl_PVT;
7815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7816: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7817: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7818: FND_MESSAGE.Set_Token('ROW',l_err_row);
7819: FND_MSG_PUB.Add;
7820: END IF;
7821: -- Standard call to get message count and if count=1, get the message
7822: FND_MSG_PUB.Count_And_Get (
7827: WHEN OTHERS THEN
7828: ROLLBACK TO Update_Claim_Tbl_PVT;
7829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7830: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7831: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7832: FND_MESSAGE.Set_Token('ROW',l_err_row);
7833: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7834: END IF;
7835: -- Standard call to get message count and if count=1, get the message
7828: ROLLBACK TO Update_Claim_Tbl_PVT;
7829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7830: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
7831: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
7832: FND_MESSAGE.Set_Token('ROW',l_err_row);
7833: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
7834: END IF;
7835: -- Standard call to get message count and if count=1, get the message
7836: FND_MSG_PUB.Count_And_Get (