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: */
1445:
1446: IF OZF_DEBUG_LOW_ON THEN
1447: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1448: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
1449: FND_MSG_PUB.Add;
1450: END IF;
1451:
1452: -- First based on event, we check history
1453: IF (p_event = G_NEW_EVENT) THEN
1915: END IF;
1916: IF OZF_DEBUG_LOW_ON THEN
1917: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
1918: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
1919: FND_MSG_PUB.Add;
1920: END IF;
1921:
1922: EXCEPTION
1923: WHEN FND_API.G_EXC_ERROR THEN
1924: x_return_status := FND_API.G_RET_STS_ERROR;
1925: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1927: WHEN OTHERS THEN
1928: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1929: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CHK_CREATE_HIST_ERR');
1930: FND_MSG_PUB.add;
1931: END IF;
1932: x_return_status := FND_API.g_ret_sts_unexp_error;
1926: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1927: WHEN OTHERS THEN
1928: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
1929: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CHK_CREATE_HIST_ERR');
1930: FND_MSG_PUB.add;
1931: END IF;
1932: x_return_status := FND_API.g_ret_sts_unexp_error;
1933: END check_create_history;
1934:
2021:
2022: IF OZF_DEBUG_LOW_ON THEN
2023: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2024: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
2025: FND_MSG_PUB.Add;
2026: END IF;
2027:
2028: -- update the history related columns for the claim
2029: UPDATE ozf_claims_all
2320:
2321: IF OZF_DEBUG_LOW_ON THEN
2322: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2323: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
2324: FND_MSG_PUB.Add;
2325: END IF;
2326: EXCEPTION
2327: WHEN FND_API.G_EXC_ERROR THEN
2328: x_return_status := FND_API.G_RET_STS_ERROR;
2328: x_return_status := FND_API.G_RET_STS_ERROR;
2329: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: WHEN OTHERS THEN
2332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2333: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CREATE_HIST_ERR');
2334: FND_MSG_PUB.add;
2335: END IF;
2336: x_return_status := FND_API.g_ret_sts_unexp_error;
2330: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2331: WHEN OTHERS THEN
2332: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2333: FND_MESSAGE.set_name('OZF', 'OZF_CLAIM_CREATE_HIST_ERR');
2334: FND_MSG_PUB.add;
2335: END IF;
2336: x_return_status := FND_API.g_ret_sts_unexp_error;
2337: END create_history;
2338:
2387:
2388: -- Initialize message list if p_init_msg_list is set to TRUE.
2389: IF FND_API.to_Boolean( p_init_msg_list )
2390: THEN
2391: FND_MSG_PUB.initialize;
2392: END IF;
2393:
2394: -- Initialize API return status to SUCCESS
2395: x_return_status := FND_API.G_RET_STS_SUCCESS;
2400: -- Debug Message
2401: IF OZF_DEBUG_LOW_ON THEN
2402: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2403: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
2404: FND_MSG_PUB.Add;
2405: END IF;
2406:
2407: -- Invoke table handler(OZF_claims_history_PKG.Delete_Row)
2408: OPEN version_csr(p_claim_history_id);
2414: OZF_claims_history_PKG.Delete_Row(
2415: p_CLAIM_HISTORY_ID => p_CLAIM_HISTORY_ID);
2416: EXCEPTION
2417: WHEN OTHERS THEN
2418: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2419: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2420: FND_MSG_PUB.add;
2421: END IF;
2422: RAISE FND_API.g_exc_error;
2416: EXCEPTION
2417: WHEN OTHERS THEN
2418: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2419: FND_MESSAGE.set_name('OZF', 'OZF_API_RECORD_NOT_FOUND');
2420: FND_MSG_PUB.add;
2421: END IF;
2422: RAISE FND_API.g_exc_error;
2423: END;
2424: ELSE
2421: END IF;
2422: RAISE FND_API.g_exc_error;
2423: END;
2424: ELSE
2425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2426: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
2427: FND_MSG_PUB.add;
2428: END IF;
2429: RAISE FND_API.g_exc_error;
2423: END;
2424: ELSE
2425: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
2426: FND_MESSAGE.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
2427: FND_MSG_PUB.add;
2428: END IF;
2429: RAISE FND_API.g_exc_error;
2430: END IF;
2431:
2442: -- Debug Message
2443: IF OZF_DEBUG_LOW_ON THEN
2444: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2445: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
2446: FND_MSG_PUB.Add;
2447: END IF;
2448:
2449: -- Standard call to get message count and if count is 1, get message info.
2450: FND_MSG_PUB.Count_And_Get
2446: FND_MSG_PUB.Add;
2447: END IF;
2448:
2449: -- Standard call to get message count and if count is 1, get message info.
2450: FND_MSG_PUB.Count_And_Get
2451: (p_count => x_msg_count,
2452: p_data => x_msg_data
2453: );
2454: EXCEPTION
2455: WHEN FND_API.G_EXC_ERROR THEN
2456: ROLLBACK TO DELETE_CLAIMS_HISTORY_PVT;
2457: x_return_status := FND_API.G_RET_STS_ERROR;
2458: -- Standard call to get message count and if count=1, get the message
2459: FND_MSG_PUB.Count_And_Get (
2460: p_encoded => FND_API.G_FALSE,
2461: p_count => x_msg_count,
2462: p_data => x_msg_data
2463: );
2464: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2465: ROLLBACK TO DELETE_CLAIMS_HISTORY_PVT;
2466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2467: -- Standard call to get message count and if count=1, get the message
2468: FND_MSG_PUB.Count_And_Get (
2469: p_encoded => FND_API.G_FALSE,
2470: p_count => x_msg_count,
2471: p_data => x_msg_data
2472: );
2472: );
2473: WHEN OTHERS THEN
2474: ROLLBACK TO DELETE_CLAIMS_HISTORY_PVT;
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2477: THEN
2478: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2479: END IF;
2480: -- Standard call to get message count and if count=1, get the message
2474: ROLLBACK TO DELETE_CLAIMS_HISTORY_PVT;
2475: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2476: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2477: THEN
2478: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2479: END IF;
2480: -- Standard call to get message count and if count=1, get the message
2481: FND_MSG_PUB.Count_And_Get (
2482: p_encoded => FND_API.G_FALSE,
2477: THEN
2478: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2479: END IF;
2480: -- Standard call to get message count and if count=1, get the message
2481: FND_MSG_PUB.Count_And_Get (
2482: p_encoded => FND_API.G_FALSE,
2483: p_count => x_msg_count,
2484: p_data => x_msg_data
2485: );
2542:
2543: -- Initialize message list if p_init_msg_list is set to TRUE.
2544: IF FND_API.to_Boolean( p_init_msg_list )
2545: THEN
2546: FND_MSG_PUB.initialize;
2547: END IF;
2548:
2549: -- Debug Message
2550: IF OZF_DEBUG_LOW_ON THEN
2549: -- Debug Message
2550: IF OZF_DEBUG_LOW_ON THEN
2551: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2552: FND_MESSAGE.Set_Token('TEXT',l_api_name||': START');
2553: FND_MSG_PUB.Add;
2554: END IF;
2555:
2556: -- Initialize API return status to SUCCESS
2557: x_return_status := FND_API.G_RET_STS_SUCCESS;
2557: x_return_status := FND_API.G_RET_STS_SUCCESS;
2558:
2559: If (P_CLAIMS_HISTORY_Rec.object_version_number is NULL or
2560: P_CLAIMS_HISTORY_Rec.object_version_number = FND_API.G_MISS_NUM ) Then
2561: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2562: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
2563: FND_MSG_PUB.ADD;
2564: END IF;
2565: raise FND_API.G_EXC_ERROR;
2559: If (P_CLAIMS_HISTORY_Rec.object_version_number is NULL or
2560: P_CLAIMS_HISTORY_Rec.object_version_number = FND_API.G_MISS_NUM ) Then
2561: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2562: FND_MESSAGE.Set_Name('OZF', 'OZF_API_NO_OBJ_VER_NUM');
2563: FND_MSG_PUB.ADD;
2564: END IF;
2565: raise FND_API.G_EXC_ERROR;
2566: End if;
2567:
2570: FETCH object_version_number_csr INTO l_object_version_number;
2571: CLOSE object_version_number_csr;
2572:
2573: IF l_object_version_number <> P_CLAIMS_HISTORY_Rec.object_version_number THEN
2574: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2575: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
2576: FND_MSG_PUB.ADD;
2577: END IF;
2578: RAISE FND_API.G_EXC_ERROR;
2572:
2573: IF l_object_version_number <> P_CLAIMS_HISTORY_Rec.object_version_number THEN
2574: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2575: FND_MESSAGE.Set_Name('OZF', 'OZF_API_RESOURCE_LOCKED');
2576: FND_MSG_PUB.ADD;
2577: END IF;
2578: RAISE FND_API.G_EXC_ERROR;
2579: END IF;
2580:
2754: p_BATCH_TYPE => l_CLAIMS_HISTORY_rec.BATCH_TYPE
2755: );
2756: EXCEPTION
2757: WHEN OTHERS THEN
2758: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2759: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
2760: FND_MSG_PUB.add;
2761: END IF;
2762: RAISE FND_API.g_exc_error;
2756: EXCEPTION
2757: WHEN OTHERS THEN
2758: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
2759: FND_MESSAGE.set_name('OZF', 'OZF_TABLE_HANDLER_ERROR');
2760: FND_MSG_PUB.add;
2761: END IF;
2762: RAISE FND_API.g_exc_error;
2763: END;
2764:
2772: -- Debug Message
2773: IF OZF_DEBUG_LOW_ON THEN
2774: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2775: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
2776: FND_MSG_PUB.Add;
2777: END IF;
2778:
2779: -- Standard call to get message count and if count is 1, get message info.
2780: FND_MSG_PUB.Count_And_Get
2776: FND_MSG_PUB.Add;
2777: END IF;
2778:
2779: -- Standard call to get message count and if count is 1, get message info.
2780: FND_MSG_PUB.Count_And_Get
2781: (p_count => x_msg_count,
2782: p_data => x_msg_data
2783: );
2784: EXCEPTION
2785: WHEN FND_API.G_EXC_ERROR THEN
2786: ROLLBACK TO UPDATE_CLAIMS_HISTORY_PVT;
2787: x_return_status := FND_API.G_RET_STS_ERROR;
2788: -- Standard call to get message count and if count=1, get the message
2789: FND_MSG_PUB.Count_And_Get (
2790: p_encoded => FND_API.G_FALSE,
2791: p_count => x_msg_count,
2792: p_data => x_msg_data
2793: );
2794: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2795: ROLLBACK TO UPDATE_CLAIMS_HISTORY_PVT;
2796: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2797: -- Standard call to get message count and if count=1, get the message
2798: FND_MSG_PUB.Count_And_Get (
2799: p_encoded => FND_API.G_FALSE,
2800: p_count => x_msg_count,
2801: p_data => x_msg_data
2802: );
2802: );
2803: WHEN OTHERS THEN
2804: ROLLBACK TO UPDATE_CLAIMS_HISTORY_PVT;
2805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2806: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2807: THEN
2808: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2809: END IF;
2810: -- Standard call to get message count and if count=1, get the message
2804: ROLLBACK TO UPDATE_CLAIMS_HISTORY_PVT;
2805: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2806: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2807: THEN
2808: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2809: END IF;
2810: -- Standard call to get message count and if count=1, get the message
2811: FND_MSG_PUB.Count_And_Get (
2812: p_encoded => FND_API.G_FALSE,
2807: THEN
2808: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2809: END IF;
2810: -- Standard call to get message count and if count=1, get the message
2811: FND_MSG_PUB.Count_And_Get (
2812: p_encoded => FND_API.G_FALSE,
2813: p_count => x_msg_count,
2814: p_data => x_msg_data
2815: );
2858:
2859: -- Initialize message list if p_init_msg_list is set to TRUE.
2860: IF FND_API.to_Boolean( p_init_msg_list )
2861: THEN
2862: FND_MSG_PUB.initialize;
2863: END IF;
2864:
2865: -- Api body
2866: --
2867: -- Debug Message
2868: IF OZF_DEBUG_LOW_ON THEN
2869: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2870: FND_MESSAGE.Set_Token('TEXT',l_api_name||': Start');
2871: FND_MSG_PUB.Add;
2872: END IF;
2873:
2874: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
2875: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2885: -- Debug Message
2886: IF OZF_DEBUG_LOW_ON THEN
2887: FND_MESSAGE.Set_Name('OZF','OZF_API_DEBUG_MESSAGE');
2888: FND_MESSAGE.Set_Token('TEXT',l_api_name||': End');
2889: FND_MSG_PUB.Add;
2890: END IF;
2891:
2892: -- Standard call to get message count and if count is 1, get message info.
2893: FND_MSG_PUB.Count_And_Get
2889: FND_MSG_PUB.Add;
2890: END IF;
2891:
2892: -- Standard call to get message count and if count is 1, get message info.
2893: FND_MSG_PUB.Count_And_Get
2894: (p_count => x_msg_count,
2895: p_data => x_msg_data
2896: );
2897: EXCEPTION
2898: WHEN FND_API.G_EXC_ERROR THEN
2899: ROLLBACK TO VALIDATE_CLAIMS_HISTORY_PVT;
2900: x_return_status := FND_API.G_RET_STS_ERROR;
2901: -- Standard call to get message count and if count=1, get the message
2902: FND_MSG_PUB.Count_And_Get (
2903: p_encoded => FND_API.G_FALSE,
2904: p_count => x_msg_count,
2905: p_data => x_msg_data
2906: );
2907: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2908: ROLLBACK TO VALIDATE_CLAIMS_HISTORY_PVT;
2909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2910: -- Standard call to get message count and if count=1, get the message
2911: FND_MSG_PUB.Count_And_Get (
2912: p_encoded => FND_API.G_FALSE,
2913: p_count => x_msg_count,
2914: p_data => x_msg_data
2915: );
2915: );
2916: WHEN OTHERS THEN
2917: ROLLBACK TO VALIDATE_CLAIMS_HISTORY_PVT;
2918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2919: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2920: THEN
2921: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2922: END IF;
2923: -- Standard call to get message count and if count=1, get the message
2917: ROLLBACK TO VALIDATE_CLAIMS_HISTORY_PVT;
2918: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2919: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2920: THEN
2921: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2922: END IF;
2923: -- Standard call to get message count and if count=1, get the message
2924: FND_MSG_PUB.Count_And_Get (
2925: p_encoded => FND_API.G_FALSE,
2920: THEN
2921: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2922: END IF;
2923: -- Standard call to get message count and if count=1, get the message
2924: FND_MSG_PUB.Count_And_Get (
2925: p_encoded => FND_API.G_FALSE,
2926: p_count => x_msg_count,
2927: p_data => x_msg_data
2928: );