[Home] [Help]
491: p_rsob_id IN NUMBER,
492: p_fixed_rate IN VARCHAR2,
493: X_fixed_conversion OUT NOCOPY VARCHAR2) IS
494: /* ************************************************************************
495: This procedure will validate fa_mc_conversion_rates table. It will
496: check to see that all assets have a conversion_basis. It also checks
497: to see if the conversion is a fixed rate conversion based on user input
498: and raises an exception when user specifies that it is a fixed rate
499: conversion and when there are variable rates for the assets. This
509:
510: CURSOR check_rate IS
511: SELECT distinct exchange_rate, conversion_basis
512: FROM
513: fa_mc_conversion_rates
514: WHERE
515: set_of_books_id = p_rsob_id AND
516: book_type_code = p_book_type_code;
517: BEGIN
520: -- and raise error if it is the case
521:
522: SELECT count(*)
523: INTO l_count
524: FROM fa_mc_conversion_rates
525: WHERE
526: set_of_books_id = p_rsob_id AND
527: book_type_code = p_book_type_code AND
528: conversion_basis is null AND
988: X_total_assets OUT NOCOPY NUMBER) IS
989: /* ************************************************************************
990: This procedure selects all the assets in a Primary Book that need to be
991: converted for a given reporting book and inserts them into
992: fa_mc_conversion_rates. The assets selected are those that are not
993: fully retired as of the beginning of the fiscal year, represented by
994: p_start_pc, being converted. All other assets will be selected.
995: The assets are selected in two parts, those that have DEPRN rows in the
996: year being converted and those that have their last DEPRN row in a
1015: -- First delete previously selected assets since if this is
1016: -- called it indicates that phase 1 is being run and we will reselect
1017: -- all the assets again as the earlier run is out of date
1018:
1019: DELETE FROM fa_mc_conversion_rates
1020: WHERE set_of_books_id = p_rsob_id AND
1021: book_type_code = p_book_type_code;
1022:
1023: X_total_assets := 0;
1025: -- Select and insert 1000 candidate assets at a time in LOOP
1026: LOOP
1027: -- First select all assets with DEPRN rows in FY being converted
1028:
1029: INSERT INTO FA_MC_CONVERSION_RATES(
1030: ASSET_ID,
1031: SET_OF_BOOKS_ID,
1032: BOOK_TYPE_CODE,
1033: EXCHANGE_RATE,
1050: 'F',
1051: ds.period_counter
1052: FROM
1053: fa_deprn_summary ds,
1054: fa_mc_conversion_rates cr,
1055: fa_books bk,
1056: fa_additions ad
1057: WHERE
1058: bk.date_ineffective is NULL AND
1095:
1096: LOOP
1097: -- select assets with last DEPRN row in prior Fiscal Year
1098:
1099: INSERT INTO FA_MC_CONVERSION_RATES(
1100: ASSET_ID,
1101: SET_OF_BOOKS_ID,
1102: BOOK_TYPE_CODE,
1103: EXCHANGE_RATE,
1122: FROM
1123: fa_books bk,
1124: fa_deprn_summary ds,
1125: fa_additions ad,
1126: fa_mc_conversion_rates cr
1127: WHERE
1128: bk.date_ineffective is NULL AND
1129: bk.book_type_code = p_book_type_code AND
1130: nvl(bk.period_counter_fully_retired, p_end_pc +1) >=
1271: END IF;
1272:
1273: -- call gl api to get the exchange rate to use for assets
1274: -- with conversion basis of R but no rate specified in the
1275: -- exchange_rate column of fa_mc_conversion_rates. This is
1276: -- default exchange rate as of the init conversion date specified
1277: -- in gl for this reporting book. For EMU conversion, we will use
1278: -- X_denominator_rate and X_numerator_rate for triangulation
1279: gl_currency_api.get_triangulation_rate(
1342: conversion_status in ('S', 'E', 'R');
1343:
1344: CURSOR check_assets IS
1345: SELECT count(*)
1346: FROM fa_mc_conversion_rates
1347: WHERE set_of_books_id = p_rsob_id AND
1348: book_type_code = p_book_type_code;
1349:
1350: BEGIN
1648: SELECT
1649: count(*),
1650: status
1651: FROM
1652: fa_mc_conversion_rates cr
1653: WHERE
1654: cr.set_of_books_id = p_rsob_id AND
1655: cr.book_type_code = p_book_type_code
1656: GROUP BY status;
1708: END IF;
1709: */
1710: IF (l_assets_processed < l_deprn_assets) THEN
1711:
1712: UPDATE fa_mc_conversion_rates
1713: SET STATUS = 'S'
1714: WHERE set_of_books_id = p_rsob_id AND
1715: book_type_code = p_book_type_code AND
1716: STATUS = 'F' AND
1718:
1719: l_commit_size := SQL%ROWCOUNT;
1720: l_convert_order := 'F';
1721: ELSE
1722: UPDATE fa_mc_conversion_rates
1723: SET STATUS = 'S'
1724: WHERE set_of_books_id = p_rsob_id AND
1725: book_type_code = p_book_type_code AND
1726: STATUS = 'L' AND
1811: -- all tables have been converted successfully for the assets selected
1812: -- update the status to converted and commit and increment
1813: -- assets processed with the numbers of assets converted
1814:
1815: UPDATE fa_mc_conversion_rates
1816: SET STATUS = DECODE(l_convert_order,
1817: 'F', 'CF',
1818: 'L', 'CL')
1819: WHERE