[Home] [Help]
61: l_pvt_line_rec OZF_CLAIM_LINE_PVT.claim_line_rec_type;
62: x_claim_LINE_id NUMBER;
63: l_error_index NUMBER;
64: BEGIN
65: -- Standard Start of API savepoint
66: SAVEPOINT CREATE_Claim_PUB;
67: -- Standard call to check for call compatibility.
68: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
69: p_api_version_number,
63: l_error_index NUMBER;
64: BEGIN
65: -- Standard Start of API savepoint
66: SAVEPOINT CREATE_Claim_PUB;
67: -- Standard call to check for call compatibility.
68: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
69: p_api_version_number,
70: l_api_name,
71: G_PKG_NAME)
302: THEN
303: COMMIT WORK;
304: END IF;
305: --OZF_UTILITY_PVT.DEBUG_MESSAGE('CLAIM_ID=>'||l_claim_line_rec.claim_id);
306: -- Standard call to get message count and if count is 1, get message info.
307: FND_MSG_PUB.Count_And_Get (
308: p_encoded => FND_API.G_FALSE,
309: p_count => x_msg_count,
310: p_data => x_msg_data
321: );
322: WHEN FND_API.G_EXC_ERROR THEN
323: ROLLBACK TO CREATE_Claim_PUB;
324: x_return_status := FND_API.G_RET_STS_ERROR;
325: -- Standard call to get message count and if count=1, get the message
326: FND_MSG_PUB.Count_And_Get (
327: p_encoded => FND_API.G_FALSE,
328: p_count => x_msg_count,
329: p_data => x_msg_data
330: );
331: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
332: ROLLBACK TO CREATE_Claim_PUB;
333: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
334: -- Standard call to get message count and if count=1, get the message
335: FND_MSG_PUB.Count_And_Get (
336: p_encoded => FND_API.G_FALSE,
337: p_count => x_msg_count,
338: p_data => x_msg_data
343: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
344: THEN
345: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
346: END IF;
347: -- Standard call to get message count and if count=1, get the message
348: FND_MSG_PUB.Count_And_Get (
349: p_encoded => FND_API.G_FALSE,
350: p_count => x_msg_count,
351: p_data => x_msg_data
388: l_pvt_claim_line_tbl OZF_CLAIM_LINE_PVT.claim_line_tbl_type ;
389: l_claim_line_tbl OZF_CLAIM_PUB.claim_line_tbl_type := p_claim_line_tbl;
390: BEGIN
391: SAVEPOINT Create_Claim_Line_Tbl;
392: -- Standard call to check for call compatibility.
393: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
394: p_api_version,
395: l_api_name,
396: G_PKG_NAME)
521: RAISE FND_API.G_EXC_ERROR;
522: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
524: END IF;
525: -- Standard check for p_commit
526: IF FND_API.to_Boolean( p_commit )
527: THEN
528: COMMIT WORK;
529: END IF;
530: -- Debug Message
531: IF g_debug THEN
532: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
533: END IF;
534: -- Standard call to get message count and if count is 1, get message info.
535: FND_MSG_PUB.Count_And_Get
536: (p_count => x_msg_count,
537: p_data => x_msg_data
538: );
548: );
549: WHEN FND_API.G_EXC_ERROR THEN
550: ROLLBACK TO Create_Claim_Line_Tbl;
551: x_return_status := FND_API.G_RET_STS_ERROR;
552: -- Standard call to get message count and if count=1, get the message
553: FND_MSG_PUB.Count_And_Get (
554: p_encoded => FND_API.G_FALSE,
555: p_count => x_msg_count,
556: p_data => x_msg_data
557: );
558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
559: ROLLBACK TO Create_Claim_Line_Tbl;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: -- Standard call to get message count and if count=1, get the message
562: FND_MSG_PUB.Count_And_Get (
563: p_encoded => FND_API.G_FALSE,
564: p_count => x_msg_count,
565: p_data => x_msg_data
570: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
571: THEN
572: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
573: END IF;
574: -- Standard call to get message count and if count=1, get the message
575: FND_MSG_PUB.Count_And_Get (
576: p_encoded => FND_API.G_FALSE,
577: p_count => x_msg_count,
578: p_data => x_msg_data
627:
628: l_source_object_class VARCHAR2(30);
629:
630: BEGIN
631: -- Standard Start of API savepoint
632: SAVEPOINT SAVE_UPDATE_CLAIM_PUB;
633: -- Standard call to check for call compatibility.
634: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
635: p_api_version_number,
629:
630: BEGIN
631: -- Standard Start of API savepoint
632: SAVEPOINT SAVE_UPDATE_CLAIM_PUB;
633: -- Standard call to check for call compatibility.
634: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
635: p_api_version_number,
636: l_api_name,
637: G_PKG_NAME)
862: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
863: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
864: END IF;
865:
866: -- Standard check for p_commit
867: IF FND_API.to_Boolean( p_commit )
868: THEN
869: COMMIT WORK;
870: END IF;
871: -- Debug Message
872: IF g_debug THEN
873: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
874: END IF;
875: -- Standard call to get message count and if count is 1, get message info.
876: FND_MSG_PUB.Count_And_Get
877: (p_count => x_msg_count,
878: p_data => x_msg_data
879: );
889: );
890: WHEN FND_API.G_EXC_ERROR THEN
891: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
892: x_return_status := FND_API.G_RET_STS_ERROR;
893: -- Standard call to get message count and if count=1, get the message
894: FND_MSG_PUB.Count_And_Get (
895: p_encoded => FND_API.G_FALSE,
896: p_count => x_msg_count,
897: p_data => x_msg_data
898: );
899: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
900: ROLLBACK TO SAVE_UPDATE_CLAIM_PUB;
901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
902: -- Standard call to get message count and if count=1, get the message
903: FND_MSG_PUB.Count_And_Get (
904: p_encoded => FND_API.G_FALSE,
905: p_count => x_msg_count,
906: p_data => x_msg_data
911: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
912: THEN
913: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
914: END IF;
915: -- Standard call to get message count and if count=1, get the message
916: FND_MSG_PUB.Count_And_Get (
917: p_encoded => FND_API.G_FALSE,
918: p_count => x_msg_count,
919: p_data => x_msg_data
956: l_error_index NUMBER;
957: l_temp_line_rec OZF_CLAIM_LINE_PVT.claim_line_rec_type;
958: BEGIN
959: SAVEPOINT Update_Claim_Line_Tbl;
960: -- Standard call to check for call compatibility.
961: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
962: p_api_version,
963: l_api_name,
964: G_PKG_NAME)
1509: RAISE FND_API.G_EXC_ERROR;
1510: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
1511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1512: END IF;
1513: --Standard check for p_commit
1514: IF FND_API.to_Boolean( p_commit )
1515: THEN
1516: COMMIT WORK;
1517: END IF;
1518: -- Debug Message
1519: IF g_debug THEN
1520: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
1521: END IF;
1522: -- Standard call to get message count and if count is 1, get message info.
1523: FND_MSG_PUB.Count_And_Get
1524: (p_count => x_msg_count,
1525: p_data => x_msg_data
1526: );
1536: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1537: WHEN FND_API.G_EXC_ERROR THEN
1538: ROLLBACK TO Update_Claim_Line_Tbl;
1539: x_return_status := FND_API.G_RET_STS_ERROR;
1540: -- Standard call to get message count and if count=1, get the message
1541: FND_MSG_PUB.Count_And_Get (
1542: p_encoded => FND_API.G_FALSE,
1543: p_count => x_msg_count,
1544: p_data => x_msg_data
1545: );
1546: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1547: ROLLBACK TO Update_Claim_Line_Tbl;
1548: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1549: -- Standard call to get message count and if count=1, get the message
1550: FND_MSG_PUB.Count_And_Get (
1551: p_encoded => FND_API.G_FALSE,
1552: p_count => x_msg_count,
1553: p_data => x_msg_data
1558: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1559: THEN
1560: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1561: END IF;
1562: -- Standard call to get message count and if count=1, get the message
1563: FND_MSG_PUB.Count_And_Get (
1564: p_encoded => FND_API.G_FALSE,
1565: p_count => x_msg_count,
1566: p_data => x_msg_data
1599: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
1600: l_object_version_NUMBER NUMBER:=p_object_version_number;
1601: l_claim_id NUMBER:=p_claim_id;
1602: BEGIN
1603: -- Standard Start of API savepoint
1604: SAVEPOINT DELETE_Claim_PUB;
1605: -- Standard call to check for call compatibility.
1606: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1607: p_api_version_number,
1601: l_claim_id NUMBER:=p_claim_id;
1602: BEGIN
1603: -- Standard Start of API savepoint
1604: SAVEPOINT DELETE_Claim_PUB;
1605: -- Standard call to check for call compatibility.
1606: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1607: p_api_version_number,
1608: l_api_name,
1609: G_PKG_NAME)
1639: OZF_UTILITY_PVT.DEBUG_MESSAGE('RETURN STATUS FOR DELETE_CLAIM =>'||X_RETURN_STATUS);
1640: END IF;
1641: -- Check return status from the above procedure call
1642: --
1643: -- Standard check for p_commit
1644: IF FND_API.to_Boolean( p_commit )
1645: THEN
1646: COMMIT WORK;
1647: END IF;
1648: -- Debug Message
1649: IF g_debug THEN
1650: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
1651: END IF;
1652: -- Standard call to get message count and if count is 1, get message info.
1653: FND_MSG_PUB.Count_And_Get
1654: (p_count => x_msg_count,
1655: p_data => x_msg_data
1656: );
1666: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1667: WHEN FND_API.G_EXC_ERROR THEN
1668: ROLLBACK TO DELETE_Claim_PUB;
1669: x_return_status := FND_API.G_RET_STS_ERROR;
1670: -- Standard call to get message count and if count=1, get the message
1671: FND_MSG_PUB.Count_And_Get (
1672: p_encoded => FND_API.G_FALSE,
1673: p_count => x_msg_count,
1674: p_data => x_msg_data
1675: );
1676: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1677: ROLLBACK TO DELETE_Claim_PUB;
1678: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1679: -- Standard call to get message count and if count=1, get the message
1680: FND_MSG_PUB.Count_And_Get (
1681: p_encoded => FND_API.G_FALSE,
1682: p_count => x_msg_count,
1683: p_data => x_msg_data
1688: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1689: THEN
1690: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1691: END IF;
1692: -- Standard call to get message count and if count=1, get the message
1693: FND_MSG_PUB.Count_And_Get (
1694: p_encoded => FND_API.G_FALSE,
1695: p_count => x_msg_count,
1696: p_data => x_msg_data
1730: l_pvt_claim_line_tbl OZF_CLAIM_LINE_PVT.claim_line_Tbl_type;
1731: l_claim_line_tbl OZF_CLAIM_PUB.claim_line_tbl_type:=p_claim_line_tbl;
1732: l_error_index NUMBER;
1733: BEGIN
1734: -- Standard Start of API savepoint
1735: SAVEPOINT DELETE_Claim_Line_PUB;
1736: -- Standard call to check for call compatibility.
1737: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1738: p_api_version,
1732: l_error_index NUMBER;
1733: BEGIN
1734: -- Standard Start of API savepoint
1735: SAVEPOINT DELETE_Claim_Line_PUB;
1736: -- Standard call to check for call compatibility.
1737: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1738: p_api_version,
1739: l_api_name,
1740: G_PKG_NAME)
1786: END IF;
1787: --
1788: -- End of API body
1789: --
1790: -- Standard check for p_commit
1791: IF FND_API.to_Boolean( p_commit )
1792: THEN
1793: COMMIT WORK;
1794: END IF;
1795: -- Debug Message
1796: IF g_debug THEN
1797: OZF_UTILITY_PVT.debug_message('Public API: ' || l_api_name || 'end');
1798: END IF;
1799: -- Standard call to get message count and if count is 1, get message info.
1800: FND_MSG_PUB.Count_And_Get
1801: (p_count => x_msg_count,
1802: p_data => x_msg_data
1803: );
1804: EXCEPTION
1805: WHEN OZF_Utility_PVT.resource_locked THEN
1806: ROLLBACK TO DELETE_Claim_Line_PUB;
1807: x_return_status := FND_API.G_RET_STS_ERROR;
1808: -- Standard call to get message count and if count=1, get the message
1809: FND_MSG_PUB.Count_And_Get (
1810: p_encoded => FND_API.G_FALSE,
1811: p_count => x_msg_count,
1812: p_data => x_msg_data
1814: OZF_Utility_PVT.Error_Message(p_message_name => 'OZF_API_RESOURCE_LOCKED');
1815: WHEN FND_API.G_EXC_ERROR THEN
1816: ROLLBACK TO DELETE_Claim_Line_PUB;
1817: x_return_status := FND_API.G_RET_STS_ERROR;
1818: -- Standard call to get message count and if count=1, get the message
1819: FND_MSG_PUB.Count_And_Get (
1820: p_encoded => FND_API.G_FALSE,
1821: p_count => x_msg_count,
1822: p_data => x_msg_data
1823: );
1824: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1825: ROLLBACK TO DELETE_Claim_Line_PUB;
1826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1827: -- Standard call to get message count and if count=1, get the message
1828: FND_MSG_PUB.Count_And_Get (
1829: p_encoded => FND_API.G_FALSE,
1830: p_count => x_msg_count,
1831: p_data => x_msg_data
1836: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1837: THEN
1838: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1839: END IF;
1840: -- Standard call to get message count and if count=1, get the message
1841: FND_MSG_PUB.Count_And_Get (
1842: p_encoded => FND_API.G_FALSE,
1843: p_count => x_msg_count,
1844: p_data => x_msg_data
1885:
1886: l_funds_util_flt OZF_Claim_Accrual_PVT.funds_util_flt_type;
1887:
1888: BEGIN
1889: -- Standard Start of API savepoint
1890: SAVEPOINT Asso_Accruals_To_Claim;
1891:
1892: IF G_DEBUG THEN
1893: OZF_Utility_PVT.debug_message(l_full_name||': start');
1892: IF G_DEBUG THEN
1893: OZF_Utility_PVT.debug_message(l_full_name||': start');
1894: END IF;
1895:
1896: -- Standard call to check for call compatibility.
1897: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1898: p_api_version,
1899: l_api_name,
1900: G_PKG_NAME ) THEN
1958: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
1959: RAISE FND_API.g_exc_unexpected_error;
1960: END IF;
1961:
1962: -- Standard check for p_commit
1963: IF FND_API.to_Boolean(p_commit) THEN
1964: COMMIT WORK;
1965: END IF;
1966:
1967: IF G_DEBUG THEN
1968: OZF_Utility_PVT.debug_message(l_full_name ||': end');
1969: END IF;
1970:
1971: -- Standard call to get message count and if count is 1, get message info.
1972: FND_MSG_PUB.Count_And_Get(
1973: p_count => x_msg_count,
1974: p_data => x_msg_data
1975: );
2045: l_full_name CONSTANT VARCHAR2(60) := G_PKG_NAME||'.'||l_api_name;
2046: l_return_status VARCHAR2(1);
2047:
2048: BEGIN
2049: -- Standard Start of API savepoint
2050: SAVEPOINT Asso_Accruals_To_Claim_Line;
2051:
2052: IF G_DEBUG THEN
2053: OZF_Utility_PVT.debug_message(l_full_name||': start');
2052: IF G_DEBUG THEN
2053: OZF_Utility_PVT.debug_message(l_full_name||': start');
2054: END IF;
2055:
2056: -- Standard call to check for call compatibility.
2057: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2058: p_api_version,
2059: l_api_name,
2060: G_PKG_NAME ) THEN
2089: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2090: RAISE FND_API.g_exc_unexpected_error;
2091: END IF;
2092:
2093: -- Standard check for p_commit
2094: IF FND_API.to_Boolean(p_commit) THEN
2095: COMMIT WORK;
2096: END IF;
2097:
2098: IF G_DEBUG THEN
2099: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2100: END IF;
2101:
2102: -- Standard call to get message count and if count is 1, get message info.
2103: FND_MSG_PUB.Count_And_Get(
2104: p_count => x_msg_count,
2105: p_data => x_msg_data
2106: );
2183: l_claim_rec OZF_Claim_PVT.claim_rec_type;
2184: l_funds_util_flt OZF_Claim_Accrual_PVT.funds_util_flt_type;
2185:
2186: BEGIN
2187: -- Standard Start of API savepoint
2188: SAVEPOINT Create_Claim_For_Accruals;
2189:
2190: IF G_DEBUG THEN
2191: OZF_Utility_PVT.debug_message(l_full_name||': start');
2190: IF G_DEBUG THEN
2191: OZF_Utility_PVT.debug_message(l_full_name||': start');
2192: END IF;
2193:
2194: -- Standard call to check for call compatibility.
2195: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2196: p_api_version,
2197: l_api_name,
2198: G_PKG_NAME ) THEN
2320: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2321: RAISE FND_API.g_exc_unexpected_error;
2322: END IF;
2323:
2324: -- Standard check for p_commit
2325: IF FND_API.to_Boolean(p_commit) THEN
2326: COMMIT WORK;
2327: END IF;
2328:
2329: IF G_DEBUG THEN
2330: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2331: END IF;
2332:
2333: -- Standard call to get message count and if count is 1, get message info.
2334: FND_MSG_PUB.Count_And_Get(
2335: p_count => x_msg_count,
2336: p_data => x_msg_data
2337: );
2414: l_claim_rec OZF_Claim_PVT.claim_rec_type;
2415: l_funds_util_flt OZF_Claim_Accrual_PVT.funds_util_flt_type;
2416:
2417: BEGIN
2418: -- Standard Start of API savepoint
2419: SAVEPOINT Pay_Claim_For_Accruals;
2420:
2421: IF G_DEBUG THEN
2422: OZF_Utility_PVT.debug_message(l_full_name||': start');
2421: IF G_DEBUG THEN
2422: OZF_Utility_PVT.debug_message(l_full_name||': start');
2423: END IF;
2424:
2425: -- Standard call to check for call compatibility.
2426: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2427: p_api_version,
2428: l_api_name,
2429: G_PKG_NAME ) THEN
2551: ELSIF l_return_status = FND_API.g_ret_sts_unexp_error THEN
2552: RAISE FND_API.g_exc_unexpected_error;
2553: END IF;
2554:
2555: -- Standard check for p_commit
2556: IF FND_API.to_Boolean(p_commit) THEN
2557: COMMIT WORK;
2558: END IF;
2559:
2560: IF G_DEBUG THEN
2561: OZF_Utility_PVT.debug_message(l_full_name ||': end');
2562: END IF;
2563:
2564: -- Standard call to get message count and if count is 1, get message info.
2565: FND_MSG_PUB.Count_And_Get(
2566: p_count => x_msg_count,
2567: p_data => x_msg_data
2568: );