32: G_NEW_STATUS CONSTANT VARCHAR2(30) :='NEW';
33: G_CLAIM_TYPE CONSTANT VARCHAR2(30) :='OZF_CLAM';
34: G_CLAIM_HIST_OBJ_TYPE CONSTANT VARCHAR2(30) :='CLAMHIST';
35:
36: OZF_DEBUG_LOW_ON BOOLEAN := FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_debug_low);
37:
38: -- define types private to this package.
39:
40: ---------------------------------------------------------------------
77: -- Debug Message
78: IF OZF_DEBUG_LOW_ON THEN
79: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
80: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
81: FND_MSG_PUB.Add;
82: END IF;
83:
84: x_complete_rec := p_claim_history_rec;
85:
86: OPEN c_claim_history_csr(p_claim_history_rec.claim_history_id);
87: FETCH c_claim_history_csr INTO l_claim_history_rec;
88: IF c_claim_history_csr%NOTFOUND THEN
89: CLOSE c_claim_history_csr;
90: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
91: FND_MESSAGE.set_name('OZF','OZF_API_RECORD_NOT_FOUND');
92: FND_MSG_PUB.add;
93: END IF;
94: RAISE FND_API.g_exc_error;
88: IF c_claim_history_csr%NOTFOUND THEN
89: CLOSE c_claim_history_csr;
90: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
91: FND_MESSAGE.set_name('OZF','OZF_API_RECORD_NOT_FOUND');
92: FND_MSG_PUB.add;
93: END IF;
94: RAISE FND_API.g_exc_error;
95: END IF;
96: CLOSE c_claim_history_csr;
897: -- Debug Message
898: IF OZF_DEBUG_LOW_ON THEN
899: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
900: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
901: FND_MSG_PUB.Add;
902: END IF;
903: EXCEPTION
904: WHEN FND_API.G_EXC_ERROR THEN
905: x_return_status := FND_API.G_RET_STS_ERROR;
903: EXCEPTION
904: WHEN FND_API.G_EXC_ERROR THEN
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: WHEN OTHERS THEN
907: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
908: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_HIST_COMPLETE_ERR');
909: FND_MSG_PUB.add;
910: END IF;
911: x_return_status := FND_API.g_ret_sts_unexp_error;
905: x_return_status := FND_API.G_RET_STS_ERROR;
906: WHEN OTHERS THEN
907: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
908: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_HIST_COMPLETE_ERR');
909: FND_MSG_PUB.add;
910: END IF;
911: x_return_status := FND_API.g_ret_sts_unexp_error;
912: END Complete_Claim_History_Rec;
913:
966:
967: -- Initialize message list if p_init_msg_list is set to TRUE.
968: IF FND_API.to_Boolean( p_init_msg_list )
969: THEN
970: FND_MSG_PUB.initialize;
971: END IF;
972:
973: IF OZF_DEBUG_LOW_ON THEN
974: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
972:
973: IF OZF_DEBUG_LOW_ON THEN
974: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
975: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
976: FND_MSG_PUB.Add;
977: END IF;
978:
979: -- Initialize API return status to SUCCESS
980: x_return_status := FND_API.G_RET_STS_SUCCESS;
982: -- ******************************************************************
983: -- Validate Environment
984: -- ******************************************************************
985: IF (FND_GLOBAL.User_Id IS NULL) THEN
986: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
987: FND_MESSAGE.Set_Name('OZF', 'USER_PROFILE_MISSING');
988: FND_MSG_PUB.ADD;
989: END IF;
990: RAISE FND_API.G_EXC_ERROR;
984: -- ******************************************************************
985: IF (FND_GLOBAL.User_Id IS NULL) THEN
986: IF (FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)) THEN
987: FND_MESSAGE.Set_Name('OZF', 'USER_PROFILE_MISSING');
988: FND_MSG_PUB.ADD;
989: END IF;
990: RAISE FND_API.G_EXC_ERROR;
991: END IF;
992:
1167:
1168: );
1169: EXCEPTION
1170: WHEN OTHERS THEN
1171: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1172: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
1173: FND_MSG_PUB.add;
1174: END IF;
1175: RAISE FND_API.g_exc_error;
1169: EXCEPTION
1170: WHEN OTHERS THEN
1171: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1172: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
1173: FND_MSG_PUB.add;
1174: END IF;
1175: RAISE FND_API.g_exc_error;
1176: END;
1177:
1184:
1185: IF OZF_DEBUG_LOW_ON THEN
1186: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1187: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
1188: FND_MSG_PUB.Add;
1189: END IF;
1190:
1191: -- Standard call to get message count and if count is 1, get message info.
1192: FND_MSG_PUB.Count_And_Get(
1188: FND_MSG_PUB.Add;
1189: END IF;
1190:
1191: -- Standard call to get message count and if count is 1, get message info.
1192: FND_MSG_PUB.Count_And_Get(
1193: p_count => x_msg_count,
1194: p_data => x_msg_data
1195: );
1196: EXCEPTION
1200: WHEN FND_API.G_EXC_ERROR THEN
1201: ROLLBACK TO CREATE_Claims_History_PVT;
1202: x_return_status := FND_API.G_RET_STS_ERROR;
1203: -- Standard call to get message count and if count=1, get the message
1204: FND_MSG_PUB.Count_And_Get (
1205: p_encoded => FND_API.G_FALSE,
1206: p_count => x_msg_count,
1207: p_data => x_msg_data
1208: );
1209: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1210: ROLLBACK TO CREATE_Claims_History_PVT;
1211: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1212: -- Standard call to get message count and if count=1, get the message
1213: FND_MSG_PUB.Count_And_Get (
1214: p_encoded => FND_API.G_FALSE,
1215: p_count => x_msg_count,
1216: p_data => x_msg_data
1217: );
1217: );
1218: WHEN OTHERS THEN
1219: ROLLBACK TO CREATE_Claims_History_PVT;
1220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1221: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1222: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1223: END IF;
1224: -- Standard call to get message count and if count=1, get the message
1225: FND_MSG_PUB.Count_And_Get (
1218: WHEN OTHERS THEN
1219: ROLLBACK TO CREATE_Claims_History_PVT;
1220: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1221: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1222: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1223: END IF;
1224: -- Standard call to get message count and if count=1, get the message
1225: FND_MSG_PUB.Count_And_Get (
1226: p_encoded => FND_API.G_FALSE,
1221: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1222: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1223: END IF;
1224: -- Standard call to get message count and if count=1, get the message
1225: FND_MSG_PUB.Count_And_Get (
1226: p_encoded => FND_API.G_FALSE,
1227: p_count => x_msg_count,
1228: p_data => x_msg_data
1229: );
1336: x_return_status := FND_API.G_RET_STS_ERROR;
1337: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: WHEN OTHERS THEN
1340: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1341: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CHK_CRT_HIST_ERR');
1342: FND_MSG_PUB.add;
1343: END IF;
1344: x_return_status := FND_API.g_ret_sts_unexp_error;
1338: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: WHEN OTHERS THEN
1340: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1341: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CHK_CRT_HIST_ERR');
1342: FND_MSG_PUB.add;
1343: END IF;
1344: x_return_status := FND_API.g_ret_sts_unexp_error;
1345: END check_create_history;
1346: */
1443:
1444: IF OZF_DEBUG_LOW_ON THEN
1445: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1446: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
1447: FND_MSG_PUB.Add;
1448: END IF;
1449:
1450: -- First based on event, we check history
1451: IF (p_event = G_NEW_EVENT) THEN
1913: END IF;
1914: IF OZF_DEBUG_LOW_ON THEN
1915: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1916: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
1917: FND_MSG_PUB.Add;
1918: END IF;
1919:
1920: EXCEPTION
1921: WHEN FND_API.G_EXC_ERROR THEN
1922: x_return_status := FND_API.G_RET_STS_ERROR;
1923: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1925: WHEN OTHERS THEN
1926: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1927: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CHK_CREATE_HIST_ERR');
1928: FND_MSG_PUB.add;
1929: END IF;
1930: x_return_status := FND_API.g_ret_sts_unexp_error;
1924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1925: WHEN OTHERS THEN
1926: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1927: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CHK_CREATE_HIST_ERR');
1928: FND_MSG_PUB.add;
1929: END IF;
1930: x_return_status := FND_API.g_ret_sts_unexp_error;
1931: END check_create_history;
1932:
2019:
2020: IF OZF_DEBUG_LOW_ON THEN
2021: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2022: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
2023: FND_MSG_PUB.Add;
2024: END IF;
2025:
2026: OPEN claim_csr(p_claim_id);
2027: FETCH claim_csr INTO l_claim_rec;
2318:
2319: IF OZF_DEBUG_LOW_ON THEN
2320: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2321: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
2322: FND_MSG_PUB.Add;
2323: END IF;
2324: EXCEPTION
2325: WHEN FND_API.G_EXC_ERROR THEN
2326: x_return_status := FND_API.G_RET_STS_ERROR;
2326: x_return_status := FND_API.G_RET_STS_ERROR;
2327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2329: WHEN OTHERS THEN
2330: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2331: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CREATE_HIST_ERR');
2332: FND_MSG_PUB.add;
2333: END IF;
2334: x_return_status := FND_API.g_ret_sts_unexp_error;
2328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2329: WHEN OTHERS THEN
2330: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2331: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CREATE_HIST_ERR');
2332: FND_MSG_PUB.add;
2333: END IF;
2334: x_return_status := FND_API.g_ret_sts_unexp_error;
2335: END create_history;
2336:
2385:
2386: -- Initialize message list if p_init_msg_list is set to TRUE.
2387: IF FND_API.to_Boolean( p_init_msg_list )
2388: THEN
2389: FND_MSG_PUB.initialize;
2390: END IF;
2391:
2392: -- Initialize API return status to SUCCESS
2393: x_return_status := FND_API.G_RET_STS_SUCCESS;
2398: -- Debug Message
2399: IF OZF_DEBUG_LOW_ON THEN
2400: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2401: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
2402: FND_MSG_PUB.Add;
2403: END IF;
2404:
2405: -- Invoke table handler(OZF_claims_history_PKG.Delete_Row)
2406: OPEN version_csr(p_claim_history_id);
2412: OZF_claims_history_PKG.Delete_Row(
2413: p_CLAIM_HISTORY_ID => p_CLAIM_HISTORY_ID);
2414: EXCEPTION
2415: WHEN OTHERS THEN
2416: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2417: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2418: FND_MSG_PUB.add;
2419: END IF;
2420: RAISE FND_API.g_exc_error;
2414: EXCEPTION
2415: WHEN OTHERS THEN
2416: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2417: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2418: FND_MSG_PUB.add;
2419: END IF;
2420: RAISE FND_API.g_exc_error;
2421: END;
2422: ELSE
2419: END IF;
2420: RAISE FND_API.g_exc_error;
2421: END;
2422: ELSE
2423: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2424: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
2425: FND_MSG_PUB.add;
2426: END IF;
2427: RAISE FND_API.g_exc_error;
2421: END;
2422: ELSE
2423: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2424: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
2425: FND_MSG_PUB.add;
2426: END IF;
2427: RAISE FND_API.g_exc_error;
2428: END IF;
2429:
2440: -- Debug Message
2441: IF OZF_DEBUG_LOW_ON THEN
2442: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2443: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
2444: FND_MSG_PUB.Add;
2445: END IF;
2446:
2447: -- Standard call to get message count and if count is 1, get message info.
2448: FND_MSG_PUB.Count_And_Get
2444: FND_MSG_PUB.Add;
2445: END IF;
2446:
2447: -- Standard call to get message count and if count is 1, get message info.
2448: FND_MSG_PUB.Count_And_Get
2449: (p_count => x_msg_count,
2450: p_data => x_msg_data
2451: );
2452: EXCEPTION
2453: WHEN FND_API.G_EXC_ERROR THEN
2454: ROLLBACK TO DELETE_CLAIMS_HISTORY_PVT;
2455: x_return_status := FND_API.G_RET_STS_ERROR;
2456: -- Standard call to get message count and if count=1, get the message
2457: FND_MSG_PUB.Count_And_Get (
2458: p_encoded => FND_API.G_FALSE,
2459: p_count => x_msg_count,
2460: p_data => x_msg_data
2461: );
2462: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2463: ROLLBACK TO DELETE_CLAIMS_HISTORY_PVT;
2464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2465: -- Standard call to get message count and if count=1, get the message
2466: FND_MSG_PUB.Count_And_Get (
2467: p_encoded => FND_API.G_FALSE,
2468: p_count => x_msg_count,
2469: p_data => x_msg_data
2470: );
2470: );
2471: WHEN OTHERS THEN
2472: ROLLBACK TO DELETE_CLAIMS_HISTORY_PVT;
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2474: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2475: THEN
2476: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2477: END IF;
2478: -- Standard call to get message count and if count=1, get the message
2472: ROLLBACK TO DELETE_CLAIMS_HISTORY_PVT;
2473: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2474: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2475: THEN
2476: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2477: END IF;
2478: -- Standard call to get message count and if count=1, get the message
2479: FND_MSG_PUB.Count_And_Get (
2480: p_encoded => FND_API.G_FALSE,
2475: THEN
2476: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2477: END IF;
2478: -- Standard call to get message count and if count=1, get the message
2479: FND_MSG_PUB.Count_And_Get (
2480: p_encoded => FND_API.G_FALSE,
2481: p_count => x_msg_count,
2482: p_data => x_msg_data
2483: );
2540:
2541: -- Initialize message list if p_init_msg_list is set to TRUE.
2542: IF FND_API.to_Boolean( p_init_msg_list )
2543: THEN
2544: FND_MSG_PUB.initialize;
2545: END IF;
2546:
2547: -- Debug Message
2548: IF OZF_DEBUG_LOW_ON THEN
2547: -- Debug Message
2548: IF OZF_DEBUG_LOW_ON THEN
2549: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2550: FND_MESSAGE.Set_Token('TEXT',l_api_name||': START');
2551: FND_MSG_PUB.Add;
2552: END IF;
2553:
2554: -- Initialize API return status to SUCCESS
2555: x_return_status := FND_API.G_RET_STS_SUCCESS;
2555: x_return_status := FND_API.G_RET_STS_SUCCESS;
2556:
2557: If (P_CLAIMS_HISTORY_Rec.object_version_number is NULL or
2558: P_CLAIMS_HISTORY_Rec.object_version_number = FND_API.G_MISS_NUM ) Then
2559: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2560: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
2561: FND_MSG_PUB.ADD;
2562: END IF;
2563: raise FND_API.G_EXC_ERROR;
2557: If (P_CLAIMS_HISTORY_Rec.object_version_number is NULL or
2558: P_CLAIMS_HISTORY_Rec.object_version_number = FND_API.G_MISS_NUM ) Then
2559: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2560: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
2561: FND_MSG_PUB.ADD;
2562: END IF;
2563: raise FND_API.G_EXC_ERROR;
2564: End if;
2565:
2568: FETCH object_version_number_csr INTO l_object_version_number;
2569: CLOSE object_version_number_csr;
2570:
2571: IF l_object_version_number <> P_CLAIMS_HISTORY_Rec.object_version_number THEN
2572: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2573: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
2574: FND_MSG_PUB.ADD;
2575: END IF;
2576: RAISE FND_API.G_EXC_ERROR;
2570:
2571: IF l_object_version_number <> P_CLAIMS_HISTORY_Rec.object_version_number THEN
2572: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2573: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
2574: FND_MSG_PUB.ADD;
2575: END IF;
2576: RAISE FND_API.G_EXC_ERROR;
2577: END IF;
2578:
2752: p_BATCH_TYPE => l_CLAIMS_HISTORY_rec.BATCH_TYPE
2753: );
2754: EXCEPTION
2755: WHEN OTHERS THEN
2756: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2757: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
2758: FND_MSG_PUB.add;
2759: END IF;
2760: RAISE FND_API.g_exc_error;
2754: EXCEPTION
2755: WHEN OTHERS THEN
2756: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2757: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
2758: FND_MSG_PUB.add;
2759: END IF;
2760: RAISE FND_API.g_exc_error;
2761: END;
2762:
2770: -- Debug Message
2771: IF OZF_DEBUG_LOW_ON THEN
2772: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2773: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
2774: FND_MSG_PUB.Add;
2775: END IF;
2776:
2777: -- Standard call to get message count and if count is 1, get message info.
2778: FND_MSG_PUB.Count_And_Get
2774: FND_MSG_PUB.Add;
2775: END IF;
2776:
2777: -- Standard call to get message count and if count is 1, get message info.
2778: FND_MSG_PUB.Count_And_Get
2779: (p_count => x_msg_count,
2780: p_data => x_msg_data
2781: );
2782: EXCEPTION
2783: WHEN FND_API.G_EXC_ERROR THEN
2784: ROLLBACK TO UPDATE_CLAIMS_HISTORY_PVT;
2785: x_return_status := FND_API.G_RET_STS_ERROR;
2786: -- Standard call to get message count and if count=1, get the message
2787: FND_MSG_PUB.Count_And_Get (
2788: p_encoded => FND_API.G_FALSE,
2789: p_count => x_msg_count,
2790: p_data => x_msg_data
2791: );
2792: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2793: ROLLBACK TO UPDATE_CLAIMS_HISTORY_PVT;
2794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2795: -- Standard call to get message count and if count=1, get the message
2796: FND_MSG_PUB.Count_And_Get (
2797: p_encoded => FND_API.G_FALSE,
2798: p_count => x_msg_count,
2799: p_data => x_msg_data
2800: );
2800: );
2801: WHEN OTHERS THEN
2802: ROLLBACK TO UPDATE_CLAIMS_HISTORY_PVT;
2803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2804: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2805: THEN
2806: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2807: END IF;
2808: -- Standard call to get message count and if count=1, get the message
2802: ROLLBACK TO UPDATE_CLAIMS_HISTORY_PVT;
2803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2804: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2805: THEN
2806: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2807: END IF;
2808: -- Standard call to get message count and if count=1, get the message
2809: FND_MSG_PUB.Count_And_Get (
2810: p_encoded => FND_API.G_FALSE,
2805: THEN
2806: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2807: END IF;
2808: -- Standard call to get message count and if count=1, get the message
2809: FND_MSG_PUB.Count_And_Get (
2810: p_encoded => FND_API.G_FALSE,
2811: p_count => x_msg_count,
2812: p_data => x_msg_data
2813: );
2856:
2857: -- Initialize message list if p_init_msg_list is set to TRUE.
2858: IF FND_API.to_Boolean( p_init_msg_list )
2859: THEN
2860: FND_MSG_PUB.initialize;
2861: END IF;
2862:
2863: -- Api body
2864: --
2865: -- Debug Message
2866: IF OZF_DEBUG_LOW_ON THEN
2867: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2868: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
2869: FND_MSG_PUB.Add;
2870: END IF;
2871:
2872: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2873: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2883: -- Debug Message
2884: IF OZF_DEBUG_LOW_ON THEN
2885: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2886: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
2887: FND_MSG_PUB.Add;
2888: END IF;
2889:
2890: -- Standard call to get message count and if count is 1, get message info.
2891: FND_MSG_PUB.Count_And_Get
2887: FND_MSG_PUB.Add;
2888: END IF;
2889:
2890: -- Standard call to get message count and if count is 1, get message info.
2891: FND_MSG_PUB.Count_And_Get
2892: (p_count => x_msg_count,
2893: p_data => x_msg_data
2894: );
2895: EXCEPTION
2896: WHEN FND_API.G_EXC_ERROR THEN
2897: ROLLBACK TO VALIDATE_CLAIMS_HISTORY_PVT;
2898: x_return_status := FND_API.G_RET_STS_ERROR;
2899: -- Standard call to get message count and if count=1, get the message
2900: FND_MSG_PUB.Count_And_Get (
2901: p_encoded => FND_API.G_FALSE,
2902: p_count => x_msg_count,
2903: p_data => x_msg_data
2904: );
2905: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2906: ROLLBACK TO VALIDATE_CLAIMS_HISTORY_PVT;
2907: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2908: -- Standard call to get message count and if count=1, get the message
2909: FND_MSG_PUB.Count_And_Get (
2910: p_encoded => FND_API.G_FALSE,
2911: p_count => x_msg_count,
2912: p_data => x_msg_data
2913: );
2913: );
2914: WHEN OTHERS THEN
2915: ROLLBACK TO VALIDATE_CLAIMS_HISTORY_PVT;
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2918: THEN
2919: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2920: END IF;
2921: -- Standard call to get message count and if count=1, get the message
2915: ROLLBACK TO VALIDATE_CLAIMS_HISTORY_PVT;
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2918: THEN
2919: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2920: END IF;
2921: -- Standard call to get message count and if count=1, get the message
2922: FND_MSG_PUB.Count_And_Get (
2923: p_encoded => FND_API.G_FALSE,
2918: THEN
2919: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2920: END IF;
2921: -- Standard call to get message count and if count=1, get the message
2922: FND_MSG_PUB.Count_And_Get (
2923: p_encoded => FND_API.G_FALSE,
2924: p_count => x_msg_count,
2925: p_data => x_msg_data
2926: );