9:
10: G_PKG_NAME CONSTANT VARCHAR2(20) := 'OZF_CLAIM_GRP';
11: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfgclab.pls';
12:
13: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15:
16: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
17:
10: G_PKG_NAME CONSTANT VARCHAR2(20) := 'OZF_CLAIM_GRP';
11: G_FILE_NAME CONSTANT VARCHAR2(12) := 'ozfgclab.pls';
12:
13: OZF_DEBUG_HIGH_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_high);
14: OZF_DEBUG_LOW_ON CONSTANT BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
15:
16: G_LOG_LEVEL CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
17:
18: G_DEDUCTION_CLASS CONSTANT VARCHAR2(20) := 'DEDUCTION';
331: EXCEPTION
332: WHEN FND_API.G_EXC_ERROR THEN
333: x_return_status := FND_API.G_RET_STS_ERROR;
334: -- Standard call to get message count and if count=1, get the message
335: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
336: ,p_count => x_msg_count
337: ,p_data => x_msg_data
338: );
339:
339:
340: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
341: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
342: -- Standard call to get message count and if count=1, get the message
343: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
344: ,p_count => x_msg_count
345: ,p_data => x_msg_data
346: );
347:
346: );
347:
348: WHEN OTHERS THEN
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
351: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
352: FND_MSG_PUB.add;
353: END IF;
354: -- Standard call to get message count and if count=1, get the message
348: WHEN OTHERS THEN
349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
350: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
351: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
352: FND_MSG_PUB.add;
353: END IF;
354: -- Standard call to get message count and if count=1, get the message
355: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
356: ,p_count => x_msg_count
351: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
352: FND_MSG_PUB.add;
353: END IF;
354: -- Standard call to get message count and if count=1, get the message
355: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
356: ,p_count => x_msg_count
357: ,p_data => x_msg_data
358: );
359: END update_parent_amounts;
422:
423: EXCEPTION
424: WHEN OTHERS THEN
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
427: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
428: FND_MSG_PUB.add;
429: END IF;
430: -- Standard call to get message count and if count=1, get the message
424: WHEN OTHERS THEN
425: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
426: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
427: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
428: FND_MSG_PUB.add;
429: END IF;
430: -- Standard call to get message count and if count=1, get the message
431: FND_MSG_PUB.Count_And_Get (
432: p_encoded => FND_API.G_FALSE,
427: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
428: FND_MSG_PUB.add;
429: END IF;
430: -- Standard call to get message count and if count=1, get the message
431: FND_MSG_PUB.Count_And_Get (
432: p_encoded => FND_API.G_FALSE,
433: p_count => x_msg_count,
434: p_data => x_msg_data
435: );
540: END IF;
541:
542: -- Initialize message list if p_init_msg_list is set to TRUE.
543: IF FND_API.to_Boolean( p_init_msg_list ) THEN
544: FND_MSG_PUB.initialize;
545: END IF;
546:
547: -- Initialize API return status to SUCCESS
548: x_return_status := FND_API.G_RET_STS_SUCCESS;
652: IF l_deduction_rec.cust_account_id IS NULL OR
653: l_deduction_rec.receipt_id IS NULL OR
654: l_deduction_rec.currency_code IS NULL OR
655: l_deduction_rec.amount IS NULL THEN
656: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
657: FND_MESSAGE.Set_Name('OZF','OZF_REQUIRED_FIELDS_MISSING');
658: FND_MSG_PUB.Add;
659: END IF;
660: RAISE FND_API.g_exc_error;
654: l_deduction_rec.currency_code IS NULL OR
655: l_deduction_rec.amount IS NULL THEN
656: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
657: FND_MESSAGE.Set_Name('OZF','OZF_REQUIRED_FIELDS_MISSING');
658: FND_MSG_PUB.Add;
659: END IF;
660: RAISE FND_API.g_exc_error;
661: ELSIF l_deduction_rec.source_object_id IS NOT NULL AND
662: l_deduction_rec.source_object_type_id IS NULL THEN
660: RAISE FND_API.g_exc_error;
661: ELSIF l_deduction_rec.source_object_id IS NOT NULL AND
662: l_deduction_rec.source_object_type_id IS NULL THEN
663: -- source_object_type_id is required for transaction-related deduction.
664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
665: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
666: FND_MSG_PUB.add;
667: END IF;
668: RAISE FND_API.g_exc_error;
662: l_deduction_rec.source_object_type_id IS NULL THEN
663: -- source_object_type_id is required for transaction-related deduction.
664: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
665: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_SRC_INFO_MISSING');
666: FND_MSG_PUB.add;
667: END IF;
668: RAISE FND_API.g_exc_error;
669: END IF;
670:
873: COMMIT WORK;
874: END IF;
875:
876: -- Debug Message
877: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
878: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
879: FND_MESSAGE.Set_Token('TEXT',l_full_name||'End');
880: FND_MSG_PUB.Add;
881: END IF;
876: -- Debug Message
877: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
878: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
879: FND_MESSAGE.Set_Token('TEXT',l_full_name||'End');
880: FND_MSG_PUB.Add;
881: END IF;
882:
883: -- Standard call to get message count and if count is 1, get message info.
884: FND_MSG_PUB.Count_And_Get(
880: FND_MSG_PUB.Add;
881: END IF;
882:
883: -- Standard call to get message count and if count is 1, get message info.
884: FND_MSG_PUB.Count_And_Get(
885: p_count => x_msg_count,
886: p_data => x_msg_data
887: );
888:
889: EXCEPTION
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO CREATE_CLAIM_GRP;
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: FND_MSG_PUB.Count_And_Get (
894: p_encoded => FND_API.G_FALSE,
895: p_count => x_msg_count,
896: p_data => x_msg_data
897: );
898:
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: ROLLBACK TO CREATE_CLAIM_GRP;
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
903: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
904: FND_MSG_PUB.add;
905: END IF;
906: FND_MSG_PUB.Count_And_Get (
900: ROLLBACK TO CREATE_CLAIM_GRP;
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
903: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
904: FND_MSG_PUB.add;
905: END IF;
906: FND_MSG_PUB.Count_And_Get (
907: p_encoded => FND_API.G_FALSE,
908: p_count => x_msg_count,
902: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
903: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
904: FND_MSG_PUB.add;
905: END IF;
906: FND_MSG_PUB.Count_And_Get (
907: p_encoded => FND_API.G_FALSE,
908: p_count => x_msg_count,
909: p_data => x_msg_data
910: );
911:
912: WHEN OTHERS THEN
913: ROLLBACK TO CREATE_CLAIM_GRP;
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
915: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
916: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
917: FND_MSG_PUB.add;
918: END IF;
919: FND_MSG_PUB.Count_And_Get (
913: ROLLBACK TO CREATE_CLAIM_GRP;
914: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
915: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
916: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
917: FND_MSG_PUB.add;
918: END IF;
919: FND_MSG_PUB.Count_And_Get (
920: p_encoded => FND_API.G_FALSE,
921: p_count => x_msg_count,
915: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
916: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CRE_DEDU_ERR');
917: FND_MSG_PUB.add;
918: END IF;
919: FND_MSG_PUB.Count_And_Get (
920: p_encoded => FND_API.G_FALSE,
921: p_count => x_msg_count,
922: p_data => x_msg_data
923: );
1155: WHEN OTHERS THEN
1156: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1157: FND_MESSAGE.set_name('OZF', 'OZF_API_DEBUG_MESSAGE');
1158: FND_MESSAGE.set_token('TEXT', l_full_name||'An error happened in '||l_full_name);
1159: FND_MSG_PUB.add;
1160:
1161: END Check_Update_Allowed;
1162:
1163:
1336: IF l_split_flag = 'NO' THEN
1337:
1338: IF l_status_code <> 'CLOSED' THEN
1339: IF l_status_code = 'PENDING_CLOSE' THEN
1340: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1341: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_STATUS_PENDING_CLOSE');
1342: FND_MSG_PUB.add;
1343: END IF;
1344: RAISE FND_API.G_EXC_ERROR;
1338: IF l_status_code <> 'CLOSED' THEN
1339: IF l_status_code = 'PENDING_CLOSE' THEN
1340: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1341: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_STATUS_PENDING_CLOSE');
1342: FND_MSG_PUB.add;
1343: END IF;
1344: RAISE FND_API.G_EXC_ERROR;
1345: END IF;
1346:
1529: IF l_status_code <> 'CLOSED' THEN
1530:
1531: FOR ref_split_claim_csr in split_claim_csr(l_deduction_rec.claim_id) LOOP
1532: IF ref_split_claim_csr.status_code = 'PENDING_CLOSE' THEN
1533: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1534: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_STATUS_PENDING_CLOSE');
1535: FND_MSG_PUB.add;
1536: END IF;
1537: RAISE FND_API.G_EXC_ERROR;
1531: FOR ref_split_claim_csr in split_claim_csr(l_deduction_rec.claim_id) LOOP
1532: IF ref_split_claim_csr.status_code = 'PENDING_CLOSE' THEN
1533: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1534: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_STATUS_PENDING_CLOSE');
1535: FND_MSG_PUB.add;
1536: END IF;
1537: RAISE FND_API.G_EXC_ERROR;
1538: END IF;
1539: END LOOP;
1790:
1791: END IF; --IF l_split_flag = 'YES' THEN
1792:
1793:
1794: FND_MSG_PUB.count_and_get(
1795: p_encoded => FND_API.g_false,
1796: p_count => x_msg_count,
1797: p_data => x_msg_data
1798: );
1803: EXCEPTION
1804: WHEN FND_API.G_EXC_ERROR THEN
1805: x_return_status := FND_API.G_RET_STS_ERROR;
1806: -- Standard call to get message count and if count=1, get the message
1807: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
1808: ,p_count => x_msg_count
1809: ,p_data => x_msg_data
1810: );
1811:
1811:
1812: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1813: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1814: -- Standard call to get message count and if count=1, get the message
1815: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
1816: ,p_count => x_msg_count
1817: ,p_data => x_msg_data
1818: );
1819:
1818: );
1819:
1820: WHEN OTHERS THEN
1821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1822: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1823: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
1824: FND_MSG_PUB.add;
1825: END IF;
1826: -- Standard call to get message count and if count=1, get the message
1820: WHEN OTHERS THEN
1821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1822: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1823: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
1824: FND_MSG_PUB.add;
1825: END IF;
1826: -- Standard call to get message count and if count=1, get the message
1827: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
1828: ,p_count => x_msg_count
1823: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
1824: FND_MSG_PUB.add;
1825: END IF;
1826: -- Standard call to get message count and if count=1, get the message
1827: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
1828: ,p_count => x_msg_count
1829: ,p_data => x_msg_data
1830: );
1831:
2060: END IF;
2061: END IF;
2062:
2063: IF l_status_code = 'PENDING_CLOSE' THEN
2064: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2065: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_STATUS_PENDING_CLOSE');
2066: FND_MSG_PUB.add;
2067: END IF;
2068: RAISE FND_API.G_EXC_ERROR;
2062:
2063: IF l_status_code = 'PENDING_CLOSE' THEN
2064: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2065: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_STATUS_PENDING_CLOSE');
2066: FND_MSG_PUB.add;
2067: END IF;
2068: RAISE FND_API.G_EXC_ERROR;
2069: END IF;
2070:
2265: Write_Log(l_full_name, 'Update Allowed ? ' || l_update_allowed_flag );
2266:
2267: IF l_update_allowed_flag = 'N' THEN
2268:
2269: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2270: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_STATUS_PENDING_CLOSE');
2271: FND_MSG_PUB.add;
2272: END IF;
2273: RAISE FND_API.G_EXC_ERROR;
2267: IF l_update_allowed_flag = 'N' THEN
2268:
2269: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2270: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_STATUS_PENDING_CLOSE');
2271: FND_MSG_PUB.add;
2272: END IF;
2273: RAISE FND_API.G_EXC_ERROR;
2274: END IF;
2275:
2484: END IF;-- Status Flag
2485: END IF; --IF l_split_flag = 'YES' THEN
2486:
2487: -- Standard call to get message count and if count is 1, get message info.
2488: FND_MSG_PUB.Count_And_Get
2489: (p_count => x_msg_count,
2490: p_data => x_msg_data
2491: );
2492:
2495: EXCEPTION
2496: WHEN FND_API.G_EXC_ERROR THEN
2497: x_return_status := FND_API.G_RET_STS_ERROR;
2498: -- Standard call to get message count and if count=1, get the message
2499: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
2500: ,p_count => x_msg_count
2501: ,p_data => x_msg_data
2502: );
2503:
2503:
2504: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2506: -- Standard call to get message count and if count=1, get the message
2507: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
2508: ,p_count => x_msg_count
2509: ,p_data => x_msg_data
2510: );
2511: WHEN OTHERS THEN
2509: ,p_data => x_msg_data
2510: );
2511: WHEN OTHERS THEN
2512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2513: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2514: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
2515: FND_MSG_PUB.add;
2516: END IF;
2517: -- Standard call to get message count and if count=1, get the message
2511: WHEN OTHERS THEN
2512: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2513: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2514: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
2515: FND_MSG_PUB.add;
2516: END IF;
2517: -- Standard call to get message count and if count=1, get the message
2518: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
2519: ,p_count => x_msg_count
2514: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
2515: FND_MSG_PUB.add;
2516: END IF;
2517: -- Standard call to get message count and if count=1, get the message
2518: FND_MSG_PUB.Count_And_Get(p_encoded => FND_API.G_FALSE
2519: ,p_count => x_msg_count
2520: ,p_data => x_msg_data
2521: );
2522:
2587:
2588: EXCEPTION
2589: WHEN OTHERS THEN
2590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2591: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2592: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
2593: FND_MSG_PUB.add;
2594: END IF;
2595: FND_MSG_PUB.Count_And_Get (
2589: WHEN OTHERS THEN
2590: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2591: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2592: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
2593: FND_MSG_PUB.add;
2594: END IF;
2595: FND_MSG_PUB.Count_And_Get (
2596: p_encoded => FND_API.G_FALSE,
2597: p_count => x_msg_count,
2591: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2592: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
2593: FND_MSG_PUB.add;
2594: END IF;
2595: FND_MSG_PUB.Count_And_Get (
2596: p_encoded => FND_API.G_FALSE,
2597: p_count => x_msg_count,
2598: p_data => x_msg_data
2599: );
2778: END IF;
2779:
2780: -- Initialize message list if p_init_msg_list is set to TRUE.
2781: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2782: FND_MSG_PUB.initialize;
2783: END IF;
2784:
2785: -- Initialize API return status to SUCCESS
2786: x_return_status := FND_API.G_RET_STS_SUCCESS;
2790: -----------------------------------------
2791: -- "claim_id" or "source_object_id" is required field for updat_deduction
2792: IF l_deduction_rec.claim_id IS NULL AND
2793: l_deduction_rec.source_object_id IS NULL THEN
2794: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2795: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INSUFFICIENT_VAL');
2796: FND_MSG_PUB.add;
2797: END IF;
2798: RAISE FND_API.G_EXC_ERROR;
2792: IF l_deduction_rec.claim_id IS NULL AND
2793: l_deduction_rec.source_object_id IS NULL THEN
2794: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2795: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INSUFFICIENT_VAL');
2796: FND_MSG_PUB.add;
2797: END IF;
2798: RAISE FND_API.G_EXC_ERROR;
2799: END IF;
2800:
2799: END IF;
2800:
2801: IF l_deduction_rec.applied_action_type IS NULL OR
2802: l_deduction_rec.applied_action_type NOT IN ('A','U') THEN
2803: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2804: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_ACTION');
2805: FND_MSG_PUB.add;
2806: END IF;
2807: RAISE FND_API.G_EXC_ERROR;
2801: IF l_deduction_rec.applied_action_type IS NULL OR
2802: l_deduction_rec.applied_action_type NOT IN ('A','U') THEN
2803: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2804: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_ACTION');
2805: FND_MSG_PUB.add;
2806: END IF;
2807: RAISE FND_API.G_EXC_ERROR;
2808: ELSE
2809: IF l_deduction_rec.applied_action_type = 'A' THEN
2808: ELSE
2809: IF l_deduction_rec.applied_action_type = 'A' THEN
2810: IF l_deduction_rec.amount IS NULL OR
2811: l_deduction_rec.receipt_id IS NULL THEN
2812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2813: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_INSUFFICIENT_VAL_A');
2814: FND_MSG_PUB.add;
2815: END IF;
2816: RAISE FND_API.G_EXC_ERROR;
2810: IF l_deduction_rec.amount IS NULL OR
2811: l_deduction_rec.receipt_id IS NULL THEN
2812: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2813: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_INSUFFICIENT_VAL_A');
2814: FND_MSG_PUB.add;
2815: END IF;
2816: RAISE FND_API.G_EXC_ERROR;
2817: END IF;
2818: ELSIF l_deduction_rec.applied_action_type = 'U' THEN
2818: ELSIF l_deduction_rec.applied_action_type = 'U' THEN
2819: IF l_deduction_rec.amount IS NULL OR
2820: l_deduction_rec.amount_applied IS NULL OR
2821: l_deduction_rec.applied_receipt_id IS NULL THEN
2822: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2823: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_INSUFFICIENT_VAL_U');
2824: FND_MSG_PUB.add;
2825: END IF;
2826: RAISE FND_API.G_EXC_ERROR;
2820: l_deduction_rec.amount_applied IS NULL OR
2821: l_deduction_rec.applied_receipt_id IS NULL THEN
2822: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2823: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_INSUFFICIENT_VAL_U');
2824: FND_MSG_PUB.add;
2825: END IF;
2826: RAISE FND_API.G_EXC_ERROR;
2827: END IF;
2828: END IF;
2883: ) OR
2884: (l_deduction_rec.amount IS NULL OR
2885: l_deduction_rec.amount = FND_API.G_MISS_NUM
2886: ) THEN
2887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2888: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INSUF_VAL_UPD');
2889: FND_MSG_PUB.add;
2890: END IF;
2891: RAISE FND_API.G_EXC_ERROR;
2885: l_deduction_rec.amount = FND_API.G_MISS_NUM
2886: ) THEN
2887: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2888: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INSUF_VAL_UPD');
2889: FND_MSG_PUB.add;
2890: END IF;
2891: RAISE FND_API.G_EXC_ERROR;
2892: ELSE
2893: IF l_deduction_rec.applied_action_type = 'A' THEN
2896: ) OR
2897: (l_deduction_rec.applied_receipt_id IS NULL OR
2898: l_deduction_rec.applied_receipt_id = FND_API.G_MISS_NUM
2899: ) THEN
2900: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2901: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INSUF_VAL_UPD');
2902: FND_MSG_PUB.add;
2903: END IF;
2904: RAISE FND_API.G_EXC_ERROR;
2898: l_deduction_rec.applied_receipt_id = FND_API.G_MISS_NUM
2899: ) THEN
2900: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2901: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INSUF_VAL_UPD');
2902: FND_MSG_PUB.add;
2903: END IF;
2904: RAISE FND_API.G_EXC_ERROR;
2905: END IF;
2906: ELSIF l_deduction_rec.applied_action_type = 'U' THEN
2909: ) OR
2910: (l_deduction_rec.applied_receipt_id IS NULL OR
2911: l_deduction_rec.applied_receipt_id = FND_API.G_MISS_NUM
2912: ) THEN
2913: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2914: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INSUF_VAL_UPD');
2915: FND_MSG_PUB.add;
2916: END IF;
2917: RAISE FND_API.G_EXC_ERROR;
2911: l_deduction_rec.applied_receipt_id = FND_API.G_MISS_NUM
2912: ) THEN
2913: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2914: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INSUF_VAL_UPD');
2915: FND_MSG_PUB.add;
2916: END IF;
2917: RAISE FND_API.G_EXC_ERROR;
2918: END IF;
2919: ELSE
2916: END IF;
2917: RAISE FND_API.G_EXC_ERROR;
2918: END IF;
2919: ELSE
2920: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2921: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_ACTION_UPD');
2922: FND_MSG_PUB.add;
2923: END IF;
2924: RAISE FND_API.G_EXC_ERROR;
2918: END IF;
2919: ELSE
2920: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2921: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_INVALID_ACTION_UPD');
2922: FND_MSG_PUB.add;
2923: END IF;
2924: RAISE FND_API.G_EXC_ERROR;
2925: END IF;
2926: END IF;
3042: COMMIT WORK;
3043: END IF;
3044:
3045: -- Standard call to get message count and if count is 1, get message info.
3046: FND_MSG_PUB.Count_And_Get(
3047: p_count => x_msg_count,
3048: p_data => x_msg_data
3049: );
3050:
3051: EXCEPTION
3052: WHEN FND_API.G_EXC_ERROR THEN
3053: ROLLBACK TO UPDATE_CLAIM_GRP;
3054: x_return_status := FND_API.G_RET_STS_ERROR;
3055: FND_MSG_PUB.Count_And_Get (
3056: p_encoded => FND_API.G_FALSE,
3057: p_count => x_msg_count,
3058: p_data => x_msg_data
3059: );
3060:
3061: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3062: ROLLBACK TO UPDATE_CLAIM_GRP;
3063: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3064: FND_MSG_PUB.Count_And_Get (
3065: p_encoded => FND_API.G_FALSE,
3066: p_count => x_msg_count,
3067: p_data => x_msg_data
3068: );
3069:
3070: WHEN OTHERS THEN
3071: ROLLBACK TO UPDATE_claim_GRP;
3072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3073: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3074: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
3075: FND_MSG_PUB.add;
3076: END IF;
3077: FND_MSG_PUB.Count_And_Get (
3071: ROLLBACK TO UPDATE_claim_GRP;
3072: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3073: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3074: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
3075: FND_MSG_PUB.add;
3076: END IF;
3077: FND_MSG_PUB.Count_And_Get (
3078: p_encoded => FND_API.G_FALSE,
3079: p_count => x_msg_count,
3073: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3074: FND_MESSAGE.set_name('AMS', 'AMS_CLAIM_UPD_DEDU_ERR');
3075: FND_MSG_PUB.add;
3076: END IF;
3077: FND_MSG_PUB.Count_And_Get (
3078: p_encoded => FND_API.G_FALSE,
3079: p_count => x_msg_count,
3080: p_data => x_msg_data
3081: );
3286: WHEN OTHERS THEN
3287: IF csr_get_claim_dtls%ISOPEN THEN
3288: CLOSE csr_get_claim_dtls;
3289: END IF;
3290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3291: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3292: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3293: FND_MSG_PUB.Add;
3294: END IF;
3289: END IF;
3290: IF FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3291: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
3292: FND_MESSAGE.Set_Token('TEXT',sqlerrm);
3293: FND_MSG_PUB.Add;
3294: END IF;
3295: x_application_ref_num := NULL;
3296: x_secondary_appl_ref_id := NULL;
3297: x_customer_reference := NULL;