[Home] [Help]
126: EXCEPTION
127: WHEN OTHERS THEN
128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
129: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
130: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_STATUS_CODE');
131: FND_MSG_PUB.add;
132: END IF;
133: -- Standard call to get message count and if count=1, get the message
134: FND_MSG_PUB.Count_And_Get (
174: EXCEPTION
175: WHEN OTHERS THEN
176: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
177: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
178: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_USER_STATUS');
179: FND_MSG_PUB.add;
180: END IF;
181: END get_seeded_user_status;
182: ---------------------------------------------------------------------
266: CLOSE prefix_csr;
267:
268: IF l_prefix is NULL THEN
269: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
270: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SUFFIX_NOT_FOUND');
271: FND_MSG_PUB.add;
272: END IF;
273: RAISE FND_API.G_EXC_ERROR;
274: END IF;
336: l_parent_claim_number := l_temp_claim_number || l_suffix;
337:
338: --AMITAMKU fix for bug 15874396 commented this as part of fix
339: /* IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
340: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUMBER_TOO_LARGE');
341: FND_MSG_PUB.add;
342: END IF;
343: RAISE FND_API.G_EXC_ERROR; */
344:
355: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
356: WHEN OTHERS THEN
357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
358: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
359: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_CLAIM_NUMBER');
360: FND_MSG_PUB.add;
361: END IF;
362: FND_MSG_PUB.Count_And_Get (
363: p_encoded => FND_API.G_FALSE,
627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
628: WHEN OTHERS THEN
629: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
630: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
631: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUSTOMER_INFO_ERR');
632: FND_MSG_PUB.add;
633: END IF;
634: END get_customer_info;
635:
687: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
688: WHEN OTHERS THEN
689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
690: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
691: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DAYS_DUE_ERR');
692: FND_MSG_PUB.add;
693: END IF;
694: END get_days_due;
695:
922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
923: WHEN OTHERS THEN
924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
925: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
926: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_OFF_QUAL_ERR');
927: FND_MSG_PUB.add;
928: END IF;
929: END get_offer_qualifiers;
930: ---------------------------------------------------------------------
1411: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,'Get_owner');
1412: END IF;
1413: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1414: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1415: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_GET_OWNER_ERR');
1416: FND_MSG_PUB.add;
1417: END IF;
1418: END get_owner;
1419:
1459: -- Initialize API return status to sucess
1460: x_return_status := FND_API.G_RET_STS_SUCCESS;
1461:
1462: IF OZF_DEBUG_LOW_ON THEN
1463: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1464: FND_MESSAGE.Set_Token('TEXT','create task from template');
1465: FND_MSG_PUB.Add;
1466: END IF;
1467:
1460: x_return_status := FND_API.G_RET_STS_SUCCESS;
1461:
1462: IF OZF_DEBUG_LOW_ON THEN
1463: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1464: FND_MESSAGE.Set_Token('TEXT','create task from template');
1465: FND_MSG_PUB.Add;
1466: END IF;
1467:
1468: -- Generate taks template
1488: FETCH task_status_csr INTO l_assignment_status_id;
1489: CLOSE task_status_csr;
1490:
1491: IF OZF_DEBUG_LOW_ON THEN
1492: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1493: FND_MESSAGE.Set_Token('TEXT','create task assignment');
1494: FND_MSG_PUB.Add;
1495: END IF;
1496:
1489: CLOSE task_status_csr;
1490:
1491: IF OZF_DEBUG_LOW_ON THEN
1492: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1493: FND_MESSAGE.Set_Token('TEXT','create task assignment');
1494: FND_MSG_PUB.Add;
1495: END IF;
1496:
1497: JTF_TASK_ASSIGNMENTS_PUB.create_task_assignment (
1524: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1525: WHEN OTHERS THEN
1526: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1527: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1528: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_TASK_API_ERR');
1529: FND_MSG_PUB.add;
1530: END IF;
1531: END generate_tasks;
1532:
1672: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1673: WHEN OTHERS THEN
1674: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1675: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1676: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WO_THRESHOLD_ERROR');
1677: FND_MSG_PUB.ADD;
1678: END IF;
1679: END get_write_off_threshold;
1680:
1787: --If the exchange rate type is null then raise an error
1788: IF (l_exchange_rate_type IS NULL
1789: OR l_exchange_rate_type = FND_API.G_MISS_CHAR) THEN
1790: IF FND_MSG_PUB.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1791: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
1792: FND_MSG_PUB.add;
1793: END IF;
1794: RAISE FND_API.G_EXC_ERROR;
1795: END IF;
1886: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1887: WHEN OTHERS THEN
1888: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1889: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1890: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_WRITE_OFF_SETUP_ERR');
1891: FND_MSG_PUB.add;
1892: END IF;
1893:
1894: END get_write_off_eligibility;
1978: ELSE
1979: -- Mapping for the custome reason is not available. Throw an exception
1980: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
1981: THEN
1982: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NO_REASON_MAPPING');
1983: FND_MSG_PUB.add;
1984: END IF;
1985: RAISE FND_API.G_EXC_ERROR;
1986: END IF;
2080: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2081: END IF;
2082: -- Debug Message
2083: IF OZF_DEBUG_LOW_ON THEN
2084: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2085: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
2086: FND_MSG_PUB.Add;
2087: END IF;
2088: --Initialize message list if p_init_msg_list is TRUE.
2081: END IF;
2082: -- Debug Message
2083: IF OZF_DEBUG_LOW_ON THEN
2084: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2085: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
2086: FND_MSG_PUB.Add;
2087: END IF;
2088: --Initialize message list if p_init_msg_list is TRUE.
2089: IF FND_API.To_Boolean (p_init_msg_list) THEN
2111: END IF;
2112:
2113: IF (l_acc_cust_account_id IS NULL OR l_claim_cust_account_id <> l_acc_cust_account_id) THEN
2114: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
2115: fnd_message.set_name('OZF', 'OZF_OFF_DIFF_CLAIM_CUSTOMER');
2116: fnd_msg_pub.add;
2117: END IF;
2118: RAISE fnd_api.g_exc_error;
2119: END IF;
2302: IF x_pass = true THEN
2303: x_pass := p_claim.cust_account_id = l_info.cust_account_id;
2304: IF x_pass = false THEN
2305: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2306: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
2307: FND_MSG_PUB.ADD;
2308: END IF;
2309: END IF;
2310: ELSE
2308: END IF;
2309: END IF;
2310: ELSE
2311: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2312: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2313: FND_MSG_PUB.ADD;
2314: END IF;
2315: END IF;
2316: END IF;
2322: p_mode = 'MANU' THEN
2323: x_pass := p_claim.amount = l_info.amount;
2324: IF x_pass = false THEN
2325: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2326: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_CHLD_AMT_CHANGED');
2327: FND_MSG_PUB.ADD;
2328: END IF;
2329: END IF;
2330: END IF;
2390: EXCEPTION
2391: WHEN OTHERS THEN
2392: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2393: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2394: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMOUNT_CHANGE_ERR');
2395: FND_MSG_PUB.add;
2396: END IF;
2397: END check_amount;
2398: ---------------------------------------------------------------------
2440:
2441: IF ((p_claim_number is null) OR
2442: (p_claim_number = FND_API.G_MISS_CHAR)) THEN
2443: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2444: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_MISSING_CLAIM_NUM');
2445: FND_MSG_PUB.add;
2446: END IF;
2447: x_return_status := FND_API.g_ret_sts_error;
2448: ELSE
2462: CLOSE get_claim_id_num_csr;
2463:
2464: IF l_count <> 0 THEN
2465: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2466: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM_NEW');
2467: FND_MSG_PUB.add;
2468: END IF;
2469: x_return_status := FND_API.g_ret_sts_error;
2470: END IF;
2477: CLOSE get_count_csr;
2478:
2479: IF l_count <> 1 THEN
2480: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2481: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ID_NUM_MISS');
2482: FND_MSG_PUB.add;
2483: END IF;
2484: x_return_status := FND_API.g_ret_sts_error;
2485: ELSE
2489: CLOSE get_claim_id_num_csr;
2490:
2491: IF l_count <> 1 THEN
2492: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2493: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
2494: FND_MSG_PUB.add;
2495: END IF;
2496: x_return_status := FND_API.g_ret_sts_error;
2497: END IF;
2501:
2502: EXCEPTION
2503: WHEN OTHERS THEN
2504: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2505: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_NUM_CHECK_ERROR');
2506: FND_MSG_PUB.add;
2507: END IF;
2508: x_return_status := FND_API.g_ret_sts_unexp_error;
2509: END check_claim_number;
2642: (p_claim.amount <> l_deduction_info.amount)) THEN
2643:
2644: x_pass := false;
2645: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2646: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_AMT_CHANGED');
2647: FND_MSG_PUB.ADD;
2648: END IF;
2649: END IF;
2650: END IF; -- End of BUG#2781186
2651:
2652: IF p_claim.cust_account_id <> l_deduction_info.cust_account_id THEN
2653: x_pass := false;
2654: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2655: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_DED_CUST_CHANGED');
2656: FND_MSG_PUB.ADD;
2657: END IF;
2658: END IF;
2659:
2660: EXCEPTION
2661: WHEN OTHERS THEN
2662: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2663: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2664: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DED_CHK_ERR');
2665: FND_MSG_PUB.add;
2666: END IF;
2667: END check_deduction;
2668:
2705: FETCH c_claim INTO l_claim_rec;
2706: IF c_claim%NOTFOUND THEN
2707: CLOSE c_claim;
2708: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2709: FND_MESSAGE.set_name('OZF','OZF_API_RECORD_NOT_FOUND');
2710: FND_MSG_PUB.add;
2711: END IF;
2712: RAISE FND_API.g_exc_error;
2713: END IF;
3583: WHEN FND_API.G_EXC_ERROR THEN
3584: x_return_status := FND_API.G_RET_STS_ERROR;
3585: WHEN OTHERS THEN
3586: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
3587: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_COMPLETE_ERROR');
3588: FND_MSG_PUB.add;
3589: END IF;
3590: x_return_status := FND_API.g_ret_sts_unexp_error;
3591: END Complete_Claim_Rec;
3869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3870: END IF;
3871: -- Debug Message
3872: IF OZF_DEBUG_LOW_ON THEN
3873: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3874: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3875: FND_MSG_PUB.Add;
3876: END IF;
3877: --Initialize message list if p_init_msg_list is TRUE.
3870: END IF;
3871: -- Debug Message
3872: IF OZF_DEBUG_LOW_ON THEN
3873: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3874: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
3875: FND_MSG_PUB.Add;
3876: END IF;
3877: --Initialize message list if p_init_msg_list is TRUE.
3878: IF FND_API.To_Boolean (p_init_msg_list) THEN
3906: THEN
3907:
3908: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3909: THEN
3910: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_CLASS_WRG');
3911: FND_MSG_PUB.add;
3912: END IF;
3913: RAISE FND_API.G_EXC_ERROR;
3914: END IF;
3917: IF l_claim.cust_account_id is NULL OR
3918: l_claim.cust_account_id = FND_API.G_MISS_NUM
3919: THEN
3920: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3921: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
3922: FND_MSG_PUB.Add;
3923: END IF;
3924: RAISE FND_API.G_EXC_ERROR;
3925: END IF;
3978: l_claim.custom_setup_id = FND_API.G_MISS_NUM
3979: THEN
3980: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error)
3981: THEN
3982: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_SETUP_MISSING');
3983: FND_MSG_PUB.add;
3984: END IF;
3985: RAISE FND_API.G_EXC_ERROR;
3986: END IF;
3996: IF l_claim.claim_type_id is NULL OR
3997: l_claim.claim_type_id = FND_API.G_MISS_NUM
3998: THEN
3999: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4000: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
4001: FND_MSG_PUB.Add;
4002: END IF;
4003: RAISE FND_API.G_EXC_ERROR;
4004: END IF;
4015: -- End Bug: 2732290 -----------------------------------------------------------
4016: IF l_claim.reason_code_id is NULL
4017: THEN
4018: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4019: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
4020: FND_MSG_PUB.Add;
4021: END IF;
4022: RAISE FND_API.G_EXC_ERROR;
4023: END IF;
4029: l_claim.amount = 0) AND
4030: l_claim.claim_class <>'GROUP' THEN
4031:
4032: IF OZF_DEBUG_LOW_ON THEN
4033: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4034: FND_MESSAGE.Set_Token('TEXT','l_claim.amount='||l_claim.amount);
4035: FND_MSG_PUB.Add;
4036: END IF;
4037:
4030: l_claim.claim_class <>'GROUP' THEN
4031:
4032: IF OZF_DEBUG_LOW_ON THEN
4033: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4034: FND_MESSAGE.Set_Token('TEXT','l_claim.amount='||l_claim.amount);
4035: FND_MSG_PUB.Add;
4036: END IF;
4037:
4038: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4035: FND_MSG_PUB.Add;
4036: END IF;
4037:
4038: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4039: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMOUNT_MISSING');
4040: FND_MSG_PUB.Add;
4041: END IF;
4042: RAISE FND_API.G_EXC_ERROR;
4043: END IF;
4049: FETCH org_id_csr INTO l_org_id;
4050: IF org_id_csr%NOTFOUND THEN
4051: CLOSE org_id_csr;
4052: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
4053: fnd_message.set_name('OZF', 'OZF_CLAIM_ORG_ID_MISSING');
4054: fnd_msg_pub.add;
4055: END IF;
4056: RAISE fnd_api.g_exc_error;
4057: END IF;
4079: IF l_claim.legal_entity_id is NULL OR
4080: l_claim.legal_entity_id = FND_API.G_MISS_NUM
4081: THEN
4082: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
4083: FND_MESSAGE.Set_Name('OZF','OZF_LE_FOR_CLAIM_MISSING');
4084: FND_MSG_PUB.Add;
4085: END IF;
4086: RAISE FND_API.G_EXC_ERROR;
4087: END IF;
4120: CLOSE claim_number_count_csr;
4121:
4122: IF l_count > 0 THEN
4123: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4124: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLAIM_NUM');
4125: FND_MSG_PUB.add;
4126: END IF;
4127: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4128: END IF;
4381:
4382: IF l_claim.exchange_rate_type is null OR
4383: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
4384: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
4385: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
4386: fnd_msg_pub.add;
4387: END IF;
4388: RAISE fnd_api.g_exc_error;
4389: END IF;
4808: );
4809: EXCEPTION
4810: WHEN OTHERS THEN
4811: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
4812: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
4813: FND_MSG_PUB.add;
4814: END IF;
4815: RAISE FND_API.g_exc_error;
4816: END;
4827: ,x_return_status => l_return_status
4828: );
4829:
4830: IF OZF_DEBUG_LOW_ON THEN
4831: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4832: FND_MESSAGE.Set_Token('TEXT','After generate_task: '|| l_return_status);
4833: FND_MSG_PUB.Add;
4834: END IF;
4835: END IF;
4828: );
4829:
4830: IF OZF_DEBUG_LOW_ON THEN
4831: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
4832: FND_MESSAGE.Set_Token('TEXT','After generate_task: '|| l_return_status);
4833: FND_MSG_PUB.Add;
4834: END IF;
4835: END IF;
4836:
5132: COMMIT WORK;
5133: END IF;
5134: -- Debug Message
5135: IF OZF_DEBUG_LOW_ON THEN
5136: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5137: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5138: FND_MSG_PUB.Add;
5139: END IF;
5140:
5133: END IF;
5134: -- Debug Message
5135: IF OZF_DEBUG_LOW_ON THEN
5136: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5137: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5138: FND_MSG_PUB.Add;
5139: END IF;
5140:
5141: --Standard call to get message count AND if count=1, get the message
5311: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5312: END IF;
5313: -- Debug Message
5314: IF OZF_DEBUG_LOW_ON THEN
5315: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5316: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5317: FND_MSG_PUB.Add;
5318: END IF;
5319: --Initialize message list if p_init_msg_list is TRUE.
5312: END IF;
5313: -- Debug Message
5314: IF OZF_DEBUG_LOW_ON THEN
5315: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5316: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5317: FND_MSG_PUB.Add;
5318: END IF;
5319: --Initialize message list if p_init_msg_list is TRUE.
5320: IF FND_API.To_Boolean (p_init_msg_list) THEN
5386: END LOOP;
5387: END IF;
5388: ELSE
5389: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5390: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
5391: FND_MSG_PUB.add;
5392: END IF;
5393: END IF;
5394: ELSE
5392: END IF;
5393: END IF;
5394: ELSE
5395: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5396: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
5397: FND_MSG_PUB.add;
5398: END IF;
5399: RAISE FND_API.g_exc_error;
5400: END IF;
5404: COMMIT WORK;
5405: END IF;
5406: -- Debug Message
5407: IF OZF_DEBUG_LOW_ON THEN
5408: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5409: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5410: FND_MSG_PUB.Add;
5411: END IF;
5412:
5405: END IF;
5406: -- Debug Message
5407: IF OZF_DEBUG_LOW_ON THEN
5408: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5409: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5410: FND_MSG_PUB.Add;
5411: END IF;
5412:
5413: --Standard call to get message count AND if count=1, get the message
5558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5559: END IF;
5560: -- Debug Message
5561: IF OZF_DEBUG_LOW_ON THEN
5562: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5563: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5564: FND_MSG_PUB.Add;
5565: END IF;
5566: --Initialize message list if p_init_msg_list is TRUE.
5559: END IF;
5560: -- Debug Message
5561: IF OZF_DEBUG_LOW_ON THEN
5562: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5563: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5564: FND_MSG_PUB.Add;
5565: END IF;
5566: --Initialize message list if p_init_msg_list is TRUE.
5567: IF FND_API.To_Boolean (p_init_msg_list) THEN
5690:
5691: OZF_claims_PKG.Delete_Row(p_object_id);
5692: ELSE
5693: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5694: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CANT_DEL_CLAIM');
5695: FND_MSG_PUB.add;
5696: END IF;
5697: END IF;
5698:
5697: END IF;
5698:
5699: ELSE
5700: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
5701: FND_MESSAGE.set_name('OZF', 'OZF_REC_VERSION_CHANGED');
5702: FND_MSG_PUB.add;
5703: END IF;
5704: RAISE FND_API.g_exc_error;
5705: END IF;
5710: END IF;
5711:
5712: -- Debug Message
5713: IF OZF_DEBUG_LOW_ON THEN
5714: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5715: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5716: FND_MSG_PUB.Add;
5717: END IF;
5718:
5711:
5712: -- Debug Message
5713: IF OZF_DEBUG_LOW_ON THEN
5714: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5715: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5716: FND_MSG_PUB.Add;
5717: END IF;
5718:
5719: --Standard call to get message count and if count=1, get the message
5839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5840: WHEN OTHERS THEN
5841: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5842: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
5843: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CHANGE_ERR');
5844: FND_MSG_PUB.add;
5845: END IF;
5846: END reason_changed;
5847:
5904: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5905: END IF;
5906: -- Debug Message
5907: IF OZF_DEBUG_LOW_ON THEN
5908: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5909: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5910: FND_MSG_PUB.Add;
5911: END IF;
5912: --Initialize message list if p_init_msg_list is TRUE.
5905: END IF;
5906: -- Debug Message
5907: IF OZF_DEBUG_LOW_ON THEN
5908: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5909: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
5910: FND_MSG_PUB.Add;
5911: END IF;
5912: --Initialize message list if p_init_msg_list is TRUE.
5913: IF FND_API.To_Boolean (p_init_msg_list) THEN
5975: COMMIT WORK;
5976: END IF;
5977: -- Debug Message
5978: IF OZF_DEBUG_LOW_ON THEN
5979: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5980: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5981: FND_MSG_PUB.Add;
5982: END IF;
5983: --Standard call to get message count and if count=1, get the message
5976: END IF;
5977: -- Debug Message
5978: IF OZF_DEBUG_LOW_ON THEN
5979: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
5980: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
5981: FND_MSG_PUB.Add;
5982: END IF;
5983: --Standard call to get message count and if count=1, get the message
5984: FND_MSG_PUB.Count_And_Get (
6413: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6414: END IF;
6415: -- Debug Message
6416: IF OZF_DEBUG_LOW_ON THEN
6417: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6418: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
6419: FND_MSG_PUB.Add;
6420: END IF;
6421: --Initialize message list if p_init_msg_list is TRUE.
6414: END IF;
6415: -- Debug Message
6416: IF OZF_DEBUG_LOW_ON THEN
6417: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
6418: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
6419: FND_MSG_PUB.Add;
6420: END IF;
6421: --Initialize message list if p_init_msg_list is TRUE.
6422: IF FND_API.To_Boolean (p_init_msg_list) THEN
6434: -- Varify object_version_number
6435: IF (l_claim.object_version_number is NULL or
6436: l_claim.object_version_number = FND_API.G_MISS_NUM ) THEN
6437: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6438: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
6439: FND_MSG_PUB.ADD;
6440: END IF;
6441: RAISE FND_API.G_EXC_ERROR;
6442: END IF;
6446: CLOSE object_version_number_csr;
6447:
6448: IF l_object_version_number <> l_claim.object_version_number THEN
6449: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6450: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
6451: FND_MSG_PUB.ADD;
6452: END IF;
6453: RAISE FND_API.G_EXC_ERROR;
6454: END IF;
6493: X_access => l_access);
6494:
6495: IF l_access = 'N' THEN
6496: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6497: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_NO_ACCESS');
6498: FND_MSG_PUB.Add;
6499: END IF;
6500: RAISE FND_API.G_EXC_ERROR;
6501: END IF;
6552: --ninarasi fix for bug 13395562
6553: IF (l_old_status_code = 'PENDING_CLOSE' AND l_claim.status_code = 'CLOSED' AND l_payment_status <> 'PAID') OR (l_old_status_code = 'PENDING_APPROVAL' AND l_claim.status_code = 'CLOSED' AND l_claim.approved_by IS NULL) THEN
6554: --ozf_utility_PVT.debug_message('Claim is either in pending close or pending approval');
6555: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6556: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_UPDATE_ERROR');
6557: FND_MSG_PUB.ADD;
6558: END IF;
6559: RAISE FND_API.G_EXC_ERROR;
6560: END IF;
6643: IF l_claim.reason_code_id is null
6644: OR l_claim.reason_code_id = FND_API.G_MISS_NUM
6645: THEN
6646: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6647: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_REASON_CD_MISSING');
6648: FND_MSG_PUB.Add;
6649: END IF;
6650: RAISE FND_API.G_EXC_ERROR;
6651: END IF;
6713: IF l_claim.status_code = G_DUPLICATE_STATUS THEN
6714: IF l_claim.duplicate_claim_id is null OR
6715: l_claim.duplicate_claim_id = FND_API.G_MISS_NUM THEN
6716: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6717: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUP_CLM_ID_MISSING');
6718: FND_MSG_PUB.add;
6719: END IF;
6720: RAISE FND_API.G_EXC_ERROR;
6721: END IF;
6723: -- Raise an error
6724: -- if the duplicate_claim_id equal to the current claim_id
6725: IF l_claim.duplicate_claim_id = l_claim.claim_id THEN
6726: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6727: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_DUP_ID_SAME');
6728: FND_MSG_PUB.Add;
6729: END IF;
6730: RAISE FND_API.G_EXC_ERROR;
6731: END IF;
6749: IF ((l_old_owner_id <> l_resource_id) AND
6750: (l_access <> 'F') AND
6751: (p_mode = OZF_claim_Utility_pvt.G_MANU_MODE) ) THEN
6752: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
6753: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_UPDT_OWNER_PERM');
6754: FND_MSG_PUB.ADD;
6755: END IF;
6756: RAISE FND_API.G_EXC_ERROR;
6757: END IF;
6898: END IF;
6899: ELSE
6900: -- Should never be in this block.
6901: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
6902: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_UPDATE_OWNER_ERR');
6903: FND_MSG_PUB.add;
6904: END IF;
6905: RAISE FND_API.g_exc_error;
6906: END IF;
6912: FETCH gp_func_currency_cd_csr INTO l_functional_currency_code;
6913: IF gp_func_currency_cd_csr%NOTFOUND THEN
6914: CLOSE gp_func_currency_cd_csr;
6915: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
6916: fnd_message.set_name('OZF', 'OZF_CLAIM_GL_FUNCUR_MISSING');
6917: fnd_msg_pub.add;
6918: END IF;
6919: RAISE fnd_api.g_exc_error;
6920: END IF;
6922: IF l_claim.currency_code <> l_functional_currency_code THEN
6923: IF l_claim.exchange_rate_type is null OR
6924: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
6925: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
6926: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
6927: fnd_msg_pub.add;
6928: END IF;
6929: RAISE fnd_api.g_exc_error;
6930: END IF;
6983: FETCH gp_func_currency_cd_csr INTO l_functional_currency_code;
6984: IF gp_func_currency_cd_csr%NOTFOUND THEN
6985: CLOSE gp_func_currency_cd_csr;
6986: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
6987: fnd_message.set_name('OZF', 'OZF_CLAIM_GL_FUNCUR_MISSING');
6988: fnd_msg_pub.add;
6989: END IF;
6990: RAISE fnd_api.g_exc_error;
6991: END IF;
7012:
7013: IF l_claim.exchange_rate_type is null OR
7014: l_claim.exchange_rate_type = FND_API.G_MISS_CHAR THEN
7015: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
7016: fnd_message.set_name('OZF', 'OZF_CLAIM_CONTYPE_MISSING');
7017: fnd_msg_pub.add;
7018: END IF;
7019: RAISE fnd_api.g_exc_error;
7020: END IF;
7112: IF l_claim.status_code NOT IN ('PENDING_CLOSE', 'CLOSED') AND
7113: ABS(l_claim.amount_remaining + l_claim.amount_settled) < ABS(l_claim_lines_sum) THEN
7114: -- [END FIX 04/29/02]
7115: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
7116: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_AMT_REM_ERR');
7117: FND_MSG_PUB.add;
7118: END IF;
7119: RAISE FND_API.g_exc_error;
7120: END IF;
7322: IF OZF_DEBUG_HIGH_ON THEN
7323: OZF_Utility_PVT.debug_message('Caim Line Exists :');
7324: END IF;
7325: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7326: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_LINE_EXISTS');
7327: FND_MSG_PUB.Add;
7328: END IF;
7329: RAISE FND_API.G_EXC_ERROR;
7330: END IF;
7373: IF OZF_DEBUG_HIGH_ON THEN
7374: OZF_Utility_PVT.debug_message('COUNT >1 And raise error');
7375: END IF;
7376: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7377: FND_MESSAGE.Set_Name('OZF','OZF_DED_LINE_UPDATED');
7378: FND_MSG_PUB.Add;
7379: END IF;
7380: END IF; --IF(l_invoice_count = 1) THEN
7381:
7637: END IF;
7638: */
7639:
7640: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
7641: FND_MESSAGE.Set_Name('AMS', 'OZF_CLAIM_API_NO_OPEN_STATUS');
7642: FND_MSG_PUB.ADD;
7643: END IF;
7644: RAISE FND_API.G_EXC_ERROR;
7645: END IF;
7802:
7803: EXCEPTION
7804: WHEN OTHERS THEN
7805: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
7806: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
7807: FND_MSG_PUB.add;
7808: END IF;
7809: RAISE FND_API.g_exc_error;
7810: END;
8288: COMMIT WORK;
8289: END IF;
8290: -- Debug Message
8291: IF OZF_DEBUG_LOW_ON THEN
8292: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8293: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
8294: FND_MSG_PUB.Add;
8295: END IF;
8296: --Standard call to get message count and if count=1, get the message
8289: END IF;
8290: -- Debug Message
8291: IF OZF_DEBUG_LOW_ON THEN
8292: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8293: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
8294: FND_MSG_PUB.Add;
8295: END IF;
8296: --Standard call to get message count and if count=1, get the message
8297: FND_MSG_PUB.Count_And_Get (
8498: END IF;
8499:
8500: -- Debug Message
8501: IF OZF_DEBUG_LOW_ON THEN
8502: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8503: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
8504: FND_MSG_PUB.Add;
8505: END IF;
8506:
8499:
8500: -- Debug Message
8501: IF OZF_DEBUG_LOW_ON THEN
8502: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8503: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
8504: FND_MSG_PUB.Add;
8505: END IF;
8506:
8507: --Initialize message list if p_init_msg_list is TRUE.
8529: -- Raise an error
8530: -- Due_date must be later than the claim_date
8531: IF trunc(l_claim.DUE_DATE) < trunc(l_claim.claim_date) THEN
8532: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8533: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_DUE_DATE_ERR');
8534: FND_MSG_PUB.add;
8535: END IF;
8536: IF OZF_DEBUG_HIGH_ON THEN
8537: ozf_utility_PVT.debug_message('claim date: ' || l_claim.claim_date);
8545: IF ((l_claim.status_code <> G_DUPLICATE_STATUS) AND
8546: (l_claim.duplicate_claim_id is not null) AND
8547: (l_claim.duplicate_claim_id <> FND_API.G_MISS_NUM)) THEN
8548: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8549: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CANT_DUP');
8550: FND_MSG_PUB.Add;
8551: END IF;
8552: RAISE FND_API.G_EXC_ERROR;
8553: END IF;
8566: CLOSE cust_site_csr;
8567:
8568: IF (l_count = 0) THEN
8569: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8570: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BILL_TO_ST_WRNG');
8571: FND_MSG_PUB.Add;
8572: END IF;
8573: RAISE FND_API.G_EXC_ERROR;
8574: END IF;
8583: CLOSE rel_cust_csr;
8584:
8585: IF (l_count = 0) THEN
8586: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8587: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_UNRELATED_SHIPTO');
8588: FND_MSG_PUB.Add;
8589: END IF;
8590: RAISE FND_API.G_EXC_ERROR;
8591: END IF;
8602: CLOSE cust_site_csr;
8603:
8604: IF (l_count = 0) THEN
8605: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8606: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_SHIP_TO_ST_WRNG');
8607: FND_MSG_PUB.Add;
8608: END IF;
8609: RAISE FND_API.G_EXC_ERROR;
8610: END IF;
8622: CLOSE party_csr;
8623:
8624: IF (l_count = 0) THEN
8625: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8626: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CONTACT_WRNG');
8627: FND_MSG_PUB.Add;
8628: END IF;
8629: RAISE FND_API.G_EXC_ERROR;
8630: END IF;
8641: CLOSE party_csr;
8642:
8643: IF (l_count = 0) THEN
8644: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8645: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_BROKER_WRNG');
8646: FND_MSG_PUB.Add;
8647: END IF;
8648: RAISE FND_API.G_EXC_ERROR;
8649: END IF;
8660: CLOSE sales_rep_num_csr;
8661:
8662: IF l_sales_rep_num = 0 THEN
8663: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8664: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SALES_REP_MISSING');
8665: FND_MSG_PUB.add;
8666: END IF;
8667: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
8668: END IF;
8670: */
8671:
8672: ELSE
8673: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8674: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
8675: FND_MSG_PUB.Add;
8676: END IF;
8677: RAISE FND_API.G_EXC_ERROR;
8678: END IF;
8689: CLOSE status_count_csr;
8690:
8691: IF l_count <> 1 THEN
8692: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8693: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_STATUS_NOT_MAT');
8694: FND_MSG_PUB.Add;
8695:
8696: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8697: FND_MESSAGE.Set_Token('TEXT','code: '||l_claim.status_code||' id:'||l_claim.user_status_id);
8692: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8693: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_STATUS_NOT_MAT');
8694: FND_MSG_PUB.Add;
8695:
8696: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8697: FND_MESSAGE.Set_Token('TEXT','code: '||l_claim.status_code||' id:'||l_claim.user_status_id);
8698: FND_MSG_PUB.Add;
8699: END IF;
8700: RAISE FND_API.G_EXC_ERROR;
8693: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_STATUS_NOT_MAT');
8694: FND_MSG_PUB.Add;
8695:
8696: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8697: FND_MESSAGE.Set_Token('TEXT','code: '||l_claim.status_code||' id:'||l_claim.user_status_id);
8698: FND_MSG_PUB.Add;
8699: END IF;
8700: RAISE FND_API.G_EXC_ERROR;
8701: END IF;
8714: CLOSE action_count_csr;
8715:
8716: IF l_count <> 1 THEN
8717: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8718: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_ACTION_NOT_MAT');
8719: FND_MSG_PUB.Add;
8720: END IF;
8721: RAISE FND_API.G_EXC_ERROR;
8722: END IF;
8726: -- raise an error if owner_id is not found
8727: IF (l_claim.owner_id is null OR
8728: l_claim.owner_id = FND_API.G_MISS_NUM) THEN
8729: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8730: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_OWNER_NOT_FOUND');
8731: FND_MSG_PUB.Add;
8732: END IF;
8733: RAISE FND_API.G_EXC_ERROR;
8734: END IF;
8736: -- raise an error if status_code is open and amount_remaining is 0
8737: IF (l_claim.status_code = G_OPEN_STATUS AND
8738: l_claim.amount_remaining = 0) THEN
8739: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8740: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_ZERO_WOPEN');
8741: FND_MSG_PUB.Add;
8742: END IF;
8743: RAISE FND_API.G_EXC_ERROR;
8744: END IF;
8748: IF (l_claim.amount < 0 AND
8749: (l_claim.claim_class = G_CLAIM_CLASS OR
8750: l_claim.claim_class = G_DEDUCTION_CLASS)) THEN
8751: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8752: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_NEG');
8753: FND_MSG_PUB.Add;
8754: END IF;
8755: RAISE FND_API.G_EXC_ERROR;
8756: END IF;
8758: IF (l_claim.amount > 0 AND
8759: (l_claim.claim_class = G_OVERPAYMENT_CLASS OR
8760: l_claim.claim_class = G_CHARGE_CLASS )) THEN
8761: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
8762: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_AMT_POS_OPM');
8763: FND_MSG_PUB.Add;
8764: END IF;
8765: RAISE FND_API.G_EXC_ERROR;
8766: END IF;
8777: (l_claim.source_object_number IS NULL OR
8778: l_claim.source_object_number = FND_API.G_MISS_CHAR)) THEN
8779:
8780: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8781: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
8782: FND_MSG_PUB.add;
8783: END IF;
8784: RAISE FND_API.g_exc_error;
8785: END IF;
8794: CLOSE payment_method_csr;
8795:
8796: IF l_lookup_code_count = 0 THEN
8797: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8798: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_MTHD_WRG');
8799: FND_MSG_PUB.add;
8800: END IF;
8801: RAISE FND_API.g_exc_error;
8802: END IF;
8809: IF (l_claim.pay_related_account_flag <> 'F' AND
8810: l_claim.pay_related_account_flag <> 'T') THEN
8811:
8812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8813: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_PAY_REL_FLG_WRG');
8814: FND_MSG_PUB.add;
8815: END IF;
8816: RAISE FND_API.g_exc_error;
8817: END IF;
8825: FETCH order_type_count_csr into l_order_type_count;
8826: CLOSE order_type_count_csr;
8827: IF l_order_type_count = 0 then
8828: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8829: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_ODTYPE_WRG');
8830: FND_MSG_PUB.add;
8831: END IF;
8832: RAISE FND_API.g_exc_error;
8833: END IF;
8849: END IF;
8850:
8851: IF (l_claim_type_org_id <> l_claim.org_id) THEN
8852: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8853: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_TYPE_MISMATCH');
8854: FND_MSG_PUB.add;
8855: END IF;
8856: RAISE FND_API.g_exc_error;
8857: END IF;
8875: END IF;
8876:
8877: IF (l_claim_reason_org_id <> l_claim.org_id) THEN
8878: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
8879: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_MISMATCH');
8880: FND_MSG_PUB.add;
8881: END IF;
8882: RAISE FND_API.g_exc_error;
8883: END IF;
8888:
8889:
8890: -- Debug Message
8891: IF OZF_DEBUG_LOW_ON THEN
8892: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8893: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
8894: FND_MSG_PUB.Add;
8895: END IF;
8896: --Standard call to get message count and if count=1, get the message
8889:
8890: -- Debug Message
8891: IF OZF_DEBUG_LOW_ON THEN
8892: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
8893: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
8894: FND_MSG_PUB.Add;
8895: END IF;
8896: --Standard call to get message count and if count=1, get the message
8897: FND_MSG_PUB.Count_And_Get (
9020: END IF;
9021:
9022: -- Debug Message
9023: IF OZF_DEBUG_LOW_ON THEN
9024: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9025: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
9026: FND_MSG_PUB.Add;
9027: END IF;
9028:
9021:
9022: -- Debug Message
9023: IF OZF_DEBUG_LOW_ON THEN
9024: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9025: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
9026: FND_MSG_PUB.Add;
9027: END IF;
9028:
9029: --Initialize message list if p_init_msg_list is TRUE.
9048: -- FETCH claim_type_id_csr into l_claim.claim_type_id;
9049: -- CLOSE claim_type_id_csr;
9050: -- IF l_claim.claim_type_id is NULL THEN
9051: -- IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
9052: -- FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CLAIM_TYPE_MISSING');
9053: -- FND_MSG_PUB.Add;
9054: -- END IF;
9055: -- RAISE FND_API.G_EXC_ERROR;
9056: -- END IF;
9061: -- CLOSE number_of_claim_type_id_csr;
9062: --
9063: -- IF l_number_of_claim_type_id = 0 THEN
9064: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9065: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CLAIM_TYPE_NOT_IN_DB');
9066: -- FND_MSG_PUB.add;
9067: -- END IF;
9068: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9069: -- END IF;
9080: -- CLOSE number_of_reason_code_id_csr;
9081:
9082: -- IF l_number_of_reason_code_id = 0 THEN
9083: -- IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9084: -- FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_REASON_CD_NOT_IN_DB');
9085: -- FND_MSG_PUB.add;
9086: -- END IF;
9087: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9088: -- END IF;
9092: IF l_claim.cust_account_id is NULL OR
9093: l_claim.cust_account_id = FND_API.G_MISS_NUM THEN
9094:
9095: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.g_msg_lvl_error) THEN
9096: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_CUST_ID_MISSING');
9097: FND_MSG_PUB.Add;
9098: END IF;
9099: RAISE FND_API.G_EXC_ERROR;
9100: ELSE
9104: CLOSE num_of_cust_acctid_csr;
9105:
9106: IF l_number_of_cust = 0 THEN
9107: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
9108: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CUST_NOT_IN_DB');
9109: FND_MSG_PUB.add;
9110: END IF;
9111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
9112: END IF;
9146:
9147: x_claim := l_claim;
9148: -- Debug Message
9149: IF OZF_DEBUG_LOW_ON THEN
9150: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9151: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9152: FND_MSG_PUB.Add;
9153: END IF;
9154: --Standard call to get message count and if count=1, get the message
9147: x_claim := l_claim;
9148: -- Debug Message
9149: IF OZF_DEBUG_LOW_ON THEN
9150: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9151: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9152: FND_MSG_PUB.Add;
9153: END IF;
9154: --Standard call to get message count and if count=1, get the message
9155: FND_MSG_PUB.Count_And_Get (
9249: x_error_index := -1;
9250:
9251: -- Debug Message
9252: IF OZF_DEBUG_LOW_ON THEN
9253: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9254: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
9255: FND_MSG_PUB.Add;
9256: END IF;
9257:
9250:
9251: -- Debug Message
9252: IF OZF_DEBUG_LOW_ON THEN
9253: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9254: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
9255: FND_MSG_PUB.Add;
9256: END IF;
9257:
9258: --Initialize message list if p_init_msg_list is TRUE.
9326: END LOOP;
9327:
9328: -- Debug Message
9329: IF OZF_DEBUG_LOW_ON THEN
9330: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9331: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9332: FND_MSG_PUB.Add;
9333: END IF;
9334: --Standard call to get message count and if count=1, get the message
9327:
9328: -- Debug Message
9329: IF OZF_DEBUG_LOW_ON THEN
9330: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9331: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9332: FND_MSG_PUB.Add;
9333: END IF;
9334: --Standard call to get message count and if count=1, get the message
9335: FND_MSG_PUB.Count_And_Get (
9341: WHEN FND_API.G_EXC_ERROR THEN
9342: ROLLBACK TO Create_Claim_Tbl_PVT;
9343: x_return_status := FND_API.G_RET_STS_ERROR;
9344: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9345: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9346: FND_MESSAGE.Set_Token('ROW',l_err_row);
9347: FND_MSG_PUB.Add;
9348: END IF;
9349: */
9342: ROLLBACK TO Create_Claim_Tbl_PVT;
9343: x_return_status := FND_API.G_RET_STS_ERROR;
9344: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9345: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9346: FND_MESSAGE.Set_Token('ROW',l_err_row);
9347: FND_MSG_PUB.Add;
9348: END IF;
9349: */
9350: -- Standard call to get message count and if count=1, get the message
9356: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9357: ROLLBACK TO Create_Claim_Tbl_PVT;
9358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9359: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9360: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9361: FND_MESSAGE.Set_Token('ROW',l_err_row);
9362: FND_MSG_PUB.Add;
9363: END IF;
9364: */
9357: ROLLBACK TO Create_Claim_Tbl_PVT;
9358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9359: /* IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9360: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9361: FND_MESSAGE.Set_Token('ROW',l_err_row);
9362: FND_MSG_PUB.Add;
9363: END IF;
9364: */
9365: -- Standard call to get message count and if count=1, get the message
9372: ROLLBACK TO Create_Claim_Tbl_PVT;
9373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9374: /* IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9375: THEN
9376: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9377: FND_MESSAGE.Set_Token('ROW',l_err_row);
9378: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9379: END IF;
9380: */ -- Standard call to get message count and if count=1, get the message
9373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9374: /* IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
9375: THEN
9376: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9377: FND_MESSAGE.Set_Token('ROW',l_err_row);
9378: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9379: END IF;
9380: */ -- Standard call to get message count and if count=1, get the message
9381: FND_MSG_PUB.Count_And_Get (
9448: END IF;
9449:
9450: -- Debug Message
9451: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
9452: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9453: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
9454: FND_MSG_PUB.Add;
9455: END IF;
9456:
9449:
9450: -- Debug Message
9451: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
9452: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9453: FND_MESSAGE.Set_Token('TEXT',l_full_name||': Start');
9454: FND_MSG_PUB.Add;
9455: END IF;
9456:
9457: --Initialize message list if p_init_msg_list is TRUE.
9468: -- Varify status code if NOT OPEN then raise error.
9469: IF upper(l_claim.status_code) <> 'OPEN' then
9470: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9471: l_err_row := i;
9472: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_API_NO_OPEN_STATUS');
9473: FND_MESSAGE.Set_Token('ROW',l_err_row);
9474: FND_MSG_PUB.ADD;
9475: END IF;
9476: RAISE FND_API.G_EXC_ERROR;
9469: IF upper(l_claim.status_code) <> 'OPEN' then
9470: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
9471: l_err_row := i;
9472: FND_MESSAGE.Set_Name('OZF', 'OZF_CLAIM_API_NO_OPEN_STATUS');
9473: FND_MESSAGE.Set_Token('ROW',l_err_row);
9474: FND_MSG_PUB.ADD;
9475: END IF;
9476: RAISE FND_API.G_EXC_ERROR;
9477: END IF;
9507: END LOOP;
9508:
9509: -- Debug Message
9510: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
9511: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9512: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9513: FND_MSG_PUB.Add;
9514: END IF;
9515: --Standard call to get message count and if count=1, get the message
9508:
9509: -- Debug Message
9510: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
9511: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
9512: FND_MESSAGE.Set_Token('TEXT',l_full_name||': End');
9513: FND_MSG_PUB.Add;
9514: END IF;
9515: --Standard call to get message count and if count=1, get the message
9516: FND_MSG_PUB.Count_And_Get (
9522: WHEN FND_API.G_EXC_ERROR THEN
9523: ROLLBACK TO Update_Claim_Tbl_PVT;
9524: x_return_status := FND_API.G_RET_STS_ERROR;
9525: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9526: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9527: FND_MESSAGE.Set_Token('ROW',l_err_row);
9528: FND_MSG_PUB.Add;
9529: END IF;
9530: -- Standard call to get message count and if count=1, get the message
9523: ROLLBACK TO Update_Claim_Tbl_PVT;
9524: x_return_status := FND_API.G_RET_STS_ERROR;
9525: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9526: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9527: FND_MESSAGE.Set_Token('ROW',l_err_row);
9528: FND_MSG_PUB.Add;
9529: END IF;
9530: -- Standard call to get message count and if count=1, get the message
9531: FND_MSG_PUB.Count_And_Get (
9536: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
9537: ROLLBACK TO Update_Claim_Tbl_PVT;
9538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9539: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9540: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9541: FND_MESSAGE.Set_Token('ROW',l_err_row);
9542: FND_MSG_PUB.Add;
9543: END IF;
9544: -- Standard call to get message count and if count=1, get the message
9537: ROLLBACK TO Update_Claim_Tbl_PVT;
9538: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9539: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9540: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9541: FND_MESSAGE.Set_Token('ROW',l_err_row);
9542: FND_MSG_PUB.Add;
9543: END IF;
9544: -- Standard call to get message count and if count=1, get the message
9545: FND_MSG_PUB.Count_And_Get (
9550: WHEN OTHERS THEN
9551: ROLLBACK TO Update_Claim_Tbl_PVT;
9552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9553: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9554: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9555: FND_MESSAGE.Set_Token('ROW',l_err_row);
9556: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9557: END IF;
9558: -- Standard call to get message count and if count=1, get the message
9551: ROLLBACK TO Update_Claim_Tbl_PVT;
9552: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
9553: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
9554: FND_MESSAGE.Set_Name('OZF','OZF_CLAIM_TBL_ERR');
9555: FND_MESSAGE.Set_Token('ROW',l_err_row);
9556: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
9557: END IF;
9558: -- Standard call to get message count and if count=1, get the message
9559: FND_MSG_PUB.Count_And_Get (