[Home] [Help]
86:
87: l_inv_org_id NUMBER := FND_PROFILE.VALUE('QP_ORGANIZATION_ID');
88:
89: BEGIN
90: -- Standard Start of API savepoint
91: SAVEPOINT CREATE_Claim_PUB;
92: -- Standard call to check for call compatibility.
93: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
94: p_api_version_number,
88:
89: BEGIN
90: -- Standard Start of API savepoint
91: SAVEPOINT CREATE_Claim_PUB;
92: -- Standard call to check for call compatibility.
93: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
94: p_api_version_number,
95: l_api_name,
96: G_PKG_NAME)
350: THEN
351: COMMIT WORK;
352: END IF;
353: --OZF_UTILITY_PVT.DEBUG_MESSAGE('CLAIM_ID=>'||l_claim_line_rec.claim_id);
354: -- Standard call to get message count and if count is 1, get message info.
355: FND_MSG_PUB.Count_And_Get (
356: p_encoded => FND_API.G_FALSE,
357: p_count => x_msg_count,
358: p_data => x_msg_data
369: );
370: WHEN FND_API.G_EXC_ERROR THEN
371: ROLLBACK TO CREATE_Claim_PUB;
372: x_return_status := FND_API.G_RET_STS_ERROR;
373: -- Standard call to get message count and if count=1, get the message
374: FND_MSG_PUB.Count_And_Get (
375: p_encoded => FND_API.G_FALSE,
376: p_count => x_msg_count,
377: p_data => x_msg_data
378: );
379: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
380: ROLLBACK TO CREATE_Claim_PUB;
381: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
382: -- Standard call to get message count and if count=1, get the message
383: FND_MSG_PUB.Count_And_Get (
384: p_encoded => FND_API.G_FALSE,
385: p_count => x_msg_count,
386: p_data => x_msg_data
391: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
392: THEN
393: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
394: END IF;
395: -- Standard call to get message count and if count=1, get the message
396: FND_MSG_PUB.Count_And_Get (
397: p_encoded => FND_API.G_FALSE,
398: p_count => x_msg_count,
399: p_data => x_msg_data
436: l_pvt_claim_line_tbl OZF_CLAIM_LINE_PVT.claim_line_tbl_type ;
437: l_claim_line_tbl OZF_CLAIM_PUB.claim_line_tbl_type := p_claim_line_tbl;
438: BEGIN
439: SAVEPOINT Create_Claim_Line_Tbl;
440: -- Standard call to check for call compatibility.
441: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
442: p_api_version,
443: l_api_name,
444: G_PKG_NAME)
569: RAISE FND_API.G_EXC_ERROR;
570: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
571: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
572: END IF;
573: -- Standard check for p_commit
574: IF FND_API.to_Boolean( p_commit )
575: THEN
576: COMMIT WORK;
577: END IF;
578: -- Debug Message
579: IF g_debug THEN
580: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
581: END IF;
582: -- Standard call to get message count and if count is 1, get message info.
583: FND_MSG_PUB.Count_And_Get
584: (p_count => x_msg_count,
585: p_data => x_msg_data
586: );
596: );
597: WHEN FND_API.G_EXC_ERROR THEN
598: ROLLBACK TO Create_Claim_Line_Tbl;
599: x_return_status := FND_API.G_RET_STS_ERROR;
600: -- Standard call to get message count and if count=1, get the message
601: FND_MSG_PUB.Count_And_Get (
602: p_encoded => FND_API.G_FALSE,
603: p_count => x_msg_count,
604: p_data => x_msg_data
605: );
606: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
607: ROLLBACK TO Create_Claim_Line_Tbl;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
609: -- Standard call to get message count and if count=1, get the message
610: FND_MSG_PUB.Count_And_Get (
611: p_encoded => FND_API.G_FALSE,
612: p_count => x_msg_count,
613: p_data => x_msg_data
618: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
619: THEN
620: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
621: END IF;
622: -- Standard call to get message count and if count=1, get the message
623: FND_MSG_PUB.Count_And_Get (
624: p_encoded => FND_API.G_FALSE,
625: p_count => x_msg_count,
626: p_data => x_msg_data
689: l_item_uom VARCHAR2(30);
690: l_inv_org_id NUMBER := FND_PROFILE.VALUE('QP_ORGANIZATION_ID');
691:
692: BEGIN
693: -- Standard Start of API savepoint
694: SAVEPOINT SAVE_UPDATE_CLAIM_PUB;
695: -- Standard call to check for call compatibility.
696: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
697: p_api_version_number,
691:
692: BEGIN
693: -- Standard Start of API savepoint
694: SAVEPOINT SAVE_UPDATE_CLAIM_PUB;
695: -- Standard call to check for call compatibility.
696: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
697: p_api_version_number,
698: l_api_name,
699: G_PKG_NAME)
951: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
952: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
953: END IF;
954:
955: -- Standard check for p_commit
956: IF FND_API.to_Boolean( p_commit )
957: THEN
958: COMMIT WORK;
959: END IF;
960: -- Debug Message
961: IF g_debug THEN
962: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
963: END IF;
964: -- Standard call to get message count and if count is 1, get message info.
965: FND_MSG_PUB.Count_And_Get
966: (p_count => x_msg_count,
967: p_data => x_msg_data
968: );
978: );
979: WHEN FND_API.G_EXC_ERROR THEN
980: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
981: x_return_status := FND_API.G_RET_STS_ERROR;
982: -- Standard call to get message count and if count=1, get the message
983: FND_MSG_PUB.Count_And_Get (
984: p_encoded => FND_API.G_FALSE,
985: p_count => x_msg_count,
986: p_data => x_msg_data
987: );
988: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
989: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
990: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
991: -- Standard call to get message count and if count=1, get the message
992: FND_MSG_PUB.Count_And_Get (
993: p_encoded => FND_API.G_FALSE,
994: p_count => x_msg_count,
995: p_data => x_msg_data
1000: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1001: THEN
1002: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1003: END IF;
1004: -- Standard call to get message count and if count=1, get the message
1005: FND_MSG_PUB.Count_And_Get (
1006: p_encoded => FND_API.G_FALSE,
1007: p_count => x_msg_count,
1008: p_data => x_msg_data
1153: l_lookup_stat VARCHAR2(1); --To validate from lookups
1154: l_item_id NUMBER;
1155: BEGIN
1156: SAVEPOINT Update_Claim_Line_Tbl;
1157: -- Standard call to check for call compatibility.
1158: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1159: p_api_version,
1160: l_api_name,
1161: G_PKG_NAME)
1722: RAISE FND_API.G_EXC_ERROR;
1723: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1725: END IF;
1726: --Standard check for p_commit
1727: IF FND_API.to_Boolean( p_commit )
1728: THEN
1729: COMMIT WORK;
1730: END IF;
1731: -- Debug Message
1732: IF g_debug THEN
1733: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
1734: END IF;
1735: -- Standard call to get message count and if count is 1, get message info.
1736: FND_MSG_PUB.Count_And_Get
1737: (p_count => x_msg_count,
1738: p_data => x_msg_data
1739: );
1749: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1750: WHEN FND_API.G_EXC_ERROR THEN
1751: ROLLBACK TO Update_Claim_Line_Tbl;
1752: x_return_status := FND_API.G_RET_STS_ERROR;
1753: -- Standard call to get message count and if count=1, get the message
1754: FND_MSG_PUB.Count_And_Get (
1755: p_encoded => FND_API.G_FALSE,
1756: p_count => x_msg_count,
1757: p_data => x_msg_data
1758: );
1759: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1760: ROLLBACK TO Update_Claim_Line_Tbl;
1761: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1762: -- Standard call to get message count and if count=1, get the message
1763: FND_MSG_PUB.Count_And_Get (
1764: p_encoded => FND_API.G_FALSE,
1765: p_count => x_msg_count,
1766: p_data => x_msg_data
1771: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1772: THEN
1773: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1774: END IF;
1775: -- Standard call to get message count and if count=1, get the message
1776: FND_MSG_PUB.Count_And_Get (
1777: p_encoded => FND_API.G_FALSE,
1778: p_count => x_msg_count,
1779: p_data => x_msg_data
1812: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
1813: l_object_version_NUMBER NUMBER:=p_object_version_number;
1814: l_claim_id NUMBER:=p_claim_id;
1815: BEGIN
1816: -- Standard Start of API savepoint
1817: SAVEPOINT DELETE_Claim_PUB;
1818: -- Standard call to check for call compatibility.
1819: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1820: p_api_version_number,
1814: l_claim_id NUMBER:=p_claim_id;
1815: BEGIN
1816: -- Standard Start of API savepoint
1817: SAVEPOINT DELETE_Claim_PUB;
1818: -- Standard call to check for call compatibility.
1819: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1820: p_api_version_number,
1821: l_api_name,
1822: G_PKG_NAME)
1852: OZF_UTILITY_PVT.DEBUG_MESSAGE('RETURN STATUS FOR DELETE_CLAIM =>'||X_RETURN_STATUS);
1853: END IF;
1854: -- Check return status from the above procedure call
1855: --
1856: -- Standard check for p_commit
1857: IF FND_API.to_Boolean( p_commit )
1858: THEN
1859: COMMIT WORK;
1860: END IF;
1861: -- Debug Message
1862: IF g_debug THEN
1863: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
1864: END IF;
1865: -- Standard call to get message count and if count is 1, get message info.
1866: FND_MSG_PUB.Count_And_Get
1867: (p_count => x_msg_count,
1868: p_data => x_msg_data
1869: );
1879: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1880: WHEN FND_API.G_EXC_ERROR THEN
1881: ROLLBACK TO DELETE_Claim_PUB;
1882: x_return_status := FND_API.G_RET_STS_ERROR;
1883: -- Standard call to get message count and if count=1, get the message
1884: FND_MSG_PUB.Count_And_Get (
1885: p_encoded => FND_API.G_FALSE,
1886: p_count => x_msg_count,
1887: p_data => x_msg_data
1888: );
1889: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1890: ROLLBACK TO DELETE_Claim_PUB;
1891: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1892: -- Standard call to get message count and if count=1, get the message
1893: FND_MSG_PUB.Count_And_Get (
1894: p_encoded => FND_API.G_FALSE,
1895: p_count => x_msg_count,
1896: p_data => x_msg_data
1901: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1902: THEN
1903: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1904: END IF;
1905: -- Standard call to get message count and if count=1, get the message
1906: FND_MSG_PUB.Count_And_Get (
1907: p_encoded => FND_API.G_FALSE,
1908: p_count => x_msg_count,
1909: p_data => x_msg_data
1943: l_pvt_claim_line_tbl OZF_CLAIM_LINE_PVT.claim_line_Tbl_type;
1944: l_claim_line_tbl OZF_CLAIM_PUB.claim_line_tbl_type:=p_claim_line_tbl;
1945: l_error_index NUMBER;
1946: BEGIN
1947: -- Standard Start of API savepoint
1948: SAVEPOINT DELETE_Claim_Line_PUB;
1949: -- Standard call to check for call compatibility.
1950: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1951: p_api_version,
1945: l_error_index NUMBER;
1946: BEGIN
1947: -- Standard Start of API savepoint
1948: SAVEPOINT DELETE_Claim_Line_PUB;
1949: -- Standard call to check for call compatibility.
1950: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1951: p_api_version,
1952: l_api_name,
1953: G_PKG_NAME)
1999: END IF;
2000: --
2001: -- End of API body
2002: --
2003: -- Standard check for p_commit
2004: IF FND_API.to_Boolean( p_commit )
2005: THEN
2006: COMMIT WORK;
2007: END IF;
2008: -- Debug Message
2009: IF g_debug THEN
2010: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
2011: END IF;
2012: -- Standard call to get message count and if count is 1, get message info.
2013: FND_MSG_PUB.Count_And_Get
2014: (p_count => x_msg_count,
2015: p_data => x_msg_data
2016: );
2017: EXCEPTION
2018: WHEN OZF_Utility_PVT.resource_locked THEN
2019: ROLLBACK TO DELETE_Claim_Line_PUB;
2020: x_return_status := FND_API.G_RET_STS_ERROR;
2021: -- Standard call to get message count and if count=1, get the message
2022: FND_MSG_PUB.Count_And_Get (
2023: p_encoded => FND_API.G_FALSE,
2024: p_count => x_msg_count,
2025: p_data => x_msg_data
2027: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
2028: WHEN FND_API.G_EXC_ERROR THEN
2029: ROLLBACK TO DELETE_Claim_Line_PUB;
2030: x_return_status := FND_API.G_RET_STS_ERROR;
2031: -- Standard call to get message count and if count=1, get the message
2032: FND_MSG_PUB.Count_And_Get (
2033: p_encoded => FND_API.G_FALSE,
2034: p_count => x_msg_count,
2035: p_data => x_msg_data
2036: );
2037: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2038: ROLLBACK TO DELETE_Claim_Line_PUB;
2039: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2040: -- Standard call to get message count and if count=1, get the message
2041: FND_MSG_PUB.Count_And_Get (
2042: p_encoded => FND_API.G_FALSE,
2043: p_count => x_msg_count,
2044: p_data => x_msg_data
2049: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2050: THEN
2051: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2052: END IF;
2053: -- Standard call to get message count and if count=1, get the message
2054: FND_MSG_PUB.Count_And_Get (
2055: p_encoded => FND_API.G_FALSE,
2056: p_count => x_msg_count,
2057: p_data => x_msg_data
2098:
2099: l_funds_util_flt OZF_Claim_Accrual_PVT.funds_util_flt_type;
2100:
2101: BEGIN
2102: -- Standard Start of API savepoint
2103: SAVEPOINT Asso_Accruals_To_Claim;
2104:
2105: IF G_DEBUG THEN
2106: OZF_Utility_PVT.debug_message(l_full_name||': start');
2105: IF G_DEBUG THEN
2106: OZF_Utility_PVT.debug_message(l_full_name||': start');
2107: END IF;
2108:
2109: -- Standard call to check for call compatibility.
2110: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2111: p_api_version,
2112: l_api_name,
2113: G_PKG_NAME ) THEN
2175: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2176: RAISE FND_API.g_exc_unexpected_error;
2177: END IF;
2178:
2179: -- Standard check for p_commit
2180: IF FND_API.to_Boolean(p_commit) THEN
2181: COMMIT WORK;
2182: END IF;
2183:
2184: IF G_DEBUG THEN
2185: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2186: END IF;
2187:
2188: -- Standard call to get message count and if count is 1, get message info.
2189: FND_MSG_PUB.Count_And_Get(
2190: p_count => x_msg_count,
2191: p_data => x_msg_data
2192: );
2262: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME||'.'||l_api_name;
2263: l_return_status VARCHAR2(1);
2264:
2265: BEGIN
2266: -- Standard Start of API savepoint
2267: SAVEPOINT Asso_Accruals_To_Claim_Line;
2268:
2269: IF G_DEBUG THEN
2270: OZF_Utility_PVT.debug_message(l_full_name||': start');
2269: IF G_DEBUG THEN
2270: OZF_Utility_PVT.debug_message(l_full_name||': start');
2271: END IF;
2272:
2273: -- Standard call to check for call compatibility.
2274: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2275: p_api_version,
2276: l_api_name,
2277: G_PKG_NAME ) THEN
2307: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2308: RAISE FND_API.g_exc_unexpected_error;
2309: END IF;
2310:
2311: -- Standard check for p_commit
2312: IF FND_API.to_Boolean(p_commit) THEN
2313: COMMIT WORK;
2314: END IF;
2315:
2316: IF G_DEBUG THEN
2317: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2318: END IF;
2319:
2320: -- Standard call to get message count and if count is 1, get message info.
2321: FND_MSG_PUB.Count_And_Get(
2322: p_count => x_msg_count,
2323: p_data => x_msg_data
2324: );
2401: l_claim_rec OZF_Claim_PVT.claim_rec_type;
2402: l_funds_util_flt OZF_Claim_Accrual_PVT.funds_util_flt_type;
2403:
2404: BEGIN
2405: -- Standard Start of API savepoint
2406: SAVEPOINT Create_Claim_For_Accruals;
2407:
2408: IF G_DEBUG THEN
2409: OZF_Utility_PVT.debug_message(l_full_name||': start');
2408: IF G_DEBUG THEN
2409: OZF_Utility_PVT.debug_message(l_full_name||': start');
2410: END IF;
2411:
2412: -- Standard call to check for call compatibility.
2413: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2414: p_api_version,
2415: l_api_name,
2416: G_PKG_NAME ) THEN
2549: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2550: RAISE FND_API.g_exc_unexpected_error;
2551: END IF;
2552:
2553: -- Standard check for p_commit
2554: IF FND_API.to_Boolean(p_commit) THEN
2555: COMMIT WORK;
2556: END IF;
2557:
2558: IF G_DEBUG THEN
2559: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2560: END IF;
2561:
2562: -- Standard call to get message count and if count is 1, get message info.
2563: FND_MSG_PUB.Count_And_Get(
2564: p_count => x_msg_count,
2565: p_data => x_msg_data
2566: );
2643: l_claim_rec OZF_Claim_PVT.claim_rec_type;
2644: l_funds_util_flt OZF_Claim_Accrual_PVT.funds_util_flt_type;
2645:
2646: BEGIN
2647: -- Standard Start of API savepoint
2648: SAVEPOINT Pay_Claim_For_Accruals;
2649:
2650: IF G_DEBUG THEN
2651: OZF_Utility_PVT.debug_message(l_full_name||': start');
2650: IF G_DEBUG THEN
2651: OZF_Utility_PVT.debug_message(l_full_name||': start');
2652: END IF;
2653:
2654: -- Standard call to check for call compatibility.
2655: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2656: p_api_version,
2657: l_api_name,
2658: G_PKG_NAME ) THEN
2786: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2787: RAISE FND_API.g_exc_unexpected_error;
2788: END IF;
2789:
2790: -- Standard check for p_commit
2791: IF FND_API.to_Boolean(p_commit) THEN
2792: COMMIT WORK;
2793: END IF;
2794:
2795: IF G_DEBUG THEN
2796: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2797: END IF;
2798:
2799: -- Standard call to get message count and if count is 1, get message info.
2800: FND_MSG_PUB.Count_And_Get(
2801: p_count => x_msg_count,
2802: p_data => x_msg_data
2803: );
2914: FROM ozf_claim_lines_all
2915: WHERE claim_id = cv_parent_claim_id
2916: AND claim_line_id = cv_claim_line_id;
2917: BEGIN
2918: -- Standard Start of API savepoint
2919: SAVEPOINT Create_split_claims;
2920:
2921: -- Standard call to check for call compatibility.
2922: IF NOT FND_API.Compatible_API_Call ( l_api_version
2917: BEGIN
2918: -- Standard Start of API savepoint
2919: SAVEPOINT Create_split_claims;
2920:
2921: -- Standard call to check for call compatibility.
2922: IF NOT FND_API.Compatible_API_Call ( l_api_version
2923: , p_api_version
2924: , l_api_name
2925: , G_PKG_NAME
3130: IF FND_API.to_Boolean( p_commit ) THEN
3131: COMMIT WORK;
3132: END IF;
3133:
3134: -- Standard call to get message count and if count is 1, get message info.
3135: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3136: , p_count => x_msg_count
3137: , p_data => x_msg_data
3138: );
3140: EXCEPTION
3141: WHEN FND_API.G_EXC_ERROR THEN
3142: ROLLBACK TO Create_split_claims;
3143: x_return_status := FND_API.G_RET_STS_ERROR;
3144: -- Standard call to get message count and if count=1, get the message
3145: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3146: , p_count => x_msg_count
3147: , p_data => x_msg_data
3148: );
3148: );
3149: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3150: ROLLBACK TO Create_split_claims;
3151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3152: -- Standard call to get message count and if count=1, get the message
3153: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3154: , p_count => x_msg_count
3155: , p_data => x_msg_data
3156: );
3160: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
3161: THEN
3162: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3163: END IF;
3164: -- Standard call to get message count and if count=1, get the message
3165: FND_MSG_PUB.Count_And_Get ( p_encoded => FND_API.G_FALSE
3166: , p_count => x_msg_count
3167: , p_data => x_msg_data
3168: );
3282: WHERE osp.org_id = oc.org_id
3283: AND oc.claim_id = p_id;
3284:
3285: BEGIN
3286: -- Standard Start of API savepoint
3287: SAVEPOINT Create_event;
3288: -- Standard call to check for call compatibility.
3289: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3290: p_api_version_number,
3284:
3285: BEGIN
3286: -- Standard Start of API savepoint
3287: SAVEPOINT Create_event;
3288: -- Standard call to check for call compatibility.
3289: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
3290: p_api_version_number,
3291: l_api_name,
3292: G_PKG_NAME)
3615: EXCEPTION
3616: WHEN FND_API.G_EXC_ERROR THEN
3617: ROLLBACK TO Create_event;
3618: x_return_status := FND_API.G_RET_STS_ERROR;
3619: -- Standard call to get message count and if count=1, get the message
3620: FND_MSG_PUB.Count_And_Get (
3621: p_encoded => FND_API.G_FALSE,
3622: p_count => x_msg_count,
3623: p_data => x_msg_data
3624: );
3625: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3626: ROLLBACK TO Create_event;
3627: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3628: -- Standard call to get message count and if count=1, get the message
3629: FND_MSG_PUB.Count_And_Get (
3630: p_encoded => FND_API.G_FALSE,
3631: p_count => x_msg_count,
3632: p_data => x_msg_data
3636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3637: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3638: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3639: END IF;
3640: -- Standard call to get message count and if count=1, get the message
3641: FND_MSG_PUB.Count_And_Get (
3642: p_encoded => FND_API.G_FALSE,
3643: p_count => x_msg_count,
3644: p_data => x_msg_data