[Home] [Help]
157: CLOSE c_status_code;
158:
159: IF l_status_code IS NULL THEN
160: x_return_status := fnd_api.g_ret_sts_error;
161: Ozf_utility_pvt.error_message('OZF_FUND_BAD_USER_STATUS');
162: END IF;
163:
164: x_status_code := l_status_code;
165: END handle_fund_status;
195: CLOSE c_user_status_id;
196:
197: IF l_user_status_id IS NULL THEN
198: x_return_status := fnd_api.g_ret_sts_error;
199: Ozf_utility_pvt.error_message('OZF_FUND_BAD_USER_STATUS');
200: END IF;
201:
202: x_user_status_id := l_user_status_id;
203: END get_user_status;
250:
251: x_code := SUBSTRB(l_par_number || l_count, 1, 30);
252:
253: --asylvia Fixed bug 5073532
254: WHILE ozf_utility_pvt.check_uniqueness('ozf_funds_all_b'
255: ,'fund_number = ''' || x_code || '''') =
256: fnd_api.g_false LOOP
257: l_count := l_count + 1 ;
258: x_code :=SUBSTRB(l_par_number || l_count, 1, 30);
300: END IF;
301: END IF;
302:
303: IF G_DEBUG THEN
304: ozf_utility_pvt.debug_message('p_event_type is :'||p_event_type || ' Fund Id is :'||p_object_id );
305: END IF;
306:
307: wf_event.AddParameterToList(p_name => 'P_FUND_ID',
308: p_value => p_object_id,
308: p_value => p_object_id,
309: p_parameterlist => l_parameter_list);
310:
311: IF G_DEBUG THEN
312: ozf_utility_pvt.debug_message('Item Key is :'||l_item_key);
313: END IF;
314:
315: wf_event.raise( p_event_name =>l_event_name,
316: p_event_key => l_item_key,
319:
320: EXCEPTION
321: WHEN OTHERS THEN
322: RAISE Fnd_Api.g_exc_error;
323: ozf_utility_pvt.debug_message('Exception in raising business event');
324: END;
325:
326:
327: ---------------------------------------------------------------------
407: BEGIN
408: --------------------- initialize -----------------------
409: SAVEPOINT create_fund;
410: IF G_DEBUG THEN
411: ozf_utility_pvt.debug_message(l_full_name || ': start');
412: END IF;
413: x_return_status := fnd_api.g_ret_sts_success;
414:
415: IF fnd_api.to_boolean(p_init_msg_list) THEN
476: END IF;
477:
478: ----------------------- validate -----------------------
479: IF G_DEBUG THEN
480: ozf_utility_pvt.debug_message(l_full_name || ': validate');
481: END IF;
482: validate_fund(
483: p_api_version => l_api_version
484: ,p_init_msg_list => p_init_msg_list
496: END IF;
497:
498: -------------------------- insert --------------------------
499: IF G_DEBUG THEN
500: ozf_utility_pvt.debug_message(l_full_name || ': insert');
501: END IF;
502:
503: IF l_fund_rec.fund_id IS NULL THEN
504: LOOP
513: END IF;
514:
515:
516: IF G_DEBUG THEN
517: ozf_utility_pvt.debug_message(l_full_name || ': get_category');
518: END IF;
519:
520: -- kdass 09-NOV-05 Bug 4618523
521: /*
556:
557: -- Calculate rollup amount columns, added by feliu 02/08/02
558: IF l_fund_rec.original_budget IS NOT NULL
559: AND l_fund_rec.original_budget <> fnd_api.g_miss_num THEN
560: Ozf_utility_pvt.convert_currency(
561: x_return_status => l_return_status
562: ,p_from_currency => l_fund_rec.currency_code_tc
563: ,p_to_currency => g_universal_currency
564: ,p_from_amount => l_fund_rec.original_budget
881:
882: ------------------------- finish -------------------------------
883: x_fund_id := l_fund_rec.fund_id;
884: IF G_DEBUG THEN
885: ozf_utility_pvt.debug_message(l_full_name || ': insert object attribute');
886: END IF;
887:
888: -- If the fund_status is 'ACTIVE', we need to create a record in th ACT_BUDGET table for the holdback amount
889: -- fixed bug for validation level and p_commit
925: --- Insert a record in OZF_MC_TRANSACTIONS_ALL IN functional currency
926: -- so that we have the functional currency amounts
927: -- The exchange_rate_type is picked up by the MC_TRAnSACTIONS API from proile
928: IF G_DEBUG THEN
929: ozf_utility_pvt.debug_message(l_full_name || ': insert Functional currency record');
930: END IF;
931: -- Populate the record variable
932: l_mc_transaction_rec.source_object_name := 'FUND';
933: l_mc_transaction_rec.source_object_id := l_fund_rec.fund_id;
973: -- changing status from 'DRAFT or 'REJECTED' to 'ACTIVE or ON_HOLD is
974: -- equivalent to submitting for approval.
975: -- Approval submission child fund
976: IF G_DEBUG THEN
977: ozf_utility_pvt.debug_message(l_full_name || 'owner' || p_fund_rec.owner);
978: END IF;
979:
980: ozf_fund_request_apr_pvt.create_fund_request(
981: p_commit => fnd_api.g_false
1008: END IF ;
1009: --added by mpande
1010: -- insert a access for the owner
1011: IF G_DEBUG THEN
1012: ozf_utility_pvt.debug_message(l_full_name || ': insert access owner');
1013: END IF;
1014:
1015: IF l_fund_rec.fund_id IS NOT NULL THEN
1016:
1041: --added by mpande
1042: -- if parent id is not null during creation , a row is created in the ams_act_access to give access
1043: -- to the owner of the parent fund to this child
1044: IF G_DEBUG THEN
1045: ozf_utility_pvt.debug_message(l_full_name || ': insert access parent');
1046: END IF;
1047:
1048: IF l_fund_rec.parent_fund_id IS NOT NULL THEN
1049: -- added updating rollup columns by feliu.
1112:
1113: END IF;
1114: -- mpadne 10/14/2002 for 11.5.9
1115: IF G_DEBUG THEN
1116: OZF_UTILITY_PVT.DEBUG_MESSAGE('ACCRUAL BASIS ='||L_FUND_REC.accrual_basis);
1117: END IF;
1118: IF p_fund_rec.fund_type = 'FULLY_ACCRUED' AND p_fund_rec.plan_id is null THEN
1119: ozf_fundrules_pvt.process_accrual (
1120: p_fund_rec => l_fund_rec
1142: p_encoded => fnd_api.g_false
1143: ,p_count => x_msg_count
1144: ,p_data => x_msg_data);
1145: IF G_DEBUG THEN
1146: ozf_utility_pvt.debug_message(l_full_name || ': end');
1147: END IF;
1148:
1149: EXCEPTION
1150: WHEN fnd_api.g_exc_error THEN
1200: BEGIN
1201: --------------------- initialize -----------------------
1202: SAVEPOINT delete_fund;
1203: IF G_DEBUG THEN
1204: ozf_utility_pvt.debug_message(l_full_name || ': start');
1205: END IF;
1206:
1207: IF fnd_api.to_boolean(p_init_msg_list) THEN
1208: fnd_msg_pub.initialize;
1214:
1215: x_return_status := fnd_api.g_ret_sts_success;
1216: ------------------------ delete ------------------------
1217: IF G_DEBUG THEN
1218: ozf_utility_pvt.debug_message(l_full_name || ': delete');
1219: END IF;
1220:
1221: DELETE
1222: FROM ozf_funds_all_b
1254: p_encoded => fnd_api.g_false
1255: ,p_count => x_msg_count
1256: ,p_data => x_msg_data);
1257: IF G_DEBUG THEN
1258: ozf_utility_pvt.debug_message(l_full_name || ': end');
1259: END IF;
1260: EXCEPTION
1261: WHEN fnd_api.g_exc_error THEN
1262: ROLLBACK TO delete_fund;
1326: FOR UPDATE OF fund_id NOWAIT;
1327: BEGIN
1328: -------------------- initialize ------------------------
1329: IF G_DEBUG THEN
1330: ozf_utility_pvt.debug_message(l_full_name || ': start');
1331: END IF;
1332:
1333: IF fnd_api.to_boolean(p_init_msg_list) THEN
1334: fnd_msg_pub.initialize;
1340:
1341: x_return_status := fnd_api.g_ret_sts_success;
1342: ------------------------ lock -------------------------
1343: IF G_DEBUG THEN
1344: ozf_utility_pvt.debug_message(l_full_name || ': lock');
1345: END IF;
1346: OPEN c_fund_b;
1347: FETCH c_fund_b INTO l_fund_id;
1348:
1365: p_encoded => fnd_api.g_false
1366: ,p_count => x_msg_count
1367: ,p_data => x_msg_data);
1368: IF G_DEBUG THEN
1369: ozf_utility_pvt.debug_message(l_full_name || ': end');
1370: END IF;
1371: EXCEPTION
1372: WHEN ozf_utility_pvt.resource_locked THEN
1373: x_return_status := fnd_api.g_ret_sts_error;
1368: IF G_DEBUG THEN
1369: ozf_utility_pvt.debug_message(l_full_name || ': end');
1370: END IF;
1371: EXCEPTION
1372: WHEN ozf_utility_pvt.resource_locked THEN
1373: x_return_status := fnd_api.g_ret_sts_error;
1374:
1375: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
1376: fnd_message.set_name('OZF', 'OZF_API_RESOURCE_LOCKED');
1425: )
1426: IS
1427: l_resale_batch_id NUMBER;
1428: l_use_fund_staging_tables VARCHAR2(1) := 'F';
1429: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
1430: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
1431: l_batch_type VARCHAR2(30);
1432: BEGIN
1433: update_fund(
1426: IS
1427: l_resale_batch_id NUMBER;
1428: l_use_fund_staging_tables VARCHAR2(1) := 'F';
1429: lx_ozf_funds_old_rectype OZF_UTILITY_PVT.ozf_funds_all_b_rectype;
1430: lx_ozf_funds_new_tbl OZF_UTILITY_PVT.ozf_funds_table;
1431: l_batch_type VARCHAR2(30);
1432: BEGIN
1433: update_fund(
1434: p_api_version => p_api_version
1486: ,p_mode IN VARCHAR2 := jtf_plsql_api.g_update
1487: ,p_resale_batch_id IN NUMBER
1488: ,p_batch_type IN VARCHAR2
1489: ,p_use_fund_staging_tables IN VARCHAR2
1490: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
1491: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
1492: )
1493: IS
1494: l_api_version CONSTANT NUMBER := 1.0;
1487: ,p_resale_batch_id IN NUMBER
1488: ,p_batch_type IN VARCHAR2
1489: ,p_use_fund_staging_tables IN VARCHAR2
1490: ,px_ozf_funds_old_rectype IN OZF_UTILITY_PVT.ozf_funds_all_b_rectype
1491: ,px_ozf_funds_new_tbl IN OUT NOCOPY OZF_UTILITY_PVT.ozf_funds_table
1492: )
1493: IS
1494: l_api_version CONSTANT NUMBER := 1.0;
1495: l_api_name CONSTANT VARCHAR2(30)
1675: BEGIN
1676: -------------------- initialize -------------------------
1677: SAVEPOINT update_fund;
1678: IF G_DEBUG THEN
1679: ozf_utility_pvt.debug_message(l_full_name || ': start');
1680: END IF;
1681:
1682: IF fnd_api.to_boolean(p_init_msg_list) THEN
1683: fnd_msg_pub.initialize;
1706:
1707: l_fund_rec.status_code := l_status_code;
1708: ELSIF p_fund_rec.status_code <> fnd_api.g_miss_char THEN
1709: IF G_DEBUG THEN
1710: ozf_utility_pvt.debug_message(l_full_name || 'debug' || p_fund_rec.status_code);
1711: END IF;
1712: get_user_status(
1713: p_status_code => p_fund_rec.status_code
1714: ,x_user_status_id => l_fund_rec.user_status_id
1721: END IF;
1722: --- this we need because there could be some records in the database with no user status
1723: ELSE
1724: IF G_DEBUG THEN
1725: ozf_utility_pvt.debug_message(l_full_name || 'in else ');
1726: END IF;
1727:
1728: IF l_fund_rec.user_status_id IS NOT NULL THEN
1729: handle_fund_status(
1763: FETCH c_old_status INTO l_old_status, l_old_parent_fund_id,l_old_user_status_id;
1764: CLOSE c_old_status;
1765: ----------------------- validate ----------------------
1766: IF G_DEBUG THEN
1767: ozf_utility_pvt.debug_message(l_full_name || ': validate');
1768: END IF;
1769: -- replace g_miss_char/num/date with current column values
1770: --added by mpande 27th JULY-2000
1771: ---if the fund is active and the currency_code_tc passed is different than the fund_currency_code
1778: CLOSE c_old_curr;
1779: ----dbms_output.put_line ('OLD CURR = '||l_old_curr);
1780: ----dbms_output.put_line ('PASSED CURR = '||p_fund_rec.currency_code_tc);
1781: IF G_DEBUG THEN
1782: ozf_utility_pvt.debug_message(l_full_name || ': convert currrency');
1783: END IF;
1784: -- changed the status call here to check for the changed status
1785: IF l_fund_rec.status_code <> 'DRAFT' AND l_old_status <> 'DRAFT'
1786: AND l_old_curr <> l_fund_rec.currency_code_tc THEN
1788: AND p_fund_rec.original_budget <> fnd_api.g_miss_num THEN
1789:
1790:
1791: IF G_DEBUG THEN
1792: ozf_utility_pvt.debug_message (l_full_name
1793: || ' p_fund_rec.exchange_rate_date1: ' || p_fund_rec.exchange_rate_date);
1794: END IF;
1795:
1796: ozf_utility_pvt.convert_currency(
1792: ozf_utility_pvt.debug_message (l_full_name
1793: || ' p_fund_rec.exchange_rate_date1: ' || p_fund_rec.exchange_rate_date);
1794: END IF;
1795:
1796: ozf_utility_pvt.convert_currency(
1797: x_return_status => l_return_status
1798: ,p_from_currency => p_fund_rec.currency_code_tc
1799: ,p_to_currency => l_old_curr
1800: ,p_conv_date => p_fund_rec.exchange_rate_date --bug 7425189, 8532055
1804: /*
1805: --nirprasa, added for bug 7425189
1806: IF p_fund_rec.description IN (l_fund_reconc_msg,l_act_bud_cst_msg)
1807: AND p_fund_rec.exchange_rate_date IS NOT NULL THEN
1808: Ozf_utility_pvt.convert_currency(
1809: x_return_status => l_return_status
1810: ,p_from_currency => p_fund_rec.currency_code_tc
1811: ,p_to_currency => l_old_curr
1812: ,p_conv_date => p_fund_rec.exchange_rate_date
1813: ,p_from_amount => p_fund_rec.original_budget
1814: ,x_to_amount => l_fund_rec.original_budget
1815: ,x_rate => l_rate);
1816: ELSE
1817: Ozf_utility_pvt.convert_currency(
1818: x_return_status => l_return_status
1819: ,p_from_currency => p_fund_rec.currency_code_tc
1820: ,p_to_currency => l_old_curr
1821: ,p_from_amount => p_fund_rec.original_budget
1839: AND p_fund_rec.transfered_in_amt <> fnd_api.g_miss_num THEN
1840:
1841:
1842: IF G_DEBUG THEN
1843: ozf_utility_pvt.debug_message (l_full_name
1844: || ' p_fund_rec.exchange_rate_date2: ' || p_fund_rec.exchange_rate_date);
1845: END IF;
1846:
1847: ozf_utility_pvt.convert_currency(
1843: ozf_utility_pvt.debug_message (l_full_name
1844: || ' p_fund_rec.exchange_rate_date2: ' || p_fund_rec.exchange_rate_date);
1845: END IF;
1846:
1847: ozf_utility_pvt.convert_currency(
1848: x_return_status => l_return_status
1849: ,p_from_currency => p_fund_rec.currency_code_tc
1850: ,p_to_currency => l_old_curr
1851: ,p_conv_date => p_fund_rec.exchange_rate_date --bug 7425189, 8532055
1856: /*
1857: --nirprasa, added for bug 7425189
1858: IF p_fund_rec.description IN (l_fund_reconc_msg,l_act_bud_cst_msg)
1859: AND p_fund_rec.exchange_rate_date IS NOT NULL THEN
1860: Ozf_utility_pvt.convert_currency(
1861: x_return_status => l_return_status
1862: ,p_from_currency => p_fund_rec.currency_code_tc
1863: ,p_to_currency => l_old_curr
1864: ,p_conv_date => p_fund_rec.exchange_rate_date
1865: ,p_from_amount => p_fund_rec.transfered_in_amt
1866: ,x_to_amount => l_fund_rec.transfered_in_amt
1867: ,x_rate => l_rate);
1868: ELSE
1869: Ozf_utility_pvt.convert_currency(
1870: x_return_status => l_return_status
1871: ,p_from_currency => p_fund_rec.currency_code_tc
1872: ,p_to_currency => l_old_curr
1873: ,p_from_amount => p_fund_rec.transfered_in_amt
1889: IF p_fund_rec.transfered_out_amt IS NOT NULL
1890: AND p_fund_rec.transfered_out_amt <> fnd_api.g_miss_num THEN
1891:
1892: IF G_DEBUG THEN
1893: ozf_utility_pvt.debug_message (l_full_name
1894: || ' p_fund_rec.exchange_rate_date3: ' || p_fund_rec.exchange_rate_date);
1895: END IF;
1896:
1897: ozf_utility_pvt.convert_currency(
1893: ozf_utility_pvt.debug_message (l_full_name
1894: || ' p_fund_rec.exchange_rate_date3: ' || p_fund_rec.exchange_rate_date);
1895: END IF;
1896:
1897: ozf_utility_pvt.convert_currency(
1898: x_return_status => l_return_status
1899: ,p_from_currency => p_fund_rec.currency_code_tc
1900: ,p_to_currency => l_old_curr
1901: ,p_conv_date => p_fund_rec.exchange_rate_date --bug 7425189, 8532055
1905: /*
1906: --nirprasa, added for bug 7425189
1907: IF p_fund_rec.description IN (l_fund_reconc_msg,l_act_bud_cst_msg)
1908: AND p_fund_rec.exchange_rate_date IS NOT NULL THEN
1909: Ozf_utility_pvt.convert_currency(
1910: x_return_status => l_return_status
1911: ,p_from_currency => p_fund_rec.currency_code_tc
1912: ,p_to_currency => l_old_curr
1913: ,p_conv_date => p_fund_rec.exchange_rate_date
1914: ,p_from_amount => p_fund_rec.transfered_in_amt
1915: ,x_to_amount => l_fund_rec.transfered_in_amt
1916: ,x_rate => l_rate);
1917: ELSE
1918: Ozf_utility_pvt.convert_currency(
1919: x_return_status => l_return_status
1920: ,p_from_currency => p_fund_rec.currency_code_tc
1921: ,p_to_currency => l_old_curr
1922: ,p_from_amount => p_fund_rec.transfered_in_amt
1938: IF p_fund_rec.planned_amt IS NOT NULL
1939: AND p_fund_rec.planned_amt <> fnd_api.g_miss_num THEN
1940:
1941: IF G_DEBUG THEN
1942: ozf_utility_pvt.debug_message (l_full_name
1943: || ' p_fund_rec.exchange_rate_date4: ' || p_fund_rec.exchange_rate_date);
1944: END IF;
1945:
1946: ozf_utility_pvt.convert_currency(
1942: ozf_utility_pvt.debug_message (l_full_name
1943: || ' p_fund_rec.exchange_rate_date4: ' || p_fund_rec.exchange_rate_date);
1944: END IF;
1945:
1946: ozf_utility_pvt.convert_currency(
1947: x_return_status => l_return_status
1948: ,p_from_currency => p_fund_rec.currency_code_tc
1949: ,p_to_currency => l_old_curr
1950: ,p_conv_date => p_fund_rec.exchange_rate_date --bug 7425189, 8532055
1955: /*
1956: --nirprasa, added for bug 7425189
1957: IF p_fund_rec.description IN (l_fund_reconc_msg,l_act_bud_cst_msg)
1958: AND p_fund_rec.exchange_rate_date IS NOT NULL THEN
1959: Ozf_utility_pvt.convert_currency(
1960: x_return_status => l_return_status
1961: ,p_from_currency => p_fund_rec.currency_code_tc
1962: ,p_to_currency => l_old_curr
1963: ,p_conv_date => p_fund_rec.exchange_rate_date
1964: ,p_from_amount => p_fund_rec.planned_amt
1965: ,x_to_amount => l_fund_rec.planned_amt
1966: ,x_rate => l_rate);
1967: ELSE
1968: Ozf_utility_pvt.convert_currency(
1969: x_return_status => l_return_status
1970: ,p_from_currency => p_fund_rec.currency_code_tc
1971: ,p_to_currency => l_old_curr
1972: ,p_from_amount => p_fund_rec.planned_amt
1989: IF p_fund_rec.utilized_amt IS NOT NULL
1990: AND p_fund_rec.utilized_amt <> fnd_api.g_miss_num THEN
1991:
1992: IF G_DEBUG THEN
1993: ozf_utility_pvt.debug_message (l_full_name
1994: || ' p_fund_rec.exchange_rate_date5: ' || p_fund_rec.exchange_rate_date);
1995: END IF;
1996:
1997: ozf_utility_pvt.convert_currency(
1993: ozf_utility_pvt.debug_message (l_full_name
1994: || ' p_fund_rec.exchange_rate_date5: ' || p_fund_rec.exchange_rate_date);
1995: END IF;
1996:
1997: ozf_utility_pvt.convert_currency(
1998: x_return_status => l_return_status
1999: ,p_from_currency => p_fund_rec.currency_code_tc
2000: ,p_to_currency => l_old_curr
2001: ,p_conv_date => p_fund_rec.exchange_rate_date --bug 7425189, 8532055
2006: /*
2007: --nirprasa, added for bug 7425189
2008: IF p_fund_rec.description IN (l_fund_reconc_msg,l_act_bud_cst_msg)
2009: AND p_fund_rec.exchange_rate_date IS NOT NULL THEN
2010: Ozf_utility_pvt.convert_currency(
2011: x_return_status => l_return_status
2012: ,p_from_currency => p_fund_rec.currency_code_tc
2013: ,p_to_currency => l_old_curr
2014: ,p_conv_date => p_fund_rec.exchange_rate_date
2015: ,p_from_amount => p_fund_rec.utilized_amt
2016: ,x_to_amount => l_fund_rec.utilized_amt
2017: ,x_rate => l_rate);
2018: ELSE
2019: Ozf_utility_pvt.convert_currency(
2020: x_return_status => l_return_status
2021: ,p_from_currency => p_fund_rec.currency_code_tc
2022: ,p_to_currency => l_old_curr
2023: ,p_from_amount => p_fund_rec.utilized_amt
2038: IF p_fund_rec.earned_amt IS NOT NULL
2039: AND p_fund_rec.earned_amt <> fnd_api.g_miss_num THEN
2040:
2041: IF G_DEBUG THEN
2042: ozf_utility_pvt.debug_message (l_full_name
2043: || ' p_fund_rec.exchange_rate_date6: ' || p_fund_rec.exchange_rate_date);
2044: END IF;
2045:
2046: ozf_utility_pvt.convert_currency(
2042: ozf_utility_pvt.debug_message (l_full_name
2043: || ' p_fund_rec.exchange_rate_date6: ' || p_fund_rec.exchange_rate_date);
2044: END IF;
2045:
2046: ozf_utility_pvt.convert_currency(
2047: x_return_status => l_return_status
2048: ,p_from_currency => p_fund_rec.currency_code_tc
2049: ,p_to_currency => l_old_curr
2050: ,p_conv_date => p_fund_rec.exchange_rate_date --bug 7425189, 8532055
2055: /*
2056: --nirprasa, added for bug 7425189
2057: IF p_fund_rec.description IN (l_fund_reconc_msg,l_act_bud_cst_msg)
2058: AND p_fund_rec.exchange_rate_date IS NOT NULL THEN
2059: Ozf_utility_pvt.convert_currency(
2060: x_return_status => l_return_status
2061: ,p_from_currency => p_fund_rec.currency_code_tc
2062: ,p_to_currency => l_old_curr
2063: ,p_conv_date => p_fund_rec.exchange_rate_date
2064: ,p_from_amount => p_fund_rec.earned_amt
2065: ,x_to_amount => l_fund_rec.earned_amt
2066: ,x_rate => l_rate);
2067: ELSE
2068: Ozf_utility_pvt.convert_currency(
2069: x_return_status => l_return_status
2070: ,p_from_currency => p_fund_rec.currency_code_tc
2071: ,p_to_currency => l_old_curr
2072: ,p_from_amount => p_fund_rec.earned_amt
2087: IF p_fund_rec.committed_amt IS NOT NULL
2088: AND p_fund_rec.committed_amt <> fnd_api.g_miss_num THEN
2089:
2090: IF G_DEBUG THEN
2091: ozf_utility_pvt.debug_message (l_full_name
2092: || ' p_fund_rec.exchange_rate_date7: ' || p_fund_rec.exchange_rate_date);
2093: END IF;
2094:
2095: ozf_utility_pvt.convert_currency(
2091: ozf_utility_pvt.debug_message (l_full_name
2092: || ' p_fund_rec.exchange_rate_date7: ' || p_fund_rec.exchange_rate_date);
2093: END IF;
2094:
2095: ozf_utility_pvt.convert_currency(
2096: x_return_status => l_return_status
2097: ,p_from_currency => p_fund_rec.currency_code_tc
2098: ,p_to_currency => l_old_curr
2099: ,p_conv_date => p_fund_rec.exchange_rate_date --bug 7425189, 8532055
2104: /*
2105: --nirprasa, added for bug 7425189
2106: IF p_fund_rec.description IN (l_fund_reconc_msg,l_act_bud_cst_msg)
2107: AND p_fund_rec.exchange_rate_date IS NOT NULL THEN
2108: Ozf_utility_pvt.convert_currency(
2109: x_return_status => l_return_status
2110: ,p_from_currency => p_fund_rec.currency_code_tc
2111: ,p_to_currency => l_old_curr
2112: ,p_conv_date => p_fund_rec.exchange_rate_date
2113: ,p_from_amount => p_fund_rec.committed_amt
2114: ,x_to_amount => l_fund_rec.committed_amt
2115: ,x_rate => l_rate);
2116: ELSE
2117: Ozf_utility_pvt.convert_currency(
2118: x_return_status => l_return_status
2119: ,p_from_currency => p_fund_rec.currency_code_tc
2120: ,p_to_currency => l_old_curr
2121: ,p_from_amount => p_fund_rec.committed_amt
2136: IF p_fund_rec.paid_amt IS NOT NULL
2137: AND p_fund_rec.paid_amt <> fnd_api.g_miss_num THEN
2138:
2139: IF G_DEBUG THEN
2140: ozf_utility_pvt.debug_message (l_full_name
2141: || ' p_fund_rec.exchange_rate_date8: ' || p_fund_rec.exchange_rate_date);
2142: END IF;
2143:
2144: Ozf_utility_pvt.convert_currency(
2140: ozf_utility_pvt.debug_message (l_full_name
2141: || ' p_fund_rec.exchange_rate_date8: ' || p_fund_rec.exchange_rate_date);
2142: END IF;
2143:
2144: Ozf_utility_pvt.convert_currency(
2145: x_return_status => l_return_status
2146: ,p_from_currency => p_fund_rec.currency_code_tc
2147: ,p_to_currency => l_old_curr
2148: ,p_conv_date => p_fund_rec.exchange_rate_date --bug 7425189, 8532055
2153: /*
2154: --nirprasa, added for bug 7425189
2155: IF p_fund_rec.description IN (l_fund_reconc_msg,l_act_bud_cst_msg)
2156: AND p_fund_rec.exchange_rate_date IS NOT NULL THEN
2157: Ozf_utility_pvt.convert_currency(
2158: x_return_status => l_return_status
2159: ,p_from_currency => p_fund_rec.currency_code_tc
2160: ,p_to_currency => l_old_curr
2161: ,p_conv_date => p_fund_rec.exchange_rate_date
2162: ,p_from_amount => p_fund_rec.paid_amt
2163: ,x_to_amount => l_fund_rec.paid_amt
2164: ,x_rate => l_rate);
2165: ELSE
2166: Ozf_utility_pvt.convert_currency(
2167: x_return_status => l_return_status
2168: ,p_from_currency => p_fund_rec.currency_code_tc
2169: ,p_to_currency => l_old_curr
2170: ,p_from_amount => p_fund_rec.paid_amt
2241: END IF;
2242:
2243: -- inter-entity level
2244: IF G_DEBUG THEN
2245: ozf_utility_pvt.debug_message(l_full_name || ': check inter-entity');
2246: END IF;
2247:
2248: IF p_validation_level >= jtf_plsql_api.g_valid_level_inter_entity THEN
2249: check_fund_inter_entity(
2260: END IF;
2261:
2262: -------------------------- update --------------------
2263: IF G_DEBUG THEN
2264: ozf_utility_pvt.debug_message(l_full_name || ': update');
2265:
2266: ozf_utility_pvt.debug_message(l_full_name || ': get_category');
2267: END IF;
2268:
2262: -------------------------- update --------------------
2263: IF G_DEBUG THEN
2264: ozf_utility_pvt.debug_message(l_full_name || ': update');
2265:
2266: ozf_utility_pvt.debug_message(l_full_name || ': get_category');
2267: END IF;
2268:
2269: -- kdass 09-NOV-05 Bug 4618523
2270: /*
2286: END IF;
2287: */
2288:
2289: IF G_DEBUG THEN
2290: ozf_utility_pvt.debug_message(l_full_name || 'before update status' ||l_fund_rec.original_budget);
2291: END IF;
2292: -- perform all status related updation and if it is successful then only update the fund record
2293: -- Update fund could be called by other APIS in active status to update earned amt or committed amt .
2294: -- We do allow them to update the record then
2378: IF l_fund_rec.original_budget IS NOT NULL
2379: THEN
2380:
2381: IF G_DEBUG THEN
2382: ozf_utility_pvt.debug_message (l_full_name
2383: || ' p_fund_rec.exchange_rate_date9: ' || p_fund_rec.exchange_rate_date);
2384: END IF;
2385:
2386: ozf_utility_pvt.convert_currency(
2382: ozf_utility_pvt.debug_message (l_full_name
2383: || ' p_fund_rec.exchange_rate_date9: ' || p_fund_rec.exchange_rate_date);
2384: END IF;
2385:
2386: ozf_utility_pvt.convert_currency(
2387: x_return_status => l_return_status
2388: ,p_from_currency => l_fund_rec.currency_code_tc
2389: ,p_to_currency => g_universal_currency
2390: ,p_conv_date => p_fund_rec.exchange_rate_date --bug 7425189, 8532055
2395: /*
2396: --nirprasa, added for bug 7425189
2397: IF p_fund_rec.description IN (l_fund_reconc_msg,l_act_bud_cst_msg)
2398: AND p_fund_rec.exchange_rate_date IS NOT NULL THEN
2399: Ozf_utility_pvt.convert_currency(
2400: x_return_status => l_return_status
2401: ,p_from_currency => l_fund_rec.currency_code_tc
2402: ,p_to_currency => g_universal_currency
2403: ,p_conv_date => p_fund_rec.exchange_rate_date
2404: ,p_from_amount => l_fund_rec.original_budget
2405: ,x_to_amount => l_original_budget
2406: ,x_rate => l_rate);
2407: ELSE
2408: Ozf_utility_pvt.convert_currency(
2409: x_return_status => l_return_status
2410: ,p_from_currency => l_fund_rec.currency_code_tc
2411: ,p_to_currency => g_universal_currency
2412: ,p_from_amount => l_fund_rec.original_budget
2418:
2419: --l_rollup_original_budget := l_original_budget - NVL(l_or_original_budget,0);
2420: --l_fund_rec.rollup_original_budget := l_original_budget;
2421:
2422: l_fund_rec.rollup_original_budget := ozf_utility_pvt.CurrRound((l_fund_rec.original_budget - NVL(l_old_original_budget,0)) * l_rate
2423: ,g_universal_currency) + NVL(l_or_original_budget,0);
2424: l_rollup_original_budget := l_fund_rec.rollup_original_budget - NVL(l_or_original_budget,0);
2425:
2426:
2435: IF l_fund_rec.transfered_in_amt IS NOT NULL
2436: AND l_rate is NOT NULL
2437: AND l_fund_rec.transfered_in_amt <> NVL(l_old_transfered_in_amt,0) THEN
2438:
2439: l_fund_rec.rollup_transfered_in_amt := ozf_utility_pvt.CurrRound((l_fund_rec.transfered_in_amt - NVL(l_old_transfered_in_amt,0)) * l_rate
2440: ,g_universal_currency) + NVL(l_or_transfered_in_amt,0);
2441: l_rollup_transfered_in_amt := l_fund_rec.rollup_transfered_in_amt - NVL(l_or_transfered_in_amt,0);
2442:
2443: END IF;
2445: IF l_fund_rec.transfered_out_amt IS NOT NULL
2446: AND l_rate is NOT NULL
2447: AND l_fund_rec.transfered_out_amt <> NVL(l_old_transfered_out_amt,0) THEN
2448:
2449: l_fund_rec.rollup_transfered_out_amt := ozf_utility_pvt.CurrRound((l_fund_rec.transfered_out_amt-NVL(l_old_transfered_out_amt,0)) * l_rate
2450: ,g_universal_currency) + NVL(l_or_transfered_out_amt,0);
2451: l_rollup_transfered_out_amt := l_fund_rec.rollup_transfered_out_amt - NVL(l_or_transfered_out_amt,0);
2452:
2453: END IF;
2457: --Bug Fix 4087106, Rollup holdback amt not updated when manually updated.
2458: IF l_rate is NOT NULL
2459: AND NVL(l_fund_rec.holdback_amt,0) <> NVL(l_old_holdback_amt,0) THEN
2460:
2461: l_fund_rec.rollup_holdback_amt := ozf_utility_pvt.CurrRound((NVL(l_fund_rec.holdback_amt,0)-NVL(l_old_holdback_amt,0)) * l_rate
2462: ,g_universal_currency)+ NVL(l_or_holdback_amt,0);
2463: l_rollup_holdback_amt := l_fund_rec.rollup_holdback_amt - NVL(l_or_holdback_amt,0);
2464:
2465: END IF;
2468: IF l_fund_rec.planned_amt IS NOT NULL
2469: AND l_rate is NOT NULL
2470: AND l_fund_rec.planned_amt <> NVL(l_old_planned_amt,0) THEN
2471:
2472: l_fund_rec.rollup_planned_amt := ozf_utility_pvt.CurrRound((l_fund_rec.planned_amt-NVL(l_old_planned_amt,0)) * l_rate
2473: ,g_universal_currency)+ NVL(l_or_planned_amt,0);
2474: l_rollup_planned_amt := l_fund_rec.rollup_planned_amt - NVL(l_or_planned_amt,0);
2475:
2476: END IF;
2478: IF l_fund_rec.committed_amt IS NOT NULL
2479: AND l_rate is NOT NULL
2480: AND l_fund_rec.committed_amt <> NVL(l_old_committed_amt,0) THEN
2481:
2482: l_fund_rec.rollup_committed_amt := ozf_utility_pvt.CurrRound((l_fund_rec.committed_amt-NVL(l_old_committed_amt,0)) * l_rate
2483: ,g_universal_currency) + NVL(l_or_committed_amt,0);
2484: l_rollup_committed_amt :=l_fund_rec.rollup_committed_amt - NVL(l_or_committed_amt,0);
2485:
2486: END IF;
2488: IF l_fund_rec.utilized_amt IS NOT NULL
2489: AND l_rate is NOT NULL
2490: AND l_fund_rec.utilized_amt <> NVL(l_old_utilized_amt,0) THEN
2491:
2492: l_fund_rec.rollup_utilized_amt := ozf_utility_pvt.CurrRound((l_fund_rec.utilized_amt-NVL(l_old_utilized_amt,0)) * l_rate
2493: ,g_universal_currency) + NVL(l_or_utilized_amt,0);
2494: l_rollup_utilized_amt := l_fund_rec.rollup_utilized_amt - NVL(l_or_utilized_amt,0);
2495:
2496: END IF;
2498: IF l_fund_rec.earned_amt IS NOT NULL
2499: AND l_rate is NOT NULL
2500: AND l_fund_rec.earned_amt <> NVL(l_old_earned_amt,0) THEN
2501:
2502: l_fund_rec.rollup_earned_amt := ozf_utility_pvt.CurrRound((l_fund_rec.earned_amt-NVL(l_old_earned_amt,0)) * l_rate
2503: ,g_universal_currency) + NVL(l_or_earned_amt,0);
2504: l_rollup_earned_amt := l_fund_rec.rollup_earned_amt - NVL(l_or_earned_amt,0);
2505:
2506: END IF;
2509: IF l_fund_rec.paid_amt IS NOT NULL
2510: AND l_rate is NOT NULL
2511: AND l_fund_rec.paid_amt <> NVL(l_old_paid_amt,0) THEN
2512:
2513: l_fund_rec.rollup_paid_amt := ozf_utility_pvt.CurrRound((l_fund_rec.paid_amt-NVL(l_old_paid_amt,0)) * l_rate
2514: ,g_universal_currency) +NVL(l_or_paid_amt,0);
2515: l_rollup_paid_amt := l_fund_rec.rollup_paid_amt - NVL(l_or_paid_amt,0);
2516:
2517: END IF;
2519: IF l_fund_rec.recal_committed IS NOT NULL
2520: AND l_rate is NOT NULL
2521: AND l_fund_rec.recal_committed <> NVL(l_old_recal_committed,0) THEN
2522:
2523: l_fund_rec.rollup_recal_committed := ozf_utility_pvt.CurrRound((l_fund_rec.recal_committed-NVL(l_old_recal_committed,0)) * l_rate
2524: ,g_universal_currency) +NVL(l_or_recal_committed,0);
2525: l_rollup_recal_committed :=l_fund_rec.rollup_recal_committed - NVL(l_or_recal_committed,0);
2526:
2527: END IF;
2589: l_fund_rec.status_date := SYSDATE;
2590: END IF;
2591:
2592: IF G_DEBUG THEN
2593: ozf_utility_pvt.debug_message('l_use_fund_staging_tables: ' || l_use_fund_staging_tables );
2594: END IF;
2595: -- For BUG#8867381(+)
2596: -- l_use_fund_staging_tables flag is set only for chargeback flow and will insert the records into
2597: -- new record type and pass it on to OZF_RESALE_COMMON_PVT.UPDATE_OZF_FUNDS_ALL_B procedure for updating
2787:
2788: <
2789:
2790: IF G_DEBUG THEN
2791: ozf_utility_pvt.debug_message('l_operation: ' || l_operation);
2792: END IF;
2793:
2794: IF l_operation = 'UPDATE' THEN
2795:
2793:
2794: IF l_operation = 'UPDATE' THEN
2795:
2796: IF G_DEBUG THEN
2797: ozf_utility_pvt.debug_message('fund_id: ' || px_ozf_funds_new_tbl(l_fund_record_num).FUND_ID);
2798: ozf_utility_pvt.debug_message('existing earned: ' || px_ozf_funds_new_tbl(l_fund_record_num).EARNED_AMT);
2799: END IF;
2800:
2801: px_ozf_funds_new_tbl(l_fund_record_num).BUDGET_AMOUNT_TC := NVL(px_ozf_funds_new_tbl(l_fund_record_num).BUDGET_AMOUNT_TC ,0)
2794: IF l_operation = 'UPDATE' THEN
2795:
2796: IF G_DEBUG THEN
2797: ozf_utility_pvt.debug_message('fund_id: ' || px_ozf_funds_new_tbl(l_fund_record_num).FUND_ID);
2798: ozf_utility_pvt.debug_message('existing earned: ' || px_ozf_funds_new_tbl(l_fund_record_num).EARNED_AMT);
2799: END IF;
2800:
2801: px_ozf_funds_new_tbl(l_fund_record_num).BUDGET_AMOUNT_TC := NVL(px_ozf_funds_new_tbl(l_fund_record_num).BUDGET_AMOUNT_TC ,0)
2802: + NVL(l_fund_rec.budget_amount_tc,0)
2865: ELSIF l_operation = 'INSERT' THEN
2866: l_fund_record_num := px_ozf_funds_new_tbl.COUNT + 1;
2867:
2868: IF G_DEBUG THEN
2869: ozf_utility_pvt.debug_message('fund_id: ' || l_fund_rec.fund_id);
2870: END IF;
2871:
2872: px_ozf_funds_new_tbl(l_fund_record_num).RESALE_BATCH_ID := p_resale_batch_id;
2873: px_ozf_funds_new_tbl(l_fund_record_num).FUND_ID := l_fund_rec.fund_id;
2897:
2898: END IF;
2899:
2900: IF G_DEBUG THEN
2901: ozf_utility_pvt.debug_message('earned from fund table: ' || px_ozf_funds_old_rectype.earned_amt);
2902: ozf_utility_pvt.debug_message('new earned: ' || l_fund_rec.earned_amt);
2903: ozf_utility_pvt.debug_message('final earned: ' || px_ozf_funds_new_tbl(l_fund_record_num).EARNED_AMT);
2904: END IF;
2905:
2898: END IF;
2899:
2900: IF G_DEBUG THEN
2901: ozf_utility_pvt.debug_message('earned from fund table: ' || px_ozf_funds_old_rectype.earned_amt);
2902: ozf_utility_pvt.debug_message('new earned: ' || l_fund_rec.earned_amt);
2903: ozf_utility_pvt.debug_message('final earned: ' || px_ozf_funds_new_tbl(l_fund_record_num).EARNED_AMT);
2904: END IF;
2905:
2906: END IF;
2899:
2900: IF G_DEBUG THEN
2901: ozf_utility_pvt.debug_message('earned from fund table: ' || px_ozf_funds_old_rectype.earned_amt);
2902: ozf_utility_pvt.debug_message('new earned: ' || l_fund_rec.earned_amt);
2903: ozf_utility_pvt.debug_message('final earned: ' || px_ozf_funds_new_tbl(l_fund_record_num).EARNED_AMT);
2904: END IF;
2905:
2906: END IF;
2907: -- For TPA Parallel Execution ER - 9614703 (-)
2952:
2953: If l_use_fund_staging_tables <> 'T' then
2954:
2955: IF G_DEBUG THEN
2956: ozf_utility_pvt.debug_message('Going to update mode of update_rollup_amount as l_use_fund_staging_tables is :'||l_use_fund_staging_tables );
2957: END IF;
2958:
2959: update_rollup_amount(
2960: p_api_version => l_api_version
3044: ,p_approval_for_id => p_fund_rec.fund_id
3045: /* yzhao: Jan 16 2005 fix bug 4943323(4912954) pass in correct requester id
3046: ,p_requester_id => l_fund_rec.owner
3047: */
3048: ,p_requester_id => ozf_utility_pvt.get_resource_id(p_user_id => fnd_global.user_id)
3049: ,p_requested_amount => l_child_request_amt
3050: ,p_approval_fm => 'FUND'
3051: ,p_approval_fm_id => l_fund_rec.parent_fund_id
3052: ,p_transfer_type => 'REQUEST'
3068: END IF;
3069: END IF;
3070: -- call when it is submitting for approval
3071: IF l_submit_budget_approval = FND_API.g_true THEN
3072: l_reject_status_id :=ozf_utility_pvt.get_default_user_status(
3073: l_status_type
3074: ,'REJECTED');
3075:
3076: AMS_GEN_APPROVAL_PVT.StartProcess
3083: ,p_reject_stat_id =>l_reject_status_id
3084: /* yzhao: Jan 16 2005 fix bug 4943323(4912954) pass in correct requester id
3085: ,p_requester_userid =>l_fund_rec.owner
3086: */
3087: ,p_requester_userid =>ozf_utility_pvt.get_resource_id(p_user_id => fnd_global.user_id)
3088: ,p_notes_from_requester =>l_fund_rec.description
3089: ,p_workflowprocess => l_workflow_process
3090: ,p_item_type => l_item_type);
3091:
3108: -- if owner is changing update acesss
3109: IF p_fund_rec.owner <> fnd_api.g_miss_num
3110: AND l_owner <> p_fund_rec.owner THEN
3111: IF G_DEBUG THEN
3112: ozf_utility_pvt.debug_message(l_full_name || ': insert access owner');
3113: END IF;
3114: /* commented by feliu on 05/13/2003 to fix bug 2969498;
3115: OPEN c_access(p_fund_rec.fund_id);
3116: FETCH c_access INTO l_act_access_id, l_acc_obj_ver_num;
3225: -- from proile
3226: -- update the transaction table on all cases.
3227:
3228: IF G_DEBUG THEN
3229: ozf_utility_pvt.debug_message(l_full_name ||': insert FC record' ||l_fund_rec.currency_code_tc);
3230: END IF;
3231: ozf_mc_transactions_pvt.init_transaction_rec(x_mc_transactions_rec => l_mc_transaction_rec);
3232: -- Populate the record variable
3233: l_mc_transaction_rec.mc_record_id := l_mc_record_id;
3284: p_encoded => fnd_api.g_false
3285: ,p_count => x_msg_count
3286: ,p_data => x_msg_data);
3287: IF G_DEBUG THEN
3288: ozf_utility_pvt.debug_message(l_full_name || ': end');
3289: END IF;
3290: EXCEPTION
3291: WHEN fnd_api.g_exc_error THEN
3292: ROLLBACK TO update_fund;
3341: l_return_status VARCHAR2(1);
3342: BEGIN
3343: ----------------------- initialize --------------------
3344: IF G_DEBUG THEN
3345: ozf_utility_pvt.debug_message(l_full_name || ': start');
3346: END IF;
3347:
3348: IF fnd_api.to_boolean(p_init_msg_list) THEN
3349: fnd_msg_pub.initialize;
3355:
3356: x_return_status := fnd_api.g_ret_sts_success;
3357: ---------------------- validate ------------------------
3358: IF G_DEBUG THEN
3359: ozf_utility_pvt.debug_message(l_full_name || ': check items');
3360: END IF;
3361:
3362: IF p_validation_level >= jtf_plsql_api.g_valid_level_item THEN
3363: ----dbms_output.put_line ('Calling Check_Fund_Items from validate');
3374: END IF;
3375: END IF;
3376:
3377: IF G_DEBUG THEN
3378: ozf_utility_pvt.debug_message(l_full_name || ': check record');
3379: END IF;
3380:
3381: IF p_validation_level >= jtf_plsql_api.g_valid_level_record THEN
3382: check_fund_record(
3393: END IF;
3394:
3395: -- added on 01/20/2001 for all inter entity validations Mumu Pande
3396: IF G_DEBUG THEN
3397: ozf_utility_pvt.debug_message(l_full_name || ': check inter-entity');
3398: END IF;
3399:
3400: IF p_validation_level >= jtf_plsql_api.g_valid_level_inter_entity THEN
3401: check_fund_inter_entity(
3416: p_encoded => fnd_api.g_false
3417: ,p_count => x_msg_count
3418: ,p_data => x_msg_data);
3419: IF G_DEBUG THEN
3420: ozf_utility_pvt.debug_message(l_full_name || ': end');
3421: END IF;
3422: EXCEPTION
3423: WHEN fnd_api.g_exc_error THEN
3424: x_return_status := fnd_api.g_ret_sts_error;
3618: -- For Create_Fund, when fund_id is passed in, we need to
3619: -- check if this fund_id is unique.
3620: IF p_validation_mode = jtf_plsql_api.g_create
3621: AND p_fund_rec.fund_id IS NOT NULL THEN
3622: IF ozf_utility_pvt.check_uniqueness(
3623: 'ozf_funds_all_vl'
3624: ,'fund_id = ' || p_fund_rec.fund_id) =
3625: fnd_api.g_false THEN
3626: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3640: -- Check if fund_number is unique. Need to handle create and
3641: -- update differently.
3642: IF p_validation_mode = jtf_plsql_api.g_create THEN
3643: /*l_valid_flag :=
3644: ozf_utility_pvt.check_uniqueness(
3645: 'ozf_funds_all_vl'
3646: ,'fund_number = ''' || p_fund_rec.fund_number || '''');*/
3647: OPEN c_prog_fund_number_create;
3648: FETCH c_prog_fund_number_create INTO l_valid_flag;
3648: FETCH c_prog_fund_number_create INTO l_valid_flag;
3649: CLOSE c_prog_fund_number_create;
3650: ELSE
3651: /* l_valid_flag :=
3652: ozf_utility_pvt.check_uniqueness(
3653: 'ozf_funds_all_vl'
3654: ,'fund_number = ''' ||
3655: p_fund_rec.fund_number ||
3656: ''' AND fund_id <> ' ||
3679: /*
3680: IF p_fund_rec.fund_type = 'FULLY_ACCRUED' THEN
3681: IF p_validation_mode = jtf_plsql_api.g_create THEN
3682: l_valid_flag :=
3683: ozf_utility_pvt.check_uniqueness(
3684: 'ozf_funds_all_vl'
3685: ,'short_name = ''' || p_fund_rec.short_name || '''');
3686: ELSE
3687: l_valid_flag :=
3684: 'ozf_funds_all_vl'
3685: ,'short_name = ''' || p_fund_rec.short_name || '''');
3686: ELSE
3687: l_valid_flag :=
3688: ozf_utility_pvt.check_uniqueness(
3689: 'ozf_funds_all_vl'
3690: ,'short_name = ''' ||
3691: p_fund_rec.short_name ||
3692: ''' AND fund_id <> ' ||
3727: x_return_status := fnd_api.g_ret_sts_success;
3728:
3729: ----------------------- user_status_id ------------------------
3730: IF p_fund_rec.user_status_id <> fnd_api.g_miss_num THEN
3731: IF ozf_utility_pvt.check_fk_exists(
3732: 'ams_user_statuses_vl'
3733: ,'user_status_id'
3734: ,p_fund_rec.user_status_id) =
3735: fnd_api.g_false THEN
3747: ----------------------- category_id ------------------------
3748: -- mkothari - Bug 4701105 - start ----
3749: IF p_fund_rec.fund_type <> 'QUOTA' THEN
3750: IF p_fund_rec.category_id <> fnd_api.g_miss_num THEN
3751: IF ozf_utility_pvt.check_fk_exists(
3752: 'ams_categories_vl'
3753: ,'category_id'
3754: ,p_fund_rec.category_id) =
3755: fnd_api.g_false THEN
3785: x_return_status := fnd_api.g_ret_sts_success;
3786:
3787: ----------------------- fund_type ------------------------
3788: IF p_fund_rec.fund_type <> fnd_api.g_miss_char THEN
3789: IF ozf_utility_pvt.check_lookup_exists(
3790: p_lookup_table_name => 'OZF_LOOKUPS'
3791: ,p_lookup_type => 'OZF_FUND_TYPE'
3792: ,p_lookup_code => p_fund_rec.fund_type) =
3793: fnd_api.g_false THEN
3807:
3808:
3809: ----------------------- status_code ------------------------
3810: IF p_fund_rec.status_code <> fnd_api.g_miss_char THEN
3811: IF ozf_utility_pvt.check_lookup_exists(
3812: p_lookup_table_name => 'OZF_LOOKUPS'
3813: ,p_lookup_type => 'OZF_FUND_STATUS'
3814: ,p_lookup_code => p_fund_rec.status_code) =
3815: fnd_api.g_false THEN
3848:
3849: ----------------------- liability_flag ------------------------
3850: IF p_fund_rec.liability_flag <> fnd_api.g_miss_char
3851: AND p_fund_rec.liability_flag IS NOT NULL THEN
3852: IF ozf_utility_pvt.is_y_or_n(p_fund_rec.liability_flag) = fnd_api.g_false THEN
3853: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3854: fnd_message.set_name('OZF', 'OZF_FUND_BAD_LIABILITY_FLAG');
3855: fnd_msg_pub.add;
3856: END IF;
3862:
3863: ----------------------- budget_flag ------------------------
3864: IF p_fund_rec.budget_flag <> fnd_api.g_miss_char
3865: AND p_fund_rec.budget_flag IS NOT NULL THEN
3866: IF ozf_utility_pvt.is_y_or_n(p_fund_rec.budget_flag) = fnd_api.g_false THEN
3867: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3868: IF p_fund_rec.fund_type = 'QUOTA' THEN
3869: fnd_message.set_name('OZF', 'OZF_TP_BAD_QUOTA_FLAG');
3870: ELSE
3880:
3881: ----------------------- earned_flag ------------------------
3882: IF p_fund_rec.earned_flag <> fnd_api.g_miss_char
3883: AND p_fund_rec.earned_flag IS NOT NULL THEN
3884: IF ozf_utility_pvt.is_y_or_n(p_fund_rec.earned_flag) = fnd_api.g_false THEN
3885: IF fnd_msg_pub.check_msg_level(fnd_msg_pub.g_msg_lvl_error) THEN
3886: fnd_message.set_name('OZF', 'OZF_FUND_BAD_EARNED_FLAG');
3887: fnd_msg_pub.add;
3888: END IF;
4244:
4245: -- Check for update validations
4246: IF p_mode = jtf_plsql_api.g_update THEN
4247: -- mpande added on Sep 11 for giving update access to owner and persons who have access with edit metric flag = 'Y'
4248: l_resource_id := ozf_utility_pvt.get_resource_id(p_user_id => fnd_global.user_id);
4249:
4250: IF G_DEBUG THEN
4251: ozf_utility_pvt.debug_message('resource'||ams_access_pvt.check_update_access(p_complete_rec.fund_id, 'FUND', l_resource_id, 'USER'));
4252: END IF;
4247: -- mpande added on Sep 11 for giving update access to owner and persons who have access with edit metric flag = 'Y'
4248: l_resource_id := ozf_utility_pvt.get_resource_id(p_user_id => fnd_global.user_id);
4249:
4250: IF G_DEBUG THEN
4251: ozf_utility_pvt.debug_message('resource'||ams_access_pvt.check_update_access(p_complete_rec.fund_id, 'FUND', l_resource_id, 'USER'));
4252: END IF;
4253:
4254: IF l_resource_id <> -1 THEN
4255: IF ams_access_pvt.check_update_access(
5430: FND_MSG_PUB.initialize;
5431: END IF;
5432:
5433: IF G_DEBUG THEN
5434: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' start');
5435: END IF;
5436:
5437: -- Initialize API return status to SUCCESS
5438: x_return_status := FND_API.G_RET_STS_SUCCESS;
5586: -- after copy offer detail.
5587: --As in copy offer detail copy_discounts is called for pricing where unconditional commit is present causing savepoint never established error.
5588: ----------------------- validate -----------------------
5589: IF G_DEBUG THEN
5590: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' validate');
5591: END IF;
5592: validate_fund(
5593: p_api_version => l_api_version_number
5594: ,p_init_msg_list => p_init_msg_list
5700:
5701:
5702: -- Debug Message
5703: IF G_DEBUG THEN
5704: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' end');
5705: END IF;
5706:
5707: -- Standard call to get message count and if count is 1, get message info.
5708: FND_MSG_PUB.Count_And_Get (
5805: FND_MSG_PUB.initialize;
5806: END IF;
5807:
5808: IF G_DEBUG THEN
5809: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' start');
5810: END IF;
5811:
5812: -- Initialize API return status to SUCCESS
5813: x_return_status := FND_API.G_RET_STS_SUCCESS;
5846: p_encoded => fnd_api.g_false
5847: ,p_count => x_msg_count
5848: ,p_data => x_msg_data);
5849: IF G_DEBUG THEN
5850: ozf_utility_pvt.debug_message( l_api_name || ': end');
5851: END IF;
5852: EXCEPTION
5853: WHEN fnd_api.g_exc_error THEN
5854: x_return_status := fnd_api.g_ret_sts_error;
5954: FND_MSG_PUB.initialize;
5955: END IF;
5956:
5957: IF G_DEBUG THEN
5958: OZF_UTILITY_PVT.debug_message('Private API: ' || l_api_name || ' start');
5959: END IF;
5960:
5961: FOR fund IN c_parent
5962: LOOP
6036: p_encoded => fnd_api.g_false
6037: ,p_count => x_msg_count
6038: ,p_data => x_msg_data);
6039: IF G_DEBUG THEN
6040: ozf_utility_pvt.debug_message( l_api_name ||': end');
6041: END IF;
6042:
6043: EXCEPTION
6044: WHEN fnd_api.g_exc_error THEN