The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT to_number (to_char (cp.start_date, 'J'))
INTO h_cpp_jstartdate
FROM fa_deprn_periods dp,
fa_calendar_periods cp,
fa_fiscal_year fy
WHERE cp.calendar_type = h_d_cal
AND fy.fiscal_year_name = h_fiscal_year_name
AND fy.fiscal_year = h_cpd_fy
AND dp.fiscal_year = fy.fiscal_year
AND dp.book_type_code = h_book
AND dp.period_num = h_cpdnum
AND dp.period_name = cp.period_name
AND dp.period_num = cp.period_num;
SELECT period_num
INTO h_startpp
FROM fa_calendar_periods
WHERE calendar_type = h_p_cal
AND to_date (h_cpp_jstartdate,'J')
between start_date and end_date;
SELECT period_num
INTO h_endpp
FROM fa_calendar_periods
WHERE calendar_type = h_p_cal
AND trunc(h_ret_p_date)
between start_date and end_date;
| 9/5/90 R Rumanang Updated for Tax Reserve |
| Adjustment |
| 04/11/91 M Chan Rewrite for MPL 9 to speed up the|
| retirement program. |
| 01/08/97 S Behura Rewrote into PL/SQL |
| 08/11/97 S Behura Rewrote into PL/SQL(10.7) |
|==========================================================================*/
FUNCTION faggrv(asset_id number, book in varchar2, cpd_ctr number,
adj_rsv in out nocopy number, reval_adj_rsv in out number,
prior_fy_exp in out nocopy number, ytd_deprn in out number,
bonus_rsv in out nocopy number,
bonus_ytd_deprn in out nocopy number,
prior_fy_bonus_exp in out nocopy number,
mrc_sob_type_code in varchar2,
p_log_level_rec IN FA_API_TYPES.log_level_rec_type default null) RETURN BOOLEAN IS
faggrv_err exception;
select adjusted_cost
, salvage_value
, recoverable_cost
, adjusted_recoverable_cost
, reval_amortization_basis
, old_adjusted_cost
from fa_books
where asset_id = ret.asset_id
and book_type_code = ret.book
and transaction_header_id_out is null;
select adjusted_cost
, salvage_value
, recoverable_cost
, adjusted_recoverable_cost
, reval_amortization_basis
, old_adjusted_cost
from fa_books_mrc_v
where asset_id = ret.asset_id
and book_type_code = ret.book
and transaction_header_id_out is null;
select 'Y'
from fa_calendar_periods fcp1,
fa_calendar_periods fcp2,
fa_book_controls fbc
where to_date (dpr.prorate_jdate,'J') BETWEEN fcp1.start_date and fcp1.end_date
and fbc.book_type_code = dpr.book
and fcp1.calendar_type = fbc.deprn_calendar
and to_date (decode( dpr.jdate_retired,0,null,dpr.jdate_retired),'J') BETWEEN fcp2.start_date and fcp2.end_date
and fcp2.calendar_type=fcp1.calendar_type
and fcp1.period_name=fcp2.period_name;
SELECT facp.period_num
INTO h_cpdnum
FROM fa_calendar_periods facp
WHERE facp.calendar_type = bk.p_cal
AND ( facp.start_date = bk.prorate_date
OR facp.end_date = bk.prorate_date );
select period_num
into h_end_pd
from fa_calendar_periods cp
where calendar_type = dpr.calendar_type
and bk.ret_prorate_date between start_date and end_date;
select fiscal_year
into h_fiscal_year
from fa_fiscal_year
where fiscal_year_name = fa_cache_pkg.fazcbc_record.fiscal_year_name
and bk.ret_prorate_date between start_date and end_date;
name => 'FA_RET_INSERT_ERROR',
token1 => 'MODULE',
value1 => 'FAGPDP',
token2 => 'ACTION',
value2 => 'insert',
token3 => 'TYPE',
value3 => 'Depreciation',
token4 => 'ASSET',
value4 => ret.asset_number
,p_log_level_rec => p_log_level_rec);
name => 'FA_RET_INSERT_ERROR',
token1 => 'MODULE',
value1 => 'FAGPRV',
token2 => 'ACTION',
value2 => 'insert',
token3 => 'TYPE',
value3 => 'Depreciation Reserve',
token4 => 'ASSET',
value4 => ret.asset_number
,p_log_level_rec => p_log_level_rec);
name => 'FA_RET_INSERT_ERROR',
token1 => 'MODULE',
value1 => 'FAGPCT',
token2 => 'ACTION',
value2 => 'insert',
token3 => 'TYPE',
value3 => 'Cost',
token4 => 'ASSET',
value4 => ret.asset_number
,p_log_level_rec => p_log_level_rec);
name => 'FA_RET_INSERT_ERROR',
token1 => 'MODULE',
value1 => 'FAGURT',
token2 => 'ACTION',
value2 => 'make',
token3 => 'TYPE',
value3 => 'table',
token4 => 'ASSET',
value4 => ret.asset_number
,p_log_level_rec => p_log_level_rec);
name => 'FA_RET_INSERT_ERROR',
token1 => 'MODULE',
value1 => 'FA_RETIREMENT_PVT.Do_Retirement_in_CGL',
token2 => 'ACTION',
value2 => 'make',
token3 => 'TYPE',
value3 => 'table',
token4 => 'ASSET',
value4 => ret.asset_number
,p_log_level_rec => p_log_level_rec);